Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - filio.c08
There is 1 other file named filio.c08 in the archive. Click here to see a list.
 REP 13/81	;08C1
		MOVE	U,DEVUNI##(F)	; NOT SET IF FILOP
 WIT
		PUSHJ	P,SETU		;NOT SET IF FILOP
		  POPJ	P,
 DEL 6/97	;08C2
		SKIPL	DEVSWP##(F)	;SWAPPER NEVER GIVES UP
		JUMPL	T1,HNGD11	;GIVE UP IF DIDN'T RECOVER
 INS 8/211	;08C3
		HRRZ	T2,UNISTR##(U)		;MOUNTED AS A STR?
		JUMPE	T2,CPOPJ##		;NO, DON'T NEED TO
 INS 14/211	;08C4
		JUMPL	T1,CPOPJ##		;DEVDMP IS FUNNY DURING FORMATTING
 SUM 87656