Advertisement
Guest User

Untitled

a guest
Oct 14th, 2019
260
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. G0 EQU P2.0; PRZYPISANIE ALIASU PORTOM (DIOIDY I GUZIKI)
  2. G1 EQU P2.1
  3. G2 EQU P2.2
  4. G3 EQU P2.3
  5. dioda0  EQU P2.4
  6. dioda1  EQU P2.5
  7. dioda2  EQU P2.6
  8. dioda3  EQU P2.7
  9.  
  10. CSEG
  11. ORG 0000H
  12.     JMP START
  13. ORG 0060H
  14. Start:
  15.     SETB dioda0
  16.     SETB dioda1
  17.     SETB dioda2
  18.     SETB dioda3
  19.     Czekaj0:
  20.     JNB G0, Czekaj1
  21.     JNB G1, Czekaj2
  22.     JNB G2, Czekaj3
  23.     JNB G3, Czekaj4
  24.     JMP Czekaj0
  25. Cekaj1:
  26.     CLR Dioda0
  27.     JNB G0,Czekaj1
  28.     JMP Start
  29. Cekaj2:
  30.     CLR Dioda1
  31.     JNB G0,Czekaj2
  32.     JMP Start
  33. Cekaj3:
  34.     CLR Dioda2
  35.     JNB G0,Czekaj3
  36.     JMP Start
  37. Cekaj4:
  38.     CLR Dioda3
  39.     JNB G0,Czekaj4
  40.     JMP Start
  41. Koniec:
  42.     JMP Koniec
  43. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement