;----------------------------------------------------------------------
; Locate a Header in the Free Space Pool
;---------------------------------------
;	1) This routine searches the free space pool for the header ID
;	   passed in the accm.
;	2) Register Usage:
;		A  -> Header ID
;		DE -> Returned equal to the Length of the block if Found
;		HL -> Returned equal to the start of the block if Found
;
Find:	ld	hl,pool			;HL:= Start of Free Space Pool

FiLp1:	cp	(hl)			;Loop
	inc	hl
	ld	e,(hl)
	inc	hl			;	DE:= Length of this block
	ld	d,(hl)			;	If (ID matches desired ID)
	ret	z			;		Return

	inc	hl
	add	hl,de			;	HL:= Pointer to start next block
	jr	FiLp1

	Subttl	Banked Bios -- Console Output Translation Routines
	page