cdc:nos2.source:opl.opl871:common:comcpfm
Common COMCPFM
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcpfm +++| CTEXT COMCPFM - PERMANENT FILE PROCESSOR. 00002 M01S00002.comcpfm +++| PFM SPACE 4 00003 M01S00003.comcpfm +++| IF -DEF,QUAL$,1 00004 M01S00004.comcpfm +++| QUAL COMCPFM 00005 M01S00005.comcpfm +++| BASE D
Line S00006 Modification History | |
---|---|
M01 (Added by) | comcpfm |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.comcpfm +++| PFM SPACE 4 00009 M01S00008.comcpfm +++|*** PFM - PERMANENT FILE PROCESSOR. 00010 M01S00009.comcpfm +++|* G. R. MANSFIELD. 70/10/09. 00011 M01S00010.comcpfm +++| PFM SPACE 4 00012 M01S00011.comcpfm +++|*** PFM PERFORMS PERMANENT FILE ACTION FUNCTIONS VIA 00013 M01S00012.comcpfm +++|* CALLS TO THE PP PROGRAM *PFM*. THE OPERATION WILL BE 00014 M01S00013.comcpfm +++|* PROCESSED WHEN THE BUFFER IS NOT BUSY. IF FILE STATUS 00015 M01S00014.comcpfm +++|* WORD = 0, THE FUNCTION WILL NOT BE PROCESSED. 00016 M01S00001.241l630 +++|* 00017 M01S00002.241l630 +++|* AUTO RECALL IS FORCED FOR ALL *PFM* REQUESTS EXCEPT 00018 M01S00003.241l630 +++|* *UGET* AND *UREPLACE*. 00019 M01S00015.comcpfm +++|* 00020 M01S00016.comcpfm +++|* ENTRY (X2) = ADDRESS OF FET FOR FILE. 00021 M01S00017.comcpfm +++|* (X7) = FUNCTION CODE. 00022 M01S00018.comcpfm +++|* 00023 M01S00019.comcpfm +++|* EXIT (X2) = ADDRESS OF FET FOR FILE. 00024 M01S00020.comcpfm +++|* 00025 M01S00021.comcpfm +++|* USES X - 1, 2, 6, 7. 00026 M01S00022.comcpfm +++|* B - NONE. 00027 M01S00023.comcpfm +++|* A - 1. 00028 M01S00024.comcpfm +++|* 00029 M01S00025.comcpfm +++|* CALLS SYS=. 00030 M01S00026.comcpfm +++| 00031 M01S00027.comcpfm +++|
Line S00028 Modification History | |
---|---|
M01 (Added by) | comcpfm |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00032 M02S00028.241l630 ---| PFM2 RJ =XSYS= 00033 M01S00004.241l630 +++| PFM3 RJ =XSYS= 00034 M01S00029.comcpfm +++| 00035 M01S00030.comcpfm +++| PFM= PS ENTRY/EXIT 00036 M01S00031.comcpfm +++| SA1 X2 CHECK BUFFER STATUS 00037 M01S00032.comcpfm +++| LX1 59 00038 M01S00033.comcpfm +++| NG X1,PFM1 IF BUFFER NOT BUSY 00039 M01S00034.comcpfm +++| ZR X1,PFM= IF BLANK FILE STATUS 00040 M01S00035.comcpfm +++| RECALL X2 00041 M01S00036.comcpfm +++| PFM1 SA1 X2 SET FET BUSY 00042 M01S00037.comcpfm +++| MX6 59 00043 M01S00038.comcpfm +++| BX6 X6*X1 00044 M01S00039.comcpfm +++| SA6 X2 00045 M01S00040.comcpfm +++| SA1 PFMA FORM CALL 00046 M01S00041.comcpfm +++| BX6 X1+X2
Line S00042 Modification History | |
---|---|
M01 (Added by) | comcpfm |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00047 M02S00042.241l630 ---| LX7 24
Line S00043 Modification History | |
---|---|
M01 (Added by) | comcpfm |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00048 M02S00043.241l630 ---| BX6 X6+X7
Line S00044 Modification History | |
---|---|
M01 (Added by) | comcpfm |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00049 M02S00044.241l630 ---| EQ PFM2
Line S00045 Modification History | |
---|---|
M01 (Added by) | comcpfm |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00045.241l630 ---|
Line S00046 Modification History | |
---|---|
M01 (Added by) | comcpfm |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00051 M02S00046.241l630 ---| PFMA CON 0LPFM+1S40 00052 M01S00005.241l630 +++| SX1 X7-24B 00053 M01S00006.241l630 +++| ZR X1,PFM2 IF *UGET* REQUEST 00054 M01S00007.241l630 +++| SX1 X7-25B 00055 M01S00008.241l630 +++| ZR X1,PFM2 IF *UREPLACE* REQUEST 00056 M01S00009.241l630 +++| MX1 1 SET AUTORECALL BIT 00057 M01S00010.241l630 +++| LX1 40-59 00058 M01S00011.241l630 +++| BX6 X6+X1 00059 M01S00012.241l630 +++| PFM2 LX7 24 ADD REQUEST CODE TO CALL 00060 M01S00013.241l630 +++| BX6 X6+X7 00061 M01S00014.241l630 +++| EQ PFM3 PROCESS REQUEST 00062 M01S00015.241l630 +++| 00063 M01S00016.241l630 +++| PFMA CON 0LPFM 00064 M01S00047.comcpfm +++| SPACE 4 00065 M01S00048.comcpfm +++| BASE * 00066 M01S00049.comcpfm +++| QUAL$ IF -DEF,QUAL$ 00067 M01S00050.comcpfm +++| QUAL * 00068 M01S00051.comcpfm +++| PFM= EQU /COMCPFM/PFM= 00069 M01S00052.comcpfm +++| QUAL$ ENDIF 00070 M01S00053.comcpfm +++| ENDX
cdc/nos2.source/opl.opl871/common/comcpfm.txt · Last modified: by 127.0.0.1