home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / honeywellcp6a / hc6ker.par < prev    next >
Text File  |  2020-01-01  |  12KB  |  269 lines
  1.  
  2. %EQU OS_VERSION='D00';                        /* This is B03, C00, C01 or D00 */
  3.  
  4. %LIST;
  5. %INCLUDE HC6KERMIT_C61;
  6. %EJECT;
  7. KERMIT_NODES(%KERMIT##,D) = ( ['('] [<';',CMDS>] [')'] ) .END
  8.  
  9.     CMDS = (                 ;
  10.                ALL_HELP    | ;
  11.                BYE         | ;
  12.                CG          | ;
  13.                DEBUG       | ;
  14.                DONT_GREET  | ;
  15.                DONT_PROMPT | ;
  16.                FINISH      | ;
  17.                HELP        | ;
  18.                LOCAL       | ;
  19.                LOG         | ;
  20.                LIST        | ;
  21.                MORE_HELP   | ;
  22.                NO_DEFAULTS | ;
  23.                NULL        | ;
  24.                PROMPT      | ;
  25.                READ        | ;
  26.                RECEIVE     | ;
  27.                SEND        | ;
  28.                SERVER      | ;
  29.                SET         | ;
  30.                SHOW        | ;
  31.                SILENT      | ;
  32.                STATION     | ;
  33.                STATISTICS  | ;
  34.                TRANSMIT    | ;
  35.                XIT           ;
  36.            )
  37.  
  38. ALL_HELP(%ALL_HELP##)        = '??'
  39. BYE(%BYE##)                  = 'BYE'
  40. CG(%CG##)                    = 'CG' ['='] .FID
  41. DEBUG(%DEBUG##)              = 'DEB/UG' [DEBUG_FID] ['(' <',',DEBUG_OPTS> ')']
  42. DONT_GREET(%DONT_GREET##)    = ( 'D/ONT' | 'N/O' ) 'G/REETING'
  43. DONT_PROMPT(%DONT_PROMPT##)  = ( 'D/ONT' | 'N/O' ) 'P/ROMPT'
  44. FINISH(%FINISH##)            = 'FIN/ISH'
  45. HELP(%HELP##)                = 'H/ELP' .ASYM+';'
  46. LIST(%LIST##)                = 'L/IST' [.B .ASYM+';']
  47. LOCAL(%LOCAL##)              = LOCAL_OPTS
  48. LOG(%LOG##)                  = 'LOG' ['T/RANSACTIONS'] [.B HOW] .B .FID
  49. MORE_HELP(%MORE_HELP##)      = '?'
  50. NO_DEFAULTS(%NO_DEFAULTS##)  = 'N/O' 'D/EFAULTS'
  51. NULL(%NULL##)                = [.B] .END
  52. PROMPT(%PROMPT##)            = 'PROM/PT' .B ( .QUOTE31 | .AN31 )
  53. READ(%READ##)                = ( 'READ' | 'TAKE' | 'XEQ' ) .B .FID
  54. RECEIVE(%RECEIVE##)          = 'REC/EIVE' [.B .FID [.B HOW .B .FID]]
  55. SEND(%SEND##)                = 'SEN/D' .B .FID [[.B 'AS'] .B .FID]
  56. SERVER(%SERVER##)            = 'SER/VER'
  57. SET(%SET##)                  = 'SET' <',',SET_OPTS>
  58. SHOW(%SHOW##)                = 'SHOW'
  59. SILENT(%SILENT##)            = 'SILE/NT' ['M/ODE']
  60. STATION(%STATION##)          = 'STATION' ['='] .FID
  61. STATISTICS(%STATISTICS##)    = 'STAT/ISTICS'
  62. TRANSMIT(%TRANSMIT##)        = 'TR/ANSMIT' .B .FID
  63. XIT(%XIT##)                  = ( 'EN/D' | ['E'] 'X/IT' | 'Q/UIT' )
  64.  
  65. DEBUG_FID(%DEBUG_FID##)      = [HOW] .FID
  66.  
  67. DEBUG_OPTS = (                  ;
  68.                DEBUG_ALL      | ;
  69.                DEBUG_COMMAND  | ;
  70.                DEBUG_ERROR    | ;
  71.                DEBUG_INFO     | ;
  72.                DEBUG_MICRO    | ;
  73.                DEBUG_OFF      | ;
  74.                DEBUG_ON       | ;
  75.                DEBUG_READ     | ;
  76.                DEBUG_RECEIVE  | ;
  77.                DEBUG_SEND     | ;
  78.                DEBUG_TIMEOUT  | ;
  79.                DEBUG_WRITE      ;
  80.              )
  81.     DEBUG_ALL(%DEBUG_ALL##)            = 'A/LL'
  82.     DEBUG_COMMAND(%DEBUG_COMMAND##)    = 'C/O'['M/MA'['ND']]
  83.     DEBUG_ERROR(%DEBUG_ERROR##)        = 'E/RROR'
  84.     DEBUG_INFO(%DEBUG_INFO##)          = 'I/NFORMATION'
  85.     DEBUG_MICRO(%DEBUG_MICRO##)        = 'M/ICRO' ['I///O']
  86.     DEBUG_OFF(%DEBUG_OFF##)            = 'OF/F'
  87.     DEBUG_ON(%DEBUG_ON##)              = 'ON'
  88.     DEBUG_READ(%DEBUG_READ##)          = 'REA/D'
  89.     DEBUG_RECEIVE(%DEBUG_RECEIVE##)    = 'REC/EIVE'
  90.     DEBUG_SEND(%DEBUG_SEND##)          = 'S/END'
  91.     DEBUG_TIMEOUT(%DEBUG_TIMEOUT##)    = 'T/IMEOUT'
  92.     DEBUG_WRITE(%DEBUG_WRITE##)        = 'W/RITE'
  93.  
  94. LOCAL_OPTS = (                ;
  95.                LOCAL_CWD    | ;
  96.                LOCAL_COPY   | ;
  97.                LOCAL_DELETE | ;
  98.                LOCAL_DIR      ;
  99.              )
  100.     LOCAL_COPY(%LOCAL_COPY##)          = ['LOC/AL'] 'C/OPY' .ASYM+';'
  101. %IF OS_VERSION='B03';
  102.     LOCAL_CWD(%LOCAL_CWD##)            =  'LOC/AL'  'CWD' ['.'] .A
  103. %ELSE;
  104.     LOCAL_CWD(%LOCAL_CWD##)            =  'LOC/AL'  'CWD' [['.'] .ACCOUNT]
  105. %ENDIF;
  106.     LOCAL_DELETE(%LOCAL_DELETE##)      = ['LOC/AL'] 'DEL/ETE' .ASYM+';'
  107.     LOCAL_DIR(%LOCAL_DIR##)            =  'LOC/AL'  'DIR/ECTORY' .ASYM+';'
  108.  
  109. SET_OPTS = (                   ;
  110.              SET_BLOCK_CHECK   | ;
  111.              SET_DELAY         | ;
  112.              SET_FILE          | ;
  113.              SET_RETRY         | ;
  114.              SET_SEND          | ;
  115.              SET_TAB_EXPANSION | ;
  116.              SET_TABS            ;
  117.            )
  118.     SET_BLOCK_CHECK(%SET_BLOCK_CHECK##) = 'B/LOCK' ['-'] ['C/HECK'] ( [.B] '=' [.B] | .B ) ;
  119.                           (                       ;
  120.                             ONE_CHAR_CHECKSUM   | ;
  121.                             TWO_CHAR_CHECKSUM   | ;
  122.                             THREE_CHAR_CHECKSUM   ;
  123.                           )
  124.       ONE_CHAR_CHECKSUM(%ONE_CHAR_CHECKSUM##) = ;
  125.                              ( '1' | 'O/NE' ) ['C/HARACTER' ['C/HECKSUM']]
  126.       TWO_CHAR_CHECKSUM(%TWO_CHAR_CHECKSUM##) = ;
  127.                              ( '2' | 'T/WO' ) ['C/HARACTER' ['C/HECKSUM']]
  128.       THREE_CHAR_CHECKSUM(%THREE_CHAR_CHECKSUM##) = ;
  129.                              ( '3' | 'T/HREE' ) ['C/HARACTER' ['C/HECKSUM']]
  130.  
  131.     SET_DELAY(%SET_DELAY##)             = 'D/ELAY' ['='] .DEC
  132.  
  133.     SET_FILE(%SET_FILE##) = 'F/ILE' .B ;
  134.                    (                               ;
  135.                   /* SET_FILE_BINARY_EXTENSIONS  | ; see below */
  136.                      SET_FILE_CP6_FIDS_YES       | ;
  137.                      SET_FILE_CP6_FIDS_NO        | ;
  138.                      SET_FILE_EDIT_YES           | ;
  139.                      SET_FILE_EDIT_NO            | ;
  140.                      SET_FILE_END_OF_RECORD      | ;
  141.                      SET_FILE_INCOMPLETE_DISCARD | ;
  142.                      SET_FILE_INCOMPLETE_KEEP    | ;
  143.                      SET_FILE_MODE_AUTO          | ;
  144.                      SET_FILE_MODE_BINARY        | ;
  145.                      SET_FILE_MODE_TEXT          | ;
  146.                      SET_FILE_NAMES_ASIS         | ;
  147.                      SET_FILE_NAMES_LC           | ;
  148.                      SET_FILE_NAMES_UC           | ;
  149.                      SET_FILE_PC_EXTENSIONS_YES  | ;
  150.                      SET_FILE_PC_EXTENSIONS_NO   | ;
  151.                      SET_FILE_BINARY_EXTENSIONS  | ;
  152.                      SET_FILE_PREFIX             | ;
  153.                      SET_FILE_REPLACEMENT        | ;
  154.                      SET_FILE_SUBDIRECTORY_CHAR  | ;
  155.                      SET_FILE_SUBDIRECTORY_OFF   | ;
  156.                      SET_FILE_SUBDIRECTORY_ON    | ;
  157.                      SET_FILE_WARNING_ON         | ;
  158.                      SET_FILE_WARNING_INTO       | ;
  159.                      SET_FILE_WARNING_OFF          ;
  160.                    )
  161.       SET_FILE_BINARY_EXTENSIONS(%SET_FILE_BINARY_EXTENSIONS##) = ;
  162.         ['B/INARY'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) <',',(.AN11|.Q11)>
  163.       SET_FILE_CP6_FIDS_YES(%SET_FILE_CP6_FIDS_YES##) = ;
  164.         'C/P' ['-'] ['6'] ['F/IDS'] ['P/ERMITTED'] ( [.B] '=' [.B] | .B ) ('Y/ES' | 'ON')
  165.       SET_FILE_CP6_FIDS_NO(%SET_FILE_CP6_FIDS_NO##) = ;
  166.         'C/P' ['-'] ['6'] ['F/IDS'] ['P/ERMITTED'] ( [.B] '=' [.B] | .B ) ('N/O'  | 'OFF')
  167.       SET_FILE_EDIT_YES(%SET_FILE_EDIT_YES##) = ;
  168.         'E/DIT' ['K/EY'] ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' )
  169.       SET_FILE_EDIT_NO(%SET_FILE_EDIT_NO##) = ;
  170.         'E/DIT' ['K/EY'] ( [.B] '=' [.B] | .B ) ( 'N/O'  | 'OFF' )
  171.       SET_FILE_END_OF_RECORD(%SET_FILE_END_OF_RECORD##) = ;
  172.         'E/ND' 'O/F' 'R/ECORD' ( [.B] '=' [.B] | .B ) <',',.DEC3>
  173.       SET_FILE_INCOMPLETE_DISCARD(%SET_FILE_INCOMPLETE_DISCARD##) = ;
  174.         'I/NCOMPLETE' ( [.B] '=' [.B] | .B ) 'D/ISCARD'
  175.       SET_FILE_INCOMPLETE_KEEP(%SET_FILE_INCOMPLETE_KEEP##) = ;
  176.         'I/NCOMPLETE' ( [.B] '=' [.B] | .B ) 'K/EEP'
  177.       SET_FILE_MODE_AUTO(%SET_FILE_MODE_AUTO##) = ;
  178.         'M/ODE' ( [.B] '=' [.B] | .B ) 'A/UTOMATIC'
  179.       SET_FILE_MODE_BINARY(%SET_FILE_MODE_BINARY##) = ;
  180.         'M/ODE' ( [.B] '=' [.B] | .B ) 'B/INARY'
  181.       SET_FILE_MODE_TEXT(%SET_FILE_MODE_TEXT##) = ;
  182.         'M/ODE' ( [.B] '=' [.B] | .B ) 'T/EXT'
  183.       SET_FILE_NAMES_ASIS(%SET_FILE_NAMES_ASIS##) = ;
  184.         'N/AMES' ( [.B] '=' [.B] | .B ) 'A/S' ['IS']
  185.       SET_FILE_NAMES_LC(%SET_FILE_NAMES_LC##) = ;
  186.         'N/AMES' ( [.B] '=' [.B] | .B ) 'L/OWER' ['C/ASE']
  187.       SET_FILE_NAMES_UC(%SET_FILE_NAMES_UC##) = ;
  188.         'N/AMES' ( [.B] '=' [.B] | .B ) 'U/PPER' ['C/ASE']
  189.       SET_FILE_PC_EXTENSIONS_YES(%SET_FILE_PC_EXTENSIONS_YES##) = ;
  190.         ['PC'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' )
  191.       SET_FILE_PC_EXTENSIONS_NO(%SET_FILE_PC_EXTENSIONS_NO##) = ;
  192.         ['PC'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) ( 'N/O' | 'OFF' )
  193.       SET_FILE_PREFIX(%SET_FILE_PREFIX##) = ;
  194.         'PR/EFIX' ( [.B] '=' [.B] | .B ) .Q19
  195.       SET_FILE_REPLACEMENT(%SET_FILE_REPLACEMENT##) = ;
  196.         'R/EPLACEMENT' ['C/HARACTER'] ( [.B] '=' [.B] | .B ) .Q1
  197.       SET_FILE_SUBDIRECTORY_CHAR(%SET_FILE_SUBDIRECTORY_CHAR##) = ;
  198.         'SUB' ['D/IRECTORY'] ['C/HARACTER'] ( [.B] '=' [.B] | .B ) .Q1
  199.       SET_FILE_SUBDIRECTORY_OFF(%SET_FILE_SUBDIRECTORY_OFF##) = ;
  200.         'SUB' ['D/IRECTORY'] ( [.B] '=' [.B] | .B ) ( 'N/O' | 'OFF' )
  201.       SET_FILE_SUBDIRECTORY_ON(%SET_FILE_SUBDIRECTORY_ON##) = ;
  202.         'SUB' ['D/IRECTORY'] ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' )
  203.       SET_FILE_WARNING_ON(%SET_FILE_WARNING_ON##) = ;
  204.         'W/ARNING' ( [.B] '=' [.B] | .B ) ( 'ON' | 'TO' )
  205.       SET_FILE_WARNING_INTO(%SET_FILE_WARNING_INTO##) = ;
  206.         'W/ARNING' ( [.B] '=' [.B] | .B ) 'INTO'
  207.       SET_FILE_WARNING_OFF(%SET_FILE_WARNING_OFF##) = ;
  208.         'W/ARNING' ( [.B] '=' [.B] | .B ) ( 'OFF' | 'OVER' )
  209.  
  210.     SET_SEND(%SET_SEND##) = 'SEN/D' .B ;
  211.               <',',(                        ;
  212.                      SEND_EIGHT_BIT_QUOTE | ;
  213.                      SEND_END_OF_LINE     | ;
  214.                      SEND_PACKET_LENGTH   | ;
  215.                      SEND_PAUSE           | ;
  216.                      SEND_PADDING         | ;
  217.                      SEND_PADCHAR         | ;
  218.                      SEND_QUOTE           | ;
  219.                      SEND_REPT            | ;
  220.                      SEND_START_OF_PACKET | ;
  221.                      SEND_TIMEOUT           ;
  222.                    )>
  223.       SEND_EIGHT_BIT_QUOTE(%SEND_EIGHT_BIT_QUOTE##) = ;
  224.           'EI/GHT' ['B/IT'] ['Q/UOTING'] ['C/HARACTER'] ;
  225.             ( [.B] '=' [.B] | .B ) ( .AN1 | .Q1 )
  226.       SEND_END_OF_LINE(%SEND_END_OF_LINE##) = ;
  227.           'E/ND' ['-'] ['O/F'] ['-'] ['L/INE'] ( [.B] '=' [.B] | .B ) .DEC3
  228.       SEND_PACKET_LENGTH(%SEND_PACKET_LENGTH##) = ;
  229.           ( 'M/AXIMUM' | 'PACK/ET' ) ['L/ENGTH'] ( [.B] '=' [.B] | .B ) .DEC2
  230.       SEND_PAUSE(%SEND_PAUSE##)     = ;
  231.           'PAU/SE' ( '=' | .B ) .DEC
  232.       SEND_PADDING(%SEND_PADDING##) = ;
  233.           ( 'NPAD/DING' | 'PADD/ING' ) ( '=' | .B ) .DEC
  234.       SEND_PADCHAR(%SEND_PADCHAR##) = ;
  235.           'PADC/HAR' ( [.B] '=' [.B] | .B ) .DEC3
  236.       SEND_QUOTE(%SEND_QUOTE##)     = ;
  237.           'Q/UOTE' ['CTL'] ( [.B] '=' [.B] | .B ) .Q1
  238.       SEND_REPT(%SEND_REPT## )      = ;
  239.           'R/EP' ['E/A'] ['T'] ['C/HARACTER'] ( [.B] '=' [.B] | .B ) ( .AN1 | .Q1 )
  240.       SEND_START_OF_PACKET(%SEND_START_OF_PACKET##) = ;
  241.           'S/TART' ['-'] ['O/F'] ['-'] ['P/ACKET'] ( [.B] '=' [.B] | .B ) .DEC3
  242.       SEND_TIMEOUT(%SEND_TIMEOUT##) = ;
  243.           'T/IMEOUT' ( '=' | .B ) .DEC
  244.  
  245.     SET_TAB_EXPANSION(%SET_TAB_EXPANSION##) = 'TAB' 'EX/PANSION' ( [.B] '=' [.B] | .B );
  246.                                               ( ;
  247.                                                 SET_TAB_EXPANSION_OFF | ;
  248.                                                 SET_TAB_EXPANSION_ON    ;
  249.                                               )
  250.       SET_TAB_EXPANSION_OFF(%SET_TAB_EXPANSION_OFF##) = ( 'OFF' | 'NO' )
  251.       SET_TAB_EXPANSION_ON(%SET_TAB_EXPANSION_ON##)  = ( 'ON' | 'YES' )
  252.  
  253.     SET_TABS(%SET_TABS##)              = 'TABS' [<',',.DEC3>]
  254.  
  255.     SET_RETRY(%SET_RETRY##) = 'R/ETRY' ['C/OUNT'] ['F/OR'] ;
  256.                     (                 ;
  257.                       RETRY_INITIAL | ;
  258.                       RETRY_PACKETS   ;
  259.                     )
  260.       RETRY_INITIAL(%RETRY_INITIAL##) = 'I/NITIAL' ['P/ACKETS'] .DEC
  261.       RETRY_PACKETS(%RETRY_PACKETS##) = 'P/ACKETS' .DEC
  262.  
  263.     HOW = ( ON | OVER | INTO )
  264.       ON(%ON##)              = 'ON'
  265.       OVER(%OVER##)          = 'OVER'
  266.       INTO(%INTO##)          = 'INTO'
  267.  
  268.     SEPARATOR = ( [.B] '=' [.B] | .B )
  269.