home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ccdos / ccsscp.dat < prev    next >
Text File  |  2020-01-01  |  7KB  |  141 lines
  1.  
  2.         include ccsdef.h
  3.  
  4.         public  script, scout, scinp, scpau, scecho, scclr, scxmit, scwait
  5.         public  goto, screinp, ifcmd, setalrm, inptim, chktmo, alrhms
  6.  
  7. linelen         equ     134             ; length of working buffer line
  8. prtbuflen       equ     128             ; serial port local buffer length
  9. maxtry          equ     5               ; maximum number of output retries
  10. stat_unk        equ     0               ; status return codes.
  11. stat_ok         equ     1               ; have a port character
  12. stat_cc         equ     2               ; control-C typed
  13. stat_tmo        equ     4               ; timeout
  14. stat_cr         equ     8               ; carriage return typed
  15.  
  16. ifsuc           equ     0               ; indicators for IF conditions
  17. iffail          equ     1
  18. ifext           equ     2
  19. iferr           equ     3
  20. ifnot           equ     4
  21. ifctr           equ     5
  22. ifmdf           equ     6
  23. ifalarm         equ     7
  24. ifequal         equ     8
  25.  
  26. datas   segment public 'datas'
  27.         extrn   taklev:byte, takadr:word, portval:word, flags:byte
  28.         extrn   rxtable:byte, spause:byte, errlev:byte, fsta:word
  29.         extrn   kstatus:word, mcctab:byte, comand:byte, ttyact:byte
  30.         extrn   isccdos:byte    ; Jun 25,1990
  31.  
  32.                                         ; global (public) variables
  33. script  scptinfo <>                     ; global structure, containing:
  34. ;;inactv        db      0               ; input action value (default proceed)
  35. ;;incasv        db      0dfh            ; input case  (default ignore)
  36. ;;indfto        dw      1               ; input and pause timeout (def 1 sec)
  37. ;;inecho        db      1               ; echo Input cmd text (0 = no)
  38.                                         ; local variables
  39. line    db      linelen+1 dup (?)       ; line of output or input + terminator
  40. prtbuf  db      prtbuflen dup (?)       ; serial port storage buffer
  41. bufcnt  dw      0                       ; serial port buf byte cnt, must be 0
  42. bufrdptr dw     prtbuf                  ; serial port buf read ptr
  43. bufwtptr dw     prtbuf                  ; serial port buf write ptr
  44. bufpkptr dw     prtbuf                  ; peek-read pointer
  45. bufpkcnt dw     0                       ; peek-read byte count remaining
  46. reinflg db      0                       ; 0 = INPUT, else REINPUT command
  47. inplen  dw      0                       ; length of input match string
  48. notflag db      0                       ; IF NOT flag
  49. slablen dw      0                       ; label length, for GOTO
  50. temptr  dw      ?                       ; temporary pointer
  51. temptr2 dw      ?                       ; ditto, points to end of INPUT string
  52. tempd   dw      ?                       ; temp
  53. tempa   db      ?                       ; another temp
  54. retry   db      0                       ; number of output retries
  55. status  dw      ?                       ; general status word
  56. fhandle dw      ?                       ; file handle storage place
  57. parmsk  db      7fh                     ; 7/8 bit parity mask
  58. lecho   db      ?                       ; local echo of output (0 = no)
  59. timout  dw      ?                       ; work area (seconds before timeout)
  60. timhms  db      4 dup (?)               ; hhmmss.s time of day buffer
  61. alrhms  db      4 dup (?)               ; hhmmss.s time of day alarm buffer
  62. eolchr  db      LF                      ; end of line character
  63.  
  64. crlf    db      cr,lf,'$'
  65. xfrfnf  db      cr,lf,'?Transmit file not found$'
  66. cxfrfnf  db      cr,lf,'?╒╥▓╗╡╜╥¬╖ó╦═╡─╬─╝■$'
  67. xfrrer  db      cr,lf,'?error reading Transmit file$'
  68. cxfrrer  db      cr,lf,'?╢┴╖ó╦═(Transmit)╬─╝■┤φ$'
  69. xfrcan  db      cr,lf,'?Transmission canceled$'
  70. cxfrcan  db      cr,lf,'?╚í╧√╖ó╦═╣²│╠$'
  71. indmis  db      '?Indirect file not found',cr,lf,'$'
  72. cindmis  db      '?╒╥▓╗╡╜╝Σ╜╙╬─╝■',cr,lf,'$'
  73. inderr  db      '?error reading indirect file',cr,lf,'$'
  74. cinderr  db      '?╢┴╝Σ╜╙╬─╝■┤φ',cr,lf,'$'
  75. laberr  db      cr,lf,'?Label ":$'
  76. claberr  db      cr,lf,'?▒Ω║┼ ":$'
  77. laberr2 db      '" was not found.',cr,lf,'$'
  78. claberr2 db      '" ╒╥▓╗╡╜.',cr,lf,'$'
  79. tmomsg  db      cr,lf,'?Timeout',cr,'$'
  80. ctmomsg  db      cr,lf,'?│¼╩▒',cr,'$'
  81. outhlp  db      'line of text to be sent to remote host$'
  82. couthlp  db      '╖ó╦═╒²╬─╨╨╡╜╘╢│╠╓≈╗·$'
  83. inphlp  db      'time-limit and line of text expected from remote host'
  84.         db      cr,lf,' Time is number of seconds or until a specific'
  85.         db      ' hh:mm:ss (24 hour clock)$'
  86. cinphlp  db      '╩▒╝Σ╧▐╓╞║═╞┌┤²└┤╫╘╘╢│╠╓≈╗·╡─╒²╬─╨╨'
  87.         db      cr,lf,' ╒Γ╩╟├δ╩²╗≥╥╗╕÷╠╪╢¿╡─╩▒╝Σ'
  88.         db      ' ╩▒:╖╓:├δ (24 ╨í╩▒╩▒╓╙)$'
  89. echhlp  db      'line of text to be Echoed to screen$'
  90. cechhlp  db      '╒²╬─▒╗╗╪╧╘╡╜╞┴─╗$'
  91. ptshlp  db      'amount of time to pause'
  92.         db      cr,lf,' Time is number of seconds or until a specific'
  93.         db      ' hh:mm:ss (24 hour clock)$'
  94. cptshlp  db      '╘▌═ú╩▒╝Σ'
  95.         db      cr,lf,' ╒Γ╩╟├δ╩²╗≥╥╗╕÷╠╪╢¿╡─╩▒╝Σ'
  96.         db      ' ╩▒:╖╓:├δ (24 ╨í╩▒╩▒╓╙)$'
  97. wthlp   db      'time-limit and modem status signals \CD, \CTS, and \DSR'
  98.         db      cr,lf,' Time is number of seconds or until a specific'
  99.         db      ' hh:mm:ss (24 hour clock)$'
  100. cwthlp   db      '╩▒╝Σ╧▐╓╞║═╡≈╓╞╜Γ╡≈╞≈╫┤╠¼╨┼║┼ \CD, \CTS, and \DSR'
  101.         db      cr,lf,' ╒Γ╩╟├δ╩²╗≥╥╗╕÷╠╪╢¿╡─╩▒╝Σ'
  102.         db      ' ╩▒:╖╓:├δ (24 ╨í╩▒╩▒╓╙)$'
  103. xmthlp  db      ' Name of file to be Transmitted$'
  104. cxmthlp  db      ' ▒╗╖ó╦═╡─╬─╝■├√$'
  105. pmthlp  db      cr,lf
  106.         db     ' Prompt character expected as an ACK from host (\0 for none)$'
  107. cpmthlp  db      cr,lf
  108.         db     ' ╧ú═√╫≈╬¬└┤╫╘╓≈╗·╧∞╙ª(ACK)╡─╠ß╩╛╫╓╖√ (\0 ▒φ╩╛├╗╙╨)$'
  109. ifdfhlp db      cr,lf,' Name of macro or variable  then a command$'
  110. cifdfhlp db      cr,lf,' ║Ω╗≥▒Σ┴┐├√║≤╕·╥╗╕÷├ⁿ┴ε$'
  111. alrmhlp db      cr,lf,' Seconds from now or time of day (HH:MM:SS) for alarm,'
  112.         db      ' < 12H from present$'
  113. calrmhlp db      cr,lf,' ┤╙╧╓╘┌┐¬╩╝╡─├δ╩² ╗≥ ╡╜╥╗╠∞╡──│╥╗╩▒┐╠ (╩▒:╖╓:├δ) ▒¿╛»,'
  114.         db      ' ┤╙╧╓╘┌┐¬╩╝╨í╙┌ 12H$'
  115. ifnhlp  db      cr,lf,' Number which errorlevel should match or exceed$'
  116. cifnhlp  db      cr,lf,' errorlevel ╙╨┐╔─▄╞Ñ┼Σ╗≥│¼╣²╡─╩²$'
  117. ifnmsg  db      cr,lf,'?Number expected, ignoring "$'
  118. cifnmsg  db      cr,lf,'?╞┌═√╡─╩², ║÷┬╘ "$'
  119. ifnmsg2 db      '"$'
  120. discard db      ' Kermit command'
  121.         db      cr,lf,' "IF" condition is false, command will be ignored.$'
  122. cdiscard db      ' Kermit ├ⁿ┴ε'
  123.         db      cr,lf,' ╚τ╣√("IF")╠⌡╝■▓╗│╔┴ó(╝┘), ├ⁿ┴ε╜½▒╗║÷┬╘.$'
  124. ifehlp1 db      cr,lf,'?pair of words or variables to be compared$'
  125. cifehlp1 db      cr,lf,'?▒╚╜╧┤╩╗≥▒Σ┴┐╢╘$'
  126. ifehlp2 db      cr,lf,'?second word or variable to be compared$'
  127. cifehlp2 db      cr,lf,'?▒╚╜╧╡┌╢■╕÷┤╩╗≥▒Σ┴┐$'
  128.  
  129. iftable db      9                       ; IF command dispatch table
  130.         mkeyw   'Not',ifnot
  131.         mkeyw   'Alarm',ifalarm
  132.         mkeyw   'Count',ifctr
  133.         mkeyw   'Defined',ifmdf
  134.         mkeyw   'Errorlevel',iferr
  135.         mkeyw   'Equal',ifequal
  136.         mkeyw   'Exist',ifext
  137.         mkeyw   'Failure',iffail
  138.         mkeyw   'Success',ifsuc
  139. datas   ends
  140.  
  141.