$SAVE NOLIST
/*****************************************************************************
 * COMMON.LIT:	Commonly used constants for PL/M.
 *****************************************************************************/

DECLARE
	BOOLEAN				LITERALLY  'BYTE',
	TRUE				LITERALLY  '0FFh',
	FALSE				LITERALLY  '00h',

	FOREVER				LITERALLY  'WHILE(TRUE)',

	GET$EOF				LITERALLY  '0FFFFh',

    SOH					LITERALLY  '01h',
    STX					LITERALLY  '02h',
    ETX					LITERALLY  '03h',
    EOT					LITERALLY  '04h',
    CRTL_E				LITERALLY  '05h',
    ACK					LITERALLY  '06h',
    BELL				LITERALLY  '07h',
    BACKSPACE			LITERALLY  '08h',
    HOR$TAB				LITERALLY  '09h',
	LF					LITERALLY  '0Ah',
	CR					LITERALLY  '0Dh',
	XON					LITERALLY  '11h',
	XOF 				LITERALLY  '13h',
	NAK					LITERALLY  '15h',
	CAN					LITERALLY  '18h',
	SUB					LITERALLY  '1Ah',
	ESC					LITERALLY  '01Bh',
	SPACE				LITERALLY  '20h',
	COMMA				LITERALLY  '2Ch',
	TILDE				LITERALLY  '7Eh',
	RUBOUT				LITERALLY  '7Fh',
	OSC					LITERALLY  'ESC,05Dh',
	ST					LITERALLY  'ESC,05Ch',

	SEGMENT$TOKEN	 	LITERALLY 'TOKEN',
	MAILBOX$TOKEN	 	LITERALLY 'TOKEN',
	SEMAPHORE$TOKEN		LITERALLY 'TOKEN',
	TASK$TOKEN		 	LITERALLY 'TOKEN',
	IORS$TOKEN		 	LITERALLY 'TOKEN',
	CONNECTION$TOKEN	LITERALLY 'TOKEN',

	STRING$MAX		 	LITERALLY  '255',
	STRING			 	LITERALLY  'STRUCTURE(
						    			length				BYTE,
							    		char(STRING$MAX)	BYTE  )';


DECLARE
	NULL$POINTER		LITERALLY  'NIL',
	NULL$TOKEN			LITERALLY  '0FFFFh',

	WORLD$ID			LITERALLY  '0FFFFh',
	SYSTEM$MANAGER$ID	LITERALLY  '0h',

	DEFAULT$USER		LITERALLY 'SELECTOR$OF(NIL)', /* BIOS attach and */
	DEFAULT$PREFIX		LITERALLY 'SELECTOR$OF(NIL)', /* create calls    */

	CALLER				LITERALLY  'SELECTOR$OF(NIL)', /* can be used on
	                                                      delete$job,
	                                                      delete$task,
	                                                      lookup$object,
	                                                      etc; because of its
	                                                      generic flavor */
    
	FIFO$QUEUING		LITERALLY  '0',		   /* used in nucleus exchange */
	PRIOR$QUEUING		LITERALLY  '1',        /* creation calls */

	NO$WAIT				LITERALLY  '0',		   /* used when waiting on an */
	INFINITE$WAIT		LITERALLY  '0FFFFh';   /* exchange                */

$RESTORE