opt	c-,l+

	xdef	scrloc,otscr,scrno,backs,htuna,htunb,htunc
	xdef	hiflg,cflg,titlep,text
	xdef	bigset,titlesc,smalset,cintno,cintab,intim
	xdef	flip,grndno,curloc,pauza

	xref	load,VBL_init,_spmask,setgraph,inscol,insmus,pile,eflg
	xref	getjoy2,clrscr,putit,encint,turn,setscr,keyset,getkey
	xref	page,fxtsno,putvbl,doreg0,rotor,curfx,edraw0,edraw1
	xref	mendraw,meraen,char,schar,ordraw0,mdraw0,sdraw0,omdraw1
	xref	project,pradar,gview,endraw,hiscore,hiend,namestr,insefx


	include	df0:joystick.i

lastlevel:equ	17

TOP:
	jsr	VBL_init
	jsr	setgraph
	JSR	PONI
	move.l	#_spmask,spmask
	JSR	INSCOL
*	JSR	KEYSET
	LEA	OSCOR,A1
	clr.b	(A1)
	JSR	INSMUS
	JSR	FLIP
	JSR	LOAD
	jsr	keyset		;vidi ga gore!!!
	JSR	INSEFX
	jsr	press
	JSR	FLIP

TOP2:	MOVE.B	#5,lives
	clr.b	oscor
	clr.b	score
	CLR.B	score+1
	CLR.B	score+2
	CLR.B	score+3
	CLR.B	score+4
	CLR.B	score+4

	clr.b	level
	JSR	GRSET
*	JSR	PUTIT		* Ovo sam izbacio. Vrati ako mozes!
*	JSR	PRESS
*	JSR	CLRSCR
	JSR	ENCINT

RESET:	JSR	CLENS

	MOVE.B	#1,status
	CLR.L	D6
	MOVE.B	level,D6
	JSR	ENSET
	JSR	EFGH
	JSR	POPSET
	JSR	GOPSET
	BRA	RESET3

RESET2:	clr.b	status

RESET3:	JSR	KOPSET
	clr.l	switch
	clr.b	firste
	clr.w	place
;	FLAG RESET SECONDARY
	clr.b	kflg
	clr.b	firste
	clr.b	veltim
	clr.b	velret
	clr.b	radflg
	MOVE.B	#1,STTRFLG
	MOVE.B	#1,starflg
	clr.b	heatflg
	clr.b	hiflg
	clr.b	snflg
	clr.b	bflg
	clr.b	fireflg
	clr.b	bmflg
	clr.b	erbflg
	clr.b	bojaflg
	JSR	CLRSCR
	JSR	FLIP

	clr.b	speed
	clr.b	sdir
	clr.b	snflg
;	MIJENJANO
	clr.b	switch
	MOVE.W	#16,oldx
	MOVE.W	#70,oldy
	CLR.B	veltim
	CLR.L	D6
	MOVE.B	level,D6
	LEA	LEVBAT,A2
	MOVE.B	0(A2,D6),grndno
	JSR	PROJECT
	clr.w	gpos
	JSR	CLRSCR
	JSR	PRADAR
	JSR	TOPLINE
	JSR	PRSCORE
	JSR	PRLEV
	JSR	PRLIV	
	JSR	TURN
	JSR	PRSCORE
	JSR	PRLEV
	JSR	PRLIV	
	JSR	TURN
	CMPI.B	#1,status
	BNE.S	TOOL	
	JSR	PRSTAGE	

TOOL:	BRA	SHIP	
NEXTACT LEA	STACK,A7
	BRA	TOOL	

; THE SHIP ROUTINE (IN SPACE)

SHIP:	JSR	GETKEY
*	ANDI.L	#$7F,D0
	bclr	#7,d0
	beq.s	no_key
	CMPI.B	#esc,D0
	BNE.s	LOPIU
KKPL:	JSR	GETKEY
*	ANDI.L	#$7F,D0
	bclr	#7,d0
	beq.s	kkpl
	CMPI.B	#esc,D0
	BEQ.s	KKPL
	cmpi.b	#enter,d0
	bne.s	lopiu
l030:	jsr	getkey
*	andi.w	#$7f,d0
	bclr	#7,d0
	beq.s	l030
	cmpi.b	#enter,d0
	beq.s	l030
*	subi.w	#1,d0
	cmpi.b	#lastlevel,d0
	bgt.s	lopiu
	move.b	d0,level
	move.b	#5,lives
	bra	reset

LOPIU:	CMPI.B	#undo,D0
	BEQ	TOP2

no_key:	JSR	TIMER7
	tst.b	time7
	BNE.S	SHIP060
	JSR	TIMER3
	JSR	TIMER2
SHIP060:clr.b	thr
	JSR	GETJOY2
	CLR.L	D1
	CLR.L	D2
	tst.w	D0
	BEQ	SHIP3
	clr.b	bflg
	BTST	#fire,D0
	BEQ.S	SHIP0
	MOVE.B	#1,bflg
SHIP0	BTST	#gore,D0
	BNE	SHIPUP
	BTST	#dolje,D0
	BNE	SHIPDO

	MOVE.W	oldx,D1
	MOVE.W	oldy,D2

SHIP00	BTST	#lijevo,D0
	BNE	SHIPLE
	BTST	#desno,D0
	BNE	SHIPRI
	BRA	SHIP4

SHIPUP:	MOVE.W	oldx,D1
	MOVE.W	oldy,D2
	CMPI.W	#54,D2
*	BEQ	SHIP00
	ble	ship00
	SUBI.W	#4,D2
	BRA	SHIP00

SHIPDO:	MOVE.W	oldx,D1
	MOVE.W	oldy,D2
	CMPI.W	#186-4,D2
*	BEQ	SHIP00
	bge	ship00
	ADDI.W	#4,D2
	BRA	SHIP00

SHIPLE:	tst.b	sdir
	BNE.S	SHIPLE2
	MOVE.B	#1,sdir
	BRA	SHIP4
SHIPLE2:MOVE.B	#1,thr
	BRA	SHIP4

SHIPRI:	CMPI.B	#1,sdir
	BNE.S	SHIPRI2
	clr.b	sdir
	BRA	SHIP4
SHIPRI2:MOVE.B	#1,thr
	BRA	SHIP4

SHIP3:	MOVE.W	oldx,D1
	MOVE.W	oldy,D2

SHIP4	LEA	NEWX,A1
	MOVE.W	D1,(A1)
	MOVE.W	D2,2(A1)
	LEA	SDIR,A2
	tst.b	(A2)
	BEQ	SHIP4R
SHIP4L	CMPI.W	#256,(A1)
	BEQ.S	SHIP4C
	ADDI.W	#8,(A1)
	CMPI.W	#256,(A1)
	BNE	SHIP9
	LEA	SPEED,A5
	MOVE.B	#1,(A5)
	BRA	SHIP9
SHIP4R	CMPI.W	#16,(A1)
	BEQ.S	SHIP4C
	SUBI.W	#8,(A1)
	CMPI.W	#16,(A1)
	BNE	SHIP9
	LEA	SPEED,A5
	MOVE.B	#1,(A5)
	BRA	SHIP9

SHIP4C	LEA	VELTIM,A1
	ADDI.B	#1,(A1)
	CMPI.B	#8,(A1)
	BNE.S	SHIP5
	clr.b	(A1)
	LEA	SPEED,A1
	LEA	THR,A2
	CMPI.B	#1,(A2)
	BEQ.S	SPEUP
	LEA	VELRET,A4
	ADDI.B	#1,(A4)
	ANDI.B	#1,(A4)
	tst.b	(A4)
	BEQ.S	SLOWDO
	BRA	SHIP5

SPEUP	CMPI.B	#8,(A1)
	BEQ	SHIP5
	ADDI.B	#1,(A1)
	BRA	SHIP5
SLOWDO	tst.b	(A1)
	BEQ	SHIP5
	SUBI.B	#1,(A1)

SHIP5	LEA	SDIR,A1
	LEA	SPEED,A2
	LEA	GPOS,A3
	LEA	PLACE,A4
	CLR.L	D1
	MOVE.B	(A2),D1
	tst.b	(A1)
	BNE.S	SHIP6
	ADD.B	D1,(A3)
	ADD.W	D1,(A4)
	CMPI.W	#12799,(A4)
	BLS.S	SHIP7
	SUBI.W	#12800,(A4) 
	BRA.S	SHIP7
SHIP6	SUB.B	D1,(A3)
	SUB.W	D1,(A4)
	CMPI.W	#12799,(A4)
	BLS.S	SHIP7
	ADDI.W	#12800,(A4) 

SHIP7	CMPI.B	#159,(A3)
	BLS.S	SHIP9
	CMPI.B	#169,(A3)
	BLS.S	SHIP8
	ADDI.B	#160,(A3)
	BRA.S	SHIP9
SHIP8	SUBI.B	#160,(A3)
SHIP9:	moveq	#0,d0
	MOVE.B	gpos,D0
	JSR	GVIEW

	JSR	TURN
	JSR	RADOST	
	JSR	DOBUL
	JSR	PREY
	JSR	MREY
	JSR	BACIL
	JSR	DODULE

	BRA	SHOOTST
KEYTO:	JSR	SETSCR
	JSR	PRSCORE

FLYWAIT LEA	PAGE,A4
	CMPI.B	#1,1(A4)
	BCC.S	FLYWAIT 

	LEA	$0,A0
	LEA	SWITCH,A1
	EORI.B	#1,(A1)
	CLR.L	D0
	MOVE.B	(A1),D0
	MOVE.L	D0,D1
	MULU	#1792,D0
	LEA	SDIR,A1
	tst.b	(A1)
	BNE.S	SHIPLB
SHIPRB	ADDA.L	#140544,A0
	BRA.S	SHIP007	
SHIPLB	ADDA.L	#144128,A0
SHIP007 ADDA.L	D0,A0

	MULU	#448,D1
	LEA	SSTORE,A5
	ADDA.L	D1,A5

	LEA	NEWX,A1
	MOVE.W	(A1),D1
	ANDI.L	#8,D1
	tst.b	D1
	BEQ.S	NOCH
	ADDA.L	#896,A0
NOCH	MOVEA.L A0,A1
	ADDA.L	#448,A1

	MOVEQ	#15,D5
	MOVEQ	#13,D6
	CLR.L	D1
	CLR.L	D2
	LEA	NEWX,A2
	MOVE.W	(A2)+,D1
	MOVE.W	(A2),D2

	JSR	MDRAW0

	LEA	SNFLG,A2
	CMPI.B	#1,(A2)
	BEQ.S	DOSHIPB
	MOVE.B	#1,(A2)
	LEA	NEWX,A2
	MOVE.W	oldx,D1
	MOVE.W	oldy,D2
	MOVE.W	(A2)+,oldx
	MOVE.W	(A2)+,oldy
	BRA	SHIP17

DOSHIPB CLR.L	D0
	LEA	SWITCH,A1
	MOVE.B	(A1),D0
	EORI.B	#1,D0
	MULU	#448,D0
	LEA	SSTORE,A5
	ADDA.L	D0,A5
	CLR.L	D1
	CLR.L	D2
	MOVEQ	#15,D5
	MOVEQ	#13,D6
	LEA	NEWX,A2
	MOVE.W	oldx,D1
	MOVE.W	oldy,D2
	MOVE.W	(A2)+,oldx
	MOVE.W	(A2)+,oldy
	JSR	OMDRAW1

SHIP17	JSR	BERLAST
	JSR	ERAD
	JSR	MCLRMSK
	JSR	MMCLR
	JSR	BERBA
	JSR	ERHEAT
	JSR	ENVESH
	JSR	PICKUP
	JSR	MENBOR
	JSR	HELIX
	JSR	SEN
	JSR	BEN
	JSR	CALC
	tst.b	kflg
	BEQ	SHIP11
	MOVE.B	#4,fxtsno
	MOVE.B	#1,eflg
	BRA	ENDLIFE

SHIP11:	tst.b	ostano
	BEQ	NEXTLEV
	LEA	SCORE,A1
	LEA	OSCOR,A2
	MOVE.B	(A2),D2
	CMP.B	(A1),D2

	BEQ	NEXTACT
	MOVE.B	(A1),(A2)
	MOVE.B	#3,fxtsno
	MOVE.B	#1,eflg
	ADDI.B	#1,lives
	CMPI.B	#10,lives
	BNE.S	NTACT
	MOVE.B	#9,lives
NTACT	JSR	PRLIV
	JSR	TURN
	JSR	PRLIV
	JSR	TURN
	BRA	NEXTACT

KFLG	DC.W	0
VELRET	DC.W	0
OSTANO	DC.W	0
LIVES	DC.W	0
STATUS	DC.W	0
OSCOR	DC.W	0

ENDLIFE CLR.L	D1
	CLR.L	D2
	LEA	NEWX,A1
	MOVE.W	(A1)+,D1
	MOVE.W	(A1),D2
	MOVEQ	#15,D5
	MOVEQ	#15,D6
	MOVEA.L #166784,A0
	CMPI.W	#137,D2
	BCC	EDL1
	JSR	SDRAW0
	BRA	EDL2
EDL1	JSR	ORDRAW0	
EDL2	JSR	PAUZA
	CLR.L	D1
	CLR.L	D2
	LEA	NEWX,A1
	MOVE.W	(A1)+,D1
	MOVE.W	(A1),D2
	MOVEQ	#15,D5
	MOVEQ	#15,D6
	MOVEA.L #167296,A0
	CMPI.W	#137,D2
	BCC	EDL3
	JSR	SDRAW0
	BRA	EDL4
EDL3	JSR	ORDRAW0	
EDL4	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	SUBI.B	#1,lives
	BEQ	ENDREAL
	JSR	PRLIV
	JSR	DECLENS
	CLR.L	D6
	MOVE.B	level,D6
	JSR	PNSET

	CLR.L	D7

	LEA	EXIST,A1
NESTO1	tst.b	0(A1,D7)
	BEQ	NESTO
	CMPI.B	#1,0(A1,D7)
	BEQ	NESTO
	clr.b	0(A1,D7)
NESTO	ADDI.B	#2,D7
	CLR.L	D6
	MOVE.B	basno,D6
	MULU	#2,D6
	ADDI.B	#2,D6
	CMP.B	D7,D6
	BNE.S	NESTO1	

	BRA	RESET2	

ENDREAL JSR	PRLIV
	JSR	PAUZA
	JSR	PAUZA
	JSR	CLRSCR
	JSR	FINALE
	JSR	CLRSCR
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	BRA	TOP2

;BULLET ROUTINES

SHOOTST:tst.b	bflg
	BEQ	NONSHOT
	tst.b	fireflg
	BNE	NONSHOT
	MOVE.B	#1,fireflg
	MOVE.B	#1,fxtsno
	MOVE.B	#1,eflg
	CMPI.B	#1,sdir
	BEQ.S	LESBUL
RISBUL	LEA	BULX,A1
	LEA	NEWX,A2
	MOVE.W	(A2),(A1)
	MOVE.W	2(A2),2(A1)
	ADDI.W	#9,2(A1)
	ADDI.W	#24,(A1)
	clr.b	buldir
	BRA	FIRSBUL
LESBUL	LEA	BULX,A1
	LEA	NEWX,A2
	MOVE.W	(A2),(A1)
	MOVE.W	2(A2),2(A1)
	ADDI.W	#9,2(A1)
	SUBI.W	#16,(A1)
	MOVE.B	#1,buldir
FIRSBUL MOVEQ	#7,D5
	MOVEQ	#2,D6
	CLR.L	D1
	CLR.L	D2
	MOVE.W	(A1)+,D1
	MOVE.W	(A1),D2
	CMPI.B	#1,(A2)
	BEQ	LEBSHP
RIBSHP	MOVEA.L #150784,A0
	BRA.S	FIRBUL1
LEBSHP	MOVEA.L #151552,A0
FIRBUL1 MOVE.L	D1,D0
	ANDI.L	#15,D0
	LSR.L	#1,D0
	MULU	#96,D0
	ADDA.L	D0,A0
	MOVEA.L A0,A1
	ADDA.L	#48,A1
	LEA	SWITCH,A1
	CLR.L	D0
	MOVE.B	(A1),D0
	MULU	#48,D0
	LEA	BULMASK,A5
	ADDA.L	D0,A5
	JSR	MDRAW0
	LEA	BMFLG,A4
	CLR.B	(A4)
	LEA	ERBFLG,A4
	clr.b	(A4)
NONSHOT BRA	KEYTO

DOBUL:	tst.b	fireflg
	BEQ	KODULE
	LEA	BULX,A1
	CLR.L	D1
	CLR.L	D2
	MOVE.W	(A1),D1
	MOVE.W	2(A1),D2
	LEA	BULDIR,A2
	tst.b	(A2)
	BEQ	RIDOB
LEDOB	SUBI.W	#16,D1
	MOVEA.L #151552,A0
	CMPI.W	#$FF00,D1
	BLS.S	NDOB
	BRA.S	ERLF
RIDOB	ADDI.W	#16,D1
	MOVEA.L #150784,A0
	CMPI.W	#303,D1
	BLS.S	NDOB
ERLF	LEA	ERBFLG,A1
	MOVE.B	#1,(A1)
KODULE	RTS
NDOB	MOVEQ	#7,D5
	MOVEQ	#2,D6
	LEA	TBUL,A1
	MOVE.W	D1,(A1)+
	MOVE.W	D2,(A1)
	MOVE.L	D1,D0
	ANDI.W	#$F,D0
	LSR.W	#1,D0
	MULU	#96,D0
	ADDA.L	D0,A0
	MOVEA.L A0,A1
	ADDA.L	#48,A1
	LEA	SWITCH,A2
	CLR.L	D0
	MOVE.B	(A2),D0
	MULU	#48,D0
	LEA	BULMASK,A5
	ADDA.L	D0,A5
	LEA	BMFLG,A3
	MOVE.B	#1,(A3)
	Jmp	MDRAW0

BERLAST LEA	ERBFLG,A1
	tst.b	(A1)
	BNE	FINBUL
	LEA	BMFLG,A1
	tst.b	(A1)
	BEQ	BERLE
BURELE	CLR.L	D1
	CLR.L	D2
	LEA	BULX,A1
	LEA	TBUL,A2
	MOVE.W	(A1),D1
	MOVE.W	2(A1),D2
	MOVE.W	(A2)+,(A1)+
	MOVE.W	(A2),(A1)
	MOVEQ	#7,D5
	MOVEQ	#2,D6
	LEA	SWITCH,A1
	CLR.L	D0
	MOVE.B	(A1),D0
	MULU	#48,D0
	LEA	BULMASK,A5
	ADDA.L	D0,A5
	Jmp	OMDRAW1
BERLE	RTS

FINBUL:	clr.b	fireflg
	clr.b	erbflg
	clr.b	bflg
	clr.b	bmflg
	BRA	BURELE	

;	VARIOUS TIMERS

TIMER3	LEA	TIME3,A3
	ADDI.B	#1,(A3)
	CMPI.B	#3,(A3)
	BNE.S	TIMER31
	clr.b	(A3)
TIMER31 RTS

TIMER7	LEA	TIME7,A3
	ADDI.B	#1,(A3)
	CMPI.B	#8,(A3)
	BNE.S	TIMER71
	clr.b	(A3)
TIMER71 RTS

	
TIMER2	LEA	TIME2,A3
	ADDI.B	#1,(A3)
	CMPI.B	#2,(A3)
	BNE.S	TIMER21
	clr.b	(A3)
TIMER21 RTS

TIME7	DC.B	0
TIME3	DC.B	0
TIME2	DC.B	0

; ENEMY BULLET ROUTINE - TO SHOOT YOUR HEAD OFF !!!?
; JUST STARTED

ENVESH	CLR.L	D7
	LEA	FIRSTE,A1
	tst.b	(A1)
	BNE.S	KULIC
	MOVE.B	#1,(A1)
	RTS
KULIC	LEA	EXIST,A4
	LEA	SPENCR1,A1
	LEA	ENTYP,A3
	CMPI.W	#1,0(A4,D7)
	BNE	MOX
	CMPI.W	#1,0(A1,D7)
	BNE	MOX
	tst.w	0(A3,D7)
	BEQ.S	TRIBE
	CMPI.W	#6,0(A3,D7)
	BEQ.S	TRIBE
	CMPI.W	#2,0(A3,D7)
	BNE	MOX
TRIBE	LEA	ENBD,A3
	CMPI.W	#1,0(A3,D7)
	BEQ	MOX
	LEA	OX,A1
	CMPI.W	#260,0(A1,D7)
	BLS.S	TRIBES
	BRA	MOX
	
TRIBES	CMPI.W	#60,0(A1,D7)
	BLS	MOX
	LEA	ENY,A2
	CMPI.W	#190,0(A2,D7)
	BCC	MOX
	MOVE.W	#1,0(A3,D7)
	LEA	BX,A3
	LEA	BY,A4
	MOVE.W	0(A1,D7),0(A3,D7)
	MOVE.W	0(A2,D7),0(A4,D7)
	LEA	ENFASE,A1
	MOVE.W	#5,0(A1,D7)
MOX	ADDI.B	#2,D7
	LEA	BASNO,A5
	CLR.L	D6
	MOVE.B	(A5),D6
	MULU	#2,D6
	CMP.B	D6,D7
	BNE	KULIC
	RTS
	
DODULE	CLR.L	D7
BOL1	LEA	TEMPNO,A5
	MOVE.B	D7,(A5)
	LEA	ENBD,A1
	CMPI.W	#1,0(A1,D7)
	BEQ	DOBUL1
BOL2	LEA	TEMPNO,A6
	CLR.L	D7
	MOVE.B	(A6),D7
	ADDI.B	#2,D7
	LEA	BASNO,A6
	CLR.L	D6
	MOVE.B	(A6),D6
	MULU	#2,D6
	CMP.B	D6,D7
	BNE.S	BOL1
	RTS

USTAW	LEA	BULDODX,A5
	LEA	BULDODY,A6
	CLR.L	D5
	CLR.L	D6
	MOVE.W	D1,D5
	MOVE.W	D2,D6
	CLR.L	D3
	CLR.L	D4
	MOVE.W	oldx,D3
	MOVE.W	oldy,D4
	SUB.W	D5,D3
	BMI.S	ODUP
ODDO	ADDI.W	#4,D1
	MOVE.W	#4,0(A5,D7)
	BRA.S	RCK
ODUP	SUBI.W	#4,D1
	MOVE.W	#-4,0(A5,D7)
RCK	sub.W	D6,D4
	BMI.S	ODEL
ODIR	ADDI.W	#4,D2
	MOVE.W	#4,0(A6,D7)
	RTS
ODEL	SUBI.W	#4,D2
	MOVE.W	#-4,0(A6,D7)
	RTS


DOBUL1	LEA	ENFASE,A1
	CMPI.W	#5,0(A1,D7)
	BNE	DOBUL3
	;
	MOVE.W	#6,0(A1,D7)
	LEA	BX,A1
	LEA	BY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	
	MOVEA.L #147712,A0
	JSR	USTAW
	MOVEQ	#7,D5
	MOVEQ	#2,D6
	LEA	OBX,A1
	LEA	OBY,A2
	MOVE.W	D1,0(A1,D7)
	MOVE.W	D2,0(A2,D7)
	LEA	BX,A1
	LEA	BY,A2
	MOVE.W	D1,0(A1,D7)
	MOVE.W	D2,0(A2,D7)
	CLR.L	D0
	MOVE.W	D1,D0
	ANDI.W	#$F,D0
	LSR.W	#1,D0
	MULU	#48,D0
	ADDA.L	D0,A0 
	LEA	SHE,A3
	MULU	#2,D7
	MOVE.L	A0,0(A3,D7)
	LEA	OSHE,A3
	MOVE.L	A0,0(A3,D7)
	JSR	EDRAW0
	BRA	BOL2

DOBUL3	LEA	BX,A1
	LEA	BY,A2
	CLR.L	D1
	CLR.L	D2
	MOVEA.L #147712,A0
	MOVEQ	#2,D6
	MOVEQ	#7,D5
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	LEA	BULDODX,A3
	ADD.W	0(A3,D7),D1
	LEA	BULDODY,A4
	ADD.W	0(A4,D7),D2
	CLR.L	D0
	MOVE.W	D1,D0
	ANDI.W	#$F,D0
	LSR.W	#1,D0
	MULU	#48,D0
	ADDA.L	D0,A0 
	;
	CMPI.W	#56,D2
	BLS	ERAB
	CMPI.W	#190,D2
	BLS.S	KEC2
	BRA	ERAB
KEC2	CMPI.W	#290,D1
	BLS.S	KEC
	BRA	ERAB
	;
KEC	LEA	BX,A1
	LEA	BY,A2
	LEA	SHE,A3
	MOVE.W	D1,0(A1,D7)
	MOVE.W	D2,0(A2,D7)
	MULU	#2,D7
	MOVE.L	A0,0(A3,D7)

	JSR	EDRAW0
	BRA	BOL2

ERAB	LEA	ENFASE,A1
	MOVE.W	#7,0(A1,D7)
	BRA	BOL2

; ENEMY BULLET REDRAW ROUTINE

BERBA	CLR.L	D7
BERBA1	LEA	TEMPNO,A1
	MOVE.B	D7,(A1)
	LEA	ENBD,A2
	CMPI.W	#1,0(A2,D7)
	BNE	BERBA5
	LEA	ENFASE,A1
	CMPI.W	#6,0(A1,D7)
	BNE	BERBA2
	clr.w	0(A1,D7)
	BRA	BERBA5
BERBA2	CMPI.W	#7,0(A1,D7)
	BNE	BERBA3
	clr.w	0(A2,D7)
BERBA3	LEA	OBX,A1
	LEA	OBY,A2
	LEA	OSHE,A3
	LEA	BX,A4
	LEA	BY,A5
	LEA	SHE,A6
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	MOVE.W	0(A4,D7),0(A1,D7)
	MOVE.W	0(A5,D7),0(A2,D7)
	MULU	#2,D7
	MOVEA.L 0(A3,D7),A0
	MOVE.L	0(A6,D7),0(A3,D7)
	MOVEQ	#7,D5
	MOVEQ	#2,D6
	JSR	EDRAW1
BERBA5	CLR.L	D7
	LEA	TEMPNO,A3
	MOVE.B	(A3),D7
	ADDI.B	#2,D7
	LEA	BASNO,A3
	CLR.L	D6
	MOVE.B	(A3),D6
	MULU	#2,D6
	CMP.B	D6,D7
	BNE	BERBA1
	RTS

BX	DS.W	40
BY	DS.W	40
OSHE	DS.L	40
SHE	DS.L	40
OBX	DS.W	40
OBY	DS.W	40
BULDODX DS.W	40
BULDODY DS.W	40
	DC.W	0

; RADAR CONTROL - BUT DOES IT WORK ?

RADOST	CLR.L	D7
	CLR.L	D0
RAD1	LEA	TEMPNO,A1
	MOVE.B	D7,(A1)
	LEA	EXIST,A1
	CMPI.W	#1,0(A1,D7)
	BNE	NEXRAD
	LEA	ENTYP,A1
	CLR.L	D1
	MOVE.W	0(A1,D7),D1
	LEA	COLORT,A2
	CLR.L	D2
	MOVE.B	0(A2,D1),D2
	MULU	#384,D2
	ADDI.L	#147712,D2
	MOVEA.L D2,A0
	CLR.L	D1
	CLR.L	D2
	LEA	ENX,A1
	LEA	ENY,A2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	;
TOGA	DIVU	#7,D2
	SWAP	D2
	CLR.W	D2
	SWAP	D2
	ADDI.W	#12,D2
	DIVU	#50,D1
	SWAP	D1
	CLR.W	D1
	SWAP	D1
	ADDI.W	#32,D1
	;
	LEA	RTX,A1
	LEA	RTY,A2
	MOVE.W	D1,0(A1,D7)
	MOVE.W	D2,0(A2,D7)
	MULU	#2,D7
	LEA	SHPA,A3
	CLR.L	D0
	ANDI.B	#$FE,D1
	MOVE.B	D1,D0
	ANDI.B	#$F,D0
	LSR.B	#1,D0
	MULU	#48,D0
	ADDA.L	D0,A0
	MOVE.L	A0,0(A3,D7)
	MOVEQ	#2,D6
	MOVEQ	#7,D5
	JSR	EDRAW0
NEXRAD	LEA	TEMPNO,A1
	LEA	BASNO,A2
	CLR.L	D6
	CLR.L	D7
	MOVE.B	(A1),D7
	MOVE.B	(A2),D6
	MULU	#2,D6
	ADDI.B	#2,D7
	CMP.B	D6,D7
	BEQ.S	MANRAD
	BRA	RAD1
	; MAN RADAR ROUTINE
MANRAD	MOVEA.L #147712,A0
	LEA	PLACE,A1
	LEA	NEWY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	(A1),D1
	MOVE.W	(A2),D2
	;	
TOGA2	DIVU	#7,D2
	SWAP	D2
	CLR.W	D2
	SWAP	D2
	ADDI.W	#12,D2
	DIVU	#50,D1
	SWAP	D1
	CLR.W	D1
	SWAP	D1
	ADDI.W	#32,D1
	;
	LEA	RTX,A1
	LEA	RTY,A2
	MOVE.W	D1,0(A1,D7)
	MOVE.W	D2,0(A2,D7)
	MULU	#2,D7
	LEA	SHPA,A3
	CLR.L	D0
	ANDI.B	#$FE,D1
	MOVE.B	D1,D0
	ANDI.B	#$F,D0
	LSR.B	#1,D0
	MULU	#48,D0
	ADDA.L	D0,A0
	MOVE.L	A0,0(A3,D7)
	MOVEQ	#2,D6
	MOVEQ	#7,D5
	Jmp	EDRAW0

ERAD	CLR.L	D0
	CLR.L	D7

ERAD1	LEA	TEMPNO,A1
	MOVE.B	D7,(A1)
	LEA	EXIST,A1
	tst.w	0(A1,D7)
	BEQ	NERAD	
	CMPI.W	#7,0(A1,D7)
	BEQ	NERAD
	CMPI.W	#6,0(A1,D7)
	BEQ	NERAD
	LEA	ORTX,A1
	LEA	ORTY,A2
	LEA	OSHPA,A3
	LEA	RTX,A4
	LEA	RTY,A5
	LEA	SHPA,A6
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	MOVE.W	0(A4,D7),0(A1,D7)
	MOVE.W	0(A5,D7),0(A2,D7)
	MULU	#2,D7
	MOVE.L	0(A3,D7),A0
	MOVE.L	0(A6,D7),0(A3,D7)
	MOVEQ	#2,D6
	MOVEQ	#7,D5
	LEA	RADFLG,A1
	tst.b	(A1)
	BEQ.S	NERAD
	JSR	EDRAW1
NERAD	LEA	TEMPNO,A1
	LEA	BASNO,A2
	CLR.L	D7
	CLR.L	D6
	MOVE.B	(A1),D7
	MOVE.B	(A2),D6
	MULU	#2,D6
	ADDI.B	#2,D7
	ADDI.B	#2,D6
	CMP.B	D7,D6
	BEQ.S	NEGO
	BRA	ERAD1
NEGO	LEA	RADFLG,A1
	MOVE.B	#1,(A1)
	RTS

ORTX	DS.W	41
ORTY	DS.W	41
OSHPA	DS.L	41
RTX	DS.W	41
RTY	DS.W	41
SHPA	DS.L	41
RADFLG	DC.W	0
FIRSTE	DC.W	0
COLORT	DC.B	2,3,1,5,7,6,3,5,6,3

MREY	CLR.L	D0
	LEA	SWITCH,A1
	MOVE.B	(A1),D0
	MULU	#512,D0
	LEA	MMASK,A1
	ADDA.L	D0,A1
	LEA	MCURE,A2
	MOVE.L	A1,(A2)
	CLR.L	D7
MREY1	LEA	TEMPNO,A1
	MOVE.B	D7,(A1)
	LEA	MXIST,A4
	tst.w	0(A4,D7)
	BEQ.S	MEXTEN
	BRA	MANTL
MEXTEN	LEA	TEMPNO,A1
	CLR.L	D7
	CLR.L	D6
	MOVE.B	(A1),D7
	MOVE.B	#20,D6
	ADDI.B	#2,D7
	CMP.B	D6,D7
	BNE	MREY1
	RTS
	

MANTL	LEA	MX,A2
	LEA	MY,A3
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A2,D7),D1
	MOVE.W	0(A3,D7),D2
	LEA	PMAN,A3
	tst.w	0(A3,D7)
	BEQ	MANTL4
	CLR.L	D6
	LEA	MIND,A3
	MOVE.W	0(A3,D7),D6
	CLR.L	D2
	LEA	ENY,A3
	MOVE.W	0(A3,D6),D2
	ADDI.W	#16,D2
	LEA	MY,A3
	MOVE.W	D2,0(A3,D7)
	BRA	MANTL3

MANTL4	CMPI.W	#179,D2
	BCC.S	MANTL3
	ADDI.W	#4,D2
MANTL3	MOVE.W	D1,0(A2,D7)
	LEA	MY,A3
	MOVE.W	D2,0(A3,D7)
	MOVEQ	#7,D5
	MOVEQ	#15,D6
	MOVEA.L #0,A0
	MOVEA.L #256,A1
	MOVE.L	#512,D4
	CLR.L	D0
	LEA	TIME3,A3
	MOVE.B	(A3),D0
	MULU	#4096,D0
	ADDA.L	D0,A0
	ADDA.L	D0,A1
	JSR	POPDRAW
	BRA	MEXTEN

POPDRAW CLR.L	D0
	LEA	PLACE,A2
	MOVE.W	(A2),D0
	SUBI.W	#32,D0
	CMPI.W	#$FF00,D0
	BLS.S	POPCLTX
	ADDI.W	#12800,D0
POPCLTX sub.W	D0,D1
	CMPI.W	#351,D1
	BLS.S	POPCL31
	ADDI.W	#12800,D1
	CMPI.W	#351,D1
	BLS.S	POPCL31
	LEA	TMM,A6
	clr.w	0(A6,D7)
	RTS

POPCL31 CLR.L	D0
	SUBI.W	#32,D1
	MOVE.L	D1,D0
	ANDI.L	#$F,D0
	LSR.B	#1,D0
	MULU	D4,D0
	ADDA.L	D0,A0
	ADDA.L	D0,A1
	LEA	TMX,A3
	LEA	TMY,A4
	MOVE.W	D1,0(A3,D7)
	MOVE.W	D2,0(A4,D7)
	LEA	TMM,A4
	MOVE.W	#1,0(A4,D7)
	LEA	TMW,A3
	MOVE.W	D5,0(A3,D7)
	LEA	TML,A4
	MOVE.W	D6,0(A4,D7)
	MOVEA.L mcure,A5
	JSR	MENDRAW
	LEA	MCURE,A6
	MOVE.L	A5,(A6)
	RTS

MMCLR	CLR.L	D7
	LEA	SWITCH,A1
	CLR.L	D0
	MOVE.B	(A1),D0
	MULU	#512,D0
	LEA	MMASK,A5
	ADDA.L	D0,A5
MANT1	LEA	TEMPNO,A1
	MOVE.B	D7,(A1)
	CMPI.B	#20,D7
	BEQ	ENDM
	LEA	MXIST,A1
	CMPI.W	#1,0(A1,D7)
	BNE	METCLR
	LEA	STTRFLG,A1
	CMPI.B	#1,(A1)
	BEQ	METCLR1
	LEA	MENSR1,A1
	CMPI.W	#1,0(A1,D7)
	BNE	METCLR1
	LEA	TMM,A2
	MOVE.W	0(A2,D7),0(A1,D7)
	LEA	OLX,A1
	LEA	OLY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A2,D7),D2
	MOVE.W	0(A1,D7),D1
	LEA	TMX,A3
	LEA	TMY,A4
	MOVE.W	0(A3,D7),0(A1,D7)
	MOVE.W	0(A4,D7),0(A2,D7)
	CLR.L	D5
	CLR.L	D6
	LEA	TMW,A1
	LEA	TML,A2
	MOVE.W	0(A1,D7),D5
	MOVE.W	0(A2,D7),D6
	JSR	MERAEN
METCLR	CLR.L	D7
	LEA	TEMPNO,A1
	MOVE.B	tempno,D7
	ADDI.W	#2,D7
	BRA	MANT1
ENDM	LEA	STTRFLG,A1
	clr.b	(A1)
	RTS

METCLR1 LEA	MENSR1,A1
	LEA	TMM,A2
	MOVE.W	0(A2,D7),0(A1,D7)
	LEA	OLX,A1
	LEA	OLY,A2
	LEA	TMX,A3
	LEA	TMY,A4
	MOVE.W 0(A3,D7),0(A1,D7)
	MOVE.W 0(A4,D7),0(A2,D7)
	BRA	METCLR

MX	DC.W	200,600,1000,1400,1800,2200,2600,3000,3400,3800
	DC.W	4200,4800,5200,5600,7000,10000,11000,9000

MY	DC.W	184,184,184,184,184,184,184,184,184,184
	DC.W	184,184,184,184,184
OLX	DS.W	40
OLY	DS.W	40
TMX	DS.W	40
TMY	DS.W	40
TMM	DS.W	40
MENSR1	DS.W	40
TMW	DS.W	40
TML	DS.W	40
MANO	DS.W	40
MIND	DS.W	40
PMAN	DS.W	40
MCURE	DC.L	0
MMASK	DS.W	1024
STTRFLG DC.W	0	

PICKUP	CLR.L	D7
PICKUP2 LEA	EXIST,A1
	tst.w	0(A1,D7)
	BEQ	PICKUP1
	LEA	ENTYP,A1
	tst.w	0(A1,D7)
	BNE	PICKUP1
	LEA	SPENCR2,A1
	CMPI.W	#1,0(A1,D7)
	BNE	PICKUP1
	LEA	ENX,A1
	MOVE.W	0(A1,D7),D1
	CLR.L	D6
	LEA	MX,A2
PICKUP0 CMP.W	0(A2,D6),D1
	BEQ	PICKUPX
PICKUP3 ADDI.B	#2,D6
	CMPI.B	#20,D6
	BNE.S	PICKUP0
PICKUP1 CLR.L	D5
	LEA	BASNO,A5
	MOVE.B	(A5),D5
	MULU	#2,D5
	ADDI.B	#2,D7
	CMP.W	D5,D7
	BNE	PICKUP2
	RTS

PICKUPX LEA	PMAN,A1
	tst.w	0(A1,D6)
	BNE	PICKUP3
	MOVE.W	#1,0(A1,D6)
	LEA	MIND,A1
	MOVE.W	D7,0(A1,D6)
	LEA	SPENCR2,A2
	MOVE.W	#2,0(A2,D7)
	LEA	MANO,A2
	MOVE.W	D6,0(A2,D7)
	BRA	PICKUP1

KOPSET	CLR.L	D7
	MOVE.B	#20,D7
	LEA	MXIST,A1
	LEA	PMAN,A2
	LEA	TMM,A3
	LEA	MENSR1,A4
TOOY	MOVE.W	#1,(A1)+
	clr.w	(A2)+
	clr.w	(A3)+
	clr.w	(A4)+
	SUBI.B	#1,D7
	tst.b	D7
	BNE.S	TOOY
	RTS

SHEATER LEA	HEATFLG,A3
	tst.b	(A3)
	BEQ.S	SHEAT1
SHATRA	RTS
SHEAT1	LEA	TAXA,A1
	MOVE.L	D7,(A1)
	LEA	TSX,A1
	CMPI.W	#290,0(A1,D7)
	BCC.S	SHATRA
	MOVE.B	#1,(A3)
	LEA	HX,A2
	MOVE.W	0(A1,D7),(A2)
	ADDI.W	#12,(A2)
	LEA	HY,A2
	LEA	TSY,A1
	MOVE.W	0(A1,D7),(A2)
	SUBI.W	#10,(A2)
	LEA	THY,A1
	MOVE.W	(A2),(A1)
	LEA	THX,A1
	LEA	HX,A2
	MOVE.W	(A2),(A1)
	JSR	HDOPOS
	LEA	OSHL,A2
	MOVE.L	A0,(A2)
	MOVEQ	#7,D5
	MOVEQ	#13,D6
	JSR	EDRAW0
	LEA	TAXA,A1
	MOVE.L	(A1),D7
	RTS

NACTAB	DC.B	4,4,5,4,6,0,3,4,7,1,2,4,4,4,4,4

HDOPOS	CLR.L	D1
	CLR.L	D2
	CLR.L	D4
	LEA	NEWX,A1
	LEA	NEWY,A2
	LEA	HX,A3
	LEA	HY,A4
	MOVE.W	(A3),D1
	MOVE.W	(A4),D2
	ADDI.W	#10,(A1)
	ADDI.W	#6,(A2)
	CMP.W	(A2),D2
	BEQ	HLR
	BCC	HIGHER
	BSET.L	#1,D4
	ADDI.W	#2,D2
	BRA	HLR
HIGHER	BSET.L	#0,D4
	SUBI.W	#2,D2
HLR	CMP.W	(A1),D1
	BEQ	FINDRI
	BCC	LEFTH
	ADDI.W	#4,D1
	BSET.L	#2,D4
	BRA	FINDRI
LEFTH	BSET.L	#3,D4
	SUBI.W	#4,D1
FINDRI	SUBI.W	#10,(A1)
	SUBI.W	#6,(A2)
	LEA	NACTAB,A0
	CLR.L	D0
	MOVE.B	0(A0,D4),D0
	MULU	#1792,D0
	MOVEA.L #67456,A0
	ADDA.L	D0,A0
	CLR.L	D0
	MOVE.W	D1,D0
	ANDI.L	#$F,D0
	LSR.B	#1,D0
	MULU	#224,D0
	ADDA.L	D0,A0
	MOVE.W	D1,(A3)
	MOVE.W	D2,(A4)
	LEA	SHL,A4
	MOVE.L	A0,(A4)
	RTS
	
BACIL	LEA	HEATFLG,A1
	tst.b	(A1)
	BNE.S	BACIL1
	RTS
BACIL1	JSR	HDOPOS
	MOVEQ	#7,D5
	MOVEQ	#13,D6
	CMPI.W	#300,D1
	BCC.S	BACIL4
	CMPI.W	#56,D2
	BLS.S	BACIL4
	CMPI.W	#175,D2
	BLS.S	BACIL2
BACIL4	MOVE.B	#5,heatflg
	MOVE.B	#2,fxtsno
	MOVE.B	#1,eflg
	RTS
BACIL2	Jmp	EDRAW0
BACIL3	RTS

ERHEAT	LEA	HEATFLG,A1
	CMPI.B	#5,(A1)
	BNE.S	ERHEAT1
	clr.b	(A1)
	BRA.S	ERHEAT3
ERHEAT1 tst.b	(A1)
	BEQ	ERHEAT4
ERHEAT3 CLR.L	D1
	CLR.L	D2
	LEA	HX,A1
	LEA	HY,A2
	LEA	THX,A3
	LEA	THY,A4
	MOVE.W	(A3),D1
	MOVE.W	(A4),D2
	LEA	OSHL,A5
	LEA	SHL,A6
	MOVEA.L (A5),A0
	MOVE.W	(A1),(A3)
	MOVE.W	(A2),(A4)
	MOVE.L	(A6),(A5)
	MOVEQ	#7,D5
	MOVEQ	#13,D6
	Jmp	EDRAW1
ERHEAT4 RTS

HX	DC.W	0
HY	DC.W	0
THY	DC.W	0
THX	DC.W	0
OSHL	DC.L	0
SHL	DC.L	0
TAXA	DC.L	0
HEATFLG DC.W	0

CLENS	MOVE.L	#960,D0
	LEA	EXIST,A1
CLENS1	clr.w	(A1)+
	DBRA	D0,CLENS1
	RTS

DECLENS MOVE.L	#919,D0
	LEA	EXIST,A1
	ADDA.L	#82,A1
DCLENS1 clr.w	(A1)+
	DBRA	D0,DCLENS1
	RTS

;	ENEMY START ROUTINES + CONTINUE LATER STUFF

POPSET	CLR.L	D7
	MOVE.B	#30,D7
	LEA	MXIST,A1
	LEA	DANCER,A2
	LEA	ENCNT,A3
	LEA	ENBD,A4
	LEA	CODOW,A5
FOOY	MOVE.W	#1,(A1)+
	clr.w	(A2)+
	clr.w	(A3)+
	clr.w	(A4)+
	clr.w	(A5)+
	SUBI.B	#1,D7
	tst.b	D7
	BNE.S	FOOY
	RTS

	; TAKE OUT ANDI.B	#3,D1 - LATER
	; BIRDS OF PREY
	
ENSET	CLR.L	D7
	LEA	STARTAB,A0
ENSET1	CLR.L	D1
	MOVE.B	(A0),D1
	CMP.B	D6,D7
	BNE	ENSET2

	LEA	OSTANO,A2
	MOVE.B	(A0),(A2)
	LEA	BASNO,A2
	MOVE.B	(A0)+,(A2)
;	TO EVEN OUT THE FLOW
	MOVE.B	(A0)+,D6
	CLR.L	D7
	MOVE.B	(A2),D7
	LEA	ENX,A1
	LEA	ENY,A2
	LEA	ENTYP,A4
	LEA	ENDELAY,A5
ENSET3	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A4)+
	MOVE.W	(A0)+,(A5)+
	SUBI.B	#1,D7
	tst.b	D7
	BNE.S	ENSET3
	LEA	BASNO,A2
	LEA	TOTBAS,A3
	MOVE.B	(A2),(A3)

EFGH	LEA	BASNO,A2
	CLR.L	D7
	MOVE.B	(A2),D7
	LEA	EXIST,A1
	LEA	SPENCR1,A2
	LEA	SPENCR2,A3
	LEA	SPENCR3,A4
	LEA	LIFE,A5
	LEA	CODOW,A6
ENSET4	MOVE.W	#1,(A1)+
	clr.w	(A2)+
	clr.w	(A3)+
	clr.w	(A4)+
	clr.w	(A5)+
	clr.w	(A6)+
	SUBI.B	#1,D7
	tst.b	D7
	BNE.S	ENSET4
	LEA	STARFLG,A2
	MOVE.B	#1,(A2)
	MOVE.W	#1,(A1)
	RTS

ENSET2	MULS.W	#8,D1
	ADDI.W	#2,D1
	ADDA.L	D1,A0
	ADDI.L	#1,D7
	BRA	ENSET1

PNSET2	MULS.W	#8,D1
	ADDI.W	#2,D1
	ADDA.L	D1,A0
	ADDI.L	#1,D7
	BRA	PNSET1

PNSET	CLR.L	D7
	LEA	STARTAB,A0
PNSET1	CLR.L	D1
	MOVE.B	(A0),D1
	CMP.B	D6,D7
	BNE	PNSET2
	;
	LEA	BASNO,A2
	MOVE.B	(A0)+,(A2)
	; TO EVEN OUT THE FLOW
	MOVE.B	(A0)+,D6
	CLR.L	D7
	MOVE.B	(A2),D7
	LEA	ENX,A1
	LEA	ENY,A2
	LEA	ENTYP,A4
	LEA	ENDELAY,A5
PNSET3	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A4)+
	MOVE.W	(A0)+,(A5)+
	SUBI.B	#1,D7
	tst.b	D7
	BNE.S	PNSET3
	RTS

GOPSET	CLR.L	D7
	LEA	BASNO,A6
	MOVE.B	(A6),D7
	LEA	CODOW,A5
	LEA	SPENCR1,A1
	LEA	SPENCR2,A0
	LEA	DANCER,A2
	LEA	ENBD,A3
	LEA	ENFASE,A4
FOOT	clr.w	(A1)+
	clr.w	(A2)+
	clr.w	(A4)+
	clr.w	(A5)+
	clr.w	(A0)+
	SUBI.B	#1,D7
	tst.b	D7
	BNE.S	FOOT
	RTS

; ENEMY GENERAL ROUTINE

PREY:	MOVE.B	switch,D0
	ANDI.L	#1,D0
	beq.s	pr.01
	move.l	#8000,D0
pr.01:	move.l	spmask,a1
	adda.l	d0,a1
	move.l	a1,curmsk
	moveq	#0,D7
PREY1:	MOVE.B	D7,tempno
	LEA	EXIST,A1
	CMPI.W	#1,0(A1,D7)
	BEQ	NTEN
	CMPI.W	#7,0(A1,D7)
	BEQ	NTEN
	BRA	NEXTEN
NTEN	LEA	ENTYP,A1
	tst.w	0(A1,D7)
	BEQ	BIRD
	CMPI.W	#1,0(A1,D7)
	BEQ	WASP
	CMPI.W	#2,0(A1,D7)
	BEQ	UFO
	CMPI.W	#3,0(A1,D7)
	BEQ	TANK
	CMPI.W	#4,0(A1,D7)
	BEQ	SQUARE
	CMPI.W	#5,0(A1,D7)
	BEQ	STATION
	CMPI.W	#6,0(A1,D7)
	BEQ	POD
	CMPI.W	#7,0(A1,D7)
	BEQ	BAITER
	CMPI.W	#8,0(A1,D7)
	BEQ	BOAT
NEXTEN	LEA	TEMPNO,A1
	LEA	BASNO,A2
	CLR.L	D7
	CLR.L	D6
	MOVE.B	(A1),D7
	MOVE.B	(A2),D6
	MULU	#2,D6
	ADDI.B	#2,D7
	CMP.B	D6,D7
	BEQ.S	AWAY
	BRA	PREY1
AWAY	RTS	

; EXAMPLE SAMPLE PREY ROUTINE 

SQUARE	LEA	ENX,A1
	LEA	ENY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2

	ADDI.W	#4,D1
	ADDI.W	#4,D2

	CMPI.W	#183,D2
	BLS.S	SQCX
	MOVE.W	#58,D2
SQCX	CMPI.W	#12799,D1
	BLS.S	SQUARE1
	clr.w	D1

SQUARE1 MOVEQ	#7,D5
	MOVEQ	#15,D6

	CLR.L	D0
	LEA	TIME3,A3
	MOVE.B	(A3),D0
	MULU	#4096,D0

	LEA	$9000,A0
	ADDA.L	D0,A0
	MOVEA.L A0,A1
	ADDA.L	#256,A1
	MOVE.L	#512,D4

	JSR	MCPLOT
	BRA	NEXTEN

POD	LEA	ENX,A1
	LEA	ENY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2

	ADDI.W	#6,D1

	CMPI.W	#12799,D1
	BLS.S	POD1
	clr.w	D1

POD1	MOVEQ	#7,D5
	MOVEQ	#6,D6

	CLR.L	D0
	LEA	TIME2,A3
	MOVE.B	(A3),D0
	MULU	#896,D0

	LEA	$F000,A0
	ADDA.L	D0,A0
	moveq	#112,D4

	JSR	CPLOT
	BRA	NEXTEN

STATION LEA	ENX,A1
	LEA	ENY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	LEA	CODOW,A1
	tst.w	0(A1,D7)
	BNE.S	STATIN1
	SUBI.W	#4,D1
	CMPI.W	#$FFF0,D1
	BLS.S	STATIN1
	ADDI.W	#12800,D1
STATIN1 MOVEQ	#11,D5
	MOVEQ	#31,D6
	LEA	$C000,A0
	MOVEA.L A0,A1
	ADDA.L	#768,A1
	MOVE.L	#1536,D4
	JSR	MCPLOT
	BRA	NEXTEN
	
BAITER	LEA	ENDELAY,A3
	tst.w	0(A3,D7)
	BEQ.S	BAITER1
	SUBI.W	#1,0(A3,D7)
	BRA	NEXTEN
BAITER1 LEA	NEWY,A2
	LEA	ENX,A3
	LEA	ENY,A4
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A3,D7),D1
	MOVE.W	0(A4,D7),D2
	CMP.W	(A2),D2
	BCC.S	BAIUP
BAIDO	ADDI.W	#3,D2
	CMPI.W	#183,D2
	BLS.S	BAITER4
	MOVE.W	#183,D2
	BRA.S	BAITER4
BAIUP	SUBI.W	#3,D2
	CMPI.W	#58,D2
	BCC.S	BAITER4
	MOVE.W	#58,D2
BAITER4 LEA	PLACE,A1
	CMP.W	(A1),D1	
	BCC.S	BAILE
BAIRI	ADDI.W	#4,D1
	CMPI.W	#12799,D1
	BLS.S	BAITER5
	clr.w	D1
	BRA.S	BAITER5
BAILE	SUBI.W	#4,D1
	CMPI.W	#$FFF0,D1
	BLS.S	BAITER5
	ADDI.W	#12800,D1
BAITER5 MOVEQ	#11,D5
	MOVEQ	#10,D6
	LEA	$F700,A0
	MOVEA.L A0,A1
	ADDA.L	#264,A1
	MOVE.L	#528,D4
	JSR	MCPLOT
	BRA	NEXTEN
	
BIRD	LEA	ENX,A1
	LEA	ENY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	LEA	SPENCR2,A3
	tst.w	0(A3,D7)
	BEQ.S	BIRD1D
	CMPI.W	#1,0(A3,D7)
	BEQ	BIRD1L
	CMPI.W	#2,0(A3,D7)
	BEQ	BIRD1U
BIRD1D	ADDI.W	#1,D2
	CMPI.W	#167,D2
	BNE.S	BIRD1D2
	LEA	SPENCR2,A3
	MOVE.W	#1,0(A3,D7)
BIRD1D2 MOVEQ	#7,D5
	MOVEQ	#15,D6
	LEA	$6000,A0
	MOVEA.L A0,A1
	ADDA.L	#256,A1
	MOVE.L	#512,D4
	JSR	MCPLOT
	BRA	NEXTEN
	
BIRD1L	SUBI.W	#2,D1
	CMPI.W	#$FFF0,D1
	BLS.S	BIRD1D2
	ADDI.W	#12800,D1
	BRA.S	BIRD1D2
	
BIRD1U	SUBI.W	#1,D2
	CMPI.W	#56,D2
	BNE	BIRD1D2
	LEA	ENTYP,A4
	MOVE.W	#1,0(A4,D7)
	CLR.L	D6
	LEA	MANO,A4
	MOVE.W	0(A4,D7),D6
	LEA	PMAN,A4
	clr.w	0(A4,D6)
	BRA	BIRD1D2


WASP	CLR.L	D1
	CLR.L	D2
	LEA	ENX,A1
	LEA	ENY,A2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	LEA	PLACE,A3
	LEA	NEWY,A4
	CMP.W	(A3),D1
	BCC.S	LEWA
DEWA	ADDI.W	#8,D1
	CMPI.W	#12799,D1
	BLS.S	WASP1
	clr.w	D1
	BRA.S	WASP1	

LEWA	SUBI.W	#8,D1
	CMPI.W	#$FFF0,D1
	BLS.S	WASP1
	ADDI.W	#12800,D1

WASP1	CMP.W	(A4),D2
	BCC.S	UPWA

DOWA	ADDI.W	#4,D2
	CMPI.W	#183,D2
	BLS.S	WASP2
	MOVE.W	#183,D2
	BRA.S	WASP2
	
UPWA	SUBI.W	#4,D2

WASP2	MOVEQ	#7,D5
	MOVEQ	#15,D6
	LEA	$7000,A0
	MOVEA.L A0,A1
	ADDA.L	#256,A1
	MOVE.L	#512,D4
	JSR	MCPLOT
	BRA	NEXTEN

BOAT	LEA	SPENCR1,A1
	CMPI.W	#1,0(A1,D7)
	BNE.S	BOAT0A
	JSR	SHEATER
BOAT0A	LEA	ENX,A1
	LEA	ENY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	SUBI.W	#4,D1
	CMPI.W	#$FFF0,D1
	BLS.S	BOAT1
	ADDI.W	#12800,D1
BOAT1	MOVEQ	#15,D5
	MOVEQ	#15,D6
	LEA	$19500,A0
	CLR.L	D0
	LEA	TIME2,A3
	MOVE.B	(A3),D0
	MULU	#8192,D0
	ADDA.L	D0,A0
	MOVEA.L A0,A1
	ADDA.L	#512,A1
	MOVE.L	#1024,D4
	JSR	MCPLOT
	BRA	NEXTEN
	
UFO	LEA	ENX,A1
	LEA	ENY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	
	LEA	TIME7,A0
	CLR.L	D0
	MOVE.B	(A0),D0
	MULU	#2,D0
	LEA	UFODOD,A0
	MOVE.W	0(A0,D0),D0
	add.W	D0,D2
	ADDI.W	#4,D1
	CMPI.W	#12799,D1
	BLS.S	UFO1
	SUBI.W	#12800,D1
UFO1	MOVEQ	#11,D5
	MOVEQ	#18,D6
	LEA	$13F80,A0
	LEA	TIME3,A3
	CLR.L	D0
	MOVE.B	(A3),D0
	MULU	#7296,D0
	ADDA.L	D0,A0
	MOVEA.L A0,A1
	ADDA.L	#456,A1
	MOVE.L	#912,D4
	JSR	MCPLOT
	BRA	NEXTEN
	
TANK	LEA	SPENCR1,A1
	CMPI.W	#1,0(A1,D7)
	BNE.S	TANK0A
	JSR	SHEATER
TANK0A	LEA	ENX,A1
	LEA	ENY,A2
	CLR.L	D1
	CLR.L	D2
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	SUBI.W	#4,D1
	CMPI.W	#$FFF0,D1
	BLS.S	TANK1
	ADDI.W	#12800,D1
TANK1	MOVEQ	#15,D5
	MOVEQ	#18,D6
	LEA	$1FD20,A0
	MOVEA.L A0,A1
	ADDA.L	#640,A1
	MOVE.L	#1280,D4
	JSR	MCPLOT
	BRA	NEXTEN

;!!!!!!!!!!!!!!!!!!!!!!!!!!!!ENEMY DRAWING ROUTINES

MCPLOT	LEA	ENX,A3
	LEA	ENY,A4
	MOVE.W	D1,0(A3,D7)
	MOVE.W	D2,0(A4,D7)
	LEA	CODOW,A3
	tst.w	0(A3,D7)
	BEQ	MCLOT3
	SUBI.W	#1,0(A3,D7)
	tst.w	0(A3,D7)
	BNE.S	CLOT6
	RTS

CLOT6	CMPI.W	#5,0(A3,D7)
	BNE	CLOT7
	LEA	EXIST,A1
	MOVE.W	#7,0(A1,D7)
	MOVEA.L #156672,A0
	MOVE.L	#256,D4
	MOVEQ	#7,D5
	MOVEQ	#15,D6
	LEA	TSW,A1
	LEA	TSL,A2
	LEA	TTW,A3
	LEA	TTL,A4
	MOVE.W	0(A1,D7),0(A3,D7)
	MOVE.W	0(A2,D7),0(A4,D7)
	JSR	CLOT3
	CLR.L	D7
	MOVE.B	tempno,D7
	LEA	TSW,A1
	LEA	TSL,A2
	LEA	TTW,A3
	LEA	TTL,A4
	MOVE.W	0(A3,D7),0(A1,D7)
	MOVE.W	0(A4,D7),0(A2,D7)
	RTS	
	
CLOT7	CMPI.W	#4,0(A3,D7)
	BNE	CLOT8
	MOVEA.L #158720,A0
	MOVE.L	#256,D4
	MOVEQ	#7,D5
	MOVEQ	#15,D6
	BRA	CLOT3
	
CLOT8	CMPI.W	#3,0(A3,D7)
	BNE	CLOT9
	MOVEA.L #160768,A0
	MOVE.L	#256,D4
	MOVEQ	#7,D5
	MOVEQ	#15,D6
	BRA	CLOT3


CLOT9	CMPI.W	#2,0(A3,D7)
	BNE	CLOT10
	MOVEA.L #162816,A0
	MOVE.L	#256,D4
	MOVEQ	#7,D5
	MOVEQ	#15,D6
	LEA	EXIST,A1
	MOVE.W	#6,0(A1,D7)
	LEA	CODOW,A1
	clr.w	0(A1,D7)	
	BRA	CLOT3

CLOT10	CMPI.W	#9,0(A3,D7)
	BNE	CLOT11
	LEA	EXIST,A1
	MOVE.W	#7,0(A1,D7)
	MOVEA.L #164864,A0
	MOVEq	#0,D4
	MOVEQ	#7,D5
	MOVEQ	#15,D6
	LEA	TSW,A1
	LEA	TSL,A2
	LEA	TTW,A3
	LEA	TTL,A4
	MOVE.W	0(A1,D7),0(A3,D7)
	MOVE.W	0(A2,D7),0(A4,D7)
	JSR	CLOT3
	CLR.L	D7
	LEA	TEMPNO,A1
	MOVE.B	(A1),D7
	LEA	TSW,A1
	LEA	TSL,A2
	LEA	TTW,A3
	LEA	TTL,A4
	MOVE.W	0(A3,D7),0(A1,D7)
	MOVE.W	0(A4,D7),0(A2,D7)
	RTS	

CLOT11	CMPI.W	#8,0(A3,D7)
	BNE	CLOT12
	MOVEA.L #165120,A0
	MOVEq	#0,D4
	MOVEQ	#7,D5
	MOVEQ	#15,D6
	BRA	CLOT3
	
CLOT12	CMPI.W	#7,0(A3,D7)
	BNE	CLOT13
	MOVEA.L #165376,A0
	MOVEq	#0,D4
	MOVEQ	#11,D5
	MOVEQ	#15,D6
	JSR	CLOT3
	CLR.L	D7
	LEA	TEMPNO,A1
	MOVE.B	(A1),D7
	LEA	TSW,A1
	MOVE.W	#7,0(A1,D7)
	RTS

CLOT13	CMPI.W	#6,0(A3,D7)
	BNE	CLOT14
	MOVEA.L #165760,A0
	MOVEq	#0,D4
	MOVEQ	#11,D5
	MOVEQ	#15,D6
	LEA	EXIST,A1
	MOVE.W	#6,0(A1,D7)
	LEA	CODOW,A1
	clr.w	0(A1,D7)
	BRA	CLOT3

CLOT14	RTS	

MCLOT3	CLR.L	D0
	LEA	PLACE,A2
	MOVE.W	(A2),D0
	SUBI.W	#32,D0
	CMPI.W	#$FF00,D0
	BLS.S	MCLOTX
	ADDI.W	#12800,D0
MCLOTX	sub.W	D0,D1
	CMPI.W	#351,D1
	BLS.S	MCLOT31
	ADDI.W	#12800,D1
	CMPI.W	#351,D1
	BLS.S	MCLOT31
	LEA	TSM,A6
	clr.w	0(A6,D7)
	RTS	

MCLOT31 CLR.L	D0
	SUBI.W	#32,D1
	MOVE.L	D1,D0
	ANDI.L	#$F,D0
	LSR.W	#1,D0
	MULU	D4,D0
	ADDA.L	D0,A0
	ADDA.L	D0,A1
	LEA	TSX,A3
	LEA	TSY,A4
	MOVE.W	D1,0(A3,D7)
	MOVE.W	D2,0(A4,D7)
	LEA	TSM,A4
	MOVE.W	#1,0(A4,D7)
	LEA	TSW,A3
	MOVE.W	D5,0(A3,D7)
	LEA	TSL,A4
	MOVE.W	D6,0(A4,D7)
	MOVEA.L curmsk,A5
	JSR	MENDRAW
	MOVE.L	A5,curmsk
	RTS

; NORMAL EOR ENEMIES

CPLOT	LEA	ENX,A3
	LEA	ENY,A4
	MOVE.W	D1,0(A3,D7)
	MOVE.W	D2,0(A4,D7)
	LEA	CODOW,A3
	tst.w	0(A3,D7)
	BEQ	CLOT3
	SUBI.W	#1,0(A3,D7)
	tst.w	0(A3,D7)
	BNE	CLOT6
	LEA	SPENCR1,A5
	clr.w	0(A5,D7)
	RTS

CLOT3	CLR.L	D0
	LEA	PLACE,A2
	MOVE.W	(A2),D0
	SUBI.W	#32,D0
	CMPI.W	#$FF00,D0
	BLS.S	CLOTX
	ADDI.W	#12800,D0
CLOTX	sub.W	D0,D1
	CMPI.W	#351,D1
	BLS.S	CLOT31
	ADDI.W	#12800,D1
	CMPI.W	#351,D1
	BLS.S	CLOT31
	LEA	TSM,A6
	clr.w	0(A6,D7)
	RTS	

CLOT31	CLR.L	D0
	SUBI.W	#32,D1
	MOVE.L	D1,D0
	ANDI.L	#$F,D0
	LSR.W	#1,D0
	MULU	D4,D0
	ADDA.L	D0,A0
	LEA	TSX,A3
	LEA	TSY,A4
	MOVE.W	D1,0(A3,D7)
	MOVE.W	D2,0(A4,D7)
	LEA	TSM,A4
	MOVE.W	#1,0(A4,D7)
	LEA	TSW,A3
	MOVE.W	D5,0(A3,D7)
	LEA	TSL,A4
	MOVE.W	D6,0(A4,D7)
	MOVEA.L curmsk,A5
	JSR	ENDRAW
	MOVE.L	A5,curmsk
	RTS

;!!!!!!!!!!!!!!!!!! REDRAW	ALL MASKED ENEMIES

MCLRMSK:moveq	#0,D7
	moveq	#0,D0
	MOVE.B	switch,D0
	MULU	#8000,D0
	MOVEA.L spmask,A5
	ADDA.L	D0,A5

METRO1:	MOVE.B	D7,tempno
	CLR.L	D0
	LEA	BASNO,A6
	MOVE.B	(A6),D0
	MULU	#2,D0
	CMP.B	D0,D7
	BEQ	ENDCLR
	LEA	EXIST,A1
	CMPI.W	#1,0(A1,D7)
	BEQ	HEXA1
	tst.w	0(A1,D7)
	BEQ	NETCLR
	CMPI.W	#5,0(A1,D7)
	BNE.S	HEXANT
	clr.w	0(A1,D7)	
HEXANT	CMPI.W	#6,0(A1,D7)
	BNE.S	HEXA1
	MOVE.W	#5,0(A1,D7)
HEXA1	LEA	STARFLG,A1
	CMPI.B	#1,(A1)
	BEQ	NETCLR1
	LEA	SPENCR1,A1
	CMPI.W	#1,0(A1,D7)
	BNE	NETCLR1
	LEA	TSM,A2
	MOVE.W	0(A2,D7),0(A1,D7)
	LEA	OX,A1
	LEA	OY,A2
	CLR.L	D2
	CLR.L	D1
	MOVE.W	0(A1,D7),D1
	MOVE.W	0(A2,D7),D2
	LEA	TSX,A3
	LEA	TSY,A4
	MOVE.W	0(A3,D7),0(A1,D7)
	MOVE.W	0(A4,D7),0(A2,D7)
	CLR.L	D5
	CLR.L	D6
	LEA	TSW,A1
	LEA	TSL,A2
	MOVE.W	0(A1,D7),D5
	MOVE.W	0(A2,D7),D6
	JSR	MERAEN
NETCLR	CLR.L	D7
	MOVE.B	tempno,D7
	ADDI.W	#2,D7
	BRA	METRO1
ENDCLR:	clr.b	starflg
	RTS

NETCLR1 LEA	SPENCR1,A1	
	LEA	TSM,A2
	MOVE.W	0(A2,D7),0(A1,D7)
	LEA	OX,A1
	LEA	OY,A2
	LEA	TSX,A3
	LEA	TSY,A4
	MOVE.W	0(A3,D7),0(A1,D7)
	MOVE.W	0(A4,D7),0(A2,D7)
	BRA	NETCLR 

; DATA FOR ENEMIES

EXIST	DS.W	41
SPENCR1 DS.W	40
SPENCR2 DS.W	40
SPENCR3 DS.W	40
LIFE	DS.W	40
CODOW	DS.W	40
OX	DS.W	40
OY	DS.W	40
ENX	DS.W	40
ENY	DS.W	40
ENTYP	DS.W	40
ENDELAY DS.W	40
ENBD	DS.W	40
ENFASE	DS.W	40
DANCER	DS.W	40
TSX	DS.W	40
TSY	DS.W	40
TSM	DS.W	40
TSW	DS.W	40
TTL	DS.W	40
TTW	DS.W	40
TSL	DS.W	40
ENCNT	DS.W	40	
MXIST	DS.W	40
	DS.W	40
PLACE	DC.L	0
LEVEL	DC.L	0
	DC.L	0
CURMSK	DC.L	0
	DC.L	0
	DC.L	0
SPMASK	DC.L	0
TOTBAS	DC.L	0
BASNO	DC.L	0
TEMPNO	DC.L	0	
STARFLG DC.L	0

	even

; LEVEL DATA LEVEL 0 - SAHARA DESERT 0
STARTAB DC.B	14,0
	DC.W	1000,179,3,3
	DC.W	2000,80,5,5	
	DC.W	4000,100,2,2
	DC.W	8000,100,7,1000	
	DC.W	164,62,0,0
	DC.W	80,62,4,4
	DC.W	300,60,6,6
	DC.W	600,120,6,6
	DC.W	5000,100,1,1
	DC.W	10000,62,0,0
	DC.W	3000,62,0,0
	DC.W	2200,130,2,2
	DC.W	3300,140,2,2
	DC.W	11100,70,2,2

	; LEVEL 1

	DC.B	16,0
	DC.W	200,62,0,0
	DC.W	400,62,0,0
	DC.W	600,62,0,0
	DC.W	800,62,0,0
	DC.W	12000,62,2,2
	DC.W	12000,102,2,2
	DC.W	12000,142,2,2
	DC.W	8000,100,7,500
	DC.W	3000,100,7,1000
	DC.W	7000,62,0,0
	DC.W	5000,100,1,1
	DC.W	7100,62,4,4
	DC.W	7116,62,4,4
	DC.W	9000,80,5,5
	DC.W	11000,80,5,5
	DC.W	4000,100,1,1
	; LEVEL2
	DC.B	20,0
	DC.W	100,62,0,0
	DC.W	1100,62,0,0
	DC.W	2100,62,0,0
	DC.W	3100,62,0,0
	DC.W	4100,62,0,0
	DC.W	5100,62,0,0
	DC.W	6100,62,0,0
	DC.W	7100,62,0,0
	DC.W	8100,62,0,0
	DC.W	9100,62,0,0
	DC.W	10100,62,0,0
	DC.W	11100,62,0,0
	DC.W	1000,179,8,8
	DC.W	5000,179,8,8
	DC.W	8000,179,8,8
	DC.W	5500,70,4,4
	DC.W	5532,70,4,4
	DC.W	5500,102,4,4
	DC.W	5532,102,4,4
	DC.W	3000,100,7,300
	; LEVEL3
	DC.B	20,0
	DC.W	1000,179,3,3
	DC.W	1500,179,3,3
	DC.W	2000,179,3,3
	DC.W	11000,179,3,3
	DC.W	10500,70,2,2
	DC.W	10500,130,2,2
	DC.W	10564,100,2,2
	DC.W	10436,100,2,2
	DC.W	100,62,0,0
	DC.W	1100,62,0,0
	DC.W	1500,62,0,0
	DC.W	2100,62,0,0
	DC.W	3100,62,0,0
	DC.W	4100,62,0,0
	DC.W	3500,62,0,0
	DC.W	300,60,6,6
	DC.W	600,120,6,6
	DC.W	900,60,6,6
	DC.W	1200,120,6,6
	DC.W	1000,100,1,1

	; LEVEL4 - CITY
	DC.B	22,0
	DC.W	200,70,4,4
	DC.W	260,70,4,4
	DC.W	300,179,3,3
	DC.W	600,179,3,3
	DC.W	900,179,3,3
	DC.W	1200,179,3,3
	DC.W	10500,70,2,2
	DC.W	10500,130,2,2
	DC.W	10564,100,2,2
	DC.W	5436,100,2,2
	DC.W	100,62,0,0
	DC.W	1100,62,0,0
	DC.W	1500,62,0,0
	DC.W	4100,62,0,0
	DC.W	3500,62,0,0
	DC.W	1300,60,6,6
	DC.W	1600,120,6,6
	DC.W	11900,60,6,6
	DC.W	1200,120,6,6
	DC.W	1000,100,1,1
	DC.W	1600,100,1,1	
	DC.W	12000,100,1,1
	;LEVEL 5 - DESERT
	DC.B	18,0
	DC.W	100,70,4,4
	DC.W	100,86,4,4
	DC.W	100,102,4,4
	DC.W	116,86,4,4
	DC.W	132,70,4,4
	DC.W	132,86,4,4
	DC.W	132,102,4,4
	DC.W	100,62,0,0
	DC.W	1100,62,0,0
	DC.W	2100,62,0,0
	DC.W	3100,62,0,0
	DC.W	4100,62,0,0
	DC.W	5100,62,0,0
	DC.W	3000,179,3,3
	DC.W	12000,179,3,3
	DC.W	8000,80,2,2
	DC.W	9000,80,2,2
	DC.W	8000,94,2,2
	; LEVEL6 -MOON
	DC.B	24,0	
	DC.W	100,62,2,2
	DC.W	1100,62,2,2
	DC.W	2100,62,2,2
	DC.W	3100,62,2,2
	DC.W	4100,62,2,2
	DC.W	5100,62,2,2
	DC.W	6100,62,2,2
	DC.W	7100,62,2,2
	DC.W	8100,62,2,2
	DC.W	9100,62,2,2
	DC.W	10100,62,2,2
	DC.W	11100,62,2,2
	DC.W	100,62,4,4
	DC.W	1100,62,4,4
	DC.W	2100,62,4,4
	DC.W	3100,62,4,4
	DC.W	4100,62,4,4
	DC.W	5100,62,4,4
	DC.W	6100,62,4,4
	DC.W	7100,62,4,4
	DC.W	8100,62,4,4
	DC.W	9100,62,4,4
	DC.W	10100,62,4,4
	DC.W	11100,62,4,4
	; LEVEL7 - SKY
	DC.B	21,0	
	DC.W	100,60,5,5
	DC.W	100,94,5,5
	DC.W	100,128,5,5
	DC.W	12020,60,5,5
	DC.W	12020,94,5,5
	DC.W	12020,128,5,5
	DC.W	12000,60,2,2
	DC.W	12000,128,2,2
	DC.W	12000,94,1,1
	DC.W	12000,94,6,6	
	DC.W	200,70,4,4
	DC.W	260,70,4,4
	DC.W	300,179,3,3
	DC.W	600,179,3,3
	DC.W	900,179,3,3
	DC.W	1200,179,3,3
	DC.W	10500,70,2,2
	DC.W	8000,100,4,4
	DC.W	9000,100,4,4
	DC.W	7000,100,4,4
	DC.W	6000,100,7,400	
	;LEVEL8 - MORE
	DC.B	24,0
	DC.W	100,60,4,4
	DC.W	100,92,4,4
	DC.W	116,76,4,4
	DC.W	132,60,4,4
	DC.W	132,92,4,4
	DC.W	1000,179,8,8
	DC.W	3000,179,8,8
	DC.W	5000,179,8,8
	DC.W	7000,179,8,8
	DC.W	11100,179,8,8
	DC.W	1000,120,2,2
	DC.W	1100,100,2,2
	DC.W	1200,80,2,2
	DC.W	1400,100,2,2
	DC.W	1600,120,2,2
	DC.W	5000,100,1,1
	DC.W	7000,60,6,6
	DC.W	7100,60,6,6
	DC.W	7200,60,6,6
	DC.W	7000,120,6,6
	DC.W	7100,120,6,6
	DC.W	7200,120,6,6
	DC.W	12000,100,1,1
	DC.W	11000,100,1,1 
	;	LEVEL9 - MOON
	DC.B	26,0
	DC.W	100,62,4,4
	DC.W	1100,62,4,4
	DC.W	2100,62,4,4
	DC.W	3100,62,4,4
	DC.W	4100,62,4,4
	DC.W	5100,62,4,4
	DC.W	6100,62,4,4
	DC.W	7100,62,4,4
	DC.W	8100,62,4,4
	DC.W	9100,62,4,4
	DC.W	10100,62,4,4
	DC.W	11100,62,4,4
	DC.W	100,122,4,4
	DC.W	1100,122,4,4
	DC.W	2100,122,4,4
	DC.W	3100,122,4,4
	DC.W	4100,122,4,4
	DC.W	5100,122,4,4
	DC.W	6100,122,4,4
	DC.W	7100,122,4,4
	DC.W	8100,122,4,4
	DC.W	9100,122,4,4
	DC.W	10100,122,4,4
	DC.W	11100,122,4,4
	DC.W	1000,179,3,3
	DC.W	9000,179,3,3	
	; LEVEL10 - MOON
	DC.B	23,0	
	DC.W	100,100,4,4
	DC.W	116,100,4,4
	DC.W	132,100,4,4
	DC.W	148,100,4,4
	DC.W	8100,100,4,4
	DC.W	8116,100,4,4
	DC.W	8132,100,4,4
	DC.W	8148,100,4,4
	DC.W	5100,100,2,4
	DC.W	5116,100,2,4
	DC.W	5132,100,2,4
	DC.W	5148,100,2,4
	DC.W	100,62,0,0
	DC.W	1100,62,0,0
	DC.W	1500,62,0,0
	DC.W	4100,62,0,0
	DC.W	3500,62,0,0
	DC.W	1300,60,6,6
	DC.W	1600,120,6,6
	DC.W	1000,179,3,3
	DC.W	1100,179,3,3
	DC.W	3000,179,3,3
	DC.W	3100,179,3,3
	; LEVEL 11- MAD LEVEL (SAHARA DRY SHERRY)
	DC.B	20,0
	DC.W	100,76,4,4
	DC.W	116,60,4,4
	DC.W	132,76,4,4
	DC.W	132,92,4,4
	DC.W	132,108,4,4
	DC.W	116,124,4,4
	DC.W	1000,179,3,3
	DC.W	2000,179,8,8
	DC.W	3000,179,3,3
	DC.W	4000,179,8,8
	DC.W	5000,179,3,3
	DC.W	6000,179,8,8
	DC.W	8100,76,4,4
	DC.W	8116,60,4,4
	DC.W	8132,76,4,4
	DC.W	8132,92,4,4
	DC.W	8132,108,4,4
	DC.W	8116,124,4,4
	DC.W	9000,100,1,1
	DC.W	10000,100,1,1
	; LEVEL12	-	SINGLE MOUNT
	DC.B	18,0
	DC.W	200,100,1,1
	DC.W	300,100,1,1
	DC.W	400,100,1,1
	DC.W	300,179,3,3
	DC.W	100,60,0,0
	DC.W	400,60,0,0
	DC.W	500,60,0,0
	DC.W	12000,100,2,2
	DC.W	12060,100,2,2
	DC.W	12700,100,2,2
	DC.W	160,60,0,0
	DC.W	300,60,0,0
	DC.W	5000,100,1,1
	DC.W	6000,100,1,1
	DC.W	7000,100,1,1
	DC.W	8000,100,1,1
	DC.W	10000,100,5,5
	DC.W	11000,100,7,100
	; LEVEL 13 - JMF LEVEL
	DC.B	15,0	
	DC.W	132,60,4,4
	DC.W	132,76,4,4
	DC.W	132,92,4,4
	DC.W	116,108,4,4
	DC.W	100,92,4,4
	DC.W	1000,100,2,2
	DC.W	5000,100,2,2
	DC.W	5032,60,2,2
	DC.W	2000,60,1,1
	DC.W	3000,60,1,1
	DC.W	100,62,0,0
	DC.W	1100,62,0,0
	DC.W	1500,62,0,0
	DC.W	4100,62,0,0
	DC.W	3500,62,0,0
	; LEVEL 14 - MOON
	DC.B	21,0	
	DC.W	600,60,5,5
	DC.W	600,94,5,5
	DC.W	600,128,5,5	
	DC.W	650,60,5,5
	DC.W	650,94,5,5
	DC.W	650,128,5,5	
	DC.W	700,60,5,5
	DC.W	700,94,5,5
	DC.W	700,128,5,5	
	DC.W	1000,100,1,1
	DC.W	1000,179,3,3
	DC.W	2000,100,6,6
	DC.W	3000,60,5,5
	DC.W	4000,120,2,2
	DC.W	6000,100,1,1
	DC.W	12000,60,2,2
	DC.W	12064,94,2,2
	DC.W	12128,128,2,2
	DC.W	11000,60,2,2
	DC.W	11064,94,2,2
	DC.W	11128,128,2,2
	; LEVEL 15 - MAD LEVEL III
	DC.B	38,0
	DC.W	100,62,2,2
	DC.W	1100,62,2,2
	DC.W	2100,62,2,2
	DC.W	3100,62,2,2
	DC.W	4100,62,2,2
	DC.W	5100,62,2,2
	DC.W	6100,62,2,2
	DC.W	7100,62,2,2
	DC.W	8100,62,2,2
	DC.W	9100,62,2,2
	DC.W	10100,62,2,2
	DC.W	11100,62,2,2
	DC.W	100,62,4,4
	DC.W	1100,62,4,4
	DC.W	2100,62,4,4
	DC.W	3100,62,4,4
	DC.W	4100,62,4,4
	DC.W	5100,62,4,4
	DC.W	6100,62,4,4
	DC.W	7100,62,4,4
	DC.W	8100,62,4,4
	DC.W	9100,62,4,4
	DC.W	10100,62,4,4
	DC.W	11100,62,4,4
	DC.W	100,122,4,4
	DC.W	1100,122,4,4
	DC.W	2100,122,4,4
	DC.W	3100,122,4,4
	DC.W	4100,122,4,4
	DC.W	5100,122,4,4
	DC.W	6100,122,4,4
	DC.W	7100,122,4,4
	DC.W	8100,122,4,4
	DC.W	9100,122,4,4
	DC.W	10100,122,4,4
	DC.W	11100,122,4,4
	DC.W	1000,179,3,3
	DC.W	9000,179,3,3	
	; LEVEL 16 - GOOD GALAXIA
	DC.B	33,0
	DC.W	12000,60,6,6
	DC.W	12100,60,6,6
	DC.W	12200,60,6,6
	DC.W	12300,60,6,6
	DC.W	12400,60,6,6
	DC.W	12500,60,6,6
	DC.W	12600,60,6,6
	DC.W	12000,120,6,6
	DC.W	12100,120,6,6
	DC.W	12200,120,6,6
	DC.W	12300,120,6,6
	DC.W	12400,120,6,6
	DC.W	12500,120,6,6
	DC.W	12600,120,6,6
	DC.W	700,60,6,6
	DC.W	100,60,6,6
	DC.W	200,60,6,6
	DC.W	300,60,6,6
	DC.W	400,60,6,6
	DC.W	500,60,6,6
	DC.W	600,60,6,6
	DC.W	700,120,6,6
	DC.W	100,120,6,6
	DC.W	200,120,6,6
	DC.W	300,120,6,6
	DC.W	400,120,6,6
	DC.W	500,120,6,6
	DC.W	600,120,6,6
	DC.W	2000,100,1,1
	DC.W	1000,100,1,1
	DC.W	1000,179,3,3
	DC.W	5000,179,3,3
	DC.W	7000,100,7,200
	; LEVEL 17
	DC.B	28,0
	DC.W	12000,60,6,6
	DC.W	12100,60,6,6
	DC.W	12200,60,6,6
	DC.W	12300,60,6,6
	DC.W	12400,60,6,6
	DC.W	12500,60,6,6
	DC.W	12600,60,6,6
	DC.W	12000,120,6,6
	DC.W	12100,120,6,6
	DC.W	12200,120,6,6
	DC.W	12300,120,6,6
	DC.W	12400,120,6,6
	DC.W	12500,120,6,6
	DC.W	12600,120,6,6
	DC.W	100,62,0,0
	DC.W	1100,62,0,0
	DC.W	1500,62,0,0
	DC.W	2100,62,0,0
	DC.W	3100,62,0,0
	DC.W	4100,62,0,0
	DC.W	3500,62,0,0
	DC.W	1000,100,1,1
	DC.W	1000,179,3,3
	DC.W	2000,100,6,6
	DC.W	3000,60,5,5
	DC.W	4000,120,2,2
	DC.W	6000,100,1,1
	DC.W	2000,179,3,3

	even

LEVBAT	DC.B	3,2,1,4,0,3,2,5,1,2,2,3,4,4,2,5
	DC.B	3,2,1,4,0,3,2,5,1,2,2,5,3,4,4,2,1,5
	DC.B	3,2,1,4,0,3,2,5,1,2,2,5,3,4,4,2,1,5
	DC.B	3,2,1,4,0,3,2,5,1,2,2,5,3,4,4,2,1,5

UFODOD	DC.W	4,4,4,0,$FFFC,$FFFC,$FFFC,0

;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! END !!!!!!!!!!!!!!!!

; ####################### HERE START CHECK ROUTINES ###############

; BEN - SHIP BULLET TO ENEMY CHECKIN' !!1

BEN	CLR.L	D7
	tst.b	fireflg
	BEQ	BENZ
	CLR.L	D1
	CLR.L	D2
BEN1	
	CLR.L	D1
	CLR.L	D2
	LEA	BULX,A1
	MOVE.W	(A1)+,D1
	MOVE.W	(A1),D2
	LEA	EXIST,A1
	tst.w	0(A1,D7)
	BEQ	BEN3
	
	LEA	TSM,A2
	tst.w	0(A2,D7)
	BEQ	BEN3
	LEA	SPENCR1,A2
	tst.w	0(A2,D7)
	BEQ	BEN3
	LEA	CODOW,A2
	tst.w	0(A2,D7)
	BNE	BEN3
	CLR.L	D3
	LEA	ENTYP,A3
	MOVE.W	0(A3,D7),D3
	MULU	#2,D3
	CLR.L	D5
	CLR.L	D6
	LEA	TIPX,A5
	LEA	TIPY,A6
	MOVE.W	0(A6,D3),D6
	MOVE.W	0(A5,D3),D5
	LEA	TSX,A2
	LEA	TSY,A3
	CLR.L	D3
	CLR.L	D4
	MOVE.W	0(A2,D7),D3
	MOVE.W	0(A3,D7),D4
	sub.W	D2,D4
	CMPI.W	#2,D4
	BLS	DOBENX
	MOVE.W	0(A3,D7),D4
	sub.W	D4,D2
	CMP.W	D6,D2
	BLS	DOBENX
	BRA	BEN3
DOBENX	sub.W	D1,D3
	CMPI.W	#6,D3
	BLS	DOITB
	MOVE.W	0(A2,D7),D3
	sub.W	D3,D1
	CMP.W	D5,D1
	BCC	BEN3
DOITB	LEA	OSTANO,A1
	SUBI.B	#1,(A1)
	tst.b	(A1)
	BEQ	BENZ
	LEA	EXIST,A1
	MOVE.W	#7,0(A1,D7)
	LEA	CODOW,A1
	LEA	COTAB,A2
	LEA	ENTYP,A3
	CLR.L	D6
	MOVE.W	0(A3,D7),D6
	MULU	#2,D6
	MOVE.W	0(A2,D6),0(A1,D7)
	LEA	SDOD2,A1
	LEA	ADDTAB,A2
	MOVE.W	0(A2,D6),(A1)
	CLR.L	D6
	LEA	MANO,A4
	MOVE.W	0(A4,D7),D6
	LEA	PMAN,A4
	clr.w	0(A4,D6)
	MOVE.B	#2,fxtsno
	MOVE.B	#1,eflg
	Jmp	SCALC
BEN3	ADDI.B	#2,D7
	CLR.L	D6
	LEA	BASNO,A5
	MOVE.B	(A5),D6
	MULU	#2,D6
	CMP.B	D6,D7
	BNE	BEN1
BENZ	RTS

TIPX	DC.W	12,12,17,44,14,20,14,26,44

ADDTAB	DC.W	$150,$350,$125,$130,$175,$300,$500,$150,$130
TIPY	DC.W	14,14,17,14,14,30,6,11,15

COTAB	DC.W	6,6,6,6,6,6,6,6,6

NEXTLEV:ADDI.B	#1,level
	CMPI.B	#lastlevel,level
	Blt.s	HAPPY1
	MOVE.B	#lastlevel,level
HAPPY1:	MOVE.B	#5,fxtsno
	MOVE.B	#1,eflg
	BRA	RESET	

MENBOR	CLR.L	D7	
MENBO1	CLR.L	D1
	CLR.L	D2
	LEA	NEWX,A1
	MOVE.W	(A1)+,D1
	MOVE.W	(A1),D2
	ADDI.W	#4,D1
	ADDI.W	#1,D2
	LEA	EXIST,A1
	CMPI.W	#1,0(A1,D7)
	BNE	MENBO3
	LEA	ENBD,A2
	tst.w	0(A2,D7)
	BEQ	MENBO3
	LEA	BX,A2
	LEA	BY,A3
	CLR.L	D3
	CLR.L	D4
	MOVE.W	0(A2,D7),D3
	MOVE.W	0(A3,D7),D4
	sub.W	D2,D4
	CMPI.W	#9,D4
	BLS	DOMNX
	BRA	MENBO3
DOMNX	sub.W	D1,D3
	CMPI.W	#22,D3
	BLS	DOMNE
	BRA	MENBO3
DOMNE	LEA	KFLG,A1
	MOVE.B	#1,(A1)
	RTS
MENBO3	ADDI.B	#2,D7
	CLR.L	D6
	LEA	BASNO,A5
	MOVE.B	(A5),D6
	MULU	#2,D6
	CMP.B	D6,D7
	BNE	MENBO1
	RTS

HELIX	LEA	HEATFLG,A1
	tst.b	(A1)
	BEQ	HELIX3
	CLR.L	D1
	CLR.L	D2
	CLR.L	D3
	CLR.L	D4
	LEA	HX,A1
	LEA	HY,A2
	LEA	NEWX,A3
	LEA	NEWY,A4
	MOVE.W	(A3),D1
	MOVE.W	(A4),D2
	MOVE.W	(A1),D3
	MOVE.W	(A2),D4
	sub.W	D2,D4
	CMPI.W	#8,D4
	BLS	HELYX
	MOVE.W	(A2),D4
	sub.W	D4,D2
	CMPI.W	#4,D2
	BLS	HELYX
	BRA	HELIX3
HELYX	sub.W	D1,D3
	CMPI.W	#20,D3
	BLS	DOHELY
	MOVE.W	(A1),D3
	sub.W	D3,D1
	CMPI.W	#4,D1
	BLS	DOHELY
	BRA	HELIX3
DOHELY	LEA	KFLG,A1
	MOVE.B	#1,(A1)
HELIX3	RTS

; SEN - SHIP TO ENEMY CHECKIN' !!1

SEN	CLR.L	D7
	CLR.L	D1
	CLR.L	D2
SEN1	
	LEA	NEWX,A1
	MOVE.W	(A1)+,D1
	MOVE.W	(A1),D2
	ADDI.W	#4,D1
	LEA	EXIST,A1
	CMPI.W	#1,0(A1,D7)
	BNE	SEN3
	
	LEA	TSM,A2
	tst.w	0(A2,D7)
	BEQ	SEN3
	LEA	SPENCR1,A2
	tst.w	0(A2,D7)
	BEQ	SEN3
	LEA	CODOW,A2
	tst.w	0(A2,D7)
	BNE	SEN3
	CLR.L	D3
	LEA	ENTYP,A3
	MOVE.W	0(A3,D7),D3
	MULU	#2,D3
	CLR.L	D5
	CLR.L	D6
	LEA	TIPX,A5
	LEA	TIPY,A6
	MOVE.W	0(A6,D3),D6
	MOVE.W	0(A5,D3),D5
	LEA	TSX,A2
	LEA	TSY,A3
	CLR.L	D3
	CLR.L	D4
	MOVE.W	0(A2,D7),D3
	MOVE.W	0(A3,D7),D4
	sub.W	D2,D4
	CMPI.W	#10,D4
	BLS	DOSENX
	MOVE.W	0(A3,D7),D4
	sub.W	D4,D2
	CMP.W	D6,D2
	BLS	DOSENX
	BRA	SEN3
DOSENX	sub.W	D1,D3
	CMPI.W	#26,D3
	BLS	DOITS
	MOVE.W	0(A2,D7),D3
	sub.W	D3,D1
	CMP.W	D5,D1
	BCC	SEN3
DOITS	LEA	KFLG,A1
	MOVE.B	#1,(A1)
	RTS
SEN3	ADDI.B	#2,D7
	CLR.L	D6
	LEA	BASNO,A5
	MOVE.B	(A5),D6
	MULU	#2,D6
	CMP.B	D6,D7
	BNE	SEN1
SENZ	RTS

	; VARIABLES

BACKS	DC.L	0
GPOS	DC.L	0
GRNDNO	DC.L	0
CURLOC	DC.L	0	
TITLESC DC.L	0
SMALSET DC.L	0
BIGSET	DC.L	0
CFLG	DC.L	0	
HIFLG	DC.L	0
SNFLG	DC.L	0
SPEED	DC.L	0
SWITCH	DC.L	0
OLDX	Ds.w	1
oldy:	ds.w	1
NEWX	DC.W	0
NEWY	DC.W	0
TBUL	DC.W	0,0
BULX	DC.W	0,0
BFLG	DC.L	0
FIREFLG DC.L	0
BULDIR	DC.L	0
BMFLG	DC.L	0
ERBFLG	DC.L	0
SDIR	DC.L	0
THR	DC.L	0
VELTIM	DC.L	0

PONI	LEA	PILE,A1
	LEA	SPILE,A2
	MOVE.L	A1,(A2)
	RTS	

SPILE	DC.L	0

TITLEP	DC.W	$035<<1,$700<<1,$777<<1,$760<<1
	dc.w	$057<<1,$730<<1,$710<<1,$241<<1
	dc.w	$520<<1,$411<<1,$310<<1,$333<<1
	dc.w	$542<<1,$555<<1,$222<<1,$000<<1

CONVER	MOVE.L	D0,D1

	ANDI.B	#$F,D1
	ADDI.B	#29,D1

	LSR.B	#4,D0
	ANDI.L	#$F,D0
	ADDI.B	#29,D0

	RTS

FINALE	LEA	NAMESTR,A1
	MOVEQ	#8,D0
FILOP	clr.b	(A1)+
	DBRA	D0,FILOP

	LEA	ASCSC,A2
	LEA	SCORE,A1
	CLR.L	D0
	MOVE.B	(A1)+,D0
	JSR	CONVER
	MOVE.B	D0,(A2)+
	MOVE.B	D1,(A2)+
	CLR.L	D0
	MOVE.B	(A1)+,D0
	JSR	CONVER
	MOVE.B	D0,(A2)+
	MOVE.B	D1,(A2)+
	CLR.L	D0
	MOVE.B	(A1)+,D0
	JSR	CONVER
	MOVE.B	D0,(A2)+
	MOVE.B	D1,(A2)+
	;
	MOVEq	#0,D0
	LEA	SCTAB,A0
HTUT	LEA	ASCSC,A1
	MOVEQ	#5,D1
HCOM1	CMPm.B	(A1)+,(A0)+
	BEQ	HCOM2
	BLS	PUTHERE
	BNE	HNEXT
HCOM2	DBRA	D1,HCOM1
	BRA	PUTHERE

HNEXT	ADDI.B	#1,D0
	MOVE.L	D0,D2
	MULU	#6,D2
	LEA	SCTAB,A0
	ADDA.L	D2,A0
	CMPI.B	#9,D0
	BNE.S	HTUT
	RTS

PUTHERE moveq	#8,D1
PUTH2	LEA	SCTAB,A1
	MOVE.L	D1,D3
	MULU	#6,D3
	ADDA.L	D3,A1
	MOVEA.L A1,A2
	ADDA.L	#6,A2
	MOVEQ	#5,D3
HDOIT1	MOVE.B	(A1)+,(A2)+
	DBRA	D3,HDOIT1

	LEA	NAMTAB,A1
	MOVE.L	D1,D3
	MULU	#8,D3
	ADDA.L	D3,A1
	MOVEA.L A1,A2
	ADDA.L	#8,A2
	MOVEQ	#7,D3
HDOIT2	MOVE.B	(A1)+,(A2)+
	DBRA	D3,HDOIT2

	CMP.B	D1,D0
	BEQ	HOUT
	SUBI.B	#1,D1
	BRA.S	PUTH2
	;
HOUT	LEA	PLACT,A0
	MOVE.L	D0,(A0)
	JSR	HISCORE
	JSR	CLRSCR

	LEA	NAMESTR,A2
	LEA	NAMTAB,A3
	LEA	PLACT,A0
	MOVE.L	(A0),D0
	MULU	#8,D0
	ADDA.L	D0,A3
	MOVEQ	#7,D5
HOUT1	MOVE.B	(A2)+,(A3)+
	DBRA	D5,HOUT1

	LEA	ASCSC,A2
	LEA	SCTAB,A3
	LEA	PLACT,A0
	MOVE.L	(A0),D0
	MULU	#6,D0
	ADDA.L	D0,A3
	MOVEQ	#5,D5
HOUT2	MOVE.B	(A2)+,(A3)+
	DBRA	D5,HOUT2
	; NOW DISPLAY ALL THESE FOOLS
	LEA	MESSFAM,A2
	MOVEQ	#4,D3
	MOVEQ	#0,D4
	JSR	TEXT
	CLR.L	D7
WODA	MOVE.L	D7,D0
	JSR	CONVER
	MOVE.L	D1,D0
	ADDI.B	#1,D0
	MOVE.L	D7,D2
	ADDI.B	#2,D2
	MOVE.L	D2,D3
	MOVEQ	#0,D1
	JSR	CHAR

	LEA	NAMTAB,A6
	MOVE.L	D7,D1
	MULU	#8,D1
	ADDA.L	D1,A6
	
	CLR.L	D6
HHHA1	CLR.L	D0
	MOVE.L	D3,D2
	moveq	#4,D1
	add.B	D6,D1
	MOVE.B	(A6)+,D0
	JSR	CHAR
	ADDI.B	#1,D6
	CMPI.B	#8,D6
	BNE.S	HHHA1

	LEA	SCTAB,A6
	MOVE.L	D7,D1
	MULU	#6,D1
	ADDA.L	D1,A6
	
	CLR.L	D6
HHHA2	CLR.L	D0
	MOVE.L	D3,D2
	moveq	#14,D1
	add.B	D6,D1
	MOVE.B	(A6)+,D0
	JSR	CHAR
	ADDI.B	#1,D6
	CMPI.B	#6,D6
	BNE.S	HHHA2
	ADDI.B	#1,D7
	CMPI.B	#9,D7
	BNE	WODA
	MOVEQ	#3,D3
	MOVEQ	#11,D4
	LEA	MESSP,A2
	JSR	TEXT
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PRESS
	Jmp	HIEND

; THESE ARE DATA FOR HI-SCORE ROUTINE
*TABTAB	DC.L	0
*	DS.B	10

NAMTAB	DC.B	1,0,0,0,0,0,0,0
	DC.B	2,0,0,0,0,0,0,0
	DC.B	3,0,0,0,0,0,0,0
	DC.B	4,0,0,0,0,0,0,0
	DC.B	5,0,0,0,0,0,0,0
	DC.B	6,0,0,0,0,0,0,0
	DC.B	7,0,0,0,0,0,0,0
	DC.B	8,0,0,0,0,0,0,0
	DC.B	9,0,0,0,0,0,0,0
	DC.B	10,0,0,0,0,0,0,0
	DC.B	11,0,0,0,0,0,0,0

SCTAB	DC.B	29,29,33,29,29,29
	DC.B	29,29,32,29,29,29
	DC.B	29,29,31,29,29,30
	DC.B	29,29,31,29,29,29
	DC.B	29,29,31,29,29,29
	DC.B	29,29,30,29,29,34
	DC.B	29,29,30,29,29,33
	DC.B	29,29,30,29,29,32
	DC.B	29,29,30,29,29,30
	DC.B	29,29,30,29,29,29
	DS.B	10
	DC.B	0,0,0,0,0,0,0,0
	DS.B	10 

ASCSC	DC.B	0,0,0,0,0,0,0,0

PLACT	DC.L	0

MESSFAM DC.B	8,1,12,12,0,16,6,0,6,1,14,5,255
MESSP	DC.B	18,20,5,21,21,0,1,15,27,0,11,5,27,255	

PRESS	JSR	GETJOY2
	tst.w	D0
	BNE.S	PRESS1
	JSR	GETJOY2
	tst.w	D0
	BRA.S	PRESS
PRESS1	RTS

PAUZA	MOVE.L	#65000,D0
PAUZA1	NOP
	NOP
	DBRA	D0,PAUZA1
	RTS

; ROUTINES TO DO WITH SCORING

TOPLINE MOVEQ	#0,D3
	MOVEQ	#0,D4
	LEA	MESSTOP,A2
	JSR	STEXT
	JSR	TURN
	MOVEQ	#0,D3
	MOVEQ	#0,D4
	LEA	MESSTOP,A2
	JSR	STEXT
	Jmp	TURN

PRSTAGE MOVEQ	#6,D3
	MOVEQ	#14,D4
	LEA	MESTAG,A2
	JSR	STEXT
	MOVEQ	#12,D3
	MOVEQ	#14,D4	
	JSR	PRLEVX
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	JSR	PAUZA
	MOVEQ	#6,D3
	MOVEQ	#14,D4
	LEA	MESSERY,A2
	Jmp	STEXT

PRSCORE moveq	#6,D3
	MOVEq	#0,D4
	LEA	SCORE,A2
	BSR	NOPR
	BSR	NOPR
	BRA	NOPR

PRLIV	MOVEQ	#14,D3
	MOVEQ	#0,D4
	LEA	LIVES,A2
	Jmp	NOPR

PRLEV	MOVEQ	#18,D3
	MOVEQ	#0,D4
PRLEVX	LEA	LEVEL,A5
	LEA	LEVDEC,A4
	LEA	TEMPNO,A2
	CLR.L	D0
	MOVE.B	(A5),D0
	MOVE.B	0(A4,D0),(A2)

NOPR	CLR.L	D0
	MOVE.B	(A2),D0
	LSR.B	#4,D0
	ADDI.B	#27,D0
	MOVE.L	D3,D1
	MOVE.L	D4,D2
	JSR	SCHAR

	ADDI.B	#1,D3
	CLR.L	D0
	MOVE.B	(A2)+,D0
	ANDI.B	#15,D0
	ADDI.B	#27,D0
	MOVE.L	D3,D1
	MOVE.L	D4,D2
	JSR	SCHAR	
	ADDI.B	#1,D3
	RTS

SCORE	DC.B	$0,$0,$0
DODIC	DC.B	0,0,0
	even
	DC.B	0
SDOD	DC.B	0
SDOD2	DC.B	0,0

CALC:	lea	score+2,a0
	lea	dodic+2,a1
	moveq	#3-1,d2
	MOVE	#0,CCR 
cLOOP:	ABCD.B	-(A1),-(A0)
	DBRA	D2,cLOOP
	CLR.B	dodic
	CLR.B	dodic+1
	CLR.B	dodic+2
	RTS

SCALC:	lea	dodic+2,a0
	lea	sdod+2,a1
	moveq	#3-1,d2
	MOVE	#0,CCR 
sLOOP:	ABCD.B	-(A1),-(A0)
	DBRA	D2,sLOOP
	CLR.B	sdod
	CLR.B	sdod+1
	CLR.B	sdod+2
	RTS

LEVDEC:	DC.B	0,1,2,3,4,5,6,7,8,9
	DC.B	$10,$11,$12,$13,$14,$15,$16,$17,$18,$19
	DC.B	$20,$21,$22,$23,$24,$25,$26,$27,$28,$29
	DC.B	$30,$31,$32,$33,$34,$35,$36,$37,$38,$39
	DC.B	$40

MESSTOP DC.B	19,3,15,18,5,39,27,27,27,27,27,27,0,19,27,32,0,12
	DC.B	27,27,255

MESSERY DC.B	0,0,0,0,0,0,0,0,0,255
MESTAG	DC.B	19,20,1,7,5,0,255

; THIS BELOW ARE ROUTINES FOR FUTURE USES (C)1986 PARADOX SOFTWARE
; USE OF THESE ROUTINES IS FORBIDDEN TO ANYBODY OUTSIDE THE COMPANY

; TEXT - PRINTS A TEXT STRING
; A2 - TEXT	D3 X-START	D4 Y

TEXT	CLR.L	D0
	CLR.L	D1
	CLR.L	D2
	MOVE.B	D3,D1
	MOVE.B	D4,D2
	MOVE.B	(A2)+,D0
	CMPI.B	#255,D0
	BEQ.S	ENDTXT
	JSR	CHAR
	ADDI.B	#1,D3
	BRA.S	TEXT
ENDTXT	RTS	

STEXT	CLR.L	D0
	CLR.L	D1
	CLR.L	D2
	MOVE.B	D3,D1
	MOVE.B	D4,D2
	MOVE.B	(A2)+,D0
	CMPI.B	#255,D0
	BEQ.S	SENDTXT
	JSR	SCHAR
	ADDI.B	#1,D3
	BRA.S	STEXT
SENDTXT RTS	

CINTAB	DC.W	$0
	DC.W	$000<<1,$000<<1,$000<<1,$000<<1,$000<<1,$000<<1,$000<<1,$000<<1
	dc.w	$1
	dc.w	$711<<1,$711<<1,$711<<1,$711<<1,$711<<1,$711<<1,$711<<1,$711<<1
	dc.w	$2
	dc.w	$660<<1,$660<<1,$660<<1,$660<<1,$660<<1,$660<<1,$660<<1,$660<<1
	dc.w	$3
	DC.W	$001<<1,$003<<1,$005<<1,$007<<1,$001<<1,$003<<1,$005<<1,$007<<1
	DC.W	$4
	DC.W	$006<<1,$006<<1,$006<<1,$006<<1,$006<<1,$006<<1,$006<<1,$006<<1
	DC.W	$5
	DC.W	$770<<1,$760<<1,$750<<1,$740<<1,$730<<1,$720<<1,$710<<1,$700<<1
	DC.W	$6
	DC.W	$024<<1,$024<<1,$024<<1,$024<<1,$024<<1,$024<<1,$024<<1,$024<<1
	DC.W	$7
	DC.W	$631<<1,$631<<1,$631<<1,$631<<1,$631<<1,$631<<1,$631<<1,$631<<1
	DC.W	$8
	DC.W	$050<<1,$050<<1,$050<<1,$050<<1,$050<<1,$050<<1,$050<<1,$050<<1
	DC.W	$9
	DC.W	$075<<1,$075<<1,$075<<1,$075<<1,$075<<1,$075<<1,$075<<1,$075<<1
	DC.W	$A
	DC.W	$504<<1,$504<<1,$504<<1,$504<<1,$504<<1,$504<<1,$504<<1,$504<<1
	DC.W	$B
	DC.W	$455<<1,$455<<1,$455<<1,$455<<1,$455<<1,$455<<1,$455<<1,$455<<1
	DC.W	$C
	DC.W	$703<<1,$703<<1,$703<<1,$703<<1,$703<<1,$703<<1,$703<<1,$703<<1
	DC.W	$D
	DC.W	$223<<1,$223<<1,$223<<1,$223<<1,$223<<1,$223<<1,$223<<1,$223<<1
	DC.W	$E
	DC.W	$677<<1,$677<<1,$677<<1,$677<<1,$677<<1,$677<<1,$677<<1,$677<<1
	DC.W	$F
	DC.W	$777<<1,$777<<1,$777<<1,$777<<1,$777<<1,$777<<1,$777<<1,$777<<1
	DC.W	$FFFF

FLIP	JSR	TURN
	Jmp	SETSCR

GRSET	JSR	FLIP
	JSR	CLRSCR
	JSR	FLIP
	Jmp	CLRSCR

SCRLOC	DC.L	$78000
OTSCR	DC.L	$70000
SCRNO	DC.B	0

BOJAFLG DC.B	0
	even
	DC.B	0,0,0,0,0,0,0,0
	even
CINTNO	DC.B	0
INTIM	DC.B	0	

HTUNA	DC.B	254,1,2,10
	DC.B	254,0
	DC.B	2,24,2,20,2,17,2,24,1,20,2,17,1,24,1,24,1,17
	DC.B	254,1,2,10
	DC.B	254,0
	DC.B	2,19,2,15,2,12,2,17,1,13,2,10,1,17,1,13,1,10
	DC.B	254,1,2,10
	DC.B	254,0
	DC.B	2,24,2,20,2,17,2,24,1,20,2,17,1,24,1,24,1,17
	DC.B	254,1,2,10
	DC.B	254,0
	DC.B	2,19,2,15,2,12,2,17,1,13,2,10,1,17,1,13,1,10
	
	DC.B	2,15,1,12,2,8,1,15,1,12,1,8
	DC.B	2,19,1,15,2,12,1,19,1,15,1,12
	DC.B	2,17,1,13,2,10,1,17,1,13,1,10
	DC.B	2,20,1,17,2,13,1,20,1,17,1,13
	DC.B	2,19,1,15,2,12,1,19,1,15,1,12
	DC.B	2,19,1,15,2,12,1,19,1,15,1,12
	DC.B	2,17,1,13,2,10,1,17,1,13,1,10
	DC.B	2,17,2,19,2,20,2,22
	DC.B	255	


HTUNB	DC.B	254,0
	DC.B	16,48,8,43,8,41
	DC.B	16,48,8,43,8,41
	DC.B	8,39,8,43,8,41,8,44,16,43,16,41,255	

HTUNC	DC.B	254,0
	DC.B	16,36,8,31,8,29
	DC.B	16,36,8,31,8,29
	DC.B	8,27,8,31,8,29,8,32,16,31,16,29,255

	even

SSTORE	DS.B	896	
BULMASK DS.B	96

	even
	DS.B	1000	
STACK	DC.L	0
	DS.B	1000