home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ccdos.tar.gz
/
ccdos.tar
/
ccssen.dat
< prev
next >
Wrap
Text File
|
1991-09-08
|
3KB
|
77 lines
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