ùúùúqÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ org $60000 load $60000 a move.w #$1,fileno .l1 bsr loadit cmp.l #-1,len beq.s .l2 bsr saveit bsr wrast .l2 btst #6,$bfe001 beq exit addq.w #1,fileno cmp.w #128,fileno bne.s .l1 moveq #0,d0 exit rts wrast moveq #119,d0 .w1 cmp.b #$ff,$dff006 bne .w1 .w cmp.b #$ff,$dff006 beq.s .w dbf d0,.w1 rts j loadit move.w #$4000,$dff09a JSR C2FC(PC) JSR C27A(PC) LEA $90000,A0 MOVEQ #0,D0 move.w fileno(pc),d0 JSR C098(PC) tst.l d0 bmi.s .w ;lea $90000,a1 ;lea $100000,a2 ;bsr unpack sub.l #$90000,a2 move.l a2,d0 .w move.l d0,len move.w fileno(pc),d0 move.w d0,d1 and.w #$f,d1 ror.w #4,d0 and.w #$f,d0 move.b list(pc,d0.w),nr move.b list(pc,d1.w),nr+1 move.w #$c000,$dff09a rts list dc.b '0123456789ABCDEF' fileno dc.w 3 len dc.l 0 saveit move.l 4.w,a6 lea doslib(pc),a1 moveq #0,d0 moveq #0,d1 jsr -408(a6) move.l d0,a6 .w move.l #Dname,d1 move.l #1006,d2 jsr -30(A6) move.l d0,d1 move.l d0,-(A7) move.l #$90000,d2 move.l len(pc),d3 jsr -48(a6) move.l (a7)+,d1 jsr -36(a6) rts dname dc.b 'PDX_' nr dc.b '00',0 doslib dc.b 'dos.library',0 even C098 MOVE.L A0,$71400 JSR C342(PC) TST.W $71414 BNE.S C114 RTS lbW000112 dc.w $18A0 C114 moveq #-1,d0 rts C126 moveq #-1,d0 rts C27A cmp.l #$be60cba,$7c050 beq.w exit1 MOVEQ #0,D1 MOVEQ #0,D2 JSR C3DE(PC) BMI.L C126 LEA $7208E,A1 LEA $7C000,A2 MOVE.W lbW000112(PC),D0 C296 LSR.W #1,D0 SUBQ.W #1,D0 MOVE.W #$5555,D1 C29E MOVE.W (A1)+,D5 AND.W D1,D5 MOVE.W (A1)+,D6 AND.W D1,D6 ADD.W D6,D6 OR.W D5,D6 MOVE.W D6,(A2)+ DBRA D0,C29E exit1 RTS C2B2 MOVE.W (A1)+,D5 ANDI.W #$5555,D5 MOVE.W (A1)+,D6 ANDI.W #$5555,D6 ADD.W D6,D6 OR.W D5,D6 RTS C2C4 MOVE.W lbW000112(PC),D0 MOVEQ #0,D1 C2CA ADD.W (A1)+,D1 SUBQ.W #1,D0 BNE.S C2CA RTS C2D2 LEA $72000,A1 CLR.W $71414 CMPI.W #$448A,(A1)+ BNE.S C2F2 ADDQ.L #4,A1 JSR C2B2(PC) ADDQ.L #4,A1 BSR.S C2C4 CMP.W D1,D6 BEQ.S C2FA C2F2 MOVE.W #1,$71414 C2FA RTS C2FC MOVE.B #$7F,$BFD100 MOVE.B #$77,$BFD100 RTS C30E MOVEQ #3,D0 MOVEQ #$7F,D1 MOVEQ #-1,D2 MOVE.B D1,$BFD100 BCLR D0,D1 MOVE.B D1,$BFD100 MOVE.B D2,$BFD100 MOVE.B D2,D1 BCLR D0,D1 MOVE.B D1,$BFD100 MOVE.B D2,$BFD100 MOVE.W #$FFFF,D2 C33C DBRA D2,C33C RTS C342 LEA $7C000,A1 ASL.W #3,D0 ADDA.W D0,A1 MOVE.W 0(A1),$7140C MOVE.W 2(A1),$7140E BNE.S C368 MOVE.W #2,$71414 RTS C368 MOVE.W 4(A1),D0 MOVE.W D0,$71410 C372 MOVEQ #0,D2 MOVE.B $71410,D1 BPL.S C382 ANDI.B #$7F,D1 ADDQ.W #1,D2 C382 JSR C3DE(PC) BNE.S C3DC LEA $72000,A1 MOVE.W $7140C,D0 ADD.W D0,D0 ADDI.W #14,D0 ADDA.W D0,A1 MOVE.W $7140E,-(SP) JSR C2B2(PC) MOVE.W D6,$7140C JSR C2B2(PC) MOVE.W D6,$7140E JSR C2B2(PC) MOVE.W D6,$71410 MOVE.W (SP)+,D0 SUBQ.W #6,D0 MOVEA.L $71400,A2 JSR C296(PC) MOVE.L A2,$71400 TST.W $7140E BNE.S C372 C3DC RTS C3DE CLR.W $71414 MOVE.W #4,$71412 JSR C40E(PC) C3F0 JSR C4BC(PC) BMI.S C3FC JSR C2D2(PC) BEQ.S C40C C3FC SUBQ.W #1,$71412 BPL.S C3F0 MOVE.W #1,$71414 C40C RTS C40E MOVE.B $71408,D3 MOVE.B D1,$71408 SUB.B D1,D3 BEQ.S C432 BCS.S C42A C420 BSR.S C452 SUBQ.B #1,D3 BNE.S C420 BSR.S C436 RTS C42A NEG.W D3 C42C BSR.S C472 SUBQ.B #1,D3 BNE.S C42C C432 BSR.S C436 RTS C436 TST.B D2 BNE.S C446 BCLR #2,$BFD100 BSR.S C492 RTS C446 BSET #2,$BFD100 BSR.S C492 RTS C452 BSET #1,$BFD100 BCLR #0,$BFD100 NOP NOP BSET #0,$BFD100 BSR.S C492 RTS C472 BCLR #1,$BFD100 BCLR #0,$BFD100 NOP NOP BSET #0,$BFD100 BSR.S C492 RTS C492 MOVE.B #0,$BFD400 MOVE.B #10,$BFD500 MOVE.B #$19,$BFDE00 TST.B $BFDD00 C4B0 BTST #0,$BFDD00 BEQ.S C4B0 RTS C4BC BTST #5,$BFE001 BNE.S C4BC LEA $DFF000,A0 MOVE.W #$8010,$96(A0) MOVE.W #$1002,$9C(A0) MOVE.W #$7700,$9E(A0) MOVE.W #$9500,$9E(A0) MOVE.W #$448A,$7E(A0) MOVE.L #$72000,$20(A0) MOVE.W #$800A,D0 ADD.W lbW000112(PC),D0 MOVE.W D0,$24(A0) MOVE.W D0,$24(A0) MOVE.W #$1002,$9C(A0) MOVEQ #3,D6 C50A BTST #1,$1F(A0) BNE.S C520 BTST #4,$BFDD00 BEQ.S C50A DBRA D6,C50A C520 CLR.W $24(A0) TST.W D6 RTS unpack MOVE.L (A1)+,D0 C00A SUBI.L #$1010101,D0 C014 CMPI.L #$6F60626A,D0 BNE.L C1DA C022 LEA (A1),A3 LEA (A1),A4 C02A ADDA.W 4(A1),A3 C032 ADDA.L 6(A1),A4 C03A MOVE.L (A1),D0 MOVE.W 10(A1),D1 C044 MOVEQ #$10,D2 MOVEQ #0,D3 MOVEQ #0,D6 C04E MOVE.W (A3)+,D6 MOVEQ #$10,D7 C052 MOVEQ #3,D4 MOVE.L D6,D5 C05A SUB.W D4,D7 BPL.S C07A C062 ADD.W D7,D4 ASL.L D4,D5 C06A MOVE.W (A3)+,D5 MOVE.W D7,D4 C072 ADD.W D2,D7 NEG.W D4 C07A ASL.L D4,D5 MOVE.W D5,D6 C082 SWAP D5 CMPI.W #7,D5 C08C BNE.S C0D4 MOVEQ #0,D3 C090 ADD.W D5,D3 C096 MOVEQ #4,D4 MOVE.L D6,D5 SUB.W D4,D7 C0A0 BPL.S C0BA C0A6 ADD.W D7,D4 ASL.L D4,D5 MOVE.W (A3)+,D5 C0B0 MOVE.W D7,D4 ADD.W D2,D7 C0B8 NEG.W D4 C0BA ASL.L D4,D5 C0C0 MOVE.W D5,D6 SWAP D5 C0C8 CMPI.W #15,D5 BEQ.S C090 C0D2 ADD.W D3,D5 C0D4 MOVE.W D5,D3 C0DA SUBQ.W #1,D5 BMI.S C0FA C0E2 MOVE.B (A4)+,(A2)+ DBRA D5,C0E2 C0EC SUB.L D3,D0 C0F2 BMI.L C1EC BEQ.L C1D8 C0FA MOVE.W D1,D4 MOVE.L D6,D5 SUB.W D4,D7 C104 BPL.S C11E ADD.W D7,D4 C10C ASL.L D4,D5 MOVE.W (A3)+,D5 MOVE.W D7,D4 ADD.W D2,D7 C11C NEG.W D4 C11E ASL.L D4,D5 MOVE.W D5,D6 SWAP D5 MOVEA.L A2,A5 SUBA.W D5,A5 C130 MOVEQ #5,D4 MOVE.L D6,D5 C138 SUB.W D4,D7 BPL.S C154 C140 ADD.W D7,D4 ASL.L D4,D5 MOVE.W (A3)+,D5 MOVE.W D7,D4 C14C ADD.W D2,D7 NEG.W D4 C154 ASL.L D4,D5 MOVE.W D5,D6 C15C SWAP D5 CMPI.W #$1F,D5 BNE.S C1B2 C168 MOVEQ #0,D3 C16A ADD.W D5,D3 C170 MOVEQ #6,D4 MOVE.L D6,D5 C178 SUB.W D4,D7 BPL.S C198 C180 ADD.W D7,D4 ASL.L D4,D5 C188 MOVE.W (A3)+,D5 MOVE.W D7,D4 C190 ADD.W D2,D7 NEG.W D4 C198 ASL.L D4,D5 MOVE.W D5,D6 C1A0 SWAP D5 CMPI.W #$3F,D5 C1AA BEQ.S C16A ADD.W D3,D5 C1B2 MOVE.B 12(A1,D5.W),D5 MOVE.W D5,D3 SUBQ.W #1,D5 BMI.S C1CA C1C0 MOVE.B (A5)+,(A2)+ DBRA D5,C1C0 C1CA SUB.L D3,D0 BMI.L C1EC BNE.L C052 C1D8 RTS C1DA rts C1EC rts