! *** 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
    
    
    ! ++
    ! 
    !  XWDEF - System definitions for software DDCMP
    ! 
    ! --
      DECLARE LONG CONSTANT XW$M_CHA_FDX = x'00000001'
      DECLARE LONG CONSTANT XW$M_CHA_XPR = x'00000002'
      DECLARE LONG CONSTANT XW$M_CHA_DSR = x'00000004'
      DECLARE LONG CONSTANT XW$M_FAT_STAT = x'000003FF'
      DECLARE LONG CONSTANT XW$M_INFO_STAT = x'0000FC00'
      DECLARE LONG CONSTANT XW$M_EOT = x'00000001'
      DECLARE LONG CONSTANT XW$M_DATACK = x'00000002'
      DECLARE LONG CONSTANT XW$M_NODSR = x'00000004'
      DECLARE LONG CONSTANT XW$M_DISCON = x'00000008'
      DECLARE LONG CONSTANT XW$M_TRABINTMO = x'00000010'
      DECLARE LONG CONSTANT XW$M_PIPE_MARK = x'00000020'
      DECLARE LONG CONSTANT XW$M_BADCHAIN = x'00000040'
      DECLARE LONG CONSTANT XW$M_ILLMOD = x'00000080'
      DECLARE LONG CONSTANT XW$M_RVI = x'00000400'
      DECLARE LONG CONSTANT XW$M_CONACK = x'00000800'
      DECLARE LONG CONSTANT XW$M_XPR = x'00001000'
      DECLARE LONG CONSTANT XW$M_ETXEND = x'00002000'
      DECLARE LONG CONSTANT XW$M_PUNCH = x'00010000'
      DECLARE LONG CONSTANT XW$M_HOR_FOR = x'00020000'
      DECLARE LONG CONSTANT XW$M_IOMOD = x'0000E000'
      DECLARE LONG CONSTANT XW$S_XWDEF = 3
      record XWDEF
         variant
            case
               group XW$R_XWDEF_BITS0
                   !  Full duplex line 
                   !  Transparency 
                   !  Data Set Ready set 
                  BYTE CHA_FDX_bits   ! COMMENT ADDED BY SDL - CHA_FDX_bits contains bits CHA_FDX through FILL_81_
               end group XW$R_XWDEF_BITS0
    ! 
    !  Device dependent status
    ! 
            case
               group XW$R_XWDEF_BITS1
                   !  Beginning of fatal stat flags 
                   !  Start of informational status 
                  WORD FAT_STAT_bits   ! COMMENT ADDED BY SDL - FAT_STAT_bits contains bits FAT_STAT through INFO_STAT
               end group XW$R_XWDEF_BITS1
    ! 
    !  Bit definitions for fatal and informational status fields
    ! 
            case
               group XW$R_XWDEF_BITS2
                   !  EOT received 
                   !  Retry threshold exceeded 
                   !  Line not connected 
                   !  Disconnect (DLE, EOT) rcvd 
                   !  Binary transmit timeout 
                   !  Aborted because of pipe mark 
                   !  Bad record list 
                   !  Illegal QIO modifier 
                   !  Buffer ACKed with RVI 
                   !  Buffer ACKed with conver resp 
                   !  Buffer rcvd with transparency 
                   !  Rcvd block ended with ETX 
                   !  Punch select found 
                   !  Horizontal forms record rcvd 
                  LONG EOT_bits   ! COMMENT ADDED BY SDL - EOT_bits contains bits EOT through FILL_82_
               end group XW$R_XWDEF_BITS2
    ! 
    !  Read/Write function modifier definition
    ! 
            case
               group XW$R_XWDEF_BITS3
                   !  I/O modifier field start 
                  WORD FILL_3_bits   ! COMMENT ADDED BY SDL - FILL_3_bits contains bits FILL_3 through IOMOD
               end group XW$R_XWDEF_BITS3
         end variant
      end record XWDEF