Return to osint.h CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/osint.h, revision 1.1.1.1

1.1       root        1: /*
                      2: /   This header file defines the interface between the Macro SPITBOL compiler
                      3: /   written in assembly langauge and the OS interface written in C.
                      4: /   Communication between the two is handled via a set of global variables 
                      5: /   defined as externals below.
                      6: */
                      7: 
                      8: /*
                      9: /   Set up externals for all the compiler's registers.
                     10: */
                     11: 
                     12: extern float   reg_ra;
                     13: extern long    reg_cp, reg_ia, reg_wa, reg_wb, reg_wc, reg_xr, reg_xl;
                     14: 
                     15: /*
                     16: /   Macros to fetch a value of appropriate type from a compiler register
                     17: */
                     18: 
                     19: #define RA(type)       ((type) reg_ra)
                     20: #define CP(type)       ((type) reg_cp)
                     21: #define IA(type)       ((type) reg_ia)
                     22: #define WA(type)       ((type) reg_wa)
                     23: #define WB(type)       ((type) reg_wb)
                     24: #define WC(type)       ((type) reg_wc)
                     25: #define XR(type)       ((type) reg_xr)
                     26: #define XL(type)       ((type) reg_xl)
                     27: 
                     28: /*
                     29: /   Macros to set a value of appropriate type into a compiler register.
                     30: */
                     31: 
                     32: #define SET_RA(val)    reg_ra = (float) (val)
                     33: #define SET_CP(val)    reg_cp = (long) (val)
                     34: #define SET_IA(val)    reg_ia = (long) (val)
                     35: #define SET_WA(val)    reg_wa = (long) (val)
                     36: #define SET_WB(val)    reg_wb = (long) (val)
                     37: #define SET_WC(val)    reg_wc = (long) (val)
                     38: #define SET_XR(val)    reg_xr = (long) (val)
                     39: #define SET_XL(val)    reg_xl = (long) (val)
                     40: 
                     41: /*
                     42: /   Return values to take exit N from interface
                     43: */
                     44: 
                     45: #define EXIT_1         0
                     46: #define EXIT_2         4
                     47: #define EXIT_3         8
                     48: #define EXIT_4         12
                     49: #define EXIT_5         16
                     50: #define EXIT_6         20
                     51: #define EXIT_7         24
                     52: #define EXIT_8         28
                     53: #define EXIT_9         32
                     54: 
                     55: /*
                     56: /    Return value to do a normal return from interface.
                     57: */
                     58: 
                     59: #define NORMAL_RETURN  (-1)
                     60: 
                     61: /*
                     62: /   Define length of temporary string in tscblk.  (Must be coordinated with
                     63: /   vaxinter.s.
                     64: */
                     65: 
                     66: #define TSCBLK_LENGTH  120

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