home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ibm370 / ik0def.asm < prev    next >
Assembly Source File  |  2020-01-01  |  35KB  |  436 lines
  1. *COPY                                                 IK0DEF            01400000
  2. * Global variable declarations for open code                   @SC92178 01400200
  3.          GBLC  &KVRSN,&KSYS,&KDATE,&RTN,&TYPCMD,&S1CMD,&KCONT  @SC88309 01400400
  4.          GBLC  &KEDIT,&STORDS,&KTAG,&AEACMD,&KNJDEF,&KNJLAB    @SC91325 01400600
  5.          GBLC  &KTRACE,&CMSSFS,&CONOPTS,&S1CMD1                @SC92076 01400800
  6.          GBLA  &MAXLR,&MAXBS                                   @SC86268 01401000
  7. * Global symbols for language blocks                           @SC92300 01401200
  8.          GBLA  &FMTOPT,&LOPRNUM,&LOPRMUS,&MSGFILL              @SC92300 01401400
  9.          GBLC  &AAAAAAS,&AAAAAEA,&AAAAAIO,&AAAAAIS,&AAAAALL    @SC92300 01401600
  10.          GBLC  &AAAAAOK,&AAAAAON,&AAAABIN,&AAAABYE,&AAAADIR    @SC92300 01401800
  11.          GBLC  &AAAAEN,&AAAAEND,&AAAAEOF,&AAAAEOL,&AAAAFIN     @SC92300 01402000
  12.          GBLC  &AAAAGET,&AAAAOFF,&AAAARAW,&AAAASET,&AAAATOE    @SC92300 01402200
  13.          GBLC  &AAAATTY,&AAAAVOL,&AAABAUD,&AAACOPY,&AAADBIN    @SC92300 01402400
  14.          GBLC  &AAAECHO,&AAAETOA,&AAAEXIT,&AAAFILE,&AAAFOLD    @SC92300 01402600
  15.          GBLC  &AAAGIVE,&AAAHALT,&AAAHELP,&AAAHINT,&AAAHOST    @SC92300 01402800
  16.          GBLC  &AAAKEEP,&AAALEFT,&AAALINE,&AAALONG,&AAAMAIL    @SC92300 01403000
  17.          GBLC  &AAAMARK,&AAANONE,&AAAQUIT,&AAASAVE,&AAASEND    @SC92300 01403200
  18.          GBLC  &AAASERV,&AAASHOW,&AAATAKE,&AAATEST,&AAATEXT    @SC92300 01403400
  19.          GBLC  &AAATIME,&AAATYPE,&AAAUNIT,&AAAVBIN,&AABLKSI    @SC92300 01403600
  20.          GBLC  &AADEBUG,&AADELAY,&AADELIM,&AAERASE,&AAGREEK    @SC92300 01403800
  21.          GBLC  &AALOCAL,&AALRECL,&AANAMES,&AAPPEND,&AAPRINT    @SC92300 01404000
  22.          GBLC  &AAQUOTE,&AARECFM,&AARETRY,&AARIGHT,&AASPACE    @SC92300 01404200
  23.          GBLC  &AASPEED,&AATATOE,&AATDUMP,&AATETOA,&AATRACE    @SC92300 01404400
  24.          GBLC  &AAXECHO,&AAXTYPE,&ABACKUP,&AFORCED,&AMARGIN    @SC92300 01404600
  25.          GBLC  &ANYCICS,&APARITY,&APREFIX,&APROMPT,&ARENAME    @SC92300 01404800
  26.          GBLC  &ASCQUOT,&ASTATUS,&ASUBMIT,&ASUFFIX,&ASYSCMD    @SC92300 01405000
  27.          GBLC  &ATTACC,&ATTACCT,&ATTACS,&ATTACSS,&ATTARE       @SC92300 01405200
  28.          GBLC  &ATTAREA,&ATTBLE,&ATTBLEN,&ATTBLK,&ATTBLKS      @SC92300 01405400
  29.          GBLC  &ATTCRE,&ATTCRET,&ATTDAT,&ATTDATE,&ATTDIS       @SC92300 01405600
  30.          GBLC  &ATTDISP,&ATTENC,&ATTENCD,&ATTFRM,&ATTFRMT      @SC92300 01405800
  31.          GBLC  &ATTLEN,&ATTLENG,&ATTORI,&ATTORIG,&ATTPAS       @SC92300 01406000
  32.          GBLC  &ATTPASS,&ATTPRO,&ATTPROT,&ATTRIBU,&ATTSIN      @SC92300 01406200
  33.          GBLC  &ATTSINF,&ATTTYP,&ATTTYPE,&ATTUNK,&AZDISAB      @SC92300 01406400
  34.          GBLC  &A8THBQU,&BACKDUP,&BADCHEK,&BADCOMM             @SC92300 01406600
  35.          GBLC  &BADDELF,&BADDELM,&BADDISP,&BADFSPC             @SC92300 01406800
  36.          GBLC  &BADNAME,&BADOPTN,&BADOPTS,&BADOUTF             @SC92300 01407000
  37.          GBLC  &BADPSYN,&BADPTYP,&BADRNGE,&BADSBCM             @SC92300 01407200
  38.          GBLC  &BADSCMD,&BADSERV,&BADTABS,&BLKCHCK             @SC92300 01407400
  39.          GBLC  &BLNKFRE,&BYTPSEC,&BYTSALW,&BYTSUSD,&CANNOT     @SC92300 01407600
  40.          GBLC  &CHARSET,&COLDISC,&COLLIS,&COLLISN,&CONTINU     @SC92300 01407800
  41.          GBLC  &CONTRLR,&CPCMND,&CWDERRM,&CWDPRVS,&CTRLCHR     @SC92300 01408000
  42.          GBLC  &CYRILLC,&CZECH,&DCBSPAC,&DEBGERR,&DEFAULT      @SC92300 01408200
  43.          GBLC  &DELIMSG,&DIRHDNG,&DISCARD,&DSCARDD,&DSKFULL    @SC92300 01408400
  44.          GBLC  &DSKIOER,&DWRDSTK,&ENDOFLI,&ENDOFPA,&ENDSRV     @SC92300 01408600
  45.          GBLC  &ENTHINT,&ERRACTI,&ERRTAKE,&EXTRAOP,&FILCLSN    @SC92300 01408800
  46.          GBLC  &FILCOPY,&FILDELT,&FILRENM,&FILTYPE,&FINISHD    @SC92300 01409000
  47.          GBLC  &FIXED,&FMTFSPC,&FOREIGN,&FORFSPC,&FSENLST      @SC92300 01409200
  48.          GBLC  &FSPCPRM,&FULLSCR,&GOTNAK,&GRAPHIC,&HANDSHK     @SC92300 01409400
  49.          GBLC  &HANDXON,&HEBREW,&INCOMPL,&INITIAL,&INVALID     @SC92300 01409600
  50.          GBLC  &JAPNEUC,&KBYTFRE,&KCMDERR,&LASTFIL,&LOCKSHF    @SC92300 01409800
  51.          GBLC  &LONGLIN,&LOSTPAK,&MANYFIL,&MANYOPT,&MANYTAB    @SC92300 01410000
  52.          GBLC  &MAXNEST,&MICROAB,&MIGRATD,&MISSING,&MISSOPR    @SC92300 01410200
  53.          GBLC  &MISSOPS,&MRCTRNC,&MSGFILE,&NOBUFFS,&NOCPCMD    @SC92300 01410400
  54.          GBLC  &NODIRDF,&NOERROR,&NOFSENT,&NOFSPEC,&NOHELPF    @SC92300 01410600
  55.          GBLC  &NONXAMS,&NOOPERS,&NOPACKS,&NOSTART,&NOTCPER    @SC92300 01410800
  56.          GBLC  &NOTFOUN,&NOTRANS,&NOWRITE,&NO8THBQ,&ONEFOLL    @SC92300 01411000
  57.          GBLC  &ONLY130,&ONOFFCH,&OPRMUB,&OPRMUL,&OPTSIZE      @SC92300 01411200
  58.          GBLC  &OTHERL6,&OVERWRI,&PACKETS,&PACKLEN,&PACKSIZ    @SC92300 01411400
  59.          GBLC  &PADCHAR,&PADDING,&PKTABBR,&PLSESCP,&PRESERV    @SC92300 01411600
  60.          GBLC  &PREFIXD,&QQWRITE,&READYR,&READYS,&READYSR      @SC92300 01411800
  61.          GBLC  &RECEIVE,&RECFOLD,&RECTRNC,&RECVDAS,&REMOTE     @SC92300 01412000
  62.          GBLC  &REPTCNT,&REQUIRG,&SECABBR,&SENDING,&SENDPAK    @SC92300 01412200
  63.          GBLC  &SERIES1,&SIMSHRT,&SIMULAT,&SPACERR,&SRVTIME    @SC92300 01412400
  64.          GBLC  &STARTOP,&SYSCMND,&SYSFSPC,&TABSEXP,&TAKLOOP    @SC92300 01412600
  65.          GBLC  &TCANCEL,&TERMIOE,&TIMEOUT,&TOOSHRT,&TORECV     @SC92300 01412800
  66.          GBLC  &TOSEND,&TRANSFR,&TRANSPA,&TRUNCAT,&TTTABLE     @SC92300 01413000
  67.          GBLC  &UNDEFND,&UNDEFTR,&UNPREFD,&UNPRSOP,&VARIABL    @SC92300 01413200
  68.          GBLC  &VERSION,&VTAMERR,&VTAMTTY,&WARNING,&XTYPMSG    @SC92300 01413400
  69.          GBLC  &ZZBEWAR,&ZZBYTES,&ZZZZOR,&ZZSHORT              @SC92300 01413600
  70. *                                                                       01413800
  71.          TITLE 'Kermit-370 Control blocks and constants'       @SC92178 01414000
  72.          PRINT NOGEN                                           @SC92178 01414200
  73.          FDBD  ,                                               @SC86295 01414400
  74.          USING COMMON,10                                       @SC86316 01414600
  75. *                                                                       01414800
  76. &KTAG    SETC  ''                                              @SC90067 01415000
  77. &KVRSN   SETC  '4.3'                                           @SC93273 01415200
  78. &KDATE   SETC  '93/09/30'                                      @SC93273 01415400
  79. &KEDIT   SETC  '0'                                             @SC93273 01415600
  80. &KTRACE  SETC  'NO'     'YES' to enable tracing + debug        @LM91008 01415800
  81. &KNJDEF  SETC  'IBM'  or HITACHI or FUJITSU -- default Kanji   @SC91325 01416000
  82. &KNJLAB  SETC  '&KNJDEF'(1,1)                                  @SC91325 01416200
  83. *                                                                       01416400
  84.          SYSMACS ,           System-dependent macros           @SC90067 01416600
  85.          SSYMS ,                                               @SC86268 01416800
  86.          USING &STORDS,KWRKBASE                                @SC89268 01417000
  87. *                                                                       01417200
  88. ACTBUF   DSECT               Map for transaction log entry     @SC91172 01417400
  89. ACTFID   DS    CL(LFID)      Filespec                          @SC91172 01417600
  90. ACTSIZ   DS    XL4           Size in kbytes                    @SC91172 01417800
  91. ACTERR   DS    X             Error code, if any                @SC91172 01418000
  92. ACTREA   DS    X             Reason code, if any               @SC91172 01418200
  93. ACTBEG   DS    XL3           Starting time of day (GMT)        @SC91172 01418400
  94. ACTLEN   EQU   *-ACTFID                                        @SC91172 01418600
  95. * EBCDIC constants                                                      01418800
  96. SOH      EQU   X'01'                 ctl-A in Ascii/Ebcdic              01419000
  97. SO       EQU   X'0E'         SO or ctl-N in both. "shift"      @SC91275 01419200
  98. SI       EQU   X'0F'         SI or ctl-O in both. "unshift"    @SC91275 01419400
  99. DLE      EQU   X'10'         DLE in both                       @SC91275 01419600
  100. XON      EQU   X'11'                 xon in Ascii/Ebcdic                01419800
  101. XOFF     EQU   X'13'         XOFF in ASCII/EBCDIC              @SC90106 01420000
  102. NL       EQU   X'15'                                                    01420200
  103. CR       EQU   X'0D'                 CR in Ascci and Ebcdic             01420400
  104. LF       EQU   X'25'         EBCDIC only                       @SC90264 01420600
  105. * Ascii constants                                                       01420800
  106. *   1st, all letters and digits:                               @SC86262 01421000
  107.          ASCSYM ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789           @SC86262 01421200
  108. *   and a few others:                                                   01421400
  109. AHT      EQU   9             ASCII HT                          @SC89301 01421600
  110. ALF      EQU   10            ASCII LF                          @SC89301 01421800
  111. AFF      EQU   12            ASCII FF                          @SC91116 01422000
  112. ASUB     EQU   26            ASCII ctrl-Z (soft EOF)           @SC89301 01422200
  113. ABL      EQU   32            ASCII space                                01422400
  114. AEXCL    EQU   33            ASCII exclamation mark            @SC88273 01422600
  115. A#       EQU   35                    Ascii #                            01422800
  116. AAMP     EQU   38                    Ascii ampersand                    01423000
  117. APLUS    EQU   43            ASCII plus sign                   @SC90239 01423200
  118. ACOM     EQU   44            ASCII comma                       @SC89301 01423400
  119. ADOT     EQU   46            ASCII period                               01423600
  120. ASL      EQU   47            ASCII slash                       @SC89301 01423800
  121. A@       EQU   64            ASCII at sign                     @SC91109 01424000
  122. AUP      EQU   94            Ascii up-arrow (^)                @SC86165 01424200
  123. ADEL     EQU   127                   Ascii delete/rubout                01424400
  124. ATIL     EQU   126                   Ascii Tilde                        01424600
  125. * Flags for extracting filespec                                @SC86295 01424800
  126. FFRCF    EQU   X'40'         RECEIVE or foreign filespec       @SC86295 01425000
  127. FFSND    EQU   X'20'         SEND                              @SC86295 01425200
  128. FFGET    EQU   X'10'         GET                               @SC86295 01425400
  129. FFWLD    EQU   X'08'         Treat incomplete filespec as wild @SC86295 01425600
  130. FFNEW    EQU   X'02'         Get unique name (in place)        @SC86295 01425800
  131. FFUTL    EQU   FFSND+FFGET   Extract for file utility          @SC86295 01426000
  132. FFHDR    EQU   FFUTL+FFRCF   Decode Kermit file header         @SC86295 01426200
  133. FFENC    EQU   FFNEW+FFRCF   Encode Kermit file header         @SC86295 01426400
  134. FFDSP    EQU   FFNEW+FFSND   Copy name in standard print form  @SC86295 01426600
  135. FFGIV    EQU   FFWLD         Like TAKE, but use for output     @SC87117 01426800
  136. * Offsets for fields in KW table.                              @SC90239 01427000
  137.          KW    DEFINE                                          @SC91320 01427200
  138. * Miscellaneous constants                                               01427400
  139. KMIN     EQU   20                    Kermit protocol minimum pkt size   01427600
  140. KMAX     EQU   94                    Kermit protocol maximum pkt size   01427800
  141. KMAXF    EQU   KMAX+1        Kermit xtended pkt base           @TB86196 01428000
  142. KDEF     EQU   80                    Kermit protocol default pkt size   01428200
  143. LPKT     EQU   KMAXE+KMAX+1  Packet buffer size (with pad)     @SC90277 01428400
  144. RPTMIN   EQU   3             Normal minimum repeat count       @SC92052 01428600
  145. MAXNSENT EQU   512           Size of 'sent' table          8*N @SC90264 01428800
  146. MSNDMAX  EQU   12            Max extra files to send       2*N @SC90264 01429000
  147. TAKMAX   EQU   10                    Max TAKE nesting level             01429200
  148. FORMAXL  EQU   31            Maximum file prefix/suffix size   @HF86223 01429400
  149. TUNECT   EQU   15            Count for retuning long packets   @SC88349 01429600
  150. * 3270 orders:                                                          01429800
  151. SBA      EQU   X'11'                 Set Buffer Address (3270)          01430000
  152. ICR      EQU   X'12'         Insert cursor                     @SC88168 01430200
  153. RTA      EQU   X'3C'         Repeat To Address (3270)          @SC88139 01430400
  154. ** BEGIN LANGUAGE-SPECIFIC DATA **                             @SC92300 01430600
  155. &FSPCPRM SETC '[<first-last[_CC]>]'  Goes with FMTFSPC         @SC92300 01430800
  156. &FMTOPT  SETA  K'&FSPCPRM    Length of "[first-last...]"       @SC92300 01431000
  157. &OPRMUB  SETC 'Operand must be '                               @SC86295 01431200
  158. &OPRMUL  SETC 'of length '                                     @SC86295 01431400
  159. &LOPRNUM SETA  K'&OPRMUB           Length through "be "        @SC92300 01431600
  160. &LOPRMUS SETA  K'&OPRMUL+&LOPRNUM  Total length                @SC92300 01431800
  161. &AAAHINT SETC 'HINTS'        (needed by Enter hints),cmd, m=2  @SC92300 01432000
  162. &INVALID SETC 'Invalid'      Must be same length as "missing"  @SC92300 01432200
  163. &MISSING SETC 'Missing'      Must be same length as "invalid"  @SC92300 01432400
  164. * Numbered status messages (for E-packets)                     @SC92300 01432600
  165. &NOERROR SETC 'No errors'                        Err #00       @SC86156 01432800
  166. &NOTRANS SETC 'No file transfers yet'            Err #01       @SC86156 01433000
  167. &TCANCEL SETC 'Transfer cancelled'               Err #02       @SC86156 01433200
  168. &BADSERV SETC 'Invalid server command'           Err #03       @SC86156 01433400
  169. &TERMIOE SETC 'Terminal I/O error'               Err #04       @SC86156 01433600
  170. &BADCHEK SETC 'Bad packet count or chksum'       Err #05       @SC86156 01433800
  171. &BADPSYN SETC 'Invalid packet syntax'            Err #06       @SC86158 01434000
  172. &BADPTYP SETC 'Invalid packet type'              Err #07       @SC86156 01434200
  173. &LOSTPAK SETC 'Lost a packet'                    Err #08       @SC86156 01434400
  174. &GOTNAK  SETC 'Micro sent a NAK'                 Err #09       @SC86156 01434600
  175. &MICROAB SETC 'Micro aborted'                    Err #10       @SC86156 01434800
  176. &BADNAME SETC 'Invalid file name'                Err #11       @SC86156 01435000
  177. &NOTFOUN SETC 'File not found'                   Err #12       @SC92300 01435200
  178. &DSKFULL SETC 'Disk or file is full'             Err #13       @SC86345 01435400
  179. &DSKIOER SETC 'Disk I/O error'                   Err #14       @SC86345 01435600
  180. &MISSOPR SETC 'Missing operand'                  Err #15       @SC86158 01435800
  181. &BADSCMD SETC 'Illegal system command'           Err #16       @SC86268 01436000
  182. &KCMDERR SETC 'Kermit command error'             Err #17       @SC86171 01436200
  183. &NOPACKS SETC 'No packet received'               Err #18       @SC86355 01436400
  184. &RECTRNC SETC 'Records truncated'                Err #19       @SC87268 01436600
  185. &BADCOMM SETC 'Bad communication line'           Err #20       @SC87300 01436800
  186. &NO8THBQ SETC '8th-bit quote not set'            Err #21       @SC89072 01437000
  187. &TOOSHRT SETC 'File too short'                   Err #22       @SC89218 01437200
  188. &NOSTART SETC 'Missing start-of-packet'          Err #23       @SC89219 01437400
  189. &BADOPTN SETC 'Option error on filespec'         Err #24       @SC89249 01437600
  190. &BADDISP SETC 'Unable to dispose of file'        Err #25       @SC90037 01437800
  191. * Messages and phrases                                         @SC92300 01438000
  192. &AAAAAAS SETC '  as '        (gives filespec actually sent)    @SC87300 01438200
  193. &AAAAAIS SETC ' is '         (used for SHOW display)           @SC87034 01438400
  194. &ASCQUOT SETC 'One char with ASCII value 33-62 or 96-126'      @SC86224 01438600
  195. &AZDISAB SETC 'not enabled'        i.e., error: should be ON   @SC90239 01438800
  196. &BACKDUP SETC '--original backed up as '  (used for file coll.)@SC90211 01439000
  197. &BADDELF SETC 'Option error: Invalid final delimiter'          @SC89249 01439200
  198. &BADDELM SETC 'Option error: Invalid delimiter'                @SC89249 01439400
  199. &BADOPTS SETC 'Option error: Unknown file option(s)'           @SC89249 01439600
  200. &BADRNGE SETC 'Option error: Invalid line range'               @SC89249 01439800
  201. &BADSBCM SETC 'Not a valid subcommand'                         @SC86355 01440000
  202. &BADTABS SETC 'Tabs out of sequence'                           @TS86100 01440200
  203. &BYTPSEC SETC 'Disk bytes/sec: '  (see SECABBR)                @SC86295 01440400
  204. &CANNOT  SETC 'Cannot '           (used with MAIL, PRINT, SUB) @SC90239 01440600
  205. &COLDISC SETC 'File already exists, RECEIVE discarded'         @SC90061 01440800
  206. &DEBGERR SETC 'DEBUG error'                                    @SC87012 01441000
  207. &DELIMSG SETC 'Line delimiter: one char or none'               @SC88095 01441200
  208. &DSCARDD SETC '--discarded as duplicate'  (for file collision) @SC90033 01441400
  209. &DWRDSTK SETC ' dwords of stack used.'                         @SC89089 01441600
  210. &ENDSRV  SETC 'To terminate the server use' ('BYE or FINISH')  @SC92300 01441800
  211. &ENTHINT SETC 'Enter &AAAHINT to get started'                  @SC91295 01442000
  212. &ERRTAKE SETC 'Error reading TAKE file'                        @SC86239 01442200
  213. &EXTRAOP SETC 'Extra operand'                                  @SC91312 01442400
  214. &FINISHD SETC '** finished **'                                 @SC91172 01442600
  215. &FORFSPC SETC 'Foreign filespec'                               @SC88035 01442800
  216. &FSENLST SETC ' file(s) sent last.'                            @SC86295 01443000
  217. &HANDXON SETC 'Handshake is XON -- not needed'                 @SC87338 01443200
  218. &LASTFIL SETC 'Last file used: '                               @BS86090 01443400
  219. &MANYFIL SETC 'Too many SEND files'                            @SC88306 01443600
  220. &MANYOPT SETC 'Too many options'                               @SC90239 01443800
  221. &MANYTAB SETC 'Too many tabs'                                  @SC86355 01444000
  222. &MAXNEST SETC 'Past maximum nesting level for TAKE command'    @SC92300 01444200
  223. &MISSOPS SETC 'Option error: Missing option(s)'                @SC89249 01444400
  224. &MRCTRNC SETC ' records truncated'                             @SC87268 01444600
  225. &MSGFILE SETC 'File '                                          @SC87300 01444800
  226. &MSGFILL SETA 5              Length of MSGFILE                 @SC92300 01445000
  227. &NOBUFFS SETC 'Unable to allocate buffers'                     @SC92300 01445200
  228. &NOFSENT SETC 'No files sent'                                  @SC86295 01445400
  229. &NOHELPF SETC 'No Help file available'                         @SC90264 01445600
  230. &NOOPERS SETC 'No (more) operands needed'                      @SC90179 01445800
  231. &NOWRITE SETC 'Unable to write file'                           @SC87117 01446000
  232. &ONEFOLL SETC 'One of the following:'                          @SC92300 01446200
  233. &ONLY130 SETC 'Only first 130 characters displayed!'           @PG88335 01446400
  234. &ONOFFCH SETC 'Must be ON, OFF, or a character'                @SC87008 01446600
  235. &OPTSIZE SETC 'Optimum packet size: '                          @SC88120 01446800
  236. &PKTABBR SETC 'pkt'          Must be 3 bytes                   @SC86295 01447000
  237. &PLSESCP SETC 'Please escape to local Kermit now'              @SC92300 01447200
  238. &READYR  SETC 'ready to receive.'                              @SC92300 01447400
  239. &READYS  SETC 'ready to send.'                                 @SC92300 01447600
  240. &READYSR SETC 'entering server mode.'                          @SC92300 01447800
  241. &RECFOLD SETC ' records folded'                                @SC88120 01448000
  242. &RECVDAS SETC '  Rcv as '                                      @SC87300 01448200
  243. &REPTCNT SETC ' repeat packets sent'                           @SC86316 01448400
  244. &REQUIRG SETC ' requiring '                                    @SC86295 01448600
  245. &SECABBR SETC 'sec'          Must be 3 bytes                   @SC86295 01448800
  246. &SENDING SETC 'Sending '                                       @SC87300 01449000
  247. &SENDPAK SETC 'Size<20 dangerous; >94 meaningless for SEND'    @SC90122 01449200
  248. *              Warning on packet size "limits"                 @SC92300 01449400
  249. &SIMSHRT SETC 'Input file not found or too short'              @SC91312 01449600
  250. &SYSCMND SETC 'Specify a &KSYS command to issue'               @SC86295 01449800
  251. &SYSFSPC SETC '&KSYS filespec'                                 @SC88035 01450000
  252. &TAKLOOP SETC 'TAKE file loop'                                 @SC86239 01450200
  253. &TORECV  SETC ' to RECEIVE the file(s).'                       @SC92300 01450400
  254. &TOSEND  SETC ' to SEND the file(s).'                          @SC92300 01450600
  255. &UNDEFTR SETC 'Undefined character translation'                @SC90040 01450800
  256. &UNPRSOP SETC 'Unprintable start-of-packet'                    @SC92030 01451000
  257. &VTAMERR SETC 'S/1 VTAM Error Recovery '                       @TB87009 01451200
  258. &XTYPMSG SETC 'Text string with ^X for cntl-X'                 @SC86165 01451400
  259. &ZZBEWAR SETC 'existing files beware' (for HINTS on COLLISION) @SC92300 01451600
  260. &ZZBYTES SETC 'Bytes'                                          @SC92300 01451800
  261. &ZZZZOR  SETC 'or'                                             @SC92300 01452000
  262. &ZZSHORT SETC 'short'          (for HINTS on BLOCK or PACKET)  @SC92300 01452200
  263. * Kermit subcommands and keywords (marked cmd or kwd, resp).   @SC92300 01452400
  264. * Keywords are cross-referenced to symbol(s) of higher keywords@SC92300 01452600
  265. * Minimum abbreviation is 1 character unless marked "m=length".@SC92300 01452800
  266. &AAAAAEA SETC 'AEA'             kwd->CONTRLR                   @SC91320 01453000
  267. &AAAAAIO SETC 'I/O'             kwd->AADEBUG                   @SC88168 01453200
  268. &AAAAALL SETC 'ALL'             kwd->AAASHOW, m=3              @SC88293 01453400
  269. &AAAAAON SETC 'ON'              kwd, m=2                       @SC87166 01453600
  270. &AAAABIN SETC 'BINARY'          kwd->ATTTYPE                   @SC91320 01453800
  271. &AAAABYE SETC 'BYE'             cmd, m=3                       @SC86155 01454000
  272. &AAAADIR SETC 'DIRECTORY'       cmd;kwd->REMOTE, m=3           @SC91320 01454200
  273. &AAAAEN  SETC 'End    '         kwd in mixed-case, fixed-length@SC92300 01454400
  274. &AAAAEND SETC 'END'             cmd=AAAQUIT;kwd->ATTRIBU, m=3  @SC88035 01454600
  275. &AAAAEOF SETC 'EOF'             kwd->AAAASET, m=3              @SC86133 01454800
  276. &AAAAEOL SETC 'EOL'             kwd->RECEIVE,AAASEND, m=3      @SC86133 01455000
  277. &AAAAFIN SETC 'FINISH'          cmd, m=3                       @SC86155 01455200
  278. &AAAAGET SETC 'GET'             cmd                            @SC86155 01455400
  279. &AAAAOFF SETC 'OFF'             kwd, m=2                       @SC87166 01455600
  280. &AAAARAW SETC 'RAW'             kwd->AADEBUG                   @SC88168 01455800
  281. &AAAASET SETC 'SET'             cmd, m=3                       @SC91320 01456000
  282. &AAAATOE SETC 'ATOE'            kwd->AAAASET,etc, m=4          @SC87166 01456200
  283. &AAAATTY SETC 'TTY'             kwd->CONTRLR                   @SC91320 01456400
  284. &AAABAUD SETC 'BAUD'            kwd->AAAASET, m=2              @SC90099 01456600
  285. &AAACOPY SETC 'COPY'            kwd->REMOTE, m=2               @SC91320 01456800
  286. &AAADBIN SETC 'D-BINARY'        kwd->ATTTYPE                   @SC91320 01457000
  287. &AAAECHO SETC 'ECHO'            cmd;kwd->AAATAKE, m=2-3        @SC92300 01457200
  288. &AAAETOA SETC 'ETOA'            kwd->AAAASET,etc, m=4          @SC87166 01457400
  289. &AAAEXIT SETC 'EXIT'            cmd, m=2                       @SC92300 01457600
  290. &AAAFILE SETC 'FILE'            kwd->AAAASET                   @SC86295 01457800
  291. &AAAFOLD SETC 'FOLD'            kwd->LONGLIN                   @SC91320 01458000
  292. &AAAGIVE SETC 'GIVE'            cmd, m=2                       @SC87117 01458200
  293. &AAAHALT SETC 'HALT'            kwd->ERRACTI,LONGLIN           @SC86171 01458400
  294. &AAAHELP SETC 'HELP'            cmd;kwd->REMOTE                @SC92300 01458600
  295. &AAAHOST SETC 'HOST'            cmd;kwd->REMOTE, m=2           @SC91320 01458800
  296. &AAAKEEP SETC 'KEEP'            kwd->INCOMPL                   @SC86225 01459000
  297. &AAALEFT SETC 'LEFT'            kwd->AMARGIN                   @SC87253 01459200
  298. &AAALINE SETC 'LINE'            kwd->AAAASET, m=3              @SC87166 01459400
  299. &AAALONG SETC 'LONG'            kwd->AADEBUG                   @SC90222 01459600
  300. &AAAMAIL SETC 'MAIL'            kwd->REMOTE                    @SC91320 01459800
  301. &AAAMARK SETC 'MARK'            kwd->APARITY                   @SC86316 01460000
  302. &AAANONE SETC 'NONE'            kwd->APARITY,CONTRLR           @SC91320 01460200
  303. &AAAQUIT SETC 'QUIT'            cmd                            @SC92300 01460400
  304. &AAASAVE SETC 'SAVE'            kwd->AADEBUG                   @SC88168 01460600
  305. &AAASEND SETC 'SEND'            cmd;kwd (see AAAASET), m=3     @SC92300 01460800
  306. &AAASERV SETC 'SERVER'          cmd, m=3                       @SC92300 01461000
  307. &AAASHOW SETC 'SHOW'            cmd, m=2                       @SC86295 01461200
  308. &AAATAKE SETC 'TAKE'            cmd;kwd->AAAASET, m=2-3        @SC86295 01461400
  309. &AAATEST SETC 'TEST'            kwd->AAAASET                   @SC87166 01461600
  310. &AAATEXT SETC 'TEXT'            kwd->ATTTYPE                   @SC91320 01461800
  311. &AAATIME SETC 'TIME'            kwd->AADEBUG                   @SC91172 01462000
  312. &AAATYPE SETC 'TYPE'            cmd; kwd->REMOTE     (=write)  @SC91320 01462200
  313. &AAAVBIN SETC 'V-BINARY'        kwd->ATTTYPE                   @SC91320 01462400
  314. &AADEBUG SETC 'DEBUG'           kwd->AAAASET                   @SC86133 01462600
  315. &AADELAY SETC 'DELAY'           kwd->AAAASET, m=3              @SC86164 01462800
  316. &AADELIM SETC 'DELIM'           kwd->AAAASET, m=4              @SC88095 01463000
  317. &AAERASE SETC 'ERASE'           kwd->REMOTE                    @SC91320 01463200
  318. &AAGREEK SETC 'GREEK'           kwd->CHARSET, m=2              @SC90152 01463400
  319. &AALOCAL SETC 'LOCAL'           cmd, m=3                       @SC86295 01463600
  320. &AALRECL SETC 'LRECL'           kwd->AAAFILE                   @SC87166 01463800
  321. &AANAMES SETC 'NAMES'           kwd->AATDUMP                   @SC86295 01464000
  322. &AAPPEND SETC 'APPEND'          kwd->COLLISN, m=3              @SC91320 01464200
  323. &AAPRINT SETC 'PRINT'           kwd->RETMOTE                   @SC91320 01464400
  324. &AAQUOTE SETC 'QUOTE'           kwd->RECEIVE,AAASEND           @SC86133 01464600
  325. &AARECFM SETC 'RECFM'           kwd->AAAFILE, m=4              @SC87012 01464800
  326. &AARETRY SETC 'RETRY'           kwd->AAAASET, m=3              @SC86345 01465000
  327. &AARIGHT SETC 'RIGHT'           kwd->AMARGIN                   @SC87253 01465200
  328. &AASPACE SETC 'SPACE'           cmd;kwd->REMOTE, m=2           @SC86295 01465400
  329. &AASPEED SETC 'SPEED'           kwd->AAAASET, m=2              @SC90099 01465600
  330. &AATATOE SETC 'TATOE'           kwd->AAAASET,etc, m=2-5        @SC87166 01465800
  331. &AATDUMP SETC 'TDUMP'           cmd, m=2                       @SC86295 01466000
  332. &AATETOA SETC 'TETOA'           kwd->AAAASET,etc, m=2-5        @SC87166 01466200
  333. &AATRACE SETC 'TRACE'           kwd->AATDUMP                   @SC90040 01466400
  334. &AAXECHO SETC 'XECHO'           cmd, m=2                       @SC86204 01466600
  335. &AAXTYPE SETC 'XTYPE'           cmd, m=2                       @SC86204 01466800
  336. &ABACKUP SETC 'BACKUP'          kwd->COLLISN                   @SC91320 01467000
  337. &AFORCED SETC 'FORCED'          kwd->LOCKSHF                   @SC91275 01467200
  338. &AMARGIN SETC 'MARGIN'          kwd->AAAASET                   @SC87253 01467400
  339. &APARITY SETC 'PARITY'          kwd->RECEIVE,AAASEND           @SC88288 01467600
  340. &APREFIX SETC 'PREFIX'          kwd->FOREIGN                   @HF86223 01467800
  341. &APROMPT SETC 'PROMPT'          kwd->AAAASET, m=2              @SC87268 01468000
  342. &ARENAME SETC 'RENAME'          kwd->COLLISN,REMOTE            @SC91320 01468200
  343. &ASTATUS SETC 'STATUS'          cmd, m=2                       @SC86295 01468400
  344. &ASUBMIT SETC 'SUBMIT'          kwd->REMOTE, m=2               @SC91320 01468600
  345. &ASUFFIX SETC 'SUFFIX'          kwd->FOREIGN                   @HF86223 01468800
  346. &ASYSCMD SETC 'SYSCMD'          kwd->AAAASET, m=2              @SC86295 01469000
  347. &ATTACC  SETC 'Account'         kwd in mixed-case, fixed-length@SC92300 01469200
  348. &ATTACCT SETC 'ACCOUNT'         kwd->ATTRIB, m=4               @SC90037 01469400
  349. &ATTACS  SETC 'Access '         kwd in mixed-case, fixed-length@SC92300 01469600
  350. &ATTACSS SETC 'ACCESS'          kwd->ATTRIBU, m=3              @SC90037 01469800
  351. &ATTARE  SETC 'Area   '         kwd in mixed-case, fixed-length@SC92300 01470000
  352. &ATTAREA SETC 'AREA'            kwd->ATTRIBU, m=2              @SC90037 01470200
  353. &ATTBLE  SETC 'Bytes  '         kwd in mixed-case, fixed-length@SC92300 01470400
  354. &ATTBLEN SETC 'BYTE-LENGTH'     kwd->ATTRIBU, m=2              @SC90037 01470600
  355. &ATTBLK  SETC 'Blksize'         kwd in mixed-case, fixed-length@SC92300 01470800
  356. &ATTBLKS SETC 'BLOCKSIZE'       kwd->ATTRIBU                   @SC90037 01471000
  357. &ATTCRE  SETC 'Creator'         kwd in mixed-case, fixed-length@SC92300 01471200
  358. &ATTCRET SETC 'CREATOR'         kwd->ATTRIBU, m=2              @SC90037 01471400
  359. &ATTDAT  SETC 'Date   '         kwd in mixed-case, fixed-length@SC92300 01471600
  360. &ATTDATE SETC 'DATE'            kwd->ATTRIBU, m=2              @SC90037 01471800
  361. &ATTDIS  SETC 'Disp   '         kwd in mixed-case, fixed-length@SC92300 01472000
  362. &ATTDISP SETC 'DISPOSITION'     kwd->ATTRIBU, m=2              @SC90037 01472200
  363. &ATTENC  SETC 'Encodng'         kwd in mixed-case, fixed-length@SC92300 01472400
  364. &ATTENCD SETC 'ENCODING'        kwd->ATTRIBU                   @SC90037 01472600
  365. &ATTFRM  SETC 'Format '         kwd in mixed-case, fixed-length@SC92300 01472800
  366. &ATTFRMT SETC 'FORMAT'          kwd->ATTRIBU                   @SC90037 01473000
  367. &ATTLEN  SETC 'Length '         kwd in mixed-case, fixed-length@SC92300 01473200
  368. &ATTLENG SETC 'LENGTH'          kwd->ATTRIBU                   @SC90037 01473400
  369. &ATTORI  SETC 'Origin '         kwd in mixed-case, fixed-length@SC92300 01473600
  370. &ATTORIG SETC 'ORIGIN'          kwd->ATTRIBU                   @SC90037 01473800
  371. &ATTPAS  SETC 'Passwrd'         kwd in mixed-case, fixed-length@SC92300 01474000
  372. &ATTPASS SETC 'PASSWORD'        kwd->ATTRIBU, m=2              @SC90037 01474200
  373. &ATTPRO  SETC 'Protect'         kwd in mixed-case, fixed-length@SC92300 01474400
  374. &ATTPROT SETC 'PROTECT'         kwd->ATTRIBU, m=2              @SC90037 01474600
  375. &ATTRIBU SETC 'ATTRIBUTES'      kwd->AAAASET, m=3              @SC90037 01474800
  376. &ATTSIN  SETC 'Sysinfo'         kwd in mixed-case, fixed-length@SC92300 01475000
  377. &ATTSINF SETC 'SYS-INFO'        kwd->ATTRIBU, m=2              @SC90037 01475200
  378. &ATTTYP  SETC 'Type   '         kwd in mixed-case, fixed-length@SC92300 01475400
  379. &ATTTYPE SETC 'TYPE'            kwd->ATTRIBU,AAAFILE (=variety)@SC90037 01475600
  380. &ATTUNK  SETC 'Unknown'         kwd in mixed-case, fixed-length@SC92300 01475800
  381. &A8THBQU SETC '8-BIT-QUOTE'     kwd->AAAASET                   @SC87008 01476000
  382. &BLKCHCK SETC 'BLOCK-CHECK'     kwd->AAAASET                   @SC86133 01476200
  383. &BLNKFRE SETC 'BLANK-FREE-2'    kwd->BLKCHCK                   @SC92085 01476400
  384. &CHARSET SETC 'CHARACTER-SET'   kwd->AAAFILE,TRANSFR, m=2      @SC90040 01476600
  385. &COLLIS  SETC 'Collisn'         kwd in mixed-case, fixed-length@SC92300 01476800
  386. &COLLISN SETC 'COLLISION'       kwd->AAAFILE, m=2              @SC90033 01477000
  387. &CONTINU SETC 'CONTINUE'        kwd->ERRACTI                   @SC86171 01477200
  388. &CONTRLR SETC 'CONTROLLER'      kwd->AAAASET, m=3              @SC87268 01477400
  389. &CTRLCHR SETC 'CONTROL-CHARACTER' kwd->AAAASET,AATDUMP, m=8    @SC87268 01477600
  390. &CYRILLC SETC 'CYRILLIC'        kwd->CHARSET, m=3              @SC90152 01477800
  391. &CZECH   SETC 'CZECH'           kwd->CHARSET, m=2              @SC90152 01478000
  392. &DEFAULT SETC 'DEFAULT'         kwd->OVERWRI                   @SC90033 01478200
  393. &DISCARD SETC 'DISCARD'         kwd->INCOMPL,COLLISN           @SC86225 01478400
  394. &ENDOFLI SETC 'END-OF-LINE'     kwd->RECEIVE,AAASEND           @SC86133 01478600
  395. &ENDOFPA SETC 'END-OF-PACKET'   kwd->RECEIVE,AAASEND           @SC86133 01478800
  396. &ERRACTI SETC 'ERROR-ACTION'    kwd->AAATAKE, m=3              @SC86171 01479000
  397. &FILTYPE SETC 'FILE-TYPE'       kwd->AAAASET (obsolete), m=5   @SC87166 01479200
  398. &FIXED   SETC 'FIXED'           kwd->AARECFM                   @SC87012 01479400
  399. &FOREIGN SETC 'FOREIGN'         kwd->AAAASET, m=3              @HF86223 01479600
  400. &FULLSCR SETC 'FULLSCREEN'      kwd->CONTRLR                   @SC92030 01479800
  401. &GRAPHIC SETC 'GRAPHICS'        kwd->CONTRLR                   @SC91320 01480000
  402. &HANDSHK SETC 'HANDSHAKE'       kwd->AAAASET                   @SC87274 01480200
  403. &HEBREW  SETC 'HEBREW'          kwd->CHARSET, m=2              @SC90152 01480400
  404. &INCOMPL SETC 'INCOMPLETE'      kwd->AAAASET, m=3              @SC86225 01480600
  405. &INITIAL SETC 'INITIAL'         kwd->AARETRY                   @SC86345 01480800
  406. &JAPNEUC SETC 'JAPAN-EUC'       kwd->CHARSET, m=3              @SC91325 01481000
  407. &LOCKSHF SETC 'LOCKING-SHIFT'   kwd->TRANSFR                   @SC91275 01481200
  408. &LONGLIN SETC 'LONGLINE'        kwd->AAAFILE, m=2              @SC88120 01481400
  409. &OVERWRI SETC 'OVERWRITE'       kwd->COLLISN,AAAFILE           @SC91320 01481600
  410. &PACKETS SETC 'PACKETS'         kwd->AARETRY                   @SC86345 01481800
  411. &PACKLEN SETC 'PACKET-LENGTH'   kwd->RECEIVE,AAASEND           @SC90150 01482000
  412. &PACKSIZ SETC 'PACKET-SIZE'     kwd->RECEIVE,AAASEND           @SC86133 01482200
  413. &PADCHAR SETC 'PAD-CHAR'        kwd->RECEIVE,AAASEND, m=5      @SC86164 01482400
  414. &PADDING SETC 'PADDING'         kwd->RECEIVE,AAASEND, m=3      @SC86164 01482600
  415. &PREFIXD SETC 'PREFIXED'        kwd->CTRLCHR                   @SC92300 01482800
  416. &PRESERV SETC 'PRESERVE'        kwd->OVERWRI                   @SC90033 01483000
  417. &RECEIVE SETC 'RECEIVE'         cmd;kwd->AAAASET, m=3          @SC92300 01483200
  418. &REMOTE  SETC 'REMOTE'          cmd, m=3                       @SC86155 01483400
  419. &SERIES1 SETC 'SERIES1'         kwd->CONTRLR                   @SC91320 01483600
  420. &SIMULAT SETC 'SIMULATE'        cmd, m=2                       @SC91312 01483800
  421. &SRVTIME SETC 'SERVER-TIMEOUT'  kwd->AAAASET, m=3              @SC90045 01484000
  422. &STARTOP SETC 'START-OF-PACKET' kwd->RECEIVE,AAASEND           @SC86133 01484200
  423. &TABSEXP SETC 'TABS-EXPAND'     kwd->AAAASET                   @SC86133 01484400
  424. &TIMEOUT SETC 'TIMEOUT'         kwd->RECEIVE,AAASEND           @SC86164 01484600
  425. &TRANSFR SETC 'TRANSFER'        kwd->AAAASET, m=2              @SC90040 01484800
  426. &TRANSPA SETC 'TRANSPARENT'     kwd->CHARSET, m=2              @SC90250 01485000
  427. &TRUNCAT SETC 'TRUNCATE'        kwd->LONGLIN                   @SC91320 01485200
  428. &TTTABLE SETC 'TTABLE'          kwd->AAAASET, m=2              @SC87117 01485400
  429. &UNDEFND SETC 'UNDEFINED'       kwd->AARECFM                   @SC86295 01485600
  430. &UNPREFD SETC 'UNPREFIXED'      kwd->CTRLCHR                   @SC92300 01485800
  431. &VARIABL SETC 'VARIABLE'        kwd->AARECFM                   @SC87012 01486000
  432. &VERSION SETC 'VERSION'         cmd, m=2                       @SC90339 01486200
  433. &VTAMTTY SETC 'VTAMTTY'         kwd->CONTRLR                   @SC91320 01486400
  434. &WARNING SETC 'WARNING'         kwd->AAAASET (obsolete)        @SC90033 01486600
  435. ** END LANGUAGE-SPECIFIC DATA **                               @SC92300 01486800
  436.