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