.TITLE PHOPAR - PHONE COMMAND PARSER .IDENT /1.1/ .ENABL LC ;+ ; ; Free software BY ; Project Software & Development, Inc. ; ; This software is furnished for free and may be used and copied as ; desired. This software or any other copies thereof may be provided ; or otherwise made available to any other person. No title to and ; ownership of the software is hereby transferred or allowed. ; ; The information in this software is subject to change without notice ; and should not be construed as a commitment by PROJECT SOFTWARE ; AND DEVELOPMENT, INC. ; ; PROJECT SOFTWARE assumes no responsibility for the use or reliability ; of this software on any equipment whatsoever. ; ; Project Software & Development, Inc. ; 14 Story St. ; Cambridge, Ma. 02138 ; 617-661-1444 ; ; ; Title: PHOPAR.MAC ; Author: Gary N. Larsen ; Date: August 5, 1982 ; ; Description: ; ; Prompting routines for Phone. ; ; ; Modification History: ; ;- .MCALL ISTAT$, STATE$, TRAN$ .SBTTL PHOPAR - PHONE COMMAND PARSER ;+ ; ; PHOPAR - PHONE COMMAND LINE PARSER. ; ; This program is used to parse the incoming command from the user ; and send it to the appropriate action routine. ; ;- ; Define start of state and keyword tables. ISTAT$ STATE, KEYWRD ; Now define the actual state table. .GLOBL START ; Next is a possible option or text of the message. STATE$ START TRAN$ '?,START,PHOHLP TRAN$ "ANSWER",START,ANSWER TRAN$ "DIAL",CALLUP TRAN$ "DIRECTORY",START,DIRECT TRAN$ "EXIT",$EXIT,EXIT TRAN$ "FACSIMILE",START,FACSIM TRAN$ "HELP",HELP TRAN$ "HANGUP",START,HANGUP TRAN$ "HOLD",START,HOLD TRAN$ "MAIL",START,MAIL TRAN$ "NOSCROLL",START,NOSCR TRAN$ "REJECT",START,REJECT TRAN$ "SCROLL",START,,B.SCR,STATUS TRAN$ "SWITCH",START,SWITCH TRAN$ 'T,CALL2,DIALT TRAN$ "UNHOLD",START,UNHOLD TRAN$ "VIEWPORT",VIEW TRAN$ $EOS,$EXIT ;********************************************************************** ; Find the terminal they wish to call STATE$ CALLUP TRAN$ $ALPHA,CALL2,DSTTY1 TRAN$ $LAMDA,,NODIAL STATE$ CALL2 TRAN$ $ALPHA,,DSTTY2 STATE$ CALL3 TRAN$ $NUMBR,FTTY,DSTTYN TRAN$ $LAMDA STATE$ FTTY TRAN$ ':,START,DIALEM TRAN$ $LAMDA,START,DIALEM ;********************************************************************** ; See if they want general help STATE$ HELP TRAN$ $LAMDA,START,PHOHLP ;********************************************************************** ; Specifying a different viewport size. STATE$ VIEW TRAN$ '= STATE$ TRAN$ $DNUMB,START,SVIEW ;********************************************************************** ; The next STATE$ is needed for the end of the table. STATE$ .END