home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ccdos.tar.gz
/
ccdos.tar
/
ccster.dat
< prev
next >
Wrap
Text File
|
1991-09-08
|
5KB
|
102 lines
public clscpt, defkey, clscpi, ploghnd, sloghnd, tloghnd
public dopar, shokey, cptchr, pktcpt, targ
public kbdflg, shkadr, telnet, ttyact
public cnvlin, katoi, decout, valout, atoi, cnvstr
include ccsdef.h
braceop equ 7bh ; opening curly brace
bracecl equ 7dh ; closing curly brace
datas segment public 'datas'
extrn flags:byte, trans:byte, buff:byte, portval:word
extrn isccdos:byte ; Jun 25,1990
targ termarg <0,1,80,24,cptchr,2dch,0,scntab,deftab,0,,parnon>
crlf db cr,lf,'$'
tmsg1 db cr,lf,'(Connecting to host, type $'
ctmsg1 db cr,lf,'(┴¼╜╙╡╜╓≈╗·, ┤≥╚δ╝ⁿ $'
tmsg3 db ' C to return to PC)',cr,lf,cr,lf,cr,lf,'$'
ctmsg3 db ' C ▒π┐╔╖╡╗╪╡╜▒╛╡╪ PC)',cr,lf,cr,lf,cr,lf,'$'
erms25 db cr,lf,'?Input must be numeric$'
cerms25 db cr,lf,'?╩Σ╚δ▒╪╨δ╩╟╩²╫╓$'
erms22 db cr,lf,'?No open logging file$'
cerms22 db cr,lf,'?├╗╙╨┤≥┐¬╝╟┬╝╬─╝■$'
erms23 db cr,lf,'?Error writing session log, suspending capture.'
db cr,lf,'$'
cerms23 db cr,lf,'?╨┤╢╘╗░╝╟┬╝(SESSION LOG)╬─╝■│÷┤φ, ╓╨╓╣▓╢╫╜.'
db cr,lf,'$'
erms24 db cr,lf,'?Error writing Packet log$'
cerms24 db cr,lf,'?╨┤▒¿╬─╝╟┬╝(PACKET LOG)╬─╝■│÷┤φ$'
esctl db 'Control-$'
inthlp db cr,lf,' ? This message F Dump screen to file'
db cr,lf,' C Close the connection P Push to DOS'
db cr,lf,' S Status of the connection Q Quit logging'
db cr,lf,' M Toggle mode line R Resume logging'
db cr,lf,' B Send a Break 0 Send a null'
db cr,lf,' L Send a long 1.8 s Break H Hangup phone'
db cr,lf,' Typing the escape character will send it to the host'
db 0 ; this short-form obscures less screen area [jrd]
cinthlp db cr,lf,' ? ╛═╩╟╒Γ╨⌐╨┼╧ó F ┐╜▒┤╞┴─╗╨┼╧ó╡╜╬─╝■ '
db cr,lf, ' C ╣╪▒╒┴¼╜╙ P ═╦╡╜ DOS ╫┤╠¼ '
db cr,lf, ' S ╧╘╩╛┴¼╜╙╫┤╠¼ Q ═ú╓╣╬─╝■╝╟┬╝ '
db cr,lf, ' M ┤Ñ╖ó╫┤╠¼╨╨ R ╓╪╨┬┐¬╩╝╬─╝■╝╟┬╝ '
db cr,lf, ' B ╖ó╦═╥╗╕÷ Break╫╓╖√ 0 ╖ó╦═╥╗╕÷ Null╫╓╖√(0)'
db cr,lf, ' L ╖ó╦═│ñ┤∩ 1.8├δ╡─ Break ╫╓╖√┤« H ╣╥╡⌠╡τ╗░ '
db cr,lf, ' ┤≥╚δ═╦│÷╫╓╖√(ESC)╜½▒╗╖ó╦═╡╜╓≈╗· '
db 0 ; this short-form obscures less screen area [jrd]
intprm db 'Command> $'
cintprm db '├ⁿ┴ε >> $'
intclet db 'B','C','F','H','L' ; single letter commands
db 'M','P','Q','R','S' ; must parallel dispatch table intcjmp
db '?','0'
numlet equ $ - intclet ; number of entries
intcjmp dw intchb,intchc,intchf,intchh,intchl
dw intchm,intchp,intchq,intchr,intchs
dw intchu,intchn
pktbuf db cptsiz dup (?) ; packet logging buffer
pktbp dw pktbuf ; buffer pointer to next free byte
pktlft dw cptsiz ; number free bytes left
capbuf db cptsiz dup (?) ; session logging buffer
capbp dw capbuf ; buffer pointer to next free byte
caplft dw cptsiz ; number free bytes left
ploghnd dw -1 ; packet logging handle
sloghnd dw -1 ; session logging handle
tloghnd dw -1 ; transaction logging handle
clotab db 4
mkeyw 'All',logpkt+logses+logtrn
mkeyw 'Packets',logpkt
mkeyw 'Session',logses
mkeyw 'Transaction',logtrn
clseslog db cr,lf,' Closing Session log$'
cclseslog db cr,lf,' ╣╪▒╒╗ß╗░╝╟┬╝(SESSION LOG)$'
clpktlog db cr,lf,' Closing Packet log$'
cclpktlog db cr,lf,' ╣╪▒╒▒¿╬─╝╟┬╝(PACKET LOG)'
cltrnlog db cr,lf,' Closing Transaction log$'
ccltrnlog db cr,lf,' ╣╪▒╒╧╕─┐╝╟┬╝(TRANSACTION LOG)$'
clohlp db cr,lf,' One of following log files:'
db cr,lf,' ALL, Packets, Session, Transaction$'
cclohlp db cr,lf,' ╧┬┴╨╝╟┬╝╬─╝■╓«╥╗:'
db cr,lf,' ALL, Packets, Session, Transaction$'
scntab dw 0
deftab dw 0
sttmsg db cr,lf,'Type space to continue ...$'
csttmsg db cr,lf,'┤≥┐╒╕±╝ⁿ╝╠╨°╓┤╨╨ ...$'
kbdflg db 0 ; non-zero means char here from Term
ttyact db 0 ; Connect mode active, if non-zero
shkadr dw 0 ; offset of replacement Show Key cmd
ten dw 10 ; multiplier for setatoi
nbase dw ? ; currently active number base
numset db '0123456789ABCDEF' ; number conversion alphabet
tmp db ?
datas ends