1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcsfm +++|          CTEXT  COMCSFM - SYSTEM FILE MANAGER PROCESSOR.
00002  M01S00002.comcsfm +++| SFM      SPACE  4
00003  M01S00003.comcsfm +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcsfm +++|          QUAL   COMCSFM
00005  M01S00005.comcsfm +++|          BASE   D

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.comcsfm +++| SFM      SPACE  4
00009  M01S00008.comcsfm +++|***       SFM - SYSTEM FILE MANAGER PROCESSOR.
00010  M01S00009.comcsfm +++|*         G. R. MANSFIELD.  70/10/09.
00011  M01S00010.comcsfm +++| SFM      SPACE  4
00012  M01S00011.comcsfm +++|***              SFM PROCESSES REQUESTS FOR THE SYSTEM FILE MANAGER PP
00013  M01S00012.comcsfm +++|*         PROGRAM *SFM*.
00014  M01S00013.comcsfm +++|*         IF THE SPECIFIED FET IS BUSY, A FILE RECALL IS PERFORMED.
00015  M01S00014.comcsfm +++|*         IF THE SPECIFIED FET IS BLANK, SFM RETURNS WITH NO ACTION
00016  M01S00015.comcsfm +++|*         TAKEN.
00017  M01S00016.comcsfm +++|*
00018  M01S00017.comcsfm +++|*         ENTRY  (X2) = ADDRESS OF FET.
00019  M01S00018.comcsfm +++|*                (X7) = FUNCTION CODE.
00020  M01S00019.comcsfm +++|*
00021  M01S00020.comcsfm +++|*         EXIT   (X2) = ADDRESS OF FET.
00022  M01S00021.comcsfm +++|*
00023  M01S00022.comcsfm +++|*         USES   X - 1, 6, 7.
00024  M01S00023.comcsfm +++|*                B - NONE.
00025  M01S00024.comcsfm +++|*                A - 1.
00026  M01S00025.comcsfm +++|*
00027  M01S00026.comcsfm +++|*         CALLS  SYS=.
00028  M01S00027.comcsfm +++|
00029  M01S00028.comcsfm +++|
00030  M01S00029.comcsfm +++| SFM2     RJ     =XSYS=
00031  M01S00030.comcsfm +++|
00032  M01S00031.comcsfm +++| SFM      PS                 ENTRY/EXIT
00033  M01S00032.comcsfm +++|          SA1    X2          CHECK FILE STATUS
00034  M01S00033.comcsfm +++|          LX1    59
00035  M01S00034.comcsfm +++|          NG     X1,SFM1     IF NOT BUSY
00036  M01S00035.comcsfm +++|          ZR     X1,SFM      RETURN IF BLANK FET
00037  M01S00036.comcsfm +++|          RECALL X2
00038  M01S00037.comcsfm +++| SFM1     SA1    X2          SET FET BUSY
00039  M01S00038.comcsfm +++|          MX6    59
00040  M01S00039.comcsfm +++|          BX6    X6*X1
00041  M01S00040.comcsfm +++|          SA6    A1
00042  M01S00041.comcsfm +++|          SA1    SFMA        SET *SFM* REQUEST
00043  M01S00042.comcsfm +++|          LX7    24
00044  M01S00043.comcsfm +++|          BX1    X1+X7
00045  M01S00044.comcsfm +++|          SX2    X2
00046  M01S00045.comcsfm +++|          BX6    X1+X2
00047  M01S00046.comcsfm +++|          EQ     SFM2
00048  M01S00047.comcsfm +++|
00049  M01S00048.comcsfm +++| SFMA     CON    0LSFM+1S40
00050  M01S00049.comcsfm +++|          SPACE  4
00051  M01S00050.comcsfm +++|          BASE   *
00052  M01S00051.comcsfm +++| QUAL$    IF     -DEF,QUAL$
00053  M01S00052.comcsfm +++|          QUAL   *
00054  M01S00053.comcsfm +++| SFM      EQU    /COMCSFM/SFM
00055  M01S00054.comcsfm +++| QUAL$    ENDIF
00056  M01S00055.comcsfm +++|          ENDX