Trailing-Edge
-
PDP-10 Archives
-
BB-H137A-BM
-
uetp/lib/mta0.int
There is 1 other file named mta0.int in the archive. Click here to see a list.
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
! TAKEN FROM THE UETP ON OCTOBER 12,1977
!MTA.BAT MAGTAPE TESTS
!
!VERSION 1 7/7/77
!
!
!
!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 USING THE SAME SCRATCH MAGTAPE.
!NOTE -- THESE TESTS WILL RUN EVEN IF THE FORTRAN SYSTEM IS NOT PRESENT.
! THE APPROPRIATE .EXE FILES WERE COPIED FROM <UETP.LIB>
! EARLIER IN THIS JOB AND WILL BE RUN IF ANY COMPILATION ERRORS OCCUR.
!
!FILES NEEDED:
!
! M0ISKR.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 BY THE PARAMETER
! FILE SPECIFYING A TWO DIMENSIONAL ARRAY
!
! MATSKF.FOR
! FORTRAN MAGTAPE SKIP FILE TEST. ALSO WRITES A
! SERIES OF FILES ON TAPE EACH SOME TWO DIMENSIONAL ARRAY
! 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
! MTA.ERR
!
!
! M0IBAK.FOR
! USES THE SAME SORT OF TECHNIQUE AS M0ISKF. 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.
!
! M0IBKR.FOR
! FORTRAN PROGRAM THAT TESTS MAGTAPE BACKSPACE RECORD
! FEATURES. TWO TESTS ARE DONE ONE BACKSPACING THROUGH
! THE FILE AND THE OTHERDOING SOME MULTIPLE BACKSPACES.
! ERRORS ARE LOGGED IN FILE MTA.ERR, CHECKING INVOLVES
! READING IN THE DATA AND CHECKING EACH ITEM AGAINST E
! EXPECTED DATA.
!
START::@RUN <UETP.LIB>SENDER
*TYPE START
*BLABEL START:
*TEST MTA