Retro1.org codex

*DECK     NVFIBRT 
USETEXT TEXTSS
USETEXT TXTANVF 
USETEXT TXVCBNV 
      PROC NVFIBRT; 
# TITLE - BUILD ROLLOUT TABLE                                          #
      BEGIN 
# 
**    NVFIBRT - BUILD ROLLOUT TABLE 
* 
*     D.K. ENDO    82/04/26 
* 
*     THIS PROCEDURE BUILDS THE ROLLOUT TABLE FOR NVF.
* 
*     PROC NVFIBRT
* 
*     ENTRY        1. NONE. 
* 
*     EXIT         1. NONE. 
* 
# 
 
 
      DEF MAX$RT # 03 #;     # MAXIMUM NUMBER OF ENTRIES IN ROLLOUT TBL#
 
 
      ITEM I;                # LOOP INDUCTION VARIABLE                 #
      CONTROL EJECT;
#                                                                      #
#                            NVFIBRT CODE BEGINS HERE                  #
#                                                                      #
# 
*     CLEAR THE ROLLOUT TABLE.
*     ENTER THE NUMBER OF ENTRIES IN THE TABLE. FOR THE NSUP WORD AND 
*     THE VCB FET, THE ROLLOUT FLAG, AND THE CPM BLOCK, ENTER THE 
*     COMPLETE BIT POSTION AND THE ADDRESS, INTO THE TABLE. 
*     SET COMPLETE BIT IN CPM REQUEST BUFFER. 
# 
 
 
      FOR I=0 STEP 1 UNTIL NRT$ 
      DO
        BEGIN 
        RT$WORD[I] = 0; 
        END 
 
 
      RT$EC[0] = MAX$RT;
 
 
      RT$BPOS[1] = 0; 
      RT$WADD[1] = LOC(NSUP); 
 
 
      RT$BPOS[2] = 59;
      RT$WADD[2] = LOC(VCBFET); 
 
 
      RT$BPOS[3] = 59;
      RT$WADD[3] = LOC(CPMBUF); 
 
 
 
 
      CPB$CBIT[0] = TRUE; 
 
 
      RETURN;                # **** RETURN ****                        #
      END # NVFIBRT # 
      TERM