程序代码：

include yxf.lib

Stack    SEGMENT Stack
    DB 8 DUP(0)
Stack    ENDS

Code    SEGMENT
    ASSUME CS:Code, SS:Stack
Begine:
    xor ax, ax
    mov al, 'x'
    push ax
    CALL Process

    Get_Char al;调用宏
    Exit;调用宏

COMMENT /
过程名：Process
入口参数：
出口参数：
功能：
    /
Process PROC
    push sp
    mov bp, sp
    mov dl, [bp+4]
    mov ah, 2
    int 21h
    pop sp
    ret
Process ENDP

Code    ENDS
    END Begine

程序代码：

include yxf.lib

Stack    SEGMENT Stack
    DB 8 DUP(0)
Stack    ENDS

Code    SEGMENT
    ASSUME CS:Code, SS:Stack
Begine:
    xor ax, ax
    mov al, 'x'
    push ax
    CALL Process

    Get_Char al;调用宏
    Exit;调用宏

COMMENT /
过程名：Process
入口参数：
出口参数：
功能：
    /
Process PROC
    push bp
    mov bp, sp
    mov dl, [bp+4]
    mov ah, 2
    int 21h
    mov sp, bp
    pop bp
    ret
Process ENDP

Code    ENDS
    END Begine