*COMDECK  COMSQRF - QCG REGISTER ASSOCIATES.
          CTEXT  COMSQRF - QCG REGISTER ASSOCIATES. 
 COMSQRF  SPACE  4,10 
***       COMSQRF - QCG REGISTER ASSOCIATES.
* 
*         COPYRIGHT CONTROL DATA CORP. 1977.
 RGFILE   SPACE  4,10 
**        RGFILE - QCG REGISTER ASSOCIATES. 
* 
*         NOTE -- THESE EQUATES ARE USED TO INDEX INTO THE REGISTER 
*         FILE.  IF THE ACTUAL CELLS ARE TO BE ADDRESSED, USE THE SYMBOL
*         *=XREGFILE*, PLUS ONE OF THE FOLLOWING OFFSETS. 
  
  
          USE    /RGFILE/ 
 REGFILE  BSS                BASE ADDRESS 
          LOC    0
  
 REG.B    BSS                *B* REGISTERS
 R.B0     BSS    1
 R.B1     BSS    1
 R.B2     BSS    1
 R.B3     BSS    1
 R.B4     BSS    1
 R.B5     BSS    1
 R.B6     BSS    1
 R.B7     BSS    1
  
 REG.A    BSS                *A* REGISTERS
 R.A0     BSS    1
 R.A1     BSS    1
 R.A2     BSS    1
 R.A3     BSS    1
 R.A4     BSS    1
 R.A5     BSS    1
 R.A6     BSS    1
 R.A7     BSS    1
  
 REG.X    BSS                *X* REGISTERS
 R.X0     BSS    1
 R.X1     BSS    1
 R.X2     BSS    1
 R.X3     BSS    1
 R.X4     BSS    1
 R.X5     BSS    1
 R.X6     BSS    1
 R.X7     BSS    1
  
 L.RGFILE BSS                LENGTH OF REGISTER FILE
          LOC    *O 
          USE    *
  
  
 COMSQRF  ENDX
