KEEPATT.ASM

;THIS STUFF WAS TAKEN OUT OF ATTRACT.ASM
;


;HSTDTAB:
;	JSRP	WNDWON
;	CALLA	KILBGND			;KILL OLD BACKGROUND IF ANY EXISTED
;	MOVI	CLSNEUT|TYPTEXT|SUBWNDW,A0
;	CLR	A1
;	NOT	A1
;	CALLA	KILOBJ
;
;	MOVI	CHAMPS,A0
;	MOVE	A0,@BAKMODS,L
;	CALLA	BGND_UD1
;;	MOVI	CHAMPS,A0
;	MOVE	A0,@BAKMODS,L
;	CALLA	BGND_UD1
;	MOVI	CHAMPS,A0
;	MOVE	A0,@BAKMODS,L
;	CALLA	BGND_UD1

;	MOVI	HSC,A0
;	CALLA	BLAKOUT
;	MOVI	NUARENAP,A0
;	CALLA	BLAKOUT
;
;	MOVI	SCRNEND,A0	;[256,405],A0
;	MOVE	A0,@SCRNLR,L
;
;	MOVI	PAL4TAB,A0
;	MOVK	2,A1			;FADE TITLE SCREEN IN FROM BLACK
;	CALLA	FADEIN
;
;	SLEEP	20
;
;	MOVI	HSC,A8		;PAL NAME
;	MOVI	PAL1,A9		;RAM AREA
;	MOVI	[50,55],A10	;BEGIN/END COLOR #
;	MOVK	5,A11		;RATE IN TICKS
;	CREATE	CYCPID,COLCYC	;COLOR CYCLER ON
;
;	MOVI	HSC,A8		;PAL NAME
;	MOVI	PAL2,A9		;FIRST COLOR TO CYCLE
;	MOVI	[55,58],A10	;LAST COLOR TO CYCLE
;	MOVK	9,A11		;RATE
;	CREATE	CYCPID,COLCYC
;
;;DISPLAY SCORES HERE!
;
;	CALLA	COLRPRC
;	CLR	A0
;	MOVE	A0,@GAMERASE,W
;	SLEEP	2
;	CALLA	GETHIGH
;
;	SLEEP	5*60
;	MOVE	@KEEPON,A0
;	JRZ	TY6
;	SLEEP	14*60
;	CLR	A0
;	MOVB	A0,@CANT
;	MOVE	A0,@KEEPON
;	MOVK	3,A11		;FADE RATE
;	CREATE	0,FADE_DOWN
;	SLEEP	40
;	SOUND1	MUSICOFF
;	MOVK	3,A11		;FADE RATE
;	CREATE	0,FADE_UP
;	
;	
;TY6	MOVK	1,A0
;	MOVE	A0,@GAMERASE,W
;
;	MOVI	CYCPID,A0
;	CLR	A1
;	NOT	A1
;	CALLA	KILALL
;
;	MOVI	PAL4TAB,A0
;	MOVK	2,A1			;FADE TITLE SCREEN OUT TO BLACK
;	CALLA	FADEOUT
;
;	SLEEP	30
;	CALLA	CLR_SCRN
;	RETP
;
;OFFERT:
;	JSRP	WNDWON
;	CALLA	KILBGND			;KILL OLD BACKGROUND IF ANY EXISTED
;
;	MOVI	OFFER,A0
;	MOVE	A0,@BAKMODS,L
;	CALLA	BGND_UD1
;
;	MOVI	CLSNEUT|TYPTEXT|SUBWNDW,A0
;	CLR	A1
;	NOT	A1
;	CALLA	KILOBJ
;
;	MOVI	HSC,A0
;	CALLA	BLAKOUT
;	MOVI	DUXPAL,A0
;	CALLA	BLAKOUT
;	MOVI	smlg,A0
;	CALLA	BLAKOUT
;
;	MOVI	SCRNEND,A0	;[256,405],A0
;	MOVE	A0,@SCRNLR,L
;
;	MOVI	PAL5TAB,A0
;	MOVK	2,A1			;FADE TITLE SCREEN IN FROM BLACK
;	CALLA	FADEIN
;
;	MOVI	DUXPAL,A8	;PAL NAME
;	MOVI	PAL1,A9		;RAM AREA
;	MOVI	[1,6],A10	;BEGIN/END COLOR #
;	MOVK	8,A11		;RATE IN TICKS
;	CREATE	CYCPID,COLCYC	;COLOR CYCLER ON
;
;	SLEEP	8*60
;
;	MOVI	CYCPID,A0
;	CLR	A1
;	NOT	A1
;	CALLA	KILALL
;
;	MOVI	PAL5TAB,A0
;	MOVK	2,A1			;FADE TITLE SCREEN OUT TO BLACK
;	CALLA	FADEOUT
;
;	SLEEP	35
;	CALLA	CLR_SCRN
;	MOVB	@CANT,A0
;	JREQ	ACJAZ
;ADPAZ	SLEEP	1
;	JRUC	ADPAZ
;ACJAZ	RETP

;PRINTIT:
;	JSRP	SNKNOW
;	CLR	A0
;	MOVI	03E3EH,A6		;COLOR
;	JSRP	STRCNRMO		;PRINT OUT SHIT
;	JSRP	EXPSCRN
;	SLEEP	60*5			;5 SECONDS
;	MOVI	CLSNEUT|TYPTEXT|SUBTXT,A0
;	CLR	A1
;	NOT	A1
;	CALLA	KILOBJ
	RETP
;
;SY	.LONG	SY1,S2,S2,S3,S4,S2,S5,S6,S2,S8,S9,S10,S11,S2,S13,S14,S15,S16,S17
;	.LONG	S2,S2,S20,S21,S22,S23,S2,S24,S2,S24A,S2,S25,0
;SY2	.LONG	FSY1,S2,FS3,FS4,S2,FS5,S2,FS5A,S2,FS6,FS8,S2,FS9,FS10,FS11,FS13,FS14,FS15,FS15A,FS16,FS17
;	.LONG	S2,FS21,FS22,S2,FS23,S2,FS24,S2,S25
;	.LONG	S2,S2,NM1,NM2,NM3,NM4,NM5,NM5A,NM6,NM7,NM7A,NM8,NM9,NM10,NM11
;	.LONG	NM12,NM12A,NM12B,NM12C,NM12E,NM12D,NM12F,NM12G,S2,S2,S2,NM13,S2,NM14,0
;
;SY1
;	.STRING	"The year is 1999"
;	.BYTE	0
;	.EVEN
;S2	.STRING	" "
;	.BYTE	0
;	.EVEN
;;									
;; ATTPLAY - ATTRACT MODE GAME PLAY					
;; NOTE: CALL WITH JSRP							
;;									
;NATTWAVS .SET	3			;# OF ATTRACT MODE WAVES
;
;ATTPLAY:
;	MOVK	1,A0
;	MOVE	A0,@SOUNDSUP,W		;TURN ALL SOUNDS OFF
;	MOVE	@AWAVE,A0,W
;	INC	A0
;	CMPI	2,A0
;	JRNE	NOMUT
;	MOVE	A0,@AWAVE
;	MOVI	10,A0
;	JRUC	MUT0
;NOMUT	CMPI	NATTWAVS,A0
;	JRLS	ATTWGO
;ATTWRST:
;	MOVK	1,A0			;RESET TO WAVE 1
;ATTWGO:
;	MOVE	A0,@AWAVE,W
;MUT0
;	MOVE	A0,@WAVE,W
;	MOVK	1,A0
;	MOVE	A0,@PLAYPAGE,W		;MARK IT AS THE PLAY PAGE
;;	MOVI	DLSTZ,A1
;;	CALLA	UNGET
;;	MOVI	DLST,A1
;;	CALLA	UNGET
;	CALLA	CLNPAL
;	JSRP	AMODWAVE		;START WAVE #1-3
;	MOVI	P1DATA,A11		;MARK PLAYER 1 FOR DEMO
;;	MOVE	@AWAVE,A9,W
;;	DEC	A9
;;	SLL	5,A9
;;	ADDI	AMOVETAB,A9		;SCRIPTED PLAYER MOVEMENT
;					;BASED ON WAVE WE ARE ON
;;	MOVE	*A9,A9,L		;GET THIS WAVES MOVEMENT TABLE
;	MOVI	AWAV1MOV,A9
;ATTNEXT:
;	MOVE	*A9+,A0,W		;GET SOME JOYSTICK BITS
;	CMPI	0FFFFFFFFH,A0
;	JREQ	ATTWXXX			
;	MOVE	A0,@P1CTRL,W
;	MOVE	*A9+,A10,W
;	JSRP	ATTSLP			;PROCESS SLEEP TIME
;	JRUC	ATTNEXT
;ATTWXXX:
;	CLR	A1
;	NOT	A1
;	MOVI	PCPID,A0
;	CALLA	KILALL
;
;	JSRP	WNDWON
;
;	MOVI	ICONPID,A0
;	CLR	A1
;	NOT	A1
;	CALLA	KILALL
;
;	CALLA	CLR_ALL
;
;;GLITCH HERE?
;	SLEEP	2
;
;
;	CLR	A0
;	MOVE	A0,@SOUNDSUP,W		;TURN ALL SOUNDS ON
;	CALLA	DELWNDW
;	RETP
;;
;; SCRIPTPLAY - PLAYER MOVEMENT FOR IN/OUT OF WAVES
;; PARMS
;; SCRIPT NUMBER IN FROMDR
;; SENT WITH EITHER P1CTRL OR P2CTRL IN A8
;;IF A9=1 THEN PLY1 START, 2=PLYR2 START 0=REG MOVEMENT PLAYER TABLE
;SCRIPTPLAY:
;	MOVE	A9,A9
;	JREQ	REG
;;PLAYERS ABOUT TO BEGIN A GAME
;	CMPI	1,A9
;	JRNE	SX
;	MOVB	@KP_LS,A0
;	CMPI	0FFFFFFFFH,A0
;	JREQ	ZA
;	MOVI	1,A0
;	MOVI	10,A1
;	CALLA	SET_GATE_2
;;TURN ON RINGS AROUND THIS PLAYER
;;MAKE SURE IMAGE IS STARTED BEFORE THIS
;ZA
;	CALLR	C_SHO2
;;	MOVI	1,A9
;;ALREADY A 9!
;	MOVI	190,A10			;TIME RINGS ARE ON
;	CREATE	RNGPID,RINGS
;	MOVI	LDRS,A9
;	MOVB	@BOSSON,A0
;	JRZ	NEXTMOV
;	MOVI	LDRS2,A9
;	JRUC	NEXTMOV
;SX
;	MOVB	@KP_RS,A0
;	CMPI	0FFFFFFFFH,A0
;	JREQ	ZA1
;	MOVI	2,A0
;	MOVI	10,A1
;	CALLA	SET_GATE_2
;ZA1
;	CALLR	C_SHO1
;;	MOVI	2,A9
;;ALREADY A9=2
;	MOVI	190,A10			;TIME RINGS ARE ON
;	CREATE	RNGPID,RINGS
;	MOVI	RDRS,A9
;	MOVB	@BOSSON,A0
;	JRZ	NEXTMOV
;	MOVI	RDRS2,A9
;	JRUC	NEXTMOV
;C_SHO1	CLR	A0
;	MOVE	@PLYRPRCS+32,A1,L
;	JRZ	RETOUT
;	MOVE	*A1,A1,L
;	MOVE	*A1(LEG_PRC),A1,L
;	MOVE	A0,*A1(SHOECNT)
;	RETS
;C_SHO2
;	CLR	A0
;	MOVE	@PLYRPRCS,A1,L
;	JRZ	RETOUT
;	MOVE	*A1,A1,L
;	MOVE	*A1(LEG_PRC),A1,L
;	MOVE	A0,*A1(SHOECNT)
;RETOUT 	RETS
;REG
;	CALLR	C_SHO1
;	CALLR	C_SHO2
;	MOVE	@FROMDR,A0,W
;	JRNZ	REG3
;;TV SET RUN IN
;	CMPI	P1CTRL,A8
;	JRZ	REG4
;	MOVI	TVMOV2,A9
;	JRUC	NEXTMOV
;REG4	MOVI	TVMOV,A9
;	JRUC	NEXTMOV
;REG3	SLL	5,A0
;	ADDI	GMOVTAB,A0		;SCRIPTED PLAYER MOVEMENT
;	MOVE	@CIRCUIT,A9
;	CMPI	2,A9
;	JRNZ	REGCONT
;	MOVE	@WAVE,A9
;	CMPI	7,A9
;	JRNZ	REGCONT
;	MOVI	SNAKELST,A9
;	JRUC	NEXTMOV
;REGCONT	MOVE	*A0,A9,L		;GET MOVEMENT TABLE DATA
;NEXTMOV:
;	MOVE	@HALT,A0
;	JRZ	NXM
;	SLEEP	1
;	JRUC	NEXTMOV
;NXM
;	MOVE	*A9+,A0,W		;GET SOME JOYSTICK BITS
;	CMPI	0FFFFFFFFH,A0
;	JREQ	MOVEXIT			
;	MOVE	A0,*A8,W		;P1/P2CTRL
;	MOVE	*A9+,A10,W
;	JSRP	ATTSLP			;PROCESS SLEEP TIME
;	JRUC	NEXTMOV
;MOVEXIT:
;	DIE
;;
;; ATTSLP - PROCESS ATTRACT MODE PLAYER SLEEP				
;; A10 = # TICKS TO SLEEP						
;; RETURNS:								
;;	CARRY CLEAR = SLEEP COMPLETED
;;	CARRY SET = STILL SNOZZIN'						 
;;
;; NOTE: CALL WITH JSRP							
;;									
;ATTSLP:
;	PUSHP	A10
;ATTSLPL:
;	SLEEP	1
;	SETC
;	DSJS	A10,ATTSLPL		;PROCESS SLEEP LOOP
;	CLRC
;	PULLP	A10
;	RETP
;;									
;; AMODWAVE - INITIALIZE AN ATTRACT MODE WAVE:				
;; CURRENT ATTRACT WAVE MUST BE INDICATED IN VARIABLE, AWAVE.		
;; NOTE: CALL AS JSRP!									
;;
;AMODWAVE:
;	CALLA	INIT_DEMO
;	RETP
;
;AMOVETAB:
;	.LONG	AWAV1MOV,AWAV2MOV,AWAV3MOV,AWAV4MOV,AWAV5MOV,AWAV6MOV
;GMOVTAB:
;	.LONG	TVMOV,LFTDOOR,RGTDOOR,TOPDOOR,BOTDOOR
;
;ATTRACT MODE PLAYER MOVEMENT TABLES
;	.WORD	STICK_BITS,SLEEP_TIME
;	.
;	.
;	.WORD	0FFFFH
;
;AWAV1MOV:
;PLACE SCRIPT FOR WAVE 2 HERE!
;	.WORD	0,60*4
;	.WORD	PFRYTE|PUP,20H
;	.WORD	PFRYTE|PDOWN,40H
;	.WORD	PFRYTE,20H
;	.WORD	0,5H
;	.WORD	PFRYTE,20H
;	.WORD	PLEFT,20H
;	.WORD	PFRYTE|PUP,50H
;	.WORD	PFRYTE|PDOWN,20H
;	.WORD	PFRYTE|PUP,20H
;	.WORD	PFRYTE|PDOWN,40H
;	.WORD	PUP,26H
;	.WORD	0,20H
;	.WORD	PRYTE,25H
;	.WORD	PUP,10H
;	.WORD	PRYTE|PFDOWN,55H
;	.WORD	PFUP|PDOWN,20H
;	.WORD	PFRYTE|PLEFT,20H
;	.WORD	PFRYTE|PUP,20H
;	.WORD	PFRYTE|PDOWN,30H
;	.WORD	PFRYTE,20H
;	.WORD	PLEFT,20H
;	.WORD	PFDOWN|PRYTE,15H
;	.WORD	PUP,26H
;	.WORD	PRYTE|PFDOWN,22H
;	.WORD	PFUP|PDOWN,20H
;;	.WORD	0FFFFH
;
;	.WORD	PFRYTE|PLEFT,30H
;	.WORD	PFRYTE|PUP,20H
;	.WORD	PFRYTE|PDOWN,35H
;	.WORD	PFLEFT|PUP,20H
;	.WORD	PFLEFT|PDOWN,35H
;	.WORD	PFRYTE|PDOWN,30H
;	.WORD	PFRYTE,20H
;	.WORD	PRYTE|PUP|PFDOWN,30H
;	.WORD	PLEFT,20H
;	.WORD	PFDOWN|PRYTE,15H
;	.WORD	PUP,26H
;	.WORD	PRYTE|PFDOWN,22H
;	.WORD	PFUP|PDOWN,20H
;	.WORD	PFRYTE|PLEFT,30H
;	.WORD	PFRYTE|PUP,20H
;	.WORD	PFRYTE|PDOWN,35H
;	.WORD	PFLEFT|PUP,20H
;	.WORD	PFLEFT|PDOWN,35H
;	.WORD	0FFFFH
;
;SNAKELST
;;EXIT FROM RIGHT DOOR WITH SNAKES
;	.WORD	PRYTE,06FH
;	.WORD	PDOWN|PRYTE,2H
;	.WORD	PDOWN,30H
;	.WORD	PDOWN|PRYTE,2H
;	.WORD	PRYTE,0FAH
;	.WORD	0,1H
;	.WORD	0FFFFH
;
;TVMOV:
;;TELEVISION INTRO SCREEN PLAYER MOVEMENT/ANIMATION SCRIPT
;	.WORD	PUP,2
;	.WORD	PUP|PRYTE,3H
;	.WORD	PRYTE,044H
;	.WORD	PDOWN|PRYTE,2H
;	.WORD	PDOWN,30H
;	.WORD	PDOWN|PRYTE,2H
;	.WORD	PRYTE,014AH
;	.WORD	0,1H
;	.WORD	0FFFFH