Common COMPUFT

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compuft +++|          CTEXT  COMPUFT - UPDATE FAMILY ORDINAL TABLE.
00002  M01S00002.compuft +++| UFT      SPACE  4,10
00003  M01S00003.compuft +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compuft +++|          QUAL   COMPUFT

Line S00005 Modification History
`M01` (Added by)	`compuft`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION. 1981.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compuft +++| UFT      SPACE  4,10
00008  M01S00007.compuft +++|***       UFT - UPDATE FAMILY ORDINAL TABLE.
00009  M01S00008.compuft +++|*         H. C. PORTILLO.    81/09/17.
00010  M01S00009.compuft +++| UFT      SPACE  4,10
00011  M01S00010.compuft +++|***       *COMPUFT* PROVIDES THE INTERFACE FOR SEARCHING AND UPDATING
00012  M01S00011.compuft +++|*         THE FAMILY ORDINAL TABLE.
00013  M01S00012.compuft +++|*
00014  M01S00013.compuft +++|*         IF THE SYMBOL *GFO$* IS DEFINED, THE ROUTINE *GFO*
00015  M01S00014.compuft +++|*         (GET FAMILY ORDINAL) WILL BE ASSEMBLED.  *GFO* IS USED TO
00016  M01S00015.compuft +++|*         CONVERT A FAMILY NAME TO A FAMILY ORDINAL.  *GFO* ALSO
00017  M01S00016.compuft +++|*         UPDATES THE *FOT* WHEN REQUESTED.
00018  M01S00017.compuft +++|*
00019  M01S00018.compuft +++|*         IF THE SYMBOL *DFF$* IS DEFINED, THE CODE IN *GFO* TO ADD THE
00020  M01S00019.compuft +++|*         FAMILY NAME TO THE FOT WILL NOT BE ASSEMBLED.
00021  M01S00020.compuft +++|*
00022  M01S00021.compuft +++|*         IF THE SYMBOL *GFM$* IS DEFINED, THE ROUTINE *GFM*
00023  M01S00022.compuft +++|*         (GET FAMILY NAME) WILL BE ASSEMBLED.  *GFM* IS USED TO
00024  M01S00023.compuft +++|*         CONVERT A FAMILY ORDINAL TO A FAMILY NAME.
00025  M01S00024.compuft +++| GFO$     IF     DEF,GFO$
00026  M01S00025.compuft +++| GFO      SPACE  4,25
00027  M01S00026.compuft +++|**        GFO - GET FAMILY ORDINAL.
00028  M01S00027.compuft +++|*

Line S00028 Modification History
`M01` (Added by)	`compuft`
`M02` (Updated by)	`ns2224a`

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00028.ns2224a ---|*         ENTRY  (FN - FN+3) = FAMILY NAME.
00030  M01S00001.ns2224a +++|*         ENTRY  (FN - FN+4) = 42/ FAMILY NAME, 18/ UNKNOWN.
00031  M01S00029.compuft +++|*                IF *DFF$* IS NOT DEFINED, (A) = 0 TO ADD FAMILY TO THE
00032  M01S00030.compuft +++|*                FAMILY ORDINAL TABLE IF NOT FOUND.
00033  M01S00031.compuft +++|*                (A) .NE.  0 DO NOT ADD FAMILY NAME.
00034  M01S00032.compuft +++|*
00035  M01S00033.compuft +++|*         EXIT   (A) = 0 IF FAMILY NAME FOUND.
00036  M01S00034.compuft +++|*                (A) = 1 IF FAMILY NAME ADDED.  (*DFF$* NOT DEFINED)
00037  M01S00035.compuft +++|*                (A) = 2 IF FAMILY NOT FOUND AND ADD NOT SELECTED.
00038  M01S00036.compuft +++|*                (A) = 3 IF FAMILY ORDINAL TABLE FULL.  (*DFF$* NOT
00039  M01S00037.compuft +++|*                DEFINED.
00040  M01S00038.compuft +++|*                (A) .LT. 0 IF ERROR FLAG SET.

Line S00039 Modification History
`M01` (Added by)	`compuft`
`M02` (Updated by)	`ns2224a`

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00039.ns2224a ---|*                (FN+4) = FAMILY ORDINAL IF FOUND OR ADDED.
00042  M01S00002.ns2224a +++|*                (FN - FN+4) = 42/ FAMILY NAME, 6/, 12/ FOT ORDINAL
00043  M01S00003.ns2224a +++|*                            IF FOUND OR ADDED TO *FOT*.
00044  M01S00040.compuft +++|*                (FN+4) = 0 IF NOT FOUND AND NOT ADDED.
00045  M01S00041.compuft +++|*
00046  M01S00042.compuft +++|*         USES   T2, CM - CM+4, CN - CN+4.
00047  M01S00043.compuft +++|*
00048  M01S00044.compuft +++|*         CALLS  SFN.
00049  M01S00045.compuft +++|*
00050  M01S00046.compuft +++|*         MACROS DELAY, MONITOR, PAUSE.
00051  M01S00047.compuft +++|*
00052  M01S00048.compuft +++|*         XREF   COMSCPS, COMSEVT.
00053  M01S00049.compuft +++|
00054  M01S00050.compuft +++|
00055  M01S00051.compuft +++| GFO7     LDN    2           SET EXIT CONDITION
00056  M01S00052.compuft +++|
00057  M01S00053.compuft +++| GFO      SUBR               ENTRY/EXIT
00058  M01S00054.compuft +++|          STD    T2          SAVE OPTION
00059  M01S00004.ns2224a +++|          LDD    FN+3        CLEAR EXTRANEOUS INFORMATION
00060  M01S00005.ns2224a +++|          SCN    77
00061  M01S00006.ns2224a +++|          STD    FN+3
00062  M01S00007.ns2224a +++|          LDN    0
00063  M01S00008.ns2224a +++|          STD    FN+4
00064  M01S00055.compuft +++|          LDC    FOTP        READ CONTROL WORD
00065  M01S00056.compuft +++|          CRD    CN
00066  M01S00057.compuft +++|          RJM    SFN         SEARCH FAMILY NAME
00067  M01S00058.compuft +++|          ZJN    GFOX        IF FAMILY NAME FOUND
00068  M01S00059.compuft +++| DFF$     IF     DEF,DFF$
00069  M01S00060.compuft +++|          UJN    GFO7        RETURN ERROR CODE
00070  M01S00061.compuft +++| DFF$     ELSE
00071  M01S00062.compuft +++|          LDD    T2          CHECK ENTRY OPTION
00072  M01S00063.compuft +++|          NJN    GFO7        IF ADD NOT SELECTED
00073  M01S00064.compuft +++| GFO1     DELAY
00074  M01S00065.compuft +++|          PAUSE
00075  M01S00066.compuft +++|          LDD    CM+1
00076  M01S00067.compuft +++|          NJN    GFO3        IF ERROR FLAG SET
00077  M01S00068.compuft +++|          LDN    ZERL
00078  M01S00069.compuft +++|          CRD    CM
00079  M01S00070.compuft +++|          LDD    CN
00080  M01S00071.compuft +++|          STD    CM+3
00081  M01S00072.compuft +++|          LDD    CN+1
00082  M01S00073.compuft +++|          STD    CM+4
00083  M01S00074.compuft +++|          MONITOR UTEM       INTERLOCK FOT
00084  M01S00075.compuft +++|          LDC    FOTP        READ CONTROL WORD
00085  M01S00076.compuft +++|          CRD    CN
00086  M01S00077.compuft +++|          LDD    CM+1
00087  M01S00078.compuft +++|          ZJN    GFO5        IF INTERLOCKED
00088  M01S00079.compuft +++|          LDD    CN+4
00089  M01S00080.compuft +++|          NJN    GFO1        IF FOT NOT FULL
00090  M01S00081.compuft +++| GFO2     LDN    ZERL        ISSUE FOT FULL EVENT
00091  M01S00082.compuft +++|          CRD    CM
00092  M01S00083.compuft +++|          LDN    FOTE
00093  M01S00084.compuft +++|          STD    CM+4
00094  M01S00085.compuft +++|          MONITOR EATM       ISSUE EVENT
00095  M01S00086.compuft +++|*         LDN    0

Line S00087 Modification History
`M01` (Added by)	`compuft`
`M02` (Updated by)	`ns2224a`

Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00087.ns2224a ---|          STD    FN+4
00097  M01S00009.ns2224a +++|*         STD    FN+4
00098  M01S00088.compuft +++|          LDN    MXET+3
00099  M01S00089.compuft +++| GFO3     SBN    MXET
00100  M01S00090.compuft +++| GFO4     LJM    GFOX        RETURN
00101  M01S00091.compuft +++|
00102  M01S00092.compuft +++| GFO5     RJM    SFN         SEARCH FOR FAMILY NAME
00103  M01S00093.compuft +++|          ZJN    GFO6        IF FAMILY NAME FOUND
00104  M01S00094.compuft +++|          LDN    ZERL
00105  M01S00095.compuft +++|          CRD    CM
00106  M01S00096.compuft +++|          LDN    PFOT        ENTER FAMILY NAME IN FOT
00107  M01S00097.compuft +++|          STD    CM+2
00108  M01S00098.compuft +++|          LDD    MA
00109  M01S00099.compuft +++|          CWD    FN
00110  M01S00100.compuft +++|          MONITOR MTRM
00111  M01S00101.compuft +++|          LDD    CM+1        SET FOT ORDINAL
00112  M01S00102.compuft +++|          STD    FN+4
00113  M01S00103.compuft +++|          AOD    T2
00114  M01S00104.compuft +++| GFO6     LDD    CN
00115  M01S00105.compuft +++|          SHN    14
00116  M01S00106.compuft +++|          LMD    CN+1
00117  M01S00107.compuft +++|          CRD    CM
00118  M01S00108.compuft +++|          LDN    0           CLEAR FOT INTERLOCK
00119  M01S00109.compuft +++|          STD    CM+4
00120  M01S00110.compuft +++|          LDD    CN
00121  M01S00111.compuft +++|          SHN    14
00122  M01S00112.compuft +++|          LMD    CN+1
00123  M01S00113.compuft +++|          CWD    CM
00124  M01S00114.compuft +++|          LDD    FN+4
00125  M01S00115.compuft +++|          ZJP    GFO2        IF FOT FULL
00126  M01S00116.compuft +++|          LDD    T2
00127  M01S00117.compuft +++|          LJM    GFO4        RETURN
00128  M01S00118.compuft +++| DFF$     ENDIF
00129  M01S00119.compuft +++| SFN      SPACE  4,10
00130  M01S00120.compuft +++|**        SFN - SEARCH FOR FAMILY NAME.
00131  M01S00121.compuft +++|*

Line S00122 Modification History
`M01` (Added by)	`compuft`
`M02` (Updated by)	`ns2224a`

Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00122.ns2224a ---|*         ENTRY  (FN - FN+3) = FAMILY NAME TO BE FOUND.
00133  M01S00010.ns2224a +++|*         ENTRY  (FN - FN+4) = 42/ FAMILY NAME TO LOCATE, 18/0.
00134  M01S00123.compuft +++|*                (CN - CN+4) = FOT POINTER WORD.
00135  M01S00124.compuft +++|*
00136  M01S00125.compuft +++|*         EXIT   (A) = 0 IF FAMILY NAME FOUND.
00137  M01S00126.compuft +++|*                (A) .NE. 0 IF FAMILY NAME NOT FOUND.
00138  M01S00127.compuft +++|*                (FN+4) =  FOT ORDINAL SET IF FAMILY NAME FOUND.
00139  M01S00128.compuft +++|*
00140  M01S00129.compuft +++|*         USES   CM - CM+4, FN+4.
00141  M01S00130.compuft +++|
00142  M01S00131.compuft +++|
00143  M01S00132.compuft +++| SFN2     LDD    CN          READ NEXT FAMILY ORDINAL FROM FOT
00144  M01S00133.compuft +++|          SHN    14
00145  M01S00134.compuft +++|          LMD    CN+1
00146  M01S00135.compuft +++|          ADD    FN+4
00147  M01S00136.compuft +++|          CRD    CM
00148  M01S00137.compuft +++|          LDD    CM
00149  M01S00138.compuft +++|          ZJN    SFN1        IF ENTRY NOT IN USE
00150  M01S00139.compuft +++|          LMD    FN
00151  M01S00140.compuft +++|          NJN    SFN1        IF WRONG FAMILY
00152  M01S00141.compuft +++|          LDD    FN+1
00153  M01S00142.compuft +++|          LMD    CM+1
00154  M01S00143.compuft +++|          NJN    SFN1        IF WRONG FAMILY
00155  M01S00144.compuft +++|          LDD    FN+2
00156  M01S00145.compuft +++|          LMD    CM+2
00157  M01S00146.compuft +++|          NJN    SFN1        IF WRONG FAMILY
00158  M01S00147.compuft +++|          LDD    FN+3
00159  M01S00148.compuft +++|          LMD    CM+3
00160  M01S00149.compuft +++|          SCN    77
00161  M01S00150.compuft +++|          NJN    SFN1        IF WRONG FAMILY
00162  M01S00151.compuft +++|
00163  M01S00152.compuft +++| SFN      SUBR               ENTRY/EXIT

Line S00153 Modification History
`M01` (Added by)	`compuft`
`M02` (Updated by)	`ns2224a`

Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00153.ns2224a ---|          LDN    0           PRESET SEARCH INDEX

Line S00154 Modification History
`M01` (Added by)	`compuft`
`M02` (Updated by)	`ns2224a`

Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00154.ns2224a ---|          STD    FN+4
00166  M01S00011.ns2224a +++|*         LDN    0           PRESET SEARCH INDEX
00167  M01S00012.ns2224a +++|*         STD    FN+4
00168  M01S00155.compuft +++| SFN1     AOD    FN+4        INCREMENT SEARCH INDEX
00169  M01S00156.compuft +++|          LMD    CN+2
00170  M01S00157.compuft +++|          NJN    SFN2        IF NOT END OF SEARCH
00171  M01S00158.compuft +++|          STD    FN+4
00172  M01S00159.compuft +++|          LDN    1           SET EXIT CONDITION
00173  M01S00160.compuft +++|          UJN    SFNX        RETURN
00174  M01S00161.compuft +++|
00175  M01S00162.compuft +++| GFO$     ENDIF
00176  M01S00163.compuft +++|
00177  M01S00164.compuft +++|
00178  M01S00165.compuft +++| GFM$     IF     DEF,GFM$
00179  M01S00166.compuft +++| GFM      SPACE  4,15
00180  M01S00167.compuft +++|**        GFM - GET FAMILY NAME.
00181  M01S00168.compuft +++|*
00182  M01S00169.compuft +++|*         ENTRY  (A) = FAMILY ORDINAL.
00183  M01S00170.compuft +++|*
00184  M01S00171.compuft +++|*         EXIT   (FN) = 0 IF FAMILY ORDINAL IS NOT
00185  M01S00172.compuft +++|*                         ASSIGNED TO A FAMILY NAME.

Line S00173 Modification History
`M01` (Added by)	`compuft`
`M02` (Updated by)	`ns2224a`

Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00173.ns2224a ---|*                (FN - FN+3) = FAMILY NAME ASSIGNED TO THAT ORDINAL.
00187  M01S00013.ns2224a +++|*                (FN - FN+4) = FAMILY NAME, 18/0.
00188  M01S00174.compuft +++|*
00189  M01S00175.compuft +++|*         USES   FN - FN+4.
00190  M01S00176.compuft +++|*
00191  M01S00177.compuft +++|*         MACROS  MONITOR.
00192  M01S00178.compuft +++|*
00193  M01S00179.compuft +++|*         NOTE   *GFM* WILL HANG IF THE FAMILY ORDINAL
00194  M01S00180.compuft +++|*                IS OUT OF RANGE.
00195  M01S00181.compuft +++|
00196  M01S00182.compuft +++|
00197  M01S00183.compuft +++| GFM2     LDD    FN          READ FAMILY ORDINAL FROM FOT
00198  M01S00184.compuft +++|          SHN    14
00199  M01S00185.compuft +++|          LMD    FN+1
00200  M01S00186.compuft +++|          ADD    T0
00201  M01S00187.compuft +++| GFM3     CRD    FN
00202  M01S00188.compuft +++|
00203  M01S00189.compuft +++| GFM      SUBR               ENTRY/EXIT
00204  M01S00190.compuft +++|          ZJN    GFM1        IF NO FOT ORDINAL
00205  M01S00191.compuft +++|          STD    T0          SAVE FAMILY ORDINAL
00206  M01S00192.compuft +++|          LDC    FOTP        READ FOT POINTER
00207  M01S00193.compuft +++|          CRD    FN
00208  M01S00194.compuft +++|          LDD    FN+2        CHECK FAMILY ORDINAL NUMBER TOO LARGE
00209  M01S00195.compuft +++|          SBD    T0
00210  M01S00196.compuft +++|          PJN    GFM2        IF FAMILY ORDINAL IN RANGE
00211  M01S00197.compuft +++| GFM1     MONITOR  HNGM      HANG PP
00212  M01S00198.compuft +++|          LDN    ZERL
00213  M01S00199.compuft +++|          UJN    GFM3        RETURN
00214  M01S00200.compuft +++|
00215  M01S00201.compuft +++| GFM$     ENDIF
00216  M01S00202.compuft +++|          SPACE  4,10
00217  M01S00203.compuft +++| QUAL$    IF     -DEF,QUAL$
00218  M01S00204.compuft +++|          QUAL   *
00219  M01S00205.compuft +++| GFO$     IF     DEF,GFO$
00220  M01S00206.compuft +++| GFO      EQU    /COMPUFT/GFO
00221  M01S00207.compuft +++| GFO$     ENDIF
00222  M01S00208.compuft +++| GFM$     IF     DEF,GFM$
00223  M01S00209.compuft +++| GFM      EQU    /COMPUFT/GFM
00224  M01S00210.compuft +++| GFM$     ENDIF
00225  M01S00211.compuft +++| QUAL$    ENDIF
00226  M01S00212.compuft +++|          ENDX