求个汇编语言程序

; 本程序通过编译，运行正确

Code Segment
Assume CS:Code,DS:Code
BUF db 23,-69,35,-46,57,-68,79,-81,98,-43,56,123,-98,102,-87
Elements equ ($-BUF)/Type BUF ;元素个数
Negative db 0 ;负数计数

Start: push cs
pop ds ;使数据段与代码段同段
push cs
cld
lea si,BUF ;取数据地址
mov cx,Elements ;元素个数
Statics: test byte ptr [si],80h ;是否正数？
jnz $+6 ;不是
inc Negative ;负数计数
inc si ;si增1，判断下一个元素
loop Statics
Exit_Proc: mov ah,4ch ;结束程序
int 21h
Code ENDS
END Start ;编译到此结束