Вывод чисел из файла..Assembler

[Дмитрий142]

Здравствуйте...есть прога которая выводит все символы в файле..не могу переделать чтобы выводила лишь числа...

ASSUME CS:CODE, DS:DATA, SS:STEK
CODE SEGMENT
START :
MOV AX, DATA
MOV	SP, OFFSET STEK
MOV	AH,9
MOV	DX, OFFSET MSG
INT 21H

NAMEF:
MOV AH, 0AH
LEA DX,FILEN
INT 21H
XOR AX,AX
MOV AL,FILEN+1
MOV SI,AX
MOV FILEN[SI+2],0
;OPEN FILE
MOV AX,3D02H
LEA AX,FILEN+2
INT 21H
JC ERRO
MOV ID,AX
MOV AH, 9
MOV DX,OFFSET MSGOK
INT 21H
;TEXT TO BUF
MOV AH, 3FH
MOV BX,ID
MOV CX, 4096
LEA DX, LISTF
INT 21H
;CLOSE FILE
MOV AH,3CH
MOV	BX,ID
INT 21H
CALL CAPS_LOCK
;PRINT
MOV AH,9
INT 21H
JMP FINAL
ERRO:
MOV AH,9
MOV DX,OFFSET MSGERR
INT 21H
FINAL:
MOV AX,0
INT 16H
MOV AX,4C00H
INT 21H
CAPS_LOCK PROC NEAR
MOV CX,4096
FILTER: ;ДУМАЮ ВСЯ СОЛЬ ТУТ
MOV AL,LISTF [2]
CMP AL, 'a'
JB NOLETTER
CMP AL, 'z'
JA NOLETTER
SUB AL, 20H
STORE : MOV LISTF[SI],AL
NOLETTER:
INC SI
LOOP FILTER
RET
CAPS_LOCK ENDP
CODE ENDS
STEK SEGMENT
	DB 256 DUP('0')
STEK ENDS

DATA SEGMENT
	MSG		DB	"INPUT FULL FILE NAME $"
	FILEN 	DB 32,0,32 DUP(0)
	ID		DW 0
	MSGOK	DB 0AH, 0DH, "ALL RIGHT $ "
	MSGERR	DB 0AH, 0DH, "ERROR $"
	LISTF	DB 4096 DUP ('$')
DATA ENDS

END

[Stepler]

Проверяй считаный символ являится ли он цифрой, если код символа в диапазоне от 48 до 57 значит цифра. Читай цепочку в буфер пока символы отвечает заданому диапазону, если символ не попадает в даный диапазон выводи цыпочку и читай символы дальше пока не найдеш начало следующей цепочки.