;
;CORRECTION FILE FOR SRD UTILITY
;
;THIS MODULE CONTAINS ALL THE CORRECTIONS SINCE
;BASE LEVEL 2 OF SRD WAS ESTABLISHED
;
;WHEN A MODULE IS UPDATED FROM IS STATE AS OF
;ESTABLISHMENT AS BASE LEVEL 2, THE MODULE IS RENAMED
;FROM ".MAC" TO ".002".
;THIS CORRECTION FILE WILL THEN CREATE THE NEW MACRO SOURCE FROM
;THE ORIGINAL. THIS WAS, SRD /SE:*.002 WILL LIST THE CHANGED MODULES.
;
;
;MODULE: SRDINI
;
;PROBLEM:
;	FOR WILD CARD DIRECTORY OPTIONS, THE DEVICE
;	SPECIFIED ON THE COMMAND LINE WAS IGNORED AND
;	DEIVCE "SY:" WAS USED.
SRDINI.MAC=SRDINI.002
-2,2
	.IDENT	/V2.1/		;15-JUN-76
-174,174
-178
	TST	NXUIC$		;DOING WILD CARD OPERATION?
	BEQ	10$		;BR IF NO
	CALL	.PRSDV		;PARSE DEVICE ONLY
	BCC	INIEX		;EXIT INIT IF OK
	FERR	PRSE		;INDICATE ERROR
10$:
-212
INIEX:				;INITIALIZER EXIT POINT
/
;
;MODULE: SRDLST
;
;ENHANCEMENT:	PRINT DEVICE NAME ON LISTING
;
SRDLST.MAC=SRDLST.002
-2,2
	.IDENT	/V2.1/		;15-JUN-76
-159
	MOV	<UFDFDB+F.FNB+N.DVNM>,(R0)+ ;COPY DEVICE NAME INTO LISTING
	MOV	<UFDFDB+F.FNB+N.UNIT>,R1 ;GET UNIT NUMBER
	ASR	R1
	ASR	R1
	ASR	R1			;DIVIDE BY 10(OCTAL)
	BEQ	1$		;BR IF UNIT LESS THAN 10(OCTAL)
	ADD	#'0,R1		;MAKE PRINTABLE
	MOVB	R1,(R0)+	;INSERT INTO LISTING
1$:	MOV	<UFDFDB+F.FNB+N.UNIT>,R1 ;GET UNIT BACK
	BIC	#177770,R1	;REDUCE TO <0-7>
	ADD	#'0,R1		;ADD IN ASCII BIAS
	MOVB	R1,(R0)+	;INSERT IN LISTING
	MOVB	#':,(R0)+	;NOW DELINIT DEVICE NAME
/