实验11 编写子程序

流风逸雪

1. assume cs:codesg
   
2. 
   
3. datasg segment
   
4.         db "Beginner's All-purpose Symbolic Instruction Code.",0
   
5. datasg ends
   
6. 
   
7. codesg segment
   
8. 
   
9. begin:       
   
10.         mov ax,datasg
    
11.         mov ds,ax
    
12.         mov si,0
    
13.         call letterc
    
14.        
    
15.         mov ax,4c00H
    
16.         int 21h
    
17. 
    
18. letterc:
    
19.         push si
    
20.         push ax
    
21. s:        ;对拿到的字节进行判断
    
22.         cmp byte ptr [si],60H
    
23.         jna s0;不大于60H，即小于等于60H
    
24.         cmp byte ptr [si],7BH
    
25.         jnb s0;如果不小于7BH则跳过转化为大写，即大于等于7BH
    
26.         ;如果是小写字母则转化为大写，即-20H
    
27.         ;如果是大写字符或空格则跳过（不执行）转化为大写
    
28.        
    
29. 
    
30.         ;转化为大写
    
31.         mov al,[si]
    
32.         sub al,20H
    
33.         mov [si],al       
    
34. s0:
    
35.         cmp byte ptr [si],0
    
36.         je exit;如果是0则退出循环s和函数letterc
    
37.        
    
38.         inc si
    
39.         jmp short s
    
40.        
    
41.        
    
42. exit:
    
43.         pop ax
    
44.         pop si
    
45.         ret
    
46.        
    
47.        
    
48. codesg ends
    
49. end begin

复制代码