User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comclfm

Common COMCLFM

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comclfm +++|          CTEXT  COMCLFM - LOCAL FILE MANAGER PROCESSOR.
00002  M01S00002.comclfm +++| LFM      SPACE  4
00003  M01S00003.comclfm +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comclfm +++|          QUAL   COMCLFM
00005  M01S00005.comclfm +++|          BASE   D
Line S00006 Modification History
M01 (Added by) comclfm
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.comclfm +++| LFM      SPACE  4
00009  M01S00008.comclfm +++|***       LFM - LOCAL FILE MANAGER PROCESSOR.
00010  M01S00009.comclfm +++|*         G. R. MANSFIELD.  70/10/09.
00011  M01S00010.comclfm +++| LFM      SPACE  4
00012  M01S00011.comclfm +++|***              LFM PROCESSES REQUESTS FOR THE LOCAL FILE MANAGER PP
00013  M01S00012.comclfm +++|*         PROGRAM *LFM*.
00014  M01S00013.comclfm +++|*         IF THE SPECIFIED FET IS BUSY, A FILE RECALL IS PERFORMED.
00015  M01S00014.comclfm +++|*         IF THE SPECIFIED FET IS BLANK, LFM RETURNS WITH NO ACTION
00016  M01S00015.comclfm +++|*         TAKEN.
00017  M01S00016.comclfm +++|*
00018  M01S00017.comclfm +++|*         ENTRY  (X2) = ADDRESS OF FET.
00019  M01S00018.comclfm +++|*                (X7) = FUNCTION CODE.
00020  M01S00019.comclfm +++|*
00021  M01S00020.comclfm +++|*         EXIT   (X2) = ADDRESS OF FET.
00022  M01S00021.comclfm +++|*
00023  M01S00022.comclfm +++|*         USES   X - 1, 6, 7.
00024  M01S00023.comclfm +++|*                B - NONE.
00025  M01S00024.comclfm +++|*                A - 1.
00026  M01S00025.comclfm +++|*
00027  M01S00026.comclfm +++|*         CALLS  SYS=.
00028  M01S00027.comclfm +++|
00029  M01S00028.comclfm +++|
00030  M01S00029.comclfm +++| LFM2     RJ     =XSYS=
00031  M01S00030.comclfm +++|
00032  M01S00031.comclfm +++| LFM=     PS                 ENTRY/EXIT
00033  M01S00032.comclfm +++|          SA1    X2          CHECK FILE STATUS
00034  M01S00033.comclfm +++|          LX1    59
00035  M01S00034.comclfm +++|          NG     X1,LFM1     IF NOT BUSY
00036  M01S00035.comclfm +++|          ZR     X1,LFM=     RETURN IF BLANK FET
00037  M01S00036.comclfm +++|          RECALL X2
00038  M01S00037.comclfm +++| LFM1     SA1    X2          SET FET BUSY
00039  M01S00038.comclfm +++|          MX6    59
00040  M01S00039.comclfm +++|          BX6    X6*X1
00041  M01S00040.comclfm +++|          SA6    A1
00042  M01S00041.comclfm +++|          SA1    LFMA        SET *LFM* REQUEST
00043  M01S00042.comclfm +++|          LX7    24
00044  M01S00043.comclfm +++|          BX1    X1+X7
00045  M01S00044.comclfm +++|          BX6    X1+X2
00046  M01S00045.comclfm +++|          EQ     LFM2
00047  M01S00046.comclfm +++|
00048  M01S00047.comclfm +++| LFMA     CON    0LLFM+1S40
00049  M01S00048.comclfm +++|          SPACE  4
00050  M01S00049.comclfm +++|          BASE   *
00051  M01S00050.comclfm +++| QUAL$    IF     -DEF,QUAL$
00052  M01S00051.comclfm +++|          QUAL   *
00053  M01S00052.comclfm +++| LFM=     EQU    /COMCLFM/LFM=
00054  M01S00053.comclfm +++| QUAL$    ENDIF
00055  M01S00054.comclfm +++|          ENDX
cdc/nos2.source/opl.opl871/common/comclfm.txt ยท Last modified: by 127.0.0.1