Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - oprpar.c10
There is 1 other file named oprpar.c10 in the archive. Click here to see a list.
 REP 29/1	;10C1
		PAREDT==:103
 WIT
		PAREDT==:104
 INS 130/3	;10C2
	104	6-Dec-84 /CTK Fix TAKE command garbage error messages.
		GCO 10128	SPR 10-35015

 REP 50/5	;10C3
	$DATA	ERRSTG,1			;ADDRESS OF ERROR MESSAGE
 WIT
	;**;[104]CHANGE 1 LINE	6-DEC-84/CTK
	$GDATA	ERRSTG,1			;ADDRESS OF ERROR MESSAGE
 REP 60/34	;10C4
	TAKE.3:	MOVEI	S2,[ASCIZ/Can't open TAKE command file/]
		JRST	TAKERR			;TAKE ERROR EXIT
	TAKE.4:	MOVEI	S2,[ASCIZ/Invalid argument in TAKE command/]
		JRST	TAKERR			;TAKE ERROR EXIT
 WIT
	;**;[104]ADD AND REVAMP CODE AT TAKE.3:+0L	6-DEC-84/CTK
	TAKE.3:	MOVE	S2,PARDAT		;[104]GET THE PAGE ADDRESS
		MOVE	S1,COM.PB(S2)		;[104]GET POINTER TO PARSER BLOCK
		ADDI	S1,(S2)			;[104]GET OFFSET FOR PARSER DATA
		$CALL	P$SETU			;[104]SET UP THE PARSE POINTER
		$CALL	P$KEYW			;[104]SKIP THE NEXT FIELD
		$CALL	P$FILE			;[104]GET THE CURRENT PARSE BLOCK
		JUMPF	TAKE.5			;[104]IS IT AN INPUT FILE BLOCK ???
		$TEXT	(T%TTY,<? Can't open TAKE command file: "^F/@S1/"^0>);[104]YES
		SETOM	S2			;[104]DON'T OUTPUT ANYTHING ELSE
		JRST	TAKERR			;[104]AND RETURN
	TAKE.4:	MOVEI	S2,[ASCIZ/Invalid argument in TAKE command/]
		JRST	TAKERR			;TAKE ERROR EXIT
	TAKE.5:	MOVEI	S2,[ASCIZ/Can't find TAKE command FD parse block/];[104]
		JRST	TAKERR			;[104]TAKE ERROR EXIT
 SUM 13291