;默认认采用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