Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-01-08 13:29:45 +00:00
Code Issues Projects Releases Wiki Activity
12d54f6ff9
antoine-source/genesys/edit/WINCONTROL.S
Antoine Vignau 06387a6671 resync of v1.3.5 
Just a resync of the files
2021-02-22 17:58:14 +01:00

6744 lines
121 KiB
ArmAsm
Raw Blame History

*
* Genesys v1.2.4
* Window editor
*
mx %00
rel
lst off
*----------------------------
use 4/Ctl.Macs
use 4/Int.Macs
use 4/Mem.Macs
use 4/QD.Macs
use 4/Resource.Macs
use 4/Util.Macs
use 4/Window.Macs
*----------------------------
EXT L014B1E
EXT L014E87
EXT L020000
EXT L020E29
EXT L0206AF
EXT L0103D4
EXT L0208DC
EXT L0153AF
EXT L0146C2
EXT L0146C0
EXT L0146B4
EXT L0146B8
EXT L0146B6
EXT L0146BE
EXT L0146BA
EXT L0146BC
EXT L0153FB
*----------------------------
L040000 ENT
TSC
SEC
SBC #$0016
TCS
PHD
INC
TCD
LDX $1B
LDA $19
STX L0146C2
STA L0146C0
LDA $17
STA $1B
LDA $16
STA $1A
PLD
TSC
CLC
ADC #$001A
TCS
RTL
L040023 TSC
SEC
SBC #$001E
TCS
PHD
INC
TCD
PHB
PHB
PLA
STA $06
PEA >L0146B4
PLB
PLB
PEA $0000
TDC
CLC
ADC #$0016
PHA
PEA ^L0146B8
PEA L0146B8
PEA $0008
JSL L014B1E
LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
BNE L04006F
BRL L040082
L04006F LDA $16
SEC
SBC #$0006
STA $16
LDA $18
SEC
SBC #$000E
STA $18
BRL L040108
L040082 LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L0400A5
BRL L0400AD
L0400A5 LDA $16
SEC
SBC #$000C
STA $16
L0400AD LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L0400D0
BRL L0400F8
L0400D0 LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
PHA
LDA $16
SEC
SBC $01,S
PLX
CLC
ADC #$0001
STA $16
L0400F8 LDA $16
SEC
SBC #$0002
STA $16
LDA $18
SEC
SBC #$0004
STA $18
L040108 LDA $18
PHA
LDA $16
PHA
LDX L0146C2
LDA L0146C0
PHX
PHA
JSL L0103D4
LDA $06
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L040127 TSC
SEC
SBC #$0016
TCS
PHD
INC
TCD
PHB
PHB
PLA
STA $06
PEA >L0146B4
PLB
PLB
LDA L0146BE
SEC
SBC L0146BA
PHA
LDA L0146BC
SEC
SBC L0146B8
PHA
LDX L0146C2
LDA L0146C0
PHX
PHA
JSL L0103D4
LDA $06
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$0016
TCS
RTL
L040163 TSC
SEC
SBC #$001E
TCS
PHD
INC
TCD
PHB
PHB
PLA
STA $06
PEA >L0146B4
PLB
PLB
PEA $0000
TDC
CLC
ADC #$0016
PHA
PEA ^L0146B8
PEA L0146B8
PEA $0008
JSL L014B1E
LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
BNE L0401AF
BRL L0401CD
L0401AF PEA $0000
TDC
CLC
ADC #$0016
PHA
LDA #$000E
PHA
LDA #$0006
PHA
_InsetRect
STA L014E87
BRL L04025E
L0401CD PEA $0000
TDC
CLC
ADC #$0016
PHA
LDA #$0004
PHA
LDA #$0002
PHA
_InsetRect
STA L014E87
LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L04020B
BRL L040213
L04020B LDA $16
CLC
ADC #$000D
STA $16
L040213 LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L040236
BRL L04025E
L040236 LDA #$0001
PHA
LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
CLC
ADC $16
SEC
SBC $01,S
PLX
STA $16
L04025E LDA $18
PHA
LDA $16
PHA
LDX L0146C2
LDA L0146C0
PHX
PHA
JSL L0103D4
LDA $06
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L04027D TSC
SEC
SBC #$001E
TCS
PHD
INC
TCD
PHB
PHB
PLA
STA $06
PEA >L0146B4
PLB
PLB
PEA $0000
TDC
CLC
ADC #$0016
PHA
PEA ^L0146B8
PEA L0146B8
PEA $0008
JSL L014B1E
LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
BNE L0402C9
BRL L0402E7
L0402C9 PEA $0000
TDC
CLC
ADC #$0016
PHA
LDA #$000E
PHA
LDA #$0006
PHA
_InsetRect
STA L014E87
BRL L040378
L0402E7 PEA $0000
TDC
CLC
ADC #$0016
PHA
LDA #$0004
PHA
LDA #$0002
PHA
_InsetRect
STA L014E87
LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L040325
BRL L04032D
L040325 LDA $16
CLC
ADC #$000D
STA $16
L04032D LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L040350
BRL L040378
L040350 LDA #$0001
PHA
LDX L0146B6
LDA L0146B4
STA $00
STX $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
CLC
ADC $16
SEC
SBC $01,S
PLX
STA $16
L040378 LDA $1C
SEC
SBC $18
STA $18
LDA $1A
SEC
SBC $16
STA $16
LDA $18
PHA
LDA $16
PHA
LDX L0146C2
LDA L0146C0
PHX
PHA
JSL L0103D4
LDA $06
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$001E
TCS
RTL
L0403A5 ENT
TSC
SEC
SBC #$004C
TCS
PHD
INC
TCD
PEA $0000
TDC
CLC
ADC #$0016
PHA
PEI $59
PEI $57
PEA $0004
JSL L014B1E
LDX $51
LDA $4F
STX L0146B6
STA L0146B4
PHA
PHA
_GetPort
PLA
STA $46
PLA
STA $48
LDx #$0000
* TAX
* SEP #$20
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$0001
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0002
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$0003
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0004
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0005
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$0006
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0007
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$0008
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0009
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$000A
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$000B
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$000C
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$000D
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$000E
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$000F
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0010
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$0011
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0012
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$0013
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0014
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0015
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$0016
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0017
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$0018
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0019
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$001A
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$001B
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$001C
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$001D
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$001E
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$001F
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
REP #$20
PEA $0000
TDC
CLC
ADC #$003A
PHA
* LDA #$7D00
* EOR #$FFFF ; 82FF
* INC ; 8300
* PHA
pea $8300
* LDA #$7D00
* EOR #$FFFF
* INC
* PHA
pea $8300
pea $7D00
pea $7D00
_SetRect
LDX #^L0146B8
LDA #L0146B8
PHX
PHA
_GetPortRect
LDX #^L0146B8
LDA #L0146B8
PHX
PHA
_LocalToGlobal
LDX #^L0146BC
LDA #L0146BC
PHX
PHA
_LocalToGlobal
PHA
PHA
_GetWMgrPort
_SetPort
PHA
_GetArcRot
PLA
STA $4A
ORA #$8000
PHA
_SetArcRot
PHA
PHA
LDX #^L040163
LDA #L040163
PHX
PHA
PEA $0000
TDC
CLC
ADC #$001A
PHA
pei $18
pei $16
LDX #^L0146B8
LDA #L0146B8
PHX
PHA
PEA $0000
TDC
CLC
ADC #$003A
PHA
PEA $0000
TDC
CLC
ADC #$003A
PHA
pea $0220
_DragRect
PLA
STA $42
PLA
STA $44
pei $4A
_SetArcRot
pei $48
pei $46
_SetPort
LDA L0146BA
PHA
LDA L0146B8
PHA
pei $55
pei $53
_MoveWindow
LDA $4D
STA $59
LDA $4C
STA $58
PLD
TSC
CLC
ADC #$0058
TCS
RTL
L04067F ENT
TSC
SEC
SBC #$0054
TCS
PHD
INC
TCD
PEA $0000
TDC
CLC
ADC #$0016
PHA
PEI $61
PEI $5F
PEA $0004
JSL L014B1E
LDX $59
LDA $57
STX L0146B6
STA L0146B4
PHA
PHA
_GetPort
* STA L014E87
PLA
STA $4E
PLA
STA $50
LDx #$0000
* TAX
SEP #$20
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$0001
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0002
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$0003
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0004
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0005
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$0006
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0007
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$0008
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0009
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$000A
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$000B
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$000C
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$000D
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$000E
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$000F
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0010
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$0011
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0012
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$0013
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0014
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0015
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$0016
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$0017
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$0018
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$0019
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$001A
* TAX
* SEP #$20
inx
LDA #$00
STA $1A,X
* REP #$20
* LDA #$001B
* TAX
* SEP #$20
inx
LDA #$BB
STA $1A,X
* REP #$20
* LDA #$001C
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$001D
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
* REP #$20
* LDA #$001E
* TAX
* SEP #$20
inx
LDA #$0B
STA $1A,X
* REP #$20
* LDA #$001F
* TAX
* SEP #$20
inx
LDA #$B0
STA $1A,X
REP #$20
LDX #^L0146B8
LDA #L0146B8
PHX
PHA
_GetPortRect
LDX #^L0146B8
LDA #L0146B8
PHX
PHA
_LocalToGlobal
LDX #^L0146BC
LDA #L0146BC
PHX
PHA
_LocalToGlobal
PEA $0000
TDC
CLC
ADC #$003A
PHA
* LDA #$7530
* EOR #$FFFF ; 8ACF
* INC ; 8AD0
* PHA
pea $8ad0
* LDA #$7530
* EOR #$FFFF
* INC
* PHA
pea $8ad0
pea $7530
pea $7530
_SetRect
PHA
PHA
_GetWMgrPort
_SetPort
PHA
_GetArcRot
PLA
STA $52
ORA #$8000
PHA
_SetArcRot
PHA
PHA
LDX #^L04027D
LDA #L04027D
PHX
PHA
PEA $0000
TDC
CLC
ADC #$001A
PHA
pei $18
pei $16
LDX #^L0146B8
LDA #L0146B8
PHX
PHA
PEA $0000
TDC
CLC
ADC #$003A
PHA
PEA $0000
TDC
CLC
ADC #$003A
PHA
pea $0234
_DragRect
PLA
STA $4A
PLA
STA $4C
pei $52
_SetArcRot
pei $50
pei $4E
_SetPort
LDA L0146BE
SEC
SBC L0146BA
PHA
LDA #$0020
SEC
SBC $01,S
PLY
TAY
BEQ L04094A
BVS L040948
EOR #$8000
L040948 BMI L04094D
L04094A BRL L040957
L04094D LDA L0146BA
CLC
ADC #$0020
STA L0146BE
L040957 LDA L0146BC
SEC
SBC L0146B8
PHA
LDA #$000E
SEC
SBC $01,S
PLY
TAY
BEQ L040970
BVS L04096E
EOR #$8000
L04096E BMI L040973
L040970 BRL L04097D
L040973 LDA L0146B8
CLC
ADC #$000E
STA L0146BC
L04097D LDA L0146BE
SEC
SBC L0146BA
PHA
LDA L0146BC
SEC
SBC L0146B8
PHA
pei $5D
pei $5B
_SizeWindow
LDA $55
STA $61
LDA $54
STA $60
PLD
TSC
CLC
ADC #$0060
TCS
RTL
*--- Move control
L0409AD ENT
TSC
SEC
SBC #$0024
TCS
PHD
INC
TCD
* LDA #$0000
stz $16
* LDA #$0000
stz $18
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
* BNE L0409D9
* BRL L0409E6
beq L0409E6
L0409D9 LDA #$000E
STA $18
LDA #$0006
STA $16
bra L040A48
L0409E6 LDA #$0004
STA $18
LDA #$0002
STA $16
* LDY #$0002
* LDA [$27],Y
* TAX
* LDA [$27]
* STA $00
* STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
* BNE L040A09
* BRL L040A11
beq L040A11
L040A09 LDA $16
CLC
ADC #$000C
STA $16
L040A11
* LDY #$0002
* LDA [$27],Y
* TAX
* LDA [$27]
* STA $00
* STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
* BNE L040A2A
* BRL L040A48
beq L040A48
L040A2A
* LDA #$0001
* PHA
* LDY #$0002
* LDA [$27],Y
* TAX
* LDA [$27]
* STA $00
* STX $02
LDY #$003C
LDA [$00],Y
CLC
ADC $16
SEC
* SBC $01,S
sbc #$0001
* PLX
STA $16
L040A48 PEA $0000
TDC
CLC
ADC #$001A
PHA
LDY #$0002
LDA [$2B],Y
PHA
LDA [$2B]
PHA
PLA
CLC
ADC #$0008
PHA
PEA $0008
JSL L014B1E
PHA
_GetArcRot
* STA L014E87
PLA
STA $22
* LDA $22
AND #$8000
* BNE L040A7F
* BRL L040A8F
beq L040A8F
L040A7F LDA $22
EOR #$8000
PHA
_SetArcRot
* STA L014E87
L040A8F LDY #$0002
LDA [$2B],Y
TAX
LDA [$2B]
STA $00
STX $02
LDY #$000A
LDA [$00],Y
CLC
ADC $18
PHA
* LDY #$0002
* LDA [$2B],Y
* TAX
* LDA [$2B]
* STA $00
* STX $02
ldal $e12000
inc
stal $e12000
LDY #$0008
LDA [$00],Y
CLC
ADC $16
PHA
pei $2D
pei $2B
* PHX
* PHA
_MoveControl
* STA L014E87
PHA
* LDY #$0002
* LDA [$2B],Y
* TAX
* LDA [$2B]
* STA $00
* STX $02
LDY #$0016
LDA [$00],Y
* TAX
pha
LDY #$0014
LDA [$00],Y
* PHX
PHA
_HiWord
* STA L014E87
PLA
CMP #$8900
* BEQ L040AF6
* BRL L040B45
bne L040B45
*L040AF6 LDA #$0002
* PHA
* LDY #$0002
* LDA [$2B],Y
* TAX
* LDA [$2B]
* STA $00
* STX $02
LDY #$000E
LDA [$00],Y
* SEC
* SBC $01,S
sbc #$0002
* PLX
PHA
* LDY #$0002
* LDA [$2B],Y
* TAX
* LDA [$2B]
* STA $00
* STX $02
LDY #$0008
LDA [$00],Y
PHA
* LDY #$0002
* LDA [$2B],Y
* TAX
* LDA [$2B]
* STA $00
* STX $02
LDY #$0036
LDA [$00],Y
TAX
pha
LDY #$0034
LDA [$00],Y
* PHX
PHA
_MoveControl
* STA L014E87
L040B45 pei $2D
pei $2B
* PHX
* PHA
_ShowControl
* STA L014E87
pei $22
* PHA
_SetArcRot
* STA L014E87
LDA $25
STA $2D
LDA $24
STA $2C
PLD
TSC
CLC
ADC #$002C
TCS
RTL
L040B72 ENT
TSC
SEC
SBC #$0040
TCS
PHD
INC
TCD
PHA
_GetArcRot
STA L014E87
PLA
STA $24
LDA $24
AND #$8000
BNE L040B93
BRL L040BA3
L040B93 LDA $24
EOR #$8000
PHA
_SetArcRot
STA L014E87
L040BA3 PEA $0000
TDC
CLC
ADC #$0030
PHA
_GetPortRect
STA L014E87
PEA $0000
TDC
CLC
ADC #$0028
PHA
_GetPortRect
STA L014E87
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
BNE L040BE2
BRL L040C00
L040BE2 PEA $0000
TDC
CLC
ADC #$0030
PHA
LDA #$000E
PHA
LDA #$0006
PHA
_InsetRect
STA L014E87
BRL L040C7B
L040C00 PEA $0000
TDC
CLC
ADC #$0030
PHA
LDA #$0004
PHA
LDA #$0002
PHA
_InsetRect
STA L014E87
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L040C34
BRL L040C44
L040C34 LDA #$0001
PHA
LDA $30
CLC
ADC #$000D
SEC
SBC $01,S
PLX
STA $30
L040C44 LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L040C5D
BRL L040C7B
L040C5D LDA #$0001
PHA
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
CLC
ADC $30
SEC
SBC $01,S
PLX
STA $30
L040C7B PEA $0000
TDC
CLC
ADC #$0030
PHA
_SetPortRect
STA L014E87
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0009
LDX #$0000
CMP #$0000
BNE L040CAB
INX
L040CAB TXA
PHA
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0002
LDX #$0000
CMP #$0000
BNE L040CCA
INX
L040CCA TXA
AND $01,S
PLX
TAX
BNE L040CD4
BRL L040CD7
L040CD4 BRL L04113F
L040CD7 LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0002
BNE L040CF0
BRL L040E7E
L040CF0 PHA
PHA
LDA #$8004
PHA
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $3C
PLA
STA $3E
LDA #$8004
PHA
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_DetachResource
STA L014E87
LDY #$0002
LDA [$3C],Y
TAX
LDA [$3C]
STA $00
STX $02
LDY #$0010
LDA [$00],Y
PHA
LDY #$000E
LDA [$00],Y
PHA
LDA #$0000
LDX #$8500
LDY #$0001
CMP $01,S
BEQ L040D6C
DEY
L040D6C TXA
CMP $03,S
BEQ L040D74
LDY #$0000
L040D74 PLA
PLA
TYA
BNE L040D7C
BRL L040E04
L040D7C LDY #$0002
LDA [$3C],Y
TAX
LDA [$3C]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
PHA
LDY #$001A
LDA [$00],Y
PHA
PLA
AND #$0000
PHA
LDA $03,S
AND #$0010
STA $03,S
LDA #$0000
LDX #$0000
TAY
BPL L040DAA
DEX
L040DAA LDY #$0001
CMP $01,S
BEQ L040DB2
DEY
L040DB2 TXA
CMP $03,S
BEQ L040DBA
LDY #$0000
L040DBA PLA
PLA
TYA
BNE L040DC2
BRL L040E04
L040DC2 LDY #$0002
LDA [$3C],Y
TAX
LDA [$3C]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
PHA
LDY #$001A
LDA [$00],Y
PHA
PLA
ORA #$0000
PHA
LDA $03,S
ORA #$0010
STA $03,S
LDY #$0002
LDA [$3C],Y
PHA
LDA [$3C]
PHA
PLA
CLC
ADC #$001A
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L040E04 PHA
PHA
LDX $49
LDA $47
PHX
PHA
LDA #$0001
PHA
LDX $3E
LDA $3C
PHX
PHA
_NewControl2
STA L014E87
PLA
STA $20
PLA
STA $22
LDA L014E87
PHA
LDA #$1003
PHA
JSL L020000
LDX $22
LDA $20
PHX
PHA
_HideControl
STA L014E87
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
LDX $22
LDA $20
PHX
PHA
_SetCtlRefCon
STA L014E87
LDX $22
LDA $20
PHX
PHA
LDX $45
LDA $43
PHX
PHA
ldal $e120c0
inc
stal $e120c0
JSL L0409AD
BRL L04113F
L040E7E LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0009
BNE L040E97
BRL L04113F
L040E97 PHA
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $16
PLA
STA $18
LDA L014E87
PHA
LDA #$1006
PHA
JSL L020000
LDX $18
LDA $16
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1007
PHA
JSL L020000
PHA
PHA
LDX $18
LDA $16
PHX
PHA
_GetHandleSize
STA L014E87
PLA
STA $1A
PLA
STA $1C
LDA L014E87
PHA
LDA #$1008
PHA
JSL L020000
LDA #$0001
PHA
PHA
LDX $1C
LDA $1A
PHX
PHA
_LoWord
STA L014E87
PLA
LDX #$0004
JSL L0153AF
SEC
SBC $01,S
PLX
STA $1E
LDA $1E
STA $06
LDA #$0001
STA $26
LDA $06
SEC
SBC $26
BVS L040F48
EOR #$8000
L040F48 BMI L040F4D
BRL L041104
L040F4D PHA
PHA
LDA #$8004
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
LDA $26
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $3C
PLA
STA $3E
LDA #$8004
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
LDA $26
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
PHX
PHA
_DetachResource
STA L014E87
LDY #$0002
LDA [$3C],Y
TAX
LDA [$3C]
STA $00
STX $02
LDY #$0010
LDA [$00],Y
PHA
LDY #$000E
LDA [$00],Y
PHA
LDA #$0000
LDX #$8500
LDY #$0001
CMP $01,S
BEQ L040FDD
DEY
L040FDD TXA
CMP $03,S
BEQ L040FE5
LDY #$0000
L040FE5 PLA
PLA
TYA
BNE L040FED
BRL L041075
L040FED LDY #$0002
LDA [$3C],Y
TAX
LDA [$3C]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
PHA
LDY #$001A
LDA [$00],Y
PHA
PLA
AND #$0000
PHA
LDA $03,S
AND #$0010
STA $03,S
LDA #$0000
LDX #$0000
TAY
BPL L04101B
DEX
L04101B LDY #$0001
CMP $01,S
BEQ L041023
DEY
L041023 TXA
CMP $03,S
BEQ L04102B
LDY #$0000
L04102B PLA
PLA
TYA
BNE L041033
BRL L041075
L041033 LDY #$0002
LDA [$3C],Y
TAX
LDA [$3C]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
PHA
LDY #$001A
LDA [$00],Y
PHA
PLA
ORA #$0000
PHA
LDA $03,S
ORA #$0010
STA $03,S
LDY #$0002
LDA [$3C],Y
PHA
LDA [$3C]
PHA
PLA
CLC
ADC #$001A
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L041075 PHA
PHA
LDX $49
LDA $47
PHX
PHA
LDA #$0001
PHA
LDX $3E
LDA $3C
PHX
PHA
_NewControl2
STA L014E87
PLA
STA $20
PLA
STA $22
LDA L014E87
PHA
LDA #$1009
PHA
JSL L020000
LDX $22
LDA $20
PHX
PHA
_HideControl
STA L014E87
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
LDA $26
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
PHX
PHA
LDX $22
LDA $20
PHX
PHA
_SetCtlRefCon
STA L014E87
LDX $22
LDA $20
PHX
PHA
LDX $45
LDA $43
PHX
PHA
ldal $e120e0
inc
stal $e120e0
JSL L0409AD
LDA $06
CMP $26
BNE L0410FF
BRL L041104
L0410FF INC $26
BRL L040F4D
L041104 LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$100A
PHA
JSL L020000
L04113F PEA $0000
TDC
CLC
ADC #$0028
PHA
_SetPortRect
STA L014E87
LDA $24
PHA
_SetArcRot
STA L014E87
LDA $41
STA $49
LDA $40
STA $48
PLD
TSC
CLC
ADC #$0048
TCS
RTL
L04116F ENT
TSC
SEC
SBC #$0020
TCS
PHD
INC
TCD
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0009
LDX #$0000
CMP #$0000
BNE L041195
INX
L041195 TXA
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0002
LDX #$0000
CMP #$0000
BNE L0411B4
INX
L0411B4 TXA
AND $01,S
PLX
TAX
BNE L0411BE
BRL L04120C
L0411BE LDY #$0002
LDA [$23],Y
PHA
LDA [$23]
PHA
PLA
CLC
ADC #$005A
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
ORA #$0002
PLX
STX $00
PLX
STX $02
STA [$00]
LDY #$0002
LDA [$23],Y
PHA
LDA [$23]
PHA
PLA
CLC
ADC #$0056
PHA
PLA
STA $00
PLA
STA $02
LDA $29
STA [$00]
LDY #$0002
LDA $2B
STA [$00],Y
BRL L0416BB
L04120C LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0002
BNE L041225
BRL L041482
L041225 LDY #$0002
LDA [$23],Y
PHA
LDA [$23]
PHA
PLA
CLC
ADC #$005A
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
EOR #$0002
PLX
STX $00
PLX
STX $02
STA [$00]
LDY #$0002
LDA [$23],Y
PHA
LDA [$23]
PHA
PLA
CLC
ADC #$005A
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
ORA #$0009
PLX
STX $00
PLX
STX $02
STA [$00]
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
STX $18
STA $16
PHA
PHA
LDA #$000C
LDX #$0000
TAY
BPL L0412A2
DEX
L0412A2 PHX
PHA
LDA $27
PHA
LDA #$8000
PHA
LDA #$0000
LDX #$0000
TAY
BPL L0412B5
DEX
L0412B5 PHX
PHA
_NewHandle
STA L014E87
PLA
STA $1A
PLA
STA $1C
LDA L014E87
PHA
LDA #$1013
PHA
JSL L020000
LDX $1C
LDA $1A
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1014
PHA
JSL L020000
PEA $0000
TDC
CLC
ADC #$0016
PHA
LDY #$0002
LDA [$1A],Y
PHA
LDA [$1A]
PHA
LDA #$0001
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
LDA #$0004
LDX #$0000
TAY
BPL L041316
DEX
L041316 PHX
PHA
_BlockMove
STA L014E87
PEA $0000
TDC
CLC
ADC #$0029
PHA
LDY #$0002
LDA [$1A],Y
PHA
LDA [$1A]
PHA
LDA #$0002
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
LDA #$0004
LDX #$0000
TAY
BPL L041349
DEX
L041349 PHX
PHA
_BlockMove
STA L014E87
LDA #$0000
LDX #$0000
TAY
BPL L04135F
DEX
L04135F STX $18
STA $16
PEA $0000
TDC
CLC
ADC #$0016
PHA
LDY #$0002
LDA [$1A],Y
PHA
LDA [$1A]
PHA
LDA #$0003
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
LDA #$0004
LDX #$0000
TAY
BPL L04138A
DEX
L04138A PHX
PHA
_BlockMove
STA L014E87
PHA
PHA
LDA #$FFFF
PHA
LDA #$8003
PHA
_UniqueResourceID
STA L014E87
LDY #$0002
LDA [$23],Y
PHA
LDA [$23]
PHA
PLA
CLC
ADC #$0056
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
LDA L014E87
PHA
LDA #$1018
PHA
JSL L020000
LDX $1C
LDA $1A
PHX
PHA
LDA #$0000
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_AddResource
STA L014E87
LDA L014E87
PHA
LDA #$1019
PHA
JSL L020000
LDA #$8003
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_WriteResource
STA L014E87
LDA L014E87
PHA
LDA #$1020
PHA
JSL L020000
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$1021
PHA
JSL L020000
BRL L0416BB
L041482 LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0009
BNE L04149B
BRL L0416BB
L04149B PHA
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $1A
PLA
STA $1C
LDA L014E87
PHA
LDA #$1022
PHA
JSL L020000
LDX $1C
LDA $1A
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1023
PHA
JSL L020000
PHA
PHA
LDX $1C
LDA $1A
PHX
PHA
_GetHandleSize
STA L014E87
PLA
STA $16
PLA
STA $18
LDA L014E87
PHA
LDA #$1024
PHA
JSL L020000
PHA
LDX $18
LDA $16
PHX
PHA
_LoWord
STA L014E87
PLA
LDX #$0004
JSL L0153AF
STA $1E
PEA $0000
TDC
CLC
ADC #$0029
PHA
LDY #$0002
LDA [$1A],Y
PHA
LDA [$1A]
PHA
LDA $1E
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
LDA #$0004
LDX #$0000
TAY
BPL L041557
DEX
L041557 PHX
PHA
_BlockMove
STA L014E87
LDX $1C
LDA $1A
PHX
PHA
_HUnlock
STA L014E87
LDA L014E87
PHA
LDA #$1026
PHA
JSL L020000
PEI $18
PEI $16
LDA #$0004
LDX #$0000
TAY
BPL L04158D
DEX
L04158D PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
LDX $1C
LDA $1A
PHX
PHA
_SetHandleSize
STA L014E87
LDA L014E87
PHA
LDA #$1027
PHA
JSL L020000
LDX $1C
LDA $1A
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1028
PHA
JSL L020000
LDA #$0000
LDX #$0000
TAY
BPL L0415DC
DEX
L0415DC STX $18
STA $16
PEA $0000
TDC
CLC
ADC #$0016
PHA
LDY #$0002
LDA [$1A],Y
PHA
LDA [$1A]
PHA
LDA $1E
CLC
ADC #$0001
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
LDA #$0004
LDX #$0000
TAY
BPL L04160A
DEX
L04160A PHX
PHA
_BlockMove
STA L014E87
LDA #$0001
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_MarkResourceChange
STA L014E87
LDA L014E87
PHA
LDA #$1030
PHA
JSL L020000
LDA #$8003
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_WriteResource
STA L014E87
LDA L014E87
PHA
LDA #$1031
PHA
JSL L020000
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$1032
PHA
JSL L020000
L0416BB LDA $21
STA $2B
LDA $20
STA $2A
PLD
TSC
CLC
ADC #$002A
TCS
RTL
L0416CB TSC
SEC
SBC #$0020
TCS
PHD
INC
TCD
LDA #$0001
EOR #$FFFF
INC
STA $16
LDA $23
CMP #$000A
BEQ L0416E7
BRL L0416EF
L0416E7 LDA #$0000
STA $16
BRL L0417B6
L0416EF LDA $23
CMP #$0008
BEQ L0416F9
BRL L041701
L0416F9 LDA #$0000
STA $16
BRL L0417B6
L041701 LDA $23
CMP #$0012
BEQ L04170B
BRL L041713
L04170B LDA #$0000
STA $16
BRL L0417B6
L041713 LDA $23
CMP #$0009
BEQ L04171D
BRL L041725
L04171D LDA #$0000
STA $16
BRL L0417B6
L041725 LDA $23
CMP #$000B
BEQ L04172F
BRL L041737
L04172F LDA #$0000
STA $16
BRL L0417B6
L041737 LDA $23
CMP #$000F
BEQ L041741
BRL L041749
L041741 LDA #$0000
STA $16
BRL L0417B6
L041749 LDA $23
CMP #$0013
BEQ L041753
BRL L04175B
L041753 LDA #$0000
STA $16
BRL L0417B6
L04175B LDA $23
CMP #$0010
BEQ L041765
BRL L04176D
L041765 LDA #$0000
STA $16
BRL L0417B6
L04176D LDA $23
CMP #$000E
BEQ L041777
BRL L041783
L041777 LDA #$0001
EOR #$FFFF
INC
STA $16
BRL L0417B6
L041783 LDA $23
CMP #$0011
BEQ L04178D
BRL L041795
L04178D LDA #$0000
STA $16
BRL L0417B6
L041795 LDA $23
CMP #$000C
BEQ L04179F
BRL L0417A7
L04179F LDA #$0000
STA $16
BRL L0417B6
L0417A7 LDA $23
CMP #$000D
BEQ L0417B1
BRL L0417B6
L0417B1 LDA #$0000
STA $16
L0417B6 LDA $21
STA $23
LDA $20
STA $22
LDX $16
PLD
TSC
CLC
ADC #$0022
TCS
TXA
RTL
L0417C9 TSC
SEC
SBC #$0020
TCS
PHD
INC
TCD
LDA #$0000
STA $16
LDA $23
LDX #$0000
CMP #$07FF
BNE L0417E2
INX
L0417E2 TXA
PHA
LDA $23
LDX #$0000
CMP #$87FF
BNE L0417EF
INX
L0417EF TXA
ORA $01,S
PLX
TAX
BNE L0417F9
BRL L041801
L0417F9 LDA #$000A
STA $16
BRL L0418C4
L041801 LDA $23
CMP #$8000
BEQ L04180B
BRL L041813
L04180B LDA #$0008
STA $16
BRL L0418C4
L041813 LDA $23
CMP #$8100
BEQ L04181D
BRL L041825
L04181D LDA #$0012
STA $16
BRL L0418C4
L041825 LDA $23
CMP #$8200
BEQ L04182F
BRL L041837
L04182F LDA #$0009
STA $16
BRL L0418C4
L041837 LDA $23
CMP #$8300
BEQ L041841
BRL L041849
L041841 LDA #$000B
STA $16
BRL L0418C4
L041849 LDA $23
CMP #$8400
BEQ L041853
BRL L04185B
L041853 LDA #$000F
STA $16
BRL L0418C4
L04185B LDA $23
CMP #$8500
BEQ L041865
BRL L04186D
L041865 LDA #$0013
STA $16
BRL L0418C4
L04186D LDA $23
CMP #$8600
BEQ L041877
BRL L04187F
L041877 LDA #$0010
STA $16
BRL L0418C4
L04187F LDA $23
CMP #$8700
BEQ L041889
BRL L041891
L041889 LDA #$000E
STA $16
BRL L0418C4
L041891 LDA $23
CMP #$8800
BEQ L04189B
BRL L0418A3
L04189B LDA #$0011
STA $16
BRL L0418C4
L0418A3 LDA $23
CMP #$8900
BEQ L0418AD
BRL L0418B5
L0418AD LDA #$000C
STA $16
BRL L0418C4
L0418B5 LDA $23
CMP #$8D00
BEQ L0418BF
BRL L0418C4
L0418BF LDA #$000D
STA $16
L0418C4 LDA $21
STA $23
LDA $20
STA $22
LDX $16
PLD
TSC
CLC
ADC #$0022
TCS
TXA
RTL
L0418D7 TSC
SEC
SBC #$0032
TCS
PHD
INC
TCD
PEA $0000
TDC
CLC
ADC #$0016
PHA
PEI $37
PEI $35
PEA $0008
JSL L014B1E
PHA
PHA
LDA #$8004
PHA
PHA
PHA
LDX $3B
LDA $39
PHX
PHA
_GetCtlRefCon
STA L014E87
_LoadResource
STA L014E87
PLA
STA $26
PLA
STA $28
LDX $28
LDA $26
PHX
PHA
_HLock
STA L014E87
PHA
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
CMP #$07FF
BEQ L041959
BRL L041AE0
L041959 PHA
PHA
LDA #$8001
PHA
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $2E
PLA
STA $30
LDA #$0000
STA $1E
LDY #$0002
LDA [$2E],Y
TAX
LDA [$2E]
STA $00
STX $02
LDY #$0004
LDA [$00],Y
CLC
ADC #$0004
STA $22
LDA #$0000
STA $20
LDY #$0002
LDA [$2E],Y
TAX
LDA [$2E]
STA $00
STX $02
LDY #$0006
LDA [$00],Y
LDX #$0002
JSL L0153FB
CLC
ADC #$0008
STA $24
PHA
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STA $00
STX $02
LDY #$0020
LDA [$00],Y
TAX
LDY #$001E
LDA [$00],Y
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $2A
PLA
STA $2C
LDA L014E87
BEQ L0419FE
BRL L041A63
L0419FE LDX $2C
LDA $2A
PHX
PHA
_HLock
STA L014E87
LDA $22
CLC
ADC #$000C
STA $22
PHA
LDY #$0002
LDA [$2A],Y
PHA
LDA [$2A]
PHA
_StringWidth
STA L014E87
PLA
CLC
ADC $24
CLC
ADC #$0008
STA $24
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STA $00
STX $02
LDY #$0020
LDA [$00],Y
TAX
LDY #$001E
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L014E87
L041A63 LDA $1C
SEC
SBC $18
LDX #$0002
JSL L0153AF
CLC
ADC $18
STA $18
LDA $24
LDX #$0002
JSL L0153AF
PHA
LDA $18
SEC
SBC $01,S
PLX
STA $18
LDA $18
CLC
ADC $24
STA $1C
LDA $1A
SEC
SBC $16
LDX #$0002
JSL L0153AF
CLC
ADC $16
STA $16
LDA $22
LDX #$0002
JSL L0153AF
PHA
LDA $16
SEC
SBC $01,S
PLX
STA $16
LDA $16
CLC
ADC $22
STA $1A
PEA $0000
TDC
CLC
ADC #$0016
PHA
_EraseRect
STA L014E87
PEA $0000
TDC
CLC
ADC #$0016
PHA
_InvalRect
STA L014E87
BRL L041BCA
L041AE0 PHA
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $2A
PLA
STA $2C
LDA L014E87
BEQ L041B17
BRL L041BCA
L041B17 LDX $2C
LDA $2A
PHX
PHA
_HLock
STA L014E87
LDA $1C
SEC
SBC $18
PHA
PHA
LDY #$0002
LDA [$2A],Y
PHA
LDA [$2A]
PHA
_StringWidth
STA L014E87
PLA
CLC
ADC #$001E
SEC
SBC $01,S
PLY
TAY
BEQ L041B54
BVS L041B52
EOR #$8000
L041B52 BMI L041B57
L041B54 BRL L041B9B
L041B57 PHA
LDY #$0002
LDA [$2A],Y
PHA
LDA [$2A]
PHA
_StringWidth
STA L014E87
PLA
CLC
ADC $18
CLC
ADC #$001E
STA $1C
PEA $0000
TDC
CLC
ADC #$0016
PHA
_EraseRect
STA L014E87
PEA $0000
TDC
CLC
ADC #$0016
PHA
_InvalRect
STA L014E87
L041B9B LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8006
PHA
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
TAX
LDY #$001A
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L014E87
L041BCA LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
PHA
PHA
LDX $3B
LDA $39
PHX
PHA
_GetCtlRefCon
STA L014E87
_ReleaseResource
STA L014E87
LDA $33
STA $3B
LDA $32
STA $3A
PLD
TSC
CLC
ADC #$003A
TCS
RTL
L041C02 ENT
TSC
SEC
SBC #$0066
TCS
PHD
INC
TCD
PEA $0000
TDC
CLC
ADC #$0016
PHA
PEI $73
PEI $71
PEA $0004
JSL L014B1E
LDX $77
LDA $75
STX L0146B6
STA L0146B4
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$0060
LDA [$00],Y
PHA
JSL L0416CB
STA $5A
LDX $6D
LDA $6B
PHX
PHA
JSL L0206AF
PEA $0000
TDC
CLC
ADC #$001A
PHA
JSL L020E29
PEA $0000
TDC
CLC
ADC #$0016
PHA
_GlobalToLocal
STA L014E87
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L041C84
BRL L041C90
L041C84 LDA #$000D
SEC
SBC #$0001
CLC
ADC $1A
STA $1A
L041C90 LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L041CA9
BRL L041CC7
L041CA9 LDA #$0001
PHA
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
CLC
ADC $1A
SEC
SBC $01,S
PLX
STA $1A
L041CC7 LDA #$0000
TAX
SEP #$20
LDA #$BB
STA $32,X
REP #$20
LDA #$0001
TAX
SEP #$20
LDA #$00
STA $32,X
REP #$20
LDA #$0002
TAX
SEP #$20
LDA #$BB
STA $32,X
REP #$20
LDA #$0003
TAX
SEP #$20
LDA #$00
STA $32,X
REP #$20
LDA #$0004
TAX
SEP #$20
LDA #$B0
STA $32,X
REP #$20
LDA #$0005
TAX
SEP #$20
LDA #$0B
STA $32,X
REP #$20
LDA #$0006
TAX
SEP #$20
LDA #$B0
STA $32,X
REP #$20
LDA #$0007
TAX
SEP #$20
LDA #$0B
STA $32,X
REP #$20
LDA #$0008
TAX
SEP #$20
LDA #$00
STA $32,X
REP #$20
LDA #$0009
TAX
SEP #$20
LDA #$BB
STA $32,X
REP #$20
LDA #$000A
TAX
SEP #$20
LDA #$00
STA $32,X
REP #$20
LDA #$000B
TAX
SEP #$20
LDA #$BB
STA $32,X
REP #$20
LDA #$000C
TAX
SEP #$20
LDA #$0B
STA $32,X
REP #$20
LDA #$000D
TAX
SEP #$20
LDA #$B0
STA $32,X
REP #$20
LDA #$000E
TAX
SEP #$20
LDA #$0B
STA $32,X
REP #$20
LDA #$000F
TAX
SEP #$20
LDA #$B0
STA $32,X
REP #$20
LDA #$0010
TAX
SEP #$20
LDA #$BB
STA $32,X
REP #$20
LDA #$0011
TAX
SEP #$20
LDA #$00
STA $32,X
REP #$20
LDA #$0012
TAX
SEP #$20
LDA #$BB
STA $32,X
REP #$20
LDA #$0013
TAX
SEP #$20
LDA #$00
STA $32,X
REP #$20
LDA #$0014
TAX
SEP #$20
LDA #$B0
STA $32,X
REP #$20
LDA #$0015
TAX
SEP #$20
LDA #$0B
STA $32,X
REP #$20
LDA #$0016
TAX
SEP #$20
LDA #$B0
STA $32,X
REP #$20
LDA #$0017
TAX
SEP #$20
LDA #$0B
STA $32,X
REP #$20
LDA #$0018
TAX
SEP #$20
LDA #$00
STA $32,X
REP #$20
LDA #$0019
TAX
SEP #$20
LDA #$BB
STA $32,X
REP #$20
LDA #$001A
TAX
SEP #$20
LDA #$00
STA $32,X
REP #$20
LDA #$001B
TAX
SEP #$20
LDA #$BB
STA $32,X
REP #$20
LDA #$001C
TAX
SEP #$20
LDA #$0B
STA $32,X
REP #$20
LDA #$001D
TAX
SEP #$20
LDA #$B0
STA $32,X
REP #$20
LDA #$001E
TAX
SEP #$20
LDA #$0B
STA $32,X
REP #$20
LDA #$001F
TAX
SEP #$20
LDA #$B0
STA $32,X
REP #$20
PEA ^L0146B8
PEA L0146B8
LDY #$0002
LDA [$79],Y
PHA
LDA [$79]
PHA
PLA
CLC
ADC #$0008
PHA
PEA $0008
JSL L014B1E
PEA $0000
TDC
CLC
ADC #$002A
PHA
PEA ^L0146B8
PEA L0146B8
PEA $0008
JSL L014B1E
PHA
LDY #$0002
LDA [$79],Y
TAX
LDA [$79]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
CMP #$8900
BEQ L041EA6
BRL L041EB0
L041EA6 LDA L0146BE
CLC
ADC #$0018
STA L0146BE
L041EB0 LDA $69
CMP #$0001
BEQ L041EBA
BRL L041F3C
L041EBA PEA $0000
TDC
CLC
ADC #$0022
PHA
PEA $0000
TDC
CLC
ADC #$001A
PHA
PEA $0008
JSL L014B1E
LDA $22
SEC
SBC $16
STA $22
LDA $24
SEC
SBC $18
STA $24
LDA $26
SEC
SBC $16
STA $26
LDA $28
SEC
SBC $18
STA $28
PHA
PHA
LDX #^L040127
LDA #L040127
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0032
PHA
LDA $18
PHA
LDA $16
PHA
LDX #^L0146B8
LDA #L0146B8
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0022
PHA
PEA $0000
TDC
CLC
ADC #$001A
PHA
LDA #$0234
CLC
ADC $5A
PHA
_DragRect
STA L014E87
PLA
STA $52
PLA
STA $54
BRL L041F83
L041F3C PHA
PHA
LDX #^L040023
LDA #L040023
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0032
PHA
LDA $18
PHA
LDA $16
PHA
LDX #^L0146B8
LDA #L0146B8
PHX
PHA
PEA $0000
TDC
CLC
ADC #$001A
PHA
PEA $0000
TDC
CLC
ADC #$001A
PHA
LDA #$0220
PHA
_DragRect
STA L014E87
PLA
STA $52
PLA
STA $54
L041F83 PHA
LDY #$0002
LDA [$79],Y
TAX
LDA [$79]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
CMP #$8900
BEQ L041FB0
BRL L041FBA
L041FB0 LDA L0146BE
SEC
SBC #$0018
STA L0146BE
L041FBA PHA
PHA
LDA #$8004
PHA
PHA
PHA
LDX $7B
LDA $79
PHX
PHA
_GetCtlRefCon
STA L014E87
_LoadResource
STA L014E87
PLA
STA $56
PLA
STA $58
LDA L014E87
PHA
LDA #$1035
PHA
JSL L020000
LDX $58
LDA $56
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1036
PHA
JSL L020000
LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
PEA ^L0146B8
PEA L0146B8
PEA $0008
JSL L014B1E
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
BNE L04203F
BRL L04206B
L04203F LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$000E
EOR #$FFFF
INC
PHA
LDA #$0006
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
BRL L042204
L04206B LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L042084
BRL L042125
L042084 LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0000
PHA
LDA #$000D
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L0420C2
BRL L0420F9
L0420C2 LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0000
PHA
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
EOR #$FFFF
INC
CLC
ADC #$0001
PHA
_OffsetRect
STA L014E87
L0420F9 LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0004
EOR #$FFFF
INC
PHA
LDA #$0001
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
BRL L042204
L042125 LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L04213E
BRL L0421DB
L04213E LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L042157
BRL L04217C
L042157 LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0000
PHA
LDA #$000D
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
L04217C LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0000
PHA
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0004
EOR #$FFFF
INC
PHA
LDA #$0001
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
BRL L042204
L0421DB LDY #$0002
LDA [$56],Y
PHA
LDA [$56]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0004
EOR #$FFFF
INC
PHA
LDA #$0002
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
L042204 PHA
LDY #$0002
LDA [$79],Y
TAX
LDA [$79]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
CMP #$8700
BEQ L042231
BRL L04225B
L042231 LDY #$0002
LDA [$56],Y
TAX
LDA [$56]
CLC
ADC #$000C
STA $00
STX $02
LDA #$0000
STA [$00]
LDY #$0002
LDA [$56],Y
TAX
LDA [$56]
CLC
ADC #$000A
STA $00
STX $02
LDA #$0000
STA [$00]
L04225B LDA #$0001
PHA
LDA #$8004
PHA
PHA
PHA
LDX $7B
LDA $79
PHX
PHA
_GetCtlRefCon
STA L014E87
_MarkResourceChange
STA L014E87
LDA L014E87
PHA
LDA #$1037
PHA
JSL L020000
LDA #$8004
PHA
PHA
PHA
LDX $7B
LDA $79
PHX
PHA
_GetCtlRefCon
STA L014E87
_WriteResource
STA L014E87
LDA L014E87
PHA
LDA #$1038
PHA
JSL L020000
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
PHA
PHA
LDX $7B
LDA $79
PHX
PHA
_GetCtlRefCon
STA L014E87
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$1039
PHA
JSL L020000
PHA
PHA
LDX $7B
LDA $79
PHX
PHA
_GetCtlRefCon
STA L014E87
PLA
STA $52
PLA
STA $54
PEA $0000
TDC
CLC
ADC #$001A
PHA
_GetPortRect
STA L014E87
PEA $0000
TDC
CLC
ADC #$0022
PHA
_GetPortRect
STA L014E87
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
BNE L042342
BRL L042360
L042342 PEA $0000
TDC
CLC
ADC #$001A
PHA
LDA #$000E
PHA
LDA #$0006
PHA
_InsetRect
STA L014E87
BRL L0423DB
L042360 PEA $0000
TDC
CLC
ADC #$001A
PHA
LDA #$0004
PHA
LDA #$0002
PHA
_InsetRect
STA L014E87
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L042394
BRL L0423A4
L042394 LDA #$0001
PHA
LDA $1A
CLC
ADC #$000D
SEC
SBC $01,S
PLX
STA $1A
L0423A4 LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L0423BD
BRL L0423DB
L0423BD LDA #$0001
PHA
LDY #$0002
LDA [$75],Y
TAX
LDA [$75]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
CLC
ADC $1A
SEC
SBC $01,S
PLX
STA $1A
L0423DB PEA $0000
TDC
CLC
ADC #$001A
PHA
_SetPortRect
STA L014E87
PHA
_GetArcRot
STA L014E87
PLA
STA $5C
LDA $5C
AND #$8000
BNE L042406
BRL L042416
L042406 LDA $5C
EOR #$8000
PHA
_SetArcRot
STA L014E87
L042416 LDX $7B
LDA $79
PHX
PHA
_HideControl
STA L014E87
LDX $7B
LDA $79
PHX
PHA
_DisposeControl
STA L014E87
PHA
PHA
LDA #$8004
PHA
LDX $54
LDA $52
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $62
PLA
STA $64
LDA #$8004
PHA
LDX $54
LDA $52
PHX
PHA
_DetachResource
STA L014E87
LDY #$0002
LDA [$62],Y
TAX
LDA [$62]
STA $00
STX $02
LDY #$0010
LDA [$00],Y
PHA
LDY #$000E
LDA [$00],Y
PHA
LDA #$0000
LDX #$8500
LDY #$0001
CMP $01,S
BEQ L04248C
DEY
L04248C TXA
CMP $03,S
BEQ L042494
LDY #$0000
L042494 PLA
PLA
TYA
BNE L04249C
BRL L042524
L04249C LDY #$0002
LDA [$62],Y
TAX
LDA [$62]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
PHA
LDY #$001A
LDA [$00],Y
PHA
PLA
AND #$0000
PHA
LDA $03,S
AND #$0010
STA $03,S
LDA #$0000
LDX #$0000
TAY
BPL L0424CA
DEX
L0424CA LDY #$0001
CMP $01,S
BEQ L0424D2
DEY
L0424D2 TXA
CMP $03,S
BEQ L0424DA
LDY #$0000
L0424DA PLA
PLA
TYA
BNE L0424E2
BRL L042524
L0424E2 LDY #$0002
LDA [$62],Y
TAX
LDA [$62]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
PHA
LDY #$001A
LDA [$00],Y
PHA
PLA
ORA #$0000
PHA
LDA $03,S
ORA #$0010
STA $03,S
LDY #$0002
LDA [$62],Y
PHA
LDA [$62]
PHA
PLA
CLC
ADC #$001A
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L042524 PHA
PHA
LDX $6D
LDA $6B
PHX
PHA
LDA #$0001
PHA
LDX $64
LDA $62
PHX
PHA
_NewControl2
STA L014E87
PLA
STA $79
PLA
STA $7B
LDY #$0002
LDA [$75],Y
PHA
LDA [$75]
PHA
PLA
CLC
ADC #$0072
PHA
PLA
STA $00
PLA
STA $02
LDA $52
STA [$00]
LDY #$0002
LDA $54
STA [$00],Y
LDX $7B
LDA $79
PHX
PHA
_HideControl
STA L014E87
LDX $54
LDA $52
PHX
PHA
LDX $7B
LDA $79
PHX
PHA
_SetCtlRefCon
STA L014E87
LDX $7B
LDA $79
PHX
PHA
LDX $77
LDA $75
PHX
PHA
ldal $e12100
inc
stal $e12100
JSL L0409AD
LDA $5C
PHA
_SetArcRot
STA L014E87
PEA $0000
TDC
CLC
ADC #$0022
PHA
_SetPortRect
STA L014E87
PHA
LDY #$0002
LDA [$79],Y
TAX
LDA [$79]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
PHA
JSL L0417C9
STA $5A
LDA $5A
LDX #$0000
CMP #$000A
BNE L0425F3
INX
L0425F3 TXA
PHA
LDA $5A
LDX #$0000
CMP #$000F
BNE L042600
INX
L042600 TXA
ORA $01,S
PLX
PHA
LDA $5A
LDX #$0000
CMP #$0009
BNE L042610
INX
L042610 TXA
ORA $01,S
PLX
TAX
BNE L04261A
BRL L04262D
L04261A LDX $7B
LDA $79
PHX
PHA
PEA $0000
TDC
CLC
ADC #$002A
PHA
JSL L0418D7
L04262D PHA
LDY #$0002
LDA [$79],Y
TAX
LDA [$79]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
CMP #$8900
BEQ L04265A
BRL L042664
L04265A LDA L0146BE
CLC
ADC #$0018
STA L0146BE
L042664 LDX #^L0146B8
LDA #L0146B8
PHX
PHA
LDA $5A
PHA
JSL L0208DC
LDA $67
STA $7B
LDA $66
STA $7A
PLD
TSC
CLC
ADC #$007A
TCS
RTL
L042683 ENT
TSC
SEC
SBC #$0046
TCS
PHD
INC
TCD
PHA
PHA
LDX $4D
LDA $4B
PHX
PHA
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$0074
LDA [$00],Y
TAX
LDY #$0072
LDA [$00],Y
PHX
PHA
_GetCtlHandleFromID
STA L014E87
PLA
STA $38
PLA
STA $3A
LDA L014E87
PHA
LDA #$1F34
PHA
JSL L020000
LDX $4D
LDA $4B
PHX
PHA
JSL L0206AF
PEA ^L0146B8
PEA L0146B8
LDY #$0002
LDA [$38],Y
PHA
LDA [$38]
PHA
PLA
CLC
ADC #$0008
PHA
PEA $0008
JSL L014B1E
PEA $0000
TDC
CLC
ADC #$0026
PHA
PEA ^L0146B8
PEA L0146B8
PEA $0008
JSL L014B1E
LDA $49
CMP #$0008
BEQ L04270F
BRL L042730
L04270F LDX #^L0146B8
LDA #L0146B8
PHX
PHA
LDA #$0002
EOR #$FFFF
INC
PHA
LDA #$0000
PHA
_OffsetRect
STA L014E87
BRL L0427A6
L042730 LDA $49
CMP #$000A
BEQ L04273A
BRL L042757
L04273A LDX #^L0146B8
LDA #L0146B8
PHX
PHA
LDA #$0000
PHA
LDA #$0001
PHA
_OffsetRect
STA L014E87
BRL L0427A6
L042757 LDA $49
CMP #$000B
BEQ L042761
BRL L042782
L042761 LDX #^L0146B8
LDA #L0146B8
PHX
PHA
LDA #$0000
PHA
LDA #$0001
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
BRL L0427A6
L042782 LDA $49
CMP #$0015
BEQ L04278C
BRL L0427A6
L04278C LDX #^L0146B8
LDA #L0146B8
PHX
PHA
LDA #$0002
PHA
LDA #$0000
PHA
_OffsetRect
STA L014E87
L0427A6 PHA
PHA
LDA #$8004
PHA
PHA
PHA
LDX $3A
LDA $38
PHX
PHA
_GetCtlRefCon
STA L014E87
_LoadResource
STA L014E87
PLA
STA $32
PLA
STA $34
LDA L014E87
PHA
LDA #$1F35
PHA
JSL L020000
LDX $34
LDA $32
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1F36
PHA
JSL L020000
LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
PEA ^L0146B8
PEA L0146B8
PEA $0008
JSL L014B1E
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
BNE L04282B
BRL L042857
L04282B LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$000E
EOR #$FFFF
INC
PHA
LDA #$0006
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
BRL L0429F0
L042857 LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L042870
BRL L042911
L042870 LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0000
PHA
LDA #$000D
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L0428AE
BRL L0428E5
L0428AE LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0000
PHA
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
EOR #$FFFF
INC
CLC
ADC #$0001
PHA
_OffsetRect
STA L014E87
L0428E5 LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0004
EOR #$FFFF
INC
PHA
LDA #$0001
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
BRL L0429F0
L042911 LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L04292A
BRL L0429C7
L04292A LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L042943
BRL L042968
L042943 LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0000
PHA
LDA #$000D
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
L042968 LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0000
PHA
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0004
EOR #$FFFF
INC
PHA
LDA #$0001
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
BRL L0429F0
L0429C7 LDY #$0002
LDA [$32],Y
PHA
LDA [$32]
PHA
PLA
CLC
ADC #$0006
PHA
LDA #$0004
EOR #$FFFF
INC
PHA
LDA #$0002
EOR #$FFFF
INC
PHA
_OffsetRect
STA L014E87
L0429F0 PHA
LDY #$0002
LDA [$38],Y
TAX
LDA [$38]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
CMP #$8700
BEQ L042A1D
BRL L042A47
L042A1D LDY #$0002
LDA [$32],Y
TAX
LDA [$32]
CLC
ADC #$000C
STA $00
STX $02
LDA #$0000
STA [$00]
LDY #$0002
LDA [$32],Y
TAX
LDA [$32]
CLC
ADC #$000A
STA $00
STX $02
LDA #$0000
STA [$00]
L042A47 LDA #$0001
PHA
LDA #$8004
PHA
PHA
PHA
LDX $3A
LDA $38
PHX
PHA
_GetCtlRefCon
STA L014E87
_MarkResourceChange
STA L014E87
LDA L014E87
PHA
LDA #$1F37
PHA
JSL L020000
LDA #$8004
PHA
PHA
PHA
LDX $3A
LDA $38
PHX
PHA
_GetCtlRefCon
STA L014E87
_WriteResource
STA L014E87
LDA L014E87
PHA
LDA #$1F38
PHA
JSL L020000
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
PHA
PHA
LDX $3A
LDA $38
PHX
PHA
_GetCtlRefCon
STA L014E87
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$1F39
PHA
JSL L020000
PHA
PHA
LDX $3A
LDA $38
PHX
PHA
_GetCtlRefCon
STA L014E87
PLA
STA $2E
PLA
STA $30
PEA $0000
TDC
CLC
ADC #$0016
PHA
_GetPortRect
STA L014E87
PEA $0000
TDC
CLC
ADC #$001E
PHA
_GetPortRect
STA L014E87
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$2000
BNE L042B2E
BRL L042B4C
L042B2E PEA $0000
TDC
CLC
ADC #$0016
PHA
LDA #$000E
PHA
LDA #$0006
PHA
_InsetRect
STA L014E87
BRL L042BC7
L042B4C PEA $0000
TDC
CLC
ADC #$0016
PHA
LDA #$0004
PHA
LDA #$0002
PHA
_InsetRect
STA L014E87
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$8000
BNE L042B80
BRL L042B90
L042B80 LDA #$0001
PHA
LDA $16
CLC
ADC #$000D
SEC
SBC $01,S
PLX
STA $16
L042B90 LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$000E
LDA [$00],Y
AND #$0010
BNE L042BA9
BRL L042BC7
L042BA9 LDA #$0001
PHA
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
STA $00
STX $02
LDY #$003C
LDA [$00],Y
CLC
ADC $16
SEC
SBC $01,S
PLX
STA $16
L042BC7 PEA $0000
TDC
CLC
ADC #$0016
PHA
_SetPortRect
STA L014E87
PHA
_GetArcRot
STA L014E87
PLA
STA $3C
LDA $3C
AND #$8000
BNE L042BF2
BRL L042C02
L042BF2 LDA $3C
EOR #$8000
PHA
_SetArcRot
STA L014E87
L042C02 LDX $3A
LDA $38
PHX
PHA
_HideControl
STA L014E87
LDX $3A
LDA $38
PHX
PHA
_DisposeControl
STA L014E87
PHA
PHA
LDA #$8004
PHA
LDX $30
LDA $2E
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $42
PLA
STA $44
LDA #$8004
PHA
LDX $30
LDA $2E
PHX
PHA
_DetachResource
STA L014E87
LDY #$0002
LDA [$42],Y
TAX
LDA [$42]
STA $00
STX $02
LDY #$0010
LDA [$00],Y
PHA
LDY #$000E
LDA [$00],Y
PHA
LDA #$0000
LDX #$8500
LDY #$0001
CMP $01,S
BEQ L042C78
DEY
L042C78 TXA
CMP $03,S
BEQ L042C80
LDY #$0000
L042C80 PLA
PLA
TYA
BNE L042C88
BRL L042D10
L042C88 LDY #$0002
LDA [$42],Y
TAX
LDA [$42]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
PHA
LDY #$001A
LDA [$00],Y
PHA
PLA
AND #$0000
PHA
LDA $03,S
AND #$0010
STA $03,S
LDA #$0000
LDX #$0000
TAY
BPL L042CB6
DEX
L042CB6 LDY #$0001
CMP $01,S
BEQ L042CBE
DEY
L042CBE TXA
CMP $03,S
BEQ L042CC6
LDY #$0000
L042CC6 PLA
PLA
TYA
BNE L042CCE
BRL L042D10
L042CCE LDY #$0002
LDA [$42],Y
TAX
LDA [$42]
STA $00
STX $02
LDY #$001C
LDA [$00],Y
PHA
LDY #$001A
LDA [$00],Y
PHA
PLA
ORA #$0000
PHA
LDA $03,S
ORA #$0010
STA $03,S
LDY #$0002
LDA [$42],Y
PHA
LDA [$42]
PHA
PLA
CLC
ADC #$001A
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
L042D10 PHA
PHA
LDX $4D
LDA $4B
PHX
PHA
LDA #$0001
PHA
LDX $44
LDA $42
PHX
PHA
_NewControl2
STA L014E87
PLA
STA $38
PLA
STA $3A
LDY #$0002
LDA [$4F],Y
PHA
LDA [$4F]
PHA
PLA
CLC
ADC #$0072
PHA
PLA
STA $00
PLA
STA $02
LDA $2E
STA [$00]
LDY #$0002
LDA $30
STA [$00],Y
LDX $3A
LDA $38
PHX
PHA
_HideControl
STA L014E87
LDX $30
LDA $2E
PHX
PHA
LDX $3A
LDA $38
PHX
PHA
_SetCtlRefCon
STA L014E87
LDX $3A
LDA $38
PHX
PHA
LDX $51
LDA $4F
PHX
PHA
ldal $e12120
inc
stal $e12120
JSL L0409AD
LDA $3C
PHA
_SetArcRot
STA L014E87
PEA $0000
TDC
CLC
ADC #$001E
PHA
_SetPortRect
STA L014E87
PHA
LDY #$0002
LDA [$38],Y
TAX
LDA [$38]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
PHA
JSL L0417C9
STA $36
LDA $36
LDX #$0000
CMP #$000A
BNE L042DDF
INX
L042DDF TXA
PHA
LDA $36
LDX #$0000
CMP #$000F
BNE L042DEC
INX
L042DEC TXA
ORA $01,S
PLX
PHA
LDA $36
LDX #$0000
CMP #$0009
BNE L042DFC
INX
L042DFC TXA
ORA $01,S
PLX
TAX
BNE L042E06
BRL L042E19
L042E06 LDX $3A
LDA $38
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0026
PHA
JSL L0418D7
L042E19 PHA
LDY #$0002
LDA [$38],Y
TAX
LDA [$38]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
CMP #$8900
BEQ L042E46
BRL L042E50
L042E46 LDA L0146BE
CLC
ADC #$0018
STA L0146BE
L042E50 LDX #^L0146B8
LDA #L0146B8
PHX
PHA
LDA $36
PHA
JSL L0208DC
LDA $47
STA $51
LDA $46
STA $50
PLD
TSC
CLC
ADC #$0050
TCS
RTL
L042E6F ENT
TSC
SEC
SBC #$0036
TCS
PHD
INC
TCD
PHA
LDX $3F
LDA $3D
PHX
PHA
_HiWord
STA L014E87
PLA
LDX #$0000
CMP #$0000
BNE L042E93
INX
L042E93 TXA
PHA
PHA
LDX $3F
LDA $3D
PHX
PHA
_LoWord
STA L014E87
PLA
LDX #$0000
CMP #$0000
BNE L042EB0
INX
L042EB0 TXA
AND $01,S
PLX
TAX
BNE L042EBA
BRL L042EBD
L042EBA BRL L0434D2
L042EBD LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0002
BNE L042ED6
BRL L042FED
L042ED6 LDY #$0002
LDA [$39],Y
PHA
LDA [$39]
PHA
PLA
CLC
ADC #$005A
PHA
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
EOR #$0002
PLX
STX $00
PLX
STX $02
STA [$00]
LDA #$0000
LDX #$0000
TAY
BPL L042F0B
DEX
L042F0B PHX
PHA
LDY #$0002
LDA [$39],Y
PHA
LDA [$39]
PHA
PLA
CLC
ADC #$0056
PHA
PLA
STA $00
PLA
STA $02
PLA
STA [$00]
LDY #$0002
PLA
STA [$00],Y
PHA
PHA
PEA $0000
PEA $0000
LDX $3F
LDA $3D
PHX
PHA
_GetCtlHandleFromID
STA L014E87
PLA
STA $2E
PLA
STA $30
PHA
LDY #$0002
LDA [$2E],Y
TAX
LDA [$2E]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
PHA
JSL L0417C9
LDX #$0000
TAY
BPL L042F7A
DEX
L042F7A STX $34
STA $32
LDA #$000A
LDX #$0000
TAY
BPL L042F88
DEX
L042F88 LDY #$0000
CMP $32
BNE L042F91
CPX $34
L042F91 BNE L042F94
INY
L042F94 TYA
PHA
LDA #$000F
LDX #$0000
TAY
BPL L042FA0
DEX
L042FA0 LDY #$0000
CMP $32
BNE L042FA9
CPX $34
L042FA9 BNE L042FAC
INY
L042FAC TYA
ORA $01,S
PLX
PHA
LDA #$0009
LDX #$0000
TAY
BPL L042FBB
DEX
L042FBB LDY #$0000
CMP $32
BNE L042FC4
CPX $34
L042FC4 BNE L042FC7
INY
L042FC7 TYA
ORA $01,S
PLX
TAX
BNE L042FD1
BRL L042FEA
L042FD1 LDX $30
LDA $2E
PHX
PHA
LDY #$0002
LDA [$2E],Y
PHA
LDA [$2E]
PHA
PLA
CLC
ADC #$0008
PHA
JSL L0418D7
L042FEA BRL L04348E
L042FED LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0009
BNE L043006
BRL L04348E
L043006 PHA
PHA
PEA $0000
PEA $0000
LDX $3F
LDA $3D
PHX
PHA
_GetCtlHandleFromID
STA L014E87
PLA
STA $2E
PLA
STA $30
PHA
LDY #$0002
LDA [$2E],Y
TAX
LDA [$2E]
STA $00
STX $02
LDY #$0016
LDA [$00],Y
TAX
LDY #$0014
LDA [$00],Y
PHX
PHA
_HiWord
STA L014E87
PLA
PHA
JSL L0417C9
LDX #$0000
TAY
BPL L043055
DEX
L043055 STX $34
STA $32
LDA #$000A
LDX #$0000
TAY
BPL L043063
DEX
L043063 LDY #$0000
CMP $32
BNE L04306C
CPX $34
L04306C BNE L04306F
INY
L04306F TYA
PHA
LDA #$000F
LDX #$0000
TAY
BPL L04307B
DEX
L04307B LDY #$0000
CMP $32
BNE L043084
CPX $34
L043084 BNE L043087
INY
L043087 TYA
ORA $01,S
PLX
PHA
LDA #$0009
LDX #$0000
TAY
BPL L043096
DEX
L043096 LDY #$0000
CMP $32
BNE L04309F
CPX $34
L04309F BNE L0430A2
INY
L0430A2 TYA
ORA $01,S
PLX
TAX
BNE L0430AC
BRL L0430C5
L0430AC LDX $30
LDA $2E
PHX
PHA
LDY #$0002
LDA [$2E],Y
PHA
LDA [$2E]
PHA
PLA
CLC
ADC #$0008
PHA
JSL L0418D7
L0430C5 PHA
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $1E
PLA
STA $20
LDA L014E87
PHA
LDA #$1043
PHA
JSL L020000
LDX $20
LDA $1E
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1044
PHA
JSL L020000
PHA
PHA
LDX $20
LDA $1E
PHX
PHA
_GetHandleSize
STA L014E87
PLA
STA $16
PLA
STA $18
LDA L014E87
PHA
LDA #$1045
PHA
JSL L020000
PHA
LDX $18
LDA $16
PHX
PHA
_LoWord
STA L014E87
PLA
LDX #$0004
JSL L0153AF
STA $22
LDA $22
SEC
SBC #$0001
STA $24
L043163 LDA $24
BMI L04316A
DEC
BPL L04316D
L04316A BRL L04320E
L04316D LDY #$0002
LDA [$1E],Y
PHA
LDA [$1E]
PHA
LDA $24
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STX $1C
STA $1A
PHA
LDX $1C
LDA $1A
PHX
PHA
_HiWord
STA L014E87
PLA
PHA
PHA
LDX $3F
LDA $3D
PHX
PHA
_HiWord
STA L014E87
PLA
SEC
SBC $01,S
PLX
TAX
BEQ L0431C1
LDA #$0001
L0431C1 EOR #$0001
PHA
PHA
LDX $1C
LDA $1A
PHX
PHA
_LoWord
STA L014E87
PLA
PHA
PHA
LDX $3F
LDA $3D
PHX
PHA
_LoWord
STA L014E87
PLA
SEC
SBC $01,S
PLX
TAX
BEQ L0431F4
LDA #$0001
L0431F4 EOR #$0001
AND $01,S
PLX
TAX
BNE L043200
BRL L043203
L043200 BRL L043211
L043203 LDA $24
SEC
SBC #$0001
STA $24
BRL L043163
L04320E BRL L0434D2
L043211 LDY #$0002
LDA [$1E],Y
PHA
LDA [$1E]
PHA
LDA $24
CLC
ADC #$0001
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
LDY #$0002
LDA [$1E],Y
PHA
LDA [$1E]
PHA
LDA $24
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
LDA $24
LDX #$0004
JSL L0153FB
PHA
LDA $22
LDX #$0004
JSL L0153FB
SEC
SBC $01,S
PLX
LDX #$0000
TAY
BPL L043259
DEX
L043259 PHX
PHA
_BlockMove
STA L014E87
LDY #$0002
LDA [$1E],Y
PHA
LDA [$1E]
PHA
LDA #$0001
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STX $1C
STA $1A
LDX $20
LDA $1E
PHX
PHA
_HUnlock
STA L014E87
LDA L014E87
PHA
LDA #$1047
PHA
JSL L020000
LDA #$0004
LDX #$0000
TAY
BPL L0432B1
DEX
L0432B1 PHX
PHA
PEI $18
PEI $16
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
LDX $20
LDA $1E
PHX
PHA
_SetHandleSize
STA L014E87
LDA L014E87
PHA
LDA #$1048
PHA
JSL L020000
LDX $20
LDA $1E
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1049
PHA
JSL L020000
LDA #$0001
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_MarkResourceChange
STA L014E87
LDA L014E87
PHA
LDA #$1050
PHA
JSL L020000
LDA #$8003
PHA
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_WriteResource
STA L014E87
LDA L014E87
PHA
LDA #$1051
PHA
JSL L020000
LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$1052
PHA
JSL L020000
LDA #$0004
PHA
PHA
LDX $18
LDA $16
PHX
PHA
_LoWord
STA L014E87
PLA
SEC
SBC $01,S
PLX
PHA
LDA #$0008
SEC
SBC $01,S
PLY
TAY
BVS L0433C7
EOR #$8000
L0433C7 BMI L0433CC
BRL L04348E
L0433CC LDA #$8003
PHA
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_RemoveResource
STA L014E87
LDA L014E87
PHA
LDA #$1053
PHA
JSL L020000
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0009
BNE L043418
BRL L043443
L043418 LDY #$0002
LDA [$39],Y
PHA
LDA [$39]
PHA
PLA
CLC
ADC #$005A
PHA
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
EOR #$0009
PLX
STX $00
PLX
STX $02
STA [$00]
L043443 LDY #$0002
LDA [$39],Y
PHA
LDA [$39]
PHA
PLA
CLC
ADC #$005A
PHA
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
ORA #$0002
PLX
STX $00
PLX
STX $02
STA [$00]
LDY #$0002
LDA [$39],Y
PHA
LDA [$39]
PHA
PLA
CLC
ADC #$0056
PHA
PLA
STA $00
PLA
STA $02
LDA $1A
STA [$00]
LDY #$0002
LDA $1C
STA [$00],Y
L04348E PHA
PHA
PEA $0000
PEA $0000
LDX $3F
LDA $3D
PHX
PHA
_GetCtlHandleFromID
STA L014E87
_HideControl
STA L014E87
PHA
PHA
PEA $0000
PEA $0000
LDX $3F
LDA $3D
PHX
PHA
_GetCtlHandleFromID
STA L014E87
_DisposeControl
STA L014E87
L0434D2 LDA $37
STA $3F
LDA $36
STA $3E
PLD
TSC
CLC
ADC #$003E
TCS
RTL
L0434E2 ENT
TSC
SEC
SBC #$0022
TCS
PHD
INC
TCD
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0009
LDX #$0000
CMP #$0000
BNE L043508
INX
L043508 TXA
PHA
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0002
LDX #$0000
CMP #$0000
BNE L043527
INX
L043527 TXA
AND $01,S
PLX
TAX
BNE L043531
BRL L043534
L043531 BRL L0436E8
L043534 LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0002
BNE L04354D
BRL L04358B
L04354D LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$1056
PHA
JSL L020000
BRL L0436E8
L04358B LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $00
STX $02
LDY #$005A
LDA [$00],Y
AND #$0009
BNE L0435A4
BRL L0436E8
L0435A4 PHA
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_LoadResource
STA L014E87
PLA
STA $16
PLA
STA $18
LDA L014E87
PHA
LDA #$1057
PHA
JSL L020000
LDX $18
LDA $16
PHX
PHA
_HLock
STA L014E87
LDA L014E87
PHA
LDA #$1058
PHA
JSL L020000
PHA
PHA
LDX $18
LDA $16
PHX
PHA
_GetHandleSize
STA L014E87
PLA
STA $1A
PLA
STA $1C
LDA L014E87
PHA
LDA #$1059
PHA
JSL L020000
LDA #$0001
PHA
PHA
LDX $1C
LDA $1A
PHX
PHA
_LoWord
STA L014E87
PLA
LDX #$0004
JSL L0153AF
SEC
SBC $01,S
PLX
STA $1E
LDA $1E
STA $06
LDA #$0001
STA $20
LDA $06
SEC
SBC $20
BVS L043655
EOR #$8000
L043655 BMI L04365A
BRL L0436AD
L04365A LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8004
PHA
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
LDA $20
DEC
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
PHX
PHA
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$1060
PHA
JSL L020000
LDA $06
CMP $20
BNE L0436A8
BRL L0436AD
L0436A8 INC $20
BRL L04365A
L0436AD LDA #$0001
EOR #$FFFF
INC
PHA
LDA #$8003
PHA
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $00
STX $02
LDY #$0058
LDA [$00],Y
TAX
LDY #$0056
LDA [$00],Y
PHX
PHA
_ReleaseResource
STA L014E87
LDA L014E87
PHA
LDA #$1061
PHA
JSL L020000
L0436E8 LDA $23
STA $27
LDA $22
STA $26
PLD
TSC
CLC
ADC #$0026
TCS
RTL
Reference in New Issue View Git Blame Copy Permalink