.TITLE CCLVUE - STARTUP FOR VUE ;RBD-VUE .IDENT "V1.0" ;RBD-VUE ; ; COPYRIGHT (C) 1976 BY DIGITAL EQUIPMENT CORPORATION, ; MAYNARD, MASSACHUSETTS ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE IN- ; CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DIGITAL. ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITH- ; OUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY ; DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ; THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS ; NOT SUPPLIED BY DIGITAL. ; ; ANDREW C. GOLDSTEIN 5-APR-77 15:28 ; ;-------------------------------------------------------------- ; V U E ; ; THIS MODULE HAS BEEN MODIFIED FOR USE WITH VUE. FOR A COMP- ; LETE EXPLANATION, SEE THE COMMENTS ON THE NEXT PAGE. ; .ENABL LC ; ; The modifications to this TECO/RSX-11M I/O module were ; made by: ; ; Bob Denny ; Gould, Inc. NavCom Systems Division ; 4323 N. Arden Drive. ; El Monte, Ca. 91731 ; (213) 442-0123 Ext. 587 ; ; If you have any questions about the mods, or find (and maybe fix) ; a problem, feel free to contact me. ; ;------------------------------------------------------------------------- ;+ ; ; *** THIS IS BRAND NEW FOR VUE *** ; ; THIS MODULE CONTAINS THE MACRO THAT PROCESSES THE CCL COMMAND LINE INTO ; THE EQUIVALENT VUE 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 = EDIT, 2 = MAKE, 3 = VUE). 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 "EDIT" 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 VUE COMMAND, THE COMMAND STRING ; "ERFILE$" IS LOADED INTO QZ. ; ;- .PSECT PURE,RO,D CCLCMD:: .ASCII *[8[9 HKGZ J::S*<5>*S**0K Z"N 0U9* .ASCII *::SED**"S 1U9'J* .ASCII *::SMA**"S 2U9'J* .ASCII *::SVU**"S 3U9'J* .ASCII *Q9"E :S*<5>*S**"S FR**K' @^A/* .ASCII *Unrecognized command name "/ HT @^A/"* .ASCII */HK ^C'* .ASCII *:@S/^ES/"U ZJ ' 0K Z"N* .ASCII * Q9-1"E * .ASCII * ::@S/@/"S 0K @I/EI/ ZJ @I/**/HXZHK* .ASCII * @^A/**Opening Indirect Macro File /* .ASCII * MZ @O/A/ ' * .ASCII * :@S/=/"S 0,.-1X8 .,ZX9 HK @I/ER/ G9 @I/**/* .ASCII * HXZHKMZ @^A/**/ :G*<'*> .ASCII * @^A/ Open for input**/* .ASCII * @I/EW/ G8 @I/**/ HXZHKMZ* .ASCII * :G*<'*>* @^A/ Open for Output**/* .ASCII * @O/A/ ' * .ASCII * J @I/EB/ ZJ @I/**/ HXZHKMZ* .ASCII * :G*<'*>* @^A/ Open with Backup**/* .ASCII * @O/A/ ' * .ASCII * Q9-2"E * .ASCII * J @I/EW/ ZJ @I/**/ HXZHKMZ* .ASCII * :G*<'*>* @^A/ Created for Output**/* .ASCII * @O/A/ ' * .ASCII * Q9-3"E * .ASCII * J @I/ER/ ZJ @I/**/ HXZHKMZ* .ASCII * :G*<'*>* @^A/ Opened for Inspection**/* .ASCII * @O/A/ ' * .ASCII *!A! '' ]9 ]8 0,0XZ 0,0XY* CCLCML == .-CCLCMD .EVEN .END