mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-04 04:31:04 +00:00
31 lines
439 B
ArmAsm
31 lines
439 B
ArmAsm
*----------------------------------------
|
|
* True Convert : Palette
|
|
*----------------------------------------
|
|
|
|
mePALEDIT rts
|
|
|
|
*----------------------------------------
|
|
|
|
mePALLOAD jsr stdOPEN
|
|
bcc mePALLOAD1
|
|
rts
|
|
mePALLOAD1 jsr doPALETTE
|
|
rts
|
|
|
|
*----------------------------------------
|
|
|
|
mePALSAVE jsr stdSAVE
|
|
bcc mePALSAVE1
|
|
rts
|
|
mePALSAVE1 jsr doPALETTE
|
|
rts
|
|
|
|
*--------------
|
|
|
|
doPALETTE sep #$20
|
|
ldal $c034
|
|
inc
|
|
stal $c034
|
|
rep #$20
|
|
rts
|