Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-30 18:31:21 +00:00
Code Issues Projects Releases Wiki Activity
6fa625e26b
antoine-source/hypercardiigs/Main.S
Antoine Vignau 7a9bb2b439 makes HCGS faster
2023-07-01 22:15:51 +02:00

6092 lines
116 KiB
ArmAsm
Raw Blame History

*
* HypercardGS
* segment: $03 Main
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk Main.l
lst off
*---------------------------------------
use Main.E
use Main.X
use 4/Ctl.Macs
use 4/Desk.Macs
use 4/Dialog.Macs
use 4/Event.Macs
use 4/Int.Macs
use 4/Line.Macs
use 4/List.Macs
use 4/Load.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/MidiSyn.Macs
use 4/Misc.Macs
use 4/Qd.Macs
use 4/SANE.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*---------------------------------------
PEA >L05565F
PLB
PLB
STA L05565F
STX L055665
STY L055663
PHA
PHA
TSC
TCD
PHA
_MMStartUp
PLA
PHX
PHA
PEA $0000
PEA $0100
PHA
PEA $C011
PEA $0000
PEA $0000
_MMStartUp
PLY
PLX
BCC L03005F
PHA
PEA ^L0540F5
PEA L0540F5
LDA L055663
ORA L055665
BEQ L030058
_ErrWriteLine
PLA
LDA #$FFFF
STA L0555A1
BRL L0300D5
L030058 _SysFailMgr
L03005F STY $01
STX $03
LDA [$01]
PHA
_SANEStartUp
LDX L055665
LDA L055663
PHX
PHA
PEA $0001
JSL L033189
PLY
PLY
PLY
TAY
BPL L030087
STA L0555A1
BRA L0300B5
L030087 STZ L05411B
PEA ^L055599
PEA L055599
JSL L0337A7
PLY
PLY
TAY
BNE L0300B5
LDX L055451
LDA L05544F
PHX
PHA
LDA L0556D0
PHA
JSL L032EB8
PLY
PLY
PLY
LDA L05411B
PHA
JSL L033335
PLY
L0300B5 _SANEShutDown
PEI $03
PEI $01
_DisposeHandle
LDA L05565F
ORA #$0F00
PHA
_DisposeAll
L0300D5 LDA L055455
STAL L054115
LDA L055457
STAL L054117
LDA L055453
STAL L054119
LDA L0555A1
JSL GSOS
DW $0029 ; Quit
ADRL L054115
PHA
PEA $0000
PEA $0000
_SysFailMgr
DA L060000 ; DP
L030107 DW $0000
L030109 ADRL $00000000
L03010D DW $0000
L03010F DW $0000
L030111 DW $0000
L030113 DW $0000
L030115 DW $0001
L030117 ADRL $00000000
L03011B DW $FFFF
L03011D DW $FFFF
L03011F ADRL $00000000
DB $00
DB $00
L030125 DB $00
DB $00
L030127 DB $03
DB $80
L030129 DB $10
DB $00
DB $00
DB $00
L03012D DB $08
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L030135 ADRL $00000000
L030139 ADRL $00000000
L03013D DW $0000
L03013F DB $00
L030140 DW $0000
L030142 DW $0001
L030144 ADRL $00FF0000
L030148 DW $0001
L03014A DW $0200
DB $00
DB $40
DB $06
DB $00
DB $00
DB $00
DB $00
DB $00
L030154 DB $FF
DB $00
L030156 DW $0000
L030158 PHB
PHK
PLB
LDA L030107
BEQ L030188
LDA L030115
CMP #$FFFF
BEQ L03016B
JSR L030406
L03016B JSR L03027F
PEA $0000
PEA $0000
LDA L030117+2
PHA
LDA L030117
PHA
_SetUserSoundIRQV
PLA
PLA
STZ L030107
L030188 PLB
CLC
RTL
L03018B ENT
PHB
PHK
PLB
LDA L030107
BNE L0301CB
STZ L03010D
STZ L03010F
LDA #$FFFF
STA L030115
PHP
SEI
PEA $0000
PEA $0000
PEA ^L030504
PEA L030504
_SetUserSoundIRQV
BCC L0301BC
TAX
PLA
PLA
PLP
BRA L0301CB
L0301BC PLA
STA L030117
PLA
STA L030117+2
PLP
LDA #$FFFF
STA L030107
L0301CB PLB
CLC
RTL
L0301CE ENT
PHB
PHK
PLB
LDA L030107
BEQ L0301E1
LDA L030115
CMP #$FFFF
BEQ L0301E1
JSR L030406
L0301E1 PLB
CLC
RTL
L0301E4 ENT
PHB
PHK
PLB
LDA #$0000
STA $05,S
LDA L030115
CMP #$FFFF
BNE L030224
PHP
SEI
SEP #$20
LDAL $E100CA
ORA #$20
STAL $E1C03C
LDA L03013F
CLC
ADC #$A0
STAL $E1C03E
LDAL $E1C03D
LDAL $E1C03D
AND #$01
BEQ L030223
LDAL $E1C03D
AND #$01
BEQ L030223
PLP
BRA L030229
L030223 PLP
MX %00
L030224 LDA #$0001
STA $05,S
L030229 PLB
CLC
RTL
L03022C ENT
PHB
PHK
PLB
PHD
PHA
PHA
PHA
PHA
TSC
TCD
LDX #$2400
LDA L030107
BNE L030241
BRL L030267
L030241 LDA $0F,S
STA $01
LDA $11,S
STA $03
LDA [$01]
STA $05
LDY #$0002
LDA [$01],Y
STA $07
LDA L030115
CMP #$FFFF
BEQ L03025F
JSR L030406
L03025F JSR L030484
BCS L030267
LDX #$0000
L030267 PLA
PLA
PLA
PLA
PLD
PLB
LDA $02,S
STA $08,S
PLA
STA $05,S
TSC
CLC
ADC #$0004
TCS
TXA
CMP #$0001
RTL
L03027F PHB
PHK
PLB
LDA L030140
PHA
_FFStopSound
PLB
RTS
L03028F PHD
LDA L030139+2
PHA
LDA L030139
PHA
TSC
TCD
LDA [$01]
STA L030135
CLC
ADC #$000A
STA L030144
LDY #$0002
LDA [$01],Y
STA L030135+2
ADC #$0000
STA L030144+2
PLA
PLA
PLD
LDX #$2400
PHD
LDA L030135+2
PHA
LDA L030135
PHA
TSC
TCD
LDA [$01]
BNE L030307
LDY #$0002
LDA [$01],Y
STA L030148
LDY #$0004
LDA [$01],Y
STA L030156
LDY #$0006
LDA [$01],Y
AND #$000F
XBA
ASL
ASL
ASL
ASL
STA L030142
LDX #$FFFF
STX L03011D
LDA L030148
CMP #$0100
BEQ L0302F9
BCS L0302FF
L0302F9 JSR L030314
LDX #$0000
L0302FF STX L03013D
PLA
PLA
PLD
BRA L03030C
L030307 PLA
PLA
PLD
BRA L03030F
L03030C LDX #$0000
L03030F TXA
CMP #$0001
RTS
L030314 PHP
SEI
LDA #$0003
JSR L03057D
AND #$000F
STA L03011D
TAX
SEP #$20
LDA L0303F6,X
STA L03013F
LDAL $E100CA
ORA #$20
STAL $E1C03C
LDA L03013F
CLC
ADC #$A0
STAL $E1C03E
LDA #$03
STAL $E1C03D
STAL $E1C03D
LDA L03013F
CLC
ADC #$40
STAL $E1C03E
LDA #$00
STAL $E1C03D
STAL $E1C03D
LDA L03013F
CLC
ADC #$C0
STAL $E1C03E
LDA #$3F
STAL $E1C03D
STAL $E1C03D
LDA L03013F
CLC
ADC #$80
STAL $E1C03E
LDA #$00
STAL $E1C03D
LDA #$80
STAL $E1C03D
REP #$20
PHD
PHA
PHA
TSC
TCD
LDA L030144
STA $01
LDA L030144+2
STA $03
SEP #$20
LDAL $E100CA
ORA #$60
STAL $E1C03C
LDA #$00
STAL $E1C03E
LDA #$80
STAL $E1C03F
LDX #$0040
LDA #$00
L0303B5 STAL $E1C03D
DEX
BNE L0303B5
LDA #$00
STAL $E1C03E
STAL $E1C03F
LDY #$0000
L0303C9 LDX #$0100
L0303CC LDA [$01],Y
STAL $E1C03D
INY
DEX
BNE L0303CC
DEC L030148
BNE L0303C9
LDX #$0040
LDA #$00
L0303E0 STAL $E1C03D
DEX
BNE L0303E0
LDAL $E100CA
STAL $E1C03C
REP #$30
PLA
PLA
PLD
PLP
RTS
L0303F6 HEX 0010081804140C1C02120A1A06160E1E
L030406 PHD
LDA #$0001
STA L03012D
PEA ^L030127
PEA L030127
_SetDocReg
BCS L030482
PHA
PHA
PEA $0000
PEA $0008
_GetWAP
PLA
TCD
PLA
BCS L030482
LDA L03011B
CMP #$FFFF
BEQ L030482
SEP #$20
ASL
ASL
ASL
ASL
TAX
STZ $00,X
REP #$20
LDA L03011D
CMP #$FFFF
BEQ L030456
SEP #$20
ASL
ASL
ASL
ASL
TAX
STZ $00,X
REP #$20
L030456 LDA #$FFFF
STA L03011B
STA L03011D
LDA #$FFFF
STA L030115
LDA L03011F
ORA L03011F+2
BEQ L030482
PHB
PHP
PHK
LDA #L030480
DEC
PHA
LDA L03011F+1
PHA
PHK
LDA L03011F
DEC
PHA
RTS
L030480 PLP
PLB
L030482 PLD
RTS
L030484 LDY #$0000
LDA [$05],Y
STA L030139
INY
INY
LDA [$05],Y
STA L030139+2
JSR L03028F
LDY #$0004
LDA [$05],Y
BEQ L0304A1
ASL
STA L030129
L0304A1 LDY #$000C
LDA [$05],Y
STA L03011F
INY
INY
LDA [$05],Y
STA L03011F+2
LDY #$0008
LDA [$05],Y
STA $01
INY
INY
LDA [$05],Y
STA $03
LDA [$01]
STA L030109
LDY #$0002
LDA [$01],Y
STA L030109+2
LDA #$0003
JSR L03057D
BCS L030503
STA L03011B
XBA
ORA #$8003
STA L030127
LDA #$0008
STA L03012D
PEA ^L030127
PEA L030127
_SetDocReg
BCS L030503
LDA #$0001
STA L03010D
JSR L0305C5
STA L030115
BNE L030502
JSR L030406
L030502 CLC
L030503 RTS
MX %11
L030504 TAX
AND #$0F
CMP #$03
BNE L030513
PHP
REP #$30
JSR L030522
PLP
RTL
L030513 LDA L030117+2
PHA
REP #$20
LDA L030117
DEC
PHA
SEP #$20
TXA
RTL
MX %00
L030522 PHB
PHK
PLB
LDA L030115
BMI L03053A
DEC L030115
BNE L03053A
JSR L0305C5
STA L030115
BNE L03053A
JSR L030406
L03053A PLB
RTS
L03053C LDA #$0000
JSR L03057D
BCS L03057B
PHA
PHX
AND #$000F
TAX
SEP #$20
LDA L0303F6,X
STA L03013F
REP #$20
PLX
PLA
PHA
XBA
ORA #$0001
PHA
LDA L030142
AND #$F000
ORA $01,S
STA L030142
PLA
PLA
TAX
LDA #$0001
L03056D CPX #$0000
BEQ L030576
ASL
DEX
BRA L03056D
L030576 STA L030140
CLC
RTS
L03057B SEC
RTS
L03057D STA L0305C3
PHD
PHA
PHA
PEA $0000
PEA $0008
_GetWAP
PLA
TCD
PLA
BCS L0305B9
SEP #$20
LDX #$0000
L03059A LDA $00,X
BEQ L0305A9
TXA
CLC
ADC #$10
TAX
CMP #$F0
BEQ L0305BB
BRA L03059A
L0305A9 LDA L0305C3
STA $00,X
REP #$20
TXA
AND #$00F0
LSR
LSR
LSR
LSR
CLC
L0305B9 PLD
RTS
L0305BB LDX #$2400
REP #$20
SEC
BRA L0305B9
L0305C3 DW $0000
L0305C5 PHD
PHB
PHK
PLB
LDA L03010D
ORA L03010F
BNE L0305D4
BRL L030667
L0305D4 STZ L030111
STZ L030113
JSR L0306E7
LDA L03010D
ORA L03010F
BNE L0305E8
BRL L030667
L0305E8 LDA L03010D
AND #$00FF
STA L030154
LDA L030156
STA L030125
BIT L030125
BMI L030608
LDA L03010D
AND #$7F00
CLC
ADC L030125
BRA L030618
L030608 AND #$7FFF
STA L030125
LDA L03010D
AND #$7F00
SEC
SBC L030125
L030618 JSR L030714
STA L03014A
LDA L03013D
BNE L030629
JSR L03066C
JMP L03065B
L030629 LDA L030140
PHA
ORA L030111
STA L030111
_FFStopSound
JSR L03053C
BCS L030663
LDA L030140
ORA L030113
STA L030113
LDA L030142
PHA
PEA ^L030144
PEA L030144
_FFStartSound
BCS L030663
L03065B LDA L03010F
AND #$00FF
BRA L030667
L030663 TAX
LDA #$0000
L030667 PLB
PLD
PHA
PLA
RTS
L03066C PHP
SEP #$20
SEI
LDAL $E100CA
ORA #$20
STAL $E1C03C
LDA L03013F
CLC
ADC #$A0
STAL $E1C03E
LDA #$03
STAL $E1C03D
STAL $E1C03D
LDA L03013F
CLC
ADC #$00
STAL $E1C03E
LDA L03014A
STAL $E1C03D
STAL $E1C03D
LDA L03013F
CLC
ADC #$20
STAL $E1C03E
LDA L03014A+1
STAL $E1C03D
STAL $E1C03D
LDA L03013F
CLC
ADC #$40
STAL $E1C03E
LDA L030154
STAL $E1C03D
STAL $E1C03D
LDA L03013F
CLC
ADC #$A0
STAL $E1C03E
LDA #$06
STAL $E1C03D
LDA #$03
STAL $E1C03D
REP #$30
PLP
RTS
L0306E7 PHD
LDA L030109+2
PHA
LDA L030109
PHA
TSC
TCD
LDA [$01]
STA L03010D
LDA $01,S
CLC
ADC #$0004
STA L030109
LDY #$0002
LDA [$01],Y
STA L03010F
LDA $03,S
ADC #$0000
STA L030109+2
PLA
PLA
PLD
RTS
L030714 CLC
ADC #$07C8
LDY #$000B
SEC
SBC #$0C00
BMI L030727
L030721 DEY
SBC #$0C00
BPL L030721
L030727 ADC #$0C00
PHY
AND #$FFFE
TAY
LDA L03073B,Y
PLY
DEY
BMI L03073A
L030736 LSR
DEY
BPL L030736
L03073A RTS
L03073B HEX A951B251BC51C551CF51D851E251EB51
HEX F551FE51085211521A5224522D523752
HEX 40524A5253525D52665270527A528352
HEX 8D529652A052A952B352BC52C652CF52
HEX D952E352EC52F652FF52095313531C53
HEX 26532F53395343534C5356535F536953
HEX 73537C53865390539953A353AD53B653
HEX C053CA53D353DD53E753F053FA530454
HEX 0E54175421542B5434543E5448545254
HEX 5B5465546F54795482548C549654A054
HEX A954B354BD54C754D154DA54E454EE54
HEX F85402550C5515551F55295533553D55
HEX 475550555A5564556E55785582558C55
HEX 95559F55A955B355BD55C755D155DB55
HEX E555EF55F95503560C56165620562A56
HEX 34563E56485652565C56665670567A56
HEX 84568E569856A256AC56B656C056CA56
HEX D456DE56E856F256FC56065710571B57
HEX 25572F57395743574D57575761576B57
HEX 75577F57895794579E57A857B257BC57
HEX C657D057DB57E557EF57F95703580D58
HEX 175822582C58365840584A5855585F58
HEX 695873587D58885892589C58A658B158
HEX BB58C558CF58DA58E458EE58F9580359
HEX 0D59175922592C59365941594B595559
HEX 60596A5974597F59895993599E59A859
HEX B259BD59C759D159DC59E659F159FB59
HEX 055A105A1A5A255A2F5A395A445A4E5A
HEX 595A635A6E5A785A825A8D5A975AA25A
HEX AC5AB75AC15ACC5AD65AE15AEB5AF65A
HEX 005B0B5B155B205B2A5B355B3F5B4A5B
HEX 555B5F5B6A5B745B7F5B895B945B9F5B
HEX A95BB45BBE5BC95BD35BDE5BE95BF35B
HEX FE5B095C135C1E5C295C335C3E5C485C
HEX 535C5E5C685C735C7E5C895C935C9E5C
HEX A95CB35CBE5CC95CD35CDE5CE95CF45C
HEX FE5C095D145D1F5D295D345D3F5D4A5D
HEX 555D5F5D6A5D755D805D8A5D955DA05D
HEX AB5DB65DC15DCB5DD65DE15DEC5DF75D
HEX 025E0D5E175E225E2D5E385E435E4E5E
HEX 595E645E6E5E795E845E8F5E9A5EA55E
HEX B05EBB5EC65ED15EDC5EE75EF25EFD5E
HEX 085F135F1E5F295F345F3F5F4A5F555F
HEX 605F6B5F765F815F8C5F975FA25FAD5F
HEX B85FC35FCE5FD95FE45FEF5FFA5F0660
HEX 11601C60276032603D60486053605E60
HEX 6A60756080608B609660A160AC60B860
HEX C360CE60D960E460F060FB6006611161
HEX 1C61286133613E614961556160616B61
HEX 766182618D619861A361AF61BA61C561
HEX D161DC61E761F361FE61096214622062
HEX 2B62366242624D62596264626F627B62
HEX 866291629D62A862B462BF62CA62D662
HEX E162ED62F86204630F631A6326633163
HEX 3D63486354635F636B63766382638D63
HEX 9963A463B063BB63C763D263DE63E963
HEX F56300640C64186423642F643A644664
HEX 51645D646964746480648B649764A364
HEX AE64BA64C664D164DD64E964F4640065
HEX 0C65176523652F653A65466552655D65
HEX 6965756581658C659865A465B065BB65
HEX C765D365DF65EA65F66502660E661966
HEX 256631663D664966546660666C667866
HEX 846690669C66A766B366BF66CB66D766
HEX E366EF66FB66066712671E672A673667
HEX 42674E675A67666772677E678A679667
HEX A267AE67BA67C667D267DE67EA67F667
HEX 02680E681A68266832683E684A685668
HEX 62686E687A68866892689E68AA68B668
HEX C268CF68DB68E768F368FF680B691769
HEX 236930693C694869546960696C697969
HEX 856991699D69A969B669C269CE69DA69
HEX E769F369FF690B6A186A246A306A3C6A
HEX 496A556A616A6D6A7A6A866A926A9F6A
HEX AB6AB76AC46AD06ADC6AE96AF56A016B
HEX 0E6B1A6B276B336B3F6B4C6B586B646B
HEX 716B7D6B8A6B966BA36BAF6BBB6BC86B
HEX D46BE16BED6BFA6B066C136C1F6C2C6C
HEX 386C456C516C5E6C6A6C776C836C906C
HEX 9C6CA96CB56CC26CCF6CDB6CE86CF46C
HEX 016D0E6D1A6D276D336D406D4D6D596D
HEX 666D736D7F6D8C6D986DA56DB26DBE6D
HEX CB6DD86DE56DF16DFE6D0B6E176E246E
HEX 316E3E6E4A6E576E646E716E7D6E8A6E
HEX 976EA46EB06EBD6ECA6ED76EE46EF06E
HEX FD6E0A6F176F246F316F3D6F4A6F576F
HEX 646F716F7E6F8B6F986FA46FB16FBE6F
HEX CB6FD86FE56FF26FFF6F0C7019702670
HEX 337040704D705A706770747081708E70
HEX 9B70A870B570C270CF70DC70E970F670
HEX 037110711D712A713771447151715E71
HEX 6B71797186719371A071AD71BA71C771
HEX D471E271EF71FC710972167223723172
HEX 3E724B7258726572737280728D729A72
HEX A872B572C272CF72DD72EA72F7720473
HEX 12731F732C733A734773547362736F73
HEX 7C738A739773A473B273BF73CC73DA73
HEX E773F57302740F741D742A7438744574
HEX 537460746D747B7488749674A374B174
HEX BE74CC74D974E774F47402750F751D75
HEX 2A7538754575537561756E757C758975
HEX 9775A475B275C075CD75DB75E875F675
HEX 047611761F762D763A76487656766376
HEX 71767F768C769A76A876B576C376D176
HEX DF76EC76FA7608771677237731773F77
HEX 4D775A7768777677847792779F77AD77
HEX BB77C977D777E577F37700780E781C78
HEX 2A7838784678547862786F787D788B78
HEX 9978A778B578C378D178DF78ED78FB78
HEX 097917792579337941794F795D796B79
HEX 797987799579A379B179BF79CD79DB79
HEX E979F879067A147A227A307A3E7A4C7A
HEX 5A7A687A777A857A937AA17AAF7ABD7A
HEX CC7ADA7AE87AF67A047B137B217B2F7B
HEX 3D7B4C7B5A7B687B767B857B937BA17B
HEX AF7BBE7BCC7BDA7BE97BF77B057C147C
HEX 227C307C3F7C4D7C5B7C6A7C787C867C
HEX 957CA37CB27CC07CCE7CDD7CEB7CFA7C
HEX 087D177D257D347D427D507D5F7D6D7D
HEX 7C7D8A7D997DA77DB67DC57DD37DE27D
HEX F07DFF7D0D7E1C7E2A7E397E487E567E
HEX 657E737E827E917E9F7EAE7EBC7ECB7E
HEX DA7EE87EF77E067F147F237F327F417F
HEX 4F7F5E7F6D7F7B7F8A7F997FA87FB67F
HEX C57FD47FE37FF17F00800F801E802D80
HEX 3B804A8059806880778086809480A380
HEX B280C180D080DF80EE80FD800B811A81
HEX 29813881478156816581748183819281
HEX A181B081BF81CE81DD81EC81FB810A82
HEX 19822882378246825582648273828282
HEX 9182A082B082BF82CE82DD82EC82FB82
HEX 0A831983298338834783568365837483
HEX 84839383A283B183C083D083DF83EE83
HEX FD830D841C842B843A844A8459846884
HEX 788487849684A584B584C484D384E384
HEX F28402851185208530853F854E855E85
HEX 6D857D858C859C85AB85BA85CA85D985
HEX E985F885088617862786368646865586
HEX 6586748684869386A386B386C286D286
HEX E186F1860087108720872F873F874E87
HEX 5E876E877D878D879D87AC87BC87CC87
HEX DB87EB87FB870B881A882A883A884988
HEX 59886988798889889888A888B888C888
HEX D788E788F78807891789278936894689
HEX 56896689768986899689A689B589C589
HEX D589E589F589058A158A258A358A458A
HEX 558A658A758A858A958AA58AB58AC58A
HEX D58AE58AF58A058B158B258B358B458B
HEX 568B668B768B868B968BA68BB68BC68B
HEX D78BE78BF78B078C178C278C388C488C
HEX 588C688C788C898C998CA98CB98CCA8C
HEX DA8CEA8CFB8C0B8D1B8D2B8D3C8D4C8D
HEX 5C8D6D8D7D8D8D8D9E8DAE8DBF8DCF8D
HEX DF8DF08D008E108E218E318E428E528E
HEX 638E738E848E948EA48EB58EC58ED68E
HEX E68EF78E078F188F298F398F4A8F5A8F
HEX 6B8F7B8F8C8F9D8FAD8FBE8FCE8FDF8F
HEX F08F0090119021903290439053906490
HEX 759086909690A790B890C890D990EA90
HEX FB900B911C912D913E914E915F917091
HEX 81919291A291B391C491D591E691F791
HEX 0892189229923A924B925C926D927E92
HEX 8F92A092B192C292D392E392F4920593
HEX 16932793389349935A936B937D938E93
HEX 9F93B093C193D293E393F49305941694
HEX 279438944A945B946C947D948E949F94
HEX B094C294D394E494F594069518952995
HEX 3A954B955D956E957F959095A295B395
HEX C495D695E795F8950A961B962C963E96
HEX 4F966096729683969496A696B796C996
HEX DA96EC96FD960E972097319743975497
HEX 6697779789979A97AC97BD97CF97E097
HEX F29704981598279838984A985B986D98
HEX 7F989098A298B498C598D798E998FA98
HEX 0C991E992F9941995399649976998899
HEX 9A99AB99BD99CF99E199F299049A169A
HEX 289A3A9A4B9A5D9A6F9A819A939AA59A
HEX B69AC89ADA9AEC9AFE9A109B229B349B
HEX 469B589B6A9B7C9B8E9BA09BB29BC49B
HEX D69BE89BFA9B0C9C1E9C309C429C549C
HEX 669C789C8A9C9C9CAE9CC09CD29CE49C
HEX F79C099D1B9D2D9D3F9D519D649D769D
HEX 889D9A9DAC9DBF9DD19DE39DF59D089E
HEX 1A9E2C9E3E9E519E639E759E889E9A9E
HEX AC9EBE9ED19EE39EF69E089F1A9F2D9F
HEX 3F9F519F649F769F899F9B9FAE9FC09F
HEX D39FE59FF79F0AA01CA02FA041A054A0
HEX 66A079A08CA09EA0B1A0C3A0D6A0E8A0
HEX FBA00EA120A133A145A158A16BA17DA1
HEX 90A1A3A1B5A1C8A1DBA1EDA100A213A2
HEX 26A238A24BA25EA271A283A296A2A9A2
HEX BCA2CFA2E1A2F4A207A31AA32DA340A3
MX %00
L03133B ENT
PHD
TSC
TCD
PHA
PHA
PHA
PHA
PHA
PEI $0E
PEI $0C
PEI $0A
PEI $08
PEI $06
_LoadSegName
STAL L05565D
PLA
STA [$10]
LDY #$0002
PLA
STA [$10],Y
LDY #$0004
PLA
STA [$10],Y
LDY #$0006
PLA
STA [$10],Y
LDY #$0008
PLA
STA [$10],Y
LDA $04
STA $0E
LDA $03
STA $0D
TDC
TCS
PLD
CLC
ADC #$000C
TCS
RTL
L031384 PHA
PHA
TSC
PHD
TCD
PHA
PHA
PEI $0A
PEI $08
LDA L05565F
ORA #$0F00
PHA
PEA $4000
PHA
PHA
_NewHandle
PLA
PLX
BCC L0313AC
LDY #$0000
TYX
BRA L0313B9
L0313AC STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
TAY
L0313B9 PLD
PLA
PLA
TYA
RTL
L0313BE ENT
PHD
TSC
TCD
LDA $08
CLC
ADC $06
BEQ L0313CA
BCS L0313F9
L0313CA LDA $0C
CLC
ADC $06
BEQ L0313D3
BCS L0313F9
L0313D3 LDX $08
LDY $0C
LDA $0D
STA $08
LDA $09
STAL L0313E5+1
LDA $06
DEC
PHB
L0313E5 MVN $000000,$000000
PLB
L0313E9 LDA $04
STA $0E
LDA $03
STA $0D
PLD
TSC
CLC
ADC #$000A
TCS
RTL
L0313F9 LDA $06
TAY
LSR
TAX
BCC L031410
SEP #$20
LDA [$08]
STA [$0C]
REP #$20
BRA L031410
L03140A DEY
DEY
LDA [$08],Y
STA [$0C],Y
L031410 DEX
BPL L03140A
BRA L0313E9
L031415 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L0553C5
LDX L0553C7
STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L03143C
DEX
L03143C DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA #$000A
LDX #$0000
JSL L033477
BEQ L03146D
BVS L03146B
EOR #$8000
L03146B BMI L03147E
L03146D LDA $01
LDX $03
CLC
ADC #$0006
BCC L031478
INX
L031478 STA $10
STX $12
BRA L031498
L03147E LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $10
STX $12
L031498 LDA $0C
STA $0E
LDA $0B
STA $0D
LDA $09
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L0314AA ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L0553C5
LDX L0553C7
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L0314D1
DEX
L0314D1 DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $0A
STX $0C
PLY
PLY
PLD
RTL
L0314F6 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L0553C5
LDX L0553C7
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L03151D
DEX
L03151D DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
CLC
ADC #$0005
BCC L031535
INX
L031535 STA $01
STX $03
LDA #$00FF
AND [$01]
BIT #$0080
BEQ L031546
ORA #$FF80
L031546 STA $0A
PLY
PLY
PLD
RTL
L03154C ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L0553C5
LDX L0553C7
STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
PHX
PHA
LDA L0553C3
DEC
JSL L150488
TAY
BNE L031574
DEX
L031574 DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA #$000A
LDX #$0000
JSL L033477
BEQ L0315A5
BVS L0315A3
EOR #$8000
L0315A3 BMI L0315B6
L0315A5 LDA $01
LDX $03
CLC
ADC #$0006
BCC L0315B0
INX
L0315B0 STA $10
STX $12
BRA L0315D0
L0315B6 LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $10
STX $12
L0315D0 LDA $0C
STA $0E
LDA $0B
STA $0D
LDA $09
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L0315E2 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
PHY
JSL L071BFF
PLA
STA $01
JSL L030158
STZ L05535F
PEI $01
JSL L071AA4
PLY
PLY
PLY
PLD
RTL
L031604 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L031B09
LDA #$0001
STA $0A
PLY
PLY
PLD
RTL
L031619 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L0E0000
PEA $1B12
JSL L07272E
PLY
PLY
PLD
RTL
L031630 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0A
PHY
JSL L0B0072
PLA
LSR
BCS L031645
BRA L03166D
L031645 PHY
PHY
PEA $0012
JSL L031415
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
LDA #$0000
TAX
JSL L033477
BMI L03166D
LDA #$0001
STA $0A
L03166D PLY
PLY
PLD
RTL
L031671 PHD
TSC
CLC
ADC #$FECC
TCS
ADC #$0041
TCD
STZ $FC
PHY
PHY
PEA $0000
JSL L031415
PLA
STA $DF
PLX
STX $E1
LDA #$00FF
AND [$DF]
BNE L0316AF
LDA L05538F
BEQ L0316AC
LDA #$0001
STA $FC
LDA #$0001
STA $C9
STZ $CB
STZ $CD
BRL L031965
BRA L0316AF
L0316AC BRL L03197B
L0316AF TDC
CLC
ADC #$00DF
PEA $0000
PHA
JSL L032589
LDA #$00FF
AND [$DF]
BNE L0316DE
LDA L05538F
BEQ L0316DB
LDA #$0001
STA $FC
LDA #$0001
STA $C9
STZ $CB
STZ $CD
BRL L031965
BRA L0316DE
L0316DB BRL L03197B
L0316DE LDA $DF
LDX $E1
STA $D7
STX $D9
STZ $EB
STZ $E9
LDA #$00FF
AND [$D7]
CMP #$002D
BNE L031700
LDA $D7
LDX $D9
INC
BNE L0316FC
INX
L0316FC STA $D7
STX $D9
L031700 TDC
CLC
ADC #$00D7
PEA $0000
PHA
JSL L032589
L03170D LDA #$00FF
AND [$D7]
STA $E7
LDA $E7
SEC
SBC #$0030
BVS L03171F
EOR #$8000
L03171F BMI L031726
LDA #$0000
BRA L031729
L031726 LDA #$0001
L031729 BEQ L031746
PHA
LDA $E7
SEC
SBC #$0039
BEQ L031740
BVS L031739
EOR #$8000
L031739 BPL L031740
LDA #$0000
BRA L031743
L031740 LDA #$0001
L031743 AND $01,S
PLX
L031746 CMP #$0000
BNE L031759
LDX #$0000
LDA #$002E
CMP $E7
BNE L031756
INX
L031756 TXA
BEQ L03177A
L031759 LDA #$002E
CMP $E7
BNE L031767
LDA $EB
INC
STA $EB
BRA L03176C
L031767 LDA $E9
INC
STA $E9
L03176C LDA $D7
LDX $D9
INC
BNE L031774
INX
L031774 STA $D7
STX $D9
BRA L0317AB
L03177A LDX #$0000
LDA #$0020
CMP $E7
BNE L031785
INX
L031785 TXA
BNE L031798
PHA
LDX #$0000
LDA #$000D
CMP $E7
BNE L031794
INX
L031794 TXA
ORA $01,S
PLX
L031798 CMP #$0000
BNE L0317AE
LDX #$0000
LDA $E7
BNE L0317A5
INX
L0317A5 TXA
BNE L0317AE
BRL L03197B
L0317AB BRL L03170D
L0317AE LDA $E9
SEC
SBC #$0001
BVS L0317B9
EOR #$8000
L0317B9 BPL L0317C0
LDA #$0000
BRA L0317C3
L0317C0 LDA #$0001
L0317C3 BEQ L0317C8
BRL L03197B
L0317C8 LDA $EB
SEC
SBC #$0001
BEQ L0317D7
BVS L0317D5
EOR #$8000
L0317D5 BMI L0317DC
L0317D7 LDA #$0000
BRA L0317DF
L0317DC LDA #$0001
L0317DF BEQ L0317E4
BRL L03197B
L0317E4 LDA $D7
LDX $D9
STA $DB
STX $DD
TDC
CLC
ADC #$00D7
PEA $0000
PHA
JSL L032589
LDA #$00FF
AND [$D7]
BEQ L031803
BRL L03197B
L031803 SEP #$20
LDA #$00
STA [$DB]
REP #$20
STZ $ED
L03180D LDA #$00FF
AND [$DF]
CMP #$002D
BNE L031839
LDA $ED
EOR #$0001
STA $ED
LDA $DF
LDX $E1
INC
BNE L031826
INX
L031826 STA $DF
STX $E1
TDC
CLC
ADC #$00DF
PEA $0000
PHA
JSL L032589
BRA L03180D
L031839 PEI $E1
PEI $DF
PEA $0000
TDC
CLC
ADC #$FFC9
PHA
JSL L071FF8
LDA #$00FF
LDX #$FFC9
AND $00,X
SEC
SBC #$0009
BEQ L03185F
BVS L03185D
EOR #$8000
L03185D BMI L0318BE
L03185F LDA $DF
LDX $E1
STA $E3
STX $E5
L031867 LDA #$00FF
AND [$E3]
BEQ L031886
LDA #$00FF
AND [$E3]
CMP #$002E
BEQ L0318BE
LDA $E3
LDX $E5
INC
BNE L031880
INX
L031880 STA $E3
STX $E5
BRA L031867
L031886 LDA #$0001
STA $C9
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFC9
PHA
JSL L071DE3
PLA
STA $CB
PLX
STX $CD
LDA $ED
BEQ L0318BB
PEI $CD
PEI $CB
LDA $03,S
EOR #$FFFF
TAX
PLA
EOR #$FFFF
PLY
INC
BNE L0318B7
INX
L0318B7 STA $CB
STX $CD
L0318BB BRL L031965
L0318BE STZ $C9
TDC
CLC
ADC #$00CB
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
PEA $0000
TDC
CLC
ADC #$FFC9
PHA
JSL L1501C1
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$00CB
PEA $0000
PHA
PLY
PLX
TSC
CLC
ADC #$FFF6
TCS
PEA $0000
INC
PHA
PHX
PHY
PEA $000A
JSL L0313BE
JSL L0330F3
TAY
CLC
TSC
ADC #$000A
TCS
TYA
STA $D5
LDA $D5
BEQ L03197B
LDA $D5
DEC
BEQ L03197B
LDA $ED
BEQ L031965
TDC
CLC
ADC #$00CB
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
TDC
CLC
ADC #$00CB
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
PEA $000D
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
PEA $000A
JSL L0313BE
L031965 LDA #$0001
STA $FC
JSL L0E0000
TDC
CLC
ADC #$00C9
PEA $0000
PHA
JSL L0E07F9
L03197B LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$013A
TCS
RTL
L03198D ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L0B3773
PLA
PLX
SEC
SBC #$0000
BMI L0319CE
CMP #$0013
BPL L0319CE
SEC
SBC #$0000
BEQ L0319C0
SEC
SBC #$0011
BEQ L0319B9
DEC
BEQ L0319B9
BRA L0319CE
L0319B9 LDA #$0001
STA $0A
BRA L0319D0
L0319C0 PHY
PEA $0000
PHD
JSL L031671
PLA
STA $0A
BRA L0319D0
L0319CE STZ $0A
L0319D0 PLY
PLY
PLD
RTL
L0319D4 ENT
PHD
TSC
CLC
ADC #$FFE2
TCS
TCD
STZ $24
PHY
JSL L03198D
PLA
LSR
BCS L0319EA
BRL L031A6A
L0319EA LDA #$0001
STA $24
PHY
PHY
JSL L0B3773
PLA
PLX
CMP #$0011
BNE L0319FF
CPX #$0000
L0319FF BEQ L031A6A
TDC
CLC
ADC #$000F
PEA $0000
PHA
JSL L0E00CC
LDA $0F
BEQ L031A56
TDC
CLC
ADC #$0011
PEA $0000
PHA
LDA $11
LDX $13
TXY
LDX #$000B
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $000A
JSL L0313BE
BRA L031A5D
L031A56 PEA $18E2
JSL L07272E
L031A5D TDC
CLC
ADC #$0011
PEA $0000
PHA
JSL L0E0C71
L031A6A TSC
CLC
ADC #$001E
TCS
PLD
RTL
L031A72 ENT
PHD
TSC
CLC
ADC #$FEF6
TCS
ADC #$0013
TCD
PHY
PHY
JSL L0B3773
PLA
PLX
CMP #$000E
BNE L031A8D
CPX #$0000
L031A8D BNE L031A96
LDA #$0001
STA $FC
BRA L031B01
L031A96 STZ $FC
PHY
PHY
JSL L0B3773
PLA
PLX
STX $F3
ORA $F3
BEQ L031AA8
BRA L031B01
L031AA8 PHY
PHY
PEA $0000
JSL L031415
PLA
STA $ED
PLX
STX $EF
TDC
CLC
ADC #$00ED
PEA $0000
PHA
JSL L032589
PEI $EF
PEI $ED
PEA $0000
TDC
CLC
ADC #$FFED
PHA
JSL L071FF8
PHY
PEA $0000
TDC
CLC
ADC #$FFED
PHA
TDC
CLC
ADC #$00F1
PEA $0000
PHA
JSL L0B05B4
PLA
LSR
BCS L031AF2
BRA L031B01
L031AF2 LDA #$0001
STA $FC
JSL L0E0000
PEI $F1
JSL L0E0E4B
L031B01 TSC
CLC
ADC #$010A
TCS
PLD
RTL
L031B09 ENT
PHD
TSC
CLC
ADC #$FC54
TCS
ADC #$02B5
TCD
PHY
PHY
JSL L0B3773
PLA
PLX
SEC
SBC #$0000
BPL L031B25
BRL L032482
L031B25 CMP #$0019
BMI L031B2D
BRL L032482
L031B2D ASL
TAX
LDAL L031B35,X
PHA
RTS
L031B35 DA L031B65+1
DA L031F31+2
DA L031F42+2
DA L031F42+2
DA L031F53+2
DA L032480+1
DA L032480+1
DA L031F64+2
DA L031F75+2
DA L03232B+2
DA L0320FE+2
DA L031DF2+2
DA L031E4F+2
DA L032228+2
DA L031D38+2
DA L031EE2+2
DA L032480+1
DA L031B6A+2
DA L031B9D+2
DA L032362+2
DA L032480+1
DA L031DC3+2
DA L031D5A+2
DA L032480+1
L031B65 DA L0323D4+2
BRL L0324C5
L031B6A BRL L0324C5
TDC
CLC
ADC #$00B7
PEA $0000
PHA
JSL L0E04A7
TDC
CLC
ADC #$00B7
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
JSL L0B1426
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
JSL L0E0EA8
L031B9D BRL L0324C5
STZ $E3
PHY
PHY
JSL L0E05AF
PLA
STA $E5
PLX
STX $E7
PEI $E7
PEI $E5
LDA #$0000
TAX
JSL L033477
BPL L031BD8
PEI $E7
PEI $E5
LDA $03,S
EOR #$FFFF
TAX
PLA
EOR #$FFFF
PLY
INC
BNE L031BCF
INX
L031BCF STA $E5
STX $E7
LDA #$0001
STA $E3
L031BD8 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FE37
PHA
PEI $E7
PEI $E5
JSL L07346C
PEA $0014
JSL L0313BE
LDA #$00FF
LDX #$FF4F
AND $00,X
STA $F3
LDA L0553AD
SEC
SBC $F3
LDX #$FE4D
STA $00,X
LDX #$FE4D
LDA $00,X
SEC
SBC #$0001
BVS L031C1C
EOR #$8000
L031C1C BPL L031C5F
LDA #$0001
STA $EF
L031C23 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L040553
PEA L040553
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
LDA $EF
LDX #$FE4D
CMP $00,X
BEQ L031C5F
INC $EF
BRA L031C23
L031C5F LDA L0553AF
SEC
SBC #$0000
BPL L031C6B
BRL L031CF8
L031C6B BNE L031C70
BRL L031CF8
L031C70 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L040555
PEA L040555
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
LDA L0553AF
LDX #$FE4B
STA $00,X
LDX #$FE4B
LDA $00,X
SEC
SBC #$0001
BVS L031CB5
EOR #$8000
L031CB5 BPL L031CF8
LDA #$0001
STA $EF
L031CBC PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L040557
PEA L040557
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
LDA $EF
LDX #$FE4B
CMP $00,X
BEQ L031CF8
INC $EF
BRA L031CBC
L031CF8 LDA $E3
BEQ L031D2B
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L040559
PEA L040559
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
L031D2B PEA $0000
TDC
CLC
ADC #$FF4F
PHA
JSL L0E0EA8
L031D38 BRL L0324C5
PHY
JSL L0E0678
PLA
LSR
BCC L031D50
PEA ^L032E38
PEA L032E38
JSL L0E0F0F
BRA L031D5A
L031D50 PEA ^L032E0A
PEA L032E0A
JSL L0E0F0F
L031D5A BRL L0324C5
TDC
CLC
ADC #$00EB
PEA $0000
PHA
PEA $0000
PEA $0002
PEA $0016
JSL L0E0656
LDA $EB
BMI L031D81
JSL L072314
JSL L0E0C52
BRA L031DC3
L031D81 LDA L0553CD
LDX L0553CF
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
LDA $EB
JSL L150488
JSL L1512A5
STA $DF
STX $E1
LDA L0553CD
LDX L0553CF
PHX
PHA
JSL L0718BF
PEI $E1
PEI $DF
JSL L0E0EA8
LDA L0553CD
LDX L0553CF
PHX
PHA
JSL L07191C
L031DC3 BRL L0324C5
TDC
CLC
ADC #$00DD
PEA $0000
PHA
PEA $0000
PEA $0002
PEA $0015
JSL L0E0656
PEA $0000
TDC
CLC
ADC #$FD4B
PHA
PEA $0014
PEI $DD
JSL L0B383F
JSL L0E0F0F
L031DF2 BRL L0324C5
TDC
CLC
ADC #$00D9
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $000B
JSL L0E0656
PEA $0000
TDC
CLC
ADC #$FE37
PHA
LDA $DB
JSL L150488
PHX
PHA
JSL L07346C
PEA ^L04055B
PEA L04055B
PEA $0000
TDC
CLC
ADC #$FE23
PHA
LDA $D9
JSL L150488
PHX
PHA
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FF27
PHA
PEA $0003
JSL L1509CE
JSL L0E0F0F
L031E4F BRL L0324C5
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $000C
JSL L0E0656
PEA $0000
TDC
CLC
ADC #$FE37
PHA
LDA $D3
JSL L150488
PHX
PHA
JSL L07346C
PEA ^L04055D
PEA L04055D
PEA $0000
TDC
CLC
ADC #$FE23
PHA
LDA $D1
JSL L150488
PHX
PHA
JSL L07346C
PEA ^L04055F
PEA L04055F
PEA $0000
TDC
CLC
ADC #$FE0F
PHA
LDA $D7
JSL L150488
PHX
PHA
JSL L07346C
PEA ^L040561
PEA L040561
PEA $0000
TDC
CLC
ADC #$FDFB
PHA
LDA $D5
JSL L150488
PHX
PHA
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FEFF
PHA
PEA $0007
JSL L1509CE
JSL L0E0F0F
L031EE2 BRL L0324C5
TDC
CLC
ADC #$006F
PEA $0000
PHA
PEA $0000
PEA $0018
PEA $000F
JSL L0E0656
LDA L0553B3
STA $CF
LDA L055039
LDX L05503B
CMP $71
BNE L031F0C
CPX $73
L031F0C BEQ L031F16
LDA #$0001
STA L0553B3
BRA L031F1C
L031F16 LDA #$0003
STA L0553B3
L031F1C TDC
CLC
ADC #$006F
PEA $0000
PHA
PEA $0004
JSL L0B6DE3
LDA $CF
STA L0553B3
L031F31 BRL L0324C5
JSL L0E0000
PEA ^L040563
PEA L040563
JSL L0E0F0F
L031F42 BRL L0324C5
JSL L0E0000
PEA ^L040570
PEA L040570
JSL L0E0F0F
L031F53 BRL L0324C5
JSL L0E0000
PEA ^L040577
PEA L040577
JSL L0E0F0F
L031F64 BRL L0324C5
JSL L0E0000
PEA ^L04057F
PEA L04057F
JSL L0E0F0F
L031F75 BRL L0324C5
TDC
CLC
ADC #$00C1
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0008
JSL L0E0656
LDA $C1
BMI L031FED
CMP #$0003
BPL L031FED
SEC
SBC #$0000
BEQ L031FBD
DEC
BEQ L031FA5
DEC
BEQ L031FD5
BRA L031FED
L031FA5 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L04058B
PEA L04058B
PEA $0005
JSL L0313BE
BRA L031FFA
L031FBD PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L040590
PEA L040590
PEA $0006
JSL L0313BE
BRA L031FFA
L031FD5 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L040596
PEA L040596
PEA $0007
JSL L0313BE
BRA L031FFA
L031FED LDAL L04059D
LDX #$FF4F
SEP #$20
STA $00,X
REP #$20
L031FFA LDA $C3
DEC
BPL L032002
BRL L0320E4
L032002 CMP #$0004
BMI L03200A
BRL L0320E4
L03200A SEC
SBC #$0000
BEQ L03201F
DEC
BEQ L032051
DEC
BEQ L032082
DEC
BNE L03201C
BRL L0320B3
L03201C BRL L0320E4
L03201F PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L04059E
PEA L04059E
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
BRL L0320F1
L032051 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405A7 ; dateItems
PEA L0405A7
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
BRA L0320F1
L032082 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405B2 ; date
PEA L0405B2
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
BRA L0320F1
L0320B3 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405B8 ; time
PEA L0405B8
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
BRA L0320F1
L0320E4 LDAL L0405BE
LDX #$FF4F
SEP #$20
STA $00,X
REP #$20
L0320F1 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
JSL L0E0EA8
L0320FE BRL L0324C5
TDC
CLC
ADC #$0087
PEA $0000
PHA
PEA $0000
PEA $0030
PEA $000A
JSL L0E0656
PHY
TDC
CLC
ADC #$0087
PEA $0000
PHA
PEA $0001
JSL L0D0F6E
PLA
STA $F1
LDAL L0405BF
LDX #$FF4F
SEP #$20
STA $00,X
REP #$20
LDA $8D
LDX $8F
CMP $89
BNE L032142
CPX $8B
L032142 BNE L03215C
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405C0
PEA L0405C0
PEA $0007
JSL L0313BE
BRA L03217E
L03215C LDA $91
LDX $93
CMP $89
BNE L032166
CPX $8B
L032166 BNE L03217E
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405C7
PEA L0405C7
PEA $0006
JSL L0313BE
L03217E LDA $87
DEC
DEC
BNE L0321B5
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405CD
PEA L0405CD
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
BRA L0321E4
L0321B5 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405D4
PEA L0405D4
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
L0321E4 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FE37
PHA
PHY
PEI $8B
PEI $89
PEI $F1
PEA $0000
JSL L07AD84
PLA
LDX #$0000
BIT #$8000
BEQ L03220E
DEX
L03220E PHX
PHA
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
JSL L0E0F0F
L032228 BRL L0324C5
TDC
CLC
ADC #$00C9
PEA $0000
PHA
PEA $0000
PEA $0006
PEA $000D
JSL L0E0656
LDAL L0405DC
LDX #$FF4F
SEP #$20
STA $00,X
REP #$20
LDA $C9
BEQ L032268
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405DD
PEA L0405DD
PEA $0009
JSL L0313BE
L032268 LDA $CB
BEQ L0322C3
LDA #$00FF
LDX #$FF4F
AND $00,X
SEC
SBC #$0000
BMI L0322AD
BEQ L0322AD
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405E6
PEA L0405E6
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
BRA L0322C3
L0322AD PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405F1
PEA L0405F1
PEA $000A
JSL L0313BE
L0322C3 LDA $CD
BEQ L03231E
LDA #$00FF
LDX #$FF4F
AND $00,X
SEC
SBC #$0000
BMI L032308
BEQ L032308
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L0405FB
PEA L0405FB
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
BRA L03231E
L032308 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L040607
PEA L040607
PEA $000B
JSL L0313BE
L03231E PEA $0000
TDC
CLC
ADC #$FF4F
PHA
JSL L0E0EA8
L03232B BRL L0324C5
TDC
CLC
ADC #$00C5
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0009
JSL L0E0656
PEI $C7
PEI $C5
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
JSL L0B1388
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
JSL L0E0EA8
L032362 BRL L0324C5
TDC
CLC
ADC #$00E9
PEA $0000
PHA
PEA $0000
PEA $0002
PEA $0013
JSL L0E0656
LDA $E9
BMI L0323D4
CMP #$0005
BPL L0323D4
SEC
SBC #$0000
BEQ L032398
DEC
BEQ L0323A4
DEC
BEQ L0323B0
DEC
BEQ L0323BC
DEC
BEQ L0323C8
BRA L0323D4
L032398 PEA ^L040612
PEA L040612
JSL L0E0F0F
BRA L0323D4
L0323A4 PEA ^L040619
PEA L040619
JSL L0E0F0F
BRA L0323D4
L0323B0 PEA ^L04061F
PEA L04061F
JSL L0E0F0F
BRA L0323D4
L0323BC PEA ^L040624
PEA L040624
JSL L0E0F0F
BRA L0323D4
L0323C8 PEA ^L04062B
PEA L04062B
JSL L0E0F0F
BRA L0323D4
L0323D4 BRL L0324C5
TDC
CLC
ADC #$004F
PEA $0000
PHA
PEA $0000
PEA $0020
PEA $0018
JSL L0E0656
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FE37
PHA
LDA $4F
JSL L150488
PHX
PHA
JSL L07346C
PEA $0014
JSL L0313BE
LDA #$0001
STA $EF
L032417 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA $0000
TDC
CLC
ADC #$FF4F
PHA
PEA ^L040631
PEA L040631
PEA $0000
TDC
CLC
ADC #$FE37
PHA
TDC
CLC
ADC #$004F
STA $F3
STZ $F5
LDA $EF
ASL
TAY
LDA [$F3],Y
JSL L150488
PHX
PHA
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FE4F
PHA
PEA $0003
JSL L1509CE
PEA $0100
JSL L0313BE
LDA #$000F
CMP $EF
BEQ L032473
INC $EF
BRA L032417
L032473 PEA $0000
TDC
CLC
ADC #$FF4F
PHA
JSL L0E0EA8
L032480 BRA L0324C5
L032482 PHY
PHY
JSL L0B3773
PLA
PLX
STA $ED
JSL L0E0000
PEA ^L040633
PEA L040633
PEA $0000
TDC
CLC
ADC #$FE37
PHA
LDA $ED
JSL L150488
PHX
PHA
JSL L07346C
PEA ^L04063A
PEA L04063A
PEA $0000
TDC
CLC
ADC #$FF33
PHA
PEA $0003
JSL L1509CE
JSL L0E0F0F
L0324C5 TSC
CLC
ADC #$03AC
TCS
PLD
RTL
L0324CD ENT
PHD
PHY
TSC
TCD
LDA [$08]
AND #$00FF
BEQ L0324F2
TAY
XBA
STA $01
CLC
L0324DD LDA [$08],Y
AND #$00FF
TAX
LDAL L0714D9,X
EOR $01
ROL
STA $01
DEY
BNE L0324DD
AND #$0FFC
L0324F2 CLC
ADC $0C
STA $10
LDA $0E
BCC L0324FC
INC
L0324FC STA $12
LDA $06
STA $0E
LDA $05
STA $0D
TDC
TCS
PLY
PLD
PLY
PLY
PLY
PLY
RTL
L03250F ENT
PHD
TSC
SEC
SBC #$000A
TCD
TCS
STZ $18
PHA
PHA
PEI $12
PEI $10
_GetHandleSize
PLA
STA $01
PLA
STA $03
LDA [$14]
AND #$00FF
INC
STA $05
CLC
ADC $01
TAX
LDA $03
ADC #$0000
PHA
PHX
PEI $12
PEI $10
_SetHandleSize
BCS L032576
PEI $16
PEI $14
LDA [$10]
STA $07
CLC
ADC $01
TAX
LDY #$0002
LDA [$10],Y
STA $09
ADC $03
PHA
PHX
PEA $0000
PEI $05
JSL L070597
LDA [$07]
INC
STA [$07]
LDA #$0001
STA $18
L032576 LDA $0E
STA $16
LDA $0D
STA $15
LDX $0B
TDC
CLC
ADC #$0014
TCS
TXA
TCD
RTL
L032589 ENT
PHD
PHY
PHY
TSC
TCD
LDY #$0002
LDA [$0A]
STA $01
LDA [$0A],Y
STA $03
LDY #$0000
SEP #$20
L03259E LDA [$01],Y
CMP #$20
BEQ L0325A8
CMP #$0D
BNE L0325AF
L0325A8 INY
BNE L03259E
INC $03
BRA L03259E
L0325AF REP #$20
TYA
CLC
ADC $01
STA [$0A]
LDA $03
ADC #$0000
LDY #$0002
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L0325D1 ENT
PHD
PHY
PHY
TSC
TCD
LDY #$0002
LDA [$0A]
STA $01
LDA [$0A],Y
STA $03
LDY #$0000
SEP #$20
L0325E6 LDA [$01],Y
CMP L055277
BEQ L0325F8
CMP #$00
BEQ L0325FD
INY
BNE L0325E6
INC $03
BRA L0325E6
L0325F8 INY
BNE L0325FD
INC $03
L0325FD REP #$20
TYA
CLC
ADC $01
STA [$0A]
LDA $03
ADC #$0000
LDY #$0002
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L03261F ENT
PHD
TSC
SEC
SBC #$000E
TCD
TCS
STZ $1C
LDY #$0002
LDA [$14]
STA $01
CLC
ADC #$0002
STA $05
LDA [$14],Y
STA $03
ADC #$0000
STA $07
LDA [$01]
BEQ L0326B3
STA $09
LDA $18
ORA $1A
BEQ L032652
LDA [$18]
AND #$00FF
BNE L032669
L032652 LDA [$05]
AND #$00FF
BEQ L0326AC
DEC $09
BEQ L0326B3
INC
CLC
ADC $05
STA $05
BCC L032652
INC $07
BRA L032652
L032669 STA $0B
L03266B LDA [$05]
AND #$00FF
CMP $0B
BEQ L032684
L032674 DEC $09
BEQ L0326B3
INC
CLC
ADC $05
STA $05
BCC L03266B
INC $07
BRA L03266B
L032684 TAY
LDA #$0000
TAX
SEP #$20
L03268B LDA [$18],Y
TAX
LDAL L0714D9,X
STA $0D
LDA [$05],Y
TAX
LDAL L0714D9,X
CMP $0D
BNE L0326A6
DEY
BNE L03268B
REP #$20
BRA L0326AC
L0326A6 REP #$20
LDA $0B
BRA L032674
L0326AC LDA $05
SEC
SBC $01
STA $1C
L0326B3 LDA $12
STA $1A
LDA $11
STA $19
LDX $0F
TDC
CLC
ADC #$0018
TCS
TXA
TCD
RTL
L0326C6 ENT
ADRL L03271E
ADRL L032720
ADRL L032723
ADRL L032727
ADRL L032730
ADRL L032734
ADRL L032736
ADRL L032738
ADRL L03273A
ADRL L03273D
ADRL L03273F
ADRL L032745
ADRL L03274F
ADRL L032759
ADRL L032767
ADRL L03276A
ADRL L03276C
ADRL L03276E
ADRL L032772
ADRL L032775
ADRL L032778
ADRL L03277A
L03271E STR '&'
L032720 STR '&&'
L032723 STR 'and'
L032727 STR 'contains'
L032730 STR 'div'
L032734 STR '/'
L032736 STR '='
L032738 STR '^'
L03273A STR '>='
L03273D STR '>'
L03273F STR 'is in'
L032745 STR 'is not in'
L03274F STR 'is within'
L032759 STR 'is not within'
L032767 STR '<='
L03276A STR '<'
L03276C STR '-'
L03276E STR 'mod'
L032772 STR '<>'
L032775 STR 'or'
L032778 STR '+'
L03277A STR '*'
L03277C ENT
ADRL L100000
ADRL L100013
ADRL L100116
ADRL L10079F
ADRL L1007B5
ADRL L100802
ADRL L100137
ADRL L100887
ADRL L100137
ADRL L100137
ADRL L1008D4
ADRL L100916
ADRL L100AA7
ADRL L10092A
ADRL L100137
ADRL L100137
ADRL L100B4B
ADRL L100B5E
ADRL L100137
ADRL L100D72
ADRL L100D91
ADRL L100DA4
L0327D4 ENT
ADRL L031604
ADRL L031604
ADRL L031A72
ADRL L031604
ADRL L0B0072
ADRL L0319D4
ADRL $00000000
ADRL L0319D4
ADRL $00000000
ADRL $00000000
ADRL L031604
ADRL L031604
ADRL $00000000
ADRL $00000000
ADRL $00000000
ADRL $00000000
ADRL L03198D
ADRL L03198D
ADRL $00000000
ADRL L031A72
ADRL L03198D
ADRL L03198D
L03282C ENT
DW $0032
DW $0032
DW $0014
DW $0028
DW $0046
DW $0046
DW $001E
DW $0050
DW $0028
DW $0028
DW $0028
DW $0028
DW $0028
DW $0028
DW $0028
DW $0028
DW $003C
DW $0046
DW $001E
DW $000A
DW $003C
DW $0046
L032858 ENT
DW $0007
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $07
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 $03
DB $00
DB $00
DB $00
DB $01
DB $00
DB $02
DB $02
DB $01
DB $01
DB $02
DB $01
DB $05
DB $01
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $02
DB $00
DB $01
DB $01
DB $01
DB $00
DB $02
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $02
DB $00
DB $02
DB $01
DB $06
DB $00
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $02
DB $02
DB $02
DB $00
DB $00
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $06
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $06
DB $00
DB $00
DB $00
DB $00
DB $00
DB $01
DB $06
DB $06
DB $00
DB $00
DB $01
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $06
DB $06
DB $00
DB $00
DB $02
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $06
DB $06
DB $06
DB $06
DB $06
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $06
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
L032950 ENT
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 $01
DB $00
DB $07
DB $0A
DB $16
DB $15
DB $03
DB $11
DB $00
DB $06
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $02
DB $00
DB $10
DB $07
DB $0A
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 $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $06
DB $00
DB $09
DB $08
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 $05
DB $0B
DB $08
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 $13
DB $00
DB $00
DB $00
DB $00
DB $0F
DB $09
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 $04
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
L032A48 ENT
ADRL L0B6EB9
ADRL L0B6EDE
ADRL L0B6F55
ADRL L0B7053
ADRL L0B70E5
ADRL L0B7274
ADRL L0B72CA
ADRL L0B737D
ADRL L0B73AE
ADRL L0B75FD
ADRL L0B7642
ADRL L0B76E6
L032A78 ENT
ADR L110000
DB $00
ADR L160012
DB $80
ADR L110059
DB $00
ADR L160020
DB $80
ADR L11006E
DB $00
ADR L1100D1
DB $00
ADR L1100E6
DB $00
ADR L16002E
DB $80
ADR L110161
DB $00
ADR L16003C
DB $80
ADR L16004A
DB $80
ADR L110171
DB $00
ADR L160058
DB $80
ADR L160066
DB $80
ADR L110191
DB $00
ADR L110216
DB $00
ADR L110287
DB $00
ADR L160074
DB $80
ADR L110325
DB $00
ADR L11036F
DB $00
ADR L110453
DB $00
ADR L160082
DB $80
ADR L110480
DB $00
ADR L11049E
DB $00
ADR L1104AE
DB $00
ADR L1105EC
DB $00
ADR L110634
DB $00
ADR L1107AC
DB $00
ADR L110804
DB $00
ADR L110844
DB $00
ADR L160090
DB $80
ADR L1108A0
DB $00
ADR L11108B
DB $00
ADR L16009E
DB $80
ADR L1111BD
DB $00
ADR L111389
DB $00
ADR L1600AC
DB $80
ADR L120000
DB $00
ADR L120093
DB $00
ADR L1200A3
DB $00
ADR L1600BA
DB $80
ADR L1600C8
DB $80
ADR L121673
DB $00
ADR L12189D
DB $00
ADR L1600D6
DB $80
ADR L121BD7
DB $00
ADR L121C4A
DB $00
ADR L121C5A
DB $00
ADR L121CC3
DB $00
ADR L121D38
DB $00
ADR L121D81
DB $00
ADR L1600E4
DB $80
L032B48 ENT
DW $0014
L032B4A ENT
DW $0028
L032B4C ENT
DW $002D
L032B4E ENT
DW $0033
DW $0034
L032B52 ENT
ADR L130000
DB $00
ADR L1300E8
DB $40
ADR L1300FB
DB $00
ADR L130111
DB $40
ADR L130266
DB $00
ADR L13029D
DB $00
ADR L1302BA
DB $00
ADR L1302F8
DB $00
ADR L13030D
DB $00
ADR L130334
DB $00
ADR L1600F2
DB $00
ADR L13035B
DB $00
ADR L130370
DB $40
ADR L130383
DB $00
ADR L130399
DB $00
ADR L1303F0
DB $00
ADR L13040E
DB $00
ADR L130424
DB $00
ADR L13043A
DB $00
ADR L160100
DB $80
ADR L16010E
DB $80
ADR L16011C
DB $80
ADR L16012A
DB $80
ADR L130630
DB $00
ADR L130450
DB $00
ADR L130646
DB $00
ADR L130675
DB $00
ADR L13068B
DB $00
ADR L1306A1
DB $00
ADR L1306B7
DB $40
ADR L1307DC
DB $40
ADR L130901
DB $00
ADR L13095F
DB $00
ADR L1309C0
DB $00
ADR L1309F5
DB $00
ADR L130A3F
DB $00
ADR L130A6C
DB $00
ADR L130DFB
DB $00
ADR L130E38
DB $40
ADR L130EAA
DB $00
ADR L130EBF
DB $00
ADR L130F74
DB $00
ADR L131038
DB $00
ADR L13113F
DB $00
ADR L13118B
DB $00
ADR L1311A3
DB $00
ADR L1311E8
DB $00
ADR L13121C
DB $00
ADR L160138
DB $80
ADR L160146
DB $80
ADR L160154
DB $80
ADR L160162
DB $80
ADR L131294
DB $00
ADR L1312A9
DB $00
ADR L1312BF
DB $00
ADR L1312E9
DB $00
ADR L13133F
DB $00
ADR L131355
DB $00
ADR L13136B
DB $00
ADR L131384
DB $00
ADR L13139A
DB $00
ADR L1313F8
DB $00
ADR L13145D
DB $00
ADR L131473
DB $00
L032C52 ENT
DW $000C
L032C54 ENT
DW $0028
L032C56 ENT
DW $0035
DW $0040
L032C5A ENT
ADRL L0D1D76
ADRL L0D1D91
ADRL L0D2016
ADRL L0D206A
ADRL L0D1DB6
ADRL L0D1DCD
ADRL L0D1E24
ADRL L0D1E6F
ADRL L0D1E86
ADRL L0D1F31
ADRL L031604
ADRL L0D2187
ADRL L0D1F84
ADRL L0D1F49
ADRL L0D11E7
ADRL L0D11D0
ADRL L0B7D5D
ADRL L0D20FB
ADRL L0D124F
ADRL L031604
ADRL L03198D
ADRL L03198D
ADRL L03198D
ADRL L0B0072
ADRL L0D167A
ADRL L0D167A
ADRL L0D167A
ADRL L0319D4
ADRL L0319D4
ADRL L031A72
ADRL L031A72
ADRL L0D2610
ADRL L0D264D
ADRL L0D2668
ADRL L0D25F9
ADRL L0D1EE2
ADRL $00000000
ADRL L0D128B
ADRL L0D24E9
ADRL L0D244F
ADRL $00000000
ADRL $00000000
ADRL $00000000
ADRL L0D320C
ADRL L0D318D
ADRL $00000000
ADRL L0D1404
ADRL L0D14D4
ADRL L0D15E3
ADRL L0D2A33
ADRL L0D1BB0
ADRL L0D2265
ADRL L0D1EB8
ADRL L0D14AB
ADRL L0D2C02
ADRL L0D2FBC
ADRL L0D2DEE
ADRL L0D2F12
ADRL L0D2F55
ADRL L0D1732
ADRL L0D28FB
ADRL L0D1CCE
ADRL $00000000
ADRL $00000000
ADRL $00000000
ADRL L0D1D3E
ADRL L0D2FE9
ADRL L0D25C0
ADRL L0D27B1
ADRL L0D27FC
ADRL L0D1AF4
ADRL L0D1B99
ADRL L0D20E4
ADRL L0D19B7
ADRL L0D3064
ADRL L0D2A90
ADRL L0D2001
ADRL L0D298A
ADRL L0D2036
ADRL L0D30FF
ADRL L0D3129
DW $0051
L032DA0 ENT
ADRL L032E02
ADRL L032E08
ADRL L032E0A
ADRL L032E11
ADRL L032E14
ADRL L032E17
ADRL L032E2F
ADRL L032E32
ADRL L032E35
ADRL L032E38
ADRL L032E3E
ADRL L032E42
ADRL L032E45
ADRL L032E48
ADRL L032E4B
ADRL L032E4E
ADRL L032E51
ADRL L032E54
ADRL L032E57
ADRL L032E5A
ADRL L032E5D
ADRL L032E60
ADRL L032E64
ADRL L032E67
DB $18
DB $00
L032E02 ENT
STR 'down'
DB $00
L032E08 DB $00
DB $00
L032E0A ENT
STR 'false'
DB $00
L032E11 STR 0C
DB $00
L032E14 STR 0A
DB $00
L032E17 STR '3.14159265358979323846'
DB $00
L032E2F STR '"'
DB $00
L032E32 STR ' '
DB $00
L032E35 STR 09
DB $00
L032E38 ENT
STR 'true'
DB $00
L032E3E ENT
STR 'up'
DB $00
L032E42 STR '0'
DB $00
L032E45 STR '1'
DB $00
L032E48 STR '2'
DB $00
L032E4B STR '3'
DB $00
L032E4E STR '4'
DB $00
L032E51 STR '5'
DB $00
L032E54 STR '6'
DB $00
L032E57 STR '7'
DB $00
L032E5A STR '8'
DB $00
L032E5D STR '9'
DB $00
L032E60 STR '10'
DB $00
L032E64 STR ','
DB $00
L032E67 STR ':'
DB $00
L032E6A ENT
STR 0D
DB $00
MX %00
L032E6D ENT
PHB
PHD
PHY
TSC
TCD
LDA #$0000
TAX
TAY
PEA >L0714D9
PLB
PLB
SEP #$20
CLC
LDA [$09]
TAY
STA $02
STZ $01
L032E86 LDA [$09],Y
TAX
LDA L0714D9,X
EOR $01
DEY
BEQ L032E98
ROL
STA $01
ROL $02
BRA L032E86
L032E98 XBA
LDA $02
XBA
REP #$20
AND #$7FFF
BNE L032EA6
LDA #$0001
L032EA6 STA $0D
LDA $07
STA $0B
LDA $05
STA $09
TDC
TCS
PLY
PLD
PLY
PLY
PLB
RTL
L032EB8 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L0A4321
PLA
LSR
BCC L032F1B
PHY
JSL L160170
PLA
LSR
BCC L032F10
* PEA ^L160170
* PEA L160170
* JSL L07187A
LDA #$FFFF
STA L0550B9
JSL L0A3E17
L032EE6 JSL L0A32C6
LDA L05524F
BEQ L032EE6
JSL L0A129A
PEA $001C
JSL L099176
JSL L0903F2
PEA $0000
PEA $0001
JSL L090000
JSL L093A99
JSL L074D35
L032F10 LDA #$0000
STAL L055453
JSL L0A3FE2
L032F1B PLY
PLY
PLD
RTL
L032F1F ENT
PHD
PHA
PEA $0001
TSC
TCD
LDA $0A
BEQ L032F94
LDX #$0000
BCC L032F4A
BIT #$8000
BEQ L032F3B
EOR #$FFFF
INC
STA $0A
INX
L032F3B LDA $03
BIT #$8000
BEQ L032F4A
EOR #$FFFF
INC
STA $03
INX
INX
L032F4A LDY #$0000
BRA L032F51
L032F4F ASL $01
L032F51 ASL $0A
BCC L032F4F
ROR $0A
L032F57 LDA $03
CMP $0A
BCC L032F68
LDA $03
SEC
SBC $0A
STA $03
TYA
ORA $01
TAY
L032F68 LSR $0A
LSR $01
BCC L032F57
LDA $03
STA $0A
TYA
CPX #$0000
BEQ L032F90
CPX #$0003
BEQ L032F86
EOR #$FFFF
INC
CPX #$0001
BEQ L032F90
L032F86 TAY
LDA $0A
EOR #$FFFF
INC
STA $0A
TYA
L032F90 PLY
PLY
PLD
RTL
L032F94 PEA $0004
PEA $0000
PEA $0000
_SysFailMgr
L032FA4 ENT
PHD
PHX
PHA
PEA $0000
PEA $0001
PEA $0000
PEA $0000
TSC
TCD
LDA $12
ORA $14
BNE L032FC1
LDX #$0000
BRL L033085
L032FC1 LDX #$0000
BCC L032FFF
LDA $14
BIT #$8000
BEQ L032FDF
EOR #$FFFF
STA $14
LDA $12
EOR #$FFFF
INC
BNE L032FDC
INC $14
L032FDC STA $12
INX
L032FDF LDA $0B
BIT #$8000
BEQ L032FFF
EOR #$FFFF
STA $0B
LDA $09
EOR #$FFFF
INC
BNE L032FF5
INC $0B
L032FF5 STA $09
INX
INX
BRA L032FFF
L032FFB ASL $05
ROL $07
L032FFF ASL $12
ROL $14
BCC L032FFB
ROR $14
ROR $12
L033009 LDA $0B
CMP $14
BEQ L033013
BCC L033032
BRA L033019
L033013 LDA $09
CMP $12
BCC L033032
L033019 LDA $09
SEC
SBC $12
STA $09
LDA $0B
SBC $14
STA $0B
LDA $01
ORA $05
STA $01
LDA $03
ORA $07
STA $03
L033032 LSR $14
ROR $12
LSR $07
ROR $05
BCC L033009
CPX #$0000
BEQ L033071
CPX #$0003
BEQ L03305E
LDA $01
EOR #$FFFF
STA $01
LDA $03
EOR #$FFFF
INC $01
BNE L033057
INC
L033057 STA $03
CPX #$0001
BEQ L033071
L03305E LDA $09
EOR #$FFFF
STA $09
LDA $0B
EOR #$FFFF
INC $09
BNE L03306F
INC
L03306F STA $0B
L033071 LDA $09
STA $12
LDA $0B
STA $14
LDA $01
LDX $03
PLY
PLY
PLY
PLY
PLY
PLY
PLD
RTL
L033085 PEA $0004
PEA $0000
PEA $0000
_SysFailMgr
L033095 ENT
PHD
TSC
SEC
SBC #$00F7
TCD
ADC #$00E6
TCS
PEI $FF
PEI $FD
PEA $0000
TDC
CLC
ADC #$00E8
PHA
PEA $0009
_SANEFP816
BCS L0330BC
LDA #$0000
L0330BC STAL L05565D
PEI $F0
PEI $EE
PEI $EC
PEI $EA
PEI $E8
PLA
STAL L055477
PLA
STAL L055479
PLA
STAL L05547B
PLA
STAL L05547D
PLA
STAL L05547F
LDA #L055477
LDX #^L055477
TAY
TSC
CLC
ADC #$0010
TCS
TYA
PLD
RTL
L0330F3 PHD
TSC
SEC
SBC #$00F1
TCD
ADC #$00EA
TCS
PEA $0000
TDC
CLC
ADC #$00F7
PHA
PEA $001C
_SANEFP816
BCS L033116
LDA #$0000
L033116 STAL L05565D
JSL L03392E
CLC
ADC #$0004
AND #$00FF
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L03312F ENT
PHD
TSC
SEC
SBC #$00F1
TCD
ADC #$00EA
TCS
PEA $0000
TDC
CLC
ADC #$00F7
PHA
PEA $0014
_SANEFP816
BCS L033152
LDA #$0000
L033152 STAL L05565D
PEI $FF
PEI $FD
PEI $FB
PEI $F9
PEI $F7
PLA
STAL L05549F
PLA
STAL L0554A1
PLA
STAL L0554A3
PLA
STAL L0554A5
PLA
STAL L0554A7
LDA #L05549F
LDX #^L05549F
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L033189 PHD
TSC
SEC
SBC #$00F5
TCD
ADC #$00E0
TCS
PEI $FF
PEI $FD
PEI $FB
JSL L0334C5
PLY
PLY
PLY
TAY
BEQ L0331AA
LDA #$FFFF
BRL L03332B
L0331AA LDA #L0334A2
LDX #^L0334A2
PHX
PHA
LDAL L055679+2
TAX
LDAL L055679
STA $F0
STX $F2
PLA
PLX
LDY #$0002
PHA
TXA
STA [$F0],Y
PLA
STA [$F0]
LDA L05565B
BNE L0331EB
LDA L0556D0
STAL L055669
LDX L055451
LDA L05544F
PHA
TXA
STAL L05566B+2
PLA
STAL L05566B
BRL L033328
L0331EB LDA #$0004
STA $E6
LDA #$0001
STA $EA
LDX #$0000
TDC
CLC
ADC #$00E6
STX $EE
STA $EC
PEA $0000
TDC
CLC
ADC #$00EA
PHA
PEA $2027
LDX #$0000
JSL GSOS2
BCS L033219
LDA #$0000
L033219 STAL L05565D
PHX
PHA
LDA $E8
CLC
ADC #$0005
LDX #$0000
TAY
BPL L03322C
DEX
L03322C PHX
PHA
LDA L05565F
ORA #$0F00
PHA
PEA $4000
PEA $0000
PEA $0000
_NewHandle
BCS L03324A
LDA #$0000
L03324A STAL L05565D
PLA
PLX
STA $F0
STX $F2
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
STX $E4
STA $E2
LDA L05565D
BEQ L03326B
LDA #$FFFF
BRL L03332B
L03326B LDX $E4
LDA $E2
STX $EE
STA $EC
LDA $E8
CLC
ADC #$0005
STA [$EC]
PEA $0000
TDC
CLC
ADC #$00EA
PHA
PEA $2027
LDX #$0000
JSL GSOS2
BCS L033293
LDA #$0000
L033293 STAL L05565D
LDY #$0002
LDA [$E2],Y
LDX #$0000
PHX
PHA
LDA $E2
CLC
ADC #$0004
LDX $E4
BCC L0332AC
INX
L0332AC JSL L0338DC
PLA
PLX
STA $F0
STX $F2
LDA #$0000
SEP #$20
STA [$F0]
REP #$20
LDA $FB
BEQ L0332D7
LDA $E2
CLC
ADC #$0004
TAX
LDA $E4
BCC L0332CF
INC
L0332CF PHA
PHX
JSL L0338E7
PLY
PLY
L0332D7 LDA $E2
CLC
ADC #$0004
LDX $E4
BCC L0332E2
INX
L0332E2 PHX
PHA
LDAL L05566B+2
TAX
LDAL L05566B
STA $F0
STX $F2
PLA
PLX
LDY #$0002
PHA
TXA
STA [$F0],Y
PLA
STA [$F0]
LDA #$0001
STA L0556D0
LDAL L05566B+2
TAX
LDAL L05566B
STX L055451
STA L05544F
PEA $007F
PEA $0000
_SetInGlobals
BCS L033324
LDA #$0000
L033324 STAL L05565D
L033328 LDA #$0000
L03332B TAY
TSC
CLC
ADC #$0014
TCS
TYA
PLD
RTL
L033335 ENT
PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00EE
TCS
LDAL L055679+2
TAX
LDAL L055679
STA $F4
STX $F6
LDX $F6
LDA #$0024
CLC
ADC $F4
BCC L033358
INX
L033358 STX $F2
STA $F0
BRA L03338F
L03335E LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
STX $F4
ORA $F4
BEQ L033383
PEI $FF
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
STA $F4
STX $F6
LDA $F4
LDX $F6
JSL L0337C4
PLY
L033383 LDA $F0
SEC
SBC #$0004
STA $F0
BCS L03338F
DEC $F2
L03338F SEC
LDA $F0
SBCL L055679
BNE L0333A0
LDA $F2
SBCL L055679+2
BRA L0333A8
L0333A0 LDA $F2
SBCL L055679+2
REP #$02
L0333A8 BEQ L0333B1
BVS L0333AF
EOR #$8000
L0333AF BMI L03335E
L0333B1 LDA $FF
STA L0555A1
LDAL L055679+2
TAX
LDAL L055679
STA $F4
STX $F6
LDY #$0002
LDA [$F4],Y
TAX
LDA [$F4]
STA $F4
STX $F6
LDA $F4
LDX $F6
JSL L0337C4
TSC
CLC
ADC #$000A
TCS
PLD
RTL
L0333DF ENT
PHD
TSC
SEC
SBC #$00E3
TCD
ADC #$00DC
TCS
PEA $0000
TDC
CLC
ADC #$00F3
PHA
PEA $0000
TDC
CLC
ADC #$00E9
PHA
PEA $000C
_SANEFP816
BCS L03340B
LDA #$0000
L03340B STAL L05565D
JSL L03392E
STA [$FD]
LDA [$FD]
SEC
SBC #$0000
BVS L033420
EOR #$8000
L033420 BMI L03342D
LDA [$FD]
AND #$007F
EOR #$FFFF
INC
BRA L033432
L03342D LDA [$FD]
AND #$007F
L033432 STA [$FD]
PEI $F1
PEI $EF
PEI $ED
PEI $EB
PEI $E9
PLA
STAL L05548B
PLA
STAL L05548D
PLA
STAL L05548F
PLA
STAL L055491
PLA
STAL L055493
LDA #L05548B
LDX #^L05548B
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L033467 ENT
TAY
LDA $04,S
TAX
BEQ L033473
TYA
L03346E ASL
DEX
BNE L03346E
TAY
L033473 TYA
STA $04,S
RTL
L033477 ENT
PHX
PHA
LDA $08,S
TAX
LDA $0A,S
TAY
LDA $06,S
STA $0A,S
LDA $04,S
STA $08,S
TXA
SEC
SBC $01,S
BNE L033492
TYA
SBC $03,S
BRA L033497
L033492 TYA
SBC $03,S
REP #$02
L033497 PHP
LDA $00,S
STA $08,S
PLY
PLY
PLY
PLY
PLP
RTL
L0334A2 PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00F2
TCS
PEA $0001
PEA ^L055599
PEA L055599
JSL L033856
PLY
PLY
PLY
TSC
CLC
ADC #$0006
TCS
PLD
RTL
L0334C5 PHD
TSC
SEC
SBC #$00F5
TCD
ADC #$00E0
TCS
STZ L0556D0
LDX $FF
LDA $FD
STX $F0
ORA $F0
BNE L0334E9
LDA #$0001
STA L05565B
LDA #$0000
BRL L03379D
L0334E9 LDX $FF
LDA $FD
CLC
ADC #$0008
PHA
TXA
ADC #$0000
TAX
PLA
STX $E6
STA $E4
PEA $0008
PEI $FF
PEI $FD
PEA ^L0556C7
PEA L0556C7
JSL L03390E
PLY
PLY
PLY
PLY
PLY
LDA #$0000
SEP #$20
STAL L0556CF
REP #$20
STZ L05565B
PHX
PHA
PEA $0000
PEA $0004
LDA L05565F
ORA #$0F00
PHA
PEA $0000
PEA $0000
PEA $0000
_NewHandle
BCS L033544
LDA #$0000
L033544 STAL L05565D
PLA
PLX
STX $EA
STA $E8
LDA L05565D
BEQ L033559
LDA L05565D
BRL L03379D
L033559 LDA [$E4]
AND #$00FF
BNE L033563
BRL L0336E7
L033563 LDX #$0000
LDA #$0002
PHX
PHA
LDA L0556D0
CLC
ADC #$0002
LDX #$0000
TAY
BPL L033579
DEX
L033579 SEC
JSL L0337CC
PEI $EA
PEI $E8
_SetHandleSize
BCS L03358E
LDA #$0000
L03358E STAL L05565D
LDA L0556D0
PHA
INC
STA L0556D0
PLA
LDX #$0000
TAY
BPL L0335A2
DEX
L0335A2 STX $F4
ASL
ROL $F4
ASL
ROL $F4
LDX $F4
PHX
PHA
LDY #$0002
LDA [$E8],Y
TAX
LDA [$E8]
JSL L0338DC
PLA
PLX
STA $F0
STX $F2
LDX $E6
LDA $E4
LDY #$0002
PHA
TXA
STA [$F0],Y
PLA
STA [$F0]
LDA [$E4]
AND #$00FF
CMP #$0022
BEQ L0335DB
BRL L03367A
L0335DB LDA L0556D0
SEC
SBC #$0001
LDX #$0000
TAY
BPL L0335E9
DEX
L0335E9 STX $F4
ASL
ROL $F4
ASL
ROL $F4
LDX $F4
PHX
PHA
LDY #$0002
LDA [$E8],Y
TAX
LDA [$E8]
JSL L0338DC
PLA
PLX
STA $F0
STX $F2
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
CLC
ADC #$0001
STA [$F0]
PHA
LDY #$0002
LDA [$F0],Y
BCC L03361E
INC
L03361E TAX
LDY #$0002
STA [$F0],Y
PLA
L033625 INC $E4
BNE L03362B
INC $E6
L03362B LDX $E6
LDA $E4
STA $F0
STX $F2
LDA [$F0]
AND #$00FF
STA $E2
TAY
BEQ L033678
LDA $E2
CMP #$0022
BNE L033676
INC $E4
BNE L03364A
INC $E6
L03364A LDX $E6
LDA $E4
STA $F0
STX $F2
LDA [$F0]
AND #$00FF
CMP #$0022
BNE L033674
LDY #$FFFF
L03365F INY
LDA [$E4],Y
XBA
STA [$E4],Y
AND #$00FF
BNE L03365F
LDA $E4
BNE L033670
DEC $E6
L033670 DEC $E4
BRA L033676
L033674 BRA L033678
L033676 BRA L033625
L033678 BRA L0336A1
L03367A LDX $E6
LDA $E4
INC $E4
BNE L033684
INC $E6
L033684 STA $F0
STX $F2
LDA [$F0]
AND #$00FF
STA $E2
CMP #$0020
BEQ L0336A1
LDA $E2
BEQ L0336A1
LDA $E2
CMP #$0009
BEQ L0336A1
BRA L03367A
L0336A1 LDX $E6
LDA $E4
SEC
SBC #$0001
PHA
TXA
SBC #$0000
TAX
PLA
STA $F0
STX $F2
LDA #$0000
SEP #$20
STA [$F0]
REP #$20
LDA $E2
BNE L0336C9
LDA $E4
BNE L0336C7
DEC $E6
L0336C7 DEC $E4
L0336C9 LDA [$E4]
AND #$00FF
STA $E2
CMP #$0020
BEQ L0336DC
LDA $E2
CMP #$0009
BNE L0336E4
L0336DC INC $E4
BNE L0336E2
INC $E6
L0336E2 BRA L0336C9
L0336E4 BRL L033559
L0336E7 PEI $EA
PEI $E8
_HLock
BCS L0336F7
LDA #$0000
L0336F7 STAL L05565D
LDY #$0002
LDA [$E8],Y
TAX
LDA [$E8]
STX L055451
STA L05544F
LDA L0556D0
LDX #$0000
TAY
BPL L033713
DEX
L033713 STX $F4
ASL
ROL $F4
ASL
ROL $F4
LDX $F4
PHX
PHA
LDX L055451
LDA L05544F
JSL L0338DC
PLA
PLX
STA $F0
STX $F2
LDX #$0000
LDA #$0000
LDY #$0002
PHA
TXA
STA [$F0],Y
PLA
STA [$F0]
LDA $FB
BNE L033746
BRL L03379A
L033746 PEA ^L0556C7
PEA L0556C7
JSL L0338E7
PLY
PLY
STZ $E2
BRA L03378D
L033756 LDA $E2
LDX #$0000
TAY
BPL L03375F
DEX
L03375F STX $F4
ASL
ROL $F4
ASL
ROL $F4
LDX $F4
PHX
PHA
LDX L055451
LDA L05544F
JSL L0338DC
PLA
PLX
STA $F0
STX $F2
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
PHX
PHA
JSL L0338E7
PLY
PLY
INC $E2
L03378D LDA $E2
SEC
SBC L0556D0
BVS L033798
EOR #$8000
L033798 BPL L033756
L03379A LDA #$0000
L03379D TAY
TSC
CLC
ADC #$0014
TCS
TYA
PLD
RTL
L0337A7 PHD
TSC
TCD
STA [$06]
LDA $01,S
LDY #$0002
STA [$06],Y
LDA $02,S
INY
INY
STA [$06],Y
LDA $04,S
INY
INY
STA [$06],Y
PLD
LDA #$0000
RTL
L0337C4 SEP #$10
PHX
REP #$10
DEC
PHA
RTL
L0337CC ENT
PHD
PHX
PHA
TSC
TCD
LDX $0A
LDA $0C
BEQ L0337DA
LDX #$0021
L0337DA TXY
BEQ L0337E7
LDA $01
L0337DF ASL
ROL $03
DEX
BNE L0337DF
STA $01
L0337E7 LDA $01
STA $0A
LDA $03
STA $0C
PLY
PLY
PLD
RTL
L0337F3 ENT
PHD
TSC
SEC
SBC #$00E7
TCD
ADC #$00E0
TCS
PEA $0000
TDC
CLC
ADC #$00F7
PHA
PEA $0000
TDC
CLC
ADC #$00ED
PHA
PEA $0012
_SANEElems816
BCS L03381F
LDA #$0000
L03381F STAL L05565D
PEI $F5
PEI $F3
PEI $F1
PEI $EF
PEI $ED
PLA
STAL L055521
PLA
STAL L055523
PLA
STAL L055525
PLA
STAL L055527
PLA
STAL L055529
LDA #L055521
LDX #^L055521
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L033856 TSC
TCD
LDA [$04]
TAX
LDA $04,S
TAY
LDA $06,S
TCD
LDA $08,S
TXS
PHA
PHD
PHY
TSC
TCD
LDY #$0002
LDA [$01],Y
TAX
INY
INY
LDA [$01],Y
STA $08,S
INY
INY
LDA [$01],Y
STA $0A,S
PLA
PLA
PLA
PLY
CMP #$0000
BNE L033885
INC
L033885 PHX
PLD
RTL
L033888 ENT
PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00F2
TCS
PEI $FF
PEA $0001
_SANEFP816
BCS L0338A4
LDA #$0000
L0338A4 STAL L05565D
TSC
CLC
ADC #$0006
TCS
PLD
RTL
L0338B0 ENT
PHD
TSC
SEC
SBC #$00F7
TCD
ADC #$00F0
TCS
PEA $0003
_SANEFP816
BCS L0338CA
LDA #$0000
L0338CA STAL L05565D
JSL L03392E
STA [$FD]
TSC
CLC
ADC #$0006
TCS
PLD
RTL
L0338DC ENT
CLC
ADC $04,S
STA $04,S
TXA
ADC $06,S
STA $06,S
RTL
L0338E7 TSC
PHD
TCD
LDY #$0000
SEP #$20
LDA [$04],Y
BEQ L033906
XBA
L0338F4 INY
BEQ L033900
LDA [$04],Y
BEQ L033900
XBA
STA [$04],Y
BRA L0338F4
L033900 XBA
STA [$04],Y
TYA
STA [$04]
L033906 REP #$20
LDX $06
LDA $04
PLD
RTL
L03390E TSC
PHD
TCD
LDY $0C
BEQ L033928
BMI L033928
SEP #$20
BRA L03391F
L03391B LDA [$08],Y
STA [$04],Y
L03391F DEY
BNE L03391B
LDA [$08]
STA [$04]
REP #$20
L033928 LDA $04
LDX $06
PLD
RTL
L03392E TXA
RTL
L033930 ENT
PHD
PHX
PHA
PEA $0000
PEA $0000
TSC
TCD
LDX #$0000
BCC L03398B
LDA $10
BIT #$8000
BEQ L033959
EOR #$FFFF
STA $10
LDA $0E
EOR #$FFFF
INC
BNE L033956
INC $10
L033956 STA $0E
INX
L033959 LDA $07
BIT #$8000
BEQ L03398B
EOR #$FFFF
STA $07
LDA $05
EOR #$FFFF
INC
BNE L03396F
INC $07
L03396F STA $05
DEX
BRA L03398B
L033974 LSR $07
ROR $05
BCC L033987
LDA $01
CLC
ADC $0E
STA $01
LDA $03
ADC $10
STA $03
L033987 ASL $0E
ROL $10
L03398B LDA $05
ORA $07
BNE L033974
CPX #$0000
BEQ L0339A9
LDA $01
EOR #$FFFF
STA $01
LDA $03
EOR #$FFFF
INC $01
BNE L0339A7
INC
L0339A7 STA $03
L0339A9 LDA $01
STA $0E
LDA $03
STA $10
PLY
PLY
PLY
PLY
PLD
RTL
L0339B7 ENT
BCC L0339CB
TAY
LDA $04,S
TAX
BEQ L0339D7
TYA
BEQ L0339D8
BPL L0339D2
L0339C4 SEC
ROR
DEX
BNE L0339C4
BRA L0339D8
L0339CB TAY
LDA $04,S
TAX
BEQ L0339D7
TYA
L0339D2 LSR
DEX
BNE L0339D2
TAY
L0339D7 TYA
L0339D8 STA $04,S
RTL
Reference in New Issue View Git Blame Copy Permalink