; *********************************************************************** ; .TITLE SD_TABLE ; Modifications: ; WSK 30-sep-1982 modified table to allow for 1,3 type directories ; as well as the number 1. ; ; *************************************************************************** SEMI = 59 SSTAR = 42 CARET = 94 RANGLE = 62 LANGLE = 60 PERCENT = 37 NUMBER = 35 MINUS = 45 DOT = 46 ONE = 49 COMMA = 44 $INIT_STATE PARSER,KEY_TABLE $STATE BEGIN $TRAN TPA$_EOS,TPA$_EXIT,SHOW_DEFAULT $TRAN DOT,BACK_OR_DOWN $TRAN SSTAR,STAR $TRAN CARET,UP $TRAN RANGLE,ACROSS $TRAN LANGLE,DO_ALL $TRAN '?',TPA$_EXIT,HELP $TRAN SEMI,UIC $TRAN NUMBER,DO_NUMBERS $TRAN TPA$_DECIMAL,TRY_TO_DO_NUMBERS,SAVE_NUMBER $TRAN TPA$_LAMBDA,TPA$_EXIT,SET_DEFAULT $STATE TRY_TO_DO_NUMBERS $TRAN COMMA,DO_NUMERIC_DIRECTORY $TRAN TPA$_EOS,TPA$_EXIT,SET_NUMBER $TRAN TPA$_LAMBDA,TPA$_EXIT,SET_NUMERIC $STATE DO_NUMERIC_DIRECTORY $TRAN TPA$_DECIMAL,TPA$_EXIT,SET_NUMERIC $STATE BACK_OR_DOWN $TRAN TPA$_EOS,TPA$_EXIT,GO_BACK $TRAN TPA$_LAMBDA,TPA$_EXIT,SET_DEFAULT_DOT $STATE STAR $TRAN TPA$_EOS,TPA$_EXIT,SHOW_ALL $TRAN TPA$_LAMBDA,TPA$_EXIT,SHOW_ALL_DIR $TRAN TPA$_LAMBDA,TPA$_FAIL ;in case that failed $STATE UP $TRAN CARET,TPA$_EXIT,UP_TO_TOP $TRAN TPA$_EOS,TPA$_EXIT,UP_ONE $STATE ACROSS $TRAN RANGLE,ACROSS2 $TRAN PERCENT,TPA$_EXIT,GO_TO_NEXT_PROMPT $TRAN TPA$_STRING,TPA$_EXIT,GO_TO_STRING $TRAN TPA$_LAMBDA,TPA$_FAIL $STATE ACROSS2 $TRAN TPA$_EOS,TPA$_EXIT,GO_TO_NEXT ;no prompt $TRAN ONE,TPA$_EXIT,DOWN_ONE $TRAN PERCENT,TPA$_EXIT,DOWN_ONE_PROMPT $STATE UIC $TRAN SEMI,TPA$_EXIT,SET_TO_CURRENT $TRAN TPA$_EOS,TPA$_EXIT,SHOW_UIC $TRAN TPA$_LAMBDA,TPA$_EXIT,SET_UIC $STATE DO_ALL $TRAN PERCENT,TPA$_EXIT,GO_TO_ALL_PMT $TRAN TPA$_EOS,TPA$_EXIT,GO_TO_ALL $STATE DO_NUMBERS $TRAN TPA$_EOS,TPA$_EXIT,SET_UP_NUMBERS $TRAN NUMBER,TPA$_EXIT,SHOW_NUMBERS $TRAN TPA$_DECIMAL,TPA$_EXIT,SET_UP_NUMBER $TRAN MINUS,CLEAR_NUMBERS $STATE CLEAR_NUMBERS $TRAN TPA$_DECIMAL,TPA$_EXIT,CLR_NUMBER $END_STATE .END