home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Languages / Masm V6.11 / SAMPLES / MIXED / FORTRAN.AS$ / FORTRAN
Encoding:
Text File  |  1992-11-12  |  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.