          SPACE  4,10
*         CTEXT  CTP$SCI UPDATE MEMORY BOUNDS.
*
*         THIS DECK CONTAINS A ROUTINE WHICH CAN BE USED TO UPDATE
*         THE NOS/VE MEMORY BOUNDS IN THE EICB.
 UMB      SPACE  4,15
**        UMB - UPDATE MEMORY BOUNDARY.
*
*         ENTRY  (LA - LA+1) = CURRENT LOAD ADDRESS.
*                (SZ - SZ+1) = CURRENT LWA OF USABLE MEMORY.
*                (DO) = DEADSTART ORIGIN.
*
*         EXIT   DATA WRITTEN TO EICB.
*
*         USES   CM - CM+3.
*
*         CALLS  IIB.


 UMB      SUBR               ENTRY/EXIT
          LDD    DO
          ZJN    UMBX        RETURN IF DUAL-STATE
          LDD    LA+1        ROUND LOAD ADDRESS TO MULTIPLE OF 1000
          ADN    7
          SCN    7
          STD    CM+2
          SHN    -14
          ADD    LA          PACK LOAD ADDRESS
          SHN    1
          STDL   CM+1        000LLLLLLLLLLLL0
          LDD    CM+2
          SHN    0-13
          RADL   CM+1        000LLLLLLLLLLLLL
          LDD    CM+2
          SHN    20-13
          STDL   CM+2        LLLLLLLL00000000
          LDD    SZ
          SHN    0-7
          RADL   CM+2        LLLLLLLL000SSSSS
          LDD    SZ
          SHN    20-7
          SCN    7
          STDL   CM+3        SSSSSSS000000000
          LDD    SZ+1
          SHN    -3
          RADL   CM+3        SSSSSSSSSSSSSSSS
          LDN    D7CM+1
          RJM    IIB
          CWDL   CM          WRITE CURRENT MEMORY BOUNDARY
          LJM    UMBX        RETURN

*         ENDX   CTP$SCI UPDATE MEMORY BOUNDS.

