166 lines
3.8 KiB
NASM
166 lines
3.8 KiB
NASM
**************************************************************************
|
||
* *
|
||
* LAVA_CYCLE - START THE LAVA COLOR CYCLER *
|
||
* *
|
||
**************************************************************************
|
||
LAVA_CYCLE:
|
||
MOVI LAVA1,A8
|
||
MOVK 3,A9
|
||
MOVK 15,A10
|
||
MOVK 15,A11
|
||
CREATE INDPID,CYCLE16
|
||
DIE
|
||
|
||
.BSS PAL1,16*16*2 ;ALLOCATE 2 X COLOR AREA IN RAM
|
||
|
||
MOVI FACEPAL,A8
|
||
MOVI PAL1,A9
|
||
MOVI [53,61],A10
|
||
MOVK 4,A11
|
||
CREATE 0,COLCYC ;COLOR CYCLER
|
||
*
|
||
*CHEAP COLOR CYCLER
|
||
*CYCLES ANY NUMBER OF COLORS
|
||
*A8=PALETTE NAME
|
||
*A9=RAM STORAGE AREA
|
||
*A10=MSW START COLOR, LSW END COLOR
|
||
*A11=SPEED
|
||
|
||
COLCYC
|
||
SLEEP 4
|
||
MOVE A8,A0
|
||
CALLA FINDPAL ;FIND PALETTE
|
||
JREQ COLCYC ;WAIT TILL IT SHOWS UP FOLKS...
|
||
|
||
*GET THE COLORS INTO RAM
|
||
CLR A1
|
||
MOVX A10,A1 ;GET END COLOR
|
||
SRL 16,A10 ;ADJUST START COLOR
|
||
SUB A10,A1 ;GET COUNT
|
||
MOVE A1,*A13(PDATA),W ;SAVE COUNT
|
||
MOVE A1,A4
|
||
SLL 4,A1 ;COUNT IN WORDS
|
||
MOVE A10,A5
|
||
SLL 4,A5 ;OFFSET INTO PALETTE
|
||
ADD A8,A5
|
||
ADDK 16,A5 ;SKIP PALETTE WORD COUNT
|
||
MOVE A9,A3
|
||
MOVE A9,A6
|
||
ADD A1,A6
|
||
MOVE A6,A8
|
||
COLCYC1
|
||
MOVE *A5+,A7,W ;TRANSFER IT TWICE
|
||
MOVE A7,*A3+,W
|
||
MOVE A7,*A6+,W
|
||
DSJS A4,COLCYC1
|
||
|
||
SRL 8,A0
|
||
SLL 8,A0
|
||
ADD A0,A10 ;COLRAM DESTINATION
|
||
MOVE A9,*A13(PDATA+20),L ;SAVE RAM ADDRESS
|
||
COLCYCP
|
||
MOVE A9,A0 ;GET SOURCE ADDRESS
|
||
MOVE A10,A1 ;GET DESTINATION CONSTANT
|
||
MOVE *A13(PDATA),A2,W ;GET COUNT
|
||
CALLA PALSET
|
||
ADDK 16,A9
|
||
CMP A9,A8
|
||
JRLO CCYCSLP
|
||
MOVE *A13(PDATA+>20),A9,L ;GET SOURCE TABLE START
|
||
CCYCSLP
|
||
MOVE A11,A0 ;GET SLEEP TIME
|
||
CALLA PRCSLP
|
||
JRUC COLCYCP
|
||
|
||
**************************************************************************
|
||
* *
|
||
* CYCLE16 - PROCESS TO CYCLE UP TO SIXTEEN COLORS OF A GIVEN PALETTE. *
|
||
* A8 = PTR TO PALETTE (PALETTE MUST BE ALLOCATED). *
|
||
* A9 = START COLOR # *
|
||
* A10 = END COLOR # *
|
||
* A11 = SPEED *
|
||
* *
|
||
**************************************************************************
|
||
CYCLE16:
|
||
MOVE A11,*A13(PDATA),W ;KEEP THE SLEEP TIME
|
||
MOVE A10,A2
|
||
CLR A11 ;THIS WILL BE THE DIRECTION FLAG
|
||
SUB A9,A2
|
||
JRNN CYCLE16_FOR ;BR = FOWARD CYCLE
|
||
ABS A2
|
||
NOT A11 ;FLAG A REVERSE CYCLE
|
||
SWAP A9,A10 ;SWAP THESE FOR LOAD
|
||
|
||
CYCLE16_FOR:
|
||
MOVE A9,*A13(PDATA+10H),W ;STORE THE START COLOR
|
||
MOVE A9,A3
|
||
MOVE A13,A9
|
||
ADDI PDATA+60H,A9 ;START COLOR ADDRESS
|
||
MOVE A9,A10
|
||
MOVE A2,A4
|
||
SLL 4,A4
|
||
ADD A4,A10 ;END COLOR ADDRESS
|
||
|
||
MOVE A8,A0
|
||
MOVE A9,A1 ;THIS IS THE STARTING COLOR LOCATION
|
||
ADDK 16,A0 ;SKIP THE COLOR COUNT
|
||
SLL 4,A3
|
||
ADD A3,A0 ;AND GET TO THE START COLOR
|
||
INC A2
|
||
MOVE A2,*A13(PDATA+20H),W ;STORE THE COLOR COUNT
|
||
|
||
CYCLE16_LOAD:
|
||
MOVE *A0+,*A1+,W ;TRANSFER THE PALETTE TO RAM
|
||
DSJS A2,CYCLE16_LOAD
|
||
|
||
CYCLE16_WAIT:
|
||
MOVE A8,A0
|
||
CALLA FINDPAL ;DOES THIS PALETTE EXIST?
|
||
JRNZ CYCLE16_FND ;BR = YES, GO AHEAD AND CYCLE
|
||
SLOOP 6,CYCLE16_WAIT ;WAIT FOR IT TO EXIST
|
||
|
||
CYCLE16_FND:
|
||
MOVE A0,A7 ;STORE FOUND PALETTE NUMBER HERE
|
||
MOVE *A13(PDATA+20H),A4,W ;DO IT THIS MANY TIMES
|
||
DEC A4 ;WATCH THE ZERO BASE
|
||
|
||
MOVE A11,A11 ;CHECK DIRECTION
|
||
JRNN CYCLE16_UP ;BR = CYCLE COLORS UP
|
||
MOVE A9,A1 ;GET THE END COLOR
|
||
MOVE *A1,A3,W ;STORE THE COLOR
|
||
MOVE A10,A2
|
||
MOVE A1,A0
|
||
ADDK 16,A1
|
||
CYCLE16_DN_LP:
|
||
MOVE *A1+,*A0+,W
|
||
DSJS A4,CYCLE16_DN_LP
|
||
JRUC CYCLE16_DONE
|
||
|
||
CYCLE16_UP:
|
||
MOVE A10,A1 ;GET THE END COLOR
|
||
MOVE *A1,A3,W ;STORE THE COLOR
|
||
MOVE A9,A2
|
||
MOVE A1,A0
|
||
ADDK 16,A1
|
||
CYCLE16_UP_LP:
|
||
MOVE -*A0,-*A1,W
|
||
DSJS A4,CYCLE16_UP_LP
|
||
CYCLE16_DONE:
|
||
MOVE A3,*A2,W ;WRAP COLOR
|
||
MOVE A9,A0
|
||
MOVE *A13(PDATA+10H),A1,W
|
||
ZEXT A7
|
||
|
||
.IF YUNIT
|
||
SRL 12,A7
|
||
.ELSE
|
||
SRL 8,A7
|
||
.ENDIF
|
||
|
||
SLL 8,A7
|
||
OR A7,A1 ;DESTINATION: 8-15 PALETTE, 0-7 START
|
||
MOVE *A13(PDATA+20H),A2,W ;GET THE COUNT
|
||
CALLA PALSET ;SETUP A TRANSFER
|
||
MOVE *A13(PDATA),A0,W
|
||
SLOOPR A0,CYCLE16_WAIT
|
||
|