home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / masm / masm6 / mixed / fortran.asm < prev    next >
Encoding:
Assembly Source File  |  1990-12-04  |  440 b   |  20 lines
  1. ; Power2 routine called by FMAIN.FOR
  2. ; Assemble with ML /c FORTRAN.ASM
  3.  
  4.         .MODEL LARGE, FORTRAN
  5.  
  6. Power2  PROTO  FORTRAN, factor:FAR PTR SWORD, power:FAR PTR SWORD
  7.  
  8.         .CODE
  9.  
  10. Power2  PROC   FORTRAN, factor:FAR PTR SWORD, power:FAR PTR SWORD
  11.  
  12.         les     bx, factor
  13.         mov     ax, ES:[bx]
  14.         les     bx, power
  15.         mov     cx, ES:[bx]
  16.         shl     ax, cl
  17.         ret
  18. Power2  ENDP
  19.         END
  20.