;**************************************************************
;TABLE LOOK UP ROUTINE. SEARCHES FIRST BYTE OF THREE BYTE TABLE OF
;RECORDS FOR A MATCH OR ZERO. ZERO INDICATES END OF TABLE WITH NO
;MATCH, RETURNED IN A REG.H,L LOADED WITH SECOND TWO BYTES OF TABLE
;IF MATCH FOUND.
;**************************************************************

LOOKUP	MOV B,A			;SAVE
LOOKU1	MOV A,M			;GET FIRST BYTE OF RECORD
	LXI D,CURLIN
	ORA A
	RZ			;DONE,NO MATCH
	CMP B			;SAME AS REQUESTED?
	JNZ TBLUP1		;NO
	INX H
	MOV E,M
	INX H
	MOV D,M
	XCHG
	ORA A			;SET FLAGS
	RET

TBLUP1	INX H
	INX H
	INX H			;BUMP TO NEXT RECORD
Š	JMP LOOKU1