home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ibm370.tar.gz
/
ibm370.tar
/
ik0def.asm
< prev
next >
Wrap
Assembly Source File
|
1993-10-21
|
35KB
|
436 lines
*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