! *** 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 ! + ! 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_8900 = 1552 ! Exa-Byte 8900 DECLARE LONG CONSTANT MT3$K_8900_COMP = 1568 ! Exa-Byte 8900 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_DLT8000 = 3588 ! DLT8000 DECLARE LONG CONSTANT MT3$K_DLT8000_COMP = 3592 ! DLT8000 Compressed DECLARE LONG CONSTANT MT3$K_SDLT = 3600 ! Super DLT DECLARE LONG CONSTANT MT3$K_SDLT_COMP = 3616 ! Super DLT Compressed DECLARE LONG CONSTANT MT3$K_SDLT320 = 3648 ! Super DLT320 DECLARE LONG CONSTANT MT3$K_SDLT320_COMP = 3712 ! Super DLT320 Compressed 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_AIT2 = 2564 ! AIT2 DECLARE LONG CONSTANT MT3$K_AIT2_COMP = 2568 ! AIT2 Compressed DECLARE LONG CONSTANT MT3$K_AIT3 = 2576 ! AIT3 DECLARE LONG CONSTANT MT3$K_AIT3_COMP = 2592 ! AIT3 Compressed DECLARE LONG CONSTANT MT3$K_AIT4 = 2624 ! AIT4 DECLARE LONG CONSTANT MT3$K_AIT4_COMP = 2688 ! AIT4 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 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 DECLARE LONG CONSTANT MT3$K_DAT72 = 3332 ! DAT72 DECLARE LONG CONSTANT MT3$K_DAT72_COMP = 3336 ! DAT72 Compressed DECLARE LONG CONSTANT MT3$K_DAT160 = 3344 ! DAT160 DECLARE LONG CONSTANT MT3$K_DAT160_COMP = 3360 ! DAT160 Compressed DECLARE LONG CONSTANT MT3$K_SDLT600 = 3585 ! Super DLT600 DECLARE LONG CONSTANT MT3$K_SDLT600_COMP = 3586 ! Super DLT600 Compressed DECLARE LONG CONSTANT MT3$K_LTO2 = 3841 ! Ultrium460 DECLARE LONG CONSTANT MT3$K_LTO2_COMP = 3842 ! Ultrium460 Compressed DECLARE LONG CONSTANT MT3$K_LTO3 = 3844 ! Ultrium960 DECLARE LONG CONSTANT MT3$K_LTO3_COMP = 3848 ! Ultrium960 Compressed DECLARE LONG CONSTANT MT3$K_LTO4 = 3856 ! Ultrium 1840 DECLARE LONG CONSTANT MT3$K_LTO4_COMP = 3872 ! Ultrium 1840 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