字符串,将其中的数字字符在下一行原样显示,而其他字符则不显示。
ASSUME CS:CC, DS:QQ
QQ SEGMENT
STR DB 100, ?, 100 DUP('$')
MSG1 DB 'Input the string : ', 13, 10, '$'
MSG2 DB 13, 10, 'OUT is : ', 13, 10, '$'
QQ ENDS
CC SEGMENT
START:
MOV AX, QQ
MOV DS, AX
;
LEA DX, MSG1
MOV AH, 9
INT 21H
LEA DX, STR
MOV AH, 0AH
INT 21H
LEA DX, MSG2
MOV AH, 9
INT 21H
MOV CL, STR + 1
MOV CH, 0
CMP CX, 0
JNZ CAL
JMP EXIT
CAL:
MOV BX, 0
LOP:
MOV DL, STR[BX + 2]
CMP DL, '0'
JB NEXT
CMP DL, '9'
JA NEXT
MOV AH, 2
INT 21H
NEXT:
INC BX
LOOP LOP
EXIT:
MOV AH, 4CH
INT 21H
CC ENDS
END START