PROCEDURE	<CHARS -- CHARACTER ATTRIBUTES>,010000
;+
; Abstract:	CHARS
;
;	This module contains a Character definition table
;	for RUNOFF.  This table contains information on the
;	character attributes for each character.
;
; Calling sequence:	N/A
;
; Externals:
;
;	CHATBL	The character definition table
;
;	  CHAUC	The character is an upper case alphabetic
;	  CHALC	The character is a lower case alphabetic
;	  CHANU	The character is a numeric
;	  CHASP	The character is a spacing character.  The
;		character is constrained not to be a quoted
;		space or a non-expandable space.
;	  CHAEC	The character is an end-of-command character
;	  CHAVC	The character is a valid character.
;	  CHASI The character is a valid sign character.
;
; Written: 15-Apr-80, -1.0.0-, Bruce C. Wright
; Modified:
; Verified:
;-

	PDATA	CHARSD
;
CHAUC	==	001	; Upper case
CHALC	==	002	; Lower case
CHANU	==	004	; Numeric
CHASP	==	010	; Spacing character
CHAEC	==	020	; End-of-command character
CHAVC	==	040	; Valid character
CHASI	==	100	; Legal sign character
;
CHATBL::
	.REPT	2		; For both 0-177 and 200-377
	.BYTE	0		; <NUL>
	.BYTE	0		; <SOH>
	.BYTE	0		; <STX>
	.BYTE	0		; <ETX>
	.BYTE	0		; <EOT>
	.BYTE	0		; <ENQ>
	.BYTE	0		; <ACK>
	.BYTE	0		; <BEL>
	.BYTE	0		; <BS>
	.BYTE	CHAVC!CHASP	; <HT>
	.BYTE	CHAVC!CHAEC	; <LF>
	.BYTE	0		; <VT>
	.BYTE	CHAVC		; <FF>
	.BYTE	CHAVC!CHAEC	; <CR>
	.BYTE	0		; <SO>
	.BYTE	0		; <SI>
	.BYTE	0		; <DLE>
	.BYTE	0		; <DC1>
	.BYTE	0		; <DC2>
	.BYTE	0		; <DC3>
	.BYTE	0		; <DC4>
	.BYTE	0		; <NAK>
	.BYTE	0		; <SYN>
	.BYTE	0		; <ETB>
	.BYTE	0		; <CAN>
	.BYTE	0		; <EM>
	.BYTE	0		; <SUB>
	.BYTE	0		; <ESC>
	.BYTE	0		; <FS>
	.BYTE	0		; <GS>
	.BYTE	0		; <RS>
	.BYTE	0		; <US>
	.BYTE	CHAVC!CHASP	;
	.BYTE	CHAVC		; !
	.BYTE	CHAVC		; "
	.BYTE	CHAVC		; #
	.BYTE	CHAVC		; $
	.BYTE	CHAVC		; %
	.BYTE	CHAVC		; &
	.BYTE	CHAVC		; '
	.BYTE	CHAVC		; (
	.BYTE	CHAVC		; )
	.BYTE	CHAVC		; *
	.BYTE	CHAVC!CHASI	; +
	.BYTE	CHAVC		; ,
	.BYTE	CHAVC!CHASI	; -
	.BYTE	CHAVC!CHAEC	; .
	.BYTE	CHAVC		; /
	.BYTE	CHAVC!CHANU	; 0
	.BYTE	CHAVC!CHANU	; 1
	.BYTE	CHAVC!CHANU	; 2
	.BYTE	CHAVC!CHANU	; 3
	.BYTE	CHAVC!CHANU	; 4
	.BYTE	CHAVC!CHANU	; 5
	.BYTE	CHAVC!CHANU	; 6
	.BYTE	CHAVC!CHANU	; 7
	.BYTE	CHAVC!CHANU	; 8
	.BYTE	CHAVC!CHANU	; 9
	.BYTE	CHAVC		; :
	.BYTE	CHAVC!CHAEC	; ;
	.BYTE	CHAVC		; <
	.BYTE	CHAVC		; =
	.BYTE	CHAVC		; >
	.BYTE	CHAVC		; ?
	.BYTE	CHAVC		; @
	.REPT	26.		; A-Z
	.BYTE	CHAVC!CHAUC	; Upper case alphabetic
	.ENDR			;
	.BYTE	CHAVC		; [
	.BYTE	CHAVC		; \
	.BYTE	CHAVC		; ]
	.BYTE	CHAVC		; ^
	.BYTE	CHAVC		; _
	.BYTE	CHAVC		; `
	.REPT	26.		; a-z
	.BYTE	CHAVC!CHALC	; Lower case alphabetic
	.ENDR			;
	.BYTE	CHAVC		; {
	.BYTE	CHAVC		; |
	.BYTE	CHAVC		; }
	.BYTE	CHAVC		; ~
	.BYTE	0		; <DEL>
	.ENDR			; End for 0-177
	.END