home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ccdos / ccsser.dat < prev    next >
Text File  |  2020-01-01  |  8KB  |  162 lines
  1.  
  2.         public  logout, bye, finish, remote, get, server, denyflg, srvtmo
  3.  
  4.         include ccsdef.h
  5.  
  6. datas   segment public 'datas'
  7.         extrn   data:byte, flags:byte, trans:byte, pack:byte, curchk:byte
  8.         extrn   curdsk:byte, diskio:byte, locfil:byte, comand:byte, rptq:byte
  9.         extrn   filtst:byte, maxtry:byte, imxtry:byte, dtrans:byte,fmtdsp:byte
  10.         extrn   inichk:byte, errlev:byte, portval:word, fsta:word,kstatus:word
  11.         extrn   isccdos:byte   ; Jun 1990
  12.  
  13. ;scrser  equ     0209H           ; place for server state display line
  14. ;scrsrm  equ     1000H           ; place for messages and dos echoes
  15.  
  16.  
  17. scrser  dw      0209H           ; place for server state display line
  18. scrsrm  dw      1000H           ; place for messages and dos echoes
  19. cscrser dw      0209H           ; place for server state display line
  20. cscrsrm dw      0a00H           ; place for messages and dos echoes
  21.  
  22. remcmd  db      0               ; Remote command to be executed
  23. rempac  db      0               ; Packet typu: C (host) or G (generic)
  24. remlen  db      0               ; length of following text field
  25.  
  26. ermes1  db      cr,lf,'?More parameters are needed$'
  27. cermes1 db      cr,lf,'?╨Φ╥¬╕ⁿ╢α▓╬╩² $'
  28. ermes6  db      '?Filename too long for packet$'
  29. cermes6 db      '?╬─╝■├√│¼╣²┴╦╥╗╕÷░ⁿ│ñ$'
  30. erms18  db      '?No response from host$'
  31. cerms18 db      '?╓≈╗·├╗╙╨╧∞╙ª $'
  32. infms1  db      'Server mode: type Control-C to exit',cr,lf,'$'
  33. cinfms1 db      '╖■╬±╞≈╖╜╩╜: ╝ⁿ╚δ Ctr-C ═╦│÷     ', cr,lf,'$'
  34. inthlp  db      cr,lf,' Time-limit to remain in Server mode, seconds or'
  35.         db      ' specific hh:mm:ss ( 24x clock).'
  36.         db      cr,lf,' SET TIMER ON to time. Return for no time limit.$'
  37. cinthlp db      cr,lf,' ╔Φ╓├┤ª╙┌╖■╬±╞≈╖╜╩╜╡─╩▒╝Σ╧▐╓╞,╩²├δ╗≥'
  38.         db      ' ╚╖╢¿╩▒╝Σ  hh:mm:ss (24 ╨í╩▒╓╞).  '
  39.         db      cr,lf,'╔Φ╓├├ⁿ┴ε SET TIMER ON.╓▒╝┤╙├<╗╪│╡>╜½├╗╙╨╩▒╝Σ╧▐╓╞.$'
  40. remms1  db      'Kermit-CC Server: Unknown server command$'
  41. cremms1 db      'Kermit-CC ╖■╬±╞≈: ╬┤╓¬╖■╬±╞≈├ⁿ┴ε$'
  42. remms2  db      'Kermit-CC Server: Illegal file name$'
  43. cremms2 db      'Kermit-CC ╖■╬±╞≈: ╖╟╖¿╬─╝■├√$'
  44. remms3  db      'Kermit-CC Server: Could not create help file$'
  45. cremms3 db      'Kermit-CC ╖■╬±╞≈: ╬▐╖¿▓·╔·╕¿╓·╬─╝■$'
  46. remms4  db      'Kermit-CC Server: Unable to change directories$'
  47. cremms4 db      'Kermit-CC ╖■╬±╞≈: ╬▐╖¿╕─▒Σ╡▒╟░─┐┬╝$'
  48. remms5  db      'Kermit-CC Server: No such file(s)$'
  49. cremms5 db      'Kermit-CC ╖■╬±╞≈: ├╗╙╨╒Γ╤∙╡─╬─╝■ $'
  50. remms6  db      'Kermit-CC Server: Could not create directory listing$'
  51. cremms6 db      'Kermit-CC ╖■╬±╞≈: ╬▐╖¿▓·╔·─┐┬╝┴╨▒φ$'
  52. remms7  db      'Kermit-CC Server: Could not create space listing$'
  53. cremms7 db      'Kermit-CC ╖■╬±╞≈: ╬▐╖¿▓·╔·┐╔╙├┐╒╝Σ┴╨▒φ$'
  54. remms8  db      'Kermit-CC Server: Protected or no such file(s)$'
  55. cremms8 db      'Kermit-CC ╖■╬±╞≈: ╬─╝■▒╗▒ú╗ñ╗≥├╗╙╨╒Γ╤∙╡─╬─╝■$'
  56. remms9  db      'Kermit-CC Server: Command is Disabled$'
  57. cremms9 db      'Kermit-CC ╖■╬±╞≈: ├ⁿ┴ε▓╗─▄╩╣╙├$'
  58. remms10 db      'Kermit-CC Server: Could not create work file$'
  59. cremms10 db     'Kermit-CC ╖■╬±╞≈: ╬▐╖¿▓·╔·╣ñ╫≈╬─╝■$'
  60. byemsg  db      'Kermit-CC Server:  Goodbye!',0
  61. cbyemsg db      'Kermit-CC ╖■╬±╞≈:   ╘┘ ╝√!',0  
  62. whomsg  db      'Kermit-CC Server: Just this Server',0
  63. cwhomsg db      'Kermit-CC ╖■╬±╞≈: ╒²╩╟╒Γ╕÷╖■╬±╞≈  ',0
  64. spcmsg  db      ' bytes available on disk',cr,lf,0
  65. cspcmag db      ' ┤┼┼╠┐╔╙├╫╓╜┌╩² ',cr,lf,0
  66. spcmsg2 db      ' Drive not ready',cr,lf,0
  67. cspcmsg2 db     ' ╟²╢»╞≈├╗╫╝▒╕║├ ',cr,lf,0
  68. user    db      ' Username: $'          ; for Remote Login
  69. cuser   db      ' ╙├╗º├√: $' 
  70. password db     ' Password: $'          ; for Remote Login and Remote CD
  71. cpassword db    '  ┐┌ ┴ε : $'      
  72. account db      ' Account: $'           ; for Remote Login
  73. caccount db     '  ╒╩ ║┼ : $'
  74. srvtmp  db      ' >$kermit$.tmp ',0     ; asciiz, kermit's temp output file
  75. delstr  db      'del ',0
  76. dirstr  db      'dir ',0
  77. crlf    db      cr,lf,'$'
  78. curstim db      ?                       ; normal waiting time for packets
  79. denyflg dw      0                       ; bit field of denied commands
  80. temp    dw      0
  81. inpbuf  dw      0                       ; Pointer to input buffer
  82. cnt     dw      0
  83. srvtmo  db      dstime                  ; idle NAKs, use default send timeout
  84. srvtime db      0                       ; non-zero if timing Server residence
  85. srvchr  db      'SRGIEC'                ; server cmd characters
  86. srvfln  equ     $-srvchr                ; length of table
  87. srvfun  dw      srvsnd,srvrcv,srvgen,srvini,rskp,srvhos ; order as in srvchr
  88.  
  89. remhlp  db      cr,lf,'CD/CWD     change working directory'     ; Answer to
  90.         db      cr,lf,'Delete     a file'                       ; local
  91.         db      cr,lf,'Directory  filespec'                     ; REM HELP
  92.         db      cr,lf,'Help'
  93.         db      cr,lf,'Host       command'
  94.         db      cr,lf,'Login      to remote Kermit server'
  95.         db      cr,lf,'Kermit     command'
  96.         db      cr,lf,'Message    short one line message'
  97.         db      cr,lf,'Spqce      in a directory'
  98.         db      cr,lf,'Type       a file'
  99.         db      cr,lf,'Who        user spec$'
  100.  
  101.                                         ; Answer from Server to REMOTE HELP
  102. cremhlp db      cr,lf,'CD/CWD     ╕─▒Σ╡▒╟░╣ñ╫≈─┐┬╝ '
  103.         db      cr,lf,'Delete     ╔╛│²╥╗╕÷╬─╝■'
  104.         db      cr,lf,'Directory  ╬─╝■├√'
  105.         db      cr,lf,'Help'
  106.         db      cr,lf,'Host       ╓≈╗·├ⁿ┴ε'
  107.         db      cr,lf,'Login      ╡╟┬╝╘╢│╠ Kermit ╖■╬±╞≈'
  108.         db      cr,lf,'Message    ╝≥╢╠╡─╥╗╨╨╨┼╧ó'
  109.         db      cr,lf,'Space      ╘┌╥╗╕÷─┐┬╝╧┬'
  110.         db      cr,lf,'Type       ┤≥╙í╥╗╕÷╬─╝■'
  111.         db      cr,lf,'Who        ╩╣╙├╒▀╦╡├≈$'
  112.       
  113. hlprem  db      cr,lf,'Kermit-CC Server commands:',lf
  114.         db      cr,lf,'GET filespec             REMOTE DELETE filespec    '
  115.         db      'REMOTE MESSAGE message'
  116.         db      cr,lf,'SEND filespec            REMOTE DIRECTORY filespec '
  117.         db      'REMOTE SPQCE'
  118.         db      cr,lf,'FIN, LOGO, and BYE       REMOTE HELP               '
  119.         db      'REMOTE TYPE filespec'
  120.         db      cr,lf,'REMOTE CD/CWD directory  REMOTE HOST command       '
  121.         db      'REMOTE WHO',0                          ; null terminated
  122.       
  123. chlprem  db      cr,lf,'Kermit-CC ╖■╬±╞≈ ├ⁿ┴ε:',lf
  124.         db      cr,lf,'GET filespec             REMOTE DELETE filespec    '
  125.         db      'REMOTE MESSAGE message'
  126.         db      cr,lf,'SEND filespec            REMOTE DIRECTORY filespec '
  127.         db      'REMOTE SPQCE'
  128.         db      cr,lf,'FIN, LOGO, and BYE       REMOTE HELP               '
  129.         db      'REMOTE TYPE filespec'
  130.         db      cr,lf,'REMOTE CD/CWD directory  REMOTE HOST command       '
  131.         db      'REMOTE WHO',0                          ; null terminated
  132.  
  133. remtab  db      12                      ; 12 entries
  134.         mkeyw   'CD',remcwd
  135.         mkeyw   'CWD',remcwd
  136.         mkeyw   'Delete',remdel
  137.         mkeyw   'Directory',remdir
  138.         mkeyw   'Help',remhel
  139.         mkeyw   'Host',remhos
  140.         mkeyw   'Kermit',remker
  141.         mkeyw   'Login',remlogin
  142.         mkeyw   'Message',remmsg
  143.         mkeyw   'Space',remdis
  144.         mkeyw   'Type',remtyp
  145.         mkeyw   'Who',remwho
  146.  
  147. remfnm  db      ' Remote Source File: $'
  148. cremfnm  db      ' ╘╢│╠╘┤╬─╝■: $'
  149. lclfnm  db      ' Local Destination File: $'
  150. clclfnm db      ' ╡▒╡╪─┐╡─╬─╝■: $'
  151. filhlp  db      ' File name to use locally$'
  152. cfilhlp db      ' ╘┌╡▒╡╪╩╣╙├╡─╬─╝■├√$'
  153. filmsg  db      ' Remote filename or confirm with carriage return $'
  154. cfilmsg db      ' ╘╢│╠╬─╝■├√╗≥╙├╗╪│╡╚╖╚╧ $'
  155. frem    db      ' Name of file on remote system $'
  156. cfrem   db      ' ╘╢│╠╧╡═│╔╧╡─╬─╝■├√ $'
  157. genmsg  db      ' Enter text to be sent to remote server $'
  158. cgenmsg db      ' ╝ⁿ╚δ╖ó╦═╡╜╘╢│╠╖■╬±╞≈╡─╒²╬─$'
  159. srvbuf  db      80H dup (0)
  160. rdbuf   db      20 dup (0)
  161. datas   ends
  162.