$save nolist
    /*
     * inutyp.lit
     *        RMX/86 Nucleus "type" literals.
     *
     * Written by Bob Beck, 25-MAY-79.
     * Modified 1-14-81 by Bob Beck for SELECTOR type.
     */

    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