find_alldel.asm

设有一字数组A

;设有一字数组A，第一个字单元存放的是数组元素的个数，从第二个字单元开始依次存放的是数组元素。现要求编写一程序，查找字数组A中与X字变量相等的所有元素，若找到，则从数组中删除该元素；否则，数组中的元素保持不变。最后在屏幕上打印出结果数组。（与例5.15有些不同，例5.15曾是某一年的考试题）
;write by tansheng
;copyright by tansheng,email [e-mail]


DATAS SEGMENT
	A	DW	12,65,65,66,67,68,69,69,67,66,67,70,71,'$'
	X	DW	66
DATAS ENDS
CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
    MOV AX,DATAS
    MOV DS,AX
    MOV	AX,X
ALL:MOV CX,A
    LEA DI,A+2
L:	CMP AX,[DI]
	JZ YES
	ADD DI,2
	LOOP L
	JMP RE
YES:DEC A
	CMP CX,0
	JZ RE
	MOV SI,DI
	MOV DX,CX
	DEC DX
L1: MOV BX,[SI+2]
	MOV [SI],BX
	ADD SI,2
	DEC DX
	JNZ L1
	CMP A,0
	JNZ ALL	
RE:	
	LEA DX,A
	MOV AH,09H
	INT 21H
	MOV AH,4CH
	INT 21H
CODES ENDS
	END START