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