home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ccdos / ccsset1.dat < prev    next >
Text File  |  2020-01-01  |  3KB  |  62 lines
  1.         public setcom, status, baudprt, prmptr, dodef, stat0, statc
  2.         public setcpt, docom, shomac, dmpname, stkadr
  3.         public setrx, shorx, rxtable, shcom, shlog, shpro, shterm, shscpt
  4.         public shfile, srvdsa, srvena, srchkw, srchkb, shserv
  5.         public mcctab, takopen, takclos, ask, assign
  6.         include ccsdef.h
  7.  
  8. braceop equ     7bh                     ; opening curly brace
  9. bracecl equ     7dh                     ; closing curly brace
  10. macmax  equ     50              ; max # of macros
  11. maketab MACRO                   ; Assembler Macro to make rxtable [jrd]
  12. cnt = 0
  13.         rept 256
  14.         db      cnt             ; initialize table to 0 .. 255
  15. cnt = cnt + 1
  16.         endm
  17.         db      0               ; table off (0) or on (1) indicator
  18. ENDM
  19. datas   segment public 'datas'
  20.         extrn   comand:byte, intake:byte, flags:byte, trans:byte
  21.         extrn   takadr:word, taklev:byte, inichk:byte, portval:word
  22.         extrn   curdsk:byte, setktab:byte, setkhlp:byte, dtrans:byte
  23.         extrn   spause:byte, filtst:byte, maxtry:byte, imxtry:byte
  24.         extrn   script:byte, denyflg:word, comptab:byte, termtb:byte
  25.         extrn   sloghnd:word, ploghnd:word, tloghnd:word, decbuf:byte
  26.         extrn   kstatus:word, errlev:byte, alrhms:byte, srvtmo:byte
  27.         extrn   isccdos:byte
  28.  
  29. kerm    db      'Kermit-CC>$'
  30. crlf    db       cr,lf,'$'
  31. crlfsp  db      cr,lf,' ',' ','$'       ; crlf space space
  32. eqs     db      ' = $'
  33. spaces  db      '    $'
  34. prmptr  dw      kerm                    ; pointer to prompt
  35. prm     db      60 dup (?)              ; Buffer for new prompt
  36. rdbuf   db      255 dup (?)             ; work space; room for macro def
  37.                                         ;  and for Status display line
  38. tempptr dw      0                       ; pointer into work buffer
  39. domacptr dw     0                       ; pointer to DO MAC string
  40.  
  41. min     dw      0
  42. max     dw      0
  43. numerr  dw      0
  44. numhlp  dw      0
  45. stflg   db      0               ; Says if setting SEND or RECEIVE parameter
  46. temp    dw      0
  47. temp1   dw      0                       ; Temporary storage
  48. temp2   dw      0                       ; Temporary storage
  49. deftemp dw      0
  50. shmcnt  dw      0
  51.  
  52. stent   struc                   ; structure for status information table sttab
  53. sttyp   dw      ?               ; type (actually routine to call)
  54. msg     dw      ?               ; message to print
  55. val2    dw      ?               ; needed value: another message, or tbl addr
  56. tstcel  dw      ?               ; address of cell to test, in data segment
  57. basval  dw      0               ; base value, if non-zero
  58. stent   ends
  59. ;;;;; Additional datas segment material is at the end of this file, to assist
  60. ;;;;; MASM 4 with out of symbol table space problems.
  61. datas   ends
  62.