! *** 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
    
    
    ! +
    !  MAGTAPE STATUS BITS
    ! -
      DECLARE LONG CONSTANT MT$M_SEREXCP = x'00000001'
      DECLARE LONG CONSTANT MT$M_ENAUTOPACK = x'00000002'
      DECLARE LONG CONSTANT MT$M_ENSEREXCP = x'00000004'
      DECLARE LONG CONSTANT MT$M_PARITY = x'00000008'
      DECLARE LONG CONSTANT MT$M_FORMAT = x'000000F0'
      DECLARE LONG CONSTANT MT$M_DENSITY = x'00001F00'
      DECLARE LONG CONSTANT MT$M_FASTSKIP_USED = x'00002000'
      DECLARE LONG CONSTANT MT$M_LOGSOFT = x'00004000'
      DECLARE LONG CONSTANT MT$M_LOGSOFTOG = x'00008000'
      DECLARE LONG CONSTANT MT$M_BOT = x'00010000'
      DECLARE LONG CONSTANT MT$M_EOF = x'00020000'
      DECLARE LONG CONSTANT MT$M_EOT = x'00040000'
      DECLARE LONG CONSTANT MT$M_HWL = x'00080000'
      DECLARE LONG CONSTANT MT$M_LOST = x'00100000'
      DECLARE LONG CONSTANT MT$M_SUP_NRZI = x'00200000'
      DECLARE LONG CONSTANT MT$M_SUP_PE = x'00400000'
      DECLARE LONG CONSTANT MT$M_SUP_GCR = x'00800000'
      DECLARE LONG CONSTANT MT$M_SPEED = x'FF000000'
      DECLARE LONG CONSTANT MT$K_DEFAULT = 0  !  DEFAULT FORMAT 
      DECLARE LONG CONSTANT MT$K_NORMAL11 = 12  !  PDP-11 NORMAL 
      DECLARE LONG CONSTANT MT$K_CORDMP11 = 13  !  PDP-11 CORE DUMP 
      DECLARE LONG CONSTANT MT$K_NORMAL15 = 14  !  PDP-15 NORMAL 
    ! 
      DECLARE LONG CONSTANT MT$K_NRZI_800 = 3  !  NRZI 800 BPI 
      DECLARE LONG CONSTANT MT$K_PE_1600 = 4  !  PE 1600 BPI 
      DECLARE LONG CONSTANT MT$K_GCR_6250 = 5  !  GCR 6250 BPI 
      DECLARE LONG CONSTANT MT$K_WOD_6250 = 8  !  RV80 6250 BPI EQUIVALENT
      DECLARE LONG CONSTANT MT$K_SCSI_DC1 = 10  !  Data Compaction algorithm 1
      DECLARE LONG CONSTANT MT$K_HPC_40K = 12  !  HPC 39872 BPI
      DECLARE LONG CONSTANT MT$K_HPC_COMP = 13  !  HPC 39872 compacted
      DECLARE LONG CONSTANT MT$K_XPC_80K = 14  !  
      DECLARE LONG CONSTANT MT$K_XPC_COMP = 15  !  
      DECLARE LONG CONSTANT MT$K_BLK_833 = 17  !  BLOCK (TK50) 833 BPI
      DECLARE LONG CONSTANT MT$K_BLK_1250 = 18  !  BLOCK (TK70) 1250 BPI
      DECLARE LONG CONSTANT MT$K_BLK_10K = 19  !  BLOCK (TF85) 10625 BPI
      DECLARE LONG CONSTANT MT$K_BLK_20K = 20  !  BLOCK (TF86) 10626
      DECLARE LONG CONSTANT MT$K_BLK_60K = 21  !  BLOCK (Tx87) 62500
      DECLARE LONG CONSTANT MT$K_BLK_COMP = 22  !  BLOCK (Tx87) COMPRESSED 62501
      DECLARE LONG CONSTANT MT$K_DAT_61K = 24  !  DAT CARTRIDGE 61000 BPI EQUIVALENT
    ! 
      DECLARE LONG CONSTANT MT$K_SPEED_DEF = 0  !  DEFAULT SPEED
      DECLARE LONG CONSTANT MT$K_SPEED_25 = 25  !  25 IPS
      DECLARE LONG CONSTANT MT$K_SPEED_75 = 75  !  75 IPS
      DECLARE LONG CONSTANT MT$S_MTDEF = 4
      record MTDEF
         variant
            case
               group MT$R_MTDEF_BITS
                   !  SERIOUS EXCEPTION PRESENT
                   !  ENABLE AUTO PACKACK
                   !  ENABLE SERIOUS EXCEPTION MODE
                   !  PARITY SELECT (0=ODD, 1=EVEN) 
                   !  RECORDING FORMAT 
                   !  RECORDING DENSITY AND METHOD 
                   !  IO$_SKIPFILE USED SKIP BY FILEMARKS
                   !  LOG SOFT (TU78) ERRORS (0=NO, 1=YES) 
                   !  TOGGLE TO REVERSE LOGSOFT STATE BIT 
                   !  AT BEGINNING OF TAPE 
                   !  AT END OF FILE 
                   !  AT END OF TAPE 
                   !  TAPE IS HARDWARE WRITELOCKED 
                   !  TAPE POSITION LOST 
                   !  DRIVE SUPPORTS NRZI (800 BPI)
                   !  DRIVE SUPPORTS PE (1600 BPI)
                   !  DRIVE SUPPORTS GCR (6250 BPI)
                   !  TAPE SPEED
                  LONG SEREXCP_bits   ! COMMENT ADDED BY SDL - SEREXCP_bits contains bits SEREXCP through SPEED
               end group MT$R_MTDEF_BITS
    ! 
    !  RECORDING FORMAT DEFINTIONS
    ! 
    !  
    !  RECORDING DENSITY AND METHOD DEFINITIONS
    ! 
    ! 	Default				 0
    ! 	9 Track				 1 - 7
    ! 	Optical Disk			 8 - 9
    ! 	SCSI Compaction codes		10 - 11
    ! 	High Performance Cartridge	12 - 15
    ! 	Block Mode			16 - 23
    ! 	Reserved			24 - 31
    ! 
    !  
    !                 DEFAULT,0                /* DEFAULT DENSITY (SAME AS ABOVE)
    !  TAPE SPEED VALUE DEFINITIONS
    ! 
         end variant
      end record MTDEF