historicalsource
/
smashtv
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
smashtv/GAL.ASM

1248 lines
22 KiB
NASM
Raw Normal View History

first commit
2021-04-06 15:09:56 -07:00
.FILE 'GAL.ASM'
.TITLE 'ROBO-RAMA GAME PROGRAM'
.WIDTH 132
.OPTION B,D,L,T
.MNOLIST
;
; INITIATED: JANUARY 29,1990
; MODIFIED: FOREVER....
; SOFTWARE: EUGENE JARVIS
;
; COPYRIGHT (C) 1990 WILLIAMS ELECTRONICS GAMES, INC.
;
;
; GET THE SYSTEM STUFF
.INCLUDE "MPROC.EQU" ;MPROC EQUATES
.INCLUDE "DISP.EQU" ;DISPLAY PROC. EQUATES
.INCLUDE "\VIDEO\SYS\SYS.INC" ;Z UNIT SYSTEM EQUATES
.INCLUDE "\VIDEO\SYS\MACROS.HDR" ;MACROS DEFINITIONS
.INCLUDE "IMGTBL.GLO"
.INCLUDE "ROBO.EQU"
.INCLUDE "GALAGAS.TBL"
;
;SOUNDS
;
.REF EXP3HI,TING2,EXP3
;
;SYMBOLS EXTERNALLY DEFINED
;
.REF ECON,ORB_LIT,FRANIM,BIG3A,SCRADD2,P1DATA,P2DATA
.REF PSTOP,ADPCS4,HALT,FLASHME,CIRCUIT
.REF GET_VALID_XY,GAMSTATE,WAVEYX,BEGINOBJ,BEGINOBJ2,EHALT
.REF RANDPER,RANDOM,RANGRAND,DRINF,SET_GATE_2,GET_WVADDR,DEXIT
.REF RANDU,SRAND
.REF FINDPAL,PALSET,GETFPAL
.REF GETPLYR,SCORPLAY,ORBBNDCK
.REF SMLEXP
;
;SYMBOLS DEFINED IN THIS FILE
;
.DEF SPWN_GAL1,SPWN_GAL2,SPWN_GAL3,GALBUL,GALKIL,SMRT_GAL
.DEF SPWN_GAL1A,GAL_CNT,MAXGAL,GALTYP,ZOOM4
.BSS GALTYP,16
.BSS MAXGAL,8 ;MAXIMUM ON SCREEN FOR CURRENT WAVE
.BSS GAL_CNT,16 ;GAL CNT ON SCREEN
.BSS GAL_DN,16 ;0=NO, 1=YES
.TEXT
SPWN_GAL3
;IS ONE SWARM ALREADY OUT?
;IF SO, SKIP THIS
MOVE @GAMSTATE,A0,W
CMPI INAMODE,A0
JREQ GALRET
CREATE GALPID,SWARMST ;START A SWARM
RETS
SPWN_GAL1A
MOVE @GAL_CNT,A2
MOVB @MAXGAL,A3
CMP A3,A2 ;SAUCERS MAXED OUT?
JRGT GALRET
CREATE GALPID,CHAINA
RETS
SPWN_GAL1
MOVE @GAL_CNT,A2
MOVB @MAXGAL,A3
CMP A3,A2 ;SAUCERS MAXED OUT?
JRGT GALRET
CREATE GALPID,CHAIN ;NOT REALLY A CHAIN!
GALRET RETS
SPWN_GAL2
*
*GET YOUR SAUCER GOING
*
MOVE @GAL_CNT,A2
MOVB @MAXGAL,A3
CMP A3,A2 ;SAUCERS MAXED OUT?
JRGT GALRET
; MOVI 1,A8
;GALSTLP
CREATE GALPID,GALDISP ;START ONE SAUCER
; DSJS A8,GALSTLP
RETS
*
*FORM A SWARM
*PDATA+>20=LINK TO HEAD (COUNT OF BALLS IN HEAD)
*PDATA+>60=X ACCEL RATE
*PDATA+>80=Y ACCEL RATE
*
SWARMST
CALLR SETUP_SWRM
CALLR INIT_HD ;GET INITIAL GUY
CREATE TYPGAL+SUBHEAD,HEAD
MOVE A0,*A8(OPLINK),L
MOVI 20,A9
MOVE A9,*A0(PDATA+>20) ;BALL COUNT
MOVE *A8(OXVAL),A10,L ;SAVE INITIAL COORD
MOVE *A8(OYVAL),A11,L
MOVE A0,A2
MOVI >2000,A0
CALLA RANDU
ADDI >2000,A0
MOVE A0,*A2(PDATA+>60),L ;GET ACCEL RATES
MOVE A0,*A2(PDATA+>80),L
CLR A0
MOVE A0,*A2(PDATA+>A0),L ;ZERO CURRENT ACCEL
MOVE A0,*A2(PDATA+>C0),L
MOVE A0,*A2(PDATA+>40),L
SWMSTLP
; CALLR SETUP_SWRM
MOVE A10,A0
MOVE A11,A1
MOVE A2,-*SP,L ;SAVE A2
CALLR INIT_BALL ;ENTRY POINT WITH EXISTING X,Y COORD
CREATE TYPGAL+SUBBALL,SWARM
MOVE *SP+,A2,L
MOVE A2,*A0(PDATA+>20),L ;LINK TO BOSS PROCESS
MOVE A0,*A8(OPLINK),L
MOVE A0,A1
MOVI >8000,A0
CALLA RANDU
ADDI >8000,A0
MOVE A0,*A1(PDATA+>60),L ;GET ACCEL RATES
MOVE A0,*A1(PDATA+>80),L
CLR A0
MOVE A0,*A1(PDATA+>A0),L ;ZERO CURRENT ACCEL
MOVE A0,*A1(PDATA+>C0),L
MOVE A0,*A2(PDATA+>40),L
DSJ A9,SWMSTLP
DIE
; SLEEP 400
; JRUC SWARMST
*
*SWARM O'BALLS
*
*PDATA+>20=LINK TO BOSS PROCESS
*PDATA+>60=X ACCEL RATE
*PDATA+>80=Y ACCEL RATE
*PDATA+>A0=X CURR ACCEL
*PDATA+>C0=Y CURR ACCEL
*
SWARM
CALLR SWMVEL
SWARML
MOVI 300,A0
CALLA RANDPER
JRNC SWARM1
CALLR SWMVEL
SWARM1
MOVE *A13(PDATA+>20),A2,L ;GET HEAD PROCESS
MOVE *A2(PA8),A2,L ;GET HEAD OBJECT
JREQ SWMX ;HEAD IS DEAD
MOVE *A13(PDATA+>A0),A4,L ;GET X ACCELL
MOVE *A8(OXVEL),A0,L
ADD A4,A0 ;ADD ACCELERATION
MOVE A0,A1
SRA 2,A1 ;DAMPING
SUB A1,A0
MOVE A0,*A8(OXVEL),L
MOVE *A13(PDATA+>C0),A4,L ;GET Y ACCELL
MOVE *A8(OYVEL),A0,L
ADD A4,A0 ;ADD ACCELERATION
MOVE A0,A1
SRA 2,A1 ;DAMPING
SUB A1,A0
MOVE A0,*A8(OYVEL),L
CALLA ORBBNDCK ;BOUNCE OFF WALLS
SLOOP 2,SWARML
*HEAD IS DEAD, BAG IT DUDES
SWMX
MOVK 15,A10 ;GET FLOAT TIME
SWMXL
CALLA ORBBNDCK ;BOUNCE OFF WALLS
SLEEP 4
DSJS A10,SWMXL
CALLA BLCLEAN
MOVI EXP3,A0
CALLA ONESND
CREATE 0,GALBLO
JAUC SUCIDE
*
*SWARM VELOCITY
*
*PDATA+>20=LINK TO BOSS PROCESS
*PDATA+>60=X ACCEL RATE
*PDATA+>80=Y ACCEL RATE
*PDATA+>A0=X CURR ACCEL
*PDATA+>C0=Y CURR ACCEL
SWMVEL
MOVE *A13(PDATA+>60),A4,L ;GET X ACCELERATION
MOVE *A13(PDATA+>20),A2,L ;GET HEAD PROCESS
MOVE *A2(PA8),A2,L ;GET HEAD OBJECT
JREQ SWMVELX ;HEAD IS DEAD
MOVE *A2(OXPOS),A1,W ;GET CORE POSITION
MOVI 12,A0 ;ADD RANDOM
CALLA SRAND
ADD A0,A1
MOVE *A8(OXPOS),A3,W
SUB A1,A3
JRN SWMV1
NEG A4
SWMV1
MOVE A4,*A13(PDATA+>A0),L
MOVE *A13(PDATA+>80),A4,L ;GET Y ACCELERATION
MOVE *A2(OYPOS),A1,W ;GET CORE POSITION
MOVI 12,A0 ;ADD RANDOM
CALLA SRAND
ADD A0,A1
MOVE *A8(OYPOS),A3,W
SUB A1,A3
JRN SWMV2
NEG A4
SWMV2
MOVE A4,*A13(PDATA+>C0),L
SWMVELX
RETS
*
*SWARM BOSS
*PDATA+>20=NUMBER OF SWARMERS LEFT
*PDATA+>60=X ACCEL RATE
*PDATA+>80=Y ACCEL RATE
*PDATA+>A0=X CURR ACCEL
*PDATA+>C0=Y CURR ACCEL
*
HEAD
MOVI BALLGAL,A9 ;ROTATE THE SUCKER
CALLA GETPLYR
MOVE A0,A11
CALLR HDSVEL
HEADL
MOVE A8,A8 ;HEAD OBJECT IS DEAD, WAIT AROUND
JREQ HEADIE
MOVI 60,A0
CALLA RANDPER
JRNC HEAD1
MOVI 60,A0
CALLA RANDPER
JRNC HEAD0
CALLA GETPLYR
MOVE A0,A11
HEAD0
CALLR HDSVEL
HEAD1
MOVE *A13(PDATA+>A0),A4,L ;GET X ACCELL
MOVE *A8(OXVEL),A0,L
ADD A4,A0 ;ADD ACCELERATION
MOVE A0,A1
SRA 3,A1 ;DAMPING
SUB A1,A0
MOVE A0,*A8(OXVEL),L
MOVE *A13(PDATA+>C0),A4,L ;GET Y ACCELL
MOVE *A8(OYVEL),A0,L
ADD A4,A0 ;ADD ACCELERATION
MOVE A0,A1
SRA 3,A1 ;DAMPING
SUB A1,A0
MOVE A0,*A8(OYVEL),L
CALLA ORBBNDCK ;BOUNCE OFF WALLS
HEAD2
MOVK 4,A1
JSRP FRANIM
JRNC HEADWT
MOVI BALLGAL,A9
JRUC HEAD2
HEADWT
SLOOP 1,HEADL
HEADIE
MOVE *A13(PDATA+>20),A0,W
JAEQ SUCIDE ;TOTALLY DEAD
SLOOP 4,HEADIE
*
*HEAD OF SWARM VELOCITY
*A11=PLAYER TO GO AFTER
*PDATA+>60=X ACCEL RATE
*PDATA+>80=Y ACCEL RATE
*PDATA+>A0=X CURR ACCEL
*PDATA+>C0=Y CURR ACCEL
*
HDSVEL
MOVE *A13(PDATA+>60),A4,L ;GET X ACCELERATION
MOVE *A11(OXPOS),A1,W ;GET PLAYER POSITION
MOVI 60,A0 ;ADD RANDOM
CALLA SRAND
ADD A0,A1
MOVE *A8(OXPOS),A3,W
SUB A1,A3
JRN HDSV1
NEG A4
HDSV1
MOVE A4,*A13(PDATA+>A0),L
MOVE *A13(PDATA+>80),A4,L ;GET Y ACCELERATION
MOVE *A11(OYPOS),A1,W ;GET PLAYER POSITION
MOVI 60,A0 ;ADD RANDOM
CALLA SRAND
ADD A0,A1
MOVE *A8(OYPOS),A3,W
SUB A1,A3
JRN HDSV2
NEG A4
HDSV2
MOVE A4,*A13(PDATA+>C0),L
RETS
*
*FORM A CHAIN
*
CHAIN
CALLA INIT_GAL ;GET INITIAL GUY
CALLR SETUP_GAL ;INC CNT, SET DIR, SET DEATH FLAG, ETC
CREATE TYPGAL,CHNPROC
MOVE A0,*A8(OPLINK),L
MOVI 1,A9 ;8
CLR A1
MOVE A1,*A0(PDATA+>20),L ;CLEAR BACK LINK OF FIRST GUY
MOVE *A8(OXVAL),A10,L ;SAVE INITIAL COORD
MOVE *A8(OYVAL),A11,L
; MOVE @CHNTOT,A2
; INC A2
; MOVE A2,@CHNTOT
MOVI CLSENMY|TYPGAL|SUBCHN,A5 ;(OID)
MOVE A5,*A8(OID),W
;CHANGE TO OTHER PAL
PUSH A0
MOVI GALP2,A0 ;GPAL2
CALLA GETFPAL ;GET A COLOR MAP ASSIGNMENT
MOVE A0,*A8(OPAL),W ;STORE THE NEW PALETTE
PULL A0
JRUC GOEND
CHAINA
;REAL TRAIN GALAGA ENEMY
MOVE @GALTYP,A1
JRZ CBA
CALLA INIT_GAL2 ;GET INITIAL GUY
;3RD CIRCUIT, CHANGE ARTWORK FOR THIS CHAIN.
;CHANGE TO OTHER PAL
MOVI SPDRP,A0
CALLA GETFPAL ;GET A COLOR MAP ASSIGNMENT
MOVE A0,*A8(OPAL),W ;STORE THE NEW PALETTE
JRUC CBAA
CBA
CALLA INIT_GAL ;GET INITIAL GUY
CBAA
CALLR SETUP_GALA ;INC CNT, SET DIR, SET DEATH FLAG, ETC
CREATE TYPGAL,CHNPROC
MOVE A0,*A8(OPLINK),L
MOVI 8,A9 ;8
MOVE @GALTYP,A1
JRZ CBV
MOVK 3,A9
CBV
CLR A1
MOVE A1,*A0(PDATA+>20),L ;CLEAR BACK LINK OF FIRST GUY
MOVE *A8(OXVAL),A10,L ;SAVE INITIAL COORD
MOVE *A8(OYVAL),A11,L
; MOVE @CHNTOT,A2
; INC A2
; MOVE A2,@CHNTOT
MOVI CLSENMY|TYPGAL|SUBCHN,A5 ;(OID)
MOVE A5,*A8(OID),W
CHAINLP
MOVE A0,A2
MOVE A10,A0
MOVE A11,A1
MOVE A2,-*SP,L ;SAVE A2
CALLR INIT_GAL1 ;ENTRY POINT WITH EXISTING X,Y COORD
MOVE @GALTYP,A0
JRZ CBB
;3RD CIRCUIT, CHANGE ARTWORK FOR THIS CHAIN.
;CHANGE TO OTHER PAL
MOVI SPDRP,A0
CALLA GETFPAL ;GET A COLOR MAP ASSIGNMENT
MOVE A0,*A8(OPAL),W ;STORE THE NEW PALETTE
CBB
MOVI CLSENMY|TYPGAL|SUBCHN,A5 ;(OID)
MOVE A5,*A8(OID),W
CREATE TYPGAL,CHNPROC
MOVE @GAL_CNT,A5
INC A5
MOVE A5,@GAL_CNT
MOVE *SP+,A2,L
MOVE A0,*A8(OPLINK),L
MOVE A2,*A0(PDATA+>20),L ;BACK LINK TO PREVIOUS
MOVE A0,*A2(PDATA+>40),L ;FRONT LINK TO NEXT
DSJ A9,CHAINLP
GOEND:
CLR A1
MOVE A1,*A0(PDATA+>40),L ;CLEAR FRONT LINK OF LAST GUY
DIE
*
*GALAGA CHAIN PROCESS
*PDATA=HIT COUNT
*PDATA+>20=LINK TO PREVIOUS PROCESS
*PDATA+>40=LINK TO NEXT PROCESS
CHNPROC
CLR A0
MOVE A0,*A13(PDATA),L ;CLEAR BULLET HIT COUNT
MOVI GRENGAL,A9 ;GET ANIMATION POINTER
MOVE @GALTYP,A0
JRZ CP1
MOVI SPDRGAL,A9 ;GET ANIMATION POINTER
CP1 MOVE A9,A10
SLEEP 2
MOVE @EHALT,A0
JRNZ CHNPROC ;HALT GALS WHILE PLAYER ENTERS
JRUC CHN1
CHN:
MOVI 20,A0 ;GET NEW PLAYER TO SEEK
CALLA RANDPER
JRNC CHNV01 ;NO
CHN1
CALLA GETPLYR
MOVE A0,A11
CHNV01
MOVE *A13(PDATA+>20),A0,L
JREQ CHNV02 ;LEADER
CALLR CHNACC
JRUC CHNV03
CHNV02
CALLR GALACC
CHNV03
MOVE *A8(OXVEL),A0,L
MOVE *A8(OYVEL),A2,L
CHNV030
MOVE A0,A1
ABS A1
MOVE A2,A3
ABS A3
ADD A1,A3
MOVE @GALTYP,A4
JRZ GOB
CMPI >30000,A3 ;40000
JRUC GOB2
GOB
CMPI >20000,A3 ;40000
GOB2
JRLS CHNV03A
MOVE A0,A4
SRA 3,A4
SUB A4,A0
MOVE A2,A6
SRA 3,A6
SUB A6,A2
JRUC CHNV030
CHNV03A
MOVE A0,*A8(OXVEL),L
MOVE A2,*A8(OYVEL),L
CALLA ORBBNDCK ;CHECK BOUNDARY COLLISION
SLEEP 2
CHNV04
MOVK 4,A1
JSRP FRANIM
JRNC CHN
MOVE A10,A9 ;RESTORE FRANIM LIST PNTR
JRUC CHNV04
*
*CHNACC
*A0=GUY TO FOLLOW PROCESS
*A8=GAL
*
CHNACC
MOVE *A0(PA8),A0,L ;GET OBJECT POINTER
MOVE *A0(OXVAL),A2,L
MOVE *A0(OYVAL),A3,L
MOVE *A8(OXVAL),A4,L
MOVE *A8(OYVAL),A5,L
SUB A4,A2
SUB A5,A3
SRA 6,A2
SRA 6,A3
MOVE @GALTYP,A1
JRZ CHG1
SLA 1,A2
SLA 1,A3
CHG1
MOVE *A8(OYVEL),A0,L
ADD A3,A0
MOVE A0,A1 ;DAMPING
SRA 3,A1
SUB A1,A0
MOVE A0,*A8(OYVEL),L
MOVE *A8(OXVEL),A0,L
ADD A2,A0
MOVE A0,A1 ;DAMPING
SRA 3,A1
SUB A1,A0
MOVE A0,*A8(OXVEL),L
RETS
*
*SAUCER START PROCESS
*
GALDISP
CALLR GETDRA
CALLA INIT_GALA
CALLR SETUP_GALB ;INC CNT, SET DIR, SET DEATH FLAG, ETC
*
* PURPLE GALAGA PROCESS
* A8=OBJECT
* A11=PLAYER TO SEEK
* A13=PROCESS
* PDATA=BULLET HIT COUNT
* PDATA+>40=XACC
* PDATA+>50=YACC
*
LUP_TOP:
CLR A0
MOVE A0,*A13(PDATA),L ;CLEAR BULLET HIT COUNT
MOVE A0,*A13(PDATA+>20),L ;NULL OUT LINKS
MOVE A0,*A13(PDATA+>40),L ;NULL OUT LINKS
MOVI PURPGAL,A9 ;GET ANIMATION POINTER
SLEEP 2
MOVE @EHALT,A0
JRNZ LUP_TOP ;HALT GALS WHILE PLAYER ENTERS
CALLA GETPLYR
MOVE A0,A11
CALLA GETGALV
MV:
; MOVI 100,A0 ;GET NEW VELOCITY?
; CALLA RANDPER
; JRNC MVV01 ;NO
; CALLR GETGALV
CALLR GALACC
MOVE *A8(OXVEL),A0,L
MOVE *A8(OYVEL),A2,L
PRP030
MOVE A0,A1
ABS A1
MOVE A2,A3
ABS A3
ADD A1,A3
CMPI >40000,A3 ;40000
JRLS PRP03A
MOVE A0,A4
SRA 3,A4
SUB A4,A0
MOVE A2,A6
SRA 3,A6
SUB A6,A2
JRUC PRP030
PRP03A
MOVE A0,*A8(OXVEL),L
MOVE A2,*A8(OYVEL),L
MOVI 20,A0 ;GET NEW PLAYER TO SEEK
CALLA RANDPER
JRNC MVV01 ;NO
CALLA GETPLYR
MOVE A0,A11
MVV01
CALLA ORBBNDCK ;CHECK BOUNDARY COLLISION
SLEEP 2
MVV02
MOVK 4,A1
JSRP FRANIM
JRNC MV
MOVI PURPGAL,A9
JRUC MVV02
*
*GET SAUCER VELOCITY
*TOTALLY RANDOM VELOCITY
*RETURNS PDATA+>40 XACC; PDATA+>50 YACC
*
GETGALV
MOVI >20000,A0
CALLA SRAND
MOVE A0,*A8(OXVEL),L
MOVI >20000,A0
CALLA SRAND
MOVE A0,*A8(OYVEL),L
RETS
*
*COMPUTE DISTANCE TO PLAYER BEING SEEKED
*GET GALAGA ACCELERATION FOR ORBIT
*
GALACC
MOVE *A8(OXPOS),A2,W
MOVE *A8(OYPOS),A4,W
MOVE *A11(OXPOS),A3,W
MOVE *A11(OYPOS),A5,W
SUB A2,A3
MOVE A3,A6
SUB A4,A5
MOVE A5,A7
MPYS A3,A3
MPYS A5,A5
ADD A3,A5
MOVE A5,A1
CALLA SQROOT
MOVE A1,A2
MOVI >7FFFFFFFF,A5
DIVU A1,A5 ;CALC 1/D
SRL 15,A5 ;ADJUST MAGNITUDE
MOVE A6,A3
MPYS A5,A3 ;X ACCEL
MPYS A5,A7 ;Y ACCEL
SRA 5,A3 ;ADJUST MAGNITUDE
SRA 5,A7
MOVE A3,A4
MOVE A7,A5
NEG A5
SRA 4,A4 ;90 DEGREE ACCEL
SRA 4,A5
MOVE *A8(OYVEL),A0,L
ADD A4,A0
ADD A7,A0
MOVE A0,A1 ;DAMPING
SRA 7,A1
SUB A1,A0
MOVE A0,*A8(OYVEL),L
MOVE *A8(OXVEL),A0,L
ADD A5,A0
ADD A3,A0
MOVE A0,A1 ;DAMPING
SRA 7,A1
SUB A1,A0
MOVE A0,*A8(OXVEL),L
RETS
*
*OPEN THE DOOR
*RET A0=OXVAL, A1=OYVAL, A6=OXVEL, A7=OYVEL
*
GETDRA MOVK 3,A0
JRUC GD1
GETDOOR
MOVK 4,A0
GD1 CALLA RANDU
MOVE A0,A1
SLL 5,A1
ADDI DRINF,A1
MOVE *A1,A1,L
MOVB *A1,A1
JRZ G
CMPI 06,A1
JRGE G
;DOOR THIS GUY WILL BE SENT TO IS CLOSING RIGHT NOW. SO SEND HIM TO DOOR 4
MOVI 4,A0 ;DOOR 4
G
PUSH A0 ;A0=DOOR 1-4
MOVI >1F,A1 ;TIME FOR DOOR TO REMAIN OPEN
;OPEN DOOR
CALLA SET_GATE_2
;NOW PLACE GAL BEHIND APPROPRIATE DOOR
PULL A2
MOVI SX,A1
SLL 5,A2 ;INTO DOOR X/Y TABLES
ADD A2,A1
MOVE *A1,A0,L
MOVI SY,A1
ADD A2,A1
MOVE *A1,A1,L
;A0=OXVAL
;A1=OYVAL
;NOW GIVE X/Y VEL FOR THIS GAL
MOVI GALXV,A7
ADD A2,A7
MOVE *A7,A6,L
ADDI GALYV-GALXV,A7
MOVE *A7,A7,L
RETS
;DOOR #
; 3
;1 2
; 4
GALXV: .LONG 0,10000H,-10000H,0,0
GALYV: .LONG 0,0,0,10000H,-10000H
;
;INITIAL HEAD POSITION,IMAGE SHAPE,AGE ETC....
;
INIT_HD:
CALLR GETDOOR
MOVI GA1B,A2 ;(OIMG)
MOVI >9E,A3 ;(OZPOS)
MOVI DMAWNZ,A4 ;(OFLAGS) NON-ZERO VALUE
MOVI CLSENMY|TYPGAL|SUBHEAD,A5 ;(OID)
CALLA BEGINOBJ
JRUC CLR_MY_PAL
; MOVE *A8(OPAL),A0,L
; ANDI 0FFFFH,A0
; MOVE A0,*A8(OPAL),L
; RETS
;
;INITIAL SWARMER POSITION,IMAGE SHAPE, ETC....
;
INIT_BALL:
CLR A6 ;(OXVEL)
CLR A7 ;(OYVEL)
MOVI SPHERE,A2 ;(OIMG)
MOVI >9E,A3 ;(OZPOS)
MOVI DMAWNZ,A4 ;(OFLAGS) NON-ZERO VALUE
MOVI CLSENMY|TYPGAL|SUBBALL,A5 ;(OID)
CALLA BEGINOBJ2
JRUC CLR_MY_PAL
; MOVE *A8(OPAL),A0,L
; ANDI 0FFFFH,A0
; MOVE A0,*A8(OPAL),L
; RETS
*
*INITIAL GAL POSITION, IMAGE SHAPE, AGE ETC....
*DO STFOBF AND GET A0 PNTR
*
INIT_GAL2:
CALLR GETDRA
JRUC INIT_GALA
INIT_GAL:
CALLR GETDOOR
INIT_GALA
CALLR IH1
CALLA BEGINOBJ
JRUC CLR_MY_PAL
; MOVE *A8(OPAL),A0,L
; ANDI 0FFFFH,A0
; MOVE A0,*A8(OPAL),L
; RETS
;
;A0=OXVAL
;A1=OYVAL
INIT_GAL1 ;ENTRY POINT WITH EXISTING X,Y COORD
CLR A6 ;(OXVEL)
CLR A7 ;(OYVEL)
CALLR IH1
MOVI GALC1,A2 ;SET IMAGE FOR GREEN DUDE
CALLA BEGINOBJ2
CLR_MY_PAL
MOVE *A8(OPAL),A0,L
ANDI 0FFFFH,A0
MOVE A0,*A8(OPAL),L
RETS
;
;STUFF NEEDED SHIT
;A0=OXVAL
;A1=OYVAL
;A6=OXVEL
;A7=OYVEL
IH1: ;ENTER HERE IF ON SCRN TANK
MOVI GB1,A2 ;(OIMG)
MOVI 9EH,A3 ;(OZPOS)
; MOVI 230,A3 ;(OZPOS)
MOVI DMAWNZ,A4 ;(OFLAGS) NON-ZERO VALUE
MOVI CLSENMY|TYPGAL,A5 ;(OID)
RETS
SETUP_SWRM:
MOVI GALS3,A2
CALLA GET_WVADDR
JRUC SETA
SETUP_GALB:
MOVI GALS2,A2
CALLA GET_WVADDR
JRUC SETA
SETUP_GALA:
MOVI GALS1A,A2
CALLA GET_WVADDR
JRUC SETA
SETUP_GAL:
MOVI GALS1,A2
CALLA GET_WVADDR
SETA
;
; UPDATE GAL COUNT
;
MOVE @GAL_CNT,A2
INC A2
MOVE A2,@GAL_CNT
MOVE *A0(16),A1,W ;DEC WAVE RAM CNT FOR THIS GAL
DEC A1
MOVE A1,*A0(16),W
RETS
SX: .LONG 0,-040000H,01960000H,0CA0000H,0CA0000H
SY: .LONG 0,0830000H,0830000H,20000H,01140000H
*
*CLEAN UP GAL MESS
*A8=GAL
*
GALCLEAN
MOVE *A8(OPLINK),A0,L ;LINK AROUND DUDE IN CHAIN
MOVE *A8(OID),A1,W
ZEXT A1,W
CMPI CLSENMY|TYPGAL|SUBHEAD,A1 ;(OID)
JRZ GALCLN00
CMPI CLSENMY|TYPGAL|SUBBALL,A1 ;(OID)
JRZ GALCLN00
MOVE *A0(PDATA+>40),A1,L
MOVE *A0(PDATA+>20),A2,L
JREQ GALCLN0 ;TEST FOR NULL LINK
MOVE A1,*A2(PDATA+>40),L
GALCLN0
MOVE A1,A1
JREQ GALCLN00
MOVE A2,*A1(PDATA+>20),L
GALCLN00
CALLA KILL ;KILLS PROCESS IN A0
GALCLN1
MOVE A8,A0
CALLA DELOBJ
MOVE @GAL_CNT,A0,W ;DELETE A FAT FROM CNT
DEC A0
MOVE A0,@GAL_CNT,W
RETS
*
*GAL HIT BY BULLET
*A8=GAL
*A0=BULLET THAT HIT US
*
GALBUL
MMTM SP,A0,A1,A2,A3,A7
MOVE *A8(OID),A1,W
ZEXT A1,W
CMPI CLSENMY|TYPGAL|SUBHEAD,A1 ;(OID)
JREQ GALBULHD
CMPI CLSENMY|TYPGAL|SUBBALL,A1 ;(OID)
JREQ GALBULBL
CMPI CLSENMY|TYPGAL|SUBCHN,A1 ;(OID)
JREQ GALBULCH
; JRUC GALBULCH
MOVE *A0(OXVEL),A1,L ;GIVE IT A PUSH
MOVE *A8(OXVEL),A2,L
SRA 1,A1
ADD A1,A2
MOVE A2,*A8(OXVEL),L
MOVE *A0(OYVEL),A1,L
MOVE *A8(OYVEL),A3,L
SRA 1,A1 ;2,A1
ADD A1,A3
MOVE A3,*A8(OYVEL),L
MOVE *A8(OPLINK),A7,L
MOVE *A0(OID),A1
ZEXT A1,W
CMPI CLSPLYR|TYPPLBL|SUBNOSTP,A1
JRZ GALBUL2
MOVE *A7(PDATA),A1,W ;INCREMENT HIT COUNT
INC A1
MOVE A1,*A7(PDATA),W
CMPI 2,A1 ;4
JRHS GALBUL2 ;TOO MANY HITS, BLOW IT UP
CALLR BULEXP
JRUC GALBULX
GALBULCH
;TING SND
MOVE *A0(OXVEL),A1,L ;GIVE IT A PUSH
MOVE *A8(OXVEL),A2,L
SRA 1,A1
ADD A1,A2
MOVE A2,*A8(OXVEL),L
MOVE *A0(OYVEL),A1,L
MOVE *A8(OYVEL),A3,L
SRA 1,A1 ;2,A1
ADD A1,A3
MOVE A3,*A8(OYVEL),L
MOVE *A8(OPLINK),A7,L
MOVE *A0(OID),A1
ZEXT A1,W
CMPI CLSPLYR|TYPPLBL|SUBNOSTP,A1
JRZ GALBUL2
MOVE *A7(PDATA),A1,W ;INCREMENT HIT COUNT
INC A1
MOVE A1,*A7(PDATA),W
CMPI 4,A1 ;4
JRHS GALBUL2 ;TOO MANY HITS, BLOW IT UP
CALLR BULEXP
MOVI TING2,A0
CALLA ONESND
JRUC GALBULX
*
*GAL IS HISTORY
*
GALBUL2
MOVI GALPT,A1 ;AMOUNT OF SCORE FOR ORB
CALLA SCORPLAY
CALLA GALCLEAN
CREATE 0,GALBLO
GALBULX
MMFM SP,A0,A1,A2,A3,A7
RETS
*
*HEAD HIT BY BULLET
*
GALBULHD
MOVI HEADPT,A1 ;AMOUNT OF SCORE FOR ORB
CALLA SCORPLAY
CALLA HDCLEAN
CREATE 0,GALBLO
MMFM SP,A0,A1,A2,A3,A7
RETS
*
*SWARM BALL HIT BY BULLET
*
GALBULBL
MOVI SWARMPT,A1 ;AMOUNT OF SCORE FOR ORB
CALLA SCORPLAY
CALLA BLCLEAN
CREATE 0,GALBLO
MMFM SP,A0,A1,A2,A3,A7
RETS
*
*CLEAN UP SWARM HEAD
*
HDCLEAN
MOVE *A8(OPLINK),A1,L
CLR A0
MOVE A0,*A1(PA8),L ;INDICATE OBJECT IS DEAD
MOVE A8,A0
CALLA DELOBJ
RETS
*
*CLEAN UP AFTER BALLS
*
BLCLEAN
MOVE *A8(OPLINK),A0,L ;GET PROCESS
CALLA KILL ;KILLS PROCESS IN A0
MOVE *A0(PDATA+>20),A1,L ;GET BOSS
DECW *A1(PDATA+>20) ;DECREMENT COUNT
MOVE A8,A0
CALLA DELOBJ
RETS
*
*FLATFACE BULLET EXPLOSION
*A0=BULLET
*A8=FACE PART
*
BULEXP
MMTM SP,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9
MOVI TING2,A0
CALLA ONESND
;FLASH SAUCER
MOVI 03F3F0000H,A9
CREATE 0,FLASHME
MOVE *A0(OYVAL),A1,L
MOVE *A0(OXVAL),A0,L
MOVI EXPb1,A2 ;(OIMG)
MOVI 231,A3 ;(OZPOS)
MOVI DMAWNZ,A4 ;(OFLAGS) NON-ZERO VALUE
MOVI CLSNEUT,A5 ;(OID)
CLR A6 ;XV
CLR A7 ;YV
CALLA BEGINOBJ2
MOVI SMLEXP,A9
BULEXP1
CREATE 0,BEXPRC
MOVE A0,*A8(OPLINK),L ;FIX PROCESS LINK
MMFM SP,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9
RETS
*
*BULLET EXPLOSION
*A8=OBJECT
*A9=ANIMATION
BEXPRC
MOVI EXP3,A0 ;AUDIO BOMB EXPLODE
CALLA ONESND
MOVK 1,A1
JSRP FRANIM
MOVE A8,A0 ;KILL THE SHIT AND DIE
CALLA DELOBJ
; CALLA DELPAL
JAUC SUCIDE
;SMART BOMB DEATH!
;A8=GAL
;A9=P1 OR P2DATA OF WHO SMARTED ME
; MOVI GALPT,A1 ;AMOUNT OF SCORE FOR ORB
; CALLA SCRADD2 ;DO IT!
; CALLR GALCLEAN
; CALLR OEXP
; RETS
*
*KILL GAL BECAUSE OF COLLISION WITH RING
*ENTER HERE FROM COLLISION ROUTINE - RINGS KILL GAL
*A8=GAL
*
GALKIL
MMTM SP,A0,A1,A2,A3,A7
MOVE *A8(OID),A1,W
ZEXT A1,W
CMPI CLSENMY|TYPGAL|SUBHEAD,A1 ;(OID)
JREQ GALBULHD
CMPI CLSENMY|TYPGAL|SUBBALL,A1 ;(OID)
JREQ GALBULBL
MOVI GALPT,A1 ;AMOUNT OF SCORE FOR GAL
CALLA SCORPLAY
CALLR GALCLEAN
CALLR OEXP2 ;CHUNKS
MMFM SP,A0,A1,A2,A3,A7
RETS
SMRT_GAL:
;SMART BOMB GALAGA
;A8=GAL
;A9=P1/P2DATA
MOVI GALPT,A1 ;AMOUNT OF SCORE FOR GAL
MOVE A9,A2 ;PLAYER
CALLA SCRADD2 ;DO IT!
CALLR GALCLEAN
CALLR OEXP2 ;CHUNKS
CLR A0
MOVE A0,@GAL_CNT
RETS
*
*ORB EXPLOSION PROCESS SMART BOMB, RINGS
*
OEXP2
OEXP
MOVI EXP3HI,A0
CALLA ONESND
CREATE 0,BIG3A
RETS
*
*GALAGA EXPLOSION PROCESS
*A8=ORB
*
GALBLO:
CLR A6
CLR A7
CALLA GETANIXY
ADDI 050000H,A2 ;A1=Y OFFSET
MOVE A2,A1
MOVE A3,A0
MOVI 199,A3 ;259
MOVI DMAWNZ|M_NOCOLL,A4 ;NON-ZERO VALUE
MOVI CLSNEUT|TYPNEUT,A5
MOVI EXPb1,A2
CALLA BEGINOBJ2
;CREATE EXPLOSION, AND THEN DIE
MOVI EXP3,A0
CALLA ONESND
MOVI ZOOM4,A9
MOVK 1,A1
JSRP FRANIM
MOVE A8,A0
CALLA DELOBJ
DIE
ZOOM4:
.LONG BC1
.WORD NEWPALET|3
.LONG nup2
.LONG BC4
.WORD 3
.LONG MRM1
.WORD 3
.LONG MRM2
.WORD 3
.LONG MRM3
.WORD 3
.LONG MRM4
.WORD 3
.LONG CLD5
.WORD 3
.LONG CLD6
.WORD 3
.LONG CLD7
.WORD 3
.LONG CLD8
.WORD 3
.LONG CLD9
.WORD 3
.LONG CLD10
.WORD 3
.LONG CLD11
.WORD 3
.LONG 0
; .LONG EXPb1
; .WORD NEWPALET|3
; .LONG BULLET
; .LONG EXPb2
; .WORD NEWPALET|3
; .LONG BULLET
; .LONG EXPb3
; .WORD 4
; .LONG EXPb4
; .WORD 4
; .LONG EXPb5
; .WORD 4
; .LONG EXPb4
; .WORD 4
; .LONG EXPb3
; .WORD 5
; .LONG EXPb2
; .WORD 5
; .LONG EXPb1
; .WORD 5
; .LONG 0
*
*SQUARE ROOT ROUTINE
*A1= 32 BIT NUMBER UNSIGNED
*RETURNS: A1=SQUARE ROOT (16 BIT INTEGER)
*
SQROOT:
MMTM SP,A2,A3,A4,A5
LMO A1,A2 ;FIND # OF BITS
SUBK 31,A2
NEG A2
ADDK 2,A2
SRL 1,A2 ;GET RID OF GARBAGE
MOVI 32,A3
SUB A2,A3
NEG A3
MOVK 1,A4
RL 31,A4 ;SET MSB IN A5
SRL A3,A4
MOVE A4,A3
SQRL
SRL 1,A3
JREQ SQRX ;FINISHED ITERATING
MOVE A4,A5
MPYU A4,A5
CMP A5,A1
JRLO SQR1
JREQ SQRX
ADD A3,A4
JRUC SQRL
SQR1
SUB A3,A4
JRUC SQRL
SQRX
MOVE A4,A1
MMFM SP,A2,A3,A4,A5
RETS
*
*GALAGA ANIMATIONS
*
PURPGAL
.LONG GB1
.WORD 4
.LONG GB2
.WORD 4
.LONG GB3
.WORD 4
.LONG GB4
.WORD 4
.LONG GB5
.WORD 4
.LONG 0
GRENGAL
.LONG GALC1
.WORD 4
.LONG GALC2
.WORD 4
.LONG GALC3
.WORD 4
.LONG GALC4
.WORD 4
.LONG GALC5
.WORD 4
.LONG 0
SPDRGAL
.LONG glg1
.WORD 3
.LONG glg2
.WORD 2
.LONG glg3
.WORD 3
.LONG glg4
.WORD 2
.LONG glg5
.WORD 3
.LONG glg4
.WORD 2
.LONG glg3
.WORD 3
.LONG glg2
.WORD 2
.LONG 0
BALLGAL
.LONG GA1
.WORD 4
.LONG GA2
.WORD 4
.LONG GA3
.WORD 4
.LONG GA4
.WORD 4
.LONG GA5
.WORD 4
.LONG GA6
.WORD 4
.LONG 0
.END