;; Additional data segment material placed here to aid MASM 4 datas segment public 'datas' ermes1 db cr,lf,'?Too many macro names$' cermes1 db cr,lf,'?宏命令太多$' ermes2 db cr,lf,bell,'?No room for Take file buffer or Macro definition' db cr,lf,bell,'$' cermes2 db cr,lf,bell,'?用于Take文件缓冲或宏定义的空间没有了' db cr,lf,bell,'$' ermes4 db cr,lf,'?Too many active Take files and Macros',cr,lf, bell,'$' cermes4 db cr,lf,'?运行的Take文件和宏命令太多了',cr,lf,bell,'$' ermes5 db cr,lf,'?Not implemented$' cermes5 db cr,lf,'?无法执行$' ermes6 db cr,lf,'?More parameters are needed$' cermes6 db cr,lf,'?需要更多的参数$' ermes7 db cr,lf,'?Command not executed$' cermes7 db cr,lf,'?命令无法执行$' errcap db cr,lf,'?Unable to open that file$' cerrcap db cr,lf,'?无法打开那个文件$' erropn db cr,lf,'?Log file is already open$' cerropn db cr,lf,'?记录文件已经打开$' askhlp1 db 'Variable name then prompt string$' caskhlp1 db '<变量名> 然后是 <提示符>$' askhlp2 db 'Prompt string$' caskhlp2 db '提示符$' askhlp3 db 'Enter a line of text$' caskhlp3 db '键入一行正文$' filhlp db ' Output filename for the log$' cfilhlp db '输出记录文件名$' dishlp db cr,lf,' Quiet (no screen writing), Regular (normal),' db ' Serial (non-formatted screen)' db cr,lf,' and/or 7-BIT (default) or 8-BIT wide characters.$' cdishlp db cr,lf,'静止(无屏幕显示),正常(常规显示),' db '串行(非格式化屏幕显示)' db cr,lf,' 以及/或 7 位(缺省值) 或 8 位扩展字符.$' remhlp db cr,lf,' OFF to show file transfer display,' db ' ON for quiet screen$' cremhlp db cr,lf,' OFF -- 显示文件传送过程,' db ' ON -- 屏幕处于静止状态$' macmsg db ' Specify macro name followed by body of macro, on same line$' cmacmsg db ' 定义宏命令并在同一行中后接宏定义体 $' shmmsg db ' name of macro, or carriage return to see all$' cshmmsg db ' 宏定义名,或 <回车> 以便显示所有内容 $' prmmsg db cr,lf db ' Enter new prompt string or nothing to regain regular prompt.' db cr,lf,' Use \123 notation for special chars (Escape is \27)$' cprmmsg db cr,lf db ' 键入新提示符 ,缺省则得到正规的提示符.' db cr,lf,' 对特殊字符使用 \123 记数法(Esc键是 \27) $' srxhlp1 db cr,lf,' Enter code for received byte code for' db ' local byte ',cr,lf,' use ascii characters themselves or' db cr,lf,' numerical equivalents of \nnn decimal' db ' or \Onnn octal or \Xnnn hexadecimal',cr,lf db ' or keywords ON or OFF (translation is initially off)' csrxhlp1 db cr,lf,'键入 接收的字节代码 到代码' db cr,lf, ' \nnn 十进制 ',cr,lf db ' \Onnn 八进制 或 \Xnnn 十六进制的数字',cr,lf db ' 或者 是 关键字 ON 或 OFF (转换初始为 OFF )' db cr,lf,'$' shormsg db cr,lf,' Translation table of received byte codes while' db ' in CONNECT mode -' db cr,lf,' Format: [received byte (decimal) -> local byte' db ' (decimal)]',cr,lf,'$' cshormsg db cr,lf,'在 CONNECT 方式下接收字节代码转换表' db cr,lf,'格式: [接收的字节 (十进制) -> 当地字节' db ' (十进制)]',cr,lf,'$' shopm1 db ' [\$' ; Show Translation material shopm2 db ' -> \$' shopm3 db '] $' badrx db cr,lf,'?Expected ON, OFF, or \nnn$' cbadrx db cr,lf,'?需要 ON, OFF, 或 \nnn $' rxoffmsg db cr,lf,' Input Translation is off$' crxoffmsg db cr,lf,' 输入转换已结束 $' rxonmsg db cr,lf,' Input Translation is on$' crxonmsg db cr,lf,' 正在进行输入转换 $' rxtable equ THIS BYTE ; build 256 byte Translation Input table maketab ; table rxtable is used by Connect mode stkadr dw 0 ; non-zero if replacement keyboard xlator present prterr db '?Unrecognized value$' cprterr db '?不认识的数值 $' takchlp db cr,lf,'Value 0 to 65535 for COUNT in script IF COUNT command$' ctakchlp db cr,lf,'在 IF COUNT 命令下,COUNT 取值从 0 到 65535 $' takcerr db cr,lf,'?Note: command is valid only in Take files and Macros$' ctakcerr db cr,lf,'?注意: 此命令只有在 Take文件或宏定义时才能执行 $' defpmp db 'Definition string: $' cdefpmp db '定义串: $' nonmsg db 'none$' cnonmsg db '无$' delmsg db 'delete$' cdelmsg db '删除 $' onmsg db 'on' offmsg db 'off' logmsg db 'Logging of Packets, Session, Transaction, plus' db ' screen dump file -$' clogmsg db '包(Packets),对话(Session),过程(Transaction),和' db '屏幕转储文件的记录 -$' lpktnam db 'PACKET.LOG',54 dup (0) ; default packet log filename lsesnam db 'KERMIT.LOG',54 dup (0) ; default capture/session filename ltranam db 'TRANSACT.LOG',52 dup (0); default transaction log filename dmpdefnam db 'KERMIT.SCN',0 ; asciiz default screen dump filename dmpname db 'KERMIT.SCN',54 dup (0) ; file name for screen dumps [jrd] lsesmsg db 'Session log: $' clsesmsg db '对话记录: $' lpktmsg db 'Packet log: $' clpktmsg db '包记录: $' ltramsg db 'Transaction log: $' cltramsg db '过程记录: $' dmpmsg db 'Dump screen: $' cdmpmsg db '屏幕转储: $' dmpmsg2 db 'Dump screen: $' ; for general STATUS display cdmpmsg2 db '屏幕显示: $' tmp db ?,'$' modst db 'Mode line : $' cmodst db '状态行 : $' locst db 'Local echo : $' clocst db '本地回显 : $' belon db 'Ring bell after transfer$' cbelon db '传送结束后响铃$' beloff db 'No bell after transfer$' cbeloff db '传送结束不响铃$' vtemst db 'Terminal emulation: $' ; terminal emulator cvtemst db '终端仿真: $' portst db 'Communications port: $' cportst db '通信端口: $' capmsg db 'Logging: $' ccapmsg db '记录: $' eofmsg db 'EOF mode: $' ceofmsg db 'EOF 方式: $' flost db 'No flow control used$' cflost db '没有使用流量控制$' floxmsg db 'Flow control: xon/xoff $' cfloxmsg db '流量控制: xon/xoff $' handst db 'Handshake used: $' chandst db '使用的握手信号: $' destst db 'File destination: $' cdestst db '文件目的地: $' diskst db 'Path: $' cdiskst db '路径: $' blokst db 'Block check used: $' cblokst db '使用块校验: $' sqcst db 'Send control char prefix: $' csqcst db '发送控制字符前缀: $' rqcst db 'Receive control char prefix: $' crqcst db '接收控制字符前缀: $' debon db 'Debug: $' cdebon db '调试: $' flwon db 'Warning (filename change): $' cflwon db '警告(改变文件名): $' parmsg db 'Parity: $' cparmsg db '奇偶校验: $' abfdst db 'Discard incomplete file$' cabfdst db '放弃未完全传送的文件$' abfkst db 'Keep incomplete file$' cabfkst db '保留未完全传送的文件$' sndmsg db 'Send Delay: $' csndmsg db '发送延迟: $' sndmsg2 db ' sec, Pause: $' csndmsg2 db ' 秒, 暂停: $' sndmsg3 db ' ms$' csndmsg3 db ' 毫秒$' ssohst db 'Send start-of-packet char: $' cssohst db '发送包起始字符: $' rsohst db 'Receive start-of-packet char: $' crsohst db '接收包起始字符: $' meolst db 'End-of-Line char S: ',5eh,'$' cmeolst db '行结束字符 S: ',5eh,'$' mseol2 db ' R: ',5eh,'$' stimst db 'Send timeout (seconds): $' cstimst db '发送超时(秒数): $' rtimst db 'Receive timeout (seconds): $' crtimst db '接收超时(秒数): $' spakst db 'Send packet size: $' cspakst db '发送包的长度: $' rpakst db 'Receive packet size: $' crpakst db '接收包的长度: $' snpdst db '# of send padding chars: $' csnpdst db '发送填充字符 #: $' rnpdst db '# of receive padding chars: $' crnpdst db '接收填充字符 #: $' spadst db 'Padding char: $' cspadst db '填充字符: $' retrymsg db 'Retry send/receive packet limit: $' cretrymsg db '包重发/接收的次数: $' dispst db 'Display (vs Remote):$' cdispst db '显示器 (相对于 远程):$' remost db 'Remote (vs Display) $' cremost db '远程 (相对于 显示器) $' timmsg db 'Timer: $' ctimmsg db '定时: $' srvmsg db 'Timeout (sec) waiting for a transaction: $' csrvmsg db '等待一个过程(TRANSACTION)的超时值(秒): $' srvthlp db 'seconds, 0-255, waiting for a transaction$' csrvthlp db '秒数,0-255,等待一个过程(TRANSACTION)$' escmes db 'Escape character: $' cescmes db '退出(ESC)字符: $' scpmsg db 'Script commands Echo, If, Input, Output, Pause, Reinput,' db ' Transmit, Wait$' cscpmsg db 'Script 命令: Echo, If, Input, Output, Pause, Reinput,' db ' Transmit, Wait$' sechmsg db 'Input echoing: $' csechmsg db '输入回显: $' scasmsg db 'Case sensitivity: $' cscasmsg db '字母大小写敏感度: $' stmo1msg db 'Timeout (seconds): $' cstmo1msg db '超时 (秒): $' stmo2msg db 'Timeout-action: $' cstmo2msg db '超时作用: $' takon db 'Take-echo: $' ctakon db 'Take-回显: $' atton db 'Attributes pkts: $' catton db '属性包: $' baudrt db 'Baud rate is $' cbaudrt db '波特率为 $' unrec db 'unknown$' cunrec db '不知道$' stcntmsg db 'Take/Macro COUNT: $' cstcntmsg db 'Take和 宏 计数: $' nonemsg db 'no active Take/Macro$' cnonemsg db '没有运行的 Take 和 宏$' sterlmsg db 'Errorlevel: $' csterlmsg db '错误级别: $' stalrmsg db 'Alarm time: $' cstalrmsg db '报警时间: $' nummsg1 db cr,lf,'?Use a number between $' cnummsg1 db cr,lf,'?使用一个数, 范围在 $' nummsg2 db ' and $' cnummsg2 db ' 到 $' ctlhlp db ' Decimal number between 0 and 31$' cctlhlp db ' 0 到 31 之间的十进制数$' dmphlp db ' Filename to hold screen dumps$' cdmphlp db '保存屏幕输出的文件名$' erlhlp db ' Decimal number between 0 and 255$' cerlhlp db ' 0 到 255 之间的十进制数$' pakerr db cr,lf,'?Choose a decimal number ' db 'from 20 to 94 (normal) or to 1000(long)$' cpakerr db cr,lf,'?选择一个 20 到 94 (正常)或 1000(长字节)之间的' db '十进制数字 $' pakhlp db cr,lf,'Decimal number between 20 and 94 (normal) or ' db ' 1000 (long)$' cpakhlp db cr,lf,'在20到94(正常)或1000(长字节)之间的十进制数字$' padhlp db cr,lf,' Decimal number between 0 and 31 or 127$' cpadhlp db cr,lf,' 0 到 31或 127 之间的十进制数字$' pauhlp db ' Decimal number between 0 and 127$' cpauhlp db ' 0 到 127 之间的十进制数字$' quohlp db ' Decimal number between 33 and 126$' cquohlp db ' 33 到 126 之间的十进制数字$' retryhlp db ' Decimal number betwuen 1 and 63$' cretryhlp db ' 1 到 63 之间的十进制数字$' timhlp db ' Decimal number between 0 and 94$' ctimhlp db ' 0 到 94 之间的十进制数字$' delyhlp db ' Delay seconds before sending file (0-63)$' cdelyhlp db ' 发送文件之前延迟秒数 (0-63)$' eschlp db cr,lf,'Press literal control keys (ex: Control ]) or' db ' enter in \nnn numerical form$' ceschlp db cr,lf,'键入单字符控制键(例: Control ])或' db '键入 \nnn 数字化形式$' escerr db cr,lf,'?Not a control code$' cescerr db cr,lf,'?不是一个控制码$' hnd1hlp db cr,lf,'XON (\17), XOFF (\19), CR (\139< LF (\10), BELL (\7),' DB ' ESC (\27), NONE (\09' db cr,lf,' or "CODE" followed by decimal number$' chnd1hlp db cr,lf,'XON (\17), XOFF (\19), CR (\139< LF (\10), BELL (\7),' DB ' ESC (\27), NONE (\09' db cr,lf,' 或 "代码" 后跟一个十进制数$' intoms db 'number of seconds to wait before timeout',cr,lf,'$' cintoms db '超时前等待数秒',cr,lf,'$' loghlp db cr,lf db ' PACKET - during file transfers (to default file PACKET.LOG)' db cr,lf db ' SESSION - during Connect mode (to default file KERMIT.LOG)' db cr,lf db ' TRANSACTION - files transferred(to default file TRANSACT.LOG)' db cr,lf,' followed by an optional filename for the log.$' cloghlp db cr,lf db ' PACKET - 在文件传送时期 (隐含文件 PACKET.LOG)' db cr,lf db ' SESSION - 在 Connect 模式下 (隐含文件 KERMIT.LOG)' db cr,lf db ' TRANSACTION - 被传送的文件 (隐含文件 TRANSACT.LOG)' db cr,lf,' 后接一个可选择的文件名作为记录(LOG)文件$' debhlp db cr,lf,' PACKETS - during file transfers' ; Debugging db cr,lf,' SESSION - during Connect mode' db cr,lf,' ON - both packets and session' db cr,lf,' OFF - turns off all debugging$' cdebhlp db cr,lf,' PACKETS - 文件传送时期' db cr,lf,' SESSION - Connect 模式下的对话' db cr,lf,' ON - 包及对话' db cr,lf,' OFF - 结束所有的调试$' dohlp db cr,lf,'definitions of variables (\%n), or carriage return$' cdohlp db cr,lf,'变量定义(\%n),或<回车>$' sdshlp db cr,lf,'DISABLE or ENABLE access to selected Server commands:' db cr,lf db ' CD/CWD, DEL, DIR< FIN (incl BYE & LOGO), GET, HOST, MESSAGE,' db ' SPACE, TYPE,',cr,lf,' and ALL.' db cr,lf,'Also TEK (automatic invokation of Tek4010 graphics);' db ' not a member of ALL.$' csdshlp db cr,lf,'使选择的下列 Server 命令访问有效(ENABLE)或 无效(DISABLE):' db cr,lf db ' CD/CWD, DEL, DIR, FIN(包括 BYE & LOGO), GET, HOST, MESSAGE,' db ' SPACE, TYPE,',cr,lf,' 和 ALL (所有命令).' db cr,lf,'但是 TEK ( TEK4010 图形的自动启动)' db ' 不包括在 ALL 中.$' servmsg db 'Server commands available to remote user: $' cservmsg db '远程用户可使用的 Server 命令: $' scwdmsg db 'CD/CWD: $' sdelmsg db 'DELETE: $' sdirmsg db 'DIR: $' sfinmsg db 'FINISH: $' sgetmsg db 'GET: $' shstmsg db 'HOST: $' ssndmsg db 'MESSAGE:$' sspcmsg db 'SPACE: $' stypmsg db 'TYPE: $' stekmsg db 'Tek4010: $' srvtab db 1 ; SET SERVER table mkeyw 'Timeout',1 sethlp db cr,lf db ' Alarm sec from now or HH:MM:SS ' db ' Input timeout, etc (for scripts)' db cr,lf db ' Attributes packets on/off ' db ' Key key-ident definition' db cr,lf db ' Baud or Speed many speeds ' db ' Local-echo on/off' db cr,lf db ' Bell on/off at end of xfers ' db ' Mode-line on/off' db cr,lf db ' Block-check-type checksum/CRC ' db ' Parity even/odd/mark/space/none' db cr,lf db ' COUNT number a loop counter ' db ' Port for i/o 1/2/COM1/COM2/etc' db cr,lf db ' Debug on/off display packets ' db ' Prompt string (new Kermit prompt)' db cr,lf db ' Default-disk ' db ' Receive parameter many things' db cr,lf db ' Delay secs before Sending file ' db ' Remote on/off show xfer counts?' db cr,lf db ' Destination Disk/Screen/Printer ' db ' Retry limit for packet send/receive' db cr,lf db ' Display quiet/reg/serial show cnts?' db ' Send parameter many things' db cr,lf db ' Dump filespec screen to disk ' db ' Server parameter' db cr,lf db ' End-of-line char cr or whatever ' db ' Speed or baud many speeds ' db cr,lf db ' EOF Ctrl-Z/NoCtrl-Z ^Z ends file? ' db ' Take-echo on/off display commands?' db cr,lf db ' Errorlevel number for DOS Batch ' db ' Terminal none, Heath-19, VT52, VT102,' db cr,lf db ' Escape char ^] or whatever ' db ' and many terminal setup parameters' db cr,lf db ' Flow-control xon-xoff or none ' db ' Timer on/off time packet waiting' db cr,lf db ' Handshake xon/xoff/cr/lf/bell/esc..' db " Translation IN Connect mode rcv'd char" db cr,lf db ' Incomplete file keep/discard ' db ' Warning on/off if file renamed' db cr,lf,'$' csethlp db cr,lf db ' Alarm 从现在或从HH:MM:SS起的数秒 ' db ' Input timeout, etc (用于Scripts) ' db cr,lf db ' Attributes packets on/off (属性包) ' db ' Key <键标识符> <定义> ' db cr,lf db ' Baud 或 Speed 多种速率 ' db ' Local-echo on/off ' db cr,lf db ' Bell on/off (开/关) 在传送结束后响铃 ' db ' Mode-line on/off(开/关) 状态行' db cr,lf db ' block-check-type checksum/crc ' db ' Parity even/odd/mark/space/none' db cr,lf db ' COUNT <数字> 一个循环计数器 ' db ' Port I/O 端口 1/2/COM1/COM2/etc' db cr,lf db ' Debug on/off 显示包信息 ' db ' Prompt <字符串> (新的 Kermit 提示符)' db cr,lf db ' default-disk (缺省盘) ' db ' Receive <参数> 许多项 ' db cr,lf db ' Delay <秒数> 传送文件之前延迟时间 ' db ' Remote On/off 显示传送统计 ' db cr,lf db ' Destination Disk/screen/Printer ' db ' Retry 包发送/接收的重复次数 ' db cr,lf db ' Display quiet/reg/serial 显示内容的方式' db ' Send <参数> 许多项 ' db cr,lf db ' Dump <文件名> 把屏幕上信息拷到磁盘 ' db ' Server <参数>' db cr,lf db ' End-of-line 字符 或其他 (行结束符) ' db ' Speed 或 Baud 多种速率 ' db cr,lf db ' EOF Ctrl-Z/NoCtrl-Z ^Z 结束文件? ' db ' Take-echo on/off 显示命令' db cr,lf db ' Errorlevel <数值> 用于 DOS 批命令 ' db ' Terminal none,heath-19, VT52, VT102,' db cr,lf db ' Escape 字符 ^] 或 其它 ' db ' 以及许多终端设置的参数 ' db cr,lf db ' Flow-control xon/xoff 或none (流量控制)' db ' Timer on/off 包等待的时间' db cr,lf db ' Handshake xon/xoff/cr/lf/bell/esc(握手)' db ' Translation 转换Connect模式接收的字符' db cr,lf db ' Incomplet file keep/discard ' db ' Warning on/off 假如文件重命名 ' db cr,lf,'$' settab db 37 ; Set table mkeyw 'Alarm',setalrm mkeyw 'Attributes',setatt mkeyw 'Baud',baudst mkeyw 'Bell',bellst mkeyw 'Block-check-type',blkset mkeyw 'Count',takectr mkeyw 'Debug',debst mkeyw 'Default-disk',cwdir mkeyw 'Delay',setdely mkeyw 'Destination',desset mkeyw 'Display',disply mkeyw 'Dump',setdmp mkeyw 'End-of-Line',eolset mkeyw 'EOF',seteof mkeyw 'Errorlevel',seterl mkeyw 'Escape',escset mkeyw 'Flow-control',floset mkeyw 'Handshake',hndset mkeyw 'Incomplete',abfset mkeyw 'Input',inpset mkeyw 'Key',setkey mkeyw 'Local-echo',lcal mkeyw 'Mode-line',modl mkeyw 'Parity',setpar mkeyw 'Port',coms mkeyw 'Prompt',promset mkeyw 'Receive',recset mkeyw 'Remote',remset mkeyw 'Retry',retryset mkeyw 'Send',sendset mkeyw 'Server',setsrv mkeyw 'Speed',baudst mkeyw 'Take-echo',takset mkeyw 'Terminal',vts mkeyw 'Timer',timset mkeyw 'Translation',setrx mkeyw 'Warning',filwar seoftab db 2 mkeyw 'Ctrl-Z',1 mkeyw 'NoCtrl-Z',0 stsrtb db 8 ; Number of options mkeyw 'Packet-length',srpack mkeyw 'Padchar',srpad mkeyw 'Padding',srnpd mkeyw 'Pause',srpaus mkeyw 'Start-of-packet',srsoh mkeyw 'Quote',srquo mkeyw 'End-of-Line',sreol mkeyw 'Timeout',srtim ontab db 2 mkeyw 'off',0 mkeyw 'on',1 modtab db 3 ; Mode line status mkeyw 'off',0 mkeyw 'on',1 mkeyw 'on (owned by host)',2 destab db 3 mkeyw 'Disk',1 mkeyw 'Printer',0 mkeyw 'Screen',2 distab db 5 ; Set Display mode mkeyw '7-bit',7 ; controls bit d8bit in flags.remflg mkeyw '8-bit',8 ; sets d8bit mkeyw 'Quiet',dquiet ; values defined in header file mkeyw 'Regular',dregular mkeyw 'Serial',dserial dissta db 6 ; Status of Display mode [jrd] mkeyw 'Quiet, 7-bit',dquiet mkeyw 'Regular, 7-bit',dregular mkeyw 'Serial, 7-bit',dserial mkeyw 'Quiet, 8-bit',dquiet+d8bit mkeyw 'Regular, 8-bit',dregular+d8bit mkeyw 'Serial, 8-bit',dserial+d8bit ; What type of block check to use blktab db 3 mkeyw '1-character-checksum',1 mkeyw '2-character-checksum',2 mkeyw '3-character-CRC-CCITT',3 ; If abort when receiving files, can keep what we have or discard abftab db 2 mkeyw 'Discard',1 mkeyw 'Keep',0 partab db 5 mkeyw 'none',PARNON mkeyw 'even',PAREVN mkeyw 'odd',PARODD mkeyw 'mark',PARMRK mkeyw 'space',PARSPC flotab db 2 mkeyw 'none',flonon mkeyw 'xon/xoff',floxon hndtab db 8 mkeyw 'none',0 mkeyw 'bell',bell mkeyw 'cr',cr mkeyw 'esc',escape mkeyw 'lf',lf mkeyw 'xoff',xoff mkeyw 'xon',xon mkeyw 'code',0ffh ; allow general numerial code inptab db 4 ; Scripts. Set Input mkeyw 'Case',inpcas ;[jrs] mkeyw 'Default-timeout',inptmo ;[jrs] mkeyw 'Echo',inpeco ;[jrs] mkeyw 'Timeout-action',inpact ;[jrs] inactb db 2 ; Set Input Timeout Action mkeyw 'Proceed',0 ;[jrs] mkeyw 'Quit',1 ;[jrs] incstb db 2 ;[jrs] Set Input Case mkeyw 'Ignore',0dfh ;[jrs] mkeyw 'Observe',0ffh ;[jrs] bdtab db 18 ; Baud rate table mkeyw '45.5',b00455 mkeyw '50',b0050 mkeyw '75',b0075 mkeyw '110',b0110 mkeyw '134.5',b01345 mkeyw '150',b0150 mkeyw '300',b0300 mkeyw '600',b0600 mkeyw '1200',b1200 mkeyw '1800',b1800 mkeyw '2000',b2000 mkeyw '2400',b2400 mkeyw '4800',b4800 mkeyw '9600',b9600 mkeyw '19200',b19200 mkeyw '38400',b38400 mkeyw '57600',b57600 mkeyw '115200',b115200 debtab db 4 ; Set Debug command mkeyw 'Off',0 mkeyw 'On',logpkt+logses mkeyw 'Packets',logpkt mkeyw 'Session',logses logtab db 3 ; LOG command mkeyw 'Packets',logpkt mkeyw 'Session',logses mkeyw 'Transaction',logtrn logsta db 8 ; Log Status table mkeyw 'off',logoff ; suspended or no logging mkeyw 'Packet',logpkt mkeyw 'Session',logses mkeyw 'Packet+Session',logpkt+logses mkeyw 'Transaction',logtrn mkeyw 'Packet+Transaction',logpkt+logtrn mkeyw 'Session+Transaction',logses+logtrn mkeyw 'Packet+Session+Transaction',logpkt+logses+logtrn srvdetab db 12 ; Server Enable/Disable list mkeyw 'All',01ffh mkeyw 'CD',cwdflg mkeyw 'CWD',cwdflg mkeyw 'Delete',delflg mkeyw 'Dir',dirflg mkeyw 'Finish',finflg mkeyw 'Get',getsflg mkeyw 'Host',hostflg mkeyw 'Message',sndflg mkeyw 'Space',spcflg mkeyw 'Type',typflg mkeyw 'Tek4010',tekxflg ; for automatic Tektronix invokation endistab db 2 ; Server ENABLE/DISABLE status mkeyw 'enabled',0 mkeyw 'disabled',1 trnstab db 1 ; Set Translation table mkeyw 'Input',1 ; MACRO DATA STRUCTURES mcctab and macbuf mcctab db 1 ; macro name table, one initially mkeyw 'IBM',ibmmac ; offset of definition string (7 bytes) db (macmax*10 - 7) dup (?) ; room for rest of macro names mcclen equ $-mcctab ; length of mcctab mccptr dw mcctab + 8 ; ptr to first free byte in mcctab macbuf equ this byte ; buffer of macro strings ibmmac db ibmlen ; startup IBM macro definition db 'set timer on',cr,'set parity mark',cr db 'set local-echo on',cr,'set handshake xon',cr db 'set flow none',cr ibmlen equ $-ibmmac-1 db (macmax*60 -ibmlen-1) dup (?) ; space for additonal macro defs maclen equ $ - macbuf ; length of macbuf macptr dw macbuf+ibmlen+1 ; ptr to first free byte in macbuf ; END OF MACRO DATA STRUCTURES shom9m1 db cr,lf,' Free space (bytes) for names: $' cshom9m1 db cr,lf,' 用于<名字>的自由空间(字节)为: $' shom9m2 db ', for definitions: $' cshom9m2 db ', 用于<定义项>: $' shom9m3 db cr,lf,' No macro(s)$' cshom9m3 db cr,lf,' 没有<宏>$' shom9m4 db '$' sttab stent ; STATUS stent ; terminal emulator stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent dw 0 ; end of table csttab stent ; STATUS stent ; terminal emulator stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent dw 0 ; end of table stcom stent ; SHOW COMMS stent stent stent stent stent stent stent dw 0 cstcom stent ; SHOW COMMS stent stent stent stent stent stent stent dw 0 stfile stent ; SHOW FILE stent stent stent stent stent stent stent dw 0 cstfile stent ; SHOW FILE stent stent stent stent stent stent stent dw 0 stlog stent ; SHOW LOG stent stent stent stent stent stent stent stent stent dw 0 cstlog stent ; SHOW LOG stent stent stent stent stent stent stent stent stent dw 0 stpro stent ; SHOW PROTOCOL stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent dw 0 cstpro stent ; SHOW PROTOCOL stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent stent dw 0 stscpt stent ; SHOW SCRIPT stent stent stent stent stent stent stent dw 0 cstscpt stent ; SHOW SCRIPT stent stent stent stent stent stent stent dw 0 stserv stent ; SHOW SERVER stent stent stent stent stent stent stent stent stent dw 0 stserv2 stent dw 0 cstserv stent ; SHOW SERVER stent stent stent stent stent stent stent stent stent dw 0 cstserv2 stent dw 0 stterm stent ; SHOW TERMINAL stent stent stent stent dw 0 cstterm stent ; SHOW TERMINAL stent stent stent stent dw 0 datas ends