 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

