dest= $40000 j lea dest,a4 lea source,a3 cmp.l #"S300",(a3) bne error lea $dff180,a2 lea 16(a3),a5 move.l a4,a0 add.l 8(a3),a0 add.l 12(a3),a5 moveq #127,d3 moveq #0,d4 moveq #3,d5 moveq #7,d6 move.b 7(a3),d4 lea stc14(pc),a1 move.l -(a5),d7 stc1 lsr.l #1,d7 bne.s stc2 move.l -(a5),d7 roxr.l #1,d7 stc2 bcc.s stc7 moveq #1,d2 stc3 moveq #2,d1 jsr (a1) add.l d0,d2 cmp d6,d0 beq.s stc3 stc4 moveq #7,d1 stc5 lsr.l #1,d7 bne.s stc6 move.l -(a5),d7 move d7,(a2) roxr.l #1,d7 stc6 roxr.b #1,d0 dbf d1,stc5 move.b d0,-(a0) subq.l #1,d2 bne.s stc4 bra.s stc13 stc7 moveq #1,d1 jsr (a1) moveq #0,d1 move.l d0,d2 move.b 4(a3,d0.w),d1 cmp d5,d0 bne.s stc11 lsr.l #1,d7 bne.s stc8 move.l -(a5),d7 roxr.l #1,d7 stc8 bcs.s stc10 stc9 moveq #6,d1 jsr (a1) add.l d0,d2 cmp d3,d0 beq.s stc9 move d4,d1 bra.s stc11 stc10 moveq #2,d1 jsr (a1) add.l d0,d2 cmp d6,d0 beq.s stc10 moveq #7,d1 stc11 addq.l #1,d2 jsr (a1) stc12 move.b (a0,d0.w),-(a0) subq.l #1,d2 bpl.s stc12 stc13 cmp.l a0,a4 blo.s stc1 error rts stc14 moveq #0,d0 stc15 lsr.l #1,d7 bne.s stc16 move.l -(a5),d7 move d7,(a2) roxr.l #1,d7 stc16 addx.l d0,d0 dbf d1,stc15 rts source ;incbin data