User Tools

Site Tools


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

Common COMCSRI

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcsri +++|          CTEXT  COMCSRI - STAGE REQUEST INTERFACE.
00002  M01S00002.comcsri +++| SRI      SPACE  4,10
00003  M01S00003.comcsri +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcsri +++|          QUAL   COMCSRI
00005  M01S00005.comcsri +++|          BASE   D
Line S00006 Modification History
M01 (Added by) comcsri
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcsri +++| SRI      SPACE  4,10
00009  M01S00008.comcsri +++|***       SRI - STAGE REQUEST INTERFACE.
00010  M01S00009.comcsri +++|*         W. C. WELLS.       86/01/27.
00011  M01S00010.comcsri +++|*         P. C. SMITH.       87/04/07.
00012  M01S00011.comcsri +++| SRI      SPACE  4,10
00013  M01S00012.comcsri +++|***       *COMCSRI* HANDLES THE INTERFACE BETWEEN *MAGNET* AND THE
00014  M01S00013.comcsri +++|*         VARIOUS TAPE ALTERNATE STORAGE ROUTINES WHICH NEED TO
00015  M01S00014.comcsri +++|*         RETRIEVE STAGE REQUESTS.  *COMCSRI* HAS THE FOLLOWING
00016  M01S00015.comcsri +++|*         ENTRY POINTS -
00017  M01S00016.comcsri +++|*
00018  M01S00017.comcsri +++|*         GSR - GET STAGE REQUEST.
00019  M01S00018.comcsri +++|*         RSR - REQUEUE STAGE REQUEST.
00020  M01S00019.comcsri +++|*         SRM - SEND REQUEST TO *MAGNET*.
00021  M01S00020.comcsri +++|*         TCM - TERMINATE CONNECTION WITH *MAGNET*.
00022  M01S00021.comcsri +++| GSR      SPACE  4,40
00023  M01S00022.comcsri +++|**        GSR - GET STAGE REQUEST.
00024  M01S00023.comcsri +++|*
00025  M01S00024.comcsri +++|*         DEPENDING ON THE STATE OF THE CALLING JOB (IN *MAGNET*-S
00026  M01S00025.comcsri +++|*         ACTIVE STAGE JOB TABLE), *GSR* DOES ONE OF THREE THINGS.
00027  M01S00026.comcsri +++|*
00028  M01S00027.comcsri +++|*         1. IF THE CALLING JOB IS A NORMAL STAGE JOB AND HAS A VSN
00029  M01S00028.comcsri +++|*         ASSIGNED, RETURN ANY STAGE REQUEST WHICH HAS A MATCHING VSN.
00030  M01S00029.comcsri +++|*         IF THE *INITIALIZE* BIT IS STILL SET FOR THIS JOB, TELL
00031  M01S00030.comcsri +++|*         *MAGNET* TO CLEAR IT.
00032  M01S00031.comcsri +++|*
00033  M01S00032.comcsri +++|*         2. IF THE CALLING JOB DOES NOT HAVE A VSN ASSIGNED (OR, FOR
00034  M01S00033.comcsri +++|*         *PFHELPR*, IF IT HAS THE *INITIALIZE* BIT SET), RETURN ANY
00035  M01S00034.comcsri +++|*         STAGE REQUEST WHOSE VSN DOES NOT MATCH A VSN ASSIGNED TO
00036  M01S00035.comcsri +++|*         ANY OTHER ACTIVE STAGE JOB.
00037  M01S00036.comcsri +++|*
00038  M01S00037.comcsri +++|*         3. IF THE CALLING JOB IS *PFHELPR* AND DOES NOT HAVE THE
00039  M01S00038.comcsri +++|*         *INITIALIZE* BIT SET, COUNT ALL REQUESTS WHOSE VSN DOES NOT
00040  M01S00039.comcsri +++|*         MATCH A VSN ASSIGNED TO ANY ACTIVE STAGE JOB.  IF THE COUNT
00041  M01S00040.comcsri +++|*         EXCEEDS 100D, RETURN A STATUS TO *PFHELPR*.  NOTE - THIS
00042  M01S00041.comcsri +++|*         STATUS WILL ONLY BE RETURNED IF ALL NORMAL STAGE JOBS ARE
00043  M01S00042.comcsri +++|*         ACTIVE.
00044  M01S00043.comcsri +++|*
00045  M01S00044.comcsri +++|*         EXIT   (B6) = FWA OF REQUEST BLOCK, IF REQUEST FOUND.
00046  M01S00045.comcsri +++|*                (B6) = 0, IF NO REQUEST FOUND.
00047  M01S00046.comcsri +++|*                (B6) = -1, IF UNABLE TO COMMUNICATE WITH *MAGNET*.
00048  M01S00047.comcsri +++|*                (B6) = 1, IF HELPER SHOULD CLEAN *MAGNET*-S REQUESTS.
00049  M01S00048.comcsri +++|*                       (THIS MODE IS SET *ONLY* FOR *PFHELPR*).
00050  M01S00049.comcsri +++|*
00051  M01S00050.comcsri +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00052  M01S00051.comcsri +++|*                A - 1, 2, 3, 4, 6, 7.
00053  M01S00052.comcsri +++|*                B - 2, 6.
00054  M01S00053.comcsri +++|*
00055  M01S00054.comcsri +++|*         CALLS  RTP, SRM.
00056  M01S00055.comcsri +++|*
00057  M01S00056.comcsri +++|*         MACROS SYSTEM.
00058  M01S00057.comcsri +++|
00059  M01S00058.comcsri +++|
00060  M01S00059.comcsri +++| GSR14    SB6    -1          INDICATE ERROR
00061  M01S00060.comcsri +++|
00062  M01S00061.comcsri +++|
00063  M01S00062.comcsri +++| GSR      SUBR               ENTRY/EXIT
00064  M01S00063.comcsri +++|          SB6    B0+         SET *NO ENTRY FOUND* EXIT CONDITION
00065  M01S00064.comcsri +++|          SA4    JTSI        GET CURRENT OFFSET
00066  M01S00065.comcsri +++|          NZ     X4,GSR5     IF NOT NEW SCAN
00067  M01S00066.comcsri +++|
00068  M01S00067.comcsri +++|*         START OF NEW SCAN OF REQUEST TABLE.
00069  M01S00068.comcsri +++|
00070  M01S00069.comcsri +++| GSR1     RJ     RTP         READ TABLE POINTERS
00071  M01S00070.comcsri +++|          ZR     X6,GSR14    IF UNABLE TO READ POINTERS
00072  M01S00071.comcsri +++|          SA1    RQJT        READ JOB TABLE
00073  M01S00072.comcsri +++|          MX6    -48
00074  M01S00073.comcsri +++|          BX6    -X6*X1      CLEAR PREVIOUS STATUS
00075  M01S00074.comcsri +++|          SA6    A1
00076  M01S00075.comcsri +++|          SYSTEM RSB,R,A6,MTSI  READ JOB TABLE
00077  M01S00076.comcsri +++|          SA1    RQJT
00078  M01S00077.comcsri +++|          PL     X1,GSR14    IF NOT PROCESSED
00079  M01S00078.comcsri +++|          SA1    JTIN        GET POINTER INTO TABLE
00080  M01S00079.comcsri +++|          SA3    JTEC        GET OUR VERSION OF JOB TABLE ENTRY
00081  M01S00080.comcsri +++|          NG     X1,GSR2     IF NO POINTER
00082  M01S00081.comcsri +++|          SA2    X1+ASJT     READ *MAGNET*-S VERSION
00083  M01S00082.comcsri +++|          MX6    24
00084  M01S00083.comcsri +++|          BX7    X2-X3       COMPARE
00085  M01S00084.comcsri +++|          BX6    X6*X7
00086  M01S00085.comcsri +++|          SA1    MODC        GET OUR MODIFICATION COUNT
00087  M01S00086.comcsri +++|          NZ     X6,GSR14    IF NO LONGER OUR ENTRY
00088  M01S00087.comcsri +++|          SX6    B0+         CLEAR COUNTER FOR HELPER
00089  M01S00088.comcsri +++|          SA6    SRCH
00090  M01S00089.comcsri +++|          SA4    PFTM
00091  M01S00090.comcsri +++|          BX1    X1-X4
00092  M01S00091.comcsri +++|          BX1    X1+X7       ADD IN COMPARISON CHANGES (FOR HELPER)
00093  M01S00092.comcsri +++|          ZR     X1,GSRX     IF STILL NO CHANGE IN MODIFICATION COUNT
00094  M01S00093.comcsri +++|          BX6    X2
00095  M01S00094.comcsri +++|          SA6    A3          UPDATE OUR VERSION (NEEDED FOR HELPER)
00096  M01S00095.comcsri +++|          EQ     GSR5        SCAN TABLE
00097  M01S00096.comcsri +++|
00098  M01S00097.comcsri +++|*         SEARCH FOR JOB ENTRY OF CALLING JOB.
00099  M01S00098.comcsri +++|
00100  M01S00099.comcsri +++| GSR2     GETJN  JTEC        GET JSN OF CALLING JOB
00101  M01S00100.comcsri +++|          SA1    JTEC
00102  M01S00101.comcsri +++|          SA2    AJTP        GET LENGTH OF ACTIVE JOB TABLE
00103  M01S00102.comcsri +++|          AX2    48
00104  M01S00103.comcsri +++|          SB2    X2-1
00105  M01S00104.comcsri +++|          MX7    24
00106  M01S00105.comcsri +++| GSR3     SA2    ASJT+B2     CHECK NEXT JOB TABLE ENTRY
00107  M01S00106.comcsri +++|          BX3    X2-X1
00108  M01S00107.comcsri +++|          BX4    X7*X3
00109  M01S00108.comcsri +++|          ZR     X4,GSR4     IF JSN-S MATCH
00110  M01S00109.comcsri +++|          SB2    B2-B1
00111  M01S00110.comcsri +++|          PL     B2,GSR3     IF MORE ENTRIES TO CHECK
00112  M01S00111.comcsri +++|          EQ     GSR14       CALLING JOB NOT IN ACTIVE JOB TABLE
00113  M01S00112.comcsri +++|
00114  M01S00113.comcsri +++|*         JOB FOUND IN JOB TABLE.  IF THIS JOB HAS VSN ASSIGNED AND
00115  M01S00114.comcsri +++|*         HAS INITIALIZATION BIT SET, TELL *MAGNET* TO CLEAR BIT.
00116  M01S00115.comcsri +++|
00117  M01S00116.comcsri +++| GSR4     BX6    X2          JOB TABLE ENTRY FOR THIS JOB
00118  M01S00117.comcsri +++|          SX7    B2          INDEX INTO JOB TABLE FOR THIS JOB
00119  M01S00118.comcsri +++|          SA7    JTIN
00120  M01S00119.comcsri +++|          SA6    JTEC
00121  M01S00120.comcsri +++|          SX2    X6          EXTRACT LOWER 18 BITS OF VSN
00122  M01S00121.comcsri +++|          ZR     X7,GSR1     IF SPECIAL HELPER JOB (ORDINAL 0)
00123  M01S00122.comcsri +++|          ZR     X2,GSR1     IF NO VSN ASSIGNED (IF *RESEX*)
00124  M01S00123.comcsri +++|          LX6    59-24
00125  M01S00124.comcsri +++|          PL     X6,GSR1     IF INITIALIZATION BIT NOT SET
00126  M01S00125.comcsri +++|          SA1    RQAI        SET *ALTER INITIALIZATION BIT* REQUEST
00127  M01S00126.comcsri +++|          SA2    JTEC        GET JSN
00128  M01S00127.comcsri +++|          LX2    -12
00129  M01S00128.comcsri +++|          MX6    24
00130  M01S00129.comcsri +++|          LX6    -12
00131  M01S00130.comcsri +++|          BX2    X6*X2       EXTRACT JSN
00132  M01S00131.comcsri +++|          BX1    -X6*X1      MERGE JSN WITH REQUEST
00133  M01S00132.comcsri +++|          BX7    X2+X1
00134  M01S00133.comcsri +++|          SA7    A1
00135  M01S00134.comcsri +++|          SB2    A7          INFORM *MAGNET* THAT FILE IS RELEASED
00136  M01S00135.comcsri +++|          RJ     SRM
00137  M01S00136.comcsri +++|          EQ     GSR1        RE-READ TABLES
00138  M01S00137.comcsri +++|
00139  M01S00138.comcsri +++|*         THERE COULD BE A REQUEST - SCAN STAGE REQUEST TABLE.
00140  M01S00139.comcsri +++|
00141  M01S00140.comcsri +++| GSR5     SA3    PFTL        GET LENGTH OF TABLE
00142  M01S00141.comcsri +++|          SA4    JTSI        GET NEXT TABLE OFFSET
00143  M01S00142.comcsri +++|          IX6    X4-X3       VERIFY WITHIN TABLE
00144  M01S00143.comcsri +++|          NG     X6,GSR7     IF NOT OUTSIDE OF TABLE
00145  M01S00144.comcsri +++|
00146  M01S00145.comcsri +++|*         PROCESS END OF STAGE REQUEST TABLE.
00147  M01S00146.comcsri +++|
00148  M01S00147.comcsri +++|          BX6    X6-X6
00149  M01S00148.comcsri +++|          SA1    PFTM        GET CURRENT MODIFICATION COUNTER
00150  M01S00149.comcsri +++|          SA6    A4+         RESET OFFSET TO START
00151  M01S00150.comcsri +++|          SA2    MODC        GET PREVIOUS MODIFICATION COUNTER
00152  M01S00151.comcsri +++|          BX6    X1
00153  M01S00152.comcsri +++|          IX2    X1-X2       COMPARE ENTRIES
00154  M01S00153.comcsri +++|          SA1    JTIN        CHECK FOR SPECIAL HELPER PASS
00155  M01S00154.comcsri +++|          NZ     X1,GSR6     IF NOT HELPER
00156  M01S00155.comcsri +++|          SA1    JTEC
00157  M01S00156.comcsri +++|          LX1    59-24
00158  M01S00157.comcsri +++|          NG     X1,GSR6     IF INITIALIZE SET (NOT SPECIAL HELPER PASS)
00159  M01S00158.comcsri +++|          SA1    SRCH        GET COUNT OF UNASSIGNED ENTRIES
00160  M01S00159.comcsri +++|          SX1    X1-100D
00161  M01S00160.comcsri +++|          NG     X1,GSRX     IF NOT ENOUGH REQUESTS
00162  M01S00161.comcsri +++|          SB6    B1          FLAG SPECIAL
00163  M01S00162.comcsri +++|          EQ     GSRX        RETURN
00164  M01S00163.comcsri +++|
00165  M01S00164.comcsri +++|*         RESTART SCAN AT START OF TABLE.
00166  M01S00165.comcsri +++|
00167  M01S00166.comcsri +++| GSR6     SA6    A2          SET COUNTER AT START OF PASS
00168  M01S00167.comcsri +++|          BX4    X4-X4       SET STARTING AT FRONT
00169  M01S00168.comcsri +++|          ZR     X3,GSRX     IF NO LENGTH
00170  M01S00169.comcsri +++|          ZR     X2,GSRX     IF NO CHANGE SINCE START OF LAST PASS
00171  M01S00170.comcsri +++| GSR7     MX7    -6          SEE IF NEXT BUFFER NEEDED
00172  M01S00171.comcsri +++|          BX6    -X7*X4
00173  M01S00172.comcsri +++|          NZ     X6,GSR9     IF STILL IN PREVIOUS BUFFER
00174  M01S00173.comcsri +++|          SA2    PFTF        GET FWA OF TABLE
00175  M01S00174.comcsri +++|
00176  M01S00175.comcsri +++|*         READ NEXT BUFFER FROM STAGE REQUEST TABLE.
00177  M01S00176.comcsri +++|
00178  M01S00177.comcsri +++|          SX6    SRQBL       WORDS TO READ
00179  M01S00178.comcsri +++|          BX1    X3-X4
00180  M01S00179.comcsri +++|          IX2    X2+X4       READ OFFSET IN TABLE
00181  M01S00180.comcsri +++|          AX1    6
00182  M01S00181.comcsri +++|          NZ     X1,GSR8     IF NOT LAST BLOCK
00183  M01S00182.comcsri +++|          BX6    -X7*X3      GET PARTIAL LENGTH
00184  M01S00183.comcsri +++| GSR8     LX6    36          READ NEXT BLOCK OF STAGE REQUEST TABLE
00185  M01S00184.comcsri +++|          SX7    SRQB
00186  M01S00185.comcsri +++|          LX2    18
00187  M01S00186.comcsri +++|          BX7    X7+X6
00188  M01S00187.comcsri +++|          IX6    X7+X2
00189  M01S00188.comcsri +++|          SA6    RQSR
00190  M01S00189.comcsri +++|          SYSTEM RSB,R,A6,MTSI  READ NEXT BLOCK
00191  M01S00190.comcsri +++|          SA1    RQSR
00192  M01S00191.comcsri +++|          PL     X1,GSR14    IF NOT SUCCESSFUL
00193  M01S00192.comcsri +++|
00194  M01S00193.comcsri +++|*         CHECK NEXT STAGE REQUEST ENTRY IN BUFFER.
00195  M01S00194.comcsri +++|
00196  M01S00195.comcsri +++| GSR9     SX6    X4+PFTBL    ADVANCE OFFSET
00197  M01S00196.comcsri +++|          MX7    -6
00198  M01S00197.comcsri +++|          BX3    -X7*X4      EXTRACT OFFSET WITHIN BUFFER
00199  M01S00198.comcsri +++|          SA1    SRQB+X3     READ ENTRY
00200  M01S00199.comcsri +++|          SA6    JTSI
00201  M01S00200.comcsri +++|          ZR     X1,GSR5     IF NOTHING THERE
00202  M01S00201.comcsri +++|          SA2    A1+B1       LOAD ASA (VSN) WORD
00203  M01S00202.comcsri +++|          SA3    JTEC        LOAD OUR JOB TABLE ENTRY
00204  M01S00203.comcsri +++|          MX6    -24         MASK OF VSN ENTRY
00205  M01S00204.comcsri +++|          BX7    X2-X3
00206  M01S00205.comcsri +++|          BX7    -X6*X7
00207  M01S00206.comcsri +++|          ZR     X7,GSR13    IF VSN MATCHES VSN ASSIGNED TO THIS JOB
00208  M01S00207.comcsri +++|          BX7    X6+X3       (X7) = -0, IF CALLER IS *PFHELPR*
00209  M01S00208.comcsri +++|          MX4    1
00210  M01S00209.comcsri +++|          LX3    59-24
00211  M01S00210.comcsri +++|          BX3    X4*X3       EXTRACT INITIALIZATION BIT
00212  M01S00211.comcsri +++|          BX7    -X3*X7
00213  M01S00212.comcsri +++|          ZR     X7,GSR10    IF HELPER SCANNING FOR POTENTIALS
00214  M01S00213.comcsri +++|          PL     X3,GSR5     IF NOT INITIALIZE (NOT ACCEPTING ALL)
00215  M01S00214.comcsri +++|
00216  M01S00215.comcsri +++|*         SCAN JOB TABLE TO SEE IF VSN IS ACTIVE UNDER ANOTHER JOB.
00217  M01S00216.comcsri +++|
00218  M01S00217.comcsri +++| GSR10    SA3    AJTP
00219  M01S00218.comcsri +++|          AX3    48          GET LENGTH OF TABLE
00220  M01S00219.comcsri +++|          BX1    -X6*X2      ISOLATE VSN
00221  M01S00220.comcsri +++| GSR11    SA2    ASJT+X3-1   LOAD JOB ENTRY
00222  M01S00221.comcsri +++|          SX3    X3-1
00223  M01S00222.comcsri +++|          NZ     X2,GSR12    IF STAGE ENTRY IN USE
00224  M01S00223.comcsri +++|          SX4    B0+         FLAG EMPTY STAGE JOB TABLE SLOT FOUND
00225  M01S00224.comcsri +++| GSR12    BX2    -X6*X2      EXTRACT PACKED VSN FROM JOB TABLE ENTRY
00226  M01S00225.comcsri +++|          BX2    X1-X2
00227  M01S00226.comcsri +++|          ZR     X2,GSR5     IF STAGE REQUEST MATCHES VSN FOR OTHER JOB
00228  M01S00227.comcsri +++|          NZ     X3,GSR11    IF MORE ENTRIES TO SCAN (0 IS SPECIAL)
00229  M01S00228.comcsri +++|          NZ     X7,GSR13    IF JOB IS GETTING UNASSIGNED REQUESTS
00230  M01S00229.comcsri +++|
00231  M01S00230.comcsri +++|*         TO GET HERE, THE CALLING JOB MUST BE *PFHELPR* AND THE
00232  M01S00231.comcsri +++|*         INITIALIZATION BIT MUST BE CLEAR.  THIS COMBINATION MEANS
00233  M01S00232.comcsri +++|*         THAT *PFHELPR* IS LOOKING FOR UNASSIGNED REQUESTS TO
00234  M01S00233.comcsri +++|*         DETERMINE IF IT SHOULD ATTACH THE INTERLOCK/REQUEST FILE
00235  M01S00234.comcsri +++|*         AND CLEAR OUT *MAGNET*-S REQUEST TABLE.  AT THIS TIME, WE
00236  M01S00235.comcsri +++|*         SIMPLY COUNT THE REQUESTS.  IF ALL NORMAL STAGE JOBS ARE
00237  M01S00236.comcsri +++|*         ACTIVE AND THERE ARE AT LEAST 100 REQUESTS, WE WILL INFORM
00238  M01S00237.comcsri +++|*         THE HELPER TO ATTACH THE FILE.
00239  M01S00238.comcsri +++|
00240  M01S00239.comcsri +++|          ZR     X4,GSR5     IF NOT ALL NORMAL STAGE JOBS ARE ACTIVE
00241  M01S00240.comcsri +++|          SA1    SRCH        INCREMENT COUNT
00242  M01S00241.comcsri +++|          SX6    X1+B1
00243  M01S00242.comcsri +++|          SA6    A1
00244  M01S00243.comcsri +++|          EQ     GSR5        CHECK NEXT REQUEST
00245  M01S00244.comcsri +++|
00246  M01S00245.comcsri +++|*         SET ADDRESS OF REQUEST AND TELL *MAGNET* TO REMOVE ENTRY.
00247  M01S00246.comcsri +++|
00248  M01S00247.comcsri +++| GSR13    SB6    A1          ADDRESS OF STAGE REQUEST
00249  M01S00248.comcsri +++|          MX6    -30
00250  M01S00249.comcsri +++|          SX2    RER         *REMOVE EXISTING REQUEST* FUNCTION
00251  M01S00250.comcsri +++|          SA3    B6+6        GET UNIQUE ID VALUE
00252  M01S00251.comcsri +++|          SX7    B1
00253  M01S00252.comcsri +++|          LX2    48-0
00254  M01S00253.comcsri +++|          BX3    -X6*X3      EXTRACT UNIQUE ID VALUE
00255  M01S00254.comcsri +++|          BX6    X2+X7       SET LENGTH OF 1
00256  M01S00255.comcsri +++|          LX3    18
00257  M01S00256.comcsri +++|          BX7    X3+X6
00258  M01S00257.comcsri +++|          SA7    RQRE        SET REQUEST INTO BUFFER
00259  M01S00258.comcsri +++|          SB2    A7          ASK *MAGNET* TO REMOVE REQUEST FROM BUFFER
00260  M01S00259.comcsri +++|          RJ     SRM
00261  M01S00001.ns2661  +++|          ZR     X1,GSRX     IF NO ERROR
00262  M01S00002.ns2661  +++|          SB6    -1          INDICATE COMMUNICATION ERROR
00263  M01S00260.comcsri +++|          EQ     GSRX        RETURN
00264  M01S00261.comcsri +++| RSR      SPACE  4,10
00265  M01S00262.comcsri +++|**        RSR - REQUEUE STAGE REQUEST.
00266  M01S00263.comcsri +++|*
00267  M01S00264.comcsri +++|*         ENTRY  (A1) = FWA OF STAGE REQUEST BLOCK.
00268  M01S00265.comcsri +++|*
00269  M01S00266.comcsri +++|*         EXIT   (X1) = 0, IF REQUEST TRANSFERRED SUCCESSFULLY.
00270  M01S00267.comcsri +++|*
00271  M01S00268.comcsri +++|*         USES   X - 1, 2, 3, 6, 7.
00272  M01S00269.comcsri +++|*                A - 1, 2, 3, 6, 7.
00273  M01S00270.comcsri +++|*
00274  M01S00271.comcsri +++|*         CALLS  SRM.
00275  M01S00272.comcsri +++|
00276  M01S00273.comcsri +++|
00277  M01S00274.comcsri +++| RSR      SUBR               ENTRY/EXIT
00278  M01S00275.comcsri +++|          SA1    A1          TRANSFER INFORMATION TO REQUEST BLOCK
00279  M01S00276.comcsri +++|          SA2    A1+B1       +1
00280  M01S00277.comcsri +++|          BX6    X1
00281  M01S00278.comcsri +++|          LX7    X2
00282  M01S00279.comcsri +++|          SA6    RSRA+1
00283  M01S00280.comcsri +++|          SA7    A6+B1
00284  M01S00281.comcsri +++|          SA3    A2+B1       +2
00285  M01S00282.comcsri +++|          SA2    A3+B1       +3
00286  M01S00283.comcsri +++|          BX6    X3
00287  M01S00284.comcsri +++|          LX7    X2
00288  M01S00285.comcsri +++|          SA6    A7+B1
00289  M01S00286.comcsri +++|          SA7    A6+B1
00290  M01S00287.comcsri +++|          SA3    A2+B1       +4
00291  M01S00288.comcsri +++|          SA2    A3+B1       +5
00292  M01S00289.comcsri +++|          BX6    X3
00293  M01S00290.comcsri +++|          LX7    X2
00294  M01S00291.comcsri +++|          SA6    A7+B1
00295  M01S00292.comcsri +++|          SA7    A6+B1
00296  M01S00293.comcsri +++|          SA3    A2+B1       +6
00297  M01S00294.comcsri +++|          SA2    A3+B1       +7
00298  M01S00295.comcsri +++|          BX6    X3
00299  M01S00296.comcsri +++|          SA6    A7+B1
00300  M01S00297.comcsri +++|          SX6    PFTBL
00301  M01S00298.comcsri +++|          MX7    24
00302  M01S00299.comcsri +++|          SX3    QSR
00303  M01S00300.comcsri +++|          BX2    X7*X2       EXTRACT RETRY INFORMATION
00304  M01S00301.comcsri +++|          LX3    48-0        POSITION FUNCTION CODE
00305  M01S00302.comcsri +++|          LX2    24-36       POSITION RETRY INFORMATION
00306  M01S00303.comcsri +++|          BX6    X6+X3
00307  M01S00304.comcsri +++|          BX7    X2+X6
00308  M01S00305.comcsri +++|          SA7    RSRA        SET INTO REQUEST BLOCK
00309  M01S00306.comcsri +++|          SB2    A7          ASK *MAGNET* TO REQUEUE REQUEST
00310  M01S00307.comcsri +++|          RJ     SRM
00311  M01S00308.comcsri +++|          EQ     RSRX        RETURN
00312  M01S00309.comcsri +++|
00313  M01S00310.comcsri +++|
00314  M01S00311.comcsri +++| RSRA     BSS    PFTBL       BUFFER FOR REQUEST TO REQUEUE
00315  M01S00312.comcsri +++| RTP      SPACE  4,10
00316  M01S00313.comcsri +++|**        RTP - READ TABLE POINTERS.
00317  M01S00314.comcsri +++|*
00318  M01S00315.comcsri +++|*         EXIT   (X6) = 0, IF UNABLE TO READ POINTERS.
00319  M01S00316.comcsri +++|*                (MTPR) = TABLE POINTERS FROM *MAGNET*.
00320  M01S00317.comcsri +++|*                *RSB* REQUEST BLOCKS SET (*RQJT* AND *ASJT*).
00321  M01S00318.comcsri +++|*
00322  M01S00319.comcsri +++|*         USES   X - 1, 2, 6, 7.
00323  M01S00320.comcsri +++|*                A - 1, 2, 6.
00324  M01S00321.comcsri +++|*
00325  M01S00322.comcsri +++|*         MACROS RECALL, SYSTEM.
00326  M01S00323.comcsri +++|
00327  M01S00324.comcsri +++|
00328  M01S00325.comcsri +++| RTP3     SX6    B0+         INDICATE ERROR STATUS
00329  M01S00326.comcsri +++|
00330  M01S00327.comcsri +++|
00331  M01S00328.comcsri +++| RTP      SUBR               ENTRY/EXIT
00332  M01S00329.comcsri +++| RTP1     SA1    RTPA        CLEAR PREVIOUS STATUS
00333  M01S00330.comcsri +++|          MX6    -48
00334  M01S00331.comcsri +++|          BX6    -X6*X1
00335  M01S00332.comcsri +++|          SA6    A1
00336  M01S00333.comcsri +++|          SYSTEM RSB,R,RTPA,MTSI    READ LOW CORE VALUES
00337  M01S00334.comcsri +++|          SA1    RTPA
00338  M01S00335.comcsri +++|          PL     X1,RTP3     IF ERROR IN TRANSFER
00339  M01S00336.comcsri +++|          SA2    PFTF
00340  M01S00337.comcsri +++|          NZ     X2,RTP2     IF *MAGNET* IS NOT REPACKING THE TABLE
00341  M01S00338.comcsri +++|          RECALL             GIVE UP CPU
00342  M01S00339.comcsri +++|          EQ     RTP1        TRY AGAIN
00343  M01S00340.comcsri +++|
00344  M01S00341.comcsri +++|*         BUILD JOB TABLE *RSB* REQUEST BLOCK.
00345  M01S00342.comcsri +++|
00346  M01S00343.comcsri +++| RTP2     SA1    AJTP
00347  M01S00344.comcsri +++|          ZR     X2,RTP3     IF TAPE ALTERNATE STORAGE NOT ACTIVE
00348  M01S00345.comcsri +++|          SX2    X1          TABLE FWA
00349  M01S00346.comcsri +++|          AX1    48
00350  M01S00347.comcsri +++|          SX6    ASJT
00351  M01S00348.comcsri +++|          SX1    X1          TABLE LENGTH
00352  M01S00349.comcsri +++|          LX2    18
00353  M01S00350.comcsri +++|          BX7    X6+X2
00354  M01S00351.comcsri +++|          LX1    36
00355  M01S00352.comcsri +++|          IX6    X7+X1
00356  M01S00353.comcsri +++|          SA6    RQJT
00357  M01S00354.comcsri +++|          EQ     RTPX        RETURN
00358  M01S00355.comcsri +++|
00359  M01S00356.comcsri +++|
00360  M01S00357.comcsri +++| RTPA     VFD    12/,12/TVSP-TSRL+1,18/TSRL,18/MTPR  *RSB* IMAGE
00361  M01S00358.comcsri +++| SRM      SPACE  4,10
00362  M01S00359.comcsri +++|**        SRM - SEND REQUEST TO *MAGNET*.
00363  M01S00360.comcsri +++|*
00364  M01S00361.comcsri +++|*         ENTRY  (B2) = FWA OF BLOCK TO TRANSFER.
00365  M01S00362.comcsri +++|*
00366  M01S00363.comcsri +++|*         EXIT   (X1) = 0, IF SUCCESSFUL.
00367  M01S00364.comcsri +++|*
00368  M01S00365.comcsri +++|*         USES   X - 1, 2, 6.
Line S00366 Modification History
M01 (Added by) comcsri
M02 (Updated by) ns2661
Seq #  *Modification Id* Act 
----------------------------+
00369  M02S00366.ns2661  ---|*                A - 1, 6.
00370  M01S00003.ns2661  +++|*                A - 1, 2, 6.
00371  M01S00367.comcsri +++|*
00372  M01S00368.comcsri +++|*         MACROS RECALL, SYSTEM.
00373  M01S00369.comcsri +++|
00374  M01S00370.comcsri +++|
Line S00371 Modification History
M01 (Added by) comcsri
M02 (Updated by) ns2661
Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00371.ns2661  ---| SRM2     SX1    X1-1
Line S00372 Modification History
M01 (Added by) comcsri
M02 (Updated by) ns2661
Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00372.ns2661  ---|
Line S00373 Modification History
M01 (Added by) comcsri
M02 (Updated by) ns2661
Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00373.ns2661  ---|
00378  M01S00374.comcsri +++| SRM      SUBR               ENTRY/EXIT
00379  M01S00375.comcsri +++| SRM1     SA1    SRMA
00380  M01S00376.comcsri +++|          MX6    30
00381  M01S00377.comcsri +++|          BX6    X6*X1       REMOVE PREVIOUS STATUS
00382  M01S00378.comcsri +++|          SA6    A1
Line S00379 Modification History
M01 (Added by) comcsri
M02 (Updated by) ns2661
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00379.ns2661  ---|          SYSTEM SIC,R,A6,B2
Line S00380 Modification History
M01 (Added by) comcsri
M02 (Updated by) ns2661
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00380.ns2661  ---|          SA1    X6          CHECK STATUS
00385  M01S00004.ns2661  +++|          SYSTEM SIC,R,A6,B2 SEND REQUEST TO *MAGNET*
00386  M01S00005.ns2661  +++|          SA1    SRMA        CHECK *SIC* STATUS
00387  M01S00381.comcsri +++|          SX2    X1-5
00388  M01S00382.comcsri +++|          NZ     X2,SRM2     IF BUFFER NOT BUSY
00389  M01S00383.comcsri +++|          RECALL             GIVE UP CPU
00390  M01S00384.comcsri +++|          EQ     SRM1        TRY AGAIN
00391  M01S00385.comcsri +++|
00392  M01S00006.ns2661  +++| SRM2     SX1    X1-1        CHECK *SIC* STATUS
00393  M01S00007.ns2661  +++|          NZ     X1,SRMX     IF *SIC* UNSUCCESSFUL
00394  M01S00386.comcsri +++|
00395  M01S00008.ns2661  +++|*         WAIT UNTIL REQUEST HAS BEEN PROCESSED.
00396  M01S00009.ns2661  +++|
00397  M01S00010.ns2661  +++| SRM3     RECALL             GIVE UP CPU
00398  M01S00011.ns2661  +++|          SA1    SRMB        CLEAR PREVIOUS STATUS
00399  M01S00012.ns2661  +++|          MX6    -48
00400  M01S00013.ns2661  +++|          BX6    -X6*X1
00401  M01S00014.ns2661  +++|          SA6    A1
00402  M01S00015.ns2661  +++|          SYSTEM RSB,R,SRMB,MTSI  CHECK IF REQUEST HAS BEEN PROCESSED
00403  M01S00016.ns2661  +++|          SA1    SRMB
00404  M01S00017.ns2661  +++|          PL     X1,SRMX     IF ERROR IN *RSB* TRANSFER
00405  M01S00018.ns2661  +++|          SA1    SRMC        CHECK *RCAL* BUFFER WITHIN *MAGNET*
00406  M01S00019.ns2661  +++|          ZR     X1,SRMX     IF REQUEST PROCESSED
00407  M01S00020.ns2661  +++|          SA2    B2          COMPARE *RCAL* WITH THIS REQUEST
00408  M01S00021.ns2661  +++|          BX1    X1-X2
00409  M01S00022.ns2661  +++|          ZR     X1,SRM3     IF THIS REQUEST NOT YET PROCESSED
00410  M01S00023.ns2661  +++|          SX1    B0          INDICATE SUCCESSFUL COMPLETION
00411  M01S00024.ns2661  +++|          EQ     SRMX        RETURN
00412  M01S00025.ns2661  +++|
00413  M01S00026.ns2661  +++|
00414  M01S00387.comcsri +++| SRMA     VFD    12/0,18/MTSI,30/  *SIC* CALL IMAGE
00415  M01S00027.ns2661  +++| SRMB     VFD    12/0,12/1,18/RCAL,18/SRMC  *RSB* CALL IMAGE
00416  M01S00028.ns2661  +++| SRMC     BSS    1           *RSB* BUFFER
00417  M01S00388.comcsri +++| TCM      SPACE  4,10
00418  M01S00389.comcsri +++|**        TCM - TERMINATE CONNECTION WITH *MAGNET*.
00419  M01S00390.comcsri +++|*
00420  M01S00391.comcsri +++|*         ENTRY  (JTEC) = 24/VSN,36/
00421  M01S00392.comcsri +++|*
00422  M01S00393.comcsri +++|*         EXIT   (X1) = 0, IF SUCCESSFUL.
00423  M01S00394.comcsri +++|*
00424  M01S00395.comcsri +++|*         USES   X - 1, 2, 3, 6, 7.
00425  M01S00396.comcsri +++|*                A - 1, 2, 3, 6, 7.
00426  M01S00397.comcsri +++|*
00427  M01S00398.comcsri +++|*         CALLS  SRM.
00428  M01S00399.comcsri +++|
00429  M01S00400.comcsri +++|
00430  M01S00401.comcsri +++| TCM      SUBR               ENTRY/EXIT
00431  M01S00402.comcsri +++|          SA2    TCMA        GET REQUEST WORD
00432  M01S00403.comcsri +++|          SA1    JTEC        GET JSN
00433  M01S00404.comcsri +++|          LX1    -12
00434  M01S00405.comcsri +++|          SA3    PFTM        FORCE RECHECK ON NEXT ENTRY
00435  M01S00406.comcsri +++|          BX7    X3
00436  M01S00407.comcsri +++|          SA7    MODC
00437  M01S00408.comcsri +++|          BX6    X6-X6       CLEAR JSN IN *JTEC*
00438  M01S00409.comcsri +++|          SA6    A1
00439  M01S00410.comcsri +++|          MX6    24
00440  M01S00411.comcsri +++|          LX6    -12
00441  M01S00412.comcsri +++|          BX1    X6*X1       EXTRACT JSN
00442  M01S00413.comcsri +++|          BX2    -X6*X2      CLEAR JSN FIELD
00443  M01S00414.comcsri +++|          ZR     X1,TCMX     IF NO JSN IN *JTEC*
00444  M01S00415.comcsri +++|          BX7    X1+X2
00445  M01S00416.comcsri +++|          SA7    A2          SET REQUEST INTO BUFFER
00446  M01S00417.comcsri +++|          SB2    A7          ASK *MAGNET* TO CLEAR JOB ENTRY
00447  M01S00418.comcsri +++|          RJ     SRM
00448  M01S00419.comcsri +++|          EQ     TCMX        RETURN
00449  M01S00420.comcsri +++|
00450  M01S00421.comcsri +++|
00451  M01S00422.comcsri +++| TCMA     VFD    12/TJE,24/,6/,18/1  REQUEST TO TERMINATE JOB ENTRY
00452  M01S00423.comcsri +++|          SPACE  4,10
00453  M01S00424.comcsri +++|*         *MAGNET* TABLE POINTERS.
00454  M01S00425.comcsri +++|
00455  M01S00426.comcsri +++| MTPR     BSSZ   TVSP-TSRL+1     *MAGNET* TABLE POINTERS
00456  M01S00427.comcsri +++| PFTL     EQU    TSRL-TSRL+MTPR  LENGTH OF PF REQUEST TABLE
00457  M01S00428.comcsri +++| PFTF     EQU    TSRP-TSRL+MTPR  FWA OF PF REQUEST TABLE
00458  M01S00429.comcsri +++| PFTM     EQU    TSRM-TSRL+MTPR  MODIFICATION COUNT OF TABLE
00459  M01S00430.comcsri +++| AJTP     EQU    TAJP-TSRL+MTPR  ACTIVE STAGE JOB TABLE POINTER
00460  M01S00431.comcsri +++|
00461  M01S00432.comcsri +++|
00462  M01S00433.comcsri +++|*         DATA LOCATIONS.
00463  M01S00434.comcsri +++|
00464  M01S00435.comcsri +++| JTEC     CON    0           JOB TABLE ENTRY FOR CALLING JOB
00465  M01S00436.comcsri +++| JTIN     CON    -1          JOB TABLE INDEX FOR CALLING JOB
00466  M01S00437.comcsri +++| JTSI     CON    0           JOB TABLE SEARCH INDEX
00467  M01S00438.comcsri +++| MODC     CON    -1          *TSRM* AT START OF NEW SCAN
00468  M01S00439.comcsri +++| RQAI     VFD    12/AIB,24/,6/,18/1 REQUEST TO ALTER INITIALIZATION BIT
00469  M01S00440.comcsri +++| RQJT     VFD    12/,12/ASJTL,18/**,18/ASJT  REQUEST TO READ JOB TABLE
00470  M01S00441.comcsri +++| RQRE     VFD    12/RER,48/**  REQUEST TO REMOVE STAGE REQUEST
00471  M01S00442.comcsri +++| RQSR     BSS    1           *RSB* REQUEST BLOCK FOR STAGE REQUESTS
00472  M01S00443.comcsri +++| SRCH     CON    -1          STAGE REQUEST COUNT FOR HELPER
00473  M01S00444.comcsri +++|
00474  M01S00445.comcsri +++|
00475  M01S00446.comcsri +++|*         ACTIVE STAGE JOB TABLE BUFFER.
00476  M01S00447.comcsri +++|*         THIS BUFFER IS READ FROM TABLE *TAJP* IN *MAGNET*-S FL.
00477  M01S00448.comcsri +++|
00478  M01S00449.comcsri +++| ASJT     BSSZ   SJMX+1      ACTIVE STAGE JOB TABLE BUFFER
00479  M01S00450.comcsri +++| ASJTL    EQU    *-ASJT
00480  M01S00451.comcsri +++|
00481  M01S00452.comcsri +++|
00482  M01S00453.comcsri +++|*         STAGE REQUEST BUFFER.
00483  M01S00454.comcsri +++|*         THIS BUFFER IS READ FROM TABLE *TSRP* IN *MAGNET*-S FL.
00484  M01S00455.comcsri +++|
00485  M01S00456.comcsri +++| SRQB     BSSZ   100B        STAGE REQUEST BUFFER
00486  M01S00457.comcsri +++| SRQBL    EQU    *-SRQB
00487  M01S00458.comcsri +++|          ERRNZ  SRQBL/PFTBL*PFTBL-SRQBL *SRQBL* NOT MULTIPLE OF *PFTBL*
00488  M01S00459.comcsri +++|          SPACE  4,10
00489  M01S00460.comcsri +++|          BASE   *
00490  M01S00461.comcsri +++| QUAL$    IF     -DEF,QUAL$
00491  M01S00462.comcsri +++|          QUAL   *
00492  M01S00463.comcsri +++| GSR      EQU    /COMCSRI/GSR
00493  M01S00464.comcsri +++| RSR      EQU    /COMCSRI/RSR
00494  M01S00465.comcsri +++| SRM      EQU    /COMCSRI/SRM
00495  M01S00466.comcsri +++| TCM      EQU    /COMCSRI/TCM
00496  M01S00467.comcsri +++| QUAL$    ENDIF
00497  M01S00468.comcsri +++|          ENDX
cdc/nos2.source/opl.opl871/common/comcsri.txt ยท Last modified: by 127.0.0.1