;   Nazwisko i Imie: Stadnicki Adrian
;
    $NOLIST
    $PAGEWIDTH (160)
    $NOPAGING
;   ---------------------------------------------------------------------------------------
;   Program 'user.asm' jest przeznaczony dla studentów informatyki UMCS, ktorzy
;   rozpoczynaja nauke programowania w jezyku asemblera i beda uzywac do tego celu zestawu
;   dydaktycznego DSM51x.
;   ---------------------------------------------------------------------------------------
;   Uwagi studenta:
;
;
;   ---------------------------------------------------------------------------------------
    $LIST
;   ---------------------------------------------------------------------------------------
;   program uzytkownika:
;   ---------------------------------------------------------------------------------------
;
;   adresy i stale programowe:
przyklad_1      equ 70              ; do zmiennej 'przyklad_1' przypisano adres 70
przyklad_2      equ 0FFF0h          ; do zmiennej 'przyklad_2' przypisano wartosc 65520


;   bity flagowe programu:
przyklad_3      bit 5               ; do bitu 'przyklad_3' przypisano adres 5


;   START PROGRAMU:
;   ---------------
            ljmp    start               ; skocz do strefy przygotowania srodowiska
;   procedury obslugi przerwan:



;   przygotowanie srodowiska:
start:
            mov tmod,#00000001b
            setb    tr0         ; wlaczamy uklad T0
            mov A,#0

                            ; start przygotowania srodowiska


;   petla programowa:
petla:                          ; petla programowa
            cjne A,#5d,ptla_10
            lcall obsluga_r0
ptla_10:
            jnb tf0,petla
            lcall obsluga_t0

            ljmp    petla               ; powrot do poczatku petli
;
;   podprogramy:
obsluga_t0:
            inc A
            clr tf0
            ret
obsluga_r0:
            mov A,#0
            cpl p1.7
            ret

;   koniec programu
end