PDP-10 Archive: autopatch/mountr.c12 from bb-kl11c-bm_tops20_v6_1_atpch1

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/mountr.c12

There are no other files named mountr.c12 in the archive.

 REP 7/2	;12C1
		MTRMAN==172		;Maintenance edit level
 WIT
		MTRMAN==331		;Maintenance edit level
 INS 446/4	;12C2
	*****	Release 5.0 -- begin maintenance edits	*****
	330	Increment maintenance edit level for version 5 of GALAXY.

	331	5.1228		Nov-15-85
		In routine STMERR check for only one recoverable error from failure
	to mount structure.
 REP 8/153	;12C3
		CAIL T2,MSTRX6		;CHECK TO SEE IF ERROR IS CORRECTABLE
		CAIL T2,MSTX14
		JRST [	CAIE T2,MSTX20
			CAIN T2,MSTX23
			JRST .+1
			CAIE T2,MSTX25
			CAIN T2,MSTX30
			JRST .+1
			JRST DDSERR]	;IT IS, TELL OPERATOR
		MOVE Q1,T2		;COPY ERROR CODE TO SAFE PLACE
		CALL DDSERR		;TELL OPERATOR OF PROBLEM
		ABTRET (Q1,ABT%IN)	;ABORT REQUEST AND RETURN TO CALLER
 WIT
	;**;[331]At STMERR:+4L replace 6 lines with 4 lines  JYCW  Nov-15-85
		MOVE Q1,T2		;[331] Copy error code to safe place
		CALL DDSERR		;[331] Tell operator of problem
		CAIN Q1,MSTRX5		;[331] Is error drive offline?
		RET			;[331] Yes, don't abort the request
 SUM 211100