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

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.