User Tools

Site Tools


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

Common COMPSFE

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsfe +++|          CTEXT  COMPSFE - SET FAMILY EST ORDINAL.
00002  M01S00002.compsfe +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compsfe +++|          QUAL   COMPSFE
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compsfe +++| SFE      SPACE  4
00006  M01S00005.compsfe +++|***       SFE - SET FAMILY EST ORDINAL.
00007  M01S00006.compsfe +++|*         S. L. KSANDER.     76/09/18.
00008  M01S00007.compsfe +++|          SPACE  4,10
00009  M01S00008.compsfe +++|***       SFE SETS THE FAMILY EST ORDINAL FOR A GIVEN FAMILY.
00010  M01S00009.compsfe +++|*
00011  M01S00010.compsfe +++|*         ENTRY  (FN - FN+3) = FAMILY NAME.
00012  M01S00011.compsfe +++|*                            = 0, IF CP DEFAULT FAMILY.
00013  M01S00012.compsfe +++|*                            = *0*, IF SYSTEM DEFAULT FAMILY.
00014  M01S00013.compsfe +++|*
00015  M01S00014.compsfe +++|*         EXIT   (A) .EQ. 0, IF FAMILY FOUND.
00016  M01S00015.compsfe +++|*                (A) = 1, IF FAMILY FOUND, BUT IDLED.
00017  M01S00016.compsfe +++|*                (A) = 2, IF FAMILY NOT FOUND.
00018  M01S00017.compsfe +++|*                (T2) = FAMILY EST ORDINAL.
00019  M01S00018.compsfe +++|*                (FN - FN+4) = 42/ FAMILY NAME, 6/, 12/ EST ORDINAL.
00020  M01S00019.compsfe +++|*
00021  M01S00020.compsfe +++|*         USES   T1 - T3, CM - CM+4.
00022  M01S00021.compsfe +++|*
00023  M01S00022.compsfe +++|*         MACROS SFA.
00024  M01S00023.compsfe +++|
00025  M01S00024.compsfe +++|
00026  M01S00025.compsfe +++| SFE      SUBR               ENTRY/EXIT
00027  M01S00026.compsfe +++|          LDN    ESTP        SET EST LIMITS
00028  M01S00027.compsfe +++|          CRD    CM
00029  M01S00028.compsfe +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00030  M01S00029.compsfe +++|          STD    T2
00031  M01S00030.compsfe +++|          LDD    CM+3        SET LAST MASS STORAGE ORDINAL + 1
00032  M01S00031.compsfe +++|          STD    T1
00033  M01S00032.compsfe +++|          LDD    FN          CHECK FAMILY NAME
00034  M01S00033.compsfe +++|          ZJN    SFE1        IF FAMILY NAME NOT SET
00035  M01S00034.compsfe +++|          SHN    -6          CHECK EXPLICIT ZERO FAMILY NAME
00036  M01S00035.compsfe +++|          LMN    1R0
00037  M01S00036.compsfe +++|          NJN    SFE2        IF NOT EXPLICIT ZERO FAMILY NAME
00038  M01S00037.compsfe +++|          LDC    PFNL
00039  M01S00038.compsfe +++|          UJN    SFE1.1      SET SYSTEM DEFAULT FAMILY
00040  M01S00039.compsfe +++|
00041  M01S00040.compsfe +++| SFE0     LDN    2           SET FAMILY NOT FOUND STATUS
00042  M01S00041.compsfe +++|          UJN    SFEX        RETURN
00043  M01S00042.compsfe +++|
00044  M01S00043.compsfe +++| SFE1     LDD    CP          SET CP DEFAULT FAMILY
00045  M01S00044.compsfe +++|          ADN    PFCW
00046  M01S00045.compsfe +++| SFE1.1   CRD    CM
00047  M01S00046.compsfe +++|          LDD    CM+3
00048  M01S00047.compsfe +++|          STD    T2
00049  M01S00048.compsfe +++|          SFA    EST         READ EST ENTRY
00050  M01S00049.compsfe +++|          ADK    EQDE
00051  M01S00050.compsfe +++|          CRD    CM
00052  M01S00051.compsfe +++|          LDD    CM+4
00053  M01S00052.compsfe +++|          SHN    3
00054  M01S00053.compsfe +++|          ADN    PFGL
00055  M01S00054.compsfe +++|          CRD    FN
00056  M01S00055.compsfe +++|          SOD    T2          ADJUST FOR *AOD* AT *SFE2*
00057  M01S00056.compsfe +++|
00058  M01S00057.compsfe +++|*         SCAN EST FOR SPECIFIED FAMILY.
00059  M01S00058.compsfe +++|
00060  M01S00059.compsfe +++| SFE2     AOD    T2          ADVANCE EST ORDINAL
00061  M01S00060.compsfe +++|          LMD    T1
00062  M01S00061.compsfe +++|          ZJN    SFE0        IF END OF EST
00063  M01S00062.compsfe +++|          SFA    EST,T2      READ EST ENTRY
00064  M01S00063.compsfe +++|          ADK    EQDE
00065  M01S00064.compsfe +++|          CRD    CM
00066  M01S00065.compsfe +++|          LDD    CM          CHECK DEVICE EST
00067  M01S00066.compsfe +++|          SHN    -6
00068  M01S00067.compsfe +++|          LPN    41
00069  M01S00068.compsfe +++|          LMN    40
00070  M01S00069.compsfe +++|          NJN    SFE2        IF NOT MASS STORAGE
00071  M01S00070.compsfe +++|          LDD    CM+4        SET MST ADDRESS
00072  M01S00071.compsfe +++|          STD    T3
00073  M01S00072.compsfe +++|          SHN    3
00074  M01S00073.compsfe +++|          ADN    STLL
00075  M01S00074.compsfe +++|          CRD    CM
00076  M01S00075.compsfe +++|          LDD    CM
00077  M01S00076.compsfe +++|          SHN    21-3
00078  M01S00077.compsfe +++|          MJN    SFE2        IF UNLOAD REQUESTED
00079  M01S00078.compsfe +++|          LDD    T3
00080  M01S00079.compsfe +++|          SHN    3
00081  M01S00080.compsfe +++|          ADN    MDGL
00082  M01S00081.compsfe +++|          CRD    CM
00083  M01S00082.compsfe +++|          LDD    CM
00084  M01S00083.compsfe +++|          SHN    21-12
00085  M01S00084.compsfe +++|          MJN    SFE2        IF AUXILIARY DEVICE
00086  M01S00085.compsfe +++|          LDD    T3
00087  M01S00086.compsfe +++|          SHN    3
00088  M01S00087.compsfe +++|          ADN    PFGL
00089  M01S00088.compsfe +++|          CRD    CM
00090  M01S00089.compsfe +++|
00091  M01S00090.compsfe +++|*         COMPARE FAMILY NAME.
00092  M01S00091.compsfe +++|
00093  M01S00092.compsfe +++|          LDD    CM
00094  M01S00093.compsfe +++|          LMD    FN
00095  M01S00094.compsfe +++|          NJN    SFE3        IF NO MATCH
00096  M01S00095.compsfe +++|          LDD    CM+1
00097  M01S00096.compsfe +++|          LMD    FN+1
00098  M01S00097.compsfe +++|          NJN    SFE3        IF NO MATCH
00099  M01S00098.compsfe +++|          LDD    CM+2
00100  M01S00099.compsfe +++|          LMD    FN+2
00101  M01S00100.compsfe +++|          NJN    SFE3        IF NO MATCH
00102  M01S00101.compsfe +++|          LDD    CM+3
00103  M01S00102.compsfe +++|          LMD    FN+3
00104  M01S00103.compsfe +++|          SCN    77
00105  M01S00104.compsfe +++|          NJN    SFE3        IF NOT MATCH
00106  M01S00105.compsfe +++|          LDD    T3          CHECK DEVICE MASK
00107  M01S00106.compsfe +++|          SHN    3
00108  M01S00107.compsfe +++|          ADN    PUGL
00109  M01S00108.compsfe +++|          CRD    CM
00110  M01S00109.compsfe +++|          LDD    CM+4
00111  M01S00110.compsfe +++|          SHN    21-7
00112  M01S00111.compsfe +++|          PJN    SFE3        IF NOT FAMILY MASTER DEVICE
00113  M01S00112.compsfe +++|          LDD    T2          SET FAMILY EST ORDINAL
00114  M01S00113.compsfe +++|          STD    FN+4
00115  M01S00114.compsfe +++|          LDD    T3          CHECK IDLE DOWN STATUS
00116  M01S00115.compsfe +++|          SHN    3
00117  M01S00116.compsfe +++|          ADN    DULL
00118  M01S00117.compsfe +++|          CRD    CM
00119  M01S00118.compsfe +++|          LDD    CM+4
00120  M01S00119.compsfe +++|          SHN    0-13        SET FAMILY STATUS
00121  M01S00120.compsfe +++|          LJM    SFEX        RETURN
00122  M01S00121.compsfe +++|
00123  M01S00122.compsfe +++| SFE3     LJM    SFE2        CHECK NEXT EST ENTRY
00124  M01S00123.compsfe +++|          SPACE  4
00125  M01S00124.compsfe +++| QUAL$    IF     -DEF,QUAL$
00126  M01S00125.compsfe +++|          QUAL   *
00127  M01S00126.compsfe +++| SFE      EQU    /COMPSFE/SFE
00128  M01S00127.compsfe +++| QUAL$    ENDIF
00129  M01S00128.compsfe +++|          ENDX
cdc/nos2.source/opl.opl871/common/compsfe.txt · Last modified: by 127.0.0.1