论坛: 编程破解 标题: 双精度带符号加法和乘法子程序,请调帮忙调试一下 复制本贴地址    
作者: pillow_911 [pillow_911]    论坛用户   登录
stack  segment
      dw 64 dup (?)
tos    label word
stack  ends
dseg  segment
data  label word
data1  dd  ?
data2  dd  ?
result label word
result1 dd  0
result2 dd  0
        dd  0
dseg  ends
cseg  segment
main  proc  far
      assume cs:cseg,ds:dseg,ss:stack
start:mov ax,stack
      mov ss,ax
      mov sp,offset tos
      push ds
      sub ax,ax
      push ax
      mov ax,dseg
      mov ds,ax
      push data+2
      push data
      push data+6
      push data+4
      call madd
      call mmul
      push result
      push result+2
      push result+4
      push result+6
      push result+8
      push result+10
      add  sp,14h
      ret
main  endp
madd  proc  near
      push  bp
      mov  bp,sp
      push  ax
      push  bx
      mov  ax,[bp+4]
      mov  bx,[bp+8]
      add  ax,bx
      mov  result,ax
      mov  ax,[bp+6]
      mov  bx,[bp+0ah]
      adc  ax,bx
      mov  result+2,ax
      pop  bx
      pop  ax
      pop  bp
      ret
madd  endp
;
mmul  proc  near
      push  bp
      mov  bp,sp
      push  ax
      push  bx
      mov  ax,[bp+4]
      mov  bx,[bp+8]
      mul  bx
      mov  bp+4,ax
      mov  bp+6,bx
      mov  ax,[bp+4]
      mov  bx,[bp+0ah]
      imul  bx
      add  bp+6,ax
      adc  bp+8,bx
      mov  ax,[bp+6]
      mov  bx,[bp+8]
      imul  bx
      add  bp+6,ax
      adc  bp+8,bx
      mov  ax,[bp+6]
      mov  bx,[bp+0ah]
      imul  bx
      add  bp+8,ax
      adc  bp+10,bx
      pop  dx
      pop  bx
      pop  ax
      pop  bp
      ret
mmul endp
cseg ends
    end start
   

地主 发表时间: 05-01-06 15:41

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号