Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-01-04 04:31:04 +00:00
Code Issues Projects Releases Wiki Activity
cd38fa44a3
antoine-source/acbasic/AC.S
Antoine Vignau 0498bcc0c9 Mass upload 
of a couple of (working) disassemblies
2020-11-10 11:31:13 +01:00

23615 lines
427 KiB
ArmAsm
Raw Blame History

*
* WARNING: IT IS A WORK IN PROGRESS (ONLY $B000++ IS VERIFIED)
*
* AC/BASIC
* 16-Bit BASIC Compiler for Apple II GS
*
* (c) 1988, absoft
* (s) 2020, Antoine Vignau
*
mx %00
rel
typ S16
dsk AC2020.SYS16
lst off
*-------------------------------
COPMGRV = $E10014
GSOS = $E100A8
*-------------------------------
use 4/Ctl.Macs
use 4/Desk.Macs
use 4/Dialog.Macs
use 4/Event.Macs
use 4/Font.Macs
use 4/Line.Macs
use 4/Load.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/Misc.Macs
use 4/Print.Macs
use 4/QD.Macs
use 4/QDAux.Macs
use 4/Scrap.Macs
use 4/Sound.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*-------------------------------
CLC
XCE
REP #$FF
STZ $00
LDA #$023A
BPL L000E
BRL *-LA3FA
L000E STX $26
STY $24
STA $04
STZ $06
TXA
ORA $24
BEQ L0059
TDC
CLC
ADC #$002B
STA $28
STZ $2A
LDY $00
LDX #$0084
SEP #$20
L002B DEX
BMI L0057
LDA [$24],Y
BEQ L0057
INY
CMP #$20
BNE L002B
L0037 DEX
BMI L0057
LDA [$24],Y
BEQ L0057
INY
CMP #$20
BEQ L0037
DEY
DEY
L0045 INY
DEX
BMI L0057
INC $28
BNE L004F
INC $29
L004F LDA [$24],Y
STA [$28]
BNE L0045
STY $06
L0057 REP #$20
L0059 PHK
PER L006C-1
PER L00F8
LDA $00
LDY $06
BEQ L0068
INC
INC
L0068 INC
BRL *-L9BD0
L006C STZ $F4
DEC $F4
TDC
STA $0C
LDA $FC
SEC
SBC $0C
TAX
STX $F6
LDA $06,X
BNE L0086
LDAL $00FFE6 ; LOGO BUG?
INC
BNE L008B
L0086 LDA #$8FF1
STA $F4
L008B PHK
PER L0091-1
BRA L0094
L0091 BRL L0503
L0094 LDX $00
LDY #$403C
LDA #$2BDA ; Z+
PHK
PER L00A3-1
BRL *-LA622
L00A3 BCS L00C7
LDX $00
LDY #$80E0
LDA #$7FF0
PHK
PER L00B4-1
BRL *-LA622
L00B4 BCS L00C7
LDX $00
LDY #$80E4
LDA #$3600
PHK
PER L00C5-1
BRL *-LA622
L00C5 BCC L00CC
L00C7 PER L01C0
BRA L00FC
L00CC PHK
PER L0298
PEA $5C00
PLB
PLA
STAL COPMGRV
PLA
STAL COPMGRV+2
PHK
PHK
PER L02CE
PLY
STY $E8
PLY
STY $EA
BIT $F4
BVC L00F7
LDA $00
TAX
PHK
PER L00F7-1
BRL *-LB6E0
L00F7 RTL
L00F8 ADRL $00000000
L00FC PLA
PHK
PHK
PHA
LDX $F4
PHK
PER L0109-1
BRL *-LAF42
L0109 PHK
PHK
PER L01ED
LDX $F4
PHK
PER L0114+2
L0114 BRL *-LAF42
PER L011C-1
BRA L012F
L011C BRL L03F2
PLA
PHK
PHK
PHA
LDX $F4
PHK
PER L012C-1
BRL *-LAF42
L012C BRL L04C3
L012F PEA $0000
PEA $0000
_ReadChar
PLA
AND #$007F
RTS
L0141 STR 'Can not Open Source File'
DB $00
L015B STR 'Can not Create List File'
DB $00
L0175 STR ' or Temporary Files'
DB $00
L018A STR 'Label/Symbol table'
DB $00
L019E STR ' Overflow'
DB $00
L01A9 STR 'Failure Creating File'
DB $00
L01C0 ASC 'Not enough memory available.'0D00
L01DE ASC 'Compiling %s.'0D00
L01ED ASC 'Type any key to continue.'0D00
L0208 ASC 'Fatal File number mix up. Id %d.'0D00
L022A ASC 'MAIN'00
L022F ASC 0C0D
ASC 'AC/BASIC Compiler Listing %s '
ASC ' Page %d'0D0D
ASC ' Source File: %s%s%s'0D0D0D00
L0285 ASC ' '00
L0287 ASC '. Include file: '00
L0298 PLP
REP #$3C
PLA
DEC
PLB
PHB
PHA
PHY
LDY #$0000
LDA ($03,S),Y
PLY
AND #$00FF
CMP #$0072
BEQ L02C9
CMP #$0073
BEQ L02C1
PEA $0081
PHK
PER L02BE-1
BRL L3CE4
L02BE SEP #$41
RTL
L02C1 LDA #$0006
STA $04
SEP #$41
RTL
L02C9 PEI $FA
PEI $F8
RTL
L02CE PHB
PLB
PHA
PER L02DE-1
PLA
PHP
CLC
ADC $04,S
STA $04,S
PLP
PLA
RTS
L02DE BRL L0319 ; LOGO ADDRESSES
BRL L03AB
BRL L0580
BRL L04C3
BRL L04A7
BRL L0492
BRL L047B
BRL L04CA
BRL L08D6
BRL L0845
BRL *-LA005
BRL L0565
BRL L0094
BRL L0516
BRL L0560
L030B PEI $DC
PHX
PHY
LDY $38
STY $44
LDY $3A
STY $46
BRA L032B
L0319 PEI $DC
PHX
PHY
LDA #$00CA
CLC
ADC $3C
STA $44
LDA $00
ADC $3E
STA $46
L032B LDY #$001C
LDA [$3C],Y
DEC
STA $48
LDY #$001E
LDA [$3C],Y
STA $4A
LDY $00
TYA
STA [$44]
INY
STZ $DC
SEP #$20
L0344 LDA [$48],Y
STA [$44],Y
BEQ L0355
INC $DC
CMP #$2F
BNE L0352
STZ $DC
L0352 INY
BRA L0344
L0355 LDX #$0005
LDA $04,S
BNE L0372
DEX
LDA $03,S
BNE L0372
DEX
LDA $02,S
BNE L0372
DEX
LDA $01,S
BNE L0372
REP #$20
PLA
PLA
INY
BRA L039C
MX %10
L0372 TXA
CLC
ADC $DC
L0376 CMP #$10
BCC L037E
DEY
DEC
BRA L0376
L037E LDA #$2E
STA [$44],Y
INY
PLA
STA [$44],Y
INY
PLA
STA [$44],Y
BEQ L038D
INY
L038D PLA
STA [$44],Y
BEQ L0393
INY
L0393 PLA
STA [$44],Y
BEQ L0399
INY
L0399 INY
REP #$20
L039C DEY
PLA
STA $DC
LDA $00
STA [$44],Y
DEY
TYA
ORA [$44]
STA [$44]
RTL
L03AB PHA
PHX
PHK
PHK
PER L054F
PLA
LDY #$001C
STA [$3C],Y
PLA
LDY #$001E
STA [$3C],Y
LDA #$0004
STA $1C
LDA #$07AE
CLC
ADC $3C
STA $38
LDA $00
ADC $3E
STA $3A
L03D1 LDA $1C
ORA #$4630
TAY
LDX $00
PHK
PER L03DD+2
L03DD BRL L030B
PEI $46
PEI $44
PHK
PER L03E8+2
L03E8 BRL *-LA455
DEC $1C
BNE L03D1
PLX
PLA
RTL
L03F2 PHK
PER L03F6+2
L03F6 BRL L0565
BIT $F4
BVC L0403
PHK
PER L0401+1
L0401 BRA L03AB
L0403 BRL *-LA3FA
L0406 TAX
PHK
PHK
PER L054F
PLA
LDY #$001C
STA [$3C],Y
PLA
LDY #$001E
STA [$3C],Y
TXA
L0419 ORA #$4630 ; 0F
TAY
LDX $00
PHK
PER L0423+2
L0423 BRL L0319
LDX $00
LDA #$00B7
BRA L0439
L042D PHK
PER L0431+2
L0431 BRL L0319
LDA #$0004
LDX $00
L0439 PEI $46
PEI $44
PHK
PER L0441+2
L0441 BRL *-LA354
BCS L0447
RTL
L0447 PHK
PHK
PER L0175
PHK
PHK
PER L015B
BRA L04B1
L0453 TAX
BNE L045E
TYA
PHK
PER L045B+1
L045B BRA L0419
RTS
L045E PHX
LDA $00
PHA
PHA
PHX
PHA
PHA
PHX
PHK
PER L046B+2
L046B BRL *-LA49E
BCS L0447
PHK
PER L0474+2
L0474 BRL *-LA487
BCS L0447
PLA
RTS
L047B LDA $04,S
LDY #$0008
CMP [$3C],Y
BEQ L0492
INX
LDY #$0010
LDA [$3C],Y
CMP #$ABCD
BNE L0492
BRL *-LA580
L0492 PEA $0000
PHX
PER L0208
BRL L00FC
L049C PEI $46
PEI $44
PHK
PHK
PER L01A9
BRA L04B1
L04A7 PHK
PHK
PER L019E
PHK
PHK
PER L018A
L04B1 PHK
PER L04BC
PEA $003C
PEI $EE
PEI $EC
L04BC RTL
DEX
BEQ L04C3
BRL L03F2
L04C3 PHK
PER L04C7+2
L04C7 BRL L0565
L04CA LDA #$0004
BIT $72
BEQ L04E6
PHK
PER L04D5+2
L04D5 BRL L0565
LDA $44
LDX $46
PHK
PER L04E0+2
L04E0 BRL L03AB
BRL *-LA3F0
L04E6 LDA #$001A
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
LDY #$0010
LDA [$3C],Y
CMP #$ABCD
BEQ L050B
LDX #$0001
BRA L0492
L0503 LDY $3C
STY $2C
LDY $3E
STY $2E
L050B PHK
PER L050F+1
L050F BRA L0516
LDA $A2
TCS
BRA L0558
L0516 LDX #$00E0
STZ $00
LDA $A2
L051D DEX
DEX
STZ $00,X
CPX #$0046
BCS L051D
STA $A2
LDA $00
LDY #$01D4
L052D STA [$2C],Y
DEY
DEY
BPL L052D
STA [$2C]
LDA #$ABCD
LDY #$0010
STA [$3C],Y
PHK
PHK
PER L054F
PLA
LDY #$001C
STA [$3C],Y
PLA
LDY #$001E
STA [$3C],Y
RTL
L054F ASC '6/Bprogr'00
L0558 PEA $0033
PEI $EE
PEI $EC
RTL
L0560 BCC L05A3
BRL L03F2
L0565 LDY #$000E
L0568 LDA [$3C],Y
BEQ L057B
PHY
PHA
PHK
PER L0572+2
L0572 BRL *-LA472
PLY
LDA #$0000
STA [$3C],Y
L057B DEY
DEY
BPL L0568
RTL
L0580 BIT $F4
BVC L059E
PEI $20
STZ $20
INC $20
PHK
PER L0595
PEA $0036
PEI $EE
PEI $EC
L0595 RTL
PLA
STA $20
BCC L059E
BRL L03F2
L059E RTL
L059F STR '0/'
DB $00
L05A3 LDA [$3C]
BNE L05B8
PHK
PHK
PER L059F
PEA $0006
PHK
PER L05B3+2
L05B3 BRL *-LA57B
LDA $00
L05B8 LDY #$0001
PER L05BE+2
L05BE BRL L0453
STA [$3C]
LDY #$0002
LDA [$3C],Y
LDY #$0002
PER L05CE+2
L05CE BRL L0453
LDY #$0002
STA [$3C],Y
LDA #$072C
CLC
ADC $3C
STA $28
LDA $00
ADC $3E
STA $2A
LDA $28
INC
LDY #$001C
STA [$3C],Y
LDA $2A
LDY #$001E
STA [$3C],Y
PEI $2A
PEI $28
PHK
PER L05FB+2
L05FB BRL *-LA2FC
BCC L062A
PEI $2A
PEI $28
PHK
PHK
PER L0141
PHK
PER L0614
PEA $003C
PEI $EE
PEI $EC
L0614 RTL
DEX
BNE L061B
BRL L04CA
L061B PHK
PER L0626
PEA $003F
PEI $EE
PEI $EC
L0626 RTL
BRL L04CA
L062A LDY #$0008
STA [$3C],Y
PHA
PHK
PER L0634+2
L0634 BRL *-LA537
LDY #$01B4
ASL
STA [$3C],Y
INY
INY
TXA
ROL
STA [$3C],Y
INC $28
LDY #$0000
TYX
SEP #$20
L064B LDA [$28],Y
BEQ L065B
INY
CMP #$2F
BNE L064B
LDA [$28],Y
BEQ L065B
TYX
BRA L064B
L065B REP #$20
PEI $2A
TXA
CLC
ADC $28
PHA
PHK
PHK
PER L01DE
LDX $F4
PHK
PER L066F+2
L066F BRL *-LAF42
LDA $A2
TCS
LDA #$0152
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
PEI $2E
PEI $2C
_ReadAsciiTime
LDY #$0000
L0691 LDA [$2C],Y
AND #$7F7F
STA [$2C],Y
INY
INY
CPY #$0014
BCC L0691
LDA $00
STA [$2C],Y
PHK
PHK
PER L022A
PER L06AB+2
L06AB BRL L08A4
LDA #$0C8C
CLC
ADC $3C
STA $BE
LDA $00
ADC $3E
STA $C0
LDA #$1298
CLC
ADC $3C
STA $6E
LDA $00
ADC $3E
STA $70
LDA #$FF00
TRB $70
LDA $72
LDY #$001A
STA [$3C],Y
BIT #$0020
BEQ L06E0
LDA #$0080
TSB $71
L06E0 LDA #$0046
LDY #$016A
STA [$3C],Y
LDA #$179E
CLC
ADC $3C
STA $24
LDA $00
ADC $3E
STA $26
LDA #$01EE
CLC
ADC $3C
LDX $3E
BCC L0701
INX
L0701 LDY #$0020
STA [$3C],Y
STA $28
LDY #$0024
STA [$3C],Y
TXA
STA $2A
LDY #$0026
STA [$3C],Y
LDY #$0022
STA [$3C],Y
LDY $24
STY $AC
LDY $26
STY $AE
LDA $00
STA [$24]
INC $24
INC $24
STA [$24]
STA [$28]
LDY #$004A
STA [$3C],Y
INC
LDY #$0046
STA [$3C],Y
LDY #$0038
STA [$3C],Y
LDY #$0086
STA [$3C],Y
LDY #$008F
STA [$3C],Y
INC
LDY #$0097
STA [$3C],Y
INC
LDY #$009F
STA [$3C],Y
INC
LDY #$00C2
STA [$3C],Y
LDY #$00A7
STA [$3C],Y
LDA #$FFFF
LDY #$002E
STA [$3C],Y
PHK
PER L0772
PEA $0000
PEI $EE
PEI $EC
L0772 RTL
LDA #$04F8
CLC
ADC $3C
STA $38
LDA $00
ADC $3E
STA $3A
INC $38
LDX $00
TXY
PHK
PER L078A+2
L078A BRL L030B
LDA [$38]
AND #$00FF
DEC $38
STA [$38]
PHK
PER L07A1
PEA $002D
PEI $EE
PEI $EC
L07A1 RTL
LDA #$01D4
CLC
ADC $3C
STA $28
LDA $00
ADC $3E
STA $2A
SEP #$20
LDX $00
INX
BIT $73
BPL L07BA
INX
L07BA LDY #$0019
TXA
L07BE STA [$28],Y
DEY
BPL L07BE
REP #$20
TXA
LDY #$0050
STA [$3C],Y
PHK
PER L07D3
PHK
PER L3CEF
L07D3 RTL
LDY #$000C
LDA [$3C],Y
BEQ L0838
PER L07DE+2
L07DE BRL L0865
LDY #$003C
LDA [$3C],Y
BNE L07EA
BRA L0838
L07EA LDY #$016A
LDA [$3C],Y
CMP #$0034
BCC L07FB
PHK
PER L07F8+2
L07F8 BRL L08D6
L07FB PHK
PHK
PER L087C
PHK
PER L0804+1
L0804 BRA L0845
PLA
PLA
LDY #$000A
STZ $20
TSC
STA $22
L0810 INC $20
LDX $20
PER L0817+2
L0817 BRL L097F
BCS L0833
PHA
PHY
PEA $0000
PEI $20
PHK
PHK
PER L0873
PHK
PER L082C+1
L082C BRA L0845
LDA $22
TCS
BRA L0810
L0833 PER L0836+1
L0836 BRA L0865
L0838 LDY #$0036
LDA [$3C],Y
BNE L0842
BRL L099D
L0842 BRL L0C73
L0845 LDY #$016A
LDA [$3C],Y
TAX
INC
LDY #$016A
STA [$3C],Y
CPX #$003C
BCC L085C
PHK
PER L085A+1
L085A BRA L08D6
L085C LDY #$000C
LDA [$3C],Y
TAX
BRL *-LAF42
L0865 PHK
PHK
PER L08A2
PHK
PER L086E+1
L086E BRA L0845
PLA
PLA
RTS
L0873 ASC ' %d %s'0D00
L087C ASC 0D
ASC 'Source File and Include File list:'0D0D00
L08A2 ASC 0D00
L08A4 PLY
PLX
PLA
XBA
PHA
PLB
PLB
PHY
PEI $26
PEI $24
PHX
LDA #$016C
CLC
ADC $3C
STA $24
LDA $00
ADC $3E
STA $26
LDY $00
SEP #$20
L08C3 LDA ($01,S),Y
STA [$24],Y
BEQ L08CC
INY
BRA L08C3
L08CC REP #$20
PLA
PLA
STA $24
PLA
STA $26
RTS
L08D6 PEI $20
TSC
STA $20
LDY #$0038
LDA [$3C],Y
TAX
DEC
BEQ L08F5
PER L08E7+2
L08E7 BRL L097F
BCS L08F5
PHA
PHY
PHK
PHK
PER L0287
BRA L08FF
L08F5 PHK
PHK
PER L0285
PHK
PHK
PER L0285
L08FF LDX #$0001
PER L0905+1
L0905 BRA L097F
PHA
PHY
LDA $00
PHA
LDA #$0006
LDY #$016A
STA [$3C],Y
LDY #$0168
LDA [$3C],Y
TAX
BNE L091D
INC
L091D PHA
INC
LDY #$0168
STA [$3C],Y
LDA #$0152
CLC
ADC $3C
LDY $3E
BCC L092F
INY
L092F PHY
PHA
PHK
PHK
PER L022F
TXA
BNE L093E
LDA $01,S
INC
STA $01,S
L093E LDY #$000C
LDA [$3C],Y
BNE L0970
LDA #$072D
CLC
ADC $3C
LDY $3E
BCC L0950
INY
L0950 PHY
PHA
PLA
LDY #$001C
STA [$3C],Y
PLA
LDY #$001E
STA [$3C],Y
LDY #$534C
LDX #$0054
PHK
PER L0968+2
L0968 BRL L042D
LDY #$000C
STA [$3C],Y
L0970 TAX
PHK
PER L0975+2
L0975 BRL *-LAF42
LDA $20
TCS
PLA
STA $20
RTL
L097F INX
LDY #$000A
L0983 LDA [$E0],Y
BEQ L099B
TAY
DEX
BNE L0983
TYA
CLC
ADC #$0004
CLC
ADC $E0
TAY
LDA $E2
BCC L0999
INC
L0999 CLC
RTS
L099B SEC
RTS
L099D TSC
STA $40
LDY #$001A
LDA [$3C],Y
STA $72
LDY #$0086
LDA [$3C],Y
LDY #$0010
STA [$E4],Y
LDA #$0001
LDY #$0086
STA [$3C],Y
ASL
ASL
TAY
LDA $00
STA [$E4],Y
INY
INY
STA [$E4],Y
INY
INY
STA [$E4],Y
INY
INY
STA [$E4],Y
LDA #$1096
CLC
ADC $3C
STA $C2
LDA $00
ADC $3E
STA $C4
LDA #$07AE
CLC
ADC $3C
STA $C6
LDA $00
ADC $3E
STA $C8
LDA #$1298
CLC
ADC $3C
STA $CA
LDA $00
ADC $3E
STA $CC
LDA #$0C8C
CLC
ADC $3C
STA $BE
LDA $00
ADC $3E
STA $C0
LDA #$1F9E
CLC
ADC $3C
STA $CE
LDA $00
ADC $3E
STA $D0
LDA #$149A
CLC
ADC $3C
STA $D2
LDA $00
ADC $3E
STA $D4
LDA #$0004
PHK
PER L0A27+2
L0A27 BRL L0406
LDY #$0006
STA [$3C],Y
LDY #$0004
LDA [$3C],Y
BEQ L0A43
TAX
LDA $00
PHA
PHA
PHX
PHK
PER L0A40+2
L0A40 BRL *-LA49E
L0A43 LDY #$0042
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
LDY #$01BA
PHA
TXA
STA [$3C],Y
DEY
DEY
PLA
STA [$3C],Y
DEY
DEY
ASL
PHA
TXA
ROL
STA [$3C],Y
PLA
DEY
DEY
STA [$3C],Y
PHK
PER L0A6A+2
L0A6A BRL *-L8F9C
LDA $00
LDY #$008A
STA [$3C],Y
LDY #$00C6
STA [$3C],Y
LDY #$00C8
STA [$3C],Y
LDY #$0084
STA [$3C],Y
LDY #$0088
STA [$3C],Y
LDY #$002C
STA [$3C],Y
STZ $5C
PHA
PHA
LDA [$3C]
PHA
LDA $00
PHK
PER L0A9A+2
L0A9A BRL *-LA49E
PER L0AA0+2
L0AA0 BRL L3C9E
BCC L0AA8
BRL L3B9B
L0AA8 PER L0AAB+2
L0AAB BRL L3B48
LDA [$28]
CMP #$0002
BEQ L0AB8
BRL L3B9B
L0AB8 PER L0ABB+2
L0ABB BRL L0B62
STZ $1C
STZ $1E
LDY $5C
LDX #$0900
STX $08
PHY
PER L0AED
PER L0AD0+2
L0AD0 BRL L3B1E
STY $5C
PLA
PER L0AD9+2
L0AD9 BRL L256B
LDA $5C
CLC
LDY #$0084
ADC [$3C],Y
PLY
INY
STA [$CE],Y
STZ $90
BRL L21FC
L0AED PEA $0000
PEA $0002
DB $FF ; LOGO BUG?
L0AF4 PER L0AF7+2
L0AF7 BRL L2114
PER L0AFD+2
L0AFD BRL L3B48
LDA #$00FF
TRB $92
LDA [$28]
XBA
AND #$00FF
ASL
CMP #$0036
BMI L0B1E
PEA $0045
PHK
PER L0B18+2
L0B18 BRL L3CE4
BRL L21FC
L0B1E PER L0B2C
TAY
PHK
PLB
LDA ($01,S),Y
CLC
ADC $01,S
STA $01,S
RTS
L0B2C DB $26
DB $01
DB $67
DB $12
DB $C0
DB $01
DB $96
DB $03
DB $98
DB $03
DB $D2
DB $03
DB $3B
DB $12
DB $3E
DB $13
DB $B5
DB $13
DB $AB
DB $13
DB $79
DB $01
DB $5B
DB $12
DB $9D
DB $12
DB $8B
DB $12
DB $BA
DB $13
DB $2A
DB $14
DB $83
DB $14
DB $DB
DB $14
DB $50
DB $15
DB $F3
DB $01
DB $E9
DB $02
DB $45
DB $03
DB $56
DB $02
DB $24
DB $02
DB $F2
DB $02
DB $3A
DB $06
DB $83
DB $06
L0B62 LDY #$0086
LDA [$3C],Y
PHA
ASL
ASL
ASL
ASL
TAX
CLC
ADC #$000A
TAY
LDA [$E4],Y
STA $16
LDA #$0082
LDY $5C
STA [$CE],Y
INY
STY $5E
INY
INY
LDA #$0007
STA $04
PER L0B8A+1
L0B8A BRA L0BDB
LDA $01,S
DEC
BNE L0B9D
LDX $00
LDA #$0003
STA $04
PER L0B9B+1
L0B9B BRA L0BDB
L0B9D STY $5C
PER L0BA2+1
L0BA2 BRA L0BF9
LDA $5C
DEC
DEC
DEC
LDY $5E
STA [$CE],Y
LDY $5C
LDA #$FFA9
STA [$CE],Y
INY
INY
LDA #$A0FF
STA [$CE],Y
INY
INY
LDA $16
DEC
DEC
STA [$CE],Y
INY
INY
LDA #$0097
STA [$CE],Y
INY
LDA #$005C
PLX
DEX
BEQ L0BD5
LDA #$0064
L0BD5 STA [$CE],Y
INY
STY $5C
RTS
L0BDB PHY
TXY
LDA [$E4],Y
PLY
STA [$CE],Y
INY
INY
INX
INX
DEC $04
BPL L0BDB
DEY
DEY
DEY
DEY
LDA $00
STA [$CE],Y
INY
INY
STA [$CE],Y
INY
INY
RTS
L0BF9 LDY #$0086
LDA [$3C],Y
PHA
LDY $5C
LDA #$00F4
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
LDA #$00F4
STA [$CE],Y
INY
LDA #$0002
STA [$CE],Y
INY
INY
STY $5C
LDA #$0800
STA $08
PER L0C23+2
L0C23 BRL L256B
RTS
L0C27 LDY #$0086
LDA [$3C],Y
TAX
LDA #$0013
DEX
BNE L0C36
LDA #$001B
L0C36 SEC
LDY #$0084
SBC [$3C],Y
SEC
SBC $5C
DEC
DEC
DEC
PHA
LDY $5C
LDA #$0082
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
STY $5C
RTS
LDY $5C
LDA #$7602
STA [$CE],Y
INY
INY
STY $5C
PER L0C61+1
L0C61 BRA L0C87
L0C63 LDA $A2
TCS
STZ $08
INC $08
INC $08
PHK
PER L0C70+2
L0C70 BRL L6890
L0C73 PHK
PER L0C77+2
L0C77 BRL *-L8F68
LDA $A2
TCS
PHK
PER L0C81+2
L0C81 BRL *-L9097
BRL L04CA
L0C87 PER L0C8A+1
L0C8A BRA L0C27
PER L0C8F+2
L0C8F BRL L2114
LDY #$0086
LDA [$3C],Y
ASL
ASL
ASL
INC
ASL
TAX
LDY #$0084
LDA [$3C],Y
TXY
STA [$E4],Y
RTS
LDA #$0080
TRB $93
LDY #$0002
LDA [$28],Y
TAX
PER L0CB4+2
L0CB4 BRL L1DFC
LDY #$0004
PER L0CBD+2
L0CBD BRL L2114
LDA #$0080
TSB $8C
LDY #$0002
LDA [$BE],Y
CLC
ADC #$0004
TAX
LDY #$0084
LDA [$3C],Y
TXY
STA [$E0],Y
INX
INX
LDY #$0086
LDA [$3C],Y
TXY
SEP #$20
STA [$E0],Y
REP #$20
LDA #$0008
STA $2C
BRL L0F04
LDY #$0002
LDA [$28],Y
PHA
LDY #$0032
LDA [$3C],Y
INC
LDY #$0032
STA [$3C],Y
DEC
ASL
ASL
PHA
LDY #$0088
LDA [$3C],Y
PLY
STA [$C6],Y
TAX
LDA #$8000
INY
INY
STA [$C6],Y
PLA
CLC
STX $02
ADC $02
LDY #$0088
STA [$3C],Y
BRL L0AF4
LDA [$28]
AND #$00FF
DEC
DEC
PEA $0000
PHA
CLC
LDY #$008A
ADC [$3C],Y
LDY #$008A
STA [$3C],Y
INC $28
INC $28
PEI $2A
PEI $28
LDY #$0002
LDA [$3C],Y
PHA
LDX #$0004
PHK
PER L0D4B+2
L0D4B BRL L047B
BRL L0AF4
LDY #$0002
LDA [$28],Y
LSR
LSR $72
ROL
STA $72
AND #$FCA7
STA $1C
PER L0D72
LDY $5C
PER L0D69+2
L0D69 BRL L3B1E
PLA
STY $5C
BRL L21FC
L0D72 LDA $88
AND #$0358
ORA #$0000
STA $88
DB $FF ; LOGO BUG?
L0D7D LDA #$0000
STA $8A
DB $FF ; LOGO BUG?
LDA #$04F8
CLC
ADC $3C
STA $38
LDA $00
ADC $3E
STA $3A
LDY #$0002
LDA [$28],Y
BEQ L0DE6
CLC
ADC #$0009
TAY
LDA [$E0],Y
AND #$00FF
STA [$38]
STA $04
INY
LDX #$0002
SEP #$20
L0DAC LDA [$E0],Y
PHY
TXY
STA [$38],Y
PLY
INX
INY
DEC $04
BNE L0DAC
TXY
LDA $00
STA [$38],Y
REP #$20
STZ $04
DEC $04
PHK
PER L0DCF
PEA $0006
PEI $EE
PEI $EC
L0DCF RTL
TYA
BEQ L0DF9
CLC
ADC #$0009
TAY
LDA [$E0],Y
AND #$00FF
INC
CLC
STY $02
ADC $02
TAY
LDA [$E0],Y
L0DE6 PER L0D7D
STA $1C
LDY $5C
PER L0DF0+2
L0DF0 BRL L3B1E
PLA
STY $5C
BRL L21FC
L0DF9 LDY #$0002
LDA [$28],Y
TAX
PHK
PER L0E0A
PEA $002A
PEI $EE
PEI $EC
L0E0A RTL
LDA $00
BRA L0DE6
PEA $0000
PEA $0002
DB $FF ; LOGO BUG?
PER L0E19+2
L0E19 BRL L0C27
BRL L21FC
STZ $08
LDX $08
INC $08
INC $08
LDY #$0002
LDA [$28],Y
BEQ L0E4F
INC $08
INC
BEQ L0E4F
INC
INC
INC
PHA
INC $08
LDY $5C
LDA #$00F4
STA [$CE],Y
INY
STY $5C
PLX
STZ $22
PER L0E49+2
L0E49 BRL L1DDC
LDX #$0002
L0E4F PER L0E52+1
L0E52 BRA L0E57
BRL L21FC
L0E57 LDY $5C
LDA #$00F4
STA [$CE],Y
INY
TXA
STA [$CE],Y
INY
INY
STY $5C
LDA #$0900
TSB $08
PER L0E6E+2
L0E6E BRL L256B
RTS
STZ $08
LDX $00
INC $08
LDY #$0002
LDA [$28],Y
PHA
BEQ L0E85
LDA #$0005
STA $08
L0E85 PER L0E88+1
L0E88 BRA L0E57
PLA
BNE L0E99
L0E8D LDY $5C
LDA #$006B
STA [$CE],Y
INC $5C
BRL L21FC
L0E99 CLC
ADC #$0004
TAX
LDY $5C
LDA #$688B
STA [$CE],Y
INY
INY
LDA #$4B68
STA [$CE],Y
INY
INY
LDA #$0062
STA [$CE],Y
INY
STY $5C
LDA #$FFFD
STA $22
PER L0EBE+2
L0EBE BRL L1E0B
BRA L0E8D
BRA L0ECC
LDA $00
LDY #$0C8A
STA [$3C],Y
L0ECC LDY #$0C8A
LDA [$3C],Y
TAX
LDA [$28]
AND #$00FF
DEC
DEC
STA $04
LDY #$0002
L0EDE DEC $04
DEC $04
BMI L0EF4
LDA [$28],Y
PHX
TYX
PLY
STA [$BE],Y
PHX
TYX
PLY
INX
INX
INY
INY
BRA L0EDE
L0EF4 TXA
LSR
LSR
LDY #$0C8A
STA [$3C],Y
BRL L0AF4
LDA #$0002
STA $2C
L0F04 LDA #$0014
LDY #$1092
STA [$3C],Y
LDA $00
LDY #$1090
STA [$3C],Y
STZ $12
STZ $88
STZ $8A
L0F19 STZ $B8
STZ $8E
LDA #$007F
TRB $90
LDX $2C
TXY
INX
STX $30
INC $30
LDA [$28],Y
XBA
STA $14
LDA $14
SEP #$20
BPL L0F74
AND #$FC
LSR
LSR
DEC
DEC
BEQ L0F4E
DEC
DEC
DEC
BEQ L0F4E
DEC
BEQ L0F74
DEC
BEQ L0F74
LDA #$80
TSB $8E
BRA L0F74
L0F4E LDY $30
L0F50 LDA [$28],Y
BEQ L0F65
INY
CMP #$13
BNE L0F50
STY $30
LDA [$28],Y
CMP #$11
BNE L0F74
INC $30
BRA L0F74
L0F65 REP #$20
PEA $0045
PHK
PER L0F6E+2
L0F6E BRL L3CE4
BRL L21FC
L0F74 TXY
L0F75 INY
LDA [$28],Y
BNE L0F75
INY
REP #$20
STY $2E
LDA #$00C0
TRB $8D
LDA #$0080
TSB $8D
PER L0F8C+2
L0F8C BRL L27B2
L0F8F BIT $13
BPL L0F9D
BVC L0F9D
PER L1D64
PEA $0000
BRA L0FA3
L0F9D PER L1D4C
PEA $0000
L0FA3 PLA
TAY
INC
INC
PHA
PHK
PLB
LDA ($03,S),Y
BMI L0FF6
BIT $8C
BPL L0FC0
CMP #$1919
BNE L0FC0
BVS L0FD3
LDA #$00C0
TRB $8D
LDA ($03,S),Y
L0FC0 PER L0FC3+2
L0FC3 BRL L221B
BCS L0FCE
BIT $87
BVS L0FA3
BRA L0FF6
L0FCE PLA
PLA
BRL L21FC
L0FD3 LDA #$00C0
TRB $8D
PLA
PLA
BRA L0F8F
PEA $005D
PHK
PER L0FE3+2
L0FE3 BRL L3CE4
BRL L21FC
L0FE9 PEA $0045
PHK
PER L0FF0+2
L0FF0 BRL L3CE4
BRL L21FC
L0FF6 PLA
PLA
LDA #$00FF
TRB $91
LDA $14
XBA
ASL
BCC L1008
BMI L1048
BRL L1B27
L1008 BPL L100D
BRL L17AC
L100D BRA L101B
L100F LDA #$007F
TRB $90
LDA $2E
STA $2C
BRL L0F19
L101B LDA #$003F
AND $14
LSR
LSR
DEC
BEQ L1048
DEC
BNE L102B
BRL L13BA
L102B DEC
BNE L1031
BRL L11C0
L1031 DEC
BEQ L1095
DEC
BNE L103A
BRL L13BA
L103A DEC
BNE L1040
BRL L112D
L1040 DEC
BNE L1046
BRL L11B8
L1046 BRA L0FE9
L1048 LDA #$00FF
TRB $91
LDY $30
INY
PER L1053+2
L1053 BRL L2A60
BCC L105B
BRL L21FC
L105B LDY $30
LDA [$28],Y
TAX
INY
LDA [$28],Y
AND #$FF00
BNE L0FE9
LDA $14
BPL L106F
BRL L0FE9
L106F XBA
AND #$007F
DEC
ASL
TAY
TXA
STA [$C2],Y
BIT $8F
BVC L100F
LDA $12
AND #$00FF
CMP #$0077
BMI L108C
CMP #$007B
BMI L100F
L108C PER L108F+2
L108F BRL L2A03
BRL L100F
L1095 LDA $00
LDY #$00BC
STA [$3C],Y
LDY #$00C0
STA [$3C],Y
LDA [$BE]
AND #$003F
LSR
LSR
DEC
DEC
BEQ L10BC
DEC
BEQ L10BC
PEA $0002
PHK
PER L10B6+2
L10B6 BRL L3CE4
BRL L21FC
L10BC LDY #$0002
LDA [$BE],Y
CLC
ADC #$0003
TAY
LDA [$E0],Y
AND #$00FF
TYX
LDY #$00C4
STA [$3C],Y
STA $BC
TXY
INY
LDA [$E0],Y
BNE L10E6
PEA $0023
PHK
PER L10E0+2
L10E0 BRL L3CE4
BRL L21FC
L10E6 STA $06
INY
INY
INY
INY
LDA [$E0],Y
STA $04
INY
LDA [$E0],Y
AND #$00FF
INC
CLC
STY $02
ADC $02
STA $BA
LDY $5C
LDA #$00F4
TAX
STA [$CE],Y
INY
LDA $06
STA [$CE],Y
INY
INY
TXA
STA [$CE],Y
INY
LDA #$0002
STA [$CE],Y
INY
INY
STY $5C
LDA #$0004
AND $04
ORA #$0740
STA $08
PER L1127+2
L1127 BRL L256B
BRL L21FC
L112D LDA #$0080
TSB $8C
INC $30
INC $30
BRL L13BA
L1139 LDA #$0003
AND $14
BEQ L1147
LDY $5C
LDA #$06A5
BRA L1159
L1147 LDY $5C
DEY
DEY
BMI L1154
LDA [$CE],Y
CMP #$0485
BEQ L115D
L1154 LDA #$04A5
INY
INY
L1159 STA [$CE],Y
INY
INY
L115D STY $5C
LDA #$0080
TRB $8C
BRL L21FC
LDY #$0002
LDA [$28],Y
STA [$BE],Y
CLC
ADC #$0008
TAY
LDA [$E0],Y
AND #$0003
STA [$BE]
STZ $36
LDA #$0080
TRB $92
TRB $8F
LDY $00
PER L1188+2
L1188 BRL L2F1E
BCC L1190
BRL L21FC
L1190 LDY $5C
LDA $34
STA $1C
PER L11A5
PER L119C+2
L119C BRL L3B1E
PLA
STY $5C
BRL L21FC
L11A5 LDA [$00],Y
BPL L11AD
LDA $06
STA $04
L11AD LDA $04
DB $FF ; LOGO BUG?
LDA #$0100
TSB $72
BRL L21FC
L11B8 LDA #$FFFC
AND $14
INC
STA $14
L11C0 LDY $30
LDA [$28],Y
CMP #$8062
BNE L11CC
BRL L21FC
L11CC LDY #$0100
STY $B2
LDA $00
STA [$28],Y
LDY $30
L11D7 LDA [$28],Y
AND #$00FF
BEQ L11E1
INY
BRA L11D7
L11E1 STY $AE
STZ $B8
STZ $6E
STZ $70
L11E9 LDY $AE
LDA $14
LSR
BCS L1215
LDX $00
LDY $30
INY
INY
LDA [$28],Y
AND #$00FF
CMP #$0064
BNE L1212
LDA [$28],Y
BPL L1212
XBA
AND #$007F
BEQ L1212
CMP #$0004
BPL L1212
ASL
ASL
TAX
L1212 BRL L12A2
L1215 DEY
CPY $30
BMI L1290
BEQ L1290
LDA [$28],Y
AND #$00FF
XBA
XBA
BMI L1231
L1225 XBA
TYX
LDY $B2
DEY
STA [$28],Y
STY $B2
TXY
BRA L1215
L1231 DEY
CPY $30
BEQ L1290
STY $AE
STZ $AC
LDA [$28],Y
AND #$00FF
STA $AC
CMP #$0064
BEQ L1284
LDA #$0080
TSB $8F
TYA
INC $6E
LDX #$0400
PER L1254+2
L1254 BRL L157A
LDX $AC
TXA
AND #$00FF
CMP #$006C
BEQ L126D
CMP #$006D
BEQ L126D
L1267 TXA
XBA
LDY $AE
BRA L1225
L126D TXA
XBA
TAX
AND #$00FF
CMP #$006F
BEQ L1267
PEA $0074
PHK
PER L127F+2
L127F BRL L3CE4
BRA L1267
L1284 LDA [$28],Y
LDY $B2
DEY
STA [$28],Y
STY $B2
BRL L11E9
L1290 LDY $5C
LDA #$00F4
STA [$CE],Y
INY
LDA $B8
STA [$CE],Y
INY
INY
STY $5C
LDX $00
L12A2 LDY $30
LDA [$28],Y
BIT $90
BVC L12BC
AND #$7F00
STA $22
CLC
ADC #$0000
STA $08
LDA #$0003
AND $91
BRA L12CE
L12BC AND #$FF00
STA $22
CLC
ADC #$0000
STX $08
TSB $08
LDA #$0003
AND $14
L12CE BIT $8F
BPL L12D5
ORA #$0040
L12D5 TSB $08
PER L12DA+2
L12DA BRL L256B
LDA #$0080
STA [$CE],Y
INY
LDA $14
TYX
LSR
BCS L1300
DEY
STY $5C
L12EC BIT $90
BVS L12F3
BRL L21FC
L12F3 STZ $08
LDA $91
LSR
ROR $08
LSR
ROR $08
BRL L1AC9
L1300 STY $A0
LDA $00
STA [$CE],Y
INX
TXY
BIT $8F
BPL L1312
PER L130F+2
L130F BRL L1394
L1312 LDX $B2
INX
SEP #$20
PHY
TXY
LDA [$28],Y
CMP #$2C
BNE L1320
INX
L1320 PLY
L1321 PHY
TXY
LDA [$28],Y
BEQ L132E
PLY
STA [$CE],Y
INY
INX
BRA L1321
L132E REP #$20
PLY
LDA $22
XBA
CMP #$009E
BNE L133E
PER L133C+1
L133C BRA L135F
L133E LDA $00
STA [$CE],Y
INY
STY $5C
LDX $70
BEQ L1352
L1349 STA [$CE],Y
INY
DEX
BNE L1349
STY $5C
DEY
L1352 TYA
DEC
SEC
SBC $A0
LDY $A0
ORA [$CE],Y
STA [$CE],Y
BRA L12EC
L135F LDA $14
BIT #$0002
BNE L1386
L1366 BIT $8F
BPL L1393
LDA #$00FF
STA [$CE],Y
INY
LDA $00
STA [$CE],Y
TYA
INY
INY
PHY
CLC
LDY #$0084
ADC [$3C],Y
LDY #$01D4
STA [$3C],Y
PLY
BRA L1393
L1386 LDA #$0080
BIT $8F
BMI L1391
TSB $90
BRA L1366
L1391 TRB $90
L1393 RTS
L1394 PHY
LDY #$0086
LDA [$3C],Y
STA $19
LDA #$0003
STA $16
LDY #$01D4
LDA [$3C],Y
STA $17
LDA $01,S
CLC
LDY #$0084
ADC [$3C],Y
STA $1A
PER L13B5+2
L13B5 BRL L2173
PLY
RTS
L13BA LDA $12
BEQ L13D2
BIT $89
BPL L13D2
LDA #$0080
TRB $8A
LDY $5C
LDA #$0485
STA [$CE],Y
INC $5C
INC $5C
L13D2 LDY $2C
INY
INY
LDA [$28],Y
AND #$00FF
SEC
SBC #$0077
BPL L13E4
BRL L1496
L13E4 CMP #$0004
BCC L13EC
BRL L1496
L13EC TAX
LDA $BC
DEC
STA $BC
BPL L1401
PEA $0019
PHK
PER L13FB+2
L13FB BRL L3CE4
BRL L21FC
L1401 CLC
ADC $BA
TAY
LDA [$E0],Y
AND #$0003
SEC
STX $02
SBC $02
BEQ L141E
PEA $000D
PHK
PER L1418+2
L1418 BRL L3CE4
BRL L21FC
L141E LDY $30
LDA [$28],Y
AND #$00FF
CMP #$006E
BEQ L1468
CMP #$0068
BNE L1496
INY
PER L1433+2
L1433 BRL L2A60
LDY $30
LDA [$28],Y
AND #$00FF
CMP #$0077
BCC L1447
CMP #$007B
BCC L1451
L1447 PEA $0045
PHK
PER L144E+2
L144E BRL L3CE4
L1451 STZ $12
LDY $5C
LDA #$32D4
STA [$CE],Y
INY
INY
LDA #$30D4
STA [$CE],Y
INY
INY
STY $5C
BRL L21FC
L1468 LDY $30
LDA [$28],Y
XBA
AND #$007F
DEC
ASL
ASL
TAY
LDA [$BE],Y
AND #$00FF
CMP #$00FF
BEQ L1496
LDA #$0080
TSB $8F
LDA $30
LDX #$0400
PER L148B+2
L148B BRL L157A
LDA #$0080
TRB $8F
BRL L21FC
L1496 LDY $30
INY
PER L149C+2
L149C BRL L2A60
BIT $8A
BMI L14A6
BRL L15B5
L14A6 LDY $30
LDA $12
BNE L14AF
BRL L0FE9
L14AF CMP [$28],Y
BEQ L14BE
LDA $12
PER L14B8+2
L14B8 BRL L2C19
BRL L15B5
L14BE LDA #$C000
AND $08
CLC
ROL
ROL
ROL
PHA
LDA #$0003
AND $14
CMP $01,S
BEQ L14E3
PLA
ASL
ASL
STA $08
PER L14D9+2
L14D9 BRL L2A55
LDA $5C
STA $5E
BRL L15C8
L14E3 PLA
L14E4 BIT $8B
BPL L150C
L14E8 STZ $08
DEC $08
PER L14EF+2
L14EF BRL L2A12
LDA #$00FC
AND $14
CMP #$0018
BNE L14FF
BRL L1139
L14FF LDY $5C
LDA #$0060
STA [$CE],Y
INY
STY $5C
BRL L21FC
L150C LDA #$0003
AND $14
CMP #$0003
BEQ L1545
PER L1519+2
L1519 BRL L1675
BCC L1521
BRL L21FC
L1521 BIT $89
BPL L152E
PER L1528+2
L1528 BRL L3145
BRL L21FC
L152E LDA #$0003
AND $14
CLC
ROR
ROR
ROR
ORA #$0106
STA $34
PER L153F+2
L153F BRL L3151
BRL L21FC
L1545 LDA #$0080
TSB $92
LDA #$0400
STA $36
PER L1552+2
L1552 BRL L1677
LDA $36
ORA #$C000
STA $34
LDA #$010A
STA $36
PER L1564+2
L1564 BRL L3151
LDA #$0080
TRB $92
LDA #$050F
STA $08
PER L1574+2
L1574 BRL L256B
BRL L21FC
L157A INC
INC
STA $06
LDA #$3F7F
TRB $8A
BRA L1593
L1585 INC
INC
STA $06
PHX
PER L158D+2
L158D BRL L2A03
PLX
STZ $8A
L1593 LDA #$0013
STA $0A
LDA #$8000
STA $08
STZ $60
STZ $64
STZ $88
LDA #$0040
TRB $8C
LDA $5C
STA $5E
STX $36
PER L15B1+2
L15B1 BRL L28B7
RTS
L15B5 LDA $5C
STA $5E
LDA $30
LDX #$0106
PER L15C1+1
L15C1 BRA L1585
BCC L15C8
BRL L21FC
L15C8 LDA #$0003
AND $14
PHA
LDA $08
LSR
LSR
AND #$0003
STA $08
PLX
CMP #$0003
BNE L15F3
TXA
CPX #$0003
BNE L15E6
BRL L14E4
L15E6 PEA $0002
PHK
PER L15ED+2
L15ED BRL L3CE4
BRL L21FC
L15F3 CPX #$0003
BEQ L15E6
TXA
CMP $08
BNE L1606
BIT $8B
BPL L1604
BRL L14E8
L1604 BRA L1639
L1606 CLC
ROR
ROR
ROR
TSB $08
LDA #$000B
STA $0A
PER L1614+2
L1614 BRL L2584
PER L161A+2
L161A BRL L2D64
BCC L1622
BRL L21FC
L1622 BIT $8B
BMI L165D
BVS L1639
BIT $89
BVC L162F
BRL L14E4
L162F LDY $30
STA [$28],Y
INY
INY
STY $06
BRA L163F
L1639 LDY $30
INY
INY
STY $06
L163F LDA $5E
STA $5C
PER L1646+1
L1646 BRA L1675
BCC L164D
BRL L21FC
L164D STZ $64
LDA #$8000
STA $08
PER L1657+2
L1657 BRL L28B7
BRL L21FC
L165D BIT $89
BVC L1664
BRL L14E8
L1664 LDY $30
STA [$28],Y
TYA
LDX #$0106
PER L166F+2
L166F BRL L1585
BRL L14E8
L1675 STZ $36
L1677 LDY $2C
INY
INY
LDA [$28],Y
TAX
AND #$00FF
CMP #$006E
BNE L169F
TXA
XBA
AND #$007F
DEC
ASL
ASL
TAY
PER L1692+2
L1692 BRL L2F1E
BCS L169E
LDA #$3FFF
AND $34
STA $36
L169E RTS
L169F CMP #$0068
BNE L16A7
BRL L176B
L16A7 SEC
SBC #$0077
BMI L16D0
TAX
STA $16
CMP #$0003
BEQ L16DD
BCS L16D0
LDY #$00BC
LDA [$3C],Y
STA $1C
LDY #$00BE
STA [$3C],Y
CPX #$0001
BMI L16F4
BEQ L16F8
CLC
ADC #$0008
BRA L16FC
L16D0 PEA $0045
PHK
PER L16D7+2
L16D7 BRL L3CE4
SEC
BRA L169E
L16DD LDY #$00C0
LDA [$3C],Y
STA $1C
LDY #$00C2
STA [$3C],Y
INC
INC
INC
INC
LDY #$00C0
STA [$3C],Y
BRA L1701
L16F4 INC
INC
BRA L16FC
L16F8 INC
INC
INC
INC
L16FC LDY #$00BC
STA [$3C],Y
L1701 LDY $2C
INY
INY
LDA [$28],Y
XBA
AND #$007F
DEC
ASL
ASL
CLC
ADC #$0048
STA $1E
ORA #$0200
STA $36
INC
INC
STA $1F
LDY $5C
STY $5E
LDA $1C
STA $20
BNE L1731
LDA $1E
XBA
STA $1C
PER L3879
BRA L1734
L1731 PER L386A
L1734 PER L1737+2
L1737 BRL L3B1E
PLA
LDA #$00A0
LDX $16
CPX #$0003
BNE L1748
LDA #$00A9
L1748 STA [$CE],Y
INY
LDA $20
LSR $16
BCC L1757
LSR $16
BCS L1761
BRA L175F
L1757 LSR $16
BCC L1761
INC
INC
INC
INC
L175F INC
INC
L1761 STA [$CE],Y
INY
INY
STY $5C
CLC
BRL L169E
L176B LDY $5C
LDA #$00A9
BIT $91
BMI L177B
BIT $8E
BMI L177B
LDA #$00A0
L177B STA [$CE],Y
INY
LDA $00
BIT $8E
BMI L179D
BIT $91
BMI L179D
LDA #$0003
AND $14
TAX
BEQ L179D
LDA #$0002
DEX
BEQ L179D
DEX
BNE L179D
INC
INC
INC
INC
L179D STA [$CE],Y
INY
INY
STY $5C
LDA #$0230
STA $36
CLC
BRL L169E
L17AC STZ $B4
LDA $14
XBA
ASL
ASL
ASL
BCS L17B9
BRL L19F7
L17B9 BMI L17BE
BRL L1CE1
L17BE BIT $92
BPL L17D2
LDA #$7702
LDY $5C
STA [$CE],Y
INY
INY
STY $5C
LDA #$0080
TRB $93
L17D2 LDY $30
LDA [$28],Y
TAX
AND #$00FF
CMP #$006E
BEQ L17E2
BRL L0FE9
L17E2 TXA
XBA
PER L17E7+2
L17E7 BRL L8854
L17EA PER L17ED+2
L17ED BRL L19D0
BCC L17F5
BRL L18BB
L17F5 LDA [$28],Y
AND #$FF00
BNE L17FF
BRL L18BB
L17FF STA [$28],Y
INY
STY $16
INY
PER L1808+2
L1808 BRL L2A60
BIT $8A
BPL L1819
LDA $12
BEQ L1819
PER L1816+2
L1816 BRL L2C19
L1819 LDA $5C
STA $5E
LDA $16
LDX #$0106
PER L1825+2
L1825 BRL L1585
BCC L182D
BRL L21FC
L182D LDY $B6
LDA #$0003
AND [$E0],Y
PHA
LDA $08
LSR
LSR
AND #$0003
CMP $01,S
BEQ L18A3
CMP #$0003
BNE L1852
L1845 PEA $0002
PHK
PER L184C+2
L184C BRL L3CE4
BRL L21FC
L1852 STA $08
LDA $01,S
CMP #$0003
BEQ L1845
LDA $08
ASL
ASL
ASL
ORA $01,S
CLC
ROR
ROR
ROR
STA $08
LDA #$000B
STA $0A
PLA
PER L1871+2
L1871 BRL L2584
BIT $89
BVS L1885
PER L187B+2
L187B BRL L2D64
LDY $16
STA [$28],Y
PHA
BRA L18A3
L1885 LDA #$0400
STA $36
LDA #$C000
AND $08
ORA #$0106
STA $34
PER L1897+2
L1897 BRL L3151
STZ $12
STZ $88
STZ $8A
BRL L17EA
L18A3 PLA
LDA $5E
STA $5C
LDX #$0400
LDA $16
PER L18B0+2
L18B0 BRL L1585
BCC L18B8
BRL L21FC
L18B8 BRL L17EA
L18BB LDY #$1092
LDA [$3C],Y
LDY $5C
CMP #$0024
BMI L18FD
CLC
ADC #$FFDC
PHA
LDA #$4400
ORA #$00A5
STA [$CE],Y
INY
INY
LDA #$6918
STA [$CE],Y
INY
INY
PLA
STA [$CE],Y
INY
INY
LDA #$4400
ORA #$0085
STA [$CE],Y
INY
INY
LDA #$0290
STA [$CE],Y
INY
INY
LDA #$4600
ORA #$00E6
STA [$CE],Y
INY
INY
L18FD TYX
LDY $30
LDA [$28],Y
XBA
AND #$007F
DEC
ASL
ASL
TAY
INY
INY
LDA [$BE],Y
CLC
ADC #$0004
TAY
LDA [$E0],Y
SEC
STX $02
SBC $02
SEC
SBC #$0006
SEC
LDY #$0084
SBC [$3C],Y
PHA
TXY
LDA #$0262
STA [$CE],Y
INY
INY
LDA #$8200
STA [$CE],Y
INY
INY
PLA
STA [$CE],Y
INY
INY
TYX
LDY #$1092
LDA [$3C],Y
TXY
CMP #$0024
BMI L197B
CLC
ADC #$FFDC
PHA
LDA #$4400
ORA #$00A5
STA [$CE],Y
INY
INY
LDA #$E938
STA [$CE],Y
INY
INY
PLA
STA [$CE],Y
INY
INY
LDA #$4400
ORA #$0085
STA [$CE],Y
INY
INY
LDA #$02B0
STA [$CE],Y
INY
INY
LDA #$4600
ORA #$00C6
STA [$CE],Y
INY
INY
L197B PER L197E+1
L197E BRA L19AE
PER L1983+2
L1983 BRL L2114
LDA #$0003
AND $14
CLC
ROR
ROR
ROR
STA $08
LDA #$4000
STA $88
XBA
STA $8A
PER L199C+2
L199C BRL L2D64
LDY $30
STA [$28],Y
STA $12
LDA $00
INY
INY
STA [$28],Y
BRL L1048
L19AE LDA $B8
BEQ L19CD
LDA #$183B
STA [$CE],Y
INY
INY
LDA #$0069
STA [$CE],Y
INY
LDA $B8
STA [$CE],Y
INY
INY
STZ $B8
LDA #$001B
STA [$CE],Y
INY
L19CD STY $5C
RTS
L19D0 LDY $B4
DEY
STY $B6
LDY $30
LDX #$FFFF
SEP #$20
L19DC LDA [$28],Y
BEQ L19ED
CMP #$2C
BNE L19EA
LDX $B6
INX
STX $B6
TYX
L19EA INY
BRA L19DC
L19ED SEC
INX
BEQ L19F3
DEX
CLC
L19F3 TXY
REP #$20
RTS
L19F7 PER L19FA+1
L19FA BRA L19D0
BCS L1A43
LDA [$28],Y
AND #$FF00
BEQ L1A43
STA [$28],Y
INY
STY $16
INY
PER L1A0E+2
L1A0E BRL L2A60
LDA $5C
STA $5E
LDA #$0040
TSB $8B
LDA $16
LDX #$0106
PER L1A22+2
L1A22 BRL L157A
LDA #$0040
TRB $8B
BCC L1A2F
BRL L21FC
L1A2F ASL $08
LSR $08
LSR $08
LSR $08
BIT $90
BVC L1A4A
L1A3B PER L1A3E+2
L1A3E BRL L2A55
BRA L1A4A
L1A43 BIT $90
BVS L1A3B
BRL L1B1A
L1A4A BIT $90
BMI L1A8E
LDA #$000C
AND $14
CMP #$000C
BEQ L1A84
LDA #$0003
AND $08
CMP #$0003
BNE L1A8E
L1A62 BIT $90
BVC L1A77
LDY $30
LDA [$28],Y
AND #$7F00
CMP #$1900
BMI L1A77
CMP #$1E00
BMI L1A8E
L1A77 PEA $000D
PHK
PER L1A7E+2
L1A7E BRL L3CE4
BRL L21FC
L1A84 LDA #$0003
AND $08
CMP #$0003
BNE L1A62
L1A8E LDY $30
LDA [$28],Y
AND #$00FF
CMP #$0063
BEQ L1A9D
BRL L0FE9
L1A9D PER L1AA0+2
L1AA0 BRL L2A03
LDY $30
LDA [$28],Y
AND #$7F00
BIT $90
BVS L1AFF
CLC
ADC #$1800
TSB $08
LDA #$0003
AND $14
ASL $08
ASL $08
ROR
ROR $08
ROR
ROR $08
PER L1AC6+2
L1AC6 BRL L2597
L1AC9 LDA #$3FFF
TRB $08
LDA #$4000
STA $88
LDA #$FFBF
BIT $90
BVS L1ADC
TRB $8A
L1ADC PER L1ADF+2
L1ADF BRL L2D64
BCC L1AE7
BRL L21FC
L1AE7 LDY $30
STA [$28],Y
STA $12
LDA $00
INY
INY
STA [$28],Y
BIT $8A
BPL L1AFA
BRL L1048
L1AFA STZ $12
BRL L1048
L1AFF TSB $08
LDA #$0003
AND $14
ASL
ASL
TSB $08
PER L1B0D+2
L1B0D BRL L256B
LDA $14
LSR
ROR $08
LSR
ROR $08
BRA L1AC9
L1B1A PEA $0095
PHK
PER L1B21+2
L1B21 BRL L3CE4
BRL L21FC
L1B27 STZ $B8
LDA $30
STA $16
L1B2D PER L1B30+2
L1B30 BRL L1CC7
BCC L1B38
BRL L1BCF
L1B38 LDA [$28],Y
AND #$FF00
BNE L1B42
BRL L1BCF
L1B42 STA [$28],Y
INY
STY $16
INY
PER L1B4B+2
L1B4B BRL L2A60
BCC L1B53
BRL L21FC
L1B53 LDA $5C
STA $5E
LDY $16
PER L1B5C+2
L1B5C BRL L29B2
TXA
BNE L1B74
LDA $16
LDX #$0400
PER L1B6A+2
L1B6A BRL L157A
BCC L1B72
BRL L21FC
L1B72 BRA L1B2D
L1B74 LDA $16
LDX #$0106
PER L1B7C+2
L1B7C BRL L157A
BCC L1B84
BRL L21FC
L1B84 ASL $08
LSR $08
LSR $08
LSR $08
LDA $08
BNE L1B94
LDY $5C
BRA L1BA7
L1B94 STZ $64
LDA #$0100
TSB $08
PER L1B9E+2
L1B9E BRL L2597
BIT $89
BVC L1BB7
LDY $5C
L1BA7 LDA #$04D4
STA [$CE],Y
INY
INY
INC $B8
INC $B8
STY $5C
BRL L1B2D
L1BB7 LDA #$4000
STA $88
LDA #$FFBF
TRB $8A
PER L1BC4+2
L1BC4 BRL L2D64
STZ $12
LDY $16
STA [$28],Y
BRA L1B74
L1BCF LDY $30
LDA [$28],Y
XBA
AND #$007F
DEC
ASL
ASL
TAY
INY
INY
LDA [$BE],Y
INC
INC
STA $16
INC
INC
TAY
LDA [$E0],Y
STA $1C
INY
INY
LDA [$E0],Y
XBA
TAX
DEC
ASL
ASL
CLC
ADC #$0050
STA $1E
INC
INC
XBA
TSB $1E
CPX #$0007
BNE L1C13
INC $1C
INC $1C
LDA $1E
XBA
DEC
DEC
STA $1E
PER L387E
BRA L1C16
L1C13 PER L386A
L1C16 LDY $5C
PER L1C1B+2
L1C1B BRL L3B1E
PLA
LDA #$00F4
STA [$CE],Y
INY
LDA $B8
INC
INC
INC
INC
STA [$CE],Y
INY
INY
LDX #$0200
LDA $14
BIT #$0010
BEQ L1C41
BIT #$0020
BNE L1C41
LDX #$0110
L1C41 STY $5C
STX $08
AND #$002F
TSB $08
LDY $16
INY
INY
INY
INY
INY
INY
LDA [$E0],Y
TAX
AND #$0008
ASL
ASL
ASL
TSB $08
TXA
AND #$0004
ASL
ASL
TSB $08
PER L1C68+2
L1C68 BRL L256B
STZ $08
LDA $14
LSR
ROR $08
LSR
ROR $08
PER L1C78+2
L1C78 BRL L2114
LDA #$0020
BIT $14
BEQ L1CA5
LSR
BIT $14
BEQ L1C9C
LDA #$0040
TSB $90
LDA $14
ASL $08
ASL $08
LSR
LSR
LSR
ROR $08
LSR
ROR $08
BRA L1CAA
L1C9C STZ $88
STZ $8A
STZ $12
BRL L100F
L1CA5 LSR
BIT $14
BNE L1C9C
L1CAA LDA #$4000
STA $88
XBA
STA $8A
PER L1CB5+2
L1CB5 BRL L2D64
LDY $30
STA [$28],Y
STA $12
LDA $00
INY
INY
STA [$28],Y
BRL L1048
L1CC7 LDY $16
LDX $00
SEP #$20
L1CCD LDA [$28],Y
BEQ L1CD9
CMP #$2C
BEQ L1CD8
INY
BRA L1CCD
L1CD8 TYX
L1CD9 REP #$20
SEC
TXY
BEQ L1CE0
CLC
L1CE0 RTS
L1CE1 STZ $08
LDA #$00FF
TRB $91
LDA #$0040
TSB $91
LDY $30
LDA [$28],Y
AND #$7F00
XBA
CMP #$000F
BPL L1D07
PEA $0045
PHK
PER L1D01+2
L1D01 BRL L3CE4
BRL L21FC
L1D07 CMP #$0019
BMI L1D1E
BEQ L1D26
CMP #$001E
BPL L1D16
BRL L19F7
L1D16 CMP #$0032
BMI L1D40
BRL L19F7
L1D1E LDA #$0080
TSB $91
BRL L19F7
L1D26 INY
INY
LDA [$28],Y
AND #$FF00
BEQ L1D32
BRL L19F7
L1D32 PER L1D35+2
L1D35 BRL L2A03
LDA #$0003
STA $08
BRL L19F7
L1D40 LDA #$0003
TRB $91
AND $14
TSB $91
BRL L11B8
L1D4C DB $0C
DB $0C
DB $0E
DB $0D
DB $0F
DB $0F
DB $10
DB $10
DB $12
DB $11
DB $18
DB $13
DB $19
DB $19
DB $1A
DB $1A
DB $1C
DB $1B
DB $1D
DB $1D
DB $1E
DB $1E
DB $FF
DB $FF
L1D64 DB $2C
DB $2C
DB $FF
DB $FF
LDY #$0002
LDA [$28],Y
TAX
LDY #$0086
LDA [$3C],Y
PHA
LDY #$0084
LDA [$3C],Y
TXY
STA [$E4],Y
INY
INY
PLA
SEP #$20
STA [$E4],Y
REP #$20
BRL L0AF4
LDA #$0080
TRB $8C
LDY #$0002
LDA [$28],Y
BRA L1D9D
LDY #$0002
LDA [$28],Y
CLC
ADC #$0004
L1D9D TAX
LDY #$0086
LDA [$3C],Y
PHA
LDY #$0084
LDA [$3C],Y
TXY
STA [$E0],Y
INY
INY
PLA
SEP #$20
STA [$E0],Y
REP #$20
BRL L0AF4
LDY #$0002
LDA [$28],Y
CLC
ADC #$0004
TAX
PER L1DC5+1
L1DC5 BRA L1DEA
BRL L21FC
LDY #$0002
LDA [$28],Y
CLC
ADC #$0004
TAX
PER L1DD7+1
L1DD7 BRA L1DFC
BRL L21FC
L1DDC LDY #$0086
LDA [$3C],Y
STA $19
LDA #$0002
STA $16
BRA L1E17
L1DEA LDY $5C
LDA #$624B
STA [$CE],Y
INY
INY
LDA #$0002
STA [$CE],Y
INY
INY
BRA L1DFE
L1DFC LDY $5C
L1DFE LDA #$0082
STA [$CE],Y
INY
STY $5C
LDA #$FFFE
STA $22
L1E0B LDY #$0086
LDA [$3C],Y
STA $19
LDA #$0001
STA $16
L1E17 STX $1A
TXY
LDA [$E0],Y
BEQ L1E3A
CLC
ADC $22
DEC $16
DEC $16
BEQ L1E30
SEC
LDY #$0084
SBC [$3C],Y
SEC
SBC $5C
L1E30 LDY $5C
STA [$CE],Y
INY
INY
STY $5C
BRA L1E6A
L1E3A INY
INY
LDA [$E0],Y
AND #$FF00
CMP #$7E00
BEQ L1E50
PEA $0012
PHK
PER L1E4D+2
L1E4D BRL L3CE4
L1E50 LDA $5C
CLC
LDY #$0084
ADC [$3C],Y
STA $17
LDY $5C
LDA $22
STA [$CE],Y
INY
INY
STY $5C
PER L1E67+2
L1E67 BRL L2165
L1E6A RTS
LDY $00
L1E6D LDA #$0082
STA [$CE],Y
INY
TYX
LDY #$0086
LDA [$3C],Y
STA $19
LDA $00
STA $16
LDY #$0002
LDA [$28],Y
STA $1A
TAY
LDA [$E4],Y
BEQ L1EBF
PHY
DEC
DEC
SEC
LDY #$0084
SBC [$3C],Y
SEC
STX $02
SBC $02
TXY
STA [$CE],Y
INY
INY
STY $5C
PLY
INY
INY
LDA [$E4],Y
AND #$00FF
LDY #$0086
CMP [$3C],Y
BNE L1EB2
BRL L21FC
L1EB2 PEA $0045
PHK
PER L1EB9+2
L1EB9 BRL L3CE4
BRL L21FC
L1EBF TXA
CLC
LDY #$0084
ADC [$3C],Y
STA $17
TXY
LDA #$FFFE
STA [$CE],Y
INY
INY
STY $5C
PER L21FA+1
BRL L2165
LDA #$03F0
L1EDB STA [$CE]
LDY #$0002
BRA L1E6D
LDA #$03D0
BRA L1EDB
LDY #$0002
LDA [$28],Y
TAY
INY
INY
INY
LDA #$00F4
STA [$CE]
LDA [$E0],Y
AND #$00FF
TYX
LDY #$0001
STA [$CE],Y
INY
INY
LDA #$00F4
STA [$CE],Y
INY
PHY
TXY
INY
INY
INY
LDA [$E0],Y
TYX
PLY
STA [$CE],Y
INY
INY
LDA #$00F4
STA [$CE],Y
INY
PHY
TXY
DEY
DEY
LDA [$E0],Y
PLY
STA [$CE],Y
INY
INY
LDA #$00F4
STA [$CE],Y
INY
LDA #$0006
STA [$CE],Y
INY
INY
STY $5C
TXY
INY
INY
LDA #$000B
AND [$E0],Y
ORA #$0100
STA $08
TXY
DEY
DEY
DEY
DEY
LDA #$0004
AND [$E0],Y
TSB $08
PER L1F51+2
L1F51 BRL L256B
BRL L21FC
LDA $BC
BEQ L1F68
PEA $0045
PHK
PER L1F62+2
L1F62 BRL L3CE4
BRL L21FC
L1F68 LDY #$0002
LDA [$28],Y
INC
INC
INC
INC
TAY
LDA [$E0],Y
PHA
INY
INY
INY
INY
LDA [$E0],Y
AND #$0004
ORA #$0700
STA $08
LDY $5C
LDA #$00F4
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
LDA #$00F4
STA [$CE],Y
INY
TYX
LDY #$00C4
LDA [$3C],Y
ASL
ASL
INC
INC
TXY
STA [$CE],Y
INY
INY
STY $5C
PER L1FAA+2
L1FAA BRL L256B
BRL L21FC
PER L1FB3+2
L1FB3 BRL L0C87
LDY #$0086
LDA [$3C],Y
INC
PHA
LDY #$0086
STA [$3C],Y
ASL
ASL
ASL
ASL
TAX
LDY #$0004
LDA [$28],Y
TAY
INY
INY
LDA [$E0],Y
AND #$FF00
PHA
INY
INY
INY
INY
INY
INY
LDA [$E0],Y
AND #$0004
LSR
LSR
XBA
LSR
ORA $03,S
ORA $01,S
PHY
TXY
STA [$E4],Y
TYA
CLC
ADC #$000C
TAY
PLA
INC
STA [$E4],Y
PLA
PLA
LDA $00
LDY #$0084
STA [$3C],Y
PER L2002+2
L2002 BRL L0B62
BRL L21FC
STZ $1C
LDY #$0002
LDA [$28],Y
CMP #$0019
BNE L202A
LDY $5C
LDA #$0048
STA [$CE],Y
INY
LDA #$04D4
STA [$CE],Y
INY
INY
STY $5C
LDA #$0004
STA $1C
L202A LDA #$00F4
LDY $5C
STA [$CE],Y
INY
STY $5C
LDY #$0004
LDA [$28],Y
BNE L2045
LDY $5C
STA [$CE],Y
INY
INY
STY $5C
BRA L2052
L2045 CLC
ADC #$0004
TAX
STZ $22
PER L204F+2
L204F BRL L1DDC
L2052 LDY $5C
LDA #$00F4
STA [$CE],Y
INY
LDA $1C
INC
INC
STA [$CE],Y
INY
INY
STY $5C
LDY #$0002
LDA [$28],Y
SEC
SBC #$0014
ASL
ASL
ORA #$9000
STA $08
PER L2077+2
L2077 BRL L256B
BRL L21FC
LDY #$0002
LDA [$28],Y
ASL
STA $1C
BCS L20E0
CLC
ADC #$000F
STA $1E
STZ $20
PER L20C5
L2092 LSR $1C
LDY $5C
PER L2099+2
L2099 BRL L3B1E
STY $5C
LDY #$0004
STY $20
STZ $22
DEC $22
L20A7 LDY $20
LDA [$28],Y
CLC
ADC #$0004
TAX
PER L20B3+2
L20B3 BRL L1E0B
INC $22
INC $22
INC $20
INC $20
DEC $1C
BNE L20A7
BRL L21FC
L20C5 DEC
BMI L20CD
CMP #$0000
BMI L20D0
L20CD BRL L20D0
L20D0 ASL
TAY
PHK
PLB
PER L20DF
LDA ($01,S),Y
CLC
ADC $01,S
STA $01,S
RTS
L20DF DB $FF
L20E0 CLC
ADC #$0013
STA $1E
LDA $1C
CLC
ADC #$000E
STA $20
STZ $22
PER L20F5
BRA L2092
L20F5 DEC
BMI L20FD
CMP #$0000
BMI L2100
L20FD BRL L2100
L2100 PHK
PER L2104
L2104 ASL
TAY
PHK
PLB
PER L2113
LDA ($01,S),Y
CLC
ADC $01,S
STA $01,S
RTS
L2113 DB $FF
L2114 LDY #$0036
LDA [$3C],Y
BNE L2156
LDA $5C
BEQ L2156
CMP #$0801
BCS L2159
PEA $0000
PHA
CLC
LDY #$0084
ADC [$3C],Y
BCC L213D
PEA $005B
PHK
PER L2137+2
L2137 BRL L3CE4
BRL L0C63
L213D LDY #$0084
STA [$3C],Y
PEI $D0
PEI $CE
LDY #$0006
LDA [$3C],Y
PHA
LDX #$000A
PHK
PER L2153+2
L2153 BRL L047B
L2156 STZ $5C
RTS
L2159 PEA $008C
PHK
PER L2160+2
L2160 BRL L3CE4
BRA L2156
L2165 BIT $8F
BPL L2173
PEA $0091
PHK
PER L2170+2
L2170 BRL L3CE4
L2173 LDY #$0036
LDA [$3C],Y
BNE L21EF
PEI $2A
PEI $28
LDA #$29D8
CLC
ADC $3C
STA $28
LDA $00
ADC $3E
STA $2A
LDY #$00C6
LDA [$3C],Y
TAY
LDA $16
STA [$28],Y
INY
INY
LDA $18
STA [$28],Y
INY
INY
LDA $1A
STA [$28],Y
INY
INY
TYA
CPY #$01FE
BCC L21E4
BNE L21F0
PEA $0000
PEA $01FE
PEI $2A
PEI $28
LDY #$0004
LDA [$3C],Y
BNE L21CC
LDA #$0003
PHK
PER L21C4+2
L21C4 BRL L0406
LDY #$0004
STA [$3C],Y
L21CC PHA
LDX #$000C
PHK
PER L21D4+2
L21D4 BRL L047B
LDY #$00C8
LDA [$3C],Y
INC
LDY #$00C8
STA [$3C],Y
LDA $00
L21E4 LDY #$00C6
STA [$3C],Y
L21E9 PLA
STA $28
PLA
STA $2A
L21EF RTS
L21F0 PEA $0045
PHK
PER L21F7+2
L21F7 BRL L3CE4
L21FA BRA L21E9
L21FC REP #$20
LDA $40
TCS
PER L2204+2
L2204 BRL L2114
LDA $00
LDY #$0032
STA [$3C],Y
LDY #$0C8A
STA [$3C],Y
LDA #$0080
TSB $93
BRL L0AF4
L221B STA $0C
TSC
STA $42
STZ $88
LDY $30
BRA L222E
L2226 LDA $88
LSR
BCS L222E
BRL L22B3
L222E LDA $00
SEP #$20
LDA #$01
TRB $88
L2236 LDA [$28],Y
BEQ L22B3
CMP $0D
BCC L2244
CMP $0C
BEQ L2253
BCC L2253
L2244 CMP #$0C
BCC L2250
CMP #$1F
BCS L2250
LDA #$40
TSB $88
L2250 INY
BRA L2236
L2253 PHY
PHA
CMP #$12
BNE L2270
PER L225C+1
L225C BRA L22BA
BCS L2289
DEY
CPY $30
BMI L227B
LDA [$28],Y
INY
CMP #$0C
BCC L2270
CMP #$1F
BCC L2289
L2270 DEY
CPY $30
BMI L227B
LDA [$28],Y
CMP #$19
BEQ L2289
L227B INY
BIT $8D
BPL L228D
L2280 INY
LDA [$28],Y
BMI L228D
BEQ L228D
BRA L2280
L2289 PLA
PLY
BRA L2250
L228D PLA
PLY
PHY
PHA
INY
LDX $00
L2294 LDA [$28],Y
BEQ L22A8
CMP #$0C
BCC L22AD
CMP #$1F
BCS L22AD
TXA
TSB $88
BNE L22A8
INY
BRA L2294
L22A8 PLA
PLY
BRL L264E
L22AD INY
LDX #$0001
BRA L2294
L22B3 CLC
L22B4 REP #$20
LDA $42
TCS
RTS
MX %10
L22BA PHY
PHX
LDX $00
PHX
INY
LDA [$28],Y
CMP #$6C
BEQ L22CA
CMP #$6D
BNE L22CD
L22CA PLX
INX
PHX
L22CD DEY
DEY
DEY
LDA [$28],Y
CMP #$6C
BEQ L22DA
CMP #$6D
BNE L22DB
L22DA DEX
L22DB PHX
PLX
BEQ L22EC
PEA $007C
PHK
PER L22E6+2
L22E6 BRL L3CE4
SEC
BRA L22B4
L22EC CLC
PLX
BEQ L22F1
SEC
L22F1 PLX
PLY
RTS
L22F4 BIT $88
BPL L232F
LDA $08
XBA
ASL
ASL
ASL
ASL
AND #$00
CPY #$0885
LDX $64
BNE L230B
BRL L24AD
MX %00
L230B CLC
ROL
ROL $64
ROL
ROL $64
LDA $64
STZ $64
EOR #$0040
STA $08
LDA #$000A
STA $0A
PER L2323+2
L2323 BRL L25DE
PER L2329+2
L2329 BRL L2584
BRL L24AD
L232F LDA #$000F
AND $08
PER L254B
PHK
PLB
ASL
TAY
LDA ($01,S),Y
PLY
TAY
BPL L2355
INC
BNE L2347
BRL L2434
L2347 PEA $000D
PHK
PER L234E+2
L234E BRL L3CE4
SEC
BRL L22B4
L2355 BEQ L235A
BRL L2483
L235A LDA $0A
CMP #$0011
BEQ L236B
CMP #$0012
BEQ L236B
LDA $00
BRL L2483
L236B LDY $5C
LDA $64
BEQ L2399
ASL
LSR
STA $64
AND #$0007
BEQ L2390
TRB $64
TAX
STZ $62
L237F DEX
BMI L2399
LDA $64
BNE L2390
INC $64
PER L238B+2
L238B BRL L2420
BRA L237F
L2390 STZ $64
PER L2395+1
L2395 BRA L23DC
BRA L237F
L2399 STZ $64
LDA #$0011
CMP $0A
BNE L23D0
LDA #$04A5
STA [$CE],Y
INY
INY
LDA #$6518
L23AC STA [$CE],Y
INY
INY
LDA #$5008
STA [$CE],Y
INY
INY
LDA #$0202
STA [$CE],Y
INY
INY
LDA #$8573
STA [$CE],Y
INY
INY
LDA #$0004
STA [$CE],Y
INY
STY $5C
BRL L24AD
L23D0 LDA #$04A5
STA [$CE],Y
INY
INY
LDA #$E538
BRA L23AC
L23DC LDA #$00A9
STA [$CE],Y
INY
INY
LDA #$3800
STA [$CE],Y
INY
INY
LDA #$08E5
STA [$CE],Y
INY
INY
LDA $62
BNE L2407
LDA #$0250
STA [$CE],Y
INY
INY
LDA #$7302
STA [$CE],Y
STY $62
INY
INY
BRA L2418
L2407 LDA #$0070
STA [$CE],Y
INY
LDA $62
DEC
SEC
STY $02
SBC $02
STA [$CE],Y
INY
L2418 LDA #$0885
STA [$CE],Y
INY
INY
RTS
L2420 LDA #$FFA9
STA [$CE],Y
INY
INY
XBA
STA [$CE],Y
INY
LDA #$0845
STA [$CE],Y
INY
INY
BRA L2418
L2434 LDA #$000F
STA $08
LDA $0A
SEC
SBC #$0011
BEQ L246B
DEC
DEC
BMI L245D
CMP #$0006
BPL L245D
ASL
ASL
LSR $08
LSR $08
ORA #$0600
TSB $08
PER L2458+2
L2458 BRL L256B
BRA L24AD
L245D PEA $0045
PHK
PER L2464+2
L2464 BRL L3CE4
SEC
BRL L22B4
L246B PER L246E+2
L246E BRL L25DE
LDA #$040F
STA $08
PER L2479+2
L2479 BRL L256B
LDA #$C000
TSB $08
BRA L24AD
L2483 CLC
ROR
ROR
ROR
TSB $08
PHA
PLA
BNE L24A1
LDA $0A
AND #$00FF
CMP #$000C
BEQ L249C
CMP #$000E
BNE L24A1
L249C LDA #$4000
TSB $08
L24A1 PER L24A4+2
L24A4 BRL L25DE
PER L24AA+2
L24AA BRL L2584
L24AD PER L24B0+2
L24B0 BRL L2D64
BCC L24B8
BRL L22B4
L24B8 LDY $10
STA $12
PHY
TYX
INX
INX
STX $10
SEP #$20
L24C4 LDA [$28],Y
BEQ L24CD
BMI L24DB
INY
BRA L24C4
L24CD PEA $0002
PHK
PER L24D4+2
L24D4 BRL L3CE4
SEC
BRL L22B4
L24DB INY
BIT $89
BMI L24E6
LDA #$80
TSB $89
BRA L24C4
L24E6 LDA [$28],Y
BEQ L24F6
PHX
TYX
PLY
STA [$28],Y
PHX
TYX
PLY
INX
INY
BRA L24E6
L24F6 TXY
STA [$28],Y
LDA #$80
TRB $89
REP #$20
PLY
LDA $12
STA [$28],Y
BIT $8A
BMI L250C
STZ $12
BRA L2546
L250C BIT $88
BVS L2546
LDA #$0080
TSB $8A
LDX $5E
LDA $60
BEQ L251D
BPL L252A
L251D PEA $0045
PHK
PER L2524+2
L2524 BRL L3CE4
BRL L0C63
L252A STA $04
LDY $00
L252E LDA [$D2],Y
PHX
TYX
PLY
STA [$CE],Y
PHX
TYX
PLY
INX
INY
DEC $04
BEQ L2544
INX
INY
DEC $04
BNE L252E
L2544 STX $5C
L2546 LDY $10
BRL L2226
L254B DB $00
DB $00
DB $01
DB $00
DB $02
DB $00
DB $FE
DB $FF
DB $01
DB $00
DB $01
DB $00
DB $02
DB $00
DB $FE
DB $FF
DB $02
DB $00
DB $02
DB $00
DB $02
DB $00
DB $FE
DB $FF
DB $FE
DB $FF
DB $FE
DB $FF
DB $FE
DB $FF
DB $FF
DB $FF
L256B PER L256E+2
L256E BRL L2A55
LDA #$7002
BIT $92
BPL L2580
LDA #$0080
TRB $93
LDA #$7102
L2580 STA $1C
BRA L259C
L2584 LDA $0A
CMP #$002C
BNE L2590
LDA #$1500
BRA L2595
L2590 SEC
SBC #$000A
XBA
L2595 TSB $08
L2597 LDA #$7202
STA $1C
L259C BIT $72
BPL L25A5
LDA #$0080
TSB $08
L25A5 LDY $5C
LDA #$00A2
LDX $64
BEQ L25B1
AND #$00FD
L25B1 STA [$CE],Y
INY
LDA $08
STA [$CE],Y
INY
INY
LDA $64
BEQ L25CE
ASL
ASL
PHA
LDA #$00A2
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
STZ $64
L25CE LDA $1C
STA [$CE],Y
INY
INY
LDA #$0080
TSB $8B
TRB $8A
STY $5C
RTS
L25DE LDX $00
LDA $0A
CMP #$0011
BNE L25F1
LDA #$000F
AND $08
CMP #$000F
BEQ L2621
L25F1 LDA $0A
CMP #$002C
BEQ L2602
CMP #$0013
BCS L2603
CMP #$000A
BEQ L2603
L2602 TAX
L2603 LDA #$0041
BIT $88
BNE L2630
BNE L2630
BIT $8D
BMI L2630
LDA #$0003
AND $14
L2615 CMP #$0003
BEQ L262D
BIT $14
BMI L2621
TXY
BEQ L2633
L2621 ASL $08
ASL $08
CLC
ROR
ROR $08
ROR
ROR $08
L262C RTS
L262D TXY
BNE L262C
L2630 TXY
BNE L263A
L2633 LDA #$C000
TRB $08
BRA L262C
L263A LDA #$0003
AND $14
BIT $08
BMI L262C
BVS L2647
BRA L2615
L2647 CMP #$0002
BNE L262C
BRA L2621
L264E REP #$20
STA $0A
STY $06
STZ $64
LDA #$8000
STA $08
STZ $60
LDA #$0040
TRB $89
TRB $8A
LDA $5C
STA $5E
LDA #$0011
CMP $0A
BEQ L267A
INC
CMP $0A
BEQ L267A
PER L2677+2
L2677 BRL L2A12
L267A LDA $06
STA $10
DEC
CMP $30
BMI L26A9
LDA #$0019
CMP $0A
BEQ L26A9
PER L268D+2
L268D BRL L27F3
BCC L26A9
DEC $10
DEC $10
LDA #$0106
STA $36
PER L269E+2
L269E BRL L28B7
BCC L26A6
BRL L22B4
L26A6 BRL L2781
L26A9 LDA #$0080
TSB $89
LDA #$0012
CMP $0A
BEQ L26BF
LDA #$0019
CMP $0A
BEQ L26BF
BRL L22B4
L26BF DEC $06
PER L26C4+2
L26C4 BRL L2819
LDY $06
INY
LDA [$28],Y
CMP $12
BNE L2734
AND #$00FF
SEC
SBC #$0072
BEQ L2734
CMP #$0003
BNE L26E1
BRL L2773
L26E1 STA $08
ASL
ASL
TSB $08
LDY #$1094
LDA [$3C],Y
LDY #$1092
STA [$3C],Y
LDY #$1090
LDA [$3C],Y
DEC
DEC
LDY #$1090
STA [$3C],Y
STZ $12
PER L2702+2
L2702 BRL L2A12
PER L2708+2
L2708 BRL L2A55
BIT $87
BMI L2712
BRL L22F4
L2712 PER L272C
LDY $5C
LDA #$8000
STA $1C
PER L271F+2
L271F BRL L3B1E
STY $5C
PLA
ASL $87
LSR $87
BRL L22F4
L272C LDA #$0000
EOR $06
STA $06
DB $FF ; LOGO BUG?
L2734 LDA $12
BEQ L2754
PEI $64
PEI $88
LDA #$0080
TRB $88
STZ $64
LDA $12
PER L2748+2
L2748 BRL L2C19
PLA
AND #$0080
TSB $88
PLA
STA $64
L2754 LDA #$0106
STA $36
INC $06
INC $06
INC $06
PER L2762+2
L2762 BRL L28B7
DEC $06
DEC $06
DEC $06
BCC L2770
BRL L22B4
L2770 BRL L22F4
L2773 PEA $032D
PHK
PER L277A+2
L277A BRL L3CE4
SEC
BRL L22B4
L2781 LDA $08
BMI L2788
BRL L22F4
L2788 PER L278B+2
L278B BRL L2819
LDA $08
ASL
LSR
LSR
LSR
STA $08
DEC
DEC
BNE L279F
LDA #$010E
BRA L27A2
L279F LDA #$010A
L27A2 STA $36
PER L27A7+2
L27A7 BRL L28B7
BCC L27AF
BRL L22B4
L27AF BRL L22F4
L27B2 LDY $30
PHP
SEP #$20
L27B7 LDA [$28],Y
BEQ L27F1
CMP #$11
BNE L27DB
DEY
CPY $30
BMI L27DE
BEQ L27DE
LDA [$28],Y
BPL L27DE
DEY
LDA [$28],Y
INY
CMP #$65
BCC L27DE
CMP #$6D
BEQ L27DE
CMP #$6D
BEQ L27DE
INY
L27DB INY
BRA L27B7
L27DE INY
PHY
L27E0 INY
LDA [$28],Y
BEQ L27EB
DEY
STA [$28],Y
INY
BRA L27E0
L27EB DEY
STA [$28],Y
PLY
BRA L27B7
L27F1 PLP
RTS
MX %00
L27F3 LDA #$0012
CMP $0A
BNE L2812
LDY $06
DEY
CPY $30
BMI L2816
BEQ L2816
SEP #$20
LDA [$28],Y
BPL L2816
DEY
LDA [$28],Y
BMI L2816
CMP #$65
BCC L2816
L2812 SEC
L2813 REP #$20
RTS
L2816 CLC
BRA L2813
L2819 LDY $06
INY
STZ $62
STZ $64
SEP #$20
L2822 LDA [$28],Y
BMI L2875
CMP #$1F
BCS L2875
CMP #$11
BEQ L2842
CMP #$12
BEQ L2845
CMP #$19
BEQ L285F
PEA $0002
PHK
PER L283D+2
L283D BRL L3CE4
L2840 SEP #$20
L2842 INY
BRA L2822
L2845 REP #$20
BIT $62
BVC L284D
BMI L2857
L284D SEC
ROR $62
SEC
ROR $62
INC $64
BRA L2840
L2857 ASL $62
ASL $62
DEC $64
BRA L2840
L285F REP #$20
LDA #$8000
TSB $64
BIT $62
BVC L286C
BPL L2857
L286C SEC
ROR $62
LSR $62
INC $64
BRA L2840
L2875 REP #$20
DEY
STY $06
LDA $64
BEQ L28AC
ASL
LSR
CMP #$0008
BMI L2893
PEA $0066
PHK
PER L288C+2
L288C BRL L3CE4
STZ $64
BRA L28B6
L2893 DEC
BNE L289A
BIT $62
BMI L28A5
L289A BIT $62
BPL L28AC
LDA #$0008
TSB $64
BRA L28AC
L28A5 STZ $64
LDA #$0080
TSB $88
L28AC LDA $64
BEQ L28B6
PER L28B3+2
L28B3 BRL L2A12
L28B6 RTS
L28B7 STZ $04
LDY $06
BIT $08
SEP #$20
BMI L28EA
INY
LDA [$28],Y
BPL L28C9
BRL L2B27
L28C9 BNE L28CE
BRL L2B27
L28CE INY
PER L28D2+2
L28D2 BRL L2A60
BCC L28DA
BRL L2B27
L28DA LDA [$28],Y
BMI L28E1
BRL L2B27
L28E1 AND #$7F
DEC
STA $04
DEY
BRL L2AB1
L28EA DEY
PER L28EE+2
L28EE BRL L2A60
BCC L28F6
BRL L2B27
L28F6 LDA [$28],Y
BMI L28FD
BRL L2B27
L28FD AND #$7F
DEC
STA $04
DEY
TYA
BIT $8B
BMI L290B
BRL L2AA9
L290B REP #$20
LDA [$28],Y
CMP $12
BEQ L2916
BRL L2AA9
L2916 PER L2919+2
L2919 BRL L2A55
AND #$00FF
SEC
SBC #$0072
BNE L2929
BIT $89
BMI L292F
L2929 PER L292C+2
L292C BRL L2A12
L292F TAX
CMP #$0004
BMI L2938
LDA #$0001
L2938 ASL
ASL
TSB $08
LDY #$1094
LDA [$3C],Y
LDY #$1092
STA [$3C],Y
LDY #$1090
LDA [$3C],Y
DEC
DEC
LDY #$1090
STA [$3C],Y
LDA #$0106
CMP $36
BEQ L2982
TXA
BMI L29A6
BEQ L2965
CMP #$0004
BPL L2990
BRA L2971
L2965 BIT $89
BPL L2971
PER L296C+2
L296C BRL L3145
BRA L2982
L2971 CLC
ROR
ROR
ROR
ORA #$0106
STA $34
L297A STZ $12
PER L297F+2
L297F BRL L3151
L2982 STZ $12
BIT $8A
BVC L298E
PER L298B+2
L298B BRL L2A38
L298E CLC
RTS
L2990 SEC
SBC #$0005
BMI L29A6
CMP #$0004
BPL L29A6
CLC
ROR
ROR
ROR
ORA #$0132
STA $34
BRA L297A
L29A6 PEA $0045
PHK
PER L29AD+2
L29AD BRL L3CE4
SEC
RTS
L29B2 PHP
SEP #$20
LDA $00
XBA
LDA [$28],Y
BMI L29DD
SEC
SBC #$6E
BEQ L29E3
BMI L29DD
CMP #$04
BMI L29D9
SEC
SBC #$04
CMP #$04
BMI L29D9
SEC
SBC #$05
BMI L29DD
CMP #$04
BPL L29DD
LDA #$01
L29D9 TAX
PLP
CLC
RTS
L29DD LDX #$FFFF
PLP
SEC
RTS
L29E3 INY
LDA [$28],Y
BPL L29DD
AND #$7F
DEC
REP #$20
ASL
ASL
TAY
LDA [$BE],Y
AND #$00FF
CMP #$00FF
BEQ L29FF
AND #$0003
BRA L29D9
L29FF LDA $00
BRA L29D9
L2A03 PHP
REP #$20
LDA $12
BEQ L2A10
PER L2A0D+2
L2A0D BRL L2C19
L2A10 PLP
RTS
L2A12 PHP
REP #$20
PHA
BIT $08
BMI L2A20
BIT $88
BVC L2A28
BRA L2A2D
L2A20 BIT $89
BPL L2A2D
LDA $12
BEQ L2A2D
L2A28 PER L2A2B+1
L2A2B BRA L2A38
L2A2D PLA
SEP #$20
PHA
LDA #$40
TSB $89
PLA
PLP
RTS
MX %00
L2A38 PHA
PHY
BIT $8A
BPL L2A52
BIT $89
BPL L2A52
LDY $5C
LDA #$0485
STA [$CE],Y
INY
INY
STY $5C
LDA #$0080
TRB $8A
L2A52 PLY
PLA
RTS
L2A55 PHP
SEP #$20
PHA
LDA #$40
TSB $8A
PLA
PLP
RTS
L2A60 PHP
SEP #$20
LDA [$28],Y
BPL L2A8B
TAX
DEY
LDA [$28],Y
CMP #$63
BEQ L2A98
CMP #$6B
BEQ L2A98
CMP #$69
BEQ L2A98
CMP #$6A
BEQ L2A98
CMP #$6C
BEQ L2A98
CMP #$6D
BEQ L2A98
CMP #$68
BEQ L2A98
L2A87 INY
PLP
CLC
RTS
L2A8B PEA $0045
PHK
PER L2A92+2
L2A92 BRL L3CE4
PLP
SEC
RTS
L2A98 REP #$20
PHY
TXA
AND #$007F
DEC
ASL
TAY
LDA [$C2],Y
PLY
STA [$28],Y
BRA L2A87
L2AA9 PER L2AAC+2
L2AAC BRL L2A03
SEP #$20
L2AB1 LDA [$28],Y
CMP #$6E
BNE L2ABA
BRL L2BB4
L2ABA CMP #$71
BNE L2AC1
BRL L2B41
L2AC1 CMP #$6F
BNE L2AC8
BRL L2B7D
L2AC8 CMP #$70
BNE L2ACF
BRL L2B90
L2ACF CMP #$63
BEQ L2B1B
CMP #$6B
BEQ L2B1B
CMP #$6A
BEQ L2B1B
CMP #$69
BEQ L2B1B
CMP #$6C
BEQ L2B0F
CMP #$6D
BEQ L2B0F
CMP #$77
BMI L2B03
PHA
SEC
SBC #$05
STA $AD
PLA
CMP #$7A
BEQ L2AFA
BPL L2B1B
LDA #$78
L2AFA PHA
LDA #$40
TSB $90
PLA
SEC
SBC #$05
L2B03 SEC
SBC #$72
BMI L2B1B
CMP #$04
BPL L2B0F
BRL L2CDD
L2B0F PEA $007C
PHK
PER L2B16+2
L2B16 BRL L3CE4
BRA L2B3D
L2B1B PEA $0045
PHK
PER L2B22+2
L2B22 BRL L3CE4
BRA L2B3D
L2B27 PEA $0002
PHK
PER L2B2E+2
L2B2E BRL L3CE4
BRA L2B3D
L2B33 PEA $001F
PHK
PER L2B3A+2
L2B3A BRL L3CE4
L2B3D REP #$20
SEC
RTS
MX %10
L2B41 PER L2B44+2
L2B44 BRL L2A55
LDA $0A
CMP #$11
BEQ L2B55
CMP #$13
BMI L2B33
CMP #$19
BPL L2B33
L2B55 LDA #$0C
TSB $08
LDA #$40
REP #$20
LDA $04
BIT $87
BMI L2B33
ASL
INC
ASL
CLC
ADC $C6
STA $38
LDA $00
ADC $C8
STA $3A
LDA #$C000
STA $34
PER L2B79+2
L2B79 BRL L3151
RTS
L2B7D REP #$20
LDA #$0004
TSB $08
LDA #$4000
STA $34
LDA $04
ASL
INC
ASL
BRA L2BA2
L2B90 REP #$20
LDA #$0008
TSB $08
LDA #$8000
STA $34
LDA $04
INC
ASL
INC
ASL
L2BA2 CLC
ADC $BE
STA $38
LDA $00
ADC $C0
STA $3A
PER L2BB0+2
L2BB0 BRL L3151
RTS
L2BB4 REP #$20
LDA $04
ASL
ASL
TAY
LDA [$BE],Y
AND #$00FF
CMP #$00FF
BEQ L2BD2
AND #$0003
BEQ L2BDB
DEC
DEC
BEQ L2BF1
BMI L2BEA
BRA L2BF8
L2BD2 LDA $00
STA $34
INY
INY
TYA
BRA L2BA2
L2BDB PER L2BDE+2
L2BDE BRL L2F1E
BCS L2BE9
PER L2BE6+2
L2BE6 BRL L3151
L2BE9 RTS
L2BEA LDA #$0004
TSB $08
BRA L2BDB
L2BF1 LDA #$0008
TSB $08
BRA L2BDB
L2BF8 LDA $0A
AND #$00FF
CMP #$0011
BEQ L2C12
CMP #$0013
BPL L2C0A
BRL L2B33
L2C0A CMP #$0019
BMI L2C12
BRL L2B33
L2C12 LDA #$000C
TSB $08
BRA L2BDB
L2C19 PHY
PEI $36
PEI $34
AND #$00FF
SEC
SBC #$0072
BPL L2C2A
BRL L2CB2
L2C2A CMP #$0004
BMI L2C41
SEC
SBC #$0005
BMI L2CB2
CMP #$0004
BPL L2CB2
LDA #$4132
STA $34
BRA L2C4B
L2C41 TAX
CLC
ROR
ROR
ROR
ORA #$0106
STA $34
L2C4B LDA $12
XBA
AND #$007F
DEC
ASL
TAY
LDA [$CA],Y
CMP #$0024
BPL L2CBF
BIT $34
BMI L2C63
BVS L2C63
INC
INC
L2C63 ORA #$0100
STA $36
L2C68 LDA $60
BEQ L2C72
PER L2C6F+2
L2C6F BRL L2A12
L2C72 BIT $89
BMI L2C95
BVS L2C8D
PER L2C7B+2
L2C7B BRL L3151
BIT $89
BVC L2C9B
BIT $08
BPL L2C9B
LDA #$0040
TRB $8A
BRA L2C9B
L2C8D PER L2C90+2
L2C90 BRL L3151
BRA L2C9B
L2C95 PER L2C98+2
L2C98 BRL L3145
L2C9B LDA $5C
STA $5E
STZ $12
STZ $60
LDA #$0080
TRB $8B
TRB $8A
PLY
STY $34
PLY
STY $36
PLY
RTS
L2CB2 PEA $0045
PHK
PER L2CB9+2
L2CB9 BRL L3CE4
BRL L21FC
L2CBF CLC
ADC #$FFDC
PHA
LDY $5C
LDA #$00A0
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
LDA #$0044
ORA #$0200
STA $36
STY $5C
BRA L2C68
L2CDD REP #$20
AND #$0003
TAX
CLC
ROR
ROR
ROR
STA $34
LDA $04
ASL
TAY
TXA
AND #$00FF
TAX
ASL
ASL
TSB $08
LDA [$CA],Y
CMP #$0024
BPL L2D0E
DEX
BPL L2D02
INC
INC
L2D02 ORA #$0100
TSB $34
PER L2D0A+2
L2D0A BRL L3151
RTS
L2D0E LDA #$0044
ORA #$0200
TSB $34
LDA [$CA],Y
CLC
ADC #$FFDC
PHA
LDY $5C
LDA #$00A0
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
BIT $88
BVS L2D40
PHY
PHA
LDY $60
LDA #$00A0
STA [$D2],Y
INY
PLA
STA [$D2],Y
INY
INY
STY $60
PLY
L2D40 STY $5C
BIT $8E
BPL L2D5D
PER L2D49+2
L2D49 BRL L33AC
LDA #$0080
TRB $8F
PER L2D54+2
L2D54 BRL L3151
LDA #$0080
TSB $8F
RTS
L2D5D PER L2D60+2
L2D60 BRL L3151
RTS
L2D64 LDA #$0080
TSB $8B
LDA $5C
CMP $5E
BNE L2D74
LDA #$0040
TSB $8A
L2D74 BIT $89
BVS L2D82
PER L2D7B+2
L2D7B BRL L2E33
PHA
BRL L2E16
L2D82 LDY #$1092
LDA [$3C],Y
LDY #$1094
STA [$3C],Y
TAX
CMP #$0024
BPL L2DB5
BIT $8B
BMI L2DA1
BIT $08
BMI L2DA7
BVS L2DB0
CMP #$0023
BMI L2DB5
L2DA1 LDA #$0024
TAX
BRA L2DB5
L2DA7 BVS L2DB0
CMP #$001D
BMI L2DB5
BRA L2DA1
L2DB0 CMP #$0021
BPL L2DA1
L2DB5 LDY #$1090
LDA [$3C],Y
PHA
INC
INC
LDY #$1090
STA [$3C],Y
PLY
TXA
CMP #$0024
BPL L2DD5
BIT $8F
BVS L2DDF
BIT $08
BMI L2DDF
BVS L2DDF
BRA L2DEB
L2DD5 BIT $8F
BVS L2DDF
BIT $08
BMI L2DE3
BVC L2DEB
L2DDF INC
INC
BRA L2DEB
L2DE3 BVS L2DDF
INC
INC
INC
INC
BRA L2DDF
L2DEB STA [$CA],Y
TYA
LSR
INC
BIT $8F
BVC L2DF9
ORA #$7780
BRA L2DFC
L2DF9 ORA #$7280
L2DFC XBA
TAY
TXA
BIT $08
BMI L2E1D
BVS L2E2E
L2E05 BIT $8F
BVC L2E0C
TXA
INC
INC
L2E0C INC
INC
PHY
LDY #$1092
STA [$3C],Y
CLC
CLV
L2E16 LDA #$0080
TRB $8A
PLA
RTS
L2E1D BVS L2E27
CLC
ADC #$0006
INY
INY
BRA L2E05
L2E27 INC
INC
INY
INY
INY
BRA L2E05
L2E2E INC
INC
INY
BRA L2E05
L2E33 LDY $5C
LDA #$006B
STA [$CE],Y
PHK
PLB
PER L2E69
LDA $5E
STA $5C
CLC
ADC $CE
LDY #$0001
STA ($01,S),Y
LDA $D0
INY
INY
STA ($01,S),Y
PLA
PEI $06
PEI $04
PEI $0A
PEI $08
PEI $08
PEI $0E
PEI $0C
PEI $12
PEI $10
CLV
PHK
PER L2E6D
L2E69 JMPL $000000
L2E6D DB $00
PLY
STY $10
PLY
STY $12
PLY
STY $0C
PLY
STY $0E
BVS L2ED2
LDA $04
STA $44
LDA $06
STA $46
LDA $08
STA $48
LDA $0A
STA $4A
LDY #$0C8A
LDA [$3C],Y
TAX
ASL
ASL
TAY
PLA
AND #$C000
BEQ L2F05
BMI L2EE0
LDA $04
STA [$BE],Y
INY
INY
LDA $06
STA [$BE],Y
TXA
INC
LDY #$0C8A
STA [$3C],Y
TXA
INC
ORA #$6F80
L2EB3 XBA
TAX
CLC
CLV
L2EB7 PLY
STY $08
PLY
STY $0A
PLY
STY $04
PLY
STY $06
LDA #$0080
TRB $8B
TRB $8A
TXA
PER L2ECE+2
L2ECE BRL L2A12
RTS
L2ED2 PEI $04
PHK
PER L2ED8+2
L2ED8 BRL L3CE4
PLA
SEP #$41
BRA L2EB7
L2EE0 LDA $08
STA [$BE],Y
INY
INY
LDA $0A
STA [$BE],Y
INY
INY
LDA $04
STA [$BE],Y
INY
INY
LDA $06
STA [$BE],Y
TXA
INC
INC
LDY #$0C8A
STA [$3C],Y
TXA
INC
ORA #$7080
BRA L2EB3
L2F05 LDA #$00FF
STA [$BE],Y
INY
INY
LDA $04
STA [$BE],Y
TXA
INC
LDY #$0C8A
STA [$3C],Y
TXA
INC
ORA #$6E80
BRA L2EB3
L2F1E LDA [$BE],Y
AND #$00FF
CMP #$00FF
BNE L2F34
PEA $0045
PHK
PER L2F2F+2
L2F2F BRL L3CE4
BRA L2F4B
L2F34 AND #$0003
CLC
ROR
ROR
ROR
STA $34
STZ $1A
LDA #$FF00
AND $36
XBA
DEC
DEC
BNE L2F4B
DEC $1A
L2F4B INY
INY
LDA [$BE],Y
TAX
CLC
ADC #$0006
TAY
LDA [$E0],Y
BPL L2F66
PEA $0064
PHK
PER L2F60+2
L2F60 BRL L3CE4
BRL L302C
L2F66 XBA
AND #$00FF
STA $0E
LDA [$E0],Y
DEY
DEY
AND #$00FF
PHA
BEQ L2F79
BRL L302E
L2F79 LDA [$E0],Y
CMP #$FFF9
BCC L2F83
BRL L3030
L2F83 STA $01,S
TXY
INY
INY
LDA [$E0],Y
AND #$0010
BEQ L2F92
BRL L30E4
L2F92 LDA $0E
CMP #$007F
BNE L2FC5
PLA
CLC
ADC $B8
BIT $34
BMI L2FA5
BVC L2FAD
BRA L2FAB
L2FA5 BVS L2FAB
INC
INC
INC
INC
L2FAB INC
INC
L2FAD CMP #$0100
BCC L2FBE
PEA $0065
PHK
PER L2FB9+2
L2FB9 BRL L3CE4
BRA L302C
L2FBE ORA #$0300
TSB $34
BRA L302A
L2FC5 DEC
ASL
ASL
CLC
ADC #$0250
TSB $34
LDY $5C
BIT $1A
BPL L2FD9
LDA #$00A2
BRA L2FEE
L2FD9 LDA #$00A0
BIT $91
BMI L2FEB
BIT $8E
BPL L2FEE
LDX #$0400
CPX $36
BNE L2FEE
L2FEB LDA #$00A9
L2FEE STA [$CE],Y
INY
PLA
BIT $91
BMI L300E
BIT $8E
BPL L2FFE
CPX $36
BEQ L300E
L2FFE BIT $34
BMI L3006
BVC L300E
BRA L300C
L3006 BVS L300C
INC
INC
INC
INC
L300C INC
INC
L300E STA [$CE],Y
INY
INY
BIT $88
BVS L3028
PHY
PHA
LDY $60
LDA #$00A0
STA [$D2],Y
INY
PLA
STA [$D2],Y
INY
INY
STY $60
PLY
L3028 STY $5C
L302A CLC
RTS
L302C SEC
RTS
L302E LDA [$E0],Y
L3030 PER L3033+2
L3033 BRL L2A12
PHA
LDA #$0238
CMP $36
BNE L3041
LDA #$0234
L3041 TSB $34
LDY $5C
LDA $0E
CMP #$007F
BCC L3058
PEA $0065
PHK
PER L3053+2
L3053 BRL L3CE4
BRA L302C
L3058 DEC
ASL
ASL
CLC
ADC #$A550
XBA
STA [$CE],Y
INY
INY
LDA #$6918
STA [$CE],Y
INY
INY
PLA
STA [$CE],Y
INY
INY
LDA $34
AND #$00FF
XBA
ORA #$0085
STA [$CE],Y
INY
INY
LDA $0E
DEC
ASL
ASL
CLC
ADC #$A552
XBA
STA [$CE],Y
INY
INY
LDA #$0069
STA [$CE],Y
INY
PLA
STA [$CE],Y
L3094 INY
INY
LDA $34
AND #$00FF
INC
INC
XBA
ORA #$0085
STA [$CE],Y
INY
INY
LDA #$00A2
BIT $1A
BMI L30C8
LDA #$00A0
BIT $91
BMI L30BE
BIT $8E
BPL L30C8
LDX #$0400
CPX $36
BNE L30C8
L30BE LDA #$00A9
STA [$CE],Y
LDA $00
INY
BRA L30DD
L30C8 STA [$CE],Y
INY
LDA $00
BIT $34
BMI L30D5
BVC L30DD
BRA L30DB
L30D5 BVS L30DB
INC
INC
INC
INC
L30DB INC
INC
L30DD STA [$CE],Y
INY
INY
BRL L3028
L30E4 PER L30E7+2
L30E7 BRL L2A12
LDA #$0238
CMP $36
BNE L30F4
LDA #$0234
L30F4 TSB $34
LDY $5C
BIT $1A
BPL L3102
LDA #$005A
STA [$CE],Y
INY
L3102 LDA #$00A0
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
LDA $0E
DEC
ASL
ASL
CLC
ADC #$B750
XBA
PHA
STA [$CE],Y
INY
INY
LDA $34
AND #$00FF
XBA
ORA #$0085
STA [$CE],Y
INY
INY
LDA #$C8C8
STA [$CE],Y
INY
INY
PLA
STA [$CE],Y
BIT $1A
BMI L313A
BRL L3094
L313A INY
INY
LDA #$007A
STA [$CE],Y
DEY
BRL L3094
L3145 LDA #$0007
AND $37
ASL
TAY
PER L31A5
BRA L3184
L3151 LDA #$0007
AND $35
BEQ L315E
PER L315B+2
L315B BRL L2A55
L315E ASL
PHA
ASL
CLC
ADC $01,S
STA $01,S
LDA #$0007
AND $37
DEC
BEQ L317A
PER L3171+2
L3171 BRL L2A12
PER L3177+2
L3177 BRL L2A55
L317A INC
CLC
ADC $01,S
ASL
TAY
PLA
PER L31B1
L3184 PHK
PLB
LDA ($01,S),Y
CLC
ADC $01,S
STA $01,S
LDY $5C
LDA $36
AND #$00FF
TAX
BIT $34
BMI L319C
BVS L319C
RTS
L319C PER L319F+2
L319F BRL L2A12
LDY $5C
RTS
L31A5 DW $003B
DW $003E
DW $004B
DW $003B
DW $0052
DW $003B
L31B1 DW $002F
DW $00AF
DW $015B
DW $002F
DW $01AC
DW $002F
DW $002F
DW $024C
DW $03B6
DW $002F
DW $0446
DW $002F
DW $002F
DW $0538
DW $0611
DW $002F
DW $06EE
DW $002F
DW $002F
DW $07A7
DW $0855
DW $002F
DW $08E2
DW $002F
SEC
BRA L3217
DEX
DEX
TXA
XBA
ORA #$0085
L31EB STA [$CE],Y
INY
INY
BRA L3214
TXA
XBA
ORA #$0097
BRA L31EB
BIT $8E
BPL L3204
STZ $34
PER L3201+2
L3201 BRL L33AC
L3204 LDA #$0048
STA [$CE],Y
INY
INC $B8
INC $B8
L320E BRA L3214
DEY
L3211 DEY
L3212 DEY
L3213 DEY
L3214 STY $5C
CLC
L3217 PHP
LDA #$0080
TRB $88
LSR
TRB $90
PLP
RTS
L3222 LDA #$8000
BIT $87
BMI L3243
BIT $34
BVS L3260
BMI L3260
CMP $64
BEQ L323F
INC
CMP $64
BNE L3260
LDA [$38]
EOR #$FFFF
STA [$38]
L323F STZ $64
BRA L3260
L3243 TRB $87
BIT $34
BVS L325C
BMI L325C
LDA $00
SEC
SBC [$38]
BVC L325E
PEA $0051
PHK
PER L3259+2
L3259 BRL L3CE4
L325C EOR [$38]
L325E STA [$38]
L3260 RTS
PER L3264+1
L3264 BRA L3222
BIT $34
BVS L3273
BMI L3273
DEX
DEX
PER L3213
BRA L329F
L3273 PER L3276+1
L3276 BRA L329F
DEC $38
DEC $38
DEX
DEX
PER L3281+1
L3281 BRA L329F
BIT $34
BVS L3214
DEC $38
DEC $38
TXA
CLC
ADC #$0006
TAX
PER L3294+1
L3294 BRA L329F
DEC $38
DEC $38
DEX
DEX
PER L3213
L329F LDA #$00A9
STA [$CE],Y
LDA [$38]
BEQ L3306
INY
STA [$CE],Y
INY
INY
TXA
XBA
ORA #$0085
L32B2 STA [$CE],Y
INY
INY
BIT $88
BVC L32BB
RTS
L32BB PHY
LDY $60
BIT $08
BMI L32F6
LDA $0A
CMP #$0011
BEQ L32D6
CMP #$0012
BEQ L32DD
PER L32D1+2
L32D1 BRL L2A12
BRA L3304
L32D6 LDA #$6918
STA [$D2],Y
BRA L32E2
L32DD LDA #$E938
STA [$D2],Y
L32E2 INY
INY
LDA [$38]
STA [$D2],Y
INY
INY
LDA #$0250
STA [$D2],Y
INY
INY
LDA #$7302
BRA L32FE
L32F6 LDA #$00A9
STA [$D2],Y
INY
LDA [$38]
L32FE STA [$D2],Y
INY
INY
STY $60
L3304 PLY
RTS
L3306 TXA
XBA
ORA #$0064
BRA L32B2
PER L3310+2
L3310 BRL L3222
PER L3316+1
L3316 BRA L3341
BIT $34
BVS L3321
BMI L3321
BRL L3212
L3321 DEC $38
DEC $38
PER L3328+1
L3328 BRA L3341
BIT $34
BVC L3331
BRL L3212
L3331 DEC $38
DEC $38
PER L3338+1
L3338 BRA L3341
DEC $38
DEC $38
PER L3211
L3341 LDA #$00A9
STA [$CE],Y
LDA [$38]
INY
STA [$CE],Y
INY
INY
TXA
XBA
ORA #$0097
STA [$CE],Y
INY
INY
LDA #$8888
STA [$CE],Y
INY
INY
RTS
BIT $8E
BPL L3367
PER L3365+1
L3365 BRA L33AC
L3367 PER L336A+2
L336A BRL L3222
PER L3370+1
L3370 BRA L339B
BIT $34
BVS L337B
BMI L337B
BRL L3214
L337B DEC $38
DEC $38
PER L3382+1
L3382 BRA L339B
BIT $34
BVC L338B
BRL L3214
L338B DEC $38
DEC $38
PER L3392+1
L3392 BRA L339B
DEC $38
DEC $38
PER L3213
L339B LDA #$00F4
STA [$CE],Y
INY
LDA [$38]
STA [$CE],Y
INY
INY
INC $B8
INC $B8
RTS
L33AC BIT $8F
BVS L33D2
LDA #$FF00
TRB $AC
LDA #$6E00
BIT $34
BMI L33C6
BVS L33C1
L33BE TSB $AC
RTS
L33C1 LDA #$6F00
BRA L33BE
L33C6 BVS L33CD
LDA #$7000
BRA L33BE
L33CD LDA #$7100
BRA L33BE
L33D2 LDA #$0040
TRB $8F
RTS
L33D8 BIT $8F
BVS L33D2
LDA #$FF00
TRB $AC
LDA #$7200
BIT $34
BMI L33F2
BVS L33ED
L33EA TSB $AC
RTS
L33ED LDA #$7300
BRA L33EA
L33F2 BVS L33F9
LDA #$7400
BRA L33EA
L33F9 LDA #$7500
BRA L33EA
BIT $34
BMI L344D
BVS L344D
DEX
DEX
DEC $34
DEC $34
PER L3213
LDA #$8000
CMP $64
BEQ L3430
INC
CMP $64
BNE L3432
PER L341C+2
L341C BRL L3525
LDA $34
AND #$00FF
XBA
ORA #$0045
PER L342B+2
L342B BRL L3536
BRA L3497
L3430 STZ $64
L3432 BIT $87
BPL L3480
PER L3439+2
L3439 BRL L352A
LDA $34
AND #$00FF
XBA
ORA #$00E5
PER L3448+2
L3448 BRL L353D
BRA L3497
L344D PER L3450+1
L3450 BRA L3480
DEX
DEX
DEC $34
DEC $34
PER L345B+1
L345B BRA L3480
BIT $34
BVC L3464
BRL L3214
L3464 TXA
CLC
ADC #$0006
TAX
LDA $34
CLC
ADC #$0006
STA $34
PER L3475+1
L3475 BRA L3480
DEX
DEX
DEC $34
DEC $34
PER L3213
L3480 LDA $34
AND #$00FF
XBA
ORA #$00A5
STA [$CE],Y
INY
INY
BIT $87
BPL L3497
PER L3494+2
L3494 BRL L3558
L3497 TXA
XBA
ORA #$0085
STA [$CE],Y
INY
INY
BIT $88
BVS L34B2
LDA $34
AND #$00FF
XBA
ORA #$0005
PER L34B0+1
L34B0 BRA L34B3
L34B2 RTS
L34B3 PHY
PHA
LDY $60
BIT $08
BPL L34CC
BIT $87
BPL L350F
LDA #$00A9
STA [$D2],Y
INY
INY
XBA
STA [$D2],Y
INY
BRA L34F5
L34CC LDA #$0011
CMP $0A
BEQ L34E1
INC
CMP $0A
BEQ L34F1
PER L34DB+2
L34DB BRL L2A12
PLA
PLY
RTS
L34E1 BIT $87
BMI L34F5
L34E5 LDA #$0018
STA [$D2],Y
INY
PLA
ORA #$0060
BRA L34FF
L34F1 BIT $87
BMI L34E5
L34F5 LDA #$0038
STA [$D2],Y
INY
PLA
ORA #$00E0
L34FF STA [$D2],Y
INY
INY
LDA #$0250
STA [$D2],Y
INY
INY
LDA #$7302
BRA L3513
L350F PLA
ORA #$00A0
L3513 STA [$D2],Y
INY
INY
STY $60
PLY
RTS
L351B TXA
XBA
ORA #$00A5
STA [$CE],Y
INY
INY
RTS
L3525 LDA #$FFA9
BRA L352D
L352A LDA #$00A9
L352D STA [$CE],Y
INY
INY
XBA
STA [$CE],Y
INY
RTS
L3536 STA [$CE],Y
INY
INY
STZ $64
RTS
L353D PHA
LDA #$0038
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
LDA #$0250
STA [$CE],Y
INY
INY
LDA #$7302
STA [$CE],Y
INY
INY
RTS
L3558 LDA #$0049
STA [$CE],Y
INY
LDA #$8000
TRB $87
STA [$CE],Y
INY
INY
RTS
LDA $34
AND #$00FF
TAX
BIT $34
BMI L35AD
BVS L35AD
DEX
DEX
PER L3211
LDA #$8000
CMP $64
BEQ L3596
INC
CMP $64
BNE L3598
PER L3588+1
L3588 BRA L3525
TXA
XBA
ORA #$0045
PER L3592+1
L3592 BRA L3536
BRA L35E3
L3596 STZ $64
L3598 BIT $87
BPL L35D0
PER L359F+1
L359F BRA L352A
TXA
XBA
ORA #$00E5
PER L35A9+1
L35A9 BRA L353D
BRA L35E3
L35AD PER L35B0+1
L35B0 BRA L35D0
DEX
DEX
PER L35B7+1
L35B7 BRA L35D0
BIT $34
BVC L35C0
BRL L3212
L35C0 TXA
CLC
ADC #$0006
TAX
PER L35C9+1
L35C9 BRA L35D0
DEX
DEX
PER L3211
L35D0 TXA
XBA
ORA #$00A5
STA [$CE],Y
INY
INY
BIT $87
BPL L35E3
PER L35E0+2
L35E0 BRL L3558
L35E3 LDA $36
AND #$00FF
XBA
ORA #$0097
STA [$CE],Y
INY
INY
LDA #$8888
STA [$CE],Y
INY
INY
RTS
BIT $8E
BPL L361C
LDA $34
AND #$00FF
CMP #$0024
BMI L3616
BNE L360E
BIT $34
BMI L360E
BVC L3616
L360E PER L3611+2
L3611 BRL L33D8
BRA L361C
L3616 PER L3619+2
L3619 BRL L33AC
L361C LDA $34
AND #$00FF
CMP #$0024
BMI L363A
BNE L362E
BIT $34
BMI L362E
BVC L363A
L362E TAX
LDA $34
AND #$3FFF
ORA #$4000
STA $34
TXA
L363A TAX
BIT $34
BMI L3687
BVS L3687
DEX
DEX
PER L3213
LDA #$8000
CMP $64
BEQ L3665
INC
CMP $64
BNE L3667
PER L3655+2
L3655 BRL L3525
TXA
XBA
ORA #$0045
PER L3660+2
L3660 BRL L3536
BRA L367C
L3665 STZ $64
L3667 BIT $87
BPL L36C6
PER L366E+2
L366E BRL L352A
TXA
XBA
ORA #$00E5
PER L3679+2
L3679 BRL L353D
L367C LDA #$0048
STA [$CE],Y
INY
INC $B8
INC $B8
RTS
L3687 BIT $87
BPL L36A3
PER L368E+2
L368E BRL L351B
PER L3694+2
L3694 BRL L3558
LDA #$0048
STA [$CE],Y
INY
INC $B8
INC $B8
BRA L36A8
L36A3 PER L36A6+1
L36A6 BRA L36C6
L36A8 DEX
DEX
PER L36AD+1
L36AD BRA L36C6
BIT $34
BVC L36B6
BRL L3214
L36B6 TXA
CLC
ADC #$0006
TAX
PER L36BF+1
L36BF BRA L36C6
DEX
DEX
PER L3213
L36C6 TXA
XBA
ORA #$00D4
STA [$CE],Y
INY
INY
INC $B8
INC $B8
RTS
L36D4 CLC
ADC $00
STA $00
LDA $00
BCC L36DE
INC
L36DE STA $00
DB $FF ; LOGO BUG?
L36E1 LDA $00
STA $00
LDA $00
STA $00
DB $FF ; LOGO BUG?
BIT $91
BPL L371A
LDA $34
AND #$00FF
STA $1C
INC
INC
DEX
DEX
STX $1D
STA $1E
INX
INX
STX $1F
PER L3704+2
L3704 BRL L388A
PER L36D4
BCS L3710
PLA
PER L36E1
L3710 PER L3713+2
L3713 BRL L3B1E
PLA
BRL L3214
L371A BIT $34
BMI L3765
BVS L3765
DEX
DEX
PER L3211
LDA #$8000
CMP $64
BEQ L3748
INC
CMP $64
BNE L374A
PER L3734+2
L3734 BRL L3525
LDA $34
AND #$00FF
XBA
ORA #$0057
PER L3743+2
L3743 BRL L3536
BRA L379F
L3748 STZ $64
L374A BIT $87
BPL L3788
PER L3751+2
L3751 BRL L352A
LDA $34
AND #$00FF
XBA
ORA #$00F7
PER L3760+2
L3760 BRL L353D
BRA L379F
L3765 PER L3768+1
L3768 BRA L3788
DEX
DEX
PER L376F+1
L376F BRA L3788
BIT $34
BVC L3778
BRL L3212
L3778 TXA
CLC
ADC #$0006
TAX
PER L3781+1
L3781 BRA L3788
DEX
DEX
PER L3211
L3788 LDA $34
AND #$00FF
XBA
ORA #$00B7
STA [$CE],Y
INY
INY
BIT $87
BPL L379F
PER L379C+2
L379C BRL L3558
L379F TXA
XBA
ORA #$0085
STA [$CE],Y
INY
INY
LDA #$8888
STA [$CE],Y
INY
INY
BIT $88
BVS L37C2
LDA $34
AND #$00FF
XBA
ORA #$0017
PER L37BF+2
L37BF BRL L34B3
L37C2 RTS
PER L320E+1
BIT $34
BMI L381A
BVS L381A
LDA #$8000
CMP $64
BEQ L37F6
INC
CMP $64
BNE L37F8
LDA #$9B5A
STA [$CE],Y
INY
INY
PER L37E2+2
L37E2 BRL L3525
LDA $34
AND #$00FF
XBA
ORA #$0057
PER L37F1+2
L37F1 BRL L3536
BRA L384C
L37F6 STZ $64
L37F8 BIT $87
BPL L382E
PER L37FF+2
L37FF BRL L352A
LDA #$9B5A
STA [$CE],Y
INY
INY
LDA $34
AND #$00FF
XBA
ORA #$00F7
PER L3815+2
L3815 BRL L353D
BRA L384C
L381A PER L381D+1
L381D BRA L382E
BIT $34
BVS L382E
PER L3826+1
L3826 BRA L382E
PER L382B+1
L382B BRA L382E
NOP
L382E LDA #$9B5A
STA [$CE],Y
INY
INY
LDA $34
AND #$00FF
XBA
ORA #$00B7
STA [$CE],Y
INY
INY
BIT $87
BPL L384C
PER L3849+2
L3849 BRL L3558
L384C LDA #$007A
STA [$CE],Y
INY
TXA
XBA
ORA #$0097
STA [$CE],Y
INY
INY
LDA #$8888
STA [$CE],Y
INY
INY
LDA #$CACA
STA [$CE],Y
INY
INY
RTS
L386A LDA #$0000
L386D CLC
ADC $00
TAY
LDA $00
BCC L3876
INC
L3876 PHA
PHY
DB $FF ; LOGO BUG?
L3879 PEI $00
PEI $00
DB $FF ; LOGO BUG?
L387E LDY #$0000
LDA [$00],Y
PHA
DEY
DEY
LDA [$00],Y
PHA
DB $FF ; LOGO BUG?
L388A TYX
DEY
DEY
BMI L389D
LDA [$CE],Y
BNE L389D
DEY
LDA [$CE],Y
CMP #$00A9
BNE L389D
CLC
RTS
L389D TXY
SEC
RTS
BIT $8E
BPL L38AA
PER L38A7+2
L38A7 BRL L33D8
L38AA LDA $34
AND #$00FF
TAX
BIT $8E
BPL L38DF
STA $1C
INC
INC
STA $1D
PER L38BD+1
L38BD BRA L388A
PER L386D
BCS L38CD
PLA
PER L3879
LDA $1C
XBA
STA $1C
L38CD PER L38D0+2
L38D0 BRL L3B1E
PLA
INC $B8
INC $B8
INC $B8
INC $B8
BRL L3214
L38DF PER L3211
BIT $34
BMI L3920
BVS L3920
LDA #$8000
CMP $64
BEQ L3907
INC
CMP $64
BNE L3909
PER L38F7+2
L38F7 BRL L3525
TXA
XBA
ORA #$0057
PER L3902+2
L3902 BRL L3536
BRA L3947
L3907 STZ $64
L3909 BIT $87
BPL L3934
PER L3910+2
L3910 BRL L352A
TXA
XBA
ORA #$00F7
PER L391B+2
L391B BRL L353D
BRA L3947
L3920 PER L3923+1
L3923 BRA L3934
BIT $34
BVS L3934
PER L392C+1
L392C BRA L3934
PER L3931+1
L3931 BRA L3934
NOP
L3934 TXA
XBA
ORA #$00B7
STA [$CE],Y
INY
INY
BIT $87
BPL L3947
PER L3944+2
L3944 BRL L3558
L3947 LDA #$0048
STA [$CE],Y
INY
LDA #$8888
STA [$CE],Y
INY
INY
INC $B8
INC $B8
RTS
BIT $34
BMI L39A4
BVS L39A4
DEX
DEX
PER L3213
LDA #$8000
CMP $64
BEQ L3987
INC
CMP $64
BNE L3989
PER L3973+2
L3973 BRL L3525
LDA $34
AND #$00FF
XBA
ORA #$0043
PER L3982+2
L3982 BRL L3536
BRA L39EA
L3987 STZ $64
L3989 BIT $87
BPL L39D3
PER L3990+2
L3990 BRL L352A
LDA $34
AND #$00FF
XBA
ORA #$00E3
PER L399F+2
L399F BRL L353D
BRA L39EA
L39A4 PER L39A7+1
L39A7 BRA L39D3
DEX
DEX
DEC $34
DEC $34
PER L39B2+1
L39B2 BRA L39D3
BIT $34
BVC L39BB
BRL L3214
L39BB TXA
CLC
ADC #$0006
TAX
DEC $34
DEC $34
PER L39C8+1
L39C8 BRA L39D3
DEC $34
DEC $34
DEX
DEX
PER L3213
L39D3 LDA $34
AND #$00FF
XBA
ORA #$00A3
STA [$CE],Y
INY
INY
BIT $87
BPL L39EA
PER L39E7+2
L39E7 BRL L3558
L39EA TXA
XBA
ORA #$0085
STA [$CE],Y
INY
INY
BIT $88
BVS L3A06
LDA $34
AND #$00FF
XBA
ORA #$0003
PER L3A03+2
L3A03 BRL L34B3
L3A06 RTS
LDA $34
AND #$00FF
XBA
TAX
BIT $34
BMI L3A51
BVS L3A51
LDA #$8000
CMP $64
BEQ L3A33
INC
CMP $64
BNE L3A35
PER L3A23+2
L3A23 BRL L3525
TXA
XBA
ORA #$0043
PER L3A2E+2
L3A2E BRL L3536
BRA L3A82
L3A33 STZ $64
L3A35 BIT $87
BPL L3A4C
PER L3A3C+2
L3A3C BRL L352A
TXA
XBA
ORA #$00E3
PER L3A47+2
L3A47 BRL L353D
BRA L3A82
L3A4C PER L3211
BRA L3A6F
L3A51 PER L3A54+1
L3A54 BRA L3A6F
DEX
DEX
PER L3A5B+1
L3A5B BRA L3A6F
BIT $34
BVC L3A64
BRL L3212
L3A64 DEX
DEX
PER L3A69+1
L3A69 BRA L3A6F
DEX
DEX
BRA L3A4C
L3A6F TXA
XBA
ORA #$00A3
STA [$CE],Y
INY
INY
BIT $87
BPL L3A82
PER L3A7F+2
L3A7F BRL L3558
L3A82 LDA $36
AND #$00FF
ORA #$0097
STA [$CE],Y
LDA #$8888
STA [$CE],Y
INY
INY
RTS
BIT $8E
BPL L3A9E
PER L3A9B+2
L3A9B BRL L33AC
L3A9E LDA $34
AND #$00FF
TAX
BIT $34
BMI L3AE8
BVS L3AE8
LDA #$8000
CMP $64
BEQ L3ACA
INC
CMP $64
BNE L3ACC
PER L3AB9+2
L3AB9 BRL L3525
TXA
XBA
ORA #$0043
PER L3AC4+2
L3AC4 BRL L3536
BRL L379F
L3ACA STZ $64
L3ACC BIT $87
BPL L3AE3
PER L3AD3+2
L3AD3 BRL L352A
TXA
XBA
ORA #$00E3
PER L3ADE+2
L3ADE BRL L353D
BRA L3B13
L3AE3 PER L3213
BRA L3B00
L3AE8 PER L3AEB+1
L3AEB BRA L3B00
PER L3AF0+1
L3AF0 BRA L3B00
BIT $34
BVC L3AF9
BRL L3214
L3AF9 PER L3AFC+1
L3AFC BRA L3B00
BRA L3AE3
L3B00 TXA
XBA
ORA #$00A3
STA [$CE],Y
INY
INY
BIT $87
BPL L3B13
PER L3B10+2
L3B10 BRL L3558
L3B13 LDA #$0048
STA [$CE],Y
INY
INC $B8
INC $B8
RTS
L3B1E PHP
LDX $00
PHX
PHY
PHK
PLB
SEP #$20
LDA $00
XBA
L3B2A LDA $03,S
TAY
INC
STA $03,S
LDA ($08,S),Y
BNE L3B39
LDA $1C,X
INX
BRA L3B3D
L3B39 INC
BEQ L3B44
DEC
L3B3D PLY
STA [$CE],Y
INY
PHY
BRA L3B2A
L3B44 PLY
PLX
PLP
RTS
MX %00
L3B48 PHK
PER L3B4C+2
L3B4C BRL L8DCE
LDA #$03F6
CLC
ADC $3C
STA $28
LDA $00
ADC $3E
STA $2A
PER L3B60+2
L3B60 BRL L3C54
BCS L3B9B
STA [$28]
STZ $04
DEC
STA $04
TAX
BMI L3B9B
BEQ L3B9B
CMP #$0100
BPL L3B9B
INC
LDY #$01B8
CLC
ADC [$3C],Y
STA [$3C],Y
BCC L3B88
INY
INY
LDA [$3C],Y
INC
STA [$3C],Y
L3B88 LDY $00
L3B8A INY
DEC $04
BMI L3BB6
PHY
PER L3B93+2
L3B93 BRL L3C54
PLY
STA [$28],Y
BCC L3B8A
L3B9B PEA $0045
PHK
PER L3BA2+2
L3BA2 BRL L3CE4
PHK
PHK
PER L3C6F
LDX $F4
PHK
PER L3BB0+2
L3BB0 BRL LAF42
BRL L0C73
L3BB6 LDA [$28]
XBA
AND #$00FF
CMP #$00FF
BNE L3BCC
LDY #$0002
PER L3BC7+1
L3BC7 BRA L3BCD
BRL L3B48
L3BCC RTS
L3BCD LDA [$28],Y
AND #$00FF
STA $B0
INY
LDA [$28],Y
TAX
INY
INY
LDA [$28],Y
INY
INY
PHA
PHY
LDY #$004A
STA [$3C],Y
TXA
LDY #$0046
STA [$3C],Y
PLY
LDA $72
LSR
BCC L3BF3
PLA
PHX
L3BF3 LDA [$28],Y
AND #$00FF
PLY
PHA
PHY
LDY #$0038
STA [$3C],Y
LDA $72
LSR
LSR
BCS L3C28
LDA #$0100
BIT $72
BEQ L3C11
TRB $72
BRA L3C28
L3C11 LDA #$0040
BIT $72
BNE L3C1C
PLA
PLA
BRA L3C46
L3C1C LDA #$7602
LDY $5C
STA [$CE],Y
INY
PLA
PLA
BRA L3C3E
L3C28 LDY $5C
LDA #$7402
STA [$CE],Y
INY
INY
LDA $B0
STA [$CE],Y
INY
PLA
STA [$CE],Y
INY
INY
PLA
STA [$CE],Y
L3C3E INY
STY $5C
LDA #$0080
TRB $93
L3C46 PER L3C49+2
L3C49 BRL L2114
PHK
PER L3C50+2
L3C50 BRL L0580
RTS
L3C54 LDA $6A
LDY #$002C
CMP [$3C],Y
BMI L3C65
PER L3C60+1
L3C60 BRA L3C9E
BCC L3C54
RTS
L3C65 TAY
LDA [$24],Y
AND #$00FF
INC $6A
CLC
RTS
L3C6F ASC 'Error on reading intermediate file (0F '
ASC 'file).'0D00
L3C9E LDA #$179E
CLC
ADC $3C
STA $24
LDA $00
ADC $3E
STA $26
LDY #$002C
LDA [$3C],Y
BMI L3CE2
PEA $0000
PEA $0800
PEI $26
PEI $24
LDA [$3C]
PHA
PHK
PER L3CC4+2
L3CC4 BRL LA585
BCC L3CCB
LDA $00
L3CCB PHA
PLA
BMI L3CDA
BEQ L3CDA
LDY #$002C
STA [$3C],Y
STZ $6A
CLC
RTS
L3CDA LDA #$FFFF
LDY #$002C
STA [$3C],Y
L3CE2 SEC
RTS
L3CE4 PHP
PHB
REP #$20
PEA $0003
PEI $EE
PEI $EC
L3CEF RTL
TSC
LDY #$0082
STA [$3C],Y
PER L3CF9+2
L3CF9 BRL L4CA9
LDX #$0016
PHK
PER L3D0A
PEA $0009
PEI $EE
PEI $EC
L3D0A RTL
LDA #$0020
BIT $72
BEQ L3D1F
PHK
PER L3D16+2
L3D16 BRL L08D6
PER L3D1C+2
L3D1C BRL L71DF
L3D1F LDA #$0000
STA [$24]
INC $24
INC $24
L3D28 REP #$20
LDA $6C
BEQ L3D37
STZ $6C
DEC
BEQ L3D37
INC $6C
PHA
RTS
L3D37 BIT $8F
BPL L3D3E
BRL L4426
L3D3E BIT $8D
BVC L3D77
BRL L5466
L3D45 BIT $8B
BVS L3D6B
BIT $8F
BMI L3D6B
LDA $6C
BEQ L3D56
STZ $6C
DEC
BNE L3D6B
L3D56 PHK
PER L3D5A+2
L3D5A BRL L6C35
PHP
PER L3D61+2
L3D61 BRL L6B82
LDA #$2000
TRB $68
BRA L3D86
L3D6B PEA $0002
PHK
PER L3D72+2
L3D72 BRL L8D82
BRA L3D99
L3D77 PHK
PER L3D7B+2
L3D7B BRL L0580
PHK
PER L3D82+2
L3D82 BRL L6C35
PHP
L3D86 STZ $66
LDA #$0001
TSB $A4
LDA #$DBFF
TRB $68
LDA $B0
STA $C2
PLP
BRA L3DFA
L3D99 REP #$20
LDY #$0082
LDA [$3C],Y
TCS
STZ $90
LDA #$00C0
STZ $6C
AND $8E
BEQ L3D77
TRB $8E
BRA L3D77
L3DB0 PER L3DB3+2
L3DB3 BRL L658A
L3DB6 STZ $10
LDA [$28]
AND #$00FF
BNE L3DF9
BIT $8F
BVS L3DF9
PEA $0070
PHK
PER L3DCA+2
L3DCA BRL L8D82
BRA L3D99
L3DCF LDA #$00FF
TRB $8F
TRB $92
LSR
TRB $A5
TRB $93
LDA $00
LDY #$0BB2
STA [$3C],Y
LDY #$0032
STA [$3C],Y
LDY #$0C8A
STA [$3C],Y
LDA #$FFC0
TRB $88
STZ $8A
STZ $8C
DEC
STA $CA
RTS
L3DF9 CLC
L3DFA PHP
BIT $8A
BVC L3E25
LDX #$0000
PHK
PER L3E0D
PEA $0012
PEI $EE
PEI $EC
L3E0D RTL
LDX #$000B
PHK
PER L3E1C
PEA $0009
PEI $EE
PEI $EC
L3E1C RTL
LDA $C8
STA [$24]
INC $24
INC $24
L3E25 PLP
BCC L3E2B
BRL L6A0A
L3E2B PER L3E2E+1
L3E2E BRA L3DCF
BIT $8F
BVC L3E37
BRL L4092
L3E37 BPL L3E3C
BRL L4053
L3E3C LDA [$28]
AND #$00FF
CMP #$0027
BNE L3E49
BRL L49D4
L3E49 BIT $92
BPL L3E50
BRL L3D28
L3E50 LDY $28
STY $6A
LDA $10
BMI L3E81
LDA [$28]
AND #$00FF
BNE L3E62
BRL L3D28
L3E62 CMP #$003F
BNE L3E6A
BRL L59D6
L3E6A CMP #$0030
BCS L3E72
BRL L3F68
L3E72 CMP #$003A
BCC L3E7A
BRL L3F68
L3E7A BIT $8D
BVC L3E81
BRL L3F68
L3E81 PER L3E84+2
L3E84 BRL L67DD
BCC L3E8C
BRL L3D99
L3E8C PER L3E8F+2
L3E8F BRL L3F24
BCS L3E97
BRL L3F68
L3E97 STZ $04
INC $04
PHK
PER L3EA6
PEA $0006
PEI $EE
PEI $EC
L3EA6 RTL
STY $08
LDA $88
LSR
BCC L3EED
LDY #$0002
STZ $04
L3EB3 LDA [$38],Y
INY
AND #$00FF
BEQ L3EE6
SEC
SBC #$0030
STA $06
ASL $04
BCS L3ED9
LDA $04
ASL
BCS L3ED9
ASL
BCS L3ED9
CLC
ADC $04
BCS L3ED9
CLC
ADC $06
STA $04
BCC L3EB3
L3ED9 PEA $0002
PHK
PER L3EE0+2
L3EE0 BRL L8D82
BRL L3D99
L3EE6 LDA $04
LDY #$004A
STA [$3C],Y
L3EED LDX #$0001
PHK
PER L3EFB
PEA $0009
PEI $EE
PEI $EC
L3EFB RTL
LDA $08
STA [$24]
INC $24
INC $24
PER L3F07+2
L3F07 BRL L467E
PHA
PER L3F0E+2
L3F0E BRL L4525
PLA
BNE L3F17
BRL L3D28
L3F17 PEA $0045
PHK
PER L3F1E+2
L3F1E BRL L8D82
BRL L3D28
L3F24 PHK
PER L3F2F
PEA $000C
PEI $EE
PEI $EC
L3F2F RTL
BCC L3F67
PHK
PER L3F3D
PEA $001B
PEI $EE
PEI $EC
L3F3D RTL
BCC L3F67
LDY #$0008
PHK
PER L3F4E
PEA $0015
PEI $EE
PEI $EC
L3F4E RTL
BCS L3F67
TYA
CLC
ADC #$0008
TAY
LDA [$E0],Y
AND #$003C
LSR
LSR
CLC
DEC
DEC
BEQ L3F67
DEC
BEQ L3F67
SEC
L3F67 RTS
L3F68 PER L3F6B+2
L3F6B BRL L4525
LDY $6A
STY $28
L3F72 LDY $28
STY $6A
PER L3F79+2
L3F79 BRL L67DD
BCC L3F81
BRL L3D99
L3F81 DEX
BPL L3F87
BRL L4027
L3F87 BEQ L3FD3
PHK
PER L3F94
PEA $000C
PEI $EE
PEI $EC
L3F94 RTL
BCS L3F9A
BRL L4746
L3F9A BIT $A5
BVC L3FD3
LDA [$38]
TAY
INY
LDA [$38],Y
PHA
LDA $00
STA [$38],Y
PHY
PHK
PER L3FB5
PEA $0018
PEI $EE
PEI $EC
L3FB5 RTL
PLY
PLA
STA [$38],Y
BCS L3FD3
LDY $6A
STY $28
PER L3FC3+2
L3FC3 BRL L658A
PEA $0002
PHK
PER L3FCD+2
L3FCD BRL L8D82
BRL L3D99
L3FD3 LDA [$28]
AND #$00FF
BNE L3FF6
L3FDA BIT $8D
BVS L3FE1
BRL L4393
L3FE1 PER L3FE4+2
L3FE4 BRL L3F24
BCS L3FEC
BRL L4393
L3FEC LDA $64
BEQ L3FF3
BRL L55AD
L3FF3 BRL L4092
L3FF6 TAX
L3FF7 PHA
PLA
BNE L3FFE
BRL L3D28
L3FFE CMP #$0020
BNE L4010
INC $28
INC $B0
LDA [$28]
AND #$00FF
BEQ L3FDA
BRA L3FF7
L4010 CMP #$0028
BEQ L407B
CMP #$003D
BEQ L4053
TXA
CMP #$0020
BNE L403C
DEC $28
DEC $B0
BRL L4393
L4027 LDA [$28]
AND #$00FF
BNE L4031
BRL L3D28
L4031 CMP #$0020
BNE L403C
INC $28
INC $B0
BRA L4027
L403C LDY $6A
STY $28
PER L4043+2
L4043 BRL L658A
PEA $001B
PHK
PER L404D+2
L404D BRL L8D82
BRL L3D99
L4053 LDA #$0080
L4056 TSB $89
LDA #$000B
L405B STA $20
L405D PHK
PER L4061+2
L4061 BRL L73C8
BCC L4069
BRL L3D99
L4069 BIT $90
BPL L4070
BRL L4F24
L4070 BIT $8E
BPL L40BA
BIT $68
BVC L40BA
BRL L3D28
L407B LDY $00
LDA #$003D
PER L4083+2
L4083 BRL L46A1
BCC L408B
BRL L4393
L408B LDA #$0080
TSB $8D
BRA L4056
L4092 LDA #$4040
TSB $88
LDA #$0013
BRA L405B
LDX $00
BRA L40A3
L40A0 LDX #$0001
L40A3 TXA
ORA #$000C
STA $20
LDA #$0040
TSB $88
BRA L405D
L40B0 LDA #$0040
TSB $93
LDA #$000D
BRA L405B
L40BA LDY #$0C8A
LDA [$3C],Y
BEQ L4112
LDX #$0004
PHK
PER L40CF
PEA $0009
PEI $EE
PEI $EC
L40CF RTL
LDY #$0C8A
LDA [$3C],Y
LDY $00
TAX
DEX
L40D9 LDA #$0019
STA $0C
L40DE DEC $0C
BPL L40FB
STY $0C
STX $0E
LDX #$0003
PHK
PER L40F4
PEA $0009
PEI $EE
PEI $EC
L40F4 RTL
LDY $0C
LDX $0E
BRA L40D9
L40FB LDA [$BE],Y
STA [$24]
INC $24
INC $24
INY
INY
LDA [$BE],Y
STA [$24]
INC $24
INC $24
INY
INY
DEX
BPL L40DE
L4112 LDX #$0005
BIT $8A
BVC L411C
LDX #$000A
L411C PHK
PER L4127
PEA $0009
PEI $EE
PEI $EC
L4127 RTL
LDY $00
BIT $8A
BVC L4152
LDA $C8
STA [$24]
INC $24
INC $24
LDA $C2
STA [$24]
INC $24
LDY #$0046
LDA [$3C],Y
STA [$24]
INC $24
INC $24
LDY #$0038
LDA [$3C],Y
STA [$24]
INC $24
LDY $00
L4152 STZ $0E
LDA #$0080
TRB $8A
LDA [$2C],Y
TAX
AND #$FF00
XBA
SEC
SBC #$0008
STA $B0
TXA
STZ $14
AND #$00C0
BNE L419E
LDA #$8080
STA $14
TXA
AND #$00FF
LSR
LSR
CMP #$0008
BNE L418E
LDA #$0080
TSB $8A
TXA
AND #$FFC3
ORA #$0004
TAX
LDA #$0001
L418E DEC
BEQ L419E
SEC
ROR $0E
DEC
BEQ L419E
CMP #$0003
BEQ L419E
STZ $14
L419E INY
INY
LDA [$2C],Y
AND #$007F
BIT $8A
BVC L41CE
CMP #$0002
BNE L41CE
SEP #$20
L41B0 LDA [$2C],Y
BEQ L41B7
INY
BRA L41B0
L41B7 INY
LDA [$2C],Y
BNE L41C9
PEA $0045
PHK
PER L41C3+2
L41C3 BRL L8D82
BRL L3D99
L41C9 INY
REP #$20
BRA L4152
L41CE XBA
TSB $0E
XBA
DEC
BNE L4245
BIT $14
BPL L4245
TXA
AND #$00FC
TAX
LDA $CB
AND #$0003
STX $02
ORA $02
TAX
BIT $8F
BMI L41EF
BRL L427F
L41EF PHY
TXA
ROR
ROR
BPL L420F
BCC L421B
LDA #$0003
STA $06
LDY #$00C0
LDA [$3C],Y
CLC
ADC #$0004
LDY #$00C0
STA [$3C],Y
LDA #$0002
BRA L4234
L420F BCS L4216
LDA #$0002
BRA L421E
L4216 LDA #$0008
BRA L421E
L421B LDA #$0004
L421E STA $04
LSR
LSR
STA $06
LDY #$00BC
LDA [$3C],Y
CLC
ADC $04
LDY #$00BC
STA [$3C],Y
LDA #$0001
L4234 PLY
INY
INY
XBA
ORA #$8077
CLC
ADC $06
STA [$2C],Y
TXA
DEY
DEY
BRA L427F
L4245 TXA
AND #$00FF
TAX
BIT $14
BMI L4268
CMP #$0050
BEQ L4275
CMP #$0054
BEQ L4275
CMP #$0058
BEQ L4275
AND #$00F3
CMP #$0040
BEQ L4275
TXA
BRA L427F
L4268 TXA
BIT $89
BMI L427F
AND #$0003
BEQ L4275
TXA
BRA L427F
L4275 LDA $CA
AND #$0003
STX $02
ORA $02
TAX
L427F ORA $0E
XBA
STA [$24]
INC $24
INC $24
INY
INY
LDA $00
STZ $10
BIT $8E
BPL L42A2
BIT $0E
BPL L42A2
LDA #$8062
STA [$24]
INC $24
INC $24
BRL L3D28
L42A2 SEP #$20
L42A4 LDA [$2C],Y
CMP #$20
BNE L42AD
BRL L4367
L42AD CMP #$19
BNE L42B8
STA [$24]
STA $12
BRL L4362
L42B8 LDA [$2C],Y
BEQ L430A
BPL L42CF
BIT $10
BMI L42CF
PHA
LDA #$6E
STA [$24]
STA $12
LDX $24
INX
STX $24
PLA
L42CF CMP #$28
BNE L42DE
BIT $10
BVS L42DA
BRL L4367
L42DA LDA #$2C
BRA L430A
L42DE CMP #$29
BNE L42E5
BRL L4367
L42E5 CMP #$11
BEQ L42ED
CMP #$12
BNE L430A
L42ED PHA
LDA $12
CMP #$11
BEQ L42F8
CMP #$12
BNE L4309
L42F8 CMP $01,S
BNE L4300
LDA #$11
BRA L4302
L4300 LDA #$12
L4302 STA $01,S
LDX $24
DEX
STX $24
L4309 PLA
L430A STA [$24]
STA $12
LDA #$80
TRB $10
LDA $12
BEQ L436D
BMI L4326
CMP #$61
BCC L4341
CMP #$7B
BCS L4341
LDA #$80
TSB $10
BRA L4362
L4326 LDA #$40
BIT $10
TSB $10
BVC L4362
BIT $14
BPL L4362
DEC $B0
PEA $005F
PHK
PER L433B+2
L433B BRL L8D82
BRL L3D99
L4341 BIT $10
BVS L435E
CMP #$12
BEQ L4362
CMP #$11
BEQ L4362
BIT $14
BPL L4362
PEA $0060
PHK
PER L4358+2
L4358 BRL L8D82
BRL L3D99
L435E LDA #$40
TRB $10
L4362 LDX $24
INX
STX $24
L4367 INY
INC $B0
BRL L42A4
L436D BIT $10
BVS L437F
BIT $14
BPL L437F
PEA $0061
PHK
PER L437C+2
L437C BRL L8D82
L437F INY
LDA [$2C],Y
REP #$20
BEQ L438C
INC $24
INY
BRL L4152
L438C STA [$24]
INC $24
BRL L3D28
L4393 PHK
PER L439E
PEA $001B
PEI $EE
PEI $EC
L439E RTL
BCS L43FA
STA $10
LDA #$0005
STA [$38]
LDY #$0002
LDA #$8D62
STA [$38],Y
INY
INY
LDA $10
AND #$00FF
ORA #$0080
XBA
ORA #$0064
STA [$38],Y
INY
INY
LDA #$0001
STA [$38],Y
LDY $00
STZ $12
L43CB PER L43CE+2
L43CE BRL L46A6
BCS L43D8
INC $12
INY
BRA L43CB
L43D8 LDA $10
XBA
AND #$00FF
DEC
BPL L43E3
LDA $00
L43E3 CMP $12
BEQ L43F4
PEA $0019
PHK
PER L43EE+2
L43EE BRL L8D82
BRL L3D99
L43F4 LDA #$000D
BRL L405B
L43FA LDA [$28]
AND #$00FF
BEQ L440E
CMP #$0020
BEQ L440E
DEC $28
XBA
ORA #$0020
STA [$28]
L440E LDA $00
LDY #$00BC
STA [$3C],Y
LDY #$00C0
STA [$3C],Y
LDY $28
STY $D4
LDA #$00C0
TSB $90
BRL L3DB0
L4426 BIT $8F
BVC L445B
LDA #$0040
TRB $90
LDY $D4
STY $28
LDA $D2
BNE L444A
PER L443A+2
L443A BRL L75AD
PEA $0002
PHK
PER L4444+2
L4444 BRL L8D82
BRL L3D99
L444A LDA [$28]
AND #$00FF
BEQ L44AC
LDA [$28]
AND #$FF00
ORA #$002C
STA [$28]
L445B LDY $D4
STY $28
PER L4462+2
L4462 BRL L44EA
BMI L44AC
CLC
ADC $28
STA $28
LDA #$04F8
CLC
ADC $3C
STA $38
LDA $00
ADC $3E
STA $3A
LDA #$0002
TAY
STA [$38]
SEP #$20
LDA #$3D
STA [$28]
LDA #$7A
STA [$38],Y
INY
LDA #$81
STA [$38],Y
LDA $00
INY
STA [$38],Y
REP #$20
LDY #$0001
PER L449C+2
L449C BRL L46D6
BCC L44A4
BRL L3DB0
L44A4 LDA #$0080
TSB $A5
BRL L3DB0
L44AC STZ $90
LDY #$00BC
LDA [$3C],Y
LDY $C8
CMP [$E0],Y
BCC L44BB
STA [$E0],Y
L44BB LDY #$00C0
LDA [$3C],Y
CLC
ADC #$0004
LDY $C8
INY
INY
CMP [$E0],Y
BCC L44CE
STA [$E0],Y
L44CE LDX #$000F
PHK
PER L44DC
PEA $0009
PEI $EE
PEI $EC
L44DC RTL
LDA $D2
STA [$24]
INC $24
INC $24
STZ $04
BRL L3D28
L44EA LDX $00
TXY
STZ $04
DEC $04
SEP #$20
L44F3 LDA [$28],Y
BEQ L4520
CMP #$2C
BNE L4503
PHX
PLX
BNE L451D
STY $04
BRA L451D
L4503 CMP #$3D
BNE L4511
PHX
PLX
BNE L451D
LDA $00
STA [$28],Y
BRA L4520
L4511 CMP #$28
BNE L4518
INX
BRA L451D
L4518 CMP #$29
BNE L451D
DEX
L451D INY
BRA L44F3
L4520 REP #$20
LDA $04
RTS
L4525 LDA $6C
BNE L457D
BIT $92
BMI L457D
BIT $8D
BVS L457D
LDA $A4
LSR
BCC L457D
ASL
STA $A4
LDA $C2
XBA
AND #$FF00
LDY #$0038
ORA [$3C],Y
PHA
LDX #$FFFF
PHK
PER L4553
PEA $0009
PEI $EE
PEI $EC
L4553 RTL
PLA
LDY #$003A
STA [$3C],Y
TAX
XBA
STA [$24]
BVS L457D
LDY #$0046
LDA [$3C],Y
INC $24
STA [$24]
INC $24
INC $24
LDY #$004A
LDA [$3C],Y
STA [$24]
INC $24
INC $24
TXA
STA [$24]
INC $24
L457D RTS
L457E PHP
SEP #$20
PHX
PHK
PLB
LDX $00
TXY
L4587 LDA ($01,S),Y
BEQ L459A
STA $04,X
INY
INX
CPX #$0008
BMI L4587
LDA #$00
STA $04,X
DEX
DEC
L459A STA $04,X
PLX
BRA L45A2
L459F PHP
SEP #$20
L45A2 LDY $28
STY $2C
LDY $2A
STY $2E
LDY $00
PHY
TYA
XBA
STZ $21
L45B1 PER L45B4+1
L45B4 BRA L45F8
BCS L45F4
PLX
PHY
LDX $00
L45BC LDA [$28],Y
BEQ L45C8
CMP $04,X
BNE L45CE
INY
INX
BRA L45BC
L45C8 LDA $04,X
BEQ L45F0
BRA L45F4
L45CE PHY
PHA
PLA
BMI L45E3
TAY
LDA $04,X
BNE L45E3
LDA [$94],Y
BMI L45EF
BEQ L45EF
DEC
DEC
DEC
BEQ L45EF
L45E3 PLY
PER L45E7+1
L45E7 BRA L4635
BCS L45F4
DEC $21
BRA L45B1
L45EF PLY
L45F0 PLX
PLP
CLC
RTS
L45F4 PLX
PLP
SEC
RTS
L45F8 LDA $00
XBA
L45FB PHY
LDA [$28],Y
BEQ L4632
BPL L4604
PLY
RTS
L4604 TAY
LDA [$94],Y
BPL L460D
L4609 PLY
INY
BRA L45FB
L460D BNE L4627
TYA
CMP #$26
BNE L4609
L4614 PLY
PHX
LDX #$FFFF
PER L461C+2
L461C BRL L8C28
DEC $21
PLX
LDA $00
XBA
BRA L45FB
L4627 DEC
BEQ L4614
TYA
CMP #$2E
BEQ L4614
PLY
CLC
RTS
L4632 PLY
SEC
RTS
L4635 LDA $00
XBA
L4638 PHY
LDA [$28],Y
BEQ L4656
BMI L4659
TAY
LDA [$94],Y
BNE L464D
TYA
PLY
CMP #$26
BEQ L464B
INY
L464B CLC
RTS
L464D BPL L4652
PLY
CLC
RTS
L4652 PLY
INY
BRA L4638
L4656 PLY
SEC
RTS
L4659 PLY
INY
CLC
RTS
L465D PER L4660+2
L4660 BRL L457E
BCC L4666
RTS
L4666 PHP
PHX
PHY
TXY
LDX $00
SEP #$20
L466E LDA $04,X
BEQ L467A
LDA #$20
STA [$28],Y
INX
INY
BRA L466E
L467A PLY
PLX
PLP
RTS
MX %00
L467E LDA [$28]
AND #$00FF
CMP #$0020
BNE L468C
INC $28
BRA L467E
L468C PER L468F+2
L468F BRL L658A
RTS
L4693 LDA [$28],Y
AND #$00FF
CMP #$0020
BNE L46A0
INY
BRA L4693
L46A0 RTS
L46A1 PHP
SEP #$20
BRA L46AB
L46A6 PHP
SEP #$20
LDA #$2C
L46AB LDX $00
PHY
PHA
L46AF LDA [$28],Y
BEQ L46D0
INY
CMP #$28
BNE L46BB
INX
BRA L46AF
L46BB CMP #$29
BNE L46C2
DEX
BMI L46D0
L46C2 CMP $01,S
BNE L46AF
PHX
PLX
BNE L46AF
DEY
PLA
PLX
PLP
CLC
RTS
L46D0 TYX
PLA
PLY
PLP
SEC
RTS
L46D6 PHY
PHP
SEP #$20
LDA $00
XBA
L46DD LDA [$28],Y
BEQ L473C
INY
CMP #$20
BEQ L46DD
TAX
PHY
TAY
LDA [$94],Y
PLY
DEC
DEC
BMI L4741
TXA
CMP #$2E
BEQ L4741
CMP #$46
BNE L46FF
LDA [$28],Y
CMP #$4E
BEQ L4741
L46FF LDA [$28],Y
BEQ L473C
BMI L4741
PHY
TAY
LDA [$94],Y
BMI L470F
PLY
INY
BRA L46FF
L470F TYA
PLY
CMP #$28
BNE L473C
LDX $00
L4717 INY
LDA [$28],Y
BEQ L473C
CMP #$28
BNE L4723
INX
BRA L4717
L4723 CMP #$29
BNE L4717
DEX
BPL L4717
L472A INY
LDA [$28],Y
BEQ L4737
CMP #$20
BEQ L472A
CMP #$2C
BNE L473C
L4737 PLP
CLC
CLV
BRA L4744
L473C PLP
CLV
SEC
BRA L4744
L4741 PLP
SEP #$41
L4744 PLY
RTS
MX %00
L4746 PHA
LDA #$0040
TSB $8F
LDA #$0003
STA [$38]
LDA $01,S
AND #$FF00
LDY #$0002
ORA #$8062
STA [$38],Y
INY
INY
LDA #$0001
STA [$38],Y
PLA
AND #$00FF
STA $66
PER L477A
ASL
TAY
PHK
PLB
LDA ($01,S),Y
CLC
ADC $01,S
STA $01,S
RTS
L477A DW $009F
DW $00AC
DW $00D1
DW $0157
DW $015B
DW $0160
DW $0165
DW $01EF
DW $020F
DW $0259
DW $0592
DW $06C4
DW $0808
DW $081C
DW $089F
DW $089F
DW $089F
DW $089F
DW $089F
DW $089F
DW $089F
DW $08EE
DW $091A
DW $0946
DW $0B6B
DW $0D7D
DW $0DA7
DW $0DEB
DW $0E17
DW $0E27
DW $0E8B
DW $1111
DW $1111
DW $1181
DW $11E0
DW $11E6
DW $122D
DW $1235
DW $123B
DW $1241
DW $1241
DW $127F
DW $1456
DW $14CA
DW $14CD
DW $14F2
DW $1516
DW $1642
DW $1667
DW $1686
DW $1691
DW $16D4
DW $16F8
DW $1726
DW $17BC
DW $184A
DW $1860
DW $1957
DW $1996
DW $19DE
DW $19E4
DW $19E9
DW $1A56
DW $1A8D
DW $1ABD
DW $1AE5
DW $1BBE
DW $1BEC
DW $1C24
DW $1C4A
DW $1C6A
DW $1C8D
DW $1CA8
DW $1CCD
DW $1CE6
DW $1D0E
DW $1D2A
DW $1D69
DW $1DA4
DW $1DA4
PEA $0002
PHK
PER L4821+2
L4821 BRL L8D82
BRL L3D99
LDA [$28]
BNE L4838
PEA $004E
PHK
PER L4832+2
L4832 BRL L8D82
BRL L3D99
L4838 PER L483B+2
L483B BRL L67DD
PER L4841+2
L4841 BRL L583F
BCC L4849
BRL L3D99
L4849 BRL L4393
LDY $28
STY $CE
INC $CE
LDA [$28]
BEQ L485C
BRA L486F
L4858 LDY $CE
STY $28
L485C PER L485F+2
L485F BRL L658A
PEA $0002
PHK
PER L4869+2
L4869 BRL L8D82
BRL L3D99
L486F PER L4872+2
L4872 BRL L67DD
L4875 LDA [$28]
AND #$00FF
BEQ L485C
CMP #$0020
BNE L4885
INC $28
BRA L4875
L4885 CMP #$0028
BEQ L4898
CMP #$003D
BNE L485C
DEC $28
DEC $28
LDA #$2928
STA [$28]
L4898 STZ $B8
LDY #$04FA
LDA [$3C],Y
CMP #$4E46
BNE L4858
LDY #$0008
PHK
PER L48B2
PEA $0015
PEI $EE
PEI $EC
L48B2 RTL
BCS L48C2
TYA
CLC
ADC #$000A
TAY
LDA [$E0],Y
ORA #$8000
STA [$E0],Y
L48C2 LDA #$00C0
TSB $8B
LDA #$8080
TSB $88
LDA #$0017
BRL L405B
LDX $00
BRA L48E3
LDX $00
INX
BRA L48E3
LDX #$0002
BRA L48E3
LDX #$0003
L48E3 STX $44
LDA #$01D4
CLC
ADC $3C
STA $34
LDA $00
ADC $3E
STA $36
LDA $00
L48F5 SEP #$20
LDA [$28]
BEQ L4965
REP #$20
INC $28
L48FF SEP #$20
CMP #$20
BEQ L48F5
CMP #$2C
BEQ L48F5
CMP #$5B
BCC L4920
L490D PER L4910+2
L4910 BRL L658A
PEA $0008
PHK
PER L491A+2
L491A BRL L8D82
BRL L3D99
L4920 SEC
SBC #$41
BMI L490D
TAY
LDA $44
STA [$34],Y
L492A LDA [$28]
BEQ L4965
REP #$20
INC $28
SEP #$20
CMP #$20
BEQ L492A
CMP #$2D
BNE L48FF
L493C LDA [$28]
REP #$20
INC $28
SEP #$20
CMP #$20
BEQ L493C
CMP #$5B
BCS L490D
SEC
SBC #$41
BMI L490D
SEC
STY $02
SBC $02
BEQ L48F5
BMI L490D
TAX
LDA $44
L495D INY
STA [$34],Y
DEX
BNE L495D
BRA L48F5
L4965 REP #$20
BRL L3D99
PER L496D+2
L496D BRL L4F53
BCS L497F
LDA #$2020
STA [$28],Y
INY
INY
STA [$28],Y
INY
INY
STA [$28],Y
L497F LDA #$0080
TSB $8F
LDA #$000F
BRL L405B
PER L4994
PLX
PER L4994+4
BRL L457E
L4994 ASC 'BASE'00
TYA
CLC
ADC $28
STA $28
PER L49A2+2
L49A2 BRL L467E
LDY #$0400
CMP #$0030
BEQ L49C0
CMP #$0031
BNE L49C7
TYA
TSB $72
TSB $68
L49B7 PER L49BA+2
L49BA BRL L4CA9
BRL L3D28
L49C0 TYA
TRB $72
TRB $68
BRA L49B7
L49C7 PEA $0002
PHK
PER L49CE+2
L49CE BRL L8D82
BRL L3D99
L49D4 INC $28
PER L49D9+2
L49D9 BRL L467E
CMP #$0024
BEQ L49E4
BRL L3D28
L49E4 INC $28
PER L49E9+2
L49E9 BRL L67DD
BCC L49F1
BRL L3D28
L49F1 PER L49F4+2
L49F4 BRL L4525
PHK
PER L4A02
PEA $001E
PEI $EE
PEI $EC
L4A02 RTL
BCC L4A08
BRL L3D99
L4A08 DEC
ASL
TAY
PER L4A1A
PHK
PLB
LDA ($01,S),Y
CLC
ADC $01,S
STA $01,S
BIT $92
RTS
L4A1A DW $0009
DW $0025
DW $01EB
DW $02A6 ; A6 02
DW $02B3 ; B3 02
PER L4A2E
PLX
PER L4A2E+2
BRL L457E
L4A2E ASC 'ON'00
LDA #$0080
BCC L4A3B
TRB $93
BRL L3D28
L4A3B TSB $93
BRL L3D28
BPL L4A45
BRL L3D28
L4A45 LDY #$000A
LDA [$3C],Y
BEQ L4A59
PEA $007D
PHK
PER L4A53+2
L4A53 BRL L8D82
BRL L3D99
L4A59 LDY $38
STY $30
LDY $3A
STY $32
LDX #$00A2
PER L4A67+2
L4A67 BRL L4BBA
BCC L4A6F
BRL L3D99
L4A6F XBA
STA [$38]
PEI $3A
INC $38
PEI $38
PHK
PER L4A7C+2
L4A7C BRL LA2FC
TAX
DEC $38
LDA [$38]
XBA
STA [$38]
TXA
BCC L4A97
PEA $007E
PHK
PER L4A91+2
L4A91 BRL L8D82
BRL L3D99
L4A97 TAX
LDY #$0008
LDA [$3C],Y
LDY #$000A
STA [$3C],Y
TXA
LDY #$0008
STA [$3C],Y
PHK
PER L4AB3
PEA $002D
PEI $EE
PEI $EC
L4AB3 RTL
LDY #$0038
LDA [$3C],Y
LDY #$003C
STA [$3C],Y
TXA
DEC
LDY #$0038
STA [$3C],Y
LDY #$0046
LDA [$3C],Y
LDY #$004A
STA [$3C],Y
LDY #$014E
STA [$3C],Y
LDY #$004C
LDA [$3C],Y
LDY #$004E
STA [$3C],Y
LDY #$002C
LDA [$3C],Y
LDY #$002E
STA [$3C],Y
LDY #$0024
LDA [$3C],Y
LDY #$0028
STA [$3C],Y
LDY #$0026
LDA [$3C],Y
LDY #$002A
STA [$3C],Y
LDA #$02F0
CLC
ADC $3C
LDX $3E
BCC L4B07
INX
L4B07 LDY #$0020
STA [$3C],Y
LDY #$0024
STA [$3C],Y
STA $2C
TXA
STA $2E
LDY #$0022
STA [$3C],Y
LDY #$0026
STA [$3C],Y
LDY #$01B4
LDX #$01C4
L4B26 LDA [$3C],Y
PHY
TXY
STA [$3C],Y
PLY
LDA $00
STA [$3C],Y
INY
INY
INX
INX
CPY #$01C4
BCC L4B26
LDY #$0008
LDA [$3C],Y
PHA
PHK
PER L4B44+2
L4B44 BRL LA537
LDY #$01B4
STA [$3C],Y
INY
INY
TXA
STA [$3C],Y
LDA $00
STA [$2C]
LDY #$002C
STA [$3C],Y
LDY #$0046
STA [$3C],Y
INC
LDY #$004C
STA [$3C],Y
LDA $B2
LDY #$0030
STA [$3C],Y
STZ $B2
LDA #$00FF
TRB $71
INC $28
PER L4B78+2
L4B78 BRL L467E
LDX $00
CMP #$002F
BNE L4B92
INC $28
PER L4B87+2
L4B87 BRL L467E
LDX $00
CMP #$004C
BNE L4B92
DEX
L4B92 LDY #$001A
LDA [$3C],Y
BIT #$0010
BEQ L4B9D
DEX
L4B9D BIT #$0020
BNE L4BAA
TXA
BEQ L4BB5
LDA #$0040
BRA L4BB5
L4BAA TXA
BMI L4BB2
LDA #$00C0
BRA L4BB5
L4BB2 LDA #$0080
L4BB5 TSB $71
BRL L3D28
L4BBA PHX
PER L4BBE+2
L4BBE BRL L467E
CMP #$0022
BNE L4BF9
INC $28
LDY #$0002
LDA $00
STA [$30],Y
L4BCF LDA [$28]
AND #$00FF
BEQ L4BF1
CMP #$0022
BEQ L4BF1
STA [$30],Y
INC $28
INY
TYA
CMP $01,S
BCC L4BCF
PEA $000F
PHK
PER L4BEC+2
L4BEC BRL L8D82
BRA L4C03
L4BF1 DEY
DEY
TYA
STA [$30]
CLC
L4BF7 PLX
RTS
L4BF9 PEA $0002
PHK
PER L4C00+2
L4C00 BRL L8D82
L4C03 SEC
BRA L4BF7
BPL L4C0B
BRL L3D28
L4C0B STZ $14
PER L4C87
L4C10 PER L4C13+2
L4C13 BRL L467E
STZ $04
CMP #$002D
BEQ L4C26
INC $04
CMP #$002B
BEQ L4C26
BRA L4C28
L4C26 INC $28
L4C28 PER L4C2B+2
L4C2B BRL L467E
INC $28
CMP #$002C
BEQ L4C10
TAY
BEQ L4C7A
ORA #$0020
LDY #$0000
PHK
PLB
SEP #$20
L4C42 CMP ($01,S),Y
BEQ L4C51
BCC L4C4D
INY
INY
INY
BRA L4C42
L4C4D REP #$20
BRA L4C10
L4C51 REP #$20
INY
LDA ($01,S),Y
AND #$FFFB
CMP ($01,S),Y
BEQ L4C5F
INC $14
L4C5F LDX $04
BNE L4C67
TRB $72
BRA L4C10
L4C67 TSB $72
CMP #$0001
BNE L4C10
LDY #$001A
ORA [$3C],Y
LDY #$001A
STA [$3C],Y
BRA L4C10
L4C7A PLA
LDA $14
BEQ L4C84
PER L4C82+1
L4C82 BRA L4CA9
L4C84 BRL L3D28
L4C87 DB $38
DB $04
DB $20
DB $61
DB $01
DB $00
DB $62
DB $04
DB $04
DB $63
DB $44
DB $00
DB $64
DB $04
DB $80
DB $65
DB $08
DB $00
DB $69
DB $10
DB $00
DB $6C
DB $20
DB $00
DB $72
DB $80
DB $00
DB $73
DB $00
DB $01
DB $75
DB $04
DB $40
DB $FF
L4CA9 LDX #$0017
PHK
PER L4CB7
PEA $0009
PEI $EE
PEI $EC
L4CB7 RTL
LDA $72
STA [$24]
INC $24
INC $24
RTS
BPL L4CC6
BRL L3D28
L4CC6 LDA #$0020
TSB $71
BRL L3D28
BPL L4CD3
BRL L3D28
L4CD3 LDY #$000A
LDA [$E0],Y
INC
INC
CLC
ADC $E0
STA $30
LDA $00
ADC $E2
STA $32
LDA [$30]
XBA
STA $04
LDX #$002F
PER L4CF0+2
L4CF0 BRL L4BBA
BCC L4CF8
BRL L3D99
L4CF8 XBA
STA [$30]
XBA
SEC
SBC $04
CLC
LDY #$0044
ADC [$3C],Y
LDY #$0044
STA [$3C],Y
BRL L3D28
LDA #$2000
BIT $68
BNE L4D2E
PEA $002C
PHK
PER L4D1B+2
L4D1B BRL L8D82
BRL L3D99
L4D21 PEA $0002
PHK
PER L4D28+2
L4D28 BRL L8D82
BRL L3D99
L4D2E PER L4D31+2
L4D31 BRL L467E
TAX
BEQ L4D63
LDY $00
PER L4D3C+2
L4D3C BRL L46D6
BVS L4D21
BCS L4D79
LDY #$0008
PER L4D49+1
L4D49 BRA L4D94
BCS L4D66
LDA [$E0],Y
AND #$0030
CMP #$0020
BEQ L4D8A
L4D57 PEA $002D
PHK
PER L4D5E+2
L4D5E BRL L8D82
BRA L4D66
L4D63 BRL L3D28
L4D66 LDY $00
PER L4D6B+2
L4D6B BRL L46A6
BCS L4D63
TYA
INC
CLC
ADC $28
STA $28
BRA L4D2E
L4D79 LDY #$0006
PER L4D7F+1
L4D7F BRA L4D94
BCS L4D66
LDA [$E0],Y
AND #$003C
BNE L4D57
L4D8A INY
LDA [$E0],Y
AND #$7FFF
STA [$E0],Y
BRA L4D66
L4D94 PHY
PEI $B0
PER L4D9A+2
L4D9A BRL L67DD
LDA [$38]
STA $12
PLA
STA $B0
BCC L4DA9
BRL L4E3C
L4DA9 TXA
BEQ L4E26
PLY
PHY
PHK
PER L4DB9
PEA $0015
PEI $EE
PEI $EC
L4DB9 RTL
BCC L4E32
LDY #$04FA
LDA [$3C],Y
ORA #$0080
LDY #$04FA
STA [$3C],Y
PLY
PHY
PHK
PER L4DD6
PEA $0015
PEI $EE
PEI $EC
L4DD6 RTL
BCC L4E13
LDY #$04FA
LDA [$3C],Y
AND #$FF7F
LDY #$04FA
STA [$3C],Y
PER L4DE9+2
L4DE9 BRL L8976
BEQ L4E26
LDA #$0080
LDY #$04FA
ORA [$3C],Y
LDY #$04FA
STA [$3C],Y
PLY
PHY
PHK
PER L4E08
PEA $0015
PEI $EE
PEI $EC
L4E08 RTL
BCC L4E13
PER L4E0E+2
L4E0E BRL L8A04
BRA L4E26
L4E13 PLA
PHY
INY
LDA [$E0],Y
AND #$3800
BNE L4E26
PLA
CLC
ADC #$0008
PHA
CLC
BRA L4E3D
L4E26 PEA $002D
PHK
PER L4E2D+2
L4E2D BRL L8D82
BRA L4E3C
L4E32 PEA $002E
PHK
PER L4E39+2
L4E39 BRL L8D82
L4E3C SEC
L4E3D PLY
RTS
LDA #$2000
BIT $68
BEQ L4E50
PEA $002F
PHK
PER L4E4D+2
L4E4D BRL L8D82
L4E50 LDY #$0086
LDA [$3C],Y
DEC
BNE L4E5E
PER L4E5B+2
L4E5B BRL L6B82
L4E5E LDY #$0086
LDA [$3C],Y
INC
LDY #$0086
STA [$3C],Y
CMP #$007F
BCC L4E78
PEA $0082
PHK
PER L4E75+2
L4E75 BRL L8D82
L4E78 LDA #$00FF
TRB $91
LDA #$00C0
TSB $91
PER L4E85+2
L4E85 BRL L67DD
LDA #$0020
BIT $72
BEQ L4EAF
PEI $3A
LDA $38
INC
INC
PHA
PER L4E99+2
L4E99 BRL L08A4
BIT $70
BPL L4EAF
BVS L4EAF
PHK
PER L4EA6+2
L4EA6 BRL L08D6
PER L4EAC+2
L4EAC BRL L71DF
L4EAF PER L4EB2+2
L4EB2 BRL L4F53
PER L4EBF
PLX
PER L4EBF+6
BRL L465D
L4EBF ASC 'SHARED'00
BCS L4ECE
PER L4ECB+2
L4ECB BRL L8FF6
L4ECE SEP #$20
L4ED0 DEY
LDA [$28],Y
CMP #$20
BEQ L4ED0
INY
LDA $00
STA [$28],Y
L4EDC LDA [$28]
BEQ L4EEE
SEP #$20
CMP #$20
BNE L4EEE
INC $28
BNE L4EDC
INC $29
BRA L4EDC
L4EEE REP #$20
BNE L4EFE
LDA #$2928
STA [$28]
LDA $00
LDY #$0002
STA [$28],Y
L4EFE LDA $00
LDY #$00AC
STA [$3C],Y
LDY #$00AE
STA [$3C],Y
LDY #$00B0
STA [$3C],Y
LDY #$00B2
STA [$3C],Y
LDA #$0040
TSB $89
LDA #$1000
TSB $68
LDA #$0013
BRL L405B
L4F24 STZ $90
LDX #$0010
PHK
PER L4F34
PEA $0009
PEI $EE
PEI $EC
L4F34 RTL
LDY #$0086
LDA [$3C],Y
STA [$24]
INC $24
INC $24
LDY #$0002
LDA [$BE],Y
STA [$24]
INC $24
INC $24
LDA #$2000
TSB $68
BRL L3D28
L4F53 PER L4F5D
PLX
PER L4F5D+6
BRL L465D
L4F5D ASC 'STATIC'00
BCS L4F6D
TXY
LDA #$0001
TSB $91
CLC
L4F6D RTS
L4F6E LDA #$2000
AND $68
BEQ L4F82
PEA $0027
PHK
PER L4F7C+2
L4F7C BRL L8D82
BRL L3D99
L4F82 RTS
PER L4F86+1
L4F86 BRA L4F6E
LDA #$0080
TSB $8F
LSR
XBA
TSB $68
LDA #$000F
BRL L405B
LDY $00
SEP #$20
L4F9B LDA [$28],Y
BEQ L4FA5
INY
CMP #$20
BEQ L4F9B
DEY
L4FA5 REP #$20
TYA
CLC
ADC $28
STA $28
LDX #$0013
PHK
PER L4FBB
PEA $0009
PEI $EE
PEI $EC
L4FBB RTL
LDX $00
TXY
SEP #$20
L4FC1 LDA [$28]
BEQ L4FFE
CMP #$2C
BNE L4FEA
PHX
PLX
BNE L4FF3
L4FCD DEY
BMI L4FD6
LDA [$24],Y
CMP #$20
BEQ L4FCD
L4FD6 INY
L4FD7 INC $28
BNE L4FDD
INC $29
L4FDD LDA [$28]
CMP #$20
BEQ L4FD7
LDA #$2C
STA [$24],Y
INY
BRA L4FC1
L4FEA CMP #$22
BNE L4FF3
DEX
BEQ L4FF3
INX
INX
L4FF3 STA [$24],Y
INY
INC $28
BNE L4FC1
INC $29
BRA L4FC1
L4FFE LDA #$2C
STA [$24],Y
INY
REP #$20
TYA
CLC
ADC $24
STA $24
TYA
CLC
LDY #$008A
ADC [$3C],Y
LDY #$008A
STA [$3C],Y
BRL L3D28
PER L501D+2
L501D BRL L6750
LDA #$4649
STA $04
STZ $06
PER L502A+2
L502A BRL L459F
BCC L505C
LDA $00
LDX #$7FFF
PER L5037+2
L5037 BRL L6650
BCS L504F
PER L503F+2
L503F BRL L66E3
LDA [$28]
AND #$00FF
BNE L504C
BRL L3D28
L504C BRL L3DB0
L504F PEA $006E
PHK
PER L5056+2
L5056 BRL L8D82
BRL L3D99
L505C PEA $0002
PHK
PER L5063+2
L5063 BRL L8D82
BRL L3D99
PER L506C+2
L506C BRL L6750
LDX #$7FFF
LDA $00
PER L5077+2
L5077 BRL L6650
BCS L504F
PER L507F+2
L507F BRL L66E3
DEC $28
DEC $28
LDA #$4649
STA [$28]
STA $C4
LDA #$0002
TSB $8E
BRL L3DB0
L5095 PER L5098+2
L5098 BRL L66E3
PER L509E+2
L509E BRL L6749
LDX #$0002
PER L50A7+2
L50A7 BRL L678F
LDA [$28]
AND #$00FF
BNE L50B4
BRL L3D28
L50B4 PEA $006F
PHK
PER L50BB+2
L50BB BRL L8D82
BRL L3D99
LDY #$00B4
LDA [$3C],Y
INC
INC
LDY #$00B4
STA [$3C],Y
LDY $28
STY $DA
PER L50D4+2
L50D4 BRL L67DD
BCC L50DC
BRL L3D99
L50DC STX $12
LDX #$0002
LDY $DA
STY $28
PER L50E8+2
L50E8 BRL L890F
STX $74
LDA #$4F54
STA $04
STZ $06
PER L50F7+2
L50F7 BRL L459F
BCC L5109
PEA $006D
PHK
PER L5103+2
L5103 BRL L8D82
BRL L3D99
L5109 DEY
DEY
STY $60
DEY
DEY
LDA [$28],Y
STA $5E
LDX $00
PER L5118+2
L5118 BRL L8D95
LDA [$28],Y
AND #$FF00
ORA #$003D
STA [$28],Y
STZ $10
PER L5131
PLX
PER L5136-1
BRL L457E
L5131 ASC 'STEP'00
L5136 BCS L5143
DEY
DEY
DEY
DEY
LDA #$0000
STA [$28],Y
STY $10
L5143 LDA $60
DEC
DEC
CLC
ADC $28
STA $28
PER L515C
PLA
STA $6C
LDA $10
LDY #$00BA
STA [$3C],Y
BRL L3DB0
L515C LDA $D2
LDY #$00B6
STA [$3C],Y
LDY $DA
STY $28
LDY #$00BA
LDA [$3C],Y
BEQ L5174
TAY
LDA #$5453
STA [$28],Y
L5174 LDY $60
LDA #$4F54
STA [$28],Y
DEY
DEY
LDA $5E
STA [$28],Y
PER L518B
PLX
PER L518B+4
BRL L457E
L518B ASC 'STEP'00
BCS L5196
DEY
DEY
DEY
DEY
L5196 PHY
PHP
LDX #$0001
PER L519E+2
L519E BRL L8D95
LDA [$28],Y
AND #$FF00
ORA #$003D
STA [$28],Y
PLP
BCC L51B4
INY
LDA #$0031
STA [$28],Y
L51B4 PLA
CLC
ADC $28
STA $28
PER L51C3
PLA
STA $6C
BRL L3DB0
L51C3 LDA $D2
LDY #$00B8
STA [$3C],Y
LDY $DA
STY $28
LDY $60
LDA $00
STA [$28],Y
STY $60
PER L51EC
PLA
STA $6C
BRL L3DB0
L51DF PEA $0002
PHK
PER L51E6+2
L51E6 BRL L8D82
BRL L3D99
L51EC LDX #$0001
PER L51F2+2
L51F2 BRL L676B
LDX #$0001
TXA
DEC
PER L51FD+2
L51FD BRL L6650
BCS L51DF
PER L5205+2
L5205 BRL L66E3
LDY $DA
STY $28
LDA #$29D8
CLC
ADC $3C
STA $48
LDA $00
ADC $3E
STA $4A
LDY $00
SEP #$20
L521E LDA [$28],Y
BEQ L51DF
STA [$48],Y
INY
CMP #$3D
BNE L521E
STY $04
LDX $00
L522D PHY
TXY
LDA [$28],Y
PLY
CMP #$3D
BEQ L523C
STA [$48],Y
INY
INX
BRA L522D
L523C LDA #$2B
STA [$48],Y
INY
REP #$20
PHY
PER L5247+2
L5247 BRL L658A
PLY
LDX $48
STX $28
LDX #$0001
PER L5255+2
L5255 BRL L8D95
LDA $00
STA [$28],Y
PER L5265
PLA
STA $6C
BRL L3DB6
L5265 PER L5268+2
L5268 BRL L66E3
LDA $DA
STA $28
LDA #$0003
LDY #$04F8
STA [$3C],Y
LDA #$8062
LDY #$04FA
STA [$3C],Y
LDA #$0001
LDY #$04FC
STA [$3C],Y
LDY $00
SEP #$20
L528B INY
LDA [$28],Y
CMP #$3D
BNE L528B
INY
LDA #$3C
STA [$28],Y
INY
REP #$20
LDX $00
PER L529F+2
L529F BRL L8D95
LDA $00
STA [$28],Y
PER L52B8
PLA
STA $6C
PER L52AF+2
L52AF BRL L3DCF
LDA #$0018
BRL L405B
L52B8 LDY #$00BA
LDA [$3C],Y
BEQ L52D9
LDX #$0019
PHK
PER L52CD
PEA $0009
PEI $EE
PEI $EC
L52CD RTL
LDY #$00B8
LDA [$3C],Y
STA [$24]
INC $24
INC $24
L52D9 LDX $00
TXA
INC
PER L52E0+2
L52E0 BRL L6650
BRL L3D28
BIT $8D
BVS L534E
LDA #$4F47
STA $04
LDA #$4F54
STA $06
STZ $08
PER L52F9+2
L52F9 BRL L459F
BCC L5356
LDA #$4854
STA $04
LDA #$4E45
STA $06
PER L530B+2
L530B BRL L459F
BCS L5325
L5310 LDA [$28],Y
AND #$00FF
BEQ L531F
INY
CMP #$0020
BEQ L5310
BRA L5356
L531F DEY
DEY
DEY
DEY
STA [$28],Y
L5325 LDA #$0002
TAX
BIT $8E
BEQ L5331
TRB $8E
BRA L5340
L5331 LDX #$0002
PER L5337+2
L5337 BRL L676B
PER L533D+2
L533D BRL L673D
L5340 LDA #$FFFF
STA $64
LDA #$0041
TRB $8E
LSR
ASL
TSB $8E
L534E STZ $CA
LDA #$0018
BRL L405B
L5356 LDA $62
LDY #$108C
STA [$3C],Y
LDA #$4649
L5360 STA $64
DEC $28
DEC $28
LDA $00
STA [$28]
LDA #$0041
TRB $8E
LSR
ASL
TSB $8E
L5373 INC $28
INC $28
LDA $00
DEC
DEC
STA $C4
LSR
STA $0C
LDA #$4649
STA $04
STZ $06
PER L538A+2
L538A BRL L459F
BCS L5397
INY
INY
STY $0C
LDA $04
STA $C4
L5397 STZ $08
LDA $64
CMP #$4649
BNE L53BC
LDA #$4F47
STA $04
LDA #$4F54
STA $06
PER L53AD+2
L53AD BRL L459F
BCS L53BC
CPY $0C
BPL L53BC
STY $0C
LDA $04
STA $C4
L53BC LDA #$4C45
STA $04
LDA #$4553
STA $06
PER L53C9+2
L53C9 BRL L459F
BCS L53D8
CPY $0C
BPL L53D8
STY $0C
LDA $04
STA $C4
L53D8 LDA #$4649
STA $08
STZ $0A
PER L53E2+2
L53E2 BRL L459F
BCS L53F3
DEY
DEY
CPY $0C
BPL L53F3
STY $0C
LDA $04
STA $C4
L53F3 LDA #$4854
STA $04
LDA #$4E45
STA $06
STZ $08
PER L5402+2
L5402 BRL L459F
BCS L541C
CPY $0C
BPL L541C
STY $0C
TYX
DEY
DEY
LDA #$2020
STA $C4
STA [$28],Y
DEY
DEY
STA [$28],Y
TXY
L541C LDX $C4
BMI L5447
LDA $0C
SEC
SBC #$0004
TAY
CLC
ADC $28
STA $5C
LDA $2A
STA $5E
LDA [$28],Y
STX $02
CMP $02
BEQ L5442
PEA $0045
PHK
PER L543F+2
L543F BRL L8D82
L5442 LDA #$0000
STA [$28],Y
L5447 DEC $28
DEC $28
LDA $64
STA [$28]
STA $C4
STX $64
L5453 LDA [$28]
AND #$00FF
BEQ L5466
CMP #$0020
BEQ L5462
BRL L3DB0
L5462 INC $28
BRA L5453
L5466 LDA $64
BMI L549E
LDA $5C
STA $28
LDA $5E
STA $2A
LDA $C4
CMP #$4649
BNE L549B
LDA #$0002
BIT $8E
BEQ L5484
TRB $8E
BRA L5491
L5484 TAX
PER L5488+2
L5488 BRL L676B
PER L548E+2
L548E BRL L673D
L5491 LDX $00
TXA
INC
PER L5498+2
L5498 BRL L6650
L549B BRL L5373
L549E INC
BNE L54AD
LDX $00
TXA
INC
PER L54A8+2
L54A8 BRL L6650
BRA L54EE
L54AD BIT $A6
BVC L54C7
PHK
PER L54B5+2
L54B5 BRL L6C35
LDA $B0
STA $C2
BCC L54C1
BRL L6A0A
L54C1 LDA #$2020
BRL L5360
L54C7 INC
BNE L54EE
LDA $62
SEC
LDY #$108C
SBC [$3C],Y
L54D2 DEC
BMI L54EE
PHA
PER L54D9+2
L54D9 BRL L66E3
PER L54DF+2
L54DF BRL L6749
LDX #$0002
PER L54E8+2
L54E8 BRL L678F
PLA
BRA L54D2
L54EE STZ $64
LDA #$0041
TRB $8E
BRL L3D28
LDX #$0000
PER L54FE+2
L54FE BRL L676B
PER L5504+2
L5504 BRL L66E3
PER L5515
PLA
STA $6C
STZ $CA
LDA #$0018
BRL L405B
L5515 LDX $00
TXA
INC
PER L551C+2
L551C BRL L6650
BRL L3D28
SEP #$20
LDX $00
TXY
L5527 LDA [$28],Y
BEQ L5533
INY
CMP #$2C
BNE L5527
INX
BRA L5527
L5533 REP #$20
PHX
LDX #$FFFE
LDA $00
PER L553E+2
L553E BRL L6650
BCS L5559
PER L5546+2
L5546 BRL L66E3
LDX #$0001
PER L554F+2
L554F BRL L678F
PLX
DEX
BPL L5533
BRL L3D28
L5559 PEA $004B
PHK
PER L5560+2
L5560 BRL L8D82
BRL L3D99
LDX #$FFFF
LDA $00
PER L556E+2
L556E BRL L6650
BCS L5585
PER L5576+2
L5576 BRL L66E3
LDX #$0000
PER L557F+2
L557F BRL L678F
BRL L3D28
L5585 PEA $004A
PHK
PER L558C+2
L558C BRL L8D82
BRL L3D99
PER L5595+2
L5595 BRL L67DD
BCC L559D
BRL L3D99
L559D LDY #$000D
BRA L55C3
PER L55A5+2
L55A5 BRL L67DD
BCC L55AD
BRL L3D99
L55AD LDA [$38]
TAX
L55B0 LDY #$000C
LDA [$28]
AND #$00FF
BEQ L55C3
CMP #$0020
BNE L55C6
INC $28
BRA L55B0
L55C3 TXA
BNE L55D3
L55C6 PEA $0002
PHK
PER L55CD+2
L55CD BRL L8D82
BRL L3D99
L55D3 PHY
STZ $04
PHK
PER L55E1
PEA $0006
PEI $EE
PEI $EC
L55E1 RTL
PLX
PHK
PER L55EE
PEA $0009
PEI $EE
PEI $EC
L55EE RTL
TYA
STA [$24]
INC $24
INC $24
BIT $8D
BVC L5603
LDA $64
INC
INC
BNE L5603
INC
TSB $8E
L5603 BRL L3D28
LDY $28
STY $CE
LDY #$04FA
LDA [$3C],Y
STA $D0
PER L5614+2
L5614 BRL L67DD
BCC L561C
BRL L3D99
L561C TXY
BNE L5622
BRL L56FD
L5622 PHK
PER L562D
PEA $0018
PEI $EE
PEI $EC
L562D RTL
BCC L5633
BRL L56FD
L5633 STX $10
CPX #$0019
BNE L563D
BRL L5809
L563D LDA [$28]
AND #$00FF
CMP #$0020
BEQ L564A
BRL L56FD
L564A CPX #$0014
BMI L5654
CPX #$0019
BMI L566C
L5654 LDY $CE
INY
STY $28
PER L565C+2
L565C BRL L658A
PEA $0078
PHK
PER L5666+2
L5666 BRL L8D82
BRL L3D99
L566C LDY $28
STY $CE
PER L5673+2
L5673 BRL L658A
PER L5679+2
L5679 BRL L67DD
BCC L5681
BRL L3D99
L5681 PHK
PER L568C
PEA $0018
PEI $EE
PEI $EC
L568C RTL
BCS L5654
TXA
SEC
SBC #$000C
STA $12
BEQ L56A4
DEC
BNE L5654
LDA $10
CMP #$0016
BNE L5654
BRA L56AB
L56A4 LDA $10
CMP #$0016
BEQ L5654
L56AB LDY $28
STY $CE
PER L56B2+2
L56B2 BRL L67DD
BCC L56BA
BRL L3D99
L56BA LDY #$04FA
LDA [$3C],Y
LDY $00
CMP #$0030
BEQ L56D8
STZ $04
DEC $04
DEC $04
PHK
PER L56D7
PEA $0006
PEI $EE
PEI $EC
L56D7 RTL
L56D8 LDX #$0011
PHK
PER L56E6
PEA $0009
PEI $EE
PEI $EC
L56E6 RTL
LDA $10
ASL
LSR $12
ROR
STA [$24]
INC $24
INC $24
TYA
STA [$24]
INC $24
INC $24
BRL L3D28
L56FD LDY $CE
STY $28
PER L5704+2
L5704 BRL L658A
LDA #$4F47
STA $04
LDA #$4F54
STA $06
STZ $08
STZ $D2
PER L5718+2
L5718 BRL L459F
TYX
BCC L5738
LDA #$5553
STA $06
LDA #$0042
STA $08
PER L572B+2
L572B BRL L459F
BCC L5733
BRL L5654
L5733 TYX
DEY
SEC
ROR $D2
L5738 DEY
DEY
DEY
DEY
LDA $00
STA [$28],Y
TXA
CLC
ADC $CE
STA $D4
PER L5773
STZ $CA
L574B PER L574E+2
L574E BRL L658A
PLA
STA $6C
LDA #$0003
LDY #$04F8
STA [$3C],Y
LDA $D0
LDY #$04FA
STA [$3C],Y
LDA #$0001
LDY #$04FC
STA [$3C],Y
LDA $CA
ORA #$0018
BRL L405B
L5773 LDY $D4
STY $28
LDY $00
LDX $00
SEP #$20
LDA [$28],Y
BEQ L578D
L5781 LDA [$28],Y
BEQ L579C
INY
CMP #$2C
BNE L5781
INX
BRA L5781
L578D REP #$20
PEA $0070
PHK
PER L5796+2
L5796 BRL L8D82
BRL L3D99
L579C REP #$20
INX
STX $10
PER L57A4+2
L57A4 BRL L658A
LDX #$0012
PHK
PER L57B5
PEA $0009
PEI $EE
PEI $EC
L57B5 RTL
LDA $10
ORA $D2
STA [$24]
INC $24
INC $24
L57C0 PER L57C3+2
L57C3 BRL L67DD
BCC L57CB
BRL L3D99
L57CB LDA [$38]
BEQ L578D
STZ $04
PHK
PER L57DC
PEA $0006
PEI $EE
PEI $EC
L57DC RTL
TYA
STA [$24]
INC $24
INC $24
DEC $10
BEQ L5806
L57E8 LDA [$28]
AND #$00FF
INC $28
CMP #$0020
BEQ L57E8
CMP #$002C
BEQ L57C0
PEA $0002
PHK
PER L5800+2
L5800 BRL L8D82
BRL L3D99
L5806 BRL L3D28
L5809 PER L580C+1
L580C BRA L583F
BCC L5813
BRL L3D99
L5813 TYA
BNE L5823
PEA $0002
PHK
PER L581D+2
L581D BRL L8D82
BRL L3D99
L5823 INC
CLC
ADC $28
STA $D4
PER L5833
STZ $CA
INC $CA
BRL L574B
L5833 LDY $D4
STY $28
LDA #$0019
STA $10
BRL L566C
L583F PHP
SEP #$20
LDX $00
TXY
L5845 LDA [$28]
BEQ L5889
CMP #$28
BEQ L586C
CMP #$20
BNE L5859
INC $28
BNE L5845
INC $29
BRA L5845
L5859 PER L585C+2
L585C BRL L658A
PEA $0002
PHK
PER L5866+2
L5866 BRL L8D82
PLP
SEC
RTS
L586C LDA #$20
STA [$28]
TXY
L5871 LDA [$28],Y
BEQ L5859
INY
CMP #$28
BNE L587D
INX
BRA L5871
L587D CMP #$29
BNE L5871
DEX
BPL L5871
DEY
LDA #$00
STA [$28],Y
L5889 PLP
CLC
RTS
MX %00
PER L588F+2
L588F BRL L467E
AND #$00FF
BNE L589A
BRL L59BC
L589A PER L58A4
PLX
PER L58A4+3
BRL L457E
L58A4 ASC 'SUB'00
BCC L58D4
PER L58B4
PLX
PER L58B4+2
BRL L457E
L58B4 EOR #$0046
BCS L58C8
TYA
CLC
ADC $28
STA $28
PER L58C2+2
L58C2 BRL L658A
BRL L5095
L58C8 PEA $0002
PHK
PER L58CF+2
L58CF BRL L8D82
BRA L58EE
L58D4 BIT $20
BMI L58C8
LDA #$2000
BIT $68
BNE L58EB
PEA $0028
PHK
PER L58E6+2
L58E6 BRL L8D82
BRA L58EE
L58EB BRL L3D45
L58EE PER L58F1+2
L58F1 BRL L6B82
LDA #$2000
TRB $68
BRL L3D99
LDX #$0015
STZ $08
L5901 PHK
PER L590C
PEA $0009
PEI $EE
PEI $EC
L590C RTL
LDY $08
BNE L5944
PER L5914+2
L5914 BRL L467E
TAY
BEQ L5944
PER L591D+2
L591D BRL L67DD
BCC L5925
BRL L3D99
L5925 LDA [$38]
BEQ L594E
LDY #$0002
LDA [$38],Y
LDY $00
SEC
SBC #$0030
BEQ L5944
STZ $04
PHK
PER L5943
PEA $0006
PEI $EE
PEI $EC
L5943 RTL
L5944 TYA
STA [$24]
INC $24
INC $24
BRL L3D28
L594E PEA $0002
PHK
PER L5955+2
L5955 BRL L8D82
BRL L3D99
L595B LDA #$001C
BRL L405B
LDA #$2000
AND $68
BNE L5975
PEA $002C
PHK
PER L596F+2
L596F BRL L8D82
BRL L3D99
L5975 PER L597F
PLX
PER L597F+3
BRL L457E
L597F ASC 'SUB'00
BCS L599B
BIT $20
BMI L599B
LDX #$0014
PHK
PER L5997
PEA $0009
PEI $EE
PEI $EC
L5997 RTL
BRL L3D28
L599B PEA $0078
PHK
PER L59A2+2
L59A2 BRL L8D82
BRL L3D99
STZ $08
LDX #$0016
BRL L5901
LDA #$001F
BRL L405B
LDA #$001D
BRL L405B
L59BC LDA [$28]
AND #$00FF
BEQ L59D0
PEA $0002
PHK
PER L59CA+2
L59CA BRL L8D82
BRL L3D99
L59D0 LDA #$000C
BRL L405B
L59D6 PER L59D9+2
L59D9 BRL L4525
INC $28
PER L59E1+2
L59E1 BRL L467E
LDA #$8162
LDY #$04FA
STA [$3C],Y
LDA $00
LDY #$04FC
STA [$3C],Y
INC
INC
LDY #$04F8
STA [$3C],Y
LDY $00
PER L59FF+2
L59FF BRL L4693
CMP #$0023
BNE L5A1B
LDA [$28],Y
CLC
ADC #$FFFD
STA [$28],Y
LDY #$04FB
LDA [$3C],Y
INC
INC
LDY #$04FB
STA [$3C],Y
L5A1B PER L5A25
PLX
PER L5A25+5
BRL L457E
L5A25 ASC 'USING'00
BCS L5A91
PHY
LDY #$04FA
LDA [$3C],Y
PLY
CMP #$8162
BNE L5A3F
L5A39 BIT $20
BMI L5A84
BRA L5A4E
L5A3F CMP #$8262
BEQ L5A39
LDA $21
AND #$00FF
CMP #$00FF
BNE L5A84
L5A4E LDA #$003B
PER L5A54+2
L5A54 BRL L46A1
BCC L5A8B
SEP #$20
PER L5A5E+2
L5A5E BRL L45F8
BCS L5A69
PER L5A66+2
L5A66 BRL L4635
L5A69 REP #$20
TYA
L5A6C CLC
ADC $28
STA $28
PER L5A74+2
L5A74 BRL L658A
PEA $0002
PHK
PER L5A7E+2
L5A7E BRL L8D82
BRL L3D99
L5A84 TYA
SEC
SBC #$0005
BRA L5A6C
L5A8B LDA #$000D
BRL L405B
L5A91 LDY #$0000
SEP #$20
TYX
DEX
BRA L5AF2
L5A9A LDA [$28],Y
BNE L5AA1
BRL L5B2B
L5AA1 INY
CMP #$20
BNE L5AA9
INX
BRA L5A9A
L5AA9 XBA
LDA $00
XBA
BMI L5AC1
PHY
TAY
LDA [$94],Y
BPL L5ABF
TYA
PLY
CMP #$28
BEQ L5B0F
LDX $00
BRA L5AF2
L5ABF TYA
PLY
L5AC1 PHX
PLX
BEQ L5AEC
PER L5AC8+2
L5AC8 BRL L5B8C
BCS L5AE1
L5ACD LDA [$28],Y
INY
CMP #$20
BEQ L5ACD
PER L5AD7+2
L5AD7 BRL L5B8C
BCC L5ACD
DEY
LDX $00
BRA L5A9A
L5AE1 DEY
DEY
LDA #$3B
STA [$28],Y
LDX $00
INY
BRA L5A9A
L5AEC CMP #$28
BEQ L5B0F
BRA L5A9A
L5AF2 LDA [$28],Y
BEQ L5B2B
INY
CMP #$28
BEQ L5B0F
CMP #$20
BEQ L5AF2
INX
BNE L5B0A
PER L5B05+2
L5B05 BRL L5B8C
BCC L5ACD
L5B0A DEY
LDX $00
BRA L5A9A
L5B0F STZ $CE
L5B11 LDA [$28],Y
BEQ L5B2B
INY
CMP #$29
BNE L5B23
DEC $CE
BPL L5B11
LDX $00
BRL L5A9A
L5B23 CMP #$28
BNE L5B11
INC $CE
BRA L5B11
L5B2B REP #$20
LDY $28
STY $CE
LDY $2A
STY $D0
LDA #$4154
STA $04
LDA #$0042
STA $06
LDA #$0002
STA $1E
L5B44 PER L5B47+2
L5B47 BRL L459F
BCS L5B5C
TYA
CLC
ADC $28
STA $28
STZ $08
PER L5B57+2
L5B57 BRL L65EF
BRA L5B44
L5B5C LDY $CE
STY $28
LDY $D0
STY $2A
DEC $1E
BMI L5B84
BEQ L5B78
LDA #$5450
STA $04
LDA #$4241
STA $06
STZ $08
BRA L5B44
L5B78 LDA #$5053
STA $04
LDA #$0043
STA $06
BRA L5B44
L5B84 LDA #$0040
TSB $8D
BRL L40A0
L5B8C PHP
PHY
DEY
REP #$20
LDA [$28],Y
PHK
PLB
LDY #$0000
PER L8B47
L5B9B CMP ($01,S),Y
BEQ L5BAD
INY
INY
INY
INY
CPY #$001C
BCC L5B9B
PLY
L5BA9 PLY
PLP
SEC
RTS
L5BAD INY
INY
SEP #$20
LDA ($01,S),Y
BNE L5BC7
PLY
PLY
PHY
L5BB8 INY
LDA [$28],Y
CMP #$41
BCC L5BC3
CMP #$5B
BCC L5BA9
L5BC3 PLX
PLP
CLC
RTS
MX %00
L5BC7 PLY
PLY
PHY
INY
CMP [$28],Y
BNE L5BA9
BRA L5BB8
L5BD1 LDY #$0002
LDA [$38],Y
STA $20
PER L5BDB+2
L5BDB BRL L67DD
BCC L5BE3
BRL L3D99
L5BE3 LDA [$28]
AND #$00FF
BNE L5BF8
PHK
PER L5BF5
PEA $0018
PEI $EE
PEI $EC
L5BF5 RTL
BCC L5C05
L5BF8 PEA $0078
PHK
PER L5BFF+2
L5BFF BRL L8D82
BRL L3D99
L5C05 STA $22
DEC
BEQ L5C10
DEC
BEQ L5C10
DEC
BNE L5BF8
L5C10 LDX #$0005
PHK
PER L5C1E
PEA $0009
PEI $EE
PEI $EC
L5C1E RTL
LDA #$0C81
STA [$24]
INC $24
INC $24
LDA $20
STA [$24]
INC $24
INC $24
LDA $22
XBA
ORA #$8064
STA [$24]
INC $24
INC $24
LDA $00
STA [$24]
INC $24
BRL L3D28
BRL L40A0
PER L5C4B+2
L5C4B BRL L4F6E
SEP #$20
L5C50 LDA [$28]
BEQ L5C68
CMP #$2C
BEQ L5C64
CMP #$20
BNE L5C68
INC $28
BNE L5C50
INC $29
BRA L5C50
L5C64 LDA #$20
STA [$28]
L5C68 REP #$20
BRL L40A0
LDY $00
L5C6F PER L5C72+2
L5C72 BRL L4693
CMP #$0023
BNE L5C82
LDA [$28],Y
SEC
SBC #$0003
STA [$28],Y
L5C82 PER L5C85+2
L5C85 BRL L46A6
INY
BCC L5C6F
LDA #$000D
BRL L405B
LDY #$04FA
LDA [$3C],Y
CMP #$9F62
BEQ L5CBD
LDY $00
PER L5CA0+2
L5CA0 BRL L4693
CMP #$0023
BNE L5CC9
LDA [$28],Y
AND #$FF00
ORA #$0020
STA [$28],Y
LDY #$04FB
LDA [$3C],Y
INC
LDY #$04FB
STA [$3C],Y
L5CBD LDY $00
PER L5CC2+2
L5CC2 BRL L46A6
BCS L5D01
BRA L5CF8
L5CC9 CMP #$0071
BNE L5CE2
INY
INY
PER L5CD3+2
L5CD3 BRL L4693
CMP #$002C
BEQ L5CF5
CMP #$003B
BEQ L5CF5
BRA L5D01
L5CE2 CMP #$003B
BNE L5D10
INY
PER L5CEB+2
L5CEB BRL L4693
CMP #$0071
BEQ L5CC9
BRA L5D10
L5CF5 INY
BRA L5D10
L5CF8 INY
PER L5CFC+2
L5CFC BRL L46D6
BVC L5D0E
L5D01 PEA $0080
PHK
PER L5D08+2
L5D08 BRL L8D82
BRL L3D99
L5D0E BCC L5D1D
L5D10 PER L5D13+2
L5D13 BRL L46A6
BCC L5CF8
LDX #$000D
BRA L5D4A
L5D1D PHY
LDY #$04FA
LDA [$3C],Y
LDX #$000F
PLY
CMP #$9E62
BEQ L5D2F
LDX #$000D
L5D2F PER L5D63
PLA
STA $6C
DEY
LDA [$28],Y
AND #$FF00
STA [$28],Y
STY $D4
LDA $28
STA $D2
LDY #$04FA
LDA [$3C],Y
STA $CE
L5D4A PHX
PER L5D4E+2
L5D4E BRL L3DCF
PER L5D54+2
L5D54 BRL L658A
PLX
LDA #$0040
TSB $8F
TSB $93
TXA
BRL L405B
L5D63 LDA #$0003
LDY #$04F8
STA [$3C],Y
LDA $CE
LDY #$04FA
STA [$3C],Y
LDA #$0020
LDY #$04FC
STA [$3C],Y
LDY $D2
STY $28
LDY $D4
ORA [$28],Y
STA [$28],Y
TYA
CLC
ADC $28
STA $28
LDY $00
L5D8C PER L5D8F+2
L5D8F BRL L46A6
LDX #$000F
BCS L5D4A
INY
PER L5D9B+2
L5D9B BRL L46D6
BVC L5DA3
BRL L5D01
L5DA3 BCS L5D8C
PHY
LDY #$04FA
LDA [$3C],Y
LDX #$000D
PLY
CMP #$9E62
BNE L5DB7
BRL L5D2F
L5DB7 LDX #$000F
BRL L5D2F
PER L5DC0+2
L5DC0 BRL L467E
CMP #$003D
BNE L5DD5
EOR [$28]
ORA #$0020
STA [$28]
LDA #$001F
BRL L405B
L5DD5 PEA $0002
PHK
PER L5DDC+2
L5DDC BRL L8D82
BRL L3D99
PER L5DEC
PLX
PER L5DEC+5
BRL L465D
L5DEC ASC 'FIELD'00
BCC L5DF7
BRL L599B
L5DF7 BIT $20
BMI L5DFE
BRL L40A0
L5DFE BRL L599B
LDA #$0040
TSB $92
LDA #$000D
BRL L405B
LDY $00
PER L5E11+2
L5E11 BRL L46A6
BCS L5E49
PHY
PER L5E1A+2
L5E1A BRL L4693
CMP #$0052
BEQ L5E3B
L5E22 PLA
CLC
ADC $28
STA $28
PER L5E2B+2
L5E2B BRL L658A
PEA $0002
PHK
PER L5E35+2
L5E35 BRL L8D82
BRL L3D99
L5E3B INY
LDA [$28],Y
AND #$00FF
BNE L5E22
PLY
INY
LDA $00
STA [$28],Y
L5E49 LDA #$000D
BRL L405B
PER L5E52+2
L5E52 BRL L467E
BRL L3F72
L5E58 LDY $00
PER L5E5D+2
L5E5D BRL L4693
CMP #$0023
BNE L5E6D
LDA [$28],Y
SEC
SBC #$0003
STA [$28],Y
L5E6D LDA #$000D
BRL L405B
PER L5E76+2
L5E76 BRL L652C
BCS L5E58
STZ $1C
L5E7D LDY $00
PER L5E82+2
L5E82 BRL L46A6
BCS L5E92
LDA [$28],Y
CLC
ADC #$0052
STA [$28],Y
BRL L40B0
L5E92 REP #$20
PEA $0002
PHK
PER L5E9B+2
L5E9B BRL L8D82
BRL L3D99
PER L5EA4+2
L5EA4 BRL L652C
BCS L5E58
LDY $00
PER L5EAE+2
L5EAE BRL L46A6
BCS L5E92
INY
PER L5EB7+2
L5EB7 BRL L46A6
BCS L5E7D
STZ $0C
LDY $00
PER L5ECA
PLX
PER L5ECA+4
BRL L465D
L5ECA ASC 'PSET'00
BCC L5F2A
INC $0C
LDY $00
PER L5EDF
PLX
PER L5EDF+6
BRL L465D
L5EDF ASC 'PRESET'00
BCC L5F2A
ASL $0C
LDY $00
PER L5EF6
PLX
PER L5EF6+3
BRL L465D
L5EF6 ASC 'AND'00
BCC L5F2A
ASL $0C
INC $0C
LDY $00
PER L5F0C
PLX
PER L5F0C+3
BRL L465D
L5F0C ASC 'XOR'00
BCC L5F2A
INC $0C
INC $0C
LDY $00
PER L5F22
PLX
PER L5F22+2
BRL L465D
L5F22 ASC 'OR'00
BCC L5F2A
BRL L5E92
L5F2A LDA $0C
XBA
ORA #$8064
DEY
DEY
STA [$28],Y
BRL L5E7D
PER L5F41
PLX
PER L5F41+2
BRL L457E
L5F41 ASC 'AS'00
BCS L5F7B
PHY
LDY $00
PER L5F53
PLX
PER L5F53+5
BRL L457E
L5F53 ASC 'INPUT'00
BCS L5F63
DEY
LDA [$28],Y
ORA #$0020
STA [$28],Y
L5F63 PLY
L5F64 PER L5F67+2
L5F67 BRL L4693
CMP #$0023
BNE L5F86
LDA [$28],Y
AND #$FF00
ORA #$0020
STA [$28],Y
BRA L5F86
L5F7B LDY $00
PER L5F80+2
L5F80 BRL L46A6
INY
BCC L5F64
L5F86 PER L5F90
PLX
PER L5F93
BRL L457E
L5F90 JMP $4E45
L5F93 DB $00
BCS L5FB2
TYX
DEY
DEY
LDA #$4E65 ; eN
STA [$28],Y
TXY
PER L5FA2+2
L5FA2 BRL L4693
CMP #$003D
BNE L5FB8
LDA [$28],Y
CLC
ADC #$FFE3
STA [$28],Y
L5FB2 LDA #$000D
BRL L405B
L5FB8 PEA $0002
PHK
PER L5FBF+2
L5FBF BRL L8D82
BRL L3D99
LDY $00
SEP #$20
L5FC9 INY
LDA [$28],Y
BEQ L5FC9
CMP #$3D
BNE L5FC9
LDA #$3B
STA [$28],Y
REP #$20
BRL L40B0
LDY $00
PER L5FE0+2
L5FE0 BRL L4693
CMP #$002D
BNE L5FFB
PER L5FEB+2
L5FEB BRL L6097
PER L5FF1+2
L5FF1 BRL L652C
BCC L5FF9
BRL L608A
L5FF9 BRA L6003
L5FFB PER L5FFE+2
L5FFE BRL L652C
BCS L605C
L6003 LDY $00
PER L6008+2
L6008 BRL L46A6
BCS L6059
INY
PER L6011+2
L6011 BRL L46A6
BCS L6059
INY
PER L601A+2
L601A BRL L4693
CMP #$0042
BEQ L6036
PER L6025+2
L6025 BRL L46A6
BCS L6059
INY
PER L602E+2
L602E BRL L4693
CMP #$0042
BNE L608A
L6036 STY $14
INY
PER L603C+2
L603C BRL L4693
LDX #$6480
INX
CMP #$0046
BEQ L604C
DEX
TAY
BNE L608A
L604C LDY $14
TXA
XBA
STA [$28],Y
XBA
AND #$00FF
INY
STA [$28],Y
L6059 BRL L40A0
L605C PER L6066
PLX
PER L6066+6
BRL L465D
L6066 ASC 'INPUT#'00
BCS L6078
LDA #$2023 ; '# '
DEY
DEY
STA [$28],Y
BRA L60A2
L6078 PER L6082
PLX
PER L6082+5
BRL L465D
L6082 ASC 'INPUT'00
BCC L60A2
L608A PEA $0002
PHK
PER L6091+2
L6091 BRL L8D82
BRL L3D99
L6097 LDA [$28],Y
AND #$FF00
ORA #$0020
STA [$28],Y
RTS
L60A2 LDY #$04FB
LDA [$3C],Y
INC
LDY #$04FB
STA [$3C],Y
LDY $00
PER L60B2+2
L60B2 BRL L4693
CMP #$0023
BNE L60CF
LDA [$28],Y
AND #$FF00
ORA #$0020
STA [$28],Y
LDY #$04FB
LDA [$3C],Y
INC
LDY #$04FB
STA [$3C],Y
L60CF BRL L40B0
PER L60DC
PLX
PER L60DC+2
BRL L457E
L60DC ASC 'ON'00
BCS L60E4
BRL L5BD1
L60E4 PER L60EE
PLX
PER L60EE+3
BRL L457E
L60EE ASC 'OFF'00
BCS L60F7
BRL L5BD1
L60F7 PER L6101
PLX
PER L6101+4
BRL L457E
L6101 ASC 'STOP'00
BCS L610B
BRL L5BD1
L610B LDA #$000D
BRL L405B
PER L6114+2
L6114 BRL L467E
LDY $28
STY $CE
STZ $08
DEC $08
PER L6122+2
L6122 BRL L65EF
BCC L612A
BRL L3D99
L612A INC $28
PER L612F+2
L612F BRL L467E
CMP #$003D
BNE L614C
SEP #$20
LDA #$3B
STA [$28]
REP #$20
LDY $CE
STY $28
PER L6146+2
L6146 BRL L658A
BRL L40B0
L614C PEA $0002
PHK
PER L6153+2
L6153 BRL L8D82
BRL L3D99
L6159 LDA #$000D
BRL L405B
LDY $00
BRL L5D10
PER L616E
PLX
PER L616E+4
BRL L457E
L616E ASC 'NEXT'00
LDY $00
BCS L617A
DEY
BRA L61B5
L617A STY $10
L617C LDA [$28]
AND #$00FF
BEQ L61B7
CMP #$0020
BNE L618C
INC $28
BRA L617C
L618C PER L618F+2
L618F BRL L67DD
BCC L6197
BRL L3D99
L6197 LDY #$04FA
LDA [$3C],Y
LDY $00
CMP #$0030
BEQ L61B5
STZ $04
DEC $04
DEC $04
PHK
PER L61B4
PEA $0006
PEI $EE
PEI $EC
L61B4 RTL
L61B5 STY $10
L61B7 LDX #$0018
PHK
PER L61C5
PEA $0009
PEI $EE
PEI $EC
L61C5 RTL
LDA $10
STA [$24]
INC $24
INC $24
BRL L3D28
LDY $00
PER L61D6+2
L61D6 BRL L46A6
BCS L61F5
INY
PER L61DF+2
L61DF BRL L4693
CMP #$0052
BNE L61FB
PHY
INY
PER L61EC+2
L61EC BRL L4693
PLY
TAX
BNE L61FB
STA [$28],Y
L61F5 LDA #$000D
BRL L405B
L61FB PEA $0002
PHK
PER L6202+2
L6202 BRL L8D82
BRL L3D99
PER L6212
PLX
PER L6212+4
BRL L457E
L6212 ASC 'STEP'00
BCS L621D
BIT $20
BMI L622B
L621D PER L6220+2
L6220 BRL L652C
BCS L622B
LDA #$000D
BRL L405B
L622B PEA $0002
PHK
PER L6232+2
L6232 BRL L8D82
BRL L3D99
PER L6242
PLX
PER L6242+5
BRL L457E
L6242 ASC 'BYTES'00
BCC L6270
LDY $00
PER L624F+2
L624F BRL L46A6
BCS L622B
INY
PER L6258+2
L6258 BRL L46A6
BCC L622B
BRL L40B0
PER L626A
PLX
PER L626A+3
BRL L457E
L626A ASC 'GET'00
BCS L62B7
L6270 DEY
DEY
LDA #$7845 ; Ex
STA [$28],Y
INY
INY
L6279 PER L627C+2
L627C BRL L46A6
BCS L6289
LDA [$28],Y
CLC
ADC #$0052
BRA L62B2
L6289 LDA [$28],Y
AND #$00FF
CMP #$0020
BEQ L62AC
TYA
CLC
ADC $28
STA $28
PER L629C+2
L629C BRL L658A
PEA $0002
PHK
PER L62A6+2
L62A6 BRL L8D82
BRL L3D99
L62AC LDA [$28],Y
CLC
ADC #$005E
L62B2 STA [$28],Y
BRL L40B0
L62B7 LDY $00
PER L62BC+2
L62BC BRL L46A6
BCS L6336
INY
STY $14
PER L62CE
PLX
PER L62CE+3
BRL L457E
L62CE ASC 'SIN'00
BCS L62DF
L62D4 DEY
LDA [$28],Y
CLC
ADC #$0020
STA [$28],Y
BRA L6313
L62DF LDY $14
PER L62EB
PLX
PER L62EB+3
BRL L457E
L62EB ASC 'SQR'00
BCC L62D4
LDY $14
PER L62FD
PLX
PER L62FD+3
BRL L457E
L62FD ASC 'TRI'00
BCC L62D4
LDY $00
PER L6308+2
L6308 BRL L46A6
LDA [$28],Y
CLC
ADC #$0052
STA [$28],Y
L6313 INY
PER L6317+2
L6317 BRL L46A6
BCS L6336
INY
PER L6320+2
L6320 BRL L46A6
BCS L6336
INY
PER L6329+2
L6329 BRL L46A6
BCS L6336
LDA [$28],Y
CLC
ADC #$0052
STA [$28],Y
L6336 BRL L40B0
LDY #$04FB
LDA [$3C],Y
PHA
LDY $00
PER L6344+2
L6344 BRL L4693
PLX
CMP #$0023
BNE L635C
LDA [$28],Y
CLC
ADC #$FFFD
STA [$28],Y
INX
TXA
LDY #$04FB
STA [$3C],Y
L635C CPX #$01B9
BNE L6364
BRL L6489
L6364 BRL L6159
PER L6371
PLX
PER L6371+6
BRL L457E
L6371 ASC 'OUTPUT'00
BCS L6399
STY $14
PER L637F+2
L637F BRL L4693
CMP #$0023
BNE L63DD
LDA [$28],Y
CLC
ADC #$FFFD
STA [$28],Y
LDY $14
DEY
LDA [$28],Y
ORA #$0020
STA [$28],Y
L6399 LDA #$000D
BRL L405B
LDY $00
PER L63A4+2
L63A4 BRL L4693
CMP #$0023
BNE L6402
LDA [$28],Y
SEC
SBC #$0003
STA [$28],Y
LDY #$04FB
LDA [$3C],Y
INC
LDY #$04FB
STA [$3C],Y
LDA #$000D
BRL L405B
LDY #$0000
PER L63CB+2
L63CB BRL L4693
CMP #$0023
BNE L63DD
LDA [$28],Y
AND #$FF00
ORA #$0020
STA [$28],Y
L63DD LDA #$0040
TSB $A5
BRL L40B0
LDY #$0000
PER L63F2
PLX
PER L63F2+5
BRL L457E
L63F2 ASC 'TIMER'00
BCS L6402
DEY
LDA #$0020
ORA [$28],Y
STA [$28],Y
L6402 LDA #$001C
BRL L405B
LDY $00
PER L640D+2
L640D BRL L4693
CMP #$002C
BEQ L6418
BRL L595B
L6418 LDA [$28],Y
CLC
ADC #$000F
STA [$28],Y
BRL L595B
LDY #$0000
PER L6430
PLX
PER L6430+6
BRL L457E
L6430 ASC 'REPEAT'00
BCS L6442
DEY
LDA [$28],Y
CLC
ADC #$0020
STA [$28],Y
L6442 LDA #$000D
BRL L405B
LDA #$0002
BIT $72
BNE L645E
LDX #$001A
PHK
PER L645D
PEA $0009
PEI $EE
PEI $EC
L645D RTL
L645E BRL L59BC
PER L646B
PLX
PER L646B+3
BRL L457E
L646B ASC 'GET'00
BCS L6474
BRL L6270
L6474 PER L647E
PLX
PER L647E+5
BRL L457E
L647E ASC 'USING'00
BCS L6489
BRL L6279
L6489 LDY #$0000
PER L648F+2
L648F BRL L4693
CMP #$002C
BEQ L649A
BRL L6159
L649A LDA [$28],Y
CLC
ADC #$000F
STA [$28],Y
BRL L6159
PER L64A8+1
L64A8 BRA L64CD
LDY #$0000
PER L64B0+2
L64B0 BRL L46A6
BCC L64C2
PEA $0002
PHK
PER L64BC+2
L64BC BRL L8D82
BRL L3D99
L64C2 LDA [$28],Y
CLC
ADC #$0052
STA [$28],Y
BRL L40B0
L64CD LDY #$0000
PER L64D3+2
L64D3 BRL L4693
CMP #$0023
BNE L64E3
LDA [$28],Y
SEC
SBC #$0003
STA [$28],Y
L64E3 RTS
LDY #$0000
PER L64EA+2
L64EA BRL L4693
DEY
BMI L6512
LDA [$28],Y
CLC
ADC #$005E
STA [$28],Y
LDA #$0005
STA $04
L64FD PER L6500+2
L6500 BRL L46A6
BCS L651C
LDA [$28],Y
CLC
ADC #$0052
STA [$28],Y
INY
DEC $04
BNE L64FD
L6512 PEA $0002
PHK
PER L6519+2
L6519 BRL L8D82
L651C BRL L40B0
LDY $00
DEY
SEP #$20
L6524 INY
LDA [$28],Y
BNE L6524
REP #$20
RTS
L652C LDX $00
TXY
STZ $20
SEP #$20
L6533 LDA [$28],Y
INY
CMP #$20
BEQ L6533
CMP #$28
BEQ L6562
CMP #$53
BNE L657A
LDA [$28],Y
INY
CMP #$54
BNE L657A
LDA [$28],Y
INY
CMP #$45
BNE L657A
LDA [$28],Y
INY
CMP #$50
BNE L657A
L6557 LDA [$28],Y
INY
CMP #$20
BEQ L6557
CMP #$28
BNE L657A
L6562 LDA [$28],Y
BEQ L657A
INY
CMP #$28
BNE L656E
INX
BRA L6562
L656E CMP #$29
BNE L657E
DEX
BPL L6562
CLC
DEC $20
BEQ L657B
L657A SEC
L657B REP #$20
RTS
MX %10
L657E CMP #$2C
BNE L6562
PHX
PLX
BNE L6562
INC $20
BRA L6562
L658A PHP
REP #$20
PHA
LDA $28
SEC
SBC #$03F6
SEC
SBC $3C
CLC
ADC $C2
CMP #$0100
BCS L65A1
STA $B0
L65A1 PLA
PLP
RTS
L65A4 LDA #$2000
AND $68
BNE L65D1
LDY #$0090
LDA [$3C],Y
STA [$E4]
LDY #$0098
LDA [$3C],Y
LDY #$0002
STA [$E4],Y
LDY #$00A0
LDA [$3C],Y
LDY #$0014
STA [$E4],Y
LDY #$00A8
LDA [$3C],Y
LDY #$0016
STA [$E4],Y
RTS
L65D1 LDY #$0086
LDA [$3C],Y
ASL
ASL
INC
ASL
ASL
TAX
LDY #$00AC
LDA [$3C],Y
TXY
STA [$E4],Y
INX
INX
LDY #$00B0
LDA [$3C],Y
TXY
STA [$E4],Y
RTS
L65EF CLC
PHP
LDY $00
SEP #$20
TYX
LDA [$28]
CMP #$28
BNE L662F
LDA #$2C
STA [$28]
L6600 INX
L6601 INY
LDA [$28],Y
BEQ L6634
CMP #$28
BEQ L6600
CMP #$2C
BNE L6618
BIT $08
BMI L6618
DEX
BEQ L662F
INX
BRA L6601
L6618 CMP #$29
BNE L6601
DEX
BNE L6601
LDA #$2C
STA [$28],Y
TYA
CLC
ADC $28
STA $28
BCC L662D
INC $29
L662D PLP
RTS
L662F PEA $0002
BRA L6638
L6634 DEY
PEA $0015
L6638 REP #$20
TYA
CLC
ADC $28
STA $28
PER L6643+2
L6643 BRL L658A
PHK
PER L664A+2
L664A BRL L8D82
PLP
SEC
RTS
L6650 PEI $20
STZ $20
INX
PHX
LDX #$0007
PHA
PLA
BEQ L6661
BPL L6660
INX
L6660 INX
L6661 PHK
PER L666C
PEA $0009
PEI $EE
PEI $EC
L666C RTL
LDA $62
ASL
CLC
ADC #$0050
TAY
L6675 LDA $62
BMI L66DD
BEQ L6691
CMP #$0010
BCS L6691
CMP #$0005
BMI L6694
DEC
DEC
DEC
DEC
XBA
LSR
CLC
ADC #$0800
BRA L6696
L6691 SEC
BRA L66DE
L6694 XBA
ASL
L6696 CLC
ADC [$3C],Y
PLX
PHX
CPX #$8000
BNE L66C2
ASL
ASL
TAY
L66A3 LDA [$E4],Y
INC
BEQ L66BF
DEY
DEY
DEY
DEY
CPY #$0800
BCS L66A3
PEA $006C
PHK
PER L66B8+2
L66B8 BRL L8D82
INY
INY
INY
INY
L66BF TYA
BRA L66CB
L66C2 CLC
ADC $01,S
ASL
ASL
BIT $20
BMI L66D1
L66CB STA [$24]
INC $24
INC $24
L66D1 TAY
LDA $00
BIT $20
BVC L66DD
BPL L66DB
DEC
L66DB STA [$E4],Y
L66DD CLC
L66DE PLX
PLY
STY $20
RTS
L66E3 PEI $20
PEA $0000
L66E8 LDX #$4000
STX $20
LDX #$0006
PHK
PER L66FB
PEA $0009
PEI $EE
PEI $EC
L66FB RTL
L66FC LDA $62
BMI L66DD
TAX
ASL
CLC
ADC #$0050
TAY
PLA
PHA
CMP #$8000
BEQ L6713
LDA [$3C],Y
INC
STA [$3C],Y
L6713 LDA [$3C],Y
CPX #$0004
BMI L6733
CMP #$0080
BPL L6722
BRL L6675
L6722 PEA $006C
PHK
PER L6729+2
L6729 BRL L8D82
LSR
LSR
STA [$3C],Y
BRL L6675
L6733 CMP #$0200
BPL L673B
BRL L6675
L673B BRA L6722
L673D PEI $20
LDX #$C000
STX $20
PEA $0000
BRA L66FC
L6749 PEI $20
PEA $8000
BRA L66E8
L6750 LDA $62
BMI L678E
DEC
BMI L6766
CLC
ADC #$0072
TAY
LDA [$3C],Y
AND #$00FF
DEC
DEC
BNE L6766
RTS
L6766 PEA $006E
BRA L6783
L676B LDA $62
BMI L678E
CLC
ADC #$0072
TAY
TXA
STA [$3C],Y
INC $62
LDX $62
CPX #$0010
BMI L678E
PEA $0068
L6783 PHK
PER L6787+2
L6787 BRL L8D82
STZ $62
DEC $62
L678E RTS
L678F LDA $62
BMI L678E
DEC
BMI L67C7
STA $62
CLC
ADC #$0072
TAY
LDA [$3C],Y
ROR
ROR
BMI L67B1
BCS L67BB
TXA
ROR
ROR
BMI L67AC
BCC L678E
L67AC PEA $0069
BRA L6783
L67B1 TXA
ROR
ROR
BMI L678E
PEA $006A
BRA L6783
L67BB TXA
ROR
ROR
BMI L67C2
BCS L678E
L67C2 PEA $006B
BRA L6783
L67C7 TXA
ROR
ROR
BMI L67D8
BCS L67D3
PEA $004A
BRA L6783
L67D3 PEA $006E
BRA L6783
L67D8 PEA $004B
BRA L6783
L67DD PER L67E0+2
L67E0 BRL L658A
LDA #$04F8
CLC
ADC $3C
STA $38
LDA $00
ADC $3E
STA $3A
LDX $00
LDY $00
LDA #$0040
TRB $A6
TXA
STX $0A
SEP #$20
L67FF LDA [$28],Y
BEQ L6876
BMI L680B
INY
CMP #$20
BEQ L67FF
DEY
L680B TYA
CLC
ADC $B0
STA $B0
L6811 STY $0C
LDA [$28],Y
BEQ L6866
BMI L685B
TAY
LDA [$94],Y
BMI L6866
BNE L6830
TYA
CMP #$26
BEQ L682C
LDA #$40
TSB $A6
TYA
BRA L685B
L682C PHX
PLX
BNE L6866
L6830 PHX
PLX
BEQ L6839
DEC
DEC
DEC
BEQ L6866
L6839 TYA
TXY
INY
INY
STA [$38],Y
LDY $0C
INY
INX
CPX #$0029
BMI L6811
BEQ L684D
DEX
BRA L6811
L684D PEA $000F
PHK
PER L6854+2
L6854 BRL L8D82
INC $0A
BRA L6811
L685B LDY $0C
INY
STY $0C
TXY
INY
INY
STA [$38],Y
INX
L6866 LDY $0C
LDA [$28],Y
CMP #$20
BNE L6876
L686E INY
LDA [$28],Y
CMP #$20
BEQ L686E
DEY
L6876 REP #$20
TYA
CLC
ADC $28
STA $28
TXY
LDA $00
INY
INY
STA [$38],Y
TXA
STA [$38]
LDA $0A
BNE L688E
CLC
RTS
L688E SEC
RTS
L6890 CLC
LDY #$0036
LDA [$3C],Y
BNE L689B
BRL L69DF
L689B BPL L68A0
BRL L69DF
L68A0 TAX
CMP #$0032
BCC L68AE
LDA #$0031
LDY #$0036
STA [$3C],Y
L68AE STA $1E
PEA $0000
PHX
PEA $0000
PEI $08
PHK
PHK
PER L6BDA
PHK
PER L68C2+2
L68C2 BRL L8F68
LDX $F4
PHK
PER L68CB+2
L68CB BRL LAF42
TSC
CLC
ADC #$000C
TCS
STZ $20
LDA #$0028
BIT $72
BEQ L68E0
BRL L69DF
L68E0 PER L68E3+2
L68E3 BRL L69E0
BCC L68EB
BRL L69C0
L68EB LDA $1E
STA $22
LDA #$059C
CLC
ADC $3C
STA $44
LDA $00
ADC $3E
STA $46
INC $20
LDX $20
INX
LDY #$000A
L6905 LDA [$E0],Y
BNE L690C
BRL L69C0
L690C TAY
DEX
BNE L6905
TYA
CLC
ADC #$0004
CLC
ADC $E0
TAY
LDA $E2
BCC L691E
INC
L691E PHA
PHY
PHK
PHK
PER L6C0C
LDX $F4
PHK
PER L692B+2
L692B BRL LAF42
TSC
CLC
ADC #$0008
TCS
L6934 PER L6937+2
L6937 BRL L69E0
BCC L693F
BRL L69C0
L693F LDA [$44]
XBA
AND #$00FF
CMP $20
BNE L69AA
LDY #$0004
LDA [$44],Y
AND #$00FF
PEA $0000
PHA
DEY
DEY
LDA [$44],Y
PEA $0000
PHA
LDA [$44]
AND #$00FF
STA [$44]
PEA $0000
PHA
PHK
PHK
STA $0C
LDA $08
DEC
BEQ L6976
PER L6C01
BRA L6979
L6976 PER L6BF1
L6979 LDX $F4
PHK
PER L697F+2
L697F BRL LAF42
TSC
CLC
ADC #$0010
TCS
LDA $0C
PHK
PER L6995
PEA $0039
PEI $EE
PEI $EC
L6995 RTL
PHX
PHA
PHK
PHK
PER L6C30
LDX $F4
PHK
PER L69A3+2
L69A3 BRL LAF42
PLA
PLA
PLA
PLA
L69AA LDA #$0005
CLC
ADC $44
STA $44
BCC L69B6
INC $46
L69B6 DEC $22
BEQ L69BD
BRL L6934
L69BD BRL L68E0
L69C0 PHK
PHK
PER L6BC4
LDX $F4
PHK
PER L69CB+2
L69CB BRL LAF42
PLA
PLA
PEA $0000
PEA $0000
_ReadChar
PLA
SEC
L69DF RTL
L69E0 STZ $04
BIT $F4
BVC L6A04
PEI $00
TDC
CLC
ADC #$0004
PHA
_GetPen
PEI $00
TDC
CLC
ADC #$0004
PHA
_LocalToGlobal
L6A04 LDA $04
CMP #$00BF
RTS
L6A0A LDY #$000A
LDA [$3C],Y
BNE L6A14
BRL L6ACA
L6A14 PHY
PHK
PER L6A19+2
L6A19 BRL L8F68
PLY
LDA [$3C],Y
TAX
LDA $00
STA [$3C],Y
DEY
DEY
LDA [$3C],Y
PHA
TXA
STA [$3C],Y
PHK
PER L6A30+2
L6A30 BRL LA472
LDY #$01C4
LDX #$01B4
L6A39 LDA [$3C],Y
PHY
TXY
STA [$3C],Y
PLY
STA [$3C],Y
INY
INY
INX
INX
CPY #$01D4
BCC L6A39
LDY #$004A
LDA [$3C],Y
LDY #$0046
STA [$3C],Y
LDY #$004E
LDA [$3C],Y
LDY #$004C
STA [$3C],Y
LDY #$002E
LDA [$3C],Y
LDY #$002C
STA [$3C],Y
LDY #$0028
LDA [$3C],Y
LDY #$0024
STA [$3C],Y
LDY #$002A
LDA [$3C],Y
LDY #$0026
STA [$3C],Y
LDA #$01EE
CLC
ADC $3C
LDX $3E
BCC L6A88
INX
L6A88 LDY #$0020
STA [$3C],Y
TXA
LDY #$0022
STA [$3C],Y
LDY #$003C
LDA [$3C],Y
LDY #$0038
STA [$3C],Y
LDA $00
LDY #$000A
STA [$3C],Y
LDX $70
LDA #$00FF
TRB $71
LDA $72
BIT #$0020
BNE L6ABA
TXA
BPL L6AC7
LDA #$00C0
BRA L6AC5
L6ABA TXA
BMI L6AC2
LDA #$0040
BRA L6AC5
L6AC2 LDA #$0080
L6AC5 TSB $71
L6AC7 BRL L3D28
L6ACA LDA $62
BEQ L6ADB
INC
BEQ L6ADB
PEA $0071
PHK
PER L6AD8+2
L6AD8 BRL L8D82
L6ADB LDA #$2000
BIT $68
BEQ L6AEC
PEA $002B
PHK
PER L6AE9+2
L6AE9 BRL L8D82
L6AEC LDY #$0086
LDA [$3C],Y
DEC
BNE L6AFA
PER L6AF7+2
L6AF7 BRL L6B82
L6AFA LDY #$01A4
LDA [$3C],Y
BEQ L6B07
PER L6B04+2
L6B04 BRL L72B7
L6B07 PHK
PER L6B12
PEA $0030
PEI $EE
PEI $EC
L6B12 RTL
STZ $20
DEC $20
PHK
PER L6B22
PEA $0027
PEI $EE
PEI $EC
L6B22 RTL
LDX $00
PHK
PER L6B30
PEA $0009
PEI $EE
PEI $EC
L6B30 RTL
LDA $00
INC
INC
STA [$AC]
CLC
LDY #$003E
ADC [$3C],Y
LDY #$003E
STA [$3C],Y
PHK
PER L6B4D
PEA $0024
PEI $EE
PEI $EC
L6B4D RTL
LDY #$0008
LDA [$3C],Y
PHA
LDA $00
LDY #$0008
STA [$3C],Y
PHK
PER L6B5F+2
L6B5F BRL LA472
STZ $08
INC $08
PHK
PER L6B6A+2
L6B6A BRL L6890
LDY #$001A
LDA [$3C],Y
ORA #$4000
BIT $72
BVS L6B7C
AND #$BFFF
L6B7C LDY #$001A
STA [$3C],Y
RTL
L6B82 STZ $20
PHK
PER L6B8F
PEA $0027
PEI $EE
PEI $EC
L6B8F RTL
PER L6B93+2
L6B93 BRL L65A4
LDY #$0036
LDA [$3C],Y
TAX
PEI $72
LDA #$0020
TXY
BEQ L6BA6
TRB $72
L6BA6 BIT $72
BEQ L6BB1
PHK
PER L6BAE+2
L6BAE BRL L08D6
L6BB1 LDX #$FFFF
PHK
PER L6BBF
PEA $0012
PEI $EE
PEI $EC
L6BBF RTL
PLA
STA $72
RTS
L6BC4 ASC 'Type any key to exit.'00
L6BDA ASC 'Pass %d: %d error(s).'0D00
L6BF1 ASC 'E%d, L%d, C%d: '00
L6C01 ASC 'E%d, L%d: '00
L6C0C ASC 'File %s:'0D00
L6C16 ASC ' Program Unit: %s'0D0D00
L6C30 ASC '%s.'0D00
L6C35 PHK
PER L6C39+2
L6C39 BRL L8DCE
LDY #$01B8
LDA [$3C],Y
STA $D6
INY
INY
LDA [$3C],Y
STA $D8
LDA #$03F6
CLC
ADC $3C
STA $30
LDA $00
ADC $3E
STA $32
LDY $30
STY $28
LDY $32
STY $2A
LDA $00
STA [$30]
STA [$6E]
LDA #$0040
TRB $A7
LDY #$004C
LDA [$3C],Y
BNE L6C74
BRL L6D27
L6C74 LDX $6E
LDA #$1298
CLC
ADC $3C
STA $6E
BIT $70
BMI L6C92
BVS L6C87
BRL L6D1A
L6C87 LDA #$0040
TRB $71
ASL
TSB $71
BRL L6D1A
L6C92 TXA
SEC
SBC $6E
LDY #$014C
STA [$3C],Y
TAY
BEQ L6D11
BIT $92
BMI L6D11
TAX
LDY #$002C
LDA [$3C],Y
BPL L6CB1
LDA [$6E]
CMP #$000D
BEQ L6D11
L6CB1 PEA $0000
PHX
LDA $3E
AND #$00FF
PHA
PEI $6E
PER L6CC0+2
L6CC0 BRL L733B
PHA
PER L6CC7+2
L6CC7 BRL L7186
LDA #$0020
AND $71
BEQ L6D01
TRB $71
LDY #$01A4
LDA [$3C],Y
BEQ L6CF3
LDA #$0006
PHK
PER L6CE1+2
L6CE1 BRL L047B
PER L6CE7+2
L6CE7 BRL L720F
PHK
PER L6CEE+2
L6CEE BRL L08D6
BRA L6D11
L6CF3 PHK
PER L6CF7+2
L6CF7 BRL L08D6
PLA
PLA
PLA
PLA
PLA
BRA L6D11
L6D01 LDX #$0006
PHK
PER L6D08+2
L6D08 BRL L047B
PER L6D0E+2
L6D0E BRL L720F
L6D11 BIT $70
BVC L6D1A
LDA #$00C0
TRB $71
L6D1A LDA #$0028
BIT $72
BEQ L6D27
PER L6D24+2
L6D24 BRL L720F
L6D27 LDY #$002C
LDA [$3C],Y
BPL L6D30
SEC
RTL
L6D30 LDA $00
STA [$6E]
LDY #$004C
LDA [$3C],Y
CLC
LDY #$0046
ADC [$3C],Y
LDY #$0046
STA [$3C],Y
LDA $00
LDY #$004C
STA [$3C],Y
LDA $B2
STA $10
LDY #$0024
LDA [$3C],Y
STA $34
LDY #$0026
LDA [$3C],Y
STA $36
L6D5D LDA [$34]
INC $34
AND #$00FF
BNE L6D78
PER L6D69+2
L6D69 BRL L7359
BCC L6D5D
LDA #$000D
STA [$6E]
INC $6E
BRL L7114
L6D78 STA [$6E]
INC $6E
INC $B2
CMP #$0009
BNE L6D88
LDA #$0020
BRA L6D90
L6D88 CMP #$000A
BNE L6D90
LDA #$000D
L6D90 INC $D6
BNE L6D96
INC $D8
L6D96 CMP #$0020
BEQ L6D5D
TAY
LDA $B2
STA $B0
LDX $88
STZ $88
LDA #$0080
TSB $88
LDA $10
BEQ L6DB5
TXA
LSR
BCC L6DC4
STZ $10
BRA L6DC4
L6DB5 CPY #$0030
BCC L6DC4
CPY #$003A
BCS L6DC4
LDA #$8001
TSB $88
L6DC4 TYA
BRA L6E1C
L6DC7 CMP #$0061
BCC L6DD4
CMP #$007B
BCS L6DD4
AND #$FFDF
L6DD4 STA [$30]
LDY $B2
CPY #$0100
BCC L6DE1
DEC $6E
BRA L6DE3
L6DE1 INC $30
L6DE3 LDA [$34]
INC $34
AND #$00FF
BNE L6DFE
PER L6DEF+2
L6DEF BRL L7359
BCC L6DE3
LDA #$000D
STA [$6E]
INC $6E
BRL L7111
L6DFE STA [$6E]
INC $6E
INC $B2
CMP #$0009
BNE L6E0E
LDA #$0020
BRA L6E16
L6E0E CMP #$000A
BNE L6E16
LDA #$000D
L6E16 INC $D6
BNE L6E1C
INC $D8
L6E1C CMP #$000D
BNE L6E24
BRL L7114
L6E24 STA $12
TAY
CMP #$003A
BNE L6E2F
BRL L6EF6
L6E2F BIT $88
BPL L6E43
CMP #$0030
BCS L6E3B
BRL L6EF2
L6E3B CMP #$003A
BCC L6E43
BRL L6EF2
L6E43 BIT $87
BVC L6E60
TAY
LDA $88
LSR
LSR
TYA
BCS L6DD4
CPY #$0022
BEQ L6E57
BRL L6DC7
L6E57 LDA #$0002
TSB $88
TYA
BRL L6DD4
L6E60 LDA [$94],Y
XBA
XBA
BMI L6E70
LDA $12
CMP #$0040
BEQ L6E77
BRL L6DC7
L6E70 ORA #$FF00
INC
INC
BPL L6E8F
L6E77 PEI $B0
LDA $B2
STA $B0
PEA $0002
PHK
PER L6E84+2
L6E84 BRL L8D82
PLA
STA $B0
LDA #$0020
STA $12
L6E8F LDA $12
BIT $87
BPL L6EB4
LDA #$0080
TRB $88
PER L6EA4
PLX
PER L6EA4+3
BRL L465D
L6EA4 ASC 'REM'00
BCS L6EC8
LDA #$2027 ; ' ''
STA [$28]
LDA #$0040
TSB $88
L6EB4 LDA $12
CMP #$0022
BEQ L6F0E
CMP #$0027
BEQ L6EDE
BRL L6DC7
L6EC3 LDA $12
BRL L6DC7
L6EC8 PER L6ED2
PLX
PER L6ED2+4
BRL L457E
L6ED2 ASC 'DATA'00
BCS L6EDC
BRL L7094
L6EDC BRA L6EB4
L6EDE LDA [$28]
BNE L6EE9
LDA #$0040
TSB $88
BRA L6EC3
L6EE9 DEC $34
DEC $B2
DEC $6E
BRL L7114
L6EF2 DEC $10
BRA L6EE9
L6EF6 BIT $87
BVC L6EFD
BRL L6DC7
L6EFD BMI L6F02
BRL L7114
L6F02 LDY $10
BEQ L6F09
BRL L7114
L6F09 DEC $10
BRL L7114
L6F0E LDX $B2
STX $14
BIT $92
BMI L6F1A
BIT $87
BVC L6F85
L6F1A STA [$30]
LDY $B2
CPY #$0100
BCC L6F27
DEC $6E
BRA L6F29
L6F27 INC $30
L6F29 LDA [$34]
INC $34
AND #$00FF
BNE L6F43
PER L6F35+2
L6F35 BRL L7359
BCC L6F29
LDA #$000D
STA [$6E]
INC $6E
BRA L6F6E
L6F43 STA [$6E]
INC $6E
INC $B2
CMP #$0009
BNE L6F53
LDA #$0020
BRA L6F5B
L6F53 CMP #$000A
BNE L6F5B
LDA #$000D
L6F5B INC $D6
BNE L6F61
INC $D8
L6F61 CMP #$000D
BEQ L6F6E
CMP #$0022
BNE L6F1A
BRL L6DC7
L6F6E PHA
LDA #$0022
STA [$30]
LDY $B2
CPY #$0100
BCC L6F7F
DEC $6E
BRA L6F81
L6F7F INC $30
L6F81 PLA
BRL L7111
L6F85 LDX #$0002
PHK
PER L6F93
PEA $0009
PEI $EE
PEI $EC
L6F93 RTL
LDA #$0BDE
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
LDY #$0032
LDA [$3C],Y
INC
ASL
TAY
TYA
CLC
ADC $2C
STA $2C
LDA $00
ADC $2E
STA $2E
LDY #$0034
LDA [$3C],Y
STA [$2C]
INC $2C
INC $2C
LDA #$169C
CLC
ADC $3C
STA $98
LDA $00
ADC $3E
STA $9A
STZ $08
BRA L6FEB
L6FD3 STA [$98]
LDA #$2020
STA [$30]
LDY $B2
CPY #$0100
BCC L6FE5
DEC $6E
BRA L6FEB
L6FE5 INC $30
INC $98
INC $08
L6FEB LDA [$34]
INC $34
AND #$00FF
BNE L7005
PER L6FF7+2
L6FF7 BRL L7359
BCC L6FEB
LDA #$000D
STA [$6E]
INC $6E
BRA L7031
L7005 STA [$6E]
INC $6E
INC $B2
CMP #$0009
BNE L7015
LDA #$0020
BRA L701D
L7015 CMP #$000A
BNE L701D
LDA #$000D
L701D INC $D6
BNE L7023
INC $D8
L7023 CMP #$000D
BEQ L7031
CMP #$0022
BNE L6FD3
LDX $00
BRA L7032
L7031 TAX
L7032 LDA #$0071
STA [$30]
INC $30
LDY #$0032
LDA [$3C],Y
INC
LDY #$0032
STA [$3C],Y
ORA #$0080
STA [$30]
INC $30
LDY #$0034
LDA [$3C],Y
CLC
ADC $08
LDY #$0034
STA [$3C],Y
STA [$2C]
PHX
PEI $98
LDA #$169A
CLC
ADC $3C
STA $98
PLA
SEC
SBC $98
STA [$24]
INC $24
INC $24
TAX
DEC
DEC
STA [$98]
PEA $0000
PHX
PEI $9A
PEI $98
LDY #$0002
LDA [$3C],Y
PHA
LDX #$0008
PHK
PER L7089+2
L7089 BRL L047B
PLA
BNE L7092
BRL L6DE3
L7092 BRA L7111
L7094 LDA $12
STA [$30]
INC $30
STZ $04
L709C LDA [$34]
INC $34
AND #$00FF
BNE L70B6
PER L70A8+2
L70A8 BRL L7359
BCC L709C
LDA #$000D
STA [$6E]
INC $6E
BRA L7111
L70B6 STA [$6E]
INC $6E
INC $B2
CMP #$0009
BNE L70C6
LDA #$0020
BRA L70CE
L70C6 CMP #$000A
BNE L70CE
LDA #$000D
L70CE INC $D6
BNE L70D4
INC $D8
L70D4 STA [$30]
LDY $B2
CPY #$0100
BCC L70E1
DEC $6E
BRA L70E3
L70E1 INC $30
L70E3 TAX
LDA $04
LSR
TXA
BCS L70EF
CMP #$003A
BEQ L70FB
L70EF CMP #$0022
BNE L70F6
INC $04
L70F6 CMP #$000D
BNE L709C
L70FB DEC $30
PHA
LSR $04
BCC L7109
LDA #$0022
STA [$30]
INC $30
L7109 LDA #$0000
STA [$30]
PLA
BRA L7114
L7111 LDA #$000D
L7114 LDY $B2
CPY #$0100
BCC L7125
PEA $0017
PHK
PER L7122+2
L7122 BRL L8D82
L7125 CMP #$000D
BEQ L7136
CMP #$003A
BNE L714A
LDA #$0040
TSB $A7
BRA L714A
L7136 LDY #$004C
LDA [$3C],Y
INC
LDY #$004C
STA [$3C],Y
STZ $B2
LDA $00
LDY #$014E
STA [$3C],Y
L714A LDY #$01B8
LDA $D6
STA [$3C],Y
INY
INY
LDA $D8
STA [$3C],Y
LDY #$0024
LDA $34
STA [$3C],Y
LDA $36
INY
INY
STA [$3C],Y
LDA [$28]
BNE L716B
BRL L6C35
L716B DEC $30
LDA [$30]
AND #$00FF
CMP #$0020
BEQ L716B
INC $30
LDA $00
STA [$30]
LDA [$28]
BNE L7184
BRL L6C35
L7184 CLC
RTL
L7186 LDY #$000A
LDA [$3C],Y
BNE L7194
PHK
PHK
PER L71D3
BRA L7199
L7194 PHK
PHK
PER L71D6
L7199 LDY #$014E
LDA [$3C],Y
BNE L71A5
LDY #$0046
LDA [$3C],Y
L71A5 PEA $0000
PHA
PHK
PHK
PER L71D9
LDY #$016A
LDA [$3C],Y
CMP #$003C
BCC L71BF
PHK
PER L71BC+2
L71BC BRL L08D6
L71BF LDY #$000C
LDA [$3C],Y
TAX
PHK
PER L71C9+2
L71C9 BRL LAF42
TSC
CLC
ADC #$000C
TCS
RTS
L71D3 ASC ' '00
L71D6 ASC '+ '00
L71D9 ASC '%5d%s'00
L71DF LDA #$016C
CLC
ADC $3C
LDY $3E
BCC L71EA
INY
L71EA PHY
PHA
PHK
PHK
PER L6C16
LDY #$000C
LDA [$3C],Y
TAX
PHK
PER L71FB+2
L71FB BRL LAF42
LDY #$016A
LDA [$3C],Y
INC
INC
LDY #$016A
STA [$3C],Y
PLA
PLA
PLA
PLA
RTS
L720F LDY #$004C
LDA [$3C],Y
BNE L7217
L7216 RTS
L7217 LDY #$01A4
LDA [$3C],Y
BEQ L7216
TSC
STA $DC
LDY #$016A
LDA [$3C],Y
CMP #$0037
BCC L7234
PHK
PER L722F+2
L722F BRL L08D6
BRA L723A
L7234 PER L7237+2
L7237 BRL L0865
L723A PER L723D+2
L723D BRL L7186
LDY #$014C
LDA [$3C],Y
PEA $0000
PHA
PEI $3E
PEI $6E
PHK
PHK
PER L732D
PHK
PER L7256+2
L7256 BRL L0845
LDA $DC
TCS
PHK
PHK
PER L7330
LDY #$000C
LDA [$3C],Y
TAX
PHK
PER L726B+2
L726B BRL LAF42
PLA
PLA
LDA #$01A4
CLC
ADC $3C
STA $DC
LDA $00
ADC $3E
STA $DE
LDA [$DC]
TAX
DEX
LDA #$FFFF
PHA
L7286 PHX
INC $DC
INC $DC
LDA [$DC]
XBA
AND #$00FF
TAX
SEC
SBC $03,S
PEA $0000
PHA
TXA
STA $07,S
PHK
PHK
PER L7337
LDY #$000C
LDA [$3C],Y
TAX
PHK
PER L72AB+2
L72AB BRL LAF42
PLA
PLA
PLA
PLA
PLX
DEX
BPL L7286
PLA
L72B7 PER L72BA+2
L72BA BRL L0865
LDA #$01A4
CLC
ADC $3C
STA $DC
LDA $00
ADC $3E
STA $DE
LDA [$DC]
TAX
DEX
L72CF PHX
INC $DC
INC $DC
LDA [$DC]
AND #$00FF
PHK
PER L72E4
PEA $0039
PEI $EE
PEI $EC
L72E4 RTL
PHX
PHA
LDA [$DC]
TAX
XBA
AND #$00FF
PEA $0000
PHA
TXA
AND #$00FF
PEA $0000
PHA
PHK
PHK
PER L731E
PHK
PER L7303+2
L7303 BRL L0845
TSC
CLC
ADC #$0010
TCS
PLX
DEX
BPL L72CF
LDA $00
LDY #$01A4
STA [$3C],Y
PER L731A+2
L731A BRL L0865
RTS
L731E ASC 'E%d, c %d: %s'0D00
L732D ASC '%s'00
L7330 ASC '*****>'00
L7337 ASC '%c^'00
L733B LDY #$016A
LDA [$3C],Y
TAX
INC
LDY #$016A
STA [$3C],Y
CPX #$003C
BCC L7353
PHK
PER L7350+2
L7350 BRL L08D6
L7353 LDY #$000C
LDA [$3C],Y
RTS
L7359 LDY #$0020
LDA [$3C],Y
LDY #$0024
STA [$3C],Y
LDY #$0022
LDA [$3C],Y
LDY #$0026
STA [$3C],Y
LDY #$002C
LDA [$3C],Y
BMI L73C6
PEA $0000
PEA $0100
LDY #$0022
LDA [$3C],Y
PHA
DEY
DEY
LDA [$3C],Y
PHA
LDY #$0008
LDA [$3C],Y
PHA
PHK
PER L738F+2
L738F BRL LA585
BCC L7396
LDA $00
L7396 DEC
LDY #$002C
STA [$3C],Y
PHA
PLA
BMI L73C6
INC
CLC
LDY #$0020
ADC [$3C],Y
STA $34
LDA $00
LDY #$0022
ADC [$3C],Y
STA $36
LDA $00
STA [$34]
LDY #$0024
LDA [$3C],Y
STA $34
LDY #$0026
LDA [$3C],Y
STA $36
CLC
RTS
L73C6 SEC
RTS
L73C8 PER L73CB+2
L73CB BRL L658A
BIT $A4
BPL L73DC
LDA #$0040
TSB $8F
TSB $93
ASL
TRB $A5
L73DC LDA #$2000
AND $68
BNE L73F9
LDY #$0086
LDA [$3C],Y
DEC
BEQ L73F9
BIT $90
BMI L73F9
PEA $0029
PHK
PER L73F6+2
L73F6 BRL L8D82
L73F9 TSC
STA $1C
LDA #$04F8
CLC
ADC $3C
STA $30
LDA $00
ADC $3E
STA $32
LDY $30
STY $38
LDY $32
STY $3A
LDA [$30]
TAX
LDA #$07AE
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
LDA $B0
BIT $8E
BMI L7430
SEC
SBC [$30]
INC $30
INC $30
L7430 STA $C6
CLC
ADC #$0008
XBA
AND #$FF00
ORA $20
STA [$2C]
INC $2C
INC $2C
LDY #$0BB2
LDA [$3C],Y
INC
LDY #$0BB2
STA [$3C],Y
ORA #$3D00
STA [$2C]
INC $2C
INC $2C
LDA $2C
STA $6A
LDA $00
STZ $1A
TAY
STZ $12
SEP #$20
L7463 DEX
BMI L746F
LDA [$30],Y
BEQ L746F
STA [$2C],Y
INY
BRA L7463
L746F LDX $00
BIT $88
BVC L748F
DEY
LDA [$2C],Y
CMP #$20
BNE L7483
LDA #$28
STA [$2C],Y
INY
BRA L748F
L7483 INY
LDA #$28
STA [$2C],Y
LDA [$28]
CMP #$20
BEQ L74F2
INY
L748F LDA [$28]
BNE L7496
BRL L753A
L7496 CMP #$7E
BNE L74AE
PHX
LDX $12
BEQ L74A2
STA [$2C],Y
INY
L74A2 LDX $28
INX
STX $12
PLX
LDA #$2C
STA [$2C],Y
BRA L74C9
L74AE STA [$2C],Y
CMP #$2C
BNE L74C9
PHX
LDX $12
BEQ L74C6
LDA #$7E
STA [$2C],Y
LDA #$2C
INY
STA [$2C],Y
STZ $12
STZ $13
L74C6 PLX
BRA L74F2
L74C9 CMP #$28
BNE L74D6
PER L74D0+2
L74D0 BRL L7577
INX
BRA L74F2
L74D6 CMP #$29
BNE L7524
DEX
BEQ L74EC
BPL L74F2
PEA $0092
PHK
PER L74E6+2
L74E6 BRL L8D82
BRL L75C5
L74EC BIT $89
BPL L74F2
BRA L7519
L74F2 REP #$20
INC $28
INY
INC $B0
SEP #$20
BRA L748F
L74FD LDA [$28]
BEQ L753A
STA [$2C],Y
CMP #$20
BEQ L7519
CMP #$3D
BEQ L7524
PEA $0046
PHK
PER L7512+2
L7512 BRL L8D82
LDA #$3D
BRA L7524
L7519 REP #$20
INC $28
INY
INC $B0
SEP #$20
BRA L74FD
L7524 CMP #$3D
BNE L74F2
PHX
PLX
BNE L74F2
LDA #$80
TRB $89
BIT $8B
BVC L74F2
LDA #$28
STA [$2C],Y
BRA L74F2
L753A DEY
BEQ L7543
LDA [$2C],Y
CMP #$20
BEQ L753A
L7543 INY
PHX
PLX
BEQ L756C
BMI L755B
PER L754D+1
L754D BRA L75A9
PEA $0015
PHK
PER L7556+2
L7556 BRL L8D82
BRA L75C5
L755B PER L755E+1
L755E BRA L75A9
PEA $0092
PHK
PER L7567+2
L7567 BRL L8D82
BRA L75C5
L756C LDX $12
BEQ L75CC
LDA #$7E
STA [$2C],Y
INY
BRA L75CC
L7577 PHX
LDX $12
BEQ L758C
PEI $28
STX $28
PER L7583+1
L7583 BRA L758E
PLX
STX $28
STZ $12
STZ $13
L758C PLX
RTS
L758E STA $10
LDA #$7E
STA [$2C],Y
L7594 LDA [$28]
CMP $10
BEQ L75A5
INY
STA [$2C],Y
INC $28
BNE L7594
INC $29
BRA L7594
L75A5 INY
STA [$2C],Y
RTS
L75A9 PHP
PHY
BRA L75B2
L75AD PHP
PHY
LDY #$0000
L75B2 REP #$20
PHA
TYA
CLC
ADC $2C
SEC
SBC $6A
CLC
ADC $C6
STA $B0
PLA
PLY
PLP
RTS
L75C5 REP #$20
LDA $1C
TCS
SEC
RTL
MX %10
L75CC BIT $89
BPL L75E1
PER L75D3+1
L75D3 BRA L75A9
PEA $0046
PHK
PER L75DC+2
L75DC BRL L8D82
BRA L75C5
L75E1 BIT $8B
BVS L75E9
BIT $88
BVC L75EE
L75E9 LDA #$29
STA [$2C],Y
INY
L75EE LDA $00
STA [$2C],Y
L75F2 DEY
BMI L75FB
LDA [$2C],Y
CMP #$20
BEQ L75F2
L75FB INY
REP #$20
LDA $00
STA [$2C],Y
LDA $B0
STA $10
LDA #$07AE
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
LDA #$09B0
CLC
ADC $3C
STA $30
LDA $00
ADC $3E
STA $32
LDA #$04FA
CLC
ADC $3C
STA $44
LDA $00
ADC $3E
STA $46
STZ $0C
LDY $2C
STY $14
LDY $2E
STY $16
BIT $88
BVC L7643
LDA #$0040
TSB $88
L7643 LDA #$0080
TRB $A6
LDA [$2C]
TAX
XBA
SEC
SBC #$0008
AND #$00FF
STA $B0
STA $C6
INC $2C
INC $2C
LDA [$2C]
BPL L7669
AND #$7FFF
STA [$2C]
LDA #$0080
TSB $A7
L7669 INC $2C
INC $2C
LDY $2C
STY $6A
STZ $18
LDA #$00C0
TRB $8A
TXA
XBA
ASL
BCC L7686
BMI L76C7
LDA #$0080
TSB $8A
BRA L76C7
L7686 BPL L76C7
TXA
AND #$00F0
CMP #$0070
BNE L76C7
LDA #$0040
TSB $8A
BIT $8A
BVC L76A8
LDA $B8
BNE L76A8
LDA #$0003
STA $B8
LDA #$0080
TSB $8B
L76A8 LDA [$2C]
XBA
XBA
BMI L76C1
PER L76B1+2
L76B1 BRL L75AD
PEA $0045
PHK
PER L76BB+2
L76BB BRL L8D82
BRL L75C5
L76C1 PER L76C4+2
L76C4 BRL L8854
L76C7 TXA
AND #$00C0
BNE L76D9
BIT $87
BVS L76D4
BRL L777D
L76D4 LDA #$0040
TRB $88
L76D9 INC $18
LDA [$2C]
CMP #$A163
BCC L76FA
CMP #$A863
BCC L76F0
BNE L76FA
LDA #$0080
TSB $A7
BRA L76FA
L76F0 CMP #$A264
BCS L76FA
LDA #$0080
TSB $A6
L76FA BIT $88
BVC L7745
LDY #$04F8
LDA [$3C],Y
STA $12
TAY
PER L7709+2
L7709 BRL L8A2B
LDY $12
PER L7711+2
L7711 BRL L7FEE
BCC L7719
BRL L75C5
L7719 BIT $8F
BVC L772E
LDA #$2928
STA [$2C],Y
INY
INY
LDA $00
STA [$2C],Y
INY
INY
LDA $00
STA [$2C],Y
L772E BIT $88
BVC L7745
PER L7735+2
L7735 BRL L75AD
PEA $004C
PHK
PER L773F+2
L773F BRL L8D82
BRL L75C5
L7745 LDA [$2C]
AND #$00FF
BNE L775F
PER L774F+2
L774F BRL L75AD
PEA $0092
PHK
PER L7759+2
L7759 BRL L8D82
BRL L75C5
L775F CMP #$0001
BNE L776C
LDA #$001F
CLC
ADC [$2C]
STA [$2C]
L776C CMP #$0028
BEQ L7777
INC $2C
INC $B0
BRA L7745
L7777 INC $2C
INC $B0
STA $0E
L777D STZ $12
STZ $20
L7781 LDA [$2C]
AND #$00FF
CMP #$0020
BNE L7791
INC $2C
INC $B0
BRA L7781
L7791 SEP #$20
LDY $00
LDA #$13
STA $0E
L7799 LDA $00
XBA
LDA [$2C],Y
BNE L77A3
BRL L7906
L77A3 PHY
BMI L7802
TAY
LDA [$94],Y
BPL L77AE
BRL L7872
L77AE BNE L781E
LDX $12
BNE L77DD
TYA
CMP #$26
BEQ L782A
BIT $92
BPL L77C9
LDA #$80
TRB $92
PLY
LDA #$20
STA [$2C],Y
INY
BRA L7799
L77C9 PLY
PER L77CD+2
L77CD BRL L75A9
PEA $0002
PHK
PER L77D7+2
L77D7 BRL L8D82
BRL L75C5
L77DD TYA
CMP #$26
BNE L77E7
LDY $00
BRL L7872
L77E7 PER L77EA+2
L77EA BRL L7FD4
BCS L7802
PER L77F2+2
L77F2 BRL L75A9
PEA $0047
PHK
PER L77FC+2
L77FC BRL L8D82
BRL L75C5
L7802 LDY $12
STA [$44],Y
INY
LDA $00
STA [$44],Y
STY $12
PLY
INY
PHY
LDA $00
XBA
LDA [$2C],Y
TAY
LDA [$94],Y
BMI L7872
LDY $00
BRA L7872
L781E LDX $12
BNE L7853
DEC
BEQ L782A
TYA
CMP #$2E
BNE L7854
L782A PLY
LDX $12
PER L7830+2
L7830 BRL L8C28
STX $12
BVS L783A
BRL L7799
L783A LDX $18
BEQ L784E
PHA
DEY
LDA [$2C],Y
CMP #$20
BEQ L784A
INY
PLA
BRA L784E
L784A PLA
BRL L7799
L784E PHY
LDY $00
BRA L7872
L7853 TYA
L7854 PLY
INY
PHY
LDY $12
CPY #$0029
BMI L7865
BIT $8F
BMI L7865
LDY #$0029
L7865 STA [$44],Y
INY
LDA $00
STA [$44],Y
STY $12
PLY
BRL L7799
L7872 LDA #$C0
TRB $8C
TYA
PLY
CMP #$20
BNE L7881
PER L787F+1
L787F BRA L78B3
L7881 CMP #$01
BNE L7887
LDA #$20
L7887 CMP #$2B
BNE L789D
PER L788E+2
L788E BRL L8A96
BCC L7896
BRL L7A9F
L7896 LDA #$70
L7898 STA [$2C],Y
PHY
BRA L7854
L789D CMP #$2D
BEQ L78A4
BRL L7A9F
L78A4 PER L78A7+2
L78A7 BRL L8A96
BCC L78AF
BRL L7A9F
L78AF LDA #$6D
BRA L7898
L78B3 PHA
PHY
XBA
LDA $00
XBA
L78B9 CMP #$20
BNE L78C6
INY
LDA [$2C],Y
BEQ L7903
BPL L78B9
BRA L7903
L78C6 TYX
TAY
LDA [$94],Y
BPL L78D4
TYA
PLY
PHX
PLY
PLA
LDA [$2C],Y
RTS
L78D4 BNE L7903
PHX
TYA
LDY $12
STA [$44],Y
LDA $00
INY
STA [$44],Y
REP #$20
PHK
PER L78EE
PEA $000F
PEI $EE
PEI $EC
L78EE RTL
PLX
LDA $00
SEP #$20
BCS L78FF
TXY
LDA #$20
STA [$2C],Y
INC $12
BRA L78B9
L78FF LDY $12
STA [$44],Y
L7903 PLY
PLA
RTS
L7906 STZ $20
LDA $12
BEQ L7928
LDA #$C0
TRB $8C
LDA #$40
TRB $8D
PHY
PER L7918+2
L7918 BRL L7FEE
PLY
BCC L7921
BRL L75C5
L7921 BIT $8C
BPL L7928
BRL L7D09
L7928 BIT $A6
BPL L793C
PER L792F+2
L792F BRL L75AD
PEA $008D
PHK
PER L7939+2
L7939 BRL L8D82
L793C LDA #$80
TRB $8B
LSR
TRB $8F
INY
LDA [$2C],Y
BEQ L794B
BRL L7A3B
L794B REP #$20
DEY
LDA $1A
BNE L7999
LDA $0C
BEQ L7974
LDA #$09B0
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
LDA #$07AE
CLC
ADC $3C
STA $30
LDA $00
ADC $3E
STA $32
BRA L7990
L7974 LDA #$07AE
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
LDA #$09B0
CLC
ADC $3C
STA $30
LDA $00
ADC $3E
STA $32
L7990 LDA $10
STA $B0
LDA $1C
TCS
CLC
RTL
L7999 LDA #$0100
STA [$30]
INC $30
INC $30
LDA [$14]
STA [$30]
INC $14
INC $14
INC $30
INC $30
LDA [$14]
STA [$30]
INC
INC
INC $30
INC $30
INC $14
INC $14
LDY $00
SEP #$20
L79C0 LDA [$14],Y
STA [$30],Y
BEQ L79C9
L79C6 INY
BRA L79C0
L79C9 INY
LDA [$14],Y
BEQ L79D9
LDA #$01
STA [$30],Y
INY
LDA [$14],Y
STA [$30],Y
BRA L79C6
L79D9 DEY
REP #$20
LDA $00
STA [$30],Y
STA $1A
LDA $0C
BNE L7A10
INC
STA $0C
LDA #$09B0
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
LDA #$07AE
CLC
ADC $3C
STA $30
LDA $00
ADC $3E
STA $32
LDY $2C
STY $14
LDY $2E
STY $16
BRL L7643
L7A10 LDA $00
STA $0C
LDA #$07AE
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
LDA #$09B0
CLC
ADC $3C
STA $30
LDA $00
ADC $3E
STA $32
LDY $2C
STY $14
LDY $2E
STY $16
BRL L7643
L7A3B DEC
BNE L7A4D
INY
L7A3F INY
LDA [$2C],Y
BNE L7A3F
INY
LDA [$2C],Y
BNE L7A3B
DEY
BRL L7928
MX %10
L7A4D LDA #$01
STA [$2C],Y
INY
REP #$20
TYA
CLC
ADC $2C
STA $2C
LDA $00
ADC $2E
STA $2E
BRL L7643
MX %10
L7A63 PHA
PLA
BEQ L7A6A
STA [$2C],Y
INY
L7A6A DEY
CMP #$2C
BNE L7A75
BIT $8A
BVC L7A75
INC $B6
L7A75 INY
LDA [$2C],Y
CMP #$20
BEQ L7A75
REP #$20
STZ $20
TYA
CLC
ADC $B0
STA $B0
TYA
CLC
ADC $2C
STA $2C
LDA $00
ADC $2E
STA $2E
STZ $12
LDY $00
SEP #$20
LDA #$40
TRB $8C
BRL L7799
L7A9F CMP #$7E
BNE L7AA9
PHA
LDA #$40
TSB $8C
PLA
L7AA9 LDX $18
BNE L7AB0
BRL L7BCD
L7AB0 LDX $00
L7AB2 CMP #$20
BNE L7ABE
INY
TYX
LDA [$2C],Y
BNE L7AB2
BRA L7B1A
L7ABE BIT $8D
BVC L7AC6
CMP #$3B
BEQ L7ACE
L7AC6 PHA
PLA
BEQ L7ACE
CMP #$2C
BNE L7AE5
L7ACE STZ $20
PER L7AD3+2
L7AD3 BRL L7FEE
BCC L7ADB
BRL L75C5
L7ADB BIT $8C
BPL L7AE2
BRL L7D09
L7AE2 BRL L7A63
L7AE5 CMP #$29
BNE L7B2D
L7AE9 INY
LDA [$2C],Y
BEQ L7B01
PER L7AF1+2
L7AF1 BRL L75A9
PEA $005E
PHK
PER L7AFB+2
L7AFB BRL L8D82
BRL L75C5
L7B01 DEY
STZ $20
PER L7B07+2
L7B07 BRL L7FEE
BCC L7B0F
BRL L75C5
L7B0F INY
BIT $8C
BPL L7B17
BRL L7D09
L7B17 BRL L7928
L7B1A PER L7B1D+2
L7B1D BRL L75AD
PEA $0045
PHK
PER L7B27+2
L7B27 BRL L8D82
BRL L75C5
L7B2D PHX
PLX
BEQ L7B45
PER L7B34+2
L7B34 BRL L7FD4
BCS L7B45
CPX #$0005
BEQ L7B45
LDA #$2C
DEY
STA [$2C],Y
BRA L7ACE
L7B45 CMP #$28
BEQ L7B4F
LDX #$0004
BRL L7D0B
L7B4F BIT $91
BPL L7B92
L7B53 INY
LDA [$2C],Y
CMP #$20
BEQ L7B53
CMP #$29
BEQ L7B79
CMP #$30
BCC L7B66
CMP #$3A
BCC L7B53
L7B66 PER L7B69+2
L7B69 BRL L75A9
PEA $0079
PHK
PER L7B73+2
L7B73 BRL L8D82
BRL L75C5
L7B79 LDA #$40
TSB $8C
L7B7D INY
LDA [$2C],Y
BEQ L7B66
CMP #$2C
BNE L7B89
BRL L7ACE
L7B89 CMP #$29
BNE L7B90
BRL L7AE9
L7B90 BRA L7B7D
L7B92 LDX #$0004
LDA $12
BEQ L7BB8
CMP #$02
BEQ L7BA4
CMP #$04
BEQ L7BA4
BRL L7D0B
L7BA4 PER L7BA7+2
L7BA7 BRL L7F83
LDX #$0004
BCC L7BB2
BRL L7D0B
L7BB2 LDX #$00C5
BRL L7D0B
L7BB8 PER L7BBB+2
L7BBB BRL L8A2B
LDA #$02
CMP $20
BEQ L7BC7
BRL L7D0B
L7BC7 LDX #$00C1
BRL L7D0B
L7BCD LDX $12
CPX #$0002
BMI L7BE7
CPX #$0004
BPL L7BE7
PER L7BDC+2
L7BDC BRL L8ABE
BCS L7BE7
DEY
LDA [$2C],Y
BRL L7A63
L7BE7 STZ $20
STZ $21
PER L7BEE+2
L7BEE BRL L7F83
BCC L7C39
CMP #$28
BEQ L7C29
PER L7BFA+2
L7BFA BRL L7FEE
BCC L7C02
BRL L75C5
L7C02 BIT $8C
BPL L7C09
BRL L7D09
L7C09 CMP #$2F
BEQ L7C11
CMP #$5E
BNE L7C20
L7C11 PHA
REP #$20
LDA #$0001
PER L7C1A+2
L7C1A BRL L8874
SEP #$20
PLA
L7C20 PER L7C23+2
L7C23 BRL L8BA0
BRL L7A63
L7C29 PER L7C2C+2
L7C2C BRL L8A2B
LDA #$02
CMP $20
BNE L7C59
LDA $12
BNE L7C59
L7C39 LDX #$00C1
LDA $12
BEQ L7C43
LDX #$00C5
L7C43 BRL L7D0B
L7C46 PER L7C49+2
L7C49 BRL L75AD
PEA $0012
PHK
PER L7C53+2
L7C53 BRL L8D82
BRL L75C5
L7C59 LDA $12
BNE L7C9F
LDX #$0004
XBA
BIT $8B
BPL L7C70
LDA #$03
AND $8B
ORA #$04
TAX
LDA #$80
TRB $8B
L7C70 LDA $20
BEQ L7C7A
DEC $20
BEQ L7C7A
BRA L7C46
L7C7A LDA #$28
PHY
L7C7D CMP [$2C],Y
BEQ L7C98
DEY
BPL L7C7D
PLY
PER L7C88+2
L7C88 BRL L75AD
PEA $0045
PHK
PER L7C92+2
L7C92 BRL L8D82
BRL L75C5
L7C98 LDA #$20
STA [$2C],Y
PLY
BRA L7D0B
L7C9F PER L7CA2+2
L7CA2 BRL L7FEE
BCC L7CAA
BRL L75C5
L7CAA BIT $1E
BPL L7D09
BVS L7D09
BIT $90
BPL L7CC3
BVS L7CC3
LDA $20
BNE L7CC3
STA [$2C],Y
INY
STA [$2C],Y
DEY
BRL L7906
L7CC3 LDA #$3C
TRB $1E
LDA #$03
AND $1E
ASL
ASL
TSB $1E
BIT $8F
BPL L7CD9
LDA #$10
TSB $1E
BRA L7D09
L7CD9 BIT $93
BVC L7CE1
BIT $8F
BVS L7CE9
L7CE1 BIT $A7
BMI L7CE9
BIT $8D
BPL L7D09
L7CE9 LDA #$03
AND $1E
TRB $1E
CMP #$03
BEQ L7CF5
LDA #$01
L7CF5 BIT $A7
BMI L7CFD
BIT $93
BVC L7CFF
L7CFD ORA #$10
L7CFF ORA #$20
TSB $1E
LDA #$80
TRB $8D
TRB $A7
L7D09 LDX $1E
L7D0B REP #$20
BIT $89
BPL L7D22
TXA
AND #$00FC
CMP #$0004
BNE L7D22
TXA
AND #$FFC0
ORA #$0020
TAX
L7D22 BIT $89
BVC L7D3C
LDA $B4
CLC
ADC $B6
TAY
LDA [$E0],Y
BIT $62
BPL L7D34
LDA $00
L7D34 ORA #$FFFC
STX $02
AND $02
TAX
L7D3C STX $1E
LDA $00
STA $12
LDY $2C
STY $48
LDY $2E
STY $4A
LDA #$0200
STA [$30]
LDA $1A
BEQ L7D57
INC $30
INC $30
L7D57 LDA [$2C]
AND #$00FF
INC $2C
CMP #$0020
BEQ L7D57
DEC $2C
INC $1A
TXA
XBA
AND #$FF00
ORA #$0008
PER L7D72+2
L7D72 BRL L75AD
CLC
ADC $B0
XBA
STA [$30]
INC $30
INC $30
LDY #$0BB2
LDA [$3C],Y
INC
LDY #$0BB2
STA [$3C],Y
ORA #$3D00
BIT $A6
BPL L7D94
ORA #$8000
L7D94 STA [$30]
INC $30
INC $30
STZ $20
LDA $18
BNE L7DAD
LDA $1E
AND #$00C0
BNE L7DAD
BIT $8B
BMI L7DAD
INC $20
L7DAD LDY $00
TYX
SEP #$20
L7DB2 LDA [$2C],Y
BNE L7DC9
PER L7DB9+2
L7DB9 BRL L75AD
PEA $0045
PHK
PER L7DC3+2
L7DC3 BRL L8D82
BRL L75C5
L7DC9 PHY
TXY
STA [$30],Y
PLY
BIT $8C
BPL L7DEC
PHA
PLA
BPL L7DEC
PHY
TXY
INY
LDA #$28
STA [$30],Y
INY
LDA #$29
STA [$30],Y
TYX
PLY
LDA #$20
STA [$2C],Y
INX
INY
BRA L7E52
L7DEC BIT $8D
BVC L7DF4
CMP #$3B
BEQ L7E3E
L7DF4 CMP #$2D
BEQ L7E2C
BCS L7E00
CMP #$28
BNE L7E08
INC $20
L7E00 LDA #$20
STA [$2C],Y
INX
INY
BRA L7DB2
L7E08 CMP #$29
BNE L7E26
DEC $20
BEQ L7E14
BPL L7E00
BRA L7E52
L7E14 LDA $18
BNE L7E00
LDA #$20
STA [$2C],Y
INY
LDA $1E
AND #$C0
BEQ L7E52
INX
BRA L7E52
L7E26 CMP #$2C
BNE L7E00
BRA L7E3E
L7E2C BIT $1E
BPL L7E00
BVC L7E00
LDA $20
BNE L7E00
LDA $18
BEQ L7E00
LDA #$12
STA [$2C],Y
L7E3E LDA $20
BNE L7E00
LDA $18
BEQ L7E00
INY
L7E47 LDA [$2C],Y
CMP #$20
BNE L7E52
STA [$30],Y
INY
BRA L7E47
L7E52 PHY
LDY #$0BB2
LDA [$3C],Y
ORA #$80
XBA
BIT $1E
BPL L7E81
BVC L7E73
LDA #$3C
AND $1E
BEQ L7E6B
LDA #$6D
BRA L7E85
L7E6B LDA #$6C
BRA L7E85
L7E6F LDA #$6B
BRA L7E85
L7E73 LDA $1E
BIT #$20
BEQ L7E7D
LDA #$68
BRA L7E85
L7E7D LDA #$6A
BRA L7E85
L7E81 BVS L7E6F
LDA #$69
L7E85 PLY
REP #$20
STA [$48]
PHY
BIT $8A
BPL L7E9F
LDY $B8
BNE L7E9F
XBA
AND #$00FF
ORA #$1300
LDY #$0001
STA [$48],Y
L7E9F PLY
TYA
CLC
ADC $B0
STA $B0
TYA
CLC
ADC $2C
STA $2C
LDA $00
ADC $2E
STA $2E
PHX
TYX
PLY
L7EB5 DEY
BMI L7EC2
LDA [$30],Y
AND #$00FF
CMP #$0020
BEQ L7EB5
L7EC2 LDA #$00C0
AND $1E
BNE L7EF5
PHK
PER L7ECD+1
L7ECD BRA L7F0F
PHY
PLY
BPL L7EF5
DEC $1A
BEQ L7EDB
DEC $30
DEC $30
L7EDB DEC $30
DEC $30
DEC $30
DEC $30
LDA #$2020
STA [$48]
LDY #$0BB2
LDA [$3C],Y
DEC
LDY #$0BB2
STA [$3C],Y
BRA L7F02
L7EF5 INY
TYA
CLC
ADC $30
STA $30
LDA $00
ADC $32
STA $32
L7F02 LDA $00
STA [$30]
STZ $20
SEP #$20
LDY $00
BRL L7799
L7F0F PHY
SEP #$20
L7F12 PHY
PLY
BMI L7F7F
LDA [$30]
CMP #$20
BNE L7F20
PLX
INX
BRA L7F50
L7F20 LDA [$30],Y
CMP #$29
BNE L7F7F
LDA [$30]
CMP #$28
BNE L7F7F
TYX
LDY $00
STZ $20
DEX
BNE L7F39
PLY
DEY
DEY
BRA L7F69
L7F39 LDA [$30],Y
CMP #$28
BNE L7F43
INC $20
BRA L7F4B
L7F43 CMP #$29
BNE L7F4B
DEC $20
BEQ L7F7F
L7F4B INY
DEX
BPL L7F39
PLX
L7F50 PHX
LDY #$0001
L7F54 LDA [$30],Y
DEY
STA [$30],Y
INY
INY
DEX
BNE L7F54
PLY
DEY
L7F60 DEY
BMI L7F69
LDA [$30],Y
CMP #$20
BEQ L7F60
L7F69 PHY
LDX $30
DEX
DEX
DEX
STX $30
LDA [$30]
INC
STA [$30]
LDX $30
INX
INX
INX
STX $30
BRA L7F12
L7F7F REP #$20
PLY
RTL
L7F83 PHA
PHY
CPY #$0004
BMI L7FCE
REP #$20
LDA [$44]
CMP #$8564
BEQ L7FA2
CMP #$5453
BNE L7FCE
LDY #$0002
LDA [$44],Y
CMP #$5045
BNE L7FCE
L7FA2 PLY
DEY
PHY
SEP #$20
L7FA7 INY
LDA [$2C],Y
CMP #$20
BEQ L7FA7
CMP #$28
BNE L7FCE
PER L7FB5+2
L7FB5 BRL L8A2B
LDA #$02
CMP $20
BNE L7FCE
PLX
PHY
TXY
LDA #$20
L7FC3 STA [$2C],Y
DEY
BPL L7FC3
PLY
PLA
LDA #$28
CLC
RTS
L7FCE SEP #$20
PLY
PLA
SEC
RTS
L7FD4 LDX $12
BNE L7FF0
SEC
RTS
L7FDA PHK
PER L7FE5
PEA $0018
PEI $EE
PEI $EC
L7FE5 RTL
BCC L7FEB
BRL L884D
L7FEB BRL L8837
L7FEE LDX $00
L7FF0 PHP
REP #$20
PHA
PHY
LDA #$04F8
CLC
ADC $3C
STA $38
LDA $00
ADC $3E
STA $3A
LDA $12
BNE L800A
BRL L8837
L800A CMP #$0029
BMI L801F
PER L8012+2
L8012 BRL L75AD
PEA $000F
PHK
PER L801C+2
L801C BRL L8D82
L801F STA [$38]
INC
INC
TAY
LDA $00
STA [$38],Y
LDY #$0002
TXA
BNE L7FDA
SEP #$20
L8030 LDA [$38],Y
BMI L8067
BEQ L8067
TYX
TAY
LDA [$94],Y
BNE L8060
TYA
CMP #$26
BNE L8048
CPX #$0002
BNE L804E
BRA L8060
L8048 TXY
INY
LDA [$38],Y
BEQ L8067
L804E PER L8051+2
L8051 BRL L75AD
PEA $0002
PHK
PER L805B+2
L805B BRL L8D82
BRA L8067
L8060 TXY
INY
CPY #$0029
BMI L8030
L8067 REP #$20
LDY #$0001
LDA [$38],Y
BPL L8073
BRL L8837
L8073 XBA
AND #$00FF
TAY
CMP #$002E
BEQ L808D
CMP #$0026
BEQ L808D
LDA [$94],Y
AND #$00FF
DEC
BEQ L808D
BRL L8147
L808D BIT $8B
BVS L8095
LDA $20
BEQ L80A8
L8095 PER L8098+2
L8098 BRL L75AD
PEA $0049
PHK
PER L80A2+2
L80A2 BRL L8D82
BRL L884D
L80A8 BIT $8A
BPL L80BC
PER L80AF+2
L80AF BRL L75AD
PEA $0062
PHK
PER L80B9+2
L80B9 BRL L8D82
L80BC PEI $3A
PEI $38
LDA $00
BIT $72
BPL L80C9
LDA #$0080
L80C9 ORA #$0113
TAX
PHK
PER L80D5
PEI $FA
PEI $F8
L80D5 RTL
PLY
PLY
BCC L80DD
BRL L883E
L80DD BIT $72
BPL L80EA
TXA
DEC
BNE L80EA
STZ $08
STZ $0A
INX
L80EA TXA
PER L80EE+2
L80EE BRL L8874
TXA
BNE L80FD
LDX #$00FF
PEI $04
PHX
BRL L8363
L80FD CLC
ADC #$816E
PHA
LDY #$0C8A
LDA [$3C],Y
ASL
ASL
TAY
DEX
BEQ L8119
LDA $08
STA [$BE],Y
INY
INY
LDA $0A
STA [$BE],Y
INY
INY
L8119 LDA $04
STA [$BE],Y
INY
INY
LDA $06
STA [$BE],Y
LDY #$0C8A
LDA [$3C],Y
PHA
INC
DEX
BMI L812E
INC
L812E LDY #$0C8A
STA [$3C],Y
PLA
XBA
CLC
ADC $01,S
PLY
LDY #$0002
STA [$38],Y
PLY
PHY
DEY
DEY
STA [$2C],Y
BRL L820D
L8147 DEC
DEC
BNE L814E
BRL L8837
L814E BIT $91
BVC L8155
BRL L8437
L8155 PHK
PER L8160
PEA $000F
PEI $EE
PEI $EC
L8160 RTL
BCC L8166
BRL L821F
L8166 TAY
AND #$00FF
CMP #$001F
BEQ L8183
CMP #$0028
BNE L817E
BIT $72
BPL L8188
LDX #$0A28
TXY
BRA L8188
L817E CMP #$002A
BNE L8188
L8183 LDA #$0080
TSB $92
L8188 BIT $8A
BPL L818F
BRL L8252
L818F BIT $8B
BVS L8198
LDA #$0080
TSB $8C
L8198 TYA
LDX #$8063
AND #$0F00
XBA
ASL
ASL
ORA #$0040
STA $1E
CMP #$0050
BEQ L81E8
CMP #$0054
BEQ L81F8
CMP #$0058
BEQ L81F8
LDA #$000F
TRB $1E
TYA
XBA
AND #$0003
CMP #$0003
BNE L81C7
TSB $1E
L81C7 PER L81CA+2
L81CA BRL L8874
TYA
AND #$3000
XBA
LSR
LSR
TSB $1E
TYA
AND #$0C00
CMP #$0800
BNE L81F8
TYA
XBA
AND #$0003
TSB $1E
BRA L81F8
L81E8 PHY
LDA #$0001
BIT $72
BPL L81F1
INC
L81F1 PER L81F4+2
L81F4 BRL L8874
PLY
L81F8 TYA
AND #$00FF
LDY #$0002
XBA
CLC
STX $02
ADC $02
STA [$38],Y
PLY
PHY
DEY
DEY
STA [$2C],Y
L820D SEP #$20
LDA #$20
L8211 DEY
BMI L8218
STA [$2C],Y
BRA L8211
L8218 LDA #$02
STA $12
BRL L8837
MX %00
L821F PHK
PER L822A
PEA $0018
PEI $EE
PEI $EC
L822A RTL
BCS L8240
TAY
BIT $8E
BVS L823A
LDA $20
BNE L8252
BIT $8A
BMI L8252
L823A TYA
LDX #$8064
BRA L81F8
L8240 BIT $A5
BMI L8282
PHK
PER L824F
PEA $000C
PEI $EE
PEI $EC
L824F RTL
BCS L8265
L8252 PER L8255+2
L8255 BRL L75AD
PEA $0047
PHK
PER L825F+2
L825F BRL L8D82
BRL L884D
L8265 BIT $8B
BVC L826C
BRL L8437
L826C LDY #$0002
LDA [$38],Y
CMP #$4E46 ; FN
BNE L8279
BRL L8437
L8279 BIT $88
BVC L8280
BRL L8437
L8280 BRA L82C2
L8282 LDY #$0008
PHK
PER L8290
PEA $0015
PEI $EE
PEI $EC
L8290 RTL
BCC L82BA
PER L8296+2
L8296 BRL L8976
BEQ L82B2
LDY #$0008
PHK
PER L82A9
PEA $0015
PEI $EE
PEI $EC
L82A9 RTL
BCC L82BA
PER L82AF+2
L82AF BRL L8A04
L82B2 LDA #$0040
TSB $8C
BRL L8437
L82BA LDA #$0080
TRB $A6
BRL L834A
L82C2 BIT $8A
BVC L8315
LDY #$0002
LDA [$38],Y
ORA #$0020
STA [$38],Y
LDY #$0006
PHK
PER L82DE
PEA $0015
PEI $EE
PEI $EC
L82DE RTL
PHY
LDY #$0002
LDA [$38],Y
AND #$FFDF
STA [$38],Y
PLY
BCC L82FE
BIT $8A
BPL L8315
PHY
LDY #$0002
ORA #$0020
STA [$38],Y
PLY
BRL L83B2
L82FE BIT $8A
BPL L834A
PER L8305+2
L8305 BRL L75AD
PEA $0063
PHK
PER L830F+2
L830F BRL L8D82
BRL L884D
L8315 LDY #$0006
PHK
PER L8323
PEA $0015
PEI $EE
PEI $EC
L8323 RTL
BCC L834A
PER L8329+2
L8329 BRL L8976
BNE L8331
BRL L83B2
L8331 LDY #$0006
PHK
PER L833F
PEA $0015
PEI $EE
PEI $EC
L833F RTL
BCC L834A
PER L8345+2
L8345 BRL L8A04
BRA L83B2
L834A LDA #$1000
BIT $68
BEQ L8361
PER L8354+2
L8354 BRL L75AD
PEA $0079
PHK
PER L835E+2
L835E BRL L8D82
L8361 PHY
PHX
L8363 LDA $01,S
ASL
ASL
STA $1E
LSR
LSR
AND #$0003
PER L8371+2
L8371 BRL L8874
TSB $1E
LDY #$0C8A
LDA [$3C],Y
ASL
ASL
TAY
PLA
STA [$BE],Y
INY
INY
PLA
STA [$BE],Y
BIT $8F
BVS L838E
BIT $8D
BPL L8395
L838E STA $D2
LDA #$0080
TRB $8E
L8395 LDY #$0C8A
LDA [$3C],Y
INC
LDY #$0C8A
STA [$3C],Y
ORA #$0080
LDY #$0002
STA [$38],Y
PLY
PHY
DEY
SEP #$20
STA [$2C],Y
BRL L820D
MX %00
L83B2 LDA $12
CLC
ADC #$000A
TAX
PHK
PER L83C4
PEA $0021
PEI $EE
PEI $EC
L83C4 RTL
PHY
LDX #$0002
PER L83CC+2
L83CC BRL L890F
PHX
INY
INY
PHY
LDA $68
XBA
PLY
STA [$E0],Y
LDA $00
PER L83DE+2
L83DE BRL L888B
INY
INY
STA [$E0],Y
INY
INY
TXA
STA [$E0],Y
PLX
INY
INY
PHY
BIT $90
BMI L83F6
BIT $8A
BPL L840D
L83F6 LDA $B4
BIT $62
BMI L840B
CLC
ADC $B6
TAY
LDA [$E0],Y
AND #$FF00
STX $02
ORA $02
STA [$E0],Y
L840B PLY
PHY
L840D LDY $38
STY $48
LDY $3A
STY $4A
PLY
TXA
PHX
STA [$E0],Y
INY
LDA $12
TAX
STA [$E0],Y
INY
LDA #$0001
STA [$48]
INC $48
INC $48
L842A LDA [$48]
STA [$E0],Y
INY
INC $48
DEX
BNE L842A
BRL L8363
L8437 BIT $8A
BPL L8442
LDY $B8
BEQ L8442
BRL L8252
L8442 BIT $8B
BVS L846A
LDY #$0006
PHK
PER L8454
PEA $0015
PEI $EE
PEI $EC
L8454 RTL
BCS L846A
PER L845A+2
L845A BRL L75AD
PEA $004D
PHK
PER L8464+2
L8464 BRL L8D82
BRL L884D
L846A LDY #$0008
PHK
PER L8478
PEA $0015
PEI $EE
PEI $EC
L8478 RTL
BCC L84A7
BIT $8F
BVC L8482
BRL L86A5
L8482 PER L8485+2
L8485 BRL L8976
BNE L848D
BRL L86A5
L848D LDY #$0008
PHK
PER L849B
PEA $0015
PEI $EE
PEI $EC
L849B RTL
BCC L84A7
PER L84A1+2
L84A1 BRL L8A04
BRL L86A5
L84A7 LDA #$1000
BIT $68
BEQ L84C2
BIT $90
BVS L84C2
PER L84B5+2
L84B5 BRL L75AD
PEA $0079
PHK
PER L84BF+2
L84BF BRL L8D82
L84C2 PHY
PHX
BIT $88
BVS L84CB
BRL L8577
L84CB INY
INY
INY
LDA [$E0],Y
AND #$00FF
CMP $20
BEQ L84E7
PER L84DA+2
L84DA BRL L75AD
PEA $0019
PHK
PER L84E4+2
L84E4 BRL L8D82
L84E7 CLC
STY $02
ADC $02
CLC
ADC #$0007
PHA
INY
INY
INY
INY
INY
INY
LDA [$E0],Y
AND #$00FF
CLC
ADC $01,S
STA $C8
PLA
LDA #$4000
TRB $88
DEY
LDA [$E0],Y
AND #$003C
LSR
LSR
DEC
DEC
BEQ L8529
DEC
BEQ L8529
PER L8519+2
L8519 BRL L75AD
PEA $004D
PHK
PER L8523+2
L8523 BRL L8D82
BRL L8363
L8529 BIT $90
BVC L8584
LDA $91
AND #$0001
ASL
ASL
ORA $01,S
STA $01,S
AND #$0004
ORA [$E0],Y
STA [$E0],Y
DEY
DEY
DEY
DEY
LDA [$E0],Y
BEQ L8557
PER L854A+2
L854A BRL L75AD
PEA $0021
PHK
PER L8554+2
L8554 BRL L8D82
L8557 PHY
LDY #$0086
LDA [$3C],Y
PLY
STA [$E0],Y
LDA #$0040
TRB $91
TSB $8A
LDA $03,S
CLC
ADC #$000A
CLC
ADC $12
STA $B4
STZ $B6
BRL L8363
L8577 BIT $8B
BVS L8584
BIT $91
BVS L8584
LDA #$0080
TSB $8C
L8584 LDA $03,S
TAY
INY
INY
INY
BIT $91
BVC L8591
BRL L8661
L8591 LDA [$E0],Y
AND #$00FF
BIT $8E
BPL L85E8
LDA [$E0],Y
AND #$00FF
BEQ L85CB
CMP #$00FF
BNE L85D6
BIT $68
BVS L85E5
PHY
INY
INY
INY
INY
INY
LDA [$E0],Y
AND #$FFF3
STA [$E0],Y
LDA #$0024
LSR $91
BCS L85C1
ORA #$0004
L85C1 ROR $91
ORA [$E0],Y
STA [$E0],Y
PLY
BRL L864E
L85CB BIT $68
BVS L85D6
LDA $91
LSR
BCS L85E5
BRA L864E
L85D6 BIT $68
BVC L85E5
LDA #$0040
DEY
ORA [$E0],Y
STA [$E0],Y
BRL L8363
L85E5 BRL L8363
L85E8 LDA [$E0],Y
AND #$00FF
BEQ L864E
CMP #$00FF
BEQ L864E
SEC
SBC $20
BNE L85FC
BRL L8363
L85FC DEY
LDA [$E0],Y
AND #$0002
BEQ L8607
BRL L8363
L8607 INY
INY
INY
INY
INY
INY
LDA [$E0],Y
AND #$003C
LSR
LSR
DEC
DEC
BEQ L863B
DEC
BEQ L863B
LDY #$0002
LDA [$38],Y
CMP #$4E46
BNE L8638
PER L8628+2
L8628 BRL L75AD
PEA $0095
PHK
PER L8632+2
L8632 BRL L8D82
BRL L8363
L8638 BRL L8363
L863B PER L863E+2
L863E BRL L75AD
PEA $0019
PHK
PER L8648+2
L8648 BRL L8D82
BRL L8363
L864E BIT $8B
BPL L8655
BRL L8363
L8655 LDA #$FF00
AND [$E0],Y
ORA $20
STA [$E0],Y
BRL L8363
L8661 PHY
DEY
LDA [$E0],Y
BIT #$0020
BNE L8674
PHY
LDY #$0086
LDA [$3C],Y
PLY
DEC
BNE L868A
L8674 INY
INY
INY
INY
INY
INY
LDA [$E0],Y
LSR
LSR
AND #$000F
SEC
SBC #$000A
BEQ L869A
DEC
BEQ L869A
L868A PER L868D+2
L868D BRL L75AD
PEA $007B
PHK
PER L8697+2
L8697 BRL L8D82
L869A PLY
LDA [$E0],Y
AND #$FF00
STA [$E0],Y
BRL L8363
L86A5 BIT $91
BVC L86AB
INC $20
L86AB TYX
LDY #$0002
LDA [$38],Y
CMP #$4E46
BNE L86CD
BIT $8A
BMI L86CD
PER L86BD+2
L86BD BRL L75AD
PEA $0048
PHK
PER L86C7+2
L86C7 BRL L8D82
BRL L884D
L86CD TXY
LDA $20
INC
INC
INC
INC
BIT $8A
BMI L86DE
BIT $88
BVS L86DE
LDA $00
L86DE CLC
ADC $12
CLC
ADC #$000A
STA $C8
TAX
PHK
PER L86F3
PEA $0021
PEI $EE
PEI $EC
L86F3 RTL
PHY
LDX $00
BIT $88
BVS L870A
LDX #$0002
BIT $8A
BPL L8704
INX
INX
L8704 PER L8707+2
L8707 BRL L890F
L870A LDA $01,S
TAY
CLC
ADC $C8
DEC
DEC
DEC
DEC
STA $C8
BIT $88
BVC L8728
PHY
TAY
LDA $00
STA [$E0],Y
INY
INY
LDA #$0004
STA [$E0],Y
PLY
L8728 LDA $68
PHX
BIT $90
BVS L873C
BMI L8739
BIT $8E
BPL L873C
BIT $68
BVC L873C
L8739 ORA #$00FF
L873C INY
INY
ORA $20
XBA
STA [$E0],Y
INY
INY
LDA $00
BIT $90
BVC L8752
PHY
LDY #$0086
LDA [$3C],Y
PLY
L8752 LDX #$FF00
BIT $88
BVS L876A
LDA $00
LDX #$7E00
BIT $8A
BMI L876A
LDA $20
PER L8767+2
L8767 BRL L888B
L876A STA [$E0],Y
INY
INY
TXA
STA [$E0],Y
PLX
INY
INY
PHY
BIT $8A
BPL L877C
BRL L8810
L877C BIT $88
BVC L87B2
LDA #$4000
TRB $88
LDX #$0008
BIT $90
BVS L878F
BRL L840D
L878F LDA #$0001
AND $91
ASL
ASL
STX $02
ORA $02
TAX
LDA #$0040
TRB $91
TSB $8A
LDA $03,S
CLC
ADC #$000A
CLC
ADC $12
STA $B4
STZ $B6
BRL L840D
L87B2 LDA $20
BNE L87C7
BIT $90
BMI L87C7
BIT $68
BVS L87C7
BIT $A5
BPL L87C7
LDA #$0080
TRB $A6
L87C7 TXA
ORA #$0020
TAX
BIT $8E
BPL L8809
BIT $68
BVS L8809
ORA #$0004
TAX
LDA $91
LSR
BCS L87E2
TXA
ORA #$0008
TAX
L87E2 BIT $90
BMI L87E9
BRL L840D
L87E9 BIT $62
BPL L87F0
BRL L840D
L87F0 PHY
LDA $B4
CLC
ADC $B6
TAY
LDA [$E0],Y
AND #$FF00
STX $02
ORA $02
AND #$FF03
STA [$E0],Y
PLY
BRL L840D
L8809 TXA
ORA #$0008
TAX
BRA L87E2
L8810 TXA
ORA #$001C
TAX
LDA #$0003
TRB $8B
STX $02
AND $02
TSB $8B
LDY $C8
LDA $00
STA [$E0],Y
INY
INY
PHY
LDY #$0086
LDA [$3C],Y
ORA #$7E00
PLY
STA [$E0],Y
BRL L840D
L8837 REP #$20
PLY
PLA
PLP
CLC
RTS
L883E PER L8841+2
L8841 BRL L75AD
PEI $04
PHK
PER L884A+2
L884A BRL L8D82
L884D REP #$20
PLY
PLA
PLP
SEC
RTS
L8854 PHY
AND #$007F
ASL
DEC
ASL
TAY
LDA [$BE],Y
CLC
ADC #$0009
TAY
LDA [$E0],Y
AND #$00FF
INC
CLC
STY $02
ADC $02
STA $B4
STZ $B6
PLY
RTS
L8874 BIT $CA
BPL L887C
XBA
STA $CA
XBA
L887C SEP #$20
CMP $CA
BCC L8888
CMP #$03
BEQ L8888
STA $CA
L8888 REP #$20
RTS
L888B PHY
BIT $8A
BPL L88B1
LDA $B8
INC $B8
INC $B8
DEX
BNE L88A2
L8899 INC $B8
INC $B8
L889D LDX #$7F00
BRA L88F0
L88A2 BMI L889D
DEX
BNE L8899
INC $B8
INC $B8
INC $B8
INC $B8
BRA L8899
L88B1 BIT $90
BPL L88C2
LDA $B6
ASL
ASL
CLC
ADC #$000B
LDX #$0700
BRA L88F0
L88C2 DEX
BNE L88CA
LDX #$0004
BRA L88DC
L88CA BPL L88D1
LDX #$0002
BRA L88DC
L88D1 DEX
BEQ L88D9
LDX #$0004
BRA L88F8
L88D9 LDX #$0008
L88DC PHA
PLA
BEQ L88E5
LDX #$0004
BRA L88F8
L88E5 LDA #$2000
AND $68
BNE L88F2
TXA
LDX #$0800
L88F0 PLY
RTS
L88F2 TXA
LDX #$0A00
BRA L88F0
L88F8 LDA #$2000
AND $68
BNE L8905
TXA
LDX #$0900
BRA L88F0
L8905 TXA
LDX #$0B00
BRA L88F0
L890B PHY
TXY
BRA L893C
L890F PHY
PHX
LDA #$0080
TRB $8E
LDX $00
LDY $12
INY
LDA [$38],Y
AND #$00FF
STA [$38],Y
CMP #$0025
BEQ L8955
BPL L893B
INX
CMP #$0021
BEQ L8955
INX
CMP #$0023
BEQ L8955
INX
CMP #$0024
BEQ L8955
L893B PLY
L893C LDA [$38],Y
AND #$00DF
SEC
SBC #$0041
BMI L8959
CLC
ADC #$01D4
TAY
LDA [$3C],Y
AND #$00FF
TAX
PLY
SEC
RTS
L8955 PLY
PLY
CLC
RTS
L8959 INC
BEQ L896C
PER L895F+2
L895F BRL L75AD
PEA $0002
PHK
PER L8969+2
L8969 BRL L8D82
L896C LDA #$0080
TSB $8E
PLY
LDX $74
SEC
RTS
L8976 PHY
STZ $76
LDY #$0002
TYX
LDA [$38],Y
CMP #$4E46
BNE L899A
CPX $12
BNE L8998
PER L898B+2
L898B BRL L75AD
PEA $0002
PHK
PER L8995+2
L8995 BRL L8D82
L8998 INX
INX
L899A AND #$00FF
CMP #$0041
BCC L89D8
CMP #$005B
BCS L89D8
PEI $8E
TXY
PER L89AD+2
L89AD BRL L890F
BCC L89DC
LDA [$38]
INC
STA [$38]
TAY
INY
LDA #$0025
DEX
BMI L89CF
BEQ L89CC
LDA #$0023
DEX
BEQ L89CF
LDA #$0024
BRA L89CF
L89CC LDA #$0021
L89CF STA [$38],Y
INC $12
STA $76
L89D5 PLA
STA $8E
L89D8 PLY
LDA $76
RTS
L89DC PHX
TYX
PER L89E1+2
L89E1 BRL L890B
TXA
CMP $01,S
BEQ L89EC
PLA
BRA L89D5
L89EC PLA
LDA [$38]
INC
TAY
LDA [$38],Y
ORA #$8000
STA $76
ASL
STA [$38],Y
TYA
DEC
DEC
STA [$38]
DEC $12
BRA L89D5
L8A04 PHY
LDA $76
BEQ L8A18
BMI L8A1A
LDA [$38]
TAY
DEC
STA [$38]
INY
LDA $00
STA [$38],Y
DEC $12
L8A18 PLY
RTS
L8A1A ASL
LSR
TAX
LDA [$38]
INC
STA [$38]
TAY
INY
TXA
STA [$38],Y
INC $12
BRA L8A18
L8A2B PHP
PHY
SEP #$20
STZ $20
STZ $22
LDA #$40
TRB $8C
L8A37 INY
LDA [$2C],Y
BEQ L8A83
CMP #$20
BEQ L8A4A
CMP #$29
BEQ L8A6D
LDA #$40
TSB $8C
LDA [$2C],Y
L8A4A CMP #$28
BEQ L8A56
CMP #$2C
BNE L8A37
INC $20
BRA L8A37
L8A56 INC $22
L8A58 INY
LDA [$2C],Y
CMP #$28
BEQ L8A69
CMP #$29
BNE L8A58
DEC $22
BEQ L8A37
BRA L8A58
L8A69 INC $22
BRA L8A58
L8A6D LDA $20
BNE L8A77
BIT $8C
BVS L8A77
DEC $20
L8A77 INC $20
LDA #$40
TSB $8C
INY
LDA [$2C],Y
PLY
PLP
RTS
L8A83 PER L8A86+2
L8A86 BRL L75AD
PEA $0015
PHK
PER L8A90+2
L8A90 BRL L8D82
BRL L75C5
L8A96 PHY
PHA
LDA [$44]
BMI L8ABB
CMP #$2E
BEQ L8AA8
CMP #$30
BCC L8ABB
CMP #$3A
BCS L8ABB
L8AA8 LDY $12
BEQ L8ABB
DEY
LDA [$44],Y
CMP #$45
BEQ L8AB7
CMP #$44
BNE L8ABB
L8AB7 CLC
L8AB8 PLA
PLY
RTS
L8ABB SEC
BRA L8AB8
L8ABE PHP
SEP #$20
PHA
PHY
LDA [$44]
CMP #$41
BCC L8B0C
REP #$20
PHK
PHK
PER L8B47
PLY
STY $48
PLY
STY $4A
LDY $00
SEP #$20
LDA #$03
STA $20
L8ADE LDX $00
PHK
PER L8AE4+1
L8AE4 BRA L8B65
BEQ L8AF0
BMI L8B0C
INY
INY
INY
INY
BRA L8ADE
L8AF0 INY
INY
INY
LDA [$48],Y
PLX
PHX
LDY $00
L8AF9 STA [$2C],Y
INY
LDA #$20
DEX
BNE L8AF9
LDA $00
STA [$44]
STA $12
PLY
PLA
PLP
CLC
RTS
L8B0C PLY
PLA
PLP
SEC
RTS
MX %00
PHX
TAX
SEC
SBC #$0064
BMI L8B3F
TAX
LDA #$0031
STA [$2C],Y
INY
L8B20 TXA
LDX #$0030
L8B24 CMP #$000A
BMI L8B30
SEC
SBC #$000A
INX
BRA L8B24
L8B30 PHA
TXA
STA [$2C],Y
INY
PLA
L8B36 CLC
ADC #$0030
STA [$2C],Y
INY
PLX
RTS
L8B3F TXA
CMP #$000A
BPL L8B20
BRA L8B36
L8B47 ASC 'AND'
DB $1A
ASC 'EQV'
DB $1D
ASC 'IMP'
DB $1E
ASC 'MOD'
DB $10
ASC 'NOT'
DB $19
ASC 'OR'
DB $00
DB $1B
ASC 'XOR'
DB $1C
DB $7F
DB $7F
L8B65 PHP
PHX
PHY
SEP #$20
LDA $20
STA $22
L8B6E PHX
TYX
PLY
LDA [$44],Y
PHX
TYX
PLY
CMP [$48],Y
BEQ L8B90
BPL L8B88
LDA #$80
ORA $05,S
AND #$FD
STA $05,S
L8B84 PLY
PLX
PLP
RTL
L8B88 LDA #$7D
AND $05,S
STA $05,S
BRA L8B84
L8B90 INX
INY
DEC $22
BNE L8B6E
LDA #$02
ORA $05,S
AND #$7F
STA $05,S
BRA L8B84
L8BA0 PHP
REP #$20
PHY
PHK
PHK
PER L8C01
PLX
STX $48
PLX
STX $4A
AND #$00FF
TAX
SEP #$20
L8BB5 INY
LDA [$2C],Y
CMP #$20
BEQ L8BB5
REP #$20
PHY
AND #$00FF
XBA
STX $02
ORA $02
LDY $00
L8BC9 CMP [$48],Y
BEQ L8BD4
BCC L8BE5
INY
INY
INY
BRA L8BC9
L8BD4 INY
INY
LDA [$48],Y
TAX
PLY
SEP #$20
LDA #$20
STA [$2C],Y
TXA
REP #$20
BRA L8BFE
L8BE5 PLY
PER L8C15
PLA
STA $48
TXA
LDY $00
SEP #$20
L8BF1 CMP [$48],Y
BEQ L8BFB
BCC L8BFE
INY
INY
BRA L8BF1
L8BFB INY
LDA [$48],Y
L8BFE PLY
PLP
RTS
L8C01 ASC '=<'
DB $17
ASC '><'
DB $14
ASC '<='
DB $17
ASC '>='
DB $18
ASC '<>'
DB $14
ASC '=>'
DB $18
DB $FF
DB $FF
L8C15 ASC '*'0D
ASC '+'11
ASC '-'12
ASC '/'0E
ASC '<'15
ASC '='13
ASC '>'16
ASC '\'0F
ASC '^'0C
DB $FF
L8C28 PHP
REP #$20
PEI $04
STZ $04
SEP #$20
PER L8C34+2
L8C34 BRL L8D57
BCS L8C43
BVC L8CA1
CMP #$26
BEQ L8C4B
CMP #$2E
BEQ L8C9B
L8C43 REP #$20
PLA
STA $04
PLP
SEC
RTS
MX %10
L8C4B INY
PER L8C4F+2
L8C4F BRL L8D4D
BCC L8C57
BRL L8D27
L8C57 BVC L8C64
CMP #$4F
BEQ L8C64
CMP #$48
BEQ L8C7C
BRL L8D27
L8C64 INY
PER L8C68+2
L8C68 BRL L8D4D
BCC L8C70
BRL L8D27
L8C70 BVC L8C75
BRL L8D27
L8C75 CMP #$38
BCC L8C64
BRL L8D38
L8C7C SEC
ROL $04
L8C7F INY
PER L8C83+2
L8C83 BRL L8D4D
BCC L8C8B
BRL L8D27
L8C8B BVC L8C7F
CMP #$41
BCS L8C94
BRL L8D27
L8C94 CMP #$47
BCC L8C7F
BRL L8D27
L8C9B PHA
LDA #$80
TSB $04
PLA
L8CA1 INY
PER L8CA5+2
L8CA5 BRL L8D4D
BCS L8D11
BVC L8CA1
CMP #$2E
BNE L8CB8
BIT $04
BVS L8D11
BPL L8C9B
BRA L8D11
L8CB8 CMP #$45
BNE L8CF0
L8CBC BIT $04
BVS L8D11
PHA
LDA #$40
TSB $04
PHY
PHX
LDX #$FFFF
INY
PER L8CCE+1
L8CCE BRA L8D4D
BCS L8CDC
BVC L8CEB
CMP #$2B
BEQ L8CE1
CMP #$2D
BEQ L8CE1
L8CDC PLX
PLY
PLA
BRA L8D11
L8CE1 INY
PER L8CE5+1
L8CE5 BRA L8D4D
BCS L8CDC
BVS L8CDC
L8CEB PLX
PLY
PLA
BRA L8CA1
L8CF0 CMP #$44
BEQ L8CBC
CMP #$2B
BEQ L8CFC
CMP #$2D
BNE L8D11
L8CFC BIT $04
BVC L8D11
PHA
LDA $05
CMP #$45
BEQ L8D0E
CMP #$44
BEQ L8D0E
PLA
BRA L8D11
L8D0E PLA
BRA L8CA1
L8D11 CMP #$21
BEQ L8D1D
CMP #$25
BEQ L8D1D
CMP #$23
BNE L8D27
L8D1D INY
PER L8D21+1
L8D21 BRA L8D4D
BCS L8D44
BVC L8D38
L8D27 CLV
CMP #$26
BEQ L8D38
CMP #$2E
BEQ L8D38
CMP #$41
BCC L8D44
CMP #$5B
BCS L8D44
L8D38 SEP #$40
REP #$20
PLA
STA $04
PLP
SEP #$40
CLC
RTS
L8D44 REP #$20
PLA
STA $04
PLP
CLC
CLV
RTS
MX %10
L8D4D STA $05
PHY
TXY
BMI L8D56
STA [$44],Y
INX
L8D56 PLY
L8D57 LDA [$2C],Y
BEQ L8D80
CMP #$09
BEQ L8D65
CMP #$20
BCC L8D80
BNE L8D6D
L8D65 LDA $04
LSR
BCS L8D80
INY
BRA L8D57
L8D6D CMP #$61
BCC L8D73
AND #$DF
L8D73 SEP #$40
CMP #$30
BCC L8D7E
CMP #$3A
BCS L8D7E
CLV
L8D7E CLC
RTS
L8D80 SEC
RTS
L8D82 PHP
PHB
REP #$20
PHA
LDA $00
DEC
STA $62
PLA
PEA $0003
PEI $EE
PEI $EC
RTL
L8D95 LDA #$0040
STA [$28],Y
INY
PHY
TXA
CLC
LDY #$00B4
ADC [$3C],Y
TAX
PLY
XBA
AND #$000F
CLC
ADC #$0041
STA [$28],Y
INY
TXA
AND #$000F
CLC
ADC #$0041
XBA
PHA
TXA
LSR
LSR
LSR
LSR
AND #$000F
CLC
ADC #$0041
ORA $01,S
STA [$28],Y
INY
INY
PLA
RTS
L8DCE BIT $F4
BVS L8DD3
RTL
L8DD3 PEI $0A
PEI $08
PEI $0E
PEI $0C
PEI $10
PER L8DE0+2
L8DE0 BRL L8FD4
PHA
PHX
L8DE5 LDY #$01BE
LDA [$3C],Y
STA $10
BNE L8DF6
PER L8DF1+2
L8DF1 BRL L8ECD
BRA L8DE5
L8DF6 LDY #$01B4
LDX #$0000
L8DFC LDA [$3C],Y
STA $04,X
INX
INX
INY
INY
CPX #$0008
BCC L8DFC
INX
STZ $0C
STZ $0E
L8E0E LDA $08
SEC
SBC $04
TAY
LDA $0A
SBC $06
BCC L8E1E
STA $0A
STY $08
L8E1E ROL $0C
ROL $0E
DEX
BEQ L8E2B
LSR $06
ROR $04
BRA L8E0E
L8E2B LSR $0C
LDX $10
LDY #$01BC
LDA [$3C],Y
STA $10
CMP #$0048
BCC L8E3D
LSR $0C
L8E3D LDA #$0096
SEC
SBC $0C
STA $0E
STX $0C
L8E47 LDA $0E
CMP $0C
BCS L8E8E
LDA $10
CMP $0C
BCS L8E8E
LDA #$0238
STA $06
LDA #$0246
STA $0A
LDA $10
CMP #$0048
BCC L8E74
LDA $06
SEC
SBC #$0028
STA $06
LDA $0A
SEC
SBC #$0028
STA $0A
L8E74 LDA $0C
STA $08
DEC
STA $04
STA $0C
PEI $00
TDC
CLC
ADC #$0004
PHA
_PaintRect
BRA L8E47
L8E8E LDA $0C
LDY #$01BE
STA [$3C],Y
PLX
PLA
PER L8E9A+2
L8E9A BRL L8FEC
PLA
STA $10
PLA
STA $0C
PLA
STA $0E
PLA
STA $08
PLA
STA $0A
RTL
L8EAD DB $94
DB $00
DB $2E
DB $02
DB $A2
DB $00
DB $50
DB $02
L8EB5 DB $94
DB $00
DB $06
DB $02
DB $A2
DB $00
DB $28
DB $02
L8EBD DB $16
DB $00
DB $35
DB $02
DB $96
DB $00
DB $49
DB $02
L8EC5 DB $56
DB $00
DB $0D
DB $02
DB $96
DB $00
DB $21
DB $02
L8ECD LDY #$000A
LDA [$3C],Y
STA $04
BEQ L8EE2
LDA #$0049
STA $06
PHK
PHK
PER L8EB5
BRA L8EF4
L8EE2 LDX #$0031
LDY #$0008
LDA [$3C],Y
BNE L8EED
INX
L8EED STX $06
PHK
PHK
PER L8EAD
L8EF4 PEA $0014
PEA $0140
_FrameArc
LDA #$023B
LDX $06
CPX #$0049
BNE L8F0F
SEC
SBC #$0028
L8F0F LDX #$009F
PER L8F15+2
L8F15 BRL L8FEC
PEI $06
_DrawChar
LDA $06
CMP #$0049
BNE L8F32
PHK
PHK
PER L8EC5
LDA #$0056
BRA L8F53
L8F32 LDX #$0055
LDA #$0231
PER L8F3B+2
L8F3B BRL L8FEC
PEA $001C
PEA $0000
_Line
PHK
PHK
PER L8EBD
LDA #$0016
L8F53 LDY #$01BC
STA [$3C],Y
_FrameRect
LDA #$0096
LDY #$01BE
STA [$3C],Y
RTS
L8F68 BIT $F4
BVC L8F9B
LDY #$01BE
LDA [$3C],Y
BEQ L8F9B
LDY #$0008
LDA [$3C],Y
BEQ L8F88
LDY #$000A
LDA [$3C],Y
BEQ L8F88
PHK
PHK
PER L8FC4
BRA L8F8D
L8F88 PHK
PHK
PER L8FCC
L8F8D _EraseRect
LDA $00
LDY #$01BE
STA [$3C],Y
L8F9B RTL
L8F9C BIT $F4
BVC L8FC3
PER L8FA3+1
L8FA3 BRA L8FD4
PHA
PHX
LDA #$023B
LDX #$009F
PER L8FB0+1
L8FB0 BRA L8FEC
PEA $0032
_DrawChar
PLX
PLA
PER L8FC1+1
L8FC1 BRA L8FEC
L8FC3 RTL
L8FC4 DB $56
DB $00
DB $03
DB $02
DB $A3
DB $00
DB $2B
DB $02
L8FCC DB $16
DB $00
DB $2B
DB $02
DB $A3
DB $00
DB $53
DB $02
L8FD4 LDX #$0000
PHX
PHX
TSC
INC
PHX
PHA
_GetPen
PLX
BCS L8FE9
PLA
RTS
L8FE9 PLX
SEC
RTS
L8FEC PHA
PHX
_MoveTo
RTS
L8FF6 LDY #$0008
PER L8FFC+1
L8FFC BRA L9007
LDY #$0006
PER L9004+1
L9004 BRA L9007
RTS
L9007 PHY
L9008 PLY
LDA [$E0],Y
BEQ L903D
TAY
PHA
INY
LDA [$E0],Y
AND #$3800
BNE L9008
TYA
CLC
ADC #$0008
TAY
LDA [$E0],Y
BPL L9008
DEY
LDA [$E0],Y
AND #$003C
BEQ L9033
BIT #$0020
BEQ L9008
BIT #$0010
BNE L9008
L9033 INY
LDA [$E0],Y
AND #$7FFF
STA [$E0],Y
BRA L9008
L903D RTS
BRA L9097
L9040 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $0A
DB $04
DB $01
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
DB $2C
DB $00
DB $40
DB $00
DB $20
DB $20
DB $00
DB $00
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
L9080 DB $F2
DB $00
DB $00
DB $00
DB $00
L9085 NOP
CLC
XCE
REP #$38
LDA #$0000
PER L9093
BRL L9093
L9093 DB $00
DB $00
DB $00
DB $00
L9097 TSC
STA $40
LDY #$000C
LDA [$3C],Y
BEQ L90CA
PHA
TAX
LDY #$0036
LDA [$3C],Y
PEA $0000
PHA
PHK
PHK
PER L9A97
PHK
PER L90B5+2
L90B5 BRL LAF42
PLA
PLA
PLA
PLA
PHK
PER L90C0+2
L90C0 BRL LA472
LDA $00
LDY #$000C
STA [$3C],Y
L90CA LDY #$0036
LDA [$3C],Y
BEQ L90D4
BRL L94F6
L90D4 BIT $F4
BVC L90EC
PEI $00
TDC
CLC
ADC #$00D6
PHA
_GetPen
LDA #$0003
STA $D8
L90EC PHK
PHK
PER L9AC6
PER L90F4+2
L90F4 BRL L99B8
PHK
PER L90FB+2
L90FB BRL *-L0580
LDA #$01D4
CLC
ADC $3C
STA $CE
LDA $00
ADC $3E
STA $D0
STZ $0A
LDA $CE
STA $28
CLC
ADC #$1402
STA $5C
LDA $D0
STA $2A
BCC L911F
INC
L911F STA $5E
STZ $60
STZ $0C
STZ $0E
LDA #$29D8
CLC
ADC $3C
STA $2C
LDA $00
ADC $3E
STA $2E
STZ $10
STZ $12
STZ $1C
STZ $1E
STZ $20
PEA $0000
PEA $0000
LDY #$0006
LDA [$3C],Y
PHA
LDA $00
PHK
PER L9151+2
L9151 BRL LA49E
PEA $0000
PEA $0000
LDY #$0002
LDA [$3C],Y
PHA
LDA $00
PHK
PER L9166+2
L9166 BRL LA49E
LDY #$00C8
LDA [$3C],Y
BNE L9181
LDY #$00C6
LDA [$3C],Y
STA $0E
LDA #$0000
LDY #$00C6
STA [$3C],Y
BRA L91B2
L9181 LDY #$00C6
LDA [$3C],Y
BEQ L919D
PEA $0000
PHA
PEI $2E
PEI $2C
LDY #$0004
LDA [$3C],Y
PHA
PHK
PER L919A+2
L919A BRL LA580
L919D PEA $0000
PEA $0000
LDY #$0004
LDA [$3C],Y
PHA
LDA $00
PHK
PER L91AF+2
L91AF BRL LA49E
L91B2 LDA #$072D
CLC
ADC $3C
STA $44
LDA $00
ADC $3E
STA $46
LDA $44
LDY #$001C
STA [$3C],Y
LDA $46
LDY #$001E
STA [$3C],Y
LDY #$5552
LDX #$004E
PHK
PER L91D8+2
L91D8 BRL *-L0319
PEI $46
PEI $44
LDA #$00B3
LDX #$0100
PHK
PER L91E9+2
L91E9 BRL LA354
BCC L91F1
BRL *-L049C
L91F1 LDY #$000E
STA [$3C],Y
LDY $28
STY $38
LDY $2A
STY $3A
PER L9201+2
L9201 BRL L9510
PHK
PHK
PER L9080
PLY
STY $34
PLY
STY $36
LDA #$1372
CLC
ADC #$0012
CLC
LDY #$0044
ADC [$3C],Y
LDY #$0008
STA [$38],Y
LDY #$0041
STA [$38],Y
CLC
ADC #$0245
AND #$FE00
XBA
LSR
STA [$38]
LDA #$4E49 ; IN
LDY #$0036
STA [$38],Y
LDA #$5449 ; IT
LDY #$0038
STA [$38],Y
LDA #$0045
STA $0A
STA $1C
PHK
PHK
PER L9085
PLY
STY $34
PLY
STY $36
LDY #$0044
LDA [$3C],Y
INC
INC
INC
INC
LDY #$000C
STA [$34],Y
LDA #$0012
PER L9267+2
L9267 BRL L9886
PER L926D+2
L926D BRL L952D
PHK
PHK
PER L9BD0
PLA
STA $34
PLA
STA $36
TDC
CLC
ADC #$0100
PHA
LDX $00
TXY
PHK
PER L9288+2
L9288 BRL LAA4C
LDX #$0001
LDY #$001A
LDA [$3C],Y
TAY
ASL
BPL L929A
LDX #$4001
L929A TYA
BIT #$0100
BEQ L92A5
TXA
ORA #$0008
TAX
L92A5 TYA
BIT #$0200
BEQ L92B0
TXA
ORA #$8000
TAX
L92B0 TYA
BIT #$0080
BEQ L92B8
INX
INX
L92B8 STY $72
LDY #$0088
LDA [$3C],Y
CLC
LDY #$008A
ADC [$3C],Y
BEQ L92CC
TXA
ORA #$0004
TAX
L92CC TXA
PHK
PER L92D1+2
L92D1 BRL LA875
LDA #$1372
PER L92DA+2
L92DA BRL L9886
PLA
LDX $00
TXY
DEY
PHK
PER L92E6+2
L92E6 BRL LAA4C
PER L92EC+2
L92EC BRL L983E
PER L92F2+2
L92F2 BRL L95F7
L92F5 PHK
PER L92F9+2
L92F9 BRL *-L0580
LDY $28
STY $38
LDY $2A
STY $3A
LDA $20
ASL
ASL
ASL
ASL
TAY
CLC
ADC #$000C
TAX
INY
INY
LDA [$E4],Y
STA $24
TXY
LDA [$E4],Y
STA $26
PER L931E+2
L931E BRL L9510
LDX $20
DEX
DEX
BNE L9334
PHK
PHK
PER L9ADD
PER L932F+2
L932F BRL L99B8
BRA L935D
L9334 LDY $26
LDA [$E0],Y
AND #$00FF
INC
CLC
STY $02
ADC $02
TAY
LDA [$E0],Y
PHA
PHY
LDA $00
STA [$E0],Y
LDA $26
INC
CLC
ADC $E0
PEI $E2
PHA
PER L9356+2
L9356 BRL L99B8
PLY
PLA
STA [$E0],Y
L935D LDA $24
LDY #$0008
STA [$38],Y
LDY #$0041
STA [$38],Y
CLC
ADC #$0245
AND #$FE00
XBA
LSR
STA [$38]
LDA $20
DEC
DEC
BEQ L9380
PER L937D+2
L937D BRL L9559
L9380 LDA #$0045
STA $0A
CLC
ADC $1C
STA $1C
BCC L938E
INC $1E
L938E STZ $14
LDA #$0005
PER L9396+2
L9396 BRL L96AE
BCC L939E
BRL L9B18
L939E PER L93A1+2
L93A1 BRL L959C
BCC L93A9
BRL L9B1D
L93A9 LDA $24
STA $42
PER L93B0+2
L93B0 BRL L95E0
LDA $20
DEC
DEC
BNE L93F7
LDA #$0010
PER L93BF+2
L93BF BRL L96AE
BCC L93C7
BRL L9B22
L93C7 PER L93CA+2
L93CA BRL L959C
BCC L93D2
BRL L9B27
L93D2 LDY #$0088
LDA [$3C],Y
STA $42
PER L93DC+2
L93DC BRL L95E0
PER L93E2+2
L93E2 BRL L959C
BCC L93EA
BRL L9B2C
L93EA LDY #$008A
LDA [$3C],Y
STA $42
PER L93F4+2
L93F4 BRL L95E0
L93F7 LDA $20
CMP $70
BEQ L9430
BCC L9402
BRL L9B68
L9402 LDA $24
SEC
SBC $14
PER L940A+2
L940A BRL L96AE
BCC L9412
BRL L9B31
L9412 PER L9415+2
L9415 BRL L983E
LDY #$0086
LDA [$3C],Y
DEC
LDY #$0086
STA [$3C],Y
TAX
BPL L9429
BRL L9B36
L9429 BEQ L942E
BRL L92F5
L942E BRA L9479
L9430 LDA $6E
SEC
SBC $14
PER L9438+2
L9438 BRL L96AE
PER L943E+2
L943E BRL L959C
LDY $6C
LDA $66
BEQ L946F
DEC
BEQ L946B
DEC
BEQ L9459
DEC
BEQ L9453
BRL L9B6D
L9453 TYA
SEC
SBC $6E
BRA L945B
L9459 LDA [$E0],Y
L945B STA $42
PER L9460+2
L9460 BRL L95E0
PER L9466+2
L9466 BRL L95F7
BRA L93F7
L946B LDA [$E0],Y
BRA L9471
L946F LDA [$E4],Y
L9471 SEC
SBC $14
CLC
ADC $42
BRA L945B
L9479 LDY #$0088
LDA [$3C],Y
CLC
LDY #$008A
ADC [$3C],Y
STA $24
TAX
BEQ L94A3
PHK
PHK
PER L9AEA
PER L9491+2
L9491 BRL L99B8
LDY #$0002
LDA [$3C],Y
STA $6A
STZ $66
PER L94A0+2
L94A0 BRL L995D
L94A3 LDA #$0080
BIT $72
BEQ L94C7
PHK
PHK
PER L9B02
PER L94B2+2
L94B2 BRL L99B8
PER L99E7
PER L94BB+2
L94BB BRL L9918
PER L99F3
PER L94C4+2
L94C4 BRL L9918
L94C7 LDA $40
TCS
L94CA PER L94CD+2
L94CD BRL L990D
PHK
PHK
PER L9B16
LDX $F4
PHK
PER L94DB+2
L94DB BRL LAF42
PLA
PLA
LDY #$000E
LDA [$3C],Y
BEQ L94F6
PHA
LDA $00
LDY #$000E
STA [$3C],Y
PHK
PER L94F3+2
L94F3 BRL LA472
L94F6 LDY #$0006
LDA [$3C],Y
BEQ L950C
PHA
LDA $00
LDY #$0006
STA [$3C],Y
PHK
PER L9509+2
L9509 BRL LA472
L950C LDA $40
TCS
RTL
L9510 PER L9040
LDY $00
LDX #$0045
PHK
PLB
L951A LDA ($01,S),Y
STA [$38],Y
INY
INY
DEX
DEX
BMI L9526
BNE L951A
L9526 PLX
PER L952A+1
L952A BRA L9560
RTS
L952D LDY #$000A
PHY
L9531 PLY
LDA [$E0],Y
BEQ L9558
PHA
INC
INC
INC
TAY
LDA [$E0],Y
AND #$00FF
TAX
TYA
CLC
ADC $E0
STA $34
LDA $00
ADC $E2
STA $36
TXA
INC
INC
PER L9553+2
L9553 BRL L9886
BRA L9531
L9558 RTS
L9559 LDX #$0036
LDY $26
BRA L9578
L9560 INC $20
LDA $20
LDY #$0022
STA [$38],Y
LDY #$000A
LDX #$002C
LDA [$E0],Y
TAY
LDA [$E0],Y
TAY
INY
INY
INY
L9578 LDA [$E0],Y
AND #$00FF
CMP #$000A
BMI L9585
LDA #$000A
L9585 STA $04
INY
SEP #$20
L958A DEC $04
BMI L9599
LDA [$E0],Y
PHY
TXY
STA [$38],Y
PLY
INY
INX
BRA L958A
L9599 REP #$20
RTS
L959C LDA $12
BMI L95DE
SEC
SBC $10
BPL L95A8
BRL L9B3B
L95A8 BNE L95B2
PER L95AD+2
L95AD BRL L973D
BRA L959C
L95B2 LDY $10
LDA [$30],Y
STA $42
INY
TYA
CMP $12
BMI L95D9
PER L95C1+2
L95C1 BRL L973D
LDA $12
BMI L95DE
BEQ L95DE
INC $10
LDA #$FF00
TRB $42
XBA
AND [$30]
XBA
TSB $42
BRA L95DC
L95D9 INY
STY $10
L95DC CLC
RTS
L95DE SEC
RTS
L95E0 TDC
CLC
ADC #$0042
STA $34
STZ $36
LDA #$0002
INC $14
INC $14
PER L95F3+2
L95F3 BRL L9886
RTS
L95F7 PER L95FA+1
L95FA BRA L9638
BCS L9630
STA $66
PER L9603+1
L9603 BRA L9638
BCS L9635
STA $6E
PER L960C+1
L960C BRA L9638
BCS L9635
STA $6F
PER L9615+1
L9615 BRA L9638
BCS L9635
INC
STA $70
PER L961F+1
L961F BRA L9638
BCS L9635
STA $6C
PER L9628+1
L9628 BRA L9638
BCS L9635
XBA
TSB $6C
RTS
L9630 STZ $70
DEC $70
RTS
L9635 BRL L9B40
L9638 LDA $0E
BMI L9658
SEC
SBC $0C
BPL L9644
BRL L9B45
L9644 BNE L964D
PER L9649+1
L9649 BRA L965A
BRA L9638
L964D LDY $0C
LDA #$00FF
AND [$2C],Y
INC $0C
CLC
RTS
L9658 SEC
RTS
L965A LDA $0E
BMI L96AD
STZ $0C
LDY #$00C8
LDA [$3C],Y
BEQ L9672
DEC
LDY #$00C8
STA [$3C],Y
LDX #$01FE
BRA L9685
L9672 LDY #$00C6
LDA [$3C],Y
BNE L967D
STZ $0E
BRA L96AB
L967D TAX
LDA $00
LDY #$00C6
STA [$3C],Y
L9685 PEA $0000
STX $0E
PHX
PEI $2E
PEI $2C
LDY #$0004
LDA [$3C],Y
PHA
PHK
PER L9699+2
L9699 BRL LA585
BCC L96A1
BRL L9B4A
L96A1 CMP $0E
BEQ L96A8
BRL L9B4A
L96A8 TAX
BNE L96AD
L96AB DEC $0E
L96AD RTS
L96AE STA $1A
TAX
BEQ L970D
CLC
ADC $14
STA $14
L96B8 LDA $12
BMI L970B
SEC
SBC $10
BPL L96C4
BRL L9B4F
L96C4 BNE L96CD
PER L96C9+1
L96C9 BRA L973D
BRA L96B8
L96CD CMP $1A
BCC L96D3
LDA $1A
L96D3 PHA
LDA $1A
SEC
SBC $01,S
STA $1A
LDA $10
TAX
CLC
ADC $01,S
STA $10
TXA
CLC
ADC $30
STA $34
LDA $32
STA $36
PLA
PER L96F1+2
L96F1 BRL L9886
LDA $1A
BEQ L970D
STZ $10
STZ $12
LDY #$0006
LDA [$3C],Y
PER L9704+1
L9704 BRA L977F
SEC
SBC $18
BEQ L970D
L970B SEC
RTS
L970D CLC
RTS
L970F PEA $0000
PEA $1400
PEI $5E
PEI $5C
LDY #$0006
LDA [$3C],Y
PHA
PHK
PER L9723+2
L9723 BRL LA585
BCC L972B
BRL L9B54
L972B STA $60
TAX
BNE L9732
DEC $60
L9732 STZ $62
LDY $5C
STY $30
LDY $5E
STY $32
RTS
L973D LDA $12
BMI L977C
L9741 LDA $60
BPL L9749
STA $12
BRA L977C
L9749 BNE L9752
PER L974E+1
L974E BRA L970F
BRA L9741
L9752 LDA $62
STZ $62
CLC
ADC $30
STA $30
BCC L975F
INC $32
L975F LDA $60
CMP #$0200
BPL L976E
STZ $60
DEC $60
STZ $62
BRA L9773
L976E LDA #$0200
STA $62
L9773 STA $12
LDA $60
SEC
SBC $62
STA $60
L977C STZ $10
RTS
L977F STZ $18
PHA
L9782 LDA #$0200
SEC
SBC $0A
BMI L97E9
BNE L9794
L978C PER L978F+2
L978F BRL L98CE
BRA L9782
L9794 PEA $0000
PHA
LDA $1A
SEC
SBC $18
BEQ L97E5
CMP $01,S
BCS L97A5
STA $01,S
L97A5 LDA $0A
CLC
ADC $28
TAY
LDA $00
ADC $2A
PHA
PHY
LDA $09,S
LDY #$0006
CMP [$3C],Y
BEQ L97EF
PHA
PHK
PER L97BF+2
L97BF BRL LA585
BCS L97EC
L97C4 TAX
CLC
ADC $1C
STA $1C
BCC L97CE
INC $1E
L97CE TXA
CLC
ADC $18
STA $18
TXA
BEQ L97E1
CLC
ADC $0A
STA $0A
CMP #$0200
BEQ L978C
L97E1 LDA $18
PLX
RTS
L97E5 PLA
PLA
BRA L97E1
L97E9 BRL L9B59
L97EC BRL L9B7C
L97EF PLA
STA $B4
PLA
STA $B6
LDX $00
L97F7 PLY
DEY
PHY
BMI L9839
L97FC LDA $12
BMI L9839
SEC
SBC $10
BNE L9811
PHY
PHX
PER L980A+2
L980A BRL L973D
PLX
PLY
BRA L97FC
L9811 DEC
BEQ L9829
DEY
BMI L9829
PLY
DEY
PHY
LDY $10
INC $10
INC $10
LDA [$30],Y
TXY
STA [$B4],Y
INX
INX
BRA L97F7
L9829 SEP #$20
LDY $10
LDA [$30],Y
TXY
STA [$B4],Y
INX
REP #$20
INC $10
BRA L97F7
L9839 PLA
PLA
TXA
BRA L97C4
L983E TDC
CLC
ADC #$0042
STA $34
STZ $36
STZ $42
LDA #$0001
PER L984F+1
L984F BRA L9886
LDX #$6161
LDY $0A
BEQ L9885
TYA
LSR
BCC L9866
TXA
STA [$28],Y
INY
INC $1C
BNE L9866
INC $1E
L9866 TXA
L9867 CPY #$0200
BPL L987E
STA [$28],Y
INY
INY
INC $1C
BNE L9876
INC $1E
L9876 INC $1C
BNE L9867
INC $1C
BRA L9867
L987E STY $0A
PER L9883+1
L9883 BRA L98CE
L9885 RTS
L9886 STA $08
CLC
ADC $1C
STA $1C
BCC L9891
INC $1E
L9891 LDY $0A
LDX $00
TYA
LSR
BCC L98A3
LDA [$34]
STA [$28],Y
INY
INX
DEC $08
BEQ L98CB
L98A3 CPY #$0200
BMI L98B8
BEQ L98AD
BRL L9B5E
L98AD STY $0A
PER L98B2+1
L98B2 BRA L98CE
LDY $0A
BRA L98A3
L98B8 PHY
TXY
LDA [$34],Y
PLY
STA [$28],Y
INX
INX
INY
DEC $08
BEQ L98CB
INY
DEC $08
BNE L98A3
L98CB STY $0A
RTS
L98CE PHY
PHX
CLC
LDA $0A
BEQ L9908
CLC
ADC $28
STA $28
BCC L98DE
INC $2A
L98DE SEC
SBC $CE
CMP #$1200
BCC L9908
L98E6 PEA $0000
PHA
PEI $D0
PEI $CE
LDY #$000E
LDA [$3C],Y
PHA
PHK
PER L98F8+2
L98F8 BRL LA580
BCC L9900
BRL L9B63
L9900 LDY $CE
STY $28
LDY $D0
STY $2A
L9908 STZ $0A
PLX
PLY
RTS
L990D PHY
PHX
LDA $28
SEC
SBC $CE
BEQ L9908
BRA L98E6
L9918 PLX
PLA
PHX
STA $24
PHK
PHK
PLA
STA $26
PHK
PER L9926+2
L9926 BRL LA005
BCS L9956
STA $6A
PHA
PHK
PER L9932+2
L9932 BRL LA537
BCS L994D
STA $24
LDA #$0080
STA $66
PER L9941+1
L9941 BRA L995D
PEI $6A
PHK
PER L9949+2
L9949 BRL LA472
RTS
L994D PEI $6A
PHK
PER L9953+2
L9953 BRL LA472
L9956 PLA
PER L99FF
BRL L9B8D
L995D LDY $28
STY $38
LDY $2A
STY $3A
PER L9968+2
L9968 BRL L9510
LDA $66
LDY #$000C
ORA [$38],Y
LDY #$000C
STA [$38],Y
LDA $24
LDY #$0008
STA [$38],Y
LDY #$0041
STA [$38],Y
CLC
ADC #$0244
AND #$FE00
XBA
LSR
STA [$38]
LDA #$0045
STA $0A
CLC
ADC $1C
STA $1C
BCC L999C
INC $1E
L999C LDA $24
STA $1A
LDA $6A
PER L99A5+2
L99A5 BRL L977F
SEC
SBC $1A
BEQ L99B1
PLA
BRL L9B72
L99B1 PER L99B4+2
L99B4 BRL L983E
RTS
L99B8 PLX
PLY
PLA
PHX
PHA
PHY
BIT $F4
BVS L99C9
PHK
PHK
PER L9ABA
BRA L99D9
L99C9 PHK
PHK
PER L9AAD
PEI $D8
PEI $D6
_MoveTo
L99D9 LDX $F4
PHK
PER L99DF+2
L99DF BRL LAF42
PLA
PLA
PLA
PLA
RTS
L99E7 STR '0/BASIC.1L'
DB $00
L99F3 STR '0/BASIC.2L'
DB $00
L99FF ASC 'Could not load Library files.'0D00
L9A1E ASC 'Volume full writing final file.'0D00
L9A3F ASC 'Prodos error %x writing final file.'0D00
ASC 'Compilation completed. File %s, length '
ASC '%d blocks.'0D00
L9A97 ASC 0D
ASC '***** %d error(s).'0D00
L9AAD ASC 'Writing'1A
ASC ' %s.'00
L9ABA ASC 'Writing %s'0D00
L9AC6 ASC 'Initialization Segment'00
L9ADD ASC 'Main Program'00
L9AEA ASC 'String and Data Segment'00
L9B02 ASC 'Run Time Libraries.'00
L9B16 ASC 0D00
L9B18 PEA $0001
BRA L9B7F
L9B1D PEA $0002
BRA L9B7F
L9B22 PEA $0003
BRA L9B7F
L9B27 PEA $0004
BRA L9B7F
L9B2C PEA $0005
BRA L9B7F
L9B31 PEA $0006
BRA L9B7F
L9B36 PEA $0007
BRA L9B7F
L9B3B PEA $0008
BRA L9B7F
L9B40 PEA $0009
BRA L9B7F
L9B45 PEA $000A
BRA L9B7F
L9B4A PEA $000B
BRA L9B7F
L9B4F PEA $000C
BRA L9B7F
L9B54 PEA $000D
BRA L9B7F
L9B59 PEA $000E
BRA L9B7F
L9B5E PEA $000F
BRA L9B7F
L9B63 PEA $0010
BRA L9B7F
L9B68 PEA $0011
BRA L9B7F
L9B6D PEA $0012
BRA L9B7F
L9B72 PEA $0013
BRA L9B7F
PEA $0015
BRA L9B7F
L9B7C PEA $0016
L9B7F CMP #$0048
BNE L9B89
PER L9A1E
BRA L9B8D
L9B89 PHA
PER L9A3F
L9B8D PLA
PHK
PHK
PHA
LDX $F4
PHK
PER L9B97+2
L9B97 BRL LAF42
PEA $0000
PEA $0000
_ReadChar
PLA
BRL LA3FA
LDA $40
TCS
LDA #$0004
TRB $72
LDY #$000E
LDA [$3C],Y
BEQ L9BCC
PEA $0000
PEA $0000
PHA
PHK
PER L9BC8-1
BRL LA487
L9BC8 LDA $CE
STA $28
L9BCC BRL L94CA
DB $00
L9BD0 PER L9BD6-1
BRL L9F37
L9BD6 STZ $00
PHA
LDA $01,S
BPL L9C15
PHK
PER L9BE4-1
BRL LA89B
L9BE4 AND #$8000
PHA
LDX $00
TDC
CLC
ADC #$0100
TXY
DEY
PHK
PER L9BF5+2
L9BF5 BRL LAA4C
PHK
PER L9BFC+2
L9BFC BRL LA89B
TAX
AND #$8000
CMP $01,S
BNE L9C0B
PLA
BRL L9CA0
L9C0B PLA
PHK
PER L9C10+2
L9C10 BRL LACE1
BRA L9C75
MX %00
L9C15 TDC
PHA
LDA #$1B00
LDX $00
LDY $00
PHK
PER L9C22+2
L9C22 BRL LA622
BCC L9C2A
BRL L9F59
L9C2A PHA
PEA $0000
PLB
PLB
LDY #$0000
TYA
LDX #$0D80
L9C37 STA ($01,S),Y
INY
INY
DEX
BEQ L9C40
BPL L9C37
L9C40 PLA
PLY
TCD
STZ $00
STY $FC
PLX
STX $26
PLA
STA $28
LDA $26
BEQ L9C59
PLA
STA $1C
PHK
PLA
XBA
STA $1E
L9C59 TSC
STA $FE
TDC
CLC
ADC #$0F7E
TCS
PEA $0000
PEA $0000
TSC
STA $94
PEI $28
PEI $26
LDA $26
LSR
LSR
BCS L9CA0
L9C75 PHK
PER L9C79+2
L9C79 BRL LAA83
BCC L9C81
BRL L9F65
L9C81 PHK
PER L9C85+2
L9C85 BRL LA89B
LDY #$0100
BIT #$0008
BEQ L9C93
LDY #$0500
L9C93 ASL
TAX
TYA
TXY
BPL L9C9C
ORA #$0200
L9C9C ORA $01,S
STA $01,S
L9CA0 PER L9CA3+2
L9CA3 BRL LA008
PHK
PER L9CAA+2
L9CAA BRL LA8A5
STA $BC
STZ $BA
PLA
XBA
STA $EC
BIT $EB
BPL L9CC6
PEA $0000
_MMStartUp
PLX
STX $BA
L9CC6 PHK
PLB
LDY #$0000
TDC
STA ($01,S),Y
INY
INY
TSC
INC
INC
STA ($01,S),Y
PLA
STA $6C
PHK
PHK
PER LA1C7
PLA
STA $F0
PLA
STA $F2
STA $6E
STA $26
BIT $EB
BPL L9CEE
BRL L9DE3
L9CEE LDA $ED
LSR
BCS L9D5D
PHK
PER L9CF7+2
L9CF7 BRL LA89B
LSR
LSR
BCC L9D5D
STZ $B4
LSR
BCC L9D05
INC $B4
L9D05 LDX #$0002
PER L9D0B+2
L9D0B BRL LA19D
BCC L9D13
BRL L9F59
L9D13 LDY #$0003
LDA [$34],Y
INC
INC
CLC
ADC $B4
STA $A4
AND #$FF00
BEQ L9D27
BRL L9F5F
L9D27 PER L9D2A+1
L9D2A BRA L9D3E
STA $F8
STX $FA
INC $A4
PER L9D35+1
L9D35 BRA L9D3E
STA $F4
STX $F6
BRL L9DCB
L9D3E PEA $0000
PEA $0000
PEI $BC
PEA $0001
PEI $A4
_LoadSegNum
PLA
PLX
BCS L9D57
RTS
L9D57 PER LA0A8
BRL LA160
L9D5D PER L9FDB
PLY
STY $24
PER L9D66+2
L9D66 BRL LA05F
LDY $28
STY $F8
LDY $2A
STY $FA
PER L9FE7
PLX
LDA $ED
LSR
BCC L9DBB
PER L9FCF
PLX
STX $24
PER L9D83+2
L9D83 BRL LA05F
LDY $28
STY $EC
LDY $2A
STY $EE
PHK
PHK
PER LA001
PLY
STY $28
PLY
STY $2A
LDY #$0001
LDA [$24],Y
STA [$28],Y
PEI $2A
PEI $28
PEA $0007
PHK
PER L9DAB+2
L9DAB BRL LA57B
PEI $1D
PLB
PEI $1C
TDC
CLC
ADC #$0F7E
STA $A2
RTL
L9DBB STX $24
PER L9DC0+2
L9DC0 BRL LA05F
LDY $28
STY $F4
LDY $2A
STY $F6
L9DCB LDX #$1700
PHK
PER L9DD6
PEI $FA
PEI $F8
L9DD6 RTL
LDX #$0E00
PHK
PER L9DE2
PEI $F6
PEI $F4
L9DE2 RTL
L9DE3 LDX #$0002
PER L9DE9+2
L9DE9 BRL LA19D
BCC L9DF1
BRL L9F59
L9DF1 LDY $34
STY $B6
LDY $36
STY $B8
LDY #$0003
LDA [$34],Y
STA $A4
AND #$FF00
BEQ L9E08
BRL L9F5F
L9E08 LDA $AA
STA $14
LDA $AC
STA $16
LDA $BA
BNE L9E18
STZ $14
STZ $16
L9E18 INY
INY
INY
INY
LDA [$34],Y
STA $AE
INY
INY
LDA [$34],Y
STA $B0
LDY #$0013
LDA [$34],Y
STA $AA
INY
INY
LDA [$34],Y
STA $AC
INY
INY
LDA [$34],Y
STA $B2
INY
INY
LDA [$34],Y
STA $B4
CLC
ADC $B2
BEQ L9E68
LDX $A4
INX
INX
PER L9E4B+2
L9E4B BRL LA19D
BCC L9E53
BRL L9F5F
L9E53 LDY $34
STY $80
LDY $36
STY $82
LDA $34
CLC
ADC $B2
STA $84
LDA $00
ADC $36
STA $86
L9E68 LDX $00
LDA $AC
LDY #$8054
PHK
PER L9E73+2
L9E73 BRL L9F6B
BCC L9E7B
BRL L9F59
L9E7B LDA $16
CLC
ADC $54
STA $24
LDA $56
BCC L9E87
INC
L9E87 STA $26
LDA $AC
SEC
SBC $16
BCC L9E96
PER L9E93+2
L9E93 BRL L9F7A
L9E96 LDX $00
LDA $AA
LDY #$8050
PHK
PER L9EA1+2
L9EA1 BRL L9F6B
BCC L9EA9
BRL L9F59
L9EA9 LDA $14
CLC
ADC $50
STA $24
LDA $52
BCC L9EB5
INC
L9EB5 STA $26
LDA $AA
SEC
SBC $16
BCC L9EC4
PER L9EC1+2
L9EC1 BRL L9F7A
L9EC4 LDX $00
LDA $B0
LDY #$805C
PER L9ECE+2
L9ECE BRL L9F6B
BCC L9ED6
BRL L9F59
L9ED6 LDY $5C
STY $24
LDY $5E
STY $26
LDA $B0
PER L9EE3+2
L9EE3 BRL L9F7A
LDX $00
LDA $AE
LDY #$8058
PER L9EF0+1
L9EF0 BRA L9F6B
BCS L9F59
LDY $58
STY $24
LDY $5A
STY $26
LDA $AE
PER L9F01+1
L9F01 BRA L9F7A
LDX $BA
BNE L9F2A
PEA $0000
PEA $0000
_MaxBlock
PLY
PLA
LSR
TAX
TYA
ROR
STX $A8
STA $A6
LDY #$803C
PHK
PER L9F25+2
L9F25 BRL LA622
BCS L9F59
L9F2A LDA $94
TCS
PHK
PER L9F56+2
PEI $F6
PEI $F4
BRA L9F38
L9F37 RTS
L9F38 LDA $F4
CLC
ADC #$6D60
BCS L9F4C
LDA $F8
CLC
ADC #$61A8
BCS L9F4C
LDX #$0B00
RTL
L9F4C PHK
PER L9F50+2
L9F50 BRL LACE1
PER LA0CC
L9F56 BRL LA160
L9F59 PER LA0F0
BRL LA160
L9F5F PER LA10D
BRL LA160
L9F65 PER LA142
BRL LA160
L9F6B PHA
PLA
BNE L9F72
LDA #$0100
L9F72 PHK
PER L9F76+2
L9F76 BRL LA622
RTS
L9F7A TAX
BEQ L9F9D
LDY #$0000
LSR
BCC L9F92
TYA
DEX
BNE L9F8F
SEP #$20
STA [$24]
REP #$20
BRA L9F9D
L9F8F STA [$24],Y
INY
L9F92 LDA #$0000
L9F95 STA [$24],Y
INY
INY
DEX
DEX
BNE L9F95
L9F9D RTS
L9F9E STR '4/BASIC.OVERLAYS/'
DB $00
L9FB1 STR '*/SYSTEM/'
DB $00
L9FBC STR '1/BASIC.OVERLAYS/'
DB $00
L9FCF STR '0/BASIC.0L'
DB $00
L9FDB STR '0/BASIC.1L'
DB $00
L9FE7 STR '0/BASIC.2L'
DB $00
L9FF3 ASC '0/'
ASC '1/'
ASC '3/'
ASC '4/'
ASC '5/'
ASC '*/'
DB $00
DB $00
LA001 STR '0/'
DB $00
LA005 PER LA036
LA008 PHK
PHK
PER L9FBC
PEA $0003
PHK
PER LA014+2
LA014 BRL LA57B
PHK
PHK
PER L9FB1
PEA $0004
PHK
PER LA023+2
LA023 BRL LA57B
PHK
PHK
PER L9F9E
PEA $0005
PHK
PER LA032+2
LA032 BRL LA57B
RTS
LA036 NOP
LA037 LDY #$0000
LA03A PER L9FF3
PHK
PLB
LDA ($01,S),Y
BEQ LA05C
PLX
PHY
LDY #$0001
STA [$24],Y
PEI $26
PEI $24
PHK
PER LA052+2
LA052 BRL LA2FC
PLY
BCC LA05E
INY
INY
BRA LA03A
LA05C PLX
SEC
LA05E RTL
LA05F PHK
PER LA063+1
LA063 BRA LA037
STA $04
BCC LA06F
LA069 PER LA0A8
BRL LA160
LA06F PHA
PHK
PER LA074+2
LA074 BRL LA537
BCS LA069
PHX
PHA
LDY #$4000
PHK
PER LA082+2
LA082 BRL LA622
BCC LA08D
PER LA0F0
BRL LA160
LA08D STA $28
STX $2A
PHX
PHA
PEI $04
PHK
PER LA099+2
LA099 BRL LA585
BCS LA069
PEI $04
PHK
PER LA0A4+2
LA0A4 BRL LA472
RTS
LA0A8 ASC 'Failing read of run-time libraries.'00
LA0CC ASC 'Run-time lib crosses bank boundary.'00
LA0F0 ASC 'Not enough memory available.'00
LA10D ASC 'Chained file has wrong format.'00
LA12C ASC 'Type any key to exit.'00
LA142 ASC 'Failing load of system tools.'00
LA160 LDA #$0014
TAY
LA164 PLX
PHA
PHK
PHK
PHX
PER LA16C+1
LA16C BRA LA193
_DrawCString
PLA
TAY
CMP #$0014
BNE LA182
ASL
PER LA12C
BRA LA164
LA182 PEA $0000
PEA $0000
_ReadChar
PLA
BRL LA3FA
LA193 PHY
PHA
_MoveTo
RTS
LA19D LDA $BA
BNE LA1A3
LDA $BC
LA1A3 PHA
PEA $0001
PHX
PEI $00
TDC
CLC
ADC #$0032
PHA
_GetLoadSegInfo
BCS LA1C6
LDY #$0002
LDA [$34]
TAX
LDA [$34],Y
STA $36
TXA
STA $34
LA1C6 RTS
LA1C7 PHB
PLB
PHA
PER LA1D4
PLA
CLC
ADC $03,S
STA $03,S
PLA
LA1D4 RTS
BRL LA2FC
BRL LA354
BRL LA455
BRL LA472
BRL LA487
BRL LA49E
BRL LA580
BRL LA585
BRL LA622
BRL LA8A5
BRL LAF44
BRL LAF42
BRL LA3FA
BRL LA3F0
BRL LA537
BRL LA8B6
BRL LAA4C
BRL LA23B
BRL LA9CF
BRL LA98C
BRL LA966
BRL LAA83
BRL LACE1
BRL LB6E0
BRL LA8A0
BRL LB803
BRL LA875
BRL LA89B
BRL LA850
BRL LADE3
BRL LA565
BRL LA57B
BRL LAA7E
BRL LAC38
LA23B PHP
REP #$20
PHY
PHX
PHA
PHB
LDA $0A,S
PHA
LDA $02,S
LDX #$3D42
PER LA24D+1
LA24D BRA LA2B0
PLA
LDA $09,S
LDX #$3D50
PER LA258+1
LA258 BRA LA2B0
TDC
LDX #$3D44
PER LA261+1
LA261 BRA LA2B0
TSC
CLC
ADC #$000B
LDX #$3D53
PER LA26E+1
LA26E BRA LA2B0
LDA $06,S
LDX #$3D59
PER LA278+1
LA278 BRA LA2B0
LDA $04,S
LDX #$3D58
PER LA282+1
LA282 BRA LA2B0
LDA $02,S
LDX #$3D41
PER LA28C+1
LA28C BRA LA2B0
LDA #$0A0D
PER LA294+1
LA294 BRA LA2A2
XBA
PER LA29A+1
LA29A BRA LA2A2
PLB
PLA
PLX
PLY
PLP
RTL
LA2A2 PHA
AND #$007F
PHA
_WriteChar
PLA
RTS
LA2B0 PHA
TXA
PER LA2B5+1
LA2B5 BRA LA2A2
XBA
PER LA2BB+1
LA2BB BRA LA2A2
LDA $01,S
XBA
LSR
LSR
LSR
LSR
PER LA2C7+1
LA2C7 BRA LA2E9
LDA $01,S
XBA
PER LA2CF+1
LA2CF BRA LA2E9
LDA $01,S
LSR
LSR
LSR
LSR
PER LA2DA+1
LA2DA BRA LA2E9
LDA $01,S
PER LA2E1+1
LA2E1 BRA LA2E9
PLA
LDA #$0020
BRA LA2A2
LA2E9 AND #$000F
CMP #$000A
BPL LA2F6
ORA #$0030
BRA LA2FA
LA2F6 CLC
ADC #$0037
LA2FA BRA LA2A2
LA2FC LDA $06,S
AND #$00FF
STA $06,S
LDY #$0000
PHY
PLB
PHK
PHK
PLB
PER LA34A
PER LA338
LDA $03,S
STA ($01,S),Y
INY
INY
LDA $05,S
STA ($01,S),Y
PLA
LDA $08,S
STA ($01,S),Y
INY
INY
LDA $0A,S
STA ($01,S),Y
LDA $06,S
STA $0A,S
LDA $04,S
STA $08,S
PLA
PLA
PLA
PLA
JSL GSOS
DW $0010
LA338 ADRL $00000000
BCS LA349
PER LA34A
PHK
PLB
LDY #$0000
LDA ($01,S),Y
PLY
LA349 RTL
LA34A DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LA354 TAY
LDA $06,S
AND #$00FF
STA $06,S
TYA
LDY #$0002
PHY
PLB
PHK
PHK
PLB
PER LA3DE
PHA
PER LA3D9
LDA $07,S
STA ($01,S),Y
DEY
DEY
LDA $05,S
STA ($01,S),Y
PLA
LDA $0A,S
STA ($03,S),Y
INY
INY
LDA $0C,S
AND #$00FF
STA ($03,S),Y
INY
INY
INY
INY
PLA
STA ($01,S),Y
INY
INY
TXA
STA ($01,S),Y
PLA
PLA
LDA #$0001
PER LA398+1
LA398 BRA LA3C9
BCS LA39F
BRL LA2FC
LA39F CMP #$0047
SEC
BNE LA3BC
LDA #$0002
PER LA3AB+1
LA3AB BRA LA3C9
BCS LA3BC
LDA #$0001
PER LA3B5+1
LA3B5 BRA LA3C9
BCS LA3BC
BRL LA2FC
LA3BC TAX
LDA $01,S
STA $05,S
LDA $02,S
STA $06,S
PLA
PLA
TXA
RTL
LA3C9 PHK
PLB
PER LA3D7
LDY $00
STA ($01,S),Y
PLA
JSL GSOS
LA3D7 DW $0001
LA3D9 ADRL $00000000
RTS
LA3DE DB $00
DB $00
DB $00
DB $00
DB $C3
DB $00
DB $B0
DB $00
DB $03
DB $00
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
LA3F0 STA $08
TXA
AND #$00FF
STA $0A
BRA LA3FE
LA3FA STZ $08
STZ $0A
LA3FE PHK
PER LA402+2
LA402 BRL LACE1
PEA $0000
_MMStartUp
PLA
PEA $0000
PHA
PEA $0000
PHA
PHA
PER LA41F-1
BRL LA942
LA41F _DisposeAll
_MMShutDown
_UserShutDown
PLA
_TLShutDown
LDA #$0000
PHA
PHA
PEA $0000
PEI $0A
PEI $08
PHK
PHA
LDA #$0029
PER LA453-1
BRL LA5CB
LA453 BRK $F0
LA455 LDA $06,S
AND #$00FF
STA $06,S
LDA #$0002
PER LA465-1
LA465 BRL LA5CB
TAY
LDA $02,S
STA $06,S
LDA $01,S
STA $05,S
PLA
PLA
TYA
RTL
LA472 LDA #$0014
PER LA47B-1
BRL LA5CB
LA47B TAY
LDA $02,S
STA $04,S
LDA $01,S
STA $03,S
PLA
TYA
RTL
LA487 LDA #$0018
PER LA490-1
BRL LA5CB
LA490 TAY
LDA $02,S
STA $08,S
LDA $01,S
STA $07,S
PLA
PLA
PLA
TYA
RTL
LA49E TAX
BMI LA500
DEC
BEQ LA4B1
BPL LA4DF
LDA #$0016
PER LA4AC+2
LA4AC BRL LA5CB
BRA LA4EA
LA4B1 LDA #$0017
PER LA4B7+2
LA4B7 BRL LA5CB
BCS LA4EA
LA4BC PER LA616
PHK
PLB
LDY #$0000
LDA ($01,S),Y
CLC
ADC $08,S
STA $08,S
INY
INY
LDA ($01,S),Y
ADC $0A,S
STA $0A,S
PLA
LDA #$0016
PER LA4DA+2
LA4DA BRL LA5CB
BRA LA4EA
LA4DF LDA #$0019
PER LA4E5+2
LA4E5 BRL LA5CB
BCC LA4BC
LA4EA BCS LA4F2
PER LA4EF+1
LA4EF BRA LA554
CLC
LA4F2 TAY
LDA $02,S
STA $08,S
LDA $01,S
STA $07,S
PLA
PLA
PLA
TYA
RTL
LA500 LDA #$0017
PER LA506+2
LA506 BRL LA5CB
BCS LA4F2
PER LA50E+1
LA50E BRA LA554
STA $06,S
TXA
STA $08,S
LDA #$0019
PER LA51B+2
LA51B BRL LA5CB
BCS LA4F2
PER LA523+1
LA523 BRA LA554
LDY #$0000
SEC
SBC $06,S
BNE LA533
TXA
SBC $08,S
BNE LA533
DEY
LA533 TYA
CLC
BRA LA4F2
LA537 LDA #$0019
PER LA53D+2
LA53D BRL LA5CB
TAY
LDA $02,S
STA $04,S
LDA $01,S
STA $03,S
PLA
TYA
BCC LA54E
RTL
LA54E PER LA551+1
LA551 BRA LA554
RTL
LA554 PER LA616
PHK
PLB
LDY #$0002
LDA ($01,S),Y
TAX
DEY
DEY
LDA ($01,S),Y
PLY
RTS
LA565 LDA #$000A
LA568 PER LA56B+1
LA56B BRA LA5CB
TAY
LDA $02,S
STA $08,S
LDA $01,S
STA $07,S
TYA
PLY
PLY
PLY
RTL
LA57B LDA #$0009
BRA LA568
LA580 LDX #$0013
BRA LA588
LA585 LDX #$0012
LA588 LDA $08,S
AND #$00FF
STA $08,S
TXA
PER LA593+1
LA593 BRA LA5CB
TAX
LDA $02,S
STA $0C,S
LDA $01,S
STA $0B,S
BCS LA5B8
TSC
CLC
ADC #$000A
TCS
LDY #$0002
PER LA61E
PHK
PLB
LDA ($01,S),Y
TAX
DEY
DEY
LDA ($01,S),Y
PLY
CLC
RTL
LA5B8 TSC
CLC
ADC #$000A
TCS
TXA
CMP #$004C
SEC
BNE LA5CA
CLC
LDA #$0000
TAX
LA5CA RTL
LA5CB LDY #$0000
PHY
PLB
PHK
PHK
PLB
PER LA614
PER LA60D
STA ($01,S),Y
INY
INY
LDA $03,S
STA ($01,S),Y
INY
INY
LDA $05,S
STA ($01,S),Y
PLA
LDY #$0000
LDA $0A,S
STA ($01,S),Y
INY
INY
LDA $0C,S
STA ($01,S),Y
INY
INY
LDA $0E,S
STA ($01,S),Y
INY
INY
LDA $10,S
STA ($01,S),Y
INY
INY
LDA $12,S
STA ($01,S),Y
PLA
PLA
JSL GSOS
LA60D DW $0000
ADRL $00000000
RTS
LA614 DB $00
DB $00
LA616 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LA61E DB $00
DB $00
DB $00
DB $00
LA622 PEI $04
PHA
TSC
STA $04
TYA
AND #$00FF
BEQ LA66B
PHX
PHY
PER LA633+2
LA633 BRL LA909
BCS LA669
PHY
PER LA63C+2
LA63C BRL LA7D6
PLY
INY
INY
PLA
PLX
PLA
PHX
PHA
PER LA794
PHK
PLB
LDA ($01,S),Y
TAX
INY
INY
LDA ($01,S),Y
PLY
PHA
PHX
_SetHandleSize
PHP
PHA
PER LA662+2
LA662 BRL LA7DF
PLX
PLP
BRA LA6B0
LA669 PLY
PLX
LA66B PLA
PEA $0000
PEA $0000
PHX
PHA
TYA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PER LA794
PHK
PLB
LDY #$0000
STA ($01,S),Y
INY
INY
LDA ($01,S),Y
BNE LA6B9
_TLStartUp
PEA $0000
_MMStartUp
TAX
PLA
BCS LA6AF
LDY #$0004
PHK
PLB
STA ($01,S),Y
BRA LA6C7
LA6AF SEC
LA6B0 LDA $04
TCS
PLA
PLA
STA $04
TXA
RTL
LA6B9 CMP #$003C
BMI LA6C3
LDX #$0201
BRA LA6AF
LA6C3 INY
INY
LDA ($01,S),Y
LA6C7 STA $09,S
LDY #$0000
LDA ($01,S),Y
LDX #$C000
AND #$00FF
BEQ LA6D9
LDX #$8000
LA6D9 LDA ($01,S),Y
BMI LA6E6
ASL
BMI LA6E9
TXA
ORA #$0005
BRA LA6ED
LA6E6 TXA
BRA LA6ED
LA6E9 TXA
ORA #$0010
LA6ED STA $07,S
LDY #$0002
TAX
LDA #$0006
CLC
ADC ($01,S),Y
TAY
TXA
AND #$FF00
STA ($01,S),Y
TYX
LDY #$0000
LDA ($01,S),Y
AND #$00FF
TXY
ORA ($01,S),Y
STA ($01,S),Y
PLA
PER LA712+2
LA712 BRL LA7D6
LDY #$AAA0
LDA $05,S
TAX
_NewHandle
PHP
PHA
PER LA727+2
LA727 BRL LA7DF
PLX
PLP
PER LA794
BCC LA734
BRL LA6AF
LA734 PHK
PLB
LDA #$0006
LDY #$0002
CLC
ADC ($01,S),Y
TAX
LDA #$0006
CLC
ADC ($01,S),Y
STA ($01,S),Y
TXY
INY
INY
LDA $03,S
STA ($01,S),Y
INY
INY
LDA $05,S
STA ($01,S),Y
XBA
STA $01,S
PLB
PLB
LDY #$0002
LDA ($01,S),Y
STA $03,S
DEY
DEY
LDA ($01,S),Y
STA $01,S
PER LA794
PHK
PLB
LDA #$00FF
AND ($01,S),Y
BEQ LA77F
TAX
LDA $03,S
STA $00,X
LDA $05,S
AND #$00FF
STA $02,X
LA77F PLA
LDA $03,S
LDA $01,S
PLA
PLX
PLY
STY $04
RTL
LA78A DB $00
DB $00
DB $00
DB $00
LA78E DB $00
DB $00
LA790 DB $00
DB $00
DB $00
DB $00
LA794 DB $00
DB $00
DB $00
DB $00
LA798 DB $00
DB $00
LA79A DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LA7D6 LDX #$2202
PER LA7DC+1
LA7DC BRA LA7F0
RTS
LA7DF LDX #$2002
PER LA7E5+1
LA7E5 BRA LA7F0
LDX #$0000
PER LA7ED+1
LA7ED BRA LA7F0
RTS
LA7F0 PHX
PER LA794
PHK
PLB
LDY #$0002
LDA ($01,S),Y
PER LA79A
TAY
LA7FF DEY
DEY
BMI LA828
LDA ($01,S),Y
PHA
DEY
DEY
LDA ($03,S),Y
PHA
DEY
DEY
LDA ($05,S),Y
TAX
ASL
BMI LA824
TYA
STA $07,S
LDA $09,S
BEQ LA82C
TAX
JSL $E10000
LDA $03,S
TAY
BRA LA7FF
LA824 PLA
PLA
BRA LA7FF
LA828 PLA
PLA
PLA
RTS
LA82C TXA
AND #$00FF
BEQ LA824
TAX
LDA $03,S
XBA
PHA
PLB
PLB
LDY #$0000
LDA ($01,S),Y
STA $00,X
INY
INY
LDA ($01,S),Y
AND #$00FF
STA $02,X
PHK
PLB
LDA $07,S
TAY
BRA LA824
LA850 PER LA78E
PEA $0000
_GetMasterSCB
PHK
PLB
LDY #$0000
PLX
BEQ LA86C
LDA #$7FFF
AND ($01,S),Y
BRA LA871
LA86C LDA #$8000
ORA ($01,S),Y
LA871 STA ($01,S),Y
PLY
RTL
LA875 PER LA78E
PHK
PLB
LDY #$0000
STA ($01,S),Y
PLY
RTL
LA881 PHY
PHA
PER LA78E
PHK
PLB
LDY #$0000
CLV
LDA ($01,S),Y
LSR
BCC LA893
SEP #$40
LA893 ASL
ASL
STA $05,S
PLY
PLA
PLY
RTS
LA89B PER LA78E
BRA LA8A8
LA8A0 PER LA790
BRA LA8A8
LA8A5 PER LA798
LA8A8 LDY #$0002
PHK
PLB
LDA ($01,S),Y
TAX
DEY
DEY
LDA ($01,S),Y
PLY
RTL
LA8B6 PER LA8B9+1
LA8B9 BRA LA909
BCC LA8BE
RTL
LA8BE PHA
PER LA794
PHK
PLB
INY
INY
LDA ($01,S),Y
PHX
TAX
INY
INY
LDA ($03,S),Y
PHY
PHA
PHX
_DisposeHandle
PLY
PLX
PER LA78E
INY
INY
LA8DF DEX
DEX
DEX
BEQ LA8FA
BMI LA8FA
LDA ($03,S),Y
STA ($01,S),Y
INY
INY
LDA ($03,S),Y
STA ($01,S),Y
INY
INY
LDA ($03,S),Y
STA ($01,S),Y
INY
INY
BRA LA8DF
LA8FA PLY
LDY #$0002
LDA ($01,S),Y
SEC
SBC #$0006
STA ($01,S),Y
PLY
PLY
RTL
LA909 PHA
PER LA794
PHK
PLB
LDY #$0002
LDA ($01,S),Y
BEQ LA93F
BMI LA93F
CMP #$003D
BPL LA93F
LSR
TAX
INY
INY
INY
INY
LA923 LDA ($01,S),Y
AND #$00FF
CMP $03,S
BEQ LA93B
INY
INY
INY
INY
INY
INY
DEX
DEX
DEX
BEQ LA93F
BMI LA93F
BRA LA923
LA93B CLC
LA93C PLA
PLA
RTS
LA93F SEC
BRA LA93C
LA942 PER LA794
PHK
PLB
LDY #$0004
CMP ($01,S),Y
BEQ LA964
LDA ($01,S),Y
STA $01,S
BEQ LA964
PHA
PHA
_DisposeAll
_MMShutDown
LA964 PLA
RTS
LA966 LDA $06,S
AND #$00FF
STA $06,S
LDA $0A,S
AND #$00FF
STA $0A,S
LDA #$0004
PER LA97A+2
LA97A BRL LA5CB
TAX
LDA $02,S
STA $0A,S
LDA $01,S
STA $09,S
PLA
PLA
PLA
PLA
TXA
RTL
LA98C LDA $06,S
PHA
LDA $06,S
PHA
LDA $06,S
STA $0A,S
LDA $05,S
STA $09,S
TXA
STA $07,S
TYA
STA $05,S
PHK
PER LA9A4+1
LA9A4 BRA LA9CF
PLY
PLX
BCS LA9CE
PER LAA32
PHK
PLB
TYA
INY
BEQ LA9B8
LDY #$0008
STA ($01,S),Y
LA9B8 LDY #$0006
TXA
INX
BEQ LA9C1
STA ($01,S),Y
LA9C1 PLA
PER LAA2B
LDA #$0005
PER LA9CB+1
LA9CB BRA LAA22
PLX
LA9CE RTL
LA9CF PER LAA32
PHK
PLB
LDY #$0000
LDA $06,S
STA ($01,S),Y
LDA $08,S
AND #$00FF
INY
INY
STA ($01,S),Y
PLA
PER LAA2B
LDY #$0002
STA ($01,S),Y
INY
INY
PHK
PHK
PLA
AND #$00FF
STA ($01,S),Y
LDA #$0006
PER LA9FD+1
LA9FD BRA LAA22
PLX
BCS LAA13
PER LAA32
PHK
PLB
LDY #$0006
LDA ($01,S),Y
TAX
INY
INY
LDA ($01,S),Y
TAY
PLA
LAA13 PHA
LDA $04,S
STA $08,S
LDA $03,S
STA $07,S
PLA
STA $03,S
PLA
PLA
RTL
LAA22 LDY #$0000
STA ($03,S),Y
JSL GSOS
LAA2B DW $0006
ADRL $00000000
RTS
LAA32 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LAA4C PEI $3E
PEI $3C
STA $3C
STX $3E
PHK
PLB
PER LA78A
TYX
LDY #$0000
LAA5D TXA
BPL LAA66
LDA [$3C],Y
STA ($01,S),Y
BRA LAA6F
LAA66 LDA ($01,S),Y
STA [$3C],Y
TXA
BNE LAA6F
STA ($01,S),Y
LAA6F INY
INY
CPY #$004C
BMI LAA5D
PLA
PLA
STA $3C
PLA
STA $3E
RTL
LAA7E LDA #$8000
BRA LAA86
LAA83 LDA #$0000
LAA86 PEI $06
PEI $04
STZ $04
STA $06
PER LA78A
PHK
PLB
LDY #$000E
LDA ($01,S),Y
STA $01,S
_MTStartUp
BCC LAAA6
BRL LAC27
LAAA6 LDA #$0008
TSB $04
_QDShutDown
_CtlShutDown
LDA $01,S
TAX
TDC
CLC
ADC #$1000
PHA
LDA #$0080
PER LAAC8+2
LAAC8 BRL LA881
BCC LAAD0
LDA #$0000
LAAD0 PHA
PEA $00A0
PHX
_QDStartUp
BCC LAAE1
BRL LAC27
LAAE1 LDA $01,S
TAX
LDA #$0010
TSB $04
TDC
CLC
ADC #$1300
PHA
PEA $0014
PEA $0000
LDA #$0280
PER LAAFB+2
LAAFB BRL LA881
BCC LAB01
LSR
LAB01 PHA
PEA $0000
PEA $00C8
PHX
_EMStartUp
BCC LAB15
BRL LAC27
LAB15 LDA #$0040
TSB $04
BIT $06
BMI LAB2F
PHK
PHK
PER LAC9F
_LoadTools
BCC LAB2F
BRL LAC27
LAB2F PLX
PHX
PHX
_WindStartUp
LDA #$4000
TSB $04
PEA $0000
PEA $0000
_RefreshDesktop
PLX
PHX
PHX
TDC
CLC
ADC #$1400
PHA
_CtlStartUp
BCC LAB60
BRL LAC27
LAB60 PLX
PHX
PHX
LDA #$0001
TSB $06
TDC
CLC
ADC #$1600
PHA
_MenuStartUp
BCC LAB7A
BRL LAC27
LAB7A LDA #$8000
TSB $04
PLX
PHX
PHX
TDC
CLC
ADC #$1500
PHA
_LEStartUp
BCC LAB94
BRL LAC27
LAB94 LDA #$0010
TSB $06
PEA $0100
_LESetScrapLen
PLX
PHX
PHX
_DialogStartUp
BCS LAC27
LDA #$0020
TSB $06
_ScrapStartUp
BCS LAC27
LDA #$0040
TSB $06
_DeskStartUp
BCS LAC27
LDA #$0020
TSB $04
_QDAuxStartUp
BCS LAC27
LDA #$0004
TSB $06
TDC
CLC
ADC #$1800
PHA
_SoundStartUp
BCS LAC27
LDA #$0100
TSB $04
LDA #$0200
TSB $06
_ShowCursor
PEA $0014
PEA $0014
_MoveTo
PEA $0000
_SetBackColor
PEA $0007
_SetForeColor
PLY
PER LAC23+1
LAC23 BRA LAC81
CLC
RTL
LAC27 PLY
PHA
PER LAC2C+1
LAC2C BRA LAC81
PHK
PER LAC32+2
LAC32 BRL LACE1
PLA
SEC
RTL
LAC38 PER LA78A
LDY #$0002
PHK
PLB
LDA ($01,S),Y
BIT #$0800
CLC
BNE LAC7C
PHK
PER LAC4C+2
LAC4C BRL LA8A5
PHA
PHA
TDC
CLC
ADC #$1700
PHA
_FMStartUp
BCS LAC7E
TDC
CLC
ADC #$1A00
PHA
_PMStartUp
BCS LAC7C
PHK
PLB
LDY #$0002
LDA ($01,S),Y
ORA #$0808
STA ($01,S),Y
CLC
LAC7C PLY
RTL
LAC7E PLY
BRA LAC7C
LAC81 PER LA78A
PHK
PLB
LDY #$0000
LDA $04
STA ($01,S),Y
INY
INY
LDA $06
ASL
LSR
STA ($01,S),Y
PLX
PLX
PLA
STA $04
PLA
STA $06
PHX
RTS
LAC9F DB $10
DB $00
DB $04
DB $00
DB $00
DB $00
DB $05
DB $00
DB $00
DB $00
DB $06
DB $00
DB $00
DB $00
DB $08
DB $00
DB $00
DB $00
DB $0E
DB $00
DB $00
DB $00
DB $10
DB $00
DB $00
DB $00
DB $0F
DB $00
DB $00
DB $00
DB $12
DB $00
DB $00
DB $00
DB $13
DB $00
DB $00
DB $00
DB $14
DB $00
DB $00
DB $00
DB $15
DB $00
DB $00
DB $00
DB $16
DB $00
DB $00
DB $00
DB $17
DB $00
DB $00
DB $00
DB $19
DB $00
DB $00
DB $00
DB $1B
DB $00
DB $00
DB $00
DB $1C
DB $00
DB $00
DB $00
LACE1 PEI $04
STZ $04
PHK
PLB
PER LA78A
LDY #$0002
LDX #$000F
LDA ($01,S),Y
LSR
BCC LACF7
INC $04
LACF7 ASL
PHA
LDA #$0000
STA ($03,S),Y
PLA
LACFF BEQ LAD17
INX
LSR
BCC LACFF
PHA
CPX #$0011
BEQ LAD14
PHX
TXA
PHK
PER LAD11+1
LAD11 BRA LAD68
PLX
LAD14 PLA
BRA LACFF
LAD17 PHK
PLB
LDY #$0000
LDA ($01,S),Y
AND #$FFF8
TSB $04
TYA
STA ($01,S),Y
PLA
PER LAD4A
LAD2A LDA ($01,S),Y
BEQ LAD44
INY
INY
AND $04
BEQ LAD40
LDA ($01,S),Y
PHY
PHK
PER LAD3B+1
LAD3B BRA LAD68
PLY
PHK
PLB
LAD40 INY
INY
BRA LAD2A
LAD44 PLA
PLA
STA $04
CLC
RTL
LAD4A DB $00
DB $01
DB $08
DB $00
DB $20
DB $00
DB $05
DB $00
DB $00
DB $80
DB $0F
DB $00
DB $00
DB $40
DB $0E
DB $00
DB $01
DB $00
DB $10
DB $00
DB $40
DB $00
DB $06
DB $00
DB $10
DB $00
DB $04
DB $00
DB $00
DB $00
LAD68 ASC 'b>'00
PHK
PLB
ASL
TAY
LDA ($01,S),Y
BEQ LADA6
PLY
TAX
INC
BEQ LAD80
INC
BEQ LAD90
JSL $E10000
RTL
LAD80 PHK
PER LAD84+2
LAD84 BRL LA8A5
PHA
_MMShutDown
RTL
LAD90 PHK
PER LAD94+2
LAD94 BRL LA8A5
PEA $0000
PHA
PEA $0000
_LoaderShutDown
RTL
LADA6 PLA
CLC
RTL
DB $00
DB $00
DB $01
DB $03
DB $FF
DB $FF
DB $00
DB $00
DB $04
DB $03
DB $05
DB $03
DB $06
DB $03
DB $00
DB $00
DB $08
DB $03
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $0E
DB $03
DB $0F
DB $03
DB $10
DB $03
DB $FE
DB $FF
DB $12
DB $03
DB $13
DB $03
DB $14
DB $03
DB $15
DB $03
DB $16
DB $03
DB $17
DB $03
DB $00
DB $00
DB $19
DB $03
DB $00
DB $00
DB $1B
DB $03
DB $1C
DB $03
LADE3 PHD
PHY
PHX
PHA
TSC
SEC
SBC #$001B
TCD
DEC
TCS
STZ $00
PEA $0000
PEA $0000
_GetPort
PLY
PLX
BCC LAE05
BRL LAEC6
LAE05 STY $04
STX $06
PHK
PER LAE0D+2
LAE0D BRL LA850
STA $1A
PHK
PLB
PER LAECF
PER LAEF6
LDY #$0000
LDA ($03,S),Y
STA ($01,S),Y
PLA
PER LAF2E+2
INY
INY
TYX
LAE28 LDA ($03,S),Y
STA ($01,S),Y
INY
INY
LDA ($03,S),Y
BIT $1A
BPL LAE35
LSR
LAE35 STA ($01,S),Y
INY
INY
DEX
BNE LAE28
PLA
PER LAF2E
TXY
TXA
STA ($01,S),Y
INY
INY
STA ($01,S),Y
STA $01,S
STA $03,S
PHK
PHK
PER LAEF4
_NewWindow
BCS LAEBB
PLA
PLX
PHX
PHA
PHX
PHA
_SetPort
LDA #$0028
BIT $1A
BPL LAE70
LSR
LSR
LAE70 PHA
LDY $20
BNE LAE7A
LDX #$0017
BRA LAE93
LAE7A PHA
PEA $000F
_MoveTo
PEI $1E
PEI $1C
_DrawString
LDX #$001E
LAE93 PHX
_MoveTo
LDA $1C
CLC
ADC $20
TAX
LDA $1E
BCC LAEA6
INC
LAEA6 PHA
PHX
_DrawString
PER LAEB2+1
LAEB2 BRA LAED9
_CloseWindow
LAEBB PEI $06
PEI $04
_SetPort
LAEC6 TDC
CLC
ADC #$0021
TCS
PLD
CLC
RTL
LAECF DW $0020
DW $003C
DW $0064
DW $0064
DW $0208
LAED9 PEA $0000
PEA $000A
PEI $00
TDC
CLC
ADC #$000C
PHA
_GetNextEvent
PLA
LDA $0C
BEQ LAED9
RTS
LAEF4 DW $004E
LAEF6 DW $D4A0 ; frame bits
ADRL $00000000 ; title ptr
ADRL $00000101 ; refcon
DW $0000 ; zoom rect
DW $0000
DW $0000
DW $0000
ADRL $00000000 ; color table ptr
DW $0000 ; origin
DW $0000
DW $00AE ; data size
DW $0280
DW $00AE ; max size
DW $0280
DW $0000 ; scroll size
DW $0000
DW $0000 ; page size
DW $0000
ADRL $00000000 ; info bar refcon
DW $0000 ; info bar hite
ADRL $00000000 ; window defproc
ADRL $00000000 ; info bar defproc
LAF2E ADRL $00000000 ; content defproc
DW $0019 ; content rect
DW $0002
DW $00C7
DW $026A
ADRL $FFFFFFFF ; starting plane
ADRL $00000000 ; storage ptr
LAF42 BRA LAF47
LAF44 LDX #$8FF1
LAF47 TSC
TAY
SEC
SBC #$00BA
TCS
PEI $26
PEI $24
PEI $04
PHD
INC
INC
TCD
PLA
STA $26
PLA
STA $50
INC
STA $52
PLA
STA $4C
PLA
STA $4E
STY $24
STX $44
INY
INY
INY
INY
STY $18
STZ $1A
LDA [$18]
STA $14
INC $18
INC $18
LDA [$18]
STA $16
INC $18
INC $18
TDC
CLC
ADC #$0054
STA $20
STZ $22
LDA #$0050
CLC
ADC $20
STA $04
STZ $00
STZ $48
LAF98 LDA $04
CMP $20
BCS LAFA4
PER LAFA1+2
LAFA1 BRL LB166
LAFA4 LDA [$14]
INC $14
BNE LAFAC
INC $16
LAFAC AND #$00FF
CMP #$0025
BEQ LAFF9
STA [$20]
PHA
PLA
BMI LAFC9
BEQ LAFC9
INC $20
INC $48
CMP #$000D
BNE LAF98
STZ $48
BRA LAF98
LAFC9 LDA $00
STA [$20]
PER LAFD0+2
LAFD0 BRL LB166
LDX $44
CPX #$FFF6
BNE LAFF2
LDY $52
LDA $00
STA [$4C],Y
TYA
SEC
SBC $50
DEC
STA $04
LDY $50
LDA #$FF00
AND [$4C],Y
ORA $04
STA [$4C],Y
LAFF2 LDA $24
TCS
LDA $26
TCD
RTL
LAFF9 STZ $10
STZ $12
LAFFD LDA [$14]
INC $14
BNE LB005
INC $16
LB005 AND #$00FF
SEP #$20
CMP #$44
BEQ LB07F
CMP #$63
BNE LB015
BRL LB0DE
LB015 CMP #$64
BEQ LB086
CMP #$58
BNE LB020
BRL LB0B3
LB020 CMP #$30
BNE LB02C
TAX
LDA [$14]
CMP #$78
BEQ LB0A9
TXA
LB02C CMP #$53
BNE LB033
BRL LB115
LB033 CMP #$43
BNE LB03A
BRL LB0F6
LB03A CMP #$73
BNE LB041
BRL LB130
LB041 CMP #$78
BEQ LB0C2
CMP #$62
BNE LB04C
BRL LB14B
LB04C CMP #$3A
BPL LB06B
CMP #$30
BMI LB06B
SEC
SBC #$30
REP #$20
PHA
ASL $10
LDA $10
ASL
ASL
CLC
ADC $10
CLC
ADC $01,S
STA $10
PLA
BRA LAFFD
LB06B XBA
SEP #$20
LDA #$25
REP #$20
STA [$20]
INC $20
INC $20
INC $48
INC $48
BRL LAF98
LB07F REP #$20
LDA #$0020
BRA LB08D
LB086 REP #$20
LDA #$0030
STA $0C
LB08D STA $0C
LDA [$18]
STA $08
INC $18
INC $18
LDA [$18]
STA $0A
INC $18
INC $18
PHK
PER LB0A6-1
BRL LB5A7
LB0A6 BRL LAF98
LB0A9 REP #$20
STA $12
INC $14
BNE LB0B3
INC $16
LB0B3 REP #$20
LDA #$7830
STA [$20]
INC $20
INC $20
INC $48
INC $48
LB0C2 REP #$20
LDA [$18]
STA $08
INC $18
INC $18
LDA [$18]
STA $0A
INC $18
INC $18
PHK
PER LB0DB-1
BRL LB458
LB0DB BRL LAF98
LB0DE REP #$20
LDA [$18]
INC $18
INC $18
INC $18
INC $18
LDX $10
BEQ LB0FA
CMP $10
BCC LB0FA
LDA $10
BRA LB0FA
LB0F6 REP #$20
LDA $10
LB0FA SEC
SBC $48
DEC
BPL LB103
BRL LAF98
LB103 BNE LB108
BRL LAF98
LB108 STA $08
STZ $0A
PER LB112-1
BRL LB4C8
LB112 BRL LAF98
LB115 REP #$20
LDA [$18]
STA $08
INC $18
INC $18
LDA [$18]
STA $0A
INC $18
INC $18
PER LB12D-1
BRL LB4C8
LB12D BRL LAF98
LB130 REP #$20
LDA [$18]
STA $1C
INC $18
INC $18
LDA [$18]
STA $1E
INC $18
INC $18
PER LB148-1
BRL LB4F7
LB148 BRL LAF98
LB14B REP #$20
LDA [$18]
STA $1C
INC $18
INC $18
LDA [$18]
STA $1E
INC $18
INC $18
PER LB163-1
BRL LB538
LB163 BRL LAF98
LB166 LDA $20
STA $46
TDC
CLC
ADC #$0054
STA $20
STZ $22
LDA $46
SEC
SBC $20
STA $04
STZ $06
LDX $44
BPL LB1A0
CPX #$FFF6
BNE LB1A0
LDY $52
LB187 DEC $04
BMI LB19C
LDA [$20]
AND #$007F
CMP #$000D
BEQ LB198
STA [$4C],Y
INY
LB198 INC $20
BRA LB187
LB19C STY $52
BRA LB1E1
LB1A0 CPX #$8FF1
BNE LB1C9
LB1A5 DEC $04
BMI LB1E1
LDA [$20]
AND #$007F
PHA
CMP #$000D
BNE LB1BE
PEA $000A
_WriteChar
LB1BE _WriteChar
INC $20
BRA LB1A5
LB1C9 INX
BEQ LB1F3
DEX
PEI $06
PEI $04
PEI $00
TDC
CLC
ADC #$0054
PHA
PHX
PHK
PER LB1E1-1
BRL LA580
LB1E1 TDC
CLC
ADC #$0054
STA $20
STZ $22
LDA #$0050
CLC
ADC $20
STA $04
RTS
LB1F3 LDAL $00FFE6 ; LOGO BUG?
INC
BEQ LB1A5
PEA $0000
_WindVersion
PLA
BCS LB1A5
LB207 DEC $04
BMI LB1E1
LDA [$20]
AND #$00FF
CMP #$000D
BNE LB21F
PER LB21A-1
BRA LB22B
LB21A BCS LB1A5
LDA #$000A
LB21F PER LB224-1
BRA LB22B
LB224 INC $20
BCC LB207
BRL LB1A5
LB22B STA $42
PER LB233-1
BRL LB40E
LB233 LDA $42
INC
BEQ LB264
DEC
AND #$007F
CMP #$007F
BNE LB264
LDA #$0008
STA $42
PER LB24B-1
BRA LB264
LB24B BCC LB250
BRL LB40C
LB250 LDA #$0020
STA $42
PER LB25A-1
BRA LB264
LB25A BCC LB25F
BRL LB40C
LB25F LDA #$0008
STA $42
LB264 PEI $00
TDC
CLC
ADC #$0028
PHA
_GetFontInfo
BCC LB278
BRL LB40C
LB278 LDA $28
CLC
ADC $2A
CLC
ADC $2E
STA $2E
PEI $00
TDC
CLC
ADC #$0030
PHA
_GetPen
BCC LB296
BRL LB40C
LB296 LDA #$001A
CMP $42
BNE LB2C4
LDA $32
STA $2A
LDA $30
SEC
SBC $28
STA $28
CLC
ADC $2E
STA $2C
LDA #$0280
STA $2E
PEI $00
TDC
CLC
ADC #$0028
PHA
_EraseRect
BRL LB3FD
LB2C4 LDA $32
BNE LB2E1
LDA #$0003
STA $32
LDA $28
STA $30
PEI $32
PEI $30
_MoveTo
BCC LB2E1
BRL LB40C
LB2E1 PEI $00
TDC
CLC
ADC #$0034
PHA
_GetPortRect
BCC LB2F5
BRL LB40C
LB2F5 LDA $38
SEC
SBC $34
STA $38
LDA $3A
SEC
SBC $36
STA $3A
LDA $42
INC
BNE LB30B
BRL LB3F4
LB30B DEC
AND #$007F
CMP #$000A
BNE LB37A
LDA $38
SEC
SBC $30
SEC
SBC $2E
SEC
SBC $2A
BPL LB370
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_GetPort
_GetWControls
PLA
PLX
BNE LB343
TAY
BEQ LB347
LB343 PLA
BRL LB40A
LB347 PLX
PEI $00
TDC
CLC
ADC #$0034
PHA
PEA $0000
PHX
PEA $0000
PEA $0000
_ScrollRect
BCC LB366
BRL LB40C
LB366 LDA $38
SEC
SBC $2A
STA $30
BRL LB3FD
LB370 LDA $30
CLC
ADC $2E
STA $30
BRL LB3FD
LB37A CMP #$0008
BNE LB3A0
PEA $0000
PEA $0030
_CharWidth
BCS LB40C
LDA $32
SEC
SBC $01,S
CMP #$0003
BPL LB39B
LDA #$0003
LB39B STA $32
PLA
BRA LB3FD
LB3A0 CMP #$000D
BNE LB3AC
LDA #$0003
STA $32
BRA LB3FD
LB3AC CMP #$0007
BNE LB3BD
PHA
_WriteChar
BCS LB40C
BRA LB40A
LB3BD LDX $32
CPX $3A
BCS LB40A
STZ $34
CMP #$0020
BCS LB3D0
CLC
ADC #$0040
DEC $34
LB3D0 STA $38
BIT $34
BPL LB3DB
PEA $8000
BRA LB3DE
LB3DB PEA $0000
LB3DE _SetTextMode
BCS LB40C
PEI $38
_DrawChar
BCS LB40C
BRA LB40A
LB3F4 LDA #$0003
STA $32
LDA $28
STA $30
LB3FD PEI $32
PEI $30
_MoveTo
BCS LB40C
LB40A CLC
RTS
LB40C SEC
RTS
LB40E PEA $0000
PEA $0008
PEI $00
TDC
CLC
ADC #$0028
PHA
_EventAvail
PLA
LDA $28
BEQ LB43C
LDA $2A
AND #$00FF
CMP #$0013
BNE LB43C
PER LB437-1
BRA LB43D
LB437 PER LB43C-1
BRA LB43D
LB43C RTS
LB43D PEA $0000
PEA $0008
PEI $00
TDC
CLC
ADC #$0028
PHA
_GetNextEvent
PLA
LDA $28
BEQ LB43D
RTS
LB458 PHK
PHK
PER LB4B8
PLY
STY $1C
PLY
STY $1E
LDA #$0008
STA $0C
LDA $10
BEQ LB474
BMI LB474
CMP $0C
BPL LB474
STA $0C
LB474 LDX #$0003
LDA #$00FF
STA $0E
LB47C LDA $0E
XBA
STA $0E
LDA $08,X
DEX
LDY $0E
BPL LB48D
LSR
LSR
LSR
LSR
INX
LB48D AND #$000F
BNE LB4A4
LDY $12
BEQ LB4A4
DEC $0C
BNE LB47C
LDA #$0030
STA [$20]
INC $20
INC $48
RTL
LB4A4 STZ $12
TAY
LDA [$1C],Y
STA [$20]
INC $20
INC $48
DEC $0C
BNE LB47C
LDA $00
STA [$20]
RTL
LB4B8 ASC '0123456789ABCDEF'
LB4C8 LDA $10
BMI LB4CE
BNE LB4D1
LB4CE LDA #$09C4
LB4D1 CMP $08
BCS LB4D7
STA $08
LB4D7 LDA $04
CMP $20
BPL LB4E3
PER LB4E3-1
LB4E0 BRL LB166
LB4E3 DEC $08
BMI LB4F2
LDA #$0020
STA [$20]
INC $20
INC $48
BRA LB4D7
LB4F2 LDA $00
STA [$20]
RTS
LB4F7 LDA $10
BMI LB4FD
BNE LB502
LB4FD LDA #$09C4
STA $10
LB502 LDA $04
CMP $20
BPL LB50E
PER LB50E-1
BRL LB166
LB50E DEC $10
BMI LB533
LDA [$1C]
INC $1C
BNE LB51A
INC $1E
LB51A AND #$00FF
STA [$20]
BEQ LB533
INC $20
INC $48
CMP #$000D
BNE LB52C
STZ $48
LB52C XBA
BPL LB502
DEC $20
DEC $48
LB533 LDA $00
STA [$20]
RTS
LB538 PHK
PHK
PER LB4B8
PLY
STY $08
PLY
STY $0A
LDA $10
BEQ LB549
BPL LB54A
LB549 RTS
LB54A CMP #$0050
BCC LB554
LDA #$0050
STA $10
LB554 LDA #$FF00
STA $0E
LB559 LDA $04
CMP $20
BPL LB565
PER LB565-1
BRL LB166
LB565 LDA #$0004
STA $0C
LB56A LDA $0E
XBA
STA $0E
BPL LB579
LDA [$1C]
LSR
LSR
LSR
LSR
BRA LB581
LB579 LDA [$1C]
INC $1C
BNE LB581
INC $1E
LB581 AND #$000F
TAY
LDA [$08],Y
STA [$20]
INC $20
INC $48
DEC $0C
BNE LB56A
LDA #$2020
STA [$20]
INC $20
INC $48
DEC $10
DEC $10
BEQ LB5A2
BPL LB559
LB5A2 LDA $00
STA [$20]
RTS
LB5A7 REP #$71
PHK
PHK
PER LB691
PLY
STY $1C
PLY
STY $1E
LB5B4 LDY #$000E
LDA $0A
BEQ LB5FC
BPL LB620
LDA #$2D2D
STA [$20]
INC $20
INC $48
LDA $08
EOR #$FFFF
CLC
ADC #$0001
STA $08
LDA $0A
EOR #$FFFF
ADC #$0000
STA $0A
BPL LB5B4
LDA #$6E69
STA [$20]
INC $20
INC $20
LDA #$2D66
STA [$20]
INC $20
INC $20
INC $48
INC $48
INC $48
INC $48
LB5F7 LDA $00
STA [$20]
RTL
LB5FC LDA $08
CMP #$000A
BCS LB623
ORA #$3030
LDX $10
DEX
TAY
LDA $0C
LB60C DEX
BMI LB617
STA [$20]
INC $20
INC $48
BRA LB60C
LB617 TYA
STA [$20]
INC $20
INC $48
BRA LB5F7
LB620 LDY #$0022
LB623 LDA [$1C],Y
DEY
DEY
CMP $0A
BEQ LB631
BCC LB63D
DEY
DEY
BRA LB623
LB631 LDA [$1C],Y
CMP $08
BEQ LB63D
BCC LB63D
DEY
DEY
BRA LB623
LB63D TYA
LSR
LSR
INC
INC
CMP $10
BCS LB654
TAX
LDA $0C
LB649 STA [$20]
INC $20
INX
INC $48
CPX $10
BCC LB649
LB654 LDX #$0003
CPY #$0020
BEQ LB65F
LDX #$0004
LB65F PHY
LDA [$1C],Y
STA $10
INY
INY
LDA [$1C],Y
STA $12
PER LB66F-1
BRA LB6B5
LB66F TYA
ORA #$3030
STA [$20]
INC $20
INC $48
LDX #$0004
PLY
DEY
DEY
DEY
DEY
BPL LB65F
LDA $08
ORA #$3030
STA [$20]
INC $20
INC $48
BRL LB5F7
LB691 DB $0A
DB $00
DB $00
DB $00
DB $64
DB $00
DB $00
DB $00
DB $E8
DB $03
DB $00
DB $00
DB $10
DB $27
DB $00
DB $00
DB $A0
DB $86
DB $01
DB $00
DB $40
DB $42
DB $0F
DB $00
DB $80
DB $96
DB $98
DB $00
DB $00
DB $E1
DB $F5
DB $05
DB $00
DEX
TXS
TSC
LB6B5 LDY #$0000
STX $02
DEX
LB6BB ASL $10
ROL $12
DEX
BNE LB6BB
LB6C2 LDA $08
SEC
SBC $10
TAX
LDA $0A
SBC $12
BCC LB6D2
STA $0A
STX $08
LB6D2 TYA
ROL
TAY
DEC $02
BEQ LB6DF
LSR $12
ROR $10
BRA LB6C2
LB6DF RTS
LB6E0 PER LAEF4
PHK
PLB
LDY #$0004
STA ($01,S),Y
INY
INY
TXA
AND #$00FF
STA ($01,S),Y
DEY
DEY
ORA ($01,S),Y
PHA
PHK
PER LB6FE-1
BRL LA850
LB6FE LDA #$94A4 ; )$
PER LB707-1
BRL LA881
LB707 BVS LB715
BPL LB710
LDA #$8080
BRA LB71A
LB710 LDA #$80A0
BRA LB71A
LB715 BPL LB71A
LDA #$9484
LB71A PLX
BNE LB720
AND #$7FFF
LB720 LDY #$0002
STA ($01,S),Y
LDA #$0266
PER LB72E-1
BRL LA881
LB72E BVS LB738
LDA #$027E
BCC LB73F
LSR
BRA LB73F
LB738 BCC LB73F
LSR
DEC
DEC
DEC
DEC
LB73F PHX
LDY #$0019
PLX
BNE LB749
LDY #$000D
LB749 PHY
LDY #$003E
TAX
PLA
STA ($01,S),Y
INY
INY
LDA #$0002
CPX #$0190
BCS LB75C
LSR
LB75C STA ($01,S),Y
INY
INY
LDA #$00C7
STA ($01,S),Y
INY
INY
TXA
STA ($01,S),Y
LDY #$001E
STA ($01,S),Y
INY
INY
INY
INY
STA ($01,S),Y
PHK
PHK
PER LB7CD
PLA
PLX
LDY #$003A
STA ($01,S),Y
INY
INY
TXA
AND #$00FF
STA ($01,S),Y
PLA
PHA
PHA
PHK
PHK
PER LAEF4
_NewWindow
BCS LB7CA
PLA
PLX
PHX
PHA
PHX
PHA
_SetPort
BCS LB7CA
PEA $0000
PEA $000A
_MoveTo
PHK
PLB
PER LA790
LDY #$0000
LDA $03,S
STA ($01,S),Y
INY
INY
LDA $05,S
STA ($01,S),Y
PLA
CLC
LB7CA PLA
PLX
RTL
LB7CD LDA #$0000
PHA
PHA
PHA
PHA
_GetPort
_GetWControls
PLA
PLX
BCS LB802
BNE LB7EB
TAX
BEQ LB802
LB7EB INX
BEQ LB802
PEA $0000
PEA $0000
_GetPort
_DrawControls
LB802 RTL
LB803 PHX
PHA
PER LA790
LDY #$0002
PHK
PLB
LDA ($01,S),Y
TAX
DEY
DEY
LDA ($01,S),Y
BNE LB819
TXY
BEQ LB823
LB819 PLY
PHX
PHA
_SetWTitle
LB823 RTL
Reference in New Issue View Git Blame Copy Permalink