<p>
取消数据段的BCD存储区|将经处理后的数据放回原处|修改程序如下:<br>
DATA SEGMENT<br>
BUF DB '1234'<br>
N=$-BUF<br>
DATA ENDS<br>
CODE SEGMENT<br>
ASSUME CS:CODE|DS:DATA<br>
START:MOV AX|DATA<br>
MOV DS|AX<br>
LEA SI|BUF<br>
MOV CX|N<br>
LOOP1:MOV AL|[SI]<br>
SUB AL|30H<br>
MOV [SI]|AL<br>
INC SI<br>
DEC CX<br>
JNE LOOP1<br>
MOV AH|4CH<br>
INT 21H<br>
CODE ENDS<br>
END START</p>