汇编语言实验 子程序设计与系统调用

Question

1.实验内容：编写一完整程序，该程序接受长度小于30的字符串后，将串中的小写字母变成大写后重显该串。
小写字母转换成大写字母的功能以一子程序的形式实现。

3．实验提示
编写一个子程序，比如Uppercase，它的功能是：判断[DI]的内容是否为小写字母，如果是将其变成大写；否则原值返回。
“小 — 大”变换处理就在0AH功能的串缓存字段进行；
为使09H功能直接、方便地显示0AH功能串缓存字段的内容，需在定义将该字段处做什么改变？
stack0 segment para stack 'stack'
dw 40h dup(?)
stack0 ends

data segment para
MAXLEN DB 30
INPTLEN DB ?
STR1 DB 31 DUP(0)
STR2 DB 31 DUP(0);在此定义Dos功能9和0a共用的缓冲区

data ends

code segment para
assume cs:code,ds:data;ss:stack0
main: mov ax,data
mov ds,ax
LEA DX,MAXLEN
MOV AH,0AH
INT 21H
XOR CX,CX
MOV CL,INPTLEN
LEA SI,STR1
LEA DI,STR2;①字符串输入
LOP1: MOV AL,[SI]
CALL UPCASE;②小写变大写子程序
MOV [DI],AL
INC DI
L6: INC SI
LOOP LOP1
MOV [DI],'$'
CALL NEWLINE;③换行
LEA DX,STR2;④在新行显示转换后的字符串
mov ah,09H
int 21h
mov ah,4ch
int 21h
NEWLINE PROC
PUSH AX
PUSH DX
MOV DL,0DH
MOV AH,02H
INT 21H
MOV DL,0AH
MOV AH,02H
INT 21H
POP DX
POP AX
RET
NEWLINE ENDP

Answer 1

data segment para
MAXLEN DB 30
INPTLEN DB ?
STR1 DB 31 DUP(0)
STR2 DB 31 DUP(0);在此定义Dos功能9和0a共用的缓冲区
data ends

code segment para
assume cs:code,ds:data
main: mov ax,data
mov ds,ax
LEA DX,MAXLEN
MOV AH,0AH
INT 21H
XOR CX,CX
MOV CL,INPTLEN
LEA SI,STR1
LEA DI,STR2;①字符串输入
LOP1: MOV AL,[SI]
CALL UPCASE;②小写变大写子程序
MOV [DI],AL
INC DI
L6: INC SI
LOOP LOP1
MOV byte ptr [DI],'$'
CALL NEWLINE;③换行
LEA DX,STR2;④在新行显示转换后的字符串
mov ah,09H
int 21h
mov ah,1;按任意键结束
int 21h
mov ah,4ch
int 21h

NEWLINE PROC
PUSH AX
PUSH DX
MOV DL,0DH
MOV AH,02H
INT 21H
MOV DL,0AH
MOV AH,02H
INT 21H
POP DX
POP AX
RET
NEWLINE ENDP

upcase proc
cmp al,61h
jb tj
cmp al,7ah
ja tj
sub al,20h
tj:
ret
upcase endp

code ends
end main