home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / decpro300 / procmn.mac < prev    next >
Text File  |  2020-01-01  |  4KB  |  148 lines
  1.     .TITLE    KERCMN - COMMON BLOCK
  2.     .SBTTL    Robert McQueen/S Hecht/D Stevens
  3.  
  4. ; This is the common storage for KERMIT.TSK and KERFIL.TSK
  5.  
  6. ; Version number
  7.  
  8.     .IDENT    /1.0.02/
  9.  
  10. ; Directives
  11.  
  12.     .LIBRARY /KERMLB/        ; Kermit library
  13.  
  14.     .SBTTL    Revision History
  15.  
  16. ;++
  17. ; 1.0.00    By: Authors        On: Many days
  18. ;        Create this module
  19. ;
  20. ; 1.0.01    By: Robert C. McQueen    On: 15-Feb-1984
  21. ;        Remove some unused locations.
  22. ;
  23. ; 1.0.02    By: Robert C. McQueen        On: 13-April-1984
  24. ;        Move some of the KERCON storage to the common, so that KERCON
  25. ;        can become a seperate task.
  26. ;--
  27.  
  28.     .SBTTL    External macro references
  29.  
  30. ;++
  31. ; The following will allow the external macro references.
  32. ;--
  33.  
  34.     .MCALL    CHRDEF
  35.     CHRDEF                ; Get the character definitions
  36.  
  37.     .MCALL    KERDEF            ; Kermit definitions
  38.     KERDEF                ; Get the kermit definitions
  39.  
  40.     .PSECT    $GLOB$, RW, D
  41.  
  42. ;
  43. ; Intertask communication information
  44. ;
  45. RUN::    .BLKW    1            ; Contains a bit to say if
  46.                     ;  KERFIL is running or not
  47. GENCMD::.BLKW    1            ; Contains the specific generic command
  48.                     ;  to execute.
  49. ;
  50. ; KERCON data locations
  51. ;
  52. ESCCHR::.WORD    .CHCBS            ; Connect escape character
  53. TRMTRN::.WORD    FALSE            ; Transparent terminal emulation flag
  54. TRM7BT::.WORD    TRUE            ; 7-bit character codes
  55. LCLECH::.WORD    FALSE            ; Local echo flag
  56. CONCHR::.ASCII    .^\.            ; Contains the text of the connect
  57.     .BLKW    2            ;   escape character.
  58.  
  59. ;
  60. ; Data section
  61. ;
  62. YPOS::    .BLKW    1            ; Temp locs for absolute cursor
  63. XPOS::    .BLKW    1            ;   movement routine
  64.  
  65. BASE::    .BLKW    1            ; Ascii conversion base location.
  66. TEMP::    .BLKW    1            ; Temporary locations
  67. TMPADR::.BLKW    1            ;
  68. STATUS:: .BLKW    1            ; Status returned from system routines
  69. STAT1::    .BLKW    1            ; Second word of status (error subcode)
  70. FILFLG:: .word    modasc            ; Flag for file-mode
  71.  
  72. BUFF1::    .BLKW    50            ; Buffers for moving information from
  73. BUFF2::    .BLKW    50            ;   the static buffer to the dynamic
  74. BUFF3::    .BLKW    50            ;   buffNm is the max length of buffer
  75.  
  76.  
  77. ;
  78. ; Number of choices possible in old file system call
  79. ;   and locations for file names and their sizes.
  80. ;
  81.  
  82. MSG1::    .BLKB    80.            ; First message for menus
  83. MSG2::    .BLKB    80.            ; Second message block for menus
  84. FILES::    .blkb    1400.            ; Block to hold the filenames chosen.
  85. FSIZE::    .blkw    20.            ; Block to hold the length of each name
  86. NOCHOS::.word    20.            ; The number of possible choices.
  87.  
  88. IOMSG::    .asciz    '*I/O  ERROR*'        ; Error message to be printed if the
  89.     .even                ;  I/O call is rejected for any reason.
  90.  
  91.     .sbttl Buffers and Data for Qios
  92.  
  93. DSKBUF::.blkb    1400.            ; User buffer for sent file.
  94.  
  95. GRCLOC::
  96.     .byte    tc.tbf,0        ; Type ahead buffer count
  97. IOBLEN::.BLKW                ; Length of iobuff
  98. IOBUFF::.BLKW    200.            ; Block to hold data buffer for Io.wvb
  99. LENIOB    ==    .-IOBUFF        ; length of I/O buffer
  100. RCVBUF::                ; Block of words to hold the filenames
  101.     .blkw    50.            ; specified in receive.
  102. IOSTAT:: .blkw    1            ; Block to hold status returns
  103. IOSTA1:: .blkw    1
  104. BUFPOS:: .word    iobuff            ; Pointer to the current position in 
  105.                     ;   the I/O buffer.  The insbuf 
  106.                     ;   routine uses this to put the next 
  107.                     ;   character in the buffer.
  108. TIMLOC::
  109.     .blkw    10            ; Data returned from Get Time macro
  110.  
  111.  
  112. ;    .sbttl        Status Display Data
  113.  
  114.  
  115. ;
  116. ; Data for Status Display
  117. ;
  118.  
  119. FLSTFG::
  120.     .word    1
  121. TOUTCT::
  122.     .blkw    1
  123. NAKCT::    .blkw    1
  124. SPACL::    .blkw    1
  125. RPACL::    .blkw    1
  126. DELFLG::
  127.     .blkw    1
  128. BAUD::    .blkw    1
  129. SIZE::    .blkw    1
  130. SPCCNT::
  131.     .blkw    1
  132. RPCCNT::
  133.     .blkw    1
  134.  
  135.     .SBTTL    XK port data
  136.  
  137. ; The following contains the current port setup data for the XK port.
  138.  
  139. CURXKP::.BLKW    14.        ; Allocate 14 words (enough for all interesting items)
  140. CURXKL==.-CURXKP        ; Length of block
  141.  
  142. DEFXKP::.BLKW    14.        ; Default XK parameters
  143. ORGXKP::.BLKW    14.        ; Orginal XK parameters
  144.  
  145.     .SBTTL    End of KERCMN
  146.  
  147.     .END
  148.