Google
 

Trailing-Edge - PDP-10 Archives - BB-4171H-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