%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$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_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1
    %END %IF
    
    
    ! +
    !  PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS
    ! -
      DECLARE LONG CONSTANT PSL$M_C = x'00000001'
      DECLARE LONG CONSTANT PSL$M_V = x'00000002'
      DECLARE LONG CONSTANT PSL$M_Z = x'00000004'
      DECLARE LONG CONSTANT PSL$M_N = x'00000008'
      DECLARE LONG CONSTANT PSL$M_TBIT = x'00000010'
      DECLARE LONG CONSTANT PSL$M_IV = x'00000020'
      DECLARE LONG CONSTANT PSL$M_FU = x'00000040'
      DECLARE LONG CONSTANT PSL$M_DV = x'00000080'
      DECLARE LONG CONSTANT PSL$M_IPL = x'001F0000'
      DECLARE LONG CONSTANT PSL$M_PRVMOD = x'00C00000'
      DECLARE LONG CONSTANT PSL$M_CURMOD = x'03000000'
      DECLARE LONG CONSTANT PSL$M_IS = x'04000000'
      DECLARE LONG CONSTANT PSL$M_FPD = x'08000000'
      DECLARE LONG CONSTANT PSL$M_TP = x'40000000'
      DECLARE LONG CONSTANT PSL$M_CM = x'80000000'
      DECLARE LONG CONSTANT PSL$C_KERNEL = 0  !  KERNEL MODE 
      DECLARE LONG CONSTANT PSL$C_EXEC = 1  !  EXEC MODE 
      DECLARE LONG CONSTANT PSL$C_SUPER = 2  !  SUPERVISOR MODE 
      DECLARE LONG CONSTANT PSL$C_USER = 3  !  USER MODE 
      DECLARE LONG CONSTANT PSL$M_SAFBITS = 14335
      DECLARE LONG CONSTANT PSL$S_PSLDEF = 4
      record PSLDEF
         variant
            case
               group PSL$R_PSLDEF_BITS
                   !  Carry 
                   !  oVerflow 
                   !  Zero 
                   !  Negative 
                   !  TBIT ENABLE 
                   !  INTEGER OVERFLOW 
                   !  FLOATING UNDEFINED 
                   !  DIVIDE BY ZERO 
                   !  INTERRUPT PRIORITY LEVEL 
                   !  PREVIOUS PROCESSOR MODE 
                   !  CURRENT PROCESSOR MODE 
                   !  INTERRUPT STACK BIT 
                   !  FIRST PART DONE 
                   !  MUST BE ZERO 
                   !  TRACE TRAP PENDING 
                   !  COMPATIBILITY MODE BIT AND MASK 
                  LONG C_bits   ! COMMENT ADDED BY SDL - C_bits contains bits C through CM
               end group PSL$R_PSLDEF_BITS
    ! 
    !  MODE SYMBOL DEFINITIONS
    ! 
         end variant
      end record PSLDEF