;5.Sa se modifice data sistem curenta,citind de la tastatura noua data.

assume cs:cod,ds:date
date segment
     data  db  12,13 dup (?)    ;se citeste de la tastatura "zi:luna:an"
     zi  db  ?
     luna  db  ?
     an  dw  ?
     temp  db  ?
     temp1  db  ?
date ends
cod segment
start:
      mov ax,date
      mov ds,ax
      ;citim noua data de la tastatura
      lea dx,data
      mov ah,0ah
      int 21h
      ;calculam ziua
      mov ax,word ptr data+2
      sub al,'0'
      sub ah,'0'
      mov dl,ah
      mov temp,10
      mul temp
      add al,dl
      mov zi,al
      ;calculam luna
      mov ax,word ptr data+5
      sub al,'0'
      sub ah,'0'
      mov dl,ah
      mul temp
      add al,dl
      mov luna,al
      ;calculam anul
      mov ax,word ptr data+8
      mov cx,word ptr data+10
      sub al,'0'
      sub ah,'0'
      sub cl,'0'
      sub ch,'0'
      mov temp1,ah
      mul temp             
      mul temp           ;ax=al*100
      mov bh,0
      mov bl,temp            
      mul bx             ;dx:ax=al*1000
      mov bx,ax          ;dx:bx=al*1000
      mov al,temp1
      mul temp
      mul temp           ;ax=ah*100
      add bx,ax
      adc dx,0           ;dx:bx=al*1000+ah*100
      mov al,cl
      mul temp
      add al,ch          ;al=cl*10+ch 
      adc ax,0           ;ax=cl*10+ch
      add bx,ax      

      mov an,bx 
      ;setam data sistem curenta
      mov ah,2bh
      mov cx,an
      mov dh,luna
      mov dl,zi
      int 21h
      ;terminam programul
      mov ax,4c00h
      int 21h
cod ends
end start