data segment
array_in db 1,-2,3,-4,5,-6,7,-8,9,-10,-1,2,-3,4,-5,6,-7,8,-9,10
positive db 20 dup(0)
negative db 20 dup(0)
data ends
code segment
assume ds:data, cs:code, es:code
proc main far
start:
mov bx, seg array_in
mov ds, bx
mov es, bx
lea bx, array_in
lea si, positive
lea di, negative
mov cx, positive-array_in
dec bx
scan:
inc bx
mov al, [bx]
test al, 0ffh
jns to_p
jmp to_n
to_p:
mov [si], al
inc si
loop scan
jmp print
to_n:
mov [di], al
inc di
loop scan
jmp print
print:
sub si, offset positive
sub di, offset negative
main endp
code ends
end start