.TITLE	DIR
	.SBTTL	READ DIRECTORY
;************************************************************************
;
;	READ THE DIRECTORY OF A GIVEN CIL
;		R4 = PTR TO 1ST BLOCK OF CIL
;
;************************************************************************
DIR::	TST	(R4)+			;SKIP "1"
	ADD	(R4)+,R4		;SKIP OVER HEADER RECORD
DIROP::	TST	(R4)+			;CHECK RECORD SIZE
	BNE	.+6			;KEEP GOING IF NOT ZERO
	SEC				;FLAG END OF DIRECTORY
	RETURN				;IF ZERO, END OF DIRECTORY
	TST	(R4)+			;SKIP
	TST	(R4)+			;SKIP
	MOV	(R4),LADR		;LOAD ADDRESS
	MOV	(R4)+,ARG11+4		;LOAD ADDRESS
	MOV	(R4),SIZE		;SIZE
	MOV	(R4)+,ARG11+2		;SIZE
	MOV	(R4)+,ARG11+6		;START ADDRESS
	TST	(R4)+			;SKIP ODT ADDRESS
	MOV	(R4)+,BLOCK		;SAVE RELATIVE BLOCK START
	INC	BLOCK			;COUNT THE ONE WE'RE IN
	MOV	(R4),NAME		;NAME
	MOV	(R4)+,ARG8		;
	MOV	(R4),NAME+2		;2ND WORD OF NAME
	MOV	(R4)+,ARG9		;
	MOV	(R4)+,ARG10		;IDENT
	MOV	(R4)+,ARG11		;
	CLC				;FLAG THAT WE AREN'T DONE
	RETURN
	.END