刚学会用栈做参数写了两个功能子程序

泡泡吧

第一个向屏幕显示文本
第二个转换大小写字母

1. ;功能名: show
   
2. ;说明: 向屏幕显示文本,以0结尾文本
   
3. ;参数: push ax 文本,以零结尾
   
4. ;参数: push ax 文本颜色,
   
5. ;参数: push ax 行,从零开始
   
6. ;结果: 向指定行显示指定文本
   
7. ;源码始:
   
8. show:   mov bp,sp         
   
9.         mov ds,[bp+6]  ;文本
   
10.         mov ax,0b800h  ;屏幕显示地址
    
11.         mov es,ax
    
12.         mov ax,[bp+2] ;行
    
13.         add ax,4
    
14.         mov bx,160   ;第一行4*160
    
15.         mul bx
    
16.         mov bx,ax
    
17.         mov si,0
    
18.         mov di,0
    
19. show_s1:mov cl,ds:[di]     ;ds:[di]指向文本byte单元                 
    
20.         mov ch,0  
    
21.         jcxz s0            ;如果=0直接返回
    
22.         mov al,cl
    
23.         mov ah,[bp+4]      ;颜色
    
24.         mov es:[bx][si],ax ;显示
    
25.         add si,2
    
26.         inc di     
    
27.         loop show_si
    
28. show_s0:ret
    
29. ;源码终
    
30. 
    
31. ;功能名: capital
    
32. ;说明: 将字母转换大小写.以0结尾字母
    
33. ;参数: push ax 字母
    
34. ;参数: push 0and1  ;0表示大写,1表示小写
    
35. ;结果: 字母的首地址保存在ax中
    
36. ;源码始
    
37. capital:mov bp,sp
    
38.         mov ds,[bp+4];把字母放入ds中
    
39.         mov cx,[bp+2];
    
40.         mov si,0
    
41. 
    
42.         jcxz caps0 ;如果=0 转为大写 跳转到caps
    
43. 
    
44. caps1:  mov cl,ds:[si]        ;指向第一个字符
    
45.         mov ch,0
    
46.         jcxz caps2            ;如果=0跳出循环
    
47.         or byte ptr[si],00100000b
    
48.         inc si                ;ds:[si]下一个
    
49.         loop caps1
    
50.         jmp short caps2
    
51. 
    
52. caps0:  mov cl,ds:[si]        ;指向第一个字符
    
53.         mov ch,0
    
54.         jcxz caps2            ;如果=0跳出循环
    
55.         and byte ptr [si],11011111b
    
56.         inc si                ;ds:[si]下一个
    
57.         loop caps0
    
58.         jmp short  caps2
    
59. 
    
60. caps2:  mov ax,ds             ;(ax)=(ds)
    
61.         ret
    
62. ;源码终

复制代码