mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-04 04:31:04 +00:00
47 lines
651 B
ArmAsm
47 lines
651 B
ArmAsm
*----------------------------------------
|
|
* True Convert : 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
|