.TITLE	CATAB
	.IDENT	/MB4.05/
;+
;	TABLES USED BY ...CA. SECCOND MCR DISPATCHER
;	********************************************
;	ING.BRUNECKY		VER.04.05  17-OCT-81
;
;	THIS MODULE DEFINES TABLES USED BY THE ...CA. SECCOND MCR
;	COMMAND LANGUAGE INTERPRETER.
;
;	SECTION $TSKTB CONTAINS COMMANDS, WHICH MAY BE PROCESSED
;	BY DYNAMIC TASK INSTALL AND REQUEST.
;	NOTE, THAT TASK FILENAMES MUST MATCH THE COMMAND FIRST
;	THREE LETTERS.
;	IN ADDITION THE TABLE ALLOWS TO SPECIFY TASK'S PRIORITY,
;	AND THE UFD ON LB1: DISK, WHERE IT RESIDES.
;	UFD SPECIFICATION [0,0] WILL BE REPLACED BY CURRENT
;	SYUIC ON THE FLY.
;
;	SECTION $INDTB CONTAINS COMMANDS PROCESSED BY THE INDIRECT
;	COMMAND FILES PROCESSOR (...AT.) OR OTHER PROCEDURE INTERPRETER.
;	COMMMANDS ARE RECOGNIZED UPON FIRST THREE LETTERS, AND IND
;	IS REQUIRED WITH THREE LETTERS FILESPEC.
;	FOR EXMPLE COMMAND:	>COMPILE SOURCE LIBR
;	MAY CONVERT TO:		>@$COM SOURCE LIBR
;	NOTE:	THIS TABLE IS USED ONLY IF SYMBOL IND IS DEFINED  FOR 
;		CA. ASSEMBLY. IF SCP IS USED, YOU MAY USE BETTER WAY
;		TO INVOKE PROCCESSOR APPROPRIATE TO CURRENT COMMAND.
;
;	SECTIONS $TCMDT,$PCMDT,$PROTO CONTAIN DATA FOR COMMANDS MODIFIED
;	BY SUBSTITUTED COMMAND PARSER - SCP.
;
;	MACRO USAGE
;	FOLLOWING THREE MACROS ARE PROVIDED TO SIMPLIFY TABLES CODING
;	*************************************************************
;
;	TSK XXX,[P],[G],[M]	DEFINES ONE DYNAMICALLY INSTALLED TASK
;
;		XXX - TASK'S AND COMMAND'S NAME (ALSO TASK FILENAME)
;		P   - PRIORITY FOR INSTALLED TASK
;		G   - GROUP  NUMBER OF TASK FILE DIRECTORY *)
;		M   - MEMBER NUMBER OF TASK FILE DIRECTORY *)
;
;	*) TASK XXX WILL BE INSTALLED USING COMMAND:
;          INS LB1:[G,M]XXX/PRI=P/TASK=...XXX
;
;	   DEFAULTS FOR P,G,M ARE DEFINED BY SYMBOLS PPP,GGG,MMM
;	   G,M VALUES 0,0 WILL BE REPLACED BY CURRENT SYSUIC ON FLY.
;	
;	   MACRO TSK MAY BE USED ONLY BETWEEN START OF $TSKTB SECTION
;	   LABELED LST::
;	   AND FINISH OF $TSKTB SECTION MARKED WITH ZERO WORD.
	.PAGE
;	CMD AND COMM MACRO
;	------------------
;	ONE CMD MACRO DEFINES ONE SUBSTITUTION STEP, RESULT OF WHICH
;	MAY REQUIRE FURTHER SUBSTITUTION.
;	CMD MACRO DEFINES STEP EITHER FOR NORMAL OR BOTH FOR NORMAL
;	AND "NO" PREFIXED COMMAND.
;	COMM MACRO DEFINES SUBSTITUTION STEP EITHER FOR NORMAL OR FOR
;	"NO" PREFIXED COMMAND DEPENDING ON .PSECT $TCMDT OR $PCMDT;
;	IT SHOULD BE USED ONLY IF CMD MACRO DOES NOT FIT TO SINGLE LINE.
;
;	SCP INPUT STRING IS ASSUMED TO HAVE FOLLOWING SYNTAX:
;
;	[NO]COMMAND[/QUALIFIERS]<SPACE>[PARAMETER-LIST]
;
;	PAREMETERS RECOGNIZED BY SCP LOGIC ARE MARKED:
;	?/? - QUALIFIER STRING,SEPARATED FROM COMMAND BY SLASH
;	      (THIS STRING INCLUDES FIRST SLASH!)
;	?0? - PARAMETER LIST STRING
;	      THIS STRING IS TO BE PARSED TO INDIVIDUEL PARAMETERS
;	      ?1?,?2?,?3?... USING COMMAND-SPECIFIC SEPARATOR STRING
;	?N? - PARAMETER NUMBER N <1-9>
;
;
;	CMD NAM,[<SEP>],<PROT>[,[<PSEP>],<PPROT>]
;
;		SECCOND PART (PSEP,PPROT) DEFINES "NO" PREFIXED COMMAND,
;		IF NOT USED, COMMAND MAY NOT HAVE "NO" PREFIX.
;
;
;	NAM 	COMMAND NAME - THREE RADIX 50 SYMBOLS
;		(COMMAND MAY BE LONGER, ONLY THREE LETTERS ARE SIGNIFICANT)
;
;	<SEP>	SEPARATOR STRING, IF NOT PRESCRIBED = DEFAULT < ,=>
;		DEFINED SYMBOLS ARE RECOGNIZED BY SCP AS VALID SEPARATORS
;		OF PARAMETER STRING TO INDIVIDUEL PARAMETERS:
;		PARAM-STRING:	"= ALFA/XY"
;		SEPAR-STRING:	</= ;>
;		PARSED PAR.	?1?	?2?	?3?	
;				""	"ALFA"	"XY"
;		NOTE, PAR.1 IS EMPTY BECAUSE "=" AND "SPACE" FOLLOWS
;
;		SPECIAL HANDLING OF UIC-STRING (SPC ASSEMBLED UICREC=1)
;		DISABLES COMMA RECOGNITION AS VALID SEPARATOR WITHIN
;		SQUARE BRACKETS "[]", SO THAT COMMA WILL SEPARATE
;		WHOLE FILESPEC-S ONLY.
;
;	<PROT>	PROTOTYPE COMMAND, WILL BE EXPANDED USING PARAMETERS
;		FROM CURRENT COMMAND STRING. FIRST THREE LETTERS OF
;		PROTOTYPE FORM THE NEW COMMAND NAME.
;		SPECIAL PROTOTYPE ITMES:
;		?1?	- WILL BE REPLACED BY PARAMETER 1, IF DEFINED
;		?1#	- WILL BE REPLACED BY PARAMETER 1, IF PARAMETER
;			  1 IS MISSING SCP TERMINATES WITH MESSAGE:
;			       DCL -- REQUIRED PARAMETER MISSING
;		 	  IF SCP ASSEMBLED FOR PASCCL=1, AND SUBSTITUTION
;			  STEP IS 1,3,5 ETC., THE SUBSTITUTION INPUT STRING
;			  WILL BE PASSED TO ...CCL (TO ALLOW PROMPT FOR PAR).
;		(1...)	- ENCLOSED PART OF PROTOTYPE WILL NOT BE EXPANDED
;			  IF PARAMETER 1 IS MISSING OR EMPTY (BLANK).
;		$	- TERMINATES EXPANSION EVEN IF END OF PROTOTYPE
;			  NOT YET REACHED.
;
;	THE FIRST CMD MACRO ISSUANCE OPANS APPROPRIET TABLES, HOWEVER THIS
;	TABLES MUST BE CLOSED BY ZERO WORDS.
;-
	.PAGE
;	MACRO TO DEFINE INSTALLABLE TASKS
;
	.MACRO	TSK,XXX,P,G,M
	.PSECT	$TSKTB
	.RAD50  /XXX/
	.IF B	<P>
	.BYTE	PPP		;DEFAULT PRIORITY
	.IFF
	.BYTE	'P		;PRESCRIBED PRIORITY
	.ENDC
	.IF B	<G>	
	.BYTE	GGG		;DEFAULT GROUP-NUMBER
	.IFF
	.BYTE	'G		;PRESCRIBED GROUP NUMBER
	.ENDC
	.IF B 	<M>
	.BYTE	MMM		;DEFAULT MEMBER-NUMBER 
	.IFF
	.BYTE	'M		;PRESCRIBED MEMBER NUMBER
	.ENDC
	.BYTE	0		;RESERVED BYTE
	.PSECT
	.ENDM	;TSK
;
;	MACROS TO DEFINE SCP SUBSTITUTED COMMANDS
	.MACRO	CMD,NAM,SEP,PROT,PSEP,PPROT
	.IF NB <PROT>
	.PSECT	$TCMDT
	.IIF NDF CMDTAB CMDTAB==.
	COMM	NAM,<SEP>,<PROT>,T$'NAM
	.ENDC
	.IF NB <PPROT>
	.PSECT	$PCMDT
	.IIF NDF NOPTAB NOPTAB==.
	COMM	NAM,<PSEP>,<PPROT>,P$'NAM
	.ENDC
	.ENDM
;
	.MACRO	COMM,NAM,SEP,PROT,LAB
	.IIF B	NAM .ERROR UNDEFINED COMMAND
	.IIF B <PROT>.ERROR UNDEFINED PROTOTYPE COMMAND
	.RAD50	\NAM\
	.WORD	LAB
	.PSECT	$PROTO
	.IF B <SEP>
LAB:	.BYTE	0
	.IFF
LAB:	.ASCIZ	\SEP\
	.ENDC
	.ASCIZ	\PROT\
	.PSECT
	.ENDM
	.PAGE
;	TABLE OF COMMANDS PROVIDED BY INDIRECT COMMAND FILES PROCESSOR
;
;IND	=	1		;DEFINE USAGE OF IND TABLE LOCALLY
	.IF DF	IND
	.PSECT	$INDTB
CMDLST::
	.RAD50	/LIN/		;LINK 
	.RAD50	/COM/		;COMPILE
	.RAD50	/COP/		;COPY DCL COMMAND
	.WORD	0		;END OF TABLE
	.ENDC	;IND
;
;	TABLE OF INSTALLABLE TASKS - TASKNAME, PRI, UFD [G,M]
;
	.PSECT	$TSKTB
ITEML::	.WORD 	6			;TABLE ITEM LENGTH (BYTE)
TSKLST::				;TASK LIST START
PPP	=	50.			;DEFAULT PRIORITY FOR TSK MACRO
GGG	=	1			;DEAFAULT UIC GROUP
MMM	=	55			;DEFAULLT UIC MEMEBER
;
	TSK	ACN	70.		;ACNT
	TSK	ACS	120.
	TSK	BAD	40.
	TSK	BP2	60.		;BASIC PLUS 2 COMPILLER
	TSK	BRO	120.
	TSK	BRU
	TSK	BYE	120.
	TSK	CBL	90.		;CBL COMPILLER
	TSK	CDA	40.
	TSK	CRG	40.		;COBREG REPORT GENERATOR
	TSK	CMP	70.
	TSK	CVL			;CHANGE VOLUME LABEL [KMS]
	TSK	DBT			;DB DISK TESTER
	TSK	DMP	70.
	TSK	DMO	100.
	TSK	DSC	40.
	TSK	DTR	40.
	TSK	EDI	100.		;LINE TEXT EDITOR
	TSK	EDT	100.		;DEC EDITOR
	TSK	ED2	100.		;KEYPAD EDITOR
	TSK	ERF	120.
	TSK	FLX	70.
	TSK	F4P	40.		;SLOW FORTRAN
	TSK	FTB	70.
	TSK	INI	70.
	TSK	LOA	120.
	TSK	MAP	70.,314,1	;MAPPS
	TSK 	MAI	100.		;ARC MAIL UTILITY
	TSK	MSP	40.
	TSK	MOU	120.
	TSK	MRG	70.		;CBLMRG UTILITY
	TSK	PAT	70.
	TSK	PSE
	TSK	QCP			;DATATRIEVE QCPRS
	TSK	QCD			;DATATRIEVE QCDEX
	TSK	RAT	70.,314,1	;RATFOR
	TSK	RNO			;RUNOFF
	TSK	RMC	100.		;REMOTE TASK CONTROL [KMS]
	TSK	RMD	220.		;BIG RMDEMO
	TSK	RM7	220.		;RMDEMO SM7202
	TSK	RM5	220.		;RMDEMO VT52
	TSK	RM3	220.		;RMDEMO LA36 (ONE SHOT)
	TSK	RML	220.		;RMDEMO LP/FILE: RMDLOG.LST
	TSK	SLP	70.
	TSK	SNC	70.
	TSK	SRD	70.
	TSK	SYE
	TSK	TEC	100.		;TECO
	TSK	TIP	70.
	TSK	UFD	70.
	TSK	TSK	70.
	TSK	UNL	100.
	TSK	UPD	120.		;UPDATE DISK STORAGE [KMS]
	TSK	VFY	100.
	TSK	VMR	70.
	TSK	WHO	100.		;WHO IS ON SYSTEM [KMS]
	TSK	ZAP	70.
;
;	RMS - UTILITIES
	TSK	BCK
	TSK	CNV
	TSK	DFN
	TSK	DSP
	TSK	IFL
	TSK	RST
;
;	SUBSYSTEMS
;
;	...................... REDUCED, USER SPECIFIC
;
	.PSECT	$TSKTB
	.WORD	0,0		;END OF TABLE
	.PSECT
	.PAGE
;	SUBSTITUTED COMMANDS TABLES - SUBSTITUTED BY SCP MODULE
;
;	THIS TABLE ASSUMES SECCOND INSTALL OF PIP WITH NAME ...DCL
;	AND SECCOND INSTALL OF IND WITH NAME ...DCI (/INC=400).
;
;	MISCELANEOUS  - FOR SECCONDARY SUBSTITUION
;
 CMD	M.1,,<TCF 15,12,"?1? -- Required filespec missing">  ;CMD REJECTED
 CMD	T.1,,<(1DCL TI:=?1?$)M.1 TYPE>	;TO SIMPLIFY TY* CMDS CODING
 CMD	I.1,,<DCI @LB1:[1,7]?0#>	;TO INVOKE IDIRECT-FILES PROCESSOR
;
;
;	SIMPLIFIED SYNTAX FOR MCR COMMANDS (JUST TO SIMPLIFY LIFE)
;
 CMD	ATS,< :>,<ACT (1/TERM=?1?:$)/ALL>	;ATS [TTN]	;ACTIVE TASKS 
;
 CMD	QSH,,<QUE (1?1?/FU$)/FU:ALL>		;QSH [DDU]	;LIST QUEUE
;
 CMD	QBR,,<QUE (1?1?/BR$)/BR:ALL>		;QBR [DDU]	;LIST QUEUE /BR
;
 CMD	QDE,,<(1QUE ?1?/DEL$)MSG QDEL -- job-id missing>	;QDE [DDU:]JOBNM	
;
 CMD	QST,< :>,<QUE (1?1?:/STOP$)LP0:/STOP>	;QST [DDU]	;STOP DESPOOLER
;
 CMD	QCO,< :>,<QUE (1?1?:/START$)LP0:/START>	;QCO [DDU]	;CONT. DESPOOLER
;
 CMD	DLG,,<DEV /LOG>				;DLG		;DISPLAY LOGGED
;
 CMD	POO,,<SET /POOL>			;POO		;DISPLAY POOL
;
 CMD	UIC,<=[]>,<U.C ?1??2??3??4??5??6??7??8??9?>
 CMD	U.C,<, />,<SET /UIC(2=[?1?,?2?])>	;UIC GR MM	;SET /UIC
						;VERY BENEVOLENT SYNTAX
;
; 	TERMINAL CONTROL COMMANDS
;
 CMD	BEL,,<TCF 7,7,7>			;RING THE BELL
;
 CMD	MSG,,<TCF 15,12,"?0?">			;TYPE SPECIFIED MESSAGE
;
 CMD	PAG,,<TCF 33,"[1;1H",33,"[2J">		;VT-100 HOME, ERASE SCREEN
;
 CMD	ERA,,<TCF 33,"H",33,"J",35,36>		;VT-52 & SM7202 HOME,ERASE
;
 CMD	SCR,,<TCF 33,"[",77,"4H">,,<TCF 33,"[,77,"4L">	;VT-100 SCROLLING
;							;SLOW/FAST
 CMD	HOL,,<SET /HOLD=TI:>,,<SET /NOHOLD=TI:>	;SET /HOLD - /NOHOLD
;
 CMD	BUF,< :>,<SET /BUF=TI:(2?2?$)?1?>	;SET /BUF=TI:XXX
;
;	DCL-LIKE GENERAL COMMANDS
;
 CMD	ASS,,<ASN (2?1?=?2?$)(1=?1?)>		;ASSIGN DDU: LLU:
;
 CMD	SEN,,<BRO CO:?0?>			;SEND MESSAGE TO OPARTOR
;
 CMD	MCR,,<?0?>				;DCL MCR COMMAND
;
	.PAGE
;	DCL-LIKE COMMANDS, FILE MANIPULATION (PIP NAMED "...DCL" USED!)
;
 CMD	CRE,,<(1DCL ?1??/?=TI:$)M.1 CREATE>	;CREATE FILSPC
;
 CMD	LIS,,<(1DCL TI:=?0?$)M.1 LIST>		;LIST FILSPC
;
 CMD	TYP,,<(1DCL TI:=?0?$)M.1 TYPE>		;TYPE FILSPC
;
 CMD	TYC,< .>,<T.1 (1?1?.CMD)>		;TYPE XXXX.CMD
 CMD	TYD,< .>,<T.1 (1?1?.DMP)>		;TYPE XXXX.DMP
 CMD	TYL,< .>,<T.1 (1?1?.LST)>		;TYPE XXXX.LST
 CMD	TYF,< .>,<T.1 (1?1?.FTN)>		;TYPE XXXX.FTN
 CMD	TYM,< .>,<T.1 (1?1?.MAP)>		;TYPE XXXX.MAP
 CMD	TYB,< .>,<T.1 (1?1?.BAS)>		;TYPA XXXX.BAS
;
 CMD	DEL,< ,>,<DCL ?1#/SD?/?(2,?2?)(3,?3?)(4,?4?)(5,?5?)(6,?6?)(7.?7?)>
;
 CMD	SDL,< ,>,<DCL ?1#/SD?/?(2,?2?)(3,?3?)(4,?4?)(5,?5?)(6,?6?)(7.?7?)>
;
 CMD	PUR,< ,>,<DCL ?1#/PU?/?(2,?2?)(3,?3?)(4,?4?)(5,?5?)(6,?6?)(7.?7?)>
;
 CMD	TRU,< ,>,<DCL ?1#/TR?/?(2,?2?)(3,?3?)(4,?4?)(5,?5?)(6,?6?)(7.?7?)>
;
 CMD	DIR,< ,>,<DCL ?1?/LI?/?(2,?2?)(3,?3?)(4,?4?)(5,?5?)(6,?6?)(7.?7?)>
;
 CMD	ULK,< ,>,<DCL ?1#/UNL?/?(2,?2?)(3,?3?)(4,?4?)(5,?5?)(6,?6?)(7.?7?)>
;
 CMD	APP,< >,<DCL ?2#/AP?/?=?1#>
;
  CMD	REN,< >,<DCL ?2#/RE?/?=?1#>
;
 CMD	DIF,<,>,<CMP TI:?/?=?1#,?2#>
;
 CMD	SDI,<>,<SRD ?0?/LI?/?>
;
 CMD	SPO,< ,>,<PRI ?/?/NOFL=?0#>
;
;	DCL COMMANDS, PROVIDED BY INDIRECT FILES PROCESSOR ...DCI
;
 CMD	LIN,,<I.1 LINK ?/? ?0?>			;DCL LINK COMMAND
;
 CMD	COM,,<I.1 COMP ?/? ?0?>			;DCL COMPILE COMMAND
;
 CMD	CAM,,<I.1 COMP /MAC?/? ?0?>		;DCL COMPILE/MACRO
;
 CMD	CCM,,<I.1 COMP /COB?/? ?0?>		;DCL COMPILE/COBOL
;
 CMD	CFM,,<I.1 COMP /FOR?/? ?0?>		;DCL COMPILE/FORTRAN
;
 CMD	COP,,<I.1 COPY ?/? ?0?>			;DCL COPY COMMAND
;
;	FOLLOWING CODE CLOSES TABLES GENERATED BY MACROS CMD, COMM
;
	.PSECT	$TCMDT
	.IIF NDF CMDTAB CMDTAB==.
	.WORD	0
	.PSECT	$PCMDT
	.IIF NDF NOPTAB NOPTAB==.
	.WORD	0
	.PSECT
	.END