Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - fal.c09
There is 1 other file named fal.c09 in the archive. Click here to see a list.
 INS 4/2	;09C1

	;6	RDH	18-Mar-84
	;	Fix typo that broke RSX/RSTS/VAX non-wildcarded directory; Do not
	;	generate a FOP field (at FFAD28), just "echo" back whatever the
	;	remote has sent (keeps RSTS happy, probably the right thing to do
	;	anyway).
 REP 15/54	;09C2
		PUSHJ	P,FANTY3	;FORCE SENDING OF NAME MESSAGES FOR "DIRECTORY"
 WIT
		PUSHJ	P,FANTY5	;[6] FORCE NAME MESSAGES FOR "DIRECTORY"
 REP 135/67	;09C3
	FFAD28:	MOVDII	T3,FOP,<TEF>	;ASSUME TRUNCATE TO EOF ON CLOSE
		TXNE	P4,IM.CTG	;CONTIGUOUS ALLOCATION WANTED?
		TFO	T3,CTG		;FLAG CONTIGUOUS ALLOCATION REQUIRED
		TFNE	T3,CTG		;CONTIGUOUS ALLOCATION REQUIRED?
		TFZ	T3,CBT		;YES, THEN NO "BEST TRY OK"
		MOVE	T1,.IOFSB(CO)	;ADDRESS OF FILE SPEC BLOCK
		MOVE	T1,.FXMOD(T1)	;FILE MODS
		TXNN	T1,FX.SUP	;/ERSUPERSEDE?
		TFO	T3,SUP		;NO, OK TO SUPERSEDE
		MOVDM	T3,FOP		;SET MAIN ATTR FILE ACCESS OPTIONS FIELD
		TMO	P1,FOP		;AND FLAG IT IN THE MENU TOO
 WIT
	FFAD28:	TMO	P1,FOP		;[6] "ECHO" WHATEVER FOP THE REMOTE SENT TO US
 SUM 127709