%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
    
    
    ! +
    !  MAGNETIC TAPE DENSITY/COMPRESSION DEFINITIONS
    ! 
    !  These values are used only for MTD enhanced tape drivers 
    !  and are not found in MTDEF.
    !     	 						
      DECLARE LONG CONSTANT MT3$K_DEFAULT = 0  !  DEFAULT DENSITY/COMPRESSION 
      DECLARE LONG CONSTANT MT3$K_NRZI_800 = 257  !  NRZI 800 BPI 
      DECLARE LONG CONSTANT MT3$K_PE_1600 = 258  !  PE 1600 BPI 
      DECLARE LONG CONSTANT MT3$K_GCR_6250 = 260  !  GCR 6250 BPI 
      DECLARE LONG CONSTANT MT3$K_TK50 = 513  !  DLT TK50: 833 BPI
      DECLARE LONG CONSTANT MT3$K_TK70 = 514  !  DLT TK70: 1250 BPI
      DECLARE LONG CONSTANT MT3$K_3480 = 769  !  IBM 3480 HPC 39872 BPI
      DECLARE LONG CONSTANT MT3$K_3490E = 770  !  IBM 3480: compressed
      DECLARE LONG CONSTANT MT3$K_3480_COMP = 772  !  IBM 3490 density 
      DECLARE LONG CONSTANT MT3$K_3490E_COMP = 776  !  IBM 3490: compressed
      DECLARE LONG CONSTANT MT3$K_WOD_6250 = 1025  !  RV80 6250 BPI EQUIVALENT
      DECLARE LONG CONSTANT MT3$K_DAT = 1281  !  DAT - 61000 bpi
      DECLARE LONG CONSTANT MT3$K_DAT_COMP = 1282  !  DAT Compressed
    !  Only the Symbols to here are understood by pre-Raven TMSCP / TUDRIVER code.
      DECLARE LONG CONSTANT MT3$K_DENSITY_INVALID = 31  !  Indicates,, DEVDEPEND density is invalid.
      DECLARE LONG CONSTANT MT3$K_8200 = 1537  !  Exa-Byte 8200
      DECLARE LONG CONSTANT MT3$K_8500 = 1538  !  Exa-Byte 8500
      DECLARE LONG CONSTANT MT3$K_8500_COMP = 1540  !  Exa-Byte 8500 Compressed
      DECLARE LONG CONSTANT MT3$K_8200_COMP = 1544  !  Exa-Byte 8200 Compressed
      DECLARE LONG CONSTANT MT3$K_QIC = 1793  !  All QIC drives are drive settable only.
      DECLARE LONG CONSTANT MT3$K_TK85 = 2052  !  DLT Tx85: 10625 BPI -- Cmpt III
      DECLARE LONG CONSTANT MT3$K_TK86 = 2056  !  DLT Tx86: 10626 BPI -- Cmpt III
      DECLARE LONG CONSTANT MT3$K_TK87 = 2064  !  DLT Tx87: 62500 BPI -- Cmpt III
      DECLARE LONG CONSTANT MT3$K_TK87_COMP = 2080  !  DLT Tx87: Compressed 62501 BPI
      DECLARE LONG CONSTANT MT3$K_TK89 = 2305  !  DLT Tx89:  ( Quantum 7000 ) -- Cmpt IV
      DECLARE LONG CONSTANT MT3$K_TK89_COMP = 2306  !  DLT Tx89: Compressed -- Cmpt IV
      DECLARE LONG CONSTANT MT3$K_TK88 = 2368  !  DLT Tx88:  ( Quantum 4000 ) -- Cmpt IV
      DECLARE LONG CONSTANT MT3$K_TK88_COMP = 2432  !  DLT Tx88: Compressed -- Cmpt IV
      DECLARE LONG CONSTANT MT3$K_AIT1 = 2561  !  Sony Advanced Intelligent Tapes
      DECLARE LONG CONSTANT MT3$K_AIT1_COMP = 2562  !  Sony Advanced Intelligent Tapes Compressed
      DECLARE LONG CONSTANT MT3$K_DDS2 = 2817  !  Digital Data Storage 2
      DECLARE LONG CONSTANT MT3$K_DDS2_COMP = 2818  !  Digital Data Storage 2 Compressed
    !  DDS-3 thru DDS-4 are not yet supported by DEC tapes drives
      DECLARE LONG CONSTANT MT3$K_DDS3 = 3073  !  Digital Data Storage 3 
      DECLARE LONG CONSTANT MT3$K_DDS3_COMP = 3074  !  Digital Data Storage 3 Compressed  
      DECLARE LONG CONSTANT MT3$K_DDS4 = 3329  !  Digital Data Storage 4  
      DECLARE LONG CONSTANT MT3$K_DDS4_COMP = 3330  !  Digital Data Storage 4 Compressed  
    !  Compression Only codes.  
    !  The X%FFxx codes below are layed out so that future compression enhancments 
    !  may take advantage of multiple compression types.
      DECLARE LONG CONSTANT MT3$K_NO_COMP = 65280  !  All Compression OFF
      DECLARE LONG CONSTANT MT3$K_COMP = 65281  !  Compression ON