.;----------------------------------------------------------------------------
.; CMD-file:	B A D R V C B C
.;
.; Author:	Jan H. Belgraver
.;		Neurophysiol.group, CNS Pharmacology Dept.,
.;		Organon International BV, Oss, Holland
.;
.; Date:	20-Jan-83
.;
.; Purpose:	Assembling, building and testing of the 
.;		IRIG-B Timecode decoder driver BA: and related tasks.
.;
.; Modified by:	
.;	Jan H. Belgraver	 5-Dec-89	JB02	V1.2
.;	1. Exit status tests following LOA and INS
.;	2. For CP/RSX, i.e. addition of CON command to set BA: on-line.
.;	Jan H. Belgraver	16-Nov-83	JB01	V1.1
.;	This doc-header
.;----------------------------------------------------------------------------
.;
.enable	substitution
.disable display
;
;	Building BATCH driver on '<DATE>' at '<TIME>'
;
	MAC @BADRVASM		! Assemble BADRV 
;
	MAC @BATABASM		! Assemble BATAB
.if	<exstat> ne 1	.exit
;
	TKB @BADRVBLD
.if	<exstat> ne 1	.exit
;
	PIP BADRV.OBJ;*,.LST;*,BATAB.OBJ;*,.LST;*/DE
;
.IFLOA	BA:	UNL	BA:
		LOA	BA:/HIGH
.if	<exstat> ne 1	.exit						.;JB02
	CON	OFFLINE BA:						! JB02
.if	<exstat> ne 1	.exit						.;JB02
	CON	ONLINE BA:						! JB02
.if	<exstat> ne 1	.exit						.;JB02
	CON	DISPLAY FULL FOR BA	! Show status			| JB02
.if	<exstat> ne 1	.exit						.;JB02
;
.IFINS	EXB	REM	EXB
		INS	$EXB
.if	<exstat> ne 1	.exit						.;JB02
;
;	Performing BATCH-driver test
;	PASS 1
;	Respond to first  question with: C (Create)
;	Respond to second question with: Y (Delete existing CTL-files)
;	If UNABLE TO DELETE FILES:       N
;	Respond to print questions with: Y
;	
@BATEST
;	PASS 2
;	of this test can not be started from this command file.
;
;	Type @BATEST after this command file terminates.
;	Respond to first question with: U (Use)
;
;	Building BADRV finished on '<DATE>' at '<TIME>'
;