Retro1.org codex

*DECK     CSIIMT
USETEXT          TEXTCS 
USETEXT          TEXTSS 
      PROC CSIIMT;
# 
**    CSIIMT - INITIALIZE MANAGED TABLES. 
* 
*     A. LIM.         81/10/08. 
* 
*     THIS ROUTINE IS PART OF THE INITIALIZATION PROCESS FOR CS.
*     ITS JOB IS TO TELL THE TABLE MANAGER WHERE ITS TABLES ARE AND 
*     WHERE THE MANAGED AREA IS.
* 
*     PROC CSIIMT 
* 
*     ENTRY      NONE.
* 
*     EXIT       MANAGED TABLES INITIALIZED.
* 
*     NOTES      THIS IS TEMPORARY CODE FOR USE ONLY UNTIL OVERLAYS 
*                ARE STARTED TO BE USED.
*                IT MUST BE CHANGED BEFORE THEN.
* 
*     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 
 
 
# 
****  PROC CSIIMT XREF LIST.
# 
      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        #CSIIMT# 
      TERM