;Rotoria~.asm
.model tiny
.code
org 100h
.386
Start:
        mov ax, 83h
        int 10h
        mov ax, 0B800h
        mov ds, ax
        mov es, ax
cycle_lp:
	mov bx, 2*80-4

next_:
	push bx
        call dblrot
	pop bx
	sub bx, 4
	jns next_

	mov ah, 86h
	mov cx, 1
	mov dx, 65000
	int 15h
	mov ah, 0Bh
	int 21h
	test al, al
	je cycle_lp
        ret

dblrot proc near
  ;Вход: [bx] - 1-й эл-т;
  ;
  ;Выход:
        add bx, 24*2*80
	push word ptr [bx-2*80+2]
	push word ptr [bx+2]
	push word ptr [bx]
	push word ptr [bx-2*80]
	pop word ptr [bx]
	pop word ptr [bx+2]
	mov cx, 23
lp:
	sub bx, 2*80
	push word ptr [bx-2*80]
	pop word ptr [bx]
	pop word ptr [bx+2]
	pop ax
;Теперь в стеке ничего нет
	push word ptr [bx-2*80+2]
	push ax
	loop lp
	sub bx, 2*80
	pop word ptr [bx+2]	
	pop word ptr [bx]
        ret
dblrot endp
end Start

Назад