6744 lines
121 KiB
ArmAsm
6744 lines
121 KiB
ArmAsm
*
|
|
* 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
|
|
|