home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ccdos / ccsrcv.dat < prev    next >
Text File  |  2020-01-01  |  2KB  |  42 lines
  1.         public  read12, read2, rin21, rfile3, read, updrtr, nak, rrinit
  2.         include ccsdef.h
  3.  
  4. datas   segment public 'datas'
  5.         extrn   data:byte, bufpnt:word, chrcnt:word, curchk:byte, fmtdsp:byte
  6.         extrn   flags:byte, pack:byte, trans:byte, dtrans:byte
  7.         extrn   diskio:byte, locfil:byte, maxtry:byte, imxtry:byte
  8.         extrn   fsta:word, errlev:byte, ofilsz:word, kstatus:word
  9.         extrn   isccdos:byte    ; Jun 25,1990
  10.  
  11. setattr equ     57h                     ; DOS get/set file's date and time
  12.  
  13. ermes7  db      '?Unable to receive initiate-packet$'
  14. cermes7 db      '?▓╗─▄╜╙╩╒│⌡╩╝╨┼╧ó░ⁿ$'
  15. ermes8  db      '?Unable to receive file name$'
  16. cermes8 db      '?▓╗─▄╜╙╩╒╬─╝■├√$'
  17. ermes9  db      '?Unable to receive end of file$'
  18. cermes9 db      '?▓╗─▄╜╙╩╒╬─╝■╡─╜ß╩°╖√$'
  19. erms10  db      '?Unable to receive data$'
  20. cerms10 db      '?▓╗─▄╜╙╩╒╩²╛▌$'
  21. erms11  db      'Not enough disk space for file$'
  22. cerms11 db      '├╗╙╨╫π╣╗┤┼┼╠┐╒╝Σ╕°╬─╝■$'
  23. infms1  db      cr,'           Receiving: In progress',cr,lf,'$'
  24. cinfms1 db      cr,'              ╜╙ ╩╒ : ╘┌╜°╨╨╓╨   ',cr,lf,'$'
  25. infms3  db      'Completed',cr,lf,'$'
  26. cinfms3 db      '╥╤═Ω│╔   ',cr,lf,'$'
  27. infms4  db      'Failed',cr,lf,'$'
  28. cinfms4 db      '╩º░▄┴╦',cr,lf,'$'
  29. infms6  db      'Interrupted',cr,lf,'$'
  30. cinfms6 db      '▒╗╓╨╢╧ ',cr,lf,'$'
  31. donemsg db      '100%$'
  32. filhlp2 db      ' Local path or filename or carriage return$'
  33. cfilhlp2 db     ' ▒╛╡╪┬╖╛╢╗≥╬─╝■├√╗≥╗╪│╡$'
  34. ender   db      bell,bell,'$'
  35. crlf    db      cr,lf,'$'
  36. temp    dw      0
  37. filopn  db      0               ; Says if disk file is open
  38. ftime   db      0,0             ; file time (defaults to 00:00:00)
  39. fdate   db      0,0             ; file date (defaults to 1 Jan 1980)
  40. attrib  db      0               ; attribute code causing file rejection
  41. datas   ends
  42.