Trailing-Edge
-
PDP-10 Archives
-
BB-D867C-BM
-
uetp/lib/ranfor.ver
There are 13 other files named ranfor.ver in the archive. Click here to see a list.
;<UETP.2>RANFOR.VER.2, 3-May-79 16:17:19, Edit by REILLY
;<UETP.LIB>RANFOR.VER.15, 2-Jun-78 10:02:40, Edit by ENGEL
;<UETP.LIB>RANFOR.VER.13, 4-May-78 11:17:57, Edit by ENGEL
!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.
!.R SETSRC
*CP [5,33,RANFOR]
*LIB:[5,33]
*
!.Set default prot <000>
@DEFINE UTP: <UETP.LIB> !.none
@def dsk: <uetp.ranfor>,DSK:<uetp.lib> !.none
@TAKE SYS.CMD !.none
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST RANFOR
*SEND BEGINNING OF FORTRAN RANDOM I/O TEST
*EXIT
@I DIS <UETP.RANFOR> !.none
@I LOG ALL !.none
@NOERROR !.NOERROR
@DELETE *.*
@EXPUNGE <UETP.RANFOR> !.none
@ERROR !.ERROR
@DEFINE (LOGICAL NAME) 3: (AS) DSK: !.ASSIGN DSK: 3:
@DEFINE (LOGICAL NAME) 2: (AS) DSK: !.ASSIGN DSK: 2:
!TEST FOR EXISTENCE OF FORTRAN SYSTEM
@GET SYS:FORTRA.EXE !.GET SYS:FORTRA.EXE
@IF (NOERROR) @GOTO FOR:: !.IF (NOERROR) .GOTO FOR::
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE MAJOR
*BLABEL FOR::
*TEST RANFOR
*SEND NO FORTRAN AVAILABLE WILL USE .EXE FILES
*EXIT
@GOTO NOFOR:: !.GOTO NOFOR::
FOR::
@GET SYS:FORTRA !.GET SYS:FORTRA
@INF VER !.VERSIO
@LOAD/COMP RANFOR.FOR
@IF (NOERROR) @GOTO RANSAV:: !.IF (NOERROR) .GOTO RANSAV::
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL FOR:
*TEST RANFOR
*SEND ERROR ON LOAD/COMP RANFOR
*SEND TRYING TO RUN RANFOR.EXE
*EXIT
@GOTO GOFOR:: !.GOTO GOFOR::
RANSAV::
@SAVE RANFOR !.SAVE RANFOR
@GOTO GOFOR:: !.GOTO GOFOR::
NOFOR::
GOFOR::
@RUN RANFOR.EXE !.RUN RANFOR.EXE
@IF (NOERROR) @GOTO END:: !.IF (NOERROR) .GOTO END::
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL NOFOR:
*TEST RANFOR
*SEND ERROR RUNNING RANFOR
*EXIT
END::
@GOTO FIN:: !.GOTO FIN::
%ERR::
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL END:
*TEST RANFOR
*SEND UNKNOWN FATAL ERROR IN RANFOR
*EXIT
FIN::
%FIN::
@NOERROR !.NOERROR
@RESET !.none
@DEL FOR02.DAT
@DEL FOR03.DAT
@DEL RANBIN.DAT
@DEL RANTST.DAT
@DEL RANFOR.*
@EXPUNGE <UETP.RANFOR> !.none
@CHKPNT ADSF:: !.CHKPNT ADSF::
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE END
*BLABEL END:
*TEST RANFOR
*SEND END OF RANDOM FORTRAN TEST
*EXIT