public spar, rpar, error, error1, nout, send, flags, trans, pack public dodec, doenc, curchk, inichk, packlen, send11, dtrans, mail include ccsdef.h spmin equ 20 ; Minimum packet size spmax equ 94 ; Maximum packet size datas segment public 'datas' extrn buff:byte, data:byte, filbuf:byte, fsta:word extrn decbuf:byte, chrcnt:word, bufpnt:word, errlev:byte extrn rptq:byte, origr:byte, rptct:byte, rptval:byte, kstatus:word extrn diskio:byte, maxtry:byte, imxtry:byte, portval:word extrn isccdos:byte ; Jun 25,1990 flags flginfo <> trans trinfo <> dtrans trinfo <> ; default trans info pack pktinfo <> crlf db cr,lf,'$' ender db bell,bell,'$' erms14 db '?Unable to receive an acknowledgment from the host$' cerms14 db '?没有接收到来自主机的确认信息 $' erms15 db '?Unable to find file$' cerms15 db '?文件没有找到 $' erms20 db 'Unable to send init packet$' cerms20 db '无法发送初始化包$' erms21 db 'Unable to send file header$' cerms21 db '无法发送文件头 $' erms22 db 'Unable to send data$' cerms22 db '无法发送数据包 $' erms23 db 'Unable to send end-of-file packet$' cerms23 db '无法发送文件结束包 $' erms24 db 'Unable to send break packet$' cerms24 db '无法发送中断包 $' erms25 db 'Host does not support Kermit MAIL command$' cerms25 db '主机不支持 Kermit 的 MAIL 命令 $' erms26 db 'Host reject the file$' cerms26 db '主机拒收这个文件 $' infms2 db cr,' Sending: In progress',cr,lf,'$' cinfms2 db cr,' 发 送 : 正在进行中 ',cr,lf,'$' infms3 db 'Completed',cr,lf,'$' cinfms3 db '已完成 ',cr,lf,'$' infms4 db 'Failed',cr,lf,'$' cinfms4 db '失败了',cr,lf,'$' infms6 db 'Interrupted$' cinfms6 db '被中断 $' remmsg1 db 'Kermit-CC: File not found$' cremmsg1 db 'Kermit-CC: 文件没找到 $' filhlp db ' A filename (possibly wild) $' cfilhlp db '一个文件名 (可以包含替代符) $' filmsg db ' Local Source File or carriage return $' cfilmsg db ' 当地源文件 或 回车 $' remfnm db ' Remote Destination File: $' cremfnm db ' 远程目的文件: $' lclfnm db ' Local Source File: $' clclfnm db ' 当地源文件: $' mailhlp db ' Filename mail-address or carriage return $' cmailhlp db ' 文件名 通讯地址 或 回车 $' mailto db ' Address: $' cmailto db ' 地 址: $' mailtohlp db ' mailer address string (such as user@host or host::user)$' cmailtohlp db ' 通讯地址串 ( 如 用户@主机 或 主机::用户 )$' mailflg db 0 ; 1 if Mail, 0 if Send command curchk db 0 ; Use to store checksum length inichk db 1 ; Original or set checksum length siz dw 0 ; Size of data from gtchr difsiz dw 0 ; Size of new exported file name sendas dw 55 dup(0) ; Buffer for file name and user@host temp dw 0 temp4 dw 0 asmsg db ' as $' casmsg db ' 作为 $' filopn db 0 ninefive dw 95 ; constant word for long packets datas ends