! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
     !  Definitions for LIB$DECODE_FAULT
    
    ! 
    !  Operand definition codes
    ! 
      DECLARE LONG CONSTANT LIB$M_DCFACC = x'00000007'
      DECLARE LONG CONSTANT LIB$M_DCFTYP = x'000000F8'
      DECLARE LONG CONSTANT LIB$S_LIB$B_DCF_OPERAND = 1
      record LIB$B_DCF_OPERAND
          !  Operand access type
          !  Operand data type
         BYTE DCFACC_bits   ! COMMENT ADDED BY SDL - DCFACC_bits contains bits DCFACC through DCFTYP
      end record LIB$B_DCF_OPERAND
    
    ! 
    !  Operand access type codes
    ! 
      DECLARE LONG CONSTANT LIB$K_DCFACC_R = 1  !  Operand is to be read
      DECLARE LONG CONSTANT LIB$K_DCFACC_M = 2  !  Operand is to be modified
      DECLARE LONG CONSTANT LIB$K_DCFACC_W = 3  !  Operand is to be written
      DECLARE LONG CONSTANT LIB$K_DCFACC_A = 4  !  Operand is an address
      DECLARE LONG CONSTANT LIB$K_DCFACC_V = 5  !  Operand is a field (may be register or address)
      DECLARE LONG CONSTANT LIB$K_DCFACC_B = 6  !  Operand is a branch displacement
    ! 
    !  Operand data type codes
    ! 
      DECLARE LONG CONSTANT LIB$K_DCFTYP_B = 1  !  Operand is a byte
      DECLARE LONG CONSTANT LIB$K_DCFTYP_W = 2  !  Operand is a word
      DECLARE LONG CONSTANT LIB$K_DCFTYP_L = 3  !  Operand is a longword
      DECLARE LONG CONSTANT LIB$K_DCFTYP_Q = 4  !  Operand is a quadword
      DECLARE LONG CONSTANT LIB$K_DCFTYP_O = 5  !  Operand is an octaword
      DECLARE LONG CONSTANT LIB$K_DCFTYP_F = 6  !  Operand is an F_floating
      DECLARE LONG CONSTANT LIB$K_DCFTYP_D = 7  !  Operand is a D_floating
      DECLARE LONG CONSTANT LIB$K_DCFTYP_G = 8  !  Operand is a G_floating
      DECLARE LONG CONSTANT LIB$K_DCFTYP_H = 9  !  Operand is an H_floating
    ! 
    !  Combined operand access and data type codes
    ! 
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AB = 8
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RB = 9
      DECLARE LONG CONSTANT LIB$K_DCFOPR_MB = 10
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WB = 11
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VB = 12
      DECLARE LONG CONSTANT LIB$K_DCFOPR_BB = 13
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AW = 16
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RW = 17
      DECLARE LONG CONSTANT LIB$K_DCFOPR_MW = 18
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WW = 19
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VW = 20
      DECLARE LONG CONSTANT LIB$K_DCFOPR_BW = 21
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AL = 24
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RL = 25
      DECLARE LONG CONSTANT LIB$K_DCFOPR_ML = 26
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WL = 27
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VL = 28
      DECLARE LONG CONSTANT LIB$K_DCFOPR_BL = 29
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AQ = 32
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RQ = 33
      DECLARE LONG CONSTANT LIB$K_DCFOPR_MQ = 34
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WQ = 35
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VQ = 36
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AO = 40
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RO = 41
      DECLARE LONG CONSTANT LIB$K_DCFOPR_MO = 42
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WO = 43
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VO = 44
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AF = 48
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RF = 49
      DECLARE LONG CONSTANT LIB$K_DCFOPR_MF = 50
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WF = 51
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VF = 52
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AD = 56
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RD = 57
      DECLARE LONG CONSTANT LIB$K_DCFOPR_MD = 58
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WD = 59
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VD = 60
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AG = 64
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RG = 65
      DECLARE LONG CONSTANT LIB$K_DCFOPR_MG = 66
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WG = 67
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VG = 68
      DECLARE LONG CONSTANT LIB$K_DCFOPR_AH = 72
      DECLARE LONG CONSTANT LIB$K_DCFOPR_RH = 73
      DECLARE LONG CONSTANT LIB$K_DCFOPR_MH = 74
      DECLARE LONG CONSTANT LIB$K_DCFOPR_WH = 75
      DECLARE LONG CONSTANT LIB$K_DCFOPR_VH = 76
      DECLARE LONG CONSTANT LIB$K_DCFOPR_END = 0
    !