! *** 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
    
    
      DECLARE LONG CONSTANT TTY$M_NO_AUTO_XON = x'00000001'
      DECLARE LONG CONSTANT TTY$M_RESERVED = x'000000FE'
      DECLARE LONG CONSTANT TTY$M_PARITY_ERROR = x'00000100'
      DECLARE LONG CONSTANT TTY$M_USE_WINDOW_CONSOLE = x'00000200'
      DECLARE LONG CONSTANT TTY$M_LOAD_INPUT_EXTENSION = x'00000400'
      DECLARE LONG CONSTANT TTY$M_IA64_POLLED_CONSOLE = x'00000800'
      DECLARE LONG CONSTANT TTY$M_IA64_CONSOLE_NOTIME = x'00001000'
      DECLARE LONG CONSTANT TTY$S_TTYDPORTDEF = 2
      record TTYDPORTDEF
         variant
            case
               group TTY$R_TTYDPORTDEF_BITS
                   !  Disable automatic Xon/Xoff
                   !  Next 7 bits are reserved
                   !  Drop parity error chars
                   !  Console option
                   !  Console option
                   !  IA64 flag to force console to poll
                   !  IA64 console disable output timer flag
                  WORD NO_AUTO_XON_bits   ! COMMENT ADDED BY SDL - NO_AUTO_XON_bits contains bits NO_AUTO_XON through FILL_46_
               end group TTY$R_TTYDPORTDEF_BITS
         end variant
      end record TTYDPORTDEF