bot:	ld	c,8		; CNT := 8;
botloop:ld	a,b		; A := ANSWER;
	rlca			; CARRY := A7; rotate A Left;
	ld	b,a		; ANSWER:=A;
	ld	a,18h		; A :=b'00011000';
	rla			; rotate A left; A0 = CARRY;
	call	put		; OUTPUT := A;
	dec	c		; CNT :- CNT - 1;
	jp	nz,botloop	; if CNT NE 0 then repeat;
	ret			; else return;