User Tools

Site Tools


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

Common COMKDPB

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comkdpb +++|          CTEXT  COMKDPB - DETECT POTENTIALLY BLOCKED TASKS.
00002  M01S00002.comkdpb +++|          SPACE  4,10
00003  M01S00003.comkdpb +++|          IF     -DEF,QUAL$
00004  M01S00004.comkdpb +++|          QUAL   COMKDPB
00005  M01S00005.comkdpb +++|          ENDIF
00006  M01S00006.comkdpb +++|          BASE   D
Line S00007 Modification History
M01 (Added by) comkdpb
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1980.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.comkdpb +++| DPB      SPACE  4,10
00010  M01S00009.comkdpb +++|***       DPB - DETECT POTENTIALLY BLOCKED TASKS.
00011  M01S00010.comkdpb +++|*
00012  M01S00011.comkdpb +++|*         S. M. KEEFER       80/04/11.
00013  M01S00012.comkdpb +++|          SPACE  4,10
00014  M01S00013.comkdpb +++|***       THIS COMMON DECK CONTAINS SUBROUTINES USED IN THE DETECTION
00015  M01S00014.comkdpb +++|*         OF POTENTIALLY BLOCKED TASKS.  A TASK IS BLOCKED IF IT
00016  M01S00015.comkdpb +++|*         CANNOT BE LOADED WITH ITS INITIAL FIELD LENGTH, AND IS
00017  M01S00016.comkdpb +++|*         POTENTIALLY BLOCKED IF IT CANNOT BE LOADED WITH ITS INITIAL
00018  M01S00017.comkdpb +++|*         PLUS EXPANDABLE FIELD LENGTH.
00019  M01S00018.comkdpb +++|          SPACE  4,10
00020  M01S00019.comkdpb +++|**        GLOBAL STORAGE.
00021  M01S00020.comkdpb +++|
00022  M01S00021.comkdpb +++|
00023  M01S00022.comkdpb +++| DPBA     DATA   C* FL TOO LARGE  - XXXXXXB, +++++++, $$$$$$$.*
00024  M01S00023.comkdpb +++| DPBB     DATA   C* MFL TOO LARGE - XXXXXXB, +++++++, $$$$$$$.*
00025  M01S00024.comkdpb +++| DPBD     DATA   C* POSSIBLE BLOCKAGE AMONG CM RESIDENT TASKS.*
00026  M01S00025.comkdpb +++| DPBE     DATA   C* BLOCKAGE AMONG CM RESIDENT TASKS.*
00027  M01S00026.comkdpb +++| DPBF     DATA   C* MINIMUM TAF MFL NEEDED = XXXXXXB.*
00028  M01S00027.comkdpb +++|
00029  M01S00028.comkdpb +++| DPBG     BSS    1           FIRST WORD OF CURRENT TLD ENTRY
00030  M01S00029.comkdpb +++| DPBH     BSS    1           TASK LIBRARY NAME TO PUT IN MESSAGE
00031  M01S00030.comkdpb +++| DPBI     BSS    1           MINIMUM MFL NEEDED
00032  M01S00031.comkdpb +++| DPBJ     BSS    1           STORAGE FOR MFL
00033  M01S00032.comkdpb +++| DPBK     BSS    1           FWA OF NEW DIRECTORY FOR LIBRARY UPDATE
Line S00033 Modification History
M01 (Added by) comkdpb
M02 (Updated by) ns2624
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00033.ns2624  ---| DPBL     BSS    1           NAME OF LIBRARY BEING UPDATED
00035  M01S00001.ns2624  +++| DPBM     BSS    1           NAME OF LIBRARY BEING UPDATED
00036  M01S00034.comkdpb +++| AEM      SPACE  4,15
00037  M01S00035.comkdpb +++|**        AEM - ASSEMBLE ERROR MESSAGE.
00038  M01S00036.comkdpb +++|*
00039  M01S00037.comkdpb +++|*         ASSEMBLE AND PUT AN ERROR MESSAGE IN *TAF*-S DAYFILE.
00040  M01S00038.comkdpb +++|*
00041  M01S00039.comkdpb +++|*         ENTRY  (B5) = FWA OF MESSAGE.
00042  M01S00040.comkdpb +++|*                (X1) = FIELD LENGTH OF TASK.
00043  M01S00041.comkdpb +++|*                (DPBG) = TASK NAME.
00044  M01S00042.comkdpb +++|*                (DPBH) = TASK LIBRARY NAME.
00045  M01S00043.comkdpb +++|*
00046  M01S00044.comkdpb +++|*         USES   A - 1.
00047  M01S00045.comkdpb +++|*                X - 0, 1.
00048  M01S00046.comkdpb +++|*                B - 2, 3, 5.
00049  M01S00047.comkdpb +++|*
00050  M01S00048.comkdpb +++|*         CALLS  COD, SNM.
00051  M01S00049.comkdpb +++|*
00052  M01S00050.comkdpb +++|*         MACROS MESSAGE.
00053  M01S00051.comkdpb +++|
00054  M01S00052.comkdpb +++|
00055  M01S00053.comkdpb +++| AEM      SUBR               ENTRY/EXIT
00056  M01S00054.comkdpb +++|
00057  M01S00055.comkdpb +++|*         PUT FIELD LENGTH IN MESSAGE.
00058  M01S00056.comkdpb +++|
00059  M01S00057.comkdpb +++|          RJ     COD         CONSTANT TO OCTAL DISPLAY CODE
00060  M01S00058.comkdpb +++|          BX1    X6
00061  M01S00059.comkdpb +++|          LX1    24
00062  M01S00060.comkdpb +++|          SB5    -B5         FWA OF MESSAGE
00063  M01S00061.comkdpb +++|          SB2    1RX         REPLACEMENT CHARACTER
00064  M01S00062.comkdpb +++|          SB3    DAYB        ALTERNATE ASSEMBLY AREA
00065  M01S00063.comkdpb +++|          RJ     SNM         SET NAME IN MESSAGE
00066  M01S00064.comkdpb +++|
00067  M01S00065.comkdpb +++|*         PUT TASK NAME IN MESSAGE.
00068  M01S00066.comkdpb +++|
00069  M01S00067.comkdpb +++|          SB2    1R+         REPLACEMENT CHARACTER
00070  M01S00068.comkdpb +++|          SA1    DPBG        GET TASK NAME
00071  M01S00069.comkdpb +++|          MX0    TLTNN
00072  M01S00070.comkdpb +++|          BX1    X0*X1
00073  M01S00071.comkdpb +++|          SB5    DAYB        FWA OF PARTIALLY ASSEMBLED MESSAGE
00074  M01S00072.comkdpb +++|          RJ     SNM         SET NAME IN MESSAGE
00075  M01S00073.comkdpb +++|
00076  M01S00074.comkdpb +++|*         PUT TASK LIBRARY NAME IN MESSAGE.
00077  M01S00075.comkdpb +++|
00078  M01S00076.comkdpb +++|          SA1    DPBH        GET TASK LIBRARY NAME
00079  M01S00077.comkdpb +++|          SB2    1R$         REPLACEMENT CHARACTER
00080  M01S00078.comkdpb +++|          SB5    DAYB        FWA OF PARTIALLY ASSEMBLED MESSAGE
00081  M01S00079.comkdpb +++|          RJ     SNM         SET NAME IN MESSAGE
00082  M01S00080.comkdpb +++|          MESSAGE  DAYB      ISSUE MESSAGE TO DAYFILE
00083  M01S00081.comkdpb +++|          EQ     AEMX        RETURN
00084  M01S00082.comkdpb +++| CBN      SPACE  4,25
00085  M01S00083.comkdpb +++|**        CBN - COMPUTATIONS FOR BLOCKED NON CM RESIDENT TASKS.
00086  M01S00084.comkdpb +++|*
00087  M01S00085.comkdpb +++|*         THIS ROUTINE EXTRACTS THE INITIAL AND EXPANDABLE FL FROM EACH
00088  M01S00086.comkdpb +++|*         *TLD* ENTRY IN A TASK LIBRARY AND DETERMINES IF A NON CM
00089  M01S00087.comkdpb +++|*         RESIDENT TASK IS BLOCKED OR NOT.  A MESSAGE WILL BE ISSUED
00090  M01S00088.comkdpb +++|*         AND AN ERROR FLAG RETURNED IF A TASK IS BLOCKED.
00091  M01S00089.comkdpb +++|*
00092  M01S00090.comkdpb +++|*         ENTRY  (B6) = 0 ON FIRST CALL.
00093  M01S00091.comkdpb +++|*                (B7) = 0 TO INITIALIZE ERROR FLAG.
00094  M01S00092.comkdpb +++|*                (A5/X5) = FWA OF TLD ENTRY TO SEARCH.
00095  M01S00093.comkdpb +++|*                (MINXT) = MINIMUM SIZE OF TRANSIENT TASK AREA.
00096  M01S00094.comkdpb +++|*
00097  M01S00095.comkdpb +++|*         EXIT   (B6) = NEGATIVE VALUE WHICH MUST BE ADDED TO MINXT
00098  M01S00096.comkdpb +++|*                       BEFORE NO BLOCKED TASKS IN LIBRARY.
00099  M01S00097.comkdpb +++|*                (B7) = 0, IF NO BLOCKED TASKS DETECTED.
00100  M01S00098.comkdpb +++|*                     = 1, IF BLOCKED TASKS DETECTED.
00101  M01S00099.comkdpb +++|*
00102  M01S00100.comkdpb +++|*         USES   A - 1, 2, 3, 5, 6.
00103  M01S00101.comkdpb +++|*                X - 1, 2, 3, 5, 6.
00104  M01S00102.comkdpb +++|*                B - 3, 4, 5, 6, 7.
00105  M01S00103.comkdpb +++|*
00106  M01S00104.comkdpb +++|*         CALLS  AEM, RTD.
00107  M01S00105.comkdpb +++|
00108  M01S00106.comkdpb +++|
00109  M01S00107.comkdpb +++| CBN      SUBR               ENTRY/EXIT
00110  M01S00108.comkdpb +++| CBN1     SB3    B0+         GET DATA FOR NEXT NON CM RESIDENT ENTRY
00111  M01S00109.comkdpb +++|          RJ     RTD         RETURN TASK LIBRARY DATA
00112  M01S00110.comkdpb +++|          ZR     X5,CBNX     IF NO MORE TLD ENTRIES
00113  M01S00111.comkdpb +++|          SA5    B4+         RESET FWA OF CURRENT TLD ENTRY
00114  M01S00112.comkdpb +++|
00115  M01S00113.comkdpb +++|*         CHECK IF ENOUGH SPACE FOR INITIAL FL LOAD.
00116  M01S00114.comkdpb +++|
00117  M01S00115.comkdpb +++|          BX1    X2
00118  M01S00116.comkdpb +++|          IX6    X1+X3
00119  M01S00117.comkdpb +++|          SA2    MINXT
00120  M01S00118.comkdpb +++|          SA6    CBNA        POTENTIAL TASK FL
00121  M01S00119.comkdpb +++|          SA3    B4
00122  M01S00120.comkdpb +++|          BX6    X3
00123  M01S00121.comkdpb +++|          SA6    DPBG        FIRST WORD OF TLD ENTRY
00124  M01S00122.comkdpb +++|          IX2    X2-X1
00125  M01S00123.comkdpb +++|          PL     X2,CBN2     IF ENOUGH FL
00126  M01S00124.comkdpb +++|          SB7    B1+         SET ERROR FLAG
00127  M01S00125.comkdpb +++|          SB5    DPBA        FWA OF MESSAGE
00128  M01S00126.comkdpb +++|          RJ     AEM         ASSEMBLE ERROR MESSAGE
00129  M01S00127.comkdpb +++|
00130  M01S00128.comkdpb +++|*         CHECK IF ENOUGH SPACE FOR INCREASE TO POTENTIAL FL.
00131  M01S00129.comkdpb +++|
00132  M01S00130.comkdpb +++| CBN2     SA1    CBNA
00133  M01S00131.comkdpb +++|          SA2    MINXT
00134  M01S00132.comkdpb +++|          IX2    X2-X1
00135  M01S00133.comkdpb +++|          PL     X2,CBN4     IF ENOUGH FL
00136  M01S00134.comkdpb +++|          SB4    X2
00137  M01S00135.comkdpb +++|          GE     B4,B6,CBN3  IF NEW INCREMENT NOT LARGER
00138  M01S00136.comkdpb +++|          SB6    B4+
00139  M01S00137.comkdpb +++| CBN3     SB7    B1          SET ERROR FLAG
00140  M01S00138.comkdpb +++|          SB5    DPBB        FWA OF MESSAGE
00141  M01S00139.comkdpb +++|          RJ     AEM         ASSEMBLE ERROR MESSAGE
00142  M01S00140.comkdpb +++| CBN4     SA5    A5+TLDLE    GET NEXT TLD ENTRY
00143  M01S00141.comkdpb +++|          ZR     X5,CBNX     IF LAST ENTRY IN TLD
00144  M01S00142.comkdpb +++|          EQ     CBN1        CHECK NEXT ENTRY
00145  M01S00143.comkdpb +++|
00146  M01S00144.comkdpb +++| CBNA     BSS    1           TASK POTENTIAL FIELD LENGTH
00147  M01S00145.comkdpb +++| DBC      SPACE 4,25
00148  M01S00146.comkdpb +++|**        DBC - DETECT BLOCKS IN CM RESIDENT TASKS.
00149  M01S00147.comkdpb +++|*
00150  M01S00148.comkdpb +++|*         DETECT CM RESIDENT TASKS WHICH EITHER WILL NOT
00151  M01S00149.comkdpb +++|*         OR MIGHT NOT BE ABLE TO GET ENOUGH FIELD LENGTH
00152  M01S00150.comkdpb +++|*         TO EXECUTE.
00153  M01S00151.comkdpb +++|*
00154  M01S00152.comkdpb +++|*         ENTRY  (CMRFL) = SUM OF CM RESIDENT INITIAL FL.
00155  M01S00153.comkdpb +++|*                (CMRPF) = SUM OF CM RESIDENT POTENTIAL FL.
00156  M01S00154.comkdpb +++|*                (DPBJ) = MFL OF *TAF*.  FOR *K.MAXFL* IT IS THE
00157  M01S00155.comkdpb +++|*                         REQUESTED MFL.
00158  M01S00156.comkdpb +++|*
00159  M01S00157.comkdpb +++|*         EXIT   (B7) = 0, IF NO BLOCKS DETECTED.
00160  M01S00158.comkdpb +++|*                     = 1, IF BLOCKS DETECTED.
00161  M01S00159.comkdpb +++|*                (MAXTTA) = MAXIMUM SIZE OF TOTAL TASK AREA.
00162  M01S00160.comkdpb +++|*                (MINTTA) = MINIMUM SIZE OF TOTAL TASK AREA.
00163  M01S00161.comkdpb +++|*
00164  M01S00162.comkdpb +++|*         USES   A - 1, 2, 3, 4, 6, 7.
00165  M01S00163.comkdpb +++|*                X - 1, 2, 3, 4, 6, 7.
00166  M01S00164.comkdpb +++|*                B - 7.
00167  M01S00165.comkdpb +++|*
00168  M01S00166.comkdpb +++|*         CALLS  COD, SNM.
00169  M01S00167.comkdpb +++|*
00170  M01S00168.comkdpb +++|*         MACROS MESSAGE.
00171  M01S00169.comkdpb +++|
00172  M01S00170.comkdpb +++|
00173  M01S00171.comkdpb +++| DBC      SUBR               ENTRY/EXIT
00174  M01S00172.comkdpb +++|          SA2    DPBJ        MFL OF TAF
00175  M01S00173.comkdpb +++|          TX1    -1,VFSCP    INITIAL LWA OF CMM BUFFER
00176  M01S00174.comkdpb +++|          SA3    VCMM        GET CMM FIELD LENGTH
00177  M01S00175.comkdpb +++|          AX3    18          EXPANDABLE FL OF CMM BUFFER
Line S00176 Modification History
M01 (Added by) comkdpb
M02 (Updated by) ns2157
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00176.ns2157  ---|          SB7    B0+         CLEAR ABORT FLAG
00179  M01S00001.ns2157  +++|          SB7    B0          CLEAR ABORT FLAG
00180  M01S00002.ns2157  +++|          SX3    X3
00181  M01S00177.comkdpb +++|
00182  M01S00178.comkdpb +++|*         CAN ALL CM RESIDENT TASKS BE LOADED WITH THEIR MINIMUM RFL.
00183  M01S00179.comkdpb +++|
00184  M01S00180.comkdpb +++|          IX6    X2-X1
00185  M01S00181.comkdpb +++|          SA6    MAXTTA      MAXIMUM SIZE OF TOTAL TASK AREA
00186  M01S00182.comkdpb +++|          SA4    CMRFL       SUM OF CM RESIDENT INITIAL FL
00187  M01S00183.comkdpb +++|          IX7    X6-X3
00188  M01S00184.comkdpb +++|          SA7    MINTTA      MINIMUM SIZE OF TOTAL TASK AREA
00189  M01S00185.comkdpb +++|          IX4    X6-X4
00190  M01S00186.comkdpb +++|          PL     X4,DBC1     IF ENOUGH FL
00191  M01S00187.comkdpb +++|          MESSAGE  DPBE      * BLOCKAGE AMONG CM RESIDENT TASKS.*
00192  M01S00188.comkdpb +++|
00193  M01S00189.comkdpb +++|*         CAN ALL CM RESIDENT TASKS BE LOADED WITH THEIR MAXIMUM RFL.
00194  M01S00190.comkdpb +++|
00195  M01S00191.comkdpb +++| DBC1     SA4    CMRPF       POTENTIAL MEMORY RESIDENT FL
00196  M01S00192.comkdpb +++|          SA3    MINTTA      MINIMUM SIZE OF TOTAL TASK AREA
00197  M01S00193.comkdpb +++|          IX4    X3-X4
00198  M01S00194.comkdpb +++|          PL     X4,DBCX     IF ENOUGH FL
00199  M01S00195.comkdpb +++|          SB7    B1          SET ABORT FLAG
00200  M01S00196.comkdpb +++|          MESSAGE  DPBD      POSSIBLE BLOCKAGE IN CM RESIDENT TASKS
00201  M01S00197.comkdpb +++|          SA1    DPBJ        MFL OF TAF
00202  M01S00198.comkdpb +++|          IX6    X1-X4       COMPUTE NEEDED MFL
00203  M01S00199.comkdpb +++|          SA6    DPBI        REPLACE LARGEST INCREMENT
00204  M01S00200.comkdpb +++|          EQ     DBCX        RETURN
00205  M01S00201.comkdpb +++| DBN      SPACE  4,20
00206  M01S00202.comkdpb +++|**        DBN - DETECT BLOCKS IN NON CM RESIDENT TASKS.
00207  M01S00203.comkdpb +++|*
00208  M01S00204.comkdpb +++|*         DETECT NON CM RESIDENT TASKS WHICH EITHER ARE TOO LARGE TO
00209  M01S00205.comkdpb +++|*         BE LOADED INITIALLY OR WILL BE TOO LARGE TO LOAD IF THEIR
00210  M01S00206.comkdpb +++|*         FIELD LENGTH INCREASES.
00211  M01S00207.comkdpb +++|*
00212  M01S00208.comkdpb +++|*         ENTRY  (DPBJ) = MFL OF *TAF*.  FOR *K.MAXFL* IT IS THE
00213  M01S00209.comkdpb +++|*                         REQUESTED MFL.
00214  M01S00210.comkdpb +++|*                (DPBK) = FWA OF NEW DIRECTORY IF LIBRARY UPDATE.
00215  M01S00211.comkdpb +++|*                       = 0 IF NOT LIBRARY UPDATE.
Line S00212 Modification History
M01 (Added by) comkdpb
M02 (Updated by) ns2624
Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00212.ns2624  ---|*                (DPBL) = LIBRARY BEING UPDATED IF (DPBK) NOT ZERO.
00217  M01S00002.ns2624  +++|*                (DPBM) = NAME OF LIBRARY BEING UPDATED.
00218  M01S00213.comkdpb +++|*                (MINTTA) = MINIMUM SIZE OF TOTAL TASK AREA.
00219  M01S00214.comkdpb +++|*
00220  M01S00215.comkdpb +++|*         EXIT   (MINXT) = MINIMUM SIZE OF TRANSIENT TASK AREA.
00221  M01S00216.comkdpb +++|*                (B7) = 0, IF NO BLOCKED TASKS DETECTED.
00222  M01S00217.comkdpb +++|*                     = 1, IF BLOCKED TASKS DETECTED.
00223  M01S00218.comkdpb +++|*
00224  M01S00219.comkdpb +++|*         USES   A - 1, 2, 4, 5, 6, 7.
00225  M01S00220.comkdpb +++|*                X - 1, 2, 4, 5, 6, 7.
00226  M01S00221.comkdpb +++|*                B - 2, 3, 6, 7.
00227  M01S00222.comkdpb +++|*
00228  M01S00223.comkdpb +++|*         CALLS  CBN.
00229  M01S00224.comkdpb +++|
00230  M01S00225.comkdpb +++|
00231  M01S00226.comkdpb +++| DBN      SUBR               ENTRY/EXIT
00232  M01S00227.comkdpb +++|          SA4    MINTTA      MINIMUM SIZE OF TOTAL TASK AREA
00233  M01S00228.comkdpb +++|          SA2    CMRPF
00234  M01S00229.comkdpb +++|          SA1    VTFL        GET NAME OF SYSTEM TASK LIBRARY
00235  M01S00230.comkdpb +++|          MX5    42
00236  M01S00231.comkdpb +++|          BX6    X1*X5
00237  M01S00232.comkdpb +++|          IX7    X4-X2
00238  M01S00233.comkdpb +++|          SA6    DPBH
00239  M01S00234.comkdpb +++|          SA7    MINXT       MINIMUM SIZE OF TRANSIENT TASK AREA
00240  M01S00235.comkdpb +++|
00241  M01S00236.comkdpb +++|*         CHECK SYSTEM TASK LIBRARY.
00242  M01S00237.comkdpb +++|
00243  M01S00238.comkdpb +++|          TA5    0,VTLD      FWA OF SYSTEM TLD
00244  M01S00239.comkdpb +++|          SA1    DPBK        FWA OF NEW DIRECTORY
00245  M01S00240.comkdpb +++|          ZR     X1,DBN1     IF NOT LIBRARY UPDATE
Line S00241 Modification History
M01 (Added by) comkdpb
M02 (Updated by) ns2624
Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00241.ns2624  ---|          SA2    DPBL        NAME OF UPDATED LIBRARY
00247  M01S00003.ns2624  +++|          SA2    DPBM        NAME OF LIBRARY BEING UPDATED
00248  M01S00242.comkdpb +++|          IX2    X2-X6
00249  M01S00243.comkdpb +++|          NZ     X2,DBN2     IF LIBRARY NOT UPDATED
00250  M01S00244.comkdpb +++|          SA5    X1+
00251  M01S00245.comkdpb +++| DBN1     SB6    B0+         INITIALIZE LARGEST INCREMENT
00252  M01S00246.comkdpb +++|          RJ     CBN         CHECK FOR BLOCKED TASKS
00253  M01S00247.comkdpb +++|
00254  M01S00248.comkdpb +++|*         CHECK USER TASK LIBRARY DIRECTORIES.
00255  M01S00249.comkdpb +++|
00256  M01S00250.comkdpb +++| DBN2     TA4    0,VEDT      USER TLD SEARCH
00257  M01S00251.comkdpb +++|          BX1    X4          CHECK EDT COUNT
00258  M01S00252.comkdpb +++|          LX1    -18
00259  M01S00253.comkdpb +++| DBN3     SX1    X1+
00260  M01S00254.comkdpb +++|          ZR     X1,DBN6     IF LAST EDT IN CHAIN
00261  M01S00255.comkdpb +++|          SX6    X4
00262  M01S00256.comkdpb +++|          SX7    X1
00263  M01S00257.comkdpb +++|          SA6    DBNA        SAVE FWA OF NEXT EDT
00264  M01S00258.comkdpb +++|          SA7    DBNB        SAVE EDT COUNT
00265  M01S00259.comkdpb +++|          SA5    A4+4        GET FWA OF TLD
00266  M01S00260.comkdpb +++|          LX5    -18
00267  M01S00261.comkdpb +++|          MX2    42
00268  M01S00001.ns2258  +++|          ZR     X5,DBN5     IF TL IS EMPTY (NO XXTASKL)
00269  M01S00262.comkdpb +++|          SA1    X5-1
00270  M01S00263.comkdpb +++|          BX6    X1*X2
00271  M01S00002.ns2258  +++|          SA5    X5          SET UP SEARCH ADDRESS
00272  M01S00264.comkdpb +++|          SA6    DPBH        NAME OF CURRENT LIBRARY
Line S00265 Modification History
M01 (Added by) comkdpb
M02 (Updated by) ns2258
Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00265.ns2258  ---|          SA5    X5          SET UP SEARCH ADDRESS
00274  M01S00266.comkdpb +++|          SA1    DPBK        FWA OF NEW DIRECTORY
00275  M01S00267.comkdpb +++|          ZR     X1,DBN4     IF NOT LIBRARY UPDATE
Line S00268 Modification History
M01 (Added by) comkdpb
M02 (Updated by) ns2624
Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00268.ns2624  ---|          SA2    DPBL        NAME OF UPDATED LIBRARY
00277  M01S00004.ns2624  +++|          SA2    DPBM        NAME OF LIBRARY BEING UPDATED
00278  M01S00269.comkdpb +++|          IX2    X2-X6
00279  M01S00270.comkdpb +++|          NZ     X2,DBN5     IF LIBRARY NOT UPDATED
Line S00271 Modification History
M01 (Added by) comkdpb
M02 (Updated by) ns2258
Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00271.ns2258  ---|          SA5    X1+
00281  M01S00003.ns2258  +++|          SA5    X1
00282  M01S00272.comkdpb +++| DBN4     RJ     CBN         CHECK FOR BLOCKED TASKS
00283  M01S00273.comkdpb +++| DBN5     SA1    DBNB        REDUCE EDT COUNT
00284  M01S00274.comkdpb +++|          SX1    X1-1
00285  M01S00275.comkdpb +++|          SA4    DBNA        GET ADDRESS OF NEXT EDT
00286  M01S00276.comkdpb +++|          SA4    X4+
00287  M01S00277.comkdpb +++|          EQ     DBN3        PROCESS NEXT TLD
00288  M01S00278.comkdpb +++|
00289  M01S00279.comkdpb +++| DBN6     ZR     B7,DBNX     IF NO BLOCKED TASKS, RETURN
00290  M01S00280.comkdpb +++|          SA2    DPBJ        MFL OF TAF
00291  M01S00281.comkdpb +++|          SA1    DPBI
00292  M01S00282.comkdpb +++|          SX4    B6
00293  M01S00283.comkdpb +++|          IX4    X2-X4
00294  M01S00284.comkdpb +++|          IX6    X4-X1
00295  M01S00285.comkdpb +++|          NG     X6,DBN7     IF NOT ENOUGH FL
00296  M01S00286.comkdpb +++|          BX1    X4
00297  M01S00287.comkdpb +++| DBN7     RJ     COD         CONSTANT TO OCTAL DISPLAY
00298  M01S00288.comkdpb +++|          SB2    1RX         REPLACEMENT CHARACTER
00299  M01S00289.comkdpb +++|          SB3    DAYB        SET ALTERNATE ASSEMBLY AREA
00300  M01S00290.comkdpb +++|          SB5    -DPBF       FWA OF MESSAGE
00301  M01S00291.comkdpb +++|          BX1    X6
00302  M01S00292.comkdpb +++|          LX1    24
00303  M01S00293.comkdpb +++|          RJ     SNM         SET NAME IN MESSAGE
00304  M01S00294.comkdpb +++|          MESSAGE  DAYB      * MINIMUM TAF MFL NEEDED = XXXXXXB.*
00305  M01S00295.comkdpb +++|          EQ     DBNX        RETURN
00306  M01S00296.comkdpb +++|
00307  M01S00297.comkdpb +++| DBNA     BSS    1           FWA OF NEXT EDT
00308  M01S00298.comkdpb +++| DBNB     BSS    1           EDT COUNT
00309  M01S00299.comkdpb +++| RTD      SPACE  4,30
00310  M01S00300.comkdpb +++|**        RTD - RETURN TASK LIBRARY DATA.
00311  M01S00301.comkdpb +++|*
00312  M01S00302.comkdpb +++|*         READ EACH *TLD* AND ACCUMULATE THE TASK INITIAL (FL) AND
00313  M01S00303.comkdpb +++|*         EXPANDABLE (EF) FIELD LENGTHS FOR CM RESIDENT
00314  M01S00304.comkdpb +++|*         TASKS AND A COUNT OF CM RESIDENT TASKS.
00315  M01S00305.comkdpb +++|*         OPTIONALLY, THE *FL* AND *EF* OF THE NEXT NON CM
00316  M01S00306.comkdpb +++|*         RESIDENT TASK IS RETURNED.
00317  M01S00307.comkdpb +++|*
00318  M01S00308.comkdpb +++|*         ENTRY  (A5/X5) = FWA OF *TLD* TO SEARCH.
00319  M01S00309.comkdpb +++|*                (B3) = 0, RETURN DATA FOR NEXT NON CM RESIDENT ENTRY.
00320  M01S00310.comkdpb +++|*                     =-1, RETURN DATA FOR ALL CM RESIDENT ENTRIES.
00321  M01S00311.comkdpb +++|*                (B5) = 0, ONLY ON FIRST ENTRY TO COUNT CM RESIDENT
00322  M01S00312.comkdpb +++|*                       TASKS.
00323  M01S00313.comkdpb +++|*
00324  M01S00314.comkdpb +++|*         EXIT   (B4) = FWA OF CURRENT *TLD* ENTRY.
00325  M01S00315.comkdpb +++|*                (B5) = COUNT OF CM RESIDENT TASKS, IF (B3)=-1.
00326  M01S00316.comkdpb +++|*                (X2) = TASK FL WHEN (B3)=0.
00327  M01S00317.comkdpb +++|*                (X3) = TASK EF WHEN (B3)=0.
00328  M01S00318.comkdpb +++|*                (CMRPF) = SUM OF CM RESIDENT POTENTIAL FL.
00329  M01S00319.comkdpb +++|*                (CMRFL) = SUM OF CM RESIDENT INITIAL FL.
00330  M01S00320.comkdpb +++|*                (RTDA) = 0, IF (B3)=-1 AND NO NON CM RESIDENT TASKS.
00331  M01S00321.comkdpb +++|*                         1, IF (B3)=-1 AND NON CM RESIDENT TASKS.
00332  M01S00322.comkdpb +++|*
00333  M01S00323.comkdpb +++|*         USES   A - 4, 5, 6.
00334  M01S00324.comkdpb +++|*                X - 1, 2, 3, 4, 5, 6, 7.
00335  M01S00325.comkdpb +++|*                B - 4, 5.
00336  M01S00326.comkdpb +++|
00337  M01S00327.comkdpb +++| RTD3     ZR     B3,RTDX     IF NON CM RESIDENT TASK NEEDED
00338  M01S00328.comkdpb +++|          SX6    1
00339  M01S00329.comkdpb +++|          SA6    RTDA        NON CM RESIDENT TASKS EXIST
00340  M01S00330.comkdpb +++|          SA5    A5+1        WORD 1 OF NEXT TLD ENTRY
00341  M01S00331.comkdpb +++|          NZ     X5,RTD1     IF NOT DONE
00342  M01S00332.comkdpb +++|
00343  M01S00333.comkdpb +++| RTD      SUBR               ENTRY/EXIT
00344  M01S00334.comkdpb +++|          ZR     X5,RTDX     IF NO MORE ENTRIES
00345  M01S00335.comkdpb +++|          MX7    -TLFLN      MASK FOR FL
00346  M01S00336.comkdpb +++|          LX7    TLFLS-TLFLN+1
00347  M01S00337.comkdpb +++|          MX1    -TLEFN      MASK FOR EF
00348  M01S00338.comkdpb +++|          LX1    TLEFS-TLEFN+1
00349  M01S00339.comkdpb +++| RTD1     SB4    A5          SAVE FWA OF CURRENT TLD ENTRY
00350  M01S00340.comkdpb +++|          SA5    A5+B1       WORD 2 OF TLD ENTRY
00351  M01S00341.comkdpb +++|          BX2    -X7*X5      GET TASK FL
00352  M01S00342.comkdpb +++|          LX2    TLFLN-TLFLS-1+6
00353  M01S00343.comkdpb +++|          BX3    -X1*X5      GET TASK EF
00354  M01S00344.comkdpb +++|          LX3    TLEFN-TLEFS-1+6
00355  M01S00345.comkdpb +++|          SA5    A5+1        WORD 3 OF TLD ENTRY
00356  M01S00346.comkdpb +++|          LX5    59-TLDLS
00357  M01S00347.comkdpb +++|          NG     X5,RTD2     IF TASK LOGICALLY DELETED
00358  M01S00348.comkdpb +++|          LX5    59-TLCMS-59+TLDLS
00359  M01S00349.comkdpb +++|          PL     X5,RTD3     IF A NON CM RESIDENT ENTRY
00360  M01S00350.comkdpb +++|          ZR     B3,RTD2     IF NEED NEXT NON CM RESIDENT ENTRY
00361  M01S00351.comkdpb +++|          SB5    B5+1        ACCUMULATE CM RESIDENT TASK COUNT
00362  M01S00352.comkdpb +++|          SX4    NUAPL       ADD TASK NEGATIVE FL
00363  M01S00353.comkdpb +++|          IX2    X2+X4
00364  M01S00354.comkdpb +++|          SA4    CMRFL       ACCUMULATE FL
00365  M01S00355.comkdpb +++|          IX6    X2+X4
00366  M01S00356.comkdpb +++|          SA6    CMRFL
00367  M01S00357.comkdpb +++|          SA4    CMRPF       ACCUMULATE POTENTIAL FL
00368  M01S00358.comkdpb +++|          IX3    X2+X3       INITIAL + EXTRA FL
00369  M01S00359.comkdpb +++|          IX6    X4+X3
00370  M01S00360.comkdpb +++|          SA6    CMRPF
00371  M01S00361.comkdpb +++| RTD2     SA5    A5+1        WORD 1 OF NEXT TLD ENTRY
00372  M01S00362.comkdpb +++|          NZ     X5,RTD1     IF NOT LAST TLD ENTRY
00373  M01S00363.comkdpb +++|          EQ     RTDX        RETURN
00374  M01S00364.comkdpb +++|
00375  M01S00365.comkdpb +++| RTDA     BSSZ   1           NON CM RESIDENT TASK INDICATOR
00376  M01S00366.comkdpb +++|
00377  M01S00367.comkdpb +++|
00378  M01S00368.comkdpb +++|          BASE   *
00379  M01S00369.comkdpb +++| QUAL$    IF     -DEF,QUAL$
00380  M01S00370.comkdpb +++|          QUAL   *
00381  M01S00371.comkdpb +++| CBN      EQU    /COMKDPB/CBN
00382  M01S00372.comkdpb +++| DBN      EQU    /COMKDPB/DBN
00383  M01S00373.comkdpb +++| DBC      EQU    /COMKDPB/DBC
00384  M01S00374.comkdpb +++| RTD      EQU    /COMKDPB/RTD
00385  M01S00375.comkdpb +++| QUAL$    ENDIF
00386  M01S00376.comkdpb +++| DPB      ENDX
cdc/nos2.source/opl.opl871/common/comkdpb.txt · Last modified: by 127.0.0.1