Google
 

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