TEXT 
Begin:
  CLR.L     D0
  RTS 
L0000:
  LEA       L000B(PC),A0
  LEA       $FEFF00,A3
  LEA       238(A3),A1
  MOVEQ     #$18,D1 
  MOVEQ     #$A,D4
  MOVE      #$2700,SR 
  TST.B     (A1)
  TST.B     (A1)
  TST.B     (A1)
  RTS 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  BRA       L0005 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
  DC.B      $FF,$FF 
  MOVE      SR,-(A7)
  MOVEM.L   A1-A3/D1-D5,-(A7) 
  BSR       L0000 
  LEA       (A3),A1 
  LEA       96(A3),A2 
L0001:
  MOVEQ     #0,D5 
  MOVE.L    38(A7),D3 
  MOVE.B    (A0)+,D5
  BNE.S     L0002 
  ASL.B     #1,D3 
L0002:
  LSR.L     D5,D3 
  AND.B     5(A0),D3
  EXT.W     D3
  EXT.L     D3
  DIVU      D4,D3 
  BSR.S     L0003 
  SWAP      D3
  BSR.S     L0003 
  TST.W     D1
  BPL.S     L0001 
  BRA.S     L0008 
L0003:
  CMP.W     D4,D1 
  BNE.S     L0004 
  OR.B      #8,D3 
L0004:
  LSL.B     #1,D3 
  MOVE.B    0(A1,D1.W),D2 
  MOVE.B    0(A2,D1.W),D2 
  MOVE.B    32(A3,D3.W),D3
  BRA.S     L000A 
L0005:
  MOVE      SR,-(A7)
  MOVEM.L   A1-A3/D1-D5,-(A7) 
  BSR       L0000 
  LEA       128(A3),A1
  LEA       224(A3),A2
  MOVEQ     #0,D0 
L0006:
  BSR.S     L0009 
  MULU      D4,D2 
  MOVEQ     #0,D3 
  MOVE.B    D2,D3 
  BSR.S     L0009 
  ADD.B     D3,D2 
  MOVE.B    (A0)+,D3
  BNE.S     L0007 
  LSR.B     #1,D2 
L0007:
  LSL.L     D3,D2 
  OR.L      D2,D0 
  TST.W     D1
  BPL.S     L0006 
L0008:
  TST.B     $FE0000 
  MOVEM.L   (A7)+,A1-A3/D1-D5 
  RTE 
L0009:
  MOVEQ     #0,D2 
  MOVE.B    0(A1,D1.W),D2 
  MOVE.B    0(A2,D1.W),D2 
  MOVE.B    192(A3),D2
  MOVE.B    192(A3),D2
  NOT.B     D2
  CMP.W     D4,D1 
  BNE.S     L000A 
  AND.B     #7,D2 
L000A:
  MOVE.B    30(A1),D5 
  MOVE.B    238(A3),D5
  SUBQ.W    #2,D1 
  CMPI.W    #$C,D1
  BEQ.S     L000A 
  RTS 
L000B:
  DC.B      $19,$15,$10,$0B,$05,$00,$7F,$0F 
  DC.B      $1F,$1F,$3F,$1F 
ZUEND: END