mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-06 16:30:01 +00:00
1516 lines
26 KiB
ArmAsm
1516 lines
26 KiB
ArmAsm
*
|
|
* Genesys v1.2.4
|
|
* Window editor
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
lst off
|
|
|
|
*----------------------------
|
|
|
|
use 4/Ctl.Macs
|
|
use 4/Int.Macs
|
|
use 4/QD.Macs
|
|
use 4/QDAux.Macs
|
|
use 4/Resource.Macs
|
|
use 4/Util.Macs
|
|
use 4/Window.Macs
|
|
|
|
*----------------------------
|
|
|
|
EXT L014B1E
|
|
EXT L014E87
|
|
EXT L014B68
|
|
EXT L014ADD
|
|
EXT L014A35
|
|
EXT L0105BB
|
|
EXT L0104A0
|
|
EXT L0104D5
|
|
EXT L01050A
|
|
EXT L01090E
|
|
EXT L01485A
|
|
EXT L01497D
|
|
EXT L0153AF
|
|
|
|
*----------------------------
|
|
|
|
L030000 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$004A
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $4F
|
|
PEI $4D
|
|
PEA $000A
|
|
JSL L014B1E
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA $16
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
LDA $48
|
|
PHA
|
|
LDA $48
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_SetPenPat
|
|
STA L014E87
|
|
LDA #$0002
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetPenSize
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_FrameRect
|
|
STA L014E87
|
|
LDA $4B
|
|
STA $4F
|
|
LDA $4A
|
|
STA $4E
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$004E
|
|
TCS
|
|
RTL
|
|
|
|
L0300B1 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$004A
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $4F
|
|
PEI $4D
|
|
PEA $000A
|
|
JSL L014B1E
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA $16
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
LDA $48
|
|
PHA
|
|
LDA $48
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_SetPenPat
|
|
STA L014E87
|
|
LDA #$0002
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetPenSize
|
|
STA L014E87
|
|
LDA #$000E
|
|
STA $24
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_FrameRect
|
|
STA L014E87
|
|
_PenNormal
|
|
STA L014E87
|
|
LDA $4B
|
|
STA $4F
|
|
LDA $4A
|
|
STA $4E
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$004E
|
|
TCS
|
|
RTL
|
|
|
|
L030171 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$004A
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $4F
|
|
PEI $4D
|
|
PEA $000A
|
|
JSL L014B1E
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0004
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA #$000D
|
|
STA $24
|
|
PHA
|
|
PHA
|
|
_FrontWindow
|
|
STA L014E87
|
|
PHA
|
|
PHA
|
|
_GetPort
|
|
STA L014E87
|
|
PLA
|
|
PLX
|
|
LDY #$0001
|
|
CMP $01,S
|
|
BEQ L0301E3
|
|
DEY
|
|
L0301E3 TXA
|
|
CMP $03,S
|
|
BEQ L0301EB
|
|
LDY #$0000
|
|
L0301EB PLA
|
|
PLA
|
|
TYA
|
|
BNE L0301F3
|
|
BRL L0301FD
|
|
L0301F3 LDA $1A
|
|
AND #$000F
|
|
STA $48
|
|
BRL L03020C
|
|
L0301FD LDA $18
|
|
AND #$0F00
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
L03020C LDA $48
|
|
PHA
|
|
LDA $48
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_FillRect
|
|
STA L014E87
|
|
_PenNormal
|
|
STA L014E87
|
|
LDA $4B
|
|
STA $4F
|
|
LDA $4A
|
|
STA $4E
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$004E
|
|
TCS
|
|
RTL
|
|
|
|
L030255 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$004A
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $4F
|
|
PEI $4D
|
|
PEA $000A
|
|
JSL L014B1E
|
|
PHA
|
|
PHA
|
|
_FrontWindow
|
|
STA L014E87
|
|
PHA
|
|
PHA
|
|
_GetPort
|
|
STA L014E87
|
|
PLA
|
|
PLX
|
|
LDY #$0001
|
|
CMP $01,S
|
|
BEQ L030294
|
|
DEY
|
|
L030294 TXA
|
|
CMP $03,S
|
|
BEQ L03029C
|
|
LDY #$0000
|
|
L03029C PLA
|
|
PLA
|
|
TYA
|
|
BEQ L0302A4
|
|
BRL L0302A7
|
|
L0302A4 BRL L0303AB
|
|
L0302A7 LDA $1A
|
|
AND #$0200
|
|
BEQ L0302B1
|
|
BRL L0302B4
|
|
L0302B1 BRL L0303AB
|
|
L0302B4 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0006
|
|
PHA
|
|
LDA #$0004
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA $1A
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
LDA $48
|
|
PHA
|
|
LDA $48
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_SetPenPat
|
|
STA L014E87
|
|
LDA $22
|
|
PHA
|
|
LDA $20
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDA $26
|
|
PHA
|
|
LDA $20
|
|
PHA
|
|
_LineTo
|
|
STA L014E87
|
|
LDA $22
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDA $26
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
_LineTo
|
|
STA L014E87
|
|
LDA $22
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0004
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDA $26
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0004
|
|
PHA
|
|
_LineTo
|
|
STA L014E87
|
|
LDA $22
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0006
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDA $26
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0006
|
|
PHA
|
|
_LineTo
|
|
STA L014E87
|
|
L0303AB _PenNormal
|
|
STA L014E87
|
|
LDA $4B
|
|
STA $4F
|
|
LDA $4A
|
|
STA $4E
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$004E
|
|
TCS
|
|
RTL
|
|
|
|
L0303C5 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$004C
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $51
|
|
PEI $4F
|
|
PEA $000A
|
|
JSL L014B1E
|
|
PHA
|
|
PHA
|
|
_FrontWindow
|
|
STA L014E87
|
|
PHA
|
|
PHA
|
|
_GetPort
|
|
STA L014E87
|
|
PLA
|
|
PLX
|
|
LDY #$0001
|
|
CMP $01,S
|
|
BEQ L030404
|
|
DEY
|
|
L030404 TXA
|
|
CMP $03,S
|
|
BEQ L03040C
|
|
LDY #$0000
|
|
L03040C PLA
|
|
PLA
|
|
TYA
|
|
BEQ L030414
|
|
BRL L030417
|
|
L030414 BRL L0304AB
|
|
L030417 LDA $1A
|
|
AND #$0100
|
|
BEQ L030421
|
|
BRL L030424
|
|
L030421 BRL L0304AB
|
|
L030424 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0004
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA #$000D
|
|
STA $24
|
|
LDA $1A
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
LDA $1A
|
|
AND #$000F
|
|
STA $4A
|
|
LDA $48
|
|
PHA
|
|
LDA $4A
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_SetPenPat
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_FillRect
|
|
STA L014E87
|
|
L0304AB _PenNormal
|
|
STA L014E87
|
|
LDA $4D
|
|
STA $51
|
|
LDA $4C
|
|
STA $50
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0050
|
|
TCS
|
|
RTL
|
|
|
|
L0304C5 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$002C
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $37
|
|
PEI $35
|
|
PEA $000A
|
|
JSL L014B1E
|
|
LDA $33
|
|
AND #$8000
|
|
BEQ L0304EC
|
|
BRL L0304EF
|
|
L0304EC BRL L0308B8
|
|
L0304EF PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
PHA
|
|
PHA
|
|
_FrontWindow
|
|
STA L014E87
|
|
PHA
|
|
PHA
|
|
_GetPort
|
|
STA L014E87
|
|
PLA
|
|
PLX
|
|
LDY #$0001
|
|
CMP $01,S
|
|
BEQ L03053F
|
|
DEY
|
|
L03053F TXA
|
|
CMP $03,S
|
|
BEQ L030547
|
|
LDY #$0000
|
|
L030547 PLA
|
|
PLA
|
|
TYA
|
|
BNE L03054F
|
|
BRL L030576
|
|
L03054F LDA $18
|
|
PHA
|
|
JSL L0104A0
|
|
PHA
|
|
_SetForeColor
|
|
STA L014E87
|
|
LDA $1A
|
|
PHA
|
|
JSL L0104A0
|
|
PHA
|
|
_SetBackColor
|
|
STA L014E87
|
|
BRL L03059A
|
|
L030576 LDA $18
|
|
PHA
|
|
JSL L0104D5
|
|
PHA
|
|
_SetForeColor
|
|
STA L014E87
|
|
LDA $18
|
|
PHA
|
|
JSL L01050A
|
|
PHA
|
|
_SetBackColor
|
|
STA L014E87
|
|
L03059A PHA
|
|
PHA
|
|
_GetFont
|
|
STA L014E87
|
|
PLA
|
|
STA $28
|
|
PLA
|
|
STA $2A
|
|
PHA
|
|
PHA
|
|
LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0305BC
|
|
DEX
|
|
L0305BC PHX
|
|
PHA
|
|
_SetWindowIcons
|
|
STA L014E87
|
|
_SetFont
|
|
STA L014E87
|
|
LDA $33
|
|
AND #$4000
|
|
BNE L0305DC
|
|
BRL L030602
|
|
L0305DC LDA $22
|
|
CLC
|
|
ADC #$000A
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDA #$0000
|
|
PHA
|
|
_DrawChar
|
|
STA L014E87
|
|
L030602 LDA $33
|
|
AND #$0100
|
|
BNE L03060C
|
|
BRL L030632
|
|
L03060C LDA $26
|
|
SEC
|
|
SBC #$001E
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDA #$0002
|
|
PHA
|
|
_DrawChar
|
|
STA L014E87
|
|
L030632 LDX $2A
|
|
LDA $28
|
|
PHX
|
|
PHA
|
|
_SetFont
|
|
STA L014E87
|
|
PHA
|
|
LDX $31
|
|
LDA $2F
|
|
PHX
|
|
PHA
|
|
_LoWord
|
|
STA L014E87
|
|
PLA
|
|
LDX #$0000
|
|
CMP #$0000
|
|
BNE L03065D
|
|
INX
|
|
L03065D TXA
|
|
PHA
|
|
PHA
|
|
LDX $31
|
|
LDA $2F
|
|
PHX
|
|
PHA
|
|
_HiWord
|
|
STA L014E87
|
|
PLA
|
|
LDX #$0000
|
|
CMP #$0000
|
|
BNE L03067A
|
|
INX
|
|
L03067A TXA
|
|
AND $01,S
|
|
PLX
|
|
TAX
|
|
BNE L030684
|
|
BRL L030687
|
|
L030684 BRL L0308B8
|
|
L030687 LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDA #$8006
|
|
PHA
|
|
LDX $31
|
|
LDA $2F
|
|
PHX
|
|
PHA
|
|
_LoadResource
|
|
STA L014E87
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
LDY #$0002
|
|
LDA [$00],Y
|
|
PHA
|
|
LDA [$00]
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
JSL L014B68
|
|
LDA L014E87
|
|
BNE L0306C8
|
|
BRL L0306CB
|
|
L0306C8 BRL L0308B8
|
|
L0306CB LDA $33
|
|
AND #$4000
|
|
BNE L0306D5
|
|
BRL L0306E0
|
|
L0306D5 LDA $22
|
|
CLC
|
|
ADC #$0020
|
|
STA $22
|
|
BRL L0306E8
|
|
L0306E0 LDA $22
|
|
CLC
|
|
ADC #$000A
|
|
STA $22
|
|
L0306E8 LDA $33
|
|
AND #$0100
|
|
BNE L0306F2
|
|
BRL L0306FD
|
|
L0306F2 LDA $26
|
|
SEC
|
|
SBC #$0020
|
|
STA $26
|
|
BRL L030705
|
|
L0306FD LDA $26
|
|
SEC
|
|
SBC #$000A
|
|
STA $26
|
|
L030705 LDA $22
|
|
SEC
|
|
SBC $26
|
|
BEQ L030713
|
|
BVS L030711
|
|
EOR #$8000
|
|
L030711 BMI L030716
|
|
L030713 BRL L030719
|
|
L030716 BRL L0308B8
|
|
L030719 LDA $26
|
|
SEC
|
|
SBC $22
|
|
PHA
|
|
PHA
|
|
LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
_StringWidth
|
|
STA L014E87
|
|
PLA
|
|
SEC
|
|
SBC $01,S
|
|
PLY
|
|
TAY
|
|
BEQ L030741
|
|
BVS L03073F
|
|
EOR #$8000
|
|
L03073F BMI L030744
|
|
L030741 BRL L0307FF
|
|
L030744 LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
PEA ^L030900
|
|
PEA L030900
|
|
LDA #$0003
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
JSL L01485A
|
|
JSL L014B68
|
|
JSL L014A35
|
|
L030776 LDA $26
|
|
SEC
|
|
SBC $22
|
|
PHA
|
|
PHA
|
|
LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
_StringWidth
|
|
STA L014E87
|
|
PLA
|
|
LDX #$0001
|
|
SEC
|
|
SBC $01,S
|
|
PLY
|
|
TAY
|
|
BEQ L0307A1
|
|
BVS L03079F
|
|
EOR #$8000
|
|
L03079F BMI L0307A2
|
|
L0307A1 DEX
|
|
L0307A2 TXA
|
|
PHA
|
|
LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
JSL L014ADD
|
|
LDX #$0001
|
|
SEC
|
|
SBC #$0004
|
|
BEQ L0307C4
|
|
BVS L0307C2
|
|
EOR #$8000
|
|
L0307C2 BMI L0307C5
|
|
L0307C4 DEX
|
|
L0307C5 TXA
|
|
AND $01,S
|
|
PLX
|
|
TAX
|
|
BNE L0307CF
|
|
BRL L0307FF
|
|
L0307CF LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
LDA #$0004
|
|
PHA
|
|
LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
JSL L014ADD
|
|
SEC
|
|
SBC $01,S
|
|
PLX
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
JSL L01497D
|
|
BRL L030776
|
|
L0307FF LDA $26
|
|
SEC
|
|
SBC $22
|
|
PHA
|
|
PHA
|
|
LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
_StringWidth
|
|
STA L014E87
|
|
PLA
|
|
SEC
|
|
SBC $01,S
|
|
PLY
|
|
TAY
|
|
BEQ L030827
|
|
BVS L030825
|
|
EOR #$8000
|
|
L030825 BMI L03082A
|
|
L030827 BRL L03082D
|
|
L03082A BRL L0308B8
|
|
L03082D LDA $33
|
|
AND #$4000
|
|
BNE L030837
|
|
BRL L030842
|
|
L030837 LDA $22
|
|
SEC
|
|
SBC #$0020
|
|
STA $22
|
|
BRL L03084A
|
|
L030842 LDA $22
|
|
SEC
|
|
SBC #$000A
|
|
STA $22
|
|
L03084A LDA $33
|
|
AND #$0100
|
|
BNE L030854
|
|
BRL L03085F
|
|
L030854 LDA $26
|
|
CLC
|
|
ADC #$0020
|
|
STA $26
|
|
BRL L030867
|
|
L03085F LDA $26
|
|
CLC
|
|
ADC #$000A
|
|
STA $26
|
|
L030867 PHA
|
|
LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
_StringWidth
|
|
STA L014E87
|
|
PLA
|
|
LDX #$0002
|
|
JSL L0153AF
|
|
PHA
|
|
LDA $26
|
|
SEC
|
|
SBC $22
|
|
LDX #$0002
|
|
JSL L0153AF
|
|
SEC
|
|
SBC $01,S
|
|
PLX
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDA #$000B
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDX #^L01090E
|
|
LDA #L01090E
|
|
PHX
|
|
PHA
|
|
_DrawString
|
|
STA L014E87
|
|
L0308B8 LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDA #$8006
|
|
PHA
|
|
LDX $31
|
|
LDA $2F
|
|
PHX
|
|
PHA
|
|
_ReleaseResource
|
|
STA L014E87
|
|
LDA #$0000
|
|
PHA
|
|
_SetForeColor
|
|
STA L014E87
|
|
LDA #$FFFF
|
|
PHA
|
|
_SetBackColor
|
|
STA L014E87
|
|
LDA $2D
|
|
STA $37
|
|
LDA $2C
|
|
STA $36
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0036
|
|
TCS
|
|
RTL
|
|
|
|
L030900 ROL $2E2E
|
|
L030903 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$004C
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $55
|
|
PEI $53
|
|
PEA $000A
|
|
JSL L014B1E
|
|
LDA $4F
|
|
AND #$0010
|
|
BEQ L03092A
|
|
BRL L03092D
|
|
L03092A BRL L030A51
|
|
L03092D PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA $4F
|
|
AND #$8000
|
|
BNE L030965
|
|
BRL L030980
|
|
L030965 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
LDA #$000C
|
|
PHA
|
|
_OffsetRect
|
|
STA L014E87
|
|
L030980 LDA $20
|
|
CLC
|
|
ADC $51
|
|
STA $24
|
|
LDA $16
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
LDA $48
|
|
PHA
|
|
LDA $48
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_SetPenPat
|
|
STA L014E87
|
|
LDA $22
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC $51
|
|
SEC
|
|
SBC $01,S
|
|
PLX
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDA $26
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC $51
|
|
SEC
|
|
SBC $01,S
|
|
PLX
|
|
PHA
|
|
_LineTo
|
|
STA L014E87
|
|
_PenNormal
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA $1E
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
LDA $48
|
|
PHA
|
|
LDA $48
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_FillRect
|
|
STA L014E87
|
|
L030A51 LDA $4D
|
|
STA $55
|
|
LDA $4C
|
|
STA $54
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0054
|
|
TCS
|
|
RTL
|
|
|
|
L030A61 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$002C
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $31
|
|
PEI $2F
|
|
PEA $000A
|
|
JSL L014B1E
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA $26
|
|
SEC
|
|
SBC #$001A
|
|
PHA
|
|
LDA $24
|
|
SEC
|
|
SBC #$000D
|
|
PHA
|
|
LDA $26
|
|
PHA
|
|
LDA $24
|
|
PHA
|
|
_SetRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA $16
|
|
PHA
|
|
JSL L0104D5
|
|
PHA
|
|
LDA $1C
|
|
PHA
|
|
JSL L0104D5
|
|
PHA
|
|
_SpecialRect
|
|
STA L014E87
|
|
LDA #$0004
|
|
PHA
|
|
_SetTextMode
|
|
STA L014E87
|
|
PHA
|
|
PHA
|
|
_GetFont
|
|
STA L014E87
|
|
PLA
|
|
STA $28
|
|
PLA
|
|
STA $2A
|
|
PHA
|
|
PHA
|
|
LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L030B26
|
|
DEX
|
|
L030B26 PHX
|
|
PHA
|
|
_SetCtlIcons
|
|
STA L014E87
|
|
_SetFont
|
|
STA L014E87
|
|
LDA $22
|
|
CLC
|
|
ADC #$0004
|
|
PHA
|
|
LDA $20
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
_MoveTo
|
|
STA L014E87
|
|
LDA #$0010
|
|
PHA
|
|
_DrawChar
|
|
STA L014E87
|
|
LDX $2A
|
|
LDA $28
|
|
PHX
|
|
PHA
|
|
_SetFont
|
|
STA L014E87
|
|
LDA #$0000
|
|
PHA
|
|
_SetTextMode
|
|
STA L014E87
|
|
LDA $2D
|
|
STA $31
|
|
LDA $2C
|
|
STA $30
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0030
|
|
TCS
|
|
RTL
|
|
|
|
L030B90 ENT
|
|
TSC
|
|
SEC
|
|
SBC #$004A
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0016
|
|
PHA
|
|
PEI $4F
|
|
PEI $4D
|
|
PEA $000A
|
|
JSL L014B1E
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_GetPortRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0004
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA $1C
|
|
AND #$F000
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
LDA $48
|
|
PHA
|
|
LDA $48
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_SetPenPat
|
|
STA L014E87
|
|
LDA #$0005
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
_SetPenSize
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_FrameRect
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
LDA #$0005
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
_InsetRect
|
|
STA L014E87
|
|
LDA #$0005
|
|
PHA
|
|
LDA #$0002
|
|
PHA
|
|
_SetPenSize
|
|
STA L014E87
|
|
LDA $1E
|
|
AND #$F000
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA $48
|
|
LDA $48
|
|
PHA
|
|
LDA $48
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
JSL L0105BB
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
_SetPenPat
|
|
STA L014E87
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0020
|
|
PHA
|
|
_FrameRect
|
|
STA L014E87
|
|
_PenNormal
|
|
STA L014E87
|
|
LDA $4B
|
|
STA $4F
|
|
LDA $4A
|
|
STA $4E
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$004E
|
|
TCS
|
|
RTL
|
|
|