箭10.5
      ; source      module      1
      ;
       stack_seg     segment      stack
       dw        20        dup(?)
       top        label       word
       stack_seg     ends
      ;
       data       segment
       a         dw        65
       b         dw        78
       data       ends
      ;
       edata       segment
       c         dw        98
       d         dw        34
       e         dw        67
       edata      ends
      ;
       code       segment
            assume cs:code,ds:data,es:edata,ss:stack_seg
       main       proc       far
    start:
       mov        ax,data
       mov        ds,ax
       mov        ax,edata
       mov        es,ax
     ; .
     ; .
     ; .
      mov        ax,4c00h
      int        21h
      main        endp
      code       ends
     ;
      end        start

     ; source       module 2
     ;
      stack_seg     segment      stack
      dw         20         dup(?)
      stack_seg     ends
     ;
      data2       segment
      x         dw         9
      y         dw         12
      data2       ends
     ;
      code2       segment
            assume cs:code2,ds:data2,ss:stack_seg
      sub2        proc        far
      push        ax
      push        bx
     ; .
     ; .
     ; .
      pop        bx
      pop        ax
      ret
      sub2        endp
      code2       ends
     ;
      end

     ; source       module       3
     ;
      stack_seg     segment       stack
      dw         20         dup(?)
      stack_seg     ends
     ;
      data3       segment
      r         dw         76
      z         dw         ?
      data3       ends
     ;
      code3       segment
            assume cs:code3,ds:data3,ss:stack_seg
      sub3        proc        far
      push        ax
      push       bx
      push       cx
      push       dx
     ; .
     ; .
     ; .
      pop        dx
      pop        cx
      pop        bx
      pop        ax
      ret
      sub3        endp
      code3       ends
     ;
      end


夕10.3 箭10.5議MAP猟周