$save nolist
    /*
     * Name: inutyp.lit   --    iRMX Nucleus "type" literals.
     */

 DECLARE
        TOKEN       LITERALLY 'SELECTOR',
        SEGMENT     LITERALLY 'TOKEN',
        TASK        LITERALLY 'TOKEN',
        REGION      LITERALLY 'TOKEN',
        SEMAPHORE   LITERALLY 'TOKEN',
        MAILBOX     LITERALLY 'TOKEN',
        JOB         LITERALLY 'TOKEN',
        EXTENSION   LITERALLY 'TOKEN';

 DECLARE
        T$MAILBOX   LITERALLY '03H',
        T$SEGMENT   LITERALLY '06H';
$restore