Турбо ассемблер - построить массив путём сдвига исходного массива и умножить все элементы полученного массива на два

[Александр16]

Дан массив Y1...Y20, построить массив Z1..Z20, элементы которого соответствуют элементам Yi, сдвинутым на одну позицию, т.е. Z1=Y2, Z2=Y3,...Z20=Y1. Умножить все элементы Zi на 2.
НИКАК НЕ ПОЛУЧАЕТСЯ СДВИНУТЬ ЭЛЕМЕНТЫ МАССИВА ПОМОГИТЕ ПОЖАЛУЙСТА.

title laba8
codsg segment para 'code'
        org 100h
        assume cs:codsg,ds:codsg,ss:codsg,es:nothing
begin proc
kurs    macro   x,y
                mov             ah,02
                mov             bh,00
                mov             dh,x
                mov             dl,y
                int             10h
        endM
 
vvod    macro   x
                mov             ah,0ah
                lea             dx,x
                int             21h
        endM
 
vivod   macro   x
                mov     ah,09
                lea     dx,x
                int     21h
                endM
 
;zadanie
;ekran
 
                mov     ah,00
                mov     al,03
                int     10h
 
                kurs    4,30
                vivod   vvodmas
;vvod massiva
                mov     cx,10
                mov     di,0
 
m20:
                kurs    7,n
                mov             ah,0ah
                lea             dx,data
                int             21h
                push    cx
 
                call    ascbin
                mov             ax,binv
                mov             mas[di],ax
 
                add             di,2
                pop             cx
                add             n,5
                loop    m20
 
;sdvig
 
        
mov     di,0
mov cx,10  
 
                cld                                    
                                lea             di, mas
                                lea             si, mas2
                                lodsb                         
                               rep movsb                      
                               stosb

                kurs    14,35
                vivod   vivodmas
 
;vivod massiva
        mov     cx,10
        mov     di,0
        mov     n,10
 
m30:
        mov     asci,' '
        mov     asci+1,' '
        mov     asci+2,' '
                        push    cx
                        kurs    17,n
                        mov             ax,mas2[di]
                        mov             binv,ax
                        call    binasc
                        mov             ah,09
                        lea             dx,asci
                        int             21h
                        
                        add             di,2
                        add             n,5
                        pop             cx
                        loop    m30
 
                        mov             ah,00
                        int             16h
                        int             20h
                        ret
begin   endp
 
ascbin  proc
mov     mul10,1
        mov     binv,0
        mov     cx,10
        lea     si,number-1
        xor     bx,bx
        mov     bl,real
b20:    mov     al,[si+bx]
        and     ax,000fh
        mul     mul10
        add     binv,ax
        mov     ax,mul10
        mul     cx
        mov     mul10,ax
        dec     bx
        jnz     b20
        mov     ax,0
        mov     ax,binv
        ret
ascbin  endp
;------------
BinASC  proc
        mov     cx,10
        lea     si,asci-1
        mov     bx,3
        mov     ax,binv
c20: cmp        ax,0010
        jb      c30
        xor     dx,dx
        div     cx
        or      dl,30h
        mov     [si+bx],dl
        dec     bx
        jmp     c20
c30: or al,30h
        mov     [si+bx],al
        ret
BinAsc  endP
 
Data    label   byte
max             db      5
real    db      ?
number  db      3 dup(' '),'$'
asci    db      3 dup(' '),'$'
mul10   dw      1
binv    dw      0
n               db      10
i               dw      0
mas             dw      10 dup(0)
mas2    dw      10 dup(0)
y               dw      18
vvodmas db      'Vvedite elementi massiva','$'
vivodmas db     'noviy massiv','$'
cosg    ends
end     begin

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[DiemonStar]

я бы сдвиг организовал как-то так:

jmp sdvig
Z db 0
Y db 20 dup(0)
sdvig:
mov ax, byte ptr [Y + 20]
mov Z, ax

[Сыроежка]

[QUOTE=Александр16;978682]Дан массив Y1...Y20, построить массив Z1..Z20, элементы которого соответствуют элементам Yi, сдвинутым на одну позицию, т.е. Z1=Y2, Z2=Y3,...Z20=Y1. Умножить все элементы Zi на 2.
НИКАК НЕ ПОЛУЧАЕТСЯ СДВИНУТЬ ЭЛЕМЕНТЫ МАССИВА ПОМОГИТЕ ПОЖАЛУЙСТА.
%0

[DiemonStar]

но лучше сделать так:

.386
cseg segment para
       assume cs:cseg, ds:cseg, es:cseg
       org 100h

start:
       jmp begin

Z db 20 dup (0)
Y db 20 dup (0)
begin
       ....; заполняем исходный массив
       lea di, Z
       lea si, Y
       inc si ; сдвиг в массивах
       mov cx, 19
cyc:
       lodsb     ; Y[2..20] -> al
       shl al,1   ; al*2
       stosb     ; Z[1..19] <- al
       loop cyc
       lea si, Y  
       lodsb      ; Y[1] -> al
       shl al,1   ; al*2
       stosb     ; Z[1..19] <- al
       ....; выводим результат
       ret  
ends cseg
       end start

[Александр16]

Сообщение от DiemonStar

но лучше сделать так:

.386
cseg segment para
       assume cs:cseg, ds:cseg, es:cseg
       org 100h

start:
       jmp begin

Z db 20 dup (0)
Y db 20 dup (0)
begin
       ....; заполняем исходный массив
       lea di, Z
       lea si, Y
       inc si ; сдвиг в массивах
       mov cx, 19
cyc:
       lodsb     ; Y[2..20] -> al
       shl al,1   ; al*2
       stosb     ; Z[1..19] <- al
       loop cyc
       lea si, Y  
       lodsb      ; Y[1] -> al
       shl al,1   ; al*2
       stosb     ; Z[1..19] <- al
       ....; выводим результат
       ret  
ends cseg
       end start

title laba8
codsg segment para 'code'
	org 100h
	assume cs:codsg,ds:codsg,ss:codsg,es:nothing
begin proc
kurs	macro	x,y
		mov		ah,02
		mov		bh,00
		mov		dh,x
		mov		dl,y
		int		10h
	endM

vvod	macro	x
		mov		ah,0ah
		lea		dx,x
		int		21h
	endM

vivod	macro	x
		mov	ah,09
		lea	dx,x
		int	21h
		endM

;zadanie
;ekran

		mov	ah,00
		mov	al,03
		int	10h

		kurs	4,30
		vivod	vvodmas
;vvod massiva
		mov	cx,20
		mov	si,0

m20:
		kurs	7,n
		mov		ah,0ah
		lea		dx,data
		int		21h
		push	cx

		call	ascbin
		mov		ax,binv
		mov		y[si],ax

		add		si,2
		pop		cx
		add		n,3
		loop	m20

;sdvig

mov	di,0
mov	si,0

       lea di,Z
       lea si,Y
       inc si 
       mov cx,19
cyc:
       lodsb     ; Y[2..20] -> al
       shl al,1   ; al*2
       stosb     ; Z[1..19] <- al
       loop cyc
       lea si, Y  
       lodsb      ; Y[1] -> al
       shl al,1   ; al*2
       stosb     ; Z[1..19] <- al

;vivod massiva
	mov	cx,20
	mov	di,0
	mov	n,5

m30:
	mov	asci,' '
	mov	asci+1,' '
	mov	asci+2,' '
			push	cx
			kurs	17,n
			mov		ax,Z[di]
			mov		binv,ax
			call	binasc
			mov		ah,09
			lea		dx,asci
			int		21h

			add		di,2
			add		n,4
			pop		cx
			loop	m30

			mov		ah,00
			int		16h
			int		20h
			ret
begin	endp

ascbin	proc
mov	mul10,1
	mov	binv,0
	mov	cx,10
	lea	si,number-1
	xor	bx,bx
	mov	bl,real
b20:	mov	al,[si+bx]
	and	ax,000fh
	mul	mul10
	add	binv,ax
	mov	ax,mul10
	mul	cx
	mov	mul10,ax
	dec	bx
	jnz	b20
	mov	ax,0
	mov	ax,binv
	ret
ascbin	endp
;------------
BinASC	proc
	mov	cx,10
	lea	si,asci-1
	mov	bx,3
	mov	ax,binv
c20: cmp	ax,0010
	jb	c30
	xor	dx,dx
	div	cx
	or	dl,30h
	mov	[si+bx],dl
	dec	bx
	jmp	c20
c30: or al,30h
	mov	[si+bx],al
	ret
BinAsc	endP

Data	label	byte
max		db	5
real	db	?
number	db	3 dup(' '),'$'
asci	db	3 dup(' '),'$'
mul10	dw	1
binv	dw	0
n		db	5

i		dw	0
y	dw	20 dup(0)
z	dw	20 dup(0)
vvodmas db	'Vvedite elementi massiva','$'
vivodmas db	'noviy massiv','$'
cosg	ends
end	begin

[DiemonStar]

Наверное потому, что вы не адаптировали мой код под свои нужды. В моём примере был массив байтов, а в вашем - массив слов, поэтому, логичнее было бы использовать 16-разрядные регистры и lodsw, stosw и т.д.

Поскольку числа вы вводите явно в десятичном формате (я предпочитаю 16-ричный - меньше проблем с переводом), то логичнее было бы производить вычисления в BCD, чем переделывать в двоичный код. И учитесь пользоваться дебаггером - это сильно упрощает процесс отладки.