mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-06 01:31:57 +00:00
106 lines
1.4 KiB
ArmAsm
106 lines
1.4 KiB
ArmAsm
|
*----------------------------------------
|
||
|
|
* True Convert : Options
|
||
|
|
*----------------------------------------
|
||
|
|
|
||
|
|
optOK = $1B10
|
||
|
|
optCANCEL = $1B20
|
||
|
|
optERROR = $1B30
|
||
|
|
optVIEW = $1B40
|
||
|
|
optSIGHT = $1B50
|
||
|
|
|
||
|
|
*--------------
|
||
|
|
|
||
|
|
meOPTIONS pha
|
||
|
|
pha
|
||
|
|
PushLong #0
|
||
|
|
PushLong #1
|
||
|
|
PushLong #PAINTOPTIONS
|
||
|
|
PushLong #0
|
||
|
|
PushWord #refIsResource
|
||
|
|
PushLong #wOPTIONS
|
||
|
|
PushWord #$800e
|
||
|
|
_NewWindow2
|
||
|
|
PullLong wiOPTIONS
|
||
|
|
|
||
|
|
jsr optionsENTRY
|
||
|
|
|
||
|
|
]lp pha
|
||
|
|
pha
|
||
|
|
PushLong #taskREC
|
||
|
|
PushLong #0
|
||
|
|
PushLong #0
|
||
|
|
PushLong #-1
|
||
|
|
PushWord #%11000000_00011000
|
||
|
|
_DoModalWindow
|
||
|
|
ply
|
||
|
|
plx
|
||
|
|
cpy #optCANCEL
|
||
|
|
beq meOPTIONS9
|
||
|
|
cpy #optOK
|
||
|
|
bne ]lp
|
||
|
|
|
||
|
|
jsr optionsESCAPE
|
||
|
|
|
||
|
|
meOPTIONS9 _InitCursor
|
||
|
|
|
||
|
|
PushLong wiOPTIONS
|
||
|
|
_CloseWindow
|
||
|
|
|
||
|
|
rts
|
||
|
|
|
||
|
|
*--------------
|
||
|
|
|
||
|
|
PAINTOPTIONS PushLong wiOPTIONS
|
||
|
|
_DrawControls
|
||
|
|
rtl
|
||
|
|
|
||
|
|
*--------------
|
||
|
|
|
||
|
|
wiOPTIONS ds 4
|
||
|
|
|
||
|
|
*--------------
|
||
|
|
|
||
|
|
optionsENTRY PushWord optVERROR
|
||
|
|
PushLong wiOPTIONS
|
||
|
|
PushLong #optERROR
|
||
|
|
_SetCtlValueByID
|
||
|
|
|
||
|
|
PushWord optVVIEW
|
||
|
|
PushLong wiOPTIONS
|
||
|
|
PushLong #optVIEW
|
||
|
|
_SetCtlValueByID
|
||
|
|
|
||
|
|
PushWord optVSIGHT
|
||
|
|
PushLong wiOPTIONS
|
||
|
|
PushLong #optSIGHT
|
||
|
|
_SetCtlValueByID
|
||
|
|
rts
|
||
|
|
|
||
|
|
optionsESCAPE pha
|
||
|
|
PushLong wiOPTIONS
|
||
|
|
PushLong #optERROR
|
||
|
|
_GetCtlValueByID
|
||
|
|
pla
|
||
|
|
sta optVERROR
|
||
|
|
|
||
|
|
pha
|
||
|
|
PushLong wiOPTIONS
|
||
|
|
PushLong #optVIEW
|
||
|
|
_GetCtlValueByID
|
||
|
|
pla
|
||
|
|
sta optVVIEW
|
||
|
|
|
||
|
|
pha
|
||
|
|
PushLong wiOPTIONS
|
||
|
|
PushLong #optSIGHT
|
||
|
|
_GetCtlValueByID
|
||
|
|
pla
|
||
|
|
sta optVSIGHT
|
||
|
|
rts
|
||
|
|
|
||
|
|
*--------------
|
||
|
|
|
||
|
|
optVERROR dw $0001
|
||
|
|
optVVIEW dw $0001
|
||
|
|
optVSIGHT dw $0000
|