.386
.model flat, stdcall
includelib kernel32.lib
ExitProcess PROTO ,:DWORD
.data
N=4
a dd 1,-2,-3,4
.code
Main:
mov ax,@data
mov ds,eax
xor eax,eax
xor ecx,ecx
mov ecx,N
mov di,0
m:
mov eax,a[di]
cmp eax,0
js k
mov a[di], 1
mov di, di*4
loop m
k:
mov a[di], -1
mov di,di*4
loop m
END Main
push 0
call ExitProcess
Winmain endp
end Winmain