! *** 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
    
    
    ! 
    !  DEFINITIONS FOR STATUS, CHARACTERISTICS AND ERRORS FOR DMC-11/DMR-11/DMP-11
    ! 
      DECLARE LONG CONSTANT XMDEV$S_XMDEV = 8
      record XMDEV
         BYTE XMDEV$B_P1_CLASS              !  Device Class
         BYTE XMDEV$B_P1_TYPE               !  Device type
         WORD XMDEV$W_P1_MMS                !  Maximum message size
         BYTE XMDEV$B_P1_CHAR               !  Unit characteristics
         BYTE XMDEV$B_P1_STS                !  Unit Status
         BYTE XMDEV$B_P1_ESUM               !  Error Summary
         BYTE XMDEV$B_P1_TPI                !  Transmit Pipeline no.
      end record XMDEV
    
      DECLARE LONG CONSTANT XM$M_CHR_MOP = x'00000001'
      DECLARE LONG CONSTANT XM$M_CHR_LOOPB = x'00000002'
      DECLARE LONG CONSTANT XM$M_CHR_HDPLX = x'00000004'
      DECLARE LONG CONSTANT XM$M_CHR_SLAVE = x'00000008'
      DECLARE LONG CONSTANT XM$M_CHR_MBX = x'00000010'
      DECLARE LONG CONSTANT XM$M_CHR_DMC = x'00000020'
      DECLARE LONG CONSTANT XM$M_CHR_CTRL = x'00000040'
      DECLARE LONG CONSTANT XM$M_CHR_TRIB = x'00000080'
      DECLARE LONG CONSTANT XM$M_STS_DCHK = x'00000100'
      DECLARE LONG CONSTANT XM$M_STS_TIMO = x'00000200'
      DECLARE LONG CONSTANT XM$M_STS_ORUN = x'00000400'
      DECLARE LONG CONSTANT XM$M_STS_ACTIVE = x'00000800'
      DECLARE LONG CONSTANT XM$M_STS_BUFFAIL = x'00001000'
      DECLARE LONG CONSTANT XM$M_STS_RUNNING = x'00002000'
      DECLARE LONG CONSTANT XM$M_STS_DISC = x'00004000'
      DECLARE LONG CONSTANT XM$M_ERR_FATAL = x'00010000'
      DECLARE LONG CONSTANT XM$M_ERR_MAINT = x'00080000'
      DECLARE LONG CONSTANT XM$M_ERR_LOST = x'00100000'
      DECLARE LONG CONSTANT XM$M_ERR_THRESH = x'00200000'
      DECLARE LONG CONSTANT XM$M_ERR_TRIB = x'00400000'
      DECLARE LONG CONSTANT XM$M_ERR_START = x'00800000'
      DECLARE LONG CONSTANT XM$M_MDM_RTSHLD = x'00000001'
      DECLARE LONG CONSTANT XM$M_MDM_STNDBY = x'00000002'
      DECLARE LONG CONSTANT XM$M_MDM_MAINT2 = x'00000004'
      DECLARE LONG CONSTANT XM$M_MDM_MAINT1 = x'00000008'
      DECLARE LONG CONSTANT XM$M_MDM_FREQ = x'00000020'
      DECLARE LONG CONSTANT XM$M_MDM_RDY = x'00000040'
      DECLARE LONG CONSTANT XM$M_MDM_POLL = x'00000080'
      DECLARE LONG CONSTANT XM$M_MDM_SELM = x'00000100'
      DECLARE LONG CONSTANT XM$M_MDM_INT = x'00000800'
      DECLARE LONG CONSTANT XM$M_MDM_V35 = x'00001000'
      DECLARE LONG CONSTANT XM$M_MDM_RS232 = x'00004000'
      DECLARE LONG CONSTANT XM$M_MDM_RS422 = x'00008000'
      DECLARE LONG CONSTANT XM$M_MDM_CARRDET = x'00000001'
      DECLARE LONG CONSTANT XM$M_MDM_MSTNDBY = x'00000002'
      DECLARE LONG CONSTANT XM$M_MDM_CTS = x'00000004'
      DECLARE LONG CONSTANT XM$M_MDM_DSR = x'00000008'
      DECLARE LONG CONSTANT XM$M_MDM_HDX = x'00000010'
      DECLARE LONG CONSTANT XM$M_MDM_RTS = x'00000020'
      DECLARE LONG CONSTANT XM$M_MDM_DTR = x'00000040'
      DECLARE LONG CONSTANT XM$M_MDM_RING = x'00000080'
      DECLARE LONG CONSTANT XM$M_MDM_CHRMOD = x'00000100'
      DECLARE LONG CONSTANT XM$M_MDM_MCLOCK = x'00000200'
      DECLARE LONG CONSTANT XM$M_MDM_MODTEST = x'00000400'
      DECLARE LONG CONSTANT XM$M_MDM_SIGQUAL = x'00004000'
      DECLARE LONG CONSTANT XM$M_MDM_SIGRATE = x'00008000'
      DECLARE LONG CONSTANT XM$S_XMDEF = 3
      record XMDEF
         variant
            case
               group XM$R_XMDEF_BITS0
                   !  MOP MODE 
                   !  LOOP BACK 
                   !  HALF DUPLEX 
                   !  HALF DUPLEX SLAVE STATION 
                   !  MAILBOX IS ENABLED 
                   !  DMC-11 COMPATABILITY MODE 
                   !  CONTROL STATION 
                   !  TRIBUTARY STATION 
                   !  DATA CHECK OCCURED 
                   !  TIMEOUT OCCURED 
                   !  DATA OVER RUN OCCURED 
                   !  ACTIVE UNIT 
                   !  BUFFER ALLOCATION FAILURE OCCURED 
                   !  PROTOCOL RUNNING 
                   !  LINE DISCONNECT OCCURED 
                   !  SPARE 
                   !  HARDWARE ERROR 
                   !  DDCMP MAINT MESSAGE RECEIVED 
                   !  DATA LOST BECAUSE OF BUFFER SIZE MISMATCH 
                   !  THRESHOLD ERRORS 
                   !  TRIBUTARY MALFUNCTIONING 
                   !  DDCMP START MESSAGE RECEIVED 
                  LONG CHR_MOP_bits   ! COMMENT ADDED BY SDL - CHR_MOP_bits contains bits CHR_MOP through ERR_START
               end group XM$R_XMDEF_BITS0
            case
               group XM$R_XMDEF_BITS1
                   !  RTS HOLD 
                   !  SELECT STANDBY 
                   !  MAINTENANCE MODE 2 
                   !  MAINTENANCE MODE 1 
                   !  HALF-DUPLEX 
                   !  SELECT FREQUENCY 
                   !  DATA TERMINAL READY 
                   !  SELECT POLLING MODEM MODE 
                   !  MODEM INTERFACE PROGRAM SELECTED 
                   !  UNUSED 
                   !  INTEGRAL MODEM 
                   !  V.35 
                   !  UNUSED 
                   !  RS-232-C OR RS423 
                   !  RS-422 
                  WORD MDM_RTSHLD_bits   ! COMMENT ADDED BY SDL - MDM_RTSHLD_bits contains bits MDM_RTSHLD through MDM_RS422
               end group XM$R_XMDEF_BITS1
            case
               group XM$R_XMDEF_BITS2
                   !  CARRIER DETECT 
                   !  MODEM STANDBY 
                   !  CLEAR TO SEND 
                   !  DATA SET READY 
                   !  HALF-DUPLEX 
                   !  REQUEST TO SEND 
                   !  DATA TERMINAL READY 
                   !  RING 
                   !  CHARACTER OR BIT PROTOCOL MODE 
                   !  MAINTENANCE CLOCK 
                   !  MODEM TEST MODE 
                   !  UNUSED 
                   !  SIGNAL QUALITY 
                   !  SIGNAL RATE 
                  WORD MDM_CARRDET_bits   ! COMMENT ADDED BY SDL - MDM_CARRDET_bits contains bits MDM_CARRDET through MDM_SIGRATE
               end group XM$R_XMDEF_BITS2
         end variant
      end record XMDEF