LCALL WAIT_KEY //numer klawisza w A
MOV R2,A //skopiowanie A
MOV R3,#8 //8 bitów ma być wyświetlonych
FOR1:
MOV A,R2 //odtworzenie A
RLC A //MSB jest teraz w C
MOV R2,A //zachowanie zmienionego A
IF1:
JC ELSE1 //jeśli C jest równe 1 to skok do ELSE1
MOV A,#'0'
LCALL WRITE_DATA
SJMP ENDIF1
ELSE1:
MOV A,#'1'
LCALL WRITE_DATA
ENDIF1:
ENDFOR1:
DJNZ R3,FOR1 //zmniejsz R3 i skok gdy różne od zera