$ROM(LARGE)
$DEBUG NOSYMBOLS NOPAGING

/*THIS PLM/51 PROGRAM IS THE CONTROL FOR THE VIKING
ELECTRONICS UNIVERSAL PRODUCT TESTER.


BOARD TEST MODULE ENTRY

VERSION 1.0					11 JULY 1988
BY							BILL HEIDEMAN	*/


BOARD_ENTRY: DO;
$NOLIST
$INCLUDE(REG51.DCL)
$INCLUDE(TSTR.EXT)
$LIST

/********************************************
*											*
*	THESE ARE THE EXTERNAL PROCEDURES		*
*											*
********************************************/


/************* POWER SUPPLY TEST ***********/
	BOARD1_TEST0: PROCEDURE EXTERNAL;
	END BOARD1_TEST0;


/************ DATA BUS TEST ****************/
	BOARD1_TEST1: PROCEDURE EXTERNAL;
	END BOARD1_TEST1;


/************ RING DETECT TEST **********/
	BOARD1_TEST2: PROCEDURE EXTERNAL;
	END BOARD1_TEST2;


/******** 202P AND BUSY LINE TEST ***************/
	BOARD1_TEST3: PROCEDURE EXTERNAL;
	END BOARD1_TEST3;

/***************** TTG OUT TEST *****************/
	BOARD1_TEST4: PROCEDURE EXTERNAL;
	END BOARD1_TEST4;

/*************** VOICE CHIP TEST *****************/
	BOARD1_TEST5: PROCEDURE EXTERNAL;
	END BOARD1_TEST5;

/*************** MANUAL MODE ********************/
	BOARD1_TEST6: PROCEDURE EXTERNAL;
	END BOARD1_TEST6;


/********************************************
*											*
*	THESE ARE THE PUBLIC PROCEDURES			*
*											*
********************************************/

/*	BOARD TEST CODE ENTRY POINT		*/
	ACAII_TEST: PROCEDURE PUBLIC;
		EXP0_COM=82H;
		EXP1_COM=9BH;
		EXP2_COM=92H;
		EXP3_COM=82H;
		EXP4_COM=8BH;

		DO CASE TEST_BUFF;
			CALL BOARD1_TEST0;	/*	CASE 0	*/
			CALL BOARD1_TEST1;	/*	CASE 1	*/
			CALL BOARD1_TEST2;	/*	CASE 2	*/
			CALL BOARD1_TEST3;	/*	CASE 3	*/
			CALL BOARD1_TEST4;	/*	CASE 4	*/
			CALL BOARD1_TEST5;	/*	CASE 5	*/
			CALL BOARD1_TEST6;	/*	CASE 6	*/
		END;
	END ACAII_TEST;
END BOARD_ENTRY;