XOT:	MVI	C,4		; CNT := 4;
XOTLOOP:XRA	A		; CARRY := 0; A := 0 [clear A, CARRY];
	DAD	H		; Shift four bits of ANSWER
	RAL			; into A using
	DAD	H		; two bvte addition
	RAL			; with CARRY
	DAD	H		; receiving each
	RAL			; bit from the high
	DAD	H		; order due to overflow;
	RAL
	CPI	10		; is A LT 10 [test for numeric digit]?
	JC	XOTASCII	; if so then go form ASCII character code;
	ADI	7		; if not then A := A + 7 [adjust to alpha];
XOTASCII:ADI	'0'		; A := A + '0' [convert to ASCII code];
	CALL	PUT		; OUTPUT :=A;
	DCR	C		; CNT := CNT - 1;
	JNZ	XOTLOOP		; if CNT NE 0 then repeat;
	RET			; else return to caller;