614.asm

汇编语言课后习题答案

;6_14.asm

;****************************************************************
datasg    segment
qty       dw 2
price     dw 4
datasg    ends
;****************************************************************
stacksg  segment
         dw 100 dup(?)
tos      label word
stacksg  ends
;****************************************************************
codesg   segment
;----------------------------------------------------------------
main     proc far
         assume cs:codesg,ds:datasg,ss:stacksg
start:
         mov  ax,datasg
         mov  ds,ax
         mov  ax,stacksg
         mov  ss,ax
         mov  sp,offset tos
;
         mov  ax,price
         mov  bx,qty
         call submul
         mov  ax,4c00h
         int  21h
main     endp
;----------------------------------------------------------------------
submul   proc  near
         mov dx,0
         mul bx
         ret
submul   endp
;-------------------------------------------------------------------
codesg   ends
;*******************************************************************
         end  start