fbios.fi

来自「著名的berkeley大学开发的结构动力非线性分析程序」· FI 代码 · 共 67 行

***
*fbios.fi - declare constants and functions for C library
*
***** Jeng Wei Li ******
*
*Purpose:
*   This file declares the C library bios functions and
*   the manifest constants that are used with them.
*
*******************************************************************************

$NOTRUNCATE
$NOTSTRICT

* standard I/O functions. This one is belong to stdio.h

         INTERFACE TO FUNCTION getch ()
         CHARACTER*1 getch [C]
         END

         INTERFACE TO SUBROUTINE outp [FAR,C]
     +      (IPORT,IDATA)
         INTEGER*2 IPORT,IDATA
         END

         INTERFACE TO FUNCTION inp [FAR,C] (IPORT)
         INTEGER*2 IPORT,INP
         END

* manifest constants for BIOS keyboard support

         INTERFACE TO FUNCTION BIOS_KEYBRD (ICMD)
         INTEGER*2 BIOS_KEYBRD [C,ALIAS:"__bios_keybrd"],ICMD[FAR]
         END

         INTERFACE TO CHARACTER*1 FUNCTION GETCWD [C,REFERENCE]
     +                        (PNAME[REFERENCE],MAXLEN)
         INTEGER*2 MAXLEN[FAR]
         CHARACTER*1 PNAME
         END

         INTERFACE TO SUBROUTINE SEARCHENV [C,ALIAS:"__searchenv"]
     +      (FILENAME,VARNAME,PNAME)
         CHARACTER*1 FILENAME [REFERENCE],VARNAME [REFERENCE],
     +               PNAME [REFERENCE]
         END

* mouse function from C lanage int86 interupt calling...
* source file : CMOUSE.C

         INTERFACE TO FUNCTION BIOS_MOUSE(ICMD,MI)
         INTEGER*2 BIOS_MOUSE [FAR,C],ICMD
         STRUCTURE /MOUSE/
           INTEGER*2 READY
           INTEGER*2 COL
           INTEGER*2 ROW
           INTEGER*2 ON
           INTEGER*2 OFF
         END STRUCTURE
         RECORD /MOUSE/ MI [FAR,REFERENCE]
         END

* menu function from C language
         INTERFACE TO FUNCTION MBEEP (NFREQ,NDURE,NREPT,NWAIT)
         INTEGER*2 MBEEP [FAR,C],NFREQ,NDURE,NREPT,NWAIT
         END