Вывести текущую дату (число, месяц, год)

LOCALS
 
.model tiny
 
.code
 
        org     100h
main    proc
 
        jmp     start
 
Year    dw      0
Month   dw      0
Day     dw      0
 
English         label
        dw      offset  EnJanuary
        dw      offset  EnFebruary
        dw      offset  EnMarch
        dw      offset  EnApril
        dw      offset  EnMay
        dw      offset  EnJune
        dw      offset  EnJuly
        dw      offset  EnAugust
        dw      offset  EnSeptember
        dw      offset  EnOctober
        dw      offset  EnNovember
        dw      offset  EnDecember
 
Ukrainian       label
        dw      offset  UkJanuary
        dw      offset  UkFebruary
        dw      offset  UkMarch
        dw      offset  UkApril
        dw      offset  UkMay
        dw      offset  UkJune
        dw      offset  UkJuly
        dw      offset  UkAugust
        dw      offset  UkSeptember
        dw      offset  UkOctober
        dw      offset  UkNovember
        dw      offset  UkDecember
 
Russian         label
        dw      offset  RuJanuary
        dw      offset  RuFebruary
        dw      offset  RuMarch
        dw      offset  RuApril
        dw      offset  RuMay
        dw      offset  RuJune
        dw      offset  RuJuly
        dw      offset  RuAugust
        dw      offset  RuSeptember
        dw      offset  RuOctober
        dw      offset  RuNovember
        dw      offset  RuDecember
 
EnJanuary       db      'January', '$'
EnFebruary      db      'February', '$'
EnMarch         db      'March', '$'
EnApril         db      'April', '$'
EnMay           db      'May', '$'
EnJune          db      'June', '$'
EnJuly          db      'July', '$'
EnAugust        db      'August', '$'
EnSeptember     db      'September', '$'
EnOctober       db      'October', '$'
EnNovember      db      'November', '$'
EnDecember      db      'December', '$'
 
UkJanuary       db      'Sichen', '$'
UkFebruary      db      'Ljytij', '$'
UkMarch         db      'Berezen', '$'
UkApril         db      'Kviten', '$'
UkMay           db      'Traven', '$'
UkJune          db      'CHerven', '$'
UkJuly          db      'Lipen', '$'
UkAugust        db      'Serpen', '$'
UkSeptember     db      'Veresen', '$'
UkOctober       db      'Zhovten', '$'
UkNovember      db      'Listopad', '$'
UkDecember      db      'Gruden', '$'
 
RuJanuary       db      'yanvarya', '$'
RuFebruary      db      'fevralya', '$'
RuMarch         db      'marta', '$'
RuApril         db      'aprelya', '$'
RuMay           db      'maya', '$'
RuJune          db      'iyunya', '$'
RuJuly          db      'iyulya', '$'
RuAugust        db      'avgusta', '$'
RuSeptember     db      'sentyabrya', '$'
RuOctober       db      'oktyabrya', '$'
RuNovember      db      'noyabrya', '$'
RuDecember      db      'dekabrya', '$'
 
CrLf            db      0Dh, 0Ah, '$'
 
start:
        mov     ah,     2Ah
        int     21h
        mov     Year,   cx
        mov     ax,     0
        mov     al,     dh
        mov     Month,  ax
        mov     al,     dl
        mov     Day,    ax
        mov     ax,     Day
        call    OutInt
        mov     al,     '.'
        int     29h
        mov     ax,     Month
        call    OutInt
        mov     al,     '.'
        int     29h
        mov     ax,     Year
        call    Show_AX
        mov     ah,     09h
        lea     dx,     CrLf
        int     21h
        lea     bx,     English
        call    ShowDate
        lea     bx,     Ukrainian
        call    ShowDate
        lea     bx,     Russian
        call    ShowDate
 
        int     20h
main    endp
                                    
                                    
ShowDate        proc
        push    ax
        push    bx
        push    dx
        mov     ax,     Day
        call    OutInt
        mov     al,     ' '
        int     29h
        mov     ax,     Month   
        dec     ax
        add     bx,     ax
        add     bx,     ax
        mov     ah,     09h
        mov     dx,     [bx]
        int     21h
        mov     al,     ' '
        int     29h
        mov     ax,     Year
        call    Show_AX
        mov     ah,     09h
        lea     dx,     CrLf
        int     21h
 
        pop     dx
        pop     bx
        pop     ax
        ret
ShowDate        endp
                         
                         
OutInt proc
        push    ax
        push    dx
        aam
        add     ax,3030h
        mov     dl,ah
        mov     dh,al
        mov     ah,02
        int     21h
        mov     dl,dh
        int     21h
        pop     dx
        pop     ax
        ret
OutInt endp
                                    
              
                                    
Show_AX proc
        push    ax
        push    bx
        push    cx
        push    dx
        push    di
 
        mov     cx, 10
        xor     di, di      
 
        or      ax, ax
        jns     @@Conv
        push    ax
        mov     dx, '-'
        mov     ah, 2          
        int     21h
        pop     ax
 
        neg     ax
 
@@Conv:
        xor     dx, dx
        div     cx           
        add     dl, '0'       
        inc     di
        push    dx             
        or      ax, ax
        jnz     @@Conv    
        
@@Show:
        pop     dx             
        mov     ah, 2          
        int     21h
        dec     di             
        jnz     @@Show
 
        pop     di
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
Show_AX endp
 
end     main