Ввод-вывод

[Sparky]

Необходима реализация 2 процедур ввода и ввыода. При этом если вводится не числ выводить ошибку, если перед числом введены пробелы их пропустить. TASM, use 16
Могу скинуть свой бред, если нужно, но лучше чтобы вы скинули реально работающие процедуры с объяснением, заранее спасибо

[Goodwin98]

Быть может подойдет что-то из этого?

[Sparky]

нет вроде ничего не подходит

[Goodwin98]

Почему же есть вполне нормальный ввод чисел, а так же их вывод.
Ну хорошо, а если такой вариант?

input:
	mov ah,0ah
	mov dx,offset buff ; аддрес буфера
	int 21h ; принимаем строку
	mov dl,0ah
	mov ah,02
	int 21h ; выводим перевод строки
	
; обрабатываем содержимое буфера
	mov si,offset buff+2 ; берем аддрес начала строки
	cmp byte ptr [si],"-" ; если первый символ минус
	jnz polozh
	mov di,1  ; устанавливаем флаг
	inc si    ; и пропускаем его
polozh:
	xor ax,ax
	mov bx,10  ; основание системы счисления
@@:
	mov cl,[si] ; берем символ из буффера
	cmp cl,0dh  ; проверям не последний ли он
	jz endin
; если символ не последний, то проверяем его на правильность
	cmp cl,30h  ; если введен неверный символ <0
	jl er
	cmp cl,39h  ; если введен неверный символ >5
	ja er

	sub cl,30h ; делаем из символа число 
	mul bx     ; умножаем на 10
	add ax,cx  ; прибовемм к остальным
	inc si     ; указатель на след символ
	jmp @b     ; повторяем

er:   ; если была ошибка, то выводим сообщение об этом и выходим
	mov dx, offset error
	mov ah,09
	int 21h
	int 20h

; все символы из буфера обработаны число находится в ax
endin:
	
	cmp di,1 ; если установлен флаг, то
	jnz @f
	neg ax   ; делаем число отрицательным
@@:

	ret  ; возвращаемся

error db "incorrect number$"
buff	db 5,6 Dup(?)