home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ccdos / ccssen.dat < prev    next >
Text File  |  2020-01-01  |  3KB  |  77 lines
  1.         public  spar, rpar, error, error1, nout, send, flags, trans, pack
  2.         public  dodec, doenc, curchk, inichk, packlen, send11, dtrans, mail
  3.         include ccsdef.h
  4.  
  5. spmin   equ     20              ; Minimum packet size
  6. spmax   equ     94              ; Maximum packet size
  7.  
  8. datas   segment public 'datas'
  9.         extrn   buff:byte, data:byte, filbuf:byte, fsta:word
  10.         extrn   decbuf:byte, chrcnt:word, bufpnt:word, errlev:byte
  11.         extrn   rptq:byte, origr:byte, rptct:byte, rptval:byte, kstatus:word
  12.         extrn   diskio:byte, maxtry:byte, imxtry:byte, portval:word
  13.         extrn   isccdos:byte    ; Jun 25,1990
  14.  
  15. flags   flginfo <>
  16. trans   trinfo  <>
  17. dtrans  trinfo  <>                      ; default trans info
  18. pack    pktinfo <>
  19. crlf    db      cr,lf,'$'
  20. ender   db      bell,bell,'$'
  21. erms14  db      '?Unable to receive an acknowledgment from the host$'
  22. cerms14 db      '?├╗╙╨╜╙╩╒╡╜└┤╫╘╓≈╗·╡─╚╖╚╧╨┼╧ó $'             
  23. erms15  db      '?Unable to find file$'
  24. cerms15 db      '?╬─╝■├╗╙╨╒╥╡╜ $'
  25. erms20  db      'Unable to send init packet$'
  26. cerms20 db      '╬▐╖¿╖ó╦═│⌡╩╝╗»░ⁿ$'
  27. erms21  db      'Unable to send file header$'
  28. cerms21 db      '╬▐╖¿╖ó╦═╬─╝■═╖ $'
  29. erms22  db      'Unable to send data$'
  30. cerms22 db      '╬▐╖¿╖ó╦═╩²╛▌░ⁿ $'
  31. erms23  db      'Unable to send end-of-file packet$'
  32. cerms23 db      '╬▐╖¿╖ó╦═╬─╝■╜ß╩°░ⁿ $'
  33. erms24  db      'Unable to send break packet$'
  34. cerms24 db      '╬▐╖¿╖ó╦═╓╨╢╧░ⁿ $' 
  35. erms25  db      'Host does not support Kermit MAIL command$'
  36. cerms25 db      '╓≈╗·▓╗╓º│╓ Kermit ╡─ MAIL ├ⁿ┴ε $'
  37. erms26  db      'Host reject the file$'
  38. cerms26 db      '╓≈╗·╛▄╩╒╒Γ╕÷╬─╝■ $' 
  39. infms2  db      cr,'             Sending: In progress',cr,lf,'$'
  40. cinfms2 db      cr,'             ╖ó  ╦═ : ╒²╘┌╜°╨╨╓╨   ',cr,lf,'$'
  41. infms3  db      'Completed',cr,lf,'$'
  42. cinfms3 db      '╥╤═Ω│╔   ',cr,lf,'$'
  43. infms4  db      'Failed',cr,lf,'$'
  44. cinfms4 db      '╩º░▄┴╦',cr,lf,'$'
  45. infms6  db      'Interrupted$'
  46. cinfms6 db      '▒╗╓╨╢╧ $'
  47. remmsg1 db      'Kermit-CC: File not found$'
  48. cremmsg1 db     'Kermit-CC: ╬─╝■├╗╒╥╡╜ $'
  49. filhlp  db      ' A filename (possibly wild) $'
  50. cfilhlp db      '╥╗╕÷╬─╝■├√ (┐╔╥╘░ⁿ║¼╠µ┤·╖√) $' 
  51. filmsg  db      ' Local Source File   or carriage return $'
  52. cfilmsg db      ' ╡▒╡╪╘┤╬─╝■ ╗≥ ╗╪│╡ $'
  53. remfnm  db      ' Remote Destination File: $'
  54. cremfnm db      ' ╘╢│╠─┐╡─╬─╝■: $'
  55. lclfnm  db      ' Local Source File: $'
  56. clclfnm db      ' ╡▒╡╪╘┤╬─╝■: $'
  57. mailhlp db      ' Filename  mail-address   or carriage return $'
  58. cmailhlp db     ' ╬─╝■├√    ═¿╤╢╡╪╓╖   ╗≥ ╗╪│╡ $'
  59. mailto  db      ' Address: $'
  60. cmailto db      '  ╡╪ ╓╖: $'
  61. mailtohlp db    ' mailer address string (such as user@host or host::user)$'
  62. cmailtohlp db   ' ═¿╤╢╡╪╓╖┤« ( ╚τ ╙├╗º@╓≈╗· ╗≥ ╓≈╗·::╙├╗º )$'   
  63. mailflg db      0               ; 1 if Mail, 0 if Send command
  64. curchk  db      0               ; Use to store checksum length
  65. inichk  db      1               ; Original or set checksum length
  66. siz     dw      0               ; Size of data from gtchr
  67. difsiz  dw      0               ; Size of new exported file name
  68. sendas  dw      55 dup(0)       ; Buffer for file name and user@host
  69. temp    dw      0
  70. temp4   dw      0
  71. asmsg   db      '  as  $'
  72. casmsg  db      ' ╫≈╬¬ $'
  73. filopn  db  0
  74. ninefive dw     95              ; constant word for long packets
  75. datas   ends
  76.  
  77.