
*---------------------------------------------------------*
*     Disassembled with The Flaming Bird Disassembler     *
*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
*---------------------------------------------------------*

         REL
	 mx	%00

	 use	MAIN2.X.S
	 use	MAIN2.E.S

L070000  JSL   L070AD8
         JSL   L070009
         RTL

L070009  PHP
L07000A  REP   #$20
         SEP   #$20
         LDA   #$20
         STA   L024328
         JSL   L120BFD
         STZ   L02444C
         STZ   L024484
         STZ   L024486
         STZ   L024488
         STZ   L02448A
         REP   #$20
         LDA   #$4040
         STA   L02448C
         STA   L02448E
         SEP   #$20
         LDA   #$61
         STA   $05
         LDA   #$40
         STA   $04
         JSL   L1809AE
         REP   #$20
         LDA   $04
         PHA
         LDA   $00
         STA   $04
         PLA
         STA   $00
         LDA   $01
         AND   #$00FF
         CLC
         ADC   #L0206A8
         STA   $00
         SEP   #$20
         LDA   ($00)
         STA   $05
         STZ   $00
         LDA   $04
         STA   $01
         REP   #$20
         LDA   $00
         STA   L025A2E
         STA   L025A32
         STZ   L025A26
         STZ   L025A2A
         SEP   #$20
         LDA   $05
         STA   $01
         REP   #$20
         LDA   $00
         STA   L025A30
         STA   L025A34
         STZ   L025A28
         STZ   L025A2C
         SEP   #$20
         LDA   $04
         JSL   L070BCF
         REP   #$20
         LDA   $00
         STA   L025A16
         SEP   #$20
         LDA   $05
         SEC
         SBC   #$20
         JSL   L070BCF
         REP   #$20
         LDA   $00
         STA   L025A18
         SEP   #$20
         LDA   #$FF
         SEC
         SBC   $04
         JSL   L070BCF
         REP   #$20
         LDA   $00
         STA   L025A1E
         SEP   #$20
         LDA   #$E7
         SEC
         SBC   $05
         JSL   L070BCF
         REP   #$20
         LDA   $00
         STA   L025A20
         SEP   #$20
         LDA   #$01
         STA   L024426
         REP   #$20
         LDA   #$0020
L0700D9  PHA
         LDA   L025A2E
         STA   $00
         LDA   L025A16
         STA   $04
         SEC
         LDA   $00
         SBC   $04
         STA   L025A2E
         LDA   L025A30
         STA   $00
         LDA   L025A18
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   L025A30
         LDA   L025A32
         STA   $00
         LDA   L025A1E
         STA   $04
         LDA   $00
         CLC
         ADC   $04
         STA   L025A32
         LDA   L025A34
         STA   $00
         LDA   L025A20
         STA   $04
         LDA   $00
         CLC
         ADC   $04
         STA   L025A34
         LDA   #$0005
         STA   L023FEC
         LDA   L025A2E
         STA   L025A1A
         LDA   L025A32
         STA   L025A22
         LDA   L025A30
         STA   L025A1C
         LDA   L025A34
         STA   L025A24
         JSL   L070BDD
         REP   #$20
         LDA   L025A26
         BEQ   L07016D
         LDA   #$0000
         STA   L023FEC
         LDA   L025A26
         STA   L025A1A
         LDA   L025A2A
         STA   L025A22
         LDA   L025A28
         STA   L025A1C
         LDA   L025A2C
         STA   L025A24
         JSL   L070BDD
L07016D  SEP   #$20
         LDA   L025A2F
         INC
         STA   $00
         CLC
         ADC   L025A17
         STA   $04
         LDA   L025A31
         INC
         STA   $01
         LDA   L025A35
         DEC
         STA   $05
         LDA   #$00
         STA   L023362
         STA   L023363
         JSL   L0F2798
         LDA   L025A33
         DEC
         STA   $04
         SEC
         SBC   L025A1F
         STA   $00
         LDA   L025A31
         INC
         STA   $01
         LDA   L025A35
         DEC
         STA   $05
         LDA   #$00
         STA   L023362
         STA   L023363
         JSL   L0F2798
         LDA   L025A2F
         INC
         STA   $00
         LDA   L025A33
         DEC
         STA   $04
         LDA   L025A31
         INC
         STA   $01
         CLC
         ADC   L025A19
         STA   $05
         LDA   #$00
         STA   L023362
         STA   L023363
         JSL   L0F2798
         LDA   L025A2F
         INC
         STA   $00
         LDA   L025A33
         DEC
         STA   $04
         LDA   L025A35
         DEC
         STA   $05
         SEC
         SBC   L025A21
         STA   $01
         LDA   #$00
         STA   L023362
         STA   L023363
         JSL   L0F2798
         REP   #$20
         LDA   L025A2E
         STA   L025A26
         LDA   L025A32
         STA   L025A2A
         LDA   L025A30
         STA   L025A28
         LDA   L025A34
         STA   L025A2C
         LDA   #$0001
         STA   L023C89
         JSL   L120000
         PLA
         DEC
         BEQ   L07022A
         JMP   L0700D9

L07022A  SEP   #$20
         LDA   L024303
         CMP   #$03
         BCC   L070238
         LDA   L024309
         BNE   L07023A
L070238  LDA   #$FF
L07023A  STA   L025A3A
         REP   #$20
         LDA   #L0242FF
         STA   $70
         SEP   #$20
         LDA   ($70)
         LSR
         ROR   $5D
         LSR
         ROR   $5D
         LSR
         ROR   $5D
         LSR
         ROR   $5D
         STA   ($70)
         LDA   $5D
         LDA   L0242FF
         AND   #$0F
         STA   L025A3B
         LDA   L024303
         CMP   #$03
         BCC   L07026C
         LDA   L02430B
         BNE   L07026E
L07026C  LDA   #$FF
L07026E  STA   L025A3C
         REP   #$20
         LDA   #L024301
         STA   $70
         SEP   #$20
         LDA   ($70)
         LSR
         ROR   $5D
         LSR
         ROR   $5D
         LSR
         ROR   $5D
         LSR
         ROR   $5D
         STA   ($70)
         LDA   $5D
         LDA   L024301
         AND   #$0F
         STA   L025A3D
         LDA   L0242FD
         CMP   #$14
         BCC   L0702AE
         LDA   #$FF
         STA   L0242FF
         STA   L024301
         REP   #$20
         LDA   #$0F0F
         STA   L025A3A
         STA   L025A3C
L0702AE  SEP   #$20
         LDA   #$00
         STA   L024309
         STA   L02430B
         XBA
         LDA   L02431B
         ASL
         REP   #$20
         CLC
         ADC   #L0259F0
         STA   $6C
         LDA   #^L0259F0
         STA   $6E
         LDA   [$6C]
         STA   $04
         JSL   L18071A
         SEP   #$20
         LDA   L0242FD
         CMP   #$03
         BEQ   L0702F2
         CMP   #$08
         BEQ   L0702F2
         CMP   #$0C
         BEQ   L0702F2
         CMP   #$10
         BEQ   L0702F2
         CMP   #$14
         BEQ   L0702F2
         LDA   #$03
         STA   $60
         JMP   L070314

L0702F2  LDA   L024321
         BNE   L070301
         INC
         STA   L024321
         LDA   #$03
         JSL   L18060E
L070301  LDA   L024319
         BNE   L070310
         INC
         STA   L024319
         LDA   #$04
         JSL   L18060E
L070310  LDA   #$06
         STA   $60
L070314  LDA   L02431B
         CMP   #$06
         BCS   L070330
         INC
         REP   #$20
         AND   #$00FF
         PHA
         JSL   L1804EC
         PLA
         SEP   #$20
         STA   L02431B
         DEC   $60
         BNE   L070314
L070330  LDA   L024318
         BEQ   L07033C
         LDA   #$FF
         STA   $61
         JMP   L07035B

L07033C  LDA   L024317
         ASL
         STA   $60
         ASL
         ASL
         CLC
         ADC   $60
         STA   $60
         LDA   L024316
         CLC
         ADC   $60
         STZ   $61
L070351  SEC
         SBC   #$05
         BCC   L07035B
         INC   $61
         JMP   L070351

L07035B  LDA   L02430F
         STA   $68
         LDA   L024311
         CLC
         ADC   $68
         STA   $68
         SEC
         SBC   $61
         BCS   L0703C9
         EOR   #$FF
         INC
         STA   $61
L070372  LDA   L02430F
         STA   $68
         LDA   L024311
         STA   $69
         CLC
         ADC   $68
         CMP   #$08
         BCS   L0703C9
         LDA   $68
         CMP   $69
         BEQ   L0703A1
         BCS   L070396
         JSL   L180C51
         CMP   #$B4
         BCC   L0703A9
         JMP   L0703B3

L070396  JSL   L180C51
         CMP   #$B4
         BCC   L0703B3
         JMP   L0703A9

L0703A1  JSL   L180C51
         AND   #$01
         BNE   L0703B3
L0703A9  REP   #$20
         LDA   #L02430F
         STA   $6C
         JMP   L0703BA

L0703B3  REP   #$20
         LDA   #L024311
         STA   $6C
L0703BA  SEP   #$20
         LDA   ($6C)
         CMP   #$04
         BCS   L070372
         INC
         STA   ($6C)
         DEC   $61
         BNE   L070372
L0703C9  JSL   L07070B
         REP   #$20
         LDA   #$FFFF
         STA   L023D85
         LDA   #L0201B9
         STA   $00
         LDA   #^L0201B9
         STA   $02
         LDA   #$2AC6
         STA   $04
         JSL   L1806EB
         LDA   #L0201C7
         STA   $00
         LDA   #^L0201C7
         STA   $02
         LDA   #$3A42
         STA   $04
         JSL   L1806EB
         LDA   #L0201D4
         STA   $00
         LDA   #^L0201D4
         STA   $02
         LDA   #$3BCA
         STA   $04
         JSL   L1806EB
         SEP   #$20
         LDA   L02430F
         INC
         STA   $61
L070416  LDA   $61
         PHA
         LDA   $61
         DEC
         REP   #$20
         PHA
         PHA
         LDA   L025A3A
         STA   $64
         PLA
         SEP   #$20
         CMP   $64
         BEQ   L070430
         CMP   $65
         BNE   L070430
L070430  REP   #$20
         LDA   #$FFFF
         STA   L02437A
         PLA
         SEP   #$20
         JSL   L070C2B
         PLA
         DEC
         STA   $61
         BNE   L070416
         LDA   L024311
         INC
         STA   $61
L07044B  PHA
         LDA   $61
         DEC
         REP   #$20
         PHA
         PHA
         LDA   L025A3C
         STA   $64
         PLA
         SEP   #$20
         CMP   $64
         BEQ   L070463
         CMP   $65
         BNE   L070463
L070463  REP   #$20
         LDA   #$FFFF
         STA   L02437A
         PLA
         SEP   #$20
         JSL   L070C8F
         PLA
         DEC
         STA   $61
         BNE   L07044B
         REP   #$20
         LDA   #$000A
         STAL  L023E18
         LDA   #$FFFF
         STA   L02437A
         SEP   #$20
         LDA   #$00
         JSL   L070C2B
         LDA   #$00
         JSL   L070CEB
         LDA   #$00
         JSL   L070C8F
         LDA   #$00
         JSL   L070DCD
         LDA   #$01
         STA   L024328
         JSL   L070EAB
L0704AA  REP   #$20
         LDAL  L023E20
         BEQ   L0704CF
         LDA   #$0000
         STAL  L023E20
         LDAL  L023E18
         DEC
         STAL  L023E18
         BNE   L0704CF
         LDA   #$000A
         STAL  L023E18
         JSL   L180D44
L0704CF  LDA   #$FFFF
         STA   L02437A
         SEP   #$20
         LDA   L024309
         JSL   L070C2B
         JSL   L072A47
         LDA   L024498
         BMI   L070555
         JSL   L070EBC
         STA   $68
         REP   #$20
         LDA   L025A3A
         STA   $64
         SEP   #$20
         LDA   $68
         PHP
         LDA   L024309
         PLP
         BEQ   L070527
         BMI   L07050A
         DEC
         BPL   L07051A
         LDA   L02430F
         JMP   L07051A

L07050A  INC
         STA   $60
         LDA   L02430F
         CMP   $60
         PHP
         LDA   $60
         PLP
         BCS   L07051A
         LDA   #$00
L07051A  STA   L024309
         PHA
         JSL   L290EAB
         PLA
         JSL   L070CEB
L070527  REP   #$20
         LDA   L0201EF
         INC
         AND   #$0003
         STA   L0201EF
         ASL
         TAX
         LDA   L02437C,X
         STA   L02437A
         SEP   #$20
         LDA   L024309
         JSL   L070C2B
         REP   #$20
         LDA   #$0014
         STA   L023C89
         JSL   L120000
         SEP   #$20
         JMP   L0704AA

L070555  REP   #$20
         LDA   #$5555
         STA   L02437A
         SEP   #$20
         LDA   L024309
         JSL   L070C2B
         LDA   #$06
         STA   L024328
         JSL   L070EAB
L07056F  REP   #$20
         LDAL  L023E20
         BEQ   L070594
         LDA   #$0000
         STAL  L023E20
         LDAL  L023E18
         DEC
         STAL  L023E18
         BNE   L070594
         LDA   #$000A
         STAL  L023E18
         JSL   L180D44
L070594  LDA   #$FFFF
         STA   L02437A
         SEP   #$20
         LDA   L02430B
         JSL   L070C8F
         JSL   L072A47
         LDA   L024498
         BMI   L07061D
         JSL   L070EBC
         STA   $68
         REP   #$20
         LDA   L025A3C
         STA   $64
         SEP   #$20
         LDA   $68
         PHP
         LDA   L02430B
         PLP
         BEQ   L0705EF
         BPL   L0705D2
         DEC
         BMI   L0705CC
         JMP   L0705E2

L0705CC  LDA   L024311
         JMP   L0705E2

L0705D2  INC
         STA   $60
         LDA   L024311
         CMP   $60
         PHP
         LDA   $60
         PLP
         BCS   L0705E2
         LDA   #$00
L0705E2  STA   L02430B
         PHA
         JSL   L290EAB
         PLA
         JSL   L070DCD
L0705EF  REP   #$20
         LDA   L0201F1
         INC
         AND   #$0003
         STA   L0201F1
         ASL
         TAX
         LDA   L02437C,X
         STA   L02437A
         SEP   #$20
         LDA   L02430B
         JSL   L070C8F
         REP   #$20
         LDA   #$001E
         STA   L023C89
         JSL   L120000
         SEP   #$20
         JMP   L07056F

L07061D  REP   #$20
         LDA   #$5555
         STA   L02437A
         SEP   #$20
         LDA   L02430B
         JSL   L070C8F
         LDA   #$0C
         STA   L024328
         REP   #$20
         JSL   L180D44
         LDA   #$0032
         STA   L023C89
         JSL   L120000
         SEP   #$20
         LDA   L025A3E
         BNE   L07064A
L07064A  REP   #$20
         LDA   #$0005
         STA   L023FEC
         LDA   #$2102
         STA   $00
         LDA   #$E6FE
         STA   $04
         JSL   L0F2798
         LDA   L025A2E
         STA   L025A1A
         LDA   L025A32
         STA   L025A22
         LDA   L025A30
         STA   L025A1C
         LDA   L025A34
         STA   L025A24
         LDA   #$0020
L07067B  PHA
         LDA   #$0000
         STA   L023FEC
         JSL   L070BDD
         REP   #$20
         LDA   L025A1A
         CLC
         ADC   L025A16
         STA   L025A1A
         LDA   L025A1C
         CLC
         ADC   L025A18
         STA   L025A1C
         LDA   L025A22
         SEC
         SBC   L025A1E
         STA   L025A22
         LDA   L025A24
         SEC
         SBC   L025A20
         STA   L025A24
         LDA   #$0005
         STA   L023FEC
         JSL   L070BDD
         REP   #$20
         LDA   #$0005
         STA   L023C89
         JSL   L120000
         REP   #$20
         PLA
         DEC
         BNE   L07067B
         SEP   #$20
         LDA   #$00
         STA   L024426
         REP   #$20
         LDA   #$0000
         STA   L023FEC
         JSL   L070BDD
         LDA   #$0005
         STA   L023FEC
         LDA   #$0A10
         STA   $00
         LDA   L024321
         BEQ   L0706F4
         LDA   #$070B
         STA   $00
L0706F4  LDA   $00
         STA   L024440
         LDA   #$0000
         SEP   #$20
         STA   L02444A
         LDA   #$00
         STA   L024420
         LDA   L0242D5
         PLP
         RTL

L07070B  REP   #$20
         LDA   #$000F
         STA   L023FEC
         LDA   #L025814
         STA   $00
         LDA   #^L025814
         STA   $02
         LDY   #$0000
         LDA   #$0011
         SEP   #$20
L070725  PHA
         LDA   [$00],Y
         INY
         CLC
         ADC   #$80
         STA   $04
         LDA   [$00],Y
         INY
         ADC   #$B4
         STA   $05
         REP   #$20
         LDA   $04
         PHA
         STA   L023FF0
L07073D  LDA   L023FF0
         STA   $04
         STA   L023FEE
         SEP   #$20
         LDA   [$00],Y
         INY
         CMP   #$80
         BEQ   L070772
         CLC
         ADC   #$80
         STA   $04
         LDA   [$00],Y
         INY
         ADC   #$B4
         STA   $05
         REP   #$20
         LDA   $04
         STA   L023FF0
         LDA   $00
         PHA
         PHY
         JSL   L0F2148
         REP   #$20
         PLY
         PLA
         STA   $00
         JMP   L07073D

L070772  REP   #$20
         PLA
         STA   $04
         STA   L023FF0
         LDA   $00
         PHA
         PHY
         JSL   L0F2148
         REP   #$20
         PLY
         PLA
         STA   $00
         SEP   #$20
         PLA
         DEC
         BNE   L070725
         REP   #$20
         LDA   #L025814
         STA   $00
         LDA   #^L025814
         STA   $02
         LDY   #$0000
         LDA   #$0012
L0707A0  PHA
         SEP   #$20
         LDA   [$00],Y
         INY
         STA   $08
         LDA   #$80
         SEC
         SBC   $08
         STA   $04
         LDA   [$00],Y
         INY
         CLC
         ADC   #$B4
         STA   $05
         REP   #$20
         LDA   $04
         PHA
         STA   L023FF0
L0707BF  LDA   L023FF0
         STA   $04
         STA   L023FEE
         SEP   #$20
         LDA   [$00],Y
         INY
         CMP   #$80
         BEQ   L0707F9
         STA   $08
         LDA   #$80
         SEC
         SBC   $08
         STA   $04
         LDA   [$00],Y
         INY
         CLC
         ADC   #$B4
         STA   $05
         REP   #$20
         LDA   $04
         STA   L023FF0
         LDA   $00
         PHA
         PHY
         JSL   L0F2148
         REP   #$20
         PLY
         PLA
         STA   $00
         JMP   L0707BF

L0707F9  REP   #$20
         PLA
         STA   $04
         STA   L023FF0
         LDA   $00
         PHA
         PHY
         JSL   L0F2148
         REP   #$20
         PLY
         PLA
         STA   $00
         PLA
         DEC
         BNE   L0707A0
         LDA   #L0258C5
         STA   $00
         LDA   #^L0258C5
         STA   $02
         LDY   #$0000
         LDA   #$0013
L070823  PHA
         SEP   #$20
         LDA   [$00],Y
         INY
         CLC
         ADC   #$80
         STA   $04
         LDA   [$00],Y
         INY
         CLC
         ADC   #$B4
         STA   $05
         REP   #$20
         LDA   $04
         PHA
         STA   L023FF0
L07083E  REP   #$20
         LDA   L023FF0
         STA   $04
         STA   L023FEE
         SEP   #$20
         LDA   [$00],Y
         INY
         CMP   #$80
         BEQ   L070876
         CLC
         ADC   #$80
         STA   $04
         LDA   [$00],Y
         INY
         CLC
         ADC   #$B4
         STA   $05
         REP   #$20
         LDA   $04
         STA   L023FF0
         LDA   $00
         PHA
         PHY
         JSL   L0F2148
         REP   #$20
         PLY
         PLA
         STA   $00
         JMP   L07083E

L070876  REP   #$20
         PLA
         STA   $04
         STA   L023FF0
         LDA   $00
         PHA
         PHY
         JSL   L0F2148
         REP   #$20
         PLY
         PLA
         STA   $00
         PLA
         DEC
         BNE   L070823
         RTL

L070891  ENT
         PHP
         SEP   #$20
L070894  LDA   L024443
         SEC
         SBC   #$08
         STA   L024443
         JSL   L072403
         LDA   #$28
         STA   L023C89
         JSL   L120000
         SEP   #$20
         LDA   L024443
         CMP   #$20
         BCS   L070894
         INC   L0242FD
         JSL   L1805C1
         JSL   L072347
         JSL   L070B63
         LDA   #$FF
         STA   L024426
         LDX   #$0000
         LDA   L024313
         INX
         CLC
         ADC   L024313,X
         INX
         ADC   L024313,X
         INX
         ADC   L024313,X
         INX
         ADC   L024313,X
         INX
         ADC   L024313,X
         CMP   #$36
         BCC   L0708E6
L0708E6  LDA   L0242FD
         CMP   #$06
         BNE   L0708F0
         JMP   L070A33

L0708F0  CMP   #$10
         BNE   L0708F7
         JMP   L070A75

L0708F7  REP   #$30
         LDA   #$0000
         STAL  $E12000
         LDA   #$00C8
         STA   $44
         LDX   #$2000
         LDY   #$2001
         LDA   #$007E
L07090E  PHB
         MVN   $E10000,$E10000
         PLB
         TYA
         CLC
         ADC   #$0020
         TAY
         LDX   #$2000
         LDA   #$007F
         DEC   $44
         BNE   L07090E
L070923  REP   #$20
         STZ   L024454
         LDX   #$0000
         LDY   #$001A
         CLC
L07092F  LDA   #$FFFF
         STA   L0256D3,X
         INX
         INX
         LDA   #$00F0
         STA   L0256D3,X
         INX
         INX
         LDA   #$4E30
         STA   L0256D3,X
         INX
         INX
         LDA   #L020B08
         STA   L0256D3,X
         INX
         INX
         LDA   #$0000
         STA   L0256D3,X
         INX
         INX
         DEY
         BNE   L07092F
         REP   #$30
         LDA   #$FF0D
         STA   $5C
         JSL   L2909FD
         LDA   #$0001
         STA   L0242D5
         LDA   #$0003
         JSL   L0729D4
         STZ   L024426
         LDA   #$002D
         STA   L023DEB
L07097B  REP   #$20
         LDA   L023E12
         BEQ   L070986
         JSL   L072418
L070986  LDA   L023E20
         CMP   #$0001
         BNE   L070994
         STZ   L023E20
         DEC   L023DEB
L070994  LDA   L023DEB
         BNE   L07097B
         LDA   #$0000
         JSL   L0729D4
         LDX   #$002B
L0709A3  PHX
         JSL   L070AD8
         LDA   #$0002
         STA   L023C89
         JSL   L120000
         PLX
         DEX
         BNE   L0709A3
         SEP   #$20
         LDA   #$8E
         STA   L024443
         LDA   #$40
         STA   L024442
         REP   #$20
L0709C4  JSL   L072403
         JSL   L070AD8
         JSL   L071A2F
         SEP   #$20
         LDA   L024443
         CMP   #$5A
         BCC   L0709EB
         DEC   L024443
         REP   #$20
         LDA   #$0002
         STA   L023C89
         JSL   L120000
         JMP   L0709C4

L0709EB  REP   #$20
         JSL   L070AD8
         LDA   #$01F4
         STA   L023C89
         JSL   L120000
         LDA   #$0000
         JSL   L290C4C
         LDA   L0242E7
         PHA
         JSL   L0E00B9
         PLA
         STA   L0242E7
         LDA   L0242FD
         CMP   #$000B
         BEQ   L070A54
         JSL   L070AD8
         LDA   L0242FD
         CMP   #$000A
         BEQ   L070A2D
         CMP   #$0014
         BEQ   L070A2D
         JSL   L070000
         PLP
         RTL

L070A2D  JSL   L070000
         PLP
         RTL

L070A33  REP   #$20
         JSL   L0F01AC
         JSL   L290C4C
         JSL   L1106C0
         JSL   L12031F
L070A45  JSL   L0F2F42
         JSL   L180E5F
         JSL   L180E09
         JMP   L070923

L070A54  REP   #$20
         JSL   L0F01AC
         JSL   L290C4C
         JSL   L110CA0
         JSL   L12031F
         JSL   L0F2F42
         JSL   L180E5F
         JSL   L180E09
         JMP   L07000A

L070A75  REP   #$20
         JSL   L0F01AC
         JSL   L290C4C
         JSL   L111460
         JSL   L12031F
         JSL   L0F2F42
         JSL   L180E5F
         JSL   L180E09
         JMP   L070923

         LDA   #$8DFF
         MVN   $C20000,$440000
         BMI   L070A45+2
         INC   $8559,X
         JMP   ($02A9)

         BRK   $85
         ROR   $16A9
         BIT   #$0485
         LDX   #$0015
L070AAF  PHX
         LDA   $04
         PHA
         LDA   [$6C]
         AND   #$00FF
         SEC
         SBC   #$0020
         JSL   L18069B
         LDA   #$0005
         STA   L023C89
         JSL   L120000
         PLA
         PLX
         CLC
         ADC   #$0004
         STA   $04
         INC   $6C
         DEX
         BNE   L070AAF
         PLP
L070AD8  PHP
         SEP   #$30
         JSL   L070BC0
         REP   #$20
         LDA   L025A40
         STA   $6C
         SEP   #$20
         LDA   L025A3E
         BEQ   L070B27
         LDA   #$18
         STA   $68
         SEP   #$20
         LDA   #$E1
         STAL  L070B11+1
         LDA   L025A42
         STAL  L070B11+2
         REP   #$30
         LDA   #$0040
         STA   $44
         LDX   L025A40
         LDY   #$3E28
L070B0D  LDA   #$002F
         PHB
L070B11  MVN   $000000,$000000
         PLB
         TYA
         CLC
         ADC   #$0070
         TAY
         DEC   $44
         BNE   L070B0D
         LDA   #$0079
         STA   L02444A
         PLP
         RTL

L070B27  SEP   #$20
         LDA   #$E1
         STAL  L070B47+1
         LDA   L025A42
         STAL  L070B47+2
         REP   #$30
         LDA   #$0040
         STA   $44
         LDX   L025A40
         LDY   #$3E18
L070B43  LDA   #$004F
         PHB
L070B47  MVN   $000000,$000000
         PLB
         TYA
         CLC
         ADC   #$0050
         TAY
         DEC   $44
         BNE   L070B43
         LDA   #$006D
         STA   L02444A
         LDA   #$006D
         STA   L02444A
         PLP
         RTL

L070B63  PHP
         REP   #$20
         LDA   L0242E7
         PHA
         PEA   ^L025A68
         PEA   L025A68
         JSL   L0E0000
         PLA
         STA   $70
         PLA
         STA   $72
         PLA
         STA   L0242E7
         LDY   #$0004
         LDA   [$70],Y
         STA   L025A40
         LDY   #$0006
         LDA   [$70],Y
         STA   L025A42
         SEP   #$20
         LDA   #$FF
         STA   L025A3E
         LDA   L0242FD
         CMP   #$03
         BEQ   L070BAC
         CMP   #$08
         BEQ   L070BAC
         CMP   #$0C
         BEQ   L070BAC
         CMP   #$10
         BEQ   L070BAC
         CMP   #$14
         BNE   L070BBE
L070BAC  STZ   L025A3E
         REP   #$20
         LDA   [$70]
         STA   L025A40
         LDY   #$0002
         LDA   [$70],Y
         STA   L025A42
L070BBE  PLP
         RTL

L070BC0  SEP   #$20
         LDA   L025A14
         INC
         STA   L025A14
         AND   #$0F
         LSR
         BEQ   L070BC0
         RTL

L070BCF  STZ   $01
         ASL
         ROL   $01
         ASL
         ROL   $01
         ASL
         ROL   $01
         STA   $00
         RTL

L070BDD  PHP
         SEP   #$20
         LDA   L025A1B
         STA   L023FEE
         LDA   L025A1D
         STA   L023FEF
         STA   L023FF1
         LDA   L025A23
         STA   L023FF0
         JSL   L0F2148
         LDA   L025A23
         STA   L023FEE
         LDA   L025A25
         STA   L023FEF
         JSL   L0F2148
         LDA   L025A1B
         STA   L023FF0
         LDA   L025A25
         STA   L023FF1
         JSL   L0F2148
         LDA   L025A1B
         STA   L023FEE
         LDA   L025A1D
         STA   L023FEF
         JSL   L0F2148
         PLP
         RTL

L070C2B  PHP
         SEP   #$20
         STA   $65
         ASL
         ASL
         STA   $64
         CLC
         ADC   $65
         ASL
         STA   $65
         LDA   #$2E
         SEC
         SBC   $65
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   #$4A80
         CLC
         ADC   $5C
         STA   $70
         LDA   #$00E1
         STA   $72
         LDA   $64
         AND   #$00FF
         ASL
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #L0C1A40
         STA   $6C
         LDA   #^L0C1A40
         STA   $6E
         LDA   #$0010
         STA   $44
L070C6C  LDX   #$0004
L070C6F  LDA   [$6C]
         AND   L02437A
         STA   [$70]
         INC   $6C
         INC   $6C
         INC   $70
         INC   $70
         DEX
         BNE   L070C6F
         LDA   $70
         CLC
         ADC   #$0098
         STA   $70
         DEC   $44
         BNE   L070C6C
         PLP
         RTL

L070C8F  PHP
         SEP   #$20
         XBA
         LDA   #$00
         XBA
         STA   $65
         ASL
         ASL
         STA   $64
         CLC
         ADC   $65
         ASL
         ADC   #$4A
         REP   #$20
         ADC   #$4A80
         STA   $70
         LDA   #$00E1
         STA   $72
         LDA   $64
         AND   #$00FF
         ASL
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #L0C1CC0
         STA   $6C
         LDA   #^L0C1CC0
         STA   $6E
         LDA   #$0010
         STA   $44
L070CC8  LDX   #$0004
L070CCB  LDA   [$6C]
         AND   L02437A
         STA   [$70]
         INC   $6C
         INC   $6C
         INC   $70
         INC   $70
         DEX
         BNE   L070CCB
         LDA   $70
         CLC
         ADC   #$0098
         STA   $70
         DEC   $44
         BNE   L070CC8
         PLP
         RTL

L070CEB  PHP
         REP   #$20
         AND   #$00FF
         PHA
         PHA
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         STA   $5C
         CLC
         ADC   #L0C1A40
         TAX
         LDY   #L0255D3
         LDA   #$007F
         PHB
         MVN   L0C1A40,L0255D3
         PLB
         PLA
         STA   $5C
         PHA
         LDA   #L0C0000
         CLC
         ADC   #$0060
         STA   $6C
         LDA   $5C
         AND   #$00FF
         TAX
         BEQ   L070D30
         LDA   #$02A0
         STA   $60
         CLC
L070D27  LDA   $6C
         ADC   $60
         STA   $6C
         DEX
         BNE   L070D27
L070D30  LDA   #$0000
         STAL  $E16B84
         LDA   #$001C
         STA   $44
         LDX   #$6B84
         LDY   #$6B85
         LDA   #$000A
L070D45  PHB
         MVN   $E10000,$E10000
         PLB
         TYA
         CLC
         ADC   #$0094
         TAY
         LDX   #$6B84
         LDA   #$000B
         DEC   $44
         BNE   L070D45
         SEP   #$20
         LDA   #$E1
         STAL  L070D78+1
         LDA   #^L0C0000
         STAL  L070D78+2
         REP   #$30
         LDA   #$001C
         STA   $44
         LDX   $6C
         LDY   #$6B84
L070D74  LDA   #$000B
         PHB
L070D78  MVN   $000000,$000000
         PLB
         TYA
         CLC
         ADC   #$0094
         TAY
         DEC   $44
         BNE   L070D74
         LDA   #$0000
         STAL  $E13B83
         LDA   #$0008
         STA   $44
         LDX   #$5706
         LDY   #$5707
         LDA   #$0034
L070D9B  PHB
         MVN   $E10000,$E10000
         PLB
         TYA
         CLC
         ADC   #$006A
         TAY
         LDX   #$5706
         LDA   #$0035
         DEC   $44
         BNE   L070D9B
         PLA
         STA   $5C
         ASL
         TAX
         LDA   L0259A2,X
         STA   $04
         LDA   L0259AC,X
         STA   $00
         LDA   #^L0259AC
         STA   $02
         JSL   L1806EB
         PLA
         STA   $5C
         PLP
         RTL

L070DCD  PHP
         REP   #$20
         AND   #$00FF
         PHA
         PHA
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         STA   $5C
         CLC
         ADC   #L0C1CC0
         TAX
         LDY   #L025653
         LDA   #$007F
         PHB
         MVN   L0C1CC0,L025653
         PLB
         PLA
         STA   $5C
         PHA
         LDA   #L0C0D20
         CLC
         ADC   #$0060
         STA   $6C
         LDA   $5C
         AND   #$00FF
         TAX
         BEQ   L070E12
         LDA   #$02A0
         STA   $60
         CLC
L070E09  LDA   $6C
         ADC   $60
         STA   $6C
         DEX
         BNE   L070E09
L070E12  LDA   #$0000
         STAL  $E16B90
         LDA   #$001C
         STA   $44
         LDX   #$6B90
         LDY   #$6B91
         LDA   #$000A
L070E27  PHB
         MVN   $E10000,$E10000
         PLB
         TYA
         CLC
         ADC   #$0094
         TAY
         LDX   #$6B90
         LDA   #$000B
         DEC   $44
         BNE   L070E27
         SEP   #$20
         LDA   #$E1
         STAL  L070E5A+1
         LDA   #^L0C0D20
         STAL  L070E5A+2
         REP   #$30
         LDA   #$001C
         STA   $44
         LDX   $6C
         LDY   #$6B90
L070E56  LDA   #$000B
         PHB
L070E5A  MVN   $000000,$000000
         PLB
         TYA
         CLC
         ADC   #$0094
         TAY
         DEC   $44
         BNE   L070E56
         LDA   #$0000
         STAL  $E15746
         LDA   #$0008
         STA   $44
         LDX   #$5746
         LDY   #$5747
         LDA   #$0036
L070E7D  PHB
         MVN   $E10000,$E10000
         PLB
         TYA
         CLC
         ADC   #$0068
         TAY
         LDX   #$5746
         LDA   #$0037
         DEC   $44
         BNE   L070E7D
         PLA
         ASL
         TAX
         LDA   #$574C
         STA   $04
         LDA   L0259AC,X
         STA   $00
         LDA   #^L0259AC
         STA   $02
         JSL   L1806EB
         PLA
         PLP
         RTL

L070EAB  ENT
         PHP
         REP   #$20
L070EAE  JSL   L072A47
         LDA   L024498
         BIT   #$0080
         BNE   L070EAE
         PLP
         RTL

L070EBC  PHP
         SEP   #$20
         JSL   L072A47
         LDA   L024498
         AND   #$03
         STA   $64
         LDA   L025A38
         CMP   $64
         BNE   L070EE5
         LDA   L025A36
         STA   $5C
         BEQ   L070EE5
         DEC   $5C
         LDA   $5C
         STA   L025A36
         BEQ   L070EE5
L070EE1  LDA   #$00
         PLP
         RTL

L070EE5  LDA   $64
         STA   L025A38
         LDA   $64
         BIT   #$02
         BEQ   L070EE1
         LDA   #$08
         STA   L025A36
         LDA   $64
         AND   #$01
         BNE   L070F00
         REP   #$20
         LDA   #$FFFF
L070F00  PLP
         RTL

L070F02  ENT
         PHP
         SEP   #$20
         LDA   L0243C8
         BEQ   L070F40
         CMP   #$FF
         BEQ   L070F40
         DEC
         BEQ   L070F2B
         STA   L0243C8
         CMP   #$02
         BCS   L070F40
         LDA   #$02
         STA   L0243C8
         DEC   L0243CA
         LDA   L0243CA
         BNE   L070F39
         STA   L0243C8
         JMP   L070F39

L070F2B  DEC   L0243CA
         BNE   L070F33
         STZ   L0243C8
L070F33  LDA   #$18
         SEC
         SBC   L0243CA
L070F39  LSR
         LSR
         LSR
         JSL   L0729D4
L070F40  JSL   L072A47
         REP   #$20
         LDA   L024442
         STA   L024378
         LDA   L024440
         STA   L024376
         STA   $60
         LDA   #$1F21
         STA   $64
         LDA   L024321
         BEQ   L070F63
         LDA   #$1517
         STA   $64
L070F63  SEP   #$20
         LDA   L024498
         BIT   #$02
         BEQ   L070F79
         AND   #$01
         ASL
         DEC
         CLC
         ADC   $60
         CMP   $64
         BCS   L070F79
         STA   $60
L070F79  LDA   L024498
         BIT   #$08
         BEQ   L070F8D
         AND   #$04
         LSR
         DEC
         CLC
         ADC   $61
         CMP   $65
         BCS   L070F8D
         STA   $61
L070F8D  REP   #$20
         LDA   $60
         STA   L024440
         SEP   #$20
         LDA   L024321
         BNE   L070FAE
         LDA   $60
         ASL
         CLC
         ADC   #$20
         STA   $60
         LDA   $61
         ASL
         CLC
         ADC   #$4F
         STA   $61
         JMP   L070FC4

L070FAE  LDA   $60
         ASL
         CLC
         ADC   $60
         CLC
         ADC   #$1F
         STA   $60
         LDA   $61
         ASL
         CLC
         ADC   $61
         CLC
         ADC   #$4F
         STA   $61
L070FC4  LDA   L024484
         BIT   #$04
         BEQ   L070FEC
         LDA   #$00
         XBA
         JSL   L180C51
         AND   #$03
         TAX
         LDA   L0243EC,X
         CLC
         ADC   $60
         STA   $60
         JSL   L180C51
         AND   #$03
         TAX
         LDA   L0243EC,X
         CLC
         ADC   $61
         STA   $61
L070FEC  LDX   $60
         STX   L024442
         LDA   L023E28
         CMP   #$FD
         BEQ   L070FFB
         JMP   L0710B5

L070FFB  JSL   L071926
         LDA   $5C
         BNE   L071006
         JMP   L0710B5

L071006  LDX   L024440
         STX   $60
         LDX   L024442
         STX   $64
         LDA   L024377
         STA   L024441
         LDA   L024379
         STA   L024443
         JSL   L071926
         LDA   $5C
         BNE   L071027
         JMP   L0710B5

L071027  LDA   $61
         STA   L024441
         LDA   $65
         STA   L024443
         LDA   L024376
         STA   L024440
         LDA   L024378
         STA   L024442
         JSL   L071926
         LDA   $5C
         BEQ   L0710B5
         LDA   L024377
         STA   L024441
         LDA   L024379
         STA   L024443
         JSL   L071926
         LDA   $5C
         BEQ   L0710B5
         LDA   L024377
         INC
         STA   L024441
         LDA   L024321
         PHP
         LDA   #$03
         PLP
         BNE   L07106A
         DEC
L07106A  STA   $5D
         LDA   L024379
         CLC
         ADC   $5D
         STA   L024443
         CMP   #$8C
         BCS   L07109F
         LDA   $60
         STA   L024440
         LDA   $64
         STA   L024442
         JSL   L071926
         LDA   $5C
         BEQ   L0710B5
         LDA   L024376
         STA   L024440
         LDA   L024378
         STA   L024442
         JSL   L071926
         LDA   $5C
         BEQ   L0710B5
L07109F  REP   #$20
         LDA   L024376
         STA   L024440
         LDA   L024378
         STA   L024442
         LDA   #$0001
         STA   L02436C
         PLP
         RTL

L0710B5  SEP   #$20
         LDA   #$00
         XBA
         LDA   L024441
         TAX
         LDA   L025DDA,X
         STA   L02436A
         LDA   L024498
         BIT   #$80
         BEQ   L0710CE
         JMP   L071205

L0710CE  LDA   #$01
         STA   L02449A
L0710D3  LDA   L024498
         BIT   #$40
         BEQ   L0710DF
         LDA   #$02
         STA   L02430D
L0710DF  JSL   L180000
         JSL   L0711C2
         JSL   L072403
         LDA   L024484
         BIT   #$03
         BNE   L0710F4
         PLP
         RTL

L0710F4  LDA   #$00
         XBA
         LDA   L024486
         INC
         AND   #$07
         STA   L024486
         BEQ   L071181
         TAX
         LDA   L02448D
         CLC
         ADC   L0243D4,X
         STA   L02448D
         STA   L02448F
         REP   #$20
         PHX
         TXA
         ASL
         TAX
         LDA   L0243DC,X
         STA   L023D85
         PLX
         SEP   #$20
         LDA   L024484
         STA   $68
         BIT   #$01
         PHP
         LDA   L0243CC,X
         STA   $5C
         PLP
         BEQ   L07113F
         STA   $69
         LDA   L024488
         PHP
         LDA   $69
         STA   $5C
         PLP
         BEQ   L07113F
         STA   L024488
L07113F  LDA   $68
         BIT   #$02
         BEQ   L071153
         LDA   $5C
         STA   $69
         LDA   L02448A
         BEQ   L071153
         LDA   $69
         STA   L02448A
L071153  LDA   L024488
         DEC
         STA   $5C
         BMI   L071168
         REP   #$20
         LDA   L02448C
         STA   $68
         SEP   #$20
         JSL   L0F042F
L071168  LDA   L02448A
         DEC
         STA   $5C
         BPL   L071172
         PLP
         RTL

L071172  REP   #$20
         LDA   L02448E
         STA   $68
         SEP   #$20
         JSL   L0F042F
         PLP
         RTL

L071181  LDA   L024442
         XBA
         LDA   L024443
         DEC
         DEC
         DEC
         STA   L02448D
         STA   L02448F
         XBA
         DEC
         DEC
         STA   L02448C
         CLC
         ADC   #$04
         STA   L02448E
         LDA   #$FF
         STA   L024488
         STA   L02448A
         PLP
         RTL

L0711A7  ENT
         JSL   L0711C2
         PHP
         SEP   #$20
         STZ   L024486
         STZ   L024488
         STZ   L02448A
         LDX   #$4040
         STX   L02448C
         STX   L02448E
         PLP
         RTL

L0711C2  PHP
         SEP   #$20
         LDX   #$0000
         STX   L023D85
         LDA   L024484
         AND   #$01
         STA   $5C
         BEQ   L0711E5
         LDA   L024488
         DEC
         STA   $5C
         BMI   L0711E5
         LDX   L02448C
         STX   $68
         JSL   L0F042F
L0711E5  LDA   L024484
         AND   #$02
         STA   $5C
         BNE   L0711F0
         PLP
         RTL

L0711F0  LDA   L02448A
         DEC
         STA   $5C
         BPL   L0711FA
         PLP
         RTL

L0711FA  LDX   L02448E
         STX   $68
         JSL   L0F042F
         PLP
         RTL

L071205  LDA   L02449E
         BEQ   L07120D
         JMP   L0710D3

L07120D  DEC   L02449A
         BEQ   L071215
         JMP   L0710D3

L071215  LDA   L024319
         EOR   #$01
         ASL
         INC
         STA   L02449A
         LDA   L0242FB
         BEQ   L071227
         ASL   L02449A
L071227  LDA   L024484
         AND   #$03
         BEQ   L07123C
         CMP   #$03
         BNE   L071235
         JMP   L0710D3

L071235  AND   #$01
         BNE   L0712B6
         JMP   L0712A8

L07123C  LDA   L024309
         CMP   #$03
         BNE   L07124A
         LDA   L02430B
         CMP   #$03
         BEQ   L0712C4
L07124A  LDA   L024309
         CMP   L02430B
         BNE   L071296
         ORA   #$00
         BNE   L071296
         LDY   #L025280
         STY   $6C
         LDY   #$0003
         STY   $64
L071260  LDA   ($6C)
         LDY   #$0008
         ORA   ($6C),Y
         BEQ   L071276
         REP   #$20
         INC   $6C
         SEP   #$20
         DEC   $64
         BNE   L071260
         JMP   L0710D3

L071276  LDA   #$01
         STA   L024374
         JSL   L290E7F
         JSL   L071307
         CLC
         REP   #$20
         LDA   $6C
         ADC   #$0008
         STA   $6C
         SEP   #$20
         JSL   L07152E
         JMP   L0710D3

L071296  STZ   L024374
         JSL   L290E7F
         JSL   L0712FE
         JSL   L071521
         JMP   L0710D3

L0712A8  STZ   L024374
         JSL   L290E7F
         JSL   L0712FE
         JMP   L0710D3

L0712B6  STZ   L024374
         JSL   L290E7F
         JSL   L071521
         JMP   L0710D3

L0712C4  LDA   #$00
         EOR   #$01
         STAL  L0712C4+1
         BNE   L0712E1
         LDA   L025280
         BEQ   L0712D6
         JMP   L0710D3

L0712D6  JSL   L290E50
         JSL   L0712FE
         JMP   L0710D3

L0712E1  LDA   L025288
         BEQ   L0712E9
         JMP   L0710D3

L0712E9  JSL   L290E50
         JSL   L071521
         JMP   L0710D3

L0712F4  DA    L071312
         DA    L07133C
         DA    L0713C5
         DA    L071457
         DA    L07147C
L0712FE  REP   #$20
         LDA   #L025280
         STA   $6C
         SEP   #$20
L071307  LDA   #$00
         XBA
         LDA   L024309
         ASL
         TAX
         JMP   (L0712F4,X)

L071312  LDX   #$0003
L071315  LDA   ($6C)
         BEQ   L071323
         REP   #$20
         INC   $6C
         SEP   #$20
         DEX
         BNE   L071315
         RTL

L071323  LDA   L024443
         CLC
         ADC   #$04
         STA   $61
         DEC
         STA   $65
         LDA   L024442
         DEC
         DEC
         STA   $60
         STA   $64
         JSL   L07172A
         RTL

L07133C  LDA   ($6C)
         LDY   #$0001
         ORA   ($6C),Y
         INY
         ORA   ($6C),Y
         INY
         ORA   ($6C),Y
         INY
         ORA   ($6C),Y
         BNE   L07135D
         LDX   #L025DFA
         STX   $70
         LDX   #$0005
         JSL   L07138A
         JMP   L071369

L07135D  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0005
         STA   $6C
         SEP   #$20
L071369  LDA   ($6C)
         LDY   #$0001
         ORA   ($6C),Y
         BEQ   L071373
         RTL

L071373  ASL   L024307
         LDX   #$0002
         REP   #$20
         LDA   #L025E0E
         STA   $70
         SEP   #$20
         JSL   L07138A
         LSR   L024307
         RTL

L07138A  PHX
         LDA   L024442
         CLC
         ADC   ($70)
         STA   $60
         LDY   #$0002
         CLC
         ADC   ($70),Y
         STA   $64
         LDA   L024443
         CLC
         LDY   #$0001
         ADC   ($70),Y
         STA   $61
         LDY   #$0003
         CLC
         ADC   ($70),Y
         STA   $65
         JSL   L07172A
         REP   #$20
         INC   $6C
         CLC
         LDA   $70
         ADC   #$0004
         STA   $70
         SEP   #$20
         PLX
         DEX
         BNE   L07138A
         RTL

L0713C5  LDX   #$0003
L0713C8  LDA   ($6C)
         LDY   #$0001
         ORA   ($6C),Y
         BEQ   L0713DD
         REP   #$20
         INC   $6C
         INC   $6C
         SEP   #$20
         DEX
         BNE   L0713C8
         RTL

L0713DD  TXA
         BIT   #$01
         BNE   L07141B
         LDA   L024442
         DEC
         DEC
         STA   $60
         STA   $64
         LDA   L024443
         CLC
         ADC   #$04
         STA   $61
         DEC
         STA   $65
         REP   #$20
         LDA   $60
         PHA
         SEP   #$20
         JSL   L07172A
         REP   #$20
         PLA
         STA   $60
         STA   $64
         SEP   #$20
         DEC   $65
         DEC   $65
         DEC   $64
         REP   #$20
         INC   $6C
         SEP   #$20
         JSL   L07172A
         RTL

L07141B  LDA   L024442
         DEC
         DEC
         STA   $60
         INC
         STA   $64
         LDA   L024443
         STA   $65
         CLC
         ADC   #$04
         STA   $61
         REP   #$20
         LDA   $60
         PHA
         SEP   #$20
         JSL   L07172A
         REP   #$20
         PLA
         STA   $60
         STA   $64
         SEP   #$20
         LDA   $65
         SEC
         SBC   #$04
         STA   $65
         DEC   $64
         REP   #$20
         INC   $6C
         SEP   #$20
         JSL   L07172A
         RTL

L071457  LDA   ($6C)
         BEQ   L07145C
         RTL

L07145C  LDA   L024442
         SEC
         SBC   #$02
         LDY   #$0020
         STA   ($6C),Y
         JSL   L0718F5
         RTL

L07146C  DA    L024E00
         DA    L024E60
         DA    L024EC0
         DA    L024F20
         DA    L024F80
         DA    L024FE0
         DA    L025040
         DA    L0250A0
L07147C  LDX   #$0005
         STX   $64
L071481  LDA   ($6C)
         BEQ   L071490
         REP   #$20
         INC   $6C
         SEP   #$20
         DEC   $64
         BNE   L071481
         RTL

L071490  LDA   L024370
         STA   $60
         LDX   #$0008
         STX   $64
L07149A  JSL   L0714AC
         LDA   $60
         INC
         AND   #$07
         STA   $60
         DEC   $64
         BNE   L07149A
         JMP   L071323

L0714AC  STZ   $61
         LDX   $64
         PHX
         REP   #$20
         LDA   $60
         PHA
         ASL
         TAX
         STA   $60
         LDAL  L07146C,X
         STA   $70
         SEP   #$20
         LDA   ($70)
         AND   #$7F
         CMP   #$11
         BCC   L071510
         LDY   #$000C
         LDA   ($70),Y
         BNE   L071510
         LDA   L024442
         SEC
         SBC   #$03
         STA   $60
         LDY   #$0004
         LDA   ($70),Y
         CLC
         ADC   #$04
         CMP   $60
         BCS   L071510
         INC
         STA   $64
         LDY   #$0005
         LDA   ($70),Y
         INC
         INC
         STA   $65
         LDA   L024370
         INC
         AND   #$07
         STA   L024370
         LDA   L024443
         CLC
         ADC   #$03
         STA   $61
         JSL   L07172A
         PLX
         STX   $60
         PLX
         STX   $64
         PLA
         PLA
         PLA
         RTL

L071510  PLX
         STX   $60
         PLX
         STX   $64
         RTL

L071517  DA    L071539
         DA    L071563
         DA    L0715F0
         DA    L07167C
         DA    L07168F
L071521  REP   #$20
         LDA   #L025280
         CLC
         ADC   #$0008
         STA   $6C
         SEP   #$20
L07152E  LDA   #$00
         XBA
         LDA   L02430B
         ASL
         TAX
         JMP   (L071517,X)

L071539  LDX   #$0003
L07153C  LDA   ($6C)
         BEQ   L07154A
         REP   #$20
         INC   $6C
         SEP   #$20
         DEX
         BNE   L07153C
         RTL

L07154A  LDA   L024442
         INC
         INC
         STA   $60
         STA   $64
         LDA   L024443
         CLC
         ADC   #$04
         STA   $61
         DEC
         STA   $65
         JSL   L07172A
         RTL

L071563  LDA   ($6C)
         LDY   #$0001
         ORA   ($6C),Y
         INY
         ORA   ($6C),Y
         INY
         ORA   ($6C),Y
         INY
         ORA   ($6C),Y
         BNE   L071588
         LDX   #$0005
         REP   #$20
         LDA   #L025DFA
         STA   $70
         SEP   #$20
         JSL   L0715B5
         JMP   L071594

L071588  REP   #$20
         LDA   $6C
         CLC
         ADC   #$0005
         STA   $6C
         SEP   #$20
L071594  LDA   ($6C)
         LDY   #$0001
         ORA   ($6C),Y
         BEQ   L07159E
         RTL

L07159E  ASL   L024307
         LDX   #$0002
         REP   #$20
         LDA   #L025E0E
         STA   $70
         SEP   #$20
         JSL   L0715B5
         LSR   L024307
         RTL

L0715B5  PHX
         LDA   L024442
         SEC
         SBC   ($70)
         STA   $60
         LDY   #$0002
         SEC
         SBC   ($70),Y
         STA   $64
         LDA   L024443
         CLC
         LDY   #$0001
         ADC   ($70),Y
         STA   $61
         LDY   #$0003
         CLC
         ADC   ($70),Y
         STA   $65
         JSL   L07172A
         REP   #$20
         INC   $6C
         LDA   $70
         CLC
         ADC   #$0004
         STA   $70
         SEP   #$20
         PLX
         DEX
         BNE   L0715B5
         RTL

L0715F0  LDX   #$0003
L0715F3  LDA   ($6C)
         LDY   #$0001
         ORA   ($6C),Y
         BEQ   L071608
         REP   #$20
         INC   $6C
         INC   $6C
         SEP   #$20
         DEX
         BNE   L0715F3
         RTL

L071608  TXA
         BIT   #$01
         BNE   L071646
         LDA   L024442
         INC
         INC
         STA   $60
         STA   $64
         LDA   L024443
         CLC
         ADC   #$04
         STA   $61
         DEC
         STA   $65
         REP   #$20
         LDA   $60
         PHA
         SEP   #$20
         JSL   L07172A
         REP   #$20
         PLA
         STA   $60
         SEP   #$20
         INC
         STA   $64
         XBA
         DEC
         DEC
         STA   $65
         REP   #$20
         INC   $6C
         SEP   #$20
         JSL   L07172A
         RTL

L071646  LDA   L024442
         INC
         STA   $64
         INC
         STA   $60
         LDA   L024443
         CLC
         STA   $65
         ADC   #$04
         STA   $61
         PHA
         LDA   $60
         PHA
         JSL   L07172A
         REP   #$20
         PLA
         STA   $60
         SEP   #$20
         INC
         STA   $64
         XBA
         SEC
         SBC   #$04
         STA   $65
         REP   #$20
         INC   $6C
         SEP   #$20
         JSL   L07172A
         RTL

L07167C  LDA   ($6C)
         BEQ   L071681
         RTL

L071681  LDA   L024442
         INC
         LDY   #$0020
         STA   ($6C),Y
         JSL   L0718F5
         RTL

L07168F  LDX   #$0005
         STX   $64
L071694  LDA   ($6C)
         BEQ   L0716A3
         REP   #$20
         INC   $6C
         SEP   #$20
         DEC   $64
         BNE   L071694
         RTL

L0716A3  STZ   $61
         LDA   L024372
         STA   $60
         LDX   #$0008
         STX   $64
L0716AF  JSL   L0716C1
         LDA   $60
         INC
         AND   #$07
         STA   $60
         DEC   $64
         BNE   L0716AF
         JMP   L07154A

L0716C1  STZ   $61
         LDX   $64
         PHX
         REP   #$20
         LDA   $60
         PHA
         ASL
         TAX
         LDAL  L07146C,X
         STA   $70
         SEP   #$20
         LDA   ($70)
         AND   #$7F
         CMP   #$11
         BCC   L071723
         LDY   #$000C
         LDA   ($70),Y
         BNE   L071723
         LDA   L024442
         CLC
         ADC   #$03
         STA   $60
         LDY   #$0004
         LDA   ($70),Y
         CLC
         ADC   #$05
         CMP   $60
         BCC   L071723
         INC
         STA   $64
         LDY   #$0005
         LDA   ($70),Y
         INC
         INC
         STA   $65
         LDA   L024372
         INC
         AND   #$07
         STA   L024372
         LDA   L024443
         CLC
         ADC   #$03
         STA   $61
         JSL   L07172A
         PLX
         STX   $60
         PLX
         STX   $64
         PLA
         PLA
         PLA
         RTL

L071723  PLX
         STX   $60
         PLX
         STX   $64
         RTL

L07172A  REP   #$20
         LDA   $72
         PHA
         LDA   $70
         PHA
         SEP   #$20
         LDA   #$01
         STA   ($6C)
         LDA   L02447C
         CMP   #$02
         BCS   L071744
         LDA   #$01
         STA   L02447C
L071744  LDA   L024374
         LDY   #$00C0
         STA   ($6C),Y
         LDY   #$0020
         LDA   $60
         STA   ($6C),Y
         LDY   #$0030
         LDA   $61
         STA   ($6C),Y
         LDA   L024307
         LDY   #$00B0
         STA   ($6C),Y
         LDA   $60
         SEC
         SBC   $64
         BCS   L0717CA
         EOR   #$FF
         INC
         STA   $64
         LDA   $61
         SEC
         SBC   $65
         BCC   L07179F
         STA   $65
         CMP   $64
         BCC   L07178D
         LDA   $64
         LSR
         LDY   #$0090
         STA   ($6C),Y
         LDY   #$00A0
         LDA   #$00
         STA   ($6C),Y
         JMP   L071825

L07178D  LDA   $65
         LSR
         LDY   #$0090
         STA   ($6C),Y
         LDY   #$00A0
         LDA   #$01
         STA   ($6C),Y
         JMP   L071859

L07179F  EOR   #$FF
         INC
         STA   $65
         CMP   $64
         BCS   L0717B8
         LSR
         LDY   #$0090
         STA   ($6C),Y
         LDY   #$00A0
         LDA   #$02
         STA   ($6C),Y
         JMP   L071859

L0717B8  LDA   $64
         LSR
         LDY   #$0090
         STA   ($6C),Y
         LDY   #$00A0
         LDA   #$03
         STA   ($6C),Y
         JMP   L07188D

L0717CA  STA   $64
         LDA   $61
         SEC
         SBC   $65
         BCS   L071800
         EOR   #$FF
         INC
         STA   $65
         CMP   $64
         BCC   L0717EE
         LDA   $64
         LSR
         LDY   #$0090
         STA   ($6C),Y
         LDY   #$00A0
         LDA   #$04
         STA   ($6C),Y
         JMP   L07188D

L0717EE  LDA   $65
         LSR
         LDY   #$0090
         STA   ($6C),Y
         LDY   #$00A0
         LDA   #$05
         STA   ($6C),Y
         JMP   L0718C1

L071800  STA   $65
         CMP   $64
         BCS   L071816
         LSR
         LDY   #$0090
         STA   ($6C),Y
         LDY   #$00A0
         LDA   #$06
         STA   ($6C),Y
         JMP   L0718C1

L071816  LDA   $64
         LSR
         LDY   #$0090
         STA   ($6C),Y
         LDY   #$00A0
         LDA   #$07
         STA   ($6C),Y
L071825  LDY   #$0070
         LDA   $64
         STA   ($6C),Y
         LDY   #$0080
         LDA   $65
         STA   ($6C),Y
         LDY   #$0030
         LDA   ($6C),Y
         STA   $64
         REP   #$20
         LDA   #L024E0A
         STA   $70
         JSL   L0F1EA0
         SEP   #$20
         LDY   #$0010
         LDA   $65
         STA   ($6C),Y
         REP   #$20
         PLA
         STA   $70
         PLA
         STA   $72
         SEP   #$20
         RTL

L071859  LDY   #$0070
         LDA   $64
         STA   ($6C),Y
         LDY   #$0080
         LDA   $65
         STA   ($6C),Y
         LDY   #$0020
         LDA   ($6C),Y
         STA   $64
         REP   #$20
         LDA   #L024E08
         STA   $70
         JSL   L0F1EA0
         SEP   #$20
         LDY   #$0010
         LDA   $65
         STA   ($6C),Y
         REP   #$20
         PLA
         STA   $70
         PLA
         STA   $72
         SEP   #$20
         RTL

L07188D  LDY   #$0070
         LDA   $64
         STA   ($6C),Y
         LDY   #$0080
         LDA   $65
         STA   ($6C),Y
         LDY   #$0030
         LDA   ($6C),Y
         STA   $64
         REP   #$20
         LDA   #L024E05
         STA   $70
         JSL   L0F1EA0
         SEP   #$20
         LDY   #$0010
         LDA   $65
         STA   ($6C),Y
         REP   #$20
         PLA
         STA   $70
         PLA
         STA   $72
         SEP   #$20
         RTL

L0718C1  LDY   #$0070
         LDA   $64
         STA   ($6C),Y
         LDY   #$0080
         LDA   $65
         STA   ($6C),Y
         LDY   #$0020
         LDA   ($6C),Y
         STA   $64
         REP   #$20
         LDA   #L024E09
         STA   $70
         JSL   L0F1EA0
         SEP   #$20
         LDY   #$0010
         LDA   $65
         STA   ($6C),Y
         REP   #$20
         PLA
         STA   $70
         PLA
         STA   $72
         SEP   #$20
         RTL

L0718F5  PHP
         SEP   #$20
         LDA   #$04
         STA   ($6C)
         LDA   L02447C
         CMP   #$03
         BCS   L071908
         LDA   #$02
         STA   L02447C
L071908  LDA   #$00
         LDY   #$00C0
         STA   ($6C),Y
         LDA   L024443
         SEC
         SBC   #$03
         LDY   #$0030
         STA   ($6C),Y
         LDA   L024307
         ASL
         ASL
         LDY   #$0060
         STA   ($6C),Y
         PLP
         RTL

L071926  PHP
         REP   #$20
         LDA   $60
         PHA
         LDA   $64
         PHA
         LDA   $68
         PHA
         SEP   #$20
         LDA   #$00
         XBA
         LDA   L024442
         SEC
         SBC   #$03
         LSR
         LSR
         LSR
         STA   $68
         AND   #$07
         TAX
         STX   $60
         LDA   L0257D7,X
         STA   $64
         LSR   $68
         LSR   $68
         LSR   $68
         LDA   L024443
         STA   $69
         SEC
         SBC   #$16
         BPL   L07195F
         JMP   L071A22

L07195F  ASL
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BEQ   L071973
         JMP   L071A22

L071973  INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BEQ   L071981
         JMP   L071A22

L071981  INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BEQ   L07198F
         JMP   L071A22

L07198F  INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BEQ   L07199D
         JMP   L071A22

L07199D  INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BEQ   L0719AB
         JMP   L071A22

L0719AB  INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BNE   L071A22
         LDA   #$00
         XBA
         LDA   L024442
         CLC
         ADC   #$03
         LSR
         LSR
         LSR
         STA   $68
         AND   #$07
         TAX
         STX   $60
         LDA   L0257D7,X
         STA   $64
         LSR   $68
         LSR   $68
         LSR   $68
         LDA   L024443
         STA   $69
         SEC
         SBC   #$16
         ASL
         CLC
         ADC   $68
         STA   $60
         LDX   $60
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BNE   L071A22
         INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BNE   L071A22
         INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BNE   L071A22
         INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BNE   L071A22
         INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
         BNE   L071A22
         INX
         INX
         LDA   L02537F,X
         AND   $64
         STA   $5C
L071A22  REP   #$20
         PLA
         STA   $68
         PLA
         STA   $64
         PLA
         STA   $60
         PLP
         RTL

L071A2F  ENT
         PHP
         REP   #$20
         LDA   L02430D
         AND   #$0003
         ASL
         TAX
         LDA   L0244CA,X
         STA   L024536
         LDY   #$0000
         SEP   #$20
         LDA   L024442
         STZ   $08
         SEC
         SBC   #$40
         BCC   L071AAA
         STA   $0C
         CMP   #$20
         BCC   L071A7C
         LDA   #$20
         STA   $04
         LDA   #$10
         STA   $00
L071A5D  LDA   $08
         STA   L0244F4,Y
         LDA   $00
         SEC
         SBC   $0C
         STA   $00
         INY
L071A6A  DEC   $08
         LDA   $00
         CLC
         ADC   #$20
         STA   $00
         BCC   L071A6A
         DEC   $04
         BNE   L071A5D
         JMP   L071B07

L071A7C  LDA   #$10
         STA   $00
         LDA   #$20
         STA   $04
L071A84  LDA   $08
         STA   L0244F4,Y
         LDA   $00
         SEC
         SBC   $0C
         STA   $00
         INY
         BCC   L071A9A
         DEC   $04
         BNE   L071A84
         JMP   L071B07

L071A9A  LDA   $00
         CLC
         ADC   #$20
         STA   $00
         DEC   $08
         DEC   $04
         BNE   L071A84
         JMP   L071B07

L071AAA  EOR   #$FF
         INC
         STA   $00
         STA   $0C
         CMP   #$20
         BCC   L071ADC
         LDA   #$10
         STA   $00
         LDA   #$20
         STA   $04
L071ABD  LDA   $08
         STA   L0244F4,Y
         LDA   $00
         SEC
         SBC   $0C
         STA   $00
         INY
L071ACA  INC   $08
         LDA   $00
         CLC
         ADC   #$20
         STA   $00
         BCC   L071ACA
         DEC   $04
         BNE   L071ABD
         JMP   L071B07

L071ADC  LDA   #$10
         STA   $00
         LDA   #$20
         STA   $04
L071AE4  LDA   $08
         STA   L0244F4,Y
         LDA   $00
         SEC
         SBC   $0C
         STA   $00
         INY
         BCC   L071AFA
         DEC   $04
         BNE   L071AE4
         JMP   L071B07

L071AFA  LDA   $00
         CLC
         ADC   #$20
         STA   $00
         INC   $08
         DEC   $04
         BNE   L071AE4
L071B07  LDA   L024443
         XBA
         LDA   #$00
         REP   #$20
         LSR
         LSR
         STA   $0C
         LDA   #L020B08
         CLC
         ADC   $0C
         STA   L025E1E
         STA   $04
         SEP   #$20
         LDA   L024442
         STA   $0C
         BIT   #$40
         BEQ   L071B4B
         AND   #$BF
         LDA   ($04)
         EOR   #$FF
         INC
         STA   $00
         STZ   $0D
         REP   #$20
         LDA   $04
         CLC
         ADC   $0C
         STA   $04
         SEP   #$20
         LDA   $00
         CLC
         ADC   ($04)
         ADC   #$80
         STA   $00
         JMP   L071B5C

L071B4B  STZ   $0D
         CLC
         REP   #$20
         LDA   $04
         ADC   $0C
         STA   $04
         SEP   #$20
         LDA   ($04)
         STA   $00
L071B5C  STA   $0C
         SEC
         SBC   #$14
         STA   $00
         BCS   L071B67
         STZ   $00
L071B67  LDA   $00
         AND   #$FC
         STA   $0D
         LSR
         LSR
         STA   L0244D2
         LDA   $0C
         SEC
         SBC   $0D
         ASL
         STA   $08
         LDA   #$00
         XBA
         LDA   L024443
         TAX
         LDA   L0206A8,X
         STA   $0C
         LDA   #$1F
         STA   $04
         REP   #$20
         LDA   #L0244D5
         STA   $14
         SEP   #$20
         STZ   $01
L071B95  LDA   #$20
         SEC
         SBC   $04
         STA   $00
         REP   #$20
         LDA   L025E1E
         STA   $10
         SEP   #$20
         LDA   ($10)
         STA   $0D
         REP   #$20
         LDA   $10
         CLC
         ADC   $00
         STA   $10
         SEP   #$20
         LDA   ($10)
         SEC
         SBC   $0D
         LSR
         LSR
         STA   ($14)
         REP   #$20
         INC   $14
         SEP   #$20
         DEC   $04
         BNE   L071B95
         LDA   $0C
         STA   $09
         REP   #$20
         SEP   #$20
         STZ   $05
         LDA   #$00
         XBA
         LDA   L0244EB
         TAX
         STA   $04
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   $04
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244D7
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $00
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DB8
         SEP   #$20
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DBA
         SEP   #$30
         LDA   L0244E7
         TAX
         LDA   $08
         CLC
         ADC   L0244F4,X
         STA   $0C
         STA   L025E18
         LDA   $09
         SEC
         SBC   L0244E8
         STA   $0D
         STA   L025E19
         LDA   L0244E3
         TAX
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   L0244E4
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         SEC
         SBC   L0244D7
         STA   $00
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L025E1A
         SEP   #$30
         LDA   $00
         CLC
         ADC   L0244D9
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L025E1C
         SEP   #$30
         LDA   L0244D8
         STA   $04
         LDA   $09
         STA   $0D
         LDA   $08
         SEC
         SBC   $04
         STA   $00
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DC0
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DC2
         SEP   #$30
         LDA   $0D
         CLC
         ADC   $04
         STA   $0D
         REP   #$20
         LDA   $0C
         STA   L024DC6
         SEP   #$30
         LDA   $0C
         SEC
         SBC   $04
         SBC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DC4
         SEP   #$30
         LDA   L0244E2
         TAX
         STA   $04
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   $04
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244DD
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DC8
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DCA
         SEP   #$30
         LDA   L0244DD
         TAX
         STA   $04
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   $04
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244DE
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DCC
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DCE
         SEP   #$30
         LDA   L0244DC
         TAX
         STA   $04
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   $04
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244F0
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DD0
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DD2
         SEP   #$30
         LDA   L0244D9
         TAX
         STA   $04
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   $04
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244F0
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DD4
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DD6
         SEP   #$30
         LDA   $09
         CLC
         ADC   L0244D6
         STA   $0D
         LDA   $08
         STA   $00
         LDA   L0244D8
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DD8
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DDA
         SEP   #$30
         LDA   L0244DC
         STA   $04
         TAX
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   L0244E0
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244E1
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DDC
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DDE
         SEP   #$30
         LDA   L0244DC
         STA   $04
         TAX
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   L0244E0
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244E5
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DE0
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DE2
         SEP   #$30
         LDA   $09
         STA   $0D
         LDA   $08
         STA   $00
         LDA   L0244E7
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DE4
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DE6
         SEP   #$30
         LDA   $09
         CLC
         ADC   L0244D6
         STA   $0D
         LDA   $08
         STA   $00
         LDA   L0244E1
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DE8
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DEA
         SEP   #$30
         LDA   L0244E6
         STA   $04
         TAX
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   $04
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244DF
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DEC
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DEE
         SEP   #$30
         LDA   $00
         SEC
         SBC   $04
         STA   $00
         LDA   L0244E1
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DF0
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DF2
         SEP   #$30
         LDA   L0244DF
         STA   $04
         TAX
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   $04
         STA   $0D
         LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244E2
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DF4
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DF6
         SEP   #$30
         LDA   $00
         SEC
         SBC   $04
         STA   $00
         LDA   L0244DF
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$20
         LDA   $0C
         STA   L024DF8
         SEP   #$30
         LDA   $00
         CLC
         ADC   $04
         ADC   $04
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DFA
         SEP   #$30
         LDA   L0244DC
         STA   $04
         TAX
         LDA   L0244F4,X
         STA   $01
         LDA   $09
         SEC
         SBC   $04
         STA   $0D
         LDA   L024442
         CMP   #$40
         BCC   L071FE4
         JMP   L072074

L071FE4  LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244E1
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$30
         LDA   $0C
         STA   L024DFC
         SEP   #$20
         LDA   $00
         CLC
         ADC   $04
         ADC   L0244E5
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DFE
         LDA   L024DE0
         STA   L024D58
         LDA   L024DE4
         STA   L024D5A
         LDA   L024DE8
         STA   L024D5C
         STA   L024D7C
         LDA   L024DDC
         STA   L024D78
         LDA   L024DFC
         STA   L024D7A
         LDA   #$0202
         STA   L024456
         LDA   #$0004
         XBA
         JSL   L1810D7
         LDA   L024DE2
         STA   L024D78
         LDA   L024DFE
         STA   L024D7A
         LDA   L024DE6
         STA   L024D7C
         LDA   L024DEA
         STA   L024D7E
         STA   L024D5A
         LDA   L024DDE
         STA   L024D58
         LDA   #$0301
         STA   L024456
         LDA   #$0005
         XBA
         JSL   L1810D7
         JMP   L072101

L072074  LDA   $08
         CLC
         ADC   $01
         STA   $00
         LDA   L0244E5
         STA   $04
         LDA   $00
         SEC
         SBC   $04
         STA   $0C
         STA   $00
         REP   #$30
         LDA   $0C
         STA   L024DFC
         SEP   #$20
         LDA   $00
         CLC
         ADC   $04
         ADC   L0244E1
         STA   $0C
         REP   #$20
         LDA   $0C
         STA   L024DFE
         LDA   L024DE0
         STA   L024D58
         LDA   L024DFC
         STA   L024D5A
         LDA   L024DE4
         STA   L024D5C
         LDA   L024DE8
         STA   L024D5E
         STA   L024D7A
         LDA   L024DDC
         STA   L024D78
         LDA   #$0103
         STA   L024456
         LDA   #$0004
         XBA
         JSL   L1810D7
         LDA   L024DE2
         STA   L024D78
         LDA   L024DE6
         STA   L024D7A
         LDA   L024DEA
         STA   L024D7C
         STA   L024D5C
         LDA   L024DDE
         STA   L024D58
         LDA   L024DFE
         STA   L024D5A
         LDA   #$0202
         STA   L024456
         LDA   #$0005
         XBA
         JSL   L1810D7
L072101  LDA   L024DB8
         STA   L024D58
         LDA   L024DC0
         SEP   #$20
         XBA
         DEC
         XBA
         REP   #$20
         STA   L024D5A
         LDA   L024DBA
         STA   L024D78
         LDA   L024DC2
         SEP   #$20
         XBA
         DEC
         XBA
         REP   #$20
         STA   L024D7A
         LDA   #$0101
         STA   L024456
         LDA   #$0001
         XBA
         JSL   L1810D7
         LDA   L024DC8
         STA   L024D58
         LDA   L024DCC
         STA   L024D5A
         LDA   L024DD0
         STA   L024D5C
         LDA   L024DD4
         STA   L024D5E
         LDA   L024DD8
         STA   L024D60
         LDA   L024DCA
         STA   L024D78
         LDA   L024DCE
         STA   L024D7A
         LDA   L024DD2
         STA   L024D7C
         LDA   L024DD6
         STA   L024D7E
         LDA   L024DDA
         STA   L024D80
         LDA   #$0404
         STA   L024456
         LDA   #$0002
         XBA
         JSL   L1810D7
         LDA   L024DC0
         STA   L024D58
         LDA   L024DC4
         STA   L024D5A
         LDA   L024DC2
         STA   L024D78
         LDA   L024DC6
         STA   L024D7A
         LDA   #$0101
         STA   L024456
         LDA   #$0003
         XBA
         JSL   L1810D7
         LDA   L024309
         CMP   #$0003
         BNE   L0721CD
         LDA   L024DF0
         STA   L024D58
         LDA   L024DF4
         STA   L024D5A
         LDA   L024DEC
         STA   L024D78
         LDA   L024DF8
         STA   L024D7A
         LDA   #$0006
         XBA
         JSL   L1810D7
L0721CD  LDA   L02430B
         CMP   #$0003
         BNE   L0721F5
         LDA   L024DF2
         STA   L024D78
         LDA   L024DF6
         STA   L024D7A
         LDA   L024DEE
         STA   L024D58
         LDA   L024DFA
         STA   L024D5A
         LDA   #$0007
         XBA
         JSL   L1810D7
L0721F5  LDA   L024514
         AND   #$007F
         STA   L024514
         BIT   #$0001
         BEQ   L072223
         LDA   L024442
         SEC
         SBC   L024516
         BEQ   L072223
         LDA   L025E16
         BNE   L072223
         LDA   L0244D2
         PHA
         JSL   L072347
         PLA
         STA   L0244D2
         LDA   #$0080
         STA   L024514
L072223  LDA   L024514
         ORA   #$0001
         STA   L024514
         LDA   #$5555
         STA   L0244C4
         LDA   L024309
         CMP   #$0003
         BNE   L072242
         LDA   #$0006
         XBA
         JSL   L1819D3
L072242  LDA   L02430B
         CMP   #$0003
         BNE   L072252
         LDA   #$0007
         XBA
         JSL   L1819D3
L072252  LDA   #$F3F3
         AND   L024536
         STA   L0244C4
         LDA   #$0002
         XBA
         JSL   L1819D3
         LDA   #$FFFF
         AND   L024536
         STA   L0244C4
         LDA   #$0004
         XBA
         JSL   L1819D3
         LDA   #$0005
         XBA
         JSL   L1819D3
         LDA   #$FFFF
         AND   L024536
         STA   L0244C4
         LDA   #$0001
         XBA
         JSL   L1819D3
         LDA   L025E18
         STA   L024D58
         STA   L024D78
         LDA   L025E1A
         STA   L024D5A
         LDA   L025E1C
         STA   L024D7A
         LDA   #$0101
         STA   L024456
         LDA   #$0001
         XBA
         JSL   L1810D7
         LDA   #$AAAA
         STA   L0244C4
         LDA   #$0001
         XBA
         JSL   L1819D3
         LDA   L024514
         BIT   #$0080
         BNE   L0722D4
         LDA   #$FFFF
         STA   L0244C4
         LDA   #$0003
         XBA
         JSL   L1819D3
L0722D4  INC   L02451C
         LDA   L02451C
         LSR
         AND   #$0001
         ASL
         TAX
         LDA   L0244C6,X
         AND   #$FFFF
         STA   L0244C4
         LDA   #$0003
         XBA
         JSL   L1819D3
         LDA   L024DB8
         STA   L02451E
         LDA   L024DF0
         STA   L024520
         LDA   L024DD0
         STA   L024522
         LDA   L024DD4
         STA   L024524
         LDA   L024DE4
         STA   L024526
         LDA   L024DC4
         STA   L024528
         LDA   L024DBA
         STA   L02452A
         LDA   L024DF2
         STA   L02452C
         LDA   L024DD2
         STA   L02452E
         LDA   L024DD6
         STA   L024530
         LDA   L024DE6
         STA   L024532
         LDA   L024DC6
         STA   L024534
         LDA   L0244D2
         STA   L02451A
         LDA   L024442
         STA   L024516
         PLP
         RTL

L072347  ENT
         PHP
         REP   #$20
         LDA   #$0000
         STA   L0244C4
         LDA   L02451E
         SEP   #$20
         DEC
         REP   #$20
         STA   L024D58
         LDA   L024520
         SEP   #$20
         DEC
         REP   #$20
         STA   L024D5A
         LDA   L024522
         SEP   #$20
         DEC
         REP   #$20
         STA   L024D5C
         LDA   L024524
         SEP   #$20
         DEC
         XBA
         INC
         XBA
         REP   #$20
         STA   L024D5E
         LDA   L024526
         SEP   #$20
         DEC
         XBA
         INC
         XBA
         REP   #$20
         STA   L024D60
         LDA   L024528
         SEP   #$20
         DEC
         XBA
         INC
         XBA
         REP   #$20
         STA   L024D62
         LDA   L02452A
         SEP   #$20
         INC
         REP   #$20
         STA   L024D78
         LDA   L02452C
         SEP   #$20
         INC
         REP   #$20
         STA   L024D7A
         LDA   L02452E
         SEP   #$20
         INC
         INC
         REP   #$20
         STA   L024D7C
         LDA   L024530
         SEP   #$20
         INC
         XBA
         INC
         XBA
         REP   #$20
         STA   L024D7E
         LDA   L024532
         SEP   #$20
         INC
         XBA
         INC
         XBA
         REP   #$20
         STA   L024D80
         LDA   L024534
         SEP   #$20
         INC
         XBA
         INC
         XBA
         REP   #$20
         STA   L024D82
         LDA   #$0505
         STA   L024456
         LDA   #$0000
         JSL   L1810D7
         LDA   L02451A
         STA   L0244D2
         LDA   #$0000
         JSL   L1819D3
         PLP
         RTL

L072403  ENT
         PHP
         REP   #$20
         LDA   #$0000
         STA   L025E16
         JSL   L071A2F
         LDA   #$0000
         STA   L025E16
         PLP
         RTL

L072418  ENT
         PHP
         REP   #$20
         LDA   L024426
         BEQ   L072423
         JMP   L072943

L072423  LDA   L023E28
         CMP   #$00FF
         BNE   L072432
         JSL   L0729D3
         JMP   L072943

L072432  LDA   L023E2A
         BEQ   L07243A
         JMP   L072943

L07243A  STZ   L023E12
         LDA   L02436A
         STA   L023E2A
         INC   L024454
         LDA   #$00E1
         STA   $06
         STA   $02
         LDA   #L0256D3
         STA   $24
         LDA   #$000B
         STA   $44
L072457  LDA   ($24)
         STA   $18
         LDY   #$0002
         LDA   ($24),Y
         STA   $08
         LDY   #$0004
         LDA   ($24),Y
         STA   $04
         LDY   #$0006
         LDA   ($24),Y
         STA   $00
         LDA   #$0000
         SEP   #$20
         LDA   [$04]
         AND   $18
         STA   [$04]
         LDA   $08
         CLC
         ADC   L024354
         REP   #$20
         BPL   L07248B
         JSR   L072945
         JMP   L072540

L07248B  CLC
         ADC   #$0010
         STA   $08
         LDA   L02435E
         CLC
         ADC   $00
         STA   $00
         LDY   #$0006
         STA   ($24),Y
         LDY   #$0008
         LDA   ($24),Y
         BEQ   L0724D2
         LDA   ($00)
         AND   #$00FF
         PHA
         LDA   $00
         SEC
         SBC   #L020B08
         AND   #$FFC0
         CLC
         ADC   #L020B08
         STA   $00
         PLA
         SEC
         SEP   #$20
         SBC   ($00)
         CLC
         ADC   #$80
         REP   #$20
         STA   $46
         BIT   #$0080
         BNE   L0724E4
         JSR   L072945
         JMP   L072540

L0724D2  LDA   ($00)
         AND   #$00FF
         STA   $46
         BIT   #$0080
         BEQ   L0724E4
         JSR   L072945
         JMP   L072540

L0724E4  LDA   $08
         ASL
         TAX
         LDA   $46
         LSR
         CLC
         ADC   L020568,X
         STA   $28
         LDA   $46
         AND   #$0001
         TAX
         LDA   L024538,X
         AND   #$00FF
         STA   $48
         LDA   #$00E1
         STA   $2A
         LDA   [$28]
         AND   #$00FF
         BNE   L072526
         LDA   $28
         CLC
         ADC   #$00A0
         STA   $28
         LDA   [$28]
         AND   #$00FF
         BNE   L072526
         SEP   #$20
         LDA   [$28]
         ORA   $48
         STA   [$28]
         REP   #$20
         BRA   L072528
L072526  STZ   $48
L072528  LDA   $48
         EOR   #$FFFF
         LDY   #$0000
         STA   ($24),Y
         LDY   #$0002
         LDA   $08
         STA   ($24),Y
         LDY   #$0004
         LDA   $28
         STA   ($24),Y
L072540  LDA   $24
         CLC
         ADC   #$000A
         STA   $24
         DEC   $44
         BEQ   L07254F
         JMP   L072457

L07254F  LDA   #$0002
         STA   $44
L072554  LDA   ($24)
         STA   $18
         LDY   #$0002
         LDA   ($24),Y
         STA   $08
         LDY   #$0004
         LDA   ($24),Y
         STA   $04
         LDY   #$0006
         LDA   ($24),Y
         STA   $00
         LDA   #$0000
         SEP   #$20
         LDA   [$04]
         AND   $18
         STA   [$04]
         LDA   $08
         CLC
         ADC   L024356
         REP   #$20
         BPL   L072588
         JSR   L072945
         JMP   L072641

L072588  CLC
         ADC   #$0010
         STA   $08
         LDA   L024360
         CLC
         ADC   $00
         STA   $00
         LDY   #$0006
         STA   ($24),Y
         LDY   #$0008
         LDA   ($24),Y
         BEQ   L0725CF
         LDA   ($00)
         AND   #$00FF
         PHA
         LDA   $00
         SEC
         SBC   #L020B08
         AND   #$FFC0
         CLC
         ADC   #L020B08
         STA   $00
         PLA
         SEC
         SEP   #$20
         SBC   ($00)
         CLC
         ADC   #$80
         REP   #$20
         STA   $46
         BIT   #$0080
         BNE   L0725E1
         JSR   L072945
         JMP   L072641

L0725CF  LDA   ($00)
         AND   #$00FF
         STA   $46
         BIT   #$0080
         BEQ   L0725E1
         JSR   L072945
         JMP   L072641

L0725E1  LDA   $08
         ASL
         TAX
         LDA   $46
         LSR
         CLC
         ADC   L020568,X
         STA   $28
         LDA   $46
         AND   #$0001
         CLC
         ADC   #$0004
         TAX
         LDA   L024538,X
         AND   #$00FF
         STA   $48
         LDA   #$00E1
         STA   $2A
         LDA   [$28]
         AND   #$00FF
         BNE   L072627
         LDA   $28
         CLC
         ADC   #$00A0
         STA   $28
         LDA   [$28]
         AND   #$00FF
         BNE   L072627
         SEP   #$20
         LDA   [$28]
         ORA   $48
         STA   [$28]
         REP   #$20
         BRA   L072629
L072627  STZ   $48
L072629  LDA   $48
         EOR   #$FFFF
         LDY   #$0000
         STA   ($24),Y
         LDY   #$0002
         LDA   $08
         STA   ($24),Y
         LDY   #$0004
         LDA   $28
         STA   ($24),Y
L072641  LDA   $24
         CLC
         ADC   #$000A
         STA   $24
         DEC   $44
         BEQ   L072650
         JMP   L072554

L072650  LDA   ($24)
         STA   $18
         LDY   #$0002
         LDA   ($24),Y
         STA   $08
         LDY   #$0004
         LDA   ($24),Y
         STA   $04
         LDY   #$0006
         LDA   ($24),Y
         STA   $00
         LDA   #$0000
         SEP   #$20
         LDA   [$04]
         AND   $18
         STA   [$04]
         LDA   $08
         CLC
         ADC   L024358
         REP   #$20
         BPL   L072684
         JSR   L072945
         JMP   L07273D

L072684  CLC
         ADC   #$0010
         STA   $08
         LDA   L024362
         CLC
         ADC   $00
         STA   $00
         LDY   #$0006
         STA   ($24),Y
         LDY   #$0008
         LDA   ($24),Y
         BEQ   L0726CB
         LDA   ($00)
         AND   #$00FF
         PHA
         LDA   $00
         SEC
         SBC   #L020B08
         AND   #$FFC0
         CLC
         ADC   #L020B08
         STA   $00
         PLA
         SEC
         SEP   #$20
         SBC   ($00)
         CLC
         ADC   #$80
         REP   #$20
         STA   $46
         BIT   #$0080
         BNE   L0726DD
         JSR   L072945
         JMP   L07273D

L0726CB  LDA   ($00)
         AND   #$00FF
         STA   $46
         BIT   #$0080
         BEQ   L0726DD
         JSR   L072945
         JMP   L07273D

L0726DD  LDA   $08
         ASL
         TAX
         LDA   $46
         LSR
         CLC
         ADC   L020568,X
         STA   $28
         LDA   $46
         AND   #$0001
         CLC
         ADC   #$0006
         TAX
         LDA   L024538,X
         AND   #$00FF
         STA   $48
         LDA   #$00E1
         STA   $2A
         LDA   [$28]
         AND   #$00FF
         BNE   L072723
         LDA   $28
         CLC
         ADC   #$00A0
         STA   $28
         LDA   [$28]
         AND   #$00FF
         BNE   L072723
         SEP   #$20
         LDA   [$28]
         ORA   $48
         STA   [$28]
         REP   #$20
         BRA   L072725
L072723  STZ   $48
L072725  LDA   $48
         EOR   #$FFFF
         LDY   #$0000
         STA   ($24),Y
         LDY   #$0002
         LDA   $08
         STA   ($24),Y
         LDY   #$0004
         LDA   $28
         STA   ($24),Y
L07273D  LDA   $24
         CLC
         ADC   #$000A
         STA   $24
         LDA   #$0006
         STA   $44
L07274A  LDA   ($24)
         STA   $18
         LDY   #$0002
         LDA   ($24),Y
         STA   $08
         LDY   #$0004
         LDA   ($24),Y
         STA   $04
         LDY   #$0006
         LDA   ($24),Y
         STA   $00
         LDA   #$0000
         SEP   #$20
         LDA   [$04]
         AND   $18
         STA   [$04]
         LDA   $08
         CLC
         ADC   L02435A
         REP   #$20
         BPL   L07277E
         JSR   L072945
         JMP   L072833

L07277E  CLC
         ADC   #$0010
         STA   $08
         LDA   L024364
         CLC
         ADC   $00
         STA   $00
         LDY   #$0006
         STA   ($24),Y
         LDY   #$0008
         LDA   ($24),Y
         BEQ   L0727C5
         LDA   ($00)
         AND   #$00FF
         PHA
         LDA   $00
         SEC
         SBC   #L020B08
         AND   #$FFC0
         CLC
         ADC   #L020B08
         STA   $00
         PLA
         SEC
         SEP   #$20
         SBC   ($00)
         CLC
         ADC   #$80
         REP   #$20
         STA   $46
         BIT   #$0080
         BNE   L0727D7
         JSR   L072945
         JMP   L072833

L0727C5  LDA   ($00)
         AND   #$00FF
         STA   $46
         BIT   #$0080
         BEQ   L0727D7
         JSR   L072945
         JMP   L072833

L0727D7  LDA   $08
         ASL
         TAX
         LDA   $46
         LSR
         CLC
         ADC   L020568,X
         STA   $28
         LDA   $46
         AND   #$0001
         TAX
         LDA   L024538,X
         AND   #$00FF
         STA   $48
         LDA   #$00E1
         STA   $2A
         LDA   [$28]
         AND   #$00FF
         BNE   L072819
         LDA   $28
         CLC
         ADC   #$00A0
         STA   $28
         LDA   [$28]
         AND   #$00FF
         BNE   L072819
         SEP   #$20
         LDA   [$28]
         ORA   $48
         STA   [$28]
         REP   #$20
         BRA   L07281B
L072819  STZ   $48
L07281B  LDA   $48
         EOR   #$FFFF
         LDY   #$0000
         STA   ($24),Y
         LDY   #$0002
         LDA   $08
         STA   ($24),Y
         LDY   #$0004
         LDA   $28
         STA   ($24),Y
L072833  LDA   $24
         CLC
         ADC   #$000A
         STA   $24
         DEC   $44
         BEQ   L072842
         JMP   L07274A

L072842  LDA   #$0004
         STA   $44
L072847  LDA   ($24)
         STA   $18
         LDY   #$0002
         LDA   ($24),Y
         STA   $08
         LDY   #$0004
         LDA   ($24),Y
         STA   $04
         LDY   #$0006
         LDA   ($24),Y
         STA   $00
         LDA   #$0000
         SEP   #$20
         LDA   [$04]
         AND   $18
         STA   [$04]
         LDA   $08
         CLC
         ADC   L02435C
         REP   #$20
         BPL   L07287B
         JSR   L072945
         JMP   L072934

L07287B  CLC
         ADC   #$0010
         STA   $08
         LDA   L024366
         CLC
         ADC   $00
         STA   $00
         LDY   #$0006
         STA   ($24),Y
         LDY   #$0008
         LDA   ($24),Y
         BEQ   L0728C2
         LDA   ($00)
         AND   #$00FF
         PHA
         LDA   $00
         SEC
         SBC   #L020B08
         AND   #$FFC0
         CLC
         ADC   #L020B08
         STA   $00
         PLA
         SEC
         SEP   #$20
         SBC   ($00)
         CLC
         ADC   #$80
         REP   #$20
         STA   $46
         BIT   #$0080
         BNE   L0728D4
         JSR   L072945
         JMP   L072934

L0728C2  LDA   ($00)
         AND   #$00FF
         STA   $46
         BIT   #$0080
         BEQ   L0728D4
         JSR   L072945
         JMP   L072934

L0728D4  LDA   $08
         ASL
         TAX
         LDA   $46
         LSR
         CLC
         ADC   L020568,X
         STA   $28
         LDA   $46
         AND   #$0001
         CLC
         ADC   #$0002
         TAX
         LDA   L024538,X
         AND   #$00FF
         STA   $48
         LDA   #$00E1
         STA   $2A
         LDA   [$28]
         AND   #$00FF
         BNE   L07291A
         LDA   $28
         CLC
         ADC   #$00A0
         STA   $28
         LDA   [$28]
         AND   #$00FF
         BNE   L07291A
         SEP   #$20
         LDA   [$28]
         ORA   $48
         STA   [$28]
         REP   #$20
         BRA   L07291C
L07291A  STZ   $48
L07291C  LDA   $48
         EOR   #$FFFF
         LDY   #$0000
         STA   ($24),Y
         LDY   #$0002
         LDA   $08
         STA   ($24),Y
         LDY   #$0004
         LDA   $28
         STA   ($24),Y
L072934  LDA   $24
         CLC
         ADC   #$000A
         STA   $24
         DEC   $44
         BEQ   L072943
         JMP   L072847

L072943  PLP
         RTL

L072945  LDA   L023E24
         EOR   L024494
         STA   L024494
         AND   #$007F
         CLC
         ADC   #$0010
         STA   $4A
         LDA   L023E24
         AND   #$00FF
         EOR   #$0055
         CLC
         ADC   L024494
         AND   #$00FF
         STA   L024494
         AND   #$00BF
         BIT   #$0080
         BEQ   L0729A4
         AND   #$003F
         STA   $4C
         LDA   #$0001
         LDY   #$0008
         STA   ($24),Y
         LDA   $4A
         XBA
         LSR
         LSR
         CLC
         ADC   $4C
         ADC   #L020B08
         LDY   #$0006
         STA   ($24),Y
         LDA   #$4E30
         LDY   #$0004
         STA   ($24),Y
         LDA   #$FFFF
         STA   ($24)
         LDA   $4A
         LDY   #$0002
         STA   ($24),Y
         RTS

L0729A4  STA   $4C
         LDA   #$0000
         LDY   #$0008
         STA   ($24),Y
         LDA   $4A
         XBA
         LSR
         LSR
         CLC
         ADC   $4C
         ADC   #L020B08
         LDY   #$0006
         STA   ($24),Y
         LDA   #$4E30
         LDY   #$0004
         STA   ($24),Y
         LDA   #$FFFF
         STA   ($24)
         LDA   $4A
         LDY   #$0002
         STA   ($24),Y
         RTS
L0729D3  ENT
         RTL

L0729D4  ENT
         PHP
         SEP   #$20
         STA   $64
         SEC
         SBC   #$10
         STA   L024354
         STA   L024356
         STA   L024358
         LDA   $64
         ASL
         STA   $60
         CLC
         ADC   $64
         STA   $61
         ROL
         ROR   $61
         LDA   $61
         SEC
         SBC   #$10
         STA   L02435A
         LDA   $60
         SEC
         SBC   #$10
         STA   L02435C
         LDA   $64
         XBA
         LDA   #$00
         REP   #$20
         STA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         STA   L02435E
         STA   L024360
         STA   L024362
         SEP   #$20
         LDA   $61
         XBA
         LDA   #$00
         REP   #$20
         STA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         STA   L024364
         LDA   $60
         AND   #$00FF
         XBA
         STA   $5C
         ROL   $5C
         ROR
         STA   $5C
         ROL   $5C
         ROR
         STA   L024366
         PLP
         RTL

L072A47  PHP
         SEP   #$20
         LDA   L023E06
         BEQ   L072A52
         JMP   L072AFD

L072A52  STZ   $54
         LDAL  BUTN0
         BPL   L072A60
         LDA   $54
         ORA   #$80
         STA   $54
L072A60  LDAL  KEYMODREG
         TAX
         AND   #$04
         BEQ   L072A74
         LDA   L0257F0
         BEQ   L072A74
         LDA   $54
         ORA   #$40
         STA   $54
L072A74  TXA
         AND   #$10
         BEQ   L072A86
         LDAL  KBD
         BMI   L072A96
         TAX
         LDAL  KBDSTROBE
         BMI   L072A95
L072A86  LDA   L023E2C
         BEQ   L072AF4
         REP   #$20
         JSL   L14013E
         SEP   #$20
         BRA   L072A9A
L072A95  TXA
L072A96  STAL  KBDSTROBE
L072A9A  AND   #$7F
         STA   $4E
         CMP   #$37
         BEQ   L072AAC
         CMP   #$38
         BEQ   L072AAC
         CMP   #$39
         BEQ   L072AAC
         BRA   L072AB2
L072AAC  LDA   $54
         ORA   #$08
         STA   $54
L072AB2  LDA   $4E
         CMP   #$31
         BEQ   L072AC2
         CMP   #$32
         BEQ   L072AC2
         CMP   #$33
         BEQ   L072AC2
         BRA   L072AC8
L072AC2  LDA   $54
         ORA   #$0C
         STA   $54
L072AC8  LDA   $4E
         CMP   #$31
         BEQ   L072AD8
         CMP   #$34
         BEQ   L072AD8
         CMP   #$37
         BEQ   L072AD8
         BRA   L072ADE
L072AD8  LDA   $54
         ORA   #$02
         STA   $54
L072ADE  LDA   $4E
         CMP   #$33
         BEQ   L072AEE
         CMP   #$36
         BEQ   L072AEE
         CMP   #$39
         BEQ   L072AEE
         BRA   L072AF4
L072AEE  LDA   $54
         ORA   #$03
         STA   $54
L072AF4  LDA   $54
         STA   L024498
         PLP
         RTL

L072AFB  DB    $00
L072AFC  DB    $00
L072AFD  LDAL  L072AFB
         BNE   L072B34
         JSL   L180C51
         AND   #$07
         CLC
         ADC   #$03
         STAL  L072AFB
L072B10  STZ   $53
         JSL   L180C51
         TAX
         AND   #$0F
         BNE   L072B1F
         LDA   #$0C
         STA   $53
L072B1F  TXA
         AND   #$BF
         ORA   $53
         STAL  L072AFC
         AND   #$0A
         BNE   L072B34
         JSL   L180C51
         AND   #$01
         BNE   L072B10
L072B34  LDAL  L072AFC
         STAL  L024498
         LDAL  L072AFB
         DEC
         STAL  L072AFB
         PLP
         RTL

         MX    %00
L072B47  ENT
         STA   L0242FD
         LDA   #$0000
         STA   L0244A4
         STA   L024490
         STA   L024319
         STA   L024321
         STA   L02430F
         STA   L024311
         LDA   #$0001
         STA   L024307
         LDA   #$0000
         STA   L024309
         STA   L02430B
         RTL

L072B6F  ENT
         LDA   L023E10
         DEC
         STA   L0242FD
         LDA   #$0000
         STA   L0244A4
         STA   L024490
         STA   L024319
         STA   L024321
         LDA   #$0004
         STA   L02430F
         STA   L024311
         LDA   #$0001
         STA   L024307
         LDA   #$0000
         STA   L024309
         STA   L02430B
         RTL

L072B9E  ENT
         LDA   #$0005
         STA   L0242FD
         LDA   #$0032
         STA   L0244A4
         LDA   #$0006
         STA   L024490
         LDA   #$0001
         STA   L024492
         LDA   #$0006
         STA   L02441E
         LDA   #$0018
         STA   L024448
         LDA   #$0001
         STA   L024319
         STA   L024321
         LDA   #$0004
         STA   L02430F
         STA   L024311
         LDA   #$0002
         STA   L024307
         LDA   #$0000
         STA   L024309
         STA   L02430B
         RTL

L072BE4  ENT
         LDA   #$000A
         STA   L0242FD
         LDA   #$006A
         STA   L0244A4
         LDA   #$000C
         STA   L024490
         LDA   #$0002
         STA   L024492
         LDA   #$000E
         STA   L02441E
         LDA   #$0030
         STA   L024448
         LDA   #$0001
         STA   L024319
         STA   L024321
         LDA   #$0004
         STA   L02430F
         STA   L024311
         LDA   #$0002
         STA   L024307
         LDA   #$0000
         STA   L024309
         STA   L02430B
         RTL

L072C2A  ENT
         LDA   #$000F
         STA   L0242FD
         LDA   #$0095
         STA   L0244A4
         LDA   #$0011
         STA   L024490
         LDA   #$0003
         STA   L024492
         LDA   #$0013
         STA   L02441E
         LDA   #$0048
         STA   L024448
         LDA   #$0001
         STA   L024319
         STA   L024321
         LDA   #$0004
         STA   L02430F
         STA   L024311
         LDA   #$0004
         STA   L024307
         LDA   #$0000
         STA   L024309
         STA   L02430B
         RTL

L072C70  ENT
         LDA   #$0013
         STA   L0242FD
         LDA   #$00B8
         STA   L0244A4
         LDA   #$0000
         STA   L024490
         LDA   #$0003
         STA   L024492
         LDA   #$0017
         STA   L02441E
         LDA   #$0048
         STA   L024448
         LDA   #$0001
         STA   L024319
         STA   L024321
         LDA   #$0004
         STA   L02430F
         STA   L024311
         LDA   #$0004
         STA   L024307
         LDA   #$0000
         STA   L024309
         STA   L02430B
         RTL

L072CB6  ENT
         LDA   #$0014
         STA   L0242FD
         LDA   #$00C9
         STA   L0244A4
         LDA   #$0000
         STA   L024490
         LDA   #$0000
         STA   L024492
         LDA   #$0000
         STA   L02441E
         LDA   #$0000
         STA   L024448
         LDA   #$0001
         STA   L024319
         STA   L024321
         LDA   #$0004
         STA   L02430F
         STA   L024311
         LDA   #$0004
         STA   L024307
         LDA   #$0003
         STA   L024309
         STA   L02430B
         RTL

L072CFC  REP   #$20
         LDA   $68
         AND   #$0003
         ASL
         ASL
         TAX
         STX   $60
         LDA   L025F6E,X
         STA   $64
         EOR   #$FFFF
         STA   $78
         LDA   $69
         AND   #$0003
         ASL
         ASL
         CLC
         ADC   #$0012
         TAX
         LDA   L025F6E,X
         STA   $66
         EOR   #$FFFF
         STA   $7A
         SEP   #$20
         LDA   $69
         LSR
         LSR
         LSR   $68
         LSR   $68
         SEC
         SBC   $68
         STA   $60
         STZ   $69
         REP   #$20
         LDA   $68
         ASL
         CLC
         ADC   $70
         STA   $70
         SEP   #$20
         LDA   $60
         CMP   #$02
         BCC   L072D54
         LDA   $60
         STA   L025F54
         LDA   #$02
         STA   $60
L072D54  ASL   $60
         REP   #$20
         LDA   L025F56
         STA   $68
         AND   $64
         STA   $64
         LDA   $68
         AND   $66
         STA   $66
         LDA   #$00E1
         STA   $72
         LDX   $60
         JMP   (L072D71,X)

L072D71  DA    L072D77
         DA    L072D8A
         DA    L072DA1
L072D77  LDA   $78
         ORA   $7A
         AND   [$70]
         STA   $04
         LDA   $64
         AND   $66
         ORA   $04
         STA   [$70]
         JMP   L072FF8

L072D8A  LDA   $78
         AND   [$70]
         ORA   $64
         STA   [$70]
         INC   $70
         INC   $70
         LDA   $7A
         AND   [$70]
         ORA   $66
         STA   [$70]
         JMP   L072FF8

L072DA1  LDA   $64
         STA   $60
         LDA   $66
         STA   $62
         LDA   L025F54
         AND   #$00FF
         DEC
         STA   $64
         LDA   [$70]
         AND   $78
         ORA   $60
         STA   [$70]
         INC   $70
         INC   $70
         LDA   $68
         STA   [$70]
         INC   $70
         LDX   $70
         TXY
         INY
         DEC   $64
         LDA   $64
         BEQ   L072DD5
         ASL
         DEC
         PHB
         MVN   $E10000,$E10000
         PLB
L072DD5  STY   $70
         LDA   [$70]
         AND   $7A
         ORA   $62
         STA   [$70]
         INC   $70
         INC   $70
         JMP   L072FF8

         REP   #$20
         LDA   #$00E1
         STA   $72
         LDA   $68
         AND   #$0003
         ASL
         ASL
         TAX
         STX   $60
         LDA   L025F6E,X
         STA   $64
         EOR   #$FFFF
         STA   $78
         LDA   $69
         AND   #$0003
         ASL
         ASL
         CLC
         ADC   #$0012
         TAX
         LDA   L025F6E,X
         STA   $66
         EOR   #$FFFF
         STA   $7A
         SEP   #$20
         LDA   $69
         LSR
         LSR
         LSR   $68
         LSR   $68
         SEC
         SBC   $68
         STA   $60
         STZ   $69
         ASL   $60
         REP   #$20
         LDA   L025F56
         STA   $68
         AND   $64
         STA   $64
         LDA   $68
         AND   $66
         STA   $66
         LDA   $60
         CMP   #$0004
         BCS   L072E83
         LDX   $60
         JMP   (L072E47,X)

L072E47  DA    L072E5D
         DA    L072E6C
         DA    L072E83
         DA    L072E83
         DA    L072E83
         DA    L072E83
         DA    L072E83
         DA    L072E83
         DA    L072E83
         DA    L072E83
         DA    L072E83
L072E5D  LDA   $78
         ORA   $7A
         AND   [$70]
         ORA   $64
         ORA   $66
         STA   [$70]
         JMP   L072FF8

L072E6C  LDA   $78
         AND   [$70]
         ORA   $64
         STA   [$70]
         INC   $70
         INC   $70
         LDA   $7A
         AND   [$70]
         ORA   $66
         STA   [$70]
         JMP   L072FF8

L072E83  LDA   [$70]
         AND   $78
         ORA   $64
         STA   [$70]
         INC   $70
         INC   $70
         LDX   $64
         LDY   $60
         STX   $60
         TYA
         LSR
         DEC
         STA   $64
         LDA   $68
         STA   [$70]
         INC   $70
         LDX   $70
         TXY
         INY
         DEC   $64
         LDA   $64
         BEQ   L072EB1
         ASL
         DEC
         PHB
         MVN   $E10000,$E10000
         PLB
L072EB1  STY   $70
         LDA   [$70]
         AND   $7A
         ORA   $62
         STA   [$70]
         JMP   L072FF8

         PHP
         REP   #$20
         LDA   $5C
         AND   #$00FF
         ASL
         ASL
         TAX
         STX   $60
         LDA   L024384,X
         STA   $64
         INX
         INX
         STX   $60
         LDA   L024384,X
         STA   $66
         PLP
L072EDA  ENT
         PHP
         REP   #$20
         LDA   #L072CFC
         STA   $5C
         JMP   L072F13

L072EE5  ENT
         PHP
         REP   #$20
         LDA   $5C
         AND   #$00FF
         ASL
         ASL
         TAX
         STX   $60
         LDA   L024384,X
         AND   L023D85
         STA   $64
         INX
         INX
         STX   $60
         LDA   L024384,X
         AND   L023D85
         STA   $66
         PLP
L072F07  ENT
         PHP
         REP   #$20
         LDA   #L072CFC
         STA   $5C
         LDA   $68
         STA   $74
L072F13  LDA   $5C
         STAL  L072FF6
         LDA   $6C
         PHA
         LDA   L024459
         AND   #$00FF
         ASL
         TAX
         STX   $60
         LDA   L025F5A,X
         STA   $5C
         STAL  L072FE0
         SEP   #$20
         LDA   L02445B
         XBA
         LDA   #$02
         TAX
         STX   $60
         LDA   L024548,X
         BIT   #$01
         BNE   L072F48
         BIT   #$80
         BEQ   L072F48
         JMP   L0730D0

L072F48  TXA
         LDA   #$00
         TAX
         STX   $60
         LDA   L024548,X
         STA   $5C
         CMP   #$E8
         BCC   L072F5A
         JMP   L0730D0

L072F5A  LDA   #$00
         XBA
         LDA   $5C
         REP   #$20
         ASL
         TAX
         STX   $60
         LDA   L020368,X
         STA   $68
         STA   $70
         SEP   #$20
         LDA   $68
         BIT   #$10
         BEQ   L072F7C
         LDX   $64
         LDY   $66
         STY   $64
         STX   $66
L072F7C  LDA   L02445B
         XBA
         LDA   #$01
         TAX
         STX   $60
         LDA   L024548,X
         STA   $5C
         REP   #$20
         LDA   $64
         STA   L025F56
         LDA   $66
         STA   L025F58
         SEP   #$20
         LDA   #$04
         STA   $60
         LDA   $5C
         STA   $64
         STZ   $65
L072FA2  REP   #$20
         LDX   $60
         LDA   L024548,X
         STA   $68
         INC   $60
         INC   $60
         LDA   $70
         STA   $5C
         SEP   #$20
         INC   $5D
         LDA   $5D
         CMP   #$21
         BCC   L073006
         CMP   #$9E
         BCC   L072FC8
         REP   #$20
         PLA
         STA   $6C
         PLP
         RTL

L072FC8  SEP   #$20
         LDA   $69
         CMP   $68
         BCS   L072FDA
         LDA   $69
         XBA
         LDA   $68
         STA   $69
         XBA
         STA   $68
L072FDA  LDX   #$0000
         JMP   (L072FE0,X)

L072FE0  DA    $0000
L072FE2  ENT
         REP   #$20
         LDA   $60
         PHA
         LDA   $64
         PHA
         LDA   $70
         PHA
         LDA   $6C
         PHA
         LDX   #$0000
         JMP   (L072FF6,X)

L072FF6  DA    $0000
L072FF8  REP   #$20
         PLA
         STA   $6C
         PLA
         STA   $70
         PLA
         STA   $64
         PLA
         STA   $60
L073006  REP   #$20
         LDA   $70
         CLC
         ADC   #$00A0
         STA   $70
         LDX   L025F56
         LDY   L025F58
         STY   L025F56
         STX   L025F58
         DEC   $64
         BNE   L072FA2
         PLA
         STA   $6C
         PLP
         RTL

L073025  ENT
         SEP   #$20
         LDA   $69
         SEC
         SBC   #$80
         STA   $5C
         BCC   L073006
         STA   $69
         LDA   $68
         SEC
         SBC   #$80
         STA   $68
         BCC   L07303E
         JMP   L072FE2

L07303E  STZ   $68
         JMP   L072FE2

L073043  ENT
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$80
         STA   $5C
         BCS   L073006
         STA   $68
         LDA   $69
         CLC
         ADC   #$80
         STA   $69
         BCS   L07305C
         JMP   L072FE2

L07305C  LDA   #$FF
         STA   $69
         JMP   L072FE2

L073063  ENT
         SEP   #$20
         LDA   $69
         SEC
         SBC   #$82
         STA   $5C
         BCC   L073006
         STA   $69
         LDA   $68
         SEC
         SBC   #$82
         STA   $68
         BCC   L07307C
         JMP   L072FE2

L07307C  STZ   $68
         JMP   L072FE2

L073081  ENT
         SEP   #$20
         LDA   $68
         CLC
         ADC   #$86
         STA   $5C
         BCC   L07308F
         JMP   L073006

L07308F  STA   $68
         LDA   $69
         CLC
         ADC   #$86
         STA   $69
         BCS   L07309D
         JMP   L072FE2

L07309D  LDA   #$FF
         STA   $69
         JMP   L072FE2

L0730A4  ENT
         SEP   #$20
         LDA   $68
         SEC
         SBC   #$80
         STA   $5C
         BCS   L0730B1
         STZ   $5C
L0730B1  LDA   $5C
         STA   $68
         LDA   $69
         CLC
         ADC   #$80
         STA   $5C
         BCC   L0730C2
         LDA   #$FF
         STA   $5C
L0730C2  LDA   $5C
         STA   $68
         JMP   L072FE2

L0730C9  ENT
         REP   #$20
         PLA
         STA   $6C
         PLP
         RTL

L0730D0  REP   #$20
         LDA   $60
         AND   #$FF00
         TAX
         SEP   #$20
         LDA   #$E8
         STA   L024548,X
         REP   #$20
         PLA
         STA   $6C
         PLP
         RTL

