Retro1.org codex

*DECK OPPHANG 
USETEXT NIPDEF
USETEXT MSGIDX
USETEXT PIT 
USETEXT PT
PROC OPPHANG;                # SET HANG PPU FLAG                       #
 
 STARTIMS;
 #
*1DC  OPPHANG 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        OPPHANG             P.C.TAM             80/02/06 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        SET PPU HANG FLAG. 
* 
*     3. METHOD USED. 
*        SET PPU HANG FLAG IN PIT ENTRIES, PIP WILL LOOK AT THE 
*        FLAG AND HANG PPU. 
* 
*     4. ENTRY PARAMETERS.
*        FETHANG             HANG PPU FLAG
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED.
*        PIT       NIPDEF    PT 
*        MSGIDX 
* 
*     7. ROUTINES CALLED. 
*        XTRACE              RECORD CALLER
*        OMSG                ISSUE DAYFILE MESSAGE
* 
*     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
*        "SCP PROBLEM - TAKE DEADSTART DUMP"
 #
 STOPIMS; 
# 
      EXTERNAL VARIABLES
# 
      XREF
        BEGIN 
        PROC OMSG ; 
        PROC XTRACE;         # RECORD CALLER                           #
        END 
# 
      INTERNAL VARIABLES
# 
      ITEM TEMP;
# ******************************************************************** #
      BEGIN 
      CONTROL IFEQ DEBUG,1; 
        XTRACE("OPPHA") ; 
      CONTROL FI; 
      FOR TEMP = 1 STEP 1 UNTIL MAXPIP
      DO                     # GO THRU PITHPF WORD OF ALL PIT ENTRIES  #
        PITHPF[TEMP] = TRUE; # SET HANG BIT                            #
      OMSG(DFMSG23,0) ; 
      END 
TERM