          SPACE  4,10
*         CTEXT  CTP$SCI ADVANCE LOAD ADDRESS.
*
*         THIS DECK CONTAINS A ROUTINE WHICH CAN BE USED TO KEEP TRACK
*         OF MEMORY ALLOCATION AT DEADSTART TIME.
 ALA      SPACE  4,10
**        ALA - ADVANCE LOAD ADDRESS.
*
*         ENTRY  (A) = INCREMENT FOR LOAD ADDRESS.
*
*         EXIT   (LA - LA+1) INCREMENTED.
*                R-REGISTER = OLD LOAD ADDRESS.


 ALA      SUBR               ENTRY/EXIT
          LRD    LA
          ADN    77
          SHN    -6
          RAD    LA+1
          SHN    -14
          RAD    LA
          UJN    ALAX        RETURN

*         ENDX   CTP$SCI ADVANCE LOAD ADDRESS.
