mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-04 04:31:04 +00:00
88 lines
1.1 KiB
ArmAsm
88 lines
1.1 KiB
ArmAsm
*----------------------------------------
|
|
* True Convert : Colorize
|
|
*----------------------------------------
|
|
|
|
colOK = $1A50
|
|
colCANCEL = $1A40
|
|
colPOP = $1A20
|
|
|
|
*--------------
|
|
|
|
meCOLORIZE pha
|
|
pha
|
|
PushLong #0
|
|
PushLong #1
|
|
PushLong #PAINTCOLORIZE
|
|
PushLong #0
|
|
PushWord #refIsResource
|
|
PushLong #wCOLORIZE
|
|
PushWord #$800e
|
|
_NewWindow2
|
|
PullLong wiCOLORIZE
|
|
|
|
jsr colorizeENTRY
|
|
|
|
]lp pha
|
|
pha
|
|
PushLong #taskREC
|
|
PushLong #0
|
|
PushLong #0
|
|
PushLong #-1
|
|
PushWord #%11000000_00011000
|
|
_DoModalWindow
|
|
ply
|
|
plx
|
|
cpy #colCANCEL
|
|
beq meCOLORIZE9
|
|
cpy #colOK
|
|
bne ]lp
|
|
|
|
jsr doCOLORIZE
|
|
jsr colorizeESCAPE
|
|
|
|
meCOLORIZE9 _InitCursor
|
|
PushLong wiCOLORIZE
|
|
_CloseWindow
|
|
rts
|
|
|
|
*--------------
|
|
|
|
PAINTCOLORIZE PushLong wiCOLORIZE
|
|
_DrawControls
|
|
rtl
|
|
|
|
*--------------
|
|
|
|
doCOLORIZE sep #$20
|
|
ldal $c034
|
|
inc
|
|
stal $c034
|
|
rep #$20
|
|
rts
|
|
|
|
*--------------
|
|
|
|
colorizeENTRY PushWord colVPOP
|
|
PushLong wiCOLORIZE
|
|
PushLong #colPOP
|
|
_SetCtlValueByID
|
|
rts
|
|
|
|
*--------------
|
|
|
|
colorizeESCAPE pha
|
|
PushLong wiCOLORIZE
|
|
PushLong #colPOP
|
|
_GetCtlValueByID
|
|
pla
|
|
sta colVPOP
|
|
rts
|
|
|
|
*--------------
|
|
|
|
colVPOP dw $1A21
|
|
|
|
*--------------
|
|
|
|
wiCOLORIZE ds 4
|