Retro1.org codex

*DECK XDROP 
USETEXT NIPDEF
USETEXT PIT 
USETEXT PT
 PROC XDROP;                 # DROP NIP GRACEFULLY                     #
 
 STARTIMS;
 #
*1DC  XDROP 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        XDROP               P.C.TAM             80/02/12 
* 
*     2. FUNCTIONAL DESCRIPTION.
*          INFORM PIP TO DROP AND STOP
* 
*     3. METHOD USED. 
*          SCAN THROUGH BUFFET SETTING THE BIT IN THE FET WHICH TELLS 
*          PIP TO DROP. 
* 
*     4. ENTRY PARAMETERS.
*          NONE 
* 
*     5. EXIT PARAMETERS. 
*          THIS PROCEDURE DOES NOT EXIT.
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED.
*        PIT       NIPDEF   PT
* 
*     7. ROUTINES AND OVERLAYS CALLED.
*          XTRACE            RECORD PROCEDURE CALLS 
* 
*     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION.
*          NONE 
* 
 #
 STOPIMS; 
# 
                    EXTERNAL VARIABLES
# 
 XREF PROC XTRACE;
# 
                    INTERNAL VARIABLES
# 
 ITEM TEMP; 
 
#**********************************************************************#
 
      BEGIN 
 
      CONTROL IFEQ DEBUG,1; 
        XTRACE("XDROP") ; 
      CONTROL FI; 
 
# 
      SET PIP DROP FLAG 
# 
      FOR TEMP = 1 STEP 1 UNTIL MAXPIP
      DO                     # SET DROP FLAG IN ALL PIT ENTRIES        #
        BEGIN 
        PITDF[TEMP] = TRUE; 
        END 
 
      STOP;                  #  **********  STOP  **********           #
 
      END 
TERM