Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - algcon.c09
There are 14 other files named algcon.c09 in the archive. Click here to see a list.
 REP 3/1	;09C1
	;COPYRIGHT (C) 1975,1982,1983 BY
 WIT
	;COPYRIGHT (C) 1975,1982,1983,1984 BY
 DEL 1/32	;09C2
 REP 4/34	;09C3
		JRST	TERMIN		; CANT OPEN, QUIT
		LOOKUP	5,CSFILE	; FIND THE FILE IF THERE IS ONE
		JRST	TERMIN		; FILE CANNOT BE READ
 WIT
		 JRST	CCLBAD		;[355] CAN'T, COMPLAIN
		LOOKUP	5,CSFILE	; FIND THE FILE IF THERE IS ONE
		 JRST	CCLBAD		;[355] FILE CANNOT BE FOUND
 INS 51/34	;09C4

	;Here when CCL started but can't find TMPCOR file.  Issue message and exit.
	CCLBAD:	OUTSTR	[ASCIZ/?Cannot find or cannot open TMPCOR file
	/]				;[355] ISSUE ERROR
		SETZM	CSFILE		;[355] NO MORE FILE NAME
		JRST	QUIT		;[355] FINISH
 REP 16/45	;09C5
	ALGOL:	ASCIZ	/ALGOL:  /	;[251]
 WIT
	ALGOL:	ASCIZ	/ALGOL:	/	;[251]
 REP 26/64	;09C6
		OUTSTR	[ASCIZ	/
	? SOURCE STATEMENT TOO LONG /]	; [E025] NO  - TELL USER
 WIT
		OUTSTR	[ASCIZ/
	?SOURCE STATEMENT TOO LONG
	/]				; [E025] NO  - TELL USER
 REP 61/137	;09C7
		FAIL	(84,HARD,NSYM,VARIABLE CANT BE USED HERE)
 WIT
		FAIL	(84,HARD,NSYM,VARIABLE CANNOT BE USED HERE)
 REP 4/146	;09C8
	[ASCIZ	/EXPRESSION TOO LONG/]					; 83
 WIT
	[ASCIZ	\EXPRESSION TOO LONG, USE /TEMPCODE SWITCH TO INCREASE TEMPCODE SPACE\];[350] 83
 SUM 115733