Google
 

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