.TITLE TABLE
	.ENABLE LC
	.NLIST	BEX
;
;	DEFINE INTERNAL COMMANDS THAT ARE LEGITIMATE
;
	.PSECT	$TABLE,RO,D,GBL,REL,OVR
$TABLE::
 
;
;	STANDARD "KMS" TABLE FOR CCL V9.1
;	 FIRST SET OF COMMANDS DON'T NEED MUCH PARSING
;
	.WORD	12.
	.ASCII	&^^< >< ><><>&
	.EVEN
;
;	 IDENT
;
	.WORD	10.
	.ASCII	&$5500IDENT&
	.EVEN
	.WORD	23.
	.ASCII	&*CCL V9.1 -- Dec 1983%P&
	.EVEN
;
;	 ?
;
	.WORD	6.
	.ASCII	&$1100?&
	.EVEN
	.WORD	8.
	.ASCII	&*HELP%A%&
	.EVEN
;
;	 HEY
;
	.WORD	8.
	.ASCII	&$3300HEY&
	.EVEN
	.WORD	8.
	.ASCII	&-%1%%P%$&
	.EVEN
;
;	 POOL
;
	.WORD	9.
	.ASCII	&$4400POOL&
	.EVEN
	.WORD	10.
	.ASCII	&*SET /POOL&
	.EVEN
;
;	 DLG
;
	.WORD	8.
	.ASCII	&$3300DLG&
	.EVEN
	.WORD	9.
	.ASCII	&*DEV /LOG&
	.EVEN
;
;	 SHQ
;
	.WORD	8.
	.ASCII	&$3300SHQ&
	.EVEN
	.WORD	30.
	.ASCII	&*INS $QMGCLI/CMD="QUE /BR:ALL"&
	.EVEN
;
;	 SHW
;
	.WORD	8.
	.ASCII	&$3300SHW&
	.EVEN
	.WORD	30.
	.ASCII	&*INS $QMGCLI/CMD="QUE /FU:ALL"&
	.EVEN
;
;	 ATS
;
	.WORD	8.
	.ASCII	&$3300ATS&
	.EVEN
	.WORD	22.
	.ASCII	&*ACT /%1?TERM=\ALL%%1%&
	.EVEN
;
;	 FREE
;
	.WORD	9.
	.ASCII	&$3400FREE&
	.EVEN
	.WORD	16.
	.ASCII	&*PIP %1:\SY:%/FR&
	.EVEN
;
;	 SORT
;
	.WORD	9.
	.ASCII	&$3400SORT&
	.EVEN
	.WORD	11.
	.ASCII	&*SRD %A%/LI&
	.EVEN
;
;	 MCR
;
	.WORD	8.
	.ASCII	&$3300MCR&
	.EVEN
	.WORD	7.
	.ASCII	&*%1\%%Q&
	.EVEN
;
; CHANGE PARAMETER DELIMITERS TO ONLY ACCEPT "," AND " ", AND SWITCH
;	TO V9 PARSING
;
	.WORD	16.
	.ASCII	&^^< >< />< >< ,>&
	.EVEN
;
;	 TYPE
;
	.WORD	9.
	.ASCII	&$2411TYPE&
	.EVEN
	.WORD	9.
	.ASCII	&?1File(s)&
	.EVEN
	.WORD	22.
	.ASCII	&*PIP TI:=%1\%%2,%%0%%Q&
	.EVEN
;
;	 DELETE
;
	.WORD	11.
	.ASCII	&$3611DELETE&
	.EVEN
	.WORD	9.
	.ASCII	&?1File(s)&
	.EVEN
	.WORD	24.
	.ASCII	&*PIP %1\%%2,%%0%/DE/LD%Q&
	.EVEN
;
;	 DIRECTORY
;
	.WORD	14.
	.ASCII	&$3900DIRECTORY&
	.EVEN
	.WORD	18.
	.ASCII	&*PIP %1%%2,%%0%/LI&
	.EVEN
;
;	 PURGE
;
	.WORD	10.
	.ASCII	&$3511PURGE&
	.EVEN
	.WORD	9.
	.ASCII	&?1File(s)&
	.EVEN
	.WORD	21.
	.ASCII	&*PIP %1\%%2,%%0%/PU%Q&
	.EVEN
;
;	 TRUNCATE
;
	.WORD	13.
	.ASCII	&$3811TRUNCATE&
	.EVEN
	.WORD	9.
	.ASCII	&?1File(s)&
	.EVEN
	.WORD	21.
	.ASCII	&*PIP %1\%%2,%%0%/TR%Q&
	.EVEN
;
;	 COPY
;
	.WORD	9.
	.ASCII	&$3422COPY&
	.EVEN
	.WORD	6.
	.ASCII	&?1From&
	.EVEN
	.WORD	4.
	.ASCII	&?2To&
	.EVEN
	.WORD	21.
	.ASCII	&*PIP %2a;0%/FO=%1\%%Q&
	.EVEN
;
;	 CREATE
;
	.WORD	11.
	.ASCII	&$3611CREATE&
	.EVEN
	.WORD	6.
	.ASCII	&?1File&
	.EVEN
	.WORD	16.
	.ASCII	&*PIP %1a\%=TI:%Q&
	.EVEN
;
;	 SPOOL
;
	.WORD	10.
	.ASCII	&$5511SPOOL&
	.EVEN
	.WORD	9.
	.ASCII	&?1File(s)&
	.EVEN
	.WORD	21.
	.ASCII	&*PIP %1\%%2,%%0%/SP%Q&
	.EVEN
;
; CHANGE DELIMITERS TO PARSE ENTIRE LINE INTO %1a% - %1z% ...
;	ONLY %1a% AND %1b% ARE IMPORTANT
;
	.WORD	14.
	.ASCII	&^^< >< ><>< ,>&
	.EVEN
;
;	 UIC
;
	.WORD	8.
	.ASCII	&$3300UIC&
	.EVEN
	.WORD	25.
	.ASCII	&*SET /UIC%1?=[%%1a%%1b,]%&
	.EVEN
;
;	 SYSUIC
;
	.WORD	11.
	.ASCII	&$3600SYSUIC&
	.EVEN
	.WORD	28.
	.ASCII	&*SET /SYSUIC%1?=[%%1a%%1b,]%&
	.EVEN
;
;	 LIBUIC
;
	.WORD	11.
	.ASCII	&$6600LIBUIC&
	.EVEN
	.WORD	28.
	.ASCII	&*SET /LIBUIC%1?=[%%1a%%1b,]%&
	.EVEN
;
;	 NETUIC
;
	.WORD	11.
	.ASCII	&$6600NETUIC&
	.EVEN
	.WORD	28.
	.ASCII	&*SET /NETUIC%1?=[%%1a%%1b,]%&
	.EVEN
 
;
;	handle terminal related functions-PAGE,SCROLL,NOSCROLL,ERASE,HOLD,
;	NOHOLD,
;
	.WORD	9.
	.ASCII	&$3400PAGE&
	.EVEN
	.WORD	15.
	.ASCII	&*&<33>&[1;1H&<33>&[2J&<33><14>&%P&
	.EVEN
	.WORD	11.
	.ASCII	&$3600SCROLL&
	.EVEN
	.WORD	8.
	.ASCII	&*&<33>&[?4h%P&
	.EVEN
	.WORD	13.
	.ASCII	&$5800NOSCROLL&
	.EVEN
	.WORD	8.
	.ASCII	&*&<33>&[?4l%P&
	.EVEN
	.WORD	10.
	.ASCII	&$3500ERASE&
	.EVEN
	.WORD	7.
	.ASCII	&*&<33>&H&<33>&J%P&
	.EVEN
	.WORD	9.
	.ASCII	&$4400HOLD&
	.EVEN
	.WORD	14.
	.ASCII	&*SET /HOLD=TI:&
	.EVEN
	.WORD	11.
	.ASCII	&$4600NOHOLD&
	.EVEN
	.WORD	16.
	.ASCII	&*SET /NOHOLD=TI:&
	.EVEN
	.WORD	9.
	.ASCII	&$4400BELL&
	.EVEN
	.WORD	4.
	.ASCII	&*&<7>&%P&
 
	.WORD	0	;EOF
	.WORD	0
	.END