! *** 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
    
    
      DECLARE LONG CONSTANT X86_REG$_GSBASE = 1200  !  GS segment base register using xxGSBASE instructions
      DECLARE LONG CONSTANT X86_REG$_TR = 1201  !  Task register using ltr/str instructions
      DECLARE LONG CONSTANT X86_REG$_TSC = 1202  !  Time-Stamp Counter (getreg only) using rdtsc instruction
      DECLARE LONG CONSTANT X86_REG$_FSBASE = 1203  !  FS segment base register using xxFSBASE instructions
      DECLARE LONG CONSTANT X86_REG$_SP = 1204  !  Current contents of %RSP (getreg only)
      DECLARE LONG CONSTANT X86_REG$_MXCSR = 1205  !  MXCSR floating control ? status register using xxMXCSR instructions
    !  Program status and control (RFLAGS) register
      DECLARE LONG CONSTANT X86_REG$_EFLAGS = 3200
      DECLARE LONG CONSTANT X86_REG$_RFLAGS = 3200  !  Yes, the same as EFLAGS
    !  Control registers
      DECLARE LONG CONSTANT X86_REG$_CR0 = 4200
      DECLARE LONG CONSTANT X86_REG$_CR2 = 4202
      DECLARE LONG CONSTANT X86_REG$_CR3 = 4203
      DECLARE LONG CONSTANT X86_REG$_CR4 = 4204
      DECLARE LONG CONSTANT X86_REG$_CR8 = 4208
    !  Indirect registers for getIndReg() and setIndReg()
      DECLARE LONG CONSTANT X86_REG$_INDR_MSR = 9200
      DECLARE LONG CONSTANT X86_REG$_INDR_XCR = 9201