SOURCE     DB    d1,d2,...,dn    ;源数据 [source data block]

LENT    EQU     $ - SOURCE     ;源数据长度 [length of souce data] 

DEST    DB    LENT DUP(?)     ;目的内存单元 (无数据)

code     SEGMENT  ;程序演示将SOURCE中的内容逐个传送到DEST中,以下主程序及过程均在同一个代码段内.

        PUSH   SI、DI、CX   ;入栈保护 SI、DI、CX等寄存器 [into stack to protect SI、DI、CX register]

        LEA    SI , SOURCE    ;设置参数值 [set parameters]

        LEA    DI , DEST

        MOV    CX , LENT

        CALL    MOVTOR    ;段内直接调用 [call procedure]

        POP  SI、DI、CX  ;出栈恢复SI、DI、CX等寄存器 [restore SI、DI、CX register from stack]

        RET

        ;  过程名：MOVTOR.

        ;  功能：完成数据块传递.

        ;  输入参数：SI=源块首地址    DI=目的块首地址    CX=数据块长度.

        ;  输出参数：在内存单元DEST开始存放传入的数据.

        MOVTOR    PROC    NEAR   ;because the procedure define in same code_segment, so use NEAR property

                LOP1:    MOV    AL , [SI]  ;循环体,每次通过AL传递一个字节[pass AL move one byte to destination once]

                        MOV    [DI] , AL

                        INC    SI

                        INC    DI

                        LOOP    LOP1 ;CX=CX-1, LOOP instruction compare CX register, if  not zero then jump,else quit cycle

                RET

        MOVTOR    ENDP

        ...

code    ENDS

data    SEGMENT

        ARYA    DB    a1,a2,...,an

        SUMA    DW    ?

data    ENDS

stack    SEGMENT    PARA    STACK    'STACK'

        TAK    DB    100 DUP(?)

        TOP    DB    ?

stack    ENDS

code    SEGMENT    ;程序演示将数组ARYA元素加和后存入SUMA中.

        ASSUME    CS: code , DS: data , SS:stack

    main:        ...

        MOV    AX , (SUMA-ARYA)    ;参数1进栈: ARAY数组元素个数.

        PUSH    AX    ;SP-2←参数1, SP=SP-2

        MOV    AX , OFFSET    ARYA  ;参数2进栈: ARAY数组首地址.

        PUSH    AX    ;SP-2←参数2, SP=SP-2

        ;段间直接调用intersegmental call [First protect CS and IP register (4Bytes) to stack, whereafter call SUM]

        CALL    FAR  PTR  SUM   ;SP-2←CS, SP=SP-2; SP-2←IP, SP=SP-2

        ...

code    ENDS

;  Procedure Name：SUM     /*因不在同一个代码段内,所以过程定义使用FAR属性*/

;  Function：完成对数组元素求和

;  Input parameters：保存主程序所定义的堆栈中

;  Output parameters：求和的结果保存在指定的数据区SUMA存储单元中.

proce    SEGMENT

        ASSUME    CS : proce , DS : data , SS : stack

SUM    PROC    FAR  ;because the procedure define in different code_segment, so use FAR  property

        ;into stack to protect register,  [With the addition of  1 Flags ,it's Total 10 Bytes] SP=SP-10

    PUSH    AX、BX、CX、BP

        PUSHF    ;because arithmetic sum  will effect Flag,so protect Flag.

        MOV    BP , SP    ;取得当前SP栈顶地址,即BP指向栈顶.

        MOV    CX ,[BP+16] ;取得参数1:数组个数   [注:0~2:Flag,2~10:REG,10~12:IP,12~14:CS,14~16:参2,16~18:参1]

        MOV    BX ,[BP+14] ;取得参数2: 数组ARYA首地址.

        MOV    AX , 0

        LOP1:   ADD    AL , [BX]

                INC    BX

                ADC    AH,0

                LOOP    LOP1

        MOV    [BX] , AX    ;循环加和完后, [BX]即指向SUMA变量地址.

        POPF     ;restore Flag from stack,FLAG←(SP),SP=SP+2

        POP    BP、CX、BX、AX    ;restore register from stack,REG←(SP),SP=SP+8

        RET  4  ; 恢复IP及CS, IP←(SP), SP=SP+2,CS←(SP),SP=SP+2,然后SP=SP+4,即清理参数所占的4个字节.

SUM    ENDP             ; SUM过程结束.

proce    ENDS            ; proce段结束.

        END    main  ; 源程序结束