Google
 

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/forerr.c05
There are no other files named forerr.c05 in the archive.
 REP 2/1	;05C1
		TV	FORERR	ERROR HANDLER,6(2031)

	;COPYRIGHT (C) 1981  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
		TV	FORERR	ERROR HANDLER,6(2127)

	;COPYRIGHT (C) 1981,1982  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 INS 144/1	;05C2
	***** End V6 Development *****

	2045	EGM	18-Mar-81
		Make Error ARC (ambiguous repeat count in FORMAT) a warning.

	2060	ERD	28-May-82	10-32396
		Change Error Message CDI 31,315 to a more general error
		message in order to make it correct in all cases.

	2063	ERD	10-Jun-82	10-32514
		Correct Error ISW, 30,506 (Incompatible Attributes) to expect
		ASCIZ string, not SIXBIT for output. 

	2065	EDS	25-Jun-82
		Replace the use of D.TTY with U.TTY and rework logic for UDB.

	2106	TGS	13-Sep-82
		Add DQE (Disk quota exceeded) and ETC (EXPUNGE, then type CONTINUE)
		error messages for PSI disk full trapping.

	2110	RJD	27-Sep-82
		In GETPCN, check for a call using a COMPLEX number.  If found, return
		to beginning of the loop.  This will bypass the check for an 
		address of an argument list in accumulator 16.

	2113	TGS	30-Sep-82
		Remove edit 2063, which corrected one case of junk being output
		on TOPS10 with "Incompatable attributes" error message, but
		caused many other cases to break.

	2127	MRB	23-Nov-82
		Added new error message for I/O within I/O. Type 81, Number 582.

 REP 169/1	;05C3
		EXTERN	D.TTY	;DDB address of TTY: (if OPEN)
 WIT
		EXTERN	U.TTY	;[2065] UDB of TTY, if open.
 REP 86/2	;05C4
		IOERR (ISW,30,506,?,Incompatible attributes /$Z$Z /$Z$Z,<%OPNK1,%OPNV1,%OPNK2,%OPNV2>)
 WIT
		IOERR (ISW,30,506,?,Incompatible attributes /$Z$Z /$Z$Z,<%OPNK1,%OPNV1,%OPNK2,%OPNV2>)	;[2063][2113]
 REP 91/2	;05C5
	;31 -- Mixed ACCESS modes

		IOERR (CDI,31,315,?,Can't do $A I/O to $A file,<T2,T3>)
 WIT
	;31 -- Mixed I/O						;[2060]

		IOERR (CDI,31,315,?,Can't mix $A and $A I/O,<T2,T3>)	;[2060]
 REP 136/2	;05C6
		IOERR (ARC,62,532,?,Ambiguous repeat count,,I%FMT)
 WIT
		IOERR (ARC,62,532,%,Ambiguous repeat count,,I%FMT) ;[2045]
 INS 154/2	;05C7
		IOERR (IWI,81,582,?,Illegal to initiate $A while processing another I/O statement,<%IONAM>);[2127]
 INS 181/2	;05C8
	IF20,	IOERR (DQE,899,590,?,Disk full or quota exceeded) ;[2106]
	IF20,	IOERR (ETC,899,591,?,<Please EXPUNGE, then type CONTINUE>) ;[2106]
 REP 10/20	;05C9
		SKIPE	D.TTY		;Any TTY DDB?
 WIT
		SKIPE	U.TTY		;[2065] Any TTY UDB?
 INS 34/28	;05C10
		MOVE	T3,-1(T2)	;[2110] GET PREVIOUS INSTRUCTION
		TRZ	T3,7777		;[2110] ZERO 2 RIGHT MOST CHARACTERS
		CAME	T3,[SIXBIT /CFM./]	;[2110] IS IT A COMPLEX
		 CAMN	T3,[SIXBIT /CMM./]	;[2110]  INSTRUCTION?
		  SOJA	P1,GETPC	;[2110] YES
		CAME	T3,[SIXBIT /CFD./]	;[2110] IS IT A COMPLEX
		 CAMN	T3,[SIXBIT /CDM./]	;[2110]  INSTRUCTION?
		  SOJA	P1,GETPC	;[2110] YES
 SUM 219286