/********************************************************************************************************************************/ /* Created: 15-MAR-2001 23:37:50 by OpenVMS SDL EV1-33 */ /* Source: 15-MAR-2001 23:34:32 _$11$DUA933:[BUILD.SDL]SRMDEF.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $PSWDEF ***/ #ifndef __PSWDEF_LOADED #define __PSWDEF_LOADED 1 #pragma nostandard #ifdef __cplusplus extern "C" { #define __unknown_params ... #else #define __unknown_params #endif #if !defined(__VAXC) && !defined(VAXC) #define __struct struct #define __union union #else #define __struct variant_struct #define __union variant_union #endif /*+ */ /* Define PSW bits (STARDEF.MDL has PSL bits) */ /*- */ #define PSW$M_C 0x1 #define PSW$M_V 0x2 #define PSW$M_Z 0x4 #define PSW$M_N 0x8 #define PSW$M_TBIT 0x10 #define PSW$M_IV 0x20 #define PSW$M_FU 0x40 #define PSW$M_DV 0x80 union pswdef { __struct { unsigned psw$v_c : 1; /* carry */ unsigned psw$v_v : 1; /* overflow */ unsigned psw$v_z : 1; /* zero */ unsigned psw$v_n : 1; /* negative */ unsigned psw$v_tbit : 1; /* trace trap enable */ unsigned psw$v_iv : 1; /* integer overflow enable */ unsigned psw$v_fu : 1; /* floating underflow enable */ unsigned psw$v_dv : 1; /* decimal overflow enable */ } psw$r_pswdef_bits; } ; #if !defined(__VAXC) && !defined(VAXC) #define psw$v_c psw$r_pswdef_bits.psw$v_c #define psw$v_v psw$r_pswdef_bits.psw$v_v #define psw$v_z psw$r_pswdef_bits.psw$v_z #define psw$v_n psw$r_pswdef_bits.psw$v_n #define psw$v_tbit psw$r_pswdef_bits.psw$v_tbit #define psw$v_iv psw$r_pswdef_bits.psw$v_iv #define psw$v_fu psw$r_pswdef_bits.psw$v_fu #define psw$v_dv psw$r_pswdef_bits.psw$v_dv #endif /* #if !defined(__VAXC) && !defined(VAXC) */ #ifdef __cplusplus } #endif #pragma standard #endif /* __PSWDEF_LOADED */