Retro1.org codex

          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