*COMDECK SSCANREGS
          TITLE  REGISTER ASSIGNMENTS 
  
*     REGISTER ASSIGNMENTS
  
                             X-REGISTERS
 MSK      EQU    0                 77777777777777777700B
 LOD      EQU    1
*         EQU    2
*         EQU    3
 TMP      EQU    4
 CHR      EQU    5 (PRESERVED)     CURRENT CHARACTER
 STO      EQU    6
 SAV      EQU    7 (PRESERVED)     CURRENT WORD OF TOKEN
  
                             A-REGISTERS
 LIN      EQU    0                 ADDRESS OF UNPACKED LINE (SETLINE) 
 LOD      EQU    1
*         EQU    2
*         EQU    3
 TMP      EQU    4
 CHR      EQU    5 (PRESERVED)     ADDRESS OF CURRENT CHARACTER 
 STO      EQU    6
 SAV      EQU    7 (PRESERVED)     ADDRESS OF LAST-STORED WORD OF TOKEN 
  
                             B-REGISTERS
 .0       EQU    0                 CONSTANT 0 
 .1       EQU    1                 CONSTANT 1 
*         EQU    2
 SAL      EQU    3                 SAREALENGTH
 TMP      EQU    4
 SCR      EQU    5                 SCRATCH
 CNT      EQU    6 (PRESERVED)     MISCELLANEOUS COUNT REGISTER 
 SCT      EQU    7 (PRESERVED)     SAVE COUNT USED BY PUTCHR
  
  
          NOREF  LOD,TMP,CHR,STO,SAV,CNT,SCT
