DSEG    SEGMENT 'DATA'
      ; add your data here!
      mss db 'programmer :               id:          ',"$"
      msg db 'NOTE:max sal 99 moh 1_12 roz 1_30   ',"$"
      msg1 db 'please enter sale tavalod be miladi :  ',"$"
      msg2 db ' sal ',"$"
      msg3 db ' mah ',"$"
      msg4 db ' roz ',"$"
      a dw ?
      b dw ?
      c dw ?
     
      a2 dw ?
      b2 db ?
      c2 db ?
     
      list label byte;adress da marz byte tarif shode
      max db 5;hadeaksar tole list
      len db ?;tedad vaghei caracter khande shode
      buffer db 5 dup (' ');mahale hafeze ke caracter bayad zakhire shavad
      dolar db '$'
     
    
DSEG    ENDS

SSEG    SEGMENT STACK   'STACK'
      db   256  DUP(0)
SSEG    ENDS

CSEG    SEGMENT 'CODE'
   START   PROC    FAR
      ; set segment registers:
      MOV AX, DSEG
      MOV DS, AX
      MOV ES, AX

      ; add your code here
                            
      ;mov ah,0ah;vorod sale tavalod
      ;lea dx,list
      ;int 21h
                mov ah,2h
                mov dh,2
                mov dl,10
                int 10h
      lea dx,mss
      mov ah,9h
      int 21h
                mov ah,2h
                mov dh,5
                mov dl,0
                int 10h
      lea dx,msg
      mov ah,9h
      int 21h
                mov ah,2h
                mov dh,6
                mov dl,0
                int 10h
      lea dx,msg1
      mov ah,9h
      int 21h
     
     
      mov ah,1h    
      int 21h      
      sub al,30h   
      mov dl,al
      mov ax,1000
      mov bx,dx
      mul bx
      mov a,ax
      add a,dx
                                  
      mov ah,1h    
      int 21h      
      sub al,30h   
      mov dl,al    
      mov al,100    
      mul dl
      add a,ax
     
      mov ah,1h    
      int 21h      
      sub al,30h   
      mov dl,al    
      mov al,10    
      mul dl
      add a,ax
     
      mov ah,1h
      int 21h
      sub al,30h
      sub ah,ah
      add a,ax
     
   mov ah,2h
   mov dl,'/'
   int 21h
     
      mov ah,1h    
      int 21h      
      sub al,30h   
      mov dl,al    
      mov al,10    
      mul dl
      mov b,ax
      mov ah,1h
      int 21h
      sub al,30h
      sub ah,ah
      add b,ax
     
   mov ah,2h
   mov dl,'/'
   int 21h
     
      mov ah,1h    
      int 21h      
      sub al,30h   
      mov dl,al    
      mov al,10    
      mul dl
      mov c,ax
      mov ah,1h
      int 21h
      sub al,30h
      sub ah,ah
      add c,ax
     
     ; //******************************1