ex56.asm

用汇编语言做的一些小程序例题

data segment
datastk  dw 3,-2,8,-8,67,-43,56,13,-9,-18,28,39
nums   dw $-datastk
totals  dw ?
data ends

stack1 segment para stack 'stack1'
sd dw 20h dup(?)
stack1 ends

code segment
assume cs:code,ds:data,ss:stack1
being:  mov ax,data
        mov ds,ax

mov bx,offset datastk
mov cx,nums
mov dx,0
mov ax,0
lop: mov ax,[bx]
     cmp  ax,0
     jge  zeng
     inc dx
     zeng:  inc bx
     loop lop
mov totals,dx

mov ah,4ch
 int 21h

code ends
end being