home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ccdos / ccster.dat < prev    next >
Text File  |  2020-01-01  |  5KB  |  102 lines
  1.         public  clscpt, defkey, clscpi, ploghnd, sloghnd, tloghnd
  2.         public  dopar, shokey, cptchr, pktcpt, targ
  3.         public  kbdflg, shkadr, telnet, ttyact
  4.         public  cnvlin, katoi, decout, valout, atoi, cnvstr
  5.         include ccsdef.h
  6.  
  7.  
  8. braceop equ     7bh                     ; opening curly brace
  9. bracecl equ     7dh                     ; closing curly brace
  10.  
  11. datas   segment public 'datas'
  12.         extrn   flags:byte, trans:byte, buff:byte, portval:word
  13.         extrn   isccdos:byte    ; Jun 25,1990
  14.  
  15. targ    termarg <0,1,80,24,cptchr,2dch,0,scntab,deftab,0,,parnon>
  16. crlf    db      cr,lf,'$'
  17. tmsg1   db      cr,lf,'(Connecting to host, type $'
  18. ctmsg1   db      cr,lf,'(┴¼╜╙╡╜╓≈╗·, ┤≥╚δ╝ⁿ $'
  19. tmsg3   db      ' C to return to PC)',cr,lf,cr,lf,cr,lf,'$'
  20. ctmsg3   db      ' C ▒π┐╔╖╡╗╪╡╜▒╛╡╪ PC)',cr,lf,cr,lf,cr,lf,'$'
  21. erms25  db      cr,lf,'?Input must be numeric$'
  22. cerms25  db      cr,lf,'?╩Σ╚δ▒╪╨δ╩╟╩²╫╓$'
  23. erms22  db      cr,lf,'?No open logging file$'
  24. cerms22  db      cr,lf,'?├╗╙╨┤≥┐¬╝╟┬╝╬─╝■$'
  25. erms23  db      cr,lf,'?Error writing session log, suspending capture.'
  26.         db      cr,lf,'$'
  27. cerms23  db      cr,lf,'?╨┤╢╘╗░╝╟┬╝(SESSION LOG)╬─╝■│÷┤φ, ╓╨╓╣▓╢╫╜.'
  28.         db      cr,lf,'$'
  29. erms24  db      cr,lf,'?Error writing Packet log$'
  30. cerms24  db      cr,lf,'?╨┤▒¿╬─╝╟┬╝(PACKET LOG)╬─╝■│÷┤φ$'
  31. esctl   db      'Control-$'
  32.  
  33. inthlp db cr,lf,'  ?  This message                    F  Dump screen to file'
  34.        db cr,lf,'  C  Close the connection            P  Push to DOS'
  35.        db cr,lf,'  S  Status of the connection        Q  Quit logging'
  36.        db cr,lf,'  M  Toggle mode line                R  Resume logging'
  37.        db cr,lf,'  B  Send a Break                    0  Send a null'
  38.        db cr,lf,'  L  Send a long 1.8 s Break         H  Hangup phone'
  39.        db cr,lf,'  Typing the escape character will send it to the host'
  40.        db 0               ; this short-form obscures less screen area [jrd]
  41.  
  42. cinthlp db cr,lf,'  ?  ╛═╩╟╒Γ╨⌐╨┼╧ó                    F  ┐╜▒┤╞┴─╗╨┼╧ó╡╜╬─╝■  '
  43.        db cr,lf, '  C  ╣╪▒╒┴¼╜╙                        P  ═╦╡╜ DOS ╫┤╠¼       '
  44.        db cr,lf, '  S  ╧╘╩╛┴¼╜╙╫┤╠¼                    Q  ═ú╓╣╬─╝■╝╟┬╝        '
  45.        db cr,lf, '  M  ┤Ñ╖ó╫┤╠¼╨╨                      R  ╓╪╨┬┐¬╩╝╬─╝■╝╟┬╝    '
  46.        db cr,lf, '  B  ╖ó╦═╥╗╕÷ Break╫╓╖√              0  ╖ó╦═╥╗╕÷ Null╫╓╖√(0)'
  47.        db cr,lf, '  L  ╖ó╦═│ñ┤∩ 1.8├δ╡─ Break ╫╓╖√┤«   H  ╣╥╡⌠╡τ╗░            '
  48.        db cr,lf, '  ┤≥╚δ═╦│÷╫╓╖√(ESC)╜½▒╗╖ó╦═╡╜╓≈╗·                           '
  49.        db 0               ; this short-form obscures less screen area [jrd]
  50.  
  51. intprm  db      'Command> $'
  52. cintprm  db      '├ⁿ┴ε >> $'
  53. intclet db      'B','C','F','H','L'     ; single letter commands
  54.         db      'M','P','Q','R','S'     ; must parallel dispatch table intcjmp
  55.         db      '?','0'
  56. numlet  equ     $ - intclet             ; number of entries
  57. intcjmp dw      intchb,intchc,intchf,intchh,intchl
  58.         dw      intchm,intchp,intchq,intchr,intchs
  59.         dw      intchu,intchn
  60.  
  61. pktbuf  db      cptsiz dup (?)  ; packet logging buffer
  62. pktbp   dw      pktbuf          ; buffer pointer to next free byte
  63. pktlft  dw      cptsiz          ; number free bytes left
  64. capbuf  db      cptsiz dup (?)  ; session logging buffer
  65. capbp   dw      capbuf          ; buffer pointer to next free byte
  66. caplft  dw      cptsiz          ; number free bytes left
  67.  
  68. ploghnd dw      -1              ; packet logging handle
  69. sloghnd dw      -1              ; session logging handle
  70. tloghnd dw      -1              ; transaction logging handle
  71.  
  72. clotab  db      4
  73.         mkeyw   'All',logpkt+logses+logtrn
  74.         mkeyw   'Packets',logpkt
  75.         mkeyw   'Session',logses
  76.         mkeyw   'Transaction',logtrn
  77.  
  78. clseslog db     cr,lf,' Closing Session log$'
  79. cclseslog db     cr,lf,' ╣╪▒╒╗ß╗░╝╟┬╝(SESSION LOG)$'
  80. clpktlog db     cr,lf,' Closing Packet log$'
  81. cclpktlog db     cr,lf,' ╣╪▒╒▒¿╬─╝╟┬╝(PACKET LOG)'
  82. cltrnlog db     cr,lf,' Closing Transaction log$'
  83. ccltrnlog db     cr,lf,' ╣╪▒╒╧╕─┐╝╟┬╝(TRANSACTION LOG)$'
  84. clohlp  db      cr,lf,' One of following log files:'
  85.         db      cr,lf,' ALL, Packets, Session, Transaction$'
  86. cclohlp  db      cr,lf,' ╧┬┴╨╝╟┬╝╬─╝■╓«╥╗:'
  87.         db      cr,lf,' ALL, Packets, Session, Transaction$'
  88. scntab  dw      0
  89. deftab  dw      0
  90. sttmsg  db      cr,lf,'Type space to continue ...$'
  91. csttmsg  db      cr,lf,'┤≥┐╒╕±╝ⁿ╝╠╨°╓┤╨╨ ...$'
  92. kbdflg  db      0                       ; non-zero means char here from Term
  93. ttyact  db      0                       ; Connect mode active, if non-zero
  94. shkadr  dw      0                       ; offset of replacement Show Key cmd
  95. ten     dw      10                      ; multiplier for setatoi
  96. nbase   dw      ?                       ; currently active number base
  97. numset  db      '0123456789ABCDEF'      ; number conversion alphabet
  98. tmp     db      ?
  99. datas   ends
  100.  
  101.  
  102.