CALPFU
          IDENT CALPFU
          ENTRY CALPFU
          SST 
          TITLE  CALPFU - CALL *PFU* FOR UTILITY FUNCTION.
          SPACE  4,15 
***       CALPFU - ISSUE PERMANENT FILE UTILITY FUNCTION VIA
*                  PPU PROGRAM *PFU*. 
* 
*         CALPFU(FET,FN).    (*SYMPL* CALL).
* 
*         ENTRY (FET) = FET ADDRESS.
*                (FN) = *PFU* FUNCTION CODE ( SUPPLIED BY *CALPFU* ). 
* 
*         EXIT - NONE.
* 
*         USES A - 1,2. 
*              B - 1. 
*              X - 1,2,7. 
          SPACE 4,15
*CALL,COMCMAC 
*CALL,COMCPFU 
*CALL,COMSPFU 
          SPACE   4,15
 CALPFU   SUBR
          SB1    1
          SA2    A1          SET (X2) = FET ADDRESS 
          SA1    A2+B1
          SX7    CTSR        SET (X7) = *PFU* STAGE REQUEST 
          BX7    -X7         CALL *PFU* WITH AUTO RECALL
          RJ     =XPFU       CALL *PFU* INTO ACTION 
          EQ     CALPFUX     EXIT 
          END 
