Advertisement
Guest User

Untitled

a guest
Nov 5th, 2017
128
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;   Nazwisko i Imie: Stadnicki Adrian
  2. ;
  3.     $NOLIST
  4.     $PAGEWIDTH (160)
  5.     $NOPAGING
  6. ;   ---------------------------------------------------------------------------------------
  7. ;   Program 'user.asm' jest przeznaczony dla studentów informatyki UMCS, ktorzy
  8. ;   rozpoczynaja nauke programowania w jezyku asemblera i beda uzywac do tego celu zestawu
  9. ;   dydaktycznego DSM51x.
  10. ;   ---------------------------------------------------------------------------------------
  11. ;   Uwagi studenta:
  12. ;
  13. ;
  14. ;   ---------------------------------------------------------------------------------------
  15.     $LIST
  16. ;   ---------------------------------------------------------------------------------------
  17. ;   program uzytkownika:
  18. ;   ---------------------------------------------------------------------------------------
  19. ;
  20. ;   adresy i stale programowe:
  21. przyklad_1      equ 70              ; do zmiennej 'przyklad_1' przypisano adres 70
  22. przyklad_2      equ 0FFF0h          ; do zmiennej 'przyklad_2' przypisano wartosc 65520
  23.  
  24.  
  25. ;   bity flagowe programu:
  26. t0_flaga        bit     0
  27. t0_flag2        bit     1
  28. przyklad_3      bit 5               ; do bitu 'przyklad_3' przypisano adres 5
  29.  
  30.  
  31. ;   START PROGRAMU:
  32. ;   ---------------
  33.             ljmp    start               ; skocz do strefy przygotowania srodowiska
  34. ;   procedury obslugi przerwan:
  35.  
  36.  
  37.  
  38. ;   przygotowanie srodowiska:
  39. start:
  40.             mov tmod,#00000001b
  41.             setb    tr0         ; wlaczamy uklad T0
  42.             mov r0,#0
  43.  
  44.                             ; start przygotowania srodowiska
  45.  
  46.  
  47. ;   petla programowa:
  48. petla:                          ; petla programowa
  49.             cjne r0,#100d,ptla_10
  50.             lcall obsluga_r0
  51. ptla_10:
  52.             jnb tf0,ptla_20
  53.             lcall obsluga_t0
  54. ptla_20:
  55.             ljmp    petla               ; powrot do poczatku petli
  56. ;
  57. ;   podprogramy:
  58. obsluga_t0:
  59.             inc r0
  60.             clr tf0
  61.             setb    t0_flaga
  62.             ret
  63. obsluga_1:
  64.             clr t0_flaga
  65.             ret
  66. obsluga_r0:
  67.             mov r0,#0
  68.             cpl p1.7
  69.             ret
  70.  
  71. ;   koniec programu
  72. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement