ASMB,R,L,C
      HED #COMN: COMMON STORAGE FOR RJE * (C) HEWLETT-PACKARD CO.1978 * 
*     NAM #COMN,30 91780-16003 REV.1648 761109
*     NAM #COMN,30 7-18-78 W/ MAGNOVOX FIXES & CNT MODE T.O.
      NAM #COMN,30 91780-16012 REV.1840 780725
      ENT #TIME,#CTRL,#CMBF,#WRBF,#RDBF,#RDCB,#LDCB,#PDCB 
      ENT #TFLG,#TBUF,#OVRN,#WRPT,#RDPT,#BFEN 
* 
*    NAME:         #COMN
*    SOURCE:       91780-18012
*    RELOC:        91780-16012
*    PGMR:         C. HAMILTON  ( 11/09/76 )
*                  D. BOLIERE   (  7/18/78 )
*    MODIFIED BY: 
* 
*  *****************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS       *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT  *
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.         *
*  *****************************************************************
* 
*  THIS MODULE PROVIDES COMMON STORAGE FOR THOSE CONSTANTS AND BUFFERS
*   WHICH MUST BE SHARED BETWEEN RJE AND THE LIBRARY PORTION OF THE 
*   BISYNC COMMUNICATIONS DRIVER: #BSC/DVR50. 
* 
*  PROGRAM TYPE 30 WILL FORCE THE RTE-III GENERATOR TO PLACE THIS 
*   MODULE INTO THE SUBSYSTEM GLOBAL AREA. THUS, WHEN THE USER SPECIFES 
*   THAT PRIVILEGED DRIVERS HAVE ACCESS TO SSGA, AND IF #BSC IS FORCED
*   TO RESIDE IN THE SUBSYSTEM GLOBAL AREA OF THE RTE-III SYSTEM, THEN
*   NO TIME-CONSUMING MAP SWITCHING WILL BE REQUIRED OF THE DRIVER. 
* 
*  ADDITIONALLY, IF #BSC IS SSGA-RESIDENT(RTE-III), RJE MAY BE SWAPPED
*   SINCE ALL OF ITS BUFFERS ARE LOCATED IN THIS SSGA-RESIDENT MODULE.
*   [** USER MAY MODIFY TIMEOUT AND CONTROL VALUES--IF NECESSARY **]
* 
#TIME DEF *+1       ADDRESS OF TIMEOUT/CONTROL ARRAY. 
      DEC -301      RECEIVE TIMEOUT   = 3.01 SEC. 
      DEC -190      TRANSMIT TIMEOUT  = 1.90 SEC. 
      DEC -2000     LONG TIMEOUT      = 20.0 SEC. 
      DEC -1500     MAXIMUM NO. OF TTD/WACK SEQUENCES.
      DEC -15       CONTROL MODE TIMEOUT=5.0 MINUTES
* 
#CTRL DEC 0  BIT#2(LINE CODE): 0=EBCDIC,       1=ASCII
*                            BIT#1(BUF. TERM): 0=PAD W/BLANKS, 1=USE 'EOM'
*                            BIT#0(LINE MODE): 0=HALF DUPLEX,  1=FULL DUPLEX
* 
*  TRACE BUFFER AND ADDRESS POINTERS. >>>>> DO NOT CHANGE! <<<<<
* 
#TFLG NOP           TRACE ON=NON-ZERO 
#TBUF DEF TBUF      FWA OF TRACE BUFFER 
#OVRN NOP           NON-ZERO IF BUFFER OVERRUNS DEVELOP 
#RDPT DEF TBUF      READ POINTER
#WRPT DEF TBUF      WRITE POINTER 
#BFEN DEF TBFEN     LWA OF TRACE BUFFER 
TBUF  BSS 200       MUST BE 200 WORDS FOR 4800 BAUD!
TBFEN EQU * 
* 
* 
*  DATA BUFFERS AND DATA CONTROL BLOCKS. >>>>> DO NOT CHANGE! <<<<< 
* 
#CMBF BSS 212       COMMUNICATIONS DATA BUFFER. 
      BSS 1         (EXTRA WORD FOR TRANSPARENT WRITE). 
#WRBF BSS 73        WRITE BUFFER. 
#RDBF BSS 40        READ BUFFER.
* 
#RDCB BSS 144       INPUT-FILE DATA CONTROL BLOCK 
#LDCB BSS 144       LIST-FILE DATA CONTROL BLOCK
#PDCB BSS 144       PUNCH-FILE DATA CONTROL BLOCK 
* 
      BSS 0         [ MODULE SIZE ] 
* 
      END 
                                                                                                                                                                    