Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/lib/algol.ver
There are 18 other files named algol.ver in the archive. Click here to see a list.
00100 ;<UETP.LIB>ALGOL.VER.5, 10-May-79 11:49:28, EDIT BY EIBEN
00200 !FILES NEEDED:
00300 ! ADPR12.REL
00400 ! ADPR12.CMP
00500 @inf str user1:
00600 @if (error) @goto begin:
00700
00800 @run <uetp.lib>sender
00900 *type START
01000 *blabel user1:
01100 *test algol
01200 *send ALGOL =>USER1:
01300 *exit
01400
01500 @mount structure user1:
01600 @def dsk: user1:<uetp.algol>,ps:<uetp.lib>
01700 @def out: user1:<uetp.algol>
01800 @goto begin1:
01900
02000 begin::
02100 @RUN <uetp.lib>sender
02200 *TYPE START
02300 *BLABEL BEGIN:
02400 *TEST ALGOL
02500 *SEND
02600 *EXIT
02700 @def dsk: <uetp.algol>,ps:<uetp.lib>
02800 @def out: ps:<uetp.algol>
02900
03000 begin1::
03100 @take sys.cmd
03200 @if (noerror) @goto begin2:
03300
03400 @RUN <uetp.lib>sender
03500 *TYPE error
03600 *BLABEL BEGIN1:
03700 *TEST ALGOL
03800 *SEND ERROR on TAKE SYS.CMD
03900 *EXIT
04000 @revive
04100 @goto ENDERR:
04200
04300 begin2::
04400 @NOERROR
04500 @delete out:*.*
04600 @expunge out:
04700 @error
04800 @I DIS OUT:
04900 @I LOG ALL
05000 @goto algol:
05100
05200 %ERR::
05300 @run <uetp.lib>sender
05400 *type error
05500 *blabel begin2
05600 *test algol
05700 *send No directory uetp.algol on structure USER1:?
05800 *exit
05900 @go to enderr:
06000
06100 ALGOL::
06200 @LOAD ADPR12
06300 @GOTO ALGOL1:
06400
06500 %ERR::
06600 @SILENCE ! ***** MESSAGE: ERROR LOADING ALGOL PROGRAM
06700 @RUN ps:<uetp.lib>SENDER
06800 *TYPE ERROR
06900 *BLABEL ALGOL:
07000 *TEST ALGOL
07100 *SEND ERROR LOADING ALGOL PROGRAM
07200 *EXIT
07300 @REVIVE
07400 @GOTO ENDERR:
07500
07600 ALGOL1::
07700 @START
07800 *200
07900 @GOTO ALGOL2:
08000
08100 %ERR::
08200 @silence !***** message: ERROR RUNNING ALGOL PROGRAM
08300 @RUN ps:<uetp.lib>sender
08400 *TYPE ERROR
08500 *BLABEL ALGOL1:
08600 *TEST ALGOL
08700 *SEND error RUNNING ALGOL PROGRAM
08800 *EXIT
08900 @revive
09000 @GOTO ENDERR:
09100
09200 ALGOL2::
09300 @ERROR %
09400 !NOW COMPARE FILES
09500 @FILCOM
09600 *TTY:=ADPR12.CMP,ADPR12.DAT
09700 @GOTO END:
09800
09900 %ERR::
10000 @silence !***** message: ERROR IN ALGOL PROGRAM'S OUTPUT
10100 @RUN ps:<uetp.lib>sender
10200 *TYPE ERROR
10300 *BLABEL ALGOL2:
10400 *TEST ALGOL
10500 *SEND ERROR IN ALGOL PROGRAM'S OUTPUT
10600 *EXIT
10700 @revive
10800 @GOTO ENDERR:
10900
11000 %TERR::
11100 @SILENCE ! ***** MESSAGE: TIME-OUT ERROR ALGOL
11200 @RUN ps:<uetp.lib>SENDER
11300 *TYPE ERROR
11400 *BLABEL %TERR:
11500 *TEST ALGOL
11600 *SEND TIME-OUT ERROR ALGOL
11700 *EXIT
11800 @REVIVE
11900 @GOTO ENDERR:
12000
12100 %ERR::
12200 @SILENCE ! ***** MESSAGE: UNKNOWN ERROR IN ALGOL.SUP
12300 @RUN ps:<uetp.lib>SENDER
12400 *TYPE ERROR
12500 *BLABEL %ERR:
12600 *TEST ALGOL
12700 *SEND UNKNOWN ERROR IN ALGOL.SUP
12800 *EXIT
12900 @REVIVE
13000 @GOTO ENDERR:
13100
13200 ENDERR::
13300 @INF DIS out:<UETP.ALGOL>
13400 @VDIR OUT:
13500 @I LOG ALL
13600 @SY ALL F-S
13700 @INF FI
13800 @INF MEM
13900
14000 END::
14100 %FIN::
14200 @silence !***** message: END OF ALGOL TEST
14300 @RUN ps:<uetp.lib>sender
14400 *TYPE END
14500 *BLABEL END:
14600 *TEST ALGOL
14700 *SEND
14800 *EXIT
14900 @revive