; This file updates SRDOPR.MAC;1 from SRD V6.4.
SRDOPR.MAC;2/AU=SRDOPR.MAC;1
\
-/.IDENT/,.
	.IDENT	-6.5-		; Jan-85
-/MEMORY/
;-
-/headings and diagnostic/
;
;
;	VERSION 6.5 - 16-Jan-85		(;WG001)
;
;		SRD Working Group
;
;		Add support for named directories.
;
;=
%
-,,/;WG001/
-/SRDOPR:/
-/7$:/
-/MOV...#UFDFDB+/
	.IF DF	N$$DIR		; If named directories supported
	MOVB	#200,GRPBIN	; Named directories are assumed to
	MOVB	#200,GRPMEM	;   have UIC [200,200]
	.IFF	;N$$DIR
-/MOVB...R1,MEMBIN/
	.ENDC	;N$$DIR
-/701$:/
-/MOVB...#'[/
	.IF DF	N$$DIR		; If named directories supported
	MOV	UFDFDB+F.FNAM,R1 ; Get first part of directory name
	CALL	$C5TA		; Convert first three characters to ASCII
	MOV	UFDFDB+F.FNAM+2,R1 ; Get next part of directory name
	CALL	$C5TA		; Convert next three characters to ASCII
	MOV	UFDFDB+F.FNAM+4,R1 ; Get last part of directory name
	CALL	$C5TA		; Convert last three characters to ASCII
703$:	CMPB	-(R0),#<' >	; Trim trailing blanks
	BEQ	703$
	INC	R0		; Point to next character position in string
	.IFF	;N$$DIR
-/MOVB...MEMBIN/
-/CALL...$CBTMG/
	.ENDC	;N$$DIR
/