Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2025-02-21 10:04:38

0001 #if 0
0002 *       for VAX
0003 * This pilot patch was created from kernvax.car patch _kvax
0004 * This directory was created from kernvax.car patch vaxalpha
0005 * This directory was created from kernvax.car patch qmvax
0006 * This directory was created from kernfor.car patch qmvax
0007 *               CC assumed available
0008 *     external names without underscores
0009 *     ISA standard routines, ISHFT, IOR, etc
0010 *     MIL standard routines, IBITS, MVBITS, ISHFTC
0011 *       Hollerith constants exist
0012 *    EQUIVALENCE Hollerith/Character ok
0013 *       Hollerith storage not orthodox
0014 #endif
0015 #ifndef CERNLIB_QMVAXCC
0016 #define CERNLIB_QMVAXCC
0017 #endif
0018 #ifndef CERNLIB_QMVAX
0019 #define CERNLIB_QMVAX
0020 #endif
0021 #ifndef CERNLIB_QXNO_SC
0022 #define CERNLIB_QXNO_SC
0023 #endif
0024 #ifndef CERNLIB_QISASTD
0025 #define CERNLIB_QISASTD
0026 #endif
0027 #ifndef CERNLIB_QMILSTD
0028 #define CERNLIB_QMILSTD
0029 #endif
0030 #ifdef CERNLIB_QORTHOLL
0031 #undef CERNLIB_QORTHOLL
0032 #endif
0033 #ifndef CERNLIB_QINTZERO
0034 #define CERNLIB_QINTZERO
0035 #endif