Retro1.org codex

*DECK     CSIBRT
USETEXT TEXTSS
USETEXT TXTCTCS 
      PROC CSIBRT;
# TITLE - BUILD ROLLOUT TABLE.                                         #
      BEGIN 
# 
**    CSIBRT - BUILD ROLLOUT TABLE. 
* 
*     D.K. ENDO    82/04/22 
* 
*     THIS PROCDURE BUILDS THE ROLLOUT TABLE FOR CS.
* 
*     PROC CSIBRT 
* 
*     ENTRY        1. NONE. 
* 
*     EXIT         1. NONE. 
* 
# 
 
 
      DEF MAX$RT # 02 #;     # MAXIMUM NUMBER OF ENTRIES IN ROLLOUT TBL#
 
 
      ITEM I;                # LOOP INDUCTION VARIABLE                 #
      CONTROL EJECT;
#                                                                      #
#                            CSIBRT CODE BEGINS HERE                   #
#                                                                      #
# 
*     CLEAR THE ROLLOUT TABLE.
*     ENTER THE NUMBER OF ENTRIES IN THE TABLE.  FOR THE NSUP WORD AND
*     THE NCF FET, ENTER THE COMPLETE BIT POSITION ADN THE ADDRESS, 
*     INTO THE TABLE.  DO THE SAME FOR THE ROLLOUT FLAG IN THE JOB
*     COMMUNICATIONS AREA.
# 
 
 
      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(NCFFET); 
 
 
 
 
      RETURN;                # **** RETURN ****                        #
      END # CSIBRT #
      TERM