*COMDECK COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.
 PLI      CTEXT  COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.
**        COMFPLI ISSUES THE APLIST FOR THE FCL INITIALIZATION CALL.
*         IT IS INCLUDED IN GEN AND BRIDGE. 
  
          SA1    =XS=UPW
          ZR     X1,PLI4     IF NO FILES
          ISSUE  OC$FVEC     CON 0       TERMINATE FILE LIST
          ISSUE  OC$FVEC     CON 0
 PLI4     SA1    S=FILES
          ISSUE  OC$BSS,X1   FILES. BSS 0 
          SA4    =XCO.STAT   STATIC MODE FLAG 
          SA1    S=UPW
          =X7    1
          LX4    1-59        MOVE FLAG TO BIT 1 
          BX7    X7+X4
          LX7    PB.BIASP-PB.TAGP 
          BX1    X1+X7
          ISSUE  OC$ADDR,X1    CON 1S18+UPW.
          ISSUE  OC$PLIM     CON PLIM 
          ZR     X4,PLI10    IF NOT *STATIC* MODE 
          SA1    =XN.BUF
          SA4    =XS=BUF
          LX1    PB.BIASP-PB.TAGP 
          BX1    X1+X4
          ISSUE  OC$ADDR,X1   CON    BUF.,C(N.BUF)
          SA1    =XN.BUF
          LX1    PB.BIASP-PB.TAGP 
          BX1    X1+X4
          ISSUE  OC$BSS,X1   BUF.   BSS   C(N.BUF)
  
 PLI10    BSS    0
 COMFPLI  ENDX
