mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-01 15:30:02 +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
|