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