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