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

 REP 1/1	;13C1
	; *** Edit 534 to DUMPER.MAC by MAYO on 25-Nov-85
	; Make sure the volid gets saved when doing Retrievals with tape allocation
	; disabled; otherwise Retrievalk forces a mount/dismount for every file
 WIT
	; *** Edit 538 to DUMPER.MAC by MAYO on 31-Jan-86, for SPR #21078
	; Replace 534 with something more verbose; type tape number and proper VOLID at
	; NXTTAP.
	; *** Edit 537 to DUMPER.MAC by MAYO on 31-Jan-86
	; Enable preloading when using PMAP.
	; *** Edit 536 to DUMPER.MAC by MAYO on 22-Jan-86, for SPR #20905
	; If cleaning up a failing command, and the command was a RETRIEVAL with a
	; request still active, requeue a request for the Alternate tape.
	; *** Edit 535 to DUMPER.MAC by MAYO on 2-Dec-85
	; Prevent two EOFs from being read as EOT on labeled tapes. Also, allow mail to
	; be sent to a file's author, not last writer, if compiled with a different
	; FTLWR.
 REP 6/2	;13C2
		.EDIT=^D534
 WIT
		.EDIT=^D538
 INS 42/3	;13C3
		FTLWR==-1		;SEND ARCHIVE MAIL TO FILE'S LAST WRITER IF -1
					 ;If 0, send to author
 REP 262/9	;13C4
		SKIPE	T1,LSTDMP	;IS THERE A LAST OUTPUT BUFFER?
 WIT
	;**;[536] At KILLIO:+5L, add 5 lines and label	SM	22-Jan-86
		TXZN	F,F.RETR	;[536] DID WE DIE ON RETRIEVAL?
		JRST	NORETD		;[536] NO, SKIP THIS
		CALL	UNLOAD		;[536] YES, TOSS TAPE NOW
		CAIE	P5,0		;[536] DID WE HAVE A REQUEST IN PROGRESS?
		CALL	RETFAI		;[536] YES, REQUEUE OR DROP REQUEST
	NORETD:	SKIPE	T1,LSTDMP	;[536] IS THERE A LAST OUTPUT BUFFER?
 REP 238/13	;13C5
		MOVEM	T3,VOLID6	;STORE
 WIT
	;**;[538] Add label at GETVOL:+7L	SM	31-Jan-86
	DOVOLS:	MOVEM	T3,VOLID6	;[538] STORE
 REP 232/19	;13C6
		TXO	T3,PM%CNT+PM%RD	;ITS A COUNT, AND READ ACCESS ONLY
 WIT
		TXO	T3,PM%CNT+PM%RD+PM%PLD ;ITS A COUNT, READ ACCESS, AND PRELOAD
 REP 297/23	;13C7
		SKIPE	VOLID
		TYPE	VOLID
		TYPE	[ASCIZ/, at /]
 WIT
	;**;[538] At NXTTPE:+2L, Replace 2 lines with 9		SM	31-Jan-86
		MOVE	T2,TAPENO	;[538] Set up to type old tape number
		SUBI	T2,1		;[538] Account for increment above
		CALL	DECOUT		;[538] Spew it
		SKIPN	VOLID		;[538] Do we have a real volid?
		JRST	TYNVOL		;[538] No, no need to type it
		TYPE	[ASCIZ/ (/]	;[538] Yes, paren it so it stands out
		TYPE	VOLID		;[538] type it
		TYPCHR	")"		;[538] close paren
	TYNVOL:	TYPE	[ASCIZ/ at /]	;[538] OK, lead in to current time
 REP 53/26	;13C8
		CALL	CLRERR		;NO, DO IT NOW
		TXO	F,F.EOF		;WE HAVE EOF (END OF SAVESET)
 WIT
		CALL	XGDSTS		;NO, DO IT NOW
		TXO	F,F.EOF		;WE HAVE EOF (END OF SAVESET)
		IFLAB	REAEO2		;ON LABELED TAPES, 2 EOFS DON'T COUNT
 INS 58/26	;13C9
	REAEO2:	TXZE	F,F.OEOF	;2ND IN A ROW ON LABELED TAPE?
		 WARN	<Empty saveset seen on tape> ;WORTH A WARNING
		TXNN	T2,MT%EOT	;DISPATCH ON TRUTH
		JRST	@3(T4)		;MERE EOF
		JRST	@4(T4)		;EOT
 REP 22/36	;13C10
		BIN%
		 ERJMPS	MALEOF
		CAIE	T2,"*"
		JRST	TOSLI2
 WIT
	SCNFIA:	BIN%
		 ERJMPS	MALEOF			;EOF? GO FINISH
		CAIE	T2,.CHCRT		;SKIP END OF LINE STUFF
		CAIN	T2,.CHLFD
		JRST	SCNFIA
		CAIE	T2,"*"			;"*" MEANS SOMETHING TO DO
		JRST	TOSLI2			;NO, SKIP THIS LINE
 REP 90/36	;13C11
		HRLI	T1,.GFLWR
 WIT
	 IFN FTLWR,<
		HRLI	T1,.GFLWR
	 >
	 IFE FTLWR,<
		HRLI	T1,.GFAUT
	 >
 REP 336/43	;13C12
			 MOVEM	Q1,VOLID6 ;SET VOLID
 WIT
	;**;[538] MNTNXT:+7L Replace 1 line (from edit 534) with 2	SM 31-Jan-86
			 MOVE	T3,Q1	;[538] DOVOLS STORES VOLID6, VOLID FROM T3
			 CALL	DOVOLS	;[538] SET THEM
 SUM 3626