; LIBRUN.COM
.; Version 2
.; 
.;  This IND file performs the necessary steps to execute the LIBTST
.;  SYSLIB Test Package LIBTST under each monitor.
.;
;
;	This file runs the SYSLIB test package, LIBTST.
;
.;
.;	CREATED BY:   I. B.  Sokari
.;	DATE:         May 1988
.;
.; Define commonly used control sequences

	.SETN	N	7
	.SETS	BEEP	"'N%V'"
	.SETN	N	33
	.SETS	ESC	"'N%V'"
	.SETS	NORM	"'ESC'[0m"
	.SETS	BLINK	"'ESC'[1;5m"
	.SETS	BOLD	"'ESC'[3m"
	.SETS	UNDERL	"'ESC'[4m"
	.SETS	REVERS	"'ESC'[7m"
.;
.;  Check to see whether a date has been entered
.;
	.SETS TMP "'<DATE>'"
	.IF TMP NE "         " .GOTO 2
;LIBRUN-F-System date not set
	.EXIT
.2:
.;
.;  Prompt user for the locations of the BINARY and DATA test files.
.;
	.ASKS BINDEV What device contains the test program files?
	.ASKS DATDEV What device should be used for temporary data (.TXT) files?
.;
	$ASSIGN 'BINDEV' BIN
	$ASSIGN 'DATDEV' DAT

.;  Check the status of DU7 for the JREADx and JWRITx tests

	.TESTDEVICE DU7:
	.PARSE "'<EXSTRI>'" ",,,,,,,," NAME SIZE T1 T2 T3 LOD ONL MOU ATT
	.IF NAME NE "NSD" .GOTO 5
;
;
; ?LIBRUN-W-No such device DU7:
	.ASK OK ?LIBRUN-W-Cannot run JREADx/JWRITx tests; Continue
	.IFT OK .GOTO 5
;
; Define DU7 to be some unused MSCP disk partition:
; For example:
;
;	.SET DU7 PORT=0, UNIT=0, PART=1
;
; then REBOOT THIS MONITOR for the new assignment to take effect.
; ***************************************************************
;			   'BEEP''BOLD''BLINK' IMPORTANT! 'NORM''BEEP'
;
; The DU7 partition will be CORRUPTED by the JREADx/JWRITx tests.
;
; Make sure that the partition you assign is NOT one that you
; are booted from, or one that you have any important data on!
; ***************************************************************
;
	.EXIT
.5:
.;
.;  Check for presence of .TXT files and protect them.
.;
;
	.TESTFILE DAT:TEST02.TXT
	.IF <FILERR> NE 1 .GOTO 10
        $PROTECT DAT:TEST02.TXT  
	.GOTO 20
.;
.10:	
;
; ?LIBRUN-W-File not found DAT:TEST02.TXT
; ?LIBRUN-W-Test may produce errors due to absence of file.
.20:	.TESTFILE DAT:TEST03.TXT
	.IF <FILERR> NE 1  .GOTO 30
	$PROTECT DAT:TEST03.TXT  
	.GOTO 40
.30:	
;
; ?LIBRUN-W-File not found DAT:TEST03.TXT
; ?LIBRUN-W-Test may produce errors due to absence of file.
.40:
;
	.ASK OK Continue
	.iff OK .exit
	.if <SYSTEM> NE 7 .goto 50
;
;   Running the SYSLIB TEST Package under the RT-11 SJ monitor
;
	.BEGIN
	.OPEN LIBTSJ.COM
	.ENABLE DATA
.;
.;   Commands to run the Test package under SJ
.;
$ SET USR NOSWAP
$ LOAD NL
$ LOAD DAT
$ SET ERROR NONE
$ SET ERROR ERROR
$ RUN BIN:LIBTST
.;
	.DISABLE DATA
	.CLOSE
	.END
.;
.;   Execute the file that runs the test package under SJ
.;
	$@LIBTSJ
	.goto 999
.;
.50:	.IF <SYSTEM> NE 10 .goto 999
	.IFT <MAPPED> .goto 200
;
;   Running the SYSLIB TEST Package under the RT-11 FB monitor
;
	.BEGIN
	.OPEN LIBTFB.COM
	.ENABLE DATA
.;
.;   Commands to run the Test package under FB
.;
$ SET USR NOSWAP
$ LOAD NL
$ LOAD DAT
$ SET ERROR NONE
$ FRUN BIN:PRTNR/BUF:1200.
$ SET ERROR ERROR
$ RUN BIN:LIBTST
.;
	.DISABLE DATA
	.CLOSE
	.END
.;
.;   Execute the file that runs the test package under FB
.;
	$@LIBTFB
	.GOTO 999
.;
.200:
;
;   Running the SYSLIB TEST Package under the RT-11 XM monitor
;
	.BEGIN
	.OPEN LIBTXM.COM
	.ENABLE DATA
.;
.;   Commands to run the Test package under XM
.;   (Ignore KMON error if PRTNR JOB is already running)
.;
$ SET USR NOSWAP
$ LOAD DAT
$ COPY/NOREPLACE BIN:PRTNR.SAV DK:
$ SET ERROR NONE
$ FRUN SY:VBGEXE.SAV/NAME:PRTNR
$ SET ERROR ERROR
$ RUN BIN:LIBTST
.;
	.DISABLE DATA
	.CLOSE
	.END
.;
.;   Execute the file that runs the test package under XM
.;                             
	$@LIBTXM
.999:	.EXIT