User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:set.014

Deck SET Part 014

79 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
24235  M01S16582.271l716 ---|          STD    T5
24236  M01S16583.271l716 ---|          LDD    T1          GET ORIGINAL EI NAME
24237  M01S16584.271l716 ---|          SHN    14
24238  M01S16585.271l716 ---|          LMD    T1+1
24239  M01S16586.271l716 ---|          ADN    1
24240  M01S16587.271l716 ---|          CRD    AB
24241  M01S16588.271l716 ---|          LDN    3           COMPARE MICROCODE NAMES
24242  M01S16589.271l716 ---|          STD    T3
24243  M01S16590.271l716 ---| VEM1     LDM    CN,T3
24244  M01S16591.271l716 ---|          STM    VEMA+12,T3
24245  M01S16592.271l716 ---|          LMM    CM,T3
24246  M01S16593.271l716 ---|          ZJN    VEM2        IF VALUES MATCH
24247  M01S16594.271l716 ---|          STD    T5
24248  M01S16595.271l716 ---| VEM2     SOD    T3
24249  M01S16596.271l716 ---|          PJN    VEM1        IF COMPARE NOT COMPLETE
24250  M01S16597.271l716 ---|          LDD    T5
24251  M01S16598.271l716 ---|          NJN    VEM3        IF MICROCODE ERROR
24252  M01S16599.271l716 ---|          LDD    AB+3        COMPARE EI LEVEL
24253  M01S16600.271l716 ---|          STM    VEMB+6
24254  M01S16601.271l716 ---|          LMD    CM+4
24255  M01S16602.271l716 ---|          NJN    VEM4        IF EI ERROR
24256  M01S16603.271l716 ---|          LJM    VEMX        RETURN
24257  M01S16604.271l716 ---|
24258  M01S16605.271l716 ---| VEM3     LDC    VEMA        *MICROCODE MISMATCH*
24259  M01S16606.271l716 ---|          UJN    VEM5        DISPLAY ERROR AND HANG
24260  M01S16607.271l716 ---|
24261  M01S16608.271l716 ---| VEM4     LDC    VEMB        *EI MISMATCH*
24262  M01S16609.271l716 ---| VEM5     JMP    DSE         DISPLAY ERROR AND HANG
24263  M01S16610.271l716 ---|
24264  M01S16611.271l716 ---|
24265  M01S16612.271l716 ---| VEMA     DATA   C*MICROCODE MISMATCH,        *
24266  M01S16613.271l716 ---| VEMB     DATA   C*EI MISMATCH,  *
24267  M00S16614.set     +++|          TITLE  PRIMARY SUBROUTINES.
24268  M00S16615.set     +++| CTA      SPACE  4,10
24269  M00S16616.set     +++|**        CTA - CHECK TABLE ADDRESS.
24270  M00S16617.set     +++|*
24271  M00S16618.set     +++|*         ENTRY  (A) BITS  0 - 11 = POINTER WORD ADDRESS.
24272  M00S16619.set     +++|*                    BITS 12 - 14 = BYTE INDEX.
24273  M00S16620.set     +++|*                (CA - CA+1) = CURRENT CM ADDRESS.
24274  M00S16621.set     +++|*
Line S16622 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
24275  M01S16622.253l688 ---|*         EXIT   (T5) = POINTER WORD ADDRESS.
Line S00082 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
24276  M01S00082.253l688 +++|*         EXIT   (A) = 0.
24277  M01S00083.253l688 +++|*                (T5) = POINTER WORD ADDRESS.
24278  M00S16623.set     +++|*                (CM - CM+4) = POINTER WORD.
24279  M00S16624.set     +++|*
24280  M00S16625.set     +++|*         USES   T4.
24281  M00S16626.set     +++|
24282  M00S16627.set     +++|
24283  M00S16628.set     +++| CTA2     LDI    T4          CHECK POINTER
24284  M00S16629.set     +++|          LMD    CA
24285  M00S16630.set     +++|          LPN    77
24286  M00S16631.set     +++|          NJN    CTA1        IF POINTER WORD ERROR
24287  M00S16632.set     +++|
24288  M00S16633.set     +++| CTA      SUBR               ENTRY/EXIT
24289  M00S16634.set     +++|          STD    T5          SAVE POINTER WORD ADDRESS
24290  M00S16635.set     +++|          SHN    -14
24291  M00S16636.set     +++|          ADN    CM          SET BYTE ADDRESS WITHIN POINTER WORD
24292  M00S16637.set     +++|          STD    T4
24293  M00S16638.set     +++|          LDD    T5          FETCH POINTER WORD
24294  M00S16639.set     +++|          CRD    CM
24295  M00S16640.set     +++|          LDM    1,T4        CHECK POINTER VALUE
24296  M00S16641.set     +++|          LMD    CA+1
24297  M00S16642.set     +++|          ZJN    CTA2        IF MATCHING ADDRESS
24298  M00S16643.set     +++| CTA1     LDC    =C*TABLE ADDRESS ERROR.*
24299  M00S16644.set     +++|          JMP    DSE
24300  M00S16645.set     +++|          SPACE  4,10
24301  M00S16646.set     +++|**        COMMON SUBROUTINES.
24302  M00S16647.set     +++|
24303  M00S16648.set     +++|
24304  M00S16649.set     +++|          COMMON
24305  M00S16650.set     +++|          TITLE  SUBROUTINES.
24306  M00S16651.set     +++| CDP      SPACE  4,15
24307  M00S16652.set     +++|**        CDP - CHECK DAYFILE POINTERS.
24308  M00S16653.set     +++|*
24309  M00S16654.set     +++|*         ENTRY  (T3) = BUFFER NUMBER.
24310  M00S16655.set     +++|*                (T6 - T7) = FWA OF DAYFILE POINTERS.
24311  M00S16656.set     +++|*                (CA - CA+1) = ADDRESS OF NEXT BUFFER.
24312  M00S16657.set     +++|*
24313  M00S16658.set     +++|*         EXIT   (CA - CA+1) ADVANCED.
24314  M00S16659.set     +++|*
24315  M00S16660.set     +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4.
24316  M00S16661.set     +++|
24317  M00S16662.set     +++|
24318  M00S16663.set     +++| CDP      SUBR               ENTRY/EXIT
24319  M00S16664.set     +++|          LDD    T6          VERIFY BUFFER ADDRESS
24320  M00S16665.set     +++|          SHN    14
24321  M00S16666.set     +++|          LMD    T7
24322  M00S16667.set     +++|          CRD    CM          READ FIRST/IN POINTERS
24323  M00S16668.set     +++|          ADN    1
24324  M00S16669.set     +++|          CRD    AB
24325  M00S16670.set     +++|          ADN    1           READ DAYFILE FST
24326  M00S16671.set     +++|          CRD    CN
24327  M00S16672.set     +++|          LDD    CM+1        VERIFY BUFFER POINTER
24328  M00S16673.set     +++|          LMD    CA+1
24329  M00S16674.set     +++|          NJN    CDP1        IF POINTER ERROR
24330  M00S16675.set     +++|          LDD    CM
24331  M00S16676.set     +++|          LMD    CA
24332  M00S16677.set     +++|          ZJN    CDP2        IF POINTER CORRECT
24333  M00S16678.set     +++| CDP1     LJM    CTA1        *TABLE ADDRESS ERROR.*
24334  M00S16679.set     +++|
24335  M00S16680.set     +++| CDP2     STD    CM+2        CLEAR UNUSED BYTES
24336  M00S16681.set     +++|          STD    CM+3
24337  M00S16682.set     +++|          STD    AB
24338  M00S16683.set     +++|          STD    AB+1
24339  M00S16684.set     +++|          STD    AB+3
24340  M00S16685.set     +++|          LDD    T3          SET BUFFER INDEX
24341  M00S16686.set     +++|          SHN    6
24342  M00S16687.set     +++|          ADC    103         APPEND NOT BUSY / NOT INTERLOCKED STATUS
24343  M00S16688.set     +++|          STD    CN+4
24344  M00S16689.set     +++|          LDD    T6          UPDATE BUFFER POINTERS
24345  M00S16690.set     +++|          SHN    14
24346  M00S16691.set     +++|          ADD    T7
24347  M00S16692.set     +++|          CWD    CM
24348  M00S16693.set     +++|          ADN    1
24349  M00S16694.set     +++|          CWD    AB
24350  M00S16695.set     +++|          ADN    1           STORE DAYFILE FST
24351  M00S16696.set     +++|          CWD    CN
24352  M00S16697.set     +++|          LDD    CM+1        SET NEXT BUFFER ADDRESS
24353  M00S16698.set     +++|          ADD    AB+2
24354  M00S16699.set     +++|          STD    CA+1
24355  M00S16700.set     +++|          SHN    -14
24356  M00S16701.set     +++|          ADD    CM
24357  M00S16702.set     +++|          STD    CA
24358  M00S16703.set     +++|          LJM    CDPX        RETURN
Line S16704 Modification History
M01 (Removed by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24359  M02S16704.271l716 ---| CMI      SPACE  4,10
24360  M02S16705.271l716 ---|**        CMI - CLEAR MDI LOAD INTERLOCK.
Line S00002 Modification History
M01 (Added by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24361  M02S00002.271l716 ---| CEI      SPACE  4,10
24362  M02S00003.271l716 ---|**        CEI - CLEAR EST INTERLOCKS.
Line S16706 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24363  M01S16706.271l716 ---|*
Line S16707 Modification History
M01 (Removed by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24364  M02S16707.271l716 ---|*         EXIT   LOAD INTERLOCK CLEARED FOR *ND* DEVICES.
Line S00004 Modification History
M01 (Added by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24365  M02S00004.271l716 ---|*         EXIT   INTERLOCKS CLEARED FOR SELECTED DEVICES.
Line S16708 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24366  M01S16708.271l716 ---|*
Line S16709 Modification History
M01 (Removed by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24367  M02S16709.271l716 ---|*         USES   AB.
Line S00005 Modification History
M01 (Added by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24368  M02S00005.271l716 ---|*         USES   AB, T1.
Line S16710 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24369  M01S16710.271l716 ---|*
24370  M01S16711.271l716 ---|*         CALLS  SSE.
24371  M01S16712.271l716 ---|
24372  M01S16713.271l716 ---|
Line S16714 Modification History
M01 (Removed by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24373  M02S16714.271l716 ---| CMI      SUBR               ENTRY/EXIT
24374  M02S16715.271l716 ---|          LDC    1S17+2RND
24375  M02S16716.271l716 ---| CMI1     RJM    SSE         SEARCH FOR EQUIPMENT
24376  M02S16717.271l716 ---|          NJN    CMIX        IF EQUIPMENT NOT FOUND
24377  M02S16718.271l716 ---|          LDD    AB          CLEAR LOAD INTERLOCK
24378  M02S16719.271l716 ---|          LPC    6777
Line S00006 Modification History
M01 (Added by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24379  M02S00006.271l716 ---| CEI3     SOD    T1
24380  M02S00007.271l716 ---|          PJN    CEI1        IF NOT END OF DEVICE TYPES
24381  M02S00008.271l716 ---|
24382  M02S00009.271l716 ---| CEI      SUBR               ENTRY/EXIT
24383  M02S00010.271l716 ---|          LDN    CEITL-1     SET DEVICE INDEX
24384  M02S00011.271l716 ---|          STD    T1
24385  M02S00012.271l716 ---| CEI1     LDM    CEIM,T1     SET DEVICE MASK
24386  M02S00013.271l716 ---|          STM    CEIA
24387  M02S00014.271l716 ---|          LDM    CEIT,T1     SET DEVICE TYPE
24388  M02S00015.271l716 ---|          LMC    1S17
24389  M02S00016.271l716 ---| CEI2     RJM    SSE         SEARCH FOR EQUIPMENT
24390  M02S00017.271l716 ---|          NJN    CEI3        IF EQUIPMENT NOT FOUND
24391  M02S00018.271l716 ---|          LDD    AB          CLEAR INTERLOCKS
24392  M02S00019.271l716 ---|          LPC    **
24393  M02S00020.271l716 ---| CEIA     EQU    *-1
Line S16720 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24394  M01S16720.271l716 ---|          STD    AB
24395  M01S16721.271l716 ---|          SFA    EST,EQ
24396  M01S16722.271l716 ---|          ADK    EQDE
24397  M01S16723.271l716 ---|          CWD    AB
Line S16724 Modification History
M01 (Removed by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24398  M02S16724.271l716 ---|          LDN    0
24399  M02S16725.271l716 ---|          UJN    CMI1        SEARCH FOR NEXT *ND* TYPE EQUIPMENT
Line S00021 Modification History
M01 (Added by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24400  M02S00021.271l716 ---|          UJN    CEI2        SEARCH FOR NEXT EQUIPMENT
24401  M02S00022.271l716 ---|
24402  M02S00023.271l716 ---| CEIT     BSS    0           TABLE OF DEVICE TYPES
24403  M02S00024.271l716 ---|          CON    2RNC        NAD
24404  M02S00025.271l716 ---|          CON    2RND        MDI
24405  M02S00026.271l716 ---| CEITL    EQU    *-CEIT
24406  M02S00027.271l716 ---|
24407  M02S00028.271l716 ---| CEIM     BSS    0           TABLE OF DEVICE MASKS
24408  M02S00029.271l716 ---|          CON    3177        NAD
24409  M02S00030.271l716 ---|          CON    6777        MDI
Line S16726 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24410  M01S16726.271l716 ---| IPS      SPACE  4,10
24411  M01S16727.271l716 ---|**        IPS - INITIALIZE PP STATUS.
24412  M01S16728.271l716 ---|*
24413  M01S16729.271l716 ---|*         EXIT   (CA - CA+1) = NEXT CM ADDRESS.
24414  M01S16730.271l716 ---|*
24415  M01S16731.271l716 ---|*         USES   T3, T4, T6, T7, CM - CM+4, CN - CN+4.
24416  M01S16732.271l716 ---|*
24417  M01S16733.271l716 ---|*         CALLS  APP, CLS, HPP.
24418  M01S16734.271l716 ---|
24419  M01S16735.271l716 ---|
24420  M01S16736.271l716 ---| IPS3     LDM    .PPL,T4     CHECK PP STATUS RETURNED BY *CTI*
24421  M01S16737.271l716 ---|          SHN    21-0
24422  M01S16738.271l716 ---|          STM    .PPL,T4
24423  M01S16739.271l716 ---|          MJN    IPS4        IF PP DISABLED
24424  M01S16740.271l716 ---|          LDD    CM
24425  M01S16741.271l716 ---|          LMC    2R**
24426  M01S16742.271l716 ---|          NJN    IPS5        IF PP NOT OFF ON PREVIOUS DEADSTART
24427  M01S16743.271l716 ---|          LDD    T4          CALCULATE CHANNEL NUMBER
24428  M01S16744.271l716 ---|          SHN    4
24429  M01S16745.271l716 ---|          LMD    T3
24430  M01S16746.271l716 ---|          RJM    HPP         HANG PP
24431  M01S16747.271l716 ---| IPS4     LDD    CM
24432  M01S16748.271l716 ---|          NJN    IPS5        IF PP NAME IN PLACE
24433  M01S16749.271l716 ---|          LDD    T7
24434  M01S16750.271l716 ---|          CWM    IPSA,ON
24435  M01S16751.271l716 ---| IPS5     LDN    10          ADVANCE INPUT REGISTER ADDRESS
24436  M01S16752.271l716 ---|          RAD    T7
24437  M01S16753.271l716 ---|          CRD    CM
24438  M01S16754.271l716 ---|          AOD    T3          COUNT CHANNEL
24439  M01S16755.271l716 ---|          LMN    10D
24440  M01S16756.271l716 ---| IPS6     NJN    IPS3        IF PPS BANK NOT PROCESSED
24441  M01S16757.271l716 ---|          STD    T3
24442  M01S16758.271l716 ---|          AOD    T4          ADVANCE STATUS INDEX
24443  M01S16759.271l716 ---|          LCN    10D         DECREMENT PPU COUNT
24444  M01S16760.271l716 ---|          RAD    T6
24445  M01S16761.271l716 ---|          NJN    IPS6        IF ALL PP-S NOT CHECKED
24446  M01S16762.271l716 ---|          LDM    .CCHN
24447  M01S16763.271l716 ---|          ZJN    IPS9        IF NO CPP-S
24448  M01S16764.271l716 ---|          STD    T3
24449  M01S16765.271l716 ---| IPS7     LDM    .CPPL
24450  M01S16766.271l716 ---|          SHN    21-0
24451  M01S16767.271l716 ---|          STM    .CPPL
24452  M01S16768.271l716 ---|          PJN    IPS8        IF PP NOT DISABLED
24453  M01S16769.271l716 ---|          LDD    T7
24454  M01S16770.271l716 ---|          CWM    IPSA,ON
24455  M01S16771.271l716 ---| IPS8     LDN    10          ADVANCE INPUT REGISTER ADDRESS
24456  M01S16772.271l716 ---|          RAD    T7
24457  M01S16773.271l716 ---|          SOD    T3
24458  M01S16774.271l716 ---|          NJN    IPS7        IF NOT COMPLETE LOOP
24459  M01S16775.271l716 ---|
24460  M01S16776.271l716 ---| IPS9     LDD    CA+1        STORE PSEUDO PP INDICATOR
24461  M01S16777.271l716 ---|          SBN    10
24462  M01S16778.271l716 ---|          CWM    IPSA+2,ON
24463  M01S16779.271l716 ---|
24464  M01S16780.271l716 ---| IPS      SUBR               ENTRY/EXIT
24465  M01S16781.271l716 ---|          LDN    PPCP
24466  M01S16782.271l716 ---|          CRD    CN
24467  M01S16783.271l716 ---|          LDD    CN+4        SET FWA OF PP COMMUNICATION AREA
24468  M01S16784.271l716 ---|          STD    CA+1
24469  M01S16785.271l716 ---|          STD    T7
24470  M01S16786.271l716 ---|          CRD    CM
24471  M01S16787.271l716 ---|          STD    T3
24472  M01S16788.271l716 ---|          ADN    10
24473  M01S16789.271l716 ---|          STD    T4
24474  M01S16790.271l716 ---|          SHN    -14
24475  M01S16791.271l716 ---|          STD    CA
24476  M01S16792.271l716 ---|          LDM    .PPU        SET PP COUNT
24477  M01S16793.271l716 ---|          STD    T6
24478  M01S16794.271l716 ---|          ADM    .CCHN
24479  M01S16795.271l716 ---|          SHN    3           SET END OF COMMUNICATIONS AREA SCAN
24480  M01S16796.271l716 ---|          RAD    T4
24481  M01S16797.271l716 ---| IPS1     LDN    10          CLEAR COMMUNICATION AREA
24482  M01S16798.271l716 ---|          RJM    CLS
24483  M01S16799.271l716 ---|          LDD    CM
24484  M01S16800.271l716 ---|          LMC    2R**
24485  M01S16801.271l716 ---|          NJN    IPS2        IF PP NOT DISABLED ON PREVIOUS DEADSTART
24486  M01S16802.271l716 ---|          LDD    T3
24487  M01S16803.271l716 ---|          CWD    CM
24488  M01S16804.271l716 ---| IPS2     LDN    10          ADVANCE INPUT REGISTER ADDRESS
24489  M01S16805.271l716 ---|          RAD    T3
24490  M01S16806.271l716 ---|          CRD    CM          READ INPUT REGISTER
24491  M01S16807.271l716 ---|          LMD    T4
24492  M01S16808.271l716 ---|          NJN    IPS1        IF ALL PP-S NOT CHECKED
24493  M01S16809.271l716 ---|          STD    T3
24494  M01S16810.271l716 ---|          STD    T4
24495  M01S16811.271l716 ---|          RJM    APP         ASSIGN *CTI* INITIATED PP-S
24496  M01S16812.271l716 ---|          LDD    NC          INSERT SYSTEM CP INTO DISABLED PP IR
24497  M01S16813.271l716 ---|          RAM    IPSA+1
24498  M01S16814.271l716 ---|          LJM    IPS3        PROCESS PP COMMUNICATIONS AREA
24499  M01S16815.271l716 ---|
24500  M01S16816.271l716 ---| IPSA     VFD    18/3R***,6/**,36/
24501  M01S16817.271l716 ---|          VFD    24/3RCIO
24502  M01S16818.271l716 ---| PTR      SPACE  4,10
24503  M01S16819.271l716 ---|**        PTR - PROCESS POINTER AREA.
24504  M01S16820.271l716 ---|*
24505  M01S16821.271l716 ---|*         EXIT   (ID) = MACHINE ID.
24506  M01S16822.271l716 ---|*                (LD) = LINK DEVICE STATUS.
24507  M01S16823.271l716 ---|*
24508  M01S16824.271l716 ---|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T3 - T7.
24509  M01S16825.271l716 ---|*
24510  M01S16826.271l716 ---|*         CALLS  SCS.
24511  M01S16827.271l716 ---|*
24512  M01S16828.271l716 ---|*         MACROS SFA.
24513  M01S16829.271l716 ---|
24514  M01S16830.271l716 ---|
24515  M01S16831.271l716 ---| PTR      SUBR               ENTRY/EXIT
24516  M01S16832.271l716 ---|          LDN    DSSL
24517  M01S16833.271l716 ---|          CRD    CM
Line S00001 Modification History
M01 (Added by) ns2500
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24518  M02S00001.271l716 ---|          ADN    PLDP-DSSL   GET PLD POINTER
24519  M02S00002.271l716 ---|          CRD    CN
24520  M02S00003.271l716 ---|          LDN    0           DISABLE *SPLM*
24521  M02S00004.271l716 ---|          STD    CN
24522  M02S00005.271l716 ---|          STD    CN+1
Line S16834 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24523  M01S16834.271l716 ---|          LDD    CM+4        SET RECOVERY MODE IN CMR
24524  M01S16835.271l716 ---|          SCN    7
24525  M01S16836.271l716 ---|          LMD    RM
24526  M01S16837.271l716 ---|          LMN    4           ADD DEADSTART IN PROGRESS FLAG
24527  M01S16838.271l716 ---|          STD    CM+4
24528  M01S16839.271l716 ---|          LDN    DSSL
24529  M01S16840.271l716 ---|          CWD    CM
Line S00006 Modification History
M01 (Added by) ns2500
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24530  M02S00006.271l716 ---|          ADN    PLDP-DSSL   STORE LIBRARY LOCKED STATUS
24531  M02S00007.271l716 ---|          CWD    CN
Line S16841 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24532  M01S16841.271l716 ---|          RJM    SCS         SET CPU STATUS
24533  M01S16842.271l716 ---|          LDN    JSCL
24534  M01S16843.271l716 ---|          CRD    CN
24535  M01S16844.271l716 ---|          ADN    PRBP-JSCL
24536  M01S16845.271l716 ---|          CRD    CM
24537  M01S16846.271l716 ---|          LDD    CM          INTERLOCK PROBE TABLES
24538  M01S16847.271l716 ---|          LPC    3777
24539  M01S16848.271l716 ---|          STD    CM
24540  M01S16849.271l716 ---|          LDC    4000        SET SCHEDULER ACTIVE
24541  M01S16850.271l716 ---|          STD    CN
24542  M01S16851.271l716 ---|          LDN    JSCL        STORE SCHEDULER INTERLOCK
24543  M01S16852.271l716 ---|          CWD    CN
24544  M01S16853.271l716 ---|          ADN    RDSL-JSCL   CLEAR LABEL CHECK CONTROL
24545  M01S16854.271l716 ---|          CWD    ZR
24546  M01S16855.271l716 ---|          ADN    PRBP-RDSL
24547  M01S16856.271l716 ---|          CWD    CM
24548  M01S16857.271l716 ---|          SBN    PRBP-SCRL
24549  M01S16858.271l716 ---|          CRD    CM
24550  M01S16859.271l716 ---|          LDD    CM          CLEAR EMERGENCY STEP STATUS
24551  M01S16860.271l716 ---|          LPC    -5600
24552  M01S16861.271l716 ---|          LMC    4000        SET *1MB* (ERROR LOGGING) ACTIVE
24553  M01S16862.271l716 ---|          STD    CM
24554  M01S16863.271l716 ---|          LDN    0           CLEAR *1CK* CALLED STATUS
24555  M01S16864.271l716 ---|          STD    CM+2
24556  M01S16865.271l716 ---|          LDN    ZERL
24557  M01S16866.271l716 ---|          CRD    AB
24558  M01S16867.271l716 ---|          ADN    DSDL-ZERL   STORE *DSD* BUFFER INTERLOCK
24559  M01S16868.271l716 ---|          CWD    CN
24560  M01S16869.271l716 ---|          SBN    DSDL-MMFL   PRESERVE MACHINE ID
24561  M01S16870.271l716 ---|          CRD    ID+LD*
24562  M01S16871.271l716 ---|          ADN    INWL-MMFL   STORE SCHEDULER INTERLOCK
24563  M01S16872.271l716 ---|          CWM    .INWL,ON
24564  M01S16873.271l716 ---|          SBN    INWL+1-SCRL
24565  M01S16874.271l716 ---|          CWD    CM
24566  M01S16875.271l716 ---|          LCN    0           INITIALIZE FLAG REGISTER STATUS
24567  M01S16876.271l716 ---|          STD    AB+3
24568  M01S16877.271l716 ---|          LDD    LD
24569  M01S16878.271l716 ---|          LPC    777
24570  M01S16879.271l716 ---|          ZJN    PTR1        IF NOT MMF ENVIRONMENT
24571  M01S16880.271l716 ---|          SFA    EST
24572  M01S16881.271l716 ---|          CRD    CM          READ EST ENTRY FOR LINK DEVICE
24573  M01S16882.271l716 ---|          ADN    EQAE-EQDE
24574  M01S16883.271l716 ---|          CRD    T3
24575  M01S16884.271l716 ---|          LDD    T3+2
24576  M01S16885.271l716 ---|          SHN    -6
24577  M01S16886.271l716 ---|          LPN    3
Line S16887 Modification History
M01 (Removed by) set57
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24578  M02S16887.271l716 ---|          STM    LDSC        SET EMSC FOR LINK DEVICE
Line S00001 Modification History
M01 (Added by) set57
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24579  M02S00001.271l716 ---|          STM    LDSH        SET SHIFT COUNT FOR LINK DEVICE
Line S16888 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24580  M01S16888.271l716 ---|          LDD    CM+4
24581  M01S16889.271l716 ---|          SHN    3
24582  M01S16890.271l716 ---|          ADN    ALGL        FETCH LABEL TRACK FROM MST
24583  M01S16891.271l716 ---|          CRD    CM
24584  M01S16892.271l716 ---|          LDD    CM+1        SET LABEL TRACK
24585  M01S16893.271l716 ---|          STD    AB+4
24586  M01S16894.271l716 ---| PTR1     LDK    EXML        GET EXTENDED MEMORY PARAMETER
24587  M01S16895.271l716 ---|          CRD    CM
24588  M01S16896.271l716 ---|          ADK    MMFL-EXML
24589  M01S16897.271l716 ---|          CWD    ID+LD*
24590  M01S16898.271l716 ---|          ADK    MEFL-MMFL
24591  M01S16899.271l716 ---|          CRD    CN
24592  M01S16900.271l716 ---|          ADK    EFRL-MEFL
24593  M01S16901.271l716 ---|          CWD    AB
24594  M01S16902.271l716 ---|          LDD    CN+3        SET EXTENDED MEMORY PARAMETERS
24595  M01S16903.271l716 ---|          STM    EMFL
24596  M01S16904.271l716 ---|          LDD    CN+2
24597  M01S16905.271l716 ---|          SCN    37
24598  M01S16906.271l716 ---|          SHN    11
24599  M01S16907.271l716 ---|          STM    UESC
24600  M01S16908.271l716 ---|          SHN    2
24601  M01S16909.271l716 ---|          SCN    36
24602  M01S16910.271l716 ---|          STM    EMAF
24603  M01S16911.271l716 ---|          SHN    -20
24604  M01S16912.271l716 ---|          STM    EMSC
24605  M01S16913.271l716 ---|          LDD    CM+4
24606  M01S16914.271l716 ---|          LPC    777
24607  M01S16915.271l716 ---|          STD    EN
24608  M01S16916.271l716 ---|          ZJN    PTR2        IF NO EXTENDED MEMORY EQUIPMENT
24609  M01S16917.271l716 ---|          SFA    EST
24610  M01S16918.271l716 ---|          ADK    EQDE
24611  M01S16919.271l716 ---|          CRD    CM
24612  M01S16920.271l716 ---|          LDD    CM+4
24613  M01S16921.271l716 ---|          SHN    3
24614  M01S16922.271l716 ---|          ADK    DILL
24615  M01S16923.271l716 ---|          CRD    AB
24616  M01S16924.271l716 ---|          LDD    AB+3        SET EXTENDED MEMORY TYPE
24617  M01S16925.271l716 ---|          SHN    -6
24618  M01S16926.271l716 ---|          LPN    7
24619  M01S16927.271l716 ---|          STM    EMTY
24620  M01S16928.271l716 ---| PTR2     LJM    PTRX        RETURN
24621  M00S16929.set     +++| RMC      SPACE  4,15
24622  M00S16930.set     +++|**        RMC - RECOVER MSTS FROM CMR.
24623  M00S16931.set     +++|*
24624  M00S16932.set     +++|*         ENTRY  (EQ) = EST ORDINAL.
24625  M00S16933.set     +++|*                (AB - AB+4) = EST ENTRY.
24626  M00S16934.set     +++|*                (CA - CA+1) = CURRENT CM ADDRESS.
24627  M00S16935.set     +++|*
24628  M00S16936.set     +++|*         EXIT   (CA - CA+1) = CM ADDRESS ADVANCED.
Line S00152 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24629  M01S00152.ns2783  +++|*                TO *DSE* IF MST POINTER ERROR.
24630  M00S16937.set     +++|*
Line S16938 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24631  M01S16938.ns2783  ---|*         USES   T1, T4, AB - AB+4, CM - CM+4, CN - CN+4.
Line S00153 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24632  M01S00153.ns2783  +++|*         USES   T1, AB - AB+4, CA - CA+1, CM - CM+4, CN - CN+4.
24633  M00S16939.set     +++|*
24634  M00S16940.set     +++|*         CALLS  RCA.
24635  M00S16941.set     +++|*
24636  M00S16942.set     +++|*         MACROS SFA.
24637  M00S16943.set     +++|
24638  M00S16944.set     +++|
24639  M00S16945.set     +++| RMC      SUBR               ENTRY/EXIT
24640  M00S16946.set     +++|          LDD    AB+4        SAVE MST POINTER
24641  M00S16947.set     +++|          STD    T1
24642  M00S16948.set     +++|          SHN    3
24643  M00S16949.set     +++|          ADN    ACGL        GET DEVICE ACTIVITY WORD
24644  M00S16950.set     +++|          CRD    CN
24645  M00S16951.set     +++|          ADN    SDGL-ACGL
24646  M00S16952.set     +++|          CRD    AB
24647  M00S16953.set     +++|          ADN    STLL-SDGL   READ DEVICE STATUS WORD
24648  M00S16954.set     +++|          CRD    CM
24649  M00S16955.set     +++|          RJM    RCA         CHECK VALID MST POINTER
24650  M00S16956.set     +++|          LMD    T1
24651  M00S16957.set     +++|          ZJN    RMC1        IF VALID ADDRESS
24652  M00S16958.set     +++|          LDC    =C*MST POINTER ERROR.*
24653  M00S16959.set     +++|          JMP    DSE         DISPLAY MESSAGE AND HANG
24654  M00S16960.set     +++|
Line S16961 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24655  M01S16961.ns2783  ---| RMC1     LDD    CN+4        CLEAR INTERLOCKS
Line S00154 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24656  M01S00154.ns2783  +++| RMC1     LDD    CN+4        CLEAR *ACGL* INTERLOCKS
24657  M00S16962.set     +++|          LPC    140
24658  M00S16963.set     +++|          STD    CN+4
Line S16964 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24659  M01S16964.ns2783  ---|          LDD    AB+4
Line S00155 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24660  M01S00155.ns2783  +++|          LDD    CN          CLEAR PARITY DEVICE ACCESS BIT FOR THIS MF
24661  M01S00156.ns2783  +++|          SCN    **          (MACHINE MASK)
24662  M01S00157.ns2783  +++| RMCA     EQU    *-1
24663  M01S00158.ns2783  +++|          STD    CN
24664  M01S00159.ns2783  +++|          LDD    AB+3        CHECK DEVICE MNEMONIC
24665  M01S00160.ns2783  +++|          LMC    2RDE
24666  M01S00161.ns2783  +++|          ZJN    RMC1.1      IF *DE* DEVICE
24667  M01S00162.ns2783  +++|          LMN    2RDP&2RDE
24668  M01S00163.ns2783  +++|          ZJN    RMC1.1      IF *DP* DEVICE
24669  M01S00164.ns2783  +++|          LDN    0           CLEAR *DAS* OFFLINE UNIT / CYLINDER COUNT
24670  M01S00165.ns2783  +++|          STD    CN+1
24671  M01S00166.ns2783  +++| RMC1.1   LDD    AB+4        CLEAR MST/TRT INTERLOCK IN *SDGL*
24672  M00S16965.set     +++|          SCN    77
24673  M00S16966.set     +++|          STD    AB+4
24674  M00S16967.set     +++|          LDD    CM+1        CLEAR *1MV* ACTIVE FLAG
24675  M00S16968.set     +++|          LPC    -200
24676  M00S16969.set     +++|          STD    CM+1
24677  M00S16970.set     +++|          LDD    CM+4        SET DEVICE NOT BUSY
24678  M00S16971.set     +++|          SCN    3
24679  M00S16972.set     +++|          LMN    1
24680  M00S16973.set     +++|          STD    CM+4
24681  M00S16974.set     +++|          LDD    T1
24682  M00S16975.set     +++|          SHN    3
24683  M00S16976.set     +++|          ADN    ACGL
24684  M00S16977.set     +++|          CWD    CN
24685  M00S16978.set     +++|          ADN    SDGL-ACGL
24686  M00S16979.set     +++|          CWD    AB
24687  M00S16980.set     +++|          ADN    STLL-SDGL
24688  M00S16981.set     +++|          CWD    CM
Line S16982 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24689  M01S16982.ns2783  ---|          SBN    STLL-TDGL   SET LENGTH OF TRT FROM MST
Line S00167 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24690  M01S00167.ns2783  +++|          ADN    BDLL-STLL
24691  M00S16983.set     +++|          CRD    CM
Line S16984 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24692  M01S16984.ns2783  ---|          ADN    DDLL-TDGL
Line S00168 Modification History
M01 (Added by) ns2783
M02 (Removed by) ns2783a
Seq #  *Modification Id* Act 
----------------------------+
24693  M02S00168.ns2783a ---|          ADK    DULL-BDLL
24694  M02S00169.ns2783a ---|          CRD    CN
24695  M02S00170.ns2783a ---|          LDN    0           CLEAR UNIT RESERVE COUNTS IN *DULL*
24696  M02S00171.ns2783a ---|          STD    CN
Line S00172 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24697  M01S00172.ns2783  +++|          LDD    CM          CLEAR 9853/*DAS* FLAGS
24698  M01S00173.ns2783  +++|          SCN    16
24699  M01S00174.ns2783  +++|          STD    CM
24700  M01S00175.ns2783  +++|          LDD    CM+3        CLEAR DAS MMF PARITY DEVICE ACCESS FLAGS
24701  M01S00176.ns2783  +++|          LPC    7177
24702  M01S00177.ns2783  +++|          STD    CM+3
24703  M01S00178.ns2783  +++|          LDD    T1
24704  M01S00179.ns2783  +++|          SHN    3
24705  M01S00180.ns2783  +++|          ADN    BDLL
24706  M01S00181.ns2783  +++|          CWD    CM
Line S00182 Modification History
M01 (Added by) ns2783
M02 (Removed by) ns2783a
Seq #  *Modification Id* Act 
----------------------------+
24707  M02S00182.ns2783a ---|          ADK    DULL-BDLL
24708  M02S00183.ns2783a ---|          CWD    CN
24709  M02S00184.ns2783a ---|          ADK    DALL-DULL
Line S00001 Modification History
M01 (Added by) ns2783a
Seq #  *Modification Id* Act 
----------------------------+
24710  M01S00001.ns2783a +++|          ADK    DALL-BDLL
Line S00185 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24711  M01S00185.ns2783  +++|          CRD    CN
24712  M01S00186.ns2783  +++|          ADN    CTLL-DALL
24713  M00S16985.set     +++|          CRD    AB
Line S16986 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24714  M01S16986.ns2783  ---|          SBN    DDLL-DULL
24715  M01S16987.ns2783  ---|          CRD    CN
24716  M01S16988.ns2783  ---|          LDN    0           CLEAR UNIT RESERVE COUNTS
24717  M01S16989.ns2783  ---|          STD    CN
24718  M01S16990.ns2783  ---|          LDD    AB
Line S16991 Modification History
M01 (Removed by) 272l774
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24719  M02S16991.ns2783  ---|          LPC    2077
Line S00073 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24720  M02S00073.ns2783  ---|          LPC    2777
Line S16992 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24721  M01S16992.ns2783  ---|          STD    AB
24722  M01S16993.ns2783  ---|          LDD    T1
24723  M01S16994.ns2783  ---|          SHN    3
24724  M01S16995.ns2783  ---|          ADN    DDLL
24725  M01S16996.ns2783  ---|          CWD    AB
24726  M01S16997.ns2783  ---|          SBN    DDLL-DULL
24727  M01S16998.ns2783  ---|          CWD    CN
24728  M01S16999.ns2783  ---|          SBN    DULL-DALL
24729  M01S17000.ns2783  ---|          CRD    CN
24730  M01S17001.ns2783  ---|          ADK    MCLL-DALL
Line S00187 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24731  M01S00187.ns2783  +++|          ADK    MCLL-CTLL
Line S17002 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
24732  M01S17002.ns2552  ---|          CRD    AB
24733  M01S17003.ns2552  ---|          LDN    0
Line S00084 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
24734  M02S00084.ns2552  ---|          STD    AB
24735  M02S00085.ns2552  ---|          STD    AB+1
Line S17004 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
24736  M01S17004.ns2552  ---|          STD    CN+1
24737  M01S17005.ns2552  ---|          STD    AB+3
24738  M01S17006.ns2552  ---|          STD    AB+4
Line S00001 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
24739  M01S00001.ns2552  +++|          CWD    ZR
24740  M01S00002.ns2552  +++|          LDN    0
Line S00003 Modification History
M01 (Added by) ns2552
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24741  M02S00003.ns2783  ---|          STD    CN+1
Line S00188 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24742  M01S00188.ns2783  +++|          STD    AB+2        CLEAR ACTIVE BUFFER COUNT
24743  M01S00189.ns2783  +++|          STD    CN+1        CLEAR UNIT INTERLOCKS
24744  M00S17007.set     +++|          LDD    CN          CLEAR DEVICE ACTIVITY
24745  M00S17008.set     +++|          SCN    77
24746  M00S17009.set     +++|          STD    CN
24747  M00S17010.set     +++|          LDD    T1
24748  M00S17011.set     +++|          SHN    3
24749  M00S17012.set     +++|          ADN    DALL
24750  M00S17013.set     +++|          CWD    CN
Line S00190 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
24751  M01S00190.ns2783  +++|          ADN    CTLL-DALL
24752  M01S00191.ns2783  +++|          CWD    AB
Line S17014 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
24753  M01S17014.ns2552  ---|          ADK    MCLL-DALL
24754  M01S17015.ns2552  ---|          CWD    AB
24755  M00S17016.set     +++|          LDD    EQ
24756  M00S17017.set     +++|          NJN    RMC2        IF NOT *RD* DEVICE
24757  M00S17018.set     +++|          SFA    EST,,EQ
24758  M00S17019.set     +++|          CRD    CM
24759  M00S17020.set     +++|          LDC    2RRD        RESTORE *RD* DEVICE TYPE
24760  M00S17021.set     +++|          STD    CM+3
24761  M00S17022.set     +++|          LDN    0
24762  M00S17023.set     +++|          STD    CM+2
24763  M00S17024.set     +++|          SFA    EST,EQ
24764  M00S17025.set     +++|          CWD    CM
24765  M00S17026.set     +++| RMC2     LDN    MSTXL       ADVANCE CM ADDRESS
24766  M00S17027.set     +++|          RAD    CA+1
24767  M00S17028.set     +++|          SHN    -14
24768  M00S17029.set     +++|          RAD    CA
24769  M00S17030.set     +++|          LJM    RMCX        RETURN
24770  M00S17031.set     +++| SBD      SPACE  4,10
24771  M00S17032.set     +++|**        SBD - SEARCH FOR BUFFERED DEVICES.
24772  M00S17033.set     +++|*
24773  M00S17034.set     +++|*         EXIT   (KI) = BUFFERED DEVICE COUNT.
24774  M00S17035.set     +++|*
24775  M00S17036.set     +++|*         USES   EQ, CM - CM+4.
24776  M00S17037.set     +++|*
24777  M00S17038.set     +++|*         CALLS  CKB, PBD, SME.
24778  M00S17039.set     +++|
24779  M00S17040.set     +++|
24780  M00S17041.set     +++| SBD1     LDD    AB+4        READ MST
24781  M00S17042.set     +++|          SHN    3
24782  M00S17043.set     +++|          ADN    DILL
24783  M00S17044.set     +++|          CRD    CM
24784  M00S17045.set     +++|          LDD    CM+2
24785  M00S17046.set     +++|          ZJN    SBD2        IF NOT BUFFERED DEVICE
24786  M00S17047.set     +++|          RJM    PBD
24787  M00S17048.set     +++| SBD2     RJM    SME
24788  M00S17049.set     +++|          NJN    SBD1        IF NOT END OF EST
24789  M00S17050.set     +++|
24790  M00S17051.set     +++| SBD      SUBR               ENTRY/EXIT
24791  M00S17052.set     +++|          LDN    0
24792  M00S17053.set     +++|          STD    EQ
24793  M00S17054.set     +++|          RJM    CKB         CLEAR CHANNEL ACCUMULATOR
24794  M00S17055.set     +++|          UJN    SBD2        ENTER LOOP
24795  M00S17056.set     +++|          TITLE  LEVEL 3 OPTION PROCESSING.
24796  M00S17057.set     +++|          SPACE  4,10
24797  M00S17058.set     +++|*         LEVEL 3 DEADSTART SYNTAX TABLE.
24798  M00S17059.set     +++|
24799  M00S17060.set     +++|
24800  M00S17061.set     +++| TSYN     BSS    0
24801  M00S17062.set     +++|          CON    ABT
24802  M00S17063.set     +++|          CON    AUT
24803  M00S17064.set     +++|          CON    DAU
24804  M00S17065.set     +++|          CON    GRN
24805  M00S17066.set     +++|          CON    RGO
24806  M00S17067.set     +++|          CON    UPC
24807  M00S17068.set     +++|          CON    0           END OF TABLE
24808  M00S17069.set     +++| ABT      SPACE  4,10
24809  M00S17070.set     +++|***       ABORT.
24810  M00S17071.set     +++|*         ABORT,B.
24811  M00S17072.set     +++|*         ABORTS LEVEL 3 RECOVERY.  CHECKPOINTS ALL DEVICES UNLESS
24812  M00S17073.set     +++|*         *B* IS SPECIFIED IN WHICH CASE ONLY NON-BUFFERED DEVICES
24813  M00S17074.set     +++|*         ARE CHECKPOINTED.
24814  M00S17075.set     +++|
24815  M00S17076.set     +++|
24816  M00S17077.set     +++| ABT      DATA   C*ABORT*
24817  M00S17078.set     +++|          LDM    DSTO        SAVE CURRENT ABORT OPTION
24818  M00S17079.set     +++|          LPN    14
24819  M00S17080.set     +++|          STD    T1
24820  M00S17081.set     +++|          LDI    KA
24821  M00S17082.set     +++|          LMN    1R.
24822  M00S17083.set     +++|          ZJN    ABT3        IF *.*
24823  M00S17084.set     +++|          LMN    1R,&1R.
24824  M00S17085.set     +++|          NJN    ABT1        IF NOT *,*
24825  M00S17086.set     +++|          AOD    KA
24826  M00S17087.set     +++|          LDI    KA
24827  M00S17088.set     +++|          LMN    1RB
24828  M00S17089.set     +++|          ZJN    ABT2        IF *B*
24829  M00S17090.set     +++| ABT1     JMP    ILL         PROCESS INCORRECT ENTRY
24830  M00S17091.set     +++|
24831  M00S17092.set     +++| ABT2     LDN    14
24832  M00S17093.set     +++| ABT3     LMN    4
24833  M00S17094.set     +++|          STD    T0
24834  M00S17095.set     +++|          SBD    T1
24835  M00S17096.set     +++|          NJN    ABT4        IF NOT SAME ABORT OPTION
24836  M00S17097.set     +++|          STD    T0
24837  M00S17098.set     +++| ABT4     LDM    DSTO        SET ABORT OPTION
24838  M00S17099.set     +++|          SCN    14
24839  M00S17100.set     +++|          LMD    T0
24840  M00S17101.set     +++|          STM    DSTO
24841  M00S17102.set     +++|          LPN    4           UPDATE *ABORT.* OPTION LINE
24842  M00S17103.set     +++|          SHN    21-2
24843  M00S17104.set     +++|          ADC    OBUFA
24844  M00S17105.set     +++|          RJM    UDS
24845  M00S17106.set     +++|          LDD    T0          UPDATE *ABORT,B.* OPTION LINE
24846  M00S17107.set     +++|          LPN    10
24847  M00S17108.set     +++|          SHN    21-3
24848  M00S17109.set     +++|          ADC    OBUFB
24849  M00S17110.set     +++| ABT5     RJM    UDS         UPDATE DISPLAY STATUS
24850  M00S17111.set     +++|          JMP    KBR         RETURN
24851  M00S17112.set     +++| AUT      SPACE  4,10
24852  M00S17113.set     +++|***       AUTOLOAD.
24853  M00S17114.set     +++|*         TOGGLE SELECTION OF AUTOLOADING OF MASS STORAGE CONTROLLERS.
24854  M00S17115.set     +++|*         INITIALLY AUTOLOADING IS SELECTED.
24855  M00S17116.set     +++|
24856  M00S17117.set     +++|
24857  M00S17118.set     +++| AUT      DATA   C*AUTOLOAD.*
24858  M00S17119.set     +++|          LDN    2           TOGGLE AUTOLOAD OPTION BIT
24859  M00S17120.set     +++|          LMM    DSTO
24860  M00S17121.set     +++|          STM    DSTO
24861  M00S17122.set     +++|          LPN    2
24862  M00S17123.set     +++|          LMN    2
24863  M00S17124.set     +++|          SHN    21-1
24864  M00S17125.set     +++|          ADC    OBUFC
24865  M00S17126.set     +++|          JMP    ABT5        UPDATE DISPLAY STATUS
24866  M00S17127.set     +++| DAU      SPACE  4,10
24867  M00S17128.set     +++|***       AUTO.
24868  M00S17129.set     +++|*         TOGGLE THE *DSD* *AUTO* COMMAND SELECTION.
24869  M00S17130.set     +++|*         INITIALLY *AUTO* IS SELECTED.
24870  M00S17131.set     +++|
24871  M00S17132.set     +++|
24872  M00S17133.set     +++| DAU      DATA   C*AUTO.*
24873  M00S17134.set     +++|          AOM    DAUA        TOGGLE THE SELECT
24874  M00S17135.set     +++|          LPN    1
24875  M00S17136.set     +++|          SHN    21-0
24876  M00S17137.set     +++|          ADC    OBUFE
24877  M00S17138.set     +++|          JMP    ABT5        UPDATE DISPLAY STATUS
24878  M00S17139.set     +++|
24879  M00S17140.set     +++| DAUA     CON    1           DEFAULT STATUS IS *YES*
24880  M00S17141.set     +++| GRN      SPACE  4,10
24881  M00S17142.set     +++|***       GRENADE.
24882  M00S17143.set     +++|*         TOGGLE SELECTION OF THE GRENADE OPERATION FOR MASS STORAGE
24883  M00S17144.set     +++|*         CONTROLLERS THAT ARE AUTOLOADED.  INITIALLY THE GRENADE
24884  M00S17145.set     +++|*         OPERATION IS NOT SELECTED.
24885  M00S17146.set     +++|*
24886  M00S17147.set     +++|*         THE GRENADE OPERATION CAN INTERRUPT ACTIVITY ON A DRIVE
24887  M00S17148.set     +++|*         WHICH IS BEING ACCESSED FROM ANOTHER CONTROLLER.
24888  M00S17149.set     +++|
24889  M00S17150.set     +++|
24890  M00S17151.set     +++| GRN      DATA   C*GRENADE.*
24891  M00S17152.set     +++|          LDN    1           TOGGLE GRENADE OPTION BIT
24892  M00S17153.set     +++|          LMM    DSTO
24893  M00S17154.set     +++|          STM    DSTO
24894  M00S17155.set     +++|          LPN    1
24895  M00S17156.set     +++|          SHN    21-0
24896  M00S17157.set     +++|          ADC    OBUFD
24897  M00S17158.set     +++|          JMP    ABT5        UPDATE DISPLAY STATUS
24898  M00S17159.set     +++| RGO      SPACE  4,10
24899  M00S17160.set     +++|***       GO.
24900  M00S17161.set     +++|*         CONTINUE WITH RECOVERY.
24901  M00S17162.set     +++|
24902  M00S17163.set     +++|
24903  M00S17164.set     +++| RGO      DATA   C*GO.*
24904  M00S17165.set     +++| RGO1     LDN    0           GET CHANNEL WORD
24905  M00S17166.set     +++|          RJM    GCW
24906  M00S17167.set     +++|          LDI    T1
24907  M00S17168.set     +++|          LPN    40
24908  M00S17169.set     +++|          ZJN    RGO2        IF CHANNEL UP
24909  M00S17170.set     +++|          LDN    0           SET DISPLAY REQUESTED
24910  M00S17171.set     +++|          STD    DS
24911  M00S17172.set     +++|          LDC    OBUFLA      DISPLAY THE CHANNEL DOWN STATUS
24912  M00S17173.set     +++|          STM    DRBA
24913  M00S17174.set     +++|          LJM    DRO1        UPDATE DISPLAY
24914  M00S17175.set     +++|
24915  M00S17176.set     +++| RGO2     LDM    DAUA        CHECK *AUTO* SELECT
24916  M00S17177.set     +++|          LPN    1
24917  M00S17178.set     +++|          ZJN    RGO3        IF *AUTO* NOT SELECTED
24918  M00S17179.set     +++|          LDK    PPCP        LOCATE *DSD* PP COMMUNICATION AREA
24919  M00S17180.set     +++|          CRD    CM
24920  M00S17181.set     +++|          LDD    CM+4
24921  M00S17182.set     +++|          ADN    10+2
24922  M00S17183.set     +++|          CWM    DAU,ON
24923  M00S17184.set     +++| RGO3     LJM    DROX        RETURN
24924  M00S17185.set     +++| UPC      SPACE  4,10
24925  M00S17186.set     +++|***       UPCHAN.
24926  M00S17187.set     +++|*         CLEAR THE DOWN STATUS OF THE DEADSTART CHANNEL.
24927  M00S17188.set     +++|
24928  M00S17189.set     +++|
24929  M00S17190.set     +++| UPC      DATA   C*UPCHAN.*
24930  M00S17191.set     +++|          LDC    OBUFL       RESET THE DISPLAY
24931  M00S17192.set     +++|          STM    DRBA
24932  M00S17193.set     +++|          LDN    0           GET CHANNEL WORD
24933  M00S17194.set     +++|          RJM    GCW
24934  M00S17195.set     +++|          LDI    T1          CLEAR THE DOWN STATUS
24935  M00S17196.set     +++|          SCN    40
24936  M00S17197.set     +++|          STI    T1
24937  M00S17198.set     +++|          LDD    T2          STORE THE CHANNEL WORD
24938  M00S17199.set     +++|          SHN    14
24939  M00S17200.set     +++|          LMD    T3
24940  M00S17201.set     +++|          CWD    CM
24941  M00S17202.set     +++|          LDN    CTALL       ACCESS THE EJT ASSIGNMENT TABLE
24942  M00S17203.set     +++|          RJM    GCW
24943  M00S17204.set     +++|          LDN    0           CLEAR POSSIBLE EJT ASSIGNMENT
24944  M00S17205.set     +++|          STI    T1
24945  M00S17206.set     +++|          LDD    T2          RESTORE THE WORD
24946  M00S17207.set     +++|          SHN    14
24947  M00S17208.set     +++|          LMD    T3
24948  M00S17209.set     +++|          CWD    CM
24949  M00S17210.set     +++|          LDK    ESTP
24950  M00S17211.set     +++|          CRD    AB
24951  M00S17212.set     +++| UPC1     SOD    AB+2
24952  M00S17213.set     +++|          ZJP    RGO2        IF END OF EST
24953  M00S17214.set     +++|          SFA    EST
24954  M00S17215.set     +++|          ADK    EQDE
24955  M00S17216.set     +++|          CRD    CM
24956  M00S17217.set     +++|          LDN    CM          INITIALIZE CHANNEL INDEX
24957  M00S17218.set     +++|          STD    T1
24958  M00S17219.set     +++| UPC2     AOD    T1          ADVANCE CHANNEL BYTE INDEX
24959  M00S17220.set     +++|          LMN    CM+3
24960  M00S17221.set     +++|          ZJN    UPC1        IF NO MORE CHANNELS
24961  M00S17222.set     +++|          LDI    T1
24962  M00S17223.set     +++|          ZJN    UPC1        IF NULL CHANNEL
24963  M00S17224.set     +++|          LMD    DH
24964  M00S17225.set     +++|          LPN    77
24965  M00S17226.set     +++|          NJN    UPC2        IF NOT DEADSTART CHANNEL
24966  M00S17227.set     +++|          LDI    T1          CLEAR DOWN STATUS
24967  M00S17228.set     +++|          LPC    4777
24968  M00S17229.set     +++|          STI    T1
24969  M00S17230.set     +++|          SFA    EST,AB+2    UPDATE EST ENTRY
24970  M00S17231.set     +++|          ADK    EQDE
24971  M00S17232.set     +++|          CWD    CM
24972  M00S17233.set     +++|          UJN    UPC1        LOOP ON SEARCH
24973  M00S17234.set     +++| DRO      SPACE  4,10
24974  M00S17235.set     +++|**        DRO - DISPLAY RECOVERY OPTIONS.
24975  M00S17236.set     +++|*
24976  M00S17237.set     +++|*         USES   DP.
24977  M00S17238.set     +++|*
24978  M00S17239.set     +++|*         CALLS  AKL, CKB.
24979  M00S17240.set     +++|*
24980  M00S17241.set     +++|*         MACROS CFNC, DFIM.
24981  M00S17242.set     +++|*
24982  M00S17243.set     +++|*         NOTES  EXIT FROM *DRO* IS THRU KEYBOARD ASSEMBLY ON
24983  M00S17244.set     +++|*                A *GO.* COMMAND.
24984  M00S17245.set     +++|
24985  M00S17246.set     +++|
24986  M00S17247.set     +++|          DFIM   (CON SDCF),*+1
24987  M00S17248.set     +++| DROX     LDC    DDCF        DESELECT DISPLAY CONTROLLER
24988  M00S17249.set     +++|          CFNC
24989  M00S17250.set     +++|          LDD    TH          DELAY
24990  M00S17251.set     +++|          SBN    1
24991  M00S17252.set     +++|          NJN    *-1
24992  M00S17253.set     +++|          DCN.   CH
24993  M00S17254.set     +++|
24994  M00S17255.set     +++|          LJM    *           ENTRY/EXIT
24995  M00S17256.set     +++| DRO      EQU    *-1
24996  M00S17257.set     +++|          LDC    DRB
24997  M00S17258.set     +++|          STM    AKLB
24998  M00S17259.set     +++|          LDC    **          SET *IBF* IMMEDIATE RETURN
24999  M00S17260.set     +++|          ORG    *-1
25000  M00S17261.set     +++|          LOC    IBFA
25001  M00S17262.set     +++|          UJN    IBFX        RETURN
25002  M00S17263.set     +++|          LOC    *O
25003  M00S17264.set     +++|          STM    IBFA
25004  M00S17265.set     +++|          LDN    DP
25005  M00S17266.set     +++|          STD    LA
25006  M00S17267.set     +++|          LDC    TSYN-1      SET SYNTAX TABLE ADDRESS
25007  M00S17268.set     +++|          STI    LA
25008  M00S17269.set     +++|          LDN    1           SET KEYBOARD ASSEMBLY
25009  M00S17270.set     +++|          STD    AM
25010  M00S17271.set     +++|          LDD    DS
25011  M00S17272.set     +++|          NJP    RGO1        IF NO DISPLAY REQUESTED
25012  M00S17273.set     +++| DRO1     AOM    AKLA
25013  M00S17274.set     +++| DRO2     RJM    AKL         ASSEMBLE KEYBOARD LINE
25014  M00S17275.set     +++|          LDD    KI
25015  M00S17276.set     +++|          ZJN    DRO2        IF NO INPUT
25016  M00S17277.set     +++|          RJM    CKB
25017  M00S17278.set     +++|          UJN    DRO1        GET NEXT LINE
25018  M00S17279.set     +++| DRB      SPACE  4,10
25019  M00S17280.set     +++|**        DRB - DISPLAY LEVEL 3 RECOVERY BUFFERS.
25020  M00S17281.set     +++|*
25021  M00S17282.set     +++|*         MACROS CFNC.
25022  M00S17283.set     +++|
25023  M00S17284.set     +++|
25024  M00S17285.set     +++| DRB      SUBR               ENTRY/EXIT
25025  M00S17286.set     +++|          CFNC   SLMF        SELECT LEFT SCREEN - MEDIUM CHARACTERS
25026  M00S17287.set     +++|          LDC    OBUFL       DISPLAY OPTIONS
25027  M00S17288.set     +++|*         LDC    OBUFLA      (DEADSTART CHANNEL DOWN)
25028  M00S17289.set     +++| DRBA     EQU    *-1
25029  M00S17290.set     +++|          OAM    OBUF,CH
25030  M00S17291.set     +++|          FJM.   *,CH        WAIT TRANSMISSION COMPLETE
25031  M00S17292.set     +++|          DCN.   CH
25032  M00S17293.set     +++|          CFNC   SRSF        SELECT RIGHT SCREEN - SMALL CHARACTERS
25033  M00S17294.set     +++|          LDC    IBUFL       DISPLAY INSTRUCTIONS
25034  M00S17295.set     +++|          OAM    IBUF,CH
25035  M00S17296.set     +++|          STM    AKLA
25036  M00S17297.set     +++|          CFNC   THCF        TRANSFER HIDDEN AND CLEAR
25037  M00S17298.set     +++|          DCN.   CH
25038  M00S17299.set     +++|          UJP    DRBX        RETURN
25039  M00S17300.set     +++| GCW      SPACE  4,10
25040  M00S17301.set     +++|**        GCW - GET CHANNEL CONTROL WORD.
25041  M00S17302.set     +++|*
25042  M00S17303.set     +++|*         ENTRY  (A) = CHANNEL TABLE OFFSET.
25043  M00S17304.set     +++|*
25044  M00S17305.set     +++|*         EXIT   (T1) = BYTE ADDRESS.
25045  M00S17306.set     +++|*                (T2 - T3) = CM WORD ADDRESS.
25046  M00S17307.set     +++|*                (CM - CM+4) = CHANNEL TABLE WORD.
25047  M00S17308.set     +++|*
25048  M00S17309.set     +++|*         USES   CM - CM+4, T1 - T3.
25049  M00S17310.set     +++|
25050  M00S17311.set     +++|
25051  M00S17312.set     +++| GCW      SUBR               ENTRY/EXIT
25052  M00S17313.set     +++|          STD    T3          SAVE TABLE OFFSET
25053  M00S17314.set     +++|          LDD    DH          DEADSTART CHANNEL
25054  M00S17315.set     +++|          STD    T1
25055  M00S17316.set     +++| GCW1     AOD    T3          INCREMENT WORD INDEX
25056  M00S17317.set     +++|          LCN    5           DIVIDE BY 5 LOOP
25057  M00S17318.set     +++|          RAD    T1
25058  M00S17319.set     +++|          PJN    GCW1        IF NOT END OF DIVIDE
25059  M00S17320.set     +++|          ADN    5+CM
25060  M00S17321.set     +++|          STD    T1
25061  M00S17322.set     +++|          LDK    CHTP        FORM ADDRESS
25062  M00S17323.set     +++|          CRD    CM
25063  M00S17324.set     +++|          LDD    CM+2
25064  M00S17325.set     +++|          SHN    14
25065  M00S17326.set     +++|          LMD    CM+3
25066  M00S17327.set     +++|          SBN    1
25067  M00S17328.set     +++|          ADD    T3          ADD WORD INDEX
25068  M00S17329.set     +++|          CRD    CM
25069  M00S17330.set     +++|          STD    T3
25070  M00S17331.set     +++|          SHN    -14
25071  M00S17332.set     +++|          STD    T2
25072  M00S17333.set     +++|          UJN    GCWX        RETURN
25073  M00S17334.set     +++| UDS      SPACE  4,10
25074  M00S17335.set     +++|**        UDS - UPDATE DISPLAY STATUS.
25075  M00S17336.set     +++|*
25076  M00S17337.set     +++|*         *UDS* UPDATES THE SELECTION STATUS (YES OR NO) OF A
25077  M00S17338.set     +++|*         COMMAND IN THE OPTION DISPLAY BUFFER.
25078  M00S17339.set     +++|*
25079  M00S17340.set     +++|*         ENTRY  (A) = 1/ST, 5/0, 12/BUF.
25080  M00S17341.set     +++|*                      ST = SELECTION STATUS (0=NO, 1=YES).
25081  M00S17342.set     +++|*                      BUF = DISPLAY BUFFER ADDRESS.
25082  M00S17343.set     +++|*
25083  M00S17344.set     +++|*         USES   T1, T2.
25084  M00S17345.set     +++|
25085  M00S17346.set     +++|
25086  M00S17347.set     +++| UDS      SUBR               ENTRY/EXIT
25087  M00S17348.set     +++|          STD    T1          SAVE DISPLAY BUFFER ADDRESS
25088  M00S17349.set     +++|          SHN    1-21        SELECTION STATUS * 2
25089  M00S17350.set     +++|          ADC    UDSA
25090  M00S17351.set     +++|          STD    T2
25091  M00S17352.set     +++|          LDI    T2          UPDATE DISPLAY
25092  M00S17353.set     +++|          STI    T1
25093  M00S17354.set     +++|          LDM    1,T2
25094  M00S17355.set     +++|          STM    1,T1
25095  M00S17356.set     +++|          UJN    UDSX        RETURN
25096  M00S17357.set     +++|
25097  M00S17358.set     +++| UDSA     DATA   H*  NO*
25098  M00S17359.set     +++|          DATA   H* YES*
25099  M00S17360.set     +++|          SPACE  4,10
25100  M00S17361.set     +++|*         LEVEL 3 OPTION BUFFER (LEFT SCREEN).
25101  M00S17362.set     +++|
25102  M00S17363.set     +++| OBUF     BSS    0
25103  M00S17364.set     +++|          DFIM   (CON YCPH)
25104  M00S17365.set     +++|          CON    LN03,CH17
25105  M00S17366.set     +++|          DATA   H*LEVEL 3 OPTIONS*
25106  M00S17367.set     +++|          DFIM   (CON LN07)
25107  M00S17368.set     +++|          CON    LN13,CH09
25108  M00S17369.set     +++|          DATA   H*ABORT.*
25109  M00S17370.set     +++|          CON    CH49
25110  M00S17371.set     +++| OBUFA    DATA   H*  NO*
25111  M00S17372.set     +++|          DFIM   (CON LN11)
25112  M00S17373.set     +++|          CON    LN19,CH09
25113  M00S17374.set     +++|          DATA   H*ABORT,B.*
25114  M00S17375.set     +++|          CON    CH49
25115  M00S17376.set     +++| OBUFB    DATA   H*  NO*
25116  M00S17377.set     +++|          DFIM   (CON LN15)
25117  M00S17378.set     +++|          CON    LN25,CH09
25118  M00S17379.set     +++|          DATA   H*AUTOLOAD.*
25119  M00S17380.set     +++|          CON    CH49
25120  M00S17381.set     +++| OBUFC    DATA   H* YES*
25121  M00S17382.set     +++|          DFIM   (CON LN19)
25122  M00S17383.set     +++|          CON    LN31,CH09
25123  M00S17384.set     +++|          DATA   H*GRENADE.*
25124  M00S17385.set     +++|          CON    CH49
25125  M00S17386.set     +++| OBUFD    DATA   H*  NO*
25126  M00S17387.set     +++|          DFIM   (CON LN23)
25127  M00S17388.set     +++|          CON    LN37,CH09
25128  M00S17389.set     +++|          DATA   H*AUTO.*
25129  M00S17390.set     +++|          CON    CH49
25130  M00S17391.set     +++| OBUFE    DATA   H* YES*
25131  M00S17392.set     +++| OBUFL    EQU    *-OBUF
Line S17393 Modification History
M01 (Removed by) set71
Seq #  *Modification Id* Act 
----------------------------+
25132  M01S17393.set71   ---|          DFIM   (CON LN27)
Line S00001 Modification History
M01 (Added by) set71
Seq #  *Modification Id* Act 
----------------------------+
25133  M01S00001.set71   +++|          DFIM   (CON LN26)
25134  M00S17394.set     +++|          CON    LN43,CH09
25135  M00S17395.set     +++|          DATA   H*DEADSTART CHANNEL IS DOWN,*
Line S17396 Modification History
M01 (Removed by) set71
Seq #  *Modification Id* Act 
----------------------------+
25136  M01S17396.set71   ---|          DFIM   (CON LN28)
Line S00002 Modification History
M01 (Added by) set71
Seq #  *Modification Id* Act 
----------------------------+
25137  M01S00002.set71   +++|          DFIM   (CON LN27)
25138  M00S17397.set     +++|          CON    LN45,CH09
25139  M00S17398.set     +++|          DATA   H$ENTER *UPCHAN.* TO CONTINUE.$
25140  M00S17399.set     +++| OBUFLA   EQU    *-OBUF
25141  M00S17400.set     +++|
25142  M00S17401.set     +++|*         LEVEL 3 INSTRUCTION BUFFER (RIGHT SCREEN).
25143  M00S17402.set     +++|
25144  M00S17403.set     +++| IBUF     BSS    0
25145  M00S17404.set     +++|          CON    YCPH,CH03
25146  M00S17405.set     +++|          DATA   H*INSTRUCTIONS FOR SELECTING LEVEL 3 RECOVERY OPTIONS.*
25147  M00S17406.set     +++|          CON    HL03,CH07
25148  M00S17407.set     +++|          DATA   H*ENTER COMMAND TO TOGGLE SELECTION.*
25149  M00S17408.set     +++|          CON    HL04,CH07
25150  M00S17409.set     +++|          DATA   H*ENTER GO. TO CONTINUE RECOVERY.*
25151  M00S17410.set     +++|
25152  M00S17411.set     +++|          CON    LN07,CH03
25153  M00S17412.set     +++|          DATA   H*ABORT.*
25154  M00S17413.set     +++|          CON    LN08,CH07
25155  M00S17414.set     +++|          DATA   H*CHECKPOINT ALL DEVICES AND ABORT LEVEL 3 RECOVERY.*
25156  M00S17415.set     +++|          CON    LN09,CH07
25157  M00S17416.set     +++|          DATA   H+SELECTING *ABORT.* DESELECTS *ABORT,B.*.+
25158  M00S17417.set     +++|
25159  M00S17418.set     +++|          CON    LN11,CH03
25160  M00S17419.set     +++|          DATA   H*ABORT,B.*
25161  M00S17420.set     +++|          CON    LN12,CH07
25162  M00S17421.set     +++|          DATA   H*CHECKPOINT ALL NON-BUFFERED DEVICES AND ABORT LEVEL*
25163  M00S17422.set     +++|          CON    LN13,CH07
25164  M00S17423.set     +++|          DATA   H+3 RECOVERY.  SELECTING *ABORT,B.* DESELECTS *ABORT.*+
25165  M00S17424.set     +++|
25166  M00S17425.set     +++|          CON    LN15,CH03
25167  M00S17426.set     +++|          DATA   H*AUTOLOAD.*
25168  M00S17427.set     +++|          CON    LN16,CH07
25169  M00S17428.set     +++|          DATA   H*TOGGLE THE SELECTION OF BUFFER CONTROLLER AUTOLOADING
25170  M00S17429.set     +++|,.*
25171  M00S17430.set     +++|
25172  M00S17431.set     +++|          CON    LN18,CH03
25173  M00S17432.set     +++|          DATA   H*GRENADE.*
25174  M00S17433.set     +++|          CON    LN19,CH07
25175  M00S17434.set     +++|          DATA   H*TOGGLE THE SELECTION OF THE GRENADE FUNCTION.  THE*
25176  M00S17435.set     +++|          CON    LN20,CH07
25177  M00S17436.set     +++|          DATA   H*GRENADE FUNCTION IS ISSUED ONCE THE CONTROLWARE IS*
25178  M00S17437.set     +++|          CON    LN21,CH07
25179  M00S17438.set     +++|          DATA   H*LOADED, CAUSING UNIT RESERVATIONS TO BE CLEARED ON*
25180  M00S17439.set     +++|          CON    LN22,CH07
25181  M00S17440.set     +++|          DATA   H*ALL 844 UNITS PHYSICALLY CONNECTED TO EACH CONTROLLER
25182  M00S17441.set     +++|,.*
25183  M00S17442.set     +++|
25184  M00S17443.set     +++|          CON    LN24,CH03
25185  M00S17444.set     +++|          DATA   H*AUTO.*
25186  M00S17445.set     +++|          CON    LN25,CH07
25187  M00S17446.set     +++|          DATA   H*TOGGLE THE SELECTION OF THE DSD AUTO COMMAND.*
25188  M00S17447.set     +++| IBUFL    EQU    *-IBUF
25189  M00S17448.set     +++|          SPACE  4,10
25190  M00S17449.set     +++|          USE    LITERALS    DUMP LITERALS BLOCK
Line S17450 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25191  M01S17450.271l716 ---|          TITLE  PRESET SUBROUTINES.
25192  M01S17451.271l716 ---| CFC      SPACE  4,10
25193  M01S17452.271l716 ---|**        CFC - CHECK FL CONTROL WORDS.
25194  M01S17453.271l716 ---|*
25195  M01S17454.271l716 ---|*         ENTRY  (T6) = CONTROL POINT AREA ADDRESS OF *FLSW* WORDS.
25196  M01S17455.271l716 ---|*                (AB - AB+4) = FL CONTROL WORD.
25197  M01S17456.271l716 ---|*                (CN - CN+4) = FL CONTROL WORD.
25198  M01S17457.271l716 ---|
25199  M01S17458.271l716 ---|
25200  M01S17459.271l716 ---| CFC      SUBR               ENTRY/EXIT
25201  M01S17460.271l716 ---|          LDD    AB
25202  M01S17461.271l716 ---|          NJN    CFCX        IF NFL ASSIGNED
25203  M01S17462.271l716 ---|          LDD    AB+4
25204  M01S17463.271l716 ---|          ZJN    CFCX        IF NO FL
25205  M01S17464.271l716 ---|          SBD    AB+1
25206  M01S17465.271l716 ---|          STD    AB+4        ADJUST FL
25207  M01S17466.271l716 ---|          STD    CN+4
25208  M01S17467.271l716 ---|          LDD    AB+1        RESET NFL
25209  M01S17468.271l716 ---|          STD    AB
25210  M01S17469.271l716 ---|          RAD    AB+3        ADJUST RA
25211  M01S17470.271l716 ---|          SHN    -14
25212  M01S17471.271l716 ---|          RAD    AB+2
25213  M01S17472.271l716 ---|          LDD    AB
25214  M01S17473.271l716 ---|          RAD    CN+3
25215  M01S17474.271l716 ---|          LDN    0           CLEAR ROLLOUT VALUE OF NFL
25216  M01S17475.271l716 ---|          STD    AB+1
25217  M01S17476.271l716 ---|          LDD    T6          STORE FL CONTROL WORDS
25218  M01S17477.271l716 ---|          CWD    CN
25219  M01S17478.271l716 ---|          SBN    1
25220  M01S17479.271l716 ---|          CWD    AB
25221  M01S17480.271l716 ---|          UJN    CFCX        RETURN
25222  M01S17481.271l716 ---| DCB      SPACE  4,15
25223  M01S17482.271l716 ---|**        DCB - DEFINE CM BUFFER SPACE.
25224  M01S17483.271l716 ---|*
25225  M01S17484.271l716 ---|*         EXIT   (EB) = RA/100 FOR *CPUMLD*.
25226  M01S17485.271l716 ---|*
Line S17486 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25227  M02S17486.271l716 ---|*         USES   AB - AB+4.
Line S00004 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25228  M02S00004.271l716 ---|*         USES   AB - AB+4, CN - CN+4.
Line S17487 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25229  M01S17487.271l716 ---|*
25230  M01S17488.271l716 ---|*         CALLS  CMA, RFL.
25231  M01S17489.271l716 ---|
25232  M01S17490.271l716 ---|
25233  M01S17491.271l716 ---| DCB      SUBR               ENTRY/EXIT
25234  M01S17492.271l716 ---|          RJM    RFL         RELEASE FIELD LENGTH
25235  M01S17493.271l716 ---|          LDN    ZERL
25236  M01S17494.271l716 ---|          CRD    AB
Line S00005 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25237  M02S00005.271l716 ---|          ADN    RPLP-ZERL   FETCH FWA OF RPL
25238  M02S00006.271l716 ---|          CRD    CN
Line S17495 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25239  M01S17495.271l716 ---|          LDC    2S12+AB     CHECK AVAILABLE MEMORY
25240  M01S17496.271l716 ---|          RJM    CMA
25241  M01S17497.271l716 ---|          LDD    AB+1
Line S17498 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25242  M02S17498.271l716 ---|          ZJN    DCB1        IF NO FREE MEMORY
Line S00007 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25243  M02S00007.271l716 ---|          ZJN    DCB2        IF NO FREE MEMORY
Line S17499 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25244  M01S17499.271l716 ---|          STD    EB
25245  M01S17500.271l716 ---|          ADC    CPML+PRSL-4001
Line S17501 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25246  M02S17501.271l716 ---|          PJN    DCB1        IF REQUIRED FL CROSSES 131K
Line S00008 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25247  M02S00008.271l716 ---|          PJN    DCB2        IF REQUIRED FL CROSSES 131K
Line S17502 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25248  M01S17502.271l716 ---|          LDD    AB+3
25249  M01S17503.271l716 ---|          SBK    CPML+PRSL
Line S17504 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25250  M02S17504.271l716 ---|          PJN    DCBX        IF ENOUGH FL
25251  M02S17505.271l716 ---| DCB1     LDC    DCBA
Line S00009 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25252  M02S00009.271l716 ---| DCB1     PJN    DCBX        IF ENOUGH FL
25253  M02S00010.271l716 ---| DCB2     LDN    CMRL
25254  M02S00011.271l716 ---|          CRD    AB          GET CMR LENGTH
25255  M02S00012.271l716 ---|          LDD    CN
25256  M02S00013.271l716 ---|          SHN    14          FWA OF RPL
25257  M02S00014.271l716 ---|          LMD    CN+1
25258  M02S00015.271l716 ---|          ADN    77          ROUND RPL ADDRESS
25259  M02S00016.271l716 ---|          SHN    -6
25260  M02S00017.271l716 ---|          STD    EB          SET NEW LOAD ADDRESS FOR *CPUMLD*
25261  M02S00018.271l716 ---|          LDD    AB+4
25262  M02S00019.271l716 ---|          SBK    CPML+PRSL   CHECK FL NEEDED
25263  M02S00020.271l716 ---|          SBD    EB
25264  M02S00021.271l716 ---|          PJN    DCB1        IF REQUIRED FL IN CMR
25265  M02S00022.271l716 ---|          LDC    DCBA
Line S17506 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25266  M01S17506.271l716 ---|          LJM    DSE         DISPLAY MESSAGE AND HANG
25267  M01S17507.271l716 ---|
25268  M01S17508.271l716 ---| DCBA     DATA   C*LACKING MEMORY FOR CM RECOVERY.*
25269  M01S17509.271l716 ---| MVE      SPACE  4,10
25270  M01S17510.271l716 ---|**        MVE - MOVE NFL.
25271  M01S17511.271l716 ---|*
25272  M01S17512.271l716 ---|*         ENTRY  (CA - CA+1) = RA - NFL OF PREVIOUS CP.
25273  M01S17513.271l716 ---|*                (AB - AB+4) = FL CONTROL WORD.
25274  M01S17514.271l716 ---|*                (CN - CN+4) = FL CONTROL WORD.
25275  M01S17515.271l716 ---|*
25276  M01S17516.271l716 ---|*         USES   CM - CM+4.
25277  M01S17517.271l716 ---|
25278  M01S17518.271l716 ---|
Line S17519 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25279  M02S17519.271l716 ---| MVE      SUBR               ENTRY/EXIT
25280  M02S17520.271l716 ---|          LDD    AB+2
Line S00023 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25281  M02S00023.271l716 ---| MVE3     ADD    AB+3        COMPUTE RA + FL
25282  M02S00024.271l716 ---|          STD    T0
25283  M02S00025.271l716 ---|          SHN    -14
25284  M02S00026.271l716 ---|          ADD    AB+2        COMPARE WITH NEXT RA - NFL
25285  M02S00027.271l716 ---|          SBD    CA
25286  M02S00028.271l716 ---|          NJN    MVE1        IF MOVE REQUIRED
25287  M02S00029.271l716 ---|          LDD    T0
25288  M02S00030.271l716 ---|          LMD    CA+1
25289  M02S00031.271l716 ---|          NJN    MVE1        IF NOT CP-S WITH ADJOINING FL
25290  M02S00032.271l716 ---|
25291  M02S00033.271l716 ---| MVE      SUBR               ENTRY/EXIT
25292  M02S00034.271l716 ---|          LDD    CN+4
25293  M02S00035.271l716 ---|          NJN    MVE3        IF RECOVERED SUBSYSTEM (PRESERVE FL)
25294  M02S00036.271l716 ---| MVE1     LDD    AB+2
Line S17521 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25295  M01S17521.271l716 ---|          SHN    14
25296  M01S17522.271l716 ---|          LMD    AB+3
25297  M01S17523.271l716 ---|          SBD    AB          SET RA - NFL FOR MOVE
25298  M01S17524.271l716 ---|          STD    CM+3
25299  M01S17525.271l716 ---|          STD    CM+2
25300  M01S17526.271l716 ---|          SHN    -14
25301  M01S17527.271l716 ---|          STD    CM+1
25302  M01S17528.271l716 ---|          LDD    CA          SET RA FOR CP
Line S17529 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25303  M02S17529.271l716 ---|          STD    AB+2
Line S17530 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25304  M01S17530.271l716 ---|          SHN    14
25305  M01S17531.271l716 ---|          LMD    CA+1
Line S17532 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25306  M02S17532.271l716 ---|          STD    AB+3
Line S00037 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25307  M02S00037.271l716 ---|          SBD    CN+4
25308  M02S00038.271l716 ---|          STD    AB+3
25309  M02S00039.271l716 ---|          SHN    -14
25310  M02S00040.271l716 ---|          STD    AB+2
25311  M02S00041.271l716 ---|          SHN    14
25312  M02S00042.271l716 ---|          LMD    AB+3
Line S17533 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25313  M01S17533.271l716 ---|          SBD    AB          SET NEW RA - NFL
25314  M01S17534.271l716 ---|          STD    CM+4
25315  M01S17535.271l716 ---|          STD    CN+2
25316  M01S17536.271l716 ---|          SHN    -14
25317  M01S17537.271l716 ---|          STD    CN+1
25318  M01S17538.271l716 ---|          LDD    AB
25319  M01S17539.271l716 ---|          ZJN    MVEX        IF NO NFL
Line S00043 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25320  M02S00043.271l716 ---|          ADD    CN+4
Line S17540 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25321  M01S17540.271l716 ---|          SBN    1
25322  M01S17541.271l716 ---|          STD    CM
25323  M01S17542.271l716 ---|          LDD    HO
25324  M01S17543.271l716 ---|          SHN    0-13
Line S17544 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25325  M02S17544.271l716 ---|          NJN    MVE1        IF NOT CME MAINFRAME
Line S00044 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25326  M02S00044.271l716 ---|          NJN    MVE2        IF NOT CME MAINFRAME
Line S17545 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25327  M01S17545.271l716 ---|          LDC    4000
25328  M01S17546.271l716 ---|          STD    CM+3
25329  M01S17547.271l716 ---|          STD    CM+4
Line S17548 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25330  M02S17548.271l716 ---| MVE1     LRD    CM+1
Line S00045 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25331  M02S00045.271l716 ---| MVE2     LRD    CM+1
Line S17549 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25332  M01S17549.271l716 ---|          LDD    CM+3        READ BLOCK OF NFL
25333  M01S17550.271l716 ---|          ADD    CM
25334  M01S17551.271l716 ---|          SHN    6
25335  M01S17552.271l716 ---|          CRM    MBUF,HN
25336  M01S17553.271l716 ---|          LRD    CN+1
25337  M01S17554.271l716 ---|          LDD    CM+4        MOVE NFL
25338  M01S17555.271l716 ---|          ADD    CM
25339  M01S17556.271l716 ---|          SHN    6
25340  M01S17557.271l716 ---|          CWM    MBUF,HN
25341  M01S17558.271l716 ---|          SOD    CM
Line S17559 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25342  M02S17559.271l716 ---|          PJN    MVE1        IF NOT END OF NFL
Line S00046 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25343  M02S00046.271l716 ---|          PJN    MVE2        IF NOT END OF MOVE
Line S17560 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25344  M01S17560.271l716 ---|          LJM    MVEX        RETURN
25345  M01S17561.271l716 ---| RFL      SPACE  4,15
25346  M01S17562.271l716 ---|**        RFL - RELEASE FIELD LENGTH.
25347  M01S17563.271l716 ---|*
25348  M01S17564.271l716 ---|*         EXIT   (NC) = NUMBER OF CONTROL POINTS.
25349  M01S17565.271l716 ---|*                (FL - FL+1) = MACHINE FIELD LENGTH.
25350  M01S17566.271l716 ---|*                FL OF JOBS AND NON-RECOVERED SUBSYSTEMS RELEASED.
25351  M01S17567.271l716 ---|*
25352  M01S17568.271l716 ---|*         USES   T5, T6, T7, AB - AB+4, CA - CA+1, CM - CM+4, CN - CN+4.
25353  M01S17569.271l716 ---|*
25354  M01S17570.271l716 ---|*         CALLS  CFC, MVE.
25355  M01S17571.271l716 ---|
25356  M01S17572.271l716 ---|
25357  M01S17573.271l716 ---| RFL      SUBR               ENTRY/EXIT
25358  M01S17574.271l716 ---|          LDN    NCPL
25359  M01S17575.271l716 ---|          CRD    CM
25360  M01S17576.271l716 ---|          ADN    MABL-NCPL
25361  M01S17577.271l716 ---|          CRD    AB
25362  M01S17578.271l716 ---|          AOD    CM+1        SET NUMBER OF CONTROL POINTS
25363  M01S17579.271l716 ---|          STD    NC
25364  M01S17580.271l716 ---|          STD    T7
25365  M01S17581.271l716 ---|          LDD    AB+2        SET EXECUTION MEMORY SIZE
25366  M01S17582.271l716 ---|          STD    CN+1
25367  M01S17583.271l716 ---|          STD    FL
25368  M01S17584.271l716 ---|          LDD    AB+3
25369  M01S17585.271l716 ---|          STD    CN+2
25370  M01S17586.271l716 ---|          STD    FL+1
25371  M01S17587.271l716 ---| RFL1     LDD    CN+1        SAVE RA - NFL
25372  M01S17588.271l716 ---|          STD    CA
25373  M01S17589.271l716 ---|          LDD    CN+2
25374  M01S17590.271l716 ---|          STD    CA+1
25375  M01S17591.271l716 ---|          SOD    T7
25376  M01S17592.271l716 ---|          ZJN    RFLX        IF CP ZERO
25377  M01S17593.271l716 ---|          SHN    7
25378  M01S17594.271l716 ---|          ADN    JCIW        READ JOB CONTROL
25379  M01S17595.271l716 ---|          CRD    CM
25380  M01S17596.271l716 ---|          ADN    FLSW-JCIW   READ FL CONTROL WORDS
25381  M01S17597.271l716 ---|          CRD    AB
25382  M01S17598.271l716 ---|          ADN    1
25383  M01S17599.271l716 ---|          CRD    CN
25384  M01S17600.271l716 ---|          STD    T6
25385  M01S17601.271l716 ---|          RJM    CFC         CHECK FL CONTROL WORDS
25386  M01S17602.271l716 ---|          LDC    TRSS        SET TABLE ADDRESS
25387  M01S17603.271l716 ---|          STD    T5
25388  M01S17604.271l716 ---|          LDI    T5          CHECK SUBSYSTEM ID
25389  M01S17605.271l716 ---| RFL2     LMD    CM+2
Line S17606 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25390  M02S17606.271l716 ---|          ZJN    RFL1        IF RECOVERED SUBSYSTEM
Line S00047 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25391  M02S00047.271l716 ---|          ZJN    RFL3        IF RECOVERED SUBSYSTEM
Line S17607 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25392  M01S17607.271l716 ---|          AOD    T5
25393  M01S17608.271l716 ---|          LDI    T5
25394  M01S17609.271l716 ---|          NJN    RFL2        IF NOT END OF TABLE
Line S17610 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25395  M02S17610.271l716 ---|          LDD    T7
25396  M02S17611.271l716 ---|          LMN    1
25397  M02S17612.271l716 ---|          ZJN    RFL3        IF FIRST CP
25398  M02S17613.271l716 ---|          RJM    MVE
25399  M02S17614.271l716 ---| RFL3     LDN    0           CLEAR FL ASSIGNMENT
25400  M02S17615.271l716 ---|          STD    CN+4
Line S00048 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25401  M02S00048.271l716 ---|          STD    CN+4
25402  M02S00049.271l716 ---| RFL3     LDD    T7
25403  M02S00050.271l716 ---|          LMN    1
25404  M02S00051.271l716 ---|          ZJN    RFL4        IF FIRST CP
25405  M02S00052.271l716 ---|          RJM    MVE
25406  M02S00053.271l716 ---| RFL4     LDD    CN+4        CLEAR FL ASSIGNMENT
Line S17616 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25407  M01S17616.271l716 ---|          STD    AB+4
25408  M01S17617.271l716 ---|          LDD    T6          RESET FL CONTROL WORDS
25409  M01S17618.271l716 ---|          CWD    CN
25410  M01S17619.271l716 ---|          SBN    1
25411  M01S17620.271l716 ---|          CWD    AB
25412  M01S17621.271l716 ---|          ADN    ECSW-FLSW   FETCH EXTENDED MEMORY CONTROL WORD
25413  M01S17622.271l716 ---|          CRD    CM
25414  M01S17623.271l716 ---|          ADC    CPAS
25415  M01S17624.271l716 ---|          CRD    AB
25416  M01S17625.271l716 ---|          SHN    -7
25417  M01S17626.271l716 ---|          LMD    NC
Line S17627 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25418  M02S17627.271l716 ---|          NJN    RFL4        IF NOT LAST CP
25419  M02S17628.271l716 ---|          LDD    AB+3        SET RAE TO END OF UEC BLOCK
25420  M02S17629.271l716 ---|          ADD    AB+4
25421  M02S17630.271l716 ---|          STD    CM+3
Line S00054 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25422  M02S00054.271l716 ---|          NJN    RFL5        IF NOT LAST CP
25423  M02S00055.271l716 ---|          LDD    AB+3
25424  M02S00056.271l716 ---|          ADD    AB+4
25425  M02S00057.271l716 ---|          STD    CM+3        SET RAE TO END OF USER XM BLOCK
Line S17631 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25426  M01S17631.271l716 ---|          SHN    -14
25427  M01S17632.271l716 ---|          ADD    AB+2
25428  M01S17633.271l716 ---|          STD    CM+2
Line S17634 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25429  M02S17634.271l716 ---| RFL4     LDN    0           CLEAR FLE
25430  M02S17635.271l716 ---|          STD    CM+4
Line S00058 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25431  M02S00058.271l716 ---| RFL5     LDD    CN+4
25432  M02S00059.271l716 ---|          NJN    RFL6        IF RECOVERED SUBSYSTEM
25433  M02S00060.271l716 ---|*         LDN    0
25434  M02S00061.271l716 ---|          STD    CM+4        CLEAR FLE
Line S17636 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25435  M01S17636.271l716 ---|          LDD    T6
25436  M01S17637.271l716 ---|          ADN    ECSW-FLSW-1
25437  M01S17638.271l716 ---|          CWD    CM
Line S17639 Modification History
M01 (Removed by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25438  M02S17639.271l716 ---|          LJM    RFL1        LOOP FOR NEXT CP
Line S00062 Modification History
M01 (Added by) ns2535
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25439  M02S00062.271l716 ---| RFL6     LJM    RFL1        LOOP FOR NEXT CP
Line S17640 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25440  M01S17640.271l716 ---|
25441  M01S17641.271l716 ---|
25442  M01S17642.271l716 ---| TRSS     BSS    0           TABLE OF RECOVERED SUBSYSTEMS
25443  M01S17643.271l716 ---|          CON    IFSI        IAF
25444  M01S17644.271l716 ---|          CON    TRSI        TAF
25445  M01S17645.271l716 ---|          CON    BISI        BATCHIO
25446  M01S17646.271l716 ---|          CON    MTSI        MAGNET
25447  M01S17647.271l716 ---|          CON    SMSI        SMF
25448  M01S17648.271l716 ---|          CON    NVSI        NVE
25449  M01S17649.271l716 ---|          CON    FZSI        FROZEN JOB
25450  M01S17650.271l716 ---|          CON    0           END OF TABLE
25451  M01S17651.271l716 ---|          SPACE  4,10
25452  M01S17652.271l716 ---|**        COMMON DECKS.
25453  M01S17653.271l716 ---|
25454  M01S17654.271l716 ---|
25455  M01S17655.271l716 ---|          LIST   X
25456  M01S17656.271l716 ---|*CALL     COMPCMA
25457  M01S17657.271l716 ---|          LIST   *
25458  M01S17658.271l716 ---|          SPACE  4,10
25459  M01S17659.271l716 ---|          ERRNG  MBUF-*      OVERFLOW INTO BUFFER
25460  M01S17660.271l716 ---|          SPACE  4,10
25461  M01S17661.271l716 ---|**        COMMON SUBROUTINES.
25462  M01S17662.271l716 ---|
25463  M01S17663.271l716 ---|
25464  M01S17664.271l716 ---|          NVECPU
25465  M01S17665.271l716 ---|
25466  M01S17666.271l716 ---| INO      SPACE  4,10
25467  M01S17667.271l716 ---|**        INO - INITIALIZE OVERLAY.
25468  M01S17668.271l716 ---|*
25469  M01S17669.271l716 ---|*         EXIT   TO *DSE* IF CONSOLE TYPE CHANGED BY DEADSTART.
25470  M01S17670.271l716 ---|*
25471  M01S17671.271l716 ---|*         USES   T3, CA - CA+1, CM - CM+4.
25472  M01S17672.271l716 ---|*
25473  M01S17673.271l716 ---|*         CALLS  CLS, RPN.
25474  M01S17674.271l716 ---|*
25475  M01S17675.271l716 ---|*         MACROS MDIN, SFA.
25476  M01S17676.271l716 ---|
25477  M01S17677.271l716 ---|
25478  M01S17678.271l716 ---| INO      SUBR               ENTRY/EXIT
25479  M01S17679.271l716 ---|          LDC    TCMB
25480  M01S17680.271l716 ---|          STD    T3
25481  M01S17681.271l716 ---|          LDN    0           CLEAR CMR BLOCKS
25482  M01S17682.271l716 ---|          STD    CA
25483  M01S17683.271l716 ---|          LDI    T3          SET CM ADDRESS
25484  M01S17684.271l716 ---| INO1     STD    CA+1
25485  M01S17685.271l716 ---|          AOD    T3
25486  M01S17686.271l716 ---|          LDI    T3          CALCULATE WORD COUNT
25487  M01S17687.271l716 ---|          SBD    CA+1
25488  M01S17688.271l716 ---|          RJM    CLS         CLEAR CMR
25489  M01S17689.271l716 ---|          AOD    T3
25490  M01S17690.271l716 ---|          LDI    T3
25491  M01S17691.271l716 ---|          NJN    INO1        IF ALL BLOCKS NOT CLEARED
25492  M01S17692.271l716 ---|          LDN    DSEQ
25493  M01S17693.271l716 ---|          SFA    EST         FETCH EST ENTRY FOR DISPLAY CONSOLE
Line S17694 Modification History
M01 (Removed by) set56
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25494  M02S17694.271l716 ---|          ADK    EQDE
Line S00001 Modification History
M01 (Added by) set56
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25495  M02S00001.271l716 ---|          ADK    EQAE
Line S17695 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25496  M01S17695.271l716 ---|          CRD    CM
25497  M01S17696.271l716 ---|          LDM    .DCS
25498  M01S17697.271l716 ---|          ZJN    INO2        IF DEADSTART INITIATED FROM CC545
25499  M01S17698.271l716 ---|          MDIN               MODIFY DISPLAY GENERATORS
25500  M01S17699.271l716 ---|          LDN    1
25501  M01S17700.271l716 ---| INO2     LMD    CM+2
25502  M01S17701.271l716 ---|          NJN    INO3        IF CONSOLE TYPE CHANGED
25503  M01S17702.271l716 ---|          RJM    RPN
25504  M01S17703.271l716 ---|          LJM    INOX        RETURN
25505  M01S17704.271l716 ---|
25506  M01S17705.271l716 ---| INO3     LDC    INOA
25507  M01S17706.271l716 ---|          LJM    DSE         DISPLAY ERROR AND HANG
25508  M01S17707.271l716 ---|
25509  M01S17708.271l716 ---|
25510  M01S17709.271l716 ---| INOA     DATA   C*CONSOLE TYPE CHANGED.*
25511  M01S17710.271l716 ---| TCMB     SPACE  4,10
25512  M01S17711.271l716 ---|**        TCMB - TABLE OF CMR BLOCKS CLEARED FOR RECOVERY.
25513  M01S17712.271l716 ---|
25514  M01S17713.271l716 ---|
25515  M01S17714.271l716 ---| TCMB     CON    0,JSNL
25516  M01S17715.271l716 ---|          CON    CMCL,ZERL
Line S17716 Modification History
M01 (Removed by) set52
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25517  M02S17716.271l716 ---|          CON    CPAL,TSCL
Line S00001 Modification History
M01 (Added by) set52
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25518  M02S00001.271l716 ---|          CON    CPAL,DSDL
Line S17717 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25519  M01S17717.271l716 ---|          CON    DSCP*CPAS+MS1W,DSCP*CPAS+MS1W+10
25520  M01S17718.271l716 ---|          CON    0           END OF TABLE
25521  M01S17719.271l716 ---|          SPACE  4,10
25522  M01S17720.271l716 ---|*         INSTRUCTION MODIFICATION BLOCK.
25523  M01S17721.271l716 ---|
25524  M01S17722.271l716 ---|
25525  M01S17723.271l716 ---|          DIMB
25526  M01S17724.271l716 ---|          SPACE  4,10
25527  M01S17725.271l716 ---|          QUAL
25528  M01S17726.271l716 ---| RCM      EQU    /RCM/RCM
Line S01591 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
25529  M02S01591.ns2783  ---| MDG      SPACE  4,10
25530  M02S01592.ns2783  ---|**        MDG - MODIFY DISPLAY GENERATORS.
Line S00192 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
25531  M01S00192.ns2783  +++| PRT      SPACE  4,10
25532  M01S00193.ns2783  +++|**        PRT - PRESET *RCT*.
25533  M01S00194.ns2783  +++|*
25534  M01S00195.ns2783  +++|*         USES   CM - CM+4.
Line S01593 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25535  M01S01593.271l716 +++|*
25536  M01S01594.271l716 +++|*         MACROS MDIN.
25537  M01S01595.271l716 +++|
25538  M01S01596.271l716 +++|
Line S01597 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
25539  M02S01597.ns2783  ---| MDG      SUBR               ENTRY/EXIT
Line S00196 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
25540  M01S00196.ns2783  +++| PRT      SUBR               ENTRY/EXIT
25541  M01S00197.ns2783  +++|          LDK    MMFL
25542  M01S00198.ns2783  +++|          CRD    CM
25543  M01S00199.ns2783  +++|          LDD    CM+3        SET MACHINE MASK
25544  M01S00200.ns2783  +++|          RAM    RMCA
Line S01598 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25545  M01S01598.271l716 +++|          LDM    .DCS
Line S01599 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
25546  M02S01599.ns2783  ---|          ZJN    MDGX        IF DEADSTART INITIATED FROM CC545
25547  M02S01600.ns2783  ---|          MDIN
25548  M02S01601.ns2783  ---|          UJN    MDGX        RETURN
Line S00201 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
25549  M01S00201.ns2783  +++|          ZJN    PRTX        IF DEADSTART INITIATED FROM CC545
25550  M01S00202.ns2783  +++|          MDIN               MODIFY DISPLAY GENERATORS
25551  M01S00203.ns2783  +++|          UJN    PRTX        RETURN
Line S01602 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25552  M01S01602.271l716 +++|          SPACE  4,10
25553  M01S01603.271l716 +++|*         INSTRUCTION MODIFICATION BLOCK.
25554  M01S01604.271l716 +++|
25555  M01S01605.271l716 +++|
25556  M01S01606.271l716 +++|          DIMB
25557  M00S17727.set     +++|
25558  M00S17728.set     +++|
25559  M00S17729.set     +++|          ERRNG  7777-*-4    IF OVERFLOW OF PP
25560  M00S17730.set     +++|          TTL    SET/SCP - SETUP CONTROL POINT AREAS.
25561  M00S17731.set     +++|          TITLE
25562  M00S17732.set     +++|          IDENT  SCP,OVL
25563  M00S17733.set     +++|          QUAL   SCP
25564  M00S17734.set     +++|          ORG    OVL
25565  M00S17735.set     +++|*COMMENT  SET - SETUP CONTROL POINT AREAS.
Line S17736 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
25566  M01S17736.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1986.
Line S00012 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
25567  M01S00012.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
25568  M00S17737.set     +++| SCP      SPACE  4,10
25569  M00S17738.set     +++|**        SCP - SETUP CONTROL POINTS.
25570  M00S17739.set     +++|*
Line S00034 Modification History
M01 (Added by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
25571  M01S00034.ns2709  +++|*
Line S17740 Modification History
M01 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
25572  M01S17740.271l739 ---|*
Line S17741 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
25573  M01S17741.273l780 ---|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T7.
Line S00043 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
25574  M01S00043.273l780 +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T6.
25575  M00S17742.set     +++|*
Line S17743 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25576  M01S17743.271l716 ---|*         CALLS  INO, IRS, SFL, SSF, SXP.
Line S01607 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
25577  M02S01607.271l739 ---|*         CALLS  INO, IRS, SCA, SFL, SMT, SSF, SXP.
Line S00061 Modification History
M01 (Added by) 271l739
M02 (Removed by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
25578  M02S00061.ns2709  ---|*         CALLS  INO, IRS, SBR, SCA, SFL, SMT, SSF, SXP.
Line S00035 Modification History
M01 (Added by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
25579  M01S00035.ns2709  +++|*         CALLS  INO, IRS, SCA, SFL, SMT, SSF, SXP.
25580  M00S17744.set     +++|
25581  M00S17745.set     +++|
25582  M00S17746.set     +++| SCP      SUBR               ENTRY/EXIT
25583  M00S17747.set     +++|          RJM    INO         INITIALIZE OVERLAY
25584  M00S17748.set     +++|          LDN    0
25585  M00S17749.set     +++|          RJM    SSF         SETUP *CMRL*+1
25586  M00S17750.set     +++|          LDC    UEML
25587  M00S17751.set     +++|          CRD    AB
25588  M00S17752.set     +++|          ADN    CPAS-UEML   SET FIRST CONTROL POINT ADDRESS
25589  M00S17753.set     +++|          STD    T1
25590  M00S17754.set     +++|          LDD    HO
25591  M00S17755.set     +++|          SHN    21-13
25592  M00S17756.set     +++|          LMD    AB+4        GET CM COPY FLAG
25593  M00S17757.set     +++|          SCN    1
25594  M00S17758.set     +++|          LMM    EMAF        GET EXPANDED MODE ADDRESSING FLAG
25595  M00S17759.set     +++|          SHN    10-1
25596  M00S17760.set     +++|          LPC    700
25597  M00S17761.set     +++|          LMD    HN          SET/CLEAR UEM ENABLE FLAG
Line S17762 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25598  M01S17762.271l716 ---|          STM    SCPC
Line S01608 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25599  M01S01608.271l716 +++|          STM    SCPG
25600  M00S17763.set     +++| SCP1     RJM    SFL         SETUP CP FIELD LENGTH WORDS
25601  M00S17764.set     +++|          LDN    ZERL
25602  M00S17765.set     +++|          CRD    AB
25603  M00S17766.set     +++|          CRD    CM
25604  M00S17767.set     +++|          CRD    CN
25605  M00S17768.set     +++|          LDD    T1          SET MA
25606  M00S17769.set     +++|          STD    CM+1
25607  M00S17770.set     +++|          ADN    FLSW        FETCH CM FL CONTROL WORD
25608  M00S17771.set     +++|          CRD    T2
25609  M00S17772.set     +++|          LDD    T5          SET RA
25610  M00S17773.set     +++|          SHN    6
25611  M00S17774.set     +++|          STD    AB+1
25612  M00S17775.set     +++|          LMD    AB+1
25613  M00S17776.set     +++|          LMD    T4
25614  M00S17777.set     +++|          SHN    6
25615  M00S17778.set     +++|          STD    AB
25616  M00S17779.set     +++|          LDD    T6          SET FL
25617  M00S17780.set     +++|          SHN    6
25618  M00S17781.set     +++|          STD    CN+1
25619  M00S17782.set     +++|          SHN    -14
25620  M00S17783.set     +++|          STD    CN
25621  M00S17784.set     +++|          LDD    T1
25622  M00S17785.set     +++|          ADN    1           STORE (RA)
25623  M00S17786.set     +++|          CWD    AB
25624  M00S17787.set     +++|          ADN    2-1         STORE (FL)
25625  M00S17788.set     +++|          CWD    CN
25626  M00S17789.set     +++|          ADN    3-2         STORE (EM)
Line S17790 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25627  M01S17790.271l716 ---|          CWM    SCPC,ON
Line S01609 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25628  M01S01609.271l716 +++|          CWM    SCPG,ON
25629  M00S17791.set     +++|          ADN    ECSW-4      FETCH EXTENDED MEMORY FL CONTROL WORD
25630  M00S17792.set     +++|          CRD    T2
25631  M00S17793.set     +++|          LDD    T4          SET RAE
25632  M00S17794.set     +++|          SHN    14
25633  M00S17795.set     +++|          ADD    T5
25634  M00S17796.set     +++| SCPA     SHN    21-2
25635  M00S17797.set     +++|*         SHN    21-2+UESC
25636  M00S17798.set     +++|          STD    AB
25637  M00S17799.set     +++|          SHN    -6
25638  M00S17800.set     +++|          SCN    77
25639  M00S17801.set     +++|          STD    AB+1
25640  M00S17802.set     +++|          LDD    T6          SET FLE
25641  M00S17803.set     +++| SCPB     SHN    21-2
25642  M00S17804.set     +++|*         SHN    21-2+UESC
25643  M00S17805.set     +++|          STD    CN
25644  M00S17806.set     +++|          SHN    -6
25645  M00S17807.set     +++|          SCN    77
25646  M00S17808.set     +++|          STD    CN+1
25647  M00S17809.set     +++|          LDM    EMAF
25648  M00S17810.set     +++|          ZJN    SCP2        IF NOT EXPANDED MODE
25649  M00S17811.set     +++|          LDD    AB          CONVERT RAE TO EXPANDED FORMAT
25650  M00S17812.set     +++|          SHN    14
25651  M00S17813.set     +++|          STD    AB
25652  M00S17814.set     +++|          LMD    AB+1
25653  M00S17815.set     +++|          SHN    -6
25654  M00S17816.set     +++|          STD    AB+1
25655  M00S17817.set     +++|          LDD    CN          CONVERT FLE TO EXPANDED FORMAT
25656  M00S17818.set     +++|          SHN    14
25657  M00S17819.set     +++|          STD    CN
25658  M00S17820.set     +++|          LMD    CN+1
25659  M00S17821.set     +++|          SHN    -6
25660  M00S17822.set     +++|          STD    CN+1
25661  M00S17823.set     +++| SCP2     LDD    T1
25662  M00S17824.set     +++|          ADN    4           STORE (RAE)
25663  M00S17825.set     +++|          CWD    AB
25664  M00S17826.set     +++|          ADN    5-4         STORE (FLE)
25665  M00S17827.set     +++|          CWD    CN
25666  M00S17828.set     +++|          ADN    6-5         STORE (MA)
25667  M00S17829.set     +++|          CWD    CM
25668  M00S17830.set     +++|          ADN    7-6         STORE (EA)
25669  M00S17831.set     +++|          CWD    CM
25670  M00S17832.set     +++|          ADN    TFSW-7      FETCH EST ORDINAL
25671  M00S17833.set     +++|          CRD    T2
25672  M00S17834.set     +++|          LDD    T2
25673  M00S17835.set     +++|          ZJN    SCP4        IF NO JOB ASSIGNED
25674  M00S17836.set     +++|          LDD    T1
25675  M00S17837.set     +++|          ADN    STSW        FETCH CP STATUS
25676  M00S17838.set     +++|          CRD    CM
Line S17839 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
25677  M01S17839.273l780 ---|          ADN    JCIW-STSW   READ JOB CONTROL INFORMATION
25678  M01S17840.273l780 ---|          CRD    T2
25679  M01S17841.273l780 ---|          LDD    T4          CHECK SUBSYSTEM ID
25680  M01S17842.273l780 ---|          LMN    QCSI
25681  M01S17843.273l780 ---|          NJN    SCP3        IF NOT *QCSI*
25682  M01S17844.273l780 ---|          STD    T4
25683  M01S17845.273l780 ---|          LDD    T1          CLEAR SUBSYSTEM ID
25684  M01S17846.273l780 ---|          ADN    JCIW
25685  M01S17847.273l780 ---|          CWD    T2
25686  M01S17848.273l780 ---| SCP3     LDN    1           INITIALIZE PP RECALL STACK
Line S00044 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
25687  M01S00044.273l780 +++|          LDN    0           CLEAR PP ACTIVITY
25688  M01S00045.273l780 +++|          STD    CM
25689  M00S17849.set     +++| SCP4     RJM    IRS
Line S17850 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25690  M01S17850.271l750 ---|          ADN    CRCW-STSW   CLEAR CPU RECALL CRITERION
Line S00237 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25691  M01S00237.271l750 +++|          ADN    SPCW-STSW   CLEAR SPECIAL PROCESSOR CALL WORD
25692  M00S17851.set     +++|          CWD    ZR
Line S17852 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25693  M01S17852.271l750 ---|          ADN    SPCW-CRCW   CLEAR SPECIAL PROCESSOR CALL WORD
Line S00238 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25694  M01S00238.271l750 +++|          ADC    CRCW-SPCW   CLEAR *X* STATUS CPU RECALL CRITERION
25695  M00S17853.set     +++|          CWD    ZR
Line S17854 Modification History
M01 (Removed by) set64
Seq #  *Modification Id* Act 
----------------------------+
25696  M01S17854.set64   ---|          ADN    JCRW-SPCW   CLEAR JOB CONTROL REGISTERS
25697  M01S17855.set64   ---|          CWD    ZR
25698  M00S17856.set     +++|          LDD    T1          SET UP FLSW+1
25699  M00S17857.set     +++|          RJM    SSF
25700  M00S17858.set     +++|          LDC    200         ADVANCE CP ADDRESS
25701  M00S17859.set     +++|          RAD    T1
25702  M00S17860.set     +++|          SHN    -7
25703  M00S17861.set     +++|          SBD    NC
25704  M00S17862.set     +++|          MJP    SCP1        IF NOT END OF CP-S
25705  M00S17863.set     +++|
25706  M00S17864.set     +++|*         SET UP SYSTEM CONTROL POINT.
25707  M00S17865.set     +++|
25708  M00S17866.set     +++|          RJM    SFL         SETUP FIELD LENGTH WORDS
25709  M00S17867.set     +++|          RJM    SXP         SETUP *CPUMTR* PRESET EXCHANGE PACKAGE
Line S17868 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25710  M01S17868.271l750 ---|          ADN    JCIW-15     STORE JOB CONTROL
Line S00239 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25711  M01S00239.271l750 +++|          ADN    CWQW-15     STORE CPU SCHEDULING PARAMETERS
25712  M00S17869.set     +++|          CWM    SCPD,ON
Line S17870 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25713  M01S17870.271l750 ---|          ADN    FLSW-JCIW-1
Line S00240 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25714  M01S00240.271l750 +++|          ADN    FLSW-CWQW-1
25715  M00S17871.set     +++|          CWD    ZR
Line S17872 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25716  M01S17872.271l750 ---|          ADN    CPTW-FLSW
Line S00241 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25717  M01S00241.271l750 +++|          ADN    JCIW-FLSW   STORE JOB CONTROL
25718  M01S00242.271l750 +++|          CWM    SCPH,ON
25719  M01S00243.271l750 +++|          ADN    CPTW-JCIW-1
25720  M00S17873.set     +++|          CWD    ZR
25721  M00S17874.set     +++|          CRD    CM
Line S17875 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25722  M01S17875.271l750 ---|          ADN    STLW-CPTW
Line S00244 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25723  M01S00244.271l750 +++|          ADN    MP3W-CPTW
25724  M01S00245.271l750 +++|          CWM    SCPI,ON     DISABLE SRU ACCUMULATION
25725  M01S00246.271l750 +++|          ADN    STLW-MP3W
25726  M00S17876.set     +++|          CWM    SCPE,ON     SET MAXIMUM LIMITS FOR SRU AND TIME
25727  M00S17877.set     +++|          ADN    ALMW-STLW-1
25728  M00S17878.set     +++|          CWM    SCPE,ON
25729  M00S17879.set     +++|          ADK    ACLW-ALMW-1
25730  M00S17880.set     +++|          CWM    SCPE,ON
25731  M00S17881.set     +++|          ADK    AACW-ACLW-1
25732  M00S17882.set     +++|          CWM    SCPE,ON
25733  M00S17883.set     +++|          ADN    CPLW-AACW-1
25734  M00S17884.set     +++|          CWM    SCPF,ON
25735  M00S17885.set     +++|          LDD    T1          SETUP *FLSW*+1
25736  M00S17886.set     +++|          RJM    SSF
25737  M00S17887.set     +++|          LDM    SPPC        INITIALIZE PP RECALL STACK
25738  M00S17888.set     +++|          RJM    IRS
Line S17889 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25739  M01S17889.271l716 ---|          LJM    SCPX        RETURN
25740  M01S17890.271l716 ---|
25741  M01S17891.271l716 ---| SCPC     VFD    60/0        EXCHANGE PACKAGE WORD WITH CM COPY FLAG
Line S01610 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25742  M01S01610.271l716 +++|          LDM    .NPCP       SET NUMBER OF PSEUDO CONTROL POINTS
25743  M01S01611.271l716 +++|          STD    T2
25744  M01S01612.271l716 +++|          ZJN    SCP6        IF NONE OR CM RECOVERY
25745  M01S01613.271l716 +++|
25746  M01S01614.271l716 +++|*         SET UP PSEUDO CONTROL POINT AREAS.
25747  M01S01615.271l716 +++|
25748  M01S01616.271l716 +++|          LDD    NC          INITIALIZE PCP NUMBER
25749  M01S01617.271l716 +++|          STD    T1
25750  M01S01618.271l716 +++|          SBN    CPLK        CP LINK TO PCP-S
25751  M01S01619.271l716 +++|          SHN    7
25752  M01S01620.271l716 +++|          ADN    FLSW        GET MEMORY CONTROL WORDS
25753  M01S01621.271l716 +++|          CRM    MCWB,TR
25754  M01S01622.271l716 +++| SCP5     AOD    T1          ADVANCE AND SET PCPA ADDRESS
25755  M01S01623.271l716 +++|          RJM    SCA
25756  M01S01624.271l716 +++|          ADN    FLSW        STORE MEMORY CONTROL WORDS
25757  M01S01625.271l716 +++|          CWM    MCWB,TR
25758  M01S01626.271l716 +++|          SOD    T2
25759  M01S01627.271l716 +++|          NJN    SCP5        IF MORE PCP-S
25760  M01S01628.271l716 +++|
25761  M01S01629.271l716 +++|*         BUILD MEMORY CONTROL TABLE.
25762  M01S01630.271l716 +++|
25763  M01S01631.271l716 +++| SCP6     UJN    SCP7        SKIP TABLE ON CM RECOVERY
25764  M01S01632.271l716 +++| SCPC     EQU    SCP6
25765  M01S01633.271l716 +++|*         PSN                (NON CM RECOVERY)
Line S01634 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
25766  M02S01634.284l847 ---|          RJM    SMT
Line S00739 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
25767  M01S00739.284l847 +++|          RJM    SMC         SET UP MEMORY CONTROL TABLE
Line S01635 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25768  M01S01635.271l716 +++|          LDN    ACML        STORE UNASSIGNED MEMORY
25769  M01S01636.271l716 +++|          CWM    .ACML,ON
Line S01637 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
25770  M02S01637.271l739 ---| SCP7     LJM    SCPX        RETURN
Line S00062 Modification History
M01 (Added by) 271l739
M02 (Removed by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
25771  M02S00062.ns2709  ---| SCP7     RJM    SBR         SET OS BOUND REGISTER
25772  M02S00063.ns2709  ---|          LJM    SCPX        RETURN
Line S00036 Modification History
M01 (Added by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
25773  M01S00036.ns2709  +++| SCP7     LJM    SCPX        RETURN
Line S01638 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25774  M01S01638.271l716 +++|
25775  M01S01639.271l716 +++|
Line S17892 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25776  M01S17892.271l716 ---| SCPD     VFD    11/MPRS,1/0,12/0,12/7777,24/0
Line S01640 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25777  M02S01640.271l750 ---| SCPD     VFD    2/0,3/7,7/MPRS,12/0,12/7777,24/0
Line S00247 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25778  M01S00247.271l750 +++| SCPD     VFD    2/1,7/MPRS,3/2,12/0,9//SCD/SSSC*JCBE,3/0,24/0
25779  M00S17893.set     +++| SCPE     VFD    60/-0
25780  M00S17894.set     +++| SCPF     VFD    60/37777777777777777777B
Line S17895 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25781  M01S17895.271l716 ---|          TITLE  SUBROUTINES.
Line S01641 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25782  M01S01641.271l716 +++| SCPG     VFD    60/0        EXCHANGE PACKAGE WORD WITH CM COPY FLAG
Line S00248 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25783  M01S00248.271l750 +++| SCPH     VFD    24/0,12/7777,24/0
25784  M01S00249.271l750 +++|
25785  M01S00250.271l750 +++| SCPI     VFD    1/1,59/0
Line S01642 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25786  M01S01642.271l716 +++|          TITLE  SUBROUTINES.
25787  M01S01643.271l716 +++|          SPACE  4,10
25788  M01S01644.271l716 +++|**        COMMON SUBROUTINES.
25789  M01S01645.271l716 +++|
25790  M01S01646.271l716 +++|
25791  M01S01647.271l716 +++|          MCTSUB
Line S00064 Modification History
M01 (Added by) 271l739
M02 (Removed by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
25792  M02S00064.ns2709  ---|          RWRSUB
25793  M00S17896.set     +++| IRS      SPACE  4,10
25794  M00S17897.set     +++|**        IRS - INITIALIZE PP RECALL STACK.
25795  M00S17898.set     +++|*
Line S17899 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
25796  M01S17899.273l780 ---|*         ENTRY  (A) = NUMBER OF PSEUDO PP-S TO ASSIGN.
25797  M01S17900.273l780 ---|*                (T1) = CONTROL POINT ADDRESS.
Line S00046 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
25798  M01S00046.273l780 +++|*         ENTRY  (T1) = CONTROL POINT ADDRESS.
25799  M00S17901.set     +++|*                (CM - CM+4) = *STSW* WORD.
25800  M00S17902.set     +++|*
25801  M00S17903.set     +++|*         EXIT   (A) = ADDRESS OF *STSW* WORD.
25802  M00S17904.set     +++|*                *STSW* WORD UPDATED IN CONTROL POINT AREA.
25803  M00S17905.set     +++|*
25804  M00S17906.set     +++|*         USES   T2 - T2+4.
Proceed to Part 15
cdc/nos2.source/opl.opl871/deck/set.014.txt ยท Last modified: by 127.0.0.1