oot:	ld	c,3		; CNT := 3;
	xor	a		; Clear A; Clear CARRY;
	ld	a,b		; A := ANSWER;
	jp	ootskip		; skip around POP first time;
ootloop:pop	af		; restore (A, flags);
ootskip:rla			; rotate A left
	rla			;    by three
	rla			;    bit positions;
	push	af		; save (A, flags);
	and	7		; A := A & b'00000111'
				;    [mask low order];
	or	'0'		; A := A OR b'00110000'
				;    [add hexadecimal 30];
	call	put		; OUTPUT := A;
	dec	c		; CNT:= CNT - 1;
	jp	nz,ootloop	; if CNT NE 0 then repeat;
	pop	af		; flush garbage from stack;
	ret			; return to caller;