antoine-source/hypercardiigs/PLib.S
Antoine Vignau 25de611f19 Adding HCGS & SynthLAB
202303 - Adding two working disassemblies of former IIgs products
2023-03-02 13:12:30 +01:00

3885 lines
62 KiB
ArmAsm

*
* HypercardGS
* segment: $15 PLib
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk PLib.l
lst off
*---------------------------------------
use PLib.E
use PLib.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/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
*---------------------------------------
L150000 ENT
LDX #$1C22
JMP L1506D8
L150006 ENT
LDX #$1D22
JMP L1506D8
L15000C ENT
LDX #$1302
JMP L1506D8
L150012 ENT
LDX #$191E
JMP L1506D8
L150018 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $18
PEI $16
PEA $000A
JSL L0313BE
PHY
JSL L150E95
PLA
STA $0B
PEA $0003
JSL L150DD8
PHY
PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150082
PLA
STA $1A
PLX
STX $1C
PEI $0B
JSL L150DD8
LDA $14
STA $18
LDA $13
STA $17
LDA $11
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L150070 ENT
LDX #$0A06
JMP L151442
L150076 ENT
LDX #$0C14
JMP L1506D8
L15007C ENT
LDX #$110B
JMP L1506D8
L150082 ENT
PHD
TSC
CLC
ADC #$FFEE
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $1A
PEI $18
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$000B
PEA $0000
PHA
PEA $0310
_SANEFP816
BCS L1500BF
LDA #$0000
L1500BF STAL L05565D
LDA $0B
LDX $0D
STA $1C
STX $1E
LDA $16
STA $1A
LDA $15
STA $19
LDA $13
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L1500DD ENT
LDX #$130B
JMP L1506D8
L1500E3 ENT
LDX #$5204
JMP L151442
L1500E9 ENT
LDX #$091C
JMP L1506D8
L1500EF ENT
LDX #$101C
JMP L1506D8
L1500F5 ENT
PHD
TSC
SEC
SBC #$00F7
TCD
ADC #$00F0
TCS
PEI $FD
LDA $FF
SEC
JSL L032F1F
PLY
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L150114 ENT
LDX #$2422
JMP L1506D8
L15011A ENT
LDX #$2322
JMP L1506D8
L150120 ENT
LDX #$2802
JMP L1506D8
L150126 ENT
LDX #$6C04
JMP L1506D8
L15012C ENT
LDX #$160B
JMP L1506D8
L150132 ENT
LDX #$2A10
JMP L1506D8
L150138 ENT
LDX #$2B10
JMP L1506D8
L15013E ENT
LDX #$1922
JMP L1506D8
L150144 ENT
LDX #$270F
JMP L1506D8
L15014A ENT
PHD
TSC
TCD
PHA
PHA
PHA
PHA
_ReadTimeHex
BCS L15015D
LDA #$0000
L15015D STAL L05565D
PLA
STA [$06]
PLA
LDY #$0002
STA [$06],Y
PLA
LDY #$0004
STA [$06],Y
PLA
LDY #$0006
STA [$06],Y
PLD
RTL
L150178 ENT
LDX #$9604
JMP L1506D8
L15017E ENT
LDA $04,S
AND $08,S
STA $0C,S
LDA $06,S
AND $0A,S
STA $0E,S
LDA $02,S
STA $0A,S
LDA $01,S
STA $09,S
PLA
PLA
PLA
PLA
RTL
L150197 ENT
LDX #$A404
JMP L1506D8
L15019D ENT
LDX #$1314
JMP L1506D8
L1501A3 ENT
LDX #$C204
JMP L1506D8
L1501A9 ENT
LDX #$5104
JMP L151442
L1501AF ENT
LDX #$4B04
JMP L1506D8
L1501B5 ENT
LDX #$0C12
JMP L1506D8
L1501BB ENT
LDX #$5C04
JMP L1506D8
L1501C1 ENT
PHD
TSC
CLC
ADC #$FED7
TCS
ADC #$0036
TCD
PEA $0000
TDC
CLC
ADC #$FFCA
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
LDA #$0001
STA $ED
PEA $0000
TDC
CLC
ADC #$FFCA
PHA
TDC
CLC
ADC #$00ED
PEA $0000
PHA
TDC
CLC
ADC #$00CC
PEA $0000
PHA
TDC
CLC
ADC #$00CA
PEA $0000
PHA
JSL L1515CE
PEI $FE
PEI $FC
TDC
CLC
ADC #$00CC
PEA $0000
PHA
JSL L033095
TAY
CLC
TSC
ADC #$0004
TCS
TYA
PHX
PHA
PEA $000A
JSL L0313BE
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$012F
TCS
RTL
L150241 ENT
LDA $04,S
ORA $08,S
STA $0C,S
LDA $06,S
ORA $0A,S
STA $0E,S
LDA $02,S
STA $0A,S
LDA $01,S
STA $09,S
PLA
PLA
PLA
PLA
RTL
L15025A ENT
LDX #$D604
JMP L1506D8
L150260 ENT
LDX #$1A04
JMP L1506D8
L150266 ENT
LDX #$1A0E
JMP L1506D8
L15026C ENT
LDX #$0D14
JMP L1506D8
L150272 ENT
LDX #$1122
JMP L1506D8
L150278 ENT
LDX #$120E
JMP L1506D8
L15027E ENT
LDX #$090E
JMP L1506D8
L150284 ENT
LDX #$9804
JMP L1506D8
L15028A ENT
LDX #$9904
JMP L1506D8
L150290 ENT
PHD
TSC
SEC
SBC #$00F3
TCD
ADC #$00EC
TCS
PEI $FB
PEI $F9
LDX $FF
LDA $FD
SEC
JSL L032FA4
PLY
PLY
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L1502B4 ENT
PHD
TSC
TCD
LDA $06
AND #$003F
TAY
LDA $08
BRA L1502C4
L1502C1 ASL
ROL $0A
L1502C4 DEY
BPL L1502C1
STA $0C
LDA $0A
STA $0E
LDA $04
STA $0A
LDA $03
STA $09
TDC
TCS
PLD
PLY
PLY
PLY
RTL
L1502DC ENT
LDX #$211E
JMP L1506D8
L1502E2 ENT
LDX #$0217
JMP L1506D8
L1502E8 ENT
LDX #$3E0F
JMP L1506D8
L1502EE ENT
LDX #$1E1E
JMP L1506D8
L1502F4 ENT
LDX #$BB04
JMP L1506D8
L1502FA ENT
LDX #$B704
JMP L1506D8
L150300 ENT
LDX #$0F04
JMP L1506D8
L150306 ENT
LDX #$0E04
JMP L1506D8
L15030C ENT
LDX #$C004
JMP L1506D8
L150312 ENT
LDX #$0D04
JMP L1506D8
L150318 ENT
PHD
TSC
SEC
SBC #$00F7
TCD
ADC #$00F0
TCS
PEI $FD
LDA $FF
SEC
JSL L032F1F
PLA
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L150337 ENT
PHD
TSC
TCD
LDA $06
AND #$003F
TAY
LDA $0A
BRA L150347
L150344 LSR
ROR $08
L150347 DEY
BPL L150344
STA $0E
LDA $08
STA $0C
LDA $04
STA $0A
LDA $03
STA $09
TDC
TCS
PLD
PLY
PLY
PLY
RTL
L15035F ENT
LDX #$2503
JMP L1506D8
L150365 ENT
LDX #$2910
JMP L151442
L15036B ENT
LDX #$0F0B
JMP L1506D8
L150371 ENT
LDX #$0B1C
JMP L1506D8
L150377 ENT
LDX #$2B0F
JMP L1506D8
L15037D ENT
LDX #$5404
JMP L1506D8
L150383 ENT
LDX #$5604
JMP L1506D8
L150389 ENT
LDX #$3C0F
JMP L1506D8
L15038F ENT
LDX #$3813
JMP L1506D8
L150395 ENT
LDX #$0B16
JMP L1506D8
L15039B ENT
LDX #$3A0F
JMP L1506D8
L1503A1 ENT
LDX #$1B02
JMP L1506D8
L1503A7 ENT
LDX #$130F
JMP L1506D8
L1503AD ENT
LDX #$0A0F
JMP L1506D8
L1503B3 ENT
LDX #$1B05
JMP L1506D8
L1503B9 ENT
PHD
TSC
SEC
SBC #$00F3
TCD
ADC #$00EC
TCS
PEI $FB
PEI $F9
LDX $FF
LDA $FD
SEC
JSL L032FA4
PLA
PLX
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L1503DD ENT
PHD
TSC
TCD
STZ $0E
LDY #$0000
TYA
SEP #$20
LDA [$0A]
CMP [$06]
BNE L1503FC
TAY
BEQ L1503FA
L1503F1 LDA [$0A],Y
CMP [$06],Y
BNE L1503FC
DEY
BNE L1503F1
L1503FA INC $0E
L1503FC REP #$20
LDA $03
STA $0B
LDA $04
STA $0C
LDA $01
STA $09
PLY
PLY
PLY
PLY
PLD
RTL
L150410 ENT
LDX #$181E
JMP L1506D8
L150416 ENT
LDX #$231E
JMP L1506D8
L15041C ENT
LDX #$0E1E
JMP L1506D8
L150422 ENT
LDX #$0C1E
JMP L1506D8
L150428 ENT
LDX #$0A1B
JMP L1506D8
L15042E ENT
LDX #$1C02
JMP L1506D8
L150434 ENT
PHD
TSC
TCD
LDA #$0001
STA $0E
LDY #$0000
TYA
SEP #$20
LDA [$0A]
CMP [$06]
BNE L150456
TAY
BEQ L150454
L15044B LDA [$0A],Y
CMP [$06],Y
BNE L150456
DEY
BNE L15044B
L150454 DEC $0E
L150456 REP #$20
LDA $03
STA $0B
LDA $04
STA $0C
LDA $01
STA $09
PLY
PLY
PLY
PLY
PLD
RTL
L15046A ENT
LDX #$C404
JMP L1506D8
L150470 ENT
LDX #$0B04
JMP L1506D8
L150476 ENT
LDX #$7F04
JMP L1506D8
L15047C ENT
LDX #$0B12
JMP L1506D8
L150482 ENT
LDX #$1310
JMP L1506D8
L150488 ENT
TAX
BMI L15048F
LDX #$0000
RTL
L15048F LDX #$FFFF
RTL
L150493 ENT
LDX #$1C04
JMP L1506D8
L150499 ENT
LDX #$7104
JMP L1506D8
L15049F ENT
LDX #$0F17
JMP L1506D8
L1504A5 ENT
LDX #$1117
JMP L1506D8
L1504AB ENT
LDX #$430E
JMP L1506D8
L1504B1 ENT
LDX #$1513
JMP L1506D8
L1504B7 ENT
PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
TDC
CLC
ADC #$000B
PEA $0000
PHA
PEI $24
PEI $22
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $20
PEI $1E
PEA $000A
JSL L0313BE
PEI $28
PEI $26
TDC
CLC
ADC #$0001
PEA $0000
PHA
PLY
PLX
TSC
CLC
ADC #$FFF6
TCS
PEA $0000
INC
PHA
PHX
PHY
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$000B
PEA $0000
PHA
PLY
PLX
TSC
CLC
ADC #$FFF6
TCS
PEA $0000
INC
PHA
PHX
PHY
PEA $000A
JSL L0313BE
JSL L0337F3
TAY
CLC
TSC
ADC #$0014
TCS
TYA
PHX
PHA
PEA $000A
JSL L0313BE
LDA $1C
STA $24
LDA $1B
STA $23
LDA $19
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L150550 ENT
LDX #$2122
JMP L1506D8
L150556 ENT
LDX #$B804
JMP L1506D8
L15055C ENT
LDX #$5904
JMP L1506D8
L150562 ENT
LDX #$3713
JMP L1506D8
L150568 ENT
LDX #$1705
JMP L1506D8
L15056E ENT
LDX #$3D04
JMP L1506D8
L150574 ENT
LDX #$520E
JMP L1506D8
L15057A ENT
LDX #$180B
JMP L1506D8
L150580 ENT
LDX #$0D06
JMP L151442
L150586 ENT
LDX #$1A02
JMP L1506D8
L15058C ENT
LDX #$1514
JMP L1506D8
L150592 ENT
LDX #$A504
JMP L1506D8
L150598 ENT
LDX #$2003
JMP L1506D8
L15059E ENT
LDX #$1F02
JMP L1506D8
L1505A4 ENT
LDX #$0C1C
JMP L1506D8
L1505AA ENT
LDX #$1A15
JMP L1506D8
L1505B0 ENT
LDX #$2C0F
JMP L1506D8
L1505B6 ENT
LDX #$210E
JMP L1506D8
L1505BC ENT
LDX #$250F
JMP L1506D8
L1505C2 ENT
LDX #$2522
JMP L1506D8
L1505C8 ENT
LDX #$1505
JMP L1506D8
L1505CE ENT
LDX #$1213
JMP L1506D8
L1505D4 ENT
LDX #$1C0F
JMP L1506D8
L1505DA ENT
LDX #$3C04
JMP L1506D8
L1505E0 ENT
LDX #$101B
JMP L1506D8
L1505E6 ENT
LDX #$0912
JMP L1506D8
L1505EC ENT
LDX #$1B10
JMP L1506D8
L1505F2 ENT
PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00EE
TCS
LDX #$0000
TDC
CLC
ADC #$0101
STX $F2
STA $F0
PEI $FF
LDA [$F0]
SEC
JSL L033467
PLA
STA [$F0]
TAY
TSC
CLC
ADC #$000A
TCS
PLD
LDA $02,S
STA $04,S
LDA $01,S
STA $03,S
TSC
CLC
ADC #$0002
TCS
TYA
STA $04,S
RTL
L15062F ENT
LDX #$2A02
JMP L1506D8
L150635 ENT
LDX #$3B04
JMP L1506D8
L15063B ENT
LDX #$A904
JMP L1506D8
L150641 ENT
LDX #$7B04
JMP L1506D8
L150647 ENT
LDX #$6104
JMP L1506D8
L15064D ENT
LDX #$0D16
JMP L1506D8
L150653 ENT
LDX #$7204
JMP L1506D8
L150659 ENT
LDX #$6D04
JMP L1506D8
L15065F ENT
LDX #$1B15
JMP L1506D8
L150665 ENT
LDX #$0222
JMP L1506D8
L15066B ENT
LDX #$0213
JMP L1506D8
L150671 ENT
LDX #$0D0F
JMP L1506D8
L150677 ENT
LDX #$C804
JMP L1506D8
L15067D ENT
LDX #$C904
JMP L1506D8
L150683 ENT
LDX #$BA04
JMP L1506D8
L150689 ENT
LDX #$0B02
JMP L1506D8
L15068F ENT
LDX #$C304
JMP L1506D8
L150695 ENT
LDX #$1A1B
JMP L1506D8
L15069B ENT
LDX #$2014
JMP L1506D8
L1506A1 ENT
LDX #$1E04
JMP L1506D8
L1506A7 ENT
LDX #$1D04
JMP L1506D8
L1506AD ENT
LDX #$1F0E
JMP L1506D8
L1506B3 ENT
LDX #$1E0E
JMP L1506D8
L1506B9 ENT
LDA $04,S
AND #$000F
BEQ L1506CE
TAX
LDA $06,S
L1506C3 LSR
BCC L1506C9
ORA #$8000
L1506C9 DEX
BNE L1506C3
STA $06,S
L1506CE LDA $02,S
STA $04,S
LDA $01,S
STA $03,S
PLY
RTL
L1506D8 JSL DISPATCH2
STAL L05565D
RTL
L1506E1 ENT
LDX #$251E
JMP L1506D8
L1506E7 ENT
LDX #$0313
JMP L1506D8
L1506ED ENT
LDX #$0322
JMP L1506D8
L1506F3 ENT
LDX #$AB04
JMP L1506D8
L1506F9 ENT
LDX #$2310
JMP L1506D8
L1506FF ENT
LDX #$2210
JMP L1506D8
L150705 ENT
LDX #$8604
JMP L1506D8
L15070B ENT
LDX #$1D02
JMP L1506D8
L150711 ENT
LDX #$9004
JMP L1506D8
L150717 ENT
LDX #$2A04
JMP L1506D8
L15071D ENT
LDX #$2B04
JMP L1506D8
L150723 ENT
LDX #$1A14
JMP L1506D8
L150729 ENT
LDX #$170B
JMP L1506D8
L15072F ENT
PHD
TSC
CLC
ADC #$FFCD
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $3F
PEI $3D
PEA $000A
JSL L0313BE
LDA $41
STA $0B
LDA $43
STA $0D
TDC
CLC
ADC #$000B
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$000F
PEA $0000
PHA
PEA $000B
_SANEFP816
BCS L15077D
LDA #$0000
L15077D STAL L05565D
PHA
TDC
CLC
ADC #$0013
PEA $0000
PHA
PEA ^L055661
PEA L055661
JSL L1503DD
PLA
LSR
BCC L1507CE
LDA #$0013
STA $0D
STZ $0B
TDC
CLC
ADC #$000B
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$000F
PEA $0000
PHA
PEA $000B
_SANEFP816
BCS L1507CA
LDA #$0000
L1507CA STAL L05565D
L1507CE PEI $0D
PEI $0B
TDC
CLC
ADC #$000F
PEA $0000
PHA
PEI $3B
PEI $39
JSL L151391
LDA $37
STA $43
LDA $36
STA $42
LDA $34
TCD
TSC
CLC
ADC #$0041
TCS
RTL
L1507F5 ENT
LDX #$D004
JMP L1506D8
L1507FB ENT
LDX #$D104
JMP L1506D8
L150801 ENT
LDX #$0C06
JMP L1506D8
L150807 ENT
LDX #$2314
JMP L1506D8
L15080D ENT
PHD
TSC
SEC
SBC #$00EF
TCD
ADC #$00D4
TCS
LDA $F7
LDX #$0000
TAY
BPL L150821
DEX
L150821 PHX
PHA
LDX $FB
LDA $F9
CLC
ADC #$0001
PHA
TXA
ADC #$0000
TAX
PLA
SEC
JSL L033930
PLA
PLX
SEC
SBC #$0001
PHA
TXA
SBC #$0000
TAX
PLA
STA $D8
LDA #$0008
PHA
LDA $D8
SEC
JSL L032F1F
PLY
STA $E0
LDA #$0008
PHA
LDA $D8
SEC
JSL L032F1F
PLA
STA $DE
LDA $E0
LDX #$0000
TAY
BPL L15086B
DEX
L15086B PHX
PHA
LDX $FF
LDA $FD
JSL L0338DC
PLA
PLX
STX $FF
STA $FD
LDX #$0000
LDA #$0001
PHX
PHA
LDA $F7
LDX #$0000
TAY
BPL L15088C
DEX
L15088C SEC
JSL L0337CC
LDA #L0555BB
LDX #^L0555BB
JSL L0338DC
PLA
PLX
SEC
SBC #$0002
PHA
TXA
SBC #$0000
TAX
PLA
STX $E8
STA $E6
LDX #$0000
LDA #$0001
PHX
PHA
LDA $DE
LDX #$0000
TAY
BPL L1508BD
DEX
L1508BD SEC
JSL L0337CC
LDA #L0555BB
LDX #^L0555BB
JSL L0338DC
PLA
PLX
STX $E4
STA $E2
LDA $F7
STA $DC
BRL L1509AE
L1508D9 LDX $E8
LDA $E6
PHX
PHA
SEC
SBC #$0002
STA $E6
LDA $E8
SBC #$0000
STA $E8
PLA
PLX
STA $EA
STX $EC
LDA [$EA]
PHA
LDA $F5
PLX
STX $EE
AND $EE
STA $D6
LDA $D6
BEQ L150930
LDX $E4
LDA $E2
PHX
PHA
SEC
SBC #$0002
STA $E2
LDA $E4
SBC #$0000
STA $E4
PLA
PLX
STA $EA
STX $EC
LDA [$EA]
PHA
LDA [$FD]
AND #$00FF
PLX
STX $EE
ORA $EE
SEP #$20
STA [$FD]
REP #$20
BRA L15095F
L150930 LDX $E4
LDA $E2
PHX
PHA
SEC
SBC #$0002
STA $E2
LDA $E4
SBC #$0000
STA $E4
PLA
PLX
STA $EA
STX $EC
LDA [$EA]
EOR #$FFFF
PHA
LDA [$FD]
AND #$00FF
PLX
STX $EE
AND $EE
SEP #$20
STA [$FD]
REP #$20
L15095F DEC $DE
LDA $DE
SEC
SBC #$0000
BVS L15096C
EOR #$8000
L15096C BMI L1509AC
LDA #$0007
STA $DE
LDX #$0000
LDA #$0001
PHX
PHA
LDA $DE
LDX #$0000
TAY
BPL L150984
DEX
L150984 SEC
JSL L0337CC
LDA #L0555BB
LDX #^L0555BB
JSL L0338DC
PLA
PLX
STX $E4
STA $E2
LDX $FF
LDA $FD
SEC
SBC #$0001
PHA
TXA
SBC #$0000
TAX
PLA
STX $FF
STA $FD
L1509AC DEC $DC
L1509AE LDA $DC
CMP #$0000
BEQ L1509B8
BRL L1508D9
L1509B8 TSC
CLC
ADC #$001A
TCS
PLD
LDA $02,S
STA $0E,S
LDA $01,S
STA $0D,S
TSC
CLC
ADC #$000C
TCS
RTL
L1509CE ENT
PHD
TSC
SEC
SBC #$000A
TCD
SEC
SBC #$0100
TCS
LDX #$FF01
STX $01
LDA $10
STA $09
L1509E3 LDA $10
BEQ L150A18
DEC $10
ASL
ASL
TAX
LDA $12,X
STA $03
LDA $14,X
STA $05
LDA [$03]
AND #$00FF
BEQ L1509E3
STA $07
LDY #$0001
LDX $01
SEP #$20
L150A04 LDA [$03],Y
STA $01,X
INX
BEQ L150A16
INY
DEC $07
BNE L150A04
REP #$20
STX $01
BRA L1509E3
L150A16 STX $01
L150A18 REP #$20
LDA #$00FF
CLC
ADC $01
SEP #$20
LDX #$FF00
STA $01,X
REP #$20
TAY
LDX $01
SEP #$20
L150A2E LDA $00,X
STA [$12],Y
DEX
DEY
BPL L150A2E
REP #$20
LDA $09
ASL
ASL
TAX
LDA $12
STA $12,X
LDA $14
STA $14,X
LDA $0D
STA $0F,X
LDA $0E
STA $10,X
LDA $0B
STA $0D,X
STX $07
TSC
CLC
ADC #$010C
CLC
ADC $07
TCS
PLD
RTL
L150A5E ENT
LDX #$2404
JMP L1506D8
L150A64 ENT
PHD
TSC
SEC
SBC #$000E
TCS
TCD
LDA [$18]
AND #$00FF
STA $0B
SEC
SBC $16
INC
STA $0D
BEQ L150AD9
BMI L150AD9
LDA $16
BEQ L150AD9
BMI L150AD9
CMP #$0100
BCS L150AD9
LDA $14
BEQ L150AD9
BMI L150AD9
CMP #$0100
BCS L150AD9
LDA $0D
SEC
SBC $14
BPL L150A9D
LDA #$0000
L150A9D STA $09
LDA $16
CLC
ADC $09
DEC
SEP #$20
STA [$18]
REP #$20
LDA $09
BEQ L150AD9
LDA $18
LDX $1A
CLC
ADC $16
BCC L150AB9
INX
L150AB9 STA $05
STX $07
CLC
ADC $14
BCC L150AC3
INX
L150AC3 STA $01
STX $03
LDX $09
DEX
LDY #$0000
SEP #$20
L150ACF LDA [$01],Y
STA [$05],Y
INY
DEX
BPL L150ACF
REP #$20
L150AD9 LDA $12
STA $1A
LDA $11
STA $19
LDX $0F
TDC
CLC
ADC #$0018
TCS
TXA
TCD
RTL
L150AEC ENT
LDX #$1B22
JMP L1506D8
L150AF2 ENT
LDX #$2610
JMP L1506D8
L150AF8 ENT
LDX #$0F10
JMP L1506D8
L150AFE ENT
LDX #$0E10
JMP L1506D8
L150B04 ENT
LDX #$1610
JMP L1506D8
L150B0A ENT
LDX #$1510
JMP L1506D8
L150B10 ENT
LDX #$1110
JMP L1506D8
L150B16 ENT
LDX #$1810
JMP L1506D8
L150B1C ENT
LDX #$0F16
JMP L1506D8
L150B22 ENT
LDX #$0C22
JMP L1506D8
L150B28 ENT
LDX #$1506
JMP L1506D8
L150B2E ENT
LDX #$8304
JMP L151442
L150B34 ENT
LDX #$3A0E
JMP L1506D8
L150B3A ENT
LDX #$4D04
JMP L151442
L150B40 ENT
LDX #$8B04
JMP L1506D8
L150B46 ENT
LDX #$1901
JMP L1506D8
L150B4C ENT
LDX #$310F
JMP L1506D8
L150B52 ENT
LDX #$300F
JMP L1506D8
L150B58 ENT
LDX #$1822
JMP L1506D8
L150B5E ENT
LDX #$0B1E
JMP L1506D8
L150B64 ENT
LDX #$0A1E
JMP L1506D8
L150B6A ENT
LDX #$121E
JMP L1506D8
L150B70 ENT
LDX #$111E
JMP L1506D8
L150B76 ENT
LDX #$1414
JMP L1506D8
L150B7C ENT
LDX #$0D1E
JMP L1506D8
L150B82 ENT
LDX #$091E
JMP L1506D8
L150B88 ENT
LDX #$151E
JMP L1506D8
L150B8E ENT
LDX #$110F
JMP L1506D8
L150B94 ENT
LDX #$590E
JMP L1506D8
L150B9A ENT
LDX #$170E
JMP L1506D8
L150BA0 ENT
LDX #$150E
JMP L1506D8
L150BA6 ENT
LDX #$0404
JMP L1506D8
L150BAC ENT
LDX #$221E
JMP L1506D8
L150BB2 ENT
LDX #$6704
JMP L1506D8
L150BB8 ENT
LDX #$2002
JMP L1506D8
L150BBE ENT
LDX #$261E
JMP L1506D8
L150BC4 ENT
LDX #$0F1B
JMP L1506D8
L150BCA ENT
LDX #$1222
JMP L1506D8
L150BD0 ENT
LDX #$1714
JMP L1506D8
L150BD6 ENT
LDX #$2E04
JMP L1506D8
L150BDC ENT
LDX #$2F04
JMP L1506D8
L150BE2 ENT
LDX #$0B0B
JMP L1506D8
L150BE8 ENT
LDX #$8504
JMP L1506D8
L150BEE ENT
SEC
PHD
PHA
TSC
TCD
LDX #$0000
BCC L150C14
LDA $08
BIT #$8000
BEQ L150C06
EOR #$FFFF
INC
STA $08
INX
L150C06 LDA $01
BIT #$8000
BEQ L150C14
EOR #$FFFF
INC
STA $01
DEX
L150C14 LDA #$0000
BRA L150C22
L150C19 LSR $01
BCC L150C20
CLC
ADC $08
L150C20 ASL $08
L150C22 LDY $01
BNE L150C19
CPX #$0000
BEQ L150C2F
EOR #$FFFF
INC
L150C2F STA $08
PLY
PLD
RTL
L150C34 ENT
LDX #$1214
JMP L1506D8
L150C3A ENT
LDX #$191B
JMP L1506D8
L150C40 ENT
LDX #$1114
JMP L1506D8
L150C46 ENT
LDX #$090B
JMP L1506D8
L150C4C ENT
PHD
TSC
SEC
SBC #$000E
TCS
TCD
LDA [$1A]
AND #$00FF
STA $0B
INC $1A
BNE L150C61
INC $1C
L150C61 LDA [$16]
AND #$00FF
STA $0D
LDA $14
BEQ L150C75
BMI L150C75
DEC
CMP $0D
BEQ L150C78
BCC L150C78
L150C75 BRL L150D0D
L150C78 LDA $14
CLC
ADC $0B
CMP #$0101
BCC L150C95
LDA #$0100
SEC
SBC $14
STA $0B
LDA #$00FF
L150C8D SEP #$20
STA [$16]
REP #$20
BRA L150CF0
L150C95 LDA $0D
BNE L150C9D
LDA $0B
BRA L150C8D
L150C9D LDA $0D
SEC
SBC $14
INC
STA $09
LDA $0D
CLC
ADC $0B
CMP #$0100
BCC L150CBF
SEC
SBC #$00FF
SEC
SBC $09
EOR #$FFFF
INC
STA $09
LDA #$00FF
L150CBF SEP #$20
STA [$16]
REP #$20
LDA $09
BEQ L150CF0
LDA $16
LDX $18
CLC
ADC $14
BCC L150CD3
INX
L150CD3 STA $01
STX $03
CLC
ADC $0B
BCC L150CDD
INX
L150CDD STA $05
STX $07
SEP #$20
LDY $09
BRA L150CEB
L150CE7 LDA [$01],Y
STA [$05],Y
L150CEB DEY
BPL L150CE7
REP #$20
L150CF0 LDA $16
LDX $18
CLC
ADC $14
BCC L150CFA
INX
L150CFA STA $05
STX $07
SEP #$20
LDY $0B
BRA L150D08
L150D04 LDA [$1A],Y
STA [$05],Y
L150D08 DEY
BPL L150D04
REP #$20
L150D0D LDA $12
STA $1C
LDA $11
STA $1B
LDX $0F
TDC
CLC
ADC #$001A
TCS
TXA
TCD
RTL
L150D20 ENT
LDX #$9404
JMP L1506D8
L150D26 ENT
LDX #$8E04
JMP L1506D8
L150D2C ENT
LDX #$0A12
JMP L1506D8
L150D32 ENT
LDX #$2010
JMP L1506D8
L150D38 ENT
LDX #$0914
JMP L1506D8
L150D3E ENT
LDX #$1B1E
JMP L1506D8
L150D44 ENT
LDX #$2402
JMP L1506D8
L150D4A ENT
LDX #$0E22
JMP L1506D8
L150D50 ENT
SEC
PHD
PHX
PHA
PEA $0000
PEA $0000
TSC
TCD
LDX #$0000
BCC L150DAC
LDA $10
BIT #$8000
BEQ L150D7A
EOR #$FFFF
STA $10
LDA $0E
EOR #$FFFF
INC
BNE L150D77
INC $10
L150D77 STA $0E
INX
L150D7A LDA $07
BIT #$8000
BEQ L150DAC
EOR #$FFFF
STA $07
LDA $05
EOR #$FFFF
INC
BNE L150D90
INC $07
L150D90 STA $05
DEX
BRA L150DAC
L150D95 LSR $07
ROR $05
BCC L150DA8
LDA $01
CLC
ADC $0E
STA $01
LDA $03
ADC $10
STA $03
L150DA8 ASL $0E
ROL $10
L150DAC LDA $05
ORA $07
BNE L150D95
CPX #$0000
BEQ L150DCA
LDA $01
EOR #$FFFF
STA $01
LDA $03
EOR #$FFFF
INC $01
BNE L150DC8
INC
L150DC8 STA $03
L150DCA LDA $01
STA $0E
LDA $03
STA $10
PLY
PLY
PLY
PLY
PLD
RTL
L150DD8 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
TDC
CLC
ADC #$0005
PEA $0000
PHA
JSL L0338B0
TAY
CLC
TSC
ADC #$0004
TCS
TYA
LDA $05
BMI L150E07
BEQ L150E07
LDA $05
JSL L150488
STA $01
STX $03
BRA L150E1B
L150E07 LDA $05
JSL L150488
PEA $0001
PEA $0000
JSL L150F53
STA $01
STX $03
L150E1B PEI $03
PEI $01
PEA $0000
PEA $4000
JSL L1503B9
PLY
PLY
PLY
PLY
PHX
PHA
LDA $10
PEA $4000
JSL L150BEE
PLA
LDX #$0000
BIT #$8000
BEQ L150E42
DEX
L150E42 JSL L150F53
STA $01
STX $03
PEI $03
PEI $01
LDA #$8000
LDX #$0000
JSL L033477
BVS L150E5D
EOR #$8000
L150E5D BMI L150E65
LDA $01
STA $05
BRA L150E75
L150E65 PEA $0001
PEA $0000
LDA $01
LDX $03
JSL L1512A5
STA $05
L150E75 PEI $05
JSL L033888
TAY
CLC
TSC
ADC #$0002
TCS
TYA
LDA $0E
STA $10
LDA $0D
STA $0F
LDA $0B
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L150E95 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
TDC
CLC
ADC #$0007
PEA $0000
PHA
JSL L0338B0
TAY
CLC
TSC
ADC #$0004
TCS
TYA
LDA $07
BMI L150EC4
BEQ L150EC4
LDA $07
JSL L150488
STA $03
STX $05
BRA L150ED8
L150EC4 LDA $07
JSL L150488
PEA $0001
PEA $0000
JSL L150F53
STA $03
STX $05
L150ED8 PEI $05
PEI $03
PEA $0000
PEA $4000
JSL L150290
PLY
PLY
PLY
PLY
PHX
PHA
PEA $0000
PEA $0004
JSL L1503B9
PLY
PLY
PLY
PLY
SEC
SBC #$0000
BMI L150F2F
CMP #$0004
BPL L150F2F
SEC
SBC #$0000
BEQ L150F16
DEC
BEQ L150F1A
DEC
BEQ L150F21
DEC
BEQ L150F28
BRA L150F2F
L150F16 STZ $01
BRA L150F2F
L150F1A LDA #$0001
STA $01
BRA L150F2F
L150F21 LDA #$0002
STA $01
BRA L150F2F
L150F28 LDA #$0003
STA $01
BRA L150F2F
L150F2F LDA $01
STA $12
TSC
CLC
ADC #$000C
TCS
PLD
RTL
L150F3B ENT
LDX #$1501
JMP L1506D8
L150F41 ENT
LDX #$8A04
JMP L1506D8
L150F47 ENT
LDX #$1805
JMP L151442
L150F4D ENT
LDX #$2C03
JMP L1506D8
L150F53 ENT
CLC
ADC $04,S
TAY
TXA
ADC $06,S
TAX
LDA $01,S
STA $05,S
LDA $02,S
STA $06,S
PLA
PLA
TYA
RTL
L150F67 ENT
LDX #$0D0E
JMP L1506D8
L150F6D ENT
LDX #$1C14
JMP L1506D8
L150F73 ENT
PHD
PHY
PHY
PHY
TSC
TCD
STZ $14
LDA #$0000
SEP #$20
LDA [$0C]
BEQ L150FCC
SEC
SBC [$10]
BMI L150FCC
TAX
LDY #$0001
LDA [$10],Y
STA $05
L150F91 CMP [$0C],Y
BEQ L150F9B
L150F95 INY
DEX
BPL L150F91
BRA L150FCC
L150F9B REP #$20
TYA
DEC
CLC
ADC $0C
STA $03
LDA $0E
ADC #$0000
STA $05
STY $01
LDA #$0000
SEP #$20
LDA [$10]
TAY
L150FB5 LDA [$10],Y
CMP [$03],Y
BNE L150FC6
DEY
BNE L150FB5
REP #$20
LDA $01
STA $14
BRA L150FCC
L150FC6 LDY $01
LDA $05
BRA L150F95
L150FCC REP #$20
LDA $0A
STA $12
LDA $09
STA $11
LDX $07
TDC
CLC
ADC #$0010
TCS
TXA
TCD
RTL
L150FE1 ENT
LDX #$2810
JMP L1506D8
L150FE7 ENT
LDX #$2710
JMP L1506D8
L150FED ENT
LDX #$1722
JMP L1506D8
L150FF3 ENT
LDX #$1813
JMP L1506D8
L150FF9 ENT
LDX #$2604
JMP L1506D8
L150FFF ENT
LDX #$5E04
JMP L1506D8
L151005 ENT
LDX #$4C04
JMP L1506D8
L15100B ENT
LDX #$4A04
JMP L1506D8
L151011 ENT
LDX #$1801
JMP L1506D8
L151017 ENT
LDX #$0B06
JMP L151442
L15101D ENT
LDX #$0C16
JMP L1506D8
L151023 ENT
LDX #$1503
JMP L1506D8
L151029 ENT
LDX #$190E
JMP L1506D8
L15102F ENT
LDX #$130E
JMP L1506D8
L151035 ENT
LDX #$1C0E
JMP L1506D8
L15103B ENT
LDX #$1B0E
JMP L1506D8
L151041 ENT
LDX #$2510
JMP L1506D8
L151047 ENT
LDX #$0F0E
JMP L1506D8
L15104D ENT
LDX #$1216
JMP L1506D8
L151053 ENT
LDX #$1002
JMP L1506D8
L151059 ENT
LDX #$0B13
JMP L151442
L15105F ENT
LDX #$0C13
JMP L151442
L151065 ENT
LDX #$1F1E
JMP L1506D8
L15106B ENT
LDX #$0A22
JMP L1506D8
L151071 ENT
LDX #$3410
JMP L1506D8
L151077 ENT
LDX #$1F22
JMP L1506D8
L15107D ENT
LDX #$2D04
JMP L1506D8
L151083 ENT
LDX #$2C04
JMP L1506D8
L151089 ENT
LDX #$A804
JMP L1506D8
L15108F ENT
LDX #$1815
JMP L1506D8
L151095 ENT
LDX #$1E05
JMP L1506D8
L15109B ENT
LDX #$0A1C
JMP L1506D8
L1510A1 ENT
LDX #$3604
JMP L1506D8
L1510A7 ENT
LDX #$2F02
JMP L1506D8
L1510AD ENT
LDX #$0D08
JMP L1506D8
L1510B3 ENT
LDX #$0C08
JMP L1506D8
L1510B9 ENT
LDX #$0913
JMP L1506D8
L1510BF ENT
LDX #$171E
JMP L1506D8
L1510C5 ENT
LDX #$3A04
JMP L1506D8
L1510CB ENT
LDX #$190B
JMP L1506D8
L1510D1 ENT
LDX #$180E
JMP L151442
L1510D7 ENT
LDX #$1C1B
JMP L1506D8
L1510DD ENT
LDX #$111B
JMP L1506D8
L1510E3 ENT
LDX #$0A01
JMP L1506D8
L1510E9 ENT
LDX #$0901
JMP L1506D8
L1510EF ENT
LDA $06,S
BMI L15110E
LDA $04,S
CMP #$0010
BCS L151107
TAX
LDA $06,S
BRA L151100
L1510FF LSR
L151100 DEX
BPL L1510FF
STA $06,S
BRA L151127
L151107 LDA #$0000
STA $06,S
BRA L151127
L15110E LDA $04,S
CMP #$0010
BCS L151122
TAX
LDA $06,S
BRA L15111B
L15111A LSR
L15111B DEX
BPL L15111A
STA $06,S
BRA L151127
L151122 LDA #$FFFF
STA $06,S
L151127 LDA $02,S
STA $04,S
LDA $01,S
STA $03,S
PLY
RTL
L151131 ENT
LDX #$1B04
JMP L1506D8
L151137 ENT
PHD
TSC
SEC
SBC #$00F7
TCD
ADC #$00EA
TCS
LDX $FF
LDA $FD
AND #$003F
STA $F0
LDX #$0000
TDC
CLC
ADC #$0101
STX $EE
STA $EC
LDA $F0
LDX #$0000
TAY
BPL L151160
DEX
L151160 PHX
PHA
LDY #$0002
LDA [$EC],Y
TAX
LDA [$EC]
SEC
JSL L0337CC
PLA
PLX
LDY #$0002
PHA
TXA
STA [$EC],Y
PLA
STA [$EC]
TAY
TSC
CLC
ADC #$000C
TCS
PLD
LDA $02,S
STA $06,S
LDA $01,S
STA $05,S
TSC
CLC
ADC #$0004
TCS
TYA
STA $04,S
TXA
STA $06,S
RTL
L151198 ENT
LDX #$3004
JMP L1506D8
L15119E ENT
LDX #$3104
JMP L1506D8
L1511A4 ENT
LDX #$1013
JMP L1506D8
L1511AA ENT
LDX #$1413
JMP L1506D8
L1511B0 ENT
LDX #$3C0E
JMP L1506D8
L1511B6 ENT
LDX #$0A13
JMP L151442
L1511BC ENT
LDX #$1D0B
JMP L1506D8
L1511C2 ENT
LDX #$1204
JMP L1506D8
L1511C8 ENT
LDX #$110E
JMP L1506D8
L1511CE ENT
LDX #$2B02
JMP L1506D8
L1511D4 ENT
LDX #$2F15
JMP L1506D8
L1511DA ENT
LDX #$2E15
JMP L1506D8
L1511E0 ENT
LDX #$A204
JMP L1506D8
L1511E6 ENT
LDX #$A004
JMP L1506D8
L1511EC ENT
LDX #$2022
JMP L1506D8
L1511F2 ENT
PHD
TSC
SEC
SBC #$0004
TCD
TCS
STZ $03
LDX $0A
LDA $0C,X
STA $01
BMI L151220
LSR
LSR
LSR
CMP $0A
BCS L151220
TAY
LDA $01
AND #$0007
TAX
LDAL L0555A3,X
AND #$00FF
TYX
AND $0C,X
BEQ L151220
INC $03
L151220 LDX $0A
LDA $03
STA $0C,X
LDA $08
STA $0A,X
LDA $07
STA $09,X
LDA $05
STA $07,X
TSC
CLC
PHX
ADC $01,S
ADC #$0006
TCS
PLD
RTL
L15123D ENT
LDX #$5504
JMP L1506D8
L151243 ENT
PHD
TSC
TCD
PHA
PHA
PHA
PHA
PEI $0C
PEI $0A
PEI $08
PEI $06
_LongDivide
BCS L15125E
LDA #$0000
L15125E STAL L05565D
PLA
STA [$0E]
LDY #$0002
PLA
STA [$0E],Y
PLA
LDY #$0004
STA [$0E],Y
PLA
LDY #$0006
STA [$0E],Y
PLD
LDA $02,S
STA $0A,S
LDA $01,S
STA $09,S
TSC
CLC
ADC #$0008
TCS
RTL
L151287 ENT
LDX #$0E13
JMP L1506D8
L15128D ENT
LDX #$1622
JMP L1506D8
L151293 ENT
LDX #$200E
JMP L1506D8
L151299 ENT
LDX #$1422
JMP L1506D8
L15129F ENT
LDX #$090F
JMP L1506D8
L1512A5 ENT
EOR #$FFFF
SEC
ADC $04,S
TAY
TXA
EOR #$FFFF
ADC $06,S
TAX
LDA $01,S
STA $05,S
LDA $02,S
STA $06,S
PLA
PLA
TYA
RTL
L1512BF ENT
LDX #$240E
JMP L1506D8
L1512C5 ENT
LDX #$0E0F
JMP L1506D8
L1512CB ENT
LDX #$4F04
JMP L151442
L1512D1 ENT
LDX #$0E14
JMP L1506D8
L1512D7 ENT
LDX #$4E04
JMP L1506D8
L1512DD ENT
LDX #$5F04
JMP L1506D8
L1512E3 ENT
LDX #$9A04
JMP L1506D8
L1512E9 ENT
LDX #$9B04
JMP L1506D8
L1512EF ENT
LDX #$0922
JMP L1506D8
L1512F5 ENT
LDX #$1A0B
JMP L1506D8
L1512FB ENT
LDX #$1902
JMP L1506D8
L151301 ENT
LDX #$1802
JMP L1506D8
L151307 ENT
LDX #$1905
JMP L1506D8
L15130D ENT
LDX #$1910
JMP L1506D8
L151313 ENT
LDX #$1A10
JMP L1506D8
L151319 ENT
LDX #$1006
JMP L1506D8
L15131F ENT
LDX #$5A04
JMP L1506D8
L151325 ENT
LDX #$1603
JMP L1506D8
L15132B ENT
LDX #$0F03
JMP L1506D8
L151331 ENT
LDX #$1001
JMP L1506D8
L151337 ENT
LDX #$0F01
JMP L1506D8
L15133D ENT
LDX #$0E0B
JMP L1506D8
L151343 ENT
LDX #$2103
JMP L1506D8
L151349 ENT
LDX #$0D02
JMP L1506D8
L15134F ENT
LDX #$0C02
JMP L1506D8
L151355 ENT
LDX #$8204
JMP L1506D8
L15135B ENT
LDX #$BE04
JMP L1506D8
L151361 ENT
LDX #$1102
JMP L1506D8
L151367 ENT
LDX #$3010
JMP L1506D8
L15136D ENT
LDX #$0A16
JMP L1506D8
L151373 ENT
LDX #$0916
JMP L1506D8
L151379 ENT
LDX #$2214
JMP L1506D8
L15137F ENT
LDX #$7504
JMP L151442
L151385 ENT
LDX #$0B0E
JMP L1506D8
L15138B ENT
LDX #$201E
JMP L1506D8
L151391 PHD
TSC
CLC
ADC #$FFDB
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $31
PEI $2F
PEA $0021
JSL L0313BE
TDC
CLC
ADC #$0033
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $2D
PEI $2B
PEA $0001
_SANEDecStr816
BCS L1513D2
LDA #$0000
L1513D2 STAL L05565D
LDA $29
STA $35
LDA $28
STA $34
LDA $26
TCD
TSC
CLC
ADC #$0033
TCS
RTL
L1513E8 ENT
LDX #$0F13
JMP L1506D8
L1513EE ENT
LDX #$141C
JMP L1506D8
L1513F4 ENT
LDX #$0902
JMP L1506D8
L1513FA ENT
LDX #$160F
JMP L1506D8
L151400 ENT
LDX #$B904
JMP L1506D8
L151406 ENT
LDX #$0A02
JMP L1506D8
L15140C ENT
LDX #$C104
JMP L1506D8
L151412 ENT
LDX #$8404
JMP L1506D8
L151418 ENT
LDX #$5304
JMP L1506D8
L15141E ENT
LDX #$1D0E
JMP L1506D8
L151424 ENT
LDX #$1804
JMP L1506D8
L15142A ENT
LDX #$2603
JMP L1506D8
L151430 ENT
LDX #$0D10
JMP L1506D8
L151436 ENT
LDX #$0C10
JMP L1506D8
L15143C ENT
LDX #$2703
JMP L1506D8
L151442 JSL DISPATCH2
STAL L05565D
LDA $04,S
BEQ L151453
LDA #$0001
STA $04,S
L151453 RTL
L151454 ENT
LDX #$0317
JMP L1506D8
L15145A ENT
LDX #$4C0E
JMP L151442
L151460 ENT
LDX #$8704
JMP L1506D8
L151466 ENT
LDX #$9104
JMP L1506D8
L15146C ENT
LDX #$0D1C
JMP L1506D8
L151472 ENT
LDX #$9204
JMP L1506D8
L151478 ENT
LDX #$1914
JMP L1506D8
L15147E ENT
LDX #$460F
JMP L1506D8
L151484 ENT
LDX #$450F
JMP L1506D8
L15148A ENT
LDX #$2A0F
JMP L1506D8
L151490 ENT
LDX #$2304
JMP L1506D8
L151496 ENT
LDX #$1406
JMP L1506D8
L15149C ENT
LDX #$1113
JMP L1506D8
L1514A2 ENT
LDX #$600E
JMP L1506D8
L1514A8 ENT
LDX #$2504
JMP L1506D8
L1514AE ENT
LDX #$0B1B
JMP L1506D8
L1514B4 ENT
PHD
TSC
CLC
ADC #$FFC8
TCS
TCD
TDC
CLC
ADC #$0029
PEA $0000
PHA
PEI $40
PEI $3E
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$0033
PEA $0000
PHA
JSL L15184D
PHY
PHY
TDC
CLC
ADC #$0029
PEA $0000
PHA
JSL L150082
PLA
STA $42
PLX
STX $44
PHY
PEA $0010
JSL L1517F7
PLA
LSR
BCS L151501
BRL L1515AA
L151501 PEA $0003
JSL L150DD8
PHY
PHY
PEA $0000
TDC
CLC
ADC #$001F
PHA
TDC
CLC
ADC #$0029
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0000
TDC
CLC
ADC #$0015
PHA
TDC
CLC
ADC #$0029
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0015
PHA
PEA $000F
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0015
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA ^L0556D2
PEA L0556D2
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0000
_SANEFP816
PEA $0000
TDC
CLC
ADC #$000B
PHA
JSL L1518AA
JSL L150082
PLA
STA $42
PLX
STX $44
L1515AA PEI $33
JSL L15187D
LDA $3C
STA $40
LDA $3B
STA $3F
LDA $39
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L1515C2 ENT
LDX #$3403
JMP L1506D8
L1515C8 ENT
LDX #$281E
JMP L1506D8
L1515CE PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$001D
TCD
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
PEI $F6
PEI $F4
PEI $F2
PEI $F0
PEI $EE
PEI $EC
PEA $0000
_SANEDecStr816
BCS L151611
LDA #$0000
L151611 STAL L05565D
LDA $EA
STA $FA
LDA $E9
STA $F9
LDA $E7
TCD
TSC
CLC
ADC #$0116
TCS
RTL
L151627 ENT
LDX #$0E12
JMP L1506D8
L15162D ENT
LDX #$5804
JMP L1506D8
L151633 ENT
LDX #$091B
JMP L1506D8
L151639 ENT
LDX #$0E17
JMP L1506D8
L15163F ENT
LDX #$3110
JMP L1506D8
L151645 ENT
LDX #$0B22
JMP L1506D8
L15164B ENT
LDX #$0E06
JMP L151442
L151651 ENT
LDX #$0B14
JMP L1506D8
L151657 ENT
LDX #$0D12
JMP L1506D8
L15165D ENT
LDX #$0D22
JMP L1506D8
L151663 ENT
LDX #$0E1B
JMP L1506D8
L151669 ENT
LDX #$6804
JMP L1506D8
L15166F ENT
LDX #$6E04
JMP L1506D8
L151675 ENT
LDX #$BC04
JMP L1506D8
L15167B ENT
LDX #$320F
JMP L1506D8
L151681 ENT
LDX #$0C03
JMP L1506D8
L151687 ENT
LDX #$1B0B
JMP L1506D8
L15168D ENT
LDX #$1614
JMP L1506D8
L151693 ENT
LDX #$1304
JMP L1506D8
L151699 ENT
LDX #$2A0E
JMP L1506D8
L15169F ENT
LDX #$150B
JMP L1506D8
L1516A5 ENT
LDX #$2904
JMP L1506D8
L1516AB ENT
LDX #$7804
JMP L151442
L1516B1 ENT
LDX #$6A04
JMP L1506D8
L1516B7 ENT
LDX #$2202
JMP L1506D8
L1516BD ENT
LDX #$0E16
JMP L1506D8
L1516C3 ENT
LDX #$1B14
JMP L1506D8
L1516C9 ENT
LDX #$C604
JMP L1506D8
L1516CF ENT
LDX #$C704
JMP L1506D8
L1516D5 ENT
LDX #$0F14
JMP L1506D8
L1516DB ENT
LDX #$1022
JMP L1506D8
L1516E1 ENT
LDX #$0F22
JMP L1506D8
L1516E7 ENT
LDX #$1014
JMP L1506D8
L1516ED ENT
LDX #$9C04
JMP L1506D8
L1516F3 ENT
PHD
TSC
SEC
SBC #$00F3
TCD
ADC #$00E2
TCS
LDX #$0101
LDA $00,X
TAX
PHX
LDA $FF
PLX
STX $EC
STA $EA
LDX #$0000
LDA #$0008
PHX
PHA
LDA $F9
LDX #$0000
TAY
BPL L15171D
DEX
L15171D PHX
PHA
LDX $FD
LDA $FB
SEC
JSL L033930
PLA
PLX
SEC
JSL L032FA4
PLY
PLY
STA $E8
LDX #$0000
LDA #$0008
PHX
PHA
LDA $F9
LDX #$0000
TAY
BPL L151744
DEX
L151744 PHX
PHA
LDX $FD
LDA $FB
SEC
JSL L033930
PLA
PLX
SEC
JSL L032FA4
PLA
PLX
STA $E6
LDA $E8
LDX #$0000
TAY
BPL L151763
DEX
L151763 PHX
PHA
LDX $EC
LDA $EA
JSL L0338DC
PLA
PLX
STX $EC
STA $EA
LDA [$EA]
STA $E4
PEI $E6
LDA $E4
SEC
JSL L0339B7
PLA
STA $E4
LDA $F9
SEC
SBC #$0001
LDX #$0000
TAY
BPL L151790
DEX
L151790 STX $F2
ASL
ROL $F2
LDX $F2
PHX
PHA
LDA #L0555AB
LDX #^L0555AB
JSL L0338DC
PLA
PLX
STA $EE
STX $F0
LDA [$EE]
PHA
LDA $E4
PLX
STX $F2
AND $F2
TAY
TSC
CLC
ADC #$0010
TCS
PLD
LDA $02,S
STA $0A,S
LDA $01,S
STA $09,S
TSC
CLC
ADC #$0008
TCS
TYA
STA $04,S
RTL
L1517CD ENT
LDX #$1010
JMP L1506D8
L1517D3 ENT
LDX #$CA04
JMP L1506D8
L1517D9 ENT
LDX #$9504
JMP L1506D8
L1517DF ENT
LDX #$2D0F
JMP L1506D8
L1517E5 ENT
LDX #$0C01
JMP L1506D8
L1517EB ENT
LDX #$5704
JMP L1506D8
L1517F1 ENT
LDX #$5D04
JMP L1506D8
L1517F7 PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0338B0
TAY
CLC
TSC
ADC #$0004
TCS
TYA
PEI $01
PEA $0100
JSL L1500F5
PLX
PLX
PHA
PEA $0020
JSL L150318
PLX
PLX
STA $01
LDA #$0001
STA $0E
LDA $0C
AND $01
STA $01
LDA $01
BNE L15183C
STZ $0E
L15183C LDA $0A
STA $0C
LDA $09
STA $0B
LDA $07
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L15184D PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0C
PEI $0A
PEA $0017
_SANEFP816
BCS L151868
LDA #$0000
L151868 STAL L05565D
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L15187D PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0A
PEA $0019
_SANEFP816
BCS L151896
LDA #$0000
L151896 STAL L05565D
LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L1518AA PHD
TSC
CLC
ADC #$FFDE
TCS
TCD
TDC
CLC
ADC #$000B
PEA $0000
PHA
PEI $2E
PEI $2C
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $2A
PEI $28
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$0015
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$000B
PEA $0000
PHA
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $0011
_SANEFP816
BCS L151914
LDA #$0000
L151914 STAL L05565D
PEI $32
PEI $30
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $000A
JSL L0313BE
LDA $26
STA $2E
LDA $25
STA $2D
LDA $23
TCD
TSC
CLC
ADC #$002C
TCS
RTL