home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ccdos / ccscom.dat < prev    next >
Text File  |  2020-01-01  |  3KB  |  68 lines
  1.         public  data, spack, rpack, portval, port1, port2, port3, port4, hierr
  2.         public  prtbase, nports, sleep, spause
  3.  
  4.         include ccsdef.h
  5.  
  6. biostod equ     1ah             ; Bios time of day tic routine
  7. stat_suc equ    0               ; success
  8. stat_tmo equ    1               ; timeout
  9. stat_chk equ    2               ; checksum mismatch
  10. stat_ptl equ    4               ; packet too long
  11. stat_int equ    8               ; user interrupt
  12. stat_eol equ    10h             ; eol char seen
  13.  
  14. datas   segment public 'datas'
  15.         extrn   flags:byte, trans:byte, pack:byte, fsta:word, fmtdsp:byte
  16.         extrn   isccdos:byte    ; Jun 25,1990
  17.  
  18. prtbase label   byte
  19. port1   prtinfo <0FFFH,0,defpar,1,0,defhand,floxon>
  20. port2   prtinfo <0FFFH,0,defpar,1,0,defhand,floxon>
  21. port3   prtinfo <0FFFH,0,defpar,1,0,defhand,floxon>
  22. port4   prtinfo <0FFFH,0,defpar,1,0,defhand,floxon>
  23.         rept    portmax-4
  24.         prtinfo <0FFFH,0,defpar,1,0,defhand,floxon>
  25.         endm
  26.  
  27. ;; systems with two ports can set portval to port1 or port2.
  28. ;; systems with more than two ports can set nports higher,
  29. ;; then set portval to the address prtbase+(#-1)*size prtinfo
  30. ;; where # is the desired port.
  31.  
  32. portval dw      port1           ; Default is to use port 1.
  33. nports  db      2               ; # of known ports
  34. hierr   db      0               ; Non-ascii char (non-zero if yes).
  35. parmsk  db      0ffh            ; parity mask (0FFH for 8bit data path) [umd]
  36. spmes   db      'Spack: $'
  37. rpmes   db      'Rpack: $'
  38. crlf    db      cr,lf,'$'
  39. cemsg   db      'User intervention$'
  40. ccemsg   db     '╙├╗º╕╔╘ñ$'
  41.  
  42. sixzero dw      60              ; for div operation in rec packet timeouts
  43. ninefive dw     95              ; for mult/div with long packets
  44. temp    dw      0
  45. tmp     db      0
  46. linecnt dw      0               ; debug line width counter
  47. spause  db      0               ; # millisec to wait before sending pkt
  48. prvtyp  db      0               ; Type of last packet sent
  49. pktptr  dw      0               ; Position in receive packet.
  50. chksum  dw      0               ; running checksum (two char)
  51. chrcnt  dw      0               ; number of bytes in data field of a packet
  52. status  dw      0               ; status of packet receiver (0 = ok)
  53. pktype  db      0               ; received packet TYPE holding area
  54. debflg  db      0               ; debug display, send/receive flag
  55. tmpflg  db      0               ; flags.cxzflg at entry to rpack
  56. timeit  db      0               ; arm timeout counter
  57. fairflg dw      0               ; fairness flag, for console/port reads.
  58. time    dw      2 dup (0)       ; Sleep, when we should timeout.
  59. rptim   db      4 dup (0)       ; read packet timeout slots
  60. spkcnt  dw      0               ; number of bytes sent in this packet
  61. rpkcnt  dw      0               ; number of bytes received in this packet
  62.  
  63.                                 ; Prolog, Data, Trailer must be kept together
  64. prolog  db      8 dup (?)       ; Packet header (SOH, LEN, SEQ, TYPE, xlen)
  65. data    db      maxpack+10 dup (?) ; Data field of packet (used in many places)
  66.                                 ; checksum, eol, handshake + null term
  67. datas   ends
  68.