mirror of
https://github.com/antoinevignau/source.git
synced 2024-10-06 06:54:46 +00:00
224 lines
2.9 KiB
ArmAsm
224 lines
2.9 KiB
ArmAsm
*----------------------------------------
|
|
* True Convert : Batch
|
|
*----------------------------------------
|
|
|
|
batNEXT1 = $1810
|
|
batBACK1 = $1820
|
|
batCANC1 = $1830
|
|
batPATH1 = $1840
|
|
batBROW1 = $1850
|
|
|
|
batNEXT2 = $1910
|
|
batBACK2 = $1920
|
|
batCANC2 = $1930
|
|
batPATH2 = $1940
|
|
batBROW2 = $1950
|
|
|
|
*--------------
|
|
|
|
meBATCH jsr batchPREFIX
|
|
jsr batchWINDOW1
|
|
cpy #batCANC1
|
|
beq meBATCH1
|
|
jsr batchWINDOW2
|
|
cpy #batBACK2
|
|
beq meBATCH
|
|
cpy #batNEXT2
|
|
beq meBATCH2
|
|
|
|
meBATCH1 rts
|
|
|
|
meBATCH2 sep #$20
|
|
ldal $c034
|
|
inc
|
|
stal $c034
|
|
rep #$20
|
|
rts
|
|
|
|
*--------------
|
|
|
|
batchWINDOW1 pha
|
|
pha
|
|
PushLong #0
|
|
PushLong #1
|
|
PushLong #PAINTBATCH1
|
|
PushLong #0
|
|
PushWord #refIsResource
|
|
PushLong #wBATCH1
|
|
PushWord #$800e
|
|
_NewWindow2
|
|
PullLong wiBATCH1
|
|
|
|
batchWINDOW12 jsr batchENTRY1
|
|
|
|
]lp pha
|
|
pha
|
|
PushLong #taskREC
|
|
PushLong #0
|
|
PushLong #0
|
|
PushLong #-1
|
|
PushWord #%11000000_00011000
|
|
_DoModalWindow
|
|
ply
|
|
plx
|
|
cpy #batBACK1
|
|
beq batchWINDOW17
|
|
cpy #batNEXT1
|
|
beq batchWINDOW18
|
|
cpy #batCANC1
|
|
beq batchWINDOW19
|
|
cpy #batBROW1
|
|
bne ]lp
|
|
|
|
jsr stdOPEN
|
|
jsr batchPREFIX
|
|
bra batchWINDOW12
|
|
|
|
batchWINDOW17 jsr batchEASTER
|
|
bra ]lp
|
|
|
|
batchWINDOW18 phy
|
|
jsr batchESCAPE1
|
|
ply
|
|
|
|
batchWINDOW19 phy
|
|
_InitCursor
|
|
PushLong wiBATCH1
|
|
_CloseWindow
|
|
ply
|
|
rts
|
|
|
|
*--------------
|
|
|
|
batchWINDOW2 pha
|
|
pha
|
|
PushLong #0
|
|
PushLong #1
|
|
PushLong #PAINTBATCH2
|
|
PushLong #0
|
|
PushWord #refIsResource
|
|
PushLong #wBATCH2
|
|
PushWord #$800e
|
|
_NewWindow2
|
|
PullLong wiBATCH2
|
|
|
|
batchWINDOW22 jsr batchENTRY2
|
|
|
|
]lp pha
|
|
pha
|
|
PushLong #taskREC
|
|
PushLong #0
|
|
PushLong #0
|
|
PushLong #-1
|
|
PushWord #%11000000_00011000
|
|
_DoModalWindow
|
|
ply
|
|
plx
|
|
cpy #batNEXT2
|
|
beq batchWINDOW28
|
|
cpy #batCANC2
|
|
beq batchWINDOW29
|
|
cpy #batBACK2
|
|
beq batchWINDOW29
|
|
cpy #batBROW2
|
|
bne ]lp
|
|
|
|
jsr stdSAVE
|
|
jsr batchPREFIX
|
|
bra batchWINDOW22
|
|
|
|
batchWINDOW28 phy
|
|
jsr batchESCAPE2
|
|
ply
|
|
|
|
batchWINDOW29 phy
|
|
_InitCursor
|
|
PushLong wiBATCH2
|
|
_CloseWindow
|
|
ply
|
|
rts
|
|
|
|
*--------------
|
|
|
|
PAINTBATCH1 PushLong wiBATCH1
|
|
_DrawControls
|
|
rtl
|
|
|
|
PAINTBATCH2 PushLong wiBATCH2
|
|
_DrawControls
|
|
rtl
|
|
|
|
*--------------
|
|
|
|
wiBATCH1 ds 4
|
|
wiBATCH2 ds 4
|
|
|
|
*--------------
|
|
|
|
doBATCH sep #$20
|
|
ldal $c034
|
|
inc
|
|
stal $c034
|
|
rep #$20
|
|
rts
|
|
|
|
*--------------
|
|
|
|
batchENTRY1 PushLong wiBATCH1
|
|
PushLong #batPATH1
|
|
PushLong #batVPATH1
|
|
_SetLETextByID
|
|
rts
|
|
|
|
batchESCAPE1 PushLong wiBATCH1
|
|
PushLong #batPATH1
|
|
PushLong #batVPATH1
|
|
_GetLETextByID
|
|
rts
|
|
|
|
batchEASTER PushLong wiBATCH1
|
|
PushLong #batPATH1
|
|
PushLong #batEASTER
|
|
_SetLETextByID
|
|
rts
|
|
|
|
*--------------
|
|
|
|
batchENTRY2 PushLong wiBATCH2
|
|
PushLong #batPATH2
|
|
PushLong #batVPATH2
|
|
_SetLETextByID
|
|
rts
|
|
|
|
batchESCAPE2 PushLong wiBATCH2
|
|
PushLong #batPATH2
|
|
PushLong #batVPATH2
|
|
_GetLETextByID
|
|
rts
|
|
|
|
*--------------
|
|
|
|
batchPREFIX lda pfxOPEN2 ; copy length
|
|
sta batVPATH1
|
|
lda pfxSAVE2
|
|
sta batVPATH2
|
|
|
|
ldx #256-2 ; copy string
|
|
]lp lda pfxOPEN3,x
|
|
sta batVPATH1+1,x
|
|
lda pfxSAVE3,x
|
|
sta batVPATH2+1,x
|
|
dex
|
|
dex
|
|
bpl ]lp
|
|
rts
|
|
|
|
*--------------
|
|
|
|
batVPATH1 ds 262
|
|
batVPATH2 ds 262
|
|
|
|
*--------------
|
|
|
|
batEASTER str 'Antoine says : Great! You have found the hidden message'
|