User Tools

Site Tools


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

Common COMPSFI

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsfi +++|          CTEXT  COMPSFI - SET FILE INTERLOCK.
00002  M01S00002.compsfi +++|          SPACE  4
00003  M01S00003.compsfi +++| QUAL$    IF     -DEF,QUAL$
00004  M01S00004.compsfi +++|          QUAL   COMPSFI
00005  M01S00005.compsfi +++| QUAL$    ENDIF
Line S00006 Modification History
M01 (Added by) compsfi
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT  CONTROL DATA CORPORATION. 1979.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.compsfi +++|          BASE   MIXED
00009  M01S00008.compsfi +++|          SPACE  4
00010  M01S00009.compsfi +++|***       SFI - SET FILE INTERLOCK.
00011  M01S00010.compsfi +++|*         R. A. JAPS.        76/04/01.
00012  M01S00011.compsfi +++|*         J. L. LARSON.      81/09/17.
00013  M01S00012.compsfi +++|          SPACE  4
00014  M01S00013.compsfi +++|***       *SFI* SETS OR CLEARS THE INTERLOCK FOR THE SPECIFIED
00015  M01S00014.compsfi +++|*         ENTRY IN THE EJT, QFT, OR SYSTEM FNT.
00016  M01S00015.compsfi +++|*
00017  M01S00016.compsfi +++|*         IF SFI$ IS DEFINED, CONTROL IS RETURNED TO THE CALLER
00018  M01S00017.compsfi +++|*         IF THE FILE IS NOT INTERLOCKED.
00019  M01S00018.compsfi +++|*
00020  M01S00019.compsfi +++|*         ENTRY  (A) = ABSOLUTE ADDRESS OF ENTRY TO INTERLOCK.
00021  M01S00020.compsfi +++|*                (T1) = INTERLOCK FUNCTION.
00022  M01S00021.compsfi +++|*                       *CEIN* = CLEAR EJT ENTRY INTERLOCK AND CHECK
00023  M01S00022.compsfi +++|*                       FOR JOB ADVANCE (NEEDED WHEN INTERLOCKED JOB
00024  M01S00023.compsfi +++|*                       IS AT A CONTROL POINT OTHER THAN THAT OF THE
00025  M01S00024.compsfi +++|*                       REQUESTING PP).
00026  M01S00025.compsfi +++|*                       *CFIN* = CLEAR INTERLOCK.
00027  M01S00026.compsfi +++|*                       *SFIN* = SET INTERLOCK.
00028  M01S00027.compsfi +++|*                       *VFIN* = VERIFY FILE NAME AND SET INTERLOCK.
00029  M01S00028.compsfi +++|*                (MB) = *UTEM* ENTRY TO VERIFY FILE NAME IF
00030  M01S00029.compsfi +++|*                       *VFIN* OPTION SELECTED.
00031  M01S00030.compsfi +++|*
00032  M01S00031.compsfi +++|*         EXIT   (A) = 0, IF OPERATION COMPLETE.
00033  M01S00032.compsfi +++|*                    = 1, IF INTERLOCK ALREADY SET (*SFI$* ONLY
00034  M01S00033.compsfi +++|*                         FOR *SFIN* OR *VFIN* OPTION).
00035  M01S00034.compsfi +++|*                    = 2, IF FILE NAME DID NOT MATCH (*VFIN* ONLY).
00036  M01S00035.compsfi +++|*                    = 3, IF ENTRY TO SET INTERLOCK ON IS NOT IN USE
00037  M01S00036.compsfi +++|*                         (FOR *SFIN* OR *VFIN* OPTION).
00038  M01S00037.compsfi +++|*                    .GT. 3, IF *ORET* ERROR FLAG SET WHILE WAITING
00039  M01S00038.compsfi +++|*                         TO SET INTERLOCK (*SFI$* NOT DEFINED FOR
00040  M01S00039.compsfi +++|*                         *SFIN* OR *VFIN* OPTION).
00041  M01S00040.compsfi +++|*
00042  M01S00041.compsfi +++|*         USES   T0, T1, T2, CM - CM+4.
00043  M01S00042.compsfi +++|*
00044  M01S00043.compsfi +++|*         NOTES  *SFI* CAN BE USED TO ISSUE ANY *UTEM* SUBFUNCTION
00045  M01S00044.compsfi +++|*                IF *SFI$* IS DEFINED, SO CALLER IS RESPONSIBLE FOR
00046  M01S00045.compsfi +++|*                ALL *UTEM* RETURN STATUS PROCESSING.
00047  M01S00046.compsfi +++|
00048  M01S00047.compsfi +++|
00049  M01S00048.compsfi +++| SFI$     IF     -DEF,SFI$
00050  M01S00049.compsfi +++| SFI4     LDD    CM+1        RETURN REJECT STATUS
00051  M01S00050.compsfi +++| SFI$     ENDIF
00052  M01S00051.compsfi +++|
00053  M01S00052.compsfi +++| SFI      SUBR               ENTRY/EXIT
00054  M01S00053.compsfi +++| SFI$     IF     -DEF,SFI$
00055  M01S00054.compsfi +++|          STD    T2          SAVE ABSOLUTE ADDRESS OF ENTRY
00056  M01S00055.compsfi +++|          SHN    -14
00057  M01S00056.compsfi +++|          SHN    6
00058  M01S00057.compsfi +++|          RAD    T1
00059  M01S00058.compsfi +++| SFI1     LDD    T2          SET ABSOLUTE ADDRESS OF ENTRY
00060  M01S00059.compsfi +++|          STD    CM+4
00061  M01S00060.compsfi +++|          LDD    T1
00062  M01S00061.compsfi +++|          SHN    14
00063  M01S00062.compsfi +++|          STD    CM+3
00064  M01S00063.compsfi +++|          SHN    -14
00065  M01S00064.compsfi +++| SFI$     ELSE
00066  M01S00065.compsfi +++|          STD    CM+4        SET ABSOLUTE ADDRESS OF ENTRY
00067  M01S00066.compsfi +++|          SHN    -14
00068  M01S00067.compsfi +++|          STD    CM+3
00069  M01S00068.compsfi +++|          LDD    T1
00070  M01S00069.compsfi +++| SFI$     ENDIF
00071  M01S00070.compsfi +++|          STD    CM+1        SET NUMBER OF REQUESTS AND INTERLOCK FLAG
00072  M01S00071.compsfi +++|          MONITOR  UTEM      VERIFY AND/OR INTERLOCK FILE
00073  M01S00072.compsfi +++|          LDD    CM+1
00074  M01S00073.compsfi +++| SFI$     IF     DEF,SFI$
00075  M01S00074.compsfi +++|          UJN    SFIX        RETURN
00076  M01S00075.compsfi +++| SFI$     ELSE
00077  M01S00076.compsfi +++|          ZJN    SFIX        IF OPERATION COMPLETE
00078  M01S00077.compsfi +++|          SBN    2
00079  M01S00078.compsfi +++| SFI2     PJN    SFI4        IF FILE NAME MISMATCH OR ENTRY NOT USED
00080  M01S00079.compsfi +++|
00081  M01S00080.compsfi +++|*         DELAY BEFORE RETRY.
00082  M01S00081.compsfi +++|
00083  M01S00082.compsfi +++|          LDD    HN          DELAY 128*64 MICRO SECONDS
00084  M01S00083.compsfi +++|          STD    T0
00085  M01S00084.compsfi +++| SFI3     SOD    T0
00086  M01S00085.compsfi +++|          MJN    SFI1        IF DELAYED ENOUGH
00087  M01S00086.compsfi +++|          PAUSE
00088  M01S00087.compsfi +++|          DELAY
00089  M01S00088.compsfi +++|          LDD    CM+1
00090  M01S00089.compsfi +++|          LMN    ORET
00091  M01S00090.compsfi +++|          ERRNG  ORET-4      RETURN STATUS DEPENDS ON VALUE
00092  M01S00091.compsfi +++|          ZJN    SFI2        IF OPERATOR OVERRIDE
00093  M01S00092.compsfi +++|          UJN    SFI3        CONTINUE DELAY
00094  M01S00093.compsfi +++| SFI$     ENDIF
00095  M01S00094.compsfi +++|          SPACE  4
00096  M01S00095.compsfi +++| QUAL$    IF     -DEF,QUAL$
00097  M01S00096.compsfi +++|          QUAL   *
00098  M01S00097.compsfi +++| SFI      EQU    /COMPSFI/SFI
00099  M01S00098.compsfi +++| QUAL$    ENDIF
00100  M01S00099.compsfi +++|          BASE   *
00101  M01S00100.compsfi +++|          ENDX
cdc/nos2.source/opl.opl871/common/compsfi.txt ยท Last modified: by 127.0.0.1