org 0000h
ljmp start

org 0023h ;tutaj trafi przy przerwaniu, kiedy dostanie znak
ljmp irq


org 0100h
START:
lcall setup
mov r0,#0
mov sbuf,#' ' ;ładuj spacje

sjmp $ ;zapetl w siebie


SETUP:
mov scon,#01010000b ;ustawienie bitów w rejestrze scon obsuguje transmisje szereg.
mov tmod,#00100001b ;ustawienie licznikow
orl pcon,#80h ;??????
mov th1,#250 ;ustawienie licznika
mov tl1,#250
setb tr1 ;
setb es ; ustawienie bitów
setb ea ;
ret

IRQ:
push acc
push dph
push dpl
push psw
jb TI,nad ;jesli bit TI !=0 skocz do nad
jb RI,odb
IRQ_END: ;koniec obslugi przerwania
pop psw
pop dpl
pop dph
pop acc
reti
NAD:
mov dptr,#TEXT ;ustaw do DPTR adres gdzie znajduje sie nasz tekst
mov a,r0 ;ustaw akumulator na wartosc z rejestru RO
movc a,@a+dptr ;pobieraj dane w sposob ciagly zakumulatora i ?????????????????/
jnz NAD_DAL ;j4ezeli nie zerem skocz no nad_dal
mov r0,#0
mov a,#' '
NAD_DAL:
mov sbuf,a
inc r0
sjmp IRQ_END

ODB:
sjmp IRQ_END


TEXT:
db 'Politechnika Lodzka, Wydzial Elektrotechniki, Elektroniki, Informatyki i Automatyki',13,10,0

end