CSEG AT 0
AJMP reset

CSEG AT 30h
reset:
MOV SCON,#50h ; uart w trybie 1 (8 bit), REN=1
MOV TMOD,#20h ; licznik 1 w trybie 2
MOV TH1,#0FDh ; 9600 Bds at 11.0592MHz
SETB TR1 ; uruchomienie licznika
CLR TI ; wyzerowanie flagi wysłania

loop:
JNB RI,sprawdz ; sprawdzenie flagi odbioru
MOV A,SBUF ; czytanie z uarta
CLR RI ; zerowanie flagi odbioru
CLR P2.0
JNB P2.6,incerment
JNB P2.7,decrement

man:
MOV SBUF,A ; zapis do uarta
JNB TI,$ ; czekanie na opróżnienie bufora nadajnika
CLR TI ; wyzerowanie flagi wysłania
SETB P2.0
AJMP loop

sprawdz:
JNB P3.6,led1
JNB P3.7,led2
LJMP loop

led1:
MOV P2, #255
CLR P2.6
LJMP loop

led2:
MOV P2, #255
CLR P2.7
LJMP loop

incerment:
INC A
LJMP man

decrement:
DEC A
LJMP man