User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:magnet.010

Deck MAGNET Part 010

50 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00006 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11161  M02S00006.282l826 ---|          NG     X3,REC2.2   IF TAPE LOST ON RETURN
Line S03526 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11162  M01S03526.282l826 ---|          NG     X4,REC2.1   IF JOB ACTIVITY LOST
11163  M01S03527.282l826 ---|          SX2    X2-RIP
11164  M01S03528.282l826 ---|          NZ     X2,REC3     IF NOT REQUEST IN PROGRESS
Line S03529 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11165  M02S03529.282l826 ---| REC2.1   SA7    A0          CLEAR *1MT* REQUEST
Line S01259 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11166  M02S01259.282l826 ---| REC2.1   SA7    A0+UXRQ     CLEAR *1MT* REQUEST
Line S03530 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11167  M01S03530.282l826 ---|          SA6    A0+UCIA     INDICATE LOST JOB
11168  M01S03531.282l826 ---|          LX6    58-0        CLEAR JOB ACTIVITY LOST FLAG
11169  M01S03532.282l826 ---|          BX7    -X6*X1
11170  M01S03533.282l826 ---|          SA7    A1
Line S00007 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11171  M02S00007.282l826 ---|          SA6    SDFD        SET LOST TAPE FLAG FOR DEMAND FILE
11172  M02S00008.282l826 ---|          SA2    NTAS        DECREMENT ASSIGNED TAPE COUNT
11173  M02S00009.282l826 ---|          SX6    X2-1
11174  M02S00010.282l826 ---|          SA6    A2
Line S03534 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11175  M01S03534.282l826 ---|          EQ     REC5        CLEAR QUEUE
Line S02170 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11176  M01S02170.282l826 +++| REC3     RJ     RES         RESET TAPE ALTERNATE STORAGE
Line S00011 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11177  M01S00011.magne2  +++|
Line S00012 Modification History
M01 (Added by) magne2
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11178  M02S00012.274l797 ---| REC2.2   MX0    1
Line S00013 Modification History
M01 (Added by) magne2
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11179  M03S00013.274l797 ---|          SA7    A0          CLEAR *1MT* REQUEST
Line S01260 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11180  M02S01260.274l797 ---|          SA7    A0+UXRQ     CLEAR *1MT* REQUEST
Line S02389 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11181  M02S02389.282l826 ---| REC2.2   SA7    A0+UXRQ     CLEAR *1MT* REQUEST
11182  M02S02390.282l826 ---|          MX2    22
11183  M02S02391.282l826 ---|          LX2    57-59
11184  M02S02392.282l826 ---|          BX6    X2*X1       CLEAR JOB ASSIGNMENT INFORMATION
11185  M02S02393.282l826 ---|          SA6    A1+
11186  M02S02394.282l826 ---|          MX0    1
11187  M02S02395.282l826 ---|          SA2    A0+UFLA
Line S00014 Modification History
M01 (Added by) magne2
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11188  M03S00014.282l826 ---|          LX0    43-59
Line S02396 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11189  M02S02396.282l826 ---|          LX0    52-59
Line S00015 Modification History
M01 (Added by) magne2
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11190  M03S00015.282l826 ---|          SA7    A1          CLEAR JOB IDENTIFICATION
11191  M03S00016.282l826 ---|          SA2    A0+UST1     CLEAR END OF SET FLAG
Line S02397 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11192  M02S02397.282l826 ---|          BX6    -X0*X2      CLEAR END OF SET FLAG
11193  M02S02398.282l826 ---|          LX0    57-59-52+59 CLEAR REWIND REPOSITIONING REQUIRED FLAG
11194  M02S02399.282l826 ---|          BX6    -X0*X6
Line S00017 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11195  M02S00017.282l826 ---|          SA1    NTAS        DECREMENT ASSIGNED TAPE COUNT
Line S00018 Modification History
M01 (Added by) magne2
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11196  M03S00018.282l826 ---|          BX6    -X0*X2
Line S00019 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11197  M02S00019.282l826 ---|          SA6    A2
Line S00020 Modification History
M01 (Added by) magne2
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11198  M03S00020.282l826 ---|          SA2    A0+UFLA     CLEAR REWIND REPOSITIONING REQUIRED FLAG
11199  M03S00021.282l826 ---|          LX0    57-59-43+59
Line S00022 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11200  M02S00022.282l826 ---|          SX6    X1-1
11201  M02S00023.282l826 ---|          SA6    A1
Line S00024 Modification History
M01 (Added by) magne2
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11202  M03S00024.282l826 ---|          BX6    -X0*X2
11203  M03S00025.282l826 ---|          SA6    A2
Line S00026 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11204  M02S00026.282l826 ---|          EQ     REC4.1      CLEAR UDT
Line S02171 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11205  M01S02171.282l826 +++|*         RESTART MAGNET.
11206  M00S03535.magnet  +++|
Line S03536 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11207  M01S03536.282l826 ---| REC3     SB4    B4+1
11208  M01S03537.282l826 ---| REC4     SA0    A0+UNITL
11209  M01S03538.282l826 ---|          SA1    A0+UJID
Line S03539 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11210  M02S03539.282l826 ---|          SA2    A0
Line S01261 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11211  M02S01261.282l826 ---|          SA2    A0+UXRQ
Line S03540 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11212  M01S03540.282l826 ---|          SB2    B2+B1       INCREMENT UNIT NUMBER
11213  M01S03541.282l826 ---|          NG     X2,REC7     IF END OF UDT
Line S02400 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11214  M02S02400.282l826 ---|          SX6    X1
Line S03542 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11215  M01S03542.282l826 ---|          BX7    X7-X7
Line S03543 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11216  M02S03543.282l826 ---|          NZ     X1,REC2     IF JOB ASSIGNED
Line S02401 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11217  M02S02401.282l826 ---|          NZ     X6,REC2     IF JOB ASSIGNED
Line S03544 Modification History
M01 (Removed by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11218  M02S03544.282l826 ---| REC4.1   SA7    A0+         CLEAR *1MT* REQUEST
11219  M02S03545.282l826 ---|          SA7    A0+UJID     CLEAR JOB IDENTIFICATION
11220  M02S03546.282l826 ---|          SA7    A0+UCIA     CLEAR *CIO* REQUEST
Line S00027 Modification History
M01 (Added by) magne2
M02 (Removed by) 253l688
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11221  M03S00027.282l826 ---|          SA7    A0          CLEAR *1MT* REQUEST
Line S01262 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11222  M02S01262.282l826 ---|          SA7    A0+UXRQ     CLEAR *1MT* REQUEST
Line S00028 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11223  M02S00028.282l826 ---| REC4.1   SA7    A0+UCIA     CLEAR *CIO* REQUEST
Line S03547 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11224  M02S03547.282l826 ---|          SA7    A0+UVSN     CLEAR *VSN*
Line S02402 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11225  M02S02402.282l826 ---|          SA7    A0+UESN     CLEAR EXTERNAL VSN
11226  M02S02403.282l826 ---|          SA7    A0+UVSN     CLEAR VSN
Line S03548 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11227  M01S03548.282l826 ---|
11228  M01S03549.282l826 ---|*         CLEAR QUEUE.
11229  M01S03550.282l826 ---|
11230  M01S03551.282l826 ---| REC5     RJ     GNR         GET REQUEST
11231  M01S03552.282l826 ---|          BX6    X6-X6
11232  M01S03553.282l826 ---|          SA6    A4
11233  M01S03554.282l826 ---|          NZ     X4,REC5     IF NOT EMPTY
11234  M01S03555.282l826 ---| REC6     RJ     GER         GET EXTERNAL REQUEST FROM QUEUE
11235  M01S03556.282l826 ---|          PL     X2,REC6     IF MORE EXTERNAL REQUESTS FOR UNIT
11236  M01S03557.282l826 ---|          NZ     X7,REC3     IF LOST TAPE
11237  M01S03558.282l826 ---|          SA1    A0+UST1
11238  M01S03559.282l826 ---|          BX2    X1
11239  M01S03560.282l826 ---|          LX1    59-56
11240  M01S03561.282l826 ---|          BX5    X5-X5
11241  M01S03562.282l826 ---|          LX2    59-0
11242  M01S03563.282l826 ---|          NG     X1,REC4     IF UNIT DOWN
11243  M01S03564.282l826 ---|          PL     X2,REC4     IF NOT READY
11244  M01S03565.282l826 ---|          SX7    PRWR        SET TO REWIND
11245  M01S03566.282l826 ---|          RJ     MQE         MAKE QUEUE ENTRY
11246  M01S03567.282l826 ---|          EQ     REC4        LOOP
11247  M01S03568.282l826 ---|
11248  M01S03569.282l826 ---|*         SET RECOVERY MESSAGE.
11249  M01S03570.282l826 ---|
11250  M01S03571.282l826 ---| REC7     ZR     B4,REC8     IF NO TAPES RECOVERED
11251  M01S03572.282l826 ---|          SA5    RECE        BUILD TAPES RECOVERED MESSAGE
11252  M01S03573.282l826 ---|          MX0    12
11253  M01S03574.282l826 ---|          SX1    B4
11254  M01S03575.282l826 ---|          RJ     CDD         CONVERT DIGITS
11255  M01S03576.282l826 ---|          LX6    42
11256  M01S03577.282l826 ---|          LX0    54
11257  M01S03578.282l826 ---|          BX5    -X0*X5
11258  M01S03579.282l826 ---|          BX6    X0*X6
11259  M01S03580.282l826 ---|          BX6    X6+X5
11260  M01S03581.282l826 ---|          SA6    RECE        SET TAPE COUNT
11261  M01S03582.282l826 ---|
11262  M01S03583.282l826 ---|*         CLEAR MONITORING FLAG WORD.
11263  M01S03584.282l826 ---|
11264  M01S03585.282l826 ---| REC8     SA1    TMGF        CHECK MONITORING IN PROGRESS
Line S03586 Modification History
M01 (Removed by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11265  M02S03586.282l826 ---|          ZR     X1,REC9     IF MONITORING NOT ENABLED
Line S00029 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11266  M02S00029.282l826 ---|          ZR     X1,REC8.1   IF MONITORING NOT ENABLED
Line S03587 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11267  M01S03587.282l826 ---|          MX6    1
11268  M01S03588.282l826 ---|          SA2    X1+UST1     CLEAR DOWN FLAG IN MONITORED UNIT UDT
11269  M01S03589.282l826 ---|          LX6    56-59
11270  M01S03590.282l826 ---|          MX7    0           CLEAR MONITORING FLAG WORD
11271  M01S03591.282l826 ---|          BX6    -X6*X2
11272  M01S03592.282l826 ---|          SA7    A1
11273  M01S03593.282l826 ---|          SA6    A2
Line S00030 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11274  M02S00030.282l826 ---|
11275  M02S00031.282l826 ---| REC8.1   SA1    SDFD        CHECK IF LOST TAPES
Line S00032 Modification History
M01 (Added by) magne2
M02 (Removed by) magne11
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11276  M03S00032.282l826 ---|          ZR     X1,REC9     IF NO LOST TAPES
Line S00003 Modification History
M01 (Added by) magne11
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11277  M02S00003.282l826 ---|          ZR     X1,REC8.2   IF NO LOST TAPES
Line S00033 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11278  M02S00033.282l826 ---|          RJ     SDF         SET LOST TAPE FLAGS IN DEMAND FILE
11279  M02S00034.282l826 ---|
11280  M02S00035.282l826 ---|*         THE FOLLOWING CODE CANNOT BE OVERLAID BY THE RESOURCE
11281  M02S00036.282l826 ---|*         DEMAND FILE BUFFER.
11282  M02S00037.282l826 ---|
11283  M02S00038.282l826 ---|          ERRNG  *-DBUF-DBUFL  CHECK FOR BUFFER OVERFLOW
Line S00004 Modification History
M01 (Added by) magne11
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11284  M02S00004.282l826 ---|
11285  M02S00005.282l826 ---|*         PROCESS TAPE ALTERNATE STORAGE.
11286  M02S00006.282l826 ---|
11287  M02S00007.282l826 ---| REC8.2   RJ     RES         RESET TAPE ALTERNATE STORAGE
Line S03594 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11288  M01S03594.282l826 ---|
Line S03595 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11289  M02S03595.282l826 ---|*         MAKE 1MT REQUEST.
Line S02404 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11290  M02S02404.282l826 ---|*         RESTART MAGNET.
Line S03596 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11291  M01S03596.282l826 ---|
Line S03597 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11292  M02S03597.282l826 ---| REC9     SA1    RECG        GET *SFM* CALL
11293  M02S03598.282l826 ---|          BX6    X1
11294  M02S03599.282l826 ---|          RJ     SYS=
11295  M02S03600.282l826 ---|          SA1    RECC        GET *1MT* CALL
Line S02405 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11296  M02S02405.282l826 ---| REC9     SA1    RECC        GET *1MT* CALL
Line S02172 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11297  M01S02172.282l826 +++| REC4     SA1    RECC        GET *1MT* CALL
11298  M00S03601.magnet  +++|          SA2    RECB
11299  M00S03602.magnet  +++|          BX7    X1
11300  M00S03603.magnet  +++|          BX6    X2
11301  M00S03604.magnet  +++|          SA7    RECD
11302  M00S03605.magnet  +++|          RJ     SYS=        MAKE *SPC* CALL
11303  M00S03606.magnet  +++|          SA1    RECD
Line S03607 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11304  M01S03607.282l826 ---|          NZ     X1,REC9     IF *SPC* REJECT
Line S02173 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11305  M01S02173.282l826 +++|          NZ     X1,REC4     IF *SPC* REJECT
11306  M00S03608.magnet  +++| REC10    RECALL
11307  M00S03609.magnet  +++|          SA1    RECA
Line S03610 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11308  M01S03610.282l826 ---|          ZR     X1,REC10    IF *1MT* NOT DONE
11309  M01S03611.282l826 ---|          MESSAGE RECE       * XX TAPE FILES RECOVERED.*
11310  M01S03612.282l826 ---|          MESSAGE (=C* RECOVERY COMPLETE.*)
Line S02174 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11311  M01S02174.282l826 +++|          NG     X1,REC10    IF *1MT* NOT DONE
11312  M00S03613.magnet  +++|          EREXIT             CLEAR ERROR EXIT
Line S02406 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11313  M01S02406.274l797 +++|          SETICC RECF        SET INTER-CP COMMUNICATION POINTERS
11314  M01S02407.274l797 +++|          SA1    RECG        GET *SFM* CALL
11315  M01S02408.274l797 +++|          BX6    X1
11316  M01S02409.274l797 +++|          RJ     SYS=        SET MAGNET AVAILABLE
11317  M00S03614.magnet  +++|          TIME   CTIM
11318  M00S03615.magnet  +++|          RTIME  STAR
Line S02410 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11319  M01S02410.274l797 +++|          EESET  /EVENT/MTXE ISSUE MAGNET AVAILABLE EVENT
Line S02175 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11320  M01S02175.282l826 +++|          MESSAGE RECE       * MAGNET RECOVERY COMPLETE.*
11321  M00S03616.magnet  +++|          EQ     MAG         ENTER MAGNET
11322  M00S03617.magnet  +++|
11323  M00S03618.magnet  +++|
Line S03619 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11324  M01S03619.282l826 ---| RECA     CON    0           LEVEL 3 FLAG /1MT FLAG
Line S02176 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11325  M01S02176.282l826 +++| RECA     VFD    1/1,47/0,12/3  *1MT* STATUS WORD
11326  M00S03620.magnet  +++| RECB     VFD    18/3LSPC,1/0,1/1,10/0,12/,18/RECD
Line S03621 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11327  M01S03621.282l826 ---| RECC     VFD    18/3L1MT,6/0,24/RECA,12/3
Line S02177 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11328  M01S02177.282l826 +++| RECC     VFD    18/3L1MT,6/0,12/1,24/RECA
11329  M00S03622.magnet  +++| RECD     CON    0           *SPC* REQUEST WORD
Line S03623 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11330  M01S03623.282l826 ---| RECE     DATA   C* NO TAPE FILES RECOVERED.*
Line S03624 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11331  M02S03624.282l826 ---| RECF     VFD    12/2177B,48/0  ELAPSED TIME FOR INTERVAL TIMER
Line S02411 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11332  M02S02411.282l826 ---| RECF     VFD    1/1,11/0,6/RCALL-1,18/RCAL,6/PBUFL-2,18/PBUF
11333  M02S02412.282l826 ---|          VFD    12/0,6/PBUFL-2,18/APBF,6/0,18/0
Line S02178 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11334  M01S02178.282l826 +++| RECE     DATA   C* MAGNET RECOVERY COMPLETE.*
11335  M01S02179.282l826 +++| RECF     VFD    1/1,11/0,6/RCALL-1,18/RCAL,6/0,18/0
11336  M00S03625.magnet  +++| RECG     VFD    18/3LSFM,6/20,12/SSTF,6/0,18/RECG
Line S01263 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11337  M01S01263.253l688 +++| RES      SPACE  4,15
11338  M01S01264.253l688 +++|**        RES - RESET TAPE ALTERNATE STORAGE.
11339  M01S01265.253l688 +++|*
11340  M01S01266.253l688 +++|*         EXIT   ACTIVE JOB TABLE CLEARED.
11341  M01S01267.253l688 +++|*                STAGE REQUEST TABLE CLEARED.
11342  M01S01268.253l688 +++|*                PENDING *PFM* REQUEST CLEARED.
11343  M01S01269.253l688 +++|*
Line S01270 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11344  M02S01270.274l797 ---|*         USES   X - 1, 6.
Line S02413 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11345  M01S02413.274l797 +++|*         USES   X - 1, 4, 6.
Line S01271 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11346  M01S01271.253l688 +++|*                A - 1, 6.
11347  M01S01272.253l688 +++|*                B - 6, 7.
11348  M01S01273.253l688 +++|*
11349  M01S01274.253l688 +++|*         CALLS  ISJ.
11350  M01S01275.253l688 +++|
11351  M01S01276.253l688 +++|
11352  M01S01277.253l688 +++| RES      SUBR               ENTRY/EXIT
11353  M01S01278.253l688 +++|          SA1    TAJP
11354  M01S01279.253l688 +++|          ZR     X1,RESX     IF TAPE ALTERNATE STORAGE NOT ACTIVE
11355  M01S01280.253l688 +++|          SB6    X1
11356  M01S01281.253l688 +++|          AX1    24
11357  M01S01282.253l688 +++|          SX6    B0+
11358  M01S01283.253l688 +++|          SB7    X1-1
11359  M01S01284.253l688 +++| RES1     SA6    B7          CLEAR JOB TABLE
11360  M01S01285.253l688 +++|          SB7    B7-B1
11361  M01S01286.253l688 +++|          GE     B7,B6,RES1  IF MORE TO CLEAR
11362  M01S01287.253l688 +++|          SA6    TSRL        ZERO LENGTH OF PENDING REQUESTS
11363  M01S01288.253l688 +++|          SA6    PFTB+6      CLEAR UNIQUE ID WORD OF ENTRY
11364  M01S01289.253l688 +++|          SA6    PFTB        CLEAR PENDING *PFM* REQUEST
11365  M01S01290.253l688 +++|          SA1    TSRM        UPDATE MODIFICATION COUNT
11366  M01S01291.253l688 +++|          SX6    B1
11367  M01S01292.253l688 +++|          IX6    X6+X1
11368  M01S01293.253l688 +++|          SA6    A1
Line S01294 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11369  M02S01294.274l797 ---|          MX4    59          SET DUMMY VSN
Line S02414 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11370  M01S02414.274l797 +++|          MX4    1           SET DUMMY VSN
11371  M01S02415.274l797 +++|          MX1    -24
11372  M01S02416.274l797 +++|          BX4    -X1+X4
Line S01295 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11373  M01S01295.253l688 +++|          RJ     /STAGE/ISJ  RESTART SPECIAL STAGING JOB
11374  M01S01296.253l688 +++|          EQ     RESX        RETURN
Line S02180 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11375  M01S02180.282l826 +++|          SPACE  4,10
11376  M01S02181.282l826 +++|**        THE FOLLOWING CODE CANNOT BE OVERLAID BY THE RESOURCE DEMAND
11377  M01S02182.282l826 +++|*         FILE BUFFER.
11378  M01S02183.282l826 +++|
11379  M01S02184.282l826 +++|          ERRNG  *-DBUF-DBUFL  CHECK FOR BUFFER OVERFLOW
Line S03626 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11380  M01S03626.magne2  ---|          SPACE  4,10
11381  M01S03627.magne2  ---|*         THE FOLLOWING CODE CANNOT BE OVERLAID BY THE RESOURCE
11382  M01S03628.magne2  ---|*         DEMAND FILE BUFFER.
11383  M01S03629.magne2  ---|
11384  M01S03630.magne2  ---|          ERRNG  *-DBUF-DBUFL  CHECK FOR BUFFER OVERFLOW
11385  M01S03631.magne2  ---| SDF      SPACE  4,15
Line S00039 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11386  M01S00039.magne2  +++| SDF      SPACE  4,20
11387  M00S03632.magnet  +++|**        SDF - SCAN DEMAND FILE.
Line S00040 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11388  M02S00040.282l826 ---|*
11389  M02S00041.282l826 ---|*         ENTRY  (SDFD) .NE. 0 IF SELECTIVE SET OF LOST TAPE FLAGS
11390  M02S00042.282l826 ---|*                   FOR LEVEL 3 RECOVERY.
11391  M00S03633.magnet  +++|*
11392  M00S03634.magnet  +++|*         EXIT   *TAPE ASSIGNMENT LOST* FLAG SET IN EACH DEMAND
11393  M00S03635.magnet  +++|*                FILE ENTRY THAT HAS NONZERO TAPE ASSIGNED COUNT.
11394  M00S03636.magnet  +++|*                (SDFA) .LT. 0, IF DEMAND FILE ATTACH FAILED.
11395  M00S03637.magnet  +++|*                       = 0, IF NO TAPES ASSIGNED AT TERMINATION.
11396  M00S03638.magnet  +++|*                       .GT. 0, IF TAPES ASSIGNED AT TERMINATION.
11397  M00S03639.magnet  +++|*
11398  M00S03640.magnet  +++|*         USES   A - 1, 2, 3, 6, 7.
11399  M00S03641.magnet  +++|*                B - 2, 3.
11400  M00S03642.magnet  +++|*                X - 0, 1, 2, 3, 6, 7.
11401  M00S03643.magnet  +++|*
11402  M00S03644.magnet  +++|*         MACROS ATTACH, MACHID, MESSAGE, RECALL, REWRITE,
11403  M00S03645.magnet  +++|*                RPHR, SETUI.
11404  M00S03646.magnet  +++|
11405  M00S03647.magnet  +++|
Line S03648 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11406  M01S03648.magne2  ---| SDF6     MESSAGE SDFC       ISSUE PF ERROR MESSAGE
11407  M01S03649.magne2  ---|          SX6    -1          INDICATE DEMAND FILE ATTACH FAILED
11408  M01S03650.magne2  ---|          SA6    SDFA
Line S00043 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11409  M01S00043.magne2  +++| SDF9     RETURN DF,R
11410  M00S03651.magnet  +++|
11411  M00S03652.magnet  +++| SDF      SUBR               ENTRY/EXIT
11412  M00S03653.magnet  +++|          SETUI  377777B     SET USER INDEX
11413  M00S03654.magnet  +++|          MACHID SDFC        GET MACHINE ID
11414  M00S03655.magnet  +++|          MX0    12
11415  M00S03656.magnet  +++|          SA1    DF          SET ID IN DEMAND FILE NAME
11416  M00S03657.magnet  +++|          LX0    -24
11417  M00S03658.magnet  +++|          SA2    SDFC
11418  M00S03659.magnet  +++|          BX1    -X0*X1
11419  M00S03660.magnet  +++|          SX7    A2          SET PF ERROR MESSAGE ADDRESS
11420  M00S03661.magnet  +++|          LX2    24
11421  M00S03662.magnet  +++|          SA7    DF+10
11422  M00S03663.magnet  +++|          BX6    X1+X2
11423  M00S03664.magnet  +++|          SA6    A1
11424  M00S03665.magnet  +++|          BX0    X0-X0       INDICATE FIRST ATTEMPT TO ATTACH
11425  M00S03666.magnet  +++|          MESSAGE (=C* SCANNING RESOURCE DEMAND FILE.*),3
11426  M00S03667.magnet  +++| SDF1     ATTACH DF,0,,,W,,,DF,FA  ATTACH RESOURCE DEMAND FILE
11427  M00S03668.magnet  +++|          SA1    X2          CHECK ERROR STATUS
11428  M00S03669.magnet  +++|          MX2    -8
11429  M00S03670.magnet  +++|          LX1    -10
11430  M00S03671.magnet  +++|          BX1    -X2*X1
11431  M00S03672.magnet  +++|          ZR     X1,SDF3     IF NO ERROR
11432  M00S03673.magnet  +++|          SX2    X1-1        CHECK FOR FILE BUSY
11433  M00S03674.magnet  +++|          SX3    X1-16B      CHECK FOR PF UTILITY ACTIVE
11434  M00S03675.magnet  +++|          IX2    X2*X3
Line S03676 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11435  M01S03676.magne2  ---|          NZ     X2,SDF6     IF FATAL PF ERROR
Line S00044 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11436  M01S00044.magne2  +++|          NZ     X2,SDF8     IF FATAL PF ERROR
11437  M00S03677.magnet  +++|          NZ     X0,SDF2     IF WAIT MESSAGE ALREADY ISSUED
11438  M00S03678.magnet  +++|          SX0    B1
11439  M00S03679.magnet  +++|          MESSAGE (=C* WAIT DEMAND FILE ATTACH.*),3
11440  M00S03680.magnet  +++| SDF2     RECALL             WAIT FOR DEMAND FILE TO BECOME AVAILABLE
11441  M00S03681.magnet  +++|          EQ     SDF1        RETRY DEMAND FILE ATTACH
11442  M00S03682.magnet  +++|
11443  M00S03683.magnet  +++| SDF3     MX0    1           CLEAR EP BIT
11444  M00S03684.magnet  +++|          SA1    DF+1
11445  M00S03685.magnet  +++|          LX0    44-59
11446  M00S03686.magnet  +++|          BX6    -X0*X1
11447  M00S03687.magnet  +++|          SA6    A1
11448  M00S03688.magnet  +++|
11449  M00S03689.magnet  +++|*         READ DEMAND FILE ENTRY.
11450  M00S03690.magnet  +++|
11451  M00S03691.magnet  +++| SDF4     SA1    SDFB        SET RANDOM INDEX IN FET
11452  M00S03692.magnet  +++|          SA2    DF+1        SET IN=OUT=FIRST
Line S03693 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
11453  M01S03693.ns21000 ---|          SX7    X1+B1       INCREMENT RANDOM INDEX
11454  M01S03694.ns21000 ---|          SX6    X2
11455  M01S03695.ns21000 ---|          SA7    DF+6
11456  M01S03696.ns21000 ---|          SA6    A2+B1
11457  M01S03697.ns21000 ---|          SA7    A1+
Line S00025 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
11458  M01S00025.ns21000 +++|          SX7    X1+2        INCREMENT RANDOM INDEX
11459  M01S00026.ns21000 +++|          SA7    DF+6
11460  M01S00027.ns21000 +++|          SX6    X2
11461  M01S00028.ns21000 +++|          SA6    A2+B1
11462  M01S00029.ns21000 +++|          SA7    A1
11463  M00S03698.magnet  +++|          SA6    A6+B1
11464  M00S03699.magnet  +++|          RPHR   DF,R        READ DEMAND FILE ENTRY
11465  M00S03700.magnet  +++|          SA1    DF+2        CHECK FOR DATA TRANSFERRED
11466  M00S03701.magnet  +++|          SA2    A1+B1
11467  M00S03702.magnet  +++|          IX1    X1-X2
Line S03703 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11468  M01S03703.magne2  ---|          ZR     X1,SDFX     IF EOR/EOF/EOI ENCOUNTERED
Line S00045 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11469  M01S00045.magne2  +++|          ZR     X1,SDF9     IF EOR/EOF/EOI ENCOUNTERED
Line S03704 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11470  M01S03704.282l826 ---|          SA3    DBUF+/COMSRSX/RJID  CHECK JOB IDENTIFICATION
Line S02185 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11471  M01S02185.282l826 +++|          SA3    DBUF+/RSX/RJID  CHECK JOB IDENTIFICATION
11472  M00S03705.magnet  +++|          ZR     X3,SDF4     IF UNUSED ENTRY
Line S03706 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11473  M01S03706.282l826 ---|          SB2    /COMSRSX/RMTL-1
Line S02186 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11474  M01S02186.282l826 +++|          SB2    /RSX/RMTL-1
11475  M00S03707.magnet  +++| SDF5     LT     B2,SDF4     IF NO TAPES ASSIGNED TO THIS JOB
Line S03708 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11476  M01S03708.282l826 ---|          SA1    DBUF+/COMSRSX/RMTP+B2  GET TAPE ENTRY ASSIGNED COUNT
Line S02187 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11477  M01S02187.282l826 +++|          SA1    DBUF+/RSX/RMTP+B2  GET TAPE ENTRY ASSIGNED COUNT
11478  M00S03709.magnet  +++|          MX0    -6
11479  M00S03710.magnet  +++|          LX1    18
11480  M00S03711.magnet  +++|          SB2    B2-B1
11481  M00S03712.magnet  +++|          BX6    -X0*X1
11482  M00S03713.magnet  +++|          ZR     X6,SDF5     IF NO TAPE ASSIGNED COUNT
11483  M00S03714.magnet  +++|          SA6    SDFA        SET TAPES ASSIGNED FLAG
Line S00046 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11484  M02S00046.282l826 ---|          SA1    SDFD
11485  M02S00047.282l826 ---|          ZR     X1,SDF7     IF NOT TO MATCH ON UDT
11486  M02S00048.282l826 ---|          SA1    UBUF
11487  M02S00049.282l826 ---|          SA1    X1-UNITL
11488  M02S00050.282l826 ---| SDF6     SA1    A1+UNITL
11489  M02S00051.282l826 ---|          NG     X1,SDF4     IF END OF UNITS
11490  M02S00052.282l826 ---|          SA2    A1+UCIA     CHECK FOR LOST TAPE
11491  M02S00053.282l826 ---|          SX6    B1
11492  M02S00054.282l826 ---|          BX2    X2-X6
11493  M02S00055.282l826 ---|          NZ     X2,SDF6     IF NOT LOST TAPE
11494  M02S00056.282l826 ---|          SA2    A1+UJID     GET JOB EJT ORDINAL
11495  M02S00057.282l826 ---|          SA3    DBUF+/COMSRSX/RJID
11496  M02S00058.282l826 ---|          BX3    X3-X2
11497  M02S00059.282l826 ---|          MX6    -12
11498  M02S00060.282l826 ---|          BX3    -X6*X3
11499  M02S00061.282l826 ---|          NZ     X3,SDF6     IF LOST TAPE NOT FOR THIS JOB
11500  M00S03715.magnet  +++|
11501  M00S03716.magnet  +++|*         SET TAPE ASSIGNMENT LOST FLAG AND REWRITE DEMAND FILE ENTRY.
11502  M00S03717.magnet  +++|
Line S03718 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11503  M01S03718.magne2  ---|          MX0    1           SET TAPE ASSIGNMENT LOST FLAG
Line S00062 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11504  M02S00062.282l826 ---| SDF7     MX0    1           SET TAPE ASSIGNMENT LOST FLAG
Line S03719 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11505  M01S03719.282l826 ---|          SA1    DBUF+/COMSRSX/RVAL
Line S02188 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11506  M01S02188.282l826 +++|          MX0    1           SET TAPE ASSIGNMENT LOST FLAG
11507  M01S02189.282l826 +++|          SA1    DBUF+/RSX/RVAL
11508  M00S03720.magnet  +++|          LX0    53-59
11509  M00S03721.magnet  +++|          SA2    SDFB        RESET RANDOM INDEX IN FET
11510  M00S03722.magnet  +++|          BX6    X1+X0
11511  M00S03723.magnet  +++|          LX0    29-59-53+59
11512  M00S03724.magnet  +++|          SA6    A1
11513  M00S03725.magnet  +++|          BX7    X0+X2       SET RANDOM REWRITE IN PLACE
11514  M00S03726.magnet  +++|          SA7    DF+6
11515  M00S03727.magnet  +++|          REWRITE DF,R       REWRITE DEMAND FILE ENTRY
11516  M00S03728.magnet  +++|          EQ     SDF4        CONTINUE PROCESSING DEMAND FILE
Line S00063 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
11517  M01S00063.magne2  +++|
11518  M01S00064.magne2  +++| SDF8     MESSAGE  SDFC      ISSUE PF ERROR MESSAGE
11519  M01S00065.magne2  +++|          SX6    -1          INDICATE DEMAND FILE ATTACH FAILED
11520  M01S00066.magne2  +++|          SA6    SDFA
11521  M01S00067.magne2  +++|          EQ     SDFX        RETURN
11522  M00S03729.magnet  +++|
11523  M00S03730.magnet  +++|
11524  M00S03731.magnet  +++| SDFA     CON    0           TAPE ASSIGNED INDICATOR
Line S03732 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
11525  M01S03732.ns21000 ---| SDFB     CON    0           DEMAND FILE RANDOM INDEX
Line S00030 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
11526  M01S00030.ns21000 +++| SDFB     CON    -1          DEMAND FILE RANDOM INDEX
11527  M00S03733.magnet  +++| SDFC     BSS    3           PF ERROR MESSAGE BUFFER
Line S00068 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11528  M02S00068.282l826 ---| SDFD     CON    0           FLAG TO MATCH ON LOST TAPES IN UDT
11529  M00S03734.magnet  +++| ABT      SPACE  4,15
11530  M00S03735.magnet  +++|**        ABT - ABORT ROUTINE.
11531  M00S03736.magnet  +++|*
11532  M00S03737.magnet  +++|*         ENTRY  (B2) = ENDING MESSAGE ADDRESS, 0 IF NO ENDING
11533  M00S03738.magnet  +++|*                     MESSAGE, FOR ENTRY AT *ABT2* ONLY.
11534  M00S03739.magnet  +++|*
11535  M00S03740.magnet  +++|*         EXIT   TO *END*.
11536  M00S03741.magnet  +++|*
11537  M00S03742.magnet  +++|*         USES   A - 1.
11538  M00S03743.magnet  +++|*                B - 2.
11539  M00S03744.magnet  +++|*                X - 1.
11540  M00S03745.magnet  +++|*
11541  M00S03746.magnet  +++|*         CALLS  SDF.
11542  M00S03747.magnet  +++|*
11543  M00S03748.magnet  +++|*         MACROS MESSAGE, SYSTEM.
11544  M00S03749.magnet  +++|
11545  M00S03750.magnet  +++|
11546  M00S03751.magnet  +++|*         ISSUE RECOVERY IMPOSSIBLE MESSAGE.
11547  M00S03752.magnet  +++|
11548  M00S03753.magnet  +++| ABT      MESSAGE (=C* RECOVERY IMPOSSIBLE.*)
11549  M00S03754.magnet  +++|
11550  M00S03755.magnet  +++|*         SCAN DEMAND FILE FOR TAPES ASSIGNED.
11551  M00S03756.magnet  +++|
11552  M00S03757.magnet  +++| ABT1     RJ     SDF
11553  M00S03758.magnet  +++|          SA1    SDFA
11554  M00S03759.magnet  +++|          SB2    B0+
11555  M00S03760.magnet  +++|          NG     X1,ABT2     IF DEMAND FILE ATTACH FAILED
11556  M00S03761.magnet  +++|          SB2    ENDA        * MAGNET TERMINATION/NO TAPE JOBS.*
11557  M00S03762.magnet  +++|          ZR     X1,ABT2     IF NO TAPES ASSIGNED
11558  M00S03763.magnet  +++|          SB2    ENDB        * TAPES ASSIGNED AT MAGNET TERMINATION.*
11559  M00S03764.magnet  +++|
11560  M00S03765.magnet  +++|*         DUMP MAGNET FIELD LENGTH.
11561  M00S03766.magnet  +++|
11562  M00S03767.magnet  +++| ABT2     SYSTEM DMD,R,10000B,0
11563  M00S03768.magnet  +++|*         EQ     END         ISSUE MESSAGE AND END
11564  M00S03769.magnet  +++| END      SPACE  4,10
11565  M00S03770.magnet  +++|**        END - ENDING ROUTINE.
11566  M00S03771.magnet  +++|*
11567  M00S03772.magnet  +++|*         ENTRY  (B2) = ENDING MESSAGE ADDRESS, 0 IF NO MESSAGE.
11568  M00S03773.magnet  +++|*
11569  M00S03774.magnet  +++|*         MACROS ENDRUN, MESSAGE.
11570  M00S03775.magnet  +++|
11571  M00S03776.magnet  +++|
11572  M00S03777.magnet  +++| END      ZR     B2,END1     IF NO ENDING MESSAGE
11573  M00S03778.magnet  +++|          MESSAGE B2
11574  M00S03779.magnet  +++| END1     ENDRUN
11575  M00S03780.magnet  +++|
11576  M00S03781.magnet  +++|
11577  M00S03782.magnet  +++| ENDA     DATA   C* MAGNET TERMINATION/NO TAPE JOBS.*
11578  M00S03783.magnet  +++| ENDB     DATA   C* TAPES ASSIGNED AT MAGNET TERMINATION.*
11579  M00S03784.magnet  +++| ENDC     DATA   C* MAGNET DROPPED DURING RECOVERY.*
11580  M00S03785.magnet  +++| ERX      SPACE  4,15
11581  M00S03786.magnet  +++|**        ERX - ERROR EXIT PROCESSOR.
11582  M00S03787.magnet  +++|*
11583  M00S03788.magnet  +++|*         ENTRY  (ERXA) = FWA ERROR EXIT MESSAGE, 0 IF NO MESSAGE.
11584  M00S03789.magnet  +++|*
11585  M00S03790.magnet  +++|*         EXIT   TO *ABT2*.
11586  M00S03791.magnet  +++|*                (B2) = ENDING MESSAGE ADDRESS, 0 IF NO ENDING MESSAGE.
11587  M00S03792.magnet  +++|*
11588  M00S03793.magnet  +++|*         USES   A - 1.
11589  M00S03794.magnet  +++|*                B - 2.
11590  M00S03795.magnet  +++|*                X - 1, 2.
11591  M00S03796.magnet  +++|*
11592  M00S03797.magnet  +++|*         MACROS GETJCR, MESSAGE.
11593  M00S03798.magnet  +++|
11594  M00S03799.magnet  +++|
11595  M00S03800.magnet  +++| ERX      SA1    ERXA
11596  M00S03801.magnet  +++|          ZR     X1,ERX1     IF NO MESSAGE TO ISSUE
11597  M00S03802.magnet  +++|          MESSAGE X1
11598  M00S03803.magnet  +++| ERX1     GETJCR ERXC        GET ERROR FLAG
11599  M00S03804.magnet  +++|          SA1    ERXC
11600  M00S03805.magnet  +++|          AX1    54
11601  M00S03806.magnet  +++|          SB2    B0
11602  M00S03807.magnet  +++|          SX2    X1-ODET
11603  M00S03808.magnet  +++|          NZ     X2,ABT2     IF NOT OPERATOR DROP
11604  M00S03809.magnet  +++|          SB2    ENDC        * MAGNET DROPPED DURING RECOVERY.*
11605  M00S03810.magnet  +++|          EQ     ABT2        DUMP FIELD LENGTH BEFORE ENDING
11606  M00S03811.magnet  +++|
11607  M00S03812.magnet  +++|
11608  M00S03813.magnet  +++| ERXA     CON    ERXB        ERROR EXIT MESSAGE ADDRESS
11609  M00S03814.magnet  +++| ERXB     DATA   C* 1MT PROBABLY LOST.*
11610  M00S03815.magnet  +++| ERXC     CON    0           ERROR FLAG
11611  M00S03816.magnet  +++|          SPACE  4,10
11612  M00S03817.magnet  +++|**        COMMON DECKS.
11613  M00S03818.magnet  +++|
11614  M00S03819.magnet  +++|
Line S03820 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
11615  M01S03820.ns21000 ---|*CALL     COMCCFD
11616  M00S03821.magnet  +++|*CALL     COMCSYS
11617  M00S03822.magnet  +++|*CALL     COMCCPM
Line S03823 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
11618  M01S03823.ns21000 ---|*CALL     COMCLFM
11619  M00S03824.magnet  +++|*CALL     COMCCIO
11620  M00S03825.magnet  +++|*CALL     COMCPFM
Line S03826 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
11621  M01S03826.ns21000 ---|*CALL     COMCCDD
11622  M00S03827.magnet  +++|          SPACE  4,10
11623  M00S03828.magnet  +++|**        FETS.
11624  M00S03829.magnet  +++|
11625  M00S03830.magnet  +++|
11626  M00S03831.magnet  +++| DF       BSS    0           RESOURCE DEMAND FILE
11627  M00S03832.magnet  +++| RSXDXX   RFILEB DBUF,DBUFL,(FET=14),EPR
11628  M00S03833.magnet  +++|          SPACE  4,10
11629  M00S03834.magnet  +++|          USE    BUFFERS
11630  M00S03835.magnet  +++|          QUAL
11631  M00S03836.magnet  +++|          SPACE  4,10
11632  M00S03837.magnet  +++|**        ENTRY POINTS.
11633  M00S03838.magnet  +++|
11634  M00S03839.magnet  +++|
11635  M00S03840.magnet  +++| MAGNET1  EQU    /MAGNET1/TER
11636  M00S03841.magnet  +++| SSJ=     EQU    /MAGNET1/SSJP SSJ= PRIVILEGES ONLY
11637  M00S03842.magnet  +++| MFL=     EQU    RQFL*100B-1
11638  M00S03843.magnet  +++|          ERRMI  UINT-1-*    MAGNET1 TOO LARGE
Line S00115 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
11639  M01S00115.ns22000 +++|          TTL    MAGNET - MAGNETIC TAPE EXECUTIVE.
11640  M00S03844.magnet  +++|          SPACE  4,10
11641  M00S03845.magnet  +++|          END
cdc/nos2.source/opl.opl871/deck/magnet.010.txt ยท Last modified: (external edit)