.TITLE	CCLCMD - COMMAND LINE PROCESSING LOGIN FOR TECOIO

	.IDENT	"X0206"

; ANDREW C. GOLDSTEIN  5-APR-77  15:28

;+
;
; THIS MODULE CONTAINS THE MACRO THAT PROCESSES THE CCL COMMAND LINE INTO
; THE EQUIVALENT TECO COMMANDS AND EXECUTES IT. THE MACRO IS LOADED INTO
; QY AT INITIALIZATION AND IS EXECUTED AFTER THE USER'S STARTUP FILE HAS
; BEEN EXECUTED.
;
; RATHER THAN CLUTTER UP THE MACRO WITH SPACE AND TIME CONSUMING COMMENTS,
; A BRIEF DESCRIPTION OF ITS OPERATION FOLLOWS:
;
; THE MACRO SAVES THE TWO Q REGISTERS IT USES (Q8 AND Q9) AND GETS THE
; COMMAND LINE INTO THE BUFFER, REMOVING ANY LEADING BLANKS AND TABS. IT THEN
; SETS Q9 ACCORDING TO THE COMMAND NAME (1 = TECO, 2 = MAKE, 3 = MUNG). ONLY
; THE FIRST TWO CHARACTERS OF THE NAME ARE CHECKED TO ALLOW NONSTANDARD
; INSTALLATION. THEN THE COMMAND NAME AND ITS TRAILING BLANKS ARE REMOVED.
; THE "TECO" COMMAND IS PROCESSED BY FIRST SEARCHING FOR A LEADING @. IF
; PRESENT, THE REMAINDER OF THE STRING IS CONVERTED INTO AN "EIFILE$"
; COMMAND. OTHERWISE, IT TRIES SEARCHING FOR AN =. IF FOUND, THE TWO
; FILE STRINGS ARE PUT INTO Q8 AND Q9, AND THE COMMAND "ERFILE1$EWFILE2$Y"
; IS CONSTRUCTED AND LOADED INTO QZ. IF THERE IS NO =, THE COMMAND "EBFILE$Y"
; IS CONSTRUCTED AND LOADED INTO QZ. FOR THE MAKE COMMAND, THE COMMAND
; STRING "EWFILE$" IS LOADED INTO QZ. FOR THE MUNG COMMAND, THE COMMAND STRING
; "EIFILE$" IS LOADED INTO QZ, AND IF THERE IS A COMMA IN THE LINE, THE REMAINDER
; OF THE LINE IS LEFT IN THE BUFFER.
;
;-


	.PSECT	PURE,RO,D

CCLCMD::
	.ASCII	*[8[9 HKGZ J::S*<5>*S*<AM>*0K Z"N 0U9*<CR><LF>
	.ASCII	*::STE*<AM>*"S 1U9'J*<CR><LF>
	.ASCII	*::SMA*<AM>*"S 2U9'J*<CR><LF>
	.ASCII	*::SMU*<AM>*"S 3U9'J*<CR><LF>
	.ASCII	*Q9"E :S*<5>*S*<AM>*"S FR*<AM>*K' @^A/*<CR><LF>
	.ASCII	*Unrecognized command name "/ HT @^A/"*<CR><LF>
	.ASCII	*/ ^C'*<CR><LF>
	.ASCII	*:S*<5>*S*<AM>*"U ZJ' 0K Z"N*<CR><LF>
	.ASCII	*Q9-1"E ::S@*<AM>*"S 0KIEI*<AM>* ZJ@I/*<AM>*/ HXZHKOA*<AM>*'*<CR><LF>
	.ASCII	*       :S=*<AM>*"S 0,.-1X8 .,ZX9 HKIER*<AM>* G9*<CR><LF>
	.ASCII	*       @I/*<AM>*EW/ G8 @I/*<AM>*Y/ HXZHKOA*<AM>*'*<CR><LF>
	.ASCII	*       JIEB*<AM>* ZJ@I/*<AM>*Y/ HXZHKOA*<AM>*'*<CR><LF>
	.ASCII	*Q9-2"E JIEW*<AM>* ::SLOVE*<AM>*"S .-Z"E  @^A/Not war??*<CR><LF>
	.ASCII	*/'' ZJ@I/*<AM>*/ HXZHKOA*<AM>*'*<CR><LF>
	.ASCII	*Q9-3"E JIEI*<AM>* :S,*<AM>*"U ZJI,*<AM>*' -D@I/*<AM>*/ 0XZ0KOA*<AM>*'*<CR><LF>
	.ASCII	*!A! MZ'' ]9]8 0,0XZ 0,0XY*<CR><LF>

CCLCML	== .-CCLCMD

	.EVEN



	.END