.TITLE	ITABLE - INTERNAL COMMAND TABLE
	.SBTTL	ITABLE - TITLE PAGE
	.IDENT	/V01.00/
	.ENABL	LC
;
;
; Define internal CCS commands.
;
; Version:	V01.00
;
; Author:	R.W. Stamerjohn
;
; Modification history:
;
;	V01.00	RWS	14-Oct-1984	Initial version
;
; Macro library calls:
;
;	None.
;
; Define table generating macro.
;
	.MACRO	RECORD	STRING
	.ASCIZ	#STRING#
	.ENDM	RECORD

;
; Define flying task install command.
;
FLYINS::RECORD	<*INS %2%%3%%4%/TASK=%1%%T/CMD="%4% %A%"%$>
	.EVEN
	.WORD	0
;
; Define flying command file command.
;
FLYCMD::RECORD	<*INS $ICM/TASK=.AU%T/CMD="@%4% %A%"%$>
	.EVEN
	.WORD	0
;
; Define internal commands that are legitimate.
;
ITABLE::				;Ref. label
;
; Define shorthand SET /UIC or SET /DEF commands.
;
	RECORD	<$3300UIC>
	RECORD	<+SET /UIC%1?=[%%1%%2,]%>
	RECORD	<+ASN %1?%%N>
	RECORD	<*ASN %3:\%=SY0:%Q>

	RECORD	<$3300DEF>
	RECORD	<+SET /DEF%1?%=%2:%[%1%]%Q>
	RECORD	<*SET /DEF%1?%%N>
;
; Define EDT command.
;
	RECORD	<$3300EDT>
	RECORD	<*INS $EDT/TASK=EDT%T/CMD="EDT %A%,SYS$LOGIN:EDTINI.EDT">
;
; Define shorthand PIP commands.
;
	RECORD	<$3522APPEND>
	RECORD	<?BFile(s)>
	RECORD	<?CTo>
	RECORD	<*INS $PIP/TASK=APP%T/CMD="APP %C%/AP=%B\%"%Q>

	RECORD	<$3422COPY>
	RECORD	<?BFrom>
	RECORD	<?CTo>
	RECORD	<*INS $PIP/TASK=COP%T/CMD="COP %C%/FO=%B\%"%Q>

	RECORD	<$3611DELETE>
	RECORD	<?BFile(s)>
	RECORD	<*INS $PIP/TASK=DEL%T/CMD="DEL %B\%/DE/LD"%Q>

	RECORD	<$3900DIRECTORY>
	RECORD	<*INS $PIP/TASK=DIR%T/CMD="DIR %B%/LI">

	RECORD	<$3511PRINT>
	RECORD	<?BFile(s)>
	RECORD	<*INS $PIP/TASK=PRI%T/CMD="PRI %B\%/SP"%Q>

	RECORD	<$3511PURGE>
	RECORD	<?BFile(s)>
	RECORD	<*INS $PIP/TASK=PUR%T/CMD="PUR %B\%/PU/LD"%Q>

	RECORD	<$3622RENAME>
	RECORD	<?1From>
	RECORD	<?2To>
	RECORD	<*INS $PIP/TASK=REN%T/CMD="REN %2\%/RE=%1\%"%Q>

	RECORD	<$2411TYPE>
	RECORD	<?BFile(s)>
	RECORD	<*INS $PIP/TASK=TYP%T/CMD="TYP TI:=%B\%"%Q>

	RECORD	<$6611UNLOCK>
	RECORD	<?BFile(s)>
	RECORD	<*INS $PIP/TASK=UNL%T/CMD="UNL %B\%/UN"%Q>
;
; Define other shorthand commands not found in DCL.
;
	RECORD	<$3623DIFFER>
	RECORD	<?1Input file 1>
	RECORD	<?2Input file 2>
	RECORD	<?3Output file>
	RECORD	<*INS $CMP/TASK=DIF%T/CMD="DIF %3?\TI:%=%1\%,%2\%"%Q>

	RECORD	<$3812DOCUMENT>
	RECORD	<?1Input  file>
	RECORD	<?2Output file>
	RECORD	<*INS $RNO/TASK=DOC%T/CMD="DOC %2?\TI:%%2/-SP%=%1\%"%Q>

	RECORD	<$3412DUMP>
	RECORD	<?1Input  file>
	RECORD	<?2Output file>
	RECORD	<*INS $DMP/TASK=DUM%T/CMD="DUM %2\TI:%%C.DMP%=%1\%"%Q>

	.EVEN
	.WORD	0	;EOF

	.END