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

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

There is 1 other file named mountr.c13 in the archive. Click here to see a list.

 REP 7/2	;13C1
		MTRMAN==331		;Maintenance edit level
 WIT
		MTRMAN==333		;Maintenance edit level
 INS 452/4	;13C2

	332	5.1230		Jan-10-85
		In routine MTRLS, notify the operator that a mount request for a
	volume of a multi-volume set is canceled due to a dismount.

	333	4.2.1623	Feb-3-86
		In routine UNLOAD, REWIND the tape before UNLOAD.
 INS 46/184	;13C3
	;**;[332]At MTRLS:+8L Add 3 lines	JYCW 1/8/86
		LOAD T1,RSBSTE		;[332]Get the status
		CAIN T1,RST.WM		;[332]Waiting for next volume?
		CALL WORCAN		;[332]Yes, Tell OPR of cancelation 
 INS 21/224	;13C4
	;**;[333]At UNLOAD:+10L add 3 lines  JYCW  2/3/86
		MOVEI T1,.MOREW		;[333]Get the rewind function 
		MOVEI T2,1		;[333]Repeat count
		CALL XMTOPR		;[333]Rewind before we unload (TM03)
		 JRST .+1		;[333]Don't care if it fails
 SUM 97452