Retro1.org codex

*DECK NP$ZWDS 
*IF DEF,XFR 
PROC NP$ZWDS (FWA, LENGTH); 
# TITLE NP$ZWDS - ZERO WORDS. USE FOR FILE TRANSFER APPLICATIONS ONLY # 
 
      BEGIN  # NP$ZWDS #
 
# 
**    PROC NAME            AUTHOR        DATE 
*     NP$ZWDS              L.T.NGUYEN    83/03/22 
* 
*     NP$ZWDS ZEROS OUT A GIVEN NUMBER OF WORDS  STARTING AT A GIVEN
*     ADDRESS.
* 
*     PROC NP$ZWDS (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 # 
 
      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;
      FOR  I = 0  STEP 1  UNTIL  LENGTH-1 
      DO
        BEGIN 
        WRD$WORD[I] = 0;
        END 
 
      RETURN ;
      END  # NP$ZWDS #
 
      TERM
*ENDIF