BOT:	MVI	C,8		; CNT := 8;
BOTLOOP:MOV	A,B		; A := ANSWER;
	RLC			; CARRY := A7; rotate A Left;
	MOV	B,A		; ANSWER:=A;
 	MVI	A,18H		; A :=b'00011000';
	RAL			; rotate A left; A0 = CARRY;
	CALL	PUT		; OUTPUT := A;
	DCR	C		; CNT :- CNT - 1;
	JNZ	BOTLOOP		; if CNT NE 0 then repeat;
	RET			; else return;