parent
7b348bb7e7
commit
eacce65018
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -5,15 +5,15 @@
|
||||||
|
|
||||||
* Expansion linker file
|
* Expansion linker file
|
||||||
|
|
||||||
DSK ToolTable
|
DSK ToolTable
|
||||||
TYP $BC
|
TYP $BC
|
||||||
|
|
||||||
* Assemble files
|
* Assemble files
|
||||||
|
|
||||||
XPL
|
XPL
|
||||||
|
|
||||||
ASM TOOLTABLE.S
|
ASM TOOLTABLE.S
|
||||||
KND $0000
|
KND $0000
|
||||||
SNA ToolTable
|
SNA ToolTable
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -113,11 +113,13 @@ ctlWINDOW
|
||||||
ADRL L046D
|
ADRL L046D
|
||||||
ADRL L048D
|
ADRL L048D
|
||||||
ADRL L04AD
|
ADRL L04AD
|
||||||
ADRL L04CD
|
adrl cTANIM
|
||||||
ADRL L04ED
|
ADRL c320
|
||||||
ADRL L050D
|
ADRL c640
|
||||||
ADRL L052D
|
ADRL cFAAW
|
||||||
ADRL L054D
|
ADRL cHWSHA
|
||||||
|
adrl cSHRON ; new
|
||||||
|
ADRL cPREF
|
||||||
ADRL $00000000
|
ADRL $00000000
|
||||||
|
|
||||||
L010D DW $0008 ; pCount
|
L010D DW $0008 ; pCount
|
||||||
|
@ -468,6 +470,7 @@ L048D DW $0008 ; pCount
|
||||||
ADRL $00000020 ; refCon
|
ADRL $00000020 ; refCon
|
||||||
ADRL L0597 ; titleRef
|
ADRL L0597 ; titleRef
|
||||||
DW $0000 ; initialValue
|
DW $0000 ; initialValue
|
||||||
|
|
||||||
L04AD DW $0008 ; pCount
|
L04AD DW $0008 ; pCount
|
||||||
ADRL $00000022 ; ID
|
ADRL $00000022 ; ID
|
||||||
DW $005F ; rect
|
DW $005F ; rect
|
||||||
|
@ -480,9 +483,23 @@ L04AD DW $0008 ; pCount
|
||||||
ADRL $00000022 ; refCon
|
ADRL $00000022 ; refCon
|
||||||
ADRL L058D ; titleRef
|
ADRL L058D ; titleRef
|
||||||
DW $0000 ; initialValue
|
DW $0000 ; initialValue
|
||||||
L04CD DW $0008 ; pCount
|
|
||||||
|
cTANIM DW $0008 ; pCount
|
||||||
|
ADRL $00000025 ; ID
|
||||||
|
DW $0069 ; rect
|
||||||
|
DW $0138
|
||||||
|
DW $0000
|
||||||
|
DW $0000
|
||||||
|
ADRL $82000000 ; procRef
|
||||||
|
DW $0000 ; flag
|
||||||
|
DW $1000 ; moreFlags
|
||||||
|
ADRL $00000022 ; refCon
|
||||||
|
ADRL sTANIM ; titleRef
|
||||||
|
DW $0000 ; initialValue
|
||||||
|
|
||||||
|
c320 DW $0008 ; pCount
|
||||||
ADRL $00000320 ; ID
|
ADRL $00000320 ; ID
|
||||||
DW $006D ; rect
|
DW $0077 ; rect
|
||||||
DW $000E
|
DW $000E
|
||||||
DW $0000
|
DW $0000
|
||||||
DW $0000
|
DW $0000
|
||||||
|
@ -490,11 +507,12 @@ L04CD DW $0008 ; pCount
|
||||||
DW $0005 ; flag
|
DW $0005 ; flag
|
||||||
DW $1000 ; moreFlags
|
DW $1000 ; moreFlags
|
||||||
ADRL $00000320 ; refCon
|
ADRL $00000320 ; refCon
|
||||||
ADRL L05C0 ; titleRef
|
ADRL s320 ; titleRef
|
||||||
DW $0000 ; initialValue
|
DW $0000 ; initialValue
|
||||||
L04ED DW $0008 ; pCount
|
|
||||||
|
c640 DW $0008 ; pCount
|
||||||
ADRL $00000640 ; ID
|
ADRL $00000640 ; ID
|
||||||
DW $0077 ; rect
|
DW $0081 ; rect
|
||||||
DW $000E
|
DW $000E
|
||||||
DW $0000
|
DW $0000
|
||||||
DW $0000
|
DW $0000
|
||||||
|
@ -502,22 +520,11 @@ L04ED DW $0008 ; pCount
|
||||||
DW $0005 ; flag
|
DW $0005 ; flag
|
||||||
DW $1000 ; moreFlags
|
DW $1000 ; moreFlags
|
||||||
ADRL $00000640 ; refCon
|
ADRL $00000640 ; refCon
|
||||||
ADRL L05B7 ; titleRef
|
ADRL s640 ; titleRef
|
||||||
DW $0001 ; initialValue
|
DW $0001 ; initialValue
|
||||||
L050D DW $0008 ; pCount
|
|
||||||
|
cFAAW DW $0008 ; pCount
|
||||||
ADRL $00001001 ; ID
|
ADRL $00001001 ; ID
|
||||||
DW $006D ; rect
|
|
||||||
DW $00A2
|
|
||||||
DW $0000
|
|
||||||
DW $0000
|
|
||||||
ADRL $82000000 ; procRef
|
|
||||||
DW $0000 ; flag
|
|
||||||
DW $1000 ; moreFlags
|
|
||||||
ADRL $00001001 ; refCon
|
|
||||||
ADRL L057E ; titleRef
|
|
||||||
DW $0000 ; initialValue
|
|
||||||
L052D DW $0008 ; pCount
|
|
||||||
ADRL $00001002 ; ID
|
|
||||||
DW $0077 ; rect
|
DW $0077 ; rect
|
||||||
DW $00A2
|
DW $00A2
|
||||||
DW $0000
|
DW $0000
|
||||||
|
@ -525,29 +532,59 @@ L052D DW $0008 ; pCount
|
||||||
ADRL $82000000 ; procRef
|
ADRL $82000000 ; procRef
|
||||||
DW $0000 ; flag
|
DW $0000 ; flag
|
||||||
DW $1000 ; moreFlags
|
DW $1000 ; moreFlags
|
||||||
ADRL $00001002 ; refCon
|
ADRL $00001001 ; refCon
|
||||||
ADRL L056B ; titleRef
|
ADRL sFAAW ; titleRef
|
||||||
DW $0000 ; initialValue
|
DW $0000 ; initialValue
|
||||||
L054D DW $0007 ; pCount
|
|
||||||
|
cHWSHA DW $0008 ; pCount
|
||||||
|
ADRL $00001002 ; ID
|
||||||
|
DW $0081 ; rect
|
||||||
|
DW $00A2
|
||||||
|
DW $0000
|
||||||
|
DW $0000
|
||||||
|
ADRL $82000000 ; procRef
|
||||||
|
DW $0000 ; flag
|
||||||
|
DW $1000 ; moreFlags
|
||||||
|
ADRL $00001002 ; refCon
|
||||||
|
ADRL sHWSHA ; titleRef
|
||||||
|
DW $0000 ; initialValue
|
||||||
|
|
||||||
|
cSHRON DW $0008 ; pCount
|
||||||
|
ADRL $00001003 ; ID
|
||||||
|
DW $008b ; rect
|
||||||
|
DW $00A2
|
||||||
|
DW $0000
|
||||||
|
DW $0000
|
||||||
|
ADRL $82000000 ; procRef
|
||||||
|
DW $0000 ; flag
|
||||||
|
DW $1000 ; moreFlags
|
||||||
|
ADRL $00001002 ; refCon
|
||||||
|
ADRL sSHRON ; titleRef
|
||||||
|
DW $0000 ; initialValue
|
||||||
|
|
||||||
|
cPREF DW $0007 ; pCount
|
||||||
ADRL $00001000 ; ID
|
ADRL $00001000 ; ID
|
||||||
DW $0070 ; rect
|
DW $007f ; rect
|
||||||
DW $015C
|
DW $015C
|
||||||
DW $007D
|
DW $008c
|
||||||
DW $01C0
|
DW $01C0
|
||||||
ADRL $80000000 ; procRef
|
ADRL $80000000 ; procRef
|
||||||
DW $0000 ; flag
|
DW $0000 ; flag
|
||||||
DW $1000 ; moreFlags
|
DW $1000 ; moreFlags
|
||||||
ADRL $00001000 ; refCon
|
ADRL $00001000 ; refCon
|
||||||
ADRL L05AD ; titleRef
|
ADRL sPREF ; titleRef
|
||||||
|
|
||||||
L056B STR 'Hardware shadowing'
|
sSHRON str 'Keep SHR screen on'
|
||||||
L057E STR 'Fastport aware'
|
sHWSHA str 'Hardware shadowing'
|
||||||
|
sFAAW str 'Fastport aware'
|
||||||
|
|
||||||
|
sTANIM str 'Animation'
|
||||||
L058D STR 'Text edit'
|
L058D STR 'Text edit'
|
||||||
L0597 STR 'MIDI'
|
L0597 STR 'MIDI'
|
||||||
L059C STR 'Resource manager'
|
L059C STR 'Resource manager'
|
||||||
L05AD STR 'Preferred'
|
sPREF STR 'Preferred'
|
||||||
L05B7 STR '640 Mode'
|
s640 STR '640 Mode'
|
||||||
L05C0 STR '320 Mode'
|
s320 STR '320 Mode'
|
||||||
STR 'Resource manager'
|
STR 'Resource manager'
|
||||||
L05DA STR 'ACE'
|
L05DA STR 'ACE'
|
||||||
L05DE STR 'List manager'
|
L05DE STR 'List manager'
|
||||||
|
@ -604,7 +641,7 @@ myWINDOW DW $0050
|
||||||
ADRL $00000000 ; content defproc
|
ADRL $00000000 ; content defproc
|
||||||
DW $0024 ; content rect
|
DW $0024 ; content rect
|
||||||
DW $001E
|
DW $001E
|
||||||
DW $00A6
|
DW $00ba ; was $A6
|
||||||
DW $01F4
|
DW $01F4
|
||||||
ADRL $FFFFFFFF ; starting plane
|
ADRL $FFFFFFFF ; starting plane
|
||||||
ADRL $00000000 ; storage ptr
|
ADRL $00000000 ; storage ptr
|
||||||
|
@ -633,10 +670,10 @@ refreshWINDOW
|
||||||
_GetPort
|
_GetPort
|
||||||
_DrawControls
|
_DrawControls
|
||||||
PEA $000A
|
PEA $000A
|
||||||
PEA $006A
|
PEA $0074 ; was $006A
|
||||||
_MoveTo
|
_MoveTo
|
||||||
PEA $01CC
|
PEA $01CC
|
||||||
PEA $006A
|
PEA $0074 ; was $006A
|
||||||
_LineTo
|
_LineTo
|
||||||
_SetCurResourceFile
|
_SetCurResourceFile
|
||||||
PLB
|
PLB
|
||||||
|
@ -1088,7 +1125,7 @@ L0B67 LDX $22
|
||||||
LDA #$0000 ; format the header
|
LDA #$0000 ; format the header
|
||||||
STA [$06]
|
STA [$06]
|
||||||
LDY #$0002
|
LDY #$0002
|
||||||
LDA #$C080
|
LDA #$C180 ; with bit 8
|
||||||
STA [$06],Y
|
STA [$06],Y
|
||||||
LDY #$0004
|
LDY #$0004
|
||||||
LDA #$0000
|
LDA #$0000
|
||||||
|
@ -1284,6 +1321,7 @@ L0B67 LDX $22
|
||||||
PLY
|
PLY
|
||||||
LDA #$001B
|
LDA #$001B
|
||||||
STA [$06],Y
|
STA [$06],Y
|
||||||
|
|
||||||
LDY #$000C
|
LDY #$000C
|
||||||
PHY
|
PHY
|
||||||
LDA #$0010
|
LDA #$0010
|
||||||
|
@ -1296,6 +1334,7 @@ L0B67 LDX $22
|
||||||
PLY
|
PLY
|
||||||
LDA #$001C
|
LDA #$001C
|
||||||
STA [$06],Y
|
STA [$06],Y
|
||||||
|
|
||||||
LDY #$000C
|
LDY #$000C
|
||||||
PHY
|
PHY
|
||||||
LDA #$0011
|
LDA #$0011
|
||||||
|
@ -1308,6 +1347,7 @@ L0B67 LDX $22
|
||||||
PLY
|
PLY
|
||||||
LDA #$001E
|
LDA #$001E
|
||||||
STA [$06],Y
|
STA [$06],Y
|
||||||
|
|
||||||
LDY #$000C
|
LDY #$000C
|
||||||
PHY
|
PHY
|
||||||
LDA #$0012
|
LDA #$0012
|
||||||
|
@ -1320,6 +1360,7 @@ L0B67 LDX $22
|
||||||
PLY
|
PLY
|
||||||
LDA #$0022
|
LDA #$0022
|
||||||
STA [$06],Y
|
STA [$06],Y
|
||||||
|
|
||||||
LDA #$0001
|
LDA #$0001
|
||||||
STA $26
|
STA $26
|
||||||
|
|
||||||
|
@ -1339,18 +1380,17 @@ L0D2E LDY #$000C
|
||||||
TAY
|
TAY
|
||||||
LDA #$0000
|
LDA #$0000
|
||||||
STA [$06],Y
|
STA [$06],Y
|
||||||
|
|
||||||
INC $26
|
INC $26
|
||||||
LDA $26
|
LDA $26
|
||||||
CMP #$0013
|
CMP #$0013
|
||||||
BEQ L0D54
|
bne L0D2E
|
||||||
BRL L0D2E
|
|
||||||
|
|
||||||
L0D54 LDA $2F
|
*---
|
||||||
PHA
|
|
||||||
LDX $2D
|
L0D54 pei $2F
|
||||||
LDA $2B
|
pei $2D
|
||||||
PHX
|
pei $2B
|
||||||
PHA
|
|
||||||
JSL writeRESOURCE
|
JSL writeRESOURCE
|
||||||
LDA #$0000
|
LDA #$0000
|
||||||
STA $16
|
STA $16
|
||||||
|
@ -2299,28 +2339,19 @@ L1611 LDA $1C
|
||||||
PLX
|
PLX
|
||||||
STX $02
|
STX $02
|
||||||
STA [$00]
|
STA [$00]
|
||||||
|
|
||||||
L166D PHA
|
L166D PHA
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
LDX $25
|
pei $25
|
||||||
LDA $23
|
pei $23
|
||||||
PHX
|
pea $0000
|
||||||
PHA
|
pea $0022
|
||||||
LDA #$0022
|
|
||||||
LDX #$0000
|
|
||||||
TAY
|
|
||||||
BPL L1680
|
|
||||||
DEX
|
|
||||||
L1680 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_GetCtlValue
|
_GetCtlValue
|
||||||
STA L2BCB
|
|
||||||
PLA
|
PLA
|
||||||
BNE L169C
|
beq L16F7
|
||||||
BRL L16F8
|
LDA $1C
|
||||||
L169C LDA $1C
|
|
||||||
CLC
|
CLC
|
||||||
ADC #$0001
|
ADC #$0001
|
||||||
STA $1C
|
STA $1C
|
||||||
|
@ -2346,7 +2377,7 @@ L169C LDA $1C
|
||||||
STA $02
|
STA $02
|
||||||
LDA #$0022
|
LDA #$0022
|
||||||
STA [$00]
|
STA [$00]
|
||||||
LDY #$0002
|
* LDY #$0002
|
||||||
LDA [$16],Y
|
LDA [$16],Y
|
||||||
PHA
|
PHA
|
||||||
LDA [$16]
|
LDA [$16]
|
||||||
|
@ -2377,6 +2408,78 @@ L169C LDA $1C
|
||||||
STX $02
|
STX $02
|
||||||
STA [$00]
|
STA [$00]
|
||||||
|
|
||||||
|
*--- Animation Tool
|
||||||
|
|
||||||
|
L16F7 PHA
|
||||||
|
PHA
|
||||||
|
PHA
|
||||||
|
pei $25
|
||||||
|
pei $23
|
||||||
|
pea $0000
|
||||||
|
pea $0025
|
||||||
|
_GetCtlHandleFromID
|
||||||
|
_GetCtlValue
|
||||||
|
PLA
|
||||||
|
beq L16F8
|
||||||
|
LDA $1C
|
||||||
|
CLC
|
||||||
|
ADC #$0001
|
||||||
|
STA $1C
|
||||||
|
LDY #$0002
|
||||||
|
LDA [$16],Y
|
||||||
|
PHA
|
||||||
|
LDA [$16]
|
||||||
|
PHA
|
||||||
|
PLA
|
||||||
|
CLC
|
||||||
|
ADC #$000C
|
||||||
|
PHA
|
||||||
|
LDA $1C
|
||||||
|
DEC
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
CLC
|
||||||
|
ADC $01,S
|
||||||
|
STA $01,S
|
||||||
|
PLA
|
||||||
|
STA $00
|
||||||
|
PLA
|
||||||
|
STA $02
|
||||||
|
LDA #$0025
|
||||||
|
STA [$00]
|
||||||
|
* LDY #$0002
|
||||||
|
LDA [$16],Y
|
||||||
|
PHA
|
||||||
|
LDA [$16]
|
||||||
|
PHA
|
||||||
|
PLA
|
||||||
|
CLC
|
||||||
|
ADC #$000C
|
||||||
|
PHA
|
||||||
|
LDA $1C
|
||||||
|
DEC
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
CLC
|
||||||
|
ADC $01,S
|
||||||
|
STA $01,S
|
||||||
|
PLA
|
||||||
|
CLC
|
||||||
|
ADC #$0002
|
||||||
|
PHA
|
||||||
|
LDA #$0025
|
||||||
|
DEC
|
||||||
|
ASL
|
||||||
|
TAX
|
||||||
|
LDA theTOOLREC,X
|
||||||
|
PLX
|
||||||
|
STX $00
|
||||||
|
PLX
|
||||||
|
STX $02
|
||||||
|
STA [$00]
|
||||||
|
|
||||||
|
*--- end of Animation Tool
|
||||||
|
|
||||||
L16F8 LDY #$0002 ; +0A - numTools
|
L16F8 LDY #$0002 ; +0A - numTools
|
||||||
LDA [$16],Y
|
LDA [$16],Y
|
||||||
TAX
|
TAX
|
||||||
|
@ -2418,9 +2521,9 @@ L1734 PHX
|
||||||
_GetCtlValue
|
_GetCtlValue
|
||||||
STA L2BCB
|
STA L2BCB
|
||||||
PLA
|
PLA
|
||||||
BNE L1750
|
beq L1765
|
||||||
BRL L1765
|
|
||||||
L1750 LDY #$0002
|
LDY #$0002
|
||||||
LDA [$16],Y
|
LDA [$16],Y
|
||||||
TAX
|
TAX
|
||||||
LDA [$16]
|
LDA [$16]
|
||||||
|
@ -2434,26 +2537,16 @@ L1750 LDY #$0002
|
||||||
L1765 PHA ; +02 - videoMode for bit 15
|
L1765 PHA ; +02 - videoMode for bit 15
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
LDX $25
|
pei $25
|
||||||
LDA $23
|
pei $23
|
||||||
PHX
|
pea $0000
|
||||||
PHA
|
pea $1002
|
||||||
LDA #$1002
|
|
||||||
LDX #$0000
|
|
||||||
TAY
|
|
||||||
BPL L1778
|
|
||||||
DEX
|
|
||||||
L1778 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_GetCtlValue
|
_GetCtlValue
|
||||||
STA L2BCB
|
|
||||||
PLA
|
PLA
|
||||||
BNE L1794
|
beq L17BF
|
||||||
BRL L17BF
|
|
||||||
|
|
||||||
L1794 LDY #$0002
|
LDY #$0002
|
||||||
LDA [$16],Y
|
LDA [$16],Y
|
||||||
PHA
|
PHA
|
||||||
LDA [$16]
|
LDA [$16]
|
||||||
|
@ -2462,13 +2555,13 @@ L1794 LDY #$0002
|
||||||
CLC
|
CLC
|
||||||
ADC #$0002
|
ADC #$0002
|
||||||
PHA
|
PHA
|
||||||
LDY #$0002
|
* LDY #$0002
|
||||||
LDA [$16],Y
|
LDA [$16],Y
|
||||||
TAX
|
TAX
|
||||||
LDA [$16]
|
LDA [$16]
|
||||||
STA $00
|
STA $00
|
||||||
STX $02
|
STX $02
|
||||||
LDY #$0002
|
* LDY #$0002
|
||||||
LDA [$00],Y
|
LDA [$00],Y
|
||||||
ORA #$8000
|
ORA #$8000
|
||||||
PLX
|
PLX
|
||||||
|
@ -2480,26 +2573,16 @@ L1794 LDY #$0002
|
||||||
L17BF PHA ; +02 - videoMode for bit 7
|
L17BF PHA ; +02 - videoMode for bit 7
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
LDX $25
|
pei $25
|
||||||
LDA $23
|
pei $23
|
||||||
PHX
|
pea $0000
|
||||||
PHA
|
pea $0640
|
||||||
LDA #$0640
|
|
||||||
LDX #$0000
|
|
||||||
TAY
|
|
||||||
BPL L17D2
|
|
||||||
DEX
|
|
||||||
L17D2 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_GetCtlValue
|
_GetCtlValue
|
||||||
STA L2BCB
|
|
||||||
PLA
|
PLA
|
||||||
BNE L17EE
|
beq L1819
|
||||||
BRL L1819
|
|
||||||
|
|
||||||
L17EE LDY #$0002
|
LDY #$0002
|
||||||
LDA [$16],Y
|
LDA [$16],Y
|
||||||
PHA
|
PHA
|
||||||
LDA [$16]
|
LDA [$16]
|
||||||
|
@ -2523,7 +2606,47 @@ L17EE LDY #$0002
|
||||||
STX $02
|
STX $02
|
||||||
STA [$00]
|
STA [$00]
|
||||||
|
|
||||||
L1819 LDY #$0002 ; +04 - resFileID
|
*--- Begin of Leave SHR screen on
|
||||||
|
|
||||||
|
L1819 PHA ; +02 - videoMode for bit 8
|
||||||
|
PHA
|
||||||
|
PHA
|
||||||
|
pei $25
|
||||||
|
pei $23
|
||||||
|
pea $0000
|
||||||
|
pea $1003
|
||||||
|
_GetCtlHandleFromID
|
||||||
|
_GetCtlValue
|
||||||
|
PLA
|
||||||
|
beq L181A
|
||||||
|
|
||||||
|
LDY #$0002
|
||||||
|
LDA [$16],Y
|
||||||
|
PHA
|
||||||
|
LDA [$16]
|
||||||
|
PHA
|
||||||
|
PLA
|
||||||
|
CLC
|
||||||
|
ADC #$0002
|
||||||
|
PHA
|
||||||
|
* LDY #$0002
|
||||||
|
LDA [$16],Y
|
||||||
|
TAX
|
||||||
|
LDA [$16]
|
||||||
|
STA $00
|
||||||
|
STX $02
|
||||||
|
* LDY #$0002
|
||||||
|
LDA [$00],Y
|
||||||
|
ORA #$0100 ; This is bit 8
|
||||||
|
PLX
|
||||||
|
STX $00
|
||||||
|
PLX
|
||||||
|
STX $02
|
||||||
|
STA [$00]
|
||||||
|
|
||||||
|
*--- end of "Leave SHR screen on"
|
||||||
|
|
||||||
|
L181A LDY #$0002 ; +04 - resFileID
|
||||||
LDA [$16],Y
|
LDA [$16],Y
|
||||||
TAX
|
TAX
|
||||||
LDA [$16]
|
LDA [$16]
|
||||||
|
@ -2706,8 +2829,10 @@ L1A26 PHX
|
||||||
CMP #$000D
|
CMP #$000D
|
||||||
BEQ L1A48
|
BEQ L1A48
|
||||||
BRL L1A0B
|
BRL L1A0B
|
||||||
|
|
||||||
L1A48 LDA #$000E
|
L1A48 LDA #$000E
|
||||||
STA $26
|
STA $26
|
||||||
|
|
||||||
L1A4D LDA #$0000
|
L1A4D LDA #$0000
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2716,26 +2841,21 @@ L1A4D LDA #$0000
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$0000
|
pea $0000
|
||||||
CLC
|
pei $26
|
||||||
ADC $26
|
|
||||||
LDX #$0000
|
|
||||||
TAY
|
|
||||||
BPL L1A68
|
|
||||||
DEX
|
|
||||||
L1A68 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
INC $26
|
INC $26
|
||||||
LDA $26
|
LDA $26
|
||||||
CMP #$0018
|
CMP #$0018
|
||||||
BEQ L1A8A
|
bne L1A4D
|
||||||
BRL L1A4D
|
|
||||||
|
*---
|
||||||
|
|
||||||
L1A8A LDA #$0019
|
L1A8A LDA #$0019
|
||||||
STA $26
|
STA $26
|
||||||
|
|
||||||
L1A8F LDA #$0000
|
L1A8F LDA #$0000
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2744,24 +2864,18 @@ L1A8F LDA #$0000
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$0000
|
pea $0000
|
||||||
CLC
|
pei $26
|
||||||
ADC $26
|
|
||||||
LDX #$0000
|
|
||||||
TAY
|
|
||||||
BPL L1AAA
|
|
||||||
DEX
|
|
||||||
L1AAA PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
INC $26
|
INC $26
|
||||||
LDA $26
|
LDA $26
|
||||||
CMP #$001F
|
CMP #$001F
|
||||||
BEQ L1ACC
|
bne L1A8F
|
||||||
BRL L1A8F
|
|
||||||
|
* MIDI Toolset
|
||||||
|
|
||||||
L1ACC LDA #$0000
|
L1ACC LDA #$0000
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2770,17 +2884,13 @@ L1ACC LDA #$0000
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$0020
|
pea $0000
|
||||||
LDX #$0000
|
pea $0020
|
||||||
TAY
|
|
||||||
BPL L1AE4
|
|
||||||
DEX
|
|
||||||
L1AE4 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
|
* Text Edit
|
||||||
|
|
||||||
LDA #$0000
|
LDA #$0000
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2789,17 +2899,13 @@ L1AE4 PHX
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$0022
|
pea $0000
|
||||||
LDX #$0000
|
pea $0022
|
||||||
TAY
|
|
||||||
BPL L1B12
|
|
||||||
DEX
|
|
||||||
L1B12 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
|
* Animation
|
||||||
|
|
||||||
LDA #$0000
|
LDA #$0000
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2808,17 +2914,13 @@ L1B12 PHX
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$1001
|
pea $0000
|
||||||
LDX #$0000
|
pea $0025
|
||||||
TAY
|
|
||||||
BPL L1B40
|
|
||||||
DEX
|
|
||||||
L1B40 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
|
* Fastport aware
|
||||||
|
|
||||||
LDA #$0000
|
LDA #$0000
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2827,17 +2929,43 @@ L1B40 PHX
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$1002
|
pea $0000
|
||||||
LDX #$0000
|
pea $1001
|
||||||
TAY
|
|
||||||
BPL L1B6E
|
|
||||||
DEX
|
|
||||||
L1B6E PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
|
* Hardware shadowing
|
||||||
|
|
||||||
|
LDA #$0000
|
||||||
|
PHA
|
||||||
|
PHA
|
||||||
|
PHA
|
||||||
|
LDX haWINDOW+2
|
||||||
|
LDA haWINDOW
|
||||||
|
PHX
|
||||||
|
PHA
|
||||||
|
pea $0000
|
||||||
|
pea $1002
|
||||||
|
_GetCtlHandleFromID
|
||||||
|
_SetCtlValue
|
||||||
|
|
||||||
|
* Keep SHR screen on
|
||||||
|
|
||||||
|
LDA #$0000
|
||||||
|
PHA
|
||||||
|
PHA
|
||||||
|
PHA
|
||||||
|
LDX haWINDOW+2
|
||||||
|
LDA haWINDOW
|
||||||
|
PHX
|
||||||
|
PHA
|
||||||
|
pea $0000
|
||||||
|
pea $1003
|
||||||
|
_GetCtlHandleFromID
|
||||||
|
_SetCtlValue
|
||||||
|
|
||||||
|
*---
|
||||||
|
|
||||||
LDX ptrBUFFER+2
|
LDX ptrBUFFER+2
|
||||||
LDA ptrBUFFER
|
LDA ptrBUFFER
|
||||||
STA $00
|
STA $00
|
||||||
|
@ -2895,18 +3023,22 @@ L1BFC LDX $22
|
||||||
PHA
|
PHA
|
||||||
_HLock
|
_HLock
|
||||||
STA L2BCB
|
STA L2BCB
|
||||||
|
|
||||||
LDY #$0002
|
LDY #$0002
|
||||||
LDA [$20],Y
|
LDA [$20],Y
|
||||||
TAX
|
TAX
|
||||||
LDA [$20]
|
LDA [$20]
|
||||||
STX $08
|
STX $08
|
||||||
STA $06
|
STA $06
|
||||||
|
|
||||||
|
* Check bit 8
|
||||||
|
|
||||||
LDY #$0002
|
LDY #$0002
|
||||||
LDA [$06],Y
|
LDA [$06],Y
|
||||||
AND #$8000
|
AND #$0100
|
||||||
BNE L1C25
|
beq L1C52
|
||||||
BRL L1C53
|
|
||||||
L1C25 LDA #$0001
|
LDA #$0001
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2914,23 +3046,39 @@ L1C25 LDA #$0001
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$1002
|
pea $0000
|
||||||
LDX #$0000
|
pea $1003
|
||||||
TAY
|
|
||||||
BPL L1C3D
|
|
||||||
DEX
|
|
||||||
L1C3D PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
|
* Check bit 15
|
||||||
|
|
||||||
|
L1C52 LDY #$0002
|
||||||
|
LDA [$06],Y
|
||||||
|
AND #$8000
|
||||||
|
beq L1C53
|
||||||
|
|
||||||
|
LDA #$0001
|
||||||
|
PHA
|
||||||
|
PHA
|
||||||
|
PHA
|
||||||
|
LDX haWINDOW+2
|
||||||
|
LDA haWINDOW
|
||||||
|
PHX
|
||||||
|
PHA
|
||||||
|
pea $0000
|
||||||
|
pea $1002
|
||||||
|
_GetCtlHandleFromID
|
||||||
|
_SetCtlValue
|
||||||
|
|
||||||
|
* Check bit 14
|
||||||
|
|
||||||
L1C53 LDY #$0002
|
L1C53 LDY #$0002
|
||||||
LDA [$06],Y
|
LDA [$06],Y
|
||||||
AND #$4000
|
AND #$4000
|
||||||
BNE L1C60
|
beq L1C8E
|
||||||
BRL L1C8E
|
|
||||||
L1C60 LDA #$0001
|
LDA #$0001
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2938,42 +3086,23 @@ L1C60 LDA #$0001
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$1001
|
pea $0000
|
||||||
LDX #$0000
|
pea $1001
|
||||||
TAY
|
|
||||||
BPL L1C78
|
|
||||||
DEX
|
|
||||||
L1C78 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
|
* Check Video Mode
|
||||||
|
|
||||||
L1C8E LDY #$0002
|
L1C8E LDY #$0002
|
||||||
LDA [$06],Y
|
LDA [$06],Y
|
||||||
|
|
||||||
|
ldy #$0320 ; mode 320
|
||||||
|
|
||||||
AND #$0080
|
AND #$0080
|
||||||
BNE L1C9B
|
beq L1CCC
|
||||||
BRL L1CCC
|
|
||||||
L1C9B LDA #$0001
|
ldy #$0640 ; mode 640
|
||||||
PHA
|
|
||||||
PHA
|
|
||||||
PHA
|
|
||||||
LDX haWINDOW+2
|
|
||||||
LDA haWINDOW
|
|
||||||
PHX
|
|
||||||
PHA
|
|
||||||
LDA #$0640
|
|
||||||
LDX #$0000
|
|
||||||
TAY
|
|
||||||
BPL L1CB3
|
|
||||||
DEX
|
|
||||||
L1CB3 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
|
||||||
STA L2BCB
|
|
||||||
BRL L1CFA
|
|
||||||
L1CCC LDA #$0001
|
L1CCC LDA #$0001
|
||||||
PHA
|
PHA
|
||||||
PHA
|
PHA
|
||||||
|
@ -2982,18 +3111,14 @@ L1CCC LDA #$0001
|
||||||
LDA haWINDOW
|
LDA haWINDOW
|
||||||
PHX
|
PHX
|
||||||
PHA
|
PHA
|
||||||
LDA #$0320
|
pea $0000
|
||||||
LDX #$0000
|
phy
|
||||||
TAY
|
|
||||||
BPL L1CE4
|
|
||||||
DEX
|
|
||||||
L1CE4 PHX
|
|
||||||
PHA
|
|
||||||
_GetCtlHandleFromID
|
_GetCtlHandleFromID
|
||||||
STA L2BCB
|
|
||||||
_SetCtlValue
|
_SetCtlValue
|
||||||
STA L2BCB
|
|
||||||
L1CFA LDY #$000A
|
*---
|
||||||
|
|
||||||
|
LDY #$000A
|
||||||
LDA [$06],Y
|
LDA [$06],Y
|
||||||
STA $0A
|
STA $0A
|
||||||
LDA #$0001
|
LDA #$0001
|
||||||
|
@ -4257,6 +4382,12 @@ doCOMMAND3
|
||||||
TAX
|
TAX
|
||||||
LDA #$0101
|
LDA #$0101
|
||||||
STA theTOOLREC,X
|
STA theTOOLREC,X
|
||||||
|
LDA #$0025
|
||||||
|
DEC
|
||||||
|
ASL
|
||||||
|
TAX
|
||||||
|
LDA #$0100
|
||||||
|
STA theTOOLREC,X
|
||||||
BRL exitEDITOR
|
BRL exitEDITOR
|
||||||
|
|
||||||
*--- Command 4
|
*--- Command 4
|
||||||
|
@ -4336,7 +4467,7 @@ exitEDITOR LDA #$0000
|
||||||
TXA
|
TXA
|
||||||
RTL
|
RTL
|
||||||
|
|
||||||
strEDITOR ASC 'Tool table editor v1.2'
|
strEDITOR ASC 'Tool table editor v1.3'
|
||||||
strEDITOR2
|
strEDITOR2
|
||||||
strRESOURCE ASC 'Tool table'
|
strRESOURCE ASC 'Tool table'
|
||||||
strRESOURCE2
|
strRESOURCE2
|
||||||
|
@ -4349,7 +4480,7 @@ resfileID DW $0000
|
||||||
haMEMORY ADRL $00000000
|
haMEMORY ADRL $00000000
|
||||||
haMEMORY2 ADRL $00000000
|
haMEMORY2 ADRL $00000000
|
||||||
haWINDOW ADRL $00000000
|
haWINDOW ADRL $00000000
|
||||||
theTOOLREC DS $44
|
theTOOLREC DS $400 ; 256 tools x 2 words
|
||||||
|
|
||||||
*--- Buffers
|
*--- Buffers
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue