Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 2/1	;05C1
	SUBTTL	D.L. CAMPBELL/DZN/DMN/BRF/GCS	13-Apr-82


	;	"JSYS SAVES"
 WIT
	SUBTTL	D.L. CAMPBELL/DZN/DMN/BRF/GCS		7-Oct-82
 REP 21/4	;05C2
	GTJARG:	BLOCK	1		;ARG FOR GETJI JSYS
 WIT
	;**;[502] @PGSATM: + 1L  Delete 1 line.   GCS   24-May-82
 INS 48/42	;05C3
	;**;[502] @BADMP2: + 13 lines.  Insert 1 line.   GCS   24-May-82
		SETZ	T3,		;[502]
 REP 54/42	;05C4
	VLDERR:	PUSH	P,T2		;SAVE THE GETER ARGS
		PUSH	P,T3		;...
		SETO	T1,		;CURRENT JOB
		HRROI	T2,GTJARG	;1 WORD
		MOVEI	T3,.JIBAT	;BATCH CONTROL WORD
		GETJI%
		  SETZM	GTJARG		;ASSUME NOT BATCH
		HRROI	T1,CRLF		;START MESSAGE ON NEW LINE
		PSOUT%			; INCASE BATCH
		MOVEI	T1,"$"		;PREFIX MESSAGE WITH $ FOR BATCH
		SKIPL	GTJARG		;IS IT REALLY A BATCH JOB?
		MOVEI	T1,"%"		;NO, JUST GIVE WARNING
		PBOUT%
		POP	P,T3		;RESTORE ORIGINAL ERROR #
		POP	P,T2		;...
		MOVEI	T1,.PRIOU	;[457] GET READY FOR ERSTR CALL.
		ERSTR%			;[457] PUT OUT THE ERROR MESSAGE. 
		  HALTF%		;[457] SHOULD NOT GET HERE!
		  JRST	.-1		;[457] OR HERE!
		HRROI	T1,QEMSG	;[457] SET UP POINTER TO MESSAGE.
		PSOUT%			;[457] PUT OUT MESSAGE.
 WIT
	;**;[505] @BADMP2: + 20L.  Replace 12 lines with 8.  GCS  20-Aug-82
	VLDERR:	$ERROR	(?,QEF,<Quota exceeded or disk full while writing:>,+)  ;[505]
		$CRLF			;[502] START ON NEW LINE.
		$MORE	(TEXT,<	>)	;[505] INDENT 1 TAB.
		HLRZ	T2,DEST		;[505] GET JFN OF FILE THAT FAILED.
		$MORE	(FILESPEC,T2)	;[505] TYPE IT.
		$CRLF			;[505] START ON A NEW LINE.
		$MORE	(TEXT,<You may CONTINUE when additional space is available.>)  ;[505]
		$CRLF			;[505] FINISH MESSAGE.
 REP 102/42	;05C5
		POPJ	17,		;[464][457] RETURN TO CALLING ROUTINE.

	CRLF:	ASCIZ	/
	/
	QEMSG:	ASCIZ /.
	Type CONTINUE after expunging deleted files.
	/				;[464][457] THAT'S ALL FOLKS.
 WIT
	;**;[505] @FIN: + 2 L.  Replace 7 lines with 4.  GCS  20-Aug-82
		RET			;[505]

	CRLF:	ASCIZ	/
	/				;[505]
 INS 21/51	;05C6
	;**;[507] @RFMBFP: + 18L  Insert 6 lines.   GCS   7-Oct-82
		SETZM	(T1)		;[507] CLEAR THE AREA
		HRLS	T1		;[507]  INCASE ANY
		AOS	T1		;[507]  BIT 35'S
		HLRZ	T2,T1		;[507]	ARE ON
		ADD	T2,RCBSZ	;[507]  DUE TO A
		BLT	T1,-1(T2)	;[507]  PREVIOUS SORT.
 INS 19/53	;05C7
	;**;[507] @FMTBFP) + 15L  Insert 6 lines.   GCS   7-Oct-82
		SETZM	(T1)		;[507] CLEAR THE AREA
		HRLS	T1		;[507]  INCASE ANY
		AOS	T1		;[507]  BIT 35'S
		HLRZ	T2,T1		;[507]	ARE ON
		ADD	T2,RCBSZ	;[507]  DUE TO A
		BLT	T1,-1(T2)	;[507]  PREVIOUS SORT.
 SUM 103931