home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTH / PASM386C.ZIP / DM386.SEQ < prev    next >
Encoding:
Text File  |  1989-09-16  |  549 b   |  27 lines
  1. \ 386 Double Precision Multiply
  2.  
  3. \ Gene Czarcinski, 16sep89
  4.  
  5. asm.386                         \ full instruction set
  6. \ headerless
  7.  
  8. CODE (D*)       ( 'd2 'd1 -- 'dprod )
  9.                 pop     eax
  10.                 pop     ebx
  11.                 mul     ebx
  12.                 push    eax
  13.                 next
  14.                 END-CODE
  15.  
  16. \ headers
  17.  
  18. : D*    ( d1 d2 -- dprod )
  19.         swap 2swap swap         \ setup
  20.         (D*)                    \ do it
  21.         swap ;
  22.  
  23. \ behead
  24.  
  25. asm.8086                        \ revert to normal
  26.  
  27.