mirror of
https://github.com/antoinevignau/source.git
synced 2024-09-01 04:29:09 +00:00
82 lines
989 B
ArmAsm
82 lines
989 B
ArmAsm
*----------------------------------------
|
|
* BatchMan : 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
|