10e.asm

华工电信系汇编习题的编程实现

stack segment stack 'stack'
      dw 32 dup (?)
stack ends

data segment
     W1 dw 15000
     W2 dw -5000
     W3 dw 8
     W4 dw 600
     W5 dw 100
     W6 dw 2 dup(?)
data ends

code segment
begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax

      mov dx,0
      mov ax,W2
      mov bx,W3
      imul bx
      adc dx,0
      add ax,W4
      adc dx,0
      sub ax,5000
      sbb dx,0
      mov cx,dx
      mov bx,ax
      mov ax,W1
      mov dx,0
      sub ax,bx
      sbb dx,cx
      mov cx,W5
      idiv W5
      mov W6,ax



      ret
begin endp
code ends
     end begin