*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