48 lines
1.0 KiB
NASM
48 lines
1.0 KiB
NASM
CALLA CLRPAL ;CLEAR PALETTES
|
||
MOVI 32,A11
|
||
MOVE @WORLDTLX,A0,L ;GET STARTING COORD
|
||
ADDI >800000,A0
|
||
MOVE @WORLDTLY,A1,L
|
||
ADDI >800000,A1
|
||
MOVI PDTH1,A2 ;(OIMG)
|
||
MOVI >1CF,A3 ;(OZPOS)
|
||
MOVI DMAWNZ,A4 ;(OFLAGS) NON-ZERO VALUE
|
||
MOVI CLSNEUT,A5 ;(OID) INITIALLY HARMLESS
|
||
CLR A6 ;(XV)
|
||
CLR A7 ;(YV)
|
||
CALLA BEGINOBJ2
|
||
SLEEP 20
|
||
*A0= PALSRC = 32 BIT SOURCE ADDRESS OF PALETTE COLOR DATA
|
||
*A1= PALDEST = BIT 8-15 DESTINATION PALETTE | BIT 0-7 START COLOR
|
||
*A2= PLDCNT = 16 BIT COLOR COUNT
|
||
*RETURNS: EQ IF UNABLE TO SETUP TRANSFER, NE IF TRANSFER O.K.
|
||
*ZERO YOUR OLD PALETTE
|
||
PALTL
|
||
MOVE *A8(OPAL),A1,W
|
||
SRL 8,A1
|
||
SLL 8,A1
|
||
MOVI 64,A2
|
||
MOVI ZEROPAL+>10,A0
|
||
CALLA PALSET
|
||
SLEEP 10
|
||
|
||
MOVE A11,A0
|
||
CALLA GETFPAL
|
||
JRNE PALT1
|
||
MOVE A11,A0
|
||
CALLA GETBPAL
|
||
PALT1
|
||
MOVE A0,*A8(OPAL),W
|
||
MOVE A0,A1
|
||
SRL 8,A1
|
||
SLL 8,A1
|
||
MOVI 64,A2
|
||
MOVI nup1+>10,A0
|
||
CALLA PALSET
|
||
SLEEP 10
|
||
DSJ A11,PALTL
|
||
ZEROPAL
|
||
.WORD 64
|
||
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||
|