Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comcpfu +++| CTEXT COMCPFU - PERMANENT FILE UTILITY FUNCTION PROCESSOR.
00002 M01S00002.comcpfu +++| SPACE 4
00003 M01S00003.comcpfu +++| IF -DEF,QUAL$,1
00004 M01S00004.comcpfu +++| QUAL COMCPFU
00005 M01S00005.comcpfu +++| BASE D
| Line S00006 Modification History |
M01 (Added by) | comcpfu |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M01S00007.comcpfu +++| SPACE 4
00009 M01S00008.comcpfu +++|*** PFU - PERMANENT FILE UTILITY FUNCTION PROCESSOR.
00010 M01S00009.comcpfu +++|* R. J. THIELEN. 75/08/01.
00011 M01S00010.comcpfu +++| SPACE 4
00012 M01S00011.comcpfu +++|*** PFU PERFORMS PERMANENT FILE UTILITY FUNCTIONS VIA THE
00013 M01S00012.comcpfu +++|* PPU PROGRAM *PFU*. *PFU* IS CALLED WHEN THE FET IS NON BUSY.
00014 M01S00013.comcpfu +++|*
00015 M01S00014.comcpfu +++|* ENTRY (X2) = FET ADDRESS.
00016 M01S00015.comcpfu +++|* (X7) = *PFU* FUNCTION CODE.
00017 M01S00016.comcpfu +++|* IF (X7) .LT. 0, (X7) IS COMPLEMENT OF FUNCTION
00018 M01S00017.comcpfu +++|* CODE AND *PFU* IS CALLED WITH AUTO RECALL.
00019 M01S00018.comcpfu +++|*
00020 M01S00019.comcpfu +++|* EXIT (X2) = FET ADDRESS.
00021 M01S00020.comcpfu +++|*
00022 M01S00021.comcpfu +++|* USES A - 1, 7.
00023 M01S00022.comcpfu +++|* X - 1, 6, 7.
00024 M01S00023.comcpfu +++|*
00025 M01S00024.comcpfu +++|* CALLS SYS=.
00026 M01S00025.comcpfu +++|
00027 M01S00026.comcpfu +++|
00028 M01S00027.comcpfu +++| PFU SUBR ENTRY/EXIT
00029 M01S00028.comcpfu +++| RECALL X2 WAIT FOR FET NON BUSY
00030 M01S00029.comcpfu +++| SA1 X2 GET FET STATUS
00031 M01S00030.comcpfu +++| LX7 18
00032 M01S00031.comcpfu +++| SX6 3RPFU SET PFU REQUEST
00033 M01S00032.comcpfu +++| PL X7,PFU1 IF NO AUTO RECALL WITH REQUEST
00034 M01S00033.comcpfu +++| BX7 -X7
00035 M01S00034.comcpfu +++| PX6 X6 SET AUTO RECALL
00036 M01S00035.comcpfu +++| PFU1 BX7 X7+X2 ADD PARAMETERS TO REQUEST
00037 M01S00036.comcpfu +++| LX6 42
00038 M01S00037.comcpfu +++| BX6 X6+X7
00039 M01S00038.comcpfu +++| MX7 59 SET FET STATUS BUSY
00040 M01S00039.comcpfu +++| BX7 X7*X1
00041 M01S00040.comcpfu +++| SA7 A1
00042 M01S00041.comcpfu +++| RJ =XSYS= ISSUE SYSTEM REQUEST FOR PFU
00043 M01S00042.comcpfu +++| EQ PFUX EXIT
00044 M01S00043.comcpfu +++| SPACE 4
00045 M01S00044.comcpfu +++| BASE *
00046 M01S00045.comcpfu +++| QUAL$ IF -DEF,QUAL$
00047 M01S00046.comcpfu +++| QUAL *
00048 M01S00047.comcpfu +++| PFU EQU /COMCPFU/PFU
00049 M01S00048.comcpfu +++| QUAL$ ENDIF
00050 M01S00049.comcpfu +++| ENDX