汇编 实验报告5 字符串输入输出

;实验报告内容,输入一个字符串,去掉数字,输出
ASSUME DS:DATA,CS,CDOE,SS,STACK
DATA SEGMENT
    MAXLEN DB 15
    INPUTLEN DB 0
    STR1 DB 15 DUP(0)
    STR2 DB 15 DUP(0)
DATA ENDS
STACK1 SEGMENT STACK
    DW 40H DUP(0)
STACK1 ENDS
CODE 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
    RET
NEWLINE ENDP
CODE ENDS 
END START