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