public read12, read2, rin21, rfile3, read, updrtr, nak, rrinit include ccsdef.h datas segment public 'datas' extrn data:byte, bufpnt:word, chrcnt:word, curchk:byte, fmtdsp:byte extrn flags:byte, pack:byte, trans:byte, dtrans:byte extrn diskio:byte, locfil:byte, maxtry:byte, imxtry:byte extrn fsta:word, errlev:byte, ofilsz:word, kstatus:word extrn isccdos:byte ; Jun 25,1990 setattr equ 57h ; DOS get/set file's date and time ermes7 db '?Unable to receive initiate-packet$' cermes7 db '?不能接收初始信息包$' ermes8 db '?Unable to receive file name$' cermes8 db '?不能接收文件名$' ermes9 db '?Unable to receive end of file$' cermes9 db '?不能接收文件的结束符$' erms10 db '?Unable to receive data$' cerms10 db '?不能接收数据$' erms11 db 'Not enough disk space for file$' cerms11 db '没有足够磁盘空间给文件$' infms1 db cr,' Receiving: In progress',cr,lf,'$' cinfms1 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',cr,lf,'$' cinfms6 db '被中断 ',cr,lf,'$' donemsg db '100%$' filhlp2 db ' Local path or filename or carriage return$' cfilhlp2 db ' 本地路径或文件名或回车$' ender db bell,bell,'$' crlf db cr,lf,'$' temp dw 0 filopn db 0 ; Says if disk file is open ftime db 0,0 ; file time (defaults to 00:00:00) fdate db 0,0 ; file date (defaults to 1 Jan 1980) attrib db 0 ; attribute code causing file rejection datas ends