Google
 

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