6152.asm

汇编语言课后习题答案

;6_15(2).asm

;********************************************************************
d_seg    segment
x        dw 1
y        dw 4
d_seg    ends
;******************************************************************
e_seg    segment
r        dw ?
e_seg    ends
;****************************************************************
c_seg    segment
;------------------------------------------------------------------
main     proc  far
         assume cs:c_seg,ds:d_seg,es:e_seg
start:
         mov  ax,d_seg
         mov  ds,ax
         mov  ax,e_seg
         mov  es,ax
         call far ptr compute
         mov  ax,4c00h
         int  21h
main     endp
;-------------------------------------------------------------------
c_seg    ends
;*******************************************************************
prognam  segment
         assume cs:prognam
;-----------------------------------------------------------------
compute  proc far
         mov  ax,x
         add  ax,y
         sub  ax,3
         mov  es:r,ax
         ret
compute  endp
;-----------------------------------------------------------------
prognam  ends
;****************************************************************
         end  start