cnop 0,4 CopySBitMap: add.w #-12,sp movem.l d2-d7/a2-a3/a5-a6,-(sp) move.l a0,(48,sp) move.l a6,(44,sp) move.l (8,a0),a5 tst.l (32,a0) beq .L1 btst #2,(31,a0) beq .L1 tst.l a5 beq .L1 moveq #63,d6 not.b d6 moveq #0,d7 not.b d7 lea (0).w,a2 .L7: tst.l (8,a5) bne .L6 move.w (16,a5),d2 ext.l d2 move.l d2,a1 move.l (48,sp),a0 sub.w (16,a0),a1 move.l a1,d0 move.w (18,a5),d3 ext.l d3 move.l d3,a3 sub.w (18,a0),a3 move.l a3,d1 move.l (12,a0),d5 move.w (20,a5),d4 ext.l d4 sub.l d2,d4 move.w (22,a5),a0 move.l a0,(40,sp) sub.l d3,(40,sp) move.l (44,sp),a6 move.l (48,sp),a1 move.l (32,a1),a0 move.l d0,a3 sub.w (44,a1),a3 move.l a3,d0 move.l d1,a3 sub.w (46,a1),a3 move.l a3,d1 move.l d5,a3 move.l (4,a3),a1 addq.l #1,d4 move.l (40,sp),d5 addq.l #1,d5 ;#APP jsr (-$1e,a6) ;#NO_APP .L6: move.l (a5),a5 tst.l a5 bne .L7 even .L1: movem.l (sp)+,d2-d7/a2-a3/a5-a6 add.w #12,sp rts