;*----------------------------------------------------------------------- *
 ;*  Aexp5.asm(循環程序設計實驗)                                            *
 ;*  Copyright (c) 2002 by HUST                                            *
 ;*  程序調試：在MOV AH,4CH處設置斷點，利用Add Watch命令查看R中的內容是否正確    *
 ;*------------------------------------------------------------------------*
   
STACK SEGMENT STACK
      DB 200 DUP(?)
STACK ENDS
DATA  SEGMENT
BUF   DW -6,90,100,-3,-1,5,0,134   ;比較的數據
N     EQU ($-BUF)/2                ;個數
R     DB ?                      
DATA  ENDS
CODE  SEGMENT
      ASSUME CS:CODE,DS:DATA,SS:STACK
START:
      MOV AX,DATA
      MOV DS,AX
      LEA SI,BUF     ;取存儲區首址
      MOV BL,0       ;BL存放負數個數的初值
      MOV CX,N      ;CX中存放數據個數的初值
      
L1:   MOV AX,[SI]    ;取存儲區數據
      CMP AX,0       
      JGE A2
      INC BL        ;負數則BL加1
A2:   ADD SI,2       
      DEC CX
      JNZ L1
      
      MOV R,BL      ;；將結果放入R中
      
      MOV AH,4CH
      INT 21H      
CODE  ENDS
      END START