Common COMCPFU

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcpfu ---|          CTEXT  COMCPFU - PERMANENT FILE UTILITY FUNCTION PROCESSOR.
00002  M00S00002.comcpfu ---|          SPACE  4
00003  M00S00003.comcpfu ---|          IF -DEF,QUAL$,1
00004  M00S00004.comcpfu ---|          QUAL   COMCPFU
00005  M00S00005.comcpfu ---|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comcpfu +++|          SPACE  4
00009  M00S00008.comcpfu +++|***       PFU - PERMANENT FILE UTILITY FUNCTION PROCESSOR.
00010  M00S00009.comcpfu +++|*         R. J. THIELEN.     75/08/01.
00011  M00S00010.comcpfu +++|          SPACE  4
00012  M00S00011.comcpfu +++|***              PFU PERFORMS PERMANENT FILE UTILITY FUNCTIONS VIA THE
00013  M00S00012.comcpfu +++|*         PPU PROGRAM *PFU*.  *PFU* IS CALLED WHEN THE FET IS NON BUSY.
00014  M00S00013.comcpfu +++|*
00015  M00S00014.comcpfu +++|*         ENTRY  (X2) = FET ADDRESS.
00016  M00S00015.comcpfu +++|*                (X7) = *PFU* FUNCTION CODE.
00017  M00S00016.comcpfu +++|*                       IF (X7) .LT. 0, (X7) IS COMPLEMENT OF FUNCTION
00018  M00S00017.comcpfu +++|*                       CODE AND *PFU* IS CALLED WITH AUTO RECALL.
00019  M00S00018.comcpfu +++|*
00020  M00S00019.comcpfu +++|*         EXIT   (X2) = FET ADDRESS.
00021  M00S00020.comcpfu +++|*
00022  M00S00021.comcpfu +++|*         USES   A - 1, 7.
00023  M00S00022.comcpfu +++|*                X - 1, 6, 7.
00024  M00S00023.comcpfu +++|*
00025  M00S00024.comcpfu +++|*         CALLS  SYS=.
00026  M00S00025.comcpfu +++|
00027  M00S00026.comcpfu +++|
00028  M00S00027.comcpfu +++| PFU      SUBR               ENTRY/EXIT
00029  M00S00028.comcpfu +++|          RECALL X2          WAIT FOR FET NON BUSY
00030  M00S00029.comcpfu +++|          SA1    X2          GET FET STATUS
00031  M00S00030.comcpfu +++|          LX7    18
00032  M00S00031.comcpfu +++|          SX6    3RPFU       SET PFU REQUEST
00033  M00S00032.comcpfu +++|          PL     X7,PFU1     IF NO AUTO RECALL WITH REQUEST
00034  M00S00033.comcpfu +++|          BX7    -X7
00035  M00S00034.comcpfu +++|          PX6    X6          SET AUTO RECALL
00036  M00S00035.comcpfu +++| PFU1     BX7    X7+X2       ADD PARAMETERS TO REQUEST
00037  M00S00036.comcpfu +++|          LX6    42
00038  M00S00037.comcpfu +++|          BX6    X6+X7
00039  M00S00038.comcpfu +++|          MX7    59          SET FET STATUS BUSY
00040  M00S00039.comcpfu +++|          BX7    X7*X1
00041  M00S00040.comcpfu +++|          SA7    A1
00042  M00S00041.comcpfu +++|          RJ     =XSYS=      ISSUE SYSTEM REQUEST FOR PFU
00043  M00S00042.comcpfu +++|          EQ     PFUX        EXIT
00044  M00S00043.comcpfu +++|          SPACE  4
00045  M00S00044.comcpfu +++|          BASE   *
00046  M00S00045.comcpfu +++| QUAL$    IF     -DEF,QUAL$
00047  M00S00046.comcpfu +++|          QUAL   *
00048  M00S00047.comcpfu +++| PFU      EQU    /COMCPFU/PFU
00049  M00S00048.comcpfu +++| QUAL$    ENDIF
00050  M00S00049.comcpfu +++|          ENDX