mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-01 15:30:02 +00:00
47 lines
647 B
ArmAsm
47 lines
647 B
ArmAsm
|
*----------------------------------------
|
||
|
|
* BatchMan : Thermometer
|
||
|
|
*----------------------------------------
|
||
|
|
|
||
|
|
ctlTHERMO = $1602
|
||
|
|
|
||
|
|
showTHERMO pha
|
||
|
|
pha
|
||
|
|
PushLong #0
|
||
|
|
PushLong #wTHERMO
|
||
|
|
PushLong #PAINTTHERMO
|
||
|
|
PushLong #0
|
||
|
|
PushWord #refIsResource
|
||
|
|
PushLong #wTHERMO
|
||
|
|
PushWord #$800e
|
||
|
|
_NewWindow2
|
||
|
|
PullLong wiTHERMO
|
||
|
|
rts
|
||
|
|
|
||
|
|
hideTHERMO PushLong wiTHERMO
|
||
|
|
_CloseWindow
|
||
|
|
rts
|
||
|
|
|
||
|
|
*--------------
|
||
|
|
|
||
|
|
initTHERMO PushWord #1
|
||
|
|
PushLong wiTHERMO
|
||
|
|
PushLong #ctlTHERMO
|
||
|
|
_SetCtlValueByID
|
||
|
|
rts
|
||
|
|
|
||
|
|
moveTHERMO pha
|
||
|
|
PushLong wiTHERMO
|
||
|
|
PushLong #ctlTHERMO
|
||
|
|
_SetCtlValueByID
|
||
|
|
rts
|
||
|
|
|
||
|
|
*--------------
|
||
|
|
|
||
|
|
PAINTTHERMO PushLong wiTHERMO
|
||
|
|
_DrawControls
|
||
|
|
rtl
|
||
|
|
|
||
|
|
*--------------
|
||
|
|
|
||
|
|
wiTHERMO ds 4
|