Deck CALPFU

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.calpfu  +++|          IDENT CALPFU
00002  M00S00002.calpfu  +++|          ENTRY CALPFU
00003  M00S00003.calpfu  +++|          SST
00004  M00S00004.calpfu  +++|          TITLE  CALPFU - CALL *PFU* FOR UTILITY FUNCTION.
00005  M00S00005.calpfu  +++|          SPACE  4,15
00006  M00S00006.calpfu  +++|***       CALPFU - ISSUE PERMANENT FILE UTILITY FUNCTION VIA
00007  M00S00007.calpfu  +++|*                  PPU PROGRAM *PFU*.
00008  M00S00008.calpfu  +++|*
00009  M00S00009.calpfu  +++|*         CALPFU(FET,FN).    (*SYMPL* CALL).
00010  M00S00010.calpfu  +++|*
00011  M00S00011.calpfu  +++|*         ENTRY (FET) = FET ADDRESS.
00012  M00S00012.calpfu  +++|*                (FN) = *PFU* FUNCTION CODE ( SUPPLIED BY *CALPFU* ).
00013  M00S00013.calpfu  +++|*
00014  M00S00014.calpfu  +++|*         EXIT - NONE.
00015  M00S00015.calpfu  +++|*
00016  M00S00016.calpfu  +++|*         USES A - 1,2.
00017  M00S00017.calpfu  +++|*              B - 1.
00018  M00S00018.calpfu  +++|*              X - 1,2,7.
00019  M00S00019.calpfu  +++|          SPACE 4,15
00020  M00S00020.calpfu  +++|*CALL,COMCMAC
00021  M00S00021.calpfu  +++|*CALL,COMCPFU
00022  M00S00022.calpfu  +++|*CALL,COMSPFU
00023  M00S00023.calpfu  +++|          SPACE   4,15
00024  M00S00024.calpfu  +++| CALPFU   SUBR
00025  M00S00025.calpfu  +++|          SB1    1
00026  M00S00026.calpfu  +++|          SA2    A1          SET (X2) = FET ADDRESS
00027  M00S00027.calpfu  +++|          SA1    A2+B1
00028  M00S00028.calpfu  +++|          SX7    CTSR        SET (X7) = *PFU* STAGE REQUEST
00029  M00S00029.calpfu  +++|          BX7    -X7         CALL *PFU* WITH AUTO RECALL
00030  M00S00030.calpfu  +++|          RJ     =XPFU       CALL *PFU* INTO ACTION
00031  M00S00031.calpfu  +++|          EQ     CALPFUX     EXIT
00032  M00S00032.calpfu  +++|          END