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