; This file updates SRDNUD.MAC;1 from SRD V6.4. SRDNUD.MAC;2/AU=SRDNUD.MAC;1 \ -/.IDENT/,. .IDENT -6.5- ; Jan-85 -/CEF001/+1 ; ; ; VERSION 6.5 - 16-Jan-85 (;WG001) ; ; SRD Working Group ; ; Named directories of the form "[ZZ ... ]" are considered ; "system directories" on P/OS. ; If named directories not supported, ignore any that exist ; in the MFD. ; ;= -.,. % -,,/;WG001/ -/SRDNUD::/ -/43$:/ .IF NDF N$$DIR ; If named directories not supported CMP D.FNAM(R2),#<^R000> ; A numeric directory? BLO 60$ ; LO - no, ignore it .ENDC ;N$$DIR -/CMP...^R010/,/BHIS/ .IF DF P$$OS CMP D.FNAM(R2),#<^RZZ > ; P/OS system directory? BLO 70$ ; LO - no, neither type CMP D.FNAM(R2),#<^RZZ9> ; P/OS system directory? BLOS 60$ ; LOS - yes .ENDC CMP D.FNAM(R2),#<^R010> ; A system directory? BHI 50$ ; HI - no, a numeric non-system dir .IF DF N$$DIR ; If named directories supported CMP D.FNAM(R2),#<^R000> ; A numeric system directory? BHIS 60$ ; HIS - yes, a numeric system directory .IFF ;N$$DIR ; If named directories not supported, already know ... BR 60$ ; We have a numeric system directory .ENDC ;N$$DIR /