/036 SUBROUTINE SEARRHES NAME IN DN-BLOCKS (DISKMON.)
/(DISK MONITOR SYSTEM)
/
/CALL	:JMS DNSRC
/	NA	FIRST TWO CHAR'S IN EXCESS-40 6 BIT
/	ME	LAST	"	"	"	"	"
/	RETURN NAME NOT FOUND	AC-0
/	RETURN NAME FOUND	AC=INT. FILE NR
/
/SUBROUTINE USES AUTO INDEX 11 AND MONITOR DISK HANDLER
/
BUFFER=400
/
DNSRC,	0

	TAD C177	/# FIRST DN-BLOCK
	JMS DNSRBK	///	/READ BLOCK
	TAD I DNSRC
	CIA
	DCA DNSMNA	/- TWO CHAR'S OF NAME
	ISZ DNSRC
	TAD I DNSRC
	CIA
	DCA DNSMME	/- LAST CHAR'S
	ISZ DNSRC
DNSBLK,	CLA CLL IAC RAL	/+2
	TAD DNSBFA	/BUFFER ADDRESS
	DCA 11
	TAD M31		/# ENTRIES IN ONE BLOCK
	DCA DNSCNT
DNSNXT,	TAD I 11	/FIRST HALF OF NAME
	TAD DNSMNA	/COMPARE WITH NAME TO LOOK FOR
	SZA CLA		/EQUAL?
	JMP DNSNOT	/NO TRY NEXT NAME
	TAD I 11	/YES, TEST 2ND. HALF TOO
	TA DNSMME
	SZA CLA		/EQUAL?
	JMP DNSNT1	/NO NEXT NAME
	ISZ 11
	ISZ 11
	TAD I 11
	AND C7		/MASK OF INT FILE #
	ISZ DNSRC
DNSERR,	JMP I DNSRC
/
DNSNOT,	CLA IAC
DNSNT1,	TAD C3
	TAD 11
	DCA 11
	ISZ DNSCNT	/END OF THIS BLOCK?
	JMP DNSNXT	/NO,COMPRE NEXT NAME
	TAD DNSLNK	/YES NEXT BLOCK?
	SNA
	JMP DNSERR	/NO, NAME NOT FOUND
	JJS DNSRBK	/READ THAT BLOCK
	JMP DNSBLK
/
DNSRBK,	0
	DCA FSTBLK
	TAD C3
	DCA FUNCTI
	TAD DNSBFA
	DCA BUFADR
	DCA DNSLNK
	JMS I SYSIO	/MONITOR DISK HANDLER
FUNCT,	0
FSTBLK,	0
BUFADR,	0
DNSLNK,	0
	HLT		/ERROR RETURN
	JMP I DNSRBK
/
/VARIABLES
SYSIO,	7642
DNSMNA,	0
DNSMME,	0
DNSCNT,	0
DNSBFA,	BUFFER
/
/GENERAL CONSTANTS
3,	3
C7,	7
C177,	177
M31,	-31