3919 lines
83 KiB
ArmAsm
3919 lines
83 KiB
ArmAsm
|
|
*---------------------------------------------------------*
|
|
* Disassembled with The Flaming Bird Disassembler *
|
|
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
|
*---------------------------------------------------------*
|
|
|
|
REL
|
|
|
|
L070000 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$0092
|
|
TCS
|
|
LDA $FF
|
|
BRL L0700AC
|
|
L070010 PEA ^L030CA8
|
|
PEA L030CA8
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D4
|
|
PHA
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L030CC1
|
|
PEA L030CC1
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00B4
|
|
PHA
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L030CDE
|
|
PEA L030CDE
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0094
|
|
PHA
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRL L0700BA
|
|
L070058 PEA ^L030CEE
|
|
PEA L030CEE
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D4
|
|
PHA
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L030D07
|
|
PEA L030D07
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00B4
|
|
PHA
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L030D25
|
|
PEA L030D25
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0094
|
|
PHA
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRL L0700BA
|
|
L0700A0 BRL L0700BA
|
|
BRL L0700BA
|
|
L0700A6 DA L070010
|
|
DA L070058
|
|
DA L0700A0
|
|
L0700AC DEC
|
|
CMP #$0002
|
|
BCC L0700B5
|
|
LDA #$0002
|
|
L0700B5 ASL
|
|
TAX
|
|
JMP (L0700A6,X)
|
|
|
|
L0700BA PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D4
|
|
PHA
|
|
JSL L013A1F
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00B4
|
|
PHA
|
|
JSL L013A1F
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0094
|
|
PHA
|
|
JSL L013A1F
|
|
PLY
|
|
PLY
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D4
|
|
PHA
|
|
TXA
|
|
STAL L030C4C
|
|
PLA
|
|
STAL L030C4A
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00B4
|
|
PHA
|
|
TXA
|
|
STAL L030C64
|
|
PLA
|
|
STAL L030C62
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$0094
|
|
PHA
|
|
TXA
|
|
STAL L030C7C
|
|
PLA
|
|
STAL L030C7A
|
|
L070120 PHA
|
|
PEA ^L030C86
|
|
PEA L030C86
|
|
PEA $0000
|
|
PEA $0000
|
|
_NoteAlert
|
|
BCS L070139
|
|
LDA #$0000
|
|
L070139 STAL L020002
|
|
PLA
|
|
CMP #$0001
|
|
BEQ L070145
|
|
BRA L070120
|
|
L070145 JSL L014C78
|
|
TSC
|
|
CLC
|
|
ADC #$0066
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070151 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00E4
|
|
TCS
|
|
LDA $FF
|
|
BRL L07018B
|
|
L070161 LDA #$0001
|
|
BRL L0702C6
|
|
L070167 LDA L020040
|
|
SEC
|
|
SBC L02003E
|
|
BRL L0702C6
|
|
L070171 JSL L015B49
|
|
SEC
|
|
SBC L02003E
|
|
CLC
|
|
ADC #$0001
|
|
BRL L0702C6
|
|
L070180 BRL L070199
|
|
L070183 DA L070161
|
|
DA L070167
|
|
DA L070171
|
|
DA L070180
|
|
L07018B DEC
|
|
CMP #$0003
|
|
BCC L070194
|
|
LDA #$0003
|
|
L070194 ASL
|
|
TAX
|
|
JMP (L070183,X)
|
|
|
|
L070199 PHA
|
|
PEI $FD
|
|
PEI $FB
|
|
PEI $F9
|
|
_GetDItemValue
|
|
BCS L0701AC
|
|
LDA #$0000
|
|
L0701AC STAL L020002
|
|
PLA
|
|
STA $EA
|
|
LDX #$0000
|
|
STX $E8
|
|
STA $E6
|
|
LDA $FF
|
|
BRL L0702B3
|
|
L0701BF LDA $EA
|
|
SEC
|
|
SBC #$0001
|
|
STA $EC
|
|
CMP #$0001
|
|
BCS L0701D1
|
|
LDA #$0001
|
|
BRA L0701D3
|
|
L0701D1 LDA $EC
|
|
L0701D3 STA $EA
|
|
PHA
|
|
LDA L02003E
|
|
PLX
|
|
STX $F2
|
|
CLC
|
|
ADC $F2
|
|
PHA
|
|
JSL L0148CF
|
|
PLY
|
|
BRL L0702C4
|
|
L0701E8 LDA $EA
|
|
CLC
|
|
ADC #$0001
|
|
STA $EC
|
|
CMP L020042
|
|
BEQ L0701FC
|
|
BCC L0701FC
|
|
LDA L020042
|
|
BRA L0701FE
|
|
L0701FC LDA $EC
|
|
L0701FE STA $EA
|
|
PHA
|
|
LDA L02003E
|
|
PLX
|
|
STX $F2
|
|
CLC
|
|
ADC $F2
|
|
PHA
|
|
JSL L0148CF
|
|
PLY
|
|
BRL L0702C4
|
|
L070213 LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDX $E8
|
|
LDA $E6
|
|
SEC
|
|
SBC #$0032
|
|
PHA
|
|
TXA
|
|
SBC #$0000
|
|
TAX
|
|
PLA
|
|
JSL L013333
|
|
BEQ L07023E
|
|
BVS L070235
|
|
EOR #$8000
|
|
L070235 BPL L07023E
|
|
LDA #$0001
|
|
STA $EA
|
|
BRA L070246
|
|
L07023E LDA $EA
|
|
SEC
|
|
SBC #$0032
|
|
STA $EA
|
|
L070246 LDA L02003E
|
|
CLC
|
|
ADC $EA
|
|
PHA
|
|
JSL L0148CF
|
|
PLY
|
|
BRL L0702C4
|
|
L070255 LDA L020042
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX $E8
|
|
LDA $E6
|
|
CLC
|
|
ADC #$0032
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
JSL L013333
|
|
BVS L070275
|
|
EOR #$8000
|
|
L070275 BMI L07027E
|
|
LDA L020042
|
|
STA $EA
|
|
BRA L070286
|
|
L07027E LDA $EA
|
|
CLC
|
|
ADC #$0032
|
|
STA $EA
|
|
L070286 LDA L02003E
|
|
CLC
|
|
ADC $EA
|
|
PHA
|
|
JSL L0148CF
|
|
PLY
|
|
BRL L0702C4
|
|
L070295 LDA L02003E
|
|
CLC
|
|
ADC $EA
|
|
PHA
|
|
JSL L0148CF
|
|
PLY
|
|
BRL L0702C4
|
|
L0702A4 BRL L0702C4
|
|
L0702A7 DA L0701BF
|
|
DA L0701E8
|
|
DA L070213
|
|
DA L070255
|
|
DA L070295
|
|
DA L0702A4
|
|
L0702B3 SEC
|
|
SBC #$0004
|
|
CMP #$0005
|
|
BCC L0702BF
|
|
LDA #$0005
|
|
L0702BF ASL
|
|
TAX
|
|
JMP (L0702A7,X)
|
|
|
|
L0702C4 LDA $EA
|
|
L0702C6 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
PLD
|
|
LDA $02,S
|
|
STA $0A,S
|
|
LDA $01,S
|
|
STA $09,S
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
TYA
|
|
STA $04,S
|
|
RTL
|
|
|
|
L0702E0 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
STZ $F4
|
|
BRA L07031D
|
|
L0702EF PEA $0056
|
|
PEA $0000
|
|
LDA $F4
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0702FE
|
|
DEX
|
|
L0702FE PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
JSL L013EB9
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
INC $F4
|
|
L07031D LDA $F4
|
|
SEC
|
|
SBC #$0012
|
|
BVS L070328
|
|
EOR #$8000
|
|
L070328 BPL L0702EF
|
|
PEA $0056
|
|
PEA $0000
|
|
PEA ^L031AFF
|
|
PEA L031AFF
|
|
JSL L013EB9
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STZ L02003A
|
|
STZ L02003C
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L07034C PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
PEA $0056
|
|
PEA ^L031AFF
|
|
PEA L031AFF
|
|
LDA L02003A
|
|
LDX #$0000
|
|
PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
JSL L013E61
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0056
|
|
PEA $0000
|
|
PEA ^L031AFF
|
|
PEA L031AFF
|
|
JSL L013EB9
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
INC L02003A
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0703A5 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
LDA L02003A
|
|
CMP #$0012
|
|
BCC L070421
|
|
PHA
|
|
PEA $FFFF
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L0703CB
|
|
LDA #$0000
|
|
L0703CB STAL L020002
|
|
PLA
|
|
PHX
|
|
PHA
|
|
PEA ^L030DB2
|
|
PEA L030DB2
|
|
_GetNewModalDialog
|
|
BCS L0703E4
|
|
LDA #$0000
|
|
L0703E4 STAL L020002
|
|
PLA
|
|
PLX
|
|
STX $F4
|
|
STA $F2
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_ModalDialog
|
|
BCS L070401
|
|
LDA #$0000
|
|
L070401 STAL L020002
|
|
PLA
|
|
PEI $F4
|
|
PEI $F2
|
|
_CloseDialog
|
|
BCS L070416
|
|
LDA #$0000
|
|
L070416 STAL L020002
|
|
LDA #$0001
|
|
BRA L070424
|
|
BRA L070424
|
|
L070421 LDA #$0000
|
|
L070424 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L07042E PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00EE
|
|
TCS
|
|
STZ $F0
|
|
BRA L070470
|
|
L07043D PEI $FF
|
|
PEI $FD
|
|
LDA $F0
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
JSL L014120
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
CMP #$0000
|
|
BNE L07046E
|
|
LDA #$0001
|
|
BRA L07047A
|
|
L07046E INC $F0
|
|
L070470 LDA $F0
|
|
CMP L02003A
|
|
BCC L07043D
|
|
LDA #$0000
|
|
L07047A TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L070484 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00EA
|
|
TCS
|
|
PHA
|
|
PEA $FFFF
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L0704A2
|
|
LDA #$0000
|
|
L0704A2 STAL L020002
|
|
PLA
|
|
PHX
|
|
PHA
|
|
PEA ^L030F2A
|
|
PEA L030F2A
|
|
_GetNewModalDialog
|
|
BCS L0704BB
|
|
LDA #$0000
|
|
L0704BB STAL L020002
|
|
PLA
|
|
PLX
|
|
STX $F2
|
|
STA $F0
|
|
LDA $FF
|
|
SEC
|
|
SBC #$0000
|
|
BVS L0704D0
|
|
EOR #$8000
|
|
L0704D0 BPL L0704F1
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
BRA L0704F7
|
|
L0704F1 LDA #L030FB0
|
|
LDX #^L030FB0
|
|
L0704F7 PHX
|
|
PHA
|
|
PEA ^L031B55
|
|
PEA L031B55
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L031B55
|
|
PEA L031B55
|
|
JSL L013A1F
|
|
PLY
|
|
PLY
|
|
PEI $F2
|
|
PEI $F0
|
|
PEA $0003
|
|
PEA ^L031B55
|
|
PEA L031B55
|
|
_SetIText
|
|
BCS L07052C
|
|
LDA #$0000
|
|
L07052C STAL L020002
|
|
PEA ^L030FB2
|
|
PEA L030FB2
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
JSL L013A1F
|
|
PLY
|
|
PLY
|
|
PEI $F2
|
|
PEI $F0
|
|
PEA $0005
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
_SetIText
|
|
BCS L070569
|
|
LDA #$0000
|
|
L070569 STAL L020002
|
|
L07056D PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_ModalDialog
|
|
BCS L070580
|
|
LDA #$0000
|
|
L070580 STAL L020002
|
|
PLA
|
|
STA $EE
|
|
LDA $EE
|
|
CMP #$0003
|
|
BEQ L070591
|
|
BRL L0705E7
|
|
L070591 PEA ^L030FB4
|
|
PEA L030FB4
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
JSL L013A1F
|
|
PLY
|
|
PLY
|
|
PEI $F2
|
|
PEI $F0
|
|
PEA $0005
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
_SetIText
|
|
BCS L0705CA
|
|
LDA #$0000
|
|
L0705CA STAL L020002
|
|
PEI $F2
|
|
PEI $F0
|
|
PEA $0003
|
|
_DisableDItem
|
|
BCS L0705E1
|
|
LDA #$0000
|
|
L0705E1 STAL L020002
|
|
BRA L07056D
|
|
L0705E7 LDA $EE
|
|
CMP #$0002
|
|
BNE L070608
|
|
PEI $F2
|
|
PEI $F0
|
|
_CloseDialog
|
|
BCS L0705FE
|
|
LDA #$0000
|
|
L0705FE STAL L020002
|
|
LDA #$0000
|
|
BRL L070754
|
|
L070608 PEI $F2
|
|
PEI $F0
|
|
PEA $0003
|
|
PEA ^L031B55
|
|
PEA L031B55
|
|
_GetIText
|
|
BCS L070621
|
|
LDA #$0000
|
|
L070621 STAL L020002
|
|
PEA ^L031B55
|
|
PEA L031B55
|
|
JSL L013A8B
|
|
PLY
|
|
PLY
|
|
LDA $FF
|
|
SEC
|
|
SBC #$0000
|
|
BVS L07063C
|
|
EOR #$8000
|
|
L07063C BPL L070686
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PEA ^L031B55
|
|
PEA L031B55
|
|
JSL L014120
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
CMP #$0000
|
|
BNE L070686
|
|
PEI $F2
|
|
PEI $F0
|
|
_CloseDialog
|
|
BCS L07067C
|
|
LDA #$0000
|
|
L07067C STAL L020002
|
|
LDA #$0001
|
|
BRL L070754
|
|
L070686 STZ $EC
|
|
PEA ^L031B55
|
|
PEA L031B55
|
|
JSL L0140CE
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L07069C
|
|
LDA #$0000
|
|
BRA L07069F
|
|
L07069C LDA #$0001
|
|
L07069F STA $EC
|
|
TAY
|
|
BEQ L0706BA
|
|
PEA ^L030FB6
|
|
PEA L030FB6
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRA L0706DF
|
|
L0706BA PEA ^L031B55
|
|
PEA L031B55
|
|
JSL L07042E
|
|
PLY
|
|
PLY
|
|
STA $EC
|
|
TAY
|
|
BEQ L0706DF
|
|
PEA ^L030FCB
|
|
PEA L030FCB
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L0706DF LDA $EC
|
|
BEQ L070726
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
JSL L013A1F
|
|
PLY
|
|
PLY
|
|
PEI $F2
|
|
PEI $F0
|
|
PEA $0005
|
|
PEA ^L031B65
|
|
PEA L031B65
|
|
_SetIText
|
|
BCS L070708
|
|
LDA #$0000
|
|
L070708 STAL L020002
|
|
PEI $F2
|
|
PEI $F0
|
|
PEA $0003
|
|
_EnableDItem
|
|
BCS L07071F
|
|
LDA #$0000
|
|
L07071F STAL L020002
|
|
BRL L07056D
|
|
L070726 PEI $F2
|
|
PEI $F0
|
|
_CloseDialog
|
|
BCS L070736
|
|
LDA #$0000
|
|
L070736 STAL L020002
|
|
PEA ^L031B55
|
|
PEA L031B55
|
|
PEA ^L031AFF
|
|
PEA L031AFF
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA #$0001
|
|
STA L02003C
|
|
L070754 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L07075E PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00EF
|
|
TCD
|
|
ADC #$00E8
|
|
TCS
|
|
PEI $FF
|
|
PEA ^L030FE5
|
|
PEA L030FE5
|
|
PEI $FD
|
|
PEI $FB
|
|
JSL L01508C
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $FD
|
|
PEI $FB
|
|
JSL L013A1F
|
|
PLY
|
|
PLY
|
|
PEI $F7
|
|
PEI $F5
|
|
PEI $F9
|
|
PEI $FD
|
|
PEI $FB
|
|
_SetIText
|
|
BCS L07079E
|
|
LDA #$0000
|
|
L07079E STAL L020002
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0707AA PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00ED
|
|
TCD
|
|
ADC #$00E6
|
|
TCS
|
|
PEI $F5
|
|
PEI $F3
|
|
PEI $F7
|
|
PEI $FB
|
|
PEI $F9
|
|
_GetIText
|
|
BCS L0707CB
|
|
LDA #$0000
|
|
L0707CB STAL L020002
|
|
PEI $FB
|
|
PEI $F9
|
|
JSL L013A8B
|
|
PLY
|
|
PLY
|
|
PEI $FB
|
|
PEI $F9
|
|
JSL L013150
|
|
PLY
|
|
PLY
|
|
STA [$FD]
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0707ED PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
LDA [$F9]
|
|
CMP $FD
|
|
BCS L070807
|
|
LDA $FD
|
|
STA [$F9]
|
|
LDA #$0001
|
|
BRA L07081B
|
|
L070807 LDA [$F9]
|
|
CMP $FF
|
|
BEQ L070818
|
|
BCC L070818
|
|
LDA $FF
|
|
STA [$F9]
|
|
LDA #$0001
|
|
BRA L07081B
|
|
L070818 LDA #$0000
|
|
L07081B TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L070825 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00E4
|
|
TCS
|
|
STZ $E8
|
|
PEA $0001
|
|
JSL L015A6C
|
|
PLY
|
|
LDAL L031DF2
|
|
SEC
|
|
SBC #$0001
|
|
STA L02003E
|
|
STA $F0
|
|
INC $F0
|
|
LDAL L031DF4
|
|
STA L020040
|
|
STA $EE
|
|
LDA L020040
|
|
SEC
|
|
SBC L02003E
|
|
CLC
|
|
ADC #$0001
|
|
STA L020042
|
|
LDA #L070151
|
|
LDX #^L070151
|
|
PHX
|
|
PHA
|
|
LDA #L031097
|
|
LDX #^L031097
|
|
STA $F6
|
|
STX $F8
|
|
PLA
|
|
PLX
|
|
LDY #$000E
|
|
PHA
|
|
TXA
|
|
STA [$F6],Y
|
|
PLA
|
|
LDY #$000C
|
|
STA [$F6],Y
|
|
PHA
|
|
PEA $FFFF
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L070894
|
|
LDA #$0000
|
|
L070894 STAL L020002
|
|
PLA
|
|
PHX
|
|
PHA
|
|
PEA ^L0310DF
|
|
PEA L0310DF
|
|
_GetNewModalDialog
|
|
BCS L0708AD
|
|
LDA #$0000
|
|
L0708AD STAL L020002
|
|
PLA
|
|
PLX
|
|
STX $F4
|
|
STA $F2
|
|
PEI $F0
|
|
PEA ^L031BA5
|
|
PEA L031BA5
|
|
PEA $0008
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L07075E
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEI $EE
|
|
PEA ^L031BAB
|
|
PEA L031BAB
|
|
PEA $0009
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L07075E
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
L0708ED LDA $E8
|
|
BEQ L0708F4
|
|
BRL L070BF7
|
|
L0708F4 PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_ModalDialog
|
|
BCS L070907
|
|
LDA #$0000
|
|
L070907 STAL L020002
|
|
PLA
|
|
STA $EC
|
|
LDA $EC
|
|
BRL L070BE6
|
|
L070913 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
PEA ^L031BA5
|
|
PEA L031BA5
|
|
PEA $0008
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L0707AA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EE
|
|
PHA
|
|
PEA ^L031BAB
|
|
PEA L031BAB
|
|
PEA $0009
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L0707AA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
STZ $E6
|
|
LDA L020040
|
|
PHA
|
|
LDA L02003E
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
JSL L0707ED
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L070999
|
|
PEI $F0
|
|
PEA ^L031BA5
|
|
PEA L031BA5
|
|
PEA $0008
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L07075E
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
LDA #$0001
|
|
STA $E6
|
|
L070999 LDA L020040
|
|
PHA
|
|
LDA L02003E
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EE
|
|
PHA
|
|
JSL L0707ED
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L0709D9
|
|
PEI $EE
|
|
PEA ^L031BAB
|
|
PEA L031BAB
|
|
PEA $0009
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L07075E
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
LDA #$0001
|
|
STA $E6
|
|
L0709D9 LDA $E6
|
|
BEQ L0709E0
|
|
BRL L070BF4
|
|
L0709E0 LDA #$0001
|
|
STA $E8
|
|
BRL L070BF4
|
|
L0709E8 JSL L015B49
|
|
PHA
|
|
PEA ^L031BA5
|
|
PEA L031BA5
|
|
PEA $0008
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L07075E
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
BRL L070BF4
|
|
L070A09 JSL L015B49
|
|
PHA
|
|
PEA ^L031BAB
|
|
PEA L031BAB
|
|
PEA $0009
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L07075E
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
BRL L070BF4
|
|
L070A2A PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
PEA ^L031BA5
|
|
PEA L031BA5
|
|
PEA $0008
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L0707AA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EE
|
|
PHA
|
|
PEA ^L031BAB
|
|
PEA L031BAB
|
|
PEA $0009
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L0707AA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
LDA L020040
|
|
PHA
|
|
LDA L02003E
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
JSL L0707ED
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L070AA9
|
|
PEI $F0
|
|
PEA ^L031BA5
|
|
PEA L031BA5
|
|
PEA $0008
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L07075E
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
L070AA9 LDA L020040
|
|
PHA
|
|
LDA L02003E
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EE
|
|
PHA
|
|
JSL L0707ED
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L070AE4
|
|
PEI $EE
|
|
PEA ^L031BAB
|
|
PEA L031BAB
|
|
PEA $0009
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L07075E
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
L070AE4 PEI $F0
|
|
JSL L0148CF
|
|
PLY
|
|
LDA $F0
|
|
CMP $EE
|
|
BNE L070AF4
|
|
BRL L070B9E
|
|
L070AF4 PEI $F4
|
|
PEI $F2
|
|
PEA $0007
|
|
_HideDItem
|
|
BCS L070B07
|
|
LDA #$0000
|
|
L070B07 STAL L020002
|
|
LDA #$0001
|
|
STA $EA
|
|
BRA L070B3F
|
|
L070B12 PEA $00FF
|
|
PHX
|
|
PHA
|
|
PEI $F4
|
|
PEI $F2
|
|
PEI $EA
|
|
_GetControlDItem
|
|
BCS L070B29
|
|
LDA #$0000
|
|
L070B29 STAL L020002
|
|
_HiliteControl
|
|
BCS L070B39
|
|
LDA #$0000
|
|
L070B39 STAL L020002
|
|
INC $EA
|
|
L070B3F LDA $EA
|
|
CMP #$0007
|
|
BCC L070B12
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0001
|
|
PEA $003C
|
|
PEI $EE
|
|
PEA $0000
|
|
JSL L013620
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
LDA #$0001
|
|
STA $EA
|
|
BRA L070B97
|
|
L070B6A PEA $0000
|
|
PHX
|
|
PHA
|
|
PEI $F4
|
|
PEI $F2
|
|
PEI $EA
|
|
_GetControlDItem
|
|
BCS L070B81
|
|
LDA #$0000
|
|
L070B81 STAL L020002
|
|
_HiliteControl
|
|
BCS L070B91
|
|
LDA #$0000
|
|
L070B91 STAL L020002
|
|
INC $EA
|
|
L070B97 LDA $EA
|
|
CMP #$0007
|
|
BCC L070B6A
|
|
L070B9E JSL L015B49
|
|
SEC
|
|
SBC L02003E
|
|
PHA
|
|
PEI $F4
|
|
PEI $F2
|
|
PEA $0007
|
|
_SetDItemValue
|
|
BCS L070BBA
|
|
LDA #$0000
|
|
L070BBA STAL L020002
|
|
PEI $F4
|
|
PEI $F2
|
|
PEA $0007
|
|
_ShowDItem
|
|
BCS L070BD1
|
|
LDA #$0000
|
|
L070BD1 STAL L020002
|
|
L070BD5 BRL L070BF4
|
|
L070BD8 DA L070913
|
|
DA L0709E0
|
|
DA L0709E8
|
|
DA L070A09
|
|
DA L0709E0
|
|
DA L070A2A
|
|
DA L070BD5
|
|
L070BE6 DEC
|
|
CMP #$0006
|
|
BCC L070BEF
|
|
LDA #$0006
|
|
L070BEF ASL
|
|
TAX
|
|
JMP (L070BD8,X)
|
|
|
|
L070BF4 BRL L0708ED
|
|
L070BF7 PEA $0000
|
|
JSL L015A6C
|
|
PLY
|
|
PEI $F4
|
|
PEI $F2
|
|
_CloseDialog
|
|
BCS L070C0F
|
|
LDA #$0000
|
|
L070C0F STAL L020002
|
|
LDA $EC
|
|
BRL L070C60
|
|
L070C18 LDA $F0
|
|
STAL L031B0F
|
|
LDA $EE
|
|
STAL L031B11
|
|
LDAL L031DF0
|
|
STAL L031B13
|
|
LDA #$0001
|
|
BRL L070C6E
|
|
L070C32 LDA #$0000
|
|
BRL L070C6E
|
|
L070C38 JSL L015B49
|
|
STAL L031B11
|
|
STAL L031B0F
|
|
LDA #$0000
|
|
STAL L031B13
|
|
LDA #$0001
|
|
BRL L070C6E
|
|
L070C51 BRL L070C6E
|
|
L070C54 DA L070C18
|
|
DA L070C32
|
|
DA L070C51
|
|
DA L070C51
|
|
DA L070C38
|
|
DA L070C51
|
|
L070C60 DEC
|
|
CMP #$0005
|
|
BCC L070C69
|
|
LDA #$0005
|
|
L070C69 ASL
|
|
TAX
|
|
JMP (L070C54,X)
|
|
|
|
L070C6E TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L070C78 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
JSL L0703A5
|
|
TAY
|
|
BEQ L070C8D
|
|
BRL L070CD1
|
|
L070C8D LDA $FF
|
|
BNE L070CB9
|
|
PEA $FFFF
|
|
JSL L070484
|
|
PLY
|
|
TAY
|
|
BEQ L070CB7
|
|
LDAL L031DF2
|
|
STAL L031B11
|
|
STAL L031B0F
|
|
LDA #$0000
|
|
STAL L031B13
|
|
JSL L07034C
|
|
BRA L070CD1
|
|
BRA L070CB9
|
|
L070CB7 BRA L070CD1
|
|
L070CB9 JSL L070825
|
|
TAY
|
|
BNE L070CC2
|
|
BRA L070CD1
|
|
L070CC2 PEA $FFFF
|
|
JSL L070484
|
|
PLY
|
|
TAY
|
|
BEQ L070CD1
|
|
JSL L07034C
|
|
L070CD1 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L070CDB PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDA #$0000
|
|
AND #$00FF
|
|
PHA
|
|
JSL L015CDA
|
|
PLY
|
|
PEA $0000
|
|
_ClearScreen
|
|
BCS L070D01
|
|
LDA #$0000
|
|
L070D01 STAL L020002
|
|
PEA $0006
|
|
PEA $0003
|
|
PEA $0001
|
|
JSL L015D04
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070D1D PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
_ShowCursor
|
|
BCS L070D34
|
|
LDA #$0000
|
|
L070D34 STAL L020002
|
|
PEA $000F
|
|
_SetBackColor
|
|
BCS L070D47
|
|
LDA #$0000
|
|
L070D47 STAL L020002
|
|
PEA $0000
|
|
_SetForeColor
|
|
BCS L070D5A
|
|
LDA #$0000
|
|
L070D5A STAL L020002
|
|
PEA $000F
|
|
_SetSolidBackPat
|
|
BCS L070D6D
|
|
LDA #$0000
|
|
L070D6D STAL L020002
|
|
PEA $0000
|
|
_SetSolidPenPat
|
|
BCS L070D80
|
|
LDA #$0000
|
|
L070D80 STAL L020002
|
|
PEA $0000
|
|
JSL L01335E
|
|
PLY
|
|
PEA ^L031165
|
|
PEA L031165
|
|
JSL L0133D4
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070DA0 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
PEA $0042
|
|
PEA $006E
|
|
_MoveTo
|
|
BCS L070DBD
|
|
LDA #$0000
|
|
L070DBD STAL L020002
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDA $F4
|
|
LDX $F6
|
|
CLC
|
|
ADC #$0016
|
|
BCC L070DED
|
|
INX
|
|
L070DED PHX
|
|
PHA
|
|
_DrawCString
|
|
BCS L070DFB
|
|
LDA #$0000
|
|
L070DFB STAL L020002
|
|
PEA $0042
|
|
PEA $007C
|
|
_MoveTo
|
|
BCS L070E11
|
|
LDA #$0000
|
|
L070E11 STAL L020002
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDA $F4
|
|
LDX $F6
|
|
CLC
|
|
ADC #$0036
|
|
BCC L070E41
|
|
INX
|
|
L070E41 PHX
|
|
PHA
|
|
_DrawCString
|
|
BCS L070E4F
|
|
LDA #$0000
|
|
L070E4F STAL L020002
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070E5B ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00E4
|
|
TCS
|
|
PHA
|
|
PEA $FFFF
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L070E79
|
|
LDA #$0000
|
|
L070E79 STAL L020002
|
|
PLA
|
|
L070E7E PHA
|
|
PEA $0004
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
_GetNextEvent
|
|
BCS L070E97
|
|
LDA #$0000
|
|
L070E97 STAL L020002
|
|
PLA
|
|
CMP #$0000
|
|
BNE L070EA3
|
|
BRA L070E7E
|
|
L070EA3 PHA
|
|
PEA $FFFF
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L070EB6
|
|
LDA #$0000
|
|
L070EB6 STAL L020002
|
|
PLA
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070EC3 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0010
|
|
LDA [$F4],Y
|
|
PHA
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0012
|
|
LDA [$F4],Y
|
|
PLX
|
|
STX $F4
|
|
CMP $F4
|
|
BEQ L070F64
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0001
|
|
PEA $003C
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0012
|
|
LDA [$F4],Y
|
|
PHA
|
|
PEA $0000
|
|
JSL L013620
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
L070F64 TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070F6C PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
LDA #$0001
|
|
STA $F0
|
|
STZ $EE
|
|
BRL L0710CB
|
|
L070F81 LDA $EE
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0010
|
|
LDA [$F2],Y
|
|
CMP #$0000
|
|
BNE L070FAF
|
|
BRL L07109E
|
|
L070FAF LDA $F0
|
|
CMP #$0002
|
|
BEQ L070FB9
|
|
BRL L071028
|
|
L070FB9 JSL L070CDB
|
|
LDA $EE
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0010
|
|
LDA [$F2],Y
|
|
PHA
|
|
JSL L0148CF
|
|
PLY
|
|
LDA $EE
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0014
|
|
LDA [$F2],Y
|
|
PHA
|
|
JSL L01310E
|
|
PLY
|
|
PEA $0006
|
|
PEA $0003
|
|
PEA $0000
|
|
JSL L015D04
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRL L071090
|
|
L071028 LDA $EE
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0010
|
|
LDA [$F2],Y
|
|
PHA
|
|
JSL L0148CF
|
|
PLY
|
|
LDA $EE
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0014
|
|
LDA [$F2],Y
|
|
PHA
|
|
JSL L01310E
|
|
PLY
|
|
PEA $0006
|
|
PEA $0003
|
|
PEA $0000
|
|
JSL L015D04
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L071090 PEI $EE
|
|
JSL L070EC3
|
|
PLY
|
|
LDA #$0002
|
|
STA $F0
|
|
BRA L0710C5
|
|
L07109E JSL L070D1D
|
|
PEI $EE
|
|
JSL L070DA0
|
|
PLY
|
|
LDA $F0
|
|
CMP #$0002
|
|
BNE L0710C0
|
|
PEA $0006
|
|
PEA $0003
|
|
PEA $0001
|
|
JSL L015D04
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L0710C0 LDA #$0001
|
|
STA $F0
|
|
L0710C5 JSL L070E5B
|
|
INC $EE
|
|
L0710CB LDA $EE
|
|
CMP L02003A
|
|
BCS L0710D5
|
|
BRL L070F81
|
|
L0710D5 LDA $F0
|
|
CMP #$0002
|
|
BNE L0710E3
|
|
LDA #$0001
|
|
STA [$FD]
|
|
BRA L0710E8
|
|
L0710E3 LDA #$0000
|
|
STA [$FD]
|
|
L0710E8 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0710F2 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
LDA $FD
|
|
CMP $FF
|
|
BNE L071108
|
|
LDA $FF
|
|
BRL L0711EA
|
|
L071108 LDA $FF
|
|
CMP $FD
|
|
BEQ L071115
|
|
BCC L071115
|
|
LDA #$0001
|
|
BRA L071118
|
|
L071115 LDA #$FFFF
|
|
L071118 STA $EE
|
|
PEA $0056
|
|
LDA $FD
|
|
LDX #$0000
|
|
PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PEA ^L031AFF
|
|
PEA L031AFF
|
|
JSL L013E61
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $FD
|
|
STA $F0
|
|
BRL L0711B6
|
|
L07114D PEA $0056
|
|
LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071159
|
|
DEX
|
|
L071159 PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA $F0
|
|
LDX #$0000
|
|
TAY
|
|
BPL L07116D
|
|
DEX
|
|
L07116D PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
JSL L012E77
|
|
LDA $F0
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071191
|
|
DEX
|
|
L071191 PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
JSL L013E61
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $F0
|
|
CLC
|
|
ADC $EE
|
|
STA $F0
|
|
L0711B6 LDA $F0
|
|
CMP $FF
|
|
BNE L07114D
|
|
PEA $0056
|
|
PEA ^L031AFF
|
|
PEA L031AFF
|
|
LDA $FF
|
|
LDX #$0000
|
|
PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
JSL L013E61
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $FF
|
|
L0711EA TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0711F4 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00EA
|
|
TCS
|
|
PHX
|
|
PHA
|
|
PEA ^L03121F
|
|
PEA L03121F
|
|
_GetNewModalDialog
|
|
BCS L071213
|
|
LDA #$0000
|
|
L071213 STAL L020002
|
|
PLA
|
|
PLX
|
|
STX $F2
|
|
STA $F0
|
|
L07121D PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_ModalDialog
|
|
BCS L071230
|
|
LDA #$0000
|
|
L071230 STAL L020002
|
|
PLA
|
|
STA $EE
|
|
LDA $EE
|
|
CMP #$0002
|
|
BNE L071255
|
|
PEI $F2
|
|
PEI $F0
|
|
_CloseDialog
|
|
BCS L07124E
|
|
LDA #$0000
|
|
L07124E STAL L020002
|
|
BRL L0712B7
|
|
L071255 STZ $EC
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EC
|
|
PHA
|
|
PEA ^L031B15
|
|
PEA L031B15
|
|
PEA $0008
|
|
PEI $F2
|
|
PEI $F0
|
|
JSL L0707AA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
LDA $EC
|
|
CMP #$0001
|
|
BCS L071282
|
|
BRA L07121D
|
|
L071282 LDA $EC
|
|
CMP L02003A
|
|
BEQ L071290
|
|
BCC L071290
|
|
LDA L02003A
|
|
STA $EC
|
|
L071290 PEI $F2
|
|
PEI $F0
|
|
_CloseDialog
|
|
BCS L0712A0
|
|
LDA #$0000
|
|
L0712A0 STAL L020002
|
|
LDA #$0001
|
|
STA L02003C
|
|
DEC $EC
|
|
LDA $EC
|
|
PHA
|
|
PEI $FF
|
|
JSL L0710F2
|
|
PLY
|
|
PLY
|
|
L0712B7 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0712C1 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F5
|
|
TCD
|
|
ADC #$00EE
|
|
TCS
|
|
LDA $FF
|
|
CMP #$0013
|
|
BCS L071324
|
|
LDA #$0009
|
|
PHA
|
|
LDA $FF
|
|
CLC
|
|
JSL L012E82
|
|
LDA #$0011
|
|
CLC
|
|
JSL L013003
|
|
LDA #$0029
|
|
PLX
|
|
STX $F4
|
|
CLC
|
|
ADC $F4
|
|
STA [$FB]
|
|
LDA $FF
|
|
CMP #$0009
|
|
BCS L0712FD
|
|
LDA #$0017
|
|
BRA L071300
|
|
L0712FD LDA #$008D
|
|
L071300 LDY #$0002
|
|
STA [$FB],Y
|
|
LDA [$FB]
|
|
CLC
|
|
ADC #$000D
|
|
LDY #$0004
|
|
STA [$FB],Y
|
|
LDY #$0002
|
|
LDA [$FB],Y
|
|
CLC
|
|
ADC #$005F
|
|
LDY #$0006
|
|
STA [$FB],Y
|
|
BRL L0713AF
|
|
BRL L0713AF
|
|
L071324 LDA $FF
|
|
CMP #$001B
|
|
BCS L07136A
|
|
LDA $FF
|
|
SEC
|
|
SBC #$0013
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0312A5
|
|
LDX #^L0312A5
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDA [$F0]
|
|
STA [$FB]
|
|
LDA #$00F5
|
|
LDY #$0002
|
|
STA [$FB],Y
|
|
LDA [$FB]
|
|
CLC
|
|
ADC #$000A
|
|
LDY #$0004
|
|
STA [$FB],Y
|
|
LDA #$0102
|
|
LDY #$0006
|
|
STA [$FB],Y
|
|
BRA L0713AF
|
|
BRA L0713AF
|
|
L07136A LDA $FF
|
|
CMP #$001B
|
|
BNE L071392
|
|
LDA #$00AE
|
|
STA [$FB]
|
|
LDA #$011A
|
|
LDY #$0002
|
|
STA [$FB],Y
|
|
LDA #$00BE
|
|
LDY #$0004
|
|
STA [$FB],Y
|
|
LDA #$0133
|
|
LDY #$0006
|
|
STA [$FB],Y
|
|
BRA L0713AF
|
|
BRA L0713AF
|
|
L071392 LDA #$00AE
|
|
STA [$FB]
|
|
LDA #$00FC
|
|
LDY #$0002
|
|
STA [$FB],Y
|
|
LDA #$00BE
|
|
LDY #$0004
|
|
STA [$FB],Y
|
|
LDA #$0115
|
|
LDY #$0006
|
|
STA [$FB],Y
|
|
L0713AF TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0713B9 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00E4
|
|
TCS
|
|
LDAL L031DDC
|
|
TAX
|
|
LDAL L031DDA
|
|
PHX
|
|
PHA
|
|
_KillControls
|
|
BCS L0713DB
|
|
LDA #$0000
|
|
L0713DB STAL L020002
|
|
LDA #$0013
|
|
STA $F2
|
|
BRL L07148A
|
|
L0713E7 LDA $FF
|
|
CMP #$FFFF
|
|
BNE L07140D
|
|
LDA $F2
|
|
CMP #$0017
|
|
BEQ L07140D
|
|
LDA $F2
|
|
CMP #$001B
|
|
BEQ L07140D
|
|
LDA $F2
|
|
CMP #$0019
|
|
BEQ L07140D
|
|
LDA $F2
|
|
CMP #$001C
|
|
BEQ L07140D
|
|
BRL L071488
|
|
L07140D PEI $F2
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
JSL L0712C1
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PHX
|
|
PHA
|
|
LDAL L031DDC
|
|
TAX
|
|
LDAL L031DDA
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0080
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA ^L0138ED
|
|
PEA L0138ED
|
|
LDA $F2
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071456
|
|
DEX
|
|
L071456 PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewControl
|
|
BCS L07146A
|
|
LDA #$0000
|
|
L07146A STAL L020002
|
|
PLA
|
|
PLX
|
|
STX $F0
|
|
STA $EE
|
|
PEI $F0
|
|
PEI $EE
|
|
_ShowControl
|
|
BCS L071484
|
|
LDA #$0000
|
|
L071484 STAL L020002
|
|
L071488 INC $F2
|
|
L07148A LDA $F2
|
|
SEC
|
|
SBC #$001C
|
|
BNE L071495
|
|
BRL L0713E7
|
|
L071495 BVS L07149A
|
|
EOR #$8000
|
|
L07149A BMI L07149F
|
|
BRL L0713E7
|
|
L07149F STZ $F2
|
|
BRL L0715C2
|
|
L0714A4 PEI $F2
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
JSL L0712C1
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $E8
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDA $E6
|
|
CLC
|
|
ADC #$000A
|
|
PHA
|
|
_MoveTo
|
|
BCS L0714D0
|
|
LDA #$0000
|
|
L0714D0 STAL L020002
|
|
PEA $0000
|
|
_SetForeColor
|
|
BCS L0714E3
|
|
LDA #$0000
|
|
L0714E3 STAL L020002
|
|
PEA $000F
|
|
_SetBackColor
|
|
BCS L0714F6
|
|
LDA #$0000
|
|
L0714F6 STAL L020002
|
|
PEA $0000
|
|
_SetSolidPenPat
|
|
BCS L071509
|
|
LDA #$0000
|
|
L071509 STAL L020002
|
|
LDA $F2
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
_DrawCString
|
|
BCS L071534
|
|
LDA #$0000
|
|
L071534 STAL L020002
|
|
LDA $F2
|
|
CMP $FF
|
|
BNE L071557
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
_InvertRect
|
|
BCS L071553
|
|
LDA #$0000
|
|
L071553 STAL L020002
|
|
L071557 PHX
|
|
PHA
|
|
LDAL L031DDC
|
|
TAX
|
|
LDAL L031DDA
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0080
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA ^L0138ED
|
|
PEA L0138ED
|
|
LDA $F2
|
|
LDX #$0000
|
|
TAY
|
|
BPL L07158E
|
|
DEX
|
|
L07158E PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewControl
|
|
BCS L0715A2
|
|
LDA #$0000
|
|
L0715A2 STAL L020002
|
|
PLA
|
|
PLX
|
|
STX $F0
|
|
STA $EE
|
|
PEI $F0
|
|
PEI $EE
|
|
_ShowControl
|
|
BCS L0715BC
|
|
LDA #$0000
|
|
L0715BC STAL L020002
|
|
INC $F2
|
|
L0715C2 LDA $F2
|
|
CMP L02003A
|
|
BCS L0715CC
|
|
BRL L0714A4
|
|
L0715CC TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0715D4 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00C4
|
|
TCS
|
|
STZ $F0
|
|
STZ $F2
|
|
LDX #$FFFF
|
|
LDA #$FFFF
|
|
STX $EE
|
|
STA $EC
|
|
STZ $E6
|
|
LDX #$0000
|
|
LDA #$0F77
|
|
STX $E4
|
|
STA $E2
|
|
L0715F9 LDA $E6
|
|
BEQ L071600
|
|
BRL L0717E6
|
|
L071600 PHA
|
|
PEA $FFFF
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CE
|
|
PHA
|
|
_TaskMaster
|
|
BCS L071619
|
|
LDA #$0000
|
|
L071619 STAL L020002
|
|
PLA
|
|
BRL L0717D8
|
|
L071621 PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
PEI $DA
|
|
PEI $D8
|
|
LDAL L031DDC
|
|
TAX
|
|
LDAL L031DDA
|
|
PHX
|
|
PHA
|
|
_FindControl
|
|
BCS L071646
|
|
LDA #$0000
|
|
L071646 STAL L020002
|
|
PLA
|
|
STA $EA
|
|
LDA $EA
|
|
CMP #$0000
|
|
BNE L071657
|
|
BRL L0717D1
|
|
L071657 LDY #$0002
|
|
LDA [$F0],Y
|
|
TAX
|
|
LDA [$F0]
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0022
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDY #$0020
|
|
LDA [$F4],Y
|
|
STA $E8
|
|
LDA $E8
|
|
CMP #$001C
|
|
BNE L0716CA
|
|
PEI $E8
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
JSL L0712C1
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
_InvertRect
|
|
BCS L07169E
|
|
LDA #$0000
|
|
L07169E STAL L020002
|
|
PEA $0000
|
|
PEA $000C
|
|
JSL L013212
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
_InvertRect
|
|
BCS L0716C3
|
|
LDA #$0000
|
|
L0716C3 STAL L020002
|
|
BRL L0717CC
|
|
L0716CA LDA $E8
|
|
CMP #$0013
|
|
BCC L0716D8
|
|
LDA $E8
|
|
CMP #$001B
|
|
BNE L071740
|
|
L0716D8 LDA $FF
|
|
SEC
|
|
SBC #$FFFF
|
|
BEQ L071712
|
|
BVS L0716E5
|
|
EOR #$8000
|
|
L0716E5 BPL L071712
|
|
PEI $FF
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
JSL L0712C1
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
_InvertRect
|
|
BCS L07170E
|
|
LDA #$0000
|
|
L07170E STAL L020002
|
|
L071712 PEI $E8
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
JSL L0712C1
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
_InvertRect
|
|
BCS L071739
|
|
LDA #$0000
|
|
L071739 STAL L020002
|
|
BRL L0717CC
|
|
L071740 PEI $E8
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
JSL L0712C1
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0001
|
|
PEA $0001
|
|
_SetPenSize
|
|
BCS L071764
|
|
LDA #$0000
|
|
L071764 STAL L020002
|
|
PEA $0006
|
|
_SetSolidPenPat
|
|
BCS L071777
|
|
LDA #$0000
|
|
L071777 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
_PaintRect
|
|
BCS L071790
|
|
LDA #$0000
|
|
L071790 STAL L020002
|
|
PEA $0000
|
|
PEA $000C
|
|
JSL L013212
|
|
PLY
|
|
PLY
|
|
PEA $0004
|
|
_SetSolidPenPat
|
|
BCS L0717AF
|
|
LDA #$0000
|
|
L0717AF STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
_PaintRect
|
|
BCS L0717C8
|
|
LDA #$0000
|
|
L0717C8 STAL L020002
|
|
L0717CC LDA #$0001
|
|
STA $E6
|
|
L0717D1 BRL L0717E3
|
|
L0717D4 BRA L0717E3
|
|
BRA L0717E3
|
|
L0717D8 CMP #$0013
|
|
BNE L0717E0
|
|
BRL L071621
|
|
L0717E0 JMP L0717D4
|
|
|
|
L0717E3 BRL L0715F9
|
|
L0717E6 LDA $E8
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0034
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0717F2 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
PHX
|
|
PHA
|
|
PEA ^L03137D
|
|
PEA L03137D
|
|
_GetNewModalDialog
|
|
BCS L071811
|
|
LDA #$0000
|
|
L071811 STAL L020002
|
|
PLA
|
|
PLX
|
|
STX $F4
|
|
STA $F2
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_ModalDialog
|
|
BCS L07182E
|
|
LDA #$0000
|
|
L07182E STAL L020002
|
|
PLA
|
|
STA $F0
|
|
LDA $F0
|
|
CMP #$0002
|
|
BNE L071856
|
|
PEI $F4
|
|
PEI $F2
|
|
_CloseDialog
|
|
BCS L07184C
|
|
LDA #$0000
|
|
L07184C STAL L020002
|
|
LDA #$0000
|
|
BRL L0718E4
|
|
L071856 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EE
|
|
PHA
|
|
PEA ^L031B15
|
|
PEA L031B15
|
|
PEA $0008
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L0707AA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EE
|
|
PHA
|
|
PEA ^L031B35
|
|
PEA L031B35
|
|
PEA $0009
|
|
PEI $F4
|
|
PEI $F2
|
|
JSL L0707AA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
LDA #$0000
|
|
STAL L031B11
|
|
STAL L031B0F
|
|
PEA $FFFF
|
|
JSL L070484
|
|
PLY
|
|
TAY
|
|
BEQ L0718CD
|
|
JSL L07034C
|
|
PEI $F4
|
|
PEI $F2
|
|
_CloseDialog
|
|
BCS L0718C4
|
|
LDA #$0000
|
|
L0718C4 STAL L020002
|
|
LDA #$0001
|
|
BRA L0718E4
|
|
L0718CD PEI $F4
|
|
PEI $F2
|
|
_CloseDialog
|
|
BCS L0718DD
|
|
LDA #$0000
|
|
L0718DD STAL L020002
|
|
LDA #$0000
|
|
L0718E4 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0718EE ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00DE
|
|
TCS
|
|
LDA L02003A
|
|
CMP #$0000
|
|
BEQ L071908
|
|
BCC L071908
|
|
LDA #$0000
|
|
BRA L07190B
|
|
L071908 LDA #$FFFF
|
|
L07190B STA $F0
|
|
STZ $EE
|
|
STZ $EC
|
|
STZ $EA
|
|
STZ $E8
|
|
PEA $0000
|
|
JSL L01335E
|
|
PLY
|
|
PEA ^L031403
|
|
PEA L031403
|
|
JSL L0133D4
|
|
PLY
|
|
PLY
|
|
LDA $F0
|
|
CMP #$FFFF
|
|
BEQ L071933
|
|
BRL L071A00
|
|
L071933 PEA $0001
|
|
_SetSolidPenPat
|
|
BCS L071942
|
|
LDA #$0000
|
|
L071942 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $009B
|
|
PEA $0138
|
|
PEA $00A9
|
|
_SetRect
|
|
BCS L071967
|
|
LDA #$0000
|
|
L071967 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L071980
|
|
LDA #$0000
|
|
L071980 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $007C
|
|
PEA $0138
|
|
PEA $008B
|
|
_SetRect
|
|
BCS L0719A5
|
|
LDA #$0000
|
|
L0719A5 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L0719BE
|
|
LDA #$0000
|
|
L0719BE STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $0026
|
|
PEA $012E
|
|
PEA $0062
|
|
_SetRect
|
|
BCS L0719E3
|
|
LDA #$0000
|
|
L0719E3 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L0719FC
|
|
LDA #$0000
|
|
L0719FC STAL L020002
|
|
L071A00 PEI $F0
|
|
JSL L0713B9
|
|
PLY
|
|
L071A07 LDA $EE
|
|
BEQ L071A0E
|
|
BRL L071EC8
|
|
L071A0E LDA $EC
|
|
BNE L071A15
|
|
BRL L071B27
|
|
L071A15 STZ $EC
|
|
PEA ^L03140D
|
|
PEA L03140D
|
|
JSL L0133D4
|
|
PLY
|
|
PLY
|
|
LDA $F0
|
|
CMP #$FFFF
|
|
BEQ L071A2D
|
|
BRL L071AFA
|
|
L071A2D PEA $0001
|
|
_SetSolidPenPat
|
|
BCS L071A3C
|
|
LDA #$0000
|
|
L071A3C STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $009B
|
|
PEA $0138
|
|
PEA $00A9
|
|
_SetRect
|
|
BCS L071A61
|
|
LDA #$0000
|
|
L071A61 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L071A7A
|
|
LDA #$0000
|
|
L071A7A STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $007C
|
|
PEA $0138
|
|
PEA $008B
|
|
_SetRect
|
|
BCS L071A9F
|
|
LDA #$0000
|
|
L071A9F STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L071AB8
|
|
LDA #$0000
|
|
L071AB8 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $0026
|
|
PEA $012E
|
|
PEA $0062
|
|
_SetRect
|
|
BCS L071ADD
|
|
LDA #$0000
|
|
L071ADD STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L071AF6
|
|
LDA #$0000
|
|
L071AF6 STAL L020002
|
|
L071AFA PEI $F0
|
|
JSL L0713B9
|
|
PLY
|
|
LDA $EA
|
|
BEQ L071B27
|
|
STZ $EA
|
|
_DrawMenuBar
|
|
BCS L071B13
|
|
LDA #$0000
|
|
L071B13 STAL L020002
|
|
PEA $0006
|
|
PEA $0003
|
|
PEA $0001
|
|
JSL L015D04
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L071B27 PEI $F0
|
|
JSL L0715D4
|
|
PLY
|
|
STA $F4
|
|
LDA $F4
|
|
CMP #$0013
|
|
BCS L071B4A
|
|
LDA $F0
|
|
CMP #$FFFF
|
|
BNE L071B43
|
|
LDA #$0001
|
|
STA $EC
|
|
L071B43 LDA $F4
|
|
STA $F0
|
|
BRL L071A07
|
|
L071B4A LDA #$0001
|
|
STA $EC
|
|
LDA $F4
|
|
BRL L071EB4
|
|
L071B54 LDA $F0
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0010
|
|
LDA [$F6],Y
|
|
CMP #$0000
|
|
BNE L071B91
|
|
JSL L070D1D
|
|
PEI $F0
|
|
JSL L070DA0
|
|
PLY
|
|
JSL L070E5B
|
|
BRL L071C09
|
|
L071B91 LDA $F0
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0010
|
|
LDA [$F6],Y
|
|
PHA
|
|
JSL L0148CF
|
|
PLY
|
|
LDA $F0
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0014
|
|
LDA [$F6],Y
|
|
PHA
|
|
JSL L01310E
|
|
PLY
|
|
PEA $0006
|
|
PEA $0003
|
|
PEA $0000
|
|
JSL L015D04
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $F0
|
|
JSL L070EC3
|
|
PLY
|
|
JSL L070E5B
|
|
LDA #$0001
|
|
STA $EA
|
|
L071C09 BRL L071EC5
|
|
L071C0C PEI $F0
|
|
JSL L0711F4
|
|
PLY
|
|
STA $F0
|
|
BRL L071EC5
|
|
L071C18 PEI $F0
|
|
JSL L070484
|
|
PLY
|
|
TAY
|
|
BEQ L071C4B
|
|
PEA ^L031AFF
|
|
PEA L031AFF
|
|
LDA $F0
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
JSL L014524
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L071C4B BRL L071EC5
|
|
L071C4E LDA #$0001
|
|
STA L02003C
|
|
PEA $0056
|
|
PEA $0000
|
|
LDA L02003A
|
|
LDX #$0000
|
|
PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
JSL L013EB9
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $F0
|
|
STA $F2
|
|
BRA L071CD4
|
|
L071C83 PEA $0056
|
|
LDA $F2
|
|
LDX #$0000
|
|
PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
PLA
|
|
PLX
|
|
CLC
|
|
ADC #$0056
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
LDA $F2
|
|
LDX #$0000
|
|
PEA $0000
|
|
PEA $0056
|
|
CLC
|
|
JSL L013048
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
JSL L012E77
|
|
JSL L013E61
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
INC $F2
|
|
L071CD4 LDA $F2
|
|
CMP L02003A
|
|
BCC L071C83
|
|
DEC L02003A
|
|
LDA L02003A
|
|
CMP #$0000
|
|
BEQ L071CED
|
|
BCC L071CED
|
|
LDA #$0000
|
|
BRA L071CF0
|
|
L071CED LDA #$FFFF
|
|
L071CF0 STA $F0
|
|
BRL L071EC5
|
|
L071CF5 JSL L0703A5
|
|
TAY
|
|
BNE L071D0C
|
|
JSL L0717F2
|
|
TAY
|
|
BEQ L071D0C
|
|
LDA L02003A
|
|
SEC
|
|
SBC #$0001
|
|
STA $F0
|
|
L071D0C BRL L071EC5
|
|
L071D0F PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
JSL L070F6C
|
|
PLY
|
|
PLY
|
|
BRL L071EC5
|
|
L071D21 PEA $0002
|
|
JSL L070000
|
|
PLY
|
|
JSL L0720DC
|
|
TAY
|
|
BEQ L071D33
|
|
BRL L071E24
|
|
L071D33 STZ $EC
|
|
PEA ^L031417
|
|
PEA L031417
|
|
JSL L0133D4
|
|
PLY
|
|
PLY
|
|
PEA $0001
|
|
_SetSolidPenPat
|
|
BCS L071D50
|
|
LDA #$0000
|
|
L071D50 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $009B
|
|
PEA $0138
|
|
PEA $00A9
|
|
_SetRect
|
|
BCS L071D75
|
|
LDA #$0000
|
|
L071D75 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L071D8E
|
|
LDA #$0000
|
|
L071D8E STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $007C
|
|
PEA $0138
|
|
PEA $008B
|
|
_SetRect
|
|
BCS L071DB3
|
|
LDA #$0000
|
|
L071DB3 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L071DCC
|
|
LDA #$0000
|
|
L071DCC STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $00F1
|
|
PEA $0026
|
|
PEA $012E
|
|
PEA $0062
|
|
_SetRect
|
|
BCS L071DF1
|
|
LDA #$0000
|
|
L071DF1 STAL L020002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PaintRect
|
|
BCS L071E0A
|
|
LDA #$0000
|
|
L071E0A STAL L020002
|
|
LDA L02003A
|
|
CMP #$0000
|
|
BEQ L071E1D
|
|
BCC L071E1D
|
|
LDA #$0000
|
|
BRA L071E20
|
|
L071E1D LDA #$FFFF
|
|
L071E20 STA $F0
|
|
BRA L071E26
|
|
L071E24 STZ $F0
|
|
L071E26 BRL L071EC5
|
|
L071E29 PEA $0001
|
|
JSL L070000
|
|
PLY
|
|
JSL L071ED8
|
|
BRL L071EC5
|
|
L071E38 LDA $E8
|
|
BEQ L071E3F
|
|
BRL L071E86
|
|
L071E3F JSL L0A08CC
|
|
BRL L071E77
|
|
L071E46 LDA #$0001
|
|
STA $E8
|
|
BRL L071E84
|
|
L071E4E PEA ^L031421
|
|
PEA L031421
|
|
JSL L0133D4
|
|
PLY
|
|
PLY
|
|
BRL L071E84
|
|
L071E5D PEA ^L031431
|
|
PEA L031431
|
|
JSL L0133D4
|
|
PLY
|
|
PLY
|
|
BRL L071E84
|
|
L071E6C BRL L071E84
|
|
L071E6F DA L071E46
|
|
DA L071E4E
|
|
DA L071E5D
|
|
DA L071E6C
|
|
L071E77 CMP #$0003
|
|
BCC L071E7F
|
|
LDA #$0003
|
|
L071E7F ASL
|
|
TAX
|
|
JMP (L071E6F,X)
|
|
|
|
L071E84 BRA L071E38
|
|
L071E86 STZ $E8
|
|
PEA $0000
|
|
JSL L01335E
|
|
PLY
|
|
BRL L071EC5
|
|
L071E93 LDA #$0001
|
|
STA $EE
|
|
BRL L071EC5
|
|
L071E9B BRL L071EC5
|
|
L071E9E DA L071B54
|
|
DA L071C0C
|
|
DA L071C18
|
|
DA L071C4E
|
|
DA L071CF5
|
|
DA L071D0F
|
|
DA L071D21
|
|
DA L071E29
|
|
DA L071E93
|
|
DA L071E38
|
|
DA L071E9B
|
|
L071EB4 SEC
|
|
SBC #$0013
|
|
CMP #$000A
|
|
BCC L071EC0
|
|
LDA #$000A
|
|
L071EC0 ASL
|
|
TAX
|
|
JMP (L071E9E,X)
|
|
|
|
L071EC5 BRL L071A07
|
|
L071EC8 PEA $0001
|
|
JSL L01335E
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$001C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L071ED8 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$0029
|
|
TCS
|
|
PEA $0017
|
|
PEA $0101
|
|
_LoadOneTool
|
|
BCS L071EF5
|
|
LDA #$0000
|
|
L071EF5 STAL L020002
|
|
LDA L02004A
|
|
PHA
|
|
LDX L02004E
|
|
LDA L02004C
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
TAX
|
|
LDA [$F6]
|
|
CLC
|
|
ADC #$0800
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
_SFStartUp
|
|
BCS L071F25
|
|
LDA #$0000
|
|
L071F25 STAL L020002
|
|
PEA $0023
|
|
PEA $0032
|
|
PEA ^L03143E
|
|
PEA L03143E
|
|
PEA ^L03144F
|
|
PEA L03144F
|
|
PEA $000F
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$002B
|
|
PHA
|
|
_SFPutFile
|
|
BCS L071F53
|
|
LDA #$0000
|
|
L071F53 STAL L020002
|
|
_SFShutDown
|
|
BCS L071F63
|
|
LDA #$0000
|
|
L071F63 STAL L020002
|
|
PEA $0017
|
|
_UnloadOneTool
|
|
BCS L071F76
|
|
LDA #$0000
|
|
L071F76 STAL L020002
|
|
LDA $2B
|
|
BNE L071F81
|
|
BRL L072049
|
|
L071F81 LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$0031
|
|
STX $EE
|
|
STA $EC
|
|
PEA $0010
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
JSL L014421
|
|
LDA L020002
|
|
STA $F4
|
|
CMP #$0046
|
|
BNE L07200D
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$0031
|
|
STX $D2
|
|
STA $D0
|
|
LDA #$00C3
|
|
STA $D4
|
|
LDA #$0005
|
|
STA $D6
|
|
LDX #$0000
|
|
LDA #$0000
|
|
STX $DA
|
|
STA $D8
|
|
LDA #$0001
|
|
STA $DC
|
|
LDA #$0000
|
|
STA $DE
|
|
LDA #$0000
|
|
STA $E0
|
|
PEA $0001
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D0
|
|
PHA
|
|
JSL L014421
|
|
LDA L020002
|
|
STA $F4
|
|
TAY
|
|
BEQ L071FF1
|
|
BRL L072049
|
|
L071FF1 PEA $0010
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
JSL L014421
|
|
LDA L020002
|
|
STA $F4
|
|
TAY
|
|
BEQ L07200B
|
|
BRA L072049
|
|
L07200B BRA L07201C
|
|
L07200D LDA $F4
|
|
BEQ L072015
|
|
BRA L072049
|
|
BRA L07201C
|
|
L072015 PEI $EA
|
|
JSL L0722AE
|
|
PLY
|
|
L07201C LDA $EA
|
|
STA $C2
|
|
PEA $0014
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
JSL L014421
|
|
LDA L020002
|
|
STA $F4
|
|
TAY
|
|
BEQ L07203A
|
|
BRA L072049
|
|
L07203A PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0031
|
|
PHA
|
|
JSL L072053
|
|
PLY
|
|
PLY
|
|
L072049 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$00D1
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L072053 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00D6
|
|
TCS
|
|
LDX $FF
|
|
LDA $FD
|
|
STX $EC
|
|
STA $EA
|
|
PEA $0010
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E8
|
|
PHA
|
|
JSL L014421
|
|
LDA L020002
|
|
STA $D8
|
|
TAY
|
|
BEQ L072080
|
|
BRA L0720D2
|
|
L072080 LDA $E8
|
|
STA $DA
|
|
LDA #L0314F3
|
|
LDX #^L0314F3
|
|
STX $DE
|
|
STA $DC
|
|
LDA L02003A
|
|
PHA
|
|
LDA #$0056
|
|
CLC
|
|
JSL L013003
|
|
PLA
|
|
LDX #$0000
|
|
STX $E2
|
|
STA $E0
|
|
PEA $0013
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DA
|
|
PHA
|
|
JSL L014421
|
|
LDA L020002
|
|
STA $D8
|
|
TAY
|
|
BEQ L0720BC
|
|
BRA L0720D2
|
|
L0720BC PEA $0014
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DA
|
|
PHA
|
|
JSL L014421
|
|
LDA #$0001
|
|
STA L02003C
|
|
L0720D2 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0020
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0720DC PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$0037
|
|
TCS
|
|
LDA L02003C
|
|
AND L02003A
|
|
TAY
|
|
BEQ L072143
|
|
STZ $3B
|
|
L0720F2 LDA $3B
|
|
BNE L072130
|
|
PHA
|
|
PEA ^L0314BB
|
|
PEA L0314BB
|
|
PEA $0000
|
|
PEA $0000
|
|
_CautionAlert
|
|
BCS L07210F
|
|
LDA #$0000
|
|
L07210F STAL L020002
|
|
PLA
|
|
STA $39
|
|
LDA $39
|
|
CMP #$0001
|
|
BEQ L072129
|
|
LDA $39
|
|
CMP #$0002
|
|
BEQ L072129
|
|
LDA #$0000
|
|
BRA L07212C
|
|
L072129 LDA #$0001
|
|
L07212C STA $3B
|
|
BRA L0720F2
|
|
L072130 LDA $39
|
|
CMP #$0001
|
|
BNE L072143
|
|
PEA $0001
|
|
JSL L070000
|
|
PLY
|
|
JSL L071ED8
|
|
L072143 PEA $0017
|
|
PEA $0101
|
|
_LoadOneTool
|
|
BCS L072155
|
|
LDA #$0000
|
|
L072155 STAL L020002
|
|
LDA L02004A
|
|
PHA
|
|
LDX L02004E
|
|
LDA L02004C
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
TAX
|
|
LDA [$F6]
|
|
CLC
|
|
ADC #$0800
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
_SFStartUp
|
|
BCS L072185
|
|
LDA #$0000
|
|
L072185 STAL L020002
|
|
PEA $0023
|
|
PEA $0032
|
|
PEA ^L0314DD
|
|
PEA L0314DD
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA ^L0314F0
|
|
PEA L0314F0
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$005F
|
|
PHA
|
|
_SFGetFile
|
|
BCS L0721B6
|
|
LDA #$0000
|
|
L0721B6 STAL L020002
|
|
_SFShutDown
|
|
BCS L0721C6
|
|
LDA #$0000
|
|
L0721C6 STAL L020002
|
|
PEA $0017
|
|
_UnloadOneTool
|
|
BCS L0721D9
|
|
LDA #$0000
|
|
L0721D9 STAL L020002
|
|
LDA $5F
|
|
CMP #$0000
|
|
BNE L0721EA
|
|
LDA #$0000
|
|
BRL L0722A4
|
|
L0721EA PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0065
|
|
PHA
|
|
JSL L013A8B
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$004F
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0055
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0065
|
|
PHA
|
|
JSL L010921
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
STA $3F
|
|
LDA $3F
|
|
BEQ L07222C
|
|
LDA #$0000
|
|
BRL L0722A4
|
|
L07222C PEI $53
|
|
PEI $51
|
|
PEA ^L0314F3
|
|
PEA L0314F3
|
|
PEI $55
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0041
|
|
PHA
|
|
JSL L010AB3
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
STA $3F
|
|
LDA $3F
|
|
BEQ L072267
|
|
LDA $55
|
|
STA $41
|
|
PEA $0014
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0041
|
|
PHA
|
|
JSL L014421
|
|
L072267 LDX #$0000
|
|
LDA #$0056
|
|
PHX
|
|
PHA
|
|
LDX $53
|
|
LDA $51
|
|
SEC
|
|
JSL L012F07
|
|
PLY
|
|
PLY
|
|
STA L02003A
|
|
LDA $55
|
|
STA $41
|
|
PEA $0014
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0041
|
|
PHA
|
|
JSL L014421
|
|
LDA L020002
|
|
STA $3F
|
|
TAY
|
|
BEQ L07229E
|
|
LDA #$0000
|
|
BRA L0722A4
|
|
L07229E STZ L02003C
|
|
LDA #$0001
|
|
L0722A4 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$00C3
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0722AE PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00EA
|
|
TCS
|
|
LDA $FF
|
|
STA $EC
|
|
LDX #$0000
|
|
LDA #$0000
|
|
STX $F0
|
|
STA $EE
|
|
PEA $0018
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EC
|
|
PHA
|
|
JSL L014421
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
|