Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/qsrdsp.c09
There are 2 other files named qsrdsp.c09 in the archive. Click here to see a list.
 INS 53/2	;09C1
	;**;[1225]Add 1 line after %LABEL
		VOLLIN==5			;[1225]Volumes displayed/line
 REP 108/34	;09C2
	TOPS20<		 SKIPLE	LISTYP >	;GET VOLUME SET NAME ONLY IF /ALL
			 $TEXT (DEPBYT,<   Volume-set: ^T/.VSVSN(P1)/>) ;INSERT TEXT
			 JRST  SMNA.1  ]	;AND SKIP THIS
 WIT
	;**;[1225]Replace 3 lines with 23 lines at SMNATT:+6L  JCR  8/14/84
	TOPS20<		 MOVE  T1,LISTYP		;[1225]Get the volume set name
			 JUMPLE T1,SMNA.1 >		;[1225]Only if all
			 $TEXT (DEPBYT,<   Volume-set: ^T/.VSVSN(P1)/>) ;[1225]
			 $TEXT (DEPBYT,<   Volumes in this set:  ^A>)	;[1225]
			 LOAD  T1,.VSCVL(P1),VS.CNT	;[1225]Number of volumes in set
			 MOVEI T3,.VSVOL(P1)		;[1225]Get current VOL adr.
			 ADD   T3,T1			;[1225]Point to 1st vol. name
			 $TEXT (DEPBYT,<^W9/.VLNAM(T3)/^A>)	;[1225]Print it
			 SOJLE T1,LSTVL3		;[1225]Finished if no more vols
			 SUB   T3,T1			;[1225]Point to 2nd VOL adr.
			 IMULI T1,-1			;[1225]Make it into a
			 HRLZ  T1,T1			;[1225]AOBJN counter
			 HRR   T1,T3			;[1225]Finish the AOBJN counter
			 MOVEI T2,VOLLIN-1		;[1225]Max number of vol/line
	LSTVL1:		 MOVE  S1,0(T1)			;[1225]Get its address
			 $TEXT(DEPBYT,<^W9/.VLNAM(S1)/^A>)	;[1225]
			 SOJG  T2,LSTVL2		;[1225]Any room left?
			 MOVEI T2,VOLLIN		;[1225]Reset max. number
			 $TEXT(DEPBYT,<                                   ^A>)
	LSTVL2:		 AOBJN T1,LSTVL1		;[1225]Get the next name
	LSTVL3:		 $TEXT(DEPBYT,< >)		;[1225]Leave this line
			 JRST  SMNA.1 ]			;[1225]Check for a remark
 SUM 49575