/037 SSEUUBROUTINE SEARCHES UNUSED BLOCK ON DISK (DISKMON)
/AND RESERVES IT FOR FILE	(DISK MOITOR SYSTEM)
/
/CALLING:JMS SAMFIL	WITH INT. FILE NR IN AC
/	RETURN DISK FULL
/	RETURN NORMAL WITH BLOCKNR IN AC
/
/
SAMFIL,	0
	DCA SAMSAV	/SAVE INT FILE #
	JMS SAMSRC	/SEARCH FOR EMPTY BLOCK
	JMP I SAMFIL	/NOT FOUND SO DISK FULL
	CLA CMA		/BLCKNR STILL IN SAMBKN
	TAD 10		/AUTO INDEX STILL ON SPOT
	DCA 10
	TAD SAMMSK	/WHICH HALF IS MASK
	TAD M77
	SNA CLA		/LEFT OR RIGHT?
	JMP SAMRGT	/MASK IS ON RIGHT HAL
	TAD SAMSAV
	CLL RTL		/PUT INT FILE # ON LEFT HALF
	RTL
	RTL
	DCA SAMSAV
	JMP  +3
SAMRGT,	TAD I 10
	TAD SAMSAV	/ADD INT FILE #
	DCA SAMSAV	/TEMP. STORAGE
	CMA
	TAD 10
	DCA 10
	TAD SAMSAV	/PUT IN BUFFER
	DCA I 10
	TAD C5
	DCA FUNCTI
	TAD SAMBFA
	DCA BUFADR
	JMS SAMRDB	/RESTORE SAM ON DISK
	ISZ SAMFIL
	TAD SAMBKN	/GETBLOCKNR
	JMP I SAMFIL	/RETURN
/
/VARIABLES
/
SAMSAV,	0
/
/GENERAL CONSTANTS
/M77,	-77
C5,	5