*DECK CONTROL 
PRGM CNTROL;
# TITLE CONTROL - LOADS AND EXECUTES THE MAIN OVERLAYS OF RHF.  # 
  
      BEGIN  # CONTROL #
  
# 
**    CONTROL - LOADS AND EXECUTES THE MAIN OVERLAYS OF RHF.
* 
*     LOADS AND EXECUTES THE THREE MAIN OVERLAYS OF RHF.
* 
*     PRGM CONTROL. 
* 
*     ENTRY   - NONE. 
* 
*     EXIT    - ENDRUN - REPRIEVE ROUTINES CALLED.
* 
*     PROCESS - CALCULATE FWA FOR PRIMARY OVERLAYS. 
*               LOAD AND EXECUTE *SETUP* OVERLAY. 
*               WHILE NOT SHUT DOWN AND NOT IDLE DOWN 
*                 LOAD AND EXECUTE *IDLE* OVERLAY.
*                 LOAD AND EXEUCTE *ACTIVE* OVERLAY(S). 
*               EXIT CONTROL (TO REPRIEVE ROUTINES).
* 
* 
****  PRGM CONTROL - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC ENDRHF;                 # ISSUE RHF ENDED MESSAGE #
        PROC IDLE;                   # RHF IDLE PROCESSOR # 
        ITEM HHA     I;              # HIGHEST HIGH ADDRESS # 
        ITEM OVLPFWA I;              # FWA FOR PRIMARY OVERLAYS # 
        ITEM OVL2FLG I;              # SECONDARY OVERLAY FLAG # 
        PROC OVLLDR;                 # LOAD AND EXECUTE OVERLAY # 
        PROC RECOVR;                 # REPRIEVE PROCESSOR # 
        END 
  
# 
****  PRGM CONTROL - XREF LIST END. 
# 
  
CONTROL PRESET; 
*CALL COMCBEGN
*CALL COMRDSDL
*CALL COMRSFC 
*CALL COMRNAM 
*CALL COMRUNKN
*CALL COMRCON 
*CALL COMRLRA 
*CALL COMRMEM 
*CALL COMRQUE 
*CALL COMRRHH 
*CALL COMRSSC 
*CALL COMRAPL 
*CALL COMREVNT
*CALL COMRNET 
*CALL COMRNDR 
*CALL COMRSTAT
*CALL COMRRTN 
*CALL COMRFLSH
  
CONTROL EJECT;
  
      P<RA$ZERO> = 0; 
      HHA = RA$HHA; 
      OVL2FLG = 0;
      OVLPFWA = RA$MINFL; 
      RECOVR(ENDRHF, O"377", 0);
      OVLLDR("RHF0100");             # STARTUP #
      ASLONGAS NOT SHUTDWN AND NOT IDLEDWN
      DO
        BEGIN 
        OVLLDR("RHF0200");           # IDLE # 
        FASTIME = 0;                 # RESET TIMERS # 
        OVLLDR("RHF0300");           # ACTIVE # 
        END 
  
      END  # CONTROL (EXIT TO REPRIEVE ROUTINES) #
  
      TERM
