*DECK ZEROWDS 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
PROC ZEROWDS (FWA, LENGTH); 
# TITLE ZEROWDS - ZERO WORDS.  #
  
      BEGIN  # ZEROWDS #
  
# 
**    ZEROWDS - ZERO WORDS. 
* 
*     ZEROWDS ZEROS OUT A GIVEN NUMBER OF WORDS  STARTING AT A GIVEN
*     ADDRESS.
* 
*     PROC ZEROWDS (FWA, LENGTH)
* 
*     ENTRY      FWA   - THE STARTING ADDRESS OF THE WORDS TO ZERO. 
*                LENGTH - THE TOTAL NUMBER OF WORDS TO ZERO.
* 
*     EXIT       NONE.
* 
*     PROCESS    SET BASED ARRAY WRDSTOZERO TO FWA. 
*                ZERO OUT THE WORDS FROM FWA TO FWA + LENGTH - 1. 
# 
  
      ITEM FWA       I;              # FWA OF AREA TO ZERO #
      ITEM LENGTH    I;              # LENGTH OF THE AREA TO ZERO # 
  
# 
*     BASED ARRAY WRDSTOZERO
* 
*     THIS BASED ARRAY IS USED TO ZERO OUT AN AREA OF FIP-S 
*     FIELD LENGTH. 
# 
  
      ITEM I         I;              # LOOP VARIABLE #
  
      BASED ARRAY WRDSTOZERO [0:20] S (1);
        BEGIN  # ARRAY WRDSTOZERO # 
        ITEM WRD$WORD   I(00,00,60); # WORD N OF THE ARRAY #
        END 
                                               CONTROL EJECT; 
      P<WRDSTOZERO> = FWA;
      SLOWFOR  I = 0  STEP 1  UNTIL  LENGTH-1  DO 
        BEGIN 
        WRD$WORD[I] = 0;
        END 
  
      END  # ZEROWDS #
  
      TERM
