Begin:
      MOVEM.L A0-A6/D0-D7,-(A7) 
      BSR.S   L0005 
      CMPI.L  #$49434521,D0 
      BNE.S   L0004 
      BSR.S   L0005 
      LEA     -8(A0,D0.L),A5
      BSR.S   L0005 
      MOVE.L  D0,(A7) 
      MOVEA.L A1,A4 
      MOVEA.L A1,A6 
      ADDA.L  D0,A6 
      MOVEA.L A6,A3 
      MOVE.B  -(A5),D7
      BSR.S   L0007 
      BSR.S   L000B 
      BCC.S   L0004 
      MOVE.W  #$F9F,D1
      BSR.S   L000B 
      BCC.S   L0000 
      MOVEQ   #$F,D0
      BSR.S   L000D 
L0000:MOVE.W  D1,D7 
L0001:MOVEQ   #3,D6 
L0002:MOVE.W  -(A3),D4
      MOVEQ   #3,D5 
L0003:ADD.W   D4,D4 
      ADDX.W  D0,D0 
      ADD.W   D4,D4 
      ADDX.W  D1,D1 
      ADD.W   D4,D4 
      ADDX.W  D2,D2 
      ADD.W   D4,D4 
      ADDX.W  D3,D3 
      DBF     D5,L0003
      DBF     D6,L0002
      MOVEM.W D0-D3,(A3)
      DBF     D7,L0001
L0004:MOVEM.L (A7)+,A0-A6/D0-D7 
      RTS 
L0005:MOVEQ   #3,D1 
L0006:LSL.L   #8,D0 
      MOVE.B  (A0)+,D0
      DBF     D1,L0006
      RTS 
L0007:BSR.S   L000B 
      BCC.S   L000A 
      MOVEQ   #0,D1 
      BSR.S   L000B 
      BCC.S   L0009 
      LEA     L0018(PC),A1
      MOVEQ   #4,D3 
L0008:MOVE.L  -(A1),D0
      BSR.S   L000D 
      SWAP    D0
      CMP.W   D0,D1 
      DBNE    D3,L0008
      ADD.L   20(A1),D1 
L0009:MOVE.B  -(A5),-(A6) 
      DBF     D1,L0009
L000A:CMPA.L  A4,A6 
      BGT.S   L0010 
      RTS 
L000B:ADD.B   D7,D7 
      BNE.S   L000C 
      MOVE.B  -(A5),D7
      ADDX.B  D7,D7 
L000C:RTS 
L000D:MOVEQ   #0,D1 
L000E:ADD.B   D7,D7 
      BNE.S   L000F 
      MOVE.B  -(A5),D7
      ADDX.B  D7,D7 
L000F:ADDX.W  D1,D1 
      DBF     D0,L000E
      RTS 
L0010:LEA     L0019(PC),A1
      MOVEQ   #3,D2 
L0011:BSR.S   L000B 
      DBCC    D2,L0011
      MOVEQ   #0,D4 
      MOVEQ   #0,D1 
      MOVE.B  1(A1,D2.W),D0 
      EXT.W   D0
      BMI.S   L0012 
      BSR.S   L000D 
L0012:MOVE.B  6(A1,D2.W),D4 
      ADD.W   D1,D4 
      BEQ.S   L0014 
      LEA     L001A(PC),A1
      MOVEQ   #1,D2 
L0013:BSR.S   L000B 
      DBCC    D2,L0013
      MOVEQ   #0,D1 
      MOVE.B  1(A1,D2.W),D0 
      EXT.W   D0
      BSR.S   L000D 
      ADD.W   D2,D2 
      ADD.W   6(A1,D2.W),D1 
      BPL.S   L0016 
      SUB.W   D4,D1 
      BRA.S   L0016 
L0014:MOVEQ   #0,D1 
      MOVEQ   #5,D0 
      MOVEQ   #-1,D2
      BSR.S   L000B 
      BCC.S   L0015 
      MOVEQ   #8,D0 
      MOVEQ   #$3F,D2 
L0015:BSR.S   L000D 
      ADD.W   D2,D1 
L0016:LEA     2(A6,D4.W),A1 
      ADDA.W  D1,A1 
      MOVE.B  -(A1),-(A6) 
L0017:MOVE.B  -(A1),-(A6) 
      DBF     D4,L0017
      BRA     L0007 
      DC.B   $7F,$FF,$00,$0E,$00,$FF,$00,$07
      DC.B   $00,$07,$00,$02,$00,$03,$00,$01
      DC.B   $00,$03,$00,$01
L0018:DC.B   $00,$00,$01,$0D,$00,$00,$00,$0E
      DC.B   $00,$00,$00,$07,$00,$00,$00,$04
      DC.B   $00,$00,$00,$01
L0019:DC.B   $09,$01,$00,$FF,$FF,$08,$04,$02
      DC.B   $01,$00
L001A:DC.B   $0B,$04,$07,$00,$01,$1F,$FF,$FF
      DC.B   $00,$1F
