*COPY                                                 IK0DEF            01400000
* Global variable declarations for open code                   @SC92178 01400200
         GBLC  &KVRSN,&KSYS,&KDATE,&RTN,&TYPCMD,&S1CMD,&KCONT  @SC88309 01400400
         GBLC  &KEDIT,&STORDS,&KTAG,&AEACMD,&KNJDEF,&KNJLAB    @SC91325 01400600
         GBLC  &KTRACE,&CMSSFS,&CONOPTS,&S1CMD1                @SC92076 01400800
         GBLA  &MAXLR,&MAXBS                                   @SC86268 01401000
* Global symbols for language blocks                           @SC92300 01401200
         GBLA  &FMTOPT,&LOPRNUM,&LOPRMUS,&MSGFILL              @SC92300 01401400
         GBLC  &AAAAAAS,&AAAAAEA,&AAAAAIO,&AAAAAIS,&AAAAALL    @SC92300 01401600
         GBLC  &AAAAAOK,&AAAAAON,&AAAABIN,&AAAABYE,&AAAADIR    @SC92300 01401800
         GBLC  &AAAAEN,&AAAAEND,&AAAAEOF,&AAAAEOL,&AAAAFIN     @SC92300 01402000
         GBLC  &AAAAGET,&AAAAOFF,&AAAARAW,&AAAASET,&AAAATOE    @SC92300 01402200
         GBLC  &AAAATTY,&AAAAVOL,&AAABAUD,&AAACOPY,&AAADBIN    @SC92300 01402400
         GBLC  &AAAECHO,&AAAETOA,&AAAEXIT,&AAAFILE,&AAAFOLD    @SC92300 01402600
         GBLC  &AAAGIVE,&AAAHALT,&AAAHELP,&AAAHINT,&AAAHOST    @SC92300 01402800
         GBLC  &AAAKEEP,&AAALEFT,&AAALINE,&AAALONG,&AAAMAIL    @SC92300 01403000
         GBLC  &AAAMARK,&AAANONE,&AAAQUIT,&AAASAVE,&AAASEND    @SC92300 01403200
         GBLC  &AAASERV,&AAASHOW,&AAATAKE,&AAATEST,&AAATEXT    @SC92300 01403400
         GBLC  &AAATIME,&AAATYPE,&AAAUNIT,&AAAVBIN,&AABLKSI    @SC92300 01403600
         GBLC  &AADEBUG,&AADELAY,&AADELIM,&AAERASE,&AAGREEK    @SC92300 01403800
         GBLC  &AALOCAL,&AALRECL,&AANAMES,&AAPPEND,&AAPRINT    @SC92300 01404000
         GBLC  &AAQUOTE,&AARECFM,&AARETRY,&AARIGHT,&AASPACE    @SC92300 01404200
         GBLC  &AASPEED,&AATATOE,&AATDUMP,&AATETOA,&AATRACE    @SC92300 01404400
         GBLC  &AAXECHO,&AAXTYPE,&ABACKUP,&AFORCED,&AMARGIN    @SC92300 01404600
         GBLC  &ANYCICS,&APARITY,&APREFIX,&APROMPT,&ARENAME    @SC92300 01404800
         GBLC  &ASCQUOT,&ASTATUS,&ASUBMIT,&ASUFFIX,&ASYSCMD    @SC92300 01405000
         GBLC  &ATTACC,&ATTACCT,&ATTACS,&ATTACSS,&ATTARE       @SC92300 01405200
         GBLC  &ATTAREA,&ATTBLE,&ATTBLEN,&ATTBLK,&ATTBLKS      @SC92300 01405400
         GBLC  &ATTCRE,&ATTCRET,&ATTDAT,&ATTDATE,&ATTDIS       @SC92300 01405600
         GBLC  &ATTDISP,&ATTENC,&ATTENCD,&ATTFRM,&ATTFRMT      @SC92300 01405800
         GBLC  &ATTLEN,&ATTLENG,&ATTORI,&ATTORIG,&ATTPAS       @SC92300 01406000
         GBLC  &ATTPASS,&ATTPRO,&ATTPROT,&ATTRIBU,&ATTSIN      @SC92300 01406200
         GBLC  &ATTSINF,&ATTTYP,&ATTTYPE,&ATTUNK,&AZDISAB      @SC92300 01406400
         GBLC  &A8THBQU,&BACKDUP,&BADCHEK,&BADCOMM             @SC92300 01406600
         GBLC  &BADDELF,&BADDELM,&BADDISP,&BADFSPC             @SC92300 01406800
         GBLC  &BADNAME,&BADOPTN,&BADOPTS,&BADOUTF             @SC92300 01407000
         GBLC  &BADPSYN,&BADPTYP,&BADRNGE,&BADSBCM             @SC92300 01407200
         GBLC  &BADSCMD,&BADSERV,&BADTABS,&BLKCHCK             @SC92300 01407400
         GBLC  &BLNKFRE,&BYTPSEC,&BYTSALW,&BYTSUSD,&CANNOT     @SC92300 01407600
         GBLC  &CHARSET,&COLDISC,&COLLIS,&COLLISN,&CONTINU     @SC92300 01407800
         GBLC  &CONTRLR,&CPCMND,&CWDERRM,&CWDPRVS,&CTRLCHR     @SC92300 01408000
         GBLC  &CYRILLC,&CZECH,&DCBSPAC,&DEBGERR,&DEFAULT      @SC92300 01408200
         GBLC  &DELIMSG,&DIRHDNG,&DISCARD,&DSCARDD,&DSKFULL    @SC92300 01408400
         GBLC  &DSKIOER,&DWRDSTK,&ENDOFLI,&ENDOFPA,&ENDSRV     @SC92300 01408600
         GBLC  &ENTHINT,&ERRACTI,&ERRTAKE,&EXTRAOP,&FILCLSN    @SC92300 01408800
         GBLC  &FILCOPY,&FILDELT,&FILRENM,&FILTYPE,&FINISHD    @SC92300 01409000
         GBLC  &FIXED,&FMTFSPC,&FOREIGN,&FORFSPC,&FSENLST      @SC92300 01409200
         GBLC  &FSPCPRM,&FULLSCR,&GOTNAK,&GRAPHIC,&HANDSHK     @SC92300 01409400
         GBLC  &HANDXON,&HEBREW,&INCOMPL,&INITIAL,&INVALID     @SC92300 01409600
         GBLC  &JAPNEUC,&KBYTFRE,&KCMDERR,&LASTFIL,&LOCKSHF    @SC92300 01409800
         GBLC  &LONGLIN,&LOSTPAK,&MANYFIL,&MANYOPT,&MANYTAB    @SC92300 01410000
         GBLC  &MAXNEST,&MICROAB,&MIGRATD,&MISSING,&MISSOPR    @SC92300 01410200
         GBLC  &MISSOPS,&MRCTRNC,&MSGFILE,&NOBUFFS,&NOCPCMD    @SC92300 01410400
         GBLC  &NODIRDF,&NOERROR,&NOFSENT,&NOFSPEC,&NOHELPF    @SC92300 01410600
         GBLC  &NONXAMS,&NOOPERS,&NOPACKS,&NOSTART,&NOTCPER    @SC92300 01410800
         GBLC  &NOTFOUN,&NOTRANS,&NOWRITE,&NO8THBQ,&ONEFOLL    @SC92300 01411000
         GBLC  &ONLY130,&ONOFFCH,&OPRMUB,&OPRMUL,&OPTSIZE      @SC92300 01411200
         GBLC  &OTHERL6,&OVERWRI,&PACKETS,&PACKLEN,&PACKSIZ    @SC92300 01411400
         GBLC  &PADCHAR,&PADDING,&PKTABBR,&PLSESCP,&PRESERV    @SC92300 01411600
         GBLC  &PREFIXD,&QQWRITE,&READYR,&READYS,&READYSR      @SC92300 01411800
         GBLC  &RECEIVE,&RECFOLD,&RECTRNC,&RECVDAS,&REMOTE     @SC92300 01412000
         GBLC  &REPTCNT,&REQUIRG,&SECABBR,&SENDING,&SENDPAK    @SC92300 01412200
         GBLC  &SERIES1,&SIMSHRT,&SIMULAT,&SPACERR,&SRVTIME    @SC92300 01412400
         GBLC  &STARTOP,&SYSCMND,&SYSFSPC,&TABSEXP,&TAKLOOP    @SC92300 01412600
         GBLC  &TCANCEL,&TERMIOE,&TIMEOUT,&TOOSHRT,&TORECV     @SC92300 01412800
         GBLC  &TOSEND,&TRANSFR,&TRANSPA,&TRUNCAT,&TTTABLE     @SC92300 01413000
         GBLC  &UNDEFND,&UNDEFTR,&UNPREFD,&UNPRSOP,&VARIABL    @SC92300 01413200
         GBLC  &VERSION,&VTAMERR,&VTAMTTY,&WARNING,&XTYPMSG    @SC92300 01413400
         GBLC  &ZZBEWAR,&ZZBYTES,&ZZZZOR,&ZZSHORT              @SC92300 01413600
*                                                                       01413800
         TITLE 'Kermit-370 Control blocks and constants'       @SC92178 01414000
         PRINT NOGEN                                           @SC92178 01414200
         FDBD  ,                                               @SC86295 01414400
         USING COMMON,10                                       @SC86316 01414600
*                                                                       01414800
&KTAG    SETC  ''                                              @SC90067 01415000
&KVRSN   SETC  '4.3'                                           @SC93273 01415200
&KDATE   SETC  '93/09/30'                                      @SC93273 01415400
&KEDIT   SETC  '0'                                             @SC93273 01415600
&KTRACE  SETC  'NO'     'YES' to enable tracing + debug        @LM91008 01415800
&KNJDEF  SETC  'IBM'  or HITACHI or FUJITSU -- default Kanji   @SC91325 01416000
&KNJLAB  SETC  '&KNJDEF'(1,1)                                  @SC91325 01416200
*                                                                       01416400
         SYSMACS ,           System-dependent macros           @SC90067 01416600
         SSYMS ,                                               @SC86268 01416800
         USING &STORDS,KWRKBASE                                @SC89268 01417000
*                                                                       01417200
ACTBUF   DSECT               Map for transaction log entry     @SC91172 01417400
ACTFID   DS    CL(LFID)      Filespec                          @SC91172 01417600
ACTSIZ   DS    XL4           Size in kbytes                    @SC91172 01417800
ACTERR   DS    X             Error code, if any                @SC91172 01418000
ACTREA   DS    X             Reason code, if any               @SC91172 01418200
ACTBEG   DS    XL3           Starting time of day (GMT)        @SC91172 01418400
ACTLEN   EQU   *-ACTFID                                        @SC91172 01418600
* EBCDIC constants                                                      01418800
SOH      EQU   X'01'                 ctl-A in Ascii/Ebcdic              01419000
SO       EQU   X'0E'         SO or ctl-N in both. "shift"      @SC91275 01419200
SI       EQU   X'0F'         SI or ctl-O in both. "unshift"    @SC91275 01419400
DLE      EQU   X'10'         DLE in both                       @SC91275 01419600
XON      EQU   X'11'                 xon in Ascii/Ebcdic                01419800
XOFF     EQU   X'13'         XOFF in ASCII/EBCDIC              @SC90106 01420000
NL       EQU   X'15'                                                    01420200
CR       EQU   X'0D'                 CR in Ascci and Ebcdic             01420400
LF       EQU   X'25'         EBCDIC only                       @SC90264 01420600
* Ascii constants                                                       01420800
*   1st, all letters and digits:                               @SC86262 01421000
         ASCSYM ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789           @SC86262 01421200
*   and a few others:                                                   01421400
AHT      EQU   9             ASCII HT                          @SC89301 01421600
ALF      EQU   10            ASCII LF                          @SC89301 01421800
AFF      EQU   12            ASCII FF                          @SC91116 01422000
ASUB     EQU   26            ASCII ctrl-Z (soft EOF)           @SC89301 01422200
ABL      EQU   32            ASCII space                                01422400
AEXCL    EQU   33            ASCII exclamation mark            @SC88273 01422600
A#       EQU   35                    Ascii #                            01422800
AAMP     EQU   38                    Ascii ampersand                    01423000
APLUS    EQU   43            ASCII plus sign                   @SC90239 01423200
ACOM     EQU   44            ASCII comma                       @SC89301 01423400
ADOT     EQU   46            ASCII period                               01423600
ASL      EQU   47            ASCII slash                       @SC89301 01423800
A@       EQU   64            ASCII at sign                     @SC91109 01424000
AUP      EQU   94            Ascii up-arrow (^)                @SC86165 01424200
ADEL     EQU   127                   Ascii delete/rubout                01424400
ATIL     EQU   126                   Ascii Tilde                        01424600
* Flags for extracting filespec                                @SC86295 01424800
FFRCF    EQU   X'40'         RECEIVE or foreign filespec       @SC86295 01425000
FFSND    EQU   X'20'         SEND                              @SC86295 01425200
FFGET    EQU   X'10'         GET                               @SC86295 01425400
FFWLD    EQU   X'08'         Treat incomplete filespec as wild @SC86295 01425600
FFNEW    EQU   X'02'         Get unique name (in place)        @SC86295 01425800
FFUTL    EQU   FFSND+FFGET   Extract for file utility          @SC86295 01426000
FFHDR    EQU   FFUTL+FFRCF   Decode Kermit file header         @SC86295 01426200
FFENC    EQU   FFNEW+FFRCF   Encode Kermit file header         @SC86295 01426400
FFDSP    EQU   FFNEW+FFSND   Copy name in standard print form  @SC86295 01426600
FFGIV    EQU   FFWLD         Like TAKE, but use for output     @SC87117 01426800
* Offsets for fields in KW table.                              @SC90239 01427000
         KW    DEFINE                                          @SC91320 01427200
* Miscellaneous constants                                               01427400
KMIN     EQU   20                    Kermit protocol minimum pkt size   01427600
KMAX     EQU   94                    Kermit protocol maximum pkt size   01427800
KMAXF    EQU   KMAX+1        Kermit xtended pkt base           @TB86196 01428000
KDEF     EQU   80                    Kermit protocol default pkt size   01428200
LPKT     EQU   KMAXE+KMAX+1  Packet buffer size (with pad)     @SC90277 01428400
RPTMIN   EQU   3             Normal minimum repeat count       @SC92052 01428600
MAXNSENT EQU   512           Size of 'sent' table          8*N @SC90264 01428800
MSNDMAX  EQU   12            Max extra files to send       2*N @SC90264 01429000
TAKMAX   EQU   10                    Max TAKE nesting level             01429200
FORMAXL  EQU   31            Maximum file prefix/suffix size   @HF86223 01429400
TUNECT   EQU   15            Count for retuning long packets   @SC88349 01429600
* 3270 orders:                                                          01429800
SBA      EQU   X'11'                 Set Buffer Address (3270)          01430000
ICR      EQU   X'12'         Insert cursor                     @SC88168 01430200
RTA      EQU   X'3C'         Repeat To Address (3270)          @SC88139 01430400
** BEGIN LANGUAGE-SPECIFIC DATA **                             @SC92300 01430600
&FSPCPRM SETC '[<first-last[_CC]>]'  Goes with FMTFSPC         @SC92300 01430800
&FMTOPT  SETA  K'&FSPCPRM    Length of "[first-last...]"       @SC92300 01431000
&OPRMUB  SETC 'Operand must be '                               @SC86295 01431200
&OPRMUL  SETC 'of length '                                     @SC86295 01431400
&LOPRNUM SETA  K'&OPRMUB           Length through "be "        @SC92300 01431600
&LOPRMUS SETA  K'&OPRMUL+&LOPRNUM  Total length                @SC92300 01431800
&AAAHINT SETC 'HINTS'        (needed by Enter hints),cmd, m=2  @SC92300 01432000
&INVALID SETC 'Invalid'      Must be same length as "missing"  @SC92300 01432200
&MISSING SETC 'Missing'      Must be same length as "invalid"  @SC92300 01432400
* Numbered status messages (for E-packets)                     @SC92300 01432600
&NOERROR SETC 'No errors'                        Err #00       @SC86156 01432800
&NOTRANS SETC 'No file transfers yet'            Err #01       @SC86156 01433000
&TCANCEL SETC 'Transfer cancelled'               Err #02       @SC86156 01433200
&BADSERV SETC 'Invalid server command'           Err #03       @SC86156 01433400
&TERMIOE SETC 'Terminal I/O error'               Err #04       @SC86156 01433600
&BADCHEK SETC 'Bad packet count or chksum'       Err #05       @SC86156 01433800
&BADPSYN SETC 'Invalid packet syntax'            Err #06       @SC86158 01434000
&BADPTYP SETC 'Invalid packet type'              Err #07       @SC86156 01434200
&LOSTPAK SETC 'Lost a packet'                    Err #08       @SC86156 01434400
&GOTNAK  SETC 'Micro sent a NAK'                 Err #09       @SC86156 01434600
&MICROAB SETC 'Micro aborted'                    Err #10       @SC86156 01434800
&BADNAME SETC 'Invalid file name'                Err #11       @SC86156 01435000
&NOTFOUN SETC 'File not found'                   Err #12       @SC92300 01435200
&DSKFULL SETC 'Disk or file is full'             Err #13       @SC86345 01435400
&DSKIOER SETC 'Disk I/O error'                   Err #14       @SC86345 01435600
&MISSOPR SETC 'Missing operand'                  Err #15       @SC86158 01435800
&BADSCMD SETC 'Illegal system command'           Err #16       @SC86268 01436000
&KCMDERR SETC 'Kermit command error'             Err #17       @SC86171 01436200
&NOPACKS SETC 'No packet received'               Err #18       @SC86355 01436400
&RECTRNC SETC 'Records truncated'                Err #19       @SC87268 01436600
&BADCOMM SETC 'Bad communication line'           Err #20       @SC87300 01436800
&NO8THBQ SETC '8th-bit quote not set'            Err #21       @SC89072 01437000
&TOOSHRT SETC 'File too short'                   Err #22       @SC89218 01437200
&NOSTART SETC 'Missing start-of-packet'          Err #23       @SC89219 01437400
&BADOPTN SETC 'Option error on filespec'         Err #24       @SC89249 01437600
&BADDISP SETC 'Unable to dispose of file'        Err #25       @SC90037 01437800
* Messages and phrases                                         @SC92300 01438000
&AAAAAAS SETC '  as '        (gives filespec actually sent)    @SC87300 01438200
&AAAAAIS SETC ' is '         (used for SHOW display)           @SC87034 01438400
&ASCQUOT SETC 'One char with ASCII value 33-62 or 96-126'      @SC86224 01438600
&AZDISAB SETC 'not enabled'        i.e., error: should be ON   @SC90239 01438800
&BACKDUP SETC '--original backed up as '  (used for file coll.)@SC90211 01439000
&BADDELF SETC 'Option error: Invalid final delimiter'          @SC89249 01439200
&BADDELM SETC 'Option error: Invalid delimiter'                @SC89249 01439400
&BADOPTS SETC 'Option error: Unknown file option(s)'           @SC89249 01439600
&BADRNGE SETC 'Option error: Invalid line range'               @SC89249 01439800
&BADSBCM SETC 'Not a valid subcommand'                         @SC86355 01440000
&BADTABS SETC 'Tabs out of sequence'                           @TS86100 01440200
&BYTPSEC SETC 'Disk bytes/sec: '  (see SECABBR)                @SC86295 01440400
&CANNOT  SETC 'Cannot '           (used with MAIL, PRINT, SUB) @SC90239 01440600
&COLDISC SETC 'File already exists, RECEIVE discarded'         @SC90061 01440800
&DEBGERR SETC 'DEBUG error'                                    @SC87012 01441000
&DELIMSG SETC 'Line delimiter: one char or none'               @SC88095 01441200
&DSCARDD SETC '--discarded as duplicate'  (for file collision) @SC90033 01441400
&DWRDSTK SETC ' dwords of stack used.'                         @SC89089 01441600
&ENDSRV  SETC 'To terminate the server use' ('BYE or FINISH')  @SC92300 01441800
&ENTHINT SETC 'Enter &AAAHINT to get started'                  @SC91295 01442000
&ERRTAKE SETC 'Error reading TAKE file'                        @SC86239 01442200
&EXTRAOP SETC 'Extra operand'                                  @SC91312 01442400
&FINISHD SETC '** finished **'                                 @SC91172 01442600
&FORFSPC SETC 'Foreign filespec'                               @SC88035 01442800
&FSENLST SETC ' file(s) sent last.'                            @SC86295 01443000
&HANDXON SETC 'Handshake is XON -- not needed'                 @SC87338 01443200
&LASTFIL SETC 'Last file used: '                               @BS86090 01443400
&MANYFIL SETC 'Too many SEND files'                            @SC88306 01443600
&MANYOPT SETC 'Too many options'                               @SC90239 01443800
&MANYTAB SETC 'Too many tabs'                                  @SC86355 01444000
&MAXNEST SETC 'Past maximum nesting level for TAKE command'    @SC92300 01444200
&MISSOPS SETC 'Option error: Missing option(s)'                @SC89249 01444400
&MRCTRNC SETC ' records truncated'                             @SC87268 01444600
&MSGFILE SETC 'File '                                          @SC87300 01444800
&MSGFILL SETA 5              Length of MSGFILE                 @SC92300 01445000
&NOBUFFS SETC 'Unable to allocate buffers'                     @SC92300 01445200
&NOFSENT SETC 'No files sent'                                  @SC86295 01445400
&NOHELPF SETC 'No Help file available'                         @SC90264 01445600
&NOOPERS SETC 'No (more) operands needed'                      @SC90179 01445800
&NOWRITE SETC 'Unable to write file'                           @SC87117 01446000
&ONEFOLL SETC 'One of the following:'                          @SC92300 01446200
&ONLY130 SETC 'Only first 130 characters displayed!'           @PG88335 01446400
&ONOFFCH SETC 'Must be ON, OFF, or a character'                @SC87008 01446600
&OPTSIZE SETC 'Optimum packet size: '                          @SC88120 01446800
&PKTABBR SETC 'pkt'          Must be 3 bytes                   @SC86295 01447000
&PLSESCP SETC 'Please escape to local Kermit now'              @SC92300 01447200
&READYR  SETC 'ready to receive.'                              @SC92300 01447400
&READYS  SETC 'ready to send.'                                 @SC92300 01447600
&READYSR SETC 'entering server mode.'                          @SC92300 01447800
&RECFOLD SETC ' records folded'                                @SC88120 01448000
&RECVDAS SETC '  Rcv as '                                      @SC87300 01448200
&REPTCNT SETC ' repeat packets sent'                           @SC86316 01448400
&REQUIRG SETC ' requiring '                                    @SC86295 01448600
&SECABBR SETC 'sec'          Must be 3 bytes                   @SC86295 01448800
&SENDING SETC 'Sending '                                       @SC87300 01449000
&SENDPAK SETC 'Size<20 dangerous; >94 meaningless for SEND'    @SC90122 01449200
*              Warning on packet size "limits"                 @SC92300 01449400
&SIMSHRT SETC 'Input file not found or too short'              @SC91312 01449600
&SYSCMND SETC 'Specify a &KSYS command to issue'               @SC86295 01449800
&SYSFSPC SETC '&KSYS filespec'                                 @SC88035 01450000
&TAKLOOP SETC 'TAKE file loop'                                 @SC86239 01450200
&TORECV  SETC ' to RECEIVE the file(s).'                       @SC92300 01450400
&TOSEND  SETC ' to SEND the file(s).'                          @SC92300 01450600
&UNDEFTR SETC 'Undefined character translation'                @SC90040 01450800
&UNPRSOP SETC 'Unprintable start-of-packet'                    @SC92030 01451000
&VTAMERR SETC 'S/1 VTAM Error Recovery '                       @TB87009 01451200
&XTYPMSG SETC 'Text string with ^X for cntl-X'                 @SC86165 01451400
&ZZBEWAR SETC 'existing files beware' (for HINTS on COLLISION) @SC92300 01451600
&ZZBYTES SETC 'Bytes'                                          @SC92300 01451800
&ZZZZOR  SETC 'or'                                             @SC92300 01452000
&ZZSHORT SETC 'short'          (for HINTS on BLOCK or PACKET)  @SC92300 01452200
* Kermit subcommands and keywords (marked cmd or kwd, resp).   @SC92300 01452400
* Keywords are cross-referenced to symbol(s) of higher keywords@SC92300 01452600
* Minimum abbreviation is 1 character unless marked "m=length".@SC92300 01452800
&AAAAAEA SETC 'AEA'             kwd->CONTRLR                   @SC91320 01453000
&AAAAAIO SETC 'I/O'             kwd->AADEBUG                   @SC88168 01453200
&AAAAALL SETC 'ALL'             kwd->AAASHOW, m=3              @SC88293 01453400
&AAAAAON SETC 'ON'              kwd, m=2                       @SC87166 01453600
&AAAABIN SETC 'BINARY'          kwd->ATTTYPE                   @SC91320 01453800
&AAAABYE SETC 'BYE'             cmd, m=3                       @SC86155 01454000
&AAAADIR SETC 'DIRECTORY'       cmd;kwd->REMOTE, m=3           @SC91320 01454200
&AAAAEN  SETC 'End    '         kwd in mixed-case, fixed-length@SC92300 01454400
&AAAAEND SETC 'END'             cmd=AAAQUIT;kwd->ATTRIBU, m=3  @SC88035 01454600
&AAAAEOF SETC 'EOF'             kwd->AAAASET, m=3              @SC86133 01454800
&AAAAEOL SETC 'EOL'             kwd->RECEIVE,AAASEND, m=3      @SC86133 01455000
&AAAAFIN SETC 'FINISH'          cmd, m=3                       @SC86155 01455200
&AAAAGET SETC 'GET'             cmd                            @SC86155 01455400
&AAAAOFF SETC 'OFF'             kwd, m=2                       @SC87166 01455600
&AAAARAW SETC 'RAW'             kwd->AADEBUG                   @SC88168 01455800
&AAAASET SETC 'SET'             cmd, m=3                       @SC91320 01456000
&AAAATOE SETC 'ATOE'            kwd->AAAASET,etc, m=4          @SC87166 01456200
&AAAATTY SETC 'TTY'             kwd->CONTRLR                   @SC91320 01456400
&AAABAUD SETC 'BAUD'            kwd->AAAASET, m=2              @SC90099 01456600
&AAACOPY SETC 'COPY'            kwd->REMOTE, m=2               @SC91320 01456800
&AAADBIN SETC 'D-BINARY'        kwd->ATTTYPE                   @SC91320 01457000
&AAAECHO SETC 'ECHO'            cmd;kwd->AAATAKE, m=2-3        @SC92300 01457200
&AAAETOA SETC 'ETOA'            kwd->AAAASET,etc, m=4          @SC87166 01457400
&AAAEXIT SETC 'EXIT'            cmd, m=2                       @SC92300 01457600
&AAAFILE SETC 'FILE'            kwd->AAAASET                   @SC86295 01457800
&AAAFOLD SETC 'FOLD'            kwd->LONGLIN                   @SC91320 01458000
&AAAGIVE SETC 'GIVE'            cmd, m=2                       @SC87117 01458200
&AAAHALT SETC 'HALT'            kwd->ERRACTI,LONGLIN           @SC86171 01458400
&AAAHELP SETC 'HELP'            cmd;kwd->REMOTE                @SC92300 01458600
&AAAHOST SETC 'HOST'            cmd;kwd->REMOTE, m=2           @SC91320 01458800
&AAAKEEP SETC 'KEEP'            kwd->INCOMPL                   @SC86225 01459000
&AAALEFT SETC 'LEFT'            kwd->AMARGIN                   @SC87253 01459200
&AAALINE SETC 'LINE'            kwd->AAAASET, m=3              @SC87166 01459400
&AAALONG SETC 'LONG'            kwd->AADEBUG                   @SC90222 01459600
&AAAMAIL SETC 'MAIL'            kwd->REMOTE                    @SC91320 01459800
&AAAMARK SETC 'MARK'            kwd->APARITY                   @SC86316 01460000
&AAANONE SETC 'NONE'            kwd->APARITY,CONTRLR           @SC91320 01460200
&AAAQUIT SETC 'QUIT'            cmd                            @SC92300 01460400
&AAASAVE SETC 'SAVE'            kwd->AADEBUG                   @SC88168 01460600
&AAASEND SETC 'SEND'            cmd;kwd (see AAAASET), m=3     @SC92300 01460800
&AAASERV SETC 'SERVER'          cmd, m=3                       @SC92300 01461000
&AAASHOW SETC 'SHOW'            cmd, m=2                       @SC86295 01461200
&AAATAKE SETC 'TAKE'            cmd;kwd->AAAASET, m=2-3        @SC86295 01461400
&AAATEST SETC 'TEST'            kwd->AAAASET                   @SC87166 01461600
&AAATEXT SETC 'TEXT'            kwd->ATTTYPE                   @SC91320 01461800
&AAATIME SETC 'TIME'            kwd->AADEBUG                   @SC91172 01462000
&AAATYPE SETC 'TYPE'            cmd; kwd->REMOTE     (=write)  @SC91320 01462200
&AAAVBIN SETC 'V-BINARY'        kwd->ATTTYPE                   @SC91320 01462400
&AADEBUG SETC 'DEBUG'           kwd->AAAASET                   @SC86133 01462600
&AADELAY SETC 'DELAY'           kwd->AAAASET, m=3              @SC86164 01462800
&AADELIM SETC 'DELIM'           kwd->AAAASET, m=4              @SC88095 01463000
&AAERASE SETC 'ERASE'           kwd->REMOTE                    @SC91320 01463200
&AAGREEK SETC 'GREEK'           kwd->CHARSET, m=2              @SC90152 01463400
&AALOCAL SETC 'LOCAL'           cmd, m=3                       @SC86295 01463600
&AALRECL SETC 'LRECL'           kwd->AAAFILE                   @SC87166 01463800
&AANAMES SETC 'NAMES'           kwd->AATDUMP                   @SC86295 01464000
&AAPPEND SETC 'APPEND'          kwd->COLLISN, m=3              @SC91320 01464200
&AAPRINT SETC 'PRINT'           kwd->RETMOTE                   @SC91320 01464400
&AAQUOTE SETC 'QUOTE'           kwd->RECEIVE,AAASEND           @SC86133 01464600
&AARECFM SETC 'RECFM'           kwd->AAAFILE, m=4              @SC87012 01464800
&AARETRY SETC 'RETRY'           kwd->AAAASET, m=3              @SC86345 01465000
&AARIGHT SETC 'RIGHT'           kwd->AMARGIN                   @SC87253 01465200
&AASPACE SETC 'SPACE'           cmd;kwd->REMOTE, m=2           @SC86295 01465400
&AASPEED SETC 'SPEED'           kwd->AAAASET, m=2              @SC90099 01465600
&AATATOE SETC 'TATOE'           kwd->AAAASET,etc, m=2-5        @SC87166 01465800
&AATDUMP SETC 'TDUMP'           cmd, m=2                       @SC86295 01466000
&AATETOA SETC 'TETOA'           kwd->AAAASET,etc, m=2-5        @SC87166 01466200
&AATRACE SETC 'TRACE'           kwd->AATDUMP                   @SC90040 01466400
&AAXECHO SETC 'XECHO'           cmd, m=2                       @SC86204 01466600
&AAXTYPE SETC 'XTYPE'           cmd, m=2                       @SC86204 01466800
&ABACKUP SETC 'BACKUP'          kwd->COLLISN                   @SC91320 01467000
&AFORCED SETC 'FORCED'          kwd->LOCKSHF                   @SC91275 01467200
&AMARGIN SETC 'MARGIN'          kwd->AAAASET                   @SC87253 01467400
&APARITY SETC 'PARITY'          kwd->RECEIVE,AAASEND           @SC88288 01467600
&APREFIX SETC 'PREFIX'          kwd->FOREIGN                   @HF86223 01467800
&APROMPT SETC 'PROMPT'          kwd->AAAASET, m=2              @SC87268 01468000
&ARENAME SETC 'RENAME'          kwd->COLLISN,REMOTE            @SC91320 01468200
&ASTATUS SETC 'STATUS'          cmd, m=2                       @SC86295 01468400
&ASUBMIT SETC 'SUBMIT'          kwd->REMOTE, m=2               @SC91320 01468600
&ASUFFIX SETC 'SUFFIX'          kwd->FOREIGN                   @HF86223 01468800
&ASYSCMD SETC 'SYSCMD'          kwd->AAAASET, m=2              @SC86295 01469000
&ATTACC  SETC 'Account'         kwd in mixed-case, fixed-length@SC92300 01469200
&ATTACCT SETC 'ACCOUNT'         kwd->ATTRIB, m=4               @SC90037 01469400
&ATTACS  SETC 'Access '         kwd in mixed-case, fixed-length@SC92300 01469600
&ATTACSS SETC 'ACCESS'          kwd->ATTRIBU, m=3              @SC90037 01469800
&ATTARE  SETC 'Area   '         kwd in mixed-case, fixed-length@SC92300 01470000
&ATTAREA SETC 'AREA'            kwd->ATTRIBU, m=2              @SC90037 01470200
&ATTBLE  SETC 'Bytes  '         kwd in mixed-case, fixed-length@SC92300 01470400
&ATTBLEN SETC 'BYTE-LENGTH'     kwd->ATTRIBU, m=2              @SC90037 01470600
&ATTBLK  SETC 'Blksize'         kwd in mixed-case, fixed-length@SC92300 01470800
&ATTBLKS SETC 'BLOCKSIZE'       kwd->ATTRIBU                   @SC90037 01471000
&ATTCRE  SETC 'Creator'         kwd in mixed-case, fixed-length@SC92300 01471200
&ATTCRET SETC 'CREATOR'         kwd->ATTRIBU, m=2              @SC90037 01471400
&ATTDAT  SETC 'Date   '         kwd in mixed-case, fixed-length@SC92300 01471600
&ATTDATE SETC 'DATE'            kwd->ATTRIBU, m=2              @SC90037 01471800
&ATTDIS  SETC 'Disp   '         kwd in mixed-case, fixed-length@SC92300 01472000
&ATTDISP SETC 'DISPOSITION'     kwd->ATTRIBU, m=2              @SC90037 01472200
&ATTENC  SETC 'Encodng'         kwd in mixed-case, fixed-length@SC92300 01472400
&ATTENCD SETC 'ENCODING'        kwd->ATTRIBU                   @SC90037 01472600
&ATTFRM  SETC 'Format '         kwd in mixed-case, fixed-length@SC92300 01472800
&ATTFRMT SETC 'FORMAT'          kwd->ATTRIBU                   @SC90037 01473000
&ATTLEN  SETC 'Length '         kwd in mixed-case, fixed-length@SC92300 01473200
&ATTLENG SETC 'LENGTH'          kwd->ATTRIBU                   @SC90037 01473400
&ATTORI  SETC 'Origin '         kwd in mixed-case, fixed-length@SC92300 01473600
&ATTORIG SETC 'ORIGIN'          kwd->ATTRIBU                   @SC90037 01473800
&ATTPAS  SETC 'Passwrd'         kwd in mixed-case, fixed-length@SC92300 01474000
&ATTPASS SETC 'PASSWORD'        kwd->ATTRIBU, m=2              @SC90037 01474200
&ATTPRO  SETC 'Protect'         kwd in mixed-case, fixed-length@SC92300 01474400
&ATTPROT SETC 'PROTECT'         kwd->ATTRIBU, m=2              @SC90037 01474600
&ATTRIBU SETC 'ATTRIBUTES'      kwd->AAAASET, m=3              @SC90037 01474800
&ATTSIN  SETC 'Sysinfo'         kwd in mixed-case, fixed-length@SC92300 01475000
&ATTSINF SETC 'SYS-INFO'        kwd->ATTRIBU, m=2              @SC90037 01475200
&ATTTYP  SETC 'Type   '         kwd in mixed-case, fixed-length@SC92300 01475400
&ATTTYPE SETC 'TYPE'            kwd->ATTRIBU,AAAFILE (=variety)@SC90037 01475600
&ATTUNK  SETC 'Unknown'         kwd in mixed-case, fixed-length@SC92300 01475800
&A8THBQU SETC '8-BIT-QUOTE'     kwd->AAAASET                   @SC87008 01476000
&BLKCHCK SETC 'BLOCK-CHECK'     kwd->AAAASET                   @SC86133 01476200
&BLNKFRE SETC 'BLANK-FREE-2'    kwd->BLKCHCK                   @SC92085 01476400
&CHARSET SETC 'CHARACTER-SET'   kwd->AAAFILE,TRANSFR, m=2      @SC90040 01476600
&COLLIS  SETC 'Collisn'         kwd in mixed-case, fixed-length@SC92300 01476800
&COLLISN SETC 'COLLISION'       kwd->AAAFILE, m=2              @SC90033 01477000
&CONTINU SETC 'CONTINUE'        kwd->ERRACTI                   @SC86171 01477200
&CONTRLR SETC 'CONTROLLER'      kwd->AAAASET, m=3              @SC87268 01477400
&CTRLCHR SETC 'CONTROL-CHARACTER' kwd->AAAASET,AATDUMP, m=8    @SC87268 01477600
&CYRILLC SETC 'CYRILLIC'        kwd->CHARSET, m=3              @SC90152 01477800
&CZECH   SETC 'CZECH'           kwd->CHARSET, m=2              @SC90152 01478000
&DEFAULT SETC 'DEFAULT'         kwd->OVERWRI                   @SC90033 01478200
&DISCARD SETC 'DISCARD'         kwd->INCOMPL,COLLISN           @SC86225 01478400
&ENDOFLI SETC 'END-OF-LINE'     kwd->RECEIVE,AAASEND           @SC86133 01478600
&ENDOFPA SETC 'END-OF-PACKET'   kwd->RECEIVE,AAASEND           @SC86133 01478800
&ERRACTI SETC 'ERROR-ACTION'    kwd->AAATAKE, m=3              @SC86171 01479000
&FILTYPE SETC 'FILE-TYPE'       kwd->AAAASET (obsolete), m=5   @SC87166 01479200
&FIXED   SETC 'FIXED'           kwd->AARECFM                   @SC87012 01479400
&FOREIGN SETC 'FOREIGN'         kwd->AAAASET, m=3              @HF86223 01479600
&FULLSCR SETC 'FULLSCREEN'      kwd->CONTRLR                   @SC92030 01479800
&GRAPHIC SETC 'GRAPHICS'        kwd->CONTRLR                   @SC91320 01480000
&HANDSHK SETC 'HANDSHAKE'       kwd->AAAASET                   @SC87274 01480200
&HEBREW  SETC 'HEBREW'          kwd->CHARSET, m=2              @SC90152 01480400
&INCOMPL SETC 'INCOMPLETE'      kwd->AAAASET, m=3              @SC86225 01480600
&INITIAL SETC 'INITIAL'         kwd->AARETRY                   @SC86345 01480800
&JAPNEUC SETC 'JAPAN-EUC'       kwd->CHARSET, m=3              @SC91325 01481000
&LOCKSHF SETC 'LOCKING-SHIFT'   kwd->TRANSFR                   @SC91275 01481200
&LONGLIN SETC 'LONGLINE'        kwd->AAAFILE, m=2              @SC88120 01481400
&OVERWRI SETC 'OVERWRITE'       kwd->COLLISN,AAAFILE           @SC91320 01481600
&PACKETS SETC 'PACKETS'         kwd->AARETRY                   @SC86345 01481800
&PACKLEN SETC 'PACKET-LENGTH'   kwd->RECEIVE,AAASEND           @SC90150 01482000
&PACKSIZ SETC 'PACKET-SIZE'     kwd->RECEIVE,AAASEND           @SC86133 01482200
&PADCHAR SETC 'PAD-CHAR'        kwd->RECEIVE,AAASEND, m=5      @SC86164 01482400
&PADDING SETC 'PADDING'         kwd->RECEIVE,AAASEND, m=3      @SC86164 01482600
&PREFIXD SETC 'PREFIXED'        kwd->CTRLCHR                   @SC92300 01482800
&PRESERV SETC 'PRESERVE'        kwd->OVERWRI                   @SC90033 01483000
&RECEIVE SETC 'RECEIVE'         cmd;kwd->AAAASET, m=3          @SC92300 01483200
&REMOTE  SETC 'REMOTE'          cmd, m=3                       @SC86155 01483400
&SERIES1 SETC 'SERIES1'         kwd->CONTRLR                   @SC91320 01483600
&SIMULAT SETC 'SIMULATE'        cmd, m=2                       @SC91312 01483800
&SRVTIME SETC 'SERVER-TIMEOUT'  kwd->AAAASET, m=3              @SC90045 01484000
&STARTOP SETC 'START-OF-PACKET' kwd->RECEIVE,AAASEND           @SC86133 01484200
&TABSEXP SETC 'TABS-EXPAND'     kwd->AAAASET                   @SC86133 01484400
&TIMEOUT SETC 'TIMEOUT'         kwd->RECEIVE,AAASEND           @SC86164 01484600
&TRANSFR SETC 'TRANSFER'        kwd->AAAASET, m=2              @SC90040 01484800
&TRANSPA SETC 'TRANSPARENT'     kwd->CHARSET, m=2              @SC90250 01485000
&TRUNCAT SETC 'TRUNCATE'        kwd->LONGLIN                   @SC91320 01485200
&TTTABLE SETC 'TTABLE'          kwd->AAAASET, m=2              @SC87117 01485400
&UNDEFND SETC 'UNDEFINED'       kwd->AARECFM                   @SC86295 01485600
&UNPREFD SETC 'UNPREFIXED'      kwd->CTRLCHR                   @SC92300 01485800
&VARIABL SETC 'VARIABLE'        kwd->AARECFM                   @SC87012 01486000
&VERSION SETC 'VERSION'         cmd, m=2                       @SC90339 01486200
&VTAMTTY SETC 'VTAMTTY'         kwd->CONTRLR                   @SC91320 01486400
&WARNING SETC 'WARNING'         kwd->AAAASET (obsolete)        @SC90033 01486600
** END LANGUAGE-SPECIFIC DATA **                               @SC92300 01486800
