Retro1.org codex

*DECK     NVFIIMT 
USETEXT          TEXTNVF
USETEXT          TEXTSS 
      PROC NVFIIMT; 
# 
**    NVFIIMT - INITIALIZE MANAGED TABLES.
* 
*     S. H. FISCHER.         81/07/29.
* 
*     THIS ROUTINE IS PART OF THE INITIALIZATION PROCESS FOR NVF. 
*     ITS JOB IS TO TELL THE TABLE MANAGER WHERE ITS TABLES ARE AND 
*     WHERE THE MANAGED AREA IS.
* 
*     PROC NVFIIMT
* 
*     ENTRY      NONE.
* 
*     EXIT       MANAGED TABLES INITIALIZED.
* 
*     METHOD     LOOK AT THE 5400 TABLE OF THE 0,0 OVERLAY TO GET 
*                SOME INFORMATION.  SET LOADBASE TO WHERE THE 
*                OVERLAYS ARE TO BE LOADED.  SET THE BEGINNING OF 
*                THE MANAGED TABLE TO THE HIGHEST HIGH ADDRESS. 
*                FINALLY CALL THE TABLE MANAGER INITIALIZATION
*                ROUTINE TO SET THE TABLE POINTERS. 
# 
 
 
      BEGIN 
 
 
      XREF
        BEGIN 
        PROC SSTITM;
        END 
 
 
 
 
 
      P<EACPM> = O"100";
 
 
      LOADBASE = EAC$MIFL[0]; 
 
      MEMLOC = EAC$HHA[0];
 
      SSTITM( MEMLOC, P<TEND>, LOADBASE); 
 
      SSMEM = LOC(MEMLOC);
 
 
      END        #NVFIIMT#
      TERM