Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - backup.c11
There are no other files named backup.c11 in the archive.
 REP 1/1	;11C1
		TITLE	BACKUP -- MODULE TO SCAN COMMANDS FOR BACKUP -- %4A(521)
		SUBTTL	P.F.CONKLIN/PFC/KCM/JEF/MEB/CLRH/VLR/CGN/WMG/DC/BPK/MS/BAH/EDS	25-Jul-84
 WIT
		TITLE	BACKUP -- MODULE TO SCAN COMMANDS FOR BACKUP -- %4A(525)
		SUBTTL	P.F.CONKLIN/PFC/KCM/JEF/MEB/CLRH/VLR/CGN/WMG/DC/BPK/MS/BAH/EDS	17-May-85
 REP 6/1	;11C2
	DECEVR==521		;EDIT NUMBER
 WIT
	DECEVR==525		;EDIT NUMBER
 INS 923/1	;11C3
	;522	10-33552	DRB	04-Mar-85
	;	Rewrite the /INITIAL code so that we don't start from the wrong place
	;	if the /INITIAL file doesn't really exist.
	;
	;523	10==33552	DRB	04-Mar-85
	;	If the /INITIAL file isn't found, don't say "no files found 
	;	ALL:*.*[*,*,*,*,*,*,*]".  Create a new, more meaningful error
	;	message.
	;
	;524	None.	DRB	22-Apr-85
	;	If /INITIAL file is given and not found before an SFD is encountered,
	;	BACKUP did not continue the search for the /INITIAL file.
	;
	;525	33748	BAH	17-May-85
	;	Restore reports "Prior block repeated" at EOT when a tape is mounted
	;	unavailable.  Edit 321 started warning user of repeated blocks on the
	;	tape.  BACKUP failed to clear the EOT bit in the buffer when it first
	;	got the EOT error return.  The monitor gives an error return for every
	;	OUT that did not first do a SETSTS to clear the EOT condition.  After
	;	the second error condition, BACKUP recycles through the buffer ring
	;	outputing the buffer occurring after the buffer with EOT but clears
	;	the EOT bit.  The buffer after the first error condition will always
	;	be repeated.  Clear EOT in the buffer when the first error condition
	;	occurs.
	;
 INS 28/43	;11C4
		MOVE	T1,S.INIT+.FXNAM;[523] Did we
		IOR	T1,S.INIT+.FXDEV;[523]  find our
		IOR	T1,S.INIT+.FXDIR;[523]  /INITIAL file?
		JUMPN	T1,E$$INF	;[523] No. Complain about that specifically.
 INS 47/43	;11C5

	E$$INF::MOVE	T1,['BKPINF']	;[523] PREFIX
		MOVE	T2,["%",,[ASCIZ \/INITIAL file not found: \]] ;[523]
		PUSHJ	P,.ERMSG##	;[523] ISSUE THE MESSAGE
		TXNN	T1,JWW.FL	;[523] IF /MESSAGE:NOFIRST
		PJRST	.TCRLF##	;[523]  SKIP THE REST
		MOVEI	T1,S.INIT	;[523] POINT TO THE /INITIAL SPEC
		PUSHJ	P,.TFBLK##	;[523] TYPE THE FILE BLOCK
		PJRST	.TCRLF##	;[523] TYPE THE END OF LINE AND RETURN
 SUM 185593