;*/*/*/*/*/*/*/*/*/* STACK SEGMENT *\*\*\*\*\*\*\*\*\*\ 

stacksg segment para stack 'stack'
        dw 32 dup('?')
stacksg ends

;*/*/*/*/*/*/*/*/*/* DATA SEGMENT *\*\*\*\*\*\*\*\*\*\ 

datasg segment para 'data'
msg  db "------------------------------------------------------------",'$'
msg0 db "This program split zoj & fard digits and found sum asci code",'$'
msg1 db "Enter  a String: ",'$'
msg2 db "Sum of Zoj number: ",'$'
msg3 db "Sum of Fard number: ",'$'
msg4 db "Zoj Chars: ",'$'
msg5 db "Fard chars: ",'$'
msg6 db "Made by REZA AKHLAGHY & MOHAMMAD SHERAFAT",'$'
strlist   label  byte
max db 10
len   db ?
input_string db 10 dup(' ')
count db 0 
o_char db 10 dup(' '),'$'
e_char  db 10 dup(' '),'$'
e_sum dw ?
o_sum dw ?
e_sum_2_str db  5 dup (?),'$'
o_sum_2_str db  5 dup (?),'$'	
datasg ends

;*/*/*/*/*/*/*/*/*/* CODE SEGMENT *\*\*\*\*\*\*\*\*\*\

codesg segment para 'code'

main proc far
assume cs:codesg,ds:datasg,es:codesg   
 	mov  ax,datasg
	mov  ds,ax

;*/*/*/*/*/*/*/*/*/* CLEAR SCREEN *\*\*\*\*\*\*\*\*\*\

	mov ax,0600h
        mov bh,28
        mov cx,0000
        mov dx,184fh
        int 10h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,1
	mov dl,8
	mov bh,0
	int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,2
	mov dl,8
	mov bh,0
	int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE0 *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg0
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,3
	mov dl,8
	mov bh,0
	int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,5
	mov dl,14
	mov bh,0
	int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE6 *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg6
	mov al,0
        mov ah,09h
        int 21h

	
;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,10
	mov dl,30
	mov bh,0
	int 10h
	
;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE1 *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg1
	mov ah,9h
	int    21h
	
;*/*/*/*/*/*/*/*/*/* GET THE STRING *\*\*\*\*\*\*\*\*\*\

	mov ah,0ah
	lea dx,strlist
	int 21h
;*/*/*/*/*/*/*/*/*/* -------------MAIN OPRATION----------- *\*\*\*\*\*\*\*\*\*\	
	
	lea si,o_char
	lea di,e_char
	lea bx,input_string
	mov cl,0
start_of_loop:
	cmp cl,len
	je  end_of_program
	mov al,[bx]
	mov ah,0
	mov dl,2
	div dl
	mov al,[bx]
	cmp ah,1
	je  case_o
	cbw
	add e_sum,ax
	mov dh,[bx]
	mov [di],dh
	inc di
	;74
	inc bx
	inc cl
	jmp start_of_loop
case_o:
	cbw
	add o_sum,ax
	mov dh,[bx]
	mov [si],dh
	inc si
	inc bx
	inc cl
	jmp start_of_loop
end_of_program:
	
;*/*/*/*/*/*/*/*/*/* CONVERT NUMBER 2 STRING _ FARD *\*\*\*\*\*\*\*\*\*\

        lea bx, o_sum_2_str
	mov ax, o_sum
	mov cx,1000
	mov dx,0
	div cx
	add al,30h
	mov [bx],al
	mov o_sum,dx
	inc bx
;-------
        	mov ax, o_sum
	mov cl,100
	div cl
	add al,30h
	mov [bx],al
	mov al,ah
	mov ah,0
	mov o_sum,ax
	inc bx
;-------
 	mov ax, o_sum
	mov cl, 10
	div cl
	add al,30h
	mov [bx],al
	mov al,ah
	mov ah,0
	inc bx
;-------
 	add al,30h
	mov [bx],al
	
;*/*/*/*/*/*/*/*/*/* CONVERT NUMBER 2 STRING _ ZOJ *\*\*\*\*\*\*\*\*\*\

        	lea bx, e_sum_2_str
	mov ax, e_sum
	mov cx,1000
	mov dx,0
	div cx
	add al,30h
	mov [bx],al
	mov e_sum,dx
	inc bx
;-------
        mov ax, e_sum
	mov cl,100
	div cl
	add al,30h
	mov [bx],al
	mov al,ah
	mov ah,0
	mov e_sum,ax
	inc bx
;-------
 	mov ax, e_sum
	mov cl, 10
	div cl
	add al,30h
	mov [bx],al
	mov al,ah
	mov ah,0
	inc bx
;-------
 	add al,30h
	mov [bx],al
	
;*/*/*/*/*/*/*/*/*/* CLEAR SCREEN *\*\*\*\*\*\*\*\*\*\

        mov ax,0600h
        mov bh,28
        mov cx,0000
        mov dx,184fh
        int 10h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,10
	mov dl,30
	mov bh,0
	int 10h
	
;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE2 *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg2
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* PRINT SUM OF ZOJ *\*\*\*\*\*\*\*\*\*\

	lea   dx,e_sum_2_str
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,11
	mov dl,30
	mov bh,0
	int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE3 *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg3
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* PRINT SUM OF FARD *\*\*\*\*\*\*\*\*\*\

	lea   dx,o_sum_2_str
        mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,12
	mov dl,30
	mov bh,0
	int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE4 *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg4
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* PRINT ZOJ CHARS *\*\*\*\*\*\*\*\*\*\

	lea    dx,e_char
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,13
	mov dl,30
	mov bh,0
	int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE5 *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg5
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* PRINT FARD CHARS *\*\*\*\*\*\*\*\*\*\

	lea    dx,o_char
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

	mov ah,2h
	mov dh,18
	mov dl,14
	mov bh,0
	int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE6 *\*\*\*\*\*\*\*\*\*\

	lea    dx,msg6
	mov al,0
        mov ah,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* CLOSE PROGRAM *\*\*\*\*\*\*\*\*\*\

;*/*/*/*/*/*/*/*/*/* MOVE CURSOR *\*\*\*\*\*\*\*\*\*\
	mov ah,2h
	mov dh,23
	mov dl,8
	mov bh,0
	int 10h

	mov  ax,4c00h
	int     21h

main endp
       codesg ends
	    end main