下面的程序用来删除字符串’’AABA’’中第1个出现的由DAT单元指定的字符，删除字符后，后面字符前移，并在字符串尾部添加字符’’$’’(24H)。DSEG SEGMENT BUF DB ’’AABA’’ CNT DW $-BUF DAT DB 41H DSEG ENDS SSEG SEGMENT STACK DB 256 DUP(0) SSEG ENDS CSEG SEGMENT ASSUME DS:DSEG,SS:SSEG,CS:CSEG,ES:DSEG START PROC FAR PUSH DS XOR AX,AX PUSH AX MOV AX,DSEG MOV DS,AX MOV ES,AS CLD LEA DI,BUF MOV CX,CNT MOV AL,DAT REPNE SCASB JE DEL JMP EXIT DEL: JCXZ FILL NEXT: MOV BL,[DI] MOV [DI-1],BL INC DI LOOP NEXT FILL: MOV 【 】 ,24H EXIT RET START ENDP CSEG ENDS END START
程序执行完毕后，以BUF为首地址的4个字节单元中的字符依次为 【 】 。
