Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-01-04 04:31:04 +00:00
Code Issues Projects Releases Wiki Activity
99881724ef
antoine-source/hypercardiigs/Eval.S
Antoine Vignau 25de611f19 Adding HCGS & SynthLAB 
202303 - Adding two working disassemblies of former IIgs products
2023-03-02 13:12:30 +01:00

1805 lines
31 KiB
ArmAsm
Raw Blame History

*
* HypercardGS
* segment: $10 Eval
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk Eval.l
lst off
*---------------------------------------
use Eval.E
use Eval.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
*---------------------------------------
L100000 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0000
JSL L100026
PLY
PLY
PLD
RTL
L100013 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0001
JSL L100026
PLY
PLY
PLD
RTL
L100026 PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
PHY
PHY
JSL L0B37CF
PLA
STA $15
PLX
STX $17
PHY
PHY
JSL L0B3727
PLA
STA $11
PLX
STX $13
LDA $15
LDX $17
PEI $13
PEI $11
JSL L150F53
STA $0D
STX $0F
PHY
PHY
PEI $0F
PEI $0D
LDA L0553DB
PHA
JSL L0B249C
PLA
STA $09
PLX
STX $0B
LDA $09
ORA $0B
BNE L10007A
PEA $002D
JSL L0B0B7A
BRL L100104
L10007A PHY
PHY
PEA $0000
JSL L03154C
PLA
STA $05
PLX
STX $07
PEI $07
PEI $05
LDY #$0002
LDA [$09],Y
PHA
LDA [$09]
PHA
LDX $17
LDA $15
BNE L10009D
DEX
L10009D DEC
PHX
PHA
JSL L070597
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
PEI $17
PEI $15
JSL L150F53
TAY
BNE L1000B8
DEX
L1000B8 DEC
STA $01
STX $03
LDA $22
BEQ L1000D5
SEP #$20
LDA #$20
STA [$01]
REP #$20
LDA $01
LDX $03
INC
BNE L1000D1
INX
L1000D1 STA $01
STX $03
L1000D5 PHY
PHY
PEA $0000
JSL L031415
PLA
STA $05
PLX
STX $07
PEI $07
PEI $05
PEI $03
PEI $01
PEI $13
PEI $11
JSL L070597
JSL L0E0000
JSL L0E0000
PEI $0B
PEI $09
JSL L0E0CFE
L100104 LDA $20
STA $22
LDA $1F
STA $21
LDA $1D
TCD
TSC
CLC
ADC #$0020
TCS
RTL
L100116 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L0E0678
PHY
JSL L0E0678
PLA
STA $01
PLA
AND $01
PHA
JSL L0E0E4B
PLY
PLY
PLD
RTL
L100137 ENT
PHD
TSC
CLC
ADC #$FD96
TCS
ADC #$0173
TCD
STZ L05538F
PHY
JSL L03198D
PLA
LSR
BCS L100151
BRL L100672
L100151 TDC
CLC
ADC #$00DB
PEA $0000
PHA
JSL L0E00CC
PHY
JSL L03198D
PLA
LSR
BCS L10016A
BRL L10065A
L10016A TDC
CLC
ADC #$00CF
PEA $0000
PHA
JSL L0E00CC
LDA $CF
AND $DB
BNE L100180
BRL L10026D
L100180 LDA L0553AB
SEC
SBC #$0007
BPL L10018C
BRL L10026A
L10018C CMP #$000D
BMI L100194
BRL L10026A
L100194 SEC
SBC #$0000
BEQ L1001B8
DEC
DEC
BNE L1001A1
BRL L10022A
L1001A1 DEC
BEQ L1001EA
SEC
SBC #$0005
BNE L1001AD
BRL L100249
L1001AD DEC
BEQ L10020B
DEC
DEC
DEC
BEQ L1001D1
BRL L10026A
L1001B8 LDA $DD
LDX $DF
CMP $D1
BNE L1001C2
CPX $D3
L1001C2 BEQ L1001C9
LDA #$0000
BRA L1001CC
L1001C9 LDA #$0001
L1001CC STA $EF
BRL L10026A
L1001D1 LDA $DD
LDX $DF
CMP $D1
BNE L1001DB
CPX $D3
L1001DB BNE L1001E2
LDA #$0000
BRA L1001E5
L1001E2 LDA #$0001
L1001E5 STA $EF
BRL L10026A
L1001EA PEI $D3
PEI $D1
LDA $DD
LDX $DF
JSL L033477
BEQ L1001FF
BVS L1001FD
EOR #$8000
L1001FD BMI L100204
L1001FF LDA #$0000
BRA L100207
L100204 LDA #$0001
L100207 STA $EF
BRA L10026A
L10020B PEI $D3
PEI $D1
LDA $DD
LDX $DF
JSL L033477
BVS L10021C
EOR #$8000
L10021C BPL L100223
LDA #$0000
BRA L100226
L100223 LDA #$0001
L100226 STA $EF
BRA L10026A
L10022A PEI $D3
PEI $D1
LDA $DD
LDX $DF
JSL L033477
BVS L10023B
EOR #$8000
L10023B BMI L100242
LDA #$0000
BRA L100245
L100242 LDA #$0001
L100245 STA $EF
BRA L10026A
L100249 PEI $D3
PEI $D1
LDA $DD
LDX $DF
JSL L033477
BEQ L100263
BVS L10025C
EOR #$8000
L10025C BPL L100263
LDA #$0000
BRA L100266
L100263 LDA #$0001
L100266 STA $EF
BRA L10026A
L10026A BRL L100658
L10026D LDA $DB
BEQ L1002B3
TDC
CLC
ADC #$00DD
PEA $0000
PHA
LDA $DD
LDX $DF
TXY
LDX #$FEBB
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$FEBB
PHA
PEA $0000
TDC
CLC
ADC #$FEB1
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEB1
PHA
PEA $000A
JSL L0313BE
L1002B3 LDA $CF
BEQ L1002F9
TDC
CLC
ADC #$00D1
PEA $0000
PHA
LDA $D1
LDX $D3
TXY
LDX #$FEBB
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$FEBB
PHA
PEA $0000
TDC
CLC
ADC #$FEB1
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEB1
PHA
PEA $000A
JSL L0313BE
L1002F9 LDA L0553AB
SEC
SBC #$0007
BPL L100305
BRL L100658
L100305 CMP #$000D
BMI L10030D
BRL L100658
L10030D SEC
SBC #$0000
BEQ L10033A
DEC
DEC
BNE L10031A
BRL L10059C
L10031A DEC
BNE L100320
BRL L1004E2
L100320 SEC
SBC #$0005
BNE L100329
BRL L1005FA
L100329 DEC
BNE L10032F
BRL L10053F
L10032F DEC
DEC
DEC
BNE L100337
BRL L10040E
L100337 BRL L100658
L10033A PEA $0000
TDC
CLC
ADC #$FE97
PHA
PEA $0000
TDC
CLC
ADC #$FEA1
PHA
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
TDC
CLC
ADC #$00DD
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
PEA $0002
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEA1
PHA
PEA $000F
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEA1
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FE8D
PHA
PEA $0000
TDC
CLC
ADC #$FE8D
PHA
PEA ^L0402F8
PEA L0402F8
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FE97
PHA
PEA $000A
_SANEFP816
BVS L100406
LDA #$0000
BRA L100409
L100406 LDA #$0001
L100409 STA $EF
BRL L100658
L10040E PEA $0000
TDC
CLC
ADC #$FE97
PHA
PEA $0000
TDC
CLC
ADC #$FEA1
PHA
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
TDC
CLC
ADC #$00DD
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
PEA $0002
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEA1
PHA
PEA $000F
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEA1
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FE8D
PHA
PEA $0000
TDC
CLC
ADC #$FE8D
PHA
PEA ^L040302
PEA L040302
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FE97
PHA
PEA $000A
_SANEFP816
BMI L1004DA
LDA #$0000
BRA L1004DD
L1004DA LDA #$0001
L1004DD STA $EF
BRL L100658
L1004E2 PEA $0000
TDC
CLC
ADC #$FEB5
PHA
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
TDC
CLC
ADC #$00DD
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
PEA $000A
_SANEFP816
BMI L100537
LDA #$0000
BRA L10053A
L100537 LDA #$0001
L10053A STA $EF
BRL L100658
L10053F PEA $0000
TDC
CLC
ADC #$FEB5
PHA
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
TDC
CLC
ADC #$00DD
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
PEA $000A
_SANEFP816
BVS L100594
LDA #$0000
BRA L100597
L100594 LDA #$0001
L100597 STA $EF
BRL L100658
L10059C PEA $0000
TDC
CLC
ADC #$FEB5
PHA
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
TDC
CLC
ADC #$00DD
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
PEA $000A
_SANEFP816
BEQ L1005F3
BMI L1005F3
LDA #$0000
BRA L1005F6
L1005F3 LDA #$0001
L1005F6 STA $EF
BRA L100658
L1005FA PEA $0000
TDC
CLC
ADC #$FEB5
PHA
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
PEA $0000
TDC
CLC
ADC #$FEAB
PHA
TDC
CLC
ADC #$00DD
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEB5
PHA
PEA $000A
_SANEFP816
BEQ L100651
BVS L100651
LDA #$0000
BRA L100654
L100651 LDA #$0001
L100654 STA $EF
BRA L100658
L100658 BRA L10066D
L10065A TDC
CLC
ADC #$00DB
PEA $0000
PHA
JSL L0E07F9
JSL L031B09
BRA L100674
L10066D BRL L10078B
BRA L100674
L100672 BRA L100674
L100674 JSL L031B09
JSL L0B32A5
JSL L031B09
PHY
PHY
PEA $0000
JSL L031415
PLA
STA $EB
PLX
STX $ED
PHY
PHY
PEA $0000
JSL L03154C
PLA
STA $E7
PLX
STX $E9
LDX #$0000
LDA #$0007
CMP L0553AB
BNE L1006AA
INX
L1006AA PHX
LDX #$0000
LDA #$0013
CMP L0553AB
BNE L1006B7
INX
L1006B7 TXA
ORA $01,S
PLX
LSR
BCC L1006D0
PHY
PEI $ED
PEI $EB
PEI $E9
PEI $E7
JSL L0B8146
PLA
STA $F1
BRA L1006E0
L1006D0 PHY
PEI $ED
PEI $EB
PEI $E9
PEI $E7
JSL L0B8189
PLA
STA $F1
L1006E0 JSL L0E0000
JSL L0E0000
LDA L0553AB
SEC
SBC #$0007
BPL L1006F4
BRL L10078B
L1006F4 CMP #$000D
BMI L1006FC
BRL L10078B
L1006FC SEC
SBC #$0000
BEQ L100719
DEC
DEC
BEQ L10074F
DEC
BEQ L100731
SEC
SBC #$0005
BEQ L10076C
DEC
BEQ L10073F
DEC
DEC
DEC
BEQ L100726
BRA L10078B
L100719 LDX #$0000
LDA $F1
BNE L100721
INX
L100721 TXA
STA $EF
BRA L10078B
L100726 LDA $F1
BEQ L10072D
LDA #$0001
L10072D STA $EF
BRA L10078B
L100731 LDX #$0000
LDA $F1
DEC
BNE L10073A
INX
L10073A TXA
STA $EF
BRA L10078B
L10073F LDX #$0000
LDA #$FFFF
CMP $F1
BNE L10074A
INX
L10074A TXA
STA $EF
BRA L10078B
L10074F LDX #$0000
LDA $F1
DEC
BNE L100758
INX
L100758 TXA
BNE L100768
PHA
LDX #$0000
LDA $F1
BNE L100764
INX
L100764 TXA
ORA $01,S
PLX
L100768 STA $EF
BRA L10078B
L10076C LDX #$0000
LDA #$FFFF
CMP $F1
BNE L100777
INX
L100777 TXA
BNE L100787
PHA
LDX #$0000
LDA $F1
BNE L100783
INX
L100783 TXA
ORA $01,S
PLX
L100787 STA $EF
BRA L10078B
L10078B PEI $EF
JSL L0E0E4B
LDA #$0001
STA L05538F
TSC
CLC
ADC #$026A
TCS
PLD
RTL
L10079F ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
JSL L0B32A5
JSL L1008D4
PLY
PLY
PLY
PLY
PLD
RTL
L1007B5 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
PHY
PHY
JSL L0E061D
PLA
STA $01
PLX
STX $03
PHY
PHY
JSL L0E061D
PLA
STA $05
PLX
STX $07
LDA $01
ORA $03
BEQ L1007F3
PEI $07
PEI $05
PEI $03
PEI $01
JSL L150290
PLY
PLY
PLY
PLY
PHX
PHA
JSL L0E0E79
BRA L1007FA
L1007F3 PEA $0009
JSL L0B0B7A
L1007FA TSC
CLC
ADC #$000C
TCS
PLD
RTL
L100802 ENT
PHD
TSC
CLC
ADC #$FFD4
TCS
TCD
TDC
CLC
ADC #$001F
PEA $0000
PHA
JSL L0E04A7
TDC
CLC
ADC #$0015
PEA $0000
PHA
JSL L0E04A7
PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$001F
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0006
_SANEFP816
PEA $0000
TDC
CLC
ADC #$000B
PHA
JSL L0E0C71
TSC
CLC
ADC #$002C
TCS
PLD
RTL
L100887 ENT
PHD
TSC
CLC
ADC #$FFDE
TCS
TCD
TDC
CLC
ADC #$0015
PEA $0000
PHA
JSL L0E04A7
TDC
CLC
ADC #$000B
PEA $0000
PHA
JSL L0E04A7
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$000B
PEA $0000
PHA
TDC
CLC
ADC #$0015
PEA $0000
PHA
JSL L1504B7
JSL L0E0C71
TSC
CLC
ADC #$0022
TCS
PLD
RTL
L1008D4 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PHY
PHY
PEA $0000
JSL L03154C
PHY
PHY
PEA $0000
JSL L031415
JSL L071CE4
PLA
STA $01
PLX
STX $03
JSL L0E0000
JSL L0E0000
LDA $01
ORA $03
BEQ L10090B
LDA #$0001
L10090B PHA
JSL L0E0E4B
PLY
PLY
PLY
PLY
PLD
RTL
L100916 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L1008D4
JSL L0B26CD
PLY
PLY
PLD
RTL
L10092A ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L100AA7
JSL L0B26CD
PLY
PLY
PLD
RTL
L10093E PHD
TSC
CLC
ADC #$FEE0
TCS
ADC #$002F
TCD
JSL L031B09
LDA L0553B5
LDX L0553B7
STA $D3
STX $D5
PHY
JSL L0B1C0F
PLA
STA $D1
PHY
PHY
PEA $0000
JSL L031415
PHY
PHY
JSL L0B3727
TDC
CLC
ADC #$00D7
PEA $0000
PHA
JSL L0B7932
PEI $D1
JSL L0B39C0
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
JSL L0E06AC
TDC
CLC
ADC #$00D7
PEA $0000
PHA
PEA $0001
JSL L0B2AF9
PHY
PEI $FA
JSL L0B4D5D
PLA
LSR
BCC L1009B0
LDA #$0001
STA $FC
BRA L1009BF
L1009B0 STZ $FC
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
JSL L0E0EA8
L1009BF TDC
CLC
ADC #$00D7
PEA $0000
PHA
JSL L0B0F05
PEI $D5
PEI $D3
PEA $0000
JSL L0B2AF9
LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$0128
TCS
RTL
L1009E9 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L0B3773
PLA
PLX
CMP #$000C
BNE L100A01
CPX #$0000
L100A01 BNE L100A0A
LDA #$0001
STA $0E
BRA L100A37
L100A0A PHY
LDA L0553D1
LDX L0553D3
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$01A6
BCC L100A24
INX
L100A24 STA $01
STX $03
LDA [$01]
PHA
PEA $0000
PEI $0A
JSL L10093E
PLA
STA $0E
L100A37 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L100A48 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L0B3773
PLA
PLX
CMP #$000B
BNE L100A60
CPX #$0000
L100A60 BNE L100A69
LDA #$0001
STA $0E
BRA L100A96
L100A69 PHY
LDA L0553D1
LDX L0553D3
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$01A8
BCC L100A83
INX
L100A83 STA $01
STX $03
LDA [$01]
PHA
PEA $0000
PEI $0A
JSL L10093E
PLA
STA $0E
L100A96 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L100AA7 ENT
PHD
TSC
CLC
ADC #$FFEE
TCS
TCD
PHY
PEA $0000
PHD
JSL L1009E9
PLA
LSR
BCS L100ACB
LDA #$0065
STA $01
JSL L0B32A5
JSL L0E0000
BRA L100AF3
L100ACB TDC
CLC
ADC #$0007
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $000C
JSL L0E0656
PHY
PEA $0000
PHD
JSL L100A48
PLA
LSR
BCS L100B12
LDA #$0066
STA $01
L100AF3 PEA ^L050C32
PEA L050C32
JSL L0E06AC
PEI $01
PEA ^L050C32
PEA L050C32
JSL L0B0841
PEA $0000
JSL L0E0E4B
BRA L100B43
L100B12 TDC
CLC
ADC #$0003
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $000B
JSL L0E0656
PHY
TDC
CLC
ADC #$0003
PEA $0000
PHA
TDC
CLC
ADC #$0007
PEA $0000
PHA
JSL L1512CB
JSL L0E0E4B
L100B43 TSC
CLC
ADC #$0012
TCS
PLD
RTL
L100B4B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0002
JSL L0B7E9D
PLY
PLY
PLD
RTL
L100B5E ENT
PHD
TSC
CLC
ADC #$FFC4
TCS
TCD
TDC
CLC
ADC #$001F
PEA $0000
PHA
JSL L0E00CC
TDC
CLC
ADC #$002B
PEA $0000
PHA
JSL L0E00CC
LDA $2B
AND $1F
BEQ L100BAE
LDA $21
ORA $23
BEQ L100BA4
PEI $2F
PEI $2D
PEI $23
PEI $21
JSL L1503B9
PLY
PLY
PLY
PLY
PHX
PHA
JSL L0E0DE2
BRA L100BAB
L100BA4 PEA $000A
JSL L0B0B7A
L100BAB BRL L100D6A
L100BAE LDA $1F
BEQ L100BF4
TDC
CLC
ADC #$0021
PEA $0000
PHA
LDA $21
LDX $23
TXY
LDX #$0011
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$0011
PHA
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $000A
JSL L0313BE
L100BF4 LDA $2B
BEQ L100C3A
TDC
CLC
ADC #$002D
PEA $0000
PHA
LDA $2D
LDX $2F
TXY
LDX #$0011
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$0011
PHA
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $000A
JSL L0313BE
L100C3A TDC
CLC
ADC #$0015
PEA $0000
PHA
TDC
CLC
ADC #$0037
PEA $0000
PHA
TDC
CLC
ADC #$0021
PEA $0000
PHA
PLY
PLX
TSC
CLC
ADC #$FFF6
TCS
PEA $0000
INC
PHA
PHX
PHY
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$002D
PEA $0000
PHA
PLY
PLX
TSC
CLC
ADC #$FFF6
TCS
PEA $0000
INC
PHA
PHX
PHY
PEA $000A
JSL L0313BE
JSL L0333DF
TAY
CLC
TSC
ADC #$0018
TCS
TYA
PHX
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA ^L04030C
PEA L04030C
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $000A
_SANEFP816
BVS L100CF1
LDA #$0000
BRA L100CF4
L100CF1 LDA #$0001
L100CF4 BEQ L100D5D
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$0021
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0000
_SANEFP816
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $000A
JSL L0313BE
L100D5D TDC
CLC
ADC #$0015
PEA $0000
PHA
JSL L0E0C71
L100D6A TSC
CLC
ADC #$003C
TCS
PLD
RTL
L100D72 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L0E0678
PHY
JSL L0E0678
PLA
ORA $01,S
PLX
PHA
JSL L0E0E4B
PLY
PLY
PLD
RTL
L100D91 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0000
JSL L0B7E9D
PLY
PLY
PLD
RTL
L100DA4 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0004
JSL L0B7E9D
PLY
PLY
PLD
RTL
Reference in New Issue View Git Blame Copy Permalink