User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:magnet.009

Deck MAGNET Part 009

50 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S02989 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
09988  M01S02989.ns22000 ---|          QUAL   COMCSYS
09989  M01S02990.ns22000 ---|*CALL     COMCSYS
09990  M01S02991.ns22000 ---|          QUAL   *
09991  M00S02992.magnet  +++| PRS      SPACE  4,10
09992  M00S02993.magnet  +++|**        PRS - PRESET PROGRAM.
09993  M00S02994.magnet  +++|
09994  M00S02995.magnet  +++|
09995  M00S02996.magnet  +++| PRS      SB1    1
Line S02997 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
09996  M01S02997.253l688 ---|          SA1    JOPR        GET JOB ORIGIN
Line S01045 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
09997  M01S01045.253l688 +++|          R=     A4,ARGR
09998  M01S01046.253l688 +++|          SA2    ACTR
09999  M01S01047.253l688 +++|          SB4    X2
10000  M01S01048.253l688 +++|          ZR     B4,PRS5     IF NO ARGUMENTS
10001  M01S01049.253l688 +++|          SB5    PRSO
10002  M01S01050.253l688 +++|          RJ     ARG         PROCESS ARGUMENTS
10003  M01S01051.253l688 +++|          ZR     X1,PRS2     IF NO ERRORS
10004  M01S01052.253l688 +++| PRS1     MESSAGE  PRSP,,R  * ERROR IN ARGUMENTS.*
10005  M01S01053.253l688 +++|          ABORT
10006  M01S01054.253l688 +++|
10007  M01S01055.253l688 +++| PRS2     SX6    SJDF        SET DEFAULT NUMBER OF STAGING JOBS
10008  M01S01056.253l688 +++|          SA5    PRSK        GET SPECIFIED NUMBER OF STAGING JOBS
10009  M01S01057.253l688 +++|          ZR     X5,PRS3     IF NOT SPECIFIED
10010  M01S01058.253l688 +++|          SB7    B1+
10011  M01S01059.253l688 +++|          RJ     DXB         CONVERT TO BINARY (DECIMAL ASSUMED)
10012  M01S01060.253l688 +++|          NZ     X4,PRS1     IF ERROR IN CONVERSION
10013  M01S01061.253l688 +++|          SX4    X6-SJMX     MAXIMUM NUMBER OF STAGING JOBS
10014  M01S01062.253l688 +++|          PL     X4,PRS1     IF OVER MAXIMUM
10015  M01S01063.253l688 +++| PRS3     SA6    A5          SET NUMBER OF STAGING JOBS
10016  M01S01064.253l688 +++|          SA5    A5+B1       GET NUMBER OF STAGING VSN-S TO DISPLAY
10017  M01S01065.253l688 +++|          SX6    SVDF        SET DEFAULT OF VSN-S
10018  M01S01066.253l688 +++|          ZR     X5,PRS4     IF NOT SPECIFIED
10019  M01S01067.253l688 +++|          SB7    B1+
10020  M01S01068.253l688 +++|          RJ     DXB         CONVERT TO BINARY (DECIMAL ASSUMED)
10021  M01S01069.253l688 +++|          NZ     X4,PRS1     IF ERROR IN CONVERSION
10022  M01S01070.253l688 +++|          SX4    X6-SVMX
10023  M01S01071.253l688 +++|          PL     X4,PRS1     IF OVER MAXIMUM
10024  M01S01072.253l688 +++| PRS4     SA6    A5+         SET NUMBER OF STAGING VSN-S TO DISPLAY
10025  M01S01073.253l688 +++| PRS5     SA1    JOPR        CHECK JOB ORIGIN
10026  M00S02998.magnet  +++|          MX6    -12
10027  M00S02999.magnet  +++|          LX1    -24
10028  M00S03000.magnet  +++|          SB2    B1+B1
10029  M00S03001.magnet  +++|          BX1    -X6*X1
10030  M00S03002.magnet  +++|          SX6    X1-SYOT
10031  M00S03003.magnet  +++|          SB3    TPRO
Line S03004 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10032  M01S03004.253l688 ---|          ZR     X6,PRS1     IF SYSTEM ORIGIN
Line S01074 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10033  M01S01074.253l688 +++|          ZR     X6,PRS6     IF SYSTEM ORIGIN
Line S03005 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10034  M01S03005.ns22000 ---|          QUAL   COMCSYS
10035  M01S03006.ns22000 ---|          MESSAGE  /PRESET/PRSE,0,R  *ILLEGAL CONTROL CARD.*
Line S00110 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10036  M01S00110.ns22000 +++|          MESSAGE  PRSE,0,R  * INCORRECT COMMAND.*
10037  M00S03007.magnet  +++|          ABORT
Line S03008 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10038  M01S03008.ns22000 ---|          QUAL   *
10039  M00S03009.magnet  +++|
Line S03010 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10040  M01S03010.253l688 ---| PRS1     SA6    B2          CLEAR INTERFACE AREA
Line S01075 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10041  M01S01075.253l688 +++| PRS6     SA6    B2          CLEAR INTERFACE AREA
10042  M00S03011.magnet  +++|          SB2    B2+B1
Line S03012 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10043  M01S03012.253l688 ---|          LT     B2,B3,PRS1  IF MORE WORDS TO CLEAR
Line S01076 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10044  M01S01076.253l688 +++|          LT     B2,B3,PRS6  IF MORE WORDS TO CLEAR
Line S03013 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10045  M01S03013.282l826 ---|          MX6    1           TERMINATE INTERLOCK WORDS
10046  M01S03014.282l826 ---|          SA6    UITW+10B
10047  M01S03015.282l826 ---|          SA6    A6+B1
10048  M00S03016.magnet  +++|
10049  M00S03017.magnet  +++|*         CALL *1MT* TO PROCESS *MAGNET* INITIALIZATION.
10050  M00S03018.magnet  +++|
Line S03019 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10051  M01S03019.253l688 ---| PRS2     SA1    PRSF        SET SUBSYSTEM ACCESSIBILITY FLAG
Line S01077 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10052  M02S01077.274l797 ---| PRS7     SA1    PRSF        SET SUBSYSTEM ACCESSIBILITY FLAG
Line S03020 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10053  M01S03020.274l797 ---|          BX6    X1
10054  M01S03021.274l797 ---|          RJ     SYS=
10055  M01S03022.274l797 ---|          SA1    PRSB        GET *1MT* CALL
Line S02120 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10056  M01S02120.274l797 +++| PRS7     SA1    PRSB        GET *1MT* CALL
10057  M00S03023.magnet  +++|          SA2    PRSA        MAKE *SPC* RA+1 CALL
10058  M00S03024.magnet  +++|          BX7    X1
10059  M00S03025.magnet  +++|          LX6    X2
10060  M00S03026.magnet  +++|          SA7    PRSC
10061  M00S03027.magnet  +++|          RJ     SYS=
10062  M00S03028.magnet  +++|          SA1    PRSC        CHECK REQUEST COMPLETE
Line S03029 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10063  M01S03029.253l688 ---|          NZ     X1,PRS2     IF *SPC* REJECT
10064  M01S03030.253l688 ---| PRS3     RECALL             WAIT FOR *1MT* TO FINISH PRESET
Line S01078 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10065  M01S01078.253l688 +++|          NZ     X1,PRS7     IF *SPC* REJECT
10066  M01S01079.253l688 +++| PRS8     RECALL             WAIT FOR *1MT* TO FINISH PRESET
10067  M00S03031.magnet  +++|          SA1    PRSD
Line S03032 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10068  M01S03032.253l688 ---|          ZR     X1,PRS3     IF *1MT* NOT DONE
10069  M01S03033.253l688 ---|          SB6    LWA-CLC     NUMBER OF WORDS OF CODE TO MOVE
10070  M01S03034.253l688 ---|          SA1    PRSG+LWA-CLC  LAST WORD OF CODE
10071  M01S03035.253l688 ---|          BX6    X1
10072  M01S03036.253l688 ---|          SA6    LWA         LAST WORD TO MOVE CODE TO
10073  M01S03037.253l688 ---|          MX7    0
10074  M01S03038.253l688 ---| PRS4     SA1    A1-B1
10075  M01S03039.253l688 ---|          BX6    X1
10076  M01S03040.253l688 ---|          SA6    A6-B1
10077  M01S03041.253l688 ---|          SB6    B6-B1
10078  M01S03042.253l688 ---|          NZ     B6,PRS4     IF MORE CODE TO MOVE
Line S03043 Modification History
M01 (Removed by) magne8
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10079  M02S03043.253l688 ---|          EQ     CLC         CLEAR UDT,S
Line S00001 Modification History
M01 (Added by) magne8
M02 (Removed by) 252l678
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10080  M03S00001.253l688 ---|          RJ     CLC         CLEAR UDT-S
Line S00783 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10081  M02S00783.253l688 ---|          SA1    PRSH        GET *SFM* CALL
Line S01080 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10082  M02S01080.282l826 ---|          ZR     X1,PRS8     IF *1MT* NOT DONE
Line S02077 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10083  M01S02077.282l826 +++|          NG     X1,PRS8     IF *1MT* NOT DONE
Line S01081 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10084  M01S01081.253l688 +++|
10085  M01S01082.253l688 +++|*         PURGE STAGE REQUEST FILE.
10086  M01S01083.253l688 +++|
10087  M01S01084.253l688 +++|          SA1    PRSK        GET NUMBER OF STAGING JOBS
10088  M01S01085.253l688 +++|          SB4    NETAB       SET DEFAULT FWA OF UDT-S
10089  M01S01086.253l688 +++|          ZR     X1,PRS10    IF TAPE ALTERNATE STORAGE NOT ACTIVE
10090  M01S01087.253l688 +++|          MACHID PRSQ        SET MACHINE ID IN STAGE REQUEST FILE NAME
10091  M01S01088.253l688 +++|          SA1    PRSQ
10092  M01S01089.253l688 +++|          SA2    STRQ
10093  M01S01090.253l688 +++|          LX1    24
10094  M01S01091.253l688 +++|          BX6    X1+X2
10095  M01S01092.253l688 +++|          SA6    A2+
10096  M01S01093.253l688 +++| PRS8.1   PURGE  STRQ
10097  M01S01094.253l688 +++|          SA1    X2+         CHECK ERROR CODE
10098  M01S01095.253l688 +++|          SX1    X1
10099  M01S01096.253l688 +++|          AX1    10
10100  M01S01097.253l688 +++|          ZR     X1,PRS8.3   IF NO ERROR
10101  M01S01098.253l688 +++|          SX6    X1-/ERRMSG/INA
10102  M01S01099.253l688 +++|          ZR     X6,PRS8.2   IF *INTERLOCK NOT AVAILABLE*
10103  M01S01100.253l688 +++|          SX6    X1-/ERRMSG/PFA
10104  M01S01101.253l688 +++|          NZ     X6,PRS8.3   IF NOT *PF UTILITY ACTIVE*, IGNORE ERROR
10105  M01S01102.253l688 +++| PRS8.2   MESSAGE  PRSS,2    * PURGING STAGE REQUEST FILE.*
10106  M01S01103.253l688 +++|          RECALL             GIVE UP CPU
10107  M01S01104.253l688 +++|          EQ     PRS8.1      RETRY *PURGE*
10108  M01S01105.253l688 +++|
10109  M01S01106.253l688 +++|*         ALLOCATE TABLES FOR TAPE ALTERNATE STORAGE PROCESSING.
10110  M01S01107.253l688 +++|
10111  M01S01108.253l688 +++| PRS8.3   MESSAGE  (=C**),2  CLEAR DAYFILE MESSAGE, IF PRESENT
10112  M01S01109.253l688 +++|          SA1    PRSK        NUMBER OF STAGING JOBS
10113  M01S01110.253l688 +++|          SX6    TDTAB       ALLOCATE ACTIVE STAGING JOB TABLE
10114  M01S01111.253l688 +++|          SX1    X1+B1       TABLE LENGTH (ALLOW FOR SPECIAL JOB)
10115  M01S01112.253l688 +++|          IX2    X1+X6       LWA+1 OF ACTIVE STAGING JOB TABLE
10116  M01S01113.253l688 +++|          LX1    48
10117  M01S01114.253l688 +++|          BX7    X6+X1       12/LENGTH, 24/, 24/FWA
10118  M01S01115.253l688 +++|          SX6    X2+B1       SET FWA OF VSN DISPLAY BUFFER
10119  M01S01116.253l688 +++|          LX2    24
10120  M01S01117.253l688 +++|          BX7    X7+X2       12/LENGTH, 24/LWA+1, 24/FWA
10121  M01S01118.253l688 +++|          SA7    TAJP        SET POINTER TO ACTIVE JOB TABLE
10122  M01S01119.253l688 +++|          SA1    PRSL        GET NUMBER OF VSN-S TO DISPLAY
10123  M01S01120.253l688 +++|          SB4    X1          MINIMUM NUMBER OF VSNS TO DISPLAY+1
10124  M01S01121.253l688 +++|          GT     B4,B1,PRS9  IF AT LEAST 1 VSN TO DISPLAY
10125  M01S01122.253l688 +++|          SX1    B1          SET MINIMUM LENGTH
10126  M01S01123.253l688 +++| PRS9     IX4    X1+X6       LWA+1 OF VSN DISPLAY BUFFER
10127  M01S01124.253l688 +++|          LX1    48
10128  M01S01125.253l688 +++|          SB4    X4+B1       SET FWA OF UDT-S
10129  M01S01126.253l688 +++|          LX4    24
10130  M01S01127.253l688 +++|          BX1    X1+X6       12/LENGTH, 24/, 24/FWA
10131  M01S01128.253l688 +++|          BX6    X1+X4       12/LENGTH, 24/LWA+1, 24/FWA
10132  M01S01129.253l688 +++|          SA6    TVSP        SET POINTER TO STAGING VSN LIST
Line S01130 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10133  M02S01130.282l826 ---|          EQ     PRS11       CHECK FOR *TMS* PROCESSING.
Line S02078 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10134  M01S02078.282l826 +++|          EQ     PRS12       CHECK FOR *TMS* PROCESSING.
Line S01131 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10135  M01S01131.253l688 +++|
10136  M01S01132.253l688 +++| PRS10    SX6    B1+         SET *PFM* *TDAM* BUFFER BUSY
10137  M01S01133.253l688 +++|          SA6    PFTB
Line S01134 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10138  M02S01134.282l826 ---|
10139  M02S01135.282l826 ---|*         CHECK FOR *TMS* PROCESSING.
10140  M02S01136.282l826 ---|
10141  M02S01137.282l826 ---| PRS11    SA1    PRSH        GET *SFM* CALL
Line S00784 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10142  M02S00784.282l826 ---|          BX6    X1
10143  M02S00785.282l826 ---|          RJ     SYS=        GET *TMS* STATUS
10144  M02S00786.282l826 ---|          SA1    PRSI
Line S00787 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10145  M03S00787.282l826 ---|          PL     X1,PRS5     IF *TMS* NOT ACTIVE
Line S01138 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10146  M02S01138.282l826 ---|          PL     X1,PRS12    IF *TMS* NOT ACTIVE
Line S00788 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10147  M02S00788.282l826 ---|          LX1    59-58
Line S00789 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10148  M03S00789.282l826 ---|          PL     X1,PRS5     IF NO *TMS* BINARIES ON SYSTEM
Line S01139 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10149  M02S01139.282l826 ---|          PL     X1,PRS12    IF NO *TMS* BINARIES ON SYSTEM
Line S00790 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10150  M02S00790.282l826 ---|          SA1    PRSJ        CHANGE *MAGNET* OPERATOR MESSAGE
10151  M02S00791.282l826 ---|          BX6    X1
Line S00792 Modification History
M01 (Added by) 252l678
M02 (Removed by) magne13
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10152  M03S00792.282l826 ---|          SA6    MAGD        +$CHECK *TM+
Line S00103 Modification History
M01 (Added by) magne13
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10153  M03S00103.282l826 ---|          SA6    CEPD        +$CHECK *TM+
Line S02121 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10154  M02S02121.282l826 ---|          SA6    CORB
Line S00793 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10155  M02S00793.282l826 ---|          SA1    A1+B1
10156  M02S00794.282l826 ---|          BX6    X1
Line S00795 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10157  M03S00795.282l826 ---|          SA6    A6+1        +SDIS,PRE.*+
Line S02122 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10158  M02S02122.282l826 ---|          SA6    A6+1
Line S00796 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10159  M02S00796.253l688 ---| PRS5     RJ     CLC         CLEAR UDT-S
Line S01140 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10160  M01S01140.253l688 +++|
10161  M01S01141.253l688 +++|*         CALL *CLC* TO CLEAR MEMORY.
10162  M01S01142.253l688 +++|
10163  M01S01143.253l688 +++| PRS12    SB6    LWA-CLC     NUMBER OF WORDS OF CODE TO MOVE
10164  M01S01144.253l688 +++|          SA1    CLCBUF+LWA-CLC  LAST WORD OF CODE
10165  M01S01145.253l688 +++|          BX6    X1
10166  M01S01146.253l688 +++|          SA6    LWA         LAST WORD TO MOVE CODE TO
10167  M01S01147.253l688 +++| PRS13    SA1    A1-B1
10168  M01S01148.253l688 +++|          BX6    X1
10169  M01S01149.253l688 +++|          SA6    A6-B1
10170  M01S01150.253l688 +++|          SB6    B6-B1
10171  M01S01151.253l688 +++|          NZ     B6,PRS13    IF MORE CODE TO MOVE
10172  M01S01152.253l688 +++|+         RJ     CLC         CLEAR UDT-S (RJ TO VOID INSTRUCTION STACK)
10173  M00S03044.magnet  +++|
10174  M00S03045.magnet  +++|
10175  M00S03046.magnet  +++| PRSA     VFD    18/3LSPC,1/0,1/1,10/0,12/,18/PRSC
Line S03047 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10176  M01S03047.282l826 ---| PRSB     VFD    18/3L1MT,6/0,24/PRSD,12/1
Line S02079 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10177  M01S02079.282l826 +++| PRSB     VFD    18/3L1MT,6/0,12/1,24/PRSD
10178  M00S03048.magnet  +++| PRSC     CON    0           *SPC* REQUEST WORD
Line S03049 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10179  M01S03049.282l826 ---| PRSD     CON    0           *1MT* RESPONSE WORD
Line S02080 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10180  M01S02080.282l826 +++| PRSD     VFD    1/1,47/0,12/1  *1MT* STATUS WORD
10181  M00S03050.magnet  +++|
Line S03051 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10182  M01S03051.ns22000 ---| PRSE     DATA   C* ILLEGAL CONTROL CARD.*
Line S00111 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10183  M01S00111.ns22000 +++| PRSE     DATA   C* INCORRECT COMMAND.*
Line S03052 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10184  M01S03052.282l826 ---|
Line S03053 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10185  M02S03053.282l826 ---| PRSF     VFD    18/3LSFM,6/20,12/SSTF,6/0,18/PRSF
Line S01153 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10186  M03S01153.282l826 ---|
Line S00797 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10187  M02S00797.282l826 ---| PRSH     VFD    18/3LSFM,6/20B,12/GTSF,6/0,18/PRSI
10188  M02S00798.282l826 ---| PRSI     CON    0           TMS STATUS WORD
Line S00799 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10189  M03S00799.282l826 ---| PRSJ     DATA   C+$CHECK *TMSDIS,PRE.*+
Line S02123 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10190  M02S02123.282l826 ---| PRSJ     DATA   C*$CHECK TMSDIS,PRE.*
Line S03054 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10191  M01S03054.253l688 ---| PRSG     BSS    0
10192  M01S03055.253l688 ---| PCLC     MAX    PRSG,TDTAB+MUNIT*UNITL+10
Line S01154 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10193  M01S01154.253l688 +++|
10194  M01S01155.253l688 +++| SJDF     DECMIC SJDF        DEFAULT NUMBER OF STAGING JOBS
10195  M01S01156.253l688 +++| SVDF     DECMIC SVDF        DEFAULT NUMBER OF STAGING VSN-S TO DISPLAY
10196  M01S01157.253l688 +++|
10197  M01S01158.253l688 +++| PRSK     CON    0           NUMBER OF STAGING JOBS ACTIVE CONCURRENTLY
10198  M01S01159.253l688 +++| PRSL     CON    0           NUMBER OF STAGING TAPE VSN-S TO DISPLAY
10199  M01S01160.253l688 +++| PRSM     DATA   C*'SJDF'*   DEFAULT NUMBER OF CONCURRENT STAGE JOBS
10200  M01S01161.253l688 +++| PRSN     DATA   C*'SVDF'*   DEFAULT NUMBER OF VSNS TO DISPLAY
10201  M01S01162.253l688 +++|
10202  M01S01163.253l688 +++| PRSO     BSS    0           ARGUMENT TABLE
10203  M01S01164.253l688 +++| SJ       ARG    PRSM,PRSK   NUMBER OF CONCURRENT STAGE JOBS
10204  M01S01165.253l688 +++| SV       ARG    PRSN,PRSL   NUMBER OF STAGING TAPE VSN-S TO DISPLAY
10205  M01S01166.253l688 +++|          DATA   0           END OF TABLE
10206  M01S01167.253l688 +++|
10207  M01S01168.253l688 +++| PRSP     DATA   C* ERROR IN ARGUMENTS.*
10208  M01S01169.253l688 +++| PRSQ     CON    0           MACHINE ID
10209  M01S01170.253l688 +++| PRSR     BSSZ   6           ERROR MESSAGE BUFFER
10210  M01S01171.253l688 +++| PRSS     DATA   C* PURGING STAGE REQUEST FILE.*
10211  M01S01172.253l688 +++|
10212  M01S01173.253l688 +++| STRQ     FILEB  0,0,(FET=16D),EPR,UPR  STAGE REQUEST FILE
10213  M01S01174.253l688 +++|          ORG    STRQ+CFPW
10214  M01S01175.253l688 +++|          VFD    42/0,18/PRSR  ERROR MESSAGE BUFFER
10215  M01S01176.253l688 +++|          ORG    STRQ+16D
10216  M01S01177.253l688 +++|          SPACE  4,10
10217  M01S01178.253l688 +++|*         PRESET COMMON DECKS - CAN BE OVERLAID.
10218  M01S01179.253l688 +++|
10219  M01S01180.253l688 +++|
10220  M01S01181.253l688 +++|*CALL     COMCARG
10221  M01S01182.253l688 +++|*CALL     COMCDXB
10222  M01S01183.253l688 +++|*CALL     COMCPFM
10223  M01S01184.253l688 +++|          TITLE  PRESET SUBROUTINES.
10224  M01S01185.253l688 +++| CLCBUF   BSS    0
10225  M01S01186.253l688 +++| PCLC     MAX    CLCBUF,TDTAB+SJMX+1+SVMX+1+MUNIT*UNITL+10
10226  M00S03056.magnet  +++|          LOC    PCLC
Line S01187 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10227  M01S01187.253l688 +++| CLC      SPACE  4,15
10228  M01S01188.253l688 +++|**        CLC - CLEAR MEMORY.
10229  M01S01189.253l688 +++|*
10230  M01S01190.253l688 +++|*         ENTRY  (B4) = STARTING ADDRESS OF UDT-S.
10231  M01S01191.253l688 +++|*
10232  M01S01192.253l688 +++|*         EXIT   TO *MAG*.
10233  M01S01193.253l688 +++|*
10234  M01S01194.253l688 +++|*         USES   X - 1, 2, 4, 6, 7.
10235  M01S01195.253l688 +++|*                A - 1, 2, 6, 7.
10236  M01S01196.253l688 +++|*                B - 5, 6, 7.
10237  M01S01197.253l688 +++|*
10238  M01S01198.253l688 +++|*         CALLS  ISJ, PEQ, REL.
10239  M01S01199.253l688 +++|*
Line S01200 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10240  M02S01200.274l797 ---|*         MACROS RTIME, TIME.
Line S02124 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10241  M01S02124.274l797 +++|*         MACROS EESET, RTIME, SETICC, TIME.
Line S01201 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10242  M01S01201.253l688 +++|
10243  M01S01202.253l688 +++|
Line S03057 Modification History
M01 (Removed by) magne8
Seq #  *Modification Id* Act 
----------------------------+
10244  M01S03057.magne8  ---| CLC      SB6    TDTAB
Line S00002 Modification History
M01 (Added by) magne8
Seq #  *Modification Id* Act 
----------------------------+
10245  M01S00002.magne8  +++| CLC      SUBR               ENTRY
Line S00003 Modification History
M01 (Added by) magne8
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10246  M02S00003.253l688 ---|          SB6    TDTAB
Line S03058 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10247  M01S03058.253l688 ---|          SB7    *
10248  M01S03059.253l688 ---| +        SA7    B6
Line S01203 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10249  M01S01203.253l688 +++|          SB6    B4          FWA TO CLEAR
10250  M01S01204.253l688 +++|          SB7    *           LWA+1 TO CLEAR
10251  M01S01205.253l688 +++|          BX7    X7-X7
10252  M01S01206.253l688 +++| CLC1     SA7    B6
10253  M00S03060.magnet  +++|          SB6    B6+B1
Line S03061 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10254  M01S03061.253l688 ---|          LT     B6,B7,*     IF STILL MORE CORE TO CLEAR
10255  M01S03062.253l688 ---|          RJ     PEQ
10256  M01S03063.253l688 ---|          RJ     REL
Line S01207 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10257  M01S01207.253l688 +++|          LT     B6,B7,CLC1  IF STILL MORE MEMORY TO CLEAR
10258  M01S01208.253l688 +++|          RJ     PEQ         PROCESS EQUIPMENT ENTRIES
10259  M01S01209.253l688 +++|          RJ     REL         RELOCATE TABLE ACCESS INSTRUCTIONS
Line S03064 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10260  M01S03064.274l797 ---|          TIME   CTIM        SET STARTING CPU TIME
Line S03065 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10261  M02S03065.274l797 ---|          RTIME  STAR        REAL TIME AT START UP
Line S01210 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10262  M02S01210.274l797 ---|          RTIME  STAR        SET REAL TIME AT START UP
Line S01211 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10263  M01S01211.253l688 +++|          SA1    UQUE        GET STARTING ADDRESS
10264  M01S01212.253l688 +++|          SX6    X1+100B     GET START OF REQUEST BUFFER
10265  M01S01213.253l688 +++|          SA6    TSRP
10266  M01S01214.253l688 +++|          SX7    X6+77B
10267  M01S01215.253l688 +++|          BX6    X6-X6
10268  M01S01216.253l688 +++|          SA6    A6+B1       SET NO LENGTH
10269  M01S01217.253l688 +++|          SA1    TAJP        CLEAR TAPE ALTERNATE STORAGE JOB TABLE
10270  M01S01218.253l688 +++|          SA2    TVSP        CLEAR TAPE ALTERNATE STORAGE VSN LIST
Line S01219 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10271  M02S01219.274l797 ---|          ZR     X1,MAG      IF NOT TAPE ALTERNATE STORAGE PROCESSING
Line S02125 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10272  M01S02125.274l797 +++|          ZR     X1,CLC3     IF NOT TAPE ALTERNATE STORAGE PROCESSING
Line S01220 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10273  M01S01220.253l688 +++|          SB5    X1
10274  M01S01221.253l688 +++|          AX2    24          MOVE LWA+1 DOWN
10275  M01S01222.253l688 +++|          SB6    X2+
10276  M01S01223.253l688 +++|          SX6    B0+
10277  M01S01224.253l688 +++|          SA6    B6+
10278  M01S01225.253l688 +++| CLC2     SB6    B6-B1
10279  M01S01226.253l688 +++|          SA6    B6
10280  M01S01227.253l688 +++|          GT     B6,B5,CLC2  IF MORE TO CLEAR
Line S02126 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10281  M01S02126.274l797 +++| CLC3     SETICC CLCA        SET INTER-CP COMMUNICATION POINTERS
10282  M01S02127.274l797 +++|          SA1    CLCB        SET SUBSYSTEM ACCESSIBILITY FLAG
10283  M01S02128.274l797 +++|          BX6    X1
10284  M01S02129.274l797 +++|          RJ     SYS=
10285  M01S02130.274l797 +++|          TIME   CTIM        SET STARTING CPU TIME
10286  M01S02131.274l797 +++|          RTIME  STAR        SET REAL TIME AT START UP
10287  M01S02132.274l797 +++|          SA1    TAJP
10288  M01S02133.274l797 +++|          ZR     X1,CLC4     IF NOT TAPE ALTERNATE STORAGE PROCESSING
Line S01228 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10289  M02S01228.274l797 ---|          MX4    59          SET DUMMY VSN
Line S02134 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10290  M01S02134.274l797 +++|          MX4    1           SET DUMMY VSN
10291  M01S02135.274l797 +++|          MX2    -24
10292  M01S02136.274l797 +++|          BX4    -X2+X4
Line S01229 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10293  M01S01229.253l688 +++|          RJ     /STAGE/ISJ  INITIATE SPECIAL STAGING JOB
Line S02137 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10294  M01S02137.274l797 +++| CLC4     EESET  /EVENT/MTXE ISSUE MAGNET AVAILABLE EVENT
Line S02081 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10295  M01S02081.282l826 +++|          SX6    1
10296  M01S02082.282l826 +++|          SA6    APRQ        FORCE *1MU* CALL TO GET UNIT ACCESSIBILITY
10297  M00S03066.magnet  +++|          EQ     MAG         PROCESS MAIN PROGRAM
Line S02138 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10298  M01S02138.274l797 +++|
10299  M01S02139.274l797 +++|
Line S02140 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10300  M02S02140.282l826 ---| CLCA     VFD    1/1,11/0,6/RCALL-1,18/RCAL,6/PBUFL-2,18/PBUF
10301  M02S02141.282l826 ---|          VFD    12/0,6/PBUFL-2,18/APBF,6/0,18/0
Line S02083 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10302  M01S02083.282l826 +++| CLCA     VFD    1/1,11/0,6/RCALL-1,18/RCAL,6/0,18/0
Line S02142 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10303  M01S02142.274l797 +++|
10304  M01S02143.274l797 +++| CLCB     VFD    18/3LSFM,6/20,12/SSTF,6/0,18/CLCB
Line S03067 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10305  M01S03067.253l688 ---|          TITLE  PRESET SUBROUTINES.
10306  M00S03068.magnet  +++| REL      SPACE  4,10
10307  M00S03069.magnet  +++|**        REL - RELOCATE INSTRUCTIONS.
Line S01230 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10308  M01S01230.253l688 +++|*
10309  M01S01231.253l688 +++|*         EXIT   *T* INSTRUCTIONS RELOCATED.
10310  M01S01232.253l688 +++|*
10311  M01S01233.253l688 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
10312  M01S01234.253l688 +++|*                A - 1, 2, 6.
10313  M01S01235.253l688 +++|*                B - 5, 6, 7.
10314  M00S03070.magnet  +++|
10315  M00S03071.magnet  +++|
10316  M00S03072.magnet  +++| REL      SUBR               ENTRY/EXIT
10317  M00S03073.magnet  +++|          SB7    TINSTL-1
Line S03074 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10318  M01S03074.253l688 ---|          MX7    -18
Line S01236 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10319  M01S01236.253l688 +++|          SA1    TAJP        SEE IF TAPE ALTERNATE STORAGE ACTIVE
10320  M01S01237.253l688 +++|          NZ     X1,REL0     IF TAPE ALTERNATE STORAGE INACTIVE
10321  M01S01238.253l688 +++|          SB7    TINSTL.-1   DO NOT RELOCATE /STAGE/ CODE
10322  M01S01239.253l688 +++| REL0     MX7    -18
10323  M00S03075.magnet  +++|          NG     B7,RELX     IF NO INSTRUCTIONS TO RELOCATE
10324  M00S03076.magnet  +++| REL1     SA1    TINST+B7    SET NEXT RELOCATION WORD
10325  M00S03077.magnet  +++|          SB7    B7-B1
10326  M00S03078.magnet  +++|          UX4,B6 X1          SET POSITION IN WORD
10327  M00S03079.magnet  +++|          SA2    X1          GET WORD
10328  M00S03080.magnet  +++|          AX1    18
10329  M00S03081.magnet  +++|          SX1    X1
10330  M00S03082.magnet  +++|          SX3    X1
10331  M00S03083.magnet  +++|          PL     X1,REL2     IF POSITIVE VALUE WANTED
10332  M00S03084.magnet  +++|          BX1    -X1
10333  M00S03085.magnet  +++| REL2     SA1    X1
10334  M00S03086.magnet  +++|          PL     X3,REL3     IF COMPLEMENT OF ADDRESS WANTED
10335  M00S03087.magnet  +++|          BX1    -X1
10336  M00S03088.magnet  +++| REL3     LX4    59-47
10337  M00S03089.magnet  +++|          PL     X4,REL4     IF FWA WANTED
10338  M00S03090.magnet  +++|          AX1    24          GET FWA
10339  M00S03091.magnet  +++| REL4     BX1    -X7*X1
10340  M00S03092.magnet  +++|          SB5    B6-60
10341  M00S03093.magnet  +++|          AX2    X2,B5       POSITION ADDRESS
10342  M00S03094.magnet  +++|          BX3    -X7*X2      GET ADDRESS
10343  M00S03095.magnet  +++|          BX2    X7*X2       MASK OUT ADDRESS
10344  M00S03096.magnet  +++|          SX3    X3
10345  M00S03097.magnet  +++|          IX3    X3+X1       GENERATE NEW ADDRESS
10346  M00S03098.magnet  +++|          BX3    -X7*X3
10347  M00S03099.magnet  +++|          BX2    X2+X3       MERGE ADDRESS
10348  M00S03100.magnet  +++|          LX6    X2,B6       REPOSITION INSTRUCTION
10349  M00S03101.magnet  +++|          SA6    A2
10350  M00S03102.magnet  +++|          PL     B7,REL1     IF STILL MORE INSTRUCTIONS TO MODIFY
10351  M00S03103.magnet  +++|          EQ     RELX        RETURN
10352  M00S03104.magnet  +++|
10353  M00S03105.magnet  +++| TINST    BSS    0
10354  M00S03106.magnet  +++| TINST    HERE
10355  M00S03107.magnet  +++| TINSTL   EQU    *-TINST
Line S03108 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10356  M01S03108.274l797 ---|          SPACE  4,10
10357  M01S03109.274l797 ---|**        CONSTANTS USED FOR INSTRUCTION MODIFICATION.
10358  M01S03110.274l797 ---|
10359  M01S03111.274l797 ---|
10360  M01S03112.274l797 ---| PROC     CON    0           COUNT OF PROCESSORS
10361  M01S03113.274l797 ---| UBUFL    CON    0           UDT LENGTH
10362  M01S03114.274l797 ---| UNCN     CON    0           UNIT COUNT
10363  M01S03115.274l797 ---| PEQ      SPACE  4,10
Line S02144 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10364  M02S02144.282l826 ---| PEQ      SPACE  4,15
Line S02084 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10365  M01S02084.282l826 +++| PEQ      SPACE  4,10
10366  M00S03116.magnet  +++|**        PEQ - PROCESS EQUIPMENT ENTRIES.
Line S01240 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
10367  M01S01240.253l688 +++|*
10368  M01S01241.253l688 +++|*         ENTRY  (B4) = STARTING ADDRESS OF UDT-S.
Line S02145 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10369  M01S02145.274l797 +++|*
10370  M01S02146.274l797 +++|*         EXIT   CONTROL TABLES INITIALIZED.
10371  M01S02147.274l797 +++|*
Line S02148 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10372  M02S02148.282l826 ---|*         USES   X - ALL.
10373  M02S02149.282l826 ---|*                A - 1, 2, 5, 6, 7.
10374  M02S02150.282l826 ---|*                B - 5, 6, 7.
Line S02085 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10375  M01S02085.282l826 +++|*         USES   X - 1, 3, 6, 7.
10376  M01S02086.282l826 +++|*                A - 1, 6, 7.
Line S02151 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10377  M01S02151.274l797 +++|*
Line S02152 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10378  M02S02152.282l826 ---|*         CALLS  AAS, AUD, SDP.
Line S02087 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10379  M01S02087.282l826 +++|*         CALLS  AUD.
10380  M00S03117.magnet  +++|
10381  M00S03118.magnet  +++|
10382  M00S03119.magnet  +++| PEQ      SUBR               ENTRY/EXIT
Line S00004 Modification History
M01 (Added by) ns2498
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10383  M02S00004.274l797 ---|          CSTATUS  PEQD      GET CONSOLE TYPE
Line S03120 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10384  M01S03120.274l797 ---|          SA5    UINT-1      PROCESS UNIT DESCRIPTION
Line S00005 Modification History
M01 (Added by) ns2498
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10385  M02S00005.274l797 ---|          SA1    PEQD
10386  M02S00006.274l797 ---|          SX6    PGSZ*UNITL
10387  M02S00007.274l797 ---|          LX1    59-48
10388  M02S00008.274l797 ---|          NG     X1,PEQ0     IF CC634B CONSOLE TYPE
10389  M02S00009.274l797 ---|          SX6    PGS2*UNITL
10390  M02S00010.274l797 ---| PEQ0     SA6    A1          SAVE PAGE SIZE OF *DSD* *E,T* DISPLAY
Line S03121 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10391  M02S03121.274l797 ---|          SB5    TDTAB       SET ADDRESS OF FIRST UNIT
Line S01242 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10392  M02S01242.274l797 ---|          SB5    B4          SET ADDRESS OF FIRST UNIT
Line S03122 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10393  M01S03122.274l797 ---|          MX0    36
10394  M01S03123.274l797 ---|          SX7    SED         SET UP TO DETERMINE UNIT TYPE
10395  M01S03124.274l797 ---|          LX7    36
10396  M01S03125.274l797 ---|          SA1    A5+B1       SET CONFIGURATION OF FIRST PROCESSOR
10397  M01S03126.274l797 ---|          SB6    B0
10398  M01S03127.274l797 ---|          MX4    4
10399  M01S03128.274l797 ---|          LX4    -4
10400  M01S03129.274l797 ---|          BX2    X4*X1
10401  M01S03130.274l797 ---| PEQ1     SA5    A5+B1
10402  M01S03131.274l797 ---|          ZR     X5,PEQ3     IF ALL UNITS PROCESSED
10403  M01S03132.274l797 ---|          BX6    X0*X5
10404  M01S03133.274l797 ---|          SA6    B5+UST1     SET DEFINITON OF EQUIPMENT
10405  M01S03134.274l797 ---|          BX6    -X0*X5      SET EST ORDINAL
Line S03135 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10406  M02S03135.274l797 ---|          LX6    18
Line S00112 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10407  M02S00112.274l797 ---|          LX6    24
Line S03136 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10408  M01S03136.274l797 ---|          SA6    B5+UST4
10409  M01S03137.274l797 ---|          SX6    B1          SET INITIAL DENSITY
10410  M01S03138.274l797 ---|          LX6    6
10411  M01S03139.274l797 ---|          SA6    B5+UST3
10412  M01S03140.274l797 ---|          BX1    X4*X5       CHECK FOR MATCHED CONFIGURATION
10413  M01S03141.274l797 ---|          BX3    X2-X1
10414  M01S03142.274l797 ---|          LX5    59-56
10415  M01S03143.274l797 ---|          NG     X5,PEQ2     IF UNIT DOWN
Line S03144 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10416  M02S03144.274l797 ---|          SA7    B5          SET INITIAL *1MT* REQUEST
Line S01243 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10417  M02S01243.274l797 ---|          SA7    B5+UXRQ     SET INITIAL *1MT* REQUEST
Line S03145 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10418  M01S03145.274l797 ---| PEQ2     LX5    56-55       SET UNIT FOR MTS PARAMETERS
10419  M01S03146.274l797 ---|          BX1    X4*X5
Line S01244 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10420  M02S01244.274l797 ---|          SX6    B5+UNITL    SET DSD POINTER TO NEXT UDT
10421  M02S01245.274l797 ---|          SA6    B5+UVRI
10422  M02S01246.274l797 ---|          LX1    20
10423  M02S01247.274l797 ---|          SX6    X1+206540B  SET MTS FORMAT PARAMETERS
10424  M02S01248.274l797 ---|          SA6    B5+UST6
Line S03147 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10425  M01S03147.274l797 ---|          SB5    B5+UNITL
Line S03148 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10426  M02S03148.274l797 ---|          SX6    B5          SET DSD POINTER
10427  M02S03149.274l797 ---|          SA6    B5+UVRI-UNITL
10428  M02S03150.274l797 ---|          LX1    20
10429  M02S03151.274l797 ---|          SX6    X1+206540B  SET MTS FORMAT PARAMETERS
10430  M02S03152.274l797 ---|          SA6    B5+UST6-UNITL
Line S03153 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10431  M01S03153.274l797 ---|          ZR     X3,PEQ1     IF MATCHING CONFIGURATION
10432  M01S03154.274l797 ---|          SB6    B6+B1
10433  M01S03155.274l797 ---|          EQ     PEQ1        LOOP
Line S03156 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10434  M01S03156.282l826 ---|
Line S03157 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10435  M02S03157.282l826 ---| PEQ3     MX7    1           TERMINATE UDT
Line S03158 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10436  M03S03158.282l826 ---|          BX6    X6-X6       CLEAR POINTER IN LAST UDT
10437  M03S03159.282l826 ---|          SA7    B5
Line S01249 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10438  M03S01249.282l826 ---|          BX6    X6-X6       CLEAR DSD POINTER IN LAST UDT
10439  M03S01250.282l826 ---|          SA7    B5+UXRQ
Line S03160 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10440  M02S03160.282l826 ---|          SA6    B5+UVRI-UNITL
Line S03161 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10441  M03S03161.282l826 ---|          SX1    B5-TDTAB    SET LENGTH OF UDT
Line S01251 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10442  M03S01251.282l826 ---|          SX1    B5-B4       SET LENGTH OF UDT
Line S03162 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10443  M02S03162.282l826 ---|          BX6    X1
10444  M02S03163.282l826 ---|          SA6    UBUFL
10445  M02S03164.282l826 ---|          SX4    UNITL
10446  M02S03165.282l826 ---|          IX1    X1/X4       CALCULATE NUMBER OF UNITS
10447  M02S03166.282l826 ---|          SX2    B5          SET LWA OF UDT
Line S03167 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10448  M03S03167.282l826 ---|          SX3    TDTAB       SET FWA OF UDT
Line S01252 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10449  M03S01252.282l826 ---|          SX3    B4          SET FWA OF UDT
Line S03168 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10450  M02S03168.282l826 ---|          BX6    X1
10451  M02S03169.282l826 ---|          SX7    B5+1        SET FWA OF QUEUE TABLE
10452  M02S03170.282l826 ---|          LX1    48          BUILD POINTER WORDS
10453  M02S03171.282l826 ---|          BX7    X1+X7
Line S03172 Modification History
M01 (Removed by) ns2498
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10454  M03S03172.282l826 ---|          SB7    TDTAB+PGSZ*UNITL  START OF SECOND PAGE FOR *DSD*
Line S00011 Modification History
M01 (Added by) ns2498
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10455  M03S00011.282l826 ---|          SA1    PEQD        GET PAGE SIZE FOR *DSD*
Line S00012 Modification History
M01 (Added by) ns2498
M02 (Removed by) 253l688
M03 (Removed by) 274l797
M04 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10456  M04S00012.282l826 ---|          SB7    X1+TDTAB    START OF SECOND PAGE FOR *DSD*
Line S01253 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10457  M03S01253.282l826 ---|          SB7    X1+B4       START OF SECOND PAGE FOR *DSD*
Line S03173 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10458  M02S03173.282l826 ---|          LE     B5,B7,PEQ4  IF PAGE IS EMPTY
10459  M02S03174.282l826 ---|          SX0    B7+         ADD INDEX FOR PAGE 2 INTO *UQUE*
10460  M02S03175.282l826 ---|          LX0    36
10461  M02S03176.282l826 ---|          BX7    X7+X0
Line S03177 Modification History
M01 (Removed by) ns2498
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10462  M03S03177.282l826 ---|          SB7    TDTAB+PGSZ*2*UNITL  START OF THIRD PAGE FOR *DSD*
Line S00013 Modification History
M01 (Added by) ns2498
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10463  M03S00013.282l826 ---|          LX1    1
Line S00014 Modification History
M01 (Added by) ns2498
M02 (Removed by) 253l688
M03 (Removed by) 274l797
M04 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10464  M04S00014.282l826 ---|          SB7    X1+TDTAB    START OF THIRD PAGE FOR *DSD*
Line S01254 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10465  M03S01254.282l826 ---|          SB7    X1+B4       START OF THIRD PAGE FOR *DSD*
Line S03178 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10466  M02S03178.282l826 ---|          LE     B5,B7,PEQ4  IF PAGE IS EMPTY
10467  M02S03179.282l826 ---|          SX0    B7+         ADD INDEX FOR PAGE 3 INTO *UQUE*
10468  M02S03180.282l826 ---|          LX0    24
10469  M02S03181.282l826 ---|          BX7    X7+X0
10470  M02S03182.282l826 ---| PEQ4     BX1    X3
10471  M02S03183.282l826 ---|          LX1    48
10472  M02S03184.282l826 ---|          BX4    X1+X3
10473  M02S03185.282l826 ---|          SA6    UNCN
10474  M02S03186.282l826 ---|          LX2    24
10475  M02S03187.282l826 ---|          BX6    X4+X2
10476  M02S03188.282l826 ---|          SA6    UBUF
10477  M02S03189.282l826 ---|          SA7    UQUE
10478  M02S03190.282l826 ---|          SX6    B0
Line S02153 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10479  M02S02153.282l826 ---|*         INITIALIZE UDT, AST, AND *DSD* DISPLAY POINTERS.
10480  M02S02154.282l826 ---|
Line S02155 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10481  M01S02155.274l797 +++|          SX6    B0          ******** TEMPORARY ********
10482  M01S02156.274l797 +++|          SA6    UACI        ******** TEMPORARY ********
10483  M01S02157.274l797 +++|          RJ     AUD         ASSIGN UDT ENTRIES
Line S02158 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10484  M02S02158.282l826 ---|          RJ     SDP         SET *DSD* DISPLAY PAGE POINTERS
10485  M02S02159.282l826 ---|          RJ     AAS         ASSIGN AST ENTRIES
10486  M02S02160.282l826 ---|
10487  M02S02161.282l826 ---|*         INITIALIZE QUEUE TABLE, *1MT* INTERLOCK WORDS, FL STATUS, AND
10488  M02S02162.282l826 ---|*         CHANNEL CONFIGURATION.
10489  M02S02163.282l826 ---|
Line S02164 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10490  M01S02164.274l797 +++|          SX7    B5+B1       QUEUE TABLE FWA
10491  M01S02165.274l797 +++|          SA7    UQUE        SET QUEUE TABLE POINTER
10492  M01S02166.274l797 +++|          SX6    B0          TERMINATE QUEUE TABLE
10493  M00S03191.magnet  +++|          SA6    X7
Line S02167 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10494  M01S02167.274l797 +++|          MX6    60
10495  M01S02168.274l797 +++|          SA6    A6+B1
10496  M01S02169.274l797 +++|          SA6    A6+B1
Line S03192 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10497  M01S03192.282l826 ---|          SA1    UITW+1
Line S02170 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10498  M02S02170.282l826 ---|          SX3    B4+         UDT FWA
Line S03193 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10499  M01S03193.282l826 ---| PEQ5     BX7    X1+X3       SET UP FWA OF UDT IN *1MT* INTERLOCK WORD
10500  M01S03194.282l826 ---|          SA7    A1
10501  M01S03195.282l826 ---|          SA1    A1+2
10502  M01S03196.282l826 ---|          PL     X1,PEQ5     IF NOT END OF INTERLOCK WORDS
Line S02088 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10503  M01S02088.282l826 +++|          SA1    CST+CPST
10504  M01S02089.282l826 +++|          MX6    48
10505  M01S02090.282l826 +++|          SX3    B4          UDT FWA
10506  M01S02091.282l826 +++| PEQ1     BX1    X6*X1       CLEAR ENTRY PRESENT STATUS
10507  M01S02092.282l826 +++|          BX7    X1+X3       SET UDT FWA IN PROCESSOR STATUS
10508  M01S02093.282l826 +++|          SA7    A1+
10509  M01S02094.282l826 +++|          SA1    A1+CSTE
10510  M01S02095.282l826 +++|          NZ     X1,PEQ1     IF NOT END OF CST ENTRIES
Line S03197 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10511  M01S03197.274l797 ---|          MX6    60          SET END OF TABLE
10512  M01S03198.274l797 ---|          SA6    A6+B1
10513  M01S03199.274l797 ---|          SA6    A6+B1
10514  M00S03200.magnet  +++|          SX6    A0          SET STARTING FL
10515  M00S03201.magnet  +++|          LX6    30
10516  M00S03202.magnet  +++|          SA6    FLST
Line S03203 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10517  M01S03203.282l826 ---|          NZ     B6,PEQ6     IF NOT MATCHING CONFIGURATION
10518  M01S03204.282l826 ---|          SA1    PEQA
10519  M01S03205.282l826 ---|          SA2    PEQC
10520  M01S03206.282l826 ---|          BX6    X1
10521  M01S03207.282l826 ---|          BX7    X2
10522  M01S03208.282l826 ---|          SA6    .MCH1
10523  M01S03209.282l826 ---|          SA7    .MCH3
10524  M01S03210.282l826 ---| PEQ6     SA1    UITW-2      COUNT NUMBER OF PROCESSORS
10525  M01S03211.282l826 ---|          SB6    -1
10526  M01S03212.282l826 ---| PEQ7     SA1    A1+2
10527  M01S03213.282l826 ---|          SB6    B6+B1
10528  M01S03214.282l826 ---|          MX7    2
10529  M01S03215.282l826 ---|          NG     X1,PEQ8     IF END OF CHANNELS
10530  M01S03216.282l826 ---|          LX1    59-32
10531  M01S03217.282l826 ---|          LX7    56
10532  M01S03218.282l826 ---|          PL     X1,PEQ7     IF CHANNEL NOT DOWN
10533  M01S03219.282l826 ---|          SA2    .MCH4+B6    MODIFY INSTRUCTION WORD
10534  M01S03220.282l826 ---|          BX6    X2-X7
10535  M01S03221.282l826 ---|          SA6    A2
10536  M01S03222.282l826 ---|          SA2    CHAN        CLEAR CHANNEL BIT
10537  M01S03223.282l826 ---|          SX7    B1
10538  M01S03224.282l826 ---|          LX7    B6
10539  M01S03225.282l826 ---|          BX6    -X7*X2
10540  M01S03226.282l826 ---|          SA6    A2
10541  M01S03227.282l826 ---|          EQ     PEQ7        CHECK NEXT CHANNEL
10542  M01S03228.282l826 ---|
10543  M01S03229.282l826 ---| PEQ8     SA1    .MCH2+4
10544  M01S03230.282l826 ---|          SA2    PEQB
10545  M01S03231.282l826 ---|          BX6    X1
10546  M01S03232.282l826 ---|          BX7    X2
10547  M01S03233.282l826 ---|          SA6    .MCH2+B6
10548  M01S03234.282l826 ---|          SB7    4
10549  M01S03235.282l826 ---|          EQ     B6,B7,PEQX  IF 4 CHANNELS
10550  M01S03236.282l826 ---|          SA7    .MCH4+B6
10551  M00S03237.magnet  +++|          EQ     PEQX        RETURN
Line S03238 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10552  M01S03238.282l826 ---|
10553  M01S03239.282l826 ---| PEQA     BSS    0
10554  M01S03240.282l826 ---|          SX2    B1
10555  M01S03241.282l826 ---|          AX3    1
10556  M01S03242.282l826 ---|          BX7    X2*X3       PPU CALL FORCED EVERY 2 SECONDS
10557  M01S03243.282l826 ---|          BX6    X6-X6       (IF MATCHED CHANNELS)
10558  M01S03244.282l826 ---|
10559  M01S03245.282l826 ---| PEQB     BSS    0
10560  M01S03246.282l826 ---|          EQ     PPUX        RETURN
10561  M01S03247.282l826 ---|
10562  M01S03248.282l826 ---| PEQC     BSS    0
10563  M01S03249.282l826 ---|          NE     B2,B1,PPU7  IF MORE THAN 1 UDT REQUEST
10564  M01S03250.282l826 ---|          SA1    CHAN        SELECT AN UP CHANNEL
Line S02171 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10565  M02S02171.282l826 ---| AAS      SPACE  4,10
10566  M02S02172.282l826 ---|**        AAS - ASSIGN AST ENTRIES.
10567  M02S02173.282l826 ---|*
10568  M02S02174.282l826 ---|*         ENTRY  (B4) = FWA OF UDT.
10569  M02S02175.282l826 ---|*                (B5) = ADDRESS OF UDT TERMINATOR WORD.
10570  M02S02176.282l826 ---|*
10571  M02S02177.282l826 ---|*         EXIT   AST INITIALIZED.
10572  M02S02178.282l826 ---|*                (B4) = FWA OF UDT.
10573  M02S02179.282l826 ---|*                (B5) = ADDRESS OF AST TERMINATOR WORD.
10574  M02S02180.282l826 ---|*
10575  M02S02181.282l826 ---|*         USES   X - ALL.
10576  M02S02182.282l826 ---|*                A - 1, 2, 5, 6, 7.
10577  M02S02183.282l826 ---|*                B - 2, 5.
Line S00015 Modification History
M01 (Added by) ns2498
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10578  M02S00015.282l826 ---|
Line S00016 Modification History
M01 (Added by) ns2498
M02 (Removed by) 274l797
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10579  M03S00016.282l826 ---| PEQD     CON    0           SYSTEM CONSOLE TYPE
Line S02184 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10580  M02S02184.282l826 ---|
10581  M02S02185.282l826 ---| AAS2     SX6    B0
10582  M02S02186.282l826 ---|          SA6    B5          TERMINATE AST
10583  M02S02187.282l826 ---|          SX6    B2+         AST FWA
10584  M02S02188.282l826 ---|          SX7    B5+         AST LWA+1
10585  M02S02189.282l826 ---|          SA6    NXAU        SET ACS UNIT ASSIGNMENT POINTER
10586  M02S02190.282l826 ---|          LX7    24
10587  M02S02191.282l826 ---|          BX6    X6+X7
10588  M02S02192.282l826 ---|          SA6    UAST        SET AST POINTERS
10589  M02S02193.282l826 ---|
10590  M02S02194.282l826 ---| AAS      SUBR               ENTRY/EXIT
10591  M02S02195.282l826 ---|          SA5    UINT-1
10592  M02S02196.282l826 ---|          SB5    B5+B1       FWA OF AST
10593  M02S02197.282l826 ---|          SB2    B5
10594  M02S02198.282l826 ---|          SX3    4000B       AST ENTRY IN USE FLAG
10595  M02S02199.282l826 ---|          MX0    -12
10596  M02S02200.282l826 ---|          MX4    -2
10597  M02S02201.282l826 ---| AAS1     SA5    A5+1
10598  M02S02202.282l826 ---|          ZR     X5,AAS2     IF ALL UNITS PROCESSED
10599  M02S02203.282l826 ---|          LX5    0-13
10600  M02S02204.282l826 ---|          BX1    -X4*X5      DEVICE TYPE
10601  M02S02205.282l826 ---|          SX1    X1-DVAT
10602  M02S02206.282l826 ---|          NZ     X1,AAS1     IF NOT ACS UNIT
10603  M02S02207.282l826 ---|          SA1    A5+TUAD-UINT  GET UDT ADDRESS
10604  M02S02208.282l826 ---|          SA2    X1+UJID
10605  M02S02209.282l826 ---|          LX5    0-24-0+13
10606  M02S02210.282l826 ---|          BX6    -X0*X5      CONTROL PATH PARAMETERS
10607  M02S02211.282l826 ---|          SX7    B5          AST ADDRESS
10608  M02S02212.282l826 ---|          LX6    12
10609  M02S02213.282l826 ---|          LX7    36
10610  M02S02214.282l826 ---|          BX6    X6+X3       SET ENTRY IN USE FLAG
10611  M02S02215.282l826 ---|          BX7    X2+X7
10612  M02S02216.282l826 ---|          SA6    B5+AMST     SET CONTROL PATH PARAMETERS
10613  M02S02217.282l826 ---|          SA7    A2          SET AST ADDRESS IN UDT ENTRY
10614  M02S02218.282l826 ---|          SB5    B5+ASTE     ADVANCE AST ADDRESS
10615  M02S02219.282l826 ---|          EQ     AAS1        PROCESS NEXT UNIT
Line S02220 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10616  M01S02220.274l797 +++| AUD      SPACE  4,15
10617  M01S02221.274l797 +++|**        AUD - ASSIGN UDT ENTRIES.
10618  M01S02222.274l797 +++|*
10619  M01S02223.274l797 +++|*         ENTRY  (B4) = FWA OF UDT.
10620  M01S02224.274l797 +++|*
10621  M01S02225.274l797 +++|*         EXIT   UDT ENTRIES ASSIGNED AND INITIALIZED.
Line S02226 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10622  M02S02226.282l826 ---|*                (B3) = NUMBER OF UNITS.
Line S02227 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10623  M01S02227.274l797 +++|*                (B4) = FWA OF UDT.
10624  M01S02228.274l797 +++|*                (B5) = LWA+1 OF UDT.
Line S02229 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10625  M02S02229.282l826 ---|*                (B6) .NE. 0 IF UNMATCHED CHANNEL CONFIGURATION
10626  M02S02230.282l826 ---|*                  DETECTED.
10627  M02S02231.282l826 ---|*                *TUAD* TABLE BUILT.
Line S02232 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10628  M01S02232.274l797 +++|*
Line S02233 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10629  M02S02233.282l826 ---|*         USES   X - ALL.
Line S02234 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2755
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10630  M03S02234.282l826 ---|*                A - 1, 5, 6, 7.
Line S00044 Modification History
M01 (Added by) ns2755
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10631  M02S00044.282l826 ---|*                A - 1, 4, 5, 6, 7.
Line S02235 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10632  M02S02235.282l826 ---|*                B - 2, 3, 5, 6.
Line S02096 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10633  M01S02096.282l826 +++|*         USES   X - 5, 6, 7.
10634  M01S02097.282l826 +++|*                A - 5, 6, 7.
10635  M01S02098.282l826 +++|*                B - 5.
Line S02236 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10636  M01S02236.274l797 +++|
10637  M01S02237.274l797 +++|
10638  M01S02238.274l797 +++| AUD      SUBR               ENTRY/EXIT
10639  M01S02239.274l797 +++|
10640  M01S02240.274l797 +++|*         INITIALIZE FOR UINT SCAN.
10641  M01S02241.274l797 +++|
Line S02242 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10642  M02S02242.282l826 ---|          SA1    UINT        GET FIRST UINT ENTRY
Line S02243 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10643  M01S02243.274l797 +++|          SA5    UINT-1      INITIALIZE UINT POINTER
Line S02244 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10644  M02S02244.282l826 ---|          SB5    B4          SET ADDRESS OF FIRST UNIT
10645  M02S02245.282l826 ---|          SB6    B0          INITIALIZE MATCHING CONFIGURATION FLAG
10646  M02S02246.282l826 ---|          MX4    4
10647  M02S02247.282l826 ---|          LX4    -4
10648  M02S02248.282l826 ---|          BX2    X4*X1       FIRST UNIT CHANNEL CONFIGURATION
10649  M02S02249.282l826 ---|          MX0    24
10650  M02S02250.282l826 ---|          SX7    SED         SET UP TO DETERMINE UNIT TYPE
10651  M02S02251.282l826 ---|          LX7    36
10652  M02S02252.282l826 ---|          SB2    B0          SET TO PROCESS MTS/ATS UNITS
10653  M02S02253.282l826 ---|          EQ     AUD2        PROCESS MTS/ATS UNITS
10654  M02S02254.282l826 ---|
10655  M02S02255.282l826 ---|*         PROCESS NEXT UDT DEVICE GROUP.
10656  M02S02256.282l826 ---|
10657  M02S02257.282l826 ---| AUD1     NZ     B2,AUD5     IF CTS DEVICE GROUP PROCESSED
10658  M02S02258.282l826 ---|          SA5    UINT-1      RESET UINT POINTER
10659  M02S02259.282l826 ---|          SB2    B1          SET TO PROCESS CTS UNITS
10660  M02S02260.282l826 ---|          SX6    B5          SET FIRST CTS UNIT ADDRESS
10661  M02S02261.282l826 ---|          SA6    UBFC
10662  M02S02262.282l826 ---|
10663  M02S02263.282l826 ---|*         DETERMINE IF UNIT IN DEVICE GROUP.
10664  M02S02264.282l826 ---|
10665  M02S02265.282l826 ---| AUD2     SA5    A5+B1       GET NEXT UINT ENTRY
10666  M02S02266.282l826 ---|          ZR     X5,AUD1     IF END OF UINT ENTRIES
10667  M02S02267.282l826 ---|          MX6    -2
10668  M02S02268.282l826 ---|          MX1    -1
10669  M02S02269.282l826 ---|          LX5    -13
10670  M02S02270.282l826 ---|          BX6    -X6*X5      DEVICE TYPE
10671  M02S02271.282l826 ---|          BX1    -X1*X5      CTS STATUS
10672  M02S02272.282l826 ---|          LX5    13
10673  M02S02273.282l826 ---|          SB3    X1
10674  M02S02274.282l826 ---|          NE     B2,B3,AUD2  IF NOT CORRECT DEVICE TYPE
Line S02099 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10675  M01S02099.282l826 +++|          SB5    B4+         SET ADDRESS OF FIRST UNIT
Line S02275 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10676  M01S02275.274l797 +++|
10677  M01S02276.274l797 +++|*         INITIALIZE UDT ENTRY.
10678  M01S02277.274l797 +++|
Line S02278 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10679  M02S02278.282l826 ---|          LX6    55-0
10680  M02S02279.282l826 ---|          SA6    B5+UJID     SET DEVICE TYPE
10681  M02S02280.282l826 ---|          BX6    X0*X5       HARDWARE PARAMETERS
Line S02100 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10682  M01S02100.282l826 +++| AUD1     SA5    A5+B1       GET NEXT UINT ENTRY
10683  M01S02101.282l826 +++|          ZR     X5,AUD2     IF ALL UNITS PROCESSED
10684  M01S02102.282l826 +++|          MX6    36
10685  M01S02103.282l826 +++|          BX6    X6*X5       HARDWARE PARAMETERS
Line S02281 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10686  M01S02281.274l797 +++|          SA6    B5+UST1     SET DEFINITON OF EQUIPMENT
Line S02104 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10687  M01S02104.282l826 +++|          MX6    -3
10688  M01S02105.282l826 +++|          BX6    -X6*X5      DEVICE TYPE
10689  M01S02106.282l826 +++|          LX6    54
10690  M01S02107.282l826 +++|          SA6    B5+UST4     SET DEVICE TYPE
Line S02282 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10691  M01S02282.274l797 +++|          MX6    -12
Line S02283 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10692  M02S02283.282l826 ---|          BX6    -X6*X5      SET EST ORDINAL
10693  M02S02284.282l826 ---|          LX6    24
10694  M02S02285.282l826 ---|          SA6    B5+UST4
10695  M02S02286.282l826 ---|          SX6    B1          SET INITIAL DENSITY
10696  M02S02287.282l826 ---|          LX6    6
10697  M02S02288.282l826 ---|          SA6    B5+UST3
10698  M02S02289.282l826 ---|          BX1    X4*X5       CHECK FOR MATCHED CONFIGURATION
10699  M02S02290.282l826 ---|          BX3    X2-X1
10700  M02S02291.282l826 ---|          ZR     X3,AUD3     IF MATCHING CONFIGURATION
10701  M02S02292.282l826 ---|          SB6    B1          SET NON-MATCHING CONFIGURATION FLAG
10702  M02S02293.282l826 ---| AUD3     LX5    59-56
10703  M02S02294.282l826 ---|          NG     X5,AUD4     IF UNIT DOWN
10704  M02S02295.282l826 ---|          SA7    B5+UXRQ     SET INITIAL *1MT* REQUEST
10705  M02S02296.282l826 ---| AUD4     LX5    52-48-59+56
10706  M02S02297.282l826 ---|          BX1    X4*X5       UNIT NUMBER
10707  M02S02298.282l826 ---|          SX6    B5
10708  M02S02299.282l826 ---|          LX1    20
10709  M02S02300.282l826 ---|          SA6    A5+TUAD-UINT  SAVE UDT ADDRESS
10710  M02S02301.282l826 ---|          SX6    X1+206540B  SET MTS FORMAT PARAMETERS
10711  M02S02302.282l826 ---|          SA6    B5+UST6
Line S00045 Modification History
M01 (Added by) ns2755
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10712  M02S00045.282l826 ---|          LX5    59-23-52+48
10713  M02S00046.282l826 ---|          MX6    4
10714  M02S00047.282l826 ---|          BX6    X6*X5       SET SECONDARY CHANNEL FLAG
10715  M02S00048.282l826 ---|          SA6    B5+UVRI
Line S02108 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10716  M01S02108.282l826 +++|          LX6    12
10717  M01S02109.282l826 +++|          BX6    -X6*X5      ACS UNIT CONTROL PATH PARAMETERS
10718  M01S02110.282l826 +++|          MX7    60
10719  M01S02111.282l826 +++|          SA6    B5+UMST     SET PATH PARAMETERS IF ACS UNIT
10720  M01S02112.282l826 +++|          SA7    B5+UFRQ     INHIBIT FILE REQUESTS
Line S02303 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10721  M01S02303.274l797 +++|          SB5    B5+UNITL    ADVANCE UDT ADDRESS
Line S02304 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10722  M02S02304.282l826 ---|          EQ     AUD2        CHECK NEXT UNIT
10723  M02S02305.282l826 ---|
10724  M02S02306.282l826 ---|*         SET UDT LINKAGE FOR *DSD* PREVIEW DISPLAY AND COUNT UNITS.
10725  M02S02307.282l826 ---|
10726  M02S02308.282l826 ---| AUD5     SA1    TUAD        GET FIRST UDT ADDRESS
10727  M02S02309.282l826 ---|          SB3    B1          INITIALIZE UNIT COUNT
10728  M02S02310.282l826 ---|          SX3    X1          FIRST UDT ADDRESS
10729  M02S02311.282l826 ---| AUD6     SX2    X1          PREVIOUS UDT ADDRESS
10730  M02S02312.282l826 ---|          SA1    A1+B1       GET NEXT UDT ADDRESS
10731  M02S02313.282l826 ---|          ZR     X1,AUD7     IF END OF UDT-S
Line S00049 Modification History
M01 (Added by) ns2755
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10732  M02S00049.282l826 ---|          SA4    X2+UVRI
Line S02314 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10733  M02S02314.282l826 ---|          SB3    B3+B1       COUNT UNIT
Line S02315 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2755
M03 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10734  M03S02315.282l826 ---|          SX7    X1
10735  M03S02316.282l826 ---|          SA7    X2+UVRI     STORE *DSD* POINTER
Line S00050 Modification History
M01 (Added by) ns2755
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10736  M02S00050.282l826 ---|          BX7    X4+X1
10737  M02S00051.282l826 ---|          SA7    A4          STORE *DSD* POINTER
Line S02317 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10738  M02S02317.282l826 ---|          EQ     AUD6        PROCESS NEXT ENTRY
Line S02113 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10739  M01S02113.282l826 +++|          EQ     AUD1        PROCESS NEXT UNIT
Line S02318 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10740  M01S02318.274l797 +++|
10741  M01S02319.274l797 +++|*         SET UDT POINTER WORDS.
10742  M01S02320.274l797 +++|
Line S02321 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10743  M02S02321.282l826 ---| AUD7     MX7    1           TERMINATE UDT
Line S02114 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10744  M01S02114.282l826 +++| AUD2     MX7    1           TERMINATE UDT
Line S02322 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10745  M01S02322.274l797 +++|          SA7    B5
10746  M01S02323.274l797 +++|          SX6    B5
10747  M01S02324.274l797 +++|          SX7    B4          SET FWA OF UDT
10748  M01S02325.274l797 +++|          LX6    24
Line S02326 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10749  M02S02326.282l826 ---|          LX3    48
Line S02327 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10750  M01S02327.274l797 +++|          BX6    X6+X7       SET LWA+1 OF UDT
Line S02328 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10751  M02S02328.282l826 ---|          BX6    X6+X3       FIRST EST ENTRY UDT ADDRESS FOR *DSD*
Line S02329 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10752  M01S02329.274l797 +++|          SA6    UBUF        SET UDT POINTERS
Line S02115 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10753  M01S02115.282l826 +++|          SA7    NXAU        INITIALIZE ACS UNIT ASSIGNMENT POINTER
Line S02330 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10754  M01S02330.274l797 +++|          EQ     AUDX        RETURN
Line S02331 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10755  M02S02331.282l826 ---| SDP      SPACE  4,15
10756  M02S02332.282l826 ---|**        SDP - SET *DSD* DISPLAY POINTERS.
10757  M02S02333.282l826 ---|*
10758  M02S02334.282l826 ---|*         ENTRY  (B3) = NUMBER OF UNITS.
10759  M02S02335.282l826 ---|*                (B4) = FWA OF UDT.
10760  M02S02336.282l826 ---|*                (B5) = LWA+1 OF UDT.
10761  M02S02337.282l826 ---|*
10762  M02S02338.282l826 ---|*         EXIT   (B4) = FWA OF UDT.
10763  M02S02339.282l826 ---|*                (B5) = LWA+1 OF UDT.
10764  M02S02340.282l826 ---|*
10765  M02S02341.282l826 ---|*         USES   X - 0, 1, 2, 7.
10766  M02S02342.282l826 ---|*                A - 1, 7.
10767  M02S02343.282l826 ---|*                B - 7.
10768  M02S02344.282l826 ---|*
10769  M02S02345.282l826 ---|*         MACROS CSTATUS.
10770  M02S02346.282l826 ---|
10771  M02S02347.282l826 ---|
10772  M02S02348.282l826 ---| SDP      SUBR               ENTRY/EXIT
10773  M02S02349.282l826 ---|
10774  M02S02350.282l826 ---|*         GET CONSOLE TYPE AND SET CONSOLE PAGE SIZE.
10775  M02S02351.282l826 ---|
10776  M02S02352.282l826 ---|          CSTATUS  SDPA      GET CONSOLE TYPE
10777  M02S02353.282l826 ---|          SA1    SDPA
10778  M02S02354.282l826 ---|          SX2    B3          NUMBER OF UNITS
10779  M02S02355.282l826 ---|          LX2    48
10780  M02S02356.282l826 ---|          BX7    X2
10781  M02S02357.282l826 ---|          SX2    PGSZ*UNITL  LENGTH OF UDT ENTRIES PER PAGE
10782  M02S02358.282l826 ---|          LX1    59-48
10783  M02S02359.282l826 ---|          NG     X1,SDP1     IF CC634B CONSOLE TYPE
10784  M02S02360.282l826 ---|          SX2    PGS2*UNITL  LENGTH OF UDT ENTRIES PER PAGE
10785  M02S02361.282l826 ---|
10786  M02S02362.282l826 ---|*         SET *DSD* DISPLAY PAGE POINTERS.
10787  M02S02363.282l826 ---|
10788  M02S02364.282l826 ---| SDP1     SB7    X2+B4       START OF SECOND PAGE FOR *DSD*
10789  M02S02365.282l826 ---|          LE     B5,B7,SDP2  IF PAGE IS EMPTY
10790  M02S02366.282l826 ---|          SX0    B7+         ADD INDEX FOR PAGE 2 INTO *UDSD*
10791  M02S02367.282l826 ---|          LX0    36
10792  M02S02368.282l826 ---|          BX7    X7+X0
10793  M02S02369.282l826 ---|          LX2    1
10794  M02S02370.282l826 ---|          SB7    X2+B4       START OF THIRD PAGE FOR *DSD*
10795  M02S02371.282l826 ---|          LE     B5,B7,SDP2  IF PAGE IS EMPTY
10796  M02S02372.282l826 ---|          SX0    B7+         ADD INDEX FOR PAGE 3 INTO *UDSD*
10797  M02S02373.282l826 ---|          LX0    24
10798  M02S02374.282l826 ---|          BX7    X7+X0
10799  M02S02375.282l826 ---| SDP2     SA7    UDSD        SET *DSD* UDT POINTERS
10800  M02S02376.282l826 ---|          EQ     SDPX        RETURN
10801  M02S02377.282l826 ---|
10802  M02S02378.282l826 ---|
10803  M02S02379.282l826 ---| SDPA     CON    0           CONSOLE TYPE
10804  M02S02380.282l826 ---| TUAD     SPACE  4,10
10805  M02S02381.282l826 ---|**        TUAD - TABLE OF UDT ADDRESSES IN EST ORDER.
10806  M02S02382.282l826 ---|
10807  M02S02383.282l826 ---|
10808  M02S02384.282l826 ---| TUAD     BSSZ   MUNIT+1
Line S02385 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
10809  M01S02385.274l797 +++|
10810  M00S03251.magnet  +++|
10811  M00S03252.magnet  +++| LWA      BSS    0           LAST WORD OF CODE TO MOVE
10812  M00S03253.magnet  +++|          LOC    *O
10813  M00S03254.magnet  +++|
10814  M00S03255.magnet  +++|
10815  M00S03256.magnet  +++|          ERRMI  UIBF-*      OVERFLOW INTO FIRMWARE BUFFER
10816  M00S03257.magnet  +++|          SPACE  4,10
10817  M00S03258.magnet  +++|**        INITIAL FL FOR MAGNET.
10818  M00S03259.magnet  +++|
10819  M00S03260.magnet  +++|
10820  M00S03261.magnet  +++|          QUAL
10821  M00S03262.magnet  +++| MAGNET   EQU    /PRESET/PRS
10822  M00S03263.magnet  +++| RFL=     EQU    RQFL*100B-1  MAGNET INITIAL FL
10823  M00S03264.magnet  +++|          TTL    MAGNET/MAGNET1 - TERMINATION PROCESSOR.
10824  M00S03265.magnet  +++|          TITLE
10825  M00S03266.magnet  +++|          QUAL   MAGNET1
10826  M00S03267.magnet  +++|          IDENT  MAGNET1,TER,MAGNET1,0,0
10827  M00S03268.magnet  +++|          ENTRY  MAGNET1
10828  M00S03269.magnet  +++|          ENTRY  MFL=
10829  M00S03270.magnet  +++|          ENTRY  SSJ=
10830  M00S03271.magnet  +++|*COMMENT  MAGNET - TAPE EXECUTIVE TERMINATION.
10831  M00S03272.magnet  +++|          BASE   DECIMAL
10832  M00S03273.magnet  +++|          SPACE  4,10
10833  M00S03274.magnet  +++|***       MAGNET TERMINATION PROCESSOR.
10834  M00S03275.magnet  +++|*         R. E. TATE.        73/02/02.
10835  M00S03276.magnet  +++|*         MODIFIED BY D. D. SADLER  74/05/29.
10836  M00S03277.magnet  +++|          SPACE  4,10
10837  M00S03278.magnet  +++|***       MAGNET1 PERFORMS THE FOLLOWING FUNCTIONS.
10838  M00S03279.magnet  +++|*
10839  M00S03280.magnet  +++|*         1)     IDLE DOWN.
10840  M00S03281.magnet  +++|*         2)     RESTART OF MAGNET FOR LEVEL-3 RECOVERY.
10841  M00S03282.magnet  +++|*         3)     CLEAN-UP OF RESOURCE DEMAND FILE ON MAGNET DROP
10842  M00S03283.magnet  +++|*                OR ABORT WITH TAPES ASSIGNED.
10843  M00S03284.magnet  +++|          SPACE  4,10
10844  M00S03285.magnet  +++|***       DAYFILE MESSAGES.
10845  M00S03286.magnet  +++|*
10846  M00S03287.magnet  +++|*
Line S03288 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10847  M01S03288.ns22000 ---|*         * ILLEGAL CONTROL CARD.* - *MAGNET1* WAS CALLED FROM
Line S00113 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10848  M01S00113.ns22000 +++|*         * INCORRECT COMMAND.* - *MAGNET1* WAS CALLED FROM
10849  M00S03289.magnet  +++|*         NON-SYSTEM ORIGIN JOB.
10850  M00S03290.magnet  +++|*
10851  M00S03291.magnet  +++|*         * MAGNET DROPPED DURING RECOVERY.* - MAGNET1 WAS DROPPED
10852  M00S03292.magnet  +++|*         WHEN ATTEMPTING MAGNET CLEAN-UP OR RECOVERY.
10853  M00S03293.magnet  +++|*
10854  M00S03294.magnet  +++|*         * MAGNET TERMINATION/NO TAPE JOBS.* - MAGNET WAS DROPPED
10855  M00S03295.magnet  +++|*         OR ABORTED WITH NO TAPE ASSIGNMENTS.
10856  M00S03296.magnet  +++|*
10857  M00S03297.magnet  +++|*         * 000000.000 PERCENT CPU UTILIZATION.* - SUMMARY MESSAGE
10858  M00S03298.magnet  +++|*         INDICATING MAGNET CPU UTILIZATION.
10859  M00S03299.magnet  +++|*
10860  M00S03300.magnet  +++|*         * RECOVERY COMPLETE.* - LEVEL-3 RECOVERY AND MAGNET RESTART
10861  M00S03301.magnet  +++|*         WAS SUCCESSFUL.
10862  M00S03302.magnet  +++|*
10863  M00S03303.magnet  +++|*         * RECOVERY IMPOSSIBLE.* - MAGNET HAS BEEN DROPPED OR
10864  M00S03304.magnet  +++|*         ABORTED OR LEVEL-3 RECOVERY WAS UNSUCCESSFUL.
10865  M00S03305.magnet  +++|*
10866  M00S03306.magnet  +++|*         * RECOVERY IN PROGRESS.* - MAGNET1 IS PROCESSING IDLE
10867  M00S03307.magnet  +++|*         DOWN AND CLEAN-UP/RESTART.
10868  M00S03308.magnet  +++|*
10869  M00S03309.magnet  +++|*         * SCANNING RESOURCE DEMAND FILE.* - MAGNET1 IS ATTEMPTING
10870  M00S03310.magnet  +++|*         CLEAN-UP OF RESOURCE DEMAND FILE.
10871  M00S03311.magnet  +++|*
10872  M00S03312.magnet  +++|*         * NN TAPE FILES RECOVERED.* - INDICATES NUMBER OF TAPE
10873  M00S03313.magnet  +++|*         ASSIGNMENTS RECOVERED BY LEVEL-3 DEADSTART.
10874  M00S03314.magnet  +++|*
10875  M00S03315.magnet  +++|*         * TAPES ASSIGNED AT MAGNET TERMINATION.* - MAGNET WAS
10876  M00S03316.magnet  +++|*         DROPPED OR ABORTED WITH TAPES ASSIGNED.  MAGNET1 PERFORMED
10877  M00S03317.magnet  +++|*         RESOURCE DEMAND FILE CLEAN-UP SO ONLY THOSE JOBS WITH
10878  M00S03318.magnet  +++|*         THESE TAPES ASSIGNED WILL BE AFFECTED.
10879  M00S03319.magnet  +++|*
10880  M00S03320.magnet  +++|*         * WAIT DEMAND FILE ATTACH.* - MAGNET1 IS WAITING FOR THE
10881  M00S03321.magnet  +++|*         RESOURCE DEMAND FILE TO BECOME AVAILABLE.
10882  M00S03322.magnet  +++|*
10883  M00S03323.magnet  +++|*         * WAIT 1MT COMPLETE.* - MAGNET1 IS WAITING FOR ALL 1MT,S
10884  M00S03324.magnet  +++|*         TO IDLE DOWN.
10885  M00S03325.magnet  +++|*
10886  M00S03326.magnet  +++|*         * 1MT PROBABLY LOST.* - MAGNET1 WAS DROPPED WHILE WAITING
10887  M00S03327.magnet  +++|*         FOR 1MT,S TO IDLE DOWN.
10888  M00S03328.magnet  +++|          SPACE  4,10
10889  M00S03329.magnet  +++|**        COMMON DECKS
10890  M00S03330.magnet  +++|
10891  M00S03331.magnet  +++|
10892  M00S03332.magnet  +++|*CALL     COMSSSJ
10893  M00S03333.magnet  +++|          TITLE
10894  M00S03334.magnet  +++|          ORG    RQFL*100B-1000B
10895  M00S03335.magnet  +++|
10896  M00S03336.magnet  +++|*         CODE OVERLAID BY RESOURCE DEMAND FILE BUFFER.
10897  M00S03337.magnet  +++|
10898  M00S03338.magnet  +++| DBUF     EQU    *           DEMAND FILE CIO BUFFER
Line S03339 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10899  M01S03339.282l826 ---| DBUFL    EQU    /COMSRSX/RDEL+2  DEMAND FILE CIO BUFFER LENGTH
Line S02116 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10900  M01S02116.282l826 +++| DBUFL    EQU    /RSX/RDEL+2  DEMAND FILE CIO BUFFER LENGTH
10901  M00S03340.magnet  +++|          SPACE  4,10
10902  M00S03341.magnet  +++|**        TER - TERMINATION PROCESSOR.
10903  M00S03342.magnet  +++|
10904  M00S03343.magnet  +++|
10905  M00S03344.magnet  +++| TER      SB1    1
10906  M00S03345.magnet  +++|          SA1    JOPR        GET JOB ORIGIN
10907  M00S03346.magnet  +++|          MX6    -12
10908  M00S03347.magnet  +++|          LX1    -24
10909  M00S03348.magnet  +++|          BX1    -X6*X1
10910  M00S03349.magnet  +++|          SX1    X1-SYOT
10911  M00S03350.magnet  +++|          NZ     X1,TER6     IF NOT SYSTEM ORIGIN
10912  M00S03351.magnet  +++|          EREXIT ERX         SET ERROR EXIT ADDRESS
10913  M00S03352.magnet  +++|          RJ     CPU         CALCULATE CPU UTILIZATION
10914  M00S03353.magnet  +++|          GETJCR TERA        READ JOB CONTROL WORD REGISTER
10915  M00S03354.magnet  +++|          SA1    TERA        CLEAR ERROR FLAG
10916  M00S03355.magnet  +++|          MX2    -54
10917  M00S03356.magnet  +++|          BX6    -X2*X1
10918  M00S03357.magnet  +++|          SA6    A1+B1
Line S03358 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
10919  M01S03358.magne2  ---|          BX7    X2*X1       SAVE ERROR FLAGS
10920  M01S03359.magne2  ---|          SA7    RECA
Line S00001 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
10921  M01S00001.magne2  +++|          BX5    X2*X1       SAVE ERROR FLAG
10922  M00S03360.magnet  +++|          SETJCR A6
10923  M00S03361.magnet  +++|          MESSAGE (=C* RECOVERY IN PROGRESS.*)
10924  M00S03362.magnet  +++|
10925  M00S03363.magnet  +++|*         CHECK POINTERS.
10926  M00S03364.magnet  +++|
10927  M00S03365.magnet  +++|          SA1    UBUF
10928  M00S03366.magnet  +++|          SB4    X1
10929  M00S03367.magnet  +++|          AX1    24
10930  M00S03368.magnet  +++|          SB5    X1
10931  M00S03369.magnet  +++|          SB6    A0-10
10932  M00S03370.magnet  +++|          LE     B4,B1,ABT   IF FWA OF UDT,S BAD
10933  M00S03371.magnet  +++|          GE     B4,B5,ABT   IF FWA OF UDT,S .GE. LWA OF UDT,S
10934  M00S03372.magnet  +++|          GE     B5,B6,ABT   IF LWA OF UDT,S BAD
10935  M00S03373.magnet  +++|          SA2    NTAS
Line S03374 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
10936  M01S03374.magne2  ---|          SA1    RECA
10937  M00S03375.magnet  +++|          NG     X2,TER1     IF IDLEDOWN
Line S03376 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
10938  M01S03376.magne2  ---|          ZR     X1,REC      IF LEVEL 3 RECOVERY
Line S00002 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
10939  M01S00002.magne2  +++|          ZR     X5,REC      IF LEVEL 3 RECOVERY
10940  M00S03377.magnet  +++| TER1     MESSAGE  CPUC,,R   *000000.000 PERCENT CPU UTILIZATION.*
Line S03378 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10941  M01S03378.282l826 ---|
10942  M01S03379.282l826 ---|*         WAIT FOR ALL 1MT,S TO IDLE DOWN.
10943  M01S03380.282l826 ---|
10944  M01S03381.282l826 ---|          MESSAGE (=C* WAIT 1MT COMPLETE.*),3
10945  M01S03382.282l826 ---| TER2     SA2    UITW-1
10946  M01S03383.282l826 ---| TER3     SA1    A2+B1
10947  M01S03384.282l826 ---|          SA2    A1+B1
10948  M01S03385.282l826 ---|          NG     X1,TER4     IF END OF UDT
10949  M01S03386.282l826 ---|          LX1    59-32
10950  M01S03387.282l826 ---|          NG     X1,TER3     IF CHANNEL DOWN
10951  M01S03388.282l826 ---|          PL     X2,TER3     IF INACTIVE
10952  M01S03389.282l826 ---|          RECALL
10953  M01S03390.282l826 ---|          EQ     TER2        LOOP FOR ALL UNITS
10954  M01S03391.282l826 ---|
Line S03392 Modification History
M01 (Removed by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10955  M02S03392.282l826 ---| TER4     SA1    TERA        CHECK FOR IDLEDOWN
10956  M02S03393.282l826 ---|          BX6    X6-X6       CLEAR ERROR EXIT MESSAGE
10957  M02S03394.282l826 ---|          AX1    54
Line S00003 Modification History
M01 (Added by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10958  M02S00003.282l826 ---| TER4     SX6    B0+         CLEAR ERROR EXIT MESSAGE
Line S02117 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10959  M01S02117.282l826 +++|          SX6    B0+         CLEAR ERROR EXIT MESSAGE
Line S00004 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
10960  M01S00004.magne2  +++|          SA1    NTAS
10961  M00S03395.magnet  +++|          SA6    ERXA
Line S03396 Modification History
M01 (Removed by) magne2
Seq #  *Modification Id* Act 
----------------------------+
10962  M01S03396.magne2  ---|          SX0    X1-IDET
10963  M01S03397.magne2  ---|          ZR     X1,TER5     IF NO ERROR FLAG
10964  M01S03398.magne2  ---|          NZ     X0,ABT1     IF NOT IDLEDOWN
Line S00005 Modification History
M01 (Added by) magne2
Seq #  *Modification Id* Act 
----------------------------+
10965  M01S00005.magne2  +++|          PL     X1,ABT1     IF NOT IDLEDOWN
10966  M00S03399.magnet  +++|
10967  M00S03400.magnet  +++|*         CHECK IF TAPES ASSIGNED.
10968  M00S03401.magnet  +++|
10969  M00S03402.magnet  +++| TER5     SA1    B4
Line S03403 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10970  M01S03403.282l826 ---|          SA2    B4+UJID
Line S02386 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10971  M02S02386.282l826 ---|          SX2    X2
Line S02118 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
10972  M01S02118.282l826 +++|          SA2    B4+UVRI
10973  M01S02119.282l826 +++|          AX1    48
10974  M00S03404.magnet  +++|          SB4    B4+UNITL
10975  M00S03405.magnet  +++|          NG     X1,ABT      IF PREMATURE END OF UDT
10976  M00S03406.magnet  +++|          NZ     X2,ABT1     IF JOB ASSIGNED
10977  M00S03407.magnet  +++|          LT     B4,B5,TER5  IF NOT END OF UDT
10978  M00S03408.magnet  +++|          SB2    ENDA        * MAGNET TERMINATE/NO TAPE JOBS.*
10979  M00S03409.magnet  +++|          EQ     END         ISSUE MESSAGE AND END
10980  M00S03410.magnet  +++|
Line S03411 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10981  M01S03411.ns22000 ---| TER6     MESSAGE  (=C* ILLEGAL CONTROL CARD.*),0,R
Line S00114 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
10982  M01S00114.ns22000 +++| TER6     MESSAGE  (=C* INCORRECT COMMAND.*),0,R
10983  M00S03412.magnet  +++|          ABORT
10984  M00S03413.magnet  +++|
10985  M00S03414.magnet  +++|
10986  M00S03415.magnet  +++| TERA     BSS    2           JOB CONTROL REGISTER TEMPORARIES
10987  M00S03416.magnet  +++| CPU      SPACE  4,10
10988  M00S03417.magnet  +++|**        CPU - CPU UTILIZATION.
10989  M00S03418.magnet  +++|*
10990  M00S03419.magnet  +++|*         CALLS  CFD.
10991  M00S03420.magnet  +++|*
10992  M00S03421.magnet  +++|*         MACROS RTIME, TIME.
10993  M00S03422.magnet  +++|
10994  M00S03423.magnet  +++|
10995  M00S03424.magnet  +++| CPU      SUBR               ENTRY/EXIT
10996  M00S03425.magnet  +++|          TIME   CPUA
10997  M00S03426.magnet  +++|          RTIME  CPUB
10998  M00S03427.magnet  +++|          SA1    CTIM
10999  M00S03428.magnet  +++|          MX6    -12
11000  M00S03429.magnet  +++|          BX2    -X6*X1
11001  M00S03430.magnet  +++|          AX1    12
11002  M00S03431.magnet  +++|          SX5    1000
11003  M00S03432.magnet  +++|          IX4    X1*X5
11004  M00S03433.magnet  +++|          IX4    X4+X2       TOTAL CPU TIME PREVIOUSLY (MS)
11005  M00S03434.magnet  +++|          SA1    CPUA
11006  M00S03435.magnet  +++|          BX2    -X6*X1
11007  M00S03436.magnet  +++|          AX1    12
11008  M00S03437.magnet  +++|          IX3    X1*X5
11009  M00S03438.magnet  +++|          IX3    X3+X2       TOTAL CPU TIME CURRENTLY (MS)
11010  M00S03439.magnet  +++|          IX4    X3-X4       ELASPED CPU TIME (MS)
11011  M00S03440.magnet  +++|          SA1    CPUB
11012  M00S03441.magnet  +++|          SA2    STAR
11013  M00S03442.magnet  +++|          MX3    -36
11014  M00S03443.magnet  +++|          BX1    -X3*X1
11015  M00S03444.magnet  +++|          BX2    -X3*X2
11016  M00S03445.magnet  +++|          IX1    X1-X2       ELAPSED TIME
11017  M00S03446.magnet  +++|          SX5    100*1000
11018  M00S03447.magnet  +++|          IX4    X4*X5
11019  M00S03448.magnet  +++|          IX1    X4/X1
11020  M00S03449.magnet  +++|          RJ     CFD         CONVERT NUMBER
11021  M00S03450.magnet  +++|          SA6    CPUC
11022  M00S03451.magnet  +++|          EQ     CPUX        RETURN
11023  M00S03452.magnet  +++|
11024  M00S03453.magnet  +++|
11025  M00S03454.magnet  +++| CPUA     CON    0
11026  M00S03455.magnet  +++| CPUB     CON    0
11027  M00S03456.magnet  +++| CPUC     DATA   C*000000.000 PERCENT CPU UTILIZATION.*
Line S00019 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
11028  M01S00019.ns21000 +++|          SPACE  4,10
11029  M01S00020.ns21000 +++|**        OVERLAID COMMON DECKS.
11030  M01S00021.ns21000 +++|
11031  M01S00022.ns21000 +++|
11032  M01S00023.ns21000 +++|*CALL     COMCCDD
11033  M01S00024.ns21000 +++|*CALL     COMCCFD
11034  M00S03457.magnet  +++| REC      SPACE  4,10
11035  M00S03458.magnet  +++|**        REC - LEVEL 3 RECOVERY.
11036  M00S03459.magnet  +++|
11037  M00S03460.magnet  +++|
Line S03461 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11038  M01S03461.282l826 ---| REC      SA1    UQUE        CHECK QUEUE POINTERS
Line S02120 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11039  M01S02120.282l826 +++| REC      BSS    0           ENTRY
11040  M01S02121.282l826 +++|
11041  M01S02122.282l826 +++|*         VERIFY TABLE POINTERS.
11042  M01S02123.282l826 +++|
11043  M01S02124.282l826 +++|          SA1    UQUE        CHECK QUEUE POINTERS
11044  M00S03462.magnet  +++|          SA2    FLST
11045  M00S03463.magnet  +++|          BX6    X6-X6       CLEAR ERROR EXIT MESSAGE
11046  M00S03464.magnet  +++|          SB2    X1
11047  M00S03465.magnet  +++|          SA6    ERXA
11048  M00S03466.magnet  +++|          LX2    30
11049  M00S03467.magnet  +++|          SB3    X2
11050  M00S03468.magnet  +++|          LE     B2,B1,ABT   IF FWA OF QUEUE BAD
11051  M00S03469.magnet  +++|          GE     B3,B6,ABT   IF FIELD LENGTH STATUS WORD BAD
11052  M00S03470.magnet  +++|          GE     B2,B3,ABT   IF FWA OF QUEUE OUTSIDE OF FL
11053  M00S03471.magnet  +++|          GE     B5,B2,ABT   IF LWA OF UDT,S .GE. FWA OF QUEUE
11054  M00S03472.magnet  +++|          SX2    X2-TER
11055  M00S03473.magnet  +++|          PL     X2,ABT      IF RECOVERY CODE OVERLAID QUEUE
11056  M00S03474.magnet  +++|          SX6    B6          SET CURRENT FL
11057  M00S03475.magnet  +++|          LX6    30
11058  M00S03476.magnet  +++|          SA6    A2
11059  M00S03477.magnet  +++|
Line S01255 Modification History
M01 (Added by) 253l688
M02 (Removed by) magne11
Seq #  *Modification Id* Act 
----------------------------+
11060  M02S01255.magne11 ---|*         PROCESS TAPE ALTERNATE STORAGE.
11061  M02S01256.magne11 ---|
11062  M02S01257.magne11 ---|          RJ     RES         RESET TAPE ALTERNATE STORAGE
11063  M02S01258.magne11 ---|
Line S03478 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11064  M01S03478.282l826 ---|*         CLEAR EXTERNAL REQUESTS.
Line S02125 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11065  M01S02125.282l826 +++|*         RESET PP CALL WORDS.
11066  M00S03479.magnet  +++|
Line S03480 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11067  M01S03480.274l797 ---|          MX7    60
Line S03481 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11068  M01S03481.282l826 ---|          BX6    X6-X6
11069  M01S03482.282l826 ---|          MX0    1
Line S02126 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11070  M01S02126.282l826 +++|          SA1    CST-CSTE
11071  M01S02127.282l826 +++|          SB2    MCHAN
11072  M01S02128.282l826 +++| REC1     SA1    A1+CSTE
11073  M01S02129.282l826 +++|          SB2    B2-B1
11074  M01S02130.282l826 +++|          MX0    -59
11075  M01S02131.282l826 +++|          BX7    -X0*X1      CLEAR *1MT* ACTIVE
11076  M01S02132.282l826 +++|          SA7    A1
11077  M01S02133.282l826 +++|          NZ     B2,REC1     IF MORE  CHANNELS TO PROCESS
11078  M01S02134.282l826 +++|          SA1    APS
11079  M01S02135.282l826 +++|          BX7    -X0*X1      CLEAR *1MU* ACTIVE
11080  M01S02136.282l826 +++|          SA7    A1
11081  M01S02137.282l826 +++|
11082  M01S02138.282l826 +++|*         CLEAR EXTERNAL REQUESTS AND CLEAR INTERVAL TIMER.
11083  M01S02139.282l826 +++|
11084  M01S02140.282l826 +++|          SX6    B0+
11085  M00S03483.magnet  +++|          SA6    RCAL
Line S03484 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11086  M01S03484.282l826 ---|
11087  M01S03485.282l826 ---|*         RESET TIMER.
11088  M01S03486.282l826 ---|
Line S03487 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11089  M01S03487.274l797 ---|          SA7    ITIM
11090  M01S03488.274l797 ---|          SA1    RECF        RESET ELAPSED TIME
11091  M01S03489.274l797 ---|          BX7    X1
11092  M01S03490.274l797 ---|          SA7    A7+B1
Line S02387 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
11093  M01S02387.274l797 +++|          SA6    ITIM
11094  M01S02388.274l797 +++|          SA6    INTC
11095  M00S03491.magnet  +++|
Line S03492 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11096  M01S03492.282l826 ---|*         RESET CHANNEL CONTROL WORDS.
Line S02141 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11097  M01S02141.282l826 +++|*         SET ERROR IN DRIVER REQUESTS IN PROGRESS.
11098  M01S02142.282l826 +++|*         CLEAR FILE REQUEST IF JOB AT CONTROL POINT DURING RECOVERY.
11099  M00S03493.magnet  +++|
Line S03494 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11100  M01S03494.282l826 ---|          SA1    UITW-1
Line S03495 Modification History
M01 (Removed by) magne11
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11101  M02S03495.282l826 ---|          SA0    B4-UNITL
Line S00001 Modification History
M01 (Added by) magne11
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11102  M02S00001.282l826 ---|          SA2    UBUF        GET STARTING ADDRESS OF UDT-S
11103  M02S00002.282l826 ---|          SA0    X2-UNITL
Line S03496 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11104  M01S03496.282l826 ---|          SB4    -1
11105  M01S03497.282l826 ---|          SA2    XREQ
11106  M01S03498.282l826 ---|          MX7    1
11107  M01S03499.282l826 ---|          SB2    B0          INITIALIZE UNIT NUMBER
11108  M01S03500.282l826 ---|          BX6    -X7*X2
Line S02143 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11109  M01S02143.282l826 +++|          SA1    UBUF
11110  M01S02144.282l826 +++|          SA1    X1-UNITL    INITIALIZE UDT ADDRESS
11111  M01S02145.282l826 +++| REC2     SA1    A1+UNITL+UXRQ  GET REQUEST
11112  M01S02146.282l826 +++|          ERRNZ  UXRQ
11113  M01S02147.282l826 +++|          NG     X1,REC3     IF ALL UNITS CHECKED
11114  M01S02148.282l826 +++|          MX0    -12
11115  M01S02149.282l826 +++|          LX1    12
11116  M01S02150.282l826 +++|          BX2    -X0*X1
11117  M01S02151.282l826 +++|          SX2    X2-RIP
11118  M01S02152.282l826 +++|          NZ     X2,REC2.1   IF NOT REQUEST IN PROGRESS
11119  M01S02153.282l826 +++|          SX2    ERR&RIP
11120  M01S02154.282l826 +++|          BX6    X1-X2       SET ERROR STATUS
11121  M01S02155.282l826 +++|          LX6    48
11122  M01S02156.282l826 +++|          SA6    A1
11123  M01S02157.282l826 +++|          SA2    A1+UST3-UXRQ
11124  M01S02158.282l826 +++|          BX2    X0*X2
11125  M01S02159.282l826 +++|          SX6    EFT         SET ERROR FLAG TERMINATION CODE
11126  M01S02160.282l826 +++|          BX6    X2+X6
11127  M00S03501.magnet  +++|          SA6    A2
Line S03502 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11128  M01S03502.282l826 ---|          ZR     X6,REC1     IF NO EXTERNAL REQUEST PENDING
11129  M01S03503.282l826 ---|          AX6    36
11130  M01S03504.282l826 ---|          SB3    X6
11131  M01S03505.282l826 ---|          AX6    12
11132  M01S03506.282l826 ---|          NZ     X6,REC1     IF NOT TAPE RETURN
11133  M01S03507.282l826 ---|          ERRNZ  XRU         CODE DEPENDS ON VALUE
11134  M01S03508.282l826 ---|          SA6    A2
11135  M01S03509.282l826 ---|          SA2    B3+UJID     SET RETURN IN PROGRESS FLAG
11136  M01S03510.282l826 ---|          BX7    X7+X2
11137  M01S03511.282l826 ---|          SA7    A2
11138  M01S03512.282l826 ---| REC1     SA1    A1+B1
11139  M01S03513.282l826 ---|          NG     X1,REC3     IF END OF CHANNELS
11140  M01S03514.282l826 ---|          SA1    A1+B1
11141  M01S03515.282l826 ---|          BX7    -X0*X1
11142  M01S03516.282l826 ---|          SA7    A1
11143  M01S03517.282l826 ---|          EQ     REC1        LOOP
Line S02161 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11144  M01S02161.282l826 +++| REC2.1   SA2    A1+UFRQ-UXRQ
11145  M01S02162.282l826 +++|          SA3    A1+UST1-UXRQ
11146  M01S02163.282l826 +++|          ZR     X2,REC2     IF NO FILE REQUEST
11147  M01S02164.282l826 +++|          LX3    59-48
11148  M01S02165.282l826 +++|          SX6    B0
11149  M01S02166.282l826 +++|          NG     X3,REC2     IF JOB ROLLED OUT
11150  M01S02167.282l826 +++|          SA6    A2+         CLEAR FILE REQUEST
11151  M01S02168.282l826 +++|          EQ     REC2        CHECK NEXT UNIT
11152  M00S03518.magnet  +++|
Line S03519 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11153  M01S03519.282l826 ---|*         RESET UDT.
Line S02169 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11154  M01S02169.282l826 +++|*         PROCESS TAPE ALTERNATE STORAGE.
11155  M00S03520.magnet  +++|
Line S03521 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11156  M01S03521.282l826 ---| REC2     AX2    48
11157  M01S03522.282l826 ---|          LX4    X1,B1
11158  M01S03523.282l826 ---|          BX3    X1*X4
11159  M01S03524.282l826 ---|          SX6    B1
Line S03525 Modification History
M01 (Removed by) magne2
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
11160  M02S03525.282l826 ---|          NG     X3,REC4.1   IF TAPE LOST ON RETURN
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/magnet.009.txt ยท Last modified: by 127.0.0.1