Trailing-Edge
-
PDP-10 Archives
-
DEC-20-OT20A-D-MC9
-
2-exercise-libary/exerc.bat
There are no other files named exerc.bat in the archive.
@
! EXERC.BAT VERSION 3 8/11/76
!
!! TOPS-20 SYSTEM DEMONSTRATION PACKAGE
!!
!!BATCH CONTROL JOB FOR ALL THE SECTIONS OF THE TOPS-20 SYSTEM EXERCISER.
!
!**********************************************************************!
!EXECUTION INSTRUCTIONS:
!
!FOR CUSTOMER INSTALLATIONS RUN THIS PACKAGE ONLY AS DESCRIBED IN THE
!TOPS-20 SOFTWARE INSTALLAION GUIDE.
!
!AFTER THE PACKAGE BEGINS,
!IT WILL ISSUE A PLEASE COMMAND TO THE OPERATOR
!ASKING HIM TO MOUNT A TAPE ON A SPECIFIC DRIVE.
!AFTER THIS HAS BEEN DONE, FOLLOW THESE STEPS TO CONFIRM THAT
!THE TAPE HAS BEEN MOUNTED:
!
! AT THE CTY, ENSURE THAT YOU ARE CONNECTED TO PTYCON.
! THERE MUST BE A PROMPT FROM PTYCON ("PTYCON>") AT THE CTY.
!
! TYPE:
! B-X-$[CR]
!
! WHERE B IS THE LITERAL LETTER "B"
! - IS THE LITERAL CHARACTER "-"
! X IS THE SUBJOB NUMBER WHICH WAS SPECIFIED IN
! THE REQUEST TO MOUNT THE TAPE.
! $ IS THE ESCAPE CHARACTER
!
!
!TO ENSURE THAT THE TEST IS RUNNING , EXAMINE THE BATCH INPUT QUEUES
!FROM TIME TO TIME.
!JOBS SUBMITTED BY EXERC SHOULD RUN CONSECUTIVELY. WHEN THE LAST JOB
!IS RUN (EXER1), THE DEMO PACKAGE IS OVER.
!
!
!YOU MAY EXAMINE THE BATCH INPUT QUEUES FROM THE USER TERMINAL
!LOGGED IN AS <EXERCISER> BY TYPING:
!
! [CTRL C]
! [CTRL C]
! Q[CR]
!
!
!
!
!*************************************************************
!
!INSTRUCTIONS FOR USE AS THE MANUFACTURING ACCEPTANCE TEST PACKAGE.
!
!
!
!********WHAT FOLLOWS DOES NOT APPLY FOR CUSTOMER INSTALLATIONS
!
! THE SYSTEM DEMO PACKAGE RUNS AS AT LEAST 2 SEPERATE
! CONCURRENT JOBS. ONE OF THESE WILL CONSIST OF THE
! JOB EXERC.BAT, WHICH WILL RUN INDEFINITELY IF THE ENTIRE
! DEMO PACKAGE IS TO RUN INDEFINITELY, OTHERWISE IT WILL RUN JUST
! ONCE. THE OTHER CONCURRENT
! JOBS CONSIST OF CONSECUTIVE EXECUTIONS OF THE JOBS
! WHICH EXERC.BAT SUBMITS.
!
!
! THE SOURCE FILES TO BE RUN ARE IN AREA<EXERCISER-LIBRARY>.
! THE TEMPORARY DATA FILES AND COMPILATION RESULTS ETC ARE TO BE
! FOUND IN THE CONNECTED AREA, <EXERCISER>.
!
! IF THE USER MODE DIAGNOSTICS ARE TO BE RUN THE AREA
! <DIAGNOSTICS> MUST BE ESTABLISHED, WITH USER & DIRECTORY
! GROUPS OF 100, AND ALL NECESSARY DIAGNOSTIC PROGRAMS
! AND FILES IN IT. IN PARTICULAR, DIAMON.SAV AND KLUSR.CMD
! MUST BE THERE, ALONG WITH ALL THE FILES IMPLIED BY THEM.
!
! ALWAYS EXECUTE THE FOLLOWING COMMANDS:
!
! FROM A USER TERMINAL, LOGIN AS <EXERCISER>, PASSWORD EXERCISER
! !!!!!!! W A R N I N G !!!!!!!!! THE DEMO PACKAGE WILL NOT
! RUN CORRECTLY UNLESS YOU ARE LOGGED IN AS EXERCISER.
! CONNECTING TO EXERCISER FROM ANOTHER JOB IS NOT ADEQUATE.
!
! DELETE *.*
! EXPUNGE
! COPY <EXERCISER-LIBRARY>EXERC.BAT (TO) <EXERCISER>EXERC.BAT
!
!DEPENDING ON THE OPTIONS DESIRED, PERFORM ONE OR MORE OF THE
! FOLLOWING "COPY" COMMANDS:
!
! COPY <EXERCISER-LIBRARY>DGNONE.TXT
! -RUN USER MODE DIAGNOSTICS
! FOR UPTO 3 CPU MINUTES.
!
!
!
! COPY <EXERCISER-LIBRARY>DGNINF.TXT (TO) <EXERCISER>DGNINF.TXT
! -RUN THE USER MODE DIAGNOSTICS
! FOR UPTO 10 CPU HOURS.
!
!
!
! COPY <EXERCISER-LIBRARY>DEMINF.TXT (TO) <EXERCISER>DEMINF.TXT
! -RUN THE ENTIRE DEMO PACKAGE
! INDEFINITELY. IT MAY BE
! TERMINATED (AFTER COMPLETING
! ONE MORE EXECUTION OF THE
! PACKAGE) BY DELETEING DEMINF.TXT
! AT ANY TIME. NOTE-- WHEN THIS
! FILE IS PRESENT, THE PRESENCE
! OF DGNINF.TXT WILL BE IGNORED.
!
!
!
!
!DEPENDING ON THE OPTIONS DESIRED, USE ONE OF THE FOLLOWING "SUBMIT"
!COMMANDS:
!
! SUBMIT EXERC.BAT/UNIQUE:0/TIME:200000/TAG:TPTST
! -INCLUDE MAGTAPE
! TESTING, USING PROGRAMS
! WRITTEN IN HIGHER LEVEL
! LANGUAGES (FORTRAN)
!
!
! SUBMIT EXERC.BAT/TAG:NOTST/UNIQUE:0/TIME:100000
! -EXCLUDE USER LEVEL
! MAGTAPE TESTS
!
!AFTER THE PACKAGE BEGINS, AND IF USER PROGRAM MAGTAPE TESTS
!ARE TO BE RUN, THE PACKAGE WILL ISSUE A PLEASE COMMAND TO THE OPERATOR
!ASKING HIM TO MOUNT A TAPE ON A SPECIFIC DRIVE.
!AFTER THIS HAS BEEN DONE, FOLLOW THESE STEPS TO CONFIRM THAT
!THE TAPE HAS BEEN MOUNTED:
!
! AT THE CTY, ENSURE THAT YOU ARE CONNECTED TO PTYCON.
! THERE MUST BE A PROMPT FROM PTYCON ("PTYCON>") AT THE CTY.
!
! TYPE:
! B-X-$[CR]
!
! WHERE B IS THE LITERAL LETTER "B"
! - IS THE LITERAL CHARACTER "-"
! X IS THE SUBJOB NUMBER WHICH WAS SPECIFIED IN
! THE REQUEST TO MOUNT THE TAPE.
! $ IS THE ESCAPE CHARACTER
!
!
!TO ENSURE THAT THE TEST IS RUNNING , EXAMINE THE BATCH INPUT QUEUES
!FROM TIME TO TIME. THE JOB "EXERC" SHOULD RUN AS ONE BATCH
!JOB INDEFINITELY IF DEMINF.TXT IS PRESENT IN
!<EXERCISER>. UNDER THE OTHER DEFINED BATCH JOB, ALL THE
!JOBS SUBMITTED BY EXERC SHOULD RUN CONSECUTIVELY. WHEN THE LAST JOB
!IS RUN (RANCBL), EXERC WILL SUBMIT THE JOBS AGAIN.
!
!
!YOU MAY EXAMINE THE BATCH INPUT QUEUES FROM THE USER TERMINAL
!LOGGED IN AS <EXERCISER> BY TYPING:
!
! [CTRL C]
! [CTRL C]
! Q[CR]
!
!ALSO, THE LOG FILES OF THE VARIOUS BATCH JOBS WILL APPEAR ON THE
!PRINTER FROM TIME TO TIME. YOU CAN TELL WHEN THE LATEST ONE APPEARED
!BY INSPECTING THE TIME STAMP ON THE HEADER OR TRAILER PAGE OF THE
!LISTING. UNLESS THE SYSTEM IS HEAVILY LOADED DOWN BY SOME OTHER
!OPERATION, THE LOG FILES GET PRINTED EVERY 5 OR 10 MINUTES.
!
!
!**********************************************************************
TPTST::
!ENTRY POINT FOR INITIATING THE USER PROGRAM MAGTAPE TESTS.
! THE FOLLOWING COMMAND LINES CREATE A FILE WHOSE EXISTENCE
! INDICATES THAT THE USER MAGTAPE TESTS BE PERFORMED.
@COPY (FROM) TTY: (TO) TPTST.TXT
@USER MAGTAPE TESTS SHOULD BE PERFORMED (B).
@^Z
NOTST::
@GOTO TAPX::
TAPX::
!CHECK TO SEE IF WE SHOULD RUN USER-MODE DIAGNOSTICS FOR THREE MINUTES.
@COPY DGNONE.TXT (TO) TTY:
@IF (ERROR) @GOTO DGN1::
!
!IF THE FILE EXISTS, SUBMIT THE JOB WITH A 3-MINUTE TIME LIMIT.
!
@COPY <EXERCISER-LIBRARY>DIAGNO.BAT (TO) <DIAGNOSTICS>DIAGNO.BAT
!
!CHECK IF FILE SHOULD BE SUBMITED WITH OUTPUT:NOLOG
@COPY <EXERCISER>PRNLOG.TXT (TO) TTY:
@IF (NOERROR) @GOTO DGN21::
@CONNECT (TO DIRECTORY) DIAGNOSTICS
@SUBMIT DIAGNO.BAT/UNIQUE:0/TIME:0300/OUTPUT:NOLOG
@CONNECT
@GOTO DGN2::
!
DGN21::
!
@SUBMIT DIAGNO.BAT/UNIQUE:0/TIME:0300
@GOTO DGN2::
!
!THE FOLLOWING CONNECT COMMAND BRINGS US BACK TO THE DIRECTORY
! WE WERE LOGGED IN UNDER.
@CONNECT
!
DGN1::
!
!CHECK TO SEE IF WE SHOULD RUN USER-MODE DIAGNOSTICS FOR A LONG TIME.
!
@COPY DGNINF.TXT (TO) TTY:
@IF (ERROR) @GOTO DGN2::
@COPY <EXERCISER-LIBRARY>DIAGNO.BAT (TO) <DIAGNOSTICS>DIAGNO.BAT
@CONNECT (TO DIRECTORY) DIAGNOSTICS
!CHECK TO SEE IF WE SHOULD SUBMIT WITH OUTPUT:NOLOG
@COPY <EXERCISER>PRNLOG.TXT (TO) TTY:
@IF (NOERROR) @GOTO DGN31::
@SUBMIT DIAGNO.BAT/UNIQUE:0/TIME:100000/OUTPUT:NOLOG
!THE FOLLOWING CONNECT COMMAND BRINGS US BACK TO THE DIRECTORY
! WE WERE LOGGED IN UNDER.
@CONNECT
@GOTO DGN2::
!
DGN31::
!
@SUBMIT DIAGNO.BAT/UNIQUE:0/TIME:100000
@CONNECT
@GOTO DGN2::
!
DGN2::
!
!
!SHOULD WE DO THE USER TAPE TESTS?
!IF THE FILE DOESN'T EXIST DON'T DO THE USER TAPE TESTS
@COPY TPTST.TXT (TO) TTY:
@IF (ERROR) @GOTO FX1::
!THE FOLLOWING SEQUENCE ATTEMPTS TO ASSIGN ANY ONE MAGTAPE DRIVE.
@ASSIGN MTA0:
@IF (ERROR) @GOTO AX::
!!WAITING FOR OPERATOR TO MOUNT A TAPE, WRITE ENABLED, ON MTA0:
@PLEASE MOUNT A TAPE, WRITE ENABLED, ON MTA0:
!NOTE -- THE JOB WILL HANG AT THIS POINT UNTIL THE OPERATOR
! CONFIRMS BY TYPING AN ALTMODE AT THE CTY
@GOTO FX::
AX::
@ASSIGN MTA1:
@IF (ERROR) @GOTO BX::
!!WAITING FOR OPERATOR TO MOUNT A TAPE, WRITE ENABLED, ON MTA1:
@PLEASE MOUNT A TAPE, WRITE ENABLED, ON MTA1:
!NOTE -- THE JOB WILL HANG AT THIS POINT UNTIL THE OPERATOR
! CONFIRMS BY TYPING AN ALTMODE AT THE CTY
@DEFINE MTA0: (AS) MTA1:
@GOTO FX::
BX::
@ASSIGN MTA2:
@IF (ERROR) @GOTO CX::
!!WAITING FOR THE OPERATOR TO MOUNT A TAPE, WRITE ENABLED, ON MTA2:
@PLEASE MOUNT A TAPE, WRITE ENABLED, ON MTA2:
!NOTE -- THE JOB WILL HANG AT THIS POINT UNTIL THE OPERATOR
! CONFIRMS BY TYPING AN ALTMODE AT THE CTY
@DEFINE MTA0: (AS) MTA2:
@GOTO FX::
CX::
@ASSIGN MTA3:
!IF NO TAPES ARE AVAILABLE, STOP THE JOB NOW AND TRY AGAIN IN 10 MINUTES
@IF (ERROR) @GOTO GX::
@PLEASE MOUNT A TAPE, WRITE ENABLED, ON MTA3:
!NOTE -- THE JOB WILL HANG AT THIS POINT UNTIL THE OPERATOR
! CONFIRMS BY TYPING AN ALTMODE AT THE CTY
@DEFINE MTA0: (AS) MTA3:
@GOTO FX::
GX::
!!NO TAPES AVAILABLE, ENTIRE JOB WILL BE REQUEUED.
@REQUEUE
FX::
!!TAPE HAS BEEN MOUNTED.
FX1::
@INFORMATION (ABOUT) DISK-USAGE (OF DIRECTORY)
@CONNECT <EXERCISER> EXERCISER
@DEFINE (LOGICAL NAME) DSK (AS) DSK:,<EXERCISER-LIBRARY>
@RUN ERRORS
@IF (NOERROR) @GOTO AA1
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ TEST EXERC.BAT - MAIN DRIVER CONTROL FILE ++++
@ FATAL ERROR WHILE CREATING ERRORS.LOG
@++++ [END OF EXERC.LOG ERROR] ++++
@
@^Z
AA1::
!!ERROR.LOG CREATED -- ACCUMULATES ALL ERROR MESSAGES.
!COPY THE CONTROL FILES FROM THE LIBRARY DIRECTORY
AA::
!THE FOLLOWING PRINTS THE CURRENT CONTENTS OF EXERC.LOG
! AND DELETES IT SO THAT IT DOESN'T ACCUMULATE OUT OF BOUNDS.
!++++ NOTE -- EXERC.LOG WILL BE DELETED AT THIS POINT. ++++
@CHKPNT FOO
FOO::
!++++ EXERC.LOG CONTINUES AT THIS POINT ++++
@COPY EXERC.LOG (TO) LPT:EXERC.LOG
@DELETE EXERC.LOG
@IF (ERROR) @GOTO AAA::
AAA::
@EXPUNGE
!BRING OVER USER MAGTAPE TESTS.
@COPY (FROM) MTABKR.EXE (TO) MTABKR.EXE
@IF (NOERROR) @GOTO AA1::
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ EXERC.BAT - NON-FATAL ERROR ++++
@ CANNOT COPY FILE MTABKR.EXE FROM LIBRARY
@++++ [END OF EXERC.LOG ERROR]
@
@^Z
AA1::
@COPY (FROM) MTABAK.EXE (TO) MTABAK.EXE
@IF (NOERROR) @GOTO AA2::
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ EXERC.BAT - NON-FATAL ERROR ++++
@ CANNOT COPY FILE MTABAK.EXE FROM LIBRARY
@++++ [END OF EXERC.LOG ERROR] ++++
@
@^Z
AA2::
@COPY (FROM) MTASKF.EXE (TO) MTASKF.EXE
@IF (NOERROR) @GOTO AA3::
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ EXERC.BAT - NON-FATAL ERROR ++++
@ CANNOT COPY MTASKF.EXE FROM LIBRARY
@++++ [END OF EXERC.LOG ERROR] ++++
@
@^Z
AA3::
@COPY (FROM) MTASKR.EXE (TO) MTASKR.EXE
@IF (NOERROR) @GOTO AA4::
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ EXERC.BAT - NON-FATAL ERROR ++++
@ CANNOT COPY MTASKR.EXE FROM LIBRARY
@++++ [END OF EXERC.LOG ERROR]
@
@^Z
AA4::
@CHKPNT A
A::
BB::
@CHKPNT B
B::
@COPY (FROM) RANCBL.BAT (TO) RANCBL.BAT
@IF (NOERROR) @GOTO MM
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ EXERC.BAT - NON-FATAL ERROR ++++
@ CANNOT COPY FILE RANCBL.BAT FROM LIBRARY
@++++ [END OF EXERC.LOG ERROR] ++++
@
@^Z
MM::
@CHKPNT M
M::
@COPY (FROM) RANFOR.BAT (TO) RANFOR.BAT
@IF (NOERROR) @GOTO NN
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ EXERC.BAT - NON-FATAL ERROR ++++
@ CANNOT COPY FILE RANFOR.BAT FROM LIBRARY
@++++ [END OF EXERC.LOG ERROR] ++++
@
@^Z
NN::
@CHKPNT N
N::
!!ALL CONTROL FILES HAVE BEEN COPIED FROM THE LIBRARY DIRECTORY
!! <EXERCISER-LIBRARY> INTO <EXERCISER>
@CHKPNT O
O::
PP::
@CHKPNT Q
Q::
! THIS IS THE SET OF FORTRAN RANDOMACCESS TESTS BOTH BINARY AND
! FORMATTED I/O
SS::
@CHKPNT S
S::
!CHECK FOR OUTPUT:NOLOG
@COPY <EXERCISER>PRNLOG.TXT (TO) TTY:
@IF (NOERROR) @GOTO S1::
@SUBMIT RANFOR.BAT/UNIQUE:0/OUTPUT:NOLOG
@GOTO S2::
S1::
@SUBMIT RANFOR.BAT/UNIQUE:0
S2::
!!RANFOR.BAT SUBMITTED
@IF (NOERROR) @GOTO TT
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ EXERC.BAT - ERROR SUBMITTING RANFOR.BAT ++++
@ RANFOR JOB WILL NOT BE RUN
@++++ [END OF EXERC.LOG ERROR] ++++
@
@^Z
! THIS IS THE COBOL I/O EXERCISER. IT MOSTLY OPENS, CLOSES,
! WRITES AND READS A BUNCH OF COBOL FILES IN VARIOUS MODES.
! FOLLOWING THIS ARE MAGTAPE TESTS, STANDARD SEQUENTIAL,
! I/O SEQUENTIAL SIXBIT RANDOM READ/WRITE, ASCII RANDOM
! READ/WRITE, AND BINARY RANDOM READ/WRITE TESTS. THE
! READ/WRITE NUMBER IS SPECIFIED IN THE .BAT FILE.
TT::
@CHKPNT T
T::
UU::
@CHKPNT U
U::
!CHECK FOR OUTPUT:NOLOG
@COPY <EXERCISER>PRNLOG.TXT (TO) TTY:
@IF (NOERROR) @GOTO U1::
@SUBMIT RANCBL.BAT/UNIQUE:0/OUTPUT:NOLOG
@GOTO U2::
U1::
@SUBMIT RANCBL.BAT/UNIQUE:0
U2::
!!RANCBL.BAT SUBMITTED
@IF (NOERROR) @GOTO VV
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ EXERC.BAT - ERROR SUBMITTING RANCBL.BAT ++++
@ RANCBL JOB WILL NOT BE RUN
@++++ [END OF EXERC.LOG ERROR] ++++
@
@^Z
VV::
!CREATE A FILE TO BE USED LATER AS A SWITCH. THIS SWITCH WILL
! CONTROL THE FREQUENCY WITH WHICH EXERC.BAT LOOPS BACK TO RERUN.
@COPY TTY: RANCBL.SWC
@RANCBL HAS NOT TERMINATED YET.
@^Z
@CHKPNT V
V::
WW::
!TEST TO SEE IF USER MAGTAPE TESTS SHOULD BE PERFORMED.
@COPY TPTST.TXT (TO) TTY:
@IF (ERROR) @GOTO WW1::
!IF NO ERROR -- DO TAPE TESTS HERE.
!!USER PROGRAM TAPE TESTS NOW BEGINNING.
! USER PROGRAM MAGTAPE TESTS
!
!THE TESTS WERE WRITTEN IN FORTRAN AND USE ONLY ONE MAGTAPE AT
!A TIME AND ALL THE TESTS MAY BE RUN USEING THE SAME SCRATCH MAGTAPE. THE
!TAPE SHOULD BE MOUNTED ON A DRIVE AS REQUESTED AT THE OPERATOR PLEASE
!TERMINAL WHERE A PLEASE COMMAND WILL APPEAR REQUESTING THAT A TAPE BE
!MOUNTED THE RESPONSE TO THE PLEASE COMMAND IS:B-1-$ WHICH MEANS
!BATCH-LINE(STREAM?)1-ALTMODE. THIS RESPONSE IS TO PTYCON AND IS NOT
!OBVIOUS FROM THE PROMPT WHICH IS: TYPE BL-$
!YOU CAN CONNECT TO BATCH AND TYPE 1-$ (IF YOUR JOB IS (1)IN THIS CASE.)
!NOTE -- THESE TESTS WILL RUN EVEN IF THE FORTRAN SYSTEM IS NOT PRESENT.
! THE APPROPRIATE .EXE FILES WERE COPIED FROM <EXERCISER-LIBRARY>
! EARLIER IN THIS JOB AND WILL BE RUN IF ANY COMPILATION ERRORS OCCUR.
!
!FILES NEEDED:
!
! MTASKR.FOR
! MAGTAPE FORTRAN SKIP RECORD TEST. WRITES SOME RUNTIME
! PARAMETERS WORTH OF FILES ON MAGTAPE, REWINDS THE TAPE
! AND SKIPS THROUGH THE FILE READING IT SEQUENTIALLY BY
! REWINDING THE TAPE FOLLOWING EACH RECORD READ. THE SIZE OF
! THE FILES ARE DETERMINED MY THE PARAMETER
! FILE SPECIFYING A TWO DIMENSIONAL ARRAY
! ***THE FIRST TESTS HAVE THESE PARAMETERS BUILT IN BUT
! MAY BE CHANGED AT COMPILE TIME
!
! MATSKF.FOR
! FORTRAN MAGTAPE SKIP FILE TEST. ALSO WRITES A
! SERIES OF FILES ON TAPE EACH SOME TWO DIMENSIONAL ARRAY
! THE ARRAY DIMENSIONS AND THE NUMBER OF FILES ARE
! DETERMINED BY THE DATA IN THE FILE PARAMS.DAT
! THE TAPE IS WRITTEN AND REWOUND, THE TAPE IS READ
! BACKWARDS SKIPPING FILES AS APPROPRIATE. THE INPUT DATA CHECKED
! AGAINST EXPECTED DATA AND ERRORS LOGGED IN THE FILE
! ERRORS.LOG
!
!
! MTABAK.FOR
! USES THE SAME SORT OF TECHNIQUE AS MTASKF. THE TAPE IS
! CWRITTEN, SOME NUMBER OF FILES EACH SOME ARRAY
! WHERE THE NUMBER OF FILES AND THE ARRAY SIZE IS DETERMINED
! IN THE PARAMETER FILE PARAMS.DAT. THE MAGTAPE
! IS THEN POSITIONED AT THE BEGINNING OF THE LAST FILE WRITTEN
! THE FORTRAN PROGRAM WILL READ THROUGH THE TAPE BACKWARDS
! A FILE AT A TIME, THE FILES THEMSELVES READ FORWARD.
!
! MTABKR.FOR
! FORTRAN PROGRAM THAT TESTS MAGTAPE BACKSPACE RECORD
! FEATURES. THE TAPE IS CREATED WITH SOME NUMBER FO FILES
! AND EACH FILE SOME TWODIMENSIONAL ARRAY. THE NUMBER OF FILES
! AND ARRAY DIMENSIONS DETERMINED FROM PARAMETERS IN
! PARAMS.DAT. TWO TESTS ARE DONE ONE BACKSPACING THROUGH
! THE FILE AND THE OTHERDOING SOME MULTIPLE BACKSPACES.
! ERRORS ARE LOGGED IN FILE ERRORS.LOG, CHECKING INVOLVES
! READING IN THE DATA AND CHECKING EACH ITEM AGAINST E
! EXPECTED DATA.
!
! PARAMS.DAT
! THIS FILE CONTAINS THE PARAMETERS WHICH DETERMINE THE
! NUMBER OF TILES TO BE WRITTEN ON THE TAPES AND THE SIZE
! OF THE ARRAYS. ***NOTE HOWEVER THAT THIS FILE IS NOT
! USED IN THE FIRST GENERATION OF THESE TESTS.
! ERRORS.LOG
! THIS FILE WILL CONTAIN ALL THE ERROR MESSAGES THAT ARE
! PRODUCED BY THE PROGRAMS, IN SOME CASES THY WILL DO NO
! MORE THAN IMPLY THAT THERE EXISTS A MORE EXPLICIT
! ERROR MESSAGE IN THE BATCH CONTROL LOG FILE FOR THE JOB
! THAT FAILED.
!
!
!MAGTAPE BACKSPACE FILE TEST. WRITES N FILES ONTO MAGTAPE AS
!SPECIFIED IN A PARAMETER FILE AND THE FILES ARE I BY J ARRAYS,
!ALSO SPECIFIED IN THE PARAMETER FILE. (NOTE THE FIRST RUN OF THIS
!INVOLVES PARAMETERS COMPILED IN TE FORTRAN PROGRAM.
!
!N FILES ARE WRITTEN ONTO MAGTAPE AND THEN SKIP FILE IS COMMANDED
!AND THE FILE READ IN AD CHECKED WITH THE ORIGINAL OUTPUT DATA
!ERROR MESSAGES ARE PRODUCED WHEN APPROPRIATE.
!!BEGINNING OF EXERCISE OF THE MAGTAPE BACKSPACE FACILITY
OK3::
@COPY <EXERCISER-LIBRARY>MTABAK.FOR (TO) MTABAK.FOR
@EXECUTE MTABAK.FOR
@IF (NOERROR) @GOTO MTBAKX::
@APPEND TTY: ERRORS.LOG
@++++ MAGTAPE TEST MTABAK IN EXERC.LOG AT TAG OK3:: ++++
@++++ COMPILATION/EXECUTION OF MTABAK.FOR FAILED, PROBABLY ++++
@++++ BECAUSE FORTRAN IS MISSING FROM THIS SYSTEM. THIS TEST ++++
@++++ WILL BE RUN FROM A PRE-COMPILED AND PRE-LINKED VERSION. ++++
@
@
@RUN MTABAK.EXE
@IF (NOERROR) @GOTO MTBAKX::
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ TEST MTABAK MAGTAPE BACKSPACE FILE TEST ++++
@ NON-FATAL ERROR INVOLVING EXECUTION OF MTABAK TEST
@++++ END OF MTABAK ERROR MESSAGE ++++
@
@^Z
MTBAKX::
!!END OF MAGTAPE BACKSPACE FILE TEST
!
!MAGTAPE BACKSPACE RECORD TEST. WRITES N FILES ONTO MAGTAPE AS
!SPECIFIED IN A PARAMETER FILE AND THE FILES ARE I BY J ARRAYS,
!ALSO SPECIFIED IN THE PARAMETER FILE. (NOTE THE FIRST RUN OF THIS
!INVOLVES PARAMETERS COMPILED IN THE FORTRAN PROGRAM.
!
!N FIRSR FILES ARE WRITTEN ONTO MAGTAPE AND THENTHE TAPE IS REWOUND
!AND THE FILE READ IN AND CHECKED WITH THE ORIGINAL OUTPUT DATA
!ERROR MESSAGES ARE PRODUCED WHEN APPROPRIATE.AND LOGGED IN ERRORS.LOG
!!BEGINNING OF THE MAGTAPE BACKSPACE
!! RECORD TEST. ACCOMPLISHED BY COMPILING AND EXERCISING A FORTRAN
!! PROGRAM, MTABKR.FOR.
!!
@COPY <EXERCISER-LIBRARY>MTABKR.FOR (TO) MTABKR.FOR
@EXECUTE MTABKR.FOR
@IF (NOERROR) @GOTO MTBKRX::
@APPEND TTY: ERRORS.LOG
@++++ MAGTAPE TEST MTABAK IN EXERC.LOG AT TAG MTBAKX:: ++++
@++++ COMPILATION/EXECUTION OF MTABKR.FOR FAILED, PROBABLY ++++
@++++ BECAUSE FORTRAN IS MISSING FROM THIS SYSTEM. THIS TEST ++++
@++++ WILL BE RUN FROM A PRE-COMPILED AND PRE-LINKED VERSION. ++++
@
@
@RUN MTABKR.EXE
@IF (NOERROR) @GOTO MTBKRX::
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ TEST MTABKR MAGTAPE BACKSPACE FILE TEST ++++
@ FATAL ERROR FOLLOWING EXECUTE MTABKR.FOR COMMAND
@++++ END OF MTABKR ERROR MESSAGE ++++
@
@^Z
MTBKRX::
!!END OF MAGTAPE BACKSPACE RECORD TEST.
!
!MAGTAPE SKIP FILE TEST. WRITES N FILES ONTO MAGTAPE AS
!SPECIFIED IN A PARAMETER FILE AND THE FILES ARE I BY J ARRAYS,
!ALSO SPECIFIED IN THE PARAMETER FILE. (NOTE THE FIRST RUN OF THIS
!INVOLVES PARAMETERS COMPILED IN THE FORTRAN PROGRAM.
!
!FIRST N FILES ARE WRITTEN ONTO MAGTAPE AND THEN REWOUND. THE
!MAJOR LOOP SKIPS FILES FROM 1 TO SOME PARAMETER READS THE FILE CHECKS THE
!CONTENTS AGAINST THE EXPECTED CONTENTS AND LAGS ERRORS IF ANY, REWINDS
!AND CONTINUES SKIPPING TO THE NEXT FILE ON TAPE, CHECKING ETC. NOTE THAT
!ERRORS DONOT ABORT THE TEST SINCE THERE COULD BE PARTIAL SUCCESS.
!ERROR MESSAGES ARE PRODUCED WHEN APPROPRIATE.AND LOGGED IN ERRORS.LOG
!!BEGINNING OF MAGTAPE SKIP FILE TEST.
@COPY <EXERCISER-LIBRARY>MTASKF.FOR (TO) MTASKF.FOR
@EXECUTE MTASKF.FOR
@IF (NOERROR) @GOTO MTSKFX::
@APPEND TTY: ERRORS.LOG
@++++ MAGTAPE TEST MTABAK IN EXERC.LOG AT TAG MTBKRX:: ++++
@++++ COMPILATION/EXECUTION OF MTASKF.FOR FAILED, PROBABLY ++++
@++++ BECAUSE FORTRAN IS MISSING FROM THIS SYSTEM. THIS TEST ++++
@++++ WILL BE RUN FROM A PRE-COMPILED AND PRE-LINKED VERSION. ++++
@
@
@RUN MTASKF.EXE
@IF (NOERROR) @GOTO MTSKFX::
@APPEND (SOURCE FILE) TTY: (TO) ERRORS.LOG
@++++ TEST MTASKF MAGTAPE SKIP FILE TEST ++++
@ FATAL ERROR FOLLOWING EXECUTE MTASKF.FOR COMMAND
@++++ EN