Выводить последовательно цифры от 0 до 9 в одно место экрана. При вводе с клавиатуры какой-либо цифры менять темп вывода

data segment
    EXIT db 0
    SYM db 30h
    ATTRIB db 9
    POS dw 0
    OLD_CS dw ?
    OLD_IP dw ?
    VALUE dw 10
data ends
 
code segment
assume cs:code, ds:data
 
 
; Subprogram of processing interrupt 1Сh
NEW_1C  proc        far
    push    ax      
    push    bx
    push    cx
    push    dx
    push    ds
    push    es
 
    mov  ax, DATA       
    mov  ds, ax
 
    mov ax, 40h     
    mov es, ax
    mov ax, es:[1ch] 
    mov bx, es:[1ah] 
 
    xor cx, cx
    cmp bx , ax 
    jne ITER 
    jmp BACK 
 
ITER:
    xor ax, ax
    mov al, es:[bx]
    mov es:[1ch], bx 
 
    cmp al, 30h
    jne CMP_1 
    
    mov EXIT, 1 
    jmp BACK
 
 
CMP_1:  
    cmp al, 31h
    jge CMP_2
 
    jmp BACK
 
CMP_2:  
    cmp al, 39h     
    jle ACT
    
    jmp BACK    
    
ACT:
    sub al, 30h
    mov cx, 512
    mul cx
 
    mov VALUE, ax
 
 
BACK:
    pop es 
    pop ds
    pop dx
    pop cx
    pop bx
    pop ax
    iret
NEW_1C  endp
 
 
; Subprogram of delay (sleeping)
DELAY   proc        near
    push cx
    mov cx, VALUE
    ITER_NEXT:
        ;push cx
        ;xor cx,cx
        nop
        ;pop    cx
    loop ITER_NEXT
    pop cx
    ret
DELAY endp
 
 
; Subprogram of symbol output
OUT_SYMBOL  proc    near
    
    push    ax
    push    bx
 
    mov al, SYM
    mov ah, ATTRIB
    mov bx, POS
 
;   call DELAY
 
    mov es:[bx], ax
 
    pop bx
    pop ax
    ret 
OUT_SYMBOL endp
 
 
START:
 
    mov ax, data
    mov ds, ax
 
; reading vector of interrupt
    xor ax, ax
    mov ah, 35h
    mov al, 1Ch
    int 21h
    mov OLD_IP, bx
    mov OLD_CS, es
 
; setting vector of interrupt
    push ds
    mov dx, offset NEW_1C
    mov ax, seg NEW_1C
    mov ds, ax
    mov ah, 25h
    mov al, 1Ch
    int 21h
    pop ds
    mov ax, 0B800h
    mov es, ax
 
; main program
    
NEW_CYCLE:
    xor cx, cx
    mov cx, 10
 
    ITER_CYCLE:
        cmp EXIT, 1
        je QUIT
        
        call DELAY
        call OUT_SYMBOL
 
        inc SYM
    loop ITER_CYCLE
 
    mov SYM, 30h
    jmp NEW_CYCLE
 
QUIT:
    mov dx, OLD_IP
    mov ax, OLD_CS
    mov ds, ax
    mov ah, 25h
    mov al, 1Ch
    int 21h
    mov ax, 4c00h
    int 21h
 
code ends
end START