;默认认采用ML6.11汇编程序
DATAS SEGMENT
;此处输入数据段代码
TAB DW -7,7,15,20,21
N=($-TAB)/2
;G DW 0
DATAS ENDS
STACKS SEGMENT
;此处处输入堆栈段代码
; DB 200 DUP(0)
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS: DATAS, SS:STACKS
START:
MOV AX, DATAS
MOV DS,AX
;此处输入代码段代码
MOV BX,0
mov CX,0
LOP:
mov AX,[BX]
AND AX,07H
CMP AX,07H
JNE NEXT
TRUE:
;ADD G,1
ADD SI,1
NEXT:
ADD BX,2
INC CX
CMP CX,N
JNE LOP
ANS:
;ADD G,30H
ADD SI,30H
;LEA DX,G
MOV AH,02H
;MOV DX,G
MOV DX,SI
INT 21H
EXIT:
MOV AH,4CH
INT 21H
CODES ENDS
END START