data segment
x db -9,4,0,0,'$'
p_count db 0
z_count db 0
n_count db 0
y equ $-x
data ends
sata segment stack
db 100h dup (?)
sata ends
code segment 'code'
assume cs:code,ds:data,ss:sata
start:mov ax,data
mov ds,ax
mov ax,sata
mov ss,ax
xor ax,ax
xor dx,dx
mov cx,y
lea si,x
sub si,1
test1:add si,1
cmp [si],0
jz nz
add ah,1
jmp ok
nz:test[si],8000h
jz z
add al,1
jmp ok
z:add dl,1
jmp ok
ok:dec cx
cmp cx,0
jnz test1
mov p_count,al
mov z_count,ah
mov n_count,dl
mov ah,4ch
int 21h
code ends
end start