Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/dumper.c14
There are no other files named dumper.c14 in the archive.
INS 1/1 ;14C1
; *** Edit 542 to DUMPER.MAC by WAGNER on 11-Jun-86, for SPR #21118
; Fix DUMPER such that it can find the maximum blocking factor for tapes with
; density of 6250.
; *** Edit 541 to DUMPER.MAC by WAGNER on 3-Jun-86, for SPR #21242
; Increase storage for up to 100 VOLIDS in a tape set, from old limit of 10.
; *** Edit 540 to DUMPER.MAC by WAGNER on 28-Apr-86, for SPR #21225
; Fix DUMPER to not get and write a VOLID if tape was set UNAVAILABLE, in
; routines NOEOTW and SVSETA.
; *** Edit 539 to DUMPER.MAC by MAYO on 10-Mar-86, for SPR #21064
; Non-existant devices in a SAVE command should not generate the ?Device must
; be DISK error. It is probably just an offline disk.
REP 6/2 ;14C2
.EDIT=^D538
WIT
.EDIT=^D539
REP 45/6 ;14C3
VOLID6: BLOCK ^D11 ;SIXBIT VOLID OF TAPE OR 0, UP TO 10
WIT
;**;[541] CHANGE 1 LINE AT VOLID6:+0.L DSW 6/3/86
VOLID6: BLOCK ^D101 ;[541]SIXBIT TAPE VOLID OR 0, UP TO 100
REP 116/13 ;14C4
DNKLEN=.-DNKTAB-1
WIT
DNKLEN=.-DNKTAB ;[542] LENGTH +1 FOR PROPER AOBJN INDEXING
;**;[542] CHANGE 1 LINE AT DNKTAB:+5.L DSW 6/11/86
REP 62/15 ;14C5
MOVEM Q2,JF2LST(Q1) ;SAVE 0 OR ERROR CODE
WIT
TLNN T3,(1B2) ;DID CHKDSK SAY "NO SUCH DEVICE?"
JRST SAVCPF ;NO, FINE
WARN <No mounted disk named >
MOVE T2,T1 ;YES, TELL WHAT IS WRONG, AND GIVE JFN
MOVX T3,1B2+JS%PAF ;JUST TYPE DEVICE NAME AND COLON
CALL TYJFNF
TYPE [ASCIZ/, no files will be saved from it.
/] ;THE SAD TRUTH
SAVCPF: MOVEM Q2,JF2LST(Q1) ;SAVE 0 OR ERROR CODE
INS 140/23 ;14C6
;**;[540] INSERT 1 LINE AT NOEOTW:+12.L DSW 4/28/86
SKPMTA ;[540] DON'T GET VOLID IF ASSIGNED TAPE
INS 53/24 ;14C7
;**;[540] INSERT 1 LINE AT SVSETA:+2.L DSW 4/28/86
SKPMTA ;[540] DON'T GET VOLID IF ASSIGNED TAPE
REP 69/38 ;14C8
;Just like CHKJFN, but skips if device is DISK
CHKDSK: CALL CHKJFN
JUMPE T3,CPOPJ1 ;T3 = 0 MEANS DISK
WIT
;Just like CHKJFN, but skips if device is DISK or unknown
CHKDSK: CALL CHKJFN
JUMPE T3,CPOPJ1 ;T3 = 0 MEANS DISK
TLNE T3,(1B2) ;T3/ 1B2 MEANS NO SUCH DEVICE (OFFLINE DISK)
JRST CPOPJ1
SUM 42198