*COMDECK COMFICP - ISSUE CP. AND GPL. TABLES. 
 ICP      CTEXT  COMFICP - ISSUE CP. AND GPL. TABLES. 
 ICP      SUBR
          SA1    =XN.EPL
          ZR     X1,EXIT.    IF NO CPL. CALLS NEEDED
          ISUSE  TEM         USE TEM. 
          SA2    =XS=GPL
          SA3    =X"L$"FPI
          LX3    PB.BIASP-PB.TAGP 
          BX1    X2+X3
          ISSUE  I.BSS,X1    GPL. BSS "L$"FPI 
          SA1    =XS=CP 
          ISSUE  I.BSS,X1          CP. BSS 0
  
*         ISSUE CPL WORD FOR EACH FORMAL PARAMETER. 
  
          SA1    =X"O$"ENTP 
          SB5    -1 
          SA0    X1 
          EQ     ICP20
  
*         ISSUE ZERO TERMINATOR FOR THIS LIST.
  
 ICP10    ISSUE  I.ZERO 
          SA1    "O$"ENTP 
          SA0    X1 
  
 ICP20    SB5    B5+2        SKIP HEADER
          SA1    =X"L$"ENTP 
          SB7    X1 
          SB7    B5-B7
          PL     B7,EXIT.    IF END OF ENTP 
          SA4    B5+A0
          S"BT"  60 
  
 ICP30    NZ     "BT",ICP40  IF THIS WORD NOT EXHAUSTED 
          S"BT"  60 
          SB5    B5+B1
          SA4    A0+B5
  
 ICP40    S"BT"   "BT"-15 
          MX0    -EF.ORDL 
          AX3    "BT",X4
          BX6    -X0*X3 
          ZR     X6,ICP10    IF END OF LIST 
          ISSUE  I.CPL,X6 
          SA1    "O$"ENTP 
          SA0    X1 
          EQ     ICP30
 COMFICP  ENDX
