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