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

 INS 1/1	;18C1
	; *** Edit 549 to DUMPER.MAC by EVANS on 1-Mar-88, for SPR #21906
	; Prevent endless loop if GDSTS% fails after calling BAKOUT.
	; *** Edit 548 to DUMPER.MAC by EVANS on 28-Jan-88, for SPR #21703
	; Print the sequential tape number at the beginning of a new tape.
 REP 6/2	;18C2
		.EDIT=^D547
 WIT
		.EDIT=^D549
 REP 106/17	;18C3

 WIT

 REP 234/22	;18C4

 WIT

 REP 76/26	;18C5
		 JSERRD	<>,BAKOUT
 WIT
	;**;[549]Change one line at XGDSTS:+4L		DEE	1-MAR-88
		 ERJMP XGDBAD		;[549] Can't - some problem
 INS 86/26	;18C6

	;**;[549] Add new routine XGDBAD: at XGDST1:+5L		DEE 	1-MAR-88

	;[549] HERE IF GDSTS% FAILED - BIG PROBLEM, SO CLEAN UP AS BEST
	;WE CAN AND START OVER

	XGDBAD: MOVEI   T2,.MOCLE	;[549] Try to do what we came here for
		DOJSS 	MTOPR%, .+1	;[549] Clear error flags
		POP     P,T2	        ;[549] Restore
		ERROR	<Can't get tape drive status>,PANIC ;[549] Bomb out




 REP 166/35	;18C7

 WIT

 REP 301/38	;18C8
	ANEWT:	TYPE	<[ASCIZ/ [ Beginning tape /]>
		TYPE	VOLID
		TYPE	[ASCIZ/, at /]
 WIT
	;**;[548] Add 7 lines at ANEWT:+1L		DEE	28-JAN-88
	ANEWT:	TYPE	<[ASCIZ/ [ Beginning tape /]>
		MOVE T2, TAPENO		;[548] Get the tape number
		CALL DECOUT		;[548] Print it
		SKIPN VOLID		;[548] Is there a volume-id?
		JRST ANEWTU		;[548] Guess not
		TYPE [ASCIZ/ (/]	;[548] Yes, put it in parens
		TYPE VOLID		;[548] Print it
		TYPCHR ")"		;[548] Close paren
	ANEWTU:	TYPE	[ASCIZ/, at /]
 REP 4/47	;18C9

 WIT

 SUM 81833