$save nolist
    /*
     * Name: comon.lit   --        Oft-used literals.
     */

DECLARE

$IF r_32
		SIZE$OF$OFFSET LITERALLY 'DWORD';
$ELSE
		SIZE$OF$OFFSET LITERALLY 'WORD';
$ENDIF

DECLARE
        BOOLEAN         LITERALLY 'BYTE',
        TRUE            LITERALLY '0FFH',
        FALSE           LITERALLY '000H',
        FOREVER         LITERALLY 'WHILE TRUE',
$IF r_32
        PTR$OVERLAY     LITERALLY 'STRUCTURE(off_set DWORD, base TOKEN)',
        P$OVERLAY       LITERALLY 'STRUCTURE(off_set DWORD, base WORD)',
$ELSE
        PTR$OVERLAY     LITERALLY 'STRUCTURE(off_set WORD, base TOKEN)',
        P$OVERLAY       LITERALLY 'STRUCTURE(off_set WORD, base WORD)',
$ENDIF
        STRING          LITERALLY 'STRUCTURE(length BYTE, char(1) BYTE)',
        NO$TIME$LIMIT   LITERALLY '0FFFFH',
        NOT$FOUND       LITERALLY '0FFFFH',
        NOT$FOUND$32    LITERALLY '0FFFFFFFFH',
        BYTE$MAX        LITERALLY '0FFH',
        WORD$MAX        LITERALLY '0FFFFH',
        WORD$32$MAX     LITERALLY '0FFFFFFFFH',
        FIFO$Q          LITERALLY '000H',        /* select FIFO queueing */
        PRIO$Q          LITERALLY '001H';        /* select PRIO queueing */
$restore