.TITLE DltCMD Digital Loopback command table .PSECT DltCmd,Con .GLOBL CMDMGR .MCALL $ALVIN, $RMT01, $CMND ;+ ;;********************************************************************** ;; Command Table by DVJensen, Ames Lab Computer Services 50011 USA ;; ;; date version description ;; ;; 7-Feb-85 5.1 DVJ - Removed the command table from the generic manager. ;; The intention is to allow standardization of ;; the command manager and/or the command table. ;; 16-Jul-85 DVJ - Converted Station 3 to Station 4. ;; 4-Dec-85 DJ - Added the DEFAULTS command. ;; 7-Apr-86 DJ - Reduced to generic table with Digital Loopback. ;- ;;********* ;; Command SECTIONS: ;; .GLOBL VsExit .Globl Connect, Dconnect .Globl Help, DLtest $Alvin ;;**************************************************************************** ;; Command table introduction message. Intro:: .Word IntroBegin ; Static string. .Word IntroEnd ;; INTROBEGIN: .BYTE CR,LF,LF .ASCII 'Commands (and optional form):' .BYTE CR,LF,BLANK,BLANK,BLANK NST250: .ASCII 'LOOPBACK' NST251=.-1 .BYTE CR,LF,BLANK,BLANK,BLANK NST260: .ASCII 'HEL' NST261: .ASCII 'P' .BYTE CR,LF,BLANK,BLANK,BLANK NST270: .ASCII 'EXI' NST271: .ASCII 'T' .BYTE CR,LF,LF .ASCII 'Local commands: ' .BYTE CR,LF .ASCII ' ' LOC10: .ASCII 'CONNECT' LOC11=.-1 .ASCII ' ' LOC40: .ASCII 'DISCONNECT' LOC41=.-1 .BYTE CR,LF .ASCII ' CLx STATUS' .BYTE CR,LF .ASCII 'and all regular commands are local commands.' .BYTE CR,LF,LF .ASCII 'A local command begins at the start of a new line' .Ascii ' with altmode (' .BYTE altmode .ASCII '), rubout ' .BYTE CR,LF .Ascii 'or delete. For example, will respond' .Ascii ' with:' .Byte Cr,Lf .Ascii 'Local? CONNECT STATUS ! User requests connection status.' .Byte Cr,lf INTROEND::.BYTE LF .EVEN ;;******************************* LOCTABLE:: ;LOCAL COMMAND TABLE DESCRIPTOR .WORD LTBEGIN ;LOCAL COMMAND TABLE BEGIN ADDRESS. .WORD LOCEND ;LOCAL COMMAND TABLE END ADDRESS. .WORD 10 ;SIZE OF COMMAND ENTRY FOR THIS TABLE. ;; CMDTABLE:: .WORD RegBEGIN ;Regular COMMAND TABLE DESCRIPTOR. .WORD RegEND ;END ADDRESS OF COMMAND TABLE. .WORD 10 ;SIZE OF COMMAND ENTRY FOR THIS TABLE. .WORD 0 ; (Reserved for compatiblity with Parm table) ;;******************************* LTBEGIN: ; Beginning of LOCAL command table. ;*; $CMND ,3,LOC10,LOC11,Connect ;*; $CMND ,3,LOC40,LOC41,DConnect ;*; RegBEGIN: ; Beginning of REGULAR command table - continue LOCAL. ;*; $CMND ,3,NST250,NST251,DLTEST ;*; $CMND ,3,NST260,NST261,HELP ;*; $CMND ,2,NST270,NST271,VSEXIT ;*; RegEND: ;END OF NMR COMMAND TABLE. LOCEND: ;END OF LOCAL COMMAND TABLE. ;;**************************************************************************** .End