;GO (HEX ADDR) FROM DR DOBS JOURNAL
	ORG	100H
TBUFF	EQU	80H
FCB	EQU	5CH
	LXI	D,0
	LXI	H,FCB+1
	MVI	B,4
GO	MOV	A,M		;GET DIGIT
	CPI	20H		;CHECK FOR SPACE
	JNZ	GO1
	MVI	A,30H
GO1	CALL	HEXIN
	RC
	INX	H
	DCR	B
	JNZ	GO
	XCHG
	PCHL
HEXIN	XCHG
	CALL	CHECK
	RC
	DAD	H
	DAD	H
	DAD	H
	DAD	H
	ORA	L
	MOV	L,A
	XCHG
	RET
CHECK	SUI	30H
	RC
	CPI	0AH
	CMC
	RNC
	SUI	7H
	CPI	0AH
	RC
	CPI	10H
	CMC
	RET
	END
