Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
qsrdsp.c09
There are 2 other files named qsrdsp.c09 in the archive. Click here to see a list.
REP 29/22 ;09C1
$TEXT (DEPBYT,<^W7/.UCBNM(P1)/^A>) ;PUT OUT THE UNIT NAME
WIT
$TEXT (DEPBYT,<^W8/.UCBNM(P1)/^A>) ;PUT OUT THE UNIT NAME
REP 62/25 ;09C2
$TEXT (DEPBYT,<^T4/@.AMNAM(S2)/ ^W5R/.UCBNM(S1)/ ^A>) ;PRINT DRIVE
WIT
$TEXT (DEPBYT,<^T4/@.AMNAM(S2)/ ^W6/.UCBNM(S1)/ ^A>) ;PRINT DRIVE
REP 11/29 ;09C3
$ASCII (<Name Time Free Mount #Req Volume Type Drive Owner PPN >)
PUSHJ P,CRLF ;NEW LINE
$ASCII (<---- ------ -------- ----- ---- ---------- ---- ----- ------------->)
WIT
$ASCII (<Name Time Free Mount #Req Volume Type Drive Owner PPN >)
PUSHJ P,CRLF ;NEW LINE
$ASCII (<---- ------ -------- ----- ---- ---------- ---- ------ ------------->)
REP 6/31 ;09C4
$ASCII (<Drive >) ;BUILD THE HEADER
WIT
$ASCII (<Drive >) ;BUILD THE HEADER
REP 13/31 ;09C5
$ASCII (<----- >) ;UNDERLINE 'DRIVE'
WIT
$ASCII (<------ >) ;UNDERLINE 'DRIVE'
SUM 246073