;copia de areglos entre a y b
.386
.model flat, stdcall
option casemap: none
include \masm32\include\windows.inc
include \masm32\macros\macros.asm
include \masm32\include\kernel32.inc
include \masm32\include\masm32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
.data
a sbyte 1,2,3,4,5,6
b sbyte 0,0,0,0,0,0
.code
inicio:
mov eax, 0
mov ebx, 0
mov edx, 0
ciclo:
push eax
mov al,a[ebx]
mov b[ebx], al
invoke StdOut, ustr$(eax)
print chr$(" A ",13,10)
pop eax
push edx
mov dl, b[ebx]
invoke StdOut, ustr$(edx)
print chr$(" B ",13,10)
pop edx
.if ebx < 5
.if a[ebx]> 0
inc ebx
jmp ciclo
.endif
.endif
invoke ExitProcess,0
end inicio