%EQU OS_VERSION='D00'; /* This is B03, C00, C01 or D00 */ %LIST; %INCLUDE HC6KERMIT_C61; %EJECT; KERMIT_NODES(%KERMIT##,D) = ( ['('] [<';',CMDS>] [')'] ) .END CMDS = ( ; ALL_HELP | ; BYE | ; CG | ; DEBUG | ; DONT_GREET | ; DONT_PROMPT | ; FINISH | ; HELP | ; LOCAL | ; LOG | ; LIST | ; MORE_HELP | ; NO_DEFAULTS | ; NULL | ; PROMPT | ; READ | ; RECEIVE | ; SEND | ; SERVER | ; SET | ; SHOW | ; SILENT | ; STATION | ; STATISTICS | ; TRANSMIT | ; XIT ; ) ALL_HELP(%ALL_HELP##) = '??' BYE(%BYE##) = 'BYE' CG(%CG##) = 'CG' ['='] .FID DEBUG(%DEBUG##) = 'DEB/UG' [DEBUG_FID] ['(' <',',DEBUG_OPTS> ')'] DONT_GREET(%DONT_GREET##) = ( 'D/ONT' | 'N/O' ) 'G/REETING' DONT_PROMPT(%DONT_PROMPT##) = ( 'D/ONT' | 'N/O' ) 'P/ROMPT' FINISH(%FINISH##) = 'FIN/ISH' HELP(%HELP##) = 'H/ELP' .ASYM+';' LIST(%LIST##) = 'L/IST' [.B .ASYM+';'] LOCAL(%LOCAL##) = LOCAL_OPTS LOG(%LOG##) = 'LOG' ['T/RANSACTIONS'] [.B HOW] .B .FID MORE_HELP(%MORE_HELP##) = '?' NO_DEFAULTS(%NO_DEFAULTS##) = 'N/O' 'D/EFAULTS' NULL(%NULL##) = [.B] .END PROMPT(%PROMPT##) = 'PROM/PT' .B ( .QUOTE31 | .AN31 ) READ(%READ##) = ( 'READ' | 'TAKE' | 'XEQ' ) .B .FID RECEIVE(%RECEIVE##) = 'REC/EIVE' [.B .FID [.B HOW .B .FID]] SEND(%SEND##) = 'SEN/D' .B .FID [[.B 'AS'] .B .FID] SERVER(%SERVER##) = 'SER/VER' SET(%SET##) = 'SET' <',',SET_OPTS> SHOW(%SHOW##) = 'SHOW' SILENT(%SILENT##) = 'SILE/NT' ['M/ODE'] STATION(%STATION##) = 'STATION' ['='] .FID STATISTICS(%STATISTICS##) = 'STAT/ISTICS' TRANSMIT(%TRANSMIT##) = 'TR/ANSMIT' .B .FID XIT(%XIT##) = ( 'EN/D' | ['E'] 'X/IT' | 'Q/UIT' ) DEBUG_FID(%DEBUG_FID##) = [HOW] .FID DEBUG_OPTS = ( ; DEBUG_ALL | ; DEBUG_COMMAND | ; DEBUG_ERROR | ; DEBUG_INFO | ; DEBUG_MICRO | ; DEBUG_OFF | ; DEBUG_ON | ; DEBUG_READ | ; DEBUG_RECEIVE | ; DEBUG_SEND | ; DEBUG_TIMEOUT | ; DEBUG_WRITE ; ) DEBUG_ALL(%DEBUG_ALL##) = 'A/LL' DEBUG_COMMAND(%DEBUG_COMMAND##) = 'C/O'['M/MA'['ND']] DEBUG_ERROR(%DEBUG_ERROR##) = 'E/RROR' DEBUG_INFO(%DEBUG_INFO##) = 'I/NFORMATION' DEBUG_MICRO(%DEBUG_MICRO##) = 'M/ICRO' ['I///O'] DEBUG_OFF(%DEBUG_OFF##) = 'OF/F' DEBUG_ON(%DEBUG_ON##) = 'ON' DEBUG_READ(%DEBUG_READ##) = 'REA/D' DEBUG_RECEIVE(%DEBUG_RECEIVE##) = 'REC/EIVE' DEBUG_SEND(%DEBUG_SEND##) = 'S/END' DEBUG_TIMEOUT(%DEBUG_TIMEOUT##) = 'T/IMEOUT' DEBUG_WRITE(%DEBUG_WRITE##) = 'W/RITE' LOCAL_OPTS = ( ; LOCAL_CWD | ; LOCAL_COPY | ; LOCAL_DELETE | ; LOCAL_DIR ; ) LOCAL_COPY(%LOCAL_COPY##) = ['LOC/AL'] 'C/OPY' .ASYM+';' %IF OS_VERSION='B03'; LOCAL_CWD(%LOCAL_CWD##) = 'LOC/AL' 'CWD' ['.'] .A %ELSE; LOCAL_CWD(%LOCAL_CWD##) = 'LOC/AL' 'CWD' [['.'] .ACCOUNT] %ENDIF; LOCAL_DELETE(%LOCAL_DELETE##) = ['LOC/AL'] 'DEL/ETE' .ASYM+';' LOCAL_DIR(%LOCAL_DIR##) = 'LOC/AL' 'DIR/ECTORY' .ASYM+';' SET_OPTS = ( ; SET_BLOCK_CHECK | ; SET_DELAY | ; SET_FILE | ; SET_RETRY | ; SET_SEND | ; SET_TAB_EXPANSION | ; SET_TABS ; ) SET_BLOCK_CHECK(%SET_BLOCK_CHECK##) = 'B/LOCK' ['-'] ['C/HECK'] ( [.B] '=' [.B] | .B ) ; ( ; ONE_CHAR_CHECKSUM | ; TWO_CHAR_CHECKSUM | ; THREE_CHAR_CHECKSUM ; ) ONE_CHAR_CHECKSUM(%ONE_CHAR_CHECKSUM##) = ; ( '1' | 'O/NE' ) ['C/HARACTER' ['C/HECKSUM']] TWO_CHAR_CHECKSUM(%TWO_CHAR_CHECKSUM##) = ; ( '2' | 'T/WO' ) ['C/HARACTER' ['C/HECKSUM']] THREE_CHAR_CHECKSUM(%THREE_CHAR_CHECKSUM##) = ; ( '3' | 'T/HREE' ) ['C/HARACTER' ['C/HECKSUM']] SET_DELAY(%SET_DELAY##) = 'D/ELAY' ['='] .DEC SET_FILE(%SET_FILE##) = 'F/ILE' .B ; ( ; /* SET_FILE_BINARY_EXTENSIONS | ; see below */ SET_FILE_CP6_FIDS_YES | ; SET_FILE_CP6_FIDS_NO | ; SET_FILE_EDIT_YES | ; SET_FILE_EDIT_NO | ; SET_FILE_END_OF_RECORD | ; SET_FILE_INCOMPLETE_DISCARD | ; SET_FILE_INCOMPLETE_KEEP | ; SET_FILE_MODE_AUTO | ; SET_FILE_MODE_BINARY | ; SET_FILE_MODE_TEXT | ; SET_FILE_NAMES_ASIS | ; SET_FILE_NAMES_LC | ; SET_FILE_NAMES_UC | ; SET_FILE_PC_EXTENSIONS_YES | ; SET_FILE_PC_EXTENSIONS_NO | ; SET_FILE_BINARY_EXTENSIONS | ; SET_FILE_PREFIX | ; SET_FILE_REPLACEMENT | ; SET_FILE_SUBDIRECTORY_CHAR | ; SET_FILE_SUBDIRECTORY_OFF | ; SET_FILE_SUBDIRECTORY_ON | ; SET_FILE_WARNING_ON | ; SET_FILE_WARNING_INTO | ; SET_FILE_WARNING_OFF ; ) SET_FILE_BINARY_EXTENSIONS(%SET_FILE_BINARY_EXTENSIONS##) = ; ['B/INARY'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) <',',(.AN11|.Q11)> SET_FILE_CP6_FIDS_YES(%SET_FILE_CP6_FIDS_YES##) = ; 'C/P' ['-'] ['6'] ['F/IDS'] ['P/ERMITTED'] ( [.B] '=' [.B] | .B ) ('Y/ES' | 'ON') SET_FILE_CP6_FIDS_NO(%SET_FILE_CP6_FIDS_NO##) = ; 'C/P' ['-'] ['6'] ['F/IDS'] ['P/ERMITTED'] ( [.B] '=' [.B] | .B ) ('N/O' | 'OFF') SET_FILE_EDIT_YES(%SET_FILE_EDIT_YES##) = ; 'E/DIT' ['K/EY'] ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' ) SET_FILE_EDIT_NO(%SET_FILE_EDIT_NO##) = ; 'E/DIT' ['K/EY'] ( [.B] '=' [.B] | .B ) ( 'N/O' | 'OFF' ) SET_FILE_END_OF_RECORD(%SET_FILE_END_OF_RECORD##) = ; 'E/ND' 'O/F' 'R/ECORD' ( [.B] '=' [.B] | .B ) <',',.DEC3> SET_FILE_INCOMPLETE_DISCARD(%SET_FILE_INCOMPLETE_DISCARD##) = ; 'I/NCOMPLETE' ( [.B] '=' [.B] | .B ) 'D/ISCARD' SET_FILE_INCOMPLETE_KEEP(%SET_FILE_INCOMPLETE_KEEP##) = ; 'I/NCOMPLETE' ( [.B] '=' [.B] | .B ) 'K/EEP' SET_FILE_MODE_AUTO(%SET_FILE_MODE_AUTO##) = ; 'M/ODE' ( [.B] '=' [.B] | .B ) 'A/UTOMATIC' SET_FILE_MODE_BINARY(%SET_FILE_MODE_BINARY##) = ; 'M/ODE' ( [.B] '=' [.B] | .B ) 'B/INARY' SET_FILE_MODE_TEXT(%SET_FILE_MODE_TEXT##) = ; 'M/ODE' ( [.B] '=' [.B] | .B ) 'T/EXT' SET_FILE_NAMES_ASIS(%SET_FILE_NAMES_ASIS##) = ; 'N/AMES' ( [.B] '=' [.B] | .B ) 'A/S' ['IS'] SET_FILE_NAMES_LC(%SET_FILE_NAMES_LC##) = ; 'N/AMES' ( [.B] '=' [.B] | .B ) 'L/OWER' ['C/ASE'] SET_FILE_NAMES_UC(%SET_FILE_NAMES_UC##) = ; 'N/AMES' ( [.B] '=' [.B] | .B ) 'U/PPER' ['C/ASE'] SET_FILE_PC_EXTENSIONS_YES(%SET_FILE_PC_EXTENSIONS_YES##) = ; ['PC'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' ) SET_FILE_PC_EXTENSIONS_NO(%SET_FILE_PC_EXTENSIONS_NO##) = ; ['PC'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) ( 'N/O' | 'OFF' ) SET_FILE_PREFIX(%SET_FILE_PREFIX##) = ; 'PR/EFIX' ( [.B] '=' [.B] | .B ) .Q19 SET_FILE_REPLACEMENT(%SET_FILE_REPLACEMENT##) = ; 'R/EPLACEMENT' ['C/HARACTER'] ( [.B] '=' [.B] | .B ) .Q1 SET_FILE_SUBDIRECTORY_CHAR(%SET_FILE_SUBDIRECTORY_CHAR##) = ; 'SUB' ['D/IRECTORY'] ['C/HARACTER'] ( [.B] '=' [.B] | .B ) .Q1 SET_FILE_SUBDIRECTORY_OFF(%SET_FILE_SUBDIRECTORY_OFF##) = ; 'SUB' ['D/IRECTORY'] ( [.B] '=' [.B] | .B ) ( 'N/O' | 'OFF' ) SET_FILE_SUBDIRECTORY_ON(%SET_FILE_SUBDIRECTORY_ON##) = ; 'SUB' ['D/IRECTORY'] ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' ) SET_FILE_WARNING_ON(%SET_FILE_WARNING_ON##) = ; 'W/ARNING' ( [.B] '=' [.B] | .B ) ( 'ON' | 'TO' ) SET_FILE_WARNING_INTO(%SET_FILE_WARNING_INTO##) = ; 'W/ARNING' ( [.B] '=' [.B] | .B ) 'INTO' SET_FILE_WARNING_OFF(%SET_FILE_WARNING_OFF##) = ; 'W/ARNING' ( [.B] '=' [.B] | .B ) ( 'OFF' | 'OVER' ) SET_SEND(%SET_SEND##) = 'SEN/D' .B ; <',',( ; SEND_EIGHT_BIT_QUOTE | ; SEND_END_OF_LINE | ; SEND_PACKET_LENGTH | ; SEND_PAUSE | ; SEND_PADDING | ; SEND_PADCHAR | ; SEND_QUOTE | ; SEND_REPT | ; SEND_START_OF_PACKET | ; SEND_TIMEOUT ; )> SEND_EIGHT_BIT_QUOTE(%SEND_EIGHT_BIT_QUOTE##) = ; 'EI/GHT' ['B/IT'] ['Q/UOTING'] ['C/HARACTER'] ; ( [.B] '=' [.B] | .B ) ( .AN1 | .Q1 ) SEND_END_OF_LINE(%SEND_END_OF_LINE##) = ; 'E/ND' ['-'] ['O/F'] ['-'] ['L/INE'] ( [.B] '=' [.B] | .B ) .DEC3 SEND_PACKET_LENGTH(%SEND_PACKET_LENGTH##) = ; ( 'M/AXIMUM' | 'PACK/ET' ) ['L/ENGTH'] ( [.B] '=' [.B] | .B ) .DEC2 SEND_PAUSE(%SEND_PAUSE##) = ; 'PAU/SE' ( '=' | .B ) .DEC SEND_PADDING(%SEND_PADDING##) = ; ( 'NPAD/DING' | 'PADD/ING' ) ( '=' | .B ) .DEC SEND_PADCHAR(%SEND_PADCHAR##) = ; 'PADC/HAR' ( [.B] '=' [.B] | .B ) .DEC3 SEND_QUOTE(%SEND_QUOTE##) = ; 'Q/UOTE' ['CTL'] ( [.B] '=' [.B] | .B ) .Q1 SEND_REPT(%SEND_REPT## ) = ; 'R/EP' ['E/A'] ['T'] ['C/HARACTER'] ( [.B] '=' [.B] | .B ) ( .AN1 | .Q1 ) SEND_START_OF_PACKET(%SEND_START_OF_PACKET##) = ; 'S/TART' ['-'] ['O/F'] ['-'] ['P/ACKET'] ( [.B] '=' [.B] | .B ) .DEC3 SEND_TIMEOUT(%SEND_TIMEOUT##) = ; 'T/IMEOUT' ( '=' | .B ) .DEC SET_TAB_EXPANSION(%SET_TAB_EXPANSION##) = 'TAB' 'EX/PANSION' ( [.B] '=' [.B] | .B ); ( ; SET_TAB_EXPANSION_OFF | ; SET_TAB_EXPANSION_ON ; ) SET_TAB_EXPANSION_OFF(%SET_TAB_EXPANSION_OFF##) = ( 'OFF' | 'NO' ) SET_TAB_EXPANSION_ON(%SET_TAB_EXPANSION_ON##) = ( 'ON' | 'YES' ) SET_TABS(%SET_TABS##) = 'TABS' [<',',.DEC3>] SET_RETRY(%SET_RETRY##) = 'R/ETRY' ['C/OUNT'] ['F/OR'] ; ( ; RETRY_INITIAL | ; RETRY_PACKETS ; ) RETRY_INITIAL(%RETRY_INITIAL##) = 'I/NITIAL' ['P/ACKETS'] .DEC RETRY_PACKETS(%RETRY_PACKETS##) = 'P/ACKETS' .DEC HOW = ( ON | OVER | INTO ) ON(%ON##) = 'ON' OVER(%OVER##) = 'OVER' INTO(%INTO##) = 'INTO' SEPARATOR = ( [.B] '=' [.B] | .B )