! *** 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
    
    
    ! +
    ! 
    !  LPA-11 CHARACTERISTICS DEFINITIONS
    ! 
    ! -
    ! MICROCODE TYPE VALUES 
      DECLARE LONG CONSTANT LA$K_MRMCODE = 1  !  MULTIREQUEST MICROCODE 
      DECLARE LONG CONSTANT LA$K_ADMCODE = 2  !  DEDICATED A/D MICROCODE 
      DECLARE LONG CONSTANT LA$K_DAMCODE = 3  !  DEDICATED D/A MICROCODE 
      DECLARE LONG CONSTANT LA$M_MCVALID = x'00000001'
      DECLARE LONG CONSTANT LA$M_CLOCKA = x'00000008'
      DECLARE LONG CONSTANT LA$M_CLOCKB = x'00000010'
      DECLARE LONG CONSTANT LA$M_AD1 = x'00000020'
      DECLARE LONG CONSTANT LA$M_AD2 = x'00000040'
      DECLARE LONG CONSTANT LA$M_DA = x'00000080'
      DECLARE LONG CONSTANT LA$M_DIO1 = x'00000100'
      DECLARE LONG CONSTANT LA$M_DIO2 = x'00000200'
      DECLARE LONG CONSTANT LA$M_DIO3 = x'00000400'
      DECLARE LONG CONSTANT LA$M_DIO4 = x'00000800'
      DECLARE LONG CONSTANT LA$M_DIO5 = x'00001000'
      DECLARE LONG CONSTANT LA$M_BFROVRN = x'00800000'
      DECLARE LONG CONSTANT LA$S_LADEF = 4
      record LADEF
         variant
            case
               group LA$R_LADEF_BITS0
                   !  MICROCODE VALID 
                   !  MICROCODE TYPE 
                   !  DEVICE CONFIGURATION BITS 
                   !  CLOCK RATE 
                   !  CLOCK PRESET 
                  LONG MCVALID_bits   ! COMMENT ADDED BY SDL - MCVALID_bits contains bits MCVALID through PRESET
               end group LA$R_LADEF_BITS0
            case
               group LA$R_LADEF_BITS1
                   !  SKIP OVER MICROCODE VALID AND TYPE 
                   !  CLOCK A 
                   !  CLOCK B 
                   !  A/D ? 1 
                   !  A/D ? 2 
                   !  D/A 
                   !  DIGITAL I/O ? 1 
                   !  DIGITAL I/O ? 2 
                   !  DIGITAL I/O ? 3 
                   !  DIGITAL I/O ? 4 
                   !  DIGITAL I/O ? 5 
                  WORD FILL_1_bits   ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through FILL_73_
               end group LA$R_LADEF_BITS1
            case
               group LA$R_LADEF_BITS2
                   ! (IN USER'S COMMAND TABLE) 
                   !  BUFFER OVERRUN NON-FATAL BIT 
                  LONG FILL_2_bits   ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through BFROVRN
               end group LA$R_LADEF_BITS2
         end variant
      end record LADEF