Assembler

[alex1001]

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

"помогите переделать процедру которая сдвигает элементы на четных местах вправо циклически ---на процедуру которая сдвигае элементы влево на 1 позицию циклически.
P.S. заранее спасибо"

   title	lab4 процедура вычисления
prcode	segment
	extrn	wrint:far
	public	shiftcr
	assume	cs:prcode
shiftcr proc	far
;---сохранить bp и запомнить в нем sp для доступа к параметрам
	push	bp
	mov	bp,sp
;---сохранение регистров в стек
	push	ax
	push	bx
	push	cx
	push	si
	push	di
	pushf
;---распределение регистров
n	equ	[bp+8]
aai	equ	di	;адрес a[i]
alast	equ	si	;значение посл.элемента на четном месте
;---организация доступа к параметрам
	mov	aai,[bp+6]
;---подготовка цикла
;---вычисление числа итераций
	mov	cx,n
	sar	cx,1
	dec	cx	;cx=n/2-1	число итераций
	cmp	cx,o
	jle	fin	;защита отn<=0
;---вычисление адреса последнего элемента с четным номером
	add	aai,2
	mov	ax,cx
	sal	ax,2
	add	aai,ax		;aai=aai+2+4*число итераций
;---запомнить значение последнего элемента с четным номером 
	mov	alast,[aai]
;---цикл вычислений
cikl:	mov	ax,[aai-4]
	mov	[aai],ax	;!!!косвенная адресация
	dec	aai		;!!!переадресация
	dec	aai
	dec	aai
	dec	aai
	loop	cikl
;---записать значение последнего элемента в первый
	mov	[aii],alast
;---восстановление регистров 
fin:
	popf
	pop	di
	pop	si
	pop	cx
	pop	bx
	pop	ax
	pop	bp
	ret	4	;возврат в программу
shiftcr	endp
prcode	ends
	end

чсмчсмячсмячсмчсмясчм