在我的上一篇博文中，我简单的向大家介绍了汇编语言程序设计的三种基本方式。在一个程序中的不同地方，常常需要多次非循环的使用完成特定功能的程序段，这些程序段除了某些变量的赋值不同外，具有相同的指令序列，这时，我们为了减少重复编写程序，缩短目标代码，节省内存空间，把视线这一功能的指令序列组成一个相对独立的程序段。这也就是我们这片文章中所要讨论的子程序。

1. PROC_NAME   PROC    [NEAR/FAR]
2. ......
3. PROC_NAME   ENDP

1. DATA    SEGMENT
2. BIN1    DB  35H
3. BIN2    DW  0AB48H
4. ASCBUF  DB  20H DUP  (?)
5. DATA    ENDS
6. STACK1  SEGMENT PARA    STACK
7. DW  20H DUP  (0)
8. STACK1  ENDS
9. CODE    SEGMENT
10. ASSUME  CS:CODE, DS:DATA, SS:STACK1
11. BEGIN:  MOV AX, DATA
12. MOV DS, AX
13. XOR DX, DX
14. LEA DI, ASCBUF      ;存放ASCII码的单元首地址送DI
15. MOV DH, BIN1            ;待转换的第一个数据送DH
16. MOV AX, 8           ;待转换的二进制数的位数送AX
17. CALL    BINASC
18. MOV DX, BIN2
19. MOV AX, 16
20. LEA DI, ASCBUF
21. ADD DI, 8           ;设置下一个数的存放首地址
22. CALL    BINASC
23. MOV AH, 4CH
24. INT     21H
25. BINASC  PROC
26. MOV CX, AX
27. LOP:    ROL DX, 1           ;最高位移入最低位
28. MOV AL, DL
29. AND AL, 1           ;保留最低位，屏蔽其他位
30. ADD AL, 30H
31. MOV [DI], AL            ;存结果
32. INC DI          ;修改地址指针
33. LOOP    LOP
34. RET
35. BINASC  ENDP
36. CODE    ENDS
37. END BEGIN

1. DATA    SEGMENT
2. BIN1    DB  35H
3. BIN2    DW  0AB48H
4. ASCBUF  DB  20H DUP  (?)
5. DATA    ENDS
6. STACK1  SEGMENT PARA    STACK
7. DW  20H DUP  (0)
8. STACK1  ENDS
9. CODE    SEGMENT
10. ASSUME  CS:CODE, DS:DATA, SS:STACK1
11. BEGIN:  MOV AX, DATA
12. MOV DS, AX
13. MOV AH, BIN1
14. PUSH    AX              ;待转换数据压栈
15. MOV AX, 8
16. PUSH    AX              ;待转换位数压栈
17. LEA DI, ASCBUF
18. PUSH    DI          ;存放ASCII码的首地址压栈
19. CALL    BINASC              ;调用转换子程序
20. MOV AX, BIN2
21. PUSH    AX
22. MOV AX, 10H
23. PUSH    AX
24. ADD DI, 8
25. PUSH    DI
26. CALL    BINASC
27. MOV AH, 4CH
28. INT     21H
29. BINASC  PROC
30. PUSH    AX
31. PUSH    CX
32. PUSH    DX
33. PUSH    DI
34. MOV BP, SP
35. MOV DI, [BP+10]         ;从堆栈取出入口参数
36. MOV CX, [BP+12]
37. MOV DX, [BP+14]
38. LOP:    ROL DX, 1
39. MOV AL, DL
40. AND AL, 1
41. ADD AL, 30H
42. MOV [DI], AL
43. INC DI
44. LOOP    LOP
45. POP DI
46. POP DX
47. POP CX
48. POP AX
49. RET 6           ;返回并从堆栈中弹出6个字节
50. BINASC  ENDP
51. CODE    ENDS
52. END BEGIN