;实验报告内容,输入一个字符串,去掉数字,输出
ASSUME DS:DATA,CS,CDOE,SS,STACKDATA SEGMENT    MAXLEN DB 15    INPUTLEN DB 0    STR1 DB 15 DUP(0)    STR2 DB 15 DUP(0)DATA ENDSSTACK1 SEGMENT STACK    DW 40H DUP(0)STACK1 ENDSCODE SEGMENT     START:           MOV AX,DATA                   ;INITIAL THE DS,SS    MOV DS,AX    MOV AX,STACK1    MOV SS,AX        LEA DX,MAXLEN                  ;INPUT THE STRING    MOV AH,0AH    INT 21H        CALL NEWLINE                                   ;SET THE LOOP     MOV AL,INPUTLEN    MOV AH,0    MOV CX,AX    MOV SI,0    MOV DI,0    LOOP1:    MOV AL,STR1[SI]                         CMP AL,30H                     ;CMP    JZ BREAK     JC OK        CMP AL,39H    JZ BREAK    JNC OK    JMP BREAK        OK:    MOV STR2[DI],AL                 ;TRANSFER STR1 TO STR2    INC DI            BREAK:     INC SI    LOOP LOOP1        MOV AL,24H                      ;ADD THE ‘$‘    MOV STR2[DI],AL        MOV AL,0        LEA DX,STR2    MOV AH,09H    INT 21H          MOV AH,4CH    INT 21H     NEWLINE PROC    MOV AH,02H    MOV DL,0DH    INT 21H         MOV AH,02H    MOV DL,0AH    INT 21H    RETNEWLINE ENDPCODE ENDS END START