home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / softcrc / masm / masm.610 / disk3 / samples / mixed / fmain.fo$ / FMAIN
Encoding:
Text File  |  1992-11-12  |  338 b   |  15 lines
  1. C     Calls Power2 in FORTRAN.ASM
  2. C     Compile with:  FL FMAIN.FOR FORTRAN.OBJ
  3.  
  4.       INTERFACE TO INTEGER*2 FUNCTION POWER2(A, B)
  5.       INTEGER*2 A, B
  6.       END
  7.  
  8.       PROGRAM MAIN
  9.       INTEGER*2 POWER2
  10.       INTEGER*2 A, B
  11.       A = 3
  12.       B  = 5
  13.       WRITE (*, *) '3 TIMES 2 TO THE B OR 5 IS ',POWER2(A, B)
  14.       END
  15.