613.asm

汇编语言课后习题答案

;6_13

;        source module 1
         extrn  var3:word
         public var1,var2,lab1
data1    segment
var1     dd ?
var2     db 10 dup(?)
data1    ends
code1    segment
         assume cs:code1, ds:data1
main     proc far
         mov  ax,data1
         mov  ds,ax
         .
         .
         .
lab1:
         .
         .
         .
         mov  ax,4c00h
         int  21h
main     endp
code1    ends
         end  start
;
;        sourc module 2
         extrn  var1:dword,var2:byte,lab1:near,lab3:far
         public var3,lab2
data2    segment
var3     dw ?
data2    ends
code2    segment
         assume cs:code2, ds:data2
         .
         .
         .
lab2:
         .
         .
         .
code2    ends
         end
;
;        source module 3
         extrn  var1:dword,var2:byte,lab1:near,lab2:far
         public lab3
code3    segment
         assume cs:code3
         .
         .
         .
lab3:
         .
         .
         .
code3    ends
         end