rendered paste body MVI B,00H
MVI A,10H
STA 0B01H
STA 0B02H
STA 0B03H
STA 0B04H
STA 0B05H
START: MVI A,FFH
STA 3000H
LDA 2000H
MOV B,A
RLC
JC ON1
RLC
JC ON2
RLC
JC ON3
RLC
JC ON4
RLC
JC ON5
RLC
JC ON6
RLC
JC ON7
RLC
JC ON8
JMP NEXT
ON1: MVI A,80H
CMA
STA 3000H
CMA
JMP NEXT
ON2: MVI A,40H
CMA
STA 3000H
CMA
JMP NEXT
ON3: MVI A,20H
CMA
STA 3000H
CMA
JMP NEXT
ON4: MVI A,10H
CMA
STA 3000H
CMA
JMP NEXT
ON5: MVI A,08H
CMA
STA 3000H
CMA
JMP NEXT
ON6: MVI A,04H
CMA
STA 3000H
CMA
JMP NEXT
ON7: MVI A,02H
CMA
STA 3000H
CMA
JMP NEXT
ON8: MVI A,01H
CMA
STA 3000H
CMA
JMP NEXT
NEXT: MOV D,A
CALL KIND
MOV E,A
MOV A,D
LOOP1: DCR E
JZ START
RRC
JC SHOW2
JMP SHOW1
SHOW2: MVI A,F0H
CMA
STA 3000H
CMA
JMP LOOP1
SHOW1: CMA
STA 3000H
CMA
JMP LOOP1
JMP START
END