public clscpt, defkey, clscpi, ploghnd, sloghnd, tloghnd public dopar, shokey, cptchr, pktcpt, targ public kbdflg, shkadr, telnet, ttyact public cnvlin, katoi, decout, valout, atoi, cnvstr include ccsdef.h braceop equ 7bh ; opening curly brace bracecl equ 7dh ; closing curly brace datas segment public 'datas' extrn flags:byte, trans:byte, buff:byte, portval:word extrn isccdos:byte ; Jun 25,1990 targ termarg <0,1,80,24,cptchr,2dch,0,scntab,deftab,0,,parnon> crlf db cr,lf,'$' tmsg1 db cr,lf,'(Connecting to host, type $' ctmsg1 db cr,lf,'(连接到主机, 打入键 $' tmsg3 db ' C to return to PC)',cr,lf,cr,lf,cr,lf,'$' ctmsg3 db ' C 便可返回到本地 PC)',cr,lf,cr,lf,cr,lf,'$' erms25 db cr,lf,'?Input must be numeric$' cerms25 db cr,lf,'?输入必须是数字$' erms22 db cr,lf,'?No open logging file$' cerms22 db cr,lf,'?没有打开记录文件$' erms23 db cr,lf,'?Error writing session log, suspending capture.' db cr,lf,'$' cerms23 db cr,lf,'?写对话记录(SESSION LOG)文件出错, 中止捕捉.' db cr,lf,'$' erms24 db cr,lf,'?Error writing Packet log$' cerms24 db cr,lf,'?写报文记录(PACKET LOG)文件出错$' esctl db 'Control-$' inthlp db cr,lf,' ? This message F Dump screen to file' db cr,lf,' C Close the connection P Push to DOS' db cr,lf,' S Status of the connection Q Quit logging' db cr,lf,' M Toggle mode line R Resume logging' db cr,lf,' B Send a Break 0 Send a null' db cr,lf,' L Send a long 1.8 s Break H Hangup phone' db cr,lf,' Typing the escape character will send it to the host' db 0 ; this short-form obscures less screen area [jrd] cinthlp db cr,lf,' ? 就是这些信息 F 拷贝屏幕信息到文件 ' db cr,lf, ' C 关闭连接 P 退到 DOS 状态 ' db cr,lf, ' S 显示连接状态 Q 停止文件记录 ' db cr,lf, ' M 触发状态行 R 重新开始文件记录 ' db cr,lf, ' B 发送一个 Break字符 0 发送一个 Null字符(0)' db cr,lf, ' L 发送长达 1.8秒的 Break 字符串 H 挂掉电话 ' db cr,lf, ' 打入退出字符(ESC)将被发送到主机 ' db 0 ; this short-form obscures less screen area [jrd] intprm db 'Command> $' cintprm db '命令 >> $' intclet db 'B','C','F','H','L' ; single letter commands db 'M','P','Q','R','S' ; must parallel dispatch table intcjmp db '?','0' numlet equ $ - intclet ; number of entries intcjmp dw intchb,intchc,intchf,intchh,intchl dw intchm,intchp,intchq,intchr,intchs dw intchu,intchn pktbuf db cptsiz dup (?) ; packet logging buffer pktbp dw pktbuf ; buffer pointer to next free byte pktlft dw cptsiz ; number free bytes left capbuf db cptsiz dup (?) ; session logging buffer capbp dw capbuf ; buffer pointer to next free byte caplft dw cptsiz ; number free bytes left ploghnd dw -1 ; packet logging handle sloghnd dw -1 ; session logging handle tloghnd dw -1 ; transaction logging handle clotab db 4 mkeyw 'All',logpkt+logses+logtrn mkeyw 'Packets',logpkt mkeyw 'Session',logses mkeyw 'Transaction',logtrn clseslog db cr,lf,' Closing Session log$' cclseslog db cr,lf,' 关闭会话记录(SESSION LOG)$' clpktlog db cr,lf,' Closing Packet log$' cclpktlog db cr,lf,' 关闭报文记录(PACKET LOG)' cltrnlog db cr,lf,' Closing Transaction log$' ccltrnlog db cr,lf,' 关闭细目记录(TRANSACTION LOG)$' clohlp db cr,lf,' One of following log files:' db cr,lf,' ALL, Packets, Session, Transaction$' cclohlp db cr,lf,' 下列记录文件之一:' db cr,lf,' ALL, Packets, Session, Transaction$' scntab dw 0 deftab dw 0 sttmsg db cr,lf,'Type space to continue ...$' csttmsg db cr,lf,'打空格键继续执行 ...$' kbdflg db 0 ; non-zero means char here from Term ttyact db 0 ; Connect mode active, if non-zero shkadr dw 0 ; offset of replacement Show Key cmd ten dw 10 ; multiplier for setatoi nbase dw ? ; currently active number base numset db '0123456789ABCDEF' ; number conversion alphabet tmp db ? datas ends