.MODEL small    ;definicja modelu

    .STACK 100h     ;definicja stosu

    .DATA   ;początek segmentu danych
; ................ definicje zmiennych
dzien_tyg   db ?
dzien_mies  db ?
miesiac     db ?
rok         dw ?
dzis        db 'Dzis jest: $'
nie         db ' Niedziela, $'
pon         db ' Poniedzialek, $'
wto         db ' Wtrorek, $'
sro         db ' Sroda, $'
czw         db ' Czwartek, $'
pia         db ' Piatek, $'
sob         db ' Sobota, $'
dzienmieslan db ?,?,' $'

    .CODE       ;początek segmentu kodu
glowna PROC FAR         ;początek procedury
    MOV AX,@DATA        ; inicjacja rejestru DS. (*)
    MOV DS,AX        ; za pośrednictwem AX (*)
;.......................pozostałe rozkazy procedury
    ;pobranie daty i zapisanie w zmiennych
    mov ah,2AH
    int 21h

    mov dzien_tyg, al
    mov dzien_mies, dl
    mov miesiac, dh
    mov rok, cx

        MOV     AH,9h
        MOV     dx,offset dzis
        INT     21h

        mov     al, dzien_tyg
        cmp     al,0
        je      niedziela
        cmp     al,1
        je      poniedzialek
        cmp     al,2
        je      wtorek
        cmp     al,3
        je      sroda
        cmp     al,4
        je      czwartek
        cmp     al,5
        je      piatek
        jmp     sobota


        niedziela:
        mov  dx,offset nie
        jmp kon_dzien_tyg
        poniedzialek:
        mov  dx,offset pon
        jmp kon_dzien_tyg
        wtorek:
        mov  dx,offset wto
        jmp kon_dzien_tyg
        sroda:
        mov  dx,offset sro
        jmp kon_dzien_tyg
        czwartek:
        mov  dx,offset czw
        jmp kon_dzien_tyg
        piatek:
        mov  dx,offset pia
        jmp kon_dzien_tyg
        sobota:
        mov  dx,offset sob

    kon_dzien_tyg:
    MOV ah,9h
    int 21h

    mov al, dzien_mies
    xor ah,ah
    mov bl,10
    div bl
    or ah,00110000b
    or al,00110000b
    mov dzienmieslan,al
    mov dzienmieslan[1],ah
    mov ah,9h
    mov dx, offset dzienmieslan
    int 21h

    MOV AH,4ch      ;wpisanie do rejestru liczby szesnastkowej 4c (**)
    INT 21H         ;wywołanie przerwania DOS dla zakończenia programu (**)
glowna ENDP         ;koniec procedury

END glowna      ;koniec programu