cdc:nos2.source:opl.opl871:common:comcpfu
Common COMCPFU
1 Modification
Source
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
cdc/nos2.source/opl.opl871/common/comcpfu.txt ยท Last modified: by 127.0.0.1