Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
antoine-source/genesys/edit/MMDIALOGS.S

9110 lines
164 KiB
ArmAsm
Raw Blame History

*
* Genesys v1.3.5
* Control editor
*
mx %00
rel
lst off
*----------------------------
use 4/Ctl.Macs
use 4/Int.Macs
use 4/Line.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/QD.Macs
use 4/QDAux.Macs
use 4/Resource.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
use MMDIALOGS.X.S
*----------------------------
GSOS EQU $E100A8
*----------------------------
L030000 TSC
SEC
SBC #$0016
TCS
PHD
INC
TCD
PEI $1B
PEI $19
pea #$FF01
PEA ^L03004F
PEA L03004F
pea #$0008
JSL L02C5F5
pei $1F
pei $1D
LDA #$0001
CLC
ADC $19
LDX $1B
PHX
PHA
pea #$0008
_Long2Hex
STA L02C957
LDA $17
STA $1F
LDA $16
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L03004F ASC '00000000'
*--- Icon management (from the resource to the icon management window)
L030057 ENT
TSC
SEC
SBC #$0020
TCS
PHD
INC
TCD
PHA
pea #$0001
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
PHA
PHA
pea #$8004
pei $25
pei $23
_LoadResource
STA L02C957
PLA
STA $16 ; return the handle to the resource
PLA
STA $18
LDA L02C957
PHA
LDA #$2001
PHA
JSL L020419
PHA
LDA $1E
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
LDX $18 ; lock handle
LDA $16
PHX
PHA
_HLock
STA L02C957
*--- AV 202010 - Add the extra parm
LDY #$0002 ; get its pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
lda [$00] ; check pCount
cmp #12 ; if already 12
bcs icn12P ; we are good
pha
pha
pei $18
pei $16
_GetHandleSize
plx
ply
cpy #0
bne icn12P ; check size of $30
cpx #48 ; we have the right size
bcs icn12P
pei $18 ; size is < $30 bytes
pei $16
_HUnlock
pea $0000 ; make it $30 bytes long
pea $0030
pei $18
pei $16
_SetHandleSize
pei $18 ; lock it
pei $16
_HLock
LDY #$0002 ; get its pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
lda #12 ; 12 parms now
sta [$00]
ldy #$2e ; init initial value for sticky
lda #0
sta [$00],y
*---
icn12P
LDY #$0004 ; get its ID
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002 ; get its pointer again
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018 ; get its refcon
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
LDY #$0002 ; get its pointer again
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00] ; get its pcount
SEC
SBC #$0008
BVS L03011C
EOR #$8000
L03011C BMI L030121 ; 8 parms or more
BRL L030243 ; less than 8 parms
L030121 LDY #$0002 ; get its pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0020 ; get its titleRef resource
LDA [$00],Y
PHA
LDY #$001E
LDA [$00],Y
PHA
LDA #$0000
LDX #$0000
TAY
BPL L030143
DEX
L030143 LDY #$0001
CMP $01,S
BEQ L03014B
DEY
L03014B TXA
CMP $03,S
BEQ L030153
LDY #$0000
L030153 PLA
PLA
TYA
BEQ L03015B
BRL L030226
L03015B PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
PHA
PHA
LDA #$8006
PHA
LDY #$0002 ; get its pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0020 ; get its titleRef resource
LDA [$00],Y
TAX
LDY #$001E
LDA [$00],Y
PHX
PHA
_LoadResource
STA L02C957
PLA
STA L02B99B
PLA
STA L02B99D
LDA L02C957
PHA
LDA #$2003
PHA
JSL L020419
LDX L02B99D
LDA L02B99B
PHX
PHA
_HLock
STA L02C957
LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
LDX L02B99D
LDA L02B99B
STA $00
STX $02
LDY #$0002
LDA [$00],Y
PHA
LDA [$00]
PHA
LDA #$FF01
PHA
JSL L02C5F5
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8006
PHA
LDY #$0002 ; get its pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0020 ; get its titleRef resource
LDA [$00],Y
TAX
LDY #$001E
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1E
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
BRL L030240
L030226 LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
PEA ^L030057
PEA L030057
LDA #$0000
PHA
JSL L02C5F5
L030240 BRL L03025D
L030243 LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
PEA ^L030057
PEA L030057
LDA #$0000
PHA
JSL L02C5F5
L03025D JSL L02892D ; show the Icon control window
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
*--- Handle the invisible flag - bit 7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #%00000000_10000000
beq L0302BA
L03028E LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0012
_GetCtlHandleFromID
_SetCtlValue
*--- AV 202010 Handle the disabled bit 3
L0302BA LDY #$0012
LDA [$00],Y
AND #%00000000_00001000
beq L0302BB
LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0013
_GetCtlHandleFromID
_SetCtlValue
*--- AV 202010 Handle the sticky bit 4
L0302BB LDY #$0012
LDA [$00],Y
AND #%00000000_00010000
beq L0302BC
LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0014
_GetCtlHandleFromID
_SetCtlValue
LDA #$0000 ; activate the buttons
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0015
_GetCtlHandleFromID
_HiliteControl
LDA #$0000
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0016
_GetCtlHandleFromID
_HiliteControl
*--- Handle the show border bit 2
L0302BC LDY #$0012
LDA [$00],Y
AND #%00000000_00000100
BEQ L0302D3
BRL L0303C0
L0302D3 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $000b
_GetCtlHandleFromID
_SetCtlValue
*--- Handle the border type
LDY #$0012
LDA [$00],Y
AND #%00000000_00000011
CMP #$0001
bne L03034E
L03031F LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0009
_GetCtlHandleFromID
_SetCtlValue
bra L0303BD
L03034E CMP #$0002
bne L030387
L030358 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0008
_GetCtlHandleFromID
_SetCtlValue
bra L0303BD
L030387 CMP #$0003
bne L0303BD
L030391 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0007
_GetCtlHandleFromID
_SetCtlValue
L0303BD BRL L03042C
L0303C0 LDA #$0007
STA $1A
L0303C5 LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pei $1a
_GetCtlHandleFromID
_HiliteControl
INC $1A
LDA $1A
CMP #$000B
bcc L0303C5
L030400 LDA #$0000
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $000a
_GetCtlHandleFromID
_SetCtlValue
L03042C LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0004
_GetCtlHandleFromID
_HiliteControl
PHA
LDA #$0001
PHA
_SetResourceFileDepth
PLA
STA $1E
LDA #$0001
EOR #$FFFF
INC
PHA
pea #$8004
pei $25
pei $23
_ReleaseResource
PHA
pei $1E
_SetResourceFileDepth
PLA
STA $1E
LDA $21
STA $25
LDA $20
STA $24
PLD
TSC
CLC
ADC #$0024
TCS
RTL
L0304A7 TSC
SEC
SBC #$0016
TCS
PHD
INC
TCD
LDX $1B
LDA $19
PHX
PHA
_HUnlock
STA L02C957
PHA
PHA
LDX $1B
LDA $19
PHX
PHA
_GetHandleSize
STA L02C957
LDA $1D
LDX #$0000
TAY
BPL L0304DB
DEX
L0304DB PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
LDX $1B
LDA $19
PHX
PHA
_SetHandleSize
STA L02C957
LDA L02C957
PHA
LDA #$5202
PHA
JSL L020419
LDX $1B
LDA $19
PHX
PHA
_HLock
STA L02C957
LDA $17
STA $1D
LDA $16
STA $1C
PLD
TSC
CLC
ADC #$001C
TCS
RTL
L030524 ENT
TSC
SEC
SBC #$002A
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $28
PHA
PHA
LDA #$8004
PHA
LDX $2F
LDA $2D
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$5104
PHA
JSL L020419
PHA
LDA $28
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $28
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0008
SEC
SBC $01,S
PLY
TAY
BEQ L0305A8
BVS L0305A6
EOR #$8000
L0305A6 BMI L0305AB
L0305A8 BRL L0305F4
L0305AB LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L0305C3
DEX
L0305C3 PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$001E
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0008
STA [$00]
L0305F4 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0009
SEC
SBC $01,S
PLY
TAY
BEQ L030614
BVS L030612
EOR #$8000
L030612 BMI L030617
L030614 BRL L030660
L030617 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L03062F
DEX
L03062F PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0022
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0009
STA [$00]
L030660 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000A
SEC
SBC $01,S
PLY
TAY
BEQ L030680
BVS L03067E
EOR #$8000
L03067E BMI L030683
L030680 BRL L0306B7
L030683 LDA #$0002
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0026
STA $00
STX $02
LDA #$0000
STA [$00]
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$000A
STA [$00]
L0306B7 JSL L028CE3
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA $1A
PLA
STA $1C
LDX $1C
LDA $1A
PHX
PHA
_SetPort
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0026
LDA [$00],Y
AND #$0004
BNE L0306F6
BRL L030722
L0306F6 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L03070C
DEX
L03070C PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L030722 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0026
LDA [$00],Y
AND #$0002
BNE L03073B
BRL L030767
L03073B LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0004
LDX #$0000
TAY
BPL L030751
DEX
L030751 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L030767 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0026
LDA [$00],Y
AND #$0001
BNE L030780
BRL L0307AC
L030780 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0005
LDX #$0000
TAY
BPL L030796
DEX
L030796 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0307AC PEA $0000
TDC
CLC
ADC #$001E
PHA
LDA #$0138
PHA
LDA #$0008
PHA
LDA #$015C
PHA
LDA #$0016
PHA
_SetRect
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0026
LDA [$00],Y
AND #$F000
STA $26
PEA $0000
TDC
CLC
ADC #$001E
PHA
LDA #$0000
PHA
LDA $26
PHA
JSL L0203E3
PHA
_SpecialRect
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $28
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $2F
LDA $2D
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $28
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $28
LDA $2B
STA $2F
LDA $2A
STA $2E
PLD
TSC
CLC
ADC #$002E
TCS
RTL
L030853 ENT
TSC
SEC
SBC #$001E
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
PHA
PHA
LDA #$8004
PHA
LDX $23
LDA $21
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2101
PHA
JSL L020419
PHA
LDA $1C
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
PHA
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_LoadResource
STA L02C957
PLA
STA L02B99B
PLA
STA L02B99D
LDA L02C957
PHA
LDA #$2103
PHA
JSL L020419
LDX L02B99D
LDA L02B99B
PHX
PHA
_HLock
STA L02C957
LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
LDX L02B99D
LDA L02B99B
STA $00
STX $02
LDY #$0002
LDA [$00],Y
PHA
LDA [$00]
PHA
LDA #$FF01
PHA
JSL L02C5F5
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1C
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
JSL L02B5CB
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L0309FA
BRL L030A26
L0309FA LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000D
LDX #$0000
TAY
BPL L030A10
DEX
L030A10 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L030A26 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0003
STA $1A
LDA $1A
CMP #$0001
BEQ L030A46
BRL L030A75
L030A46 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0007
LDX #$0000
TAY
BPL L030A5C
DEX
L030A5C PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
BRL L030AE4
L030A75 LDA $1A
CMP #$0002
BEQ L030A7F
BRL L030AAE
L030A7F LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0006
LDX #$0000
TAY
BPL L030A95
DEX
L030A95 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
BRL L030AE4
L030AAE LDA $1A
CMP #$0003
BEQ L030AB8
BRL L030AE4
L030AB8 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0005
LDX #$0000
TAY
BPL L030ACE
DEX
L030ACE PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L030AE4 LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L030AFA
DEX
L030AFA PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $23
LDA $21
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1C
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
LDA $1F
STA $23
LDA $1E
STA $22
PLD
TSC
CLC
ADC #$0022
TCS
RTL
L030B5F ENT
TSC
SEC
SBC #$001C
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
PHA
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2201
PHA
JSL L020419
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
JSL L029680 ; window for Stat Text control
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
*--- AV 202010
LDY #$0002 ; get control handle
LDA [$16],Y
TAX
LDA [$16]
STA $00 ; set the pointer
STX $02
*--- Set bit 7 on control $D - ctlInvis
LDY #$0012 ; get flag
LDA [$00],Y
AND #%00000000_10000000 ; get bit 7 - invisible
beq L030C6A
LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $000d
_GetCtlHandleFromID
sta L02C957
_SetCtlValue
sta L02C957
*--- Set bit 1 on control $C - fSubstituteText
L030C6A
LDY #$0012 ; get flag
LDA [$00],Y
AND #%00000000_00000010 ; get bit 1 - fSubstituteText
beq L030C6B
LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $000c
_GetCtlHandleFromID
sta L02C957
_SetCtlValue
sta L02C957
*--- Set bit 2 on control $10 - fBlastText
L030C6B
LDY #$0012 ; get flag
LDA [$00],Y
AND #%00000000_00000100 ; get bit 2 - fBlastText
beq L030C6C
LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0010
_GetCtlHandleFromID
sta L02C957
_SetCtlValue
sta L02C957
*--- Set bit 3 on control $F - fTextCanDim
L030C6C
LDY #$0012 ; get flag
LDA [$00],Y
AND #%00000000_00001000 ; get bit 3 - fTextCanDim
beq L030C6D
LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $000f
_GetCtlHandleFromID
sta L02C957
_SetCtlValue
sta L02C957
*--- Set bit 4 on control $E - fSquishText
L030C6D
LDY #$0012 ; get flag
LDA [$00],Y
AND #%00000000_00010000 ; get bit 4 - fSquishText
beq L030CAF
LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $000e
_GetCtlHandleFromID
sta L02C957
_SetCtlValue
sta L02C957
*---
L030CAF LDY #$0002 ; now check justification
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
CMP #$0009
BEQ L030CC5
BRL L030DD6
L030CC5 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0020
LDA [$00],Y
CMP #$0002
BEQ L030CDE
BRL L030D0D
L030CDE LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0008
LDX #$0000
TAY
BPL L030CF4
DEX
L030CF4 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
BRL L030DD3
L030D0D LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0020
LDA [$00],Y
PHA
LDA #$0001
EOR #$FFFF
INC
SEC
SBC $01,S
PLX
TAX
BEQ L030D30
BRL L030D5F
L030D30 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0009
LDX #$0000
TAY
BPL L030D46
DEX
L030D46 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
BRL L030DD3
L030D5F LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0020
LDA [$00],Y
CMP #$0001
BEQ L030D78
BRL L030DA7
L030D78 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000A
LDX #$0000
TAY
BPL L030D8E
DEX
L030D8E PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
BRL L030DD3
L030DA7 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000B
LDX #$0000
TAY
BPL L030DBD
DEX
L030DBD PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L030DD3 BRL L030E02
L030DD6 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000B
LDX #$0000
TAY
BPL L030DEC
DEX
L030DEC PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L030E02 PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA $1D
STA $21
LDA $1C
STA $20
PLD
TSC
CLC
ADC #$0020
TCS
RTL
L030E51 ENT
TSC
SEC
SBC #$001C
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
PHA
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2301
PHA
JSL L020419
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
PHA
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_LoadResource
STA L02C957
PLA
STA L02B99B
PLA
STA L02B99D
LDA L02C957
PHA
LDA #$2303
PHA
JSL L020419
LDX L02B99D
LDA L02B99B
PHX
PHA
_HLock
STA L02C957
LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
LDX L02B99D
LDA L02B99B
STA $00
STX $02
LDY #$0002
LDA [$00],Y
PHA
LDA [$00]
PHA
LDA #$FF01
PHA
JSL L02C5F5
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
JSL L0299A5
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L030FF8
BRL L031024
L030FF8 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000C
LDX #$0000
TAY
BPL L03100E
DEX
L03100E PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L031024 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
BNE L03103A
BRL L031066
L03103A LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000B
LDX #$0000
TAY
BPL L031050
DEX
L031050 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L031066 LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L03107C
DEX
L03107C PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA $1D
STA $21
LDA $1C
STA $20
PLD
TSC
CLC
ADC #$0020
TCS
RTL
*--- AV 202010
doRECTANGLE ENT
TSC
SEC
SBC #$0020
TCS
PHD
INC
TCD
PHA
pea #$0001
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
PHA
PHA
pea #$8004
pei $25
pei $23
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957 ; check error
PHA
pea #$2401
JSL L020419
PHA
pei $1E
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
pei $18
pei $16
_HLock
STA L02C957
* Get the data
LDY #$0002 ; get the pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
* Get the number of parms (we handle 8 parms max)
lda [$00]
cmp #8
bcs okRECT ; if >=8, do nothing
pei $18
pei $16
_HUnlock
pea $0000 ; make it $1e bytes long
pea $001e
pei $18
pei $16
_SetHandleSize
pei $18 ; lock it
pei $16
_HLock
LDY #$0002 ; get the pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
lda #8 ; New nb of parms now
sta [$00]
ldy #$1a ; initial value for penHeight
lda #1
sta [$00],y
ldy #$1c ; initial value for penWidth
lda #2
sta [$00],y
okRECT
LDY #$0004 ; get its ID
LDA [$00],Y
pha
LDY #$0002
LDA [$00],Y
pha
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0018 ; get the refcon
LDA [$00],Y
pha
LDY #$0016
LDA [$00],Y
pha
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
ldy #$1a ; get penWidth
lda [$00],y
pha
PushLong #strRECTD2
PushWord #5
PushWord #0
_Int2Dec
ldy #$1c ; get penHeight
lda [$00],y
pha
PushLong #strRECTF2
PushWord #5
PushWord #0
_Int2Dec
*--- Reset all controls (and we'll change the value afterwards)
lda #$0000 ; transparent
pha
pha
pha
pha
pha
pha
pea $0009
_GetCtlHandleFromID
_SetCtlValue
lda #$0000 ; grey pattern
pha
pha
pha
pha
pha
pha
pea $000a
_GetCtlHandleFromID
_SetCtlValue
lda #$0000 ; black pattern
pha
pha
pha
pha
pha
pha
pea $000b
_GetCtlHandleFromID
_SetCtlValue
*---
JSL showRECTANGLE ; do window
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
*--- Update some flags
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
*--- Control's visibility
ldy #$12
lda [$00],y
and #%00000000_10000000
beq rectVISIBLE
lda #$0001
pha
pha
pha
pea $0000
pea $0000
pea $0000
pea $0007
_GetCtlHandleFromID
_SetCtlValue
rectVISIBLE
*--- Control's appearance
ldy #$12
lda [$00],y
and #%00000000_00000011
cmp #%00000000_00000011
bcs rectAPPEAR
clc
adc #9 ; because control 9 is radio button transparent
tax
lda #$0001
pha
pha
pha
pea $0000
pea $0000
pea $0000
phx ; <= the control to activate
_GetCtlHandleFromID
_SetCtlValue
rectAPPEAR
*---
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $25
LDA $23
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1E
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
LDA $21
STA $25
LDA $20
STA $24
PLD
TSC
CLC
ADC #$0024
TCS
RTL
*--- AV 202010
doTHERMOMETER ENT
TSC
SEC
SBC #$0020
TCS
PHD
INC
TCD
PHA
pea #$0001
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
PHA
PHA
pea #$8004
pei $25
pei $23
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957 ; check error
PHA
pea #$2401
JSL L020419
PHA
pei $1E
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
pei $18
pei $16
_HLock
STA L02C957
* Get the data
LDY #$0002 ; get the pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
* Get the number of parms (we handle 8 parms max)
lda [$00]
cmp #8
bcs okTHERMO ; if >=8, do nothing
pei $18
pei $16
_HUnlock
pea $0000 ; make it $1e bytes long
pea $001e
pei $18
pei $16
_SetHandleSize
pei $18 ; lock it
pei $16
_HLock
LDY #$0002 ; get the pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
lda #8 ; New nb of parms now
sta [$00]
ldy #$1a ; initial value for position
lda #0
sta [$00],y
ldy #$1c ; initial value for scale
lda #100
sta [$00],y
okTHERMO
LDY #$0004 ; get its ID
LDA [$00],Y
pha
LDY #$0002
LDA [$00],Y
pha
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0018 ; get the refcon
LDA [$00],Y
pha
LDY #$0016
LDA [$00],Y
pha
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
ldy #$1a ; get position
lda [$00],y
pha
PushLong #strTHERMOD2
PushWord #5
PushWord #0
_Int2Dec
ldy #$1c ; get scale
lda [$00],y
pha
PushLong #strTHERMOF2
PushWord #5
PushWord #0
_Int2Dec
*--- Reset all controls (and we'll change the value afterwards)
lda #$0000 ; vertical
pha
pha
pha
pha
pha
pha
pea $0009
_GetCtlHandleFromID
_SetCtlValue
lda #$0000 ; horizontal
pha
pha
pha
pha
pha
pha
pea $000a
_GetCtlHandleFromID
_SetCtlValue
*---
JSL showTHERMOMETER ; do window
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
*--- Update some flags
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
*--- Control's visibility
ldy #$12
lda [$00],y
and #%00000000_10000000
beq thermoVISIBLE
lda #$0001
pha
pha
pha
pea $0000
pea $0000
pea $0000
pea $0007
_GetCtlHandleFromID
_SetCtlValue
thermoVISIBLE
*--- Control's appearance
ldy #$12
lda [$00],y
and #%00000000_00000001
clc
adc #9 ; because control 9 is radio button vertical
tax
lda #$0001
pha
pha
pha
pea $0000
pea $0000
pea $0000
phx ; <= the control to activate
_GetCtlHandleFromID
_SetCtlValue
*---
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $25
LDA $23
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1E
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
LDA $21
STA $25
LDA $20
STA $24
PLD
TSC
CLC
ADC #$0024
TCS
RTL
*--- AV 202010 Line Edit control entry point
L0310E1 ENT
TSC
SEC
SBC #$0020
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
PHA
PHA
LDA #$8004
PHA
LDX $25
LDA $23
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2401
PHA
JSL L020419
PHA
LDA $1E
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
*--- AV 202010 - Add the extra parm
LDY #$0002 ; get its pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
lda [$00] ; check pCount
cmp #10 ; if already 10
bcs le10P ; we are good
pha
pha
pei $18
pei $16
_GetHandleSize
plx
ply
cpy #0
bne le10P ; check size of 32+2+2
cpx #$24 ; we have the right size
bcs le10P
pei $18 ; size is < $24 bytes
pei $16
_HUnlock
pea $0000 ; make it $24 bytes long
pea $0024
pei $18
pei $16
_SetHandleSize
pei $18 ; lock it
pei $16
_HLock
LDY #$0002 ; get its pointer
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
lda [$00] ; if we have 9 parms
cmp #9 ; add the 10th only
bcs le9P
ldy #$20 ; pwChar
lda #$ffff ; by default, not a password field
sta [$00],y
le9P ldy #$22 ; keyMask
lda #$0001
sta [$00],y
lda #10 ; 10 parms now
sta [$00]
le10P
*---
ldy #$20 ; now make pwChar a text value
lda [$00],y
pha
PushLong #pwChar
PushWord #4
_Int2Hex
ldy #$22 ; now make keyMask a text value
lda [$00],y
pha
PushLong #keyMask
PushWord #4
_Int2Hex
*--- Back to the original code
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001A
LDA [$00],Y
STA $1A
LDA $1A
AND #$8000
BNE L0311AC
BRL L0311BB
L0311AC LDA #$0001
STA $1C
LDA $1A
EOR #$8000
STA $1A
BRL L0311C0
L0311BB LDA #$0000
STA $1C
L0311C0 LDA $1A
SEC
SBC #$00FF
BEQ L0311CF
BVS L0311CD
EOR #$8000
L0311CD BMI L0311D2
L0311CF BRL L0311D7
L0311D2 LDA #$00FF
STA $1A
L0311D7 LDA #$0000
SEC
SBC $1A
BEQ L0311E6
BVS L0311E4
EOR #$8000
L0311E4 BMI L0311E9
L0311E6 BRL L0311EE
L0311E9 LDA #$0000
STA $1A
L0311EE LDX #^L02BCAD
LDA #L02BCAD
PHX
PHA
LDA #$FF01
PHA
LDA $1A
LDX #$0000
TAY
BPL L031203
DEX
L031203 PHX
PHA
JSL L02C444
JSL L02C5F5
JSL L02C4DA
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
PHX
PHA
_HiWord
STA L02C957
PLA
LDX #$0000
CMP #$0000
BEQ L03123F
INX
L03123F TXA
PHA
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
PHX
PHA
_LoWord
STA L02C957
PLA
LDX #$0000
CMP #$0000
BEQ L03126F
INX
L03126F TXA
ORA $01,S
PLX
TAX
BNE L031279
BRL L031344
L031279 PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
PHA
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
PHX
PHA
_LoadResource
STA L02C957
PLA
STA L02B99B
PLA
STA L02B99D
LDA L02C957
PHA
LDA #$2403
PHA
JSL L020419
LDX L02B99D
LDA L02B99B
PHX
PHA
_HLock
STA L02C957
LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
LDX L02B99D
LDA L02B99B
STA $00
STX $02
LDY #$0002
LDA [$00],Y
PHA
LDA [$00]
PHA
LDA #$FF01
PHA
JSL L02C5F5
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1E
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
BRL L03135E
L031344 LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
PEA ^L0310E1
PEA L0310E1
LDA #$0000
PHA
JSL L02C5F5
L03135E JSL L029C59 ; do window
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
*--- AV 202010 - Add new words
ldy #$20 ; check pwChar
lda [$00],y
cmp #$ffff ; -1 means not a password
bne isAPWD
LDA #$0001 ; check Not a password box
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $000f
_GetCtlHandleFromID
_SetCtlValue
isAPWD
*---
LDY #$0012 ; bit 7 - invisible
LDA [$00],Y
AND #$0080
BNE L03138F
BRL L0313BB
L03138F LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $000c
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0313BB LDA $1C ; password checkbox
BNE L0313C2
BRL L0313EE
L0313C2 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
pea $0000
pea $0003
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0313EE PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $25
LDA $23
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1E
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1E
LDA $21
STA $25
LDA $20
STA $24
PLD
TSC
CLC
ADC #$0024
TCS
RTL
L03143D ENT
TSC
SEC
SBC #$001E
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
PHA
PHA
LDA #$8004
PHA
LDX $23
LDA $21
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2501
PHA
JSL L020419
PHA
LDA $1C
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
STA $1A
LDA $1A
SEC
SBC #$007F
BEQ L03150D
BVS L03150B
EOR #$8000
L03150B BMI L031510
L03150D BRL L031517
L031510 LDA $1A
EOR #$0080
STA $1A
L031517 LDX #^L02BCAD
LDA #L02BCAD
PHX
PHA
LDA #$FF01
PHA
LDA $1A
LDX #$0000
TAY
BPL L03152C
DEX
L03152C PHX
PHA
JSL L02C444
JSL L02C5F5
JSL L02C4DA
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
PHA
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_LoadResource
STA L02C957
PLA
STA L02B99B
PLA
STA L02B99D
LDA L02C957
PHA
LDA #$2503
PHA
JSL L020419
LDX L02B99D
LDA L02B99B
PHX
PHA
_HLock
STA L02C957
LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
LDX L02B99D
LDA L02B99B
STA $00
STX $02
LDY #$0002
LDA [$00],Y
PHA
LDA [$00]
PHA
LDA #$FF01
PHA
JSL L02C5F5
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1C
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
JSL L029F0F
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L031633
BRL L03165F
L031633 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000E
LDX #$0000
TAY
BPL L031649
DEX
L031649 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03165F LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
BNE L031675
BRL L0316A1
L031675 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000D
LDX #$0000
TAY
BPL L03168B
DEX
L03168B PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0316A1 LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L0316B7
DEX
L0316B7 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $23
LDA $21
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1C
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1C
LDA $1F
STA $23
LDA $1E
STA $22
PLD
TSC
CLC
ADC #$0022
TCS
RTL
L03171C ENT
TSC
SEC
SBC #$0022
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $20
PHA
PHA
LDA #$8004
PHA
LDX $29
LDA $27
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2604
PHA
JSL L020419
PHA
LDA $20
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $20
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
JSL L02A20A
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L0317FB
BRL L031827
L0317FB LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0015
LDX #$0000
TAY
BPL L031811
DEX
L031811 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L031827 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0008
SEC
SBC $01,S
PLY
TAY
BEQ L031847
BVS L031845
EOR #$8000
L031845 BMI L03184A
L031847 BRL L031881
L03184A LDA #$0008
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$001E
PHA
LDA #$FFFF
PHA
LDA #$FFFF
PHA
LDA #$FFFF
PHA
LDA #$FFFF
PHA
_SetRect
STA L02C957
L031881 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0009
SEC
SBC $01,S
PLY
TAY
BEQ L0318A1
BVS L03189F
EOR #$8000
L03189F BMI L0318A4
L0318A1 BRL L0318DC
L0318A4 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L0318BC
DEX
L0318BC PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0026
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L0318DC LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000A
SEC
SBC $01,S
PLY
TAY
BEQ L0318FC
BVS L0318FA
EOR #$8000
L0318FA BMI L0318FF
L0318FC BRL L031922
L0318FF LDA #$0002
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$002A
STA $00
STX $02
LDA #$0000
STA [$00]
L031922 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000B
SEC
SBC $01,S
PLY
TAY
BEQ L031942
BVS L031940
EOR #$8000
L031940 BMI L031945
L031942 BRL L03197D
L031945 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L03195D
DEX
L03195D PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$002C
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L03197D LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000C
SEC
SBC $01,S
PLY
TAY
BEQ L03199D
BVS L03199B
EOR #$8000
L03199B BMI L0319A0
L03199D BRL L0319C3
L0319A0 LDA #$0002
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0030
STA $00
STX $02
LDA #$0000
STA [$00]
L0319C3 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000D
SEC
SBC $01,S
PLY
TAY
BEQ L0319E3
BVS L0319E1
EOR #$8000
L0319E1 BMI L0319E6
L0319E3 BRL L031A1E
L0319E6 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L0319FE
DEX
L0319FE PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0032
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L031A1E LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000E
SEC
SBC $01,S
PLY
TAY
BEQ L031A3E
BVS L031A3C
EOR #$8000
L031A3C BMI L031A41
L031A3E BRL L031A64
L031A41 LDA #$0002
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0036
STA $00
STX $02
LDA #$0015
STA [$00]
L031A64 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000F
SEC
SBC $01,S
PLY
TAY
BEQ L031A84
BVS L031A82
EOR #$8000
L031A82 BMI L031A87
L031A84 BRL L031C04
L031A87 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
PHA
PHA
LDA #$0016
LDX #$0000
TAY
BPL L031AA1
DEX
L031AA1 PHX
PHA
LDA $25
PHA
LDA #$0000
PHA
LDA #$0000
LDX #$0000
TAY
BPL L031AB4
DEX
L031AB4 PHX
PHA
_NewHandle
STA L02C957
PLA
STA $1C
PLA
STA $1E
LDA L02C957
PHA
LDA #$2606
PHA
JSL L020419
LDX $1E
LDA $1C
PHX
PHA
_HLock
STA L02C957
LDX #^L02BCAD
LDA #L02BCAD
PHX
PHA
LDA #$FF01
PHA
PEA ^L0322C0
PEA L0322C0
LDA #$0016
PHA
JSL L02C5F5
LDA #$0001
TAX
TXA
CLC
ADC #L02BCAD
PEA ^L02BCAD
PHA
LDY #$0002
LDA [$1C],Y
PHA
LDA [$1C]
PHA
LDA #$0016
LDX #$0000
TAY
BPL L031B1C
DEX
L031B1C PHX
PHA
_BlockMove
STA L02C957
PHA
PHA
LDA #$FFFF
PHA
LDA #$8016
PHA
_UniqueResourceID
STA L02C957
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0038
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $20
LDX $1E
LDA $1C
PHX
PHA
LDA #$0000
PHA
LDA #$8016
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$003A
LDA [$00],Y
TAX
LDY #$0038
LDA [$00],Y
PHX
PHA
_AddResource
STA L02C957
LDA #$8016
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$003A
LDA [$00],Y
TAX
LDY #$0038
LDA [$00],Y
PHX
PHA
_WriteResource
STA L02C957
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8016
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$003A
LDA [$00],Y
TAX
LDY #$0038
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $20
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $20
L031C04 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0010
SEC
SBC $01,S
PLY
TAY
BEQ L031C24
BVS L031C22
EOR #$8000
L031C22 BMI L031C27
L031C24 BRL L031C5F
L031C27 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L031C3F
DEX
L031C3F PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$003C
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L031C5F LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0011
SEC
SBC $01,S
PLY
TAY
BEQ L031C7F
BVS L031C7D
EOR #$8000
L031C7D BMI L031C82
L031C7F BRL L031CBA
L031C82 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L031C9A
DEX
L031C9A PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0040
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L031CBA LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0012
SEC
SBC $01,S
PLY
TAY
BEQ L031CDA
BVS L031CD8
EOR #$8000
L031CD8 BMI L031CDD
L031CDA BRL L031D15
L031CDD LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L031CF5
DEX
L031CF5 PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0044
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L031D15 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0013
SEC
SBC $01,S
PLY
TAY
BEQ L031D35
BVS L031D33
EOR #$8000
L031D33 BMI L031D38
L031D35 BRL L031D5B
L031D38 LDA #$0002
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0048
STA $00
STX $02
LDA #$0000
STA [$00]
L031D5B LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0014
SEC
SBC $01,S
PLY
TAY
BEQ L031D7B
BVS L031D79
EOR #$8000
L031D79 BMI L031D7E
L031D7B BRL L031DA1
L031D7E LDA #$0002
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$004A
STA $00
STX $02
LDA #$0000
STA [$00]
L031DA1 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0015
SEC
SBC $01,S
PLY
TAY
BEQ L031DC1
BVS L031DBF
EOR #$8000
L031DBF BMI L031DC4
L031DC1 BRL L031DFC
L031DC4 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L031DDC
DEX
L031DDC PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$004C
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L031DFC LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0016
SEC
SBC $01,S
PLY
TAY
BEQ L031E1C
BVS L031E1A
EOR #$8000
L031E1A BMI L031E1F
L031E1C BRL L031E42
L031E1F LDA #$0002
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0050
STA $00
STX $02
LDA #$0000
STA [$00]
L031E42 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0017
SEC
SBC $01,S
PLY
TAY
BEQ L031E62
BVS L031E60
EOR #$8000
L031E60 BMI L031E65
L031E62 BRL L031E9D
L031E65 LDA #$0004
PHA
LDX $18
LDA $16
PHX
PHA
JSL L0304A7
LDA #$0000
LDX #$0000
TAY
BPL L031E7D
DEX
L031E7D PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0052
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L031E9D LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0017
STA [$00]
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $20
LDA #$0001
PHA
LDA #$8004
PHA
LDX $29
LDA $27
PHX
PHA
_MarkResourceChange
STA L02C957
LDA #$8004
PHA
LDX $29
LDA $27
PHX
PHA
_WriteResource
STA L02C957
PHA
LDA $20
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $20
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
AND #$0800
BNE L031F16
BRL L031F6E
L031F16 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000F
LDX #$0000
TAY
BPL L031F2C
DEX
L031F2C PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0010
LDX #$0000
TAY
BPL L031F58
DEX
L031F58 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L031F6E PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0028
LDA [$00],Y
TAX
LDY #$0026
LDA [$00],Y
PHX
PHA
_HiWord
STA L02C957
PLA
LDX #$0000
CMP #$0000
BEQ L031F9C
INX
L031F9C TXA
PHA
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0028
LDA [$00],Y
TAX
LDY #$0026
LDA [$00],Y
PHX
PHA
_LoWord
STA L02C957
PLA
LDX #$0000
CMP #$0000
BEQ L031FCC
INX
L031FCC TXA
ORA $01,S
PLX
TAX
BNE L031FD6
BRL L032002
L031FD6 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0010
LDX #$0000
TAY
BPL L031FEC
DEX
L031FEC PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032002 PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_HiWord
STA L02C957
PLA
STA $1A
LDA $1A
AND #$2000
BNE L032033
BRL L03205F
L032033 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000E
LDX #$0000
TAY
BPL L032049
DEX
L032049 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03205F LDA $1A
AND #$1000
BNE L032069
BRL L032095
L032069 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000D
LDX #$0000
TAY
BPL L03207F
DEX
L03207F PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032095 LDA $1A
AND #$0800
BNE L03209F
BRL L0320CB
L03209F LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000C
LDX #$0000
TAY
BPL L0320B5
DEX
L0320B5 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0320CB LDA $1A
AND #$0400
BNE L0320D5
BRL L032101
L0320D5 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000B
LDX #$0000
TAY
BPL L0320EB
DEX
L0320EB PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032101 LDA $1A
AND #$0200
BNE L03210B
BRL L032137
L03210B LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000A
LDX #$0000
TAY
BPL L032121
DEX
L032121 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032137 LDA $1A
AND #$0100
BNE L032141
BRL L03216D
L032141 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0009
LDX #$0000
TAY
BPL L032157
DEX
L032157 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03216D LDA $1A
AND #$0080
BNE L032177
BRL L0321A3
L032177 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0008
LDX #$0000
TAY
BPL L03218D
DEX
L03218D PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0321A3 LDA $1A
AND #$0020
BNE L0321AD
BRL L0321D9
L0321AD LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0007
LDX #$0000
TAY
BPL L0321C3
DEX
L0321C3 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0321D9 LDA $1A
AND #$0010
BNE L0321E3
BRL L03220F
L0321E3 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0006
LDX #$0000
TAY
BPL L0321F9
DEX
L0321F9 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03220F LDA $1A
AND #$0008
BNE L032219
BRL L032245
L032219 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0005
LDX #$0000
TAY
BPL L03222F
DEX
L03222F PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032245 LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L03225B
DEX
L03225B PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $20
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $29
LDA $27
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $20
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $20
LDA $23
STA $29
LDA $22
STA $28
PLD
TSC
CLC
ADC #$0028
TCS
RTL
L0322C0 ASC 'Text Edit text string.'
L0322D6 ENT
TSC
SEC
SBC #$001C
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
PHA
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2701
PHA
JSL L020419
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
LDX #^L02BBAD
LDA #L02BBAD
PHX
PHA
LDA #$FF01
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
LDX #$0000
TAY
BPL L0323A8
DEX
L0323A8 PHX
PHA
JSL L02C444
JSL L02C5F5
JSL L02C4DA
LDX #^L02BCAD
LDA #L02BCAD
PHX
PHA
LDA #$FF01
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
LDX #$0000
TAY
BPL L0323DA
DEX
L0323DA PHX
PHA
JSL L02C444
JSL L02C5F5
JSL L02C4DA
LDX #^L02B9AD
LDA #L02B9AD
PHX
PHA
LDA #$FF01
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001A
LDA [$00],Y
LDX #$0000
TAY
BPL L03240C
DEX
L03240C PHX
PHA
JSL L02C444
JSL L02C5F5
JSL L02C4DA
JSL L02A6F9
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L03244B
BRL L032477
L03244B LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0014
LDX #$0000
TAY
BPL L032461
DEX
L032461 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032477 LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0011
LDX #$0000
TAY
BPL L03248D
DEX
L03248D PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0010
LDX #$0000
TAY
BPL L0324B9
DEX
L0324B9 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000F
LDX #$0000
TAY
BPL L0324E5
DEX
L0324E5 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000E
LDX #$0000
TAY
BPL L032511
DEX
L032511 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0010
BEQ L032540
BRL L032651
L032540 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0012
LDX #$0000
TAY
BPL L032556
DEX
L032556 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
LDA #$0000
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000F
LDX #$0000
TAY
BPL L032582
DEX
L032582 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDA #$0000
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000E
LDX #$0000
TAY
BPL L0325AE
DEX
L0325AE PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0002
BNE L0325DD
BRL L032609
L0325DD LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000E
LDX #$0000
TAY
BPL L0325F3
DEX
L0325F3 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032609 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0001
BNE L032622
BRL L03264E
L032622 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000F
LDX #$0000
TAY
BPL L032638
DEX
L032638 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03264E BRL L03275F
L032651 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0013
LDX #$0000
TAY
BPL L032667
DEX
L032667 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
LDA #$0000
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0011
LDX #$0000
TAY
BPL L032693
DEX
L032693 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDA #$0000
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0010
LDX #$0000
TAY
BPL L0326BF
DEX
L0326BF PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0004
BNE L0326EE
BRL L03271A
L0326EE LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0011
LDX #$0000
TAY
BPL L032704
DEX
L032704 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03271A LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0008
BNE L032733
BRL L03275F
L032733 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0010
LDX #$0000
TAY
BPL L032749
DEX
L032749 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03275F LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L032775
DEX
L032775 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA $1D
STA $21
LDA $1C
STA $20
PLD
TSC
CLC
ADC #$0020
TCS
RTL
L0327DA ENT
TSC
SEC
SBC #$001C
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
PHA
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2801
PHA
JSL L020419
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
JSL L02AB20
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$FF00
BNE L0328B9
BRL L0328E5
L0328B9 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0010
LDX #$0000
TAY
BPL L0328CF
DEX
L0328CF PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0328E5 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L0328FE
BRL L03292A
L0328FE LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0011
LDX #$0000
TAY
BPL L032914
DEX
L032914 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03292A LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0040
BNE L032943
BRL L03296F
L032943 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000F
LDX #$0000
TAY
BPL L032959
DEX
L032959 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03296F LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0020
BNE L032988
BRL L0329B4
L032988 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000E
LDX #$0000
TAY
BPL L03299E
DEX
L03299E PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0329B4 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0010
BNE L0329CD
BRL L0329F9
L0329CD LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000D
LDX #$0000
TAY
BPL L0329E3
DEX
L0329E3 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0329F9 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0008
BNE L032A12
BRL L032A3E
L032A12 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000C
LDX #$0000
TAY
BPL L032A28
DEX
L032A28 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032A3E LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0004
BNE L032A57
BRL L032A83
L032A57 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000B
LDX #$0000
TAY
BPL L032A6D
DEX
L032A6D PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032A83 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0002
BNE L032A9C
BRL L032AC8
L032A9C LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000A
LDX #$0000
TAY
BPL L032AB2
DEX
L032AB2 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032AC8 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0001
BNE L032AE1
BRL L032B0D
L032AE1 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0009
LDX #$0000
TAY
BPL L032AF7
DEX
L032AF7 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032B0D LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L032B23
DEX
L032B23 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA $1D
STA $21
LDA $1C
STA $20
PLD
TSC
CLC
ADC #$0020
TCS
RTL
L032B88 ENT
TSC
SEC
SBC #$001C
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
PHA
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2901
PHA
JSL L020419
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
JSL L02AF0F
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L032C67
BRL L032C93
L032C67 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0009
LDX #$0000
TAY
BPL L032C7D
DEX
L032C7D PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032C93 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0001
BNE L032CAC
BRL L032CD8
L032CAC LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0004
LDX #$0000
TAY
BPL L032CC2
DEX
L032CC2 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032CD8 LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L032CEE
DEX
L032CEE PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA $1D
STA $21
LDA $1C
STA $20
PLD
TSC
CLC
ADC #$0020
TCS
RTL
L032D53 ENT
TSC
SEC
SBC #$001C
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
PHA
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2A01
PHA
JSL L020419
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
JSL L02B155
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L032E32
BRL L032E5E
L032E32 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$000A
LDX #$0000
TAY
BPL L032E48
DEX
L032E48 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032E5E LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
AND #$0002
BEQ L032E77
BRL L032EA3
L032E77 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0009
LDX #$0000
TAY
BPL L032E8D
DEX
L032E8D PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L032EA3 LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0004
LDX #$0000
TAY
BPL L032EB9
DEX
L032EB9 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
LDA #$00FF
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0003
LDX #$0000
TAY
BPL L032EE5
DEX
L032EE5 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_HiliteControl
STA L02C957
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA $1D
STA $21
LDA $1C
STA $20
PLD
TSC
CLC
ADC #$0020
TCS
RTL
L032F4A ENT
TSC
SEC
SBC #$001C
TCS
PHD
INC
TCD
PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
PHA
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_LoadResource
STA L02C957
PLA
STA $16
PLA
STA $18
LDA L02C957
PHA
LDA #$2B01
PHA
JSL L020419
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDX $18
LDA $16
PHX
PHA
_HLock
STA L02C957
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
TAX
LDY #$0002
LDA [$00],Y
PHX
PHA
LDX #^L02BDAD
LDA #L02BDAD
PHX
PHA
JSL L030000
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0018
LDA [$00],Y
TAX
LDY #$0016
LDA [$00],Y
PHX
PHA
LDX #^L02BAAD
LDA #L02BAAD
PHX
PHA
JSL L030000
JSL L02B3BD
PHA
PHA
_FrontWindow
STA L02C957
PLA
STA L02B9A9
PLA
STA L02B9AB
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0012
LDA [$00],Y
AND #$0080
BNE L033029
BRL L033055
L033029 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0008
LDX #$0000
TAY
BPL L03303F
DEX
L03303F PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L033055 PHA
LDA #$0001
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDX $21
LDA $1F
PHX
PHA
_ReleaseResource
STA L02C957
PHA
LDA $1A
PHA
_SetResourceFileDepth
STA L02C957
PLA
STA $1A
LDA $1D
STA $21
LDA $1C
STA $20
PLD
TSC
CLC
ADC #$0020
TCS
RTL
L0330A4 TSC
SEC
SBC #$0016
TCS
PHD
INC
TCD
LDA #$0000
STA [$19]
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0100
LDX #$0000
TAY
BPL L0330C5
DEX
L0330C5 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L0330E1
BRL L0330F2
L0330E1 PEI $1B
PEI $19
LDA [$19]
ORA #$0100
PLX
STX $00
PLX
STX $02
STA [$00]
L0330F2 PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0200
LDX #$0000
TAY
BPL L033105
DEX
L033105 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L033121
BRL L033132
L033121 PEI $1B
PEI $19
LDA [$19]
ORA #$0200
PLX
STX $00
PLX
STX $02
STA [$00]
L033132 PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0400
LDX #$0000
TAY
BPL L033145
DEX
L033145 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L033161
BRL L033172
L033161 PEI $1B
PEI $19
LDA [$19]
ORA #$0400
PLX
STX $00
PLX
STX $02
STA [$00]
L033172 PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0800
LDX #$0000
TAY
BPL L033185
DEX
L033185 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L0331A1
BRL L0331B2
L0331A1 PEI $1B
PEI $19
LDA [$19]
ORA #$0800
PLX
STX $00
PLX
STX $02
STA [$00]
L0331B2 PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$1000
LDX #$0000
TAY
BPL L0331C5
DEX
L0331C5 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L0331E1
BRL L0331F2
L0331E1 PEI $1B
PEI $19
LDA [$19]
ORA #$1000
PLX
STX $00
PLX
STX $02
STA [$00]
L0331F2 PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$2000
LDX #$0000
TAY
BPL L033205
DEX
L033205 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L033221
BRL L033232
L033221 PEI $1B
PEI $19
LDA [$19]
ORA #$2000
PLX
STX $00
PLX
STX $02
STA [$00]
L033232 LDA $17
STA $1B
LDA $16
STA $1A
PLD
TSC
CLC
ADC #$001A
TCS
RTL
L033242 TSC
SEC
SBC #$0016
TCS
PHD
INC
TCD
LDA #$0000
STA [$19]
PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $0100
PEA $0000
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L033279
BRL L03328A
L033279 PEI $1B
PEI $19
LDA [$19]
ORA #$0100
PLX
STX $00
PLX
STX $02
STA [$00]
L03328A PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $0200
PEA $0000
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L0332B3
BRL L0332C4
L0332B3 PEI $1B
PEI $19
LDA [$19]
ORA #$0200
PLX
STX $00
PLX
STX $02
STA [$00]
L0332C4 PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $0400
PEA $0000
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L0332ED
BRL L0332FE
L0332ED PEI $1B
PEI $19
LDA [$19]
ORA #$0400
PLX
STX $00
PLX
STX $02
STA [$00]
L0332FE PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $0800
PEA $0000
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L033327
BRL L033338
L033327 PEI $1B
PEI $19
LDA [$19]
ORA #$0800
PLX
STX $00
PLX
STX $02
STA [$00]
L033338 PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $1000
PEA $0000
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L033361
BRL L033372
L033361 PEI $1B
PEI $19
LDA [$19]
ORA #$1000
PLX
STX $00
PLX
STX $02
STA [$00]
L033372 PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $2000
PEA $0000
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L03339B
BRL L0333AC
L03339B PEI $1B
PEI $19
LDA [$19]
ORA #$2000
PLX
STX $00
PLX
STX $02
STA [$00]
L0333AC LDA $17
STA $1B
LDA $16
STA $1A
PLD
TSC
CLC
ADC #$001A
TCS
RTL
L0333BC TSC
SEC
SBC #$0018
TCS
PHD
INC
TCD
LDA #$0000
STA $16
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$7013
LDX #$0000
TAY
BPL L0333DD
DEX
L0333DD PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L0333F9
BRL L033401
L0333F9 LDA #$000D
STA $16
BRL L03346C
L033401 PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$7012
LDX #$0000
TAY
BPL L033414
DEX
L033414 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L033430
BRL L033438
L033430 LDA #$001B
STA $16
BRL L03346C
L033438 PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$7016
LDX #$0000
TAY
BPL L03344B
DEX
L03344B PHX
PHA
_GetCtlHandleFromID
STA L02C957
_GetCtlValue
STA L02C957
PLA
BNE L033467
BRL L03346C
L033467 LDA #$007F
STA $16
L03346C PEA $0000
TDC
CLC
ADC #$0016
PHA
PEI $21
PEI $1F
LDA #$0001
LDX #$0000
TAY
BPL L033483
DEX
L033483 PHX
PHA
_BlockMove
STA L02C957
PEA $0000
TDC
CLC
ADC #$0016
PHA
PEI $1D
PEI $1B
LDA #$0001
LDX #$0000
TAY
BPL L0334A6
DEX
L0334A6 PHX
PHA
_BlockMove
STA L02C957
LDA $19
STA $21
LDA $18
STA $20
PLD
TSC
CLC
ADC #$0020
TCS
RTL
L0334C2 ENT
TSC
SEC
SBC #$001A
TCS
PHD
INC
TCD
LDX $1F
LDA $1D
STX $18
STA $16
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0008
SEC
SBC $01,S
PLY
TAY
BEQ L0334F3
BVS L0334F1
EOR #$8000
L0334F1 BMI L0334F6
L0334F3 BRL L03353F
L0334F6 LDA #$0004
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0008
STA [$00]
LDA #$0000
LDX #$0000
TAY
BPL L03351F
DEX
L03351F PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$001E
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L03353F LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0009
SEC
SBC $01,S
PLY
TAY
BEQ L03355F
BVS L03355D
EOR #$8000
L03355D BMI L033562
L03355F BRL L0335AB
L033562 LDA #$0004
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0009
STA [$00]
LDA #$0000
LDX #$0000
TAY
BPL L03358B
DEX
L03358B PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0022
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L0335AB LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000A
SEC
SBC $01,S
PLY
TAY
BEQ L0335CB
BVS L0335C9
EOR #$8000
L0335C9 BMI L0335CE
L0335CB BRL L033602
L0335CE LDA #$0002
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$000A
STA [$00]
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0026
STA $00
STX $02
LDA #$0000
STA [$00]
L033602 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000B
SEC
SBC $01,S
PLY
TAY
BEQ L033622
BVS L033620
EOR #$8000
L033620 BMI L033625
L033622 BRL L033644
L033625 LDA #$0006
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$000B
STA [$00]
L033644 PHA
PHA
PEA $0000
PEA $0000
LDA #$7010
LDX #$0000
TAY
BPL L033656
DEX
L033656 PHX
PHA
_GetCtlHandleFromID
STA L02C957
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
STX L02B9A7
STA L02B9A5
PHA
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LEGetTextHand
STA L02C957
PLA
STA L02B99F
PLA
STA L02B9A1
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LEGetTextLen
STA L02C957
PLA
STA L02B9A3
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0028
STX $08
STA $06
LDA #$0001
SEC
SBC L02B9A3
BEQ L0336D8
BVS L0336D6
EOR #$8000
L0336D6 BMI L0336DB
L0336D8 BRL L0336F0
L0336DB PEI $08
PEI $06
PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
JSL L0333BC
BRL L03378F
L0336F0 PEI $08
PEI $06
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDA [$00]
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
LDA L02B9A3
BMI L033724
DEC
DEC
BPL L033727
L033724 BRL L03375E
L033727 PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$0001
LDA [$00],Y
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
BRL L03378F
L03375E PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDA [$00]
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
L03378F PEI $08
PEI $06
PLA
CLC
ADC #$0002
PHA
JSL L0330A4
PEI $08
PEI $06
PLA
CLC
ADC #$0004
PHA
JSL L033242
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
AND #$2000
BEQ L0337C4
BRL L0337EF
L0337C4 LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0014
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
ORA #$2000
PLX
STX $00
PLX
STX $02
STA [$00]
L0337EF LDA $1B
STA $1F
LDA $1A
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L0337FF ENT
TSC
SEC
SBC #$001A
TCS
PHD
INC
TCD
LDX $1F
LDA $1D
STX $18
STA $16
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0008
SEC
SBC $01,S
PLY
TAY
BEQ L033830
BVS L03382E
EOR #$8000
L03382E BMI L033833
L033830 BRL L03387C
L033833 LDA #$0004
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0008
STA [$00]
LDA #$0000
LDX #$0000
TAY
BPL L03385C
DEX
L03385C PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$001E
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L03387C LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0009
SEC
SBC $01,S
PLY
TAY
BEQ L03389C
BVS L03389A
EOR #$8000
L03389A BMI L03389F
L03389C BRL L0338BE
L03389F LDA #$0006
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0009
STA [$00]
L0338BE PHA
PHA
PEA $0000
PEA $0000
LDA #$7010
LDX #$0000
TAY
BPL L0338D0
DEX
L0338D0 PHX
PHA
_GetCtlHandleFromID
STA L02C957
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
STX L02B9A7
STA L02B9A5
PHA
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LEGetTextHand
STA L02C957
PLA
STA L02B99F
PLA
STA L02B9A1
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LEGetTextLen
STA L02C957
PLA
STA L02B9A3
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0022
STX $08
STA $06
LDA #$0001
SEC
SBC L02B9A3
BEQ L033952
BVS L033950
EOR #$8000
L033950 BMI L033955
L033952 BRL L03396A
L033955 PEI $08
PEI $06
PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
JSL L0333BC
BRL L033A09
L03396A PEI $08
PEI $06
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDA [$00]
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
LDA L02B9A3
BMI L03399E
DEC
DEC
BPL L0339A1
L03399E BRL L0339D8
L0339A1 PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$0001
LDA [$00],Y
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
BRL L033A09
L0339D8 PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDA [$00]
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
L033A09 PEI $08
PEI $06
PLA
CLC
ADC #$0002
PHA
JSL L0330A4
PEI $08
PEI $06
PLA
CLC
ADC #$0004
PHA
JSL L033242
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
AND #$2000
BEQ L033A3E
BRL L033A69
L033A3E LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0014
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
ORA #$2000
PLX
STX $00
PLX
STX $02
STA [$00]
L033A69 LDA $1B
STA $1F
LDA $1A
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L033A79 ENT
TSC
SEC
SBC #$001A
TCS
PHD
INC
TCD
LDX $1F
LDA $1D
STX $18
STA $16
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0009
SEC
SBC $01,S
PLY
TAY
BEQ L033AAA
BVS L033AA8
EOR #$8000
L033AA8 BMI L033AAD
L033AAA BRL L033AF6
L033AAD LDA #$0004
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0009
STA [$00]
LDA #$0000
LDX #$0000
TAY
BPL L033AD6
DEX
L033AD6 PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0020
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L033AF6 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000A
SEC
SBC $01,S
PLY
TAY
BEQ L033B16
BVS L033B14
EOR #$8000
L033B14 BMI L033B19
L033B16 BRL L033B38
L033B19 LDA #$0006
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$000A
STA [$00]
L033B38 PHA
PHA
PEA $0000
PEA $0000
LDA #$7010
LDX #$0000
TAY
BPL L033B4A
DEX
L033B4A PHX
PHA
_GetCtlHandleFromID
STA L02C957
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
STX L02B9A7
STA L02B9A5
PHA
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LEGetTextHand
STA L02C957
PLA
STA L02B99F
PLA
STA L02B9A1
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LEGetTextLen
STA L02C957
PLA
STA L02B9A3
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0024
STX $08
STA $06
LDA #$0001
SEC
SBC L02B9A3
BEQ L033BCC
BVS L033BCA
EOR #$8000
L033BCA BMI L033BCF
L033BCC BRL L033BE4
L033BCF PEI $08
PEI $06
PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
JSL L0333BC
BRL L033C83
L033BE4 PEI $08
PEI $06
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDA [$00]
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
LDA L02B9A3
BMI L033C18
DEC
DEC
BPL L033C1B
L033C18 BRL L033C52
L033C1B PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$0001
LDA [$00],Y
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
BRL L033C83
L033C52 PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDA [$00]
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
L033C83 PEI $08
PEI $06
PLA
CLC
ADC #$0002
PHA
JSL L0330A4
PEI $08
PEI $06
PLA
CLC
ADC #$0004
PHA
JSL L033242
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
AND #$2000
BEQ L033CB8
BRL L033CE3
L033CB8 LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0014
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
ORA #$2000
PLX
STX $00
PLX
STX $02
STA [$00]
L033CE3 LDA $1B
STA $1F
LDA $1A
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L033CF3 ENT
TSC
SEC
SBC #$001A
TCS
PHD
INC
TCD
LDX $1F
LDA $1D
STX $18
STA $16
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$0009
SEC
SBC $01,S
PLY
TAY
BEQ L033D24
BVS L033D22
EOR #$8000
L033D22 BMI L033D27
L033D24 BRL L033D70
L033D27 LDA #$0004
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$0009
STA [$00]
LDA #$0000
LDX #$0000
TAY
BPL L033D50
DEX
L033D50 PHX
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0020
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L033D70 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
PHA
LDA #$000A
SEC
SBC $01,S
PLY
TAY
BEQ L033D90
BVS L033D8E
EOR #$8000
L033D8E BMI L033D93
L033D90 BRL L033DB2
L033D93 LDA #$0006
PHA
LDX $1F
LDA $1D
PHX
PHA
JSL L0304A7
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA #$000A
STA [$00]
L033DB2 PHA
PHA
PEA $0000
PEA $0000
LDA #$7010
LDX #$0000
TAY
BPL L033DC4
DEX
L033DC4 PHX
PHA
_GetCtlHandleFromID
STA L02C957
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
STX L02B9A7
STA L02B9A5
PHA
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LEGetTextHand
STA L02C957
PLA
STA L02B99F
PLA
STA L02B9A1
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LEGetTextLen
STA L02C957
PLA
STA L02B9A3
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0024
STX $08
STA $06
LDA #$0001
SEC
SBC L02B9A3
BEQ L033E46
BVS L033E44
EOR #$8000
L033E44 BMI L033E49
L033E46 BRL L033E5E
L033E49 PEI $08
PEI $06
PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
JSL L0333BC
BRL L033EFD
L033E5E PEI $08
PEI $06
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDA [$00]
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
LDA L02B9A3
BMI L033E92
DEC
DEC
BPL L033E95
L033E92 BRL L033ECC
L033E95 PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$0001
LDA [$00],Y
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
BRL L033EFD
L033ECC PEI $08
PEI $06
PLA
CLC
ADC #$0001
PHA
LDX L02B9A1
LDA L02B99F
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDA [$00]
AND #$00FF
PLX
STX $00
PLX
STX $02
SEP #$20
STA [$00]
REP #$20
L033EFD PEI $08
PEI $06
PLA
CLC
ADC #$0002
PHA
JSL L0330A4
PEI $08
PEI $06
PLA
CLC
ADC #$0004
PHA
JSL L033242
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
AND #$2000
BEQ L033F32
BRL L033F5D
L033F32 LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
PLA
CLC
ADC #$0014
PHA
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDY #$0014
LDA [$00],Y
ORA #$2000
PLX
STX $00
PLX
STX $02
STA [$00]
L033F5D LDA $1B
STA $1F
LDA $1A
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L033F6D TSC
SEC
SBC #$0020
TCS
PHD
INC
TCD
LDA #$0000
STA $16
LDA #$0001
TAX
SEP #$20
LDA #$00
STA L02BEAD,X
REP #$20
PHA
PHA
PEA $0000
PEA $0000
LDA #$7010
LDX #$0000
TAY
BPL L033F9A
DEX
L033F9A PHX
PHA
_GetCtlHandleFromID
STA L02C957
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$001E
LDA [$00],Y
TAX
LDY #$001C
LDA [$00],Y
STX L02B9A7
STA L02B9A5
LDA #$0001
TAX
TXA
CLC
ADC #L02BEAD
PEA ^L02BEAD
PHA
LDA $16
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LESetText
STA L02C957
LDA $25
LDX #$0000
CMP #$000D
BNE L033FF6
INX
L033FF6 TXA
PHA
LDA $23
LDX #$0000
CMP #$000D
BNE L034003
INX
L034003 TXA
ORA $01,S
PLX
TAX
BNE L03400D
BRL L03403C
L03400D LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$7013
LDX #$0000
TAY
BPL L034023
DEX
L034023 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
BRL L034181
L03403C LDA $25
LDX #$0000
CMP #$001B
BNE L034047
INX
L034047 TXA
PHA
LDA $23
LDX #$0000
CMP #$001B
BNE L034054
INX
L034054 TXA
ORA $01,S
PLX
TAX
BNE L03405E
BRL L03408D
L03405E LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$7012
LDX #$0000
TAY
BPL L034074
DEX
L034074 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
BRL L034181
L03408D LDA $25
LDX #$0000
CMP #$007F
BNE L034098
INX
L034098 TXA
PHA
LDA $23
LDX #$0000
CMP #$007F
BNE L0340A5
INX
L0340A5 TXA
ORA $01,S
PLX
TAX
BNE L0340AF
BRL L0340DE
L0340AF LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$7016
LDX #$0000
TAY
BPL L0340C5
DEX
L0340C5 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
BRL L034181
L0340DE LDA $25
LDX #$0001
SEC
SBC #$0020
BVS L0340EC
EOR #$8000
L0340EC BMI L0340EF
DEX
L0340EF TXA
PHA
LDA #$007E
LDX #$0001
SEC
SBC $25
BVS L0340FF
EOR #$8000
L0340FF BMI L034102
DEX
L034102 TXA
AND $01,S
PLX
TAX
BNE L03410C
BRL L03411D
L03410C LDA #$0001
STA $16
LDA $16
TAX
SEP #$20
LDA $25
STA L02BEAD,X
REP #$20
L03411D LDA $23
LDX #$0001
SEC
SBC #$0020
BVS L03412B
EOR #$8000
L03412B BMI L03412E
DEX
L03412E TXA
PHA
LDA #$007E
LDX #$0001
SEC
SBC $23
BVS L03413E
EOR #$8000
L03413E BMI L034141
DEX
L034141 TXA
AND $01,S
PLX
TAX
BNE L03414B
BRL L03415F
L03414B LDA $16
CLC
ADC #$0001
STA $16
LDA $16
TAX
SEP #$20
LDA $23
STA L02BEAD,X
REP #$20
L03415F LDA #$0001
TAX
TXA
CLC
ADC #L02BEAD
PEA ^L02BEAD
PHA
LDA $16
PHA
LDX L02B9A7
LDA L02B9A5
PHX
PHA
_LESetText
STA L02C957
L034181 PEA $0000
TDC
CLC
ADC #$0018
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$7010
LDX #$0000
TAY
BPL L03419C
DEX
L03419C PHX
PHA
_GetCtlHandleFromID
STA L02C957
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
PHA
LDA [$00]
PHA
PLA
CLC
ADC #$0008
PHA
PEA $0008
JSL L02C5AB
PEA $0000
TDC
CLC
ADC #$0018
PHA
_InvalRect
STA L02C957
LDA $21
STA $25
LDA $20
STA $24
PLD
TSC
CLC
ADC #$0024
TCS
RTL
L0341E7 TSC
SEC
SBC #$0016
TCS
PHD
INC
TCD
LDA $19
AND #$0100
BNE L0341FA
BRL L034226
L0341FA LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0100
LDX #$0000
TAY
BPL L034210
DEX
L034210 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L034226 LDA $19
AND #$0200
BNE L034230
BRL L03425C
L034230 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0200
LDX #$0000
TAY
BPL L034246
DEX
L034246 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03425C LDA $19
AND #$0400
BNE L034266
BRL L034292
L034266 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0400
LDX #$0000
TAY
BPL L03427C
DEX
L03427C PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L034292 LDA $19
AND #$0800
BNE L03429C
BRL L0342C8
L03429C LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$0800
LDX #$0000
TAY
BPL L0342B2
DEX
L0342B2 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0342C8 LDA $19
AND #$1000
BNE L0342D2
BRL L0342FE
L0342D2 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$1000
LDX #$0000
TAY
BPL L0342E8
DEX
L0342E8 PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0342FE LDA $19
AND #$2000
BNE L034308
BRL L034334
L034308 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
LDA #$2000
LDX #$0000
TAY
BPL L03431E
DEX
L03431E PHX
PHA
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L034334 LDA $17
STA $19
LDA $16
STA $18
PLD
TSC
CLC
ADC #$0018
TCS
RTL
L034344 TSC
SEC
SBC #$0016
TCS
PHD
INC
TCD
LDA $19
AND #$0100
BNE L034357
BRL L03437D
L034357 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $0100
PEA $0000
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03437D LDA $19
AND #$0200
BNE L034387
BRL L0343AD
L034387 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $0200
PEA $0000
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0343AD LDA $19
AND #$0400
BNE L0343B7
BRL L0343DD
L0343B7 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $0400
PEA $0000
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L0343DD LDA $19
AND #$0800
BNE L0343E7
BRL L03440D
L0343E7 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $0800
PEA $0000
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03440D LDA $19
AND #$1000
BNE L034417
BRL L03443D
L034417 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $1000
PEA $0000
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03443D LDA $19
AND #$2000
BNE L034447
BRL L03446D
L034447 LDA #$0001
PHA
PHA
PHA
PEA $0000
PEA $0000
PEA $2000
PEA $0000
_GetCtlHandleFromID
STA L02C957
_SetCtlValue
STA L02C957
L03446D LDA $17
STA $19
LDA $16
STA $18
PLD
TSC
CLC
ADC #$0018
TCS
RTL
L03447D ENT
TSC
SEC
SBC #$001A
TCS
PHD
INC
TCD
LDX $1F
LDA $1D
STX $18
STA $16
LDX #^L02BEAD
LDA #L02BEAD
PHX
PHA
LDA #$FF01
PHA
PEA ^L03447D
PEA L03447D
LDA #$0000
PHA
JSL L02C5F5
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
CMP #$000B
BEQ L0344BE
BRL L034533
L0344BE LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0028
STX $08
STA $06
LDA #$0000
TAX
SEP #$20
LDA #$02
STA L02BEAD,X
REP #$20
PEI $08
PEI $06
LDA #$0001
TAX
TXA
CLC
ADC #L02BEAD
PEA ^L02BEAD
PHA
LDA #$0002
LDX #$0000
TAY
BPL L0344F6
DEX
L0344F6 PHX
PHA
_BlockMove
STA L02C957
LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
LDA #$0002
TAX
LDA L02BEAD,X
AND #$00FF
PHA
JSL L033F6D
LDY #$0002
LDA [$06],Y
PHA
JSL L0341E7
LDY #$0004
LDA [$06],Y
PHA
JSL L034344
BRL L03454D
L034533 LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
JSL L033F6D
L03454D LDA $1B
STA $1F
LDA $1A
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L03455D ENT
TSC
SEC
SBC #$001A
TCS
PHD
INC
TCD
LDX $1F
LDA $1D
STX $18
STA $16
LDX #^L02BEAD
LDA #L02BEAD
PHX
PHA
LDA #$FF01
PHA
PEA ^L03455D
PEA L03455D
LDA #$0000
PHA
JSL L02C5F5
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
CMP #$0009
BEQ L03459E
BRL L034613
L03459E LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0022
STX $08
STA $06
LDA #$0000
TAX
SEP #$20
LDA #$02
STA L02BEAD,X
REP #$20
PEI $08
PEI $06
LDA #$0001
TAX
TXA
CLC
ADC #L02BEAD
PEA ^L02BEAD
PHA
LDA #$0002
LDX #$0000
TAY
BPL L0345D6
DEX
L0345D6 PHX
PHA
_BlockMove
STA L02C957
LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
LDA #$0002
TAX
LDA L02BEAD,X
AND #$00FF
PHA
JSL L033F6D
LDY #$0002
LDA [$06],Y
PHA
JSL L0341E7
LDY #$0004
LDA [$06],Y
PHA
JSL L034344
BRL L03462D
L034613 LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
JSL L033F6D
L03462D LDA $1B
STA $1F
LDA $1A
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L03463D ENT
TSC
SEC
SBC #$001A
TCS
PHD
INC
TCD
LDX $1F
LDA $1D
STX $18
STA $16
LDX #^L02BEAD
LDA #L02BEAD
PHX
PHA
LDA #$FF01
PHA
PEA ^L03463D
PEA L03463D
LDA #$0000
PHA
JSL L02C5F5
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
CMP #$000A
BEQ L03467E
BRL L0346F3
L03467E LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0024
STX $08
STA $06
LDA #$0000
TAX
SEP #$20
LDA #$02
STA L02BEAD,X
REP #$20
PEI $08
PEI $06
LDA #$0001
TAX
TXA
CLC
ADC #L02BEAD
PEA ^L02BEAD
PHA
LDA #$0002
LDX #$0000
TAY
BPL L0346B6
DEX
L0346B6 PHX
PHA
_BlockMove
STA L02C957
LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
LDA #$0002
TAX
LDA L02BEAD,X
AND #$00FF
PHA
JSL L033F6D
LDY #$0002
LDA [$06],Y
PHA
JSL L0341E7
LDY #$0004
LDA [$06],Y
PHA
JSL L034344
BRL L03470D
L0346F3 LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
JSL L033F6D
L03470D LDA $1B
STA $1F
LDA $1A
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L03471D ENT
TSC
SEC
SBC #$001A
TCS
PHD
INC
TCD
LDX $1F
LDA $1D
STX $18
STA $16
LDX #^L02BEAD
LDA #L02BEAD
PHX
PHA
LDA #$FF01
PHA
PEA ^L03471D
PEA L03471D
LDA #$0000
PHA
JSL L02C5F5
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $00
STX $02
LDA [$00]
CMP #$000A
BEQ L03475E
BRL L0347D3
L03475E LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0024
STX $08
STA $06
LDA #$0000
TAX
SEP #$20
LDA #$02
STA L02BEAD,X
REP #$20
PEI $08
PEI $06
LDA #$0001
TAX
TXA
CLC
ADC #L02BEAD
PEA ^L02BEAD
PHA
LDA #$0002
LDX #$0000
TAY
BPL L034796
DEX
L034796 PHX
PHA
_BlockMove
STA L02C957
LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
LDA #$0002
TAX
LDA L02BEAD,X
AND #$00FF
PHA
JSL L033F6D
LDY #$0002
LDA [$06],Y
PHA
JSL L0341E7
LDY #$0004
LDA [$06],Y
PHA
JSL L034344
BRL L0347ED
L0347D3 LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
LDA #$0001
TAX
LDA L02BEAD,X
AND #$00FF
PHA
JSL L033F6D
L0347ED LDA $1B
STA $1F
LDA $1A
STA $1E
PLD
TSC
CLC
ADC #$001E
TCS
RTL
Reference in New Issue View Git Blame Copy Permalink