home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ccdos.tar.gz
/
ccdos.tar
/
ccsser.dat
< prev
next >
Wrap
Text File
|
1991-09-08
|
8KB
|
162 lines
public logout, bye, finish, remote, get, server, denyflg, srvtmo
include ccsdef.h
datas segment public 'datas'
extrn data:byte, flags:byte, trans:byte, pack:byte, curchk:byte
extrn curdsk:byte, diskio:byte, locfil:byte, comand:byte, rptq:byte
extrn filtst:byte, maxtry:byte, imxtry:byte, dtrans:byte,fmtdsp:byte
extrn inichk:byte, errlev:byte, portval:word, fsta:word,kstatus:word
extrn isccdos:byte ; Jun 1990
;scrser equ 0209H ; place for server state display line
;scrsrm equ 1000H ; place for messages and dos echoes
scrser dw 0209H ; place for server state display line
scrsrm dw 1000H ; place for messages and dos echoes
cscrser dw 0209H ; place for server state display line
cscrsrm dw 0a00H ; place for messages and dos echoes
remcmd db 0 ; Remote command to be executed
rempac db 0 ; Packet typu: C (host) or G (generic)
remlen db 0 ; length of following text field
ermes1 db cr,lf,'?More parameters are needed$'
cermes1 db cr,lf,'?╨Φ╥¬╕ⁿ╢α▓╬╩² $'
ermes6 db '?Filename too long for packet$'
cermes6 db '?╬─╝■├√│¼╣²┴╦╥╗╕÷░ⁿ│ñ$'
erms18 db '?No response from host$'
cerms18 db '?╓≈╗·├╗╙╨╧∞╙ª $'
infms1 db 'Server mode: type Control-C to exit',cr,lf,'$'
cinfms1 db '╖■╬±╞≈╖╜╩╜: ╝ⁿ╚δ Ctr-C ═╦│÷ ', cr,lf,'$'
inthlp db cr,lf,' Time-limit to remain in Server mode, seconds or'
db ' specific hh:mm:ss ( 24x clock).'
db cr,lf,' SET TIMER ON to time. Return for no time limit.$'
cinthlp db cr,lf,' ╔Φ╓├┤ª╙┌╖■╬±╞≈╖╜╩╜╡─╩▒╝Σ╧▐╓╞,╩²├δ╗≥'
db ' ╚╖╢¿╩▒╝Σ hh:mm:ss (24 ╨í╩▒╓╞). '
db cr,lf,'╔Φ╓├├ⁿ┴ε SET TIMER ON.╓▒╝┤╙├<╗╪│╡>╜½├╗╙╨╩▒╝Σ╧▐╓╞.$'
remms1 db 'Kermit-CC Server: Unknown server command$'
cremms1 db 'Kermit-CC ╖■╬±╞≈: ╬┤╓¬╖■╬±╞≈├ⁿ┴ε$'
remms2 db 'Kermit-CC Server: Illegal file name$'
cremms2 db 'Kermit-CC ╖■╬±╞≈: ╖╟╖¿╬─╝■├√$'
remms3 db 'Kermit-CC Server: Could not create help file$'
cremms3 db 'Kermit-CC ╖■╬±╞≈: ╬▐╖¿▓·╔·╕¿╓·╬─╝■$'
remms4 db 'Kermit-CC Server: Unable to change directories$'
cremms4 db 'Kermit-CC ╖■╬±╞≈: ╬▐╖¿╕─▒Σ╡▒╟░─┐┬╝$'
remms5 db 'Kermit-CC Server: No such file(s)$'
cremms5 db 'Kermit-CC ╖■╬±╞≈: ├╗╙╨╒Γ╤∙╡─╬─╝■ $'
remms6 db 'Kermit-CC Server: Could not create directory listing$'
cremms6 db 'Kermit-CC ╖■╬±╞≈: ╬▐╖¿▓·╔·─┐┬╝┴╨▒φ$'
remms7 db 'Kermit-CC Server: Could not create space listing$'
cremms7 db 'Kermit-CC ╖■╬±╞≈: ╬▐╖¿▓·╔·┐╔╙├┐╒╝Σ┴╨▒φ$'
remms8 db 'Kermit-CC Server: Protected or no such file(s)$'
cremms8 db 'Kermit-CC ╖■╬±╞≈: ╬─╝■▒╗▒ú╗ñ╗≥├╗╙╨╒Γ╤∙╡─╬─╝■$'
remms9 db 'Kermit-CC Server: Command is Disabled$'
cremms9 db 'Kermit-CC ╖■╬±╞≈: ├ⁿ┴ε▓╗─▄╩╣╙├$'
remms10 db 'Kermit-CC Server: Could not create work file$'
cremms10 db 'Kermit-CC ╖■╬±╞≈: ╬▐╖¿▓·╔·╣ñ╫≈╬─╝■$'
byemsg db 'Kermit-CC Server: Goodbye!',0
cbyemsg db 'Kermit-CC ╖■╬±╞≈: ╘┘ ╝√!',0
whomsg db 'Kermit-CC Server: Just this Server',0
cwhomsg db 'Kermit-CC ╖■╬±╞≈: ╒²╩╟╒Γ╕÷╖■╬±╞≈ ',0
spcmsg db ' bytes available on disk',cr,lf,0
cspcmag db ' ┤┼┼╠┐╔╙├╫╓╜┌╩² ',cr,lf,0
spcmsg2 db ' Drive not ready',cr,lf,0
cspcmsg2 db ' ╟²╢»╞≈├╗╫╝▒╕║├ ',cr,lf,0
user db ' Username: $' ; for Remote Login
cuser db ' ╙├╗º├√: $'
password db ' Password: $' ; for Remote Login and Remote CD
cpassword db ' ┐┌ ┴ε : $'
account db ' Account: $' ; for Remote Login
caccount db ' ╒╩ ║┼ : $'
srvtmp db ' >$kermit$.tmp ',0 ; asciiz, kermit's temp output file
delstr db 'del ',0
dirstr db 'dir ',0
crlf db cr,lf,'$'
curstim db ? ; normal waiting time for packets
denyflg dw 0 ; bit field of denied commands
temp dw 0
inpbuf dw 0 ; Pointer to input buffer
cnt dw 0
srvtmo db dstime ; idle NAKs, use default send timeout
srvtime db 0 ; non-zero if timing Server residence
srvchr db 'SRGIEC' ; server cmd characters
srvfln equ $-srvchr ; length of table
srvfun dw srvsnd,srvrcv,srvgen,srvini,rskp,srvhos ; order as in srvchr
remhlp db cr,lf,'CD/CWD change working directory' ; Answer to
db cr,lf,'Delete a file' ; local
db cr,lf,'Directory filespec' ; REM HELP
db cr,lf,'Help'
db cr,lf,'Host command'
db cr,lf,'Login to remote Kermit server'
db cr,lf,'Kermit command'
db cr,lf,'Message short one line message'
db cr,lf,'Spqce in a directory'
db cr,lf,'Type a file'
db cr,lf,'Who user spec$'
; Answer from Server to REMOTE HELP
cremhlp db cr,lf,'CD/CWD ╕─▒Σ╡▒╟░╣ñ╫≈─┐┬╝ '
db cr,lf,'Delete ╔╛│²╥╗╕÷╬─╝■'
db cr,lf,'Directory ╬─╝■├√'
db cr,lf,'Help'
db cr,lf,'Host ╓≈╗·├ⁿ┴ε'
db cr,lf,'Login ╡╟┬╝╘╢│╠ Kermit ╖■╬±╞≈'
db cr,lf,'Message ╝≥╢╠╡─╥╗╨╨╨┼╧ó'
db cr,lf,'Space ╘┌╥╗╕÷─┐┬╝╧┬'
db cr,lf,'Type ┤≥╙í╥╗╕÷╬─╝■'
db cr,lf,'Who ╩╣╙├╒▀╦╡├≈$'
hlprem db cr,lf,'Kermit-CC Server commands:',lf
db cr,lf,'GET filespec REMOTE DELETE filespec '
db 'REMOTE MESSAGE message'
db cr,lf,'SEND filespec REMOTE DIRECTORY filespec '
db 'REMOTE SPQCE'
db cr,lf,'FIN, LOGO, and BYE REMOTE HELP '
db 'REMOTE TYPE filespec'
db cr,lf,'REMOTE CD/CWD directory REMOTE HOST command '
db 'REMOTE WHO',0 ; null terminated
chlprem db cr,lf,'Kermit-CC ╖■╬±╞≈ ├ⁿ┴ε:',lf
db cr,lf,'GET filespec REMOTE DELETE filespec '
db 'REMOTE MESSAGE message'
db cr,lf,'SEND filespec REMOTE DIRECTORY filespec '
db 'REMOTE SPQCE'
db cr,lf,'FIN, LOGO, and BYE REMOTE HELP '
db 'REMOTE TYPE filespec'
db cr,lf,'REMOTE CD/CWD directory REMOTE HOST command '
db 'REMOTE WHO',0 ; null terminated
remtab db 12 ; 12 entries
mkeyw 'CD',remcwd
mkeyw 'CWD',remcwd
mkeyw 'Delete',remdel
mkeyw 'Directory',remdir
mkeyw 'Help',remhel
mkeyw 'Host',remhos
mkeyw 'Kermit',remker
mkeyw 'Login',remlogin
mkeyw 'Message',remmsg
mkeyw 'Space',remdis
mkeyw 'Type',remtyp
mkeyw 'Who',remwho
remfnm db ' Remote Source File: $'
cremfnm db ' ╘╢│╠╘┤╬─╝■: $'
lclfnm db ' Local Destination File: $'
clclfnm db ' ╡▒╡╪─┐╡─╬─╝■: $'
filhlp db ' File name to use locally$'
cfilhlp db ' ╘┌╡▒╡╪╩╣╙├╡─╬─╝■├√$'
filmsg db ' Remote filename or confirm with carriage return $'
cfilmsg db ' ╘╢│╠╬─╝■├√╗≥╙├╗╪│╡╚╖╚╧ $'
frem db ' Name of file on remote system $'
cfrem db ' ╘╢│╠╧╡═│╔╧╡─╬─╝■├√ $'
genmsg db ' Enter text to be sent to remote server $'
cgenmsg db ' ╝ⁿ╚δ╖ó╦═╡╜╘╢│╠╖■╬±╞≈╡─╒²╬─$'
srvbuf db 80H dup (0)
rdbuf db 20 dup (0)
datas ends