Advertisement
Guest User

Untitled

a guest
Jun 16th, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;rozpoczecie programu
  2. org 0
  3. jmp start
  4.  
  5. ;przerwanie
  6. org 0023h
  7. jmp przer
  8.  
  9. start:
  10.  
  11. mov tmod, #20h              ;timer 1 tryb 2 – automatyczne przeładowanie z th, 8bitów
  12. mov th1, #0fdh              ;prędkość transmisji 9600 b/s, szesnastobitowy licznik układu czasowo-licznikowego (bardziej znaczący bajt licznika T1)
  13. setb tr1                    ;uruchomienie timera 1
  14.  
  15. setb sm1                    ;tryb 1 portu szeregowego, transmisja asynchroniczna, znaki ośmiobitowe, szybkość określona programowo, Baud rate - set by Timer 1 sm1 - 1 sm0 - 0
  16.  
  17. setb ea                     ;ogólne zezwolenie na przerwania
  18. setb es                     ;zezwolenie na przerwanie z transmisji szeregowej
  19. setb ren                    ;umożliwienie odbioru danych
  20.  
  21.  
  22. przycisk:
  23.     jb p2.1, przycisk       ;;sprawdzenie czy przycisk odpowiadajązy za wysyłanie jest nacisnięty
  24.     mov a, #33
  25.     setb acc.7
  26.     mov sbuf, a
  27. puszczono:
  28.     jnb p2.1, puszczono     ;;sprawdzenie czy guzik jest puszczoeny
  29.     sjmp przycisk           ;;skoczenie do sprawdzenia czy guzik jest wciśniety
  30.  
  31. przer: 
  32.     jnb ri, spr             ;;sprawdzanie flagi odpowiadajaczej za odbieranie
  33.     mov a, SBUF             ;;pobieranie wartości z bufora
  34.     clr ri                  ;;wyczysczenie flagi ri odpowiadajączej za odbieranie danych
  35. odbierz:   
  36.     cjne a, #225, koniec    ;;sprawdzenie czy odebrane dane to A jak nie to skacze do koniec
  37.     cpl p2.1                ;;zapalanie diody dla litery A 
  38. spr:
  39.     jnb ti, koniec          ;;sprawdzanie flagi ti odpowiadajacej za wysylanie danych
  40.     clr ti                  ;;czysczenie flagi ti
  41. koniec:
  42.     reti
  43.  
  44. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement