汇编语言程序设计：模块化程序设计

编写一个汇编程序，要求对键盘输入的大写字母用小写字母显示出来,键盘输入的小写字母用大写字母显示出来。

正确代码

注意：9号命令的功能是，将当前数据区DS: DX所指向的以‘$’结尾的字符串显示在显示器上，

这要求在用交互方式输入字符串时，字符串的结尾就要加上美元符号$，具体的代码输入格式可以查看运行结果

DATA SEGMENT
    S_INT DB 'PLEASE INPUT A STRING:$'
    STR    DB 20, ?, 20 DUP(20)
    COUNT EQU $-STR
    STR1 DB COUNT DUP(?)
    S_OUT DB 0DH, 0AH, 'CONVERT RESULT: $'  
DATA ENDS

STACK SEGMENT STACK
    DB 200 DUP(?)
STACK ENDS

CODE SEGMENT
    ASSUME CS:CODE, DS:DATA, SS:STACK
    START: MOV AX, DATA
           MOV DS, AX
           MOV AH, 9
           LEA DX, S_INT
           INT 21H
          
           MOV AH, 0AH
           MOV DX, OFFSET STR
           INT 21H

           LEA SI, STR+2    ;防止字符串前的乱码
           LEA DI, STR1
           MOV CX, COUNT 
      
           CALL CHANGE
 
           MOV AH,9
           MOV DX, OFFSET S_OUT
           INT 21H
	 
           MOV AH,9
           MOV DX, OFFSET STR1
           INT 21H	

           MOV AH,4CH
           INT 21H
    
    CHANGE PROC
    BEGIN: 
           MOV AL, [SI]
           CMP AL, 'A'
           JB NEXT
           CMP AL, 'Z'
           JA NEXT1
           ADD AL, 20H
           MOV [DI], AL
           INC SI
           INC DI
           LOOP BEGIN
           RET
           
    NEXT: MOV [DI], AL     
              INC SI
              INC DI
              LOOP BEGIN
              RET

    NEXT1:
              SUB AL, 20H
              MOV [DI], AL
              INC SI
              INC DI
              LOOP BEGIN
              RET

     CHANGE ENDP
CODE ENDS
    END START

运行结果

心路历程

分析：因为要求是对键盘输入的字母进行转换，所以需要用交互的方式输入，然后输出。那就调用9号功能把字符串接收，再调用10号功能把接收的字符输出；有之前做过的模块化程序可以直接拿来用

然后就是中间的字符串大小写的变换了，这个也做过，也有招，那开始吧

编写汇编语言源代码,当然又是一通报错，

第一版代码

DATA SEGMENT
    S_INT DB 'PLEASE INPUT A STRING:$'
    STR DB ?
    COUNT EQU $-STR
    STR1 DB COUNT DUP(?)
    S_OUT DB 0DH, 0AH, 'CONVERT RESULT:$'   
DATA ENDS

STACK SEGMENT
    DB 200 DUP(?)
STACK ENDS

CODE SEGMENT
    ASSUME CS:CODE, DS:DATA, SS:STACK
    START: MOV AX, DATA
           MOV DS, AX
           MOV AH, 9
           LEA DX, S_INT
           INT 21H
           MOV AH, 0AH
           MOV DX, OFFSET STR
           INT 21H
           LEA SI STR
           LEA DI STR1
           MOV CX COUNT       
           CALL CHANGE
           MOV AH 4CH
           INT 21H
    
    CHANGE PROC
    BEGIN: MOV AL, [SI]
           CMP AL, 'Z'
           JB NEXT
           ADD AL, 20H
           INC SI
           LOOP BEGIN
           
    NEXT: SUB AL, 20H
          INC SI
          JMP BEGIN
CODE ENDS
    END START

如，代码缺逗号，堆栈段没有用STACK声明，还有在字符输入阶段就直接输出了S_INT 和S_OUT的语句，变换后的字符串没有存入相应的存储单元，结果输出时结果为空

第二版代码，结果逻辑错误，输出乱码

DATA SEGMENT
    S_INT DB 'PLEASE INPUT A STRING:$'
    STR DB ?
    COUNT EQU $ - STR  
    STR1 DB COUNT DUP(?) 
    S_OUT DB 0DH, 0AH, 'CONVERT RESULT:$'  
DATA ENDS

STACK SEGMENT STACK
    DB 200 DUP(?)
STACK ENDS

CODE SEGMENT
    ASSUME CS:CODE, DS:DATA, SS:STACK
    START: MOV AX, DATA
           MOV DS, AX
           MOV AH, 9
           LEA DX, S_INT
           INT 21H
          
           MOV AH, 0AH
           MOV DX, OFFSET STR
           INT 21H

           LEA SI, STR
           LEA DI ,STR1
           MOV CX, COUNT 
      
           CALL CHANGE

           MOV AH,9
           LEA DX, S_OUT
           INT 21H

           MOV AH,9
           LEA DX, STR1
           INT 21H	

           MOV AH,4CH
           INT 21H
    
    CHANGE PROC
    BEGIN: MOV AL, [SI]
           CMP AL, 'Z'
           JAE NEXT
           ADD AL, 20H
           MOV [DI], AL
           INC SI
           INC DI
           LOOP BEGIN
           RET
           
    NEXT: SUB AL, 20H
              MOV [DI], AL
              INC SI
              INC DI
              LOOP BEGIN
              RET
          
     CHANGE ENDP
CODE ENDS
    END START

第三版代码 可以跑通的代码 但结果输出格式有bug 

DATA SEGMENT
    S_INT DB 'PLEASE INPUT A STRING:$'
    STR DB 20
            DB ?
            DB 20 DUP(?)
    COUNT EQU $ - STR  
    STR1 DB COUNT DUP(?) 
    S_OUT DB 0DH, 0AH, 'CONVERT RESULT:$'  
DATA ENDS

STACK SEGMENT STACK
    DB 200 DUP(?)
STACK ENDS

CODE SEGMENT
    ASSUME CS:CODE, DS:DATA, SS:STACK
    START: MOV AX, DATA
           MOV DS, AX
           MOV AH, 9
           LEA DX, S_INT
           INT 21H
          
           MOV AH, 0AH
           MOV DX, OFFSET STR
           INT 21H

           LEA SI, STR
           LEA DI ,STR1
           MOV CX, COUNT 
      
           CALL CHANGE

           MOV AH,9
           LEA DX, S_OUT
           INT 21H

           MOV AH,9
           LEA DX, STR1
           INT 21H	

           MOV AH,4CH
           INT 21H
    
    CHANGE PROC
    BEGIN: MOV AL, [SI]
           CMP AL, 'Z'
           JAE NEXT
           ADD AL, 20H
           MOV [DI], AL
           INC SI
           INC DI
           LOOP BEGIN
           RET
           
    NEXT: SUB AL, 20H
              MOV [DI], AL
              INC SI
              INC DI
              LOOP BEGIN
              RET
          
     CHANGE ENDP
CODE ENDS
    END START

运行结果 

好奇乱码是怎么来的，n次debug，直到下图倒数第三行代码

结果分析

9号命令的功能是，将当前数据区DS: DX所指向的以‘$’结尾的字符串显示在显示器上。这就要求在用交互方式输入字符串时，字符串的结尾就要加上美元符号$

至于输出前的乱码，猜想可能是地址遍历的问题

SI的逻辑是，把存在其中的字符进行大小写的转换后，再存入，但这样做会导致地址混乱，导致输出的字符串结果前有乱码，所以添加DI，用来保存转换后的字符

一次改动代码不要超过一个点，保证变量唯一，不然不知道是哪个位置报错，很难受；

小结一下

开心，想不出其他词来形容现在的心情，可能精力都用在改代码上了，连着两个下午加一个晚上，可能每次只有两三个小时，但当代码跑通的一刻所有的乌云散去，只有高兴和满足感，继续努力吧，做一个开心学习的人儿