antoine-source/TrueConvert/True.Help.s
Antoine Vignau 4d4fb6a665 Let's free the code!!
Some old (WIP) disassemblies and my own source code now available online.
2024-07-23 23:38:22 +02:00

82 lines
993 B
ArmAsm

*----------------------------------------
* True Convert : Help
*----------------------------------------
helPOP = $1310
*--------------
meHELP lda wiHELP
ora wiHELP+2
beq meHELP1
PushLong wiHELP
_SelectWindow
rts
meHELP1 pha
pha
PushLong #0
PushLong #wHELP
PushLong #PAINTHELP
PushLong #0
PushWord #refIsResource
PushLong #wHELP
PushWord #$800e
_NewWindow2
PullLong wiHELP
jsr helpENTRY
PushLong wiHELP
_ShowWindow
*--------------
doHELP pea $0015 ; 00000000_00010101
pea $0000 ; load from resource rText
pha ; Get the current selected Item
PushLong wiHELP
PushLong #helPOP
_GetCtlValueByID
lda #0
pha
pha
pha
pha
pha
pha
pha
_TESetText
rts
*--------------
helpENTRY PushWord helVPOP
PushLong wiHELP
PushLong #helPOP
_SetCtlValueByID
rts
helpESCAPE pha
PushLong wiHELP
PushLong #helPOP
_GetCtlValueByID
pla
sta helVPOP
rts
*--------------
PAINTHELP PushLong wiHELP
_DrawControls
rtl
*--------------
helVPOP dw $1311
wiHELP ds 4