.model small
.stack 100h

print macro tekst
mov ah, 9
mov dx, offset tekst
int 21h
endm

.data
komunikat1 db "Data:$"
komunikat2 db "Czas:$"
ent db 10, 13, '$'

.code
START:
mov ax, @data
mov ds, ax

print komunikat1
mov ah, 4
int 1ah
;rok
mov bl, dl
mov bh, ch
shr ch, 4
mov dl, ch
add dl, 30h
mov ah, 2
int 21h
and bh, 00001111b
mov dl, bh
add dl, 30h
int 21h


mov bh, cl
shr cl, 4
mov dl, cl
add dl, 30h
mov ah, 2
int 21h
and bh, 00001111b
mov dl, bh
add dl, 30h
int 21h
; rok koniec

;miesiac
mov dl, '-'
int 21h

mov bh, dh
shr dh, 4
mov dl, dh
add dl, 30h
mov ah,2
int 21h
and bh, 00001111b
mov dl, bh
add dl, 30h
int 21h
;miesiac koniec

;dzien
mov dl, '-'
int 21h

mov bh, bl
shr bl, 4
mov dl, bl
add dl, 30h
mov ah, 2
int 21h
add bh, 00001111b
mov dl, bh
add dl, 30h
int 21h
;dzien koniec

mov ax, 4c00h
int 21h

END START