*DECK NEXTR 
          IDENT  NEXTR
          TITLE  NEXTR -  GET NEXT VIRTUAL REGISTER NUMBER
          SST 
  
          MACHINE  ANY,I
          COMMENT  GET NEXT VIRTUAL REGISTER NUMBER 
          SPACE  4
**        NEXTR -  GET NEXT VIRTUAL REGISTER NUMBER 
* 
*         XREF FUNC NEXTR I;                     (FROM SYMPL) 
*         N = NEXTR;
* 
*         NRESREG MAY BE CHANGED. 
  
  
*CALL DUPMACS 
  
*CALL RESERVE 
          ENTRY  NEXTR
          ENTRY  NRESREG
          ENTRY  REGSEQ 
 NRES     OCTMIC NR 
 NEXTR    DATA    0 
          SA1    RCOUNT 
          SX7    X1+1 
          BX6    X1 
          SA7    A1 
          EQ    NEXTR 
          ENTRY  RCOUNT 
 RCOUNT   DATA   "NRES" 
 NRESREG  DATA   "NRES" 
 REGSEQ   DATA   1           CURRENT SEQUENCE 
*CALL EXTDEFS 
*CALL OBJDEFS 
 CLOAK    DECMIC C.CLOAK
 SEG      DECMIC C.SEG
 SEGI     DECMIC C.SEGI 
 SEGIS    DECMIC C.SEGIS
 SEGP     DECMIC C.SEGP 
 SEGPS    DECMIC C.SEGPS
 SEGS     DECMIC C.SEGS 
          ENTRY  CBCLOAK
 CBCLOAK  DATA   "CLOAK"
          ENTRY  CBSEG
 CBSEG    DATA   "SEG"
          ENTRY  CBSEGI 
 CBSEGI   DATA   "SEGI" 
          ENTRY  CBSEGIS
 CBSEGIS  DATA   "SEGIS"
          ENTRY  CBSEGP 
 CBSEGP   DATA   "SEGP" 
          ENTRY  CBSEGPS
 CBSEGPS  DATA   "SEGPS"
          ENTRY  CBSEGS 
 CBSEGS   DATA   "SEGS" 
          END 
