/******************************************************\
         |                                                      |
         |                 R 3 X M G R . L I T                  |
         |                                                      |
         \******************************************************/


              /*********************************************\
               *                                           *
               *  literal values for the returned status   *
               *  after MMX function calls                 *
               *                                           *
              \*********************************************/


DECLARE /* status return for MMX functional calls  */
      System$Service$Ready            LITERALLY '00H',
      Unknown$System$Port             LITERALLY '31H',
      System$Port$Active              LITERALLY '33H',
      Memory$Insufficient             LITERALLY '35H',
      System$Port$Inactive            LITERALLY '37H',
      System$Port$Dead                LITERALLY '39H',
      System$Message$Delivered        LITERALLY '30H',
      System$Message$Copy$Delivered   LITERALLY '32H',
      Xfer$flag$error                 LITERALLY '34H';


              /*********************************************\
               *                                           *
               *  codes stands for the parameter XFER$FLAG *
               *  of CQXFER procedure                      *
               *                                           *
              \*********************************************/

DECLARE  
    /* nloc --> source copy is needed;  ploc --> no source copy
       full  --> send the full message;  partial  --> send partial message
       delivery --> delete after cqxfer; transfer --> retain after cqxfer */

    nloc$full$delivery               LITERALLY  '00H',
    nloc$full$transfer               LITERALLY  '01H',
    nloc$partial$delivery            LITERALLY  '02H',
    nloc$partial$transfer            LITERALLY  '03H',
    ploc$full$delivery               LITERALLY  '04H',
    ploc$full$transfer               LITERALLY  '05H',
    ploc$partial$delivery            LITERALLY  '06H',
    ploc$partial$transfer            LITERALLY  '07H';
    


              /********************************************\
               *                                          *
               * literal values for the entries in SFT    *
               *                                          *
              \********************************************/

DECLARE /* valid literal values for DEVICE$MODE entry in SFT */
        no$device                LITERALLY  '0',
        slave$device             LITERALLY  '1',
        peer$device              LITERALLY  '2';

DECLARE /* valid literal values for INTERRUPT$TYPE entry in SFT */
        no$interrupt             LITERALLY  '0',
        multibus$interrupt       LITERALLY  '1',
        memory$mapped            LITERALLY  '2',
        io$mapped                LITERALLY  '3';
              
DECLARE /* valid literal values for CLEAR$INTERRUPT$TYPE entry in SFT */
        no$clr$interrupt         LITERALLY  '0',
        mm$read$clr$interrupt    LITERALLY  '1',
        mm$write$clr$interrupt   LITERALLY  '2',
        io$read$clr$interrupt    LITERALLY  '3',
        io$write$clr$interrupt   LITERALLY  '4';