          SPACE  4,10
*         CTEXT  CTP$SCI INCREMENT DFT VE BLOCK.
*
*         THIS DECK CONTAINS A ROUTINE WHICH CAN BE USED TO RETRIEVE
*         THE ADDRESS FOR THE DFT VE REQUEST BLOCK.
 IVB      SPACE  4,10
**        IVB - INCREMENT DFT NOS/VE BLOCK.
*
*         ENTRY  (A) = OFFSET FROM DFT NOS/VE BLOCK.
*
*         EXIT   (A - R-REGISTER) = ADDRESS OF DESIRED WORD.


 IVB      SUBR               ENTRY/EXIT
          ADD    VP
          LMC    RR
          LRD    VP+1
          UJN    IVBX        RETURN

*         ENDX   CTP$SCI INCREMENT DFT VE BLOCK.

