PDP-10 Archive: autopatch/qsrmda.c09 from bb-y390o-bm_tops20_v41_atpch

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/qsrmda.c09

There are 2 other files named qsrmda.c09 in the archive. Click here to see a list.

 REP 9/9	;09C1
		ERJMP	.RETF			;ILLEGAL FILESPECIFICATION
 WIT
	;**;[1227]At D$ESTR:+5L Replace 1 line with 2 lines  JCR  9/12/84
		ERJMP	[ MOVEM	S1,G$CRS##	    ;[1227]Place error code in flag
			  $RETT ]		    ;[1227]Quit and clean up
 REP 27/168	;09C2
		ADDI	S2,VSLLEN-1		;CALC THE VSL LENGTH
 WIT
	;**;[1225]Change 1 line at MNTV.A:+12L   JCR  8/14/84
		ADDI	S2,VSLLEN		;[1225]Calc the VSL length
 REP 49/168	;09C3

 WIT
	;**;[1225]Add 3 lines at MNTV.C:+3L  JCR  8/14/84
		MOVE	S1,.VSVOL(P2)		;[1225]Pick up the first volume name
		MOVE	S1,0(S1)		;[1225]Get the first volume name
		MOVEM	S1,0(T2)		;[1225]Used by INFORMATION MOUNT/ALL
 SUM 94571