home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
honeywellcp6a
/
hc6ker.par
< prev
next >
Wrap
Text File
|
1988-08-15
|
12KB
|
269 lines
%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 )