Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - direct.c11
There are no other files named direct.c11 in the archive.
 REP 1/1	;11C1
		TITLE	DIRECT %6(450) DIRECTORY LISTING CUSP
 WIT
		TITLE	DIRECT %6(466) DIRECTORY LISTING CUSP
 REP 7/1	;11C2
	Copyright (C) 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1980, 1981, 1982,1984
 WIT
	Copyright (C) 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1980, 1981, 1982,1985
 REP 26/2	;11C3
	DRTEDT==450		;DEC EDIT VERSION
 WIT
	DRTEDT==466		;DEC EDIT VERSION
 INS 140/10	;11C4
	;451	SPR 10-33907	RDH	3-Jan-84
	;	/TITLE misaligned if /WORDS specified.
	;
	;452	SPR 10-33368	RDH	3-Jan-84
	;	/PRDIR/PRDEV confuses multi-column listing (/WIDTH) if /HDSDIR
	;
	;453	SPR 10-34256	AQH/RDH	3-Jan-84
	;	/MVOLUME doesn't work with MDA-controlled tapes (/LABEL:USER-EOT)
	;
	;454	SPR 10-32532	RDH	12-Jan-84
	;	/FNDBLD of a BACKUP/INTERCHANGE tape writes garbage for directories.
	;
	;456	RDH	20-Mar-84	SPR 10-34253
	;	/MVOLUME confused by multiple save-set names on continuation tapes
	;
	;462	RDH	2-Feb-85	SPR 10-35076
	;	Issue the "Attributes May be Wrong" message no more than once
	;	per tape save set.
	;
	;463	RDH	13-Feb-85	SPR 10-34249
	;	Spurious "%Tape mark..." messages
	;
	;466	RDH	15-Feb-85	SPR 10-34255
	;	/MVOLUME may fail for INTERCHANGE tapes.
	;
 DEL 16/18	;11C5


	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1970,1984.

 INS 8/29	;11C6
		SKIPLE	S.HDSD		;[452] DOING /HDSDIR FORMAT LISTING?
		JRST	GLDEW6		;[452] YES, THEN /PRDIR/PRDEV DON'T COUNT
		SKIPLE	S.HDSD		;[452] DOING /HDSDIR FORMAT LISTING?
		JRST	GLDEW4		;[452] YES, THEN /PRDIR/PRDEV DON'T COUNT
 INS 25/29	;11C7
	GLDEW4:				;[452]
 REP 20/68	;11C8
		MTUNL.	DC,		;[412] YES - UNLOAD OLD TAPE
 WIT
	;[453]	MTUNL.	DC,		;[412] YES - UNLOAD OLD TAPE
		CLOSE	DC,		;[463] BLAST THE "EOF" I/O STATUS
 REP 6/69	;11C9
	MTFEO2:	MOVEI	T1,[ASCIZ/$Mount next volume, type "C" to continue, "E" to exit: /]
 WIT
	MTFEO2:	TLNN	F,L.MLBP	;[453] CONTROLLED BY MDA?
		JRST	MTFEO4		;[453] NO, ASK USER TO MANUALLY MOUNT NEW TAPE
		MOVEI	T1,[ASCIZ\"Asking MDA for automatic volume-switch . . .
	\]				;[453] NICE INFORMATIVE TEXT
		PUSHJ	P,.TSTRG##	;[453] TO TELL THE USER WHAT IS HAPPENING
		MOVEI	T3,DC		;[453] TAPE CHANNEL
		MOVEI	T2,.TFFEV	;[453] TAPOP. FUNCTION
		MOVE	T1,[2,,T2]	;[453] AND TAPOP. ARG POINTER TO
		TAPOP.	T1,		;[453] ASK MONITOR/MDA TO SWITCH VOLUMES
		 SKIPA	P3,T1		;[453] FAILED!
		JRST	MTFEO5		;[453] CONTINUE PROCESSING NEXT TAPE VOLUME
		N$FAIO	(CGN,Couldn't get next volume, error )
	MTFEO4:	MTUNL.	DC,		;[453] PUNT CURRENT TAPE VOLUME
		MOVEI	T1,[ASCIZ/$Mount next volume, type "C" to continue, "E" to exit: /]
 REP 23/69	;11C10
		POP	P,T1		;[412] RESTORE ADDRESS OF TYPEOUT
 WIT
	MTFEO5:	POP	P,T1		;[412] RESTORE ADDRESS OF TYPEOUT
 REP 5/72	;11C11
	MTFCSS:	MOVEI	T1,[ASCIZ /continue/]
		SKIPA
	MTFSSS:	MOVEI	T1,[ASCIZ /start/]
 WIT
	MTFSSS:	MOVEI	T1,[ASCIZ /start/]  ;[462] INDICATE START OF SAVE SET
		SETOM	AMWCNT		;[462] INIT AMW COUNTER ONLY ON "START"
		CAIA			;[462] JOIN COMMON START/CONTINUE CODE
	MTFCSS:	MOVEI	T1,[ASCIZ /continue/]  ;[462] INDICATE CONTINUATION
 INS 25/72	;11C12
		SETZM	B$HRTN		;[456] CLEAR NEW-TAPE-VERIFICATION FLAG
 REP 42/79	;11C13
		PUSHJ	P,[N$WARN (AMW,<File attributes may be wrong, proceeding . . .>)  ;[417]
 WIT
		PUSHJ	P,[AOSE	AMWCNT		;[462] FIRST TIME THIS SAVE SET?
			POPJ	P,		;[462] NO, IGNORE FURTHER JUNK
			N$WARN (AMW,<File attributes may be wrong, proceeding . . .>)  ;[417]
 REP 29/122	;11C14
		JRST	[CAIE	T1,T$FIL;[412] NO, FILE RECORD?
 WIT
		JRST	[CAIN	T1,T$FIL;[466] NO, FILE RECORD?
 INS 30/136	;11C15
		TLNN	T4,-1		;[454] PPN OR PATH POINTER?
		SKIPE	.PTPPN(T4)	;[454] PATH POINTER, ANYTHING THERE?
		CAIA			;[454] VALID DIRECTORY, TYPE IT OUT
		POPJ	P,		;[454] NULL DIRECTORY, DON'T LIST "[0]"
 INS 9/152	;11C16
		TRNE	F,R.WORDS	;[451] /WORDS SPECIFIED?
		PUSHJ	P,LSPC4		;[451] YES, ALLOW FOR WIDER COLUMN
 REP 38/173	;11C17
		MOVE	T1,UFDPPN	;UFD/PATH POINTER
		TLNN	T1,-1		;UFD OR PATH POINTER?
		JRST	DOFND2		;PATH POINTER
		PUSHJ	P,DFPUT		;WORD 2
 WIT
		SKIPN	T1,UFDPPN	;[454] UFD/PATH POINTER
		JRST	DOFND1		;[454] BLANK, WRITE OUT 0'S
		TLNN	T1,-1		;UFD OR PATH POINTER?
		JRST	DOFND2		;PATH POINTER
	DOFND1:	PUSHJ	P,DFPUT		;[454] WORD 2
 INS 32/179	;11C18
	AMWCNT:	BLOCK	1		;[462] COUNT OF SILLY FILES THIS SAVE SET
 SUM 139662