Return to inter.h CVS log

Up to [Research Unix] / researchv10dc / cmd / spitbol / ocint

Annotation of researchv10dc/cmd/spitbol/ocint/inter.h, revision 1.1

1.1     ! root        1: extern float reg_ra;
        !             2: extern long reg_cp, reg_ia, reg_wa, reg_wb, reg_wc, reg_xr, reg_xl;
        !             3: 
        !             4: /* macros to fetch parameter registers */
        !             5: #define RA(type) ((type) reg_ra)
        !             6: #define CP(type) ((type) reg_cp)
        !             7: #define IA(type) ((type) reg_ia)
        !             8: #define WA(type) ((type) reg_wa)
        !             9: #define WB(type) ((type) reg_wb)
        !            10: #define WC(type) ((type) reg_wc)
        !            11: #define XR(type) ((type) reg_xr)
        !            12: #define XL(type) ((type) reg_xl)
        !            13: 
        !            14: /* macros to set parameter registers */
        !            15: #define SET_RA(val) reg_ra = (float) (val)
        !            16: #define SET_CP(val) reg_cp = (long) (val)
        !            17: #define SET_IA(val) reg_ia = (long) (val)
        !            18: #define SET_WA(val) reg_wa = (long) (val)
        !            19: #define SET_WB(val) reg_wb = (long) (val)
        !            20: #define SET_WC(val) reg_wc = (long) (val)
        !            21: #define SET_XR(val) reg_xr = (long) (val)
        !            22: #define SET_XL(val) reg_xl = (long) (val)
        !            23: 
        !            24: /* a temporary scblk for various routines */
        !            25: struct {
        !            26:        long type;
        !            27:        long len;
        !            28:        char s[100];
        !            29: } tempstr;
        !            30: 
        !            31: /* pointer to output filename */
        !            32: char *outptr;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.