public logout, bye, finish, remote, get, server, denyflg, srvtmo include ccsdef.h datas segment public 'datas' extrn data:byte, flags:byte, trans:byte, pack:byte, curchk:byte extrn curdsk:byte, diskio:byte, locfil:byte, comand:byte, rptq:byte extrn filtst:byte, maxtry:byte, imxtry:byte, dtrans:byte,fmtdsp:byte extrn inichk:byte, errlev:byte, portval:word, fsta:word,kstatus:word extrn isccdos:byte ; Jun 1990 ;scrser equ 0209H ; place for server state display line ;scrsrm equ 1000H ; place for messages and dos echoes scrser dw 0209H ; place for server state display line scrsrm dw 1000H ; place for messages and dos echoes cscrser dw 0209H ; place for server state display line cscrsrm dw 0a00H ; place for messages and dos echoes remcmd db 0 ; Remote command to be executed rempac db 0 ; Packet typu: C (host) or G (generic) remlen db 0 ; length of following text field ermes1 db cr,lf,'?More parameters are needed$' cermes1 db cr,lf,'?需要更多参数 $' ermes6 db '?Filename too long for packet$' cermes6 db '?文件名超过了一个包长$' erms18 db '?No response from host$' cerms18 db '?主机没有响应 $' infms1 db 'Server mode: type Control-C to exit',cr,lf,'$' cinfms1 db '服务器方式: 键入 Ctr-C 退出 ', cr,lf,'$' inthlp db cr,lf,' Time-limit to remain in Server mode, seconds or' db ' specific hh:mm:ss ( 24x clock).' db cr,lf,' SET TIMER ON to time. Return for no time limit.$' cinthlp db cr,lf,' 设置处于服务器方式的时间限制,数秒或' db ' 确定时间 hh:mm:ss (24 小时制). ' db cr,lf,'设置命令 SET TIMER ON.直即用<回车>将没有时间限制.$' remms1 db 'Kermit-CC Server: Unknown server command$' cremms1 db 'Kermit-CC 服务器: 未知服务器命令$' remms2 db 'Kermit-CC Server: Illegal file name$' cremms2 db 'Kermit-CC 服务器: 非法文件名$' remms3 db 'Kermit-CC Server: Could not create help file$' cremms3 db 'Kermit-CC 服务器: 无法产生辅助文件$' remms4 db 'Kermit-CC Server: Unable to change directories$' cremms4 db 'Kermit-CC 服务器: 无法改变当前目录$' remms5 db 'Kermit-CC Server: No such file(s)$' cremms5 db 'Kermit-CC 服务器: 没有这样的文件 $' remms6 db 'Kermit-CC Server: Could not create directory listing$' cremms6 db 'Kermit-CC 服务器: 无法产生目录列表$' remms7 db 'Kermit-CC Server: Could not create space listing$' cremms7 db 'Kermit-CC 服务器: 无法产生可用空间列表$' remms8 db 'Kermit-CC Server: Protected or no such file(s)$' cremms8 db 'Kermit-CC 服务器: 文件被保护或没有这样的文件$' remms9 db 'Kermit-CC Server: Command is Disabled$' cremms9 db 'Kermit-CC 服务器: 命令不能使用$' remms10 db 'Kermit-CC Server: Could not create work file$' cremms10 db 'Kermit-CC 服务器: 无法产生工作文件$' byemsg db 'Kermit-CC Server: Goodbye!',0 cbyemsg db 'Kermit-CC 服务器: 再 见!',0 whomsg db 'Kermit-CC Server: Just this Server',0 cwhomsg db 'Kermit-CC 服务器: 正是这个服务器 ',0 spcmsg db ' bytes available on disk',cr,lf,0 cspcmag db ' 磁盘可用字节数 ',cr,lf,0 spcmsg2 db ' Drive not ready',cr,lf,0 cspcmsg2 db ' 驱动器没准备好 ',cr,lf,0 user db ' Username: $' ; for Remote Login cuser db ' 用户名: $' password db ' Password: $' ; for Remote Login and Remote CD cpassword db ' 口 令 : $' account db ' Account: $' ; for Remote Login caccount db ' 帐 号 : $' srvtmp db ' >$kermit$.tmp ',0 ; asciiz, kermit's temp output file delstr db 'del ',0 dirstr db 'dir ',0 crlf db cr,lf,'$' curstim db ? ; normal waiting time for packets denyflg dw 0 ; bit field of denied commands temp dw 0 inpbuf dw 0 ; Pointer to input buffer cnt dw 0 srvtmo db dstime ; idle NAKs, use default send timeout srvtime db 0 ; non-zero if timing Server residence srvchr db 'SRGIEC' ; server cmd characters srvfln equ $-srvchr ; length of table srvfun dw srvsnd,srvrcv,srvgen,srvini,rskp,srvhos ; order as in srvchr remhlp db cr,lf,'CD/CWD change working directory' ; Answer to db cr,lf,'Delete a file' ; local db cr,lf,'Directory filespec' ; REM HELP db cr,lf,'Help' db cr,lf,'Host command' db cr,lf,'Login to remote Kermit server' db cr,lf,'Kermit command' db cr,lf,'Message short one line message' db cr,lf,'Spqce in a directory' db cr,lf,'Type a file' db cr,lf,'Who user spec$' ; Answer from Server to REMOTE HELP cremhlp db cr,lf,'CD/CWD 改变当前工作目录 ' db cr,lf,'Delete 删除一个文件' db cr,lf,'Directory 文件名' db cr,lf,'Help' db cr,lf,'Host 主机命令' db cr,lf,'Login 登录远程 Kermit 服务器' db cr,lf,'Message 简短的一行信息' db cr,lf,'Space 在一个目录下' db cr,lf,'Type 打印一个文件' db cr,lf,'Who 使用者说明$' hlprem db cr,lf,'Kermit-CC Server commands:',lf db cr,lf,'GET filespec REMOTE DELETE filespec ' db 'REMOTE MESSAGE message' db cr,lf,'SEND filespec REMOTE DIRECTORY filespec ' db 'REMOTE SPQCE' db cr,lf,'FIN, LOGO, and BYE REMOTE HELP ' db 'REMOTE TYPE filespec' db cr,lf,'REMOTE CD/CWD directory REMOTE HOST command ' db 'REMOTE WHO',0 ; null terminated chlprem db cr,lf,'Kermit-CC 服务器 命令:',lf db cr,lf,'GET filespec REMOTE DELETE filespec ' db 'REMOTE MESSAGE message' db cr,lf,'SEND filespec REMOTE DIRECTORY filespec ' db 'REMOTE SPQCE' db cr,lf,'FIN, LOGO, and BYE REMOTE HELP ' db 'REMOTE TYPE filespec' db cr,lf,'REMOTE CD/CWD directory REMOTE HOST command ' db 'REMOTE WHO',0 ; null terminated remtab db 12 ; 12 entries mkeyw 'CD',remcwd mkeyw 'CWD',remcwd mkeyw 'Delete',remdel mkeyw 'Directory',remdir mkeyw 'Help',remhel mkeyw 'Host',remhos mkeyw 'Kermit',remker mkeyw 'Login',remlogin mkeyw 'Message',remmsg mkeyw 'Space',remdis mkeyw 'Type',remtyp mkeyw 'Who',remwho remfnm db ' Remote Source File: $' cremfnm db ' 远程源文件: $' lclfnm db ' Local Destination File: $' clclfnm db ' 当地目的文件: $' filhlp db ' File name to use locally$' cfilhlp db ' 在当地使用的文件名$' filmsg db ' Remote filename or confirm with carriage return $' cfilmsg db ' 远程文件名或用回车确认 $' frem db ' Name of file on remote system $' cfrem db ' 远程系统上的文件名 $' genmsg db ' Enter text to be sent to remote server $' cgenmsg db ' 键入发送到远程服务器的正文$' srvbuf db 80H dup (0) rdbuf db 20 dup (0) datas ends