rejestr 1024 przesuniecie cykliczne

.686
.model flat

	extern _ExitProcess@4 : PROC
	extern __write : PROC
	public _main

.data
rejestr1024 db 128 dup (81h)



.code



przesun PROC

xor		eax, eax
mov		ebx, 128
xor		edx, edx
xor		ecx, ecx

mov		al, [esi]
shl		al, 1
mov		[esi], al
jnc		skok
mov		dl,1
dec		ebx
skok:

ptl:
xor		eax, eax
inc		esi
mov		al, [esi]
cmp		dl,0
je	tylko_przesun

shl al,1
jnc		ustaw_0
mov		dl,1
skok2:
or		al, 00000001b
mov		[esi],al
dec		ebx
cmp		ebx,0
jne		ptl
jmp koniec

tylko_przesun:
shl		al, 1
jnc		ustaw2_0
mov		dl,1
skok1:
mov		[esi],al
dec		ebx
cmp		ebx,0
jne		ptl

jmp koniec
ustaw_0:
mov		dl,0
jmp		skok2

ustaw2_0:
mov		dl,0
jmp		skok1


koniec:

cmp dl,1
je carry1
CLC
jmp ending
carry1:
mov		al, rejestr1024[0]
or		al, 00000001b
STC

ending:
ret
przesun ENDP

_main:
	mov esi, offset rejestr1024
	call przesun

	push 128
	push offset rejestr1024
	push 1

	call __write






	push 0
	call _ExitProcess@4

END