Acromatic Form

data segment
s db 0dh,0ah,'ENTER THE STRING$'
l db 1 dup(0)
t db 0dh,0ah,'ACROMATIC FORM IS:$'
r db 0dh,0ah,'INPUT STRING IS:$'
old db 100 dup(0)
new db 100 dup(0)
data ends
code segment
assume cs:code,ds:data,es:data
main proc
mov ax,data
mov ds,ax
mov es,ax
lea dx,s
mov ah,09h
int 21h
xor ch,ch
mov ch,l
lea si,old
lea di,new
mov dl,20h
mov ah,02h
int 21h
l2:mov ah,01h
int 21h
cmp ch,00h
jz l1
cmp al,20H
jz l4
mov [si],al
inc si
l4:cmp al,20H
jnz l3
xor ch,ch
jmp l3
l1:mov [si],20h
inc si
mov [si],al
inc si
mov [di],al
inc di
inc ch
l3:cmp al,0dh
jnz l2
mov [di],'$'
mov [si],'$'
lea dx,r
mov ah,09h
int 21h
mov dl,20h
mov ah,02h
int 21h
lea dx,old
mov ah,09h
int 21h
lea dx,t
mov ah,09h
int 21h
mov dl,20h
mov ah,02h
int 21h
lea dx,new
mov ah,09h
int 21h
mov ah,4ch
int 21h
main endp
code ends
end main