;;  Emacs Mode Selection Info: -*-mode: ASM; coding: iso-latin-1-dos;-*- *
	;; ********************************************************************************************
	;; File Name:	PageCont_6.inc
	;; Auther:	John L. Weinrich
	;; Date:	01/31/03
	;; Useage	4004 TIC-TAC-TOE Game
	;; Description:	
	;; 
	;; This routine is used for the 4004 TIC-TAC-TOE Game. 
	;;
	;;
	;; See "4004 FPGA Design" and "4004 Software Design " documents for more detail information.
	;; 
	;; Registers used: UTILITY_0_L, UTILITY_0_P	
	;; Memory used:	None.	
	;; Entrance parameters:	None.
	;; Exit parameters: None.
	;; Labels used:	JumpToPageRtn, NoRountine1, NoRountine2, NoRountine3, NoRountine4,
	;;	NoRountine5, NoRountine6, NoRountine7, NoRountine8, NoRountine9, NoRountine10,
	;;	NoRountine11, NoRountine12, NoRountine13, NoRountine14, NoRountine15, Page_1,
	;;	Page_2, , Page_3, Page_4, Page_5, DisBrdPosP4Rtn, Page_7, Page_8,
	;;	Page_9, Page_10, Page_11, Page_12, Page_13, Page_14, Page_15, JumpToPage
	;; Routines used: None.
	;; ********************************************************************************************

JumpToPageRtn	isz	UTILITY_0_L,NoRountine15	; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine15	isz	UTILITY_0_L,NoRountine14	; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine14	isz	UTILITY_0_L,NoRountine13	; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine13	isz	UTILITY_0_L,NoRountine12	; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine12	isz	UTILITY_0_L,NoRountine11	; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine11	isz	UTILITY_0_L,NoRountine10	; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine10	isz	UTILITY_0_L,NoRountine9		; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine9	isz	UTILITY_0_L,NoRountine8		; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine8	isz	UTILITY_0_L,NoRountine7		; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine7	isz	UTILITY_0_L,NoRountine6		; Check for routine selection
		jun	Get4004PosP6			; Return from another page start location
NoRountine6	isz	UTILITY_0_L,NoRountine5		; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine5	isz	UTILITY_0_L,NoRountine4		; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine4	isz	UTILITY_0_L,NoRountine3		; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine3	isz	UTILITY_0_L,NoRountine2		; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine2	isz	UTILITY_0_L,NoRountine1		; Check for routine selection
		jun	PageError			; Return from another page start location
NoRountine1	isz	UTILITY_0_L,JumpToPageRtn	; Check for routine selection
		jun	PageError			; Return from another page start location

Page_1		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_1				; Get PAGE_2 value
		jun	JumpToPage
Page_2		fim	UTILITY_0_P,BIT_ROUTINE		; Set pointer to program
		ldm	PAGE_2				; Get PAGE_2 value
		jun	JumpToPage
Page_3		fim	UTILITY_0_P,GET_PLAYERS		; Set pointer to program
		ldm	PAGE_3				; Get PAGE value
		jun	JumpToPage
Page_4		fim	UTILITY_0_P,GET_POSITION	; Set pointer to program
		ldm	PAGE_4				; Get PAGE value
		jun	JumpToPage
Page_5		fim	UTILITY_0_P,CHECK_WIN		; Set pointer to program
		ldm	PAGE_5				; Get PAGE value
		jun	JumpToPage
Page_6		fim	UTILITY_0_P,DIS_BRD_POS		; Set pointer to program
		ldm	PAGE_6				; Get PAGE value
		jun	JumpToPage
Get4004PosP6Rtn	fim	UTILITY_0_P,GET_4004_POS	; Set pointer to program
		ldm	PAGE_1				; Get PAGE value
		jun	JumpToPage
Page_8		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_8				; Get PAGE value
		jun	JumpToPage
Page_9		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_9				; Get PAGE value
		jun	JumpToPage
Page_10		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_10				; Get PAGE value
		jun	JumpToPage
Page_11		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_11				; Get PAGE value
		jun	JumpToPage
Page_12		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_12				; Get PAGE value
		jun	JumpToPage
Page_13		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_13				; Get PAGE value
		jun	JumpToPage
Page_14		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_14				; Get PAGE value
		jun	JumpToPage
Page_15		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_15				; Get PAGE value
		jun	JumpToPage
Page_16		fim	UTILITY_0_P,NO_ROUTINE		; Set pointer to program
		ldm	PAGE_16				; Get PAGE value
JumpToPage	fim	SRC_P,PAGE_PORT			; Get address of PAGE register
		src	SRC_P				; Send out address
		wrr					; set PAGE register
		jun	JumpToPageRtn			; Return from another page start location