oin:	ld	b,0		; ANSWER :=0;
oinloop:call	get		; A := INPUT [character];
	cp	'0'		; is A LT '0'?
	ret	c		; if so then return;
	cp	'8'		; is A LT '8'?
	ret	nc		; If not then return;
	and	7		; A := A & b'00000111' [mask loworder];
	ld	c,a		; C := A;
	ld	a,b		; A := ANSWER;
	rlca			; rotate A left three
	ret	c		;   bit positions
	rlca			;   and check for
	ret	c		;   overflow into
	rlca			;   CARRY after
	ret	c		;   each operation;
	or	c		; A := A OR ANSWER;
	ld	b,a		; ANSWER := A;
	jp	oinloop		; reiterate for next digit;