Убрать пробелы при вводе выражения с клавиатуры

[denisgl]

data segment para public "data"
message1 db " ' "?’: “??'?::? $"
message2 db "$"
message3 db "-$"
a db 0
b db 0
c db 0
d db 0
e db 0
g db 0
data ends
stk segment stack
db 256 dup ("?")
stk ends
code segment para public "code"
main proc
assume cs: code, ds: data, ss: stk
mov ax,data
mov ds,ax
mov ah,9
mov dx,offset message1
int 21h
m7:
xor ax,ax
mov ah,1
int 21h
mov dl,al
cmp dl,2dh
jnz M6
mov d,1h
jmp m7
M6:
sub dl,30h
cmp dl,9h
jle M1
sub dl,7h
cmp dl,0fh
jle M1
sub dl,20h
M1:
mov dh,0h
mov a,dl
;mov ah,9
;mov dx,offset message2
;int 21h
xor ax,ax
m9:
mov ah,1
int 21h
cmp al,2bh
jnz p1
mov e,0h
jmp m9
p1:
cmp al,2dh
jnz t6
mov e,1h
jmp m9
t6:
sub al,30h
cmp al,9h
jle M2
sub al,7h
cmp al,0fh
jle M2
sub al,20h
M2:
mov ah,0h
mov b,al
h2:
mov ah,9
int 21h
xor ax,ax
;mov ah,1
;int 21h
cmp al,3dh
jnz h2

mov dl,e
cmp dl,1h
jnz h1
mov dl,a
mov al,b
sub dl,al
mov c,dl
jns j1
not dl
inc dl
mov c,dl
mov ah,9
mov dx,offset message3
int 21h
jmp j1
h1:
mov dl,a
mov al,b
add dl,al
mov c,dl
j1:
mov dh,0h
mov dl,c
shr dl,4
add dl,30h
cmp dl,39h
jle M3
add dl,7h
M3:
mov ah,2h
int 21h
mov dl,c
shl dl,4
shr dl,4
add dl,30h
cmp dl,39h
jle M4
add dl,7h
M4:
mov ah,2h
int 21h
mov ax,4c00h
int 21h
main endp
code ends

Программа считывает выражение с экрана, например
2 + 3 и после того как ставим = выводит ответ
Нужно убрать пробелы в программе, прогу я писал 2 года назад, не помню асм как раньше, а прогу попросил знакомый, только пробелы нужно при вводе выражения убрать...