stack    segment    stack
    dw    100 dup (?)
stack    ends
data    segment    
    x1    db    'please input d,tell you a secret! ','$';必须'$'结尾
    x3    db    'I love You !','$'        ;
    x4    db    'press any key to escape ','$'
data    ends
prog    segment   ;在es段中定义子过程
xx    proc    far ;须段间调用的用far类型（即不在主过程段中）
    mov    ah,    9h
    int    21h    
    ret
xx    endp
prog   ends
code    segment
    assume    cs:code,ds:data,ss:stack,es:prog
start:    
    mov    ax,data
    mov    ds,ax
    mov    ax,stack
    mov    ss,ax
    mov    ax,prog
    mov    es,ax
    mov    dx, offset    x1
    call   far ptr xx   ;call影响al中的内容
    mov    ah,1h
    int    21h
    cmp    al, 'd' ;输入字符与'd' 比较，非'd' 就执行
    jne    start

    mov    dx, offset    x3   
    call   far ptr xx
    mov    dx, offset    x4   
    call   far ptr xx
    mov    ah,1h   ;等待输入，用来观看结果,否则窗口一闪就没有拉
    int    21h
mov ax,4c00h
    int    21h
code    ends
    end    start
大家运行看看,第一次弄成功拉,好高兴,把这个程序记录在这里,供初学者观摩