Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/lib/algol.qer
There is 1 other file named algol.qer in the archive. Click here to see a list.
;<UETP.LIB>ALGOL.VER.5, 10-May-79 11:49:28, EDIT BY EIBEN
!FILES NEEDED:
! ADPR12.REL
! ADPR12.CMP
@inf str user1:
@if (error) @goto begin:
@run <uetp.lib>sender
*type START
*blabel user1:
*test algol
*send ALGOL =>USER1:
*exit
@mount structure user1:
@def dsk: user1:<uetp.algol>,ps:<uetp.lib>
@def out: user1:<uetp.algol>
@goto begin1:
begin::
@RUN <uetp.lib>sender
*TYPE START
*BLABEL BEGIN:
*TEST ALGOL
*SEND
*EXIT
@def dsk: <uetp.algol>,ps:<uetp.lib>
@def out: ps:<uetp.algol>
begin1::
@take sys.cmd
@if (noerror) @goto begin2:
@RUN <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST ALGOL
*SEND ERROR on TAKE SYS.CMD
*EXIT
@revive
@goto ENDERR:
begin2::
@NOERROR
@delete out:*.*
@expunge out:
@error
@I DIS OUT:
@I LOG ALL
@goto algol:
%ERR::
@run <uetp.lib>sender
*type error
*blabel begin2
*test algol
*send No directory uetp.algol on structure USER1:?
*exit
@go to enderr:
ALGOL::
@LOAD ADPR12
@GOTO ALGOL1:
%ERR::
@SILENCE ! ***** MESSAGE: ERROR LOADING ALGOL PROGRAM
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL ALGOL:
*TEST ALGOL
*SEND ERROR LOADING ALGOL PROGRAM
*EXIT
@REVIVE
@GOTO ENDERR:
ALGOL1::
@START
*200
@GOTO ALGOL2:
%ERR::
@silence !***** message: ERROR RUNNING ALGOL PROGRAM
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL ALGOL1:
*TEST ALGOL
*SEND error RUNNING ALGOL PROGRAM
*EXIT
@revive
@GOTO ENDERR:
ALGOL2::
@ERROR %
!NOW COMPARE FILES
@FILCOM
*TTY:=ADPR12.CMP,ADPR12.DAT
@GOTO END:
%ERR::
@silence !***** message: ERROR IN ALGOL PROGRAM'S OUTPUT
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL ALGOL2:
*TEST ALGOL
*SEND ERROR IN ALGOL PROGRAM'S OUTPUT
*EXIT
@revive
@GOTO ENDERR:
%TERR::
@SILENCE ! ***** MESSAGE: TIME-OUT ERROR ALGOL
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST ALGOL
*SEND TIME-OUT ERROR ALGOL
*EXIT
@REVIVE
@GOTO ENDERR:
%ERR::
@SILENCE ! ***** MESSAGE: UNKNOWN ERROR IN ALGOL.SUP
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST ALGOL
*SEND UNKNOWN ERROR IN ALGOL.SUP
*EXIT
@REVIVE
@GOTO ENDERR:
ENDERR::
@INF DIS out:<UETP.ALGOL>
@VDIR OUT:
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
END::
%FIN::
@silence !***** message: END OF ALGOL TEST
@RUN ps:<uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST ALGOL
*SEND
*EXIT
@revive