Уважаемые специалисты, как вывести элементы массива поочередно в строке? После вывода одного элемента очищаю строку для вывода следующего. В результате после ввода (ф. vvod закомментировал) или инициализации massiv dw 123,56,1,0,89,104 получаю
123
563
1 3
0 3
893
104
Код com-проги в приложении:
Если можно, то прокомментируйте Ваш вариант-нужно разобраться, а не только сдать
Заранее спасибо

Приложение:

.386
cseg segment use16
assume cs:cseg
org 100h
main:

;mov ah,09h
;mov dx,offset PriglKVvodu
;int 21h

;call perevodkursora

mov bp,offset string

;mov si,0
;vvodmassiva:
;call vvod
;mov massiv[si],ax
;add si,2 ;к следующему элементу
;call perevodkursora
;dec schetchik
;jnz vvodmassiva

;;call rasshir_vdopkod

;call perevodkursora

mov schetchik,6
mov si,offset massiv
vivodmassiva:

mov bp,offset string

mov ax,[si]
call vivod
add si,2
mov ah,09h
mov dx,offset string
int 21h

mov schetchikstroki,7
ochistkastroki:
mov di,offset string
mov word ptr[di],20h
inc di
dec schetchikstroki
jnz ochistkastroki

call perevodkursora

dec schetchik
jnz vivodmassiva
mov ax,4c00h ;стандартный выход для EXE-проги работает и в COM-проге
int 21h

;ещё один вариант очистки строки вывода
;ochistkastroki proc
;mov di,offset string
;cld
;mov ax,20h ;в отладчике это число подстявлялось вместо элемента массива в ф. vivod
;mov cx,7
;rep stosw
;ret
;ochistkastroki endp

vivod proc
xor cx,cx
xor bx,bx
mov bl,10
.divide:
xor dx,dx
div bx

add dx,'0'
push dx
inc cx
or ax,ax
jnz .divide

.reverse:
pop ax
;stosb
mov [bp],al
inc bp
loop .reverse
ret
vivod endp

perevodkursora proc
lea dx,ent
mov ah,09h
int 21h
ret
perevodkursora endp


vvod proc
xor ax,ax

mov di,0

mov znak,0

myinput:

mov ah,08h ;ввожу и показываю знак числа
int 21h

cmp al,13
je done

cmp al,'+'

jz znakvpamyat

cmp al,'-'

jz znakvpamyat

cmp znak,0
jz null
jmp inpt

null:
cmp al,30h
jnz myinput
;mov si,30h
call vivodsimvola
mov ax,0
mov znak,'+'
jmp vihod

inpt:

cmp al,39h
ja myinput
cmp al,30h
jb myinput
cmp al,30h
jnz b
cmp di,0
jz myinput
;нет
b:
call vivodsimvola

sub al,30h;’0’
xor ah,ah
mov cx,ax
mov ax,di
mov bx,10
mul bx
add ax,cx
mov di,ax
jmp myinput

znakvpamyat:
cmp znak,0
jnz myinput
mov znak,al
call vivodsimvola
jmp myinput

done: mov ax,di

cmp znak,'+'
jnz otritsatel
cmp ax,[VerhGranDiapaz]
jbe vihod
call perevodkursora
call vihodzadiapazon
mov di,0
mov znak,0
jmp myinput
otritsatel:
cmp ax,[NizhGranDiapaz]
jbe vihod
call perevodkursora
call vihodzadiapazon
mov di,0
mov znak,0
jmp myinput

vihod:
ret
vvod endp


vivodsimvola proc
mov ah,02h
mov dl,al
int 21h
ret
vivodsimvola endp


vihodzadiapazon proc
mov ah,09h
mov dx,offset zadiapazon
int 21h
ret
vihodzadiapazon endp


rasshir_vdopkod proc
cmp znak,'+' ;+А?
jz polozhitel ;да
neg ax
polozhitel:
ret
rasshir_vdopkod endp


string db 7 dup(20h),'$'
massiv dw 123,56,1,0,89,104
i dw 0
ent db 13,10,'$' ;перевод курсора на строку ниже
schetchik db 6
zadiapazon db 'The entered number is not included into range of numbers with a sign, enter number again: $'
NizhGranDiapaz dw 128
VerhGranDiapaz dw 127
PerSlag dw 0
PriglKVvodu db 'Enter a sign, number and press Enter:$'
znak db 0 ;вместо регистра si в vvod
schetchikstroki db 7

cseg ends
end main