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


 IDT      SUBR               ENTRY/EXIT
          ADM    DFTO        ADD IN OFFSET TO DFT BUFFER
          LMC    RR
          LRD    DP
          UJN    IDTX        RETURN

*         ENDX   CTP$SCI INCREMENT DFT BUFFER.

