LINK指向一个字线性表,其中的首单元保存线性表的长度,编一个程序,将该线性表中的偶数项删除。
DATA SEGMENT
LINK DW 10,1,2,3,5,4,6,9,8,7,10
DATA ENDS
STACK SEGMENT
DW 10 DUP(?)
TOP LABEL WORD
STACK ENDS
CODE SEGMENT
ASSUME CS:CODE,SS:STACK,DS:DATA
MAIN PROC FAR
MOV AX,STACK
MOV SS,AX
LEA SP,TOP
MOV AX,DATA
MOV DS,AX
LEA SI,LINK
MOV CX,[SI]
PUSH CX
ADD SI,2
MOV DI,SI
MOV BX,0
CLD
L1:LODSW
TEST AX,1
JZ L2
MOV [DI],AX
INC BX
ADD DI,2
L2:LOOP L1
POP CX
SUB CX,BX
LEA SI,LINK
MOV [SI],CX
MOV AH,4CH
INT 21H
MAIN ENDP
CODE ENDS
END MAIN