User Tools

Site Tools


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

Deck SET Part 013

79 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
22346  M01S00836.271l716 +++|          LDC    4000        SET SCHEDULER ACTIVE
22347  M01S00837.271l716 +++|          STD    CN
22348  M01S00838.271l716 +++|          LDN    JSCL        STORE SCHEDULER INTERLOCK
22349  M01S00839.271l716 +++|          CWD    CN
22350  M01S00840.271l716 +++|          ADN    RDSL-JSCL   CLEAR LABEL CHECK CONTROL
22351  M01S00841.271l716 +++|          CWD    ZR
22352  M01S00842.271l716 +++|          ADN    PRBP-RDSL
22353  M01S00843.271l716 +++|          CWD    CM
22354  M01S00844.271l716 +++|          SBN    PRBP-SCRL
22355  M01S00845.271l716 +++|          CRD    CM
22356  M01S00846.271l716 +++|          LDD    CM          CLEAR EMERGENCY STEP STATUS
22357  M01S00847.271l716 +++|          LPC    -5600
22358  M01S00848.271l716 +++|          LMC    4000        SET *1MB* (ERROR LOGGING) ACTIVE
22359  M01S00849.271l716 +++|          STD    CM
22360  M01S00850.271l716 +++|          LDN    0           CLEAR *1CK* CALLED STATUS
22361  M01S00851.271l716 +++|          STD    CM+2
22362  M01S00852.271l716 +++|          LDN    ZERL
22363  M01S00853.271l716 +++|          CRD    AB
22364  M01S00854.271l716 +++|          ADN    DSDL-ZERL   STORE *DSD* BUFFER INTERLOCK
22365  M01S00855.271l716 +++|          CWD    CN
22366  M01S00856.271l716 +++|          SBN    DSDL-MMFL   PRESERVE MACHINE ID
22367  M01S00857.271l716 +++|          CRD    ID+LD*
22368  M01S00858.271l716 +++|          ADN    INWL-MMFL   STORE SCHEDULER INTERLOCK
22369  M01S00859.271l716 +++|          CWM    .INWL,ON
22370  M01S00860.271l716 +++|          SBN    INWL+1-SCRL
22371  M01S00861.271l716 +++|          CWD    CM
22372  M01S00862.271l716 +++|          LCN    0           INITIALIZE FLAG REGISTER STATUS
22373  M01S00863.271l716 +++|          STD    AB+3
22374  M01S00864.271l716 +++|          LDD    LD
22375  M01S00865.271l716 +++|          LPC    777
22376  M01S00866.271l716 +++|          ZJN    PTR1        IF NOT MMF ENVIRONMENT
22377  M01S00867.271l716 +++|          SFA    EST
22378  M01S00868.271l716 +++|          CRD    CM          READ EST ENTRY FOR LINK DEVICE
22379  M01S00869.271l716 +++|          ADN    EQAE-EQDE
22380  M01S00870.271l716 +++|          CRD    T3
22381  M01S00871.271l716 +++|          LDD    T3+2
22382  M01S00872.271l716 +++|          SHN    -6
22383  M01S00873.271l716 +++|          LPN    3
22384  M01S00874.271l716 +++|          STM    LDSH        SET SHIFT COUNT FOR LINK DEVICE
22385  M01S00875.271l716 +++|          LDD    CM+4
22386  M01S00876.271l716 +++|          SHN    3
22387  M01S00877.271l716 +++|          ADN    ALGL        FETCH LABEL TRACK FROM MST
22388  M01S00878.271l716 +++|          CRD    CM
22389  M01S00879.271l716 +++|          LDD    CM+1        SET LABEL TRACK
22390  M01S00880.271l716 +++|          STD    AB+4
22391  M01S00881.271l716 +++| PTR1     LDK    EXML        GET EXTENDED MEMORY PARAMETER
22392  M01S00882.271l716 +++|          CRD    CM
22393  M01S00883.271l716 +++|          ADK    MMFL-EXML
22394  M01S00884.271l716 +++|          CWD    ID+LD*
22395  M01S00885.271l716 +++|          ADK    MEFL-MMFL
22396  M01S00886.271l716 +++|          CRD    CN
22397  M01S00887.271l716 +++|          ADK    EFRL-MEFL
22398  M01S00888.271l716 +++|          CWD    AB
22399  M01S00889.271l716 +++|          LDD    CN+3        SET EXTENDED MEMORY PARAMETERS
22400  M01S00890.271l716 +++|          STM    EMFL
22401  M01S00891.271l716 +++|          LDD    CN+2
22402  M01S00892.271l716 +++|          SCN    37
22403  M01S00893.271l716 +++|          SHN    11
22404  M01S00894.271l716 +++|          STM    UESC
22405  M01S00895.271l716 +++|          SHN    2
22406  M01S00896.271l716 +++|          SCN    36
22407  M01S00897.271l716 +++|          STM    EMAF
22408  M01S00898.271l716 +++|          SHN    -20
22409  M01S00899.271l716 +++|          STM    EMSC
Line S00052 Modification History
M01 (Added by) 271l739
M02 (Removed by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
22410  M02S00052.ns2709  ---|          RAM    PTRA
22411  M02S00053.ns2709  ---|          LDK    UEML        FETCH UEM PARAMETERS
22412  M02S00054.ns2709  ---|          CRD    AB
22413  M02S00055.ns2709  ---|          LDD    AB+1
22414  M02S00056.ns2709  ---| PTRA     SHN    3           SET UEM FL / 100B
22415  M02S00057.ns2709  ---|*         SHN    3+EMSC
22416  M02S00058.ns2709  ---|          STM    UEMZ+1
22417  M02S00059.ns2709  ---|          SHN    -14
22418  M02S00060.ns2709  ---|          STM    UEMZ
Line S00900 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22419  M01S00900.271l716 +++|          LDD    CM+4
22420  M01S00901.271l716 +++|          LPC    777
22421  M01S00902.271l716 +++|          STD    EN
22422  M01S00903.271l716 +++|          ZJN    PTR2        IF NO EXTENDED MEMORY EQUIPMENT
22423  M01S00904.271l716 +++|          SFA    EST
22424  M01S00905.271l716 +++|          ADK    EQDE
22425  M01S00906.271l716 +++|          CRD    CM
22426  M01S00907.271l716 +++|          LDD    CM+4
22427  M01S00908.271l716 +++|          SHN    3
22428  M01S00909.271l716 +++|          ADK    DILL
22429  M01S00910.271l716 +++|          CRD    AB
22430  M01S00911.271l716 +++|          LDD    AB+3        SET EXTENDED MEMORY TYPE
22431  M01S00912.271l716 +++|          SHN    -6
22432  M01S00913.271l716 +++|          LPN    7
22433  M01S00914.271l716 +++|          STM    EMTY
22434  M01S00915.271l716 +++| PTR2     LJM    PTRX        RETURN
22435  M01S00916.271l716 +++| VEM      SPACE  4,10
22436  M01S00917.271l716 +++|**        VEM - VERIFY EI LEVEL AND MICROCODE NAME.
22437  M01S00918.271l716 +++|*
22438  M01S00919.271l716 +++|*         ENTRY  (HO) = HARDWARE OPTIONS.
22439  M01S00920.271l716 +++|*
22440  M01S00921.271l716 +++|*         EXIT   TO *DSE* IF EI LEVEL OR MICROCODE NAME ERROR.
22441  M01S00922.271l716 +++|*
22442  M01S00923.271l716 +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T7.
22443  M01S00924.271l716 +++|
22444  M01S00925.271l716 +++|
22445  M01S00926.271l716 +++| VEM      SUBR               ENTRY/EXIT
22446  M01S00927.271l716 +++|          LDM    C8XX
22447  M01S00928.271l716 +++|          NJN    VEMX        IF NOT CYBER 800 TYPE MAINFRAME
22448  M01S00929.271l716 +++|          LDC    MEBF
22449  M01S00930.271l716 +++|          CRD    CM          GET MICROCODE/EI NAMES PASSED BY *CTI*
22450  M01S00931.271l716 +++|          SBN    MEBF-SABL
22451  M01S00932.271l716 +++|          CRD    T1          GET MAINFRAME DESCRIPTOR ADDRESS
22452  M01S00933.271l716 +++|          ADN    EABL+CPEI-SABL
22453  M01S00934.271l716 +++|          CRD    AB
22454  M01S00935.271l716 +++|          LDD    AB+1        FETCH ORIGINAL MICROCODE NAME
22455  M01S00936.271l716 +++|          SCN    77
22456  M01S00937.271l716 +++|          SHN    6
22457  M01S00938.271l716 +++|          LMD    AB
22458  M01S00939.271l716 +++|          SHN    6
22459  M01S00940.271l716 +++|          ADN    1
22460  M01S00941.271l716 +++|          CRD    T3
22461  M01S00942.271l716 +++|          ADN    1
22462  M01S00943.271l716 +++|          CRD    CN
22463  M01S00944.271l716 +++|          LDD    T3+2
22464  M01S00945.271l716 +++|          SHN    21-0
22465  M01S00946.271l716 +++|          PJN    VEM1        IF CPU-0 IS ENABLED
22466  M01S00947.271l716 +++|          LDD    AB+1
22467  M01S00948.271l716 +++|          LPN    77
22468  M01S00949.271l716 +++|          SHN    14
22469  M01S00950.271l716 +++|          LMD    AB+2        FETCH MICROCODE FROM CPU-1 BLOCK
22470  M01S00951.271l716 +++|          ADN    2
22471  M01S00952.271l716 +++|          CRD    CN
22472  M01S00953.271l716 +++| VEM1     LDN    0           CLEAR MISMATCH FLAG
22473  M01S00954.271l716 +++|          STD    T5
22474  M01S00955.271l716 +++|          LDD    T1          GET ORIGINAL EI NAME
22475  M01S00956.271l716 +++|          SHN    14
22476  M01S00957.271l716 +++|          LMD    T1+1
22477  M01S00958.271l716 +++|          ADN    1
22478  M01S00959.271l716 +++|          CRD    AB
22479  M01S00960.271l716 +++|          LDN    3           COMPARE MICROCODE NAMES
22480  M01S00961.271l716 +++|          STD    T3
22481  M01S00962.271l716 +++| VEM2     LDM    CN,T3
22482  M01S00963.271l716 +++|          STM    VEMA+12,T3
22483  M01S00964.271l716 +++|          LMM    CM,T3
22484  M01S00965.271l716 +++|          ZJN    VEM3        IF VALUES MATCH
22485  M01S00966.271l716 +++|          STD    T5
22486  M01S00967.271l716 +++| VEM3     SOD    T3
22487  M01S00968.271l716 +++|          PJN    VEM2        IF COMPARE NOT COMPLETE
22488  M01S00969.271l716 +++|          LDD    T5
22489  M01S00970.271l716 +++|          NJN    VEM4        IF MICROCODE ERROR
22490  M01S00971.271l716 +++|          LDD    AB+3
22491  M01S00972.271l716 +++|          STM    VEMB+6      COMPARE EI LEVEL
22492  M01S00973.271l716 +++|          LMD    CM+4
22493  M01S00974.271l716 +++|          NJN    VEM5        IF EI ERROR
22494  M01S00975.271l716 +++|          LJM    VEMX        RETURN
22495  M01S00976.271l716 +++|
22496  M01S00977.271l716 +++| VEM4     LDC    VEMA        *MICROCODE MISMATCH*
22497  M01S00978.271l716 +++|          UJN    VEM6        DISPLAY ERROR AND HANG
22498  M01S00979.271l716 +++|
22499  M01S00980.271l716 +++| VEM5     LDC    VEMB        *EI MISMATCH*
22500  M01S00981.271l716 +++| VEM6     JMP    DSE         DISPLAY ERROR AND HANG
22501  M01S00982.271l716 +++|
22502  M01S00983.271l716 +++|
22503  M01S00984.271l716 +++| VEMA     DATA   C*MICROCODE MISMATCH,        *
22504  M01S00985.271l716 +++| VEMB     DATA   C*EI MISMATCH,  *
22505  M01S00986.271l716 +++|          TITLE  MEMORY MANAGEMENT ROUTINES.
22506  M01S00987.271l716 +++| CFC      SPACE  4,10
22507  M01S00988.271l716 +++|**        CFC - CHECK FL CONTROL WORDS.
22508  M01S00989.271l716 +++|*
22509  M01S00990.271l716 +++|*         ENTRY  (T6) = CP/PCP NUMBER.
22510  M01S00991.271l716 +++|*                (AB - AB+4) = FL CONTROL WORD FOR *FLSW*.
22511  M01S00992.271l716 +++|*                (CN - CN+4) = FL CONTROL WORD FOR *FLSW*+1.
22512  M01S00993.271l716 +++|*
22513  M01S00994.271l716 +++|*         CALLS  SCA.
22514  M01S00995.271l716 +++|
22515  M01S00996.271l716 +++|
22516  M01S00997.271l716 +++| CFC      SUBR               ENTRY/EXIT
22517  M01S00998.271l716 +++|          LDD    AB
22518  M01S00999.271l716 +++|          NJN    CFCX        IF NFL ASSIGNED
22519  M01S01000.271l716 +++|          LDD    AB+4
22520  M01S01001.271l716 +++|          ZJN    CFCX        IF NO FL
22521  M01S01002.271l716 +++|          SBD    AB+1
22522  M01S01003.271l716 +++|          STD    AB+4        ADJUST FL
22523  M01S01004.271l716 +++|          STD    CN+4
22524  M01S01005.271l716 +++|          LDD    AB+1        RESET NFL
22525  M01S01006.271l716 +++|          STD    AB
22526  M01S01007.271l716 +++|          RAD    AB+3        ADJUST RA
22527  M01S01008.271l716 +++|          SHN    -14
22528  M01S01009.271l716 +++|          RAD    AB+2
22529  M01S01010.271l716 +++|          LDD    AB
22530  M01S01011.271l716 +++|          RAD    CN+3
22531  M01S01012.271l716 +++|          LDN    0           CLEAR ROLLOUT VALUE OF NFL
22532  M01S01013.271l716 +++|          STD    AB+1
22533  M01S01014.271l716 +++|          LDD    T6          SET CP/PCP ADDRESS
22534  M01S01015.271l716 +++|          RJM    SCA
22535  M01S01016.271l716 +++|          ADN    FLSW+1
22536  M01S01017.271l716 +++|          CWD    CN          STORE FL CONTROL WORDS
22537  M01S01018.271l716 +++|          SBN    1
22538  M01S01019.271l716 +++|          CWD    AB
22539  M01S01020.271l716 +++|          UJN    CFCX        RETURN
22540  M01S01021.271l716 +++| DCB      SPACE  4,15
22541  M01S01022.271l716 +++|**        DCB - DEFINE CM BUFFER SPACE.
22542  M01S01023.271l716 +++|*
22543  M01S01024.271l716 +++|*         EXIT   (EB) = RA/100 FOR *CPUMLD*.
22544  M01S01025.271l716 +++|*
22545  M01S01026.271l716 +++|*         USES   EB, AB - AB+4, CN - CN+4.
22546  M01S01027.271l716 +++|*
22547  M01S01028.271l716 +++|*         CALLS  CMA, RFL.
22548  M01S01029.271l716 +++|
22549  M01S01030.271l716 +++|
22550  M01S01031.271l716 +++| DCB      SUBR               ENTRY/EXIT
22551  M01S01032.271l716 +++|          RJM    RFL         RELEASE FIELD LENGTH
22552  M01S01033.271l716 +++|          LDN    ZERL
22553  M01S01034.271l716 +++|          CRD    AB
22554  M01S01035.271l716 +++|          ADN    RPLP-ZERL   FETCH FWA OF RPL
22555  M01S01036.271l716 +++|          CRD    CN
22556  M01S01037.271l716 +++|          LDC    2S12+AB     CHECK AVAILABLE MEMORY
22557  M01S01038.271l716 +++|          RJM    CMA
22558  M01S01039.271l716 +++|          LDD    AB+1
22559  M01S01040.271l716 +++|          ZJN    DCB2        IF NO FREE MEMORY
22560  M01S01041.271l716 +++|          STD    EB
22561  M01S01042.271l716 +++|          ADC    CPML+PRSL-4001
22562  M01S01043.271l716 +++|          PJN    DCB2        IF REQUIRED FL CROSSES 131K
22563  M01S01044.271l716 +++|          LDD    AB+3
22564  M01S01045.271l716 +++|          SBK    CPML+PRSL
22565  M01S01046.271l716 +++| DCB1     PJN    DCBX        IF ENOUGH FL
22566  M01S01047.271l716 +++| DCB2     LDN    CMRL
22567  M01S01048.271l716 +++|          CRD    AB          GET CMR LENGTH
22568  M01S01049.271l716 +++|          LDD    CN
22569  M01S01050.271l716 +++|          SHN    14          FWA OF RPL
22570  M01S01051.271l716 +++|          LMD    CN+1
22571  M01S01052.271l716 +++|          ADN    77          ROUND RPL ADDRESS
22572  M01S01053.271l716 +++|          SHN    -6
22573  M01S01054.271l716 +++|          STD    EB          SET NEW LOAD ADDRESS FOR *CPUMLD*
22574  M01S01055.271l716 +++|          LDD    AB+4
22575  M01S01056.271l716 +++|          SBK    CPML+PRSL   CHECK FL NEEDED
22576  M01S01057.271l716 +++|          SBD    EB
22577  M01S01058.271l716 +++|          PJN    DCB1        IF REQUIRED FL IN CMR
22578  M01S01059.271l716 +++|          LDC    DCBA
22579  M01S01060.271l716 +++|          JMP    DSE         DISPLAY MESSAGE AND HANG
22580  M01S01061.271l716 +++|
22581  M01S01062.271l716 +++|
22582  M01S01063.271l716 +++| DCBA     DATA   C*LACKING MEMORY FOR CM RECOVERY.*
22583  M01S01064.271l716 +++| FFL      SPACE  4,20
22584  M01S01065.271l716 +++|**        FFL - FIND FORWARD LINK FOR MCT ENTRY.
22585  M01S01066.271l716 +++|*
22586  M01S01067.271l716 +++|*         ENTRY  (KA) = MCT ORDINAL.
22587  M01S01068.271l716 +++|*                (NS) = MCT ENTRY COUNT.
22588  M01S01069.271l716 +++|*                (T2) = MEMORY TYPE INDICATOR.
22589  M01S01070.271l716 +++|*                     = 0 FOR CENTRAL MEMORY.
22590  M01S01071.271l716 +++|*                     = 1 FOR EXTENDED MEMORY.
22591  M01S01072.271l716 +++|*                (CA - CA+1) = RA + FL OF CURRENT CP/PCP.
22592  M01S01073.271l716 +++|*
22593  M01S01074.271l716 +++|*         EXIT   (T7) = FL/FLX AT FORWARD LINK CP/PCP.
22594  M01S01075.271l716 +++|*                (CN+1) = CP/PCP NUMBER OF FORWARD LINK.
22595  M01S01076.271l716 +++|*                (T5 - T6) = RA/RAX AT FORWARD LINK CP/PCP.
22596  M01S01077.271l716 +++|*
22597  M01S01078.271l716 +++|*         ERROR  TO *DSE* IF FL CONTROL WORD ERROR.
22598  M01S01079.271l716 +++|*
Line S01080 Modification History
M01 (Added by) 271l716
M02 (Removed by) set69
Seq #  *Modification Id* Act 
----------------------------+
22599  M02S01080.set69   ---|*         USES   T3, T4, AB - AB+4, CM - CM+4.
Line S00001 Modification History
M01 (Added by) set69
Seq #  *Modification Id* Act 
----------------------------+
22600  M01S00001.set69   +++|*         USES   T3 - T7, CM.
Line S01081 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22601  M01S01081.271l716 +++|*
22602  M01S01082.271l716 +++|*         CALLS  RCW, SCA.
22603  M01S01083.271l716 +++|
22604  M01S01084.271l716 +++|
22605  M01S01085.271l716 +++| FFL7     AOM    CM,T2       SET CP/PCP SELECTED
22606  M01S01086.271l716 +++|          LDD    CN+1
22607  M01S01087.271l716 +++|          ZJN    FFL2        IF FORWARD LINK NOT FOUND
22608  M01S01088.271l716 +++|          RJM    SCA
22609  M01S01089.271l716 +++|          ADN    6           STORE SELECTION STATUS
22610  M01S01090.271l716 +++|          CWD    CM
22611  M01S01091.271l716 +++|
22612  M01S01092.271l716 +++| FFL      SUBR               ENTRY/EXIT
22613  M01S01093.271l716 +++|          LDN    0
22614  M01S01094.271l716 +++|          STD    CN+1        PRESET NO FORWARD LINK
22615  M01S01095.271l716 +++|          CRD    T3
22616  M01S01096.271l716 +++|          LDN    17          INITIALIZE FOR SCAN
22617  M01S01097.271l716 +++|          STD    T5
22618  M01S01098.271l716 +++|
22619  M01S01099.271l716 +++|*         FETCH FL CONTROL WORD FROM CP/PCP AREA.
22620  M01S01100.271l716 +++|
22621  M01S01101.271l716 +++| FFL1     RJM    RCW
22622  M01S01102.271l716 +++|          ZJN    FFL7        IF END OF SEARCH
22623  M01S01103.271l716 +++|          LDD    AB+2
22624  M01S01104.271l716 +++|          SBD    CA          VERIFY FL CONTROL WORD
22625  M01S01105.271l716 +++|          SHN    14
22626  M01S01106.271l716 +++|          ADD    AB+3
22627  M01S01107.271l716 +++|          SBD    CA+1        CHECK RA - CURRENT POSITION
22628  M01S01108.271l716 +++|          SBD    AB
22629  M01S01109.271l716 +++|          PJN    FFL3        IF NOT INVALID RA OR NFL
22630  M01S01110.271l716 +++| FFL2     LDC    =C*FL CONTROL WORD ERROR.*
22631  M01S01111.271l716 +++|          JMP    DSE         DISPLAY ERROR AND HANG
22632  M01S01112.271l716 +++|
22633  M01S01113.271l716 +++| FFL3     LDD    AB+2        COMPARE WITH PREVIOUS DISTANCE
22634  M01S01114.271l716 +++|          SBD    T5
22635  M01S01115.271l716 +++|          SHN    14
22636  M01S01116.271l716 +++|          ADD    AB+3        CHECK RA NEAREST CURRENT POSITION
22637  M01S01117.271l716 +++|          SBD    T6
22638  M01S01118.271l716 +++|          NJN    FFL5        IF NOT SAME RA
22639  M01S01119.271l716 +++|          LDD    T3
22640  M01S01120.271l716 +++|          NJN    FFL1        IF PREVIOUS CP/PCP HAD NFL ASSIGNED
22641  M01S01121.271l716 +++|          LDD    AB
22642  M01S01122.271l716 +++|          NJN    FFL4        IF THIS CP/PCP HAS NFL ASSIGNED
22643  M01S01123.271l716 +++|          LDD    T7
Line S01124 Modification History
M01 (Added by) 271l716
M02 (Removed by) set69
Seq #  *Modification Id* Act 
----------------------------+
22644  M02S01124.set69   ---|          NJN    FFL4        IF CP/PCP WITHOUT FL NOT FOUND
Line S00002 Modification History
M01 (Added by) set69
Seq #  *Modification Id* Act 
----------------------------+
22645  M01S00002.set69   +++|          NJN    FFL4        IF PREVIOUS CP/PCP HAD FL
Line S01125 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22646  M01S01125.271l716 +++|          LDD    NC
22647  M01S01126.271l716 +++|          SBD    T4
Line S01127 Modification History
M01 (Added by) 271l716
M02 (Removed by) set69
Seq #  *Modification Id* Act 
----------------------------+
22648  M02S01127.set69   ---|          PJN    FFL1        IF NOT PCP
Line S00003 Modification History
M01 (Added by) set69
Seq #  *Modification Id* Act 
----------------------------+
22649  M01S00003.set69   +++| FFL3.1   PJN    FFL1        IF NOT PCP
22650  M01S00004.set69   +++|          LDD    KA
22651  M01S00005.set69   +++|          ZJN    FFL1        IF CP00 (CMR)
Line S01128 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22652  M01S01128.271l716 +++| FFL4     LDD    AB+4
22653  M01S01129.271l716 +++|          ZJN    FFL6        IF CP/PCP HAS NO FL ASSIGNED
22654  M01S01130.271l716 +++|
22655  M01S01131.271l716 +++|*         COMMON RA-S W/O FL MUST PRECEDE SAME RA WITH FL.
22656  M01S01132.271l716 +++|
Line S01133 Modification History
M01 (Added by) 271l716
M02 (Removed by) set69
Seq #  *Modification Id* Act 
----------------------------+
22657  M02S01133.set69   ---| FFL5     PJN    FFL1        IF RA FARTHER FROM CURRENT POSITION
Line S00006 Modification History
M01 (Added by) set69
Seq #  *Modification Id* Act 
----------------------------+
22658  M01S00006.set69   +++| FFL5     PJN    FFL3.1      IF RA FARTHER FROM CURRENT POSITION
Line S01134 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22659  M01S01134.271l716 +++|          LDD    AB+2
22660  M01S01135.271l716 +++|          STD    T5
22661  M01S01136.271l716 +++|          LDD    AB+3        SET RA CLOSEST TO CURRENT POSITION
22662  M01S01137.271l716 +++|          STD    T6
22663  M01S01138.271l716 +++|          LDD    AB+4        PRESERVE FL
22664  M01S01139.271l716 +++| FFL6     STD    T7
22665  M01S01140.271l716 +++|          LDD    AB          SAVE NFL
22666  M01S01141.271l716 +++|          STD    T3
22667  M01S01142.271l716 +++|          LDD    T4          DEFINE POTENTIAL FORWARD LINK
22668  M01S01143.271l716 +++|          STD    CN+1
22669  M01S01144.271l716 +++|          UJN    FFL5        LOOP FOR NEXT CP/PCP
22670  M01S01145.271l716 +++| MVE      SPACE  4,10
22671  M01S01146.271l716 +++|**        MVE - MOVE NFL.
22672  M01S01147.271l716 +++|*
22673  M01S01148.271l716 +++|*         ENTRY  (CA - CA+1) = RA - NFL OF PREVIOUS CP.
22674  M01S01149.271l716 +++|*                (AB - AB+4) = FL CONTROL WORD.
22675  M01S01150.271l716 +++|*                (CN - CN+4) = FL CONTROL WORD.
22676  M01S01151.271l716 +++|*
22677  M01S01152.271l716 +++|*         USES   AB+2, AB+3, CN+1, CN+2, CM - CM+4.
22678  M01S01153.271l716 +++|
22679  M01S01154.271l716 +++|
22680  M01S01155.271l716 +++| MVE3     ADD    AB+3        COMPUTE RA + FL
22681  M01S01156.271l716 +++|          STD    T0
22682  M01S01157.271l716 +++|          SHN    -14
22683  M01S01158.271l716 +++|          ADD    AB+2        COMPARE WITH NEXT RA - NFL
22684  M01S01159.271l716 +++|          SBD    CA
22685  M01S01160.271l716 +++|          NJN    MVE1        IF MOVE REQUIRED
22686  M01S01161.271l716 +++|          LDD    T0
22687  M01S01162.271l716 +++|          LMD    CA+1
22688  M01S01163.271l716 +++|          NJN    MVE1        IF NOT CP-S WITH ADJOINING FL
22689  M01S01164.271l716 +++|
22690  M01S01165.271l716 +++| MVE      SUBR               ENTRY/EXIT
22691  M01S01166.271l716 +++|          LDD    CN+4
22692  M01S01167.271l716 +++|          NJN    MVE3        IF RECOVERED SUBSYSTEM (PRESERVE FL)
22693  M01S01168.271l716 +++| MVE1     LDD    AB+2
22694  M01S01169.271l716 +++|          SHN    14
22695  M01S01170.271l716 +++|          LMD    AB+3
22696  M01S01171.271l716 +++|          SBD    AB          SET RA - NFL FOR MOVE
22697  M01S01172.271l716 +++|          STD    CM+3
22698  M01S01173.271l716 +++|          STD    CM+2
22699  M01S01174.271l716 +++|          SHN    -14
22700  M01S01175.271l716 +++|          STD    CM+1
22701  M01S01176.271l716 +++|          LDD    CA          SET RA FOR CP
22702  M01S01177.271l716 +++|          SHN    14
22703  M01S01178.271l716 +++|          LMD    CA+1
22704  M01S01179.271l716 +++|          SBD    CN+4
22705  M01S01180.271l716 +++|          STD    AB+3
22706  M01S01181.271l716 +++|          SHN    -14
22707  M01S01182.271l716 +++|          STD    AB+2
22708  M01S01183.271l716 +++|          SHN    14
22709  M01S01184.271l716 +++|          LMD    AB+3
22710  M01S01185.271l716 +++|          SBD    AB          SET NEW RA - NFL
22711  M01S01186.271l716 +++|          STD    CM+4
22712  M01S01187.271l716 +++|          STD    CN+2
22713  M01S01188.271l716 +++|          SHN    -14
22714  M01S01189.271l716 +++|          STD    CN+1
22715  M01S01190.271l716 +++|          LDD    AB
22716  M01S01191.271l716 +++|          ZJN    MVEX        IF NO NFL
22717  M01S01192.271l716 +++|          ADD    CN+4
22718  M01S01193.271l716 +++|          SBN    1
22719  M01S01194.271l716 +++|          STD    CM
22720  M01S01195.271l716 +++|          LDD    HO
22721  M01S01196.271l716 +++|          SHN    0-13
22722  M01S01197.271l716 +++|          NJN    MVE2        IF NOT CME MAINFRAME
22723  M01S01198.271l716 +++|          LDC    4000
22724  M01S01199.271l716 +++|          STD    CM+3
22725  M01S01200.271l716 +++|          STD    CM+4
22726  M01S01201.271l716 +++| MVE2     LRD    CM+1
22727  M01S01202.271l716 +++|          LDD    CM+3        READ BLOCK OF NFL
22728  M01S01203.271l716 +++|          ADD    CM
22729  M01S01204.271l716 +++|          SHN    6
22730  M01S01205.271l716 +++|          CRM    MBUF,HN
22731  M01S01206.271l716 +++|          LRD    CN+1
22732  M01S01207.271l716 +++|          LDD    CM+4        MOVE NFL
22733  M01S01208.271l716 +++|          ADD    CM
22734  M01S01209.271l716 +++|          SHN    6
22735  M01S01210.271l716 +++|          CWM    MBUF,HN
22736  M01S01211.271l716 +++|          SOD    CM
22737  M01S01212.271l716 +++|          PJN    MVE2        IF NOT END OF MOVE
22738  M01S01213.271l716 +++|          LJM    MVEX        RETURN
22739  M01S01214.271l716 +++| RCW      SPACE  4,20
22740  M01S01215.271l716 +++|**        RCW - READ FL CONTROL WORD FROM CP/PCP AREA.
22741  M01S01216.271l716 +++|*
22742  M01S01217.271l716 +++|*         ENTRY  (T2) = MEMORY TYPE INDICATOR.
22743  M01S01218.271l716 +++|*                     = 0 FOR CENTRAL MEMORY.
22744  M01S01219.271l716 +++|*                     = 1 FOR EXTENDED MEMORY.
22745  M01S01220.271l716 +++|*                (T4) = PREVIOUS CP/PCP NUMBER.
22746  M01S01221.271l716 +++|*                (KA) = CURRENT CP/PCP NUMBER.
22747  M01S01222.271l716 +++|*                (LA) = RELATIVE CONTROL WORD ADDRESS.
22748  M01S01223.271l716 +++|*                (NS) = NUMBER OF MCT ENTRIES.
22749  M01S01224.271l716 +++|*
22750  M01S01225.271l716 +++|*         EXIT   (A) = 0 IF END OF CP/PCP SCAN.
22751  M01S01226.271l716 +++|*                (T4) = CP/PCP FOR FL CONTROL WORD.
22752  M01S01227.271l716 +++|*                (AB - AB+4) = FL CONTROL WORD.
22753  M01S01228.271l716 +++|*                (CM - CM+4) = CP/PCP *CRCW* WORD.
22754  M01S01229.271l716 +++|*
22755  M01S01230.271l716 +++|*         CALLS  GHA, SCA.
22756  M01S01231.271l716 +++|
22757  M01S01232.271l716 +++|
22758  M01S01233.271l716 +++| RCW      SUBR               ENTRY/EXIT
22759  M01S01234.271l716 +++| RCW1     AOD    T4
22760  M01S01235.271l716 +++|          LMD    NS
22761  M01S01236.271l716 +++|          ZJN    RCWX        IF END OF SEARCH
22762  M01S01237.271l716 +++|          LMD    NS
22763  M01S01238.271l716 +++|          LMD    KA
22764  M01S01239.271l716 +++|          ZJN    RCW1        IF CURRENT CP/PCP
22765  M01S01240.271l716 +++|          LDD    T4
22766  M01S01241.271l716 +++|          RJM    SCA         SET CP/PCP AREA ADDRESS
22767  M01S01242.271l716 +++|          ADD    LA
22768  M01S01243.271l716 +++|          CRD    AB          READ FL CONTROL WORD
22769  M01S01244.271l716 +++|          SBD    LA
22770  M01S01245.271l716 +++|          ADN    6           GET CP SELECTION STATUS
22771  M01S01246.271l716 +++|          CRD    CM
22772  M01S01247.271l716 +++|          LDM    CM,T2
22773  M01S01248.271l716 +++|          NJN    RCW1        IF THIS CP/PCP ALREADY FORWARD LINK
22774  M01S01249.271l716 +++|          LDD    T4
22775  M01S01250.271l716 +++| RCW2     LMD    NC
22776  M01S01251.271l716 +++|          NJN    RCWX        IF NOT SYSTEM CP
22777  M01S01252.271l716 +++|          LDD    LA
22778  M01S01253.271l716 +++|          RJM    GHA         GET HIGHEST MEMORY ADDRESS
22779  M01S01254.271l716 +++|*         LDN    0
22780  M01S01255.271l716 +++|          UJN    RCW2        RETURN
22781  M01S01256.271l716 +++| RFL      SPACE  4,15
22782  M01S01257.271l716 +++|**        RFL - RELEASE FIELD LENGTH.
22783  M01S01258.271l716 +++|*
22784  M01S01259.271l716 +++|*         ENTRY  (NC) = SYSTEM CP NUMBER.
22785  M01S01260.271l716 +++|*                (FL - FL+1) = EXECUTION FIELD LENGTH.
22786  M01S01261.271l716 +++|*
22787  M01S01262.271l716 +++|*         EXIT   FL OF USER JOBS AT CP-S RELEASED.
22788  M01S01263.271l716 +++|*                FL OF NON-RECOVERED SUBSYSTEMS RELEASED.
22789  M01S01264.271l716 +++|*
22790  M01S01265.271l716 +++|*         USES   AB - AB+4, CA - CA+1, CM - CM+4, CN - CN+4, T5 - T7.
22791  M01S01266.271l716 +++|*
22792  M01S01267.271l716 +++|*         CALLS  CFC, MVE, SCA, RMT.
22793  M01S01268.271l716 +++|
22794  M01S01269.271l716 +++|
22795  M01S01270.271l716 +++| RFL8     RJM    RMT         REBUILD MEMORY CONTROL TABLE
22796  M01S01271.271l716 +++|          LDN    ACML
22797  M01S01272.271l716 +++|          CWM    .ACML,ON    STORE UNASSIGNED MEMORY
22798  M01S01273.271l716 +++|
22799  M01S01274.271l716 +++| RFL      SUBR               ENTRY/EXIT
22800  M01S01275.271l716 +++|          RJM    RMT
22801  M01S01276.271l716 +++|          LDD    FL
22802  M01S01277.271l716 +++|          STD    CN+1        SET EXECUTION MEMORY SIZE
22803  M01S01278.271l716 +++|          LDD    FL+1
22804  M01S01279.271l716 +++|          STD    CN+2
22805  M01S01280.271l716 +++|          LDD    NC          START BACKWARDS FROM SYSTEM CP
22806  M01S01281.271l716 +++|          STD    T6
22807  M01S01282.271l716 +++| RFL1     LDD    CN+1        SAVE RA - NFL
22808  M01S01283.271l716 +++|          STD    CA
22809  M01S01284.271l716 +++|          LDD    CN+2
22810  M01S01285.271l716 +++|          STD    CA+1
22811  M01S01286.271l716 +++|          LDD    T6          FORM MCT INDEX
22812  M01S01287.271l716 +++|          SHN    1
22813  M01S01288.271l716 +++|          ADC    0           APPEND BASE MCT ADDRESS
22814  M01S01289.271l716 +++| RFLA     EQU    *-1
22815  M01S01290.271l716 +++|          CRD    T6          READ MCT ENTRY
22816  M01S01291.271l716 +++|          LDD    T6
22817  M01S01292.271l716 +++|          ZJN    RFL8        IF BACK LINKED TO CP ZERO
22818  M01S01293.271l716 +++|          RJM    SCA
Line S01294 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
22819  M02S01294.271l750 ---|          ADN    JCIW        READ JOB CONTROL
22820  M02S01295.271l750 ---|          CRD    CM
22821  M02S01296.271l750 ---|          ADN    FLSW-JCIW   READ FL CONTROL WORDS
Line S00232 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
22822  M01S00232.271l750 +++|          ADN    FLSW        READ FL CONTROL WORDS
Line S01297 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22823  M01S01297.271l716 +++|          CRD    AB
22824  M01S01298.271l716 +++|          ADN    1
22825  M01S01299.271l716 +++|          CRD    CN
Line S00233 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
22826  M01S00233.271l750 +++|          ADN    JCIW-FLSW-1 READ JOB CONTROL
22827  M01S00234.271l750 +++|          CRD    CM
Line S01300 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22828  M01S01300.271l716 +++|          RJM    CFC         CHECK FL CONTROL WORDS
22829  M01S01301.271l716 +++|          LDD    T6
22830  M01S01302.271l716 +++|          SBD    NC
22831  M01S01303.271l716 +++|          PJN    RFL4        IF PSEUDO CONTROL POINT
22832  M01S01304.271l716 +++|          LDC    TRSS
22833  M01S01305.271l716 +++|          STD    T5
22834  M01S01306.271l716 +++|          LDI    T5          CHECK SUBSYSTEM ID
22835  M01S01307.271l716 +++| RFL2     LMD    CM+2
22836  M01S01308.271l716 +++|          ZJN    RFL3        IF RECOVERED SUBSYSTEM
22837  M01S01309.271l716 +++|          AOD    T5
22838  M01S01310.271l716 +++|          LDI    T5
22839  M01S01311.271l716 +++|          NJN    RFL2        IF NOT END OF TABLE
22840  M01S01312.271l716 +++|          STD    CN+4
22841  M01S01313.271l716 +++| RFL3     LDD    T6          CHECK CONTROL POINT
22842  M01S01314.271l716 +++|          LMN    1
22843  M01S01315.271l716 +++|          ZJN    RFL5        IF FIRST CP (NO MOVE)
22844  M01S01316.271l716 +++| RFL4     RJM    MVE
22845  M01S01317.271l716 +++| RFL5     LDD    CN+4        CLEAR FL ASSIGNMENT
22846  M01S01318.271l716 +++|          STD    AB+4
22847  M01S01319.271l716 +++|          LDD    T6          SET CP/PCP ADDRESS
22848  M01S01320.271l716 +++|          RJM    SCA
22849  M01S01321.271l716 +++|          ADN    FLSW+1
22850  M01S01322.271l716 +++|          CWD    CN          RESET FL CONTROL WORDS
22851  M01S01323.271l716 +++|          SBN    1
22852  M01S01324.271l716 +++|          CWD    AB
22853  M01S01325.271l716 +++|          ADN    ECSW-FLSW   FETCH EXTENDED MEMORY CONTROL WORD
22854  M01S01326.271l716 +++|          CRD    CM
22855  M01S01327.271l716 +++|          ADC    CPAS
22856  M01S01328.271l716 +++|          CRD    AB
22857  M01S01329.271l716 +++|          SHN    -7
22858  M01S01330.271l716 +++|          LMD    NC
22859  M01S01331.271l716 +++|          NJN    RFL6        IF NOT LAST CP
22860  M01S01332.271l716 +++|          LDD    AB+3
22861  M01S01333.271l716 +++|          ADD    AB+4
22862  M01S01334.271l716 +++|          STD    CM+3        SET RAX TO END OF USER XM BLOCK
22863  M01S01335.271l716 +++|          SHN    -14
22864  M01S01336.271l716 +++|          ADD    AB+2
22865  M01S01337.271l716 +++|          STD    CM+2
22866  M01S01338.271l716 +++| RFL6     LDD    CN+4
22867  M01S01339.271l716 +++|          NJN    RFL7        IF RECOVERED SUBSYSTEM
22868  M01S01340.271l716 +++|*         LDN    0
22869  M01S01341.271l716 +++|          STD    CM+4        CLEAR FLX
22870  M01S01342.271l716 +++|          LDD    T6
22871  M01S01343.271l716 +++|          RJM    SCA
22872  M01S01344.271l716 +++|          ADN    ECSW        UPDATE CP/PCP AREA
22873  M01S01345.271l716 +++|          CWD    CM
22874  M01S01346.271l716 +++| RFL7     LJM    RFL1        LOOP FOR NEXT CP
22875  M01S01347.271l716 +++|
22876  M01S01348.271l716 +++|
22877  M01S01349.271l716 +++| TRSS     BSS    0           TABLE OF RECOVERED SUBSYSTEMS
22878  M01S01350.271l716 +++|          CON    IFSI        IAF
22879  M01S01351.271l716 +++|          CON    TRSI        TAF
22880  M01S01352.271l716 +++|          CON    BISI        BATCHIO
22881  M01S01353.271l716 +++|          CON    MTSI        MAGNET
22882  M01S01354.271l716 +++|          CON    SMSI        SMF
22883  M01S01355.271l716 +++|          CON    NVSI        NVE
22884  M01S01356.271l716 +++|          CON    FZSI        FROZEN JOB
22885  M01S01357.271l716 +++|          CON    0           END OF TABLE
22886  M01S01358.271l716 +++| RMT      SPACE  4,10
22887  M01S01359.271l716 +++|**        RMT - REBUILD MEMORY CONTROL TABLE.
22888  M01S01360.271l716 +++|*
22889  M01S01361.271l716 +++|*         ENTRY  (NC) = SYSTEM CP NUMBER.
22890  M01S01362.271l716 +++|*                (NS) = NUMBER OF MCT ENTRIES.
22891  M01S01363.271l716 +++|*
22892  M01S01364.271l716 +++|*         USES   KA, KB, LA, ST, CA - CA+1, CN - CN+4, T2 - T7.
22893  M01S01365.271l716 +++|*
22894  M01S01366.271l716 +++|*         CALLS  CTE, FFL, SCA.
22895  M01S01367.271l716 +++|
22896  M01S01368.271l716 +++|
22897  M01S01369.271l716 +++| RMT3     RJM    FFL         FIND FORWARD LINK FOR MCT ENTRY
22898  M01S01370.271l716 +++|          LDD    KA
22899  M01S01371.271l716 +++|          NJN    RMT5        IF NOT CP ZERO
22900  M01S01372.271l716 +++|          LDD    CN+1
22901  M01S01373.271l716 +++|          LMN    1
22902  M01S01374.271l716 +++|          ZJN    RMT6        IF CORRECT FORWARD LINK
22903  M01S01375.271l716 +++|*         LDC    =C*FL CONTROL WORD ERROR.*
22904  M01S01376.271l716 +++| RMT4     LJM    FFL2        DISPLAY ERROR AND HANG
22905  M01S01377.271l716 +++|
22906  M01S01378.271l716 +++| RMT5     ADN    1           CHECK CURRENT CP/PCP
22907  M01S01379.271l716 +++|          LMD    NC
22908  M01S01380.271l716 +++|          NJN    RMT6        IF NOT LAST CP
22909  M01S01381.271l716 +++|          LDD    NC
22910  M01S01382.271l716 +++|          LMD    CN+1
22911  M01S01383.271l716 +++|          NJN    RMT4        IF NOT LINKED TO SYSTEM CP
22912  M01S01384.271l716 +++| RMT6     LDD    LA
22913  M01S01385.271l716 +++|          RJM    CTE         CREATE MCT ENTRY
22914  M01S01386.271l716 +++| RMT7     LDD    T7
22915  M01S01387.271l716 +++|          ADD    T6          SET RA/RAX + FL/FLX
22916  M01S01388.271l716 +++|          STD    CA+1
22917  M01S01389.271l716 +++|          SHN    -14
22918  M01S01390.271l716 +++|          ADD    T5          ADJUST CURRENT POSITION
22919  M01S01391.271l716 +++|          STD    CA
22920  M01S01392.271l716 +++|          LDD    KA          NEW BACKWARD LINK
22921  M01S01393.271l716 +++|          STD    CN
22922  M01S01394.271l716 +++|          LDD    CN+1        SET NEXT CP/PCP
22923  M01S01395.271l716 +++|          STD    KA
22924  M01S01396.271l716 +++|          SOD    KB
22925  M01S01397.271l716 +++|          NJN    RMT3        IF NOT END OF CP/PCP-S
22926  M01S01398.271l716 +++|          STD    CN+1
22927  M01S01399.271l716 +++|          LDD    KA          CHECK NEXT CP
22928  M01S01400.271l716 +++|          LMD    NC
22929  M01S01401.271l716 +++|          NJN    RMT4        IF NOT SYSTEM CP
22930  M01S01402.271l716 +++|          LDD    LA
22931  M01S01403.271l716 +++|          RJM    CTE         CREATE MCT ENTRY FOR SYSTEM CP
22932  M01S01404.271l716 +++|          SOD    ST
22933  M01S01405.271l716 +++|          LMN    ECRL
22934  M01S01406.271l716 +++|          PJN    RMT2        IF XM YET TO BE PROCESSED
22935  M01S01407.271l716 +++|
22936  M01S01408.271l716 +++| RMT      SUBR               ENTRY/EXIT
22937  M01S01409.271l716 +++|          LDN    1
22938  M01S01410.271l716 +++|          STD    T2
22939  M01S01411.271l716 +++| RMT1     LDD    T2          SET CP/PCP ADDRESS
22940  M01S01412.271l716 +++|          RJM    SCA
22941  M01S01413.271l716 +++|          ADN    6           READ *MA* WORD OF EXCHANGE PACKAGE
22942  M01S01414.271l716 +++|          CRD    CM
22943  M01S01415.271l716 +++|          STD    ST          SAVE PARTIAL ADDRESS
22944  M01S01416.271l716 +++|          LMD    ST
22945  M01S01417.271l716 +++|          STD    CM+1        CLEAR MONITOR ADDRESS FIELD
22946  M01S01418.271l716 +++|          STD    CM
22947  M01S01419.271l716 +++|          LMD    ST          STORE CP/PCP SELECTION STATUS
22948  M01S01420.271l716 +++|          CWD    CM
22949  M01S01421.271l716 +++|          AOD    T2          ADVANCE CP/PCP NUMBER
22950  M01S01422.271l716 +++|          LMD    NS
22951  M01S01423.271l716 +++|          NJN    RMT1        IF MORE CP/PCP-S
22952  M01S01424.271l716 +++|*         LDN    0
22953  M01S01425.271l716 +++|          CRM    .ACML,ON    CLEAR UNASSIGNED MEMORY ACCUMULATOR
22954  M01S01426.271l716 +++| RMTA     LDN    1
22955  M01S01427.271l716 +++|*         LDN    0           (NO USER EXTENDED MEMORY)
22956  M01S01428.271l716 +++|          STD    ST
22957  M01S01429.271l716 +++|          LDN    CMRL
22958  M01S01430.271l716 +++| RMT2     STD    LA          SET FL CONTROL WORD ADDRESS
22959  M01S01431.271l716 +++|          CRD    T3
22960  M01S01432.271l716 +++|          SBN    FLSW
22961  M01S01433.271l716 +++|          ERRNZ  FLSW+2-ECSW  CODE DEPENDS ON VALUE
22962  M01S01434.271l716 +++|          SHN    -1
22963  M01S01435.271l716 +++|          STD    T2          SET MEMORY TYPE INDICATOR
22964  M01S01436.271l716 +++|          CRD    CN
22965  M01S01437.271l716 +++|          LDN    0           INITIALIZE FOR CP ZERO
22966  M01S01438.271l716 +++|          STD    KA
22967  M01S01439.271l716 +++|          LDD    NS          SET LOOP COUNT
22968  M01S01440.271l716 +++|          STD    KB
22969  M01S01441.271l716 +++|          LJM    RMT7        INITIALIZE CURRENT POSITION
22970  M01S01442.271l716 +++|          SPACE  4,10
22971  M01S01443.271l716 +++|**        COMMON DECKS.
22972  M01S01444.271l716 +++|
22973  M01S01445.271l716 +++|
22974  M01S01446.271l716 +++|          LIST   X
22975  M01S01447.271l716 +++|*CALL     COMPCMA
22976  M01S01448.271l716 +++|          LIST   *
22977  M01S01449.271l716 +++|          SPACE  4,10
22978  M01S01450.271l716 +++|          USE    LITERALS    DUMP LITERALS BLOCK
22979  M01S01451.271l716 +++|          SPACE  4,10
22980  M01S01452.271l716 +++|          ERRNG  MBUF-*      OVERFLOW INTO BUFFER
22981  M01S01453.271l716 +++|          SPACE  4,10
22982  M01S01454.271l716 +++|**        COMMON SUBROUTINES.
22983  M01S01455.271l716 +++|
22984  M01S01456.271l716 +++|
22985  M01S01457.271l716 +++|          NVECPU
22986  M01S01458.271l716 +++|
22987  M01S01459.271l716 +++| INO      SPACE  4,15
22988  M01S01460.271l716 +++|**        INO - INITIALIZE OVERLAY.
22989  M01S01461.271l716 +++|*
22990  M01S01462.271l716 +++|*         EXIT   (NC) = SYSTEM CP NUMBER.
22991  M01S01463.271l716 +++|*                (NS) = NUMBER OF MCT ENTRIES.
22992  M01S01464.271l716 +++|*                (FL - FL+1) = CM EXECUTION FL.
22993  M01S01465.271l716 +++|*
22994  M01S01466.271l716 +++|*         ERROR  TO *DSE* IF CONSOLE TYPE CHANGED BY DEADSTART.
22995  M01S01467.271l716 +++|*
22996  M01S01468.271l716 +++|*         USES   T3, AB - AB+4, CA - CA+1, CM - CM+4, CN - CN+4.
22997  M01S01469.271l716 +++|*
22998  M01S01470.271l716 +++|*         CALLS  CLS, RPN.
22999  M01S01471.271l716 +++|*
23000  M01S01472.271l716 +++|*         MACROS MCTPRS, SFA.
23001  M01S01473.271l716 +++|
23002  M01S01474.271l716 +++|
23003  M01S01475.271l716 +++| INO      SUBR               ENTRY/EXIT
23004  M01S01476.271l716 +++|          LDC    TCMB
23005  M01S01477.271l716 +++|          STD    T3
23006  M01S01478.271l716 +++|          LDN    0           CLEAR CMR BLOCKS
23007  M01S01479.271l716 +++|          STD    CA
23008  M01S01480.271l716 +++|          LDI    T3          SET CM ADDRESS
23009  M01S01481.271l716 +++| INO1     STD    CA+1
23010  M01S01482.271l716 +++|          AOD    T3
23011  M01S01483.271l716 +++|          LDI    T3          CALCULATE WORD COUNT
23012  M01S01484.271l716 +++|          SBD    CA+1
23013  M01S01485.271l716 +++|          RJM    CLS         CLEAR CMR
23014  M01S01486.271l716 +++|          AOD    T3
23015  M01S01487.271l716 +++|          LDI    T3
23016  M01S01488.271l716 +++|          NJN    INO1        IF ALL BLOCKS NOT CLEARED
23017  M01S01489.271l716 +++|          LDN    NCPL
23018  M01S01490.271l716 +++|          CRD    CM          GET CP COUNT
23019  M01S01491.271l716 +++|          ADN    MABL-NCPL
23020  M01S01492.271l716 +++|          CRD    CN          READ MEMORY POINTERS
23021  M01S01493.271l716 +++|          ADN    MCTP-MABL
23022  M01S01494.271l716 +++|          CRD    AB
23023  M01S01495.271l716 +++|          AOD    CM+1        SET SYSTEM CP NUMBER
23024  M01S01496.271l716 +++|          STD    NC
23025  M01S01497.271l716 +++|          LDD    CN+2        SET EXECUTION MEMORY SIZE
23026  M01S01498.271l716 +++|          STD    FL
23027  M01S01499.271l716 +++|          LDD    CN+3
23028  M01S01500.271l716 +++|          STD    FL+1
23029  M01S01501.271l716 +++|          LDD    AB+1        SET MCT BASE ADDRESS
23030  M01S01502.271l716 +++|          STM    RFLA
23031  M01S01503.271l716 +++|          LDD    AB
23032  M01S01504.271l716 +++|          RAM    RFLA-1
23033  M01S01505.271l716 +++|          LDN    ECRL        FETCH EXTENDED MEMORY STATUS
23034  M01S01506.271l716 +++|          CRD    CM
23035  M01S01507.271l716 +++|          LDD    CM+1
23036  M01S01508.271l716 +++|          NJN    INO2        IF USER XM DEFINED
23037  M01S01509.271l716 +++|          SOM    RMTA
23038  M01S01510.271l716 +++| INO2     MCTPRS             SET UP *MCTSUB* ROUTINES
23039  M01S01511.271l716 +++|          LDN    DSEQ
23040  M01S01512.271l716 +++|          SFA    EST         FETCH EST ENTRY FOR DISPLAY CONSOLE
23041  M01S01513.271l716 +++|          ADK    EQAE
23042  M01S01514.271l716 +++|          CRD    CN
23043  M01S01515.271l716 +++|          LDM    .DCS
23044  M01S01516.271l716 +++|          ZJN    INO3        IF DEADSTART INITIATED FROM CC545
23045  M01S01517.271l716 +++|          LDN    1
23046  M01S01518.271l716 +++| INO3     LMD    CN+2
23047  M01S01519.271l716 +++|          NJN    INO4        IF CONSOLE TYPE CHANGED
23048  M01S01520.271l716 +++|          RJM    RPN
23049  M01S01521.271l716 +++|          LJM    INOX        RETURN
23050  M01S01522.271l716 +++|
23051  M01S01523.271l716 +++| INO4     LDC    INOA
23052  M01S01524.271l716 +++|          LJM    DSE         DISPLAY ERROR AND HANG
23053  M01S01525.271l716 +++|
23054  M01S01526.271l716 +++|
23055  M01S01527.271l716 +++| INOA     DATA   C*CONSOLE TYPE CHANGED.*
23056  M01S01528.271l716 +++| TCMB     SPACE  4,10
23057  M01S01529.271l716 +++|**        TCMB - TABLE OF CMR BLOCKS CLEARED FOR RECOVERY.
23058  M01S01530.271l716 +++|
23059  M01S01531.271l716 +++|
23060  M01S01532.271l716 +++| TCMB     CON    0,JSNL
23061  M01S01533.271l716 +++|          CON    CMCL,ZERL
23062  M01S01534.271l716 +++|          CON    CPAL,DSDL
23063  M01S01535.271l716 +++|          CON    DSCP*CPAS+MS1W,DSCP*CPAS+MS1W+10
23064  M01S01536.271l716 +++|          CON    0           END OF TABLE
23065  M01S01537.271l716 +++|          SPACE  4,10
23066  M01S01538.271l716 +++|          QUAL
23067  M01S01539.271l716 +++| RCM      EQU    /RCM/RCM
23068  M01S01540.271l716 +++| RCTL     EQU    /RCM/RCTL
23069  M01S01541.271l716 +++|
23070  M01S01542.271l716 +++|
23071  M01S01543.271l716 +++|          ERRNG  7777-*-4    IF OVERFLOW OF PP
23072  M01S01544.271l716 +++|          TTL    SET/RCT - RECOVER CMR TABLES.
23073  M01S01545.271l716 +++|          TITLE
23074  M01S01546.271l716 +++|          IDENT  RCT,RCTL
23075  M01S01547.271l716 +++|          QUAL   RCT
23076  M01S01548.271l716 +++|          ORG    RCTL
23077  M01S01549.271l716 +++|*COMMENT  SET - RECOVER CMR TABLES.
Line S01550 Modification History
M01 (Added by) 271l716
M02 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
23078  M02S01550.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1987.
Line S00011 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
23079  M01S00011.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S01551 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23080  M01S01551.271l716 +++|          SPACE  4,10
23081  M01S01552.271l716 +++| .DSE     SET    0
23082  M01S01553.271l716 +++| RCT      SPACE  4,10
23083  M01S01554.271l716 +++|**        RCT - RECOVER CMR TABLES.
23084  M01S01555.271l716 +++|
23085  M01S01556.271l716 +++|
Line S01557 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
23086  M02S01557.ns2783  ---| RCT      RJM    MDG         MODIFY DISPLAY GENERATORS
Line S00150 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
23087  M01S00150.ns2783  +++| RCT      BSS    0           ENTRY
23088  M01S00151.ns2783  +++|          RJM    PRT         PRESET *RCT*
23089  M00S15761.set     +++|
23090  M00S15762.set     +++|*         VERIFY CMR TABLES.
23091  M00S15763.set     +++|
23092  M00S15764.set     +++|          LDN    0
23093  M00S15765.set     +++|          STD    LA
Line S15766 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23094  M01S15766.271l716 ---| RCM1     LDM    TCTP,LA     SET PROCESSOR ADDRESS
Line S01558 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23095  M01S01558.271l716 +++| RCT1     LDM    TCTP,LA     SET PROCESSOR ADDRESS
23096  M00S15767.set     +++|          STD    T1
23097  M00S15768.set     +++|          RJM    0,T1        VERIFY TABLE
23098  M00S15769.set     +++|
23099  M00S15770.set     +++|*         PROCESSORS RETURN WITH (A) = TABLE LENGTH OR 0.
23100  M00S15771.set     +++|
23101  M00S15772.set     +++|          RAD    CA+1        ADVANCE CENTRAL ADDRESS
23102  M00S15773.set     +++|          SHN    -14
23103  M00S15774.set     +++|          RAD    CA
23104  M00S15775.set     +++|          AOD    LA          INCREMENT TABLE NUMBER
23105  M00S15776.set     +++|          LMN    TSGTE
Line S15777 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23106  M01S15777.271l716 ---|          NJN    RCM1        IF NOT END OF TABLES
Line S15778 Modification History
M01 (Removed by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23107  M02S15778.271l716 ---|          RJM    CMI         CLEAR MDI LOAD INTERLOCK
Line S00001 Modification History
M01 (Added by) set53
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23108  M02S00001.271l716 ---|          RJM    CEI         CLEAR EST INTERLOCKS
Line S15779 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23109  M01S15779.271l716 ---|          RJM    VEM         VERIFY EI LEVEL AND MICROCODE NAME
23110  M01S15780.271l716 ---|          RJM    CKB         CLEAR KEYBOARD BUFFER
Line S01559 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23111  M01S01559.271l716 +++|          NJN    RCT1        IF NOT END OF TABLES
23112  M00S15781.set     +++|
23113  M00S15782.set     +++|*         COMPLETE TABLES.
23114  M00S15783.set     +++|
Line S01560 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23115  M01S01560.271l716 +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
23116  M00S15784.set     +++|          LDC    BIOL
23117  M00S15785.set     +++|          CRD    CN
Line S15786 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23118  M01S15786.ns2535  ---|          LDN    CMRL
23119  M01S15787.ns2535  ---|          CRD    CM
23120  M00S15788.set     +++|          LDD    CA          SET CM ADDRESS
23121  M00S15789.set     +++|          STD    CN+3
23122  M00S15790.set     +++|          SHN    14
23123  M00S15791.set     +++|          LMD    CA+1
23124  M00S15792.set     +++|          STD    CN+4
23125  M00S15793.set     +++|          ADN    77
23126  M00S15794.set     +++|          SHN    -6
Line S15795 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23127  M01S15795.ns2535  ---|          STD    CM+4
Line S00001 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23128  M01S00001.ns2535  +++|          STD    T0
23129  M00S15796.set     +++|          LDD    EB          SET LOAD ADDRESS FOR *CPUMLD*
23130  M00S15797.set     +++|          STD    CN
Line S15798 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23131  M01S15798.ns2535  ---|          SBD    CM+4
Line S00002 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23132  M01S00002.ns2535  +++|          SBD    T0
Line S15799 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23133  M01S15799.271l716 ---|          PJN    RCM2        IF NO CMR OVERFLOW
Line S01561 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23134  M01S01561.271l716 +++|          PJN    RCT2        IF NO CMR OVERFLOW
23135  M00S15800.set     +++|          LDC    =C*CMR OVERFLOW.*
23136  M00S15801.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
23137  M00S15802.set     +++|
Line S15803 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23138  M01S15803.271l716 ---| RCM2     LDC    BIOL        STORE CPUMTR LOAD ADDRESS
Line S01562 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23139  M01S01562.271l716 +++| RCT2     LDC    BIOL        STORE CPUMTR LOAD ADDRESS
23140  M00S15804.set     +++|          CWD    CN
Line S15805 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23141  M01S15805.ns2535  ---|          LDN    CMRL        STORE CMR LENGTH
23142  M01S15806.ns2535  ---|          CWD    CM
23143  M01S15807.ns2535  ---|          LDC    DSCP*CPAS+SNSW
Line S00003 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23144  M01S00003.ns2535  +++|          ADK    DSCP*CPAS+SNSW-BIOL
23145  M00S15808.set     +++|          CRD    CM
23146  M00S15809.set     +++|          LDD    CM+4        CLEAR *DSD* RECOVERY INTERLOCK
23147  M00S15810.set     +++|          SCN    1
23148  M00S15811.set     +++|          STD    CM+4
23149  M00S15812.set     +++|          LDC    DSCP*CPAS+SNSW
23150  M00S15813.set     +++|          CWD    CM
23151  M00S15814.set     +++|          RJM    DRO         DISPLAY RECOVERY OPTIONS
23152  M00S15815.set     +++|          LJM    SET2        COMPLETE RECOVERY
23153  M00S15816.set     +++|          TITLE  TABLE VERIFICATION PROCESSORS.
23154  M00S15817.set     +++| BDT      SPACE  4,10
23155  M00S15818.set     +++|**        BDT - ALLOCATE BUFFERED DEVICE CONTROL TABLES.
23156  M00S15819.set     +++|*
23157  M00S15820.set     +++|*         EXIT   (A) = TABLE LENGTH.
23158  M00S15821.set     +++|*
23159  M00S15822.set     +++|*         USES   T1, CN - CN+4.
23160  M00S15823.set     +++|*
23161  M00S15824.set     +++|*         CALLS  CLS, CTA.
23162  M00S15825.set     +++|
23163  M00S15826.set     +++|
23164  M00S15827.set     +++| BDT      SUBR               ENTRY/EXIT
23165  M00S15828.set     +++|          LDC    BIOL
23166  M00S15829.set     +++|          CRD    CN
23167  M00S15830.set     +++|          LDD    CN+1
23168  M00S15831.set     +++|          ADD    CN+2
23169  M00S15832.set     +++|          ZJN    BDTX        IF NO BUFFERED DEVICES
23170  M00S15833.set     +++|          LDC    1S12+BIOL
23171  M00S15834.set     +++|          RJM    CTA
Line S15835 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23172  M01S15835.274l797 ---|          LDN    /EQP/BDTAL/5  ADVANCE CENTRAL ADDRESS
Line S02342 Modification History
M01 (Added by) 274l797
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
23173  M02S02342.283l840 ---|          LDN    /ICM/BDTAL/5  ADVANCE CENTRAL ADDRESS
Line S00826 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
23174  M01S00826.283l840 +++|          LDN    /ICT/BDTAL/5  ADVANCE CENTRAL ADDRESS
23175  M00S15836.set     +++|          RAD    CA+1
23176  M00S15837.set     +++|          SHN    -14
23177  M00S15838.set     +++|          RAD    CA
23178  M00S15839.set     +++|          LDD    CN+4        COMPUTE LENGTH OF TABLES
23179  M00S15840.set     +++|          SBD    CA+1
23180  M00S15841.set     +++|          STD    T1
23181  M00S15842.set     +++|          PJN    BDT1        IF NO BORROW
23182  M00S15843.set     +++|          SOD    CN+3
23183  M00S15844.set     +++|          AOD    T1
23184  M00S15845.set     +++| BDT1     LDD    CN+3
23185  M00S15846.set     +++|          SBD    CA
23186  M00S15847.set     +++|          SHN    14
23187  M00S15848.set     +++|          LMD    T1
23188  M00S15849.set     +++|          UJN    BDTX        RETURN
Line S00827 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
23189  M01S00827.283l840 +++| BST      SPACE  4,10
23190  M01S00828.283l840 +++|**        BST - VERIFY BUFFER STATUS TABLES.
23191  M01S00829.283l840 +++|*
23192  M01S00830.283l840 +++|*         EXIT   (A) = 0.
23193  M01S00831.283l840 +++|*                TO *DSE* IF TABLE ADDRESS ERROR.
23194  M01S00832.283l840 +++|*
23195  M01S00833.283l840 +++|*         USES   EQ, CA - CA+1, CM - CM+4.
23196  M01S00834.283l840 +++|*
23197  M01S00835.283l840 +++|*         CALLS  SME.
23198  M01S00836.283l840 +++|
23199  M01S00837.283l840 +++|
23200  M01S00838.283l840 +++| BST      SUBR               ENTRY/EXIT
23201  M01S00839.283l840 +++|          LDK    MMFL
23202  M01S00840.283l840 +++|          CRD    CM
23203  M01S00841.283l840 +++|          LDD    CM+1
23204  M01S00842.283l840 +++|          LPC    1000
23205  M01S00843.283l840 +++|          ZJN    BSTX        IF NO SHARED BUFFERED DEVICES
23206  M01S00844.283l840 +++|          LDN    NOPE
23207  M01S00845.283l840 +++|          STD    EQ
23208  M01S00846.283l840 +++|
23209  M01S00847.283l840 +++|*         PROCESS NEXT EQUIPMENT.
23210  M01S00848.283l840 +++|
23211  M01S00849.283l840 +++| BST1     RJM    SME         SEARCH FOR MASS STORAGE EQUIPMENT
23212  M01S00850.283l840 +++|          ZJN    BSTX        IF END OF MS EST ENTRIES
23213  M01S00851.283l840 +++|          SHN    21-11-21+13
23214  M01S00852.283l840 +++|          PJN    BST1        IF NOT SHARED DEVICE
23215  M01S00853.283l840 +++|          SHN    21-5-21+11
23216  M01S00854.283l840 +++|          PJN    BST1        IF NOT BUFFERED DEVICE
23217  M01S00855.283l840 +++|          LDD    AB+4        GET BST ADDRESS
23218  M01S00856.283l840 +++|          SHN    3
23219  M01S00857.283l840 +++|          ADK    BDLL
23220  M01S00858.283l840 +++|          CRD    CM
23221  M01S00859.283l840 +++|          LDD    CA          VERIFY BST ADDRESS
23222  M01S00860.283l840 +++|          LMD    CM+1
23223  M01S00861.283l840 +++|          NJN    BST2        IF ADDRESS DOES NOT MATCH
23224  M01S00862.283l840 +++|          LDD    CA+1
23225  M01S00863.283l840 +++|          LMD    CM+2
23226  M01S00864.283l840 +++|          NJN    BST2        IF ADDRESS DOES NOT MATCH
23227  M01S00865.283l840 +++|          LDK    BSTL        ADVANCE CM ADDRESS
23228  M01S00866.283l840 +++|          RAD    CA+1
23229  M01S00867.283l840 +++|          SHN    -14
23230  M01S00868.283l840 +++|          RAD    CA
23231  M01S00869.283l840 +++|          UJP    BST1        PROCESS NEXT EQUIPMENT
23232  M01S00870.283l840 +++|
23233  M01S00871.283l840 +++| BST2     LDC    =C*BST POINTER ERROR.*
23234  M01S00872.283l840 +++|          JMP    DSE         DISPLAY MESSAGE AND HANG
23235  M00S15850.set     +++| CHT      SPACE  4,10
23236  M00S15851.set     +++|**        CHT - VERIFY CHANNEL TABLES.
23237  M00S15852.set     +++|*
23238  M00S15853.set     +++|*         EXIT   (A) = LENGTH OF CHANNEL TABLES.
23239  M00S15854.set     +++|*
23240  M00S15855.set     +++|*         USES   T1, T2.
23241  M00S15856.set     +++|*
23242  M00S15857.set     +++|*         CALLS  CTA.
23243  M00S15858.set     +++|
23244  M00S15859.set     +++|
23245  M00S15860.set     +++| CHT      SUBR               ENTRY/EXIT
23246  M00S15861.set     +++|          LDC    2S12+CHTP
23247  M00S15862.set     +++|          RJM    CTA
23248  M00S15863.set     +++|          LDN    CTALL       SET CONTROLWARE TABLE LENGTH
23249  M00S15864.set     +++|          STD    T1
23250  M00S15865.set     +++|          LDD    CA          READ CONTROLWARE TABLE
23251  M00S15866.set     +++|          SHN    14
23252  M00S15867.set     +++|          LMD    CA+1
23253  M00S15868.set     +++|          ADN    CTALL*2
23254  M00S15869.set     +++|          CRM    MBUF,T1
23255  M00S15870.set     +++|          LDN    5*CTALL-1   EDIT CONTROLWARE TABLE
23256  M00S15871.set     +++|          STD    T2
23257  M00S15872.set     +++| CHT1     LDM    MBUF,T2     CLEAR LOAD FLAGS
23258  M00S15873.set     +++|          LPC    777
23259  M00S15874.set     +++|          STM    MBUF,T2
23260  M00S15875.set     +++|          SOD    T2
23261  M00S15876.set     +++|          PJN    CHT1        IF NOT END OF TABLE
23262  M00S15877.set     +++|          LDD    CA
23263  M00S15878.set     +++|          SHN    14
23264  M00S15879.set     +++|          LMD    CA+1        STORE CONTROLWARE TABLE
23265  M00S15880.set     +++|          ADN    CTALL*2
23266  M00S15881.set     +++|          CWM    MBUF,T1
23267  M00S15882.set     +++|          LDN    CTALL*3     LENGTH OF CHANNEL TABLES
23268  M00S15883.set     +++|          UJN    CHTX        RETURN
23269  M00S15884.set     +++| CLT      SPACE  4,10
23270  M00S15885.set     +++|**        CLT - VERIFY COMMON LIBRARIES TABLE.
23271  M00S15886.set     +++|*
23272  M00S15887.set     +++|*         EXIT   (A) = TABLE LENGTH.
23273  M00S15888.set     +++|*
23274  M00S15889.set     +++|*         CALLS  CTA.
23275  M00S15890.set     +++|*
23276  M00S15891.set     +++|*         MACROS CFI.
23277  M00S15892.set     +++|
23278  M00S15893.set     +++|
23279  M00S15894.set     +++| CLT      SUBR               ENTRY/EXIT
23280  M00S15895.set     +++|          LDC    CLTP
23281  M00S15896.set     +++|          RJM    CTA
23282  M00S15897.set     +++|          CFI    CLT,CM+2    LENGTH OF TABLE
23283  M00S15898.set     +++|          UJN    CLTX        RETURN
23284  M00S15899.set     +++| DFB      SPACE  4,10
23285  M00S15900.set     +++|**        DFB - VERIFY DAYFILE BUFFERS.
23286  M00S15901.set     +++|*
23287  M00S15902.set     +++|*         EXIT   (A) = 0.
23288  M00S15903.set     +++|*
23289  M00S15904.set     +++|*         USES   T3, T6, T7, CM - CM+2.
23290  M00S15905.set     +++|*
23291  M00S15906.set     +++|*         CALLS  CDP, CLS, CTA.
23292  M00S15907.set     +++|
23293  M00S15908.set     +++|
23294  M00S15909.set     +++| DFB      SUBR               ENTRY/EXIT
23295  M00S15910.set     +++|          LDN    DFPP        SET FWA OF DAYFILE POINTERS
23296  M00S15911.set     +++|          CRD    T6
23297  M00S15912.set     +++|          LDN    0           SET SYSTEM DAYFILE BUFFER NUMBER
23298  M00S15913.set     +++|          STD    T3
23299  M00S15914.set     +++| DFB1     RJM    CDP
23300  M00S15915.set     +++|          LDN    3           ADVANCE DAYFILE POINTER ADDRESS
23301  M00S15916.set     +++|          RAD    T7
23302  M00S15917.set     +++|          SHN    -14
23303  M00S15918.set     +++|          RAD    T6
23304  M00S15919.set     +++|          AOD    T3          ADVANCE DAYFILE NUMBER
23305  M00S15920.set     +++|          LMN    EXDF
23306  M00S15921.set     +++|          NJN    DFB1        IF NOT END OF EXCESS DAYFILES
23307  M00S15922.set     +++|          LDC    2S12+DFPP
23308  M00S15923.set     +++|          RJM    CTA
23309  M00S15924.set     +++|          LDN    1           SET PP DUMP BUFFER NOT BUSY
23310  M00S15925.set     +++|          STD    CM+4
23311  M00S15926.set     +++|          LDN    DFPP        STORE POINTER
23312  M00S15927.set     +++|          CWD    CM
Line S15928 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23313  M01S15928.253l688 ---|          LDD    LD
23314  M01S15929.253l688 ---|          SHN    0-13
23315  M01S15930.253l688 ---|          ZJN    DFB2        IF NO ISD-S DEFINED
23316  M01S15931.253l688 ---|          LDM    .PPU
23317  M01S15932.253l688 ---|          SHN    10          ALLOCATE SPACE FOR PP SAVE AREAS
23318  M01S15933.253l688 ---|          SBK    DBPS
23319  M01S15934.253l688 ---| DFB2     ADC    DFDS+3      CLEAR DUMP BUFFER
Line S00060 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23320  M01S00060.253l688 +++|          LDC    DFDS+3      CLEAR DUMP BUFFER
23321  M00S15935.set     +++|          RJM    CLS
23322  M00S15936.set     +++|          LDN    0
23323  M00S15937.set     +++|          LJM    DFBX        RETURN
23324  M00S15938.set     +++| ECB      SPACE  4,10
23325  M00S15939.set     +++|**        ECB - VERIFY *EICB* TABLES.
23326  M00S15940.set     +++|*
23327  M00S15941.set     +++|*         EXIT   (A) = LENGTH OF *EICB* TABLES.
23328  M00S15942.set     +++|*
23329  M00S15943.set     +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T3 - T7.
23330  M00S15944.set     +++|*
23331  M00S15945.set     +++|*         CALLS  CTA.
23332  M00S15946.set     +++|
23333  M00S15947.set     +++|
Line S15948 Modification History
M01 (Removed by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
23334  M01S15948.ns2557  ---| ECB2     ADN    DSCM+3-D7ST READ DFT/OS POINTER
Line S00120 Modification History
M01 (Added by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
23335  M01S00120.ns2557  +++| ECB2     ADN    DSCM+3-D7RS READ DFT/OS POINTER
23336  M00S15949.set     +++|          CRD    CN
Line S15950 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23337  M01S15950.261l700 ---|          LDD    AB+3        ADD SIZE OF *MLST*
23338  M01S15951.261l700 ---|          LPN    77
23339  M01S15952.261l700 ---|          RAD    CN+4
Line S00260 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23340  M01S00260.261l700 +++|          LDD    AB+3        SAVE SIZE OF *MLST*
23341  M01S00261.261l700 +++|          LPN    77
23342  M01S00262.261l700 +++|          STD    T2
23343  M00S15953.set     +++|          LDD    CN+2        READ *DFT* CONTROL WORD
23344  M00S15954.set     +++|          SHN    14
23345  M00S15955.set     +++|          LMD    CN+3
23346  M00S15956.set     +++|          SHN    -4
23347  M00S15957.set     +++|          SHN    6
23348  M00S15958.set     +++|          LMD    CN
23349  M00S15959.set     +++|          CRD    AB
23350  M00S15960.set     +++|          ADN    DFRQ        READ NOS REQUEST AREA POINTER
23351  M00S15961.set     +++|          CRD    T3
23352  M00S15962.set     +++|          LDD    T3+2        READ NOS REQUEST HEADER
23353  M00S15963.set     +++|          SHN    14
23354  M00S15964.set     +++|          LMD    T3+3
23355  M00S15965.set     +++|          SHN    -4
23356  M00S15966.set     +++|          SHN    6
23357  M00S15967.set     +++|          LMD    T3
23358  M00S15968.set     +++|          CRD    CM
23359  M00S15969.set     +++|          LDD    AB+4
23360  M00S15970.set     +++|          LPC    7426        CLEAR FLAGS (V, R, Z, L, E7)
23361  M00S15971.set     +++|          ADN    10          SET LOGGING FLAG
23362  M00S15972.set     +++|          STD    AB+4
23363  M00S15973.set     +++|
23364  M00S15974.set     +++|*         POST REQUEST TO *DFT* TO UPDATE ERROR THRESHOLDS.
23365  M00S15975.set     +++|
23366  M00S15976.set     +++|          LDM    .CPU        CHECK CPU CONFIGURATION
23367  M00S15977.set     +++|          LPN    2
23368  M00S15978.set     +++|          ZJN    ECB3        IF CPU-1 PRESENT
23369  M00S15979.set     +++|          LDN    ZERL        CLEAR THRESHOLDS FOR CPU-1
23370  M00S15980.set     +++|          CRM    ECBB,ON
Line S15981 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23371  M01S15981.261l700 ---| ECB3     LDN    STRY        SET STATUS = *READY*
Line S00263 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23372  M01S00263.261l700 +++| ECB3     LDM    DFTV
23373  M01S00264.261l700 +++|          ZJN    ECB4        IF *DFT* VERSION 3
23374  M01S00265.261l700 +++|          LDK    STIN&STRY   SET STATUS = *INACTIVE*
23375  M01S00266.261l700 +++| ECB4     LMK    STRY        SET STATUS = *READY*
23376  M00S15982.set     +++|          STD    CM+4
23377  M00S15983.set     +++|          LDD    CN+2        REWRITE *DFT* CONROL WORD
23378  M00S15984.set     +++|          SHN    14
23379  M00S15985.set     +++|          LMD    CN+3
23380  M00S15986.set     +++|          SHN    -4
23381  M00S15987.set     +++|          SHN    6
23382  M00S15988.set     +++|          LMD    CN
23383  M00S15989.set     +++|          CWD    AB
23384  M00S15990.set     +++|          LDN    ECBAL/5     SET WORD COUNT
23385  M00S15991.set     +++|          STD    T3+4
23386  M00S15992.set     +++|          LDD    T3+2        WRITE NOS REQUEST HEADER
23387  M00S15993.set     +++|          SHN    14
23388  M00S15994.set     +++|          LMD    T3+3
23389  M00S15995.set     +++|          SHN    -4
23390  M00S15996.set     +++|          SHN    6
23391  M00S15997.set     +++|          LMD    T3
23392  M00S15998.set     +++|          CWD    CM
23393  M00S15999.set     +++|          ADN    1           WRITE THRESHOLD REQUEST TO BUFFER
23394  M00S16000.set     +++|          CWM    ECBA,T3+4
Line S16001 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23395  M01S16001.261l700 ---|          LDD    CN+4
Line S00267 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23396  M01S00267.261l700 +++|          LDD    CN+3        GET SIZE OF *DFT/OS* BUFFER
23397  M01S00268.261l700 +++|          LPN    17
23398  M01S00269.261l700 +++|          SHN    14
23399  M01S00270.261l700 +++|          LMD    CN+4
23400  M01S00271.261l700 +++|          ADD    T2          ADD SIZE OF *MLST*
Line S16002 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23401  M01S16002.261l700 ---|          ADK    DSCBL       (A) = LENGTH OF *EICB* TABLES
Line S00272 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23402  M01S00272.261l700 +++|          ADK    DSCBL+1     (A) = LENGTH OF *EICB* TABLES
23403  M00S16003.set     +++|
23404  M00S16004.set     +++| ECB      SUBR               ENTRY/EXIT
23405  M00S16005.set     +++|          LDC    UEML
23406  M00S16006.set     +++|          CRD    T3
23407  M00S16007.set     +++|          ADK    EIBP-UEML
23408  M00S16008.set     +++|          CRD    CM
23409  M00S16009.set     +++|          LDD    CM+3
23410  M00S16010.set     +++|          ADD    CM+4
23411  M00S16011.set     +++|          ZJN    ECBX        IF NO *EICB*
23412  M00S16012.set     +++|          LDC    3S12+EIBP
23413  M00S16013.set     +++|          RJM    CTA
23414  M00S16014.set     +++|
23415  M00S16015.set     +++|*         CALCULATE ORIGINAL MACHINE FL.
23416  M00S16016.set     +++|
23417  M00S16017.set     +++|          LDD    CA          FETCH MEMORY ALLOCATION VALUES
23418  M00S16018.set     +++|          SHN    14
23419  M00S16019.set     +++|          LMD    CA+1
23420  M00S16020.set     +++|          ADN    D7ST
23421  M00S16021.set     +++|          CRD    AB
23422  M00S16022.set     +++|          ADN    D7CM-D7ST
23423  M00S16023.set     +++|          CRD    CM
23424  M00S16024.set     +++|          ADN    1
23425  M00S16025.set     +++|          CRD    CN
23426  M00S16026.set     +++|          LDD    T3+4
23427  M00S16027.set     +++|          LPN    2
Line S16028 Modification History
M01 (Removed by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23428  M01S16028.ns2633a ---|          NJN    ECB1        IF UEM DEFINED
Line S00001 Modification History
M01 (Added by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23429  M01S00001.ns2633a +++|          NJP    ECB1        IF UEM DEFINED
Line S16029 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23430  M01S16029.ns2633  ---|          LDD    CN+3        CALCULATE CURRENT NVE FIELD LENGTH
Line S00067 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23431  M01S00067.ns2633  +++|          LDD    CN+4        CALCULATE CURRENT NVE FIELD LENGTH
23432  M01S00068.ns2633  +++|          SBD    CN+2
23433  M01S00069.ns2633  +++|          STD    CM+1
23434  M01S00070.ns2633  +++|          PJN    ECB0        IF NO BORROW
23435  M01S00071.ns2633  +++|          AOD    CN+1        ADJUST FOR BORROW
23436  M01S00072.ns2633  +++|          AOD    CM+1
23437  M01S00073.ns2633  +++| ECB0     LDD    CN+3
23438  M00S16030.set     +++|          SBD    CN+1
Line S16031 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23439  M01S16031.ns2633  ---|          SHN    14
23440  M01S16032.ns2633  ---|          LMD    CN+4
23441  M01S16033.ns2633  ---|          SBD    CN+2
Line S00074 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23442  M01S00074.ns2633  +++|          STD    CM
23443  M01S00075.ns2633  +++|          ADD    CM+1
23444  M00S16034.set     +++|          ZJN    ECB1        IF NO NVE FL
Line S16035 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23445  M01S16035.ns2633  ---|          STD    CN+4
23446  M01S16036.ns2633  ---|          SHN    -14
Line S00076 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23447  M01S00076.ns2633  +++|          LDD    CM+1        CHECK IF NVE FL IS WITHIN RESERVED BLOCK
23448  M01S00077.ns2633  +++|          SBD    CM+4
23449  M01S00078.ns2633  +++|          STD    CM+4
23450  M01S00079.ns2633  +++|          PJN    ECB0.1      IF NO BORROW
23451  M01S00080.ns2633  +++|          AOD    CM+3        ADJUST FOR BORROW
23452  M01S00081.ns2633  +++|          AOD    CM+4
23453  M01S00082.ns2633  +++| ECB0.1   LDD    CM
23454  M00S16037.set     +++|          SBD    CM+3
Line S00083 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23455  M01S00083.ns2633  +++|          STD    CM+3
23456  M00S16038.set     +++|          MJN    ECB1        IF FL WITHIN RESERVED BLOCK
Line S16039 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23457  M01S16039.ns2633  ---|          SHN    14
23458  M01S16040.ns2633  ---|          ADD    CN+4
23459  M01S16041.ns2633  ---|          SBD    CM+4
23460  M01S16042.ns2633  ---|          MJN    ECB1        IF FL WITHIN RESERVED BLOCK
Line S00084 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23461  M01S00084.ns2633  +++|          ADD    CM+4
23462  M00S16043.set     +++|          ZJN    ECB1        IF FL WITHIN RESERVED BLOCK
Line S16044 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23463  M01S16044.ns2633  ---|          SHN    3
23464  M01S16045.ns2633  ---|          STD    T7
23465  M01S16046.ns2633  ---|          SHN    -6
Line S00085 Modification History
M01 (Added by) ns2633
M02 (Removed by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23466  M02S00085.ns2633a ---|          LDD    CM+3        SAVE DUAL STATE FL ADJUSTMENT
23467  M02S00086.ns2633a ---|          STM    DSFL
23468  M02S00087.ns2633a ---|          LDD    CM+4
Line S16047 Modification History
M01 (Removed by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23469  M01S16047.ns2633a ---|          STM    DSFL+1
Line S00002 Modification History
M01 (Added by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23470  M01S00002.ns2633a +++|          LDD    CM+4        CONVERT 1000B-WORD BLOCKS TO WORDS
23471  M01S00003.ns2633a +++|          LPN    7
23472  M01S00004.ns2633a +++|          SHN    11
23473  M01S00005.ns2633a +++|          STM    DSFL+1
23474  M01S00006.ns2633a +++|          LDD    CM+3
23475  M01S00007.ns2633a +++|          LPN    7
23476  M01S00008.ns2633a +++|          SHN    14
23477  M01S00009.ns2633a +++|          LMD    CM+4
23478  M01S00010.ns2633a +++|          SHN    -3
23479  M01S00011.ns2633a +++|          STM    DSFL
Line S16048 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23480  M01S16048.ns2633  ---|          LDD    T7
23481  M01S16049.ns2633  ---|          SHN    6
23482  M01S16050.ns2633  ---|          STM    DSFL
23483  M00S16051.set     +++|
23484  M00S16052.set     +++|*         CLEAR CHECKPOINT AND STEP FLAGS.
23485  M00S16053.set     +++|
23486  M00S16054.set     +++| ECB1     LDD    AB
23487  M00S16055.set     +++|          LPC    6763
23488  M00S16056.set     +++|          STD    AB
23489  M00S16057.set     +++|          LDD    CA          UPDATE STATUS WORD
23490  M00S16058.set     +++|          SHN    14
23491  M00S16059.set     +++|          LMD    CA+1
23492  M00S16060.set     +++|          ADN    D7ST
23493  M00S16061.set     +++|          CWD    AB
Line S00121 Modification History
M01 (Added by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
23494  M01S00121.ns2557  +++|
23495  M01S00122.ns2557  +++|*         PRESERVE NOS *SCD* ACTIVE STATUS AND CLEAR C170 *MDD* FLAG
23496  M01S00123.ns2557  +++|*         PP RESIDENT SAVE AREA INTERLOCK.
23497  M01S00124.ns2557  +++|
23498  M01S00125.ns2557  +++|          ADN    D7RS-D7ST
23499  M01S00126.ns2557  +++|          CRD    CN
23500  M01S00127.ns2557  +++|          LDD    CN+1
23501  M01S00128.ns2557  +++|          LPC    1S10        PRESERVE NOS *SCD* ACTIVE STATUS
23502  M01S00129.ns2557  +++|          STD    CN+1
23503  M01S00130.ns2557  +++|          LDM    MDDP
23504  M01S00131.ns2557  +++|          LPN    10          SET DEDICATED *MDD* STATUS
23505  M01S00132.ns2557  +++|          SHN    13-3
23506  M01S00133.ns2557  +++|          RAD    CN+1
23507  M01S00134.ns2557  +++|          LDD    CA
23508  M01S00135.ns2557  +++|          SHN    14
23509  M01S00136.ns2557  +++|          LMD    CA+1
23510  M01S00137.ns2557  +++|          ADN    D7RS
23511  M01S00138.ns2557  +++|          CWD    CN
23512  M00S16062.set     +++|          LJM    ECB2        UPDATE *DFT* CONTROL WORD
23513  M00S16063.set     +++|
23514  M00S16064.set     +++|
23515  M00S16065.set     +++|*         *DFT* THRESHOLD REQUEST INFORMATION.
23516  M00S16066.set     +++|
23517  M00S16067.set     +++| ECBA     VFD    4/,8/RQTH,8/0,8/7,8/0,8/0,8/THCI,8/THUE  IOU
23518  M00S16068.set     +++|          VFD    4/,8/RQTH,8/0,8/7,8/1,8/0,8/THCM,8/THUE  MEMORY
23519  M00S16069.set     +++|          VFD    4/,8/RQTH,8/0,8/7,8/2,8/0,8/THCP,8/THUE  CPU-0
23520  M00S16070.set     +++| ECBB     VFD    4/,8/RQTH,8/0,8/7,8/2,8/1,8/THCP,8/THUE  CPU-1
23521  M00S16071.set     +++|          VFD    60/0        TERMINATOR
23522  M00S16072.set     +++| ECBAL    EQU    *-ECBA      LENGTH OF THRESHOLD DATA (PP WORDS)
23523  M00S16073.set     +++| EJT      SPACE  4,10
23524  M00S16074.set     +++|**        EJT - VERIFY EXECUTING JOB TABLE.
23525  M00S16075.set     +++|*
23526  M00S16076.set     +++|*         EXIT   (A) = EJT LENGTH.
23527  M00S16077.set     +++|*
23528  M00S16078.set     +++|*         CALLS  CTA.
23529  M00S16079.set     +++|*
23530  M00S16080.set     +++|*         MACROS CFI.
23531  M00S16081.set     +++|
23532  M00S16082.set     +++|
23533  M00S16083.set     +++| EJT      SUBR               ENTRY/EXIT
23534  M00S16084.set     +++|          LDN    EJTP
23535  M00S16085.set     +++|          RJM    CTA
23536  M00S16086.set     +++|          CFI    EJT,CM+2
23537  M00S16087.set     +++|          UJN    EJTX        RETURN
23538  M00S16088.set     +++| EMB      SPACE  4,10
23539  M00S16089.set     +++|**        EMB - VERIFY ERROR MESSAGE BUFFER.
23540  M00S16090.set     +++|*
23541  M00S16091.set     +++|*         EXIT   (A) = ERROR MESSAGE BUFFER LENGTH.
23542  M00S16092.set     +++|*
Line S00034 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23543  M01S00034.ns2769  +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T1+4.
23544  M01S00035.ns2769  +++|*
23545  M00S16093.set     +++|*         CALLS  CTA.
23546  M00S16094.set     +++|
23547  M00S16095.set     +++|
Line S00036 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23548  M01S00036.ns2769  +++| EMB6     LDN    ZERL
23549  M01S00037.ns2769  +++|          CRD    AB
23550  M01S00038.ns2769  +++|          CRD    CN
23551  M01S00039.ns2769  +++|          AOD    AB
23552  M01S00040.ns2769  +++|          STD    AB+1        SET *MESSAGES LOST* FLAG
23553  M01S00041.ns2769  +++|          LDC    EMBMN-2     DEFAULT TO MINIMUM BUFFER SIZE
23554  M01S00042.ns2769  +++| EMBA     EQU    *-1         (ACTUAL SIZE IF WITHIN LIMITS)
23555  M01S00043.ns2769  +++|          STD    CN+4
23556  M01S00044.ns2769  +++| EMB7     LDD    CM+1        STORE BUFFER INTERLOCK/*IN* WORD
23557  M01S00045.ns2769  +++|          SHN    14
23558  M01S00046.ns2769  +++|          LMD    CM+2
23559  M01S00047.ns2769  +++|          CWD    AB
23560  M01S00048.ns2769  +++|          ADN    1           STORE BUFFER *OUT*/*LIMIT* WORD
23561  M01S00049.ns2769  +++|          CWD    CN
23562  M01S00050.ns2769  +++|          LDD    CN+4
23563  M01S00051.ns2769  +++|          ADN    2
23564  M01S00052.ns2769  +++|
23565  M00S16096.set     +++| EMB      SUBR               ENTRY/EXIT
23566  M00S16097.set     +++|          LDC    1S12+EMBP
23567  M00S16098.set     +++|          RJM    CTA
Line S16099 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23568  M01S16099.ns2769  ---|          LDN    ZERL        SET UP INTERLOCK WORD
23569  M01S16100.ns2769  ---|          CRD    AB
23570  M01S16101.ns2769  ---|          AOD    AB
23571  M01S16102.ns2769  ---|          LDD    CM+1        STORE BUFFER INTERLOCK WORD
23572  M01S16103.ns2769  ---|          SHN    14
23573  M01S16104.ns2769  ---|          LMD    CM+2
23574  M01S16105.ns2769  ---|          CWD    AB
23575  M01S16106.ns2769  ---|          LDC    EMBLL
23576  M01S16107.ns2769  ---|          UJN    EMBX        RETURN
Line S00053 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23577  M01S00053.ns2769  +++|          LDD    CM+1        READ BUFFER INTERLOCK/*IN* WORD
23578  M01S00054.ns2769  +++|          SHN    14
23579  M01S00055.ns2769  +++|          LMD    CM+2
23580  M01S00056.ns2769  +++|          CRD    AB
23581  M01S00057.ns2769  +++|          ADN    1           READ BUFFER *OUT*/*LIMIT* WORD
23582  M01S00058.ns2769  +++|          CRD    CN
23583  M01S00059.ns2769  +++|          LDD    CN+4
23584  M01S00060.ns2769  +++|          ADC    -EMBMN+2
23585  M01S00061.ns2769  +++|          ZJN    EMB1        IF *LIMIT* IS AT MINIMUM
23586  M01S00062.ns2769  +++|          MJP    EMB6        IF *LIMIT* IS TOO SMALL
23587  M01S00063.ns2769  +++| EMB1     LDD    CN+4        SET BUFFER RECOVERY SIZE
23588  M01S00064.ns2769  +++|          STM    EMBA
23589  M01S00065.ns2769  +++|          LDN    0
23590  M01S00066.ns2769  +++|          STD    AB+4        CLEAR INTERLOCK AND *1MD ACTIVE* FLAGS
23591  M01S00067.ns2769  +++|          STD    CM+3        SET *IN*.LT.INDEX CORRECT
23592  M01S00068.ns2769  +++|          LDD    AB+3        *IN*
23593  M01S00069.ns2769  +++|          SBD    CN+4        *LIMIT*
23594  M01S00070.ns2769  +++|          PJP    EMB6        IF *IN*.GE.*LIMIT*
23595  M01S00071.ns2769  +++|          LDD    CN+3        *OUT*
23596  M01S00072.ns2769  +++|          STD    CM+4        SET INITIAL MESSAGE INDEX
23597  M01S00073.ns2769  +++| EMB2     SBD    CN+4
23598  M01S00074.ns2769  +++|          MJN    EMB4        IF INDEX.LT.*LIMIT*
23599  M01S00075.ns2769  +++|          NJP    EMB6        IF INDEX.GT.*LIMIT*
23600  M01S00076.ns2769  +++| EMB3     STD    CM+4        RESET MESSAGE INDEX
23601  M01S00077.ns2769  +++| EMB4     LDD    AB+3        *IN*
23602  M01S00078.ns2769  +++|          SBD    CM+4
23603  M01S00079.ns2769  +++|          ZJP    EMB7        IF ALL MESSAGE HEADERS CHECKED
23604  M01S00080.ns2769  +++|          PJN    EMB5        IF INDEX.LT.*IN*
23605  M01S00081.ns2769  +++|          LDD    CM+3
23606  M01S00082.ns2769  +++|          NJP    EMB6        IF *IN*.LT.INDEX NOT CORRECT
23607  M01S00083.ns2769  +++| EMB5     STD    CM+3        SET *IN*.LT.INDEX FLAG
23608  M01S00084.ns2769  +++|          LDD    CM+1        READ NEXT MESSAGE HEADER
23609  M01S00085.ns2769  +++|          SHN    14
23610  M01S00086.ns2769  +++|          LMD    CM+2
23611  M01S00087.ns2769  +++|          ADD    CM+4
23612  M01S00088.ns2769  +++|          ADN    2
23613  M01S00089.ns2769  +++|          CRD    T1
23614  M01S00090.ns2769  +++|          LDD    T1+3        GET MESSAGE LENGTH FROM HEADER
23615  M01S00091.ns2769  +++|          ZJN    EMB3        IF BUFFER TERMINATOR
23616  M01S00092.ns2769  +++|          RAD    CM+4        INCREMENT BUFFER INDEX
23617  M01S00093.ns2769  +++|          UJN    EMB2        CHECK MESSAGE HEADER WORD COUNT
23618  M00S16108.set     +++| EST      SPACE  4,10
23619  M00S16109.set     +++|**        EST - VERIFY EQUIPMENT STATUS TABLE.
23620  M00S16110.set     +++|*
23621  M00S16111.set     +++|*         EXIT   (A) = EST LENGTH.
23622  M00S16112.set     +++|*                (LE) = LAST MASS STORAGE EQUIPMENT + 1.
23623  M00S16113.set     +++|*
23624  M00S16114.set     +++|*         CALLS  CTA, SSE.
23625  M00S16115.set     +++|*
23626  M00S16116.set     +++|*         MACROS CFI, SFA.
23627  M00S16117.set     +++|
23628  M00S16118.set     +++|
23629  M00S16119.set     +++| EST2     CFI    EST,CM+2
23630  M00S16120.set     +++|
23631  M00S16121.set     +++| EST      SUBR               ENTRY/EXIT
23632  M00S16122.set     +++|          LDN    ESTP
23633  M00S16123.set     +++|          RJM    CTA
23634  M00S16124.set     +++|          LDD    CM+3        SET LAST MASS STORAGE EQUIPMENT + 1
23635  M00S16125.set     +++|          STD    LE
23636  M00S16126.set     +++|
23637  M00S16127.set     +++|*         CLEAR LOAD FLAGS IN *CM* DEVICE ENTRIES.
23638  M00S16128.set     +++|
Line S16129 Modification History
M01 (Removed by) set59
Seq #  *Modification Id* Act 
----------------------------+
23639  M01S16129.set59   ---|          LDC    1S17+2RCM
23640  M01S16130.set59   ---| EST1     RJM    SSE         SEARCH FOR *CM* ENTRY
23641  M01S16131.set59   ---|          NJN    EST2        IF NONE FOUND
Line S00001 Modification History
M01 (Added by) set59
Seq #  *Modification Id* Act 
----------------------------+
23642  M01S00001.set59   +++|          LDC    1S17+2RCM   SEARCH FOR *CM* ENTRY
23643  M01S00002.set59   +++| EST1     RJM    SSE
23644  M01S00003.set59   +++|          NJN    EST2        IF NONE FOUND
23645  M01S00004.set59   +++|          SFA    EST,EQ
23646  M01S00005.set59   +++|          ADN    EQAE        GET EST ASSIGNMENT WORD
23647  M01S00006.set59   +++|          CRD    AB
23648  M00S16132.set     +++|          LDD    AB+2        CLEAR LOAD FLAGS
23649  M00S16133.set     +++|          LPC    1777
23650  M00S16134.set     +++|          STD    AB+2
23651  M00S16135.set     +++|          SFA    EST,EQ      REWRITE EST ENTRY
Line S16136 Modification History
M01 (Removed by) set59
Seq #  *Modification Id* Act 
----------------------------+
23652  M01S16136.set59   ---|          CWD    AB
23653  M01S16137.set59   ---|          LDN    0
Line S00007 Modification History
M01 (Added by) set59
Seq #  *Modification Id* Act 
----------------------------+
23654  M01S00007.set59   +++|          ADN    EQAE
23655  M01S00008.set59   +++|          CWD    AB
23656  M00S16138.set     +++|          UJN    EST1        CHECK NEXT ENTRY
23657  M00S16139.set     +++| EVT      SPACE  4,10
23658  M00S16140.set     +++|**        EVT - VERIFY EVENT TABLE.
23659  M00S16141.set     +++|*
23660  M00S16142.set     +++|*         EXIT   (A) = TABLE LENGTH.
23661  M00S16143.set     +++|*
23662  M00S16144.set     +++|*         USES   AB - AB+4.
23663  M00S16145.set     +++|*
23664  M00S16146.set     +++|*         CALLS  CTA.
23665  M00S16147.set     +++|
23666  M00S16148.set     +++|
23667  M00S16149.set     +++| EVT      SUBR               ENTRY/EXIT
23668  M00S16150.set     +++|          LDC    EVTP
23669  M00S16151.set     +++|          RJM    CTA
23670  M00S16152.set     +++|          LDD    CM          CLEAR INTERLOCK
23671  M00S16153.set     +++|          SHN    14
23672  M00S16154.set     +++|          LMD    CM+1
23673  M00S16155.set     +++|          CRD    AB
23674  M00S16156.set     +++|          LDD    AB+4
23675  M00S16157.set     +++|          SCN    1
23676  M00S16158.set     +++|          STD    AB+4
23677  M00S16159.set     +++|          LDD    CM
23678  M00S16160.set     +++|          SHN    14
23679  M00S16161.set     +++|          LMD    CM+1
23680  M00S16162.set     +++|          CWD    AB
23681  M00S16163.set     +++|          LDN    EVTLL       TABLE LENGTH
23682  M00S16164.set     +++|          UJN    EVTX        RETURN
23683  M00S16165.set     +++| EXM      SPACE  4,15
23684  M00S16166.set     +++|**        EXM - VERIFY EXTENDED MEMORY BUFFERS.
23685  M00S16167.set     +++|*
23686  M00S16168.set     +++|*
23687  M00S16169.set     +++|*         ENTRY  (EN) = EXTENDED MEMORY EST ORDINAL IF DEFINED.
23688  M00S16170.set     +++|*                (LD) = LINK DEVICE EST ORDINAL IF DEFINED.
23689  M00S16171.set     +++|*
23690  M00S16172.set     +++|*         EXIT   (A) = 0.
23691  M00S16173.set     +++|*
23692  M00S16174.set     +++|*         USES   AB - AB+4, CM - CM+4.
23693  M00S16175.set     +++|*
23694  M00S16176.set     +++|*         CALLS  CLS, CTA.
23695  M00S16177.set     +++|
23696  M00S16178.set     +++|
23697  M00S16179.set     +++| EXM      SUBR               ENTRY/EXIT
23698  M00S16180.set     +++|          LDK    UEML
23699  M00S16181.set     +++|          CRD    AB
23700  M00S16182.set     +++|          LDD    AB+4
23701  M00S16183.set     +++|          LPN    2
23702  M00S16184.set     +++|          ADD    LD
23703  M00S16185.set     +++|          LPC    777
23704  M00S16186.set     +++|          ADD    EN
23705  M00S16187.set     +++|          ZJN    EXMX        IF NO EXTENDED MEMORY DEFINED
23706  M00S16188.set     +++|          LDC    EDBP        CHECK DISPLAY BUFFER ADDRESS
23707  M00S16189.set     +++|          RJM    CTA
23708  M00S16190.set     +++|          LDN    EDBL        CLEAR DISPLAY BUFFER
23709  M00S16191.set     +++|          RJM    CLS
23710  M00S16192.set     +++|          LDD    EN
23711  M00S16193.set     +++|          ZJN    EXM3        IF NO EXTENDED MEMORY DEFINED
23712  M00S16194.set     +++|          LDC    EPBP
23713  M00S16195.set     +++|          CRD    AB
23714  M00S16196.set     +++|          LDD    AB+3
23715  M00S16197.set     +++|          SHN    -6
23716  M00S16198.set     +++|          STD    AB
23717  M00S16199.set     +++|          ZJN    EXM3        IF NO I/O BUFFERS
23718  M00S16200.set     +++|          LDC    3S12+EPBP
23719  M00S16201.set     +++|          RJM    CTA
23720  M00S16202.set     +++| EXM2     LDC    ECBL        CLEAR BUFFER
23721  M00S16203.set     +++|          RJM    CLS
23722  M00S16204.set     +++|          SOD    AB
23723  M00S16205.set     +++|          NJN    EXM2        IF NOT END OF BUFFERS
23724  M00S16206.set     +++|*         LDN    0
23725  M00S16207.set     +++| EXM3     LJM    EXMX        RETURN
23726  M00S16208.set     +++| EXP      SPACE  4,10
23727  M00S16209.set     +++|**        EXP - ALLOCATE C176 EXCHANGE PACKAGES.
23728  M00S16210.set     +++|*
23729  M00S16211.set     +++|*         EXIT   (A) = 0.
23730  M00S16212.set     +++|*
23731  M00S16213.set     +++|*         CALLS  SBD, SXA.
23732  M00S16214.set     +++|
23733  M00S16215.set     +++|
23734  M00S16216.set     +++| EXP      SUBR               ENTRY/EXIT
23735  M00S16217.set     +++|          LDD    HO
23736  M00S16218.set     +++|          SHN    -11
23737  M00S16219.set     +++|          LMN    7
23738  M00S16220.set     +++|          NJN    EXP1        IF NOT C176
23739  M00S16221.set     +++|          RJM    SBD         SEARCH FOR BUFFERED DEVICES
23740  M00S16222.set     +++|          RJM    SXA         SETUP EXCHANGE PACKAGES
23741  M00S16223.set     +++| EXP1     LDN    0
23742  M00S16224.set     +++|          UJN    EXPX        RETURN
23743  M00S16225.set     +++| FNT      SPACE  4,10
23744  M00S16226.set     +++|**        FNT - VERIFY FILE NAME TABLE.
23745  M00S16227.set     +++|*
23746  M00S16228.set     +++|*         EXIT   (A) = FNT LENGTH.
23747  M00S16229.set     +++|*
23748  M00S16230.set     +++|*         USES   AB - AB+4.
23749  M00S16231.set     +++|*
23750  M00S16232.set     +++|*         CALLS  CTA.
23751  M00S16233.set     +++|*
23752  M00S16234.set     +++|*         MACROS CFI.
23753  M00S16235.set     +++|
23754  M00S16236.set     +++|
23755  M00S16237.set     +++| FNT      SUBR               ENTRY/EXIT
23756  M00S16238.set     +++|          LDN    FNTP
23757  M00S16239.set     +++|          RJM    CTA
23758  M00S16240.set     +++|          LDD    CA          READ SYSTEM FILE FNT ENTRY
23759  M00S16241.set     +++|          SHN    14
23760  M00S16242.set     +++|          LMD    CA+1
23761  M00S16243.set     +++|          ERRNZ  SYFO        SYSTEM FILE FNT ORDINAL .NE. 0
23762  M00S16244.set     +++|          CRD    AB
23763  M00S16245.set     +++|          LDD    AB+4        SET SYSTEM FILE BUSY
23764  M00S16246.set     +++|          SCN    1
23765  M00S16247.set     +++|          LMN    1
23766  M00S16248.set     +++|          STD    AB+4
23767  M00S16249.set     +++|          LDD    CA          WRITE SYSTEM FILE FNT ENTRY
23768  M00S16250.set     +++|          SHN    14
23769  M00S16251.set     +++|          LMD    CA+1
23770  M00S16252.set     +++|          ERRNZ  SYFO        SYSTEM FILE FNT ORDINAL .NE. 0
23771  M00S16253.set     +++|          CWD    AB
23772  M00S16254.set     +++|          CFI    FNT,CM+2
23773  M00S16255.set     +++|          UJN    FNTX        RETURN
23774  M00S16256.set     +++| FOT      SPACE  4,10
23775  M00S16257.set     +++|**        FOT - VERIFY FAMILY ORDINAL TABLE.
23776  M00S16258.set     +++|*
23777  M00S16259.set     +++|*         EXIT   (A) = FOT LENGTH.
23778  M00S16260.set     +++|*
23779  M00S16261.set     +++|*         CALLS  CTA.
23780  M00S16262.set     +++|
23781  M00S16263.set     +++|
23782  M00S16264.set     +++| FOT      SUBR               ENTRY/EXIT
23783  M00S16265.set     +++|          LDC    FOTP
23784  M00S16266.set     +++|          RJM    CTA
23785  M00S16267.set     +++|          LDD    CM+2
23786  M00S16268.set     +++|          UJN    FOTX        RETURN
23787  M00S16269.set     +++| INB      SPACE  4,10
23788  M00S16270.set     +++|**        INB - VERIFY INSTALLATION BLOCK.
23789  M00S16271.set     +++|*
23790  M00S16272.set     +++|*         EXIT   (A) = LENGTH OF BLOCK.
23791  M00S16273.set     +++|*
23792  M00S16274.set     +++|*         CALLS  CTA.
23793  M00S16275.set     +++|
23794  M00S16276.set     +++|
23795  M00S16277.set     +++| INB      SUBR               ENTRY/EXIT
23796  M00S16278.set     +++|          LDC    2S12+INBP
23797  M00S16279.set     +++|          RJM    CTA
23798  M00S16280.set     +++|          LDD    CM+4
23799  M00S16281.set     +++|          UJN    INBX        RETURN
23800  M00S16282.set     +++| JCA      SPACE  4,10
Line S16283 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
23801  M01S16283.271l750 ---|**        JCA - VERIFY JOB CONTROL AREA.
Line S00235 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
23802  M01S00235.271l750 +++|**        JCA - VERIFY JOB CONTROL BUFFER TABLE (*JCB*).
23803  M00S16284.set     +++|*
23804  M00S16285.set     +++|*         EXIT   (A) = LENGTH OF AREA.
23805  M00S16286.set     +++|*
23806  M00S16287.set     +++|*         CALLS  CTA.
23807  M00S16288.set     +++|
23808  M00S16289.set     +++|
23809  M00S16290.set     +++| JCA      SUBR               ENTRY/EXIT
Line S16291 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
23810  M01S16291.273l780 ---|          LDC    JBCP
Line S00042 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
23811  M01S00042.273l780 +++|          LDK    JBCP
23812  M00S16292.set     +++|          RJM    CTA
Line S16293 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
23813  M01S16293.271l750 ---|          LDC    MXJC*/EQP/JCABL
Line S00236 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
23814  M01S00236.271l750 +++|          LDC    MXJC*JCBE
23815  M00S16294.set     +++|          UJN    JCAX        RETURN
23816  M00S16295.set     +++| LDB      SPACE  4,10
23817  M00S16296.set     +++|**        LDB - ALLOCATE *L* DISPLAY BUFFER.
23818  M00S16297.set     +++|*
23819  M00S16298.set     +++|*         EXIT   (A) = 0.
23820  M00S16299.set     +++|*
23821  M00S16300.set     +++|*         CALLS  CLS, CTA.
23822  M00S16301.set     +++|
23823  M00S16302.set     +++|
23824  M00S16303.set     +++| LDB      SUBR               ENTRY/EXIT
23825  M00S16304.set     +++|          LDC    2S12+LDSP
23826  M00S16305.set     +++|          RJM    CTA
23827  M00S16306.set     +++|          LDC    LDSY+LCOM+5  CLEAR BUFFER
23828  M00S16307.set     +++|          RJM    CLS
23829  M00S16308.set     +++|          LDN    0
23830  M00S16309.set     +++|          UJN    LDBX        RETURN
23831  M00S16310.set     +++| LID      SPACE  4,10
23832  M00S16311.set     +++|**        LID - VERIFY LOGICAL ID TABLE.
23833  M00S16312.set     +++|*
23834  M00S16313.set     +++|*         EXIT   (A) = TABLE LENGTH.
23835  M00S16314.set     +++|*
23836  M00S16315.set     +++|*         CALLS  CTA.
23837  M00S16316.set     +++|
23838  M00S16317.set     +++|
23839  M00S16318.set     +++| LID      SUBR               ENTRY/EXIT
23840  M00S16319.set     +++|          LDC    LIDP
23841  M00S16320.set     +++|          RJM    CTA
23842  M00S16321.set     +++|          LDD    CM+2
23843  M00S16322.set     +++|          UJN    LIDX        RETURN
Line S01563 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23844  M01S01563.271l716 +++| MCT      SPACE  4,10
23845  M01S01564.271l716 +++|**        MCT - VERIFY MEMORY CONTROL TABLE.
23846  M01S01565.271l716 +++|*
23847  M01S01566.271l716 +++|*         EXIT   (A) = 0 IF NO PSEUDO CONTROL POINTS.
23848  M01S01567.271l716 +++|*                    = LENGTH OF PSEUDO CONTROL POINT AREAS.
23849  M01S01568.271l716 +++|*
23850  M01S01569.271l716 +++|*         USES   T3.
23851  M01S01570.271l716 +++|*
23852  M01S01571.271l716 +++|*         CALLS  CTA.
23853  M01S01572.271l716 +++|
23854  M01S01573.271l716 +++|
23855  M01S01574.271l716 +++| MCT      SUBR               ENTRY/EXIT
23856  M01S01575.271l716 +++|          LDC    MCTP
23857  M01S01576.271l716 +++|          RJM    CTA
23858  M01S01577.271l716 +++|          LDD    CM+2        FORM MCT LENGTH
23859  M01S01578.271l716 +++|          SHN    1
23860  M01S01579.271l716 +++|          RAD    CA+1        ADVANCE CENTRAL ADDRESS
23861  M01S01580.271l716 +++|          SHN    -14
23862  M01S01581.271l716 +++|          RAD    CA
23863  M01S01582.271l716 +++|          SOD    CM+2        EXTRACT PCP COUNT
23864  M01S01583.271l716 +++|          SBD    NC
23865  M01S01584.271l716 +++|          ZJN    MCTX        IF NO PSEUDO CONTROL POINTS
23866  M01S01585.271l716 +++|          STD    T3
23867  M01S01586.271l716 +++|          LDC    3S12+PCPP   VERIFY PCP POINTER
23868  M01S01587.271l716 +++|          RJM    CTA
23869  M01S01588.271l716 +++|          LDD    T3          SET LENGTH OF PCP AREAS
23870  M01S01589.271l716 +++|          SHN    7
23871  M01S01590.271l716 +++|          UJP    MCTX        RETURN
23872  M00S16323.set     +++| MSA      SPACE  4,10
23873  M00S16324.set     +++|**        MSA - VERIFY MASS STORAGE ALLOCATION TABLE.
23874  M00S16325.set     +++|*
23875  M00S16326.set     +++|*         EXIT   (A) = TABLE LENGTH.
23876  M00S16327.set     +++|*
23877  M00S16328.set     +++|*         CALLS  CTA.
23878  M00S16329.set     +++|
23879  M00S16330.set     +++|
23880  M00S16331.set     +++| MSA      SUBR               ENTRY/EXIT
23881  M00S16332.set     +++|          LDC    MSAP
23882  M00S16333.set     +++|          RJM    CTA
23883  M00S16334.set     +++|          LDN    MXRS
23884  M00S16335.set     +++|          UJN    MSAX        RETURN
23885  M00S16336.set     +++| MST      SPACE  4,10
23886  M00S16337.set     +++|**        MST - VERIFY MASS STORAGE TABLES.
23887  M00S16338.set     +++|*
23888  M00S16339.set     +++|*         EXIT   (A) = 0.
23889  M00S16340.set     +++|*
23890  M00S16341.set     +++|*         USES   EQ, AB - AB+4.
23891  M00S16342.set     +++|*
23892  M00S16343.set     +++|*         CALLS  RMC, SME.
23893  M00S16344.set     +++|*
23894  M00S16345.set     +++|*         MACROS SFA.
23895  M00S16346.set     +++|
23896  M00S16347.set     +++|
23897  M00S16348.set     +++| MST1     RJM    RMC         RECOVER MST
23898  M00S16349.set     +++|          RJM    SME
23899  M00S16350.set     +++|          NJN    MST1        IF NOT END OF EST
23900  M00S16351.set     +++|
23901  M00S16352.set     +++| MST      SUBR               ENTRY/EXIT
23902  M00S16353.set     +++|          LDN    RDEQ
23903  M00S16354.set     +++|          STD    EQ
23904  M00S16355.set     +++|          SFA    EST,,EQ     FETCH EST ENTRY FOR *RD* DEVICE
23905  M00S16356.set     +++|          CRD    AB
23906  M00S16357.set     +++|          UJN    MST1        RECOVER *RD* DEVICE
23907  M00S16358.set     +++| ODB      SPACE  4,10
23908  M00S16359.set     +++|**        ODB - ALLOCATE OPERATOR DISPLAY BUFFER.
23909  M00S16360.set     +++|*
23910  M00S16361.set     +++|*         EXIT   (A) = 0.
23911  M00S16362.set     +++|*
23912  M00S16363.set     +++|*         USES   CM - CM+4.
23913  M00S16364.set     +++|*
23914  M00S16365.set     +++|*         CALLS  CLS.
23915  M00S16366.set     +++|
23916  M00S16367.set     +++|
23917  M00S16368.set     +++| ODB      SUBR               ENTRY/EXIT
23918  M00S16369.set     +++|          LDN    ZERL
23919  M00S16370.set     +++|          CRD    CM
23920  M00S16371.set     +++|          AOD    CM          SET UP INTERLOCK WORD
23921  M00S16372.set     +++|          LDD    CA
23922  M00S16373.set     +++|          SHN    14
23923  M00S16374.set     +++|          LMD    CA+1
23924  M00S16375.set     +++|          CWD    CM
23925  M00S16376.set     +++|          AOD    CA+1
23926  M00S16377.set     +++|          SHN    -14
23927  M00S16378.set     +++|          RAD    CA
23928  M00S16379.set     +++|          LDN    LODS-1      CLEAR BUFFER
23929  M00S16380.set     +++|          RJM    CLS
23930  M00S16381.set     +++|          LDN    0
23931  M00S16382.set     +++|          UJN    ODBX        RETURN
Line S02343 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23932  M01S02343.274l797 +++| ORT      SPACE  4,16
23933  M01S02344.274l797 +++|**        ORT - VERIFY OPTICAL DISK REQUEST TABLE.
23934  M01S02345.274l797 +++|*
23935  M01S02346.274l797 +++|*         EXIT   (A) = TABLE LENGTH.
23936  M01S02347.274l797 +++|*
23937  M01S02348.274l797 +++|*         CALLS  CTA.
23938  M01S02349.274l797 +++|*
23939  M01S02350.274l797 +++|*         MACROS CFI.
23940  M01S02351.274l797 +++|
23941  M01S02352.274l797 +++|
23942  M01S02353.274l797 +++| ORT      SUBR               ENTRY/EXIT
23943  M01S02354.274l797 +++|          LDC    ORTP
23944  M01S02355.274l797 +++|          RJM    CTA         CHECK TABLE ADDRESS
23945  M01S02356.274l797 +++|          CFI    ORT,CM+2    LENGTH OF TABLE
23946  M01S02357.274l797 +++|          UJN    ORTX        RETURN
23947  M01S02358.274l797 +++| OST      SPACE  4,16
23948  M01S02359.274l797 +++|**        OST - VERIFY OPTICAL DISK STATUS TABLE.
23949  M01S02360.274l797 +++|*
23950  M01S02361.274l797 +++|*         EXIT   (A) = TABLE LENGTH.
23951  M01S02362.274l797 +++|*
23952  M01S02363.274l797 +++|*         USES   T1.
23953  M01S02364.274l797 +++|*
23954  M01S02365.274l797 +++|*         CALLS  CTA, SSE.
23955  M01S02366.274l797 +++|
23956  M01S02367.274l797 +++|
23957  M01S02368.274l797 +++| OST2     LDD    T1          RETURN LENGTH
23958  M01S02369.274l797 +++|
23959  M01S02370.274l797 +++| OST      SUBR               ENTRY/EXIT
23960  M01S02371.274l797 +++|          LDC    OSTP
23961  M01S02372.274l797 +++|          RJM    CTA         CHECK TABLE ADDRESS
23962  M01S02373.274l797 +++|          LDN    0
23963  M01S02374.274l797 +++|          STD    T1
23964  M01S02375.274l797 +++|          LDC    1S17+2ROD
23965  M01S02376.274l797 +++| OST1     RJM    SSE         SEARCH FOR *OD* EQUIPMENT
23966  M01S02377.274l797 +++|          NJN    OST2        IF NO EQUIPMENT FOUND
23967  M01S02378.274l797 +++|          LDN    OSTE
23968  M01S02379.274l797 +++|          RAD    T1
23969  M01S02380.274l797 +++|          UJN    OST1        LOOP
Line S00025 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
23970  M01S00025.282l826 +++| PDB      SPACE  4,10
23971  M01S00026.282l826 +++|**        PDB - CLEAR PREVIEW DISPLAY BUFFER.
23972  M01S00027.282l826 +++|*
23973  M01S00028.282l826 +++|*         USES   CA, CA+1.
23974  M01S00029.282l826 +++|*
23975  M01S00030.282l826 +++|*         CALLS  CLS.
23976  M01S00031.282l826 +++|
23977  M01S00032.282l826 +++|
23978  M01S00033.282l826 +++| PDB      SUBR               ENTRY/EXIT
23979  M01S00034.282l826 +++|          LDD    CA          SET INTERLOCK WORD ADDRESS
23980  M01S00035.282l826 +++|          SHN    14
23981  M01S00036.282l826 +++|          ADD    CA+1
23982  M01S00037.282l826 +++|          CWM    PDBA,ON     INITIALIZE INTERLOCK WORD
23983  M01S00038.282l826 +++|          STD    CA+1        ADVANCE CENTRAL ADDRESS
23984  M01S00039.282l826 +++|          SHN    -14
23985  M01S00040.282l826 +++|          STD    CA
23986  M01S00041.282l826 +++|          LDC    LPDS-1
23987  M01S00042.282l826 +++|          RJM    CLS         CLEAR PREVIEW DISPLAY BUFFER
23988  M01S00043.282l826 +++|          LDN    0
23989  M01S00044.282l826 +++|          UJN    PDBX        RETURN
23990  M01S00045.282l826 +++|
23991  M01S00046.282l826 +++|
23992  M01S00047.282l826 +++| PDBA     VFD    12/7777B,12/0,12/0,12/0,12/0
Line S00061 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23993  M01S00061.253l688 +++| PSV      SPACE  4,10
23994  M01S00062.253l688 +++|**        PSV - VERIFY PP SAVE AREAS.
23995  M01S00063.253l688 +++|*
23996  M01S00064.253l688 +++|*         EXIT   (A) = 0.
23997  M01S00065.253l688 +++|*
23998  M01S00066.253l688 +++|*         USES   CM - CM+4.
23999  M01S00067.253l688 +++|*
24000  M01S00068.253l688 +++|*         CALLS  CLS, CTA.
24001  M01S00069.253l688 +++|
24002  M01S00070.253l688 +++|
24003  M01S00071.253l688 +++| PSV      SUBR               ENTRY/EXIT
24004  M01S00072.253l688 +++|          LDD    LD
24005  M01S00073.253l688 +++|          SHN    0-13
24006  M01S00074.253l688 +++|          ZJN    PSVX        IF NO ISHARED DEVICES
24007  M01S00075.253l688 +++|          LDC    2S12+PPSP   READ POINTER WORD
24008  M01S00076.253l688 +++|          RJM    CTA         CHECK TABLE ADDRESS
24009  M01S00077.253l688 +++| PSV1     LDC    PPSA        CLEAR SAVE AREA
24010  M01S00078.253l688 +++|          RJM    CLS
24011  M01S00079.253l688 +++|          SOD    CM+4
24012  M01S00080.253l688 +++|          NJN    PSV1        IF MORE SAVE AREAS
24013  M01S00081.253l688 +++|          UJN    PSVX        RETURN
24014  M00S16383.set     +++| QFT      SPACE  4,10
24015  M00S16384.set     +++|**        QFT - VERIFY QUEUE FILE TABLE.
24016  M00S16385.set     +++|*
24017  M00S16386.set     +++|*         EXIT   (A) = QFT LENGTH.
24018  M00S16387.set     +++|*
24019  M00S16388.set     +++|*         CALLS  CTA.
24020  M00S16389.set     +++|*
24021  M00S16390.set     +++|*         MACROS CFI.
24022  M00S16391.set     +++|
24023  M00S16392.set     +++|
24024  M00S16393.set     +++| QFT      SUBR               ENTRY/EXIT
24025  M00S16394.set     +++|          LDN    QFTP
24026  M00S16395.set     +++|          RJM    CTA
24027  M00S16396.set     +++|          CFI    QFT,CM+2
24028  M00S16397.set     +++|          UJN    QFTX        RETURN
24029  M00S16398.set     +++| RPT      SPACE  4,10
24030  M00S16399.set     +++|**        RPT - VERIFY RING PORT TABLE.
24031  M00S16400.set     +++|*
24032  M00S16401.set     +++|*         EXIT   (A) = TABLE LENGTH.
24033  M00S16402.set     +++|*
24034  M00S16403.set     +++|*         USES   T4.
24035  M00S16404.set     +++|*
24036  M00S16405.set     +++|*         CALLS  SSE.
24037  M00S16406.set     +++|
24038  M00S16407.set     +++|
24039  M00S16408.set     +++| RPT1     LDN    RPTL        ADD TABLE LENGTH
24040  M00S16409.set     +++|          RAD    T4
24041  M00S16410.set     +++| RPT2     RJM    SSE         SEARCH FOR *RP* EQUIPMENT
24042  M00S16411.set     +++|          ZJN    RPT1        IF FOUND
24043  M00S16412.set     +++|          LDD    T4
24044  M00S16413.set     +++|          ZJN    RPTX        IF NO TABLE SPACE RESERVED
24045  M00S16414.set     +++|          LDD    CA+1
24046  M00S16415.set     +++|          LPN    1S"RPTSM"-1
24047  M00S16416.set     +++|          ADD    T4
24048  M00S16417.set     +++|
24049  M00S16418.set     +++| RPT      SUBR               ENTRY/EXIT
24050  M00S16419.set     +++|          LDN    0
24051  M00S16420.set     +++|          STD    T4
24052  M00S16421.set     +++|          LDC    1S17+2RRP
24053  M00S16422.set     +++|          UJN    RPT2        SEARCH FOR EQUIPMENT
24054  M00S16423.set     +++| SAB      SPACE  4,10
24055  M00S16424.set     +++|**        SAB - VERIFY SYSTEM ATTRIBUTE BLOCK.
24056  M00S16425.set     +++|*
24057  M00S16426.set     +++|*         EXIT   (A) = TABLE LENGTH.
24058  M00S16427.set     +++|*
24059  M00S16428.set     +++|*         CALLS  CTA.
24060  M00S16429.set     +++|
24061  M00S16430.set     +++|
24062  M00S16431.set     +++| SAB      SUBR               ENTRY/EXIT
24063  M00S16432.set     +++|          LDK    SABL
24064  M00S16433.set     +++|          RJM    CTA
24065  M00S16434.set     +++|          LDD    CM+2        TABLE LENGTH
24066  M00S16435.set     +++|          UJN    SABX        RETURN
24067  M00S16436.set     +++| SCD      SPACE  4,10
24068  M00S16437.set     +++|**        SCD - VERIFY *SCD* PARAMETER TABLE.
24069  M00S16438.set     +++|*
24070  M00S16439.set     +++|*         EXIT   (A) = 0.
24071  M00S16440.set     +++|*
Line S16441 Modification History
M01 (Removed by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24072  M01S16441.ns2557  ---|*         CALLS  CTA, SPT.
24073  M01S16442.ns2557  ---|
24074  M01S16443.ns2557  ---|
24075  M01S16444.ns2557  ---| SCD      SUBR               ENTRY/EXIT
24076  M01S16445.ns2557  ---|          LDM    .DCS
24077  M01S16446.ns2557  ---|          ZJN    SCDX        IF DEADSTART FROM CC545
24078  M01S16447.ns2557  ---|          LDC    2S12+SCDP
24079  M01S16448.ns2557  ---|          RJM    CTA
24080  M01S16449.ns2557  ---|          RJM    SPT         SETUP PARAMETER TABLE
24081  M01S16450.ns2557  ---|          LDN    0
24082  M01S16451.ns2557  ---|          UJN    SCDX        RETURN
Line S00139 Modification History
M01 (Added by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24083  M01S00139.ns2557  +++|*         USES   CM - CM+4.
24084  M01S00140.ns2557  +++|*
24085  M01S00141.ns2557  +++|*         CALLS  CLS, CTA, SPT.
24086  M01S00142.ns2557  +++|
24087  M01S00143.ns2557  +++|
24088  M01S00144.ns2557  +++| SCD1     LDC    PSAL        CLEAR SAVE AREA
24089  M01S00145.ns2557  +++|          RJM    CLS
24090  M01S00146.ns2557  +++| SCD2     LDN    0
24091  M01S00147.ns2557  +++|
24092  M01S00148.ns2557  +++| SCD      SUBR               ENTRY/EXIT
24093  M01S00149.ns2557  +++|          LDM    C8XX
24094  M01S00150.ns2557  +++|          NJN    SCD2        IF NOT 180-CLASS MAINFRAME
24095  M01S00151.ns2557  +++|          LDC    SCDP        FETCH PARAMETER TABLE POINTER
24096  M01S00152.ns2557  +++|          CRD    CM
24097  M01S00153.ns2557  +++|          LDD    CM+2
24098  M01S00154.ns2557  +++|          ADD    CM+3
24099  M01S00155.ns2557  +++|          ZJN    SCD1        IF NO *SCI* PARAMETER TABLE
24100  M01S00156.ns2557  +++|          LDC    2S12+SCDP
24101  M01S00157.ns2557  +++|          RJM    CTA
24102  M01S00158.ns2557  +++|          RJM    SPT         SET UP PARAMETER TABLE
24103  M01S00159.ns2557  +++|          UJN    SCD1        RESERVE PP RESIDENT SAVE AREA
24104  M00S16452.set     +++| SCT      SPACE  4,10
24105  M00S16453.set     +++|**        SCT - VERIFY SUBSYSTEM CONTROL TABLE.
24106  M00S16454.set     +++|*
24107  M00S16455.set     +++|*         EXIT   (A) = TABLE LENGTH.
24108  M00S16456.set     +++|*
24109  M00S16457.set     +++|*         CALLS  CTA.
24110  M00S16458.set     +++|
24111  M00S16459.set     +++|
24112  M00S16460.set     +++| SCT      SUBR               ENTRY/EXIT
24113  M00S16461.set     +++|          LDC    2S12+SSCP
24114  M00S16462.set     +++|          RJM    CTA
24115  M00S16463.set     +++|          LDN    SSCTL*2     TABLE LENGTH
24116  M00S16464.set     +++|          UJN    SCTX        RETURN
24117  M00S16465.set     +++| SDA      SPACE  4,10
24118  M00S16466.set     +++|**        SDA - VERIFY STATISTICAL DATA AREA.
24119  M00S16467.set     +++|*
24120  M00S16468.set     +++|*         EXIT   (A) = STATISTICAL DATA AREA LENGTH.
24121  M00S16469.set     +++|*
24122  M00S16470.set     +++|*         CALLS  CTA.
24123  M00S16471.set     +++|
24124  M00S16472.set     +++|
24125  M00S16473.set     +++| SDA      SUBR               ENTRY/EXIT
24126  M00S16474.set     +++|          LDC    SDAP        CHECK STATISTICAL AREA POINTER
24127  M00S16475.set     +++|          RJM    CTA
24128  M00S16476.set     +++|          LDN    SDAL        SET STATISTICAL AREA LENGTH
24129  M00S16477.set     +++|          UJN    SDAX        RETURN
24130  M00S16478.set     +++| SIE      SPACE  4,10
24131  M00S16479.set     +++|**        SIE - *SET* INTERNAL ERROR.
24132  M00S16480.set     +++|*
24133  M00S16481.set     +++|*         ENTRY  TABLE VERIFICATION PROCESSOR MISSING.
24134  M00S16482.set     +++|*
24135  M00S16483.set     +++|*         EXIT   TO *DSE*.
24136  M00S16484.set     +++|
24137  M00S16485.set     +++|
24138  M00S16486.set     +++| SIE      CON    0           ENTRY
24139  M00S16487.set     +++|          LDC    =C+*SET* INTERNAL ERROR IN *RCM*.+
24140  M00S16488.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
24141  M00S16489.set     +++| SIT      SPACE  4,10
24142  M00S16490.set     +++|**        SIT - VERIFY *SECDED* ID TABLE.
24143  M00S16491.set     +++|*
24144  M00S16492.set     +++|*         EXIT   (A) = 0.
24145  M00S16493.set     +++|*
24146  M00S16494.set     +++|*         CALLS  CLS, CTA.
24147  M00S16495.set     +++|
24148  M00S16496.set     +++|
24149  M00S16497.set     +++| SIT      SUBR               ENTRY/EXIT
24150  M00S16498.set     +++|          LDM    C8XX
24151  M00S16499.set     +++|          ZJN    SITX        IF LOWER 800 SERIES MAINFRAME
24152  M00S16500.set     +++|          LDC    SCRL
24153  M00S16501.set     +++|          RJM    CTA
Line S16502 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
24154  M01S16502.272l774 ---|          LDN    2*UIDL      CLEAR *SECDED* ID TABLE
Line S00072 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
24155  M01S00072.272l774 +++|          LDN    2*/SCR/UIDL CLEAR *SECDED* ID TABLE
24156  M00S16503.set     +++|          RJM    CLS
24157  M00S16504.set     +++|          LDN    0
24158  M00S16505.set     +++|          UJN    SITX        RETURN
24159  M00S16506.set     +++| TRT      SPACE  4,10
24160  M00S16507.set     +++|**        TRT - VERIFY TRACK RESERVATION TABLE POINTERS.
24161  M00S16508.set     +++|*
24162  M00S16509.set     +++|*         EXIT   (A) = 0.
24163  M00S16510.set     +++|*
24164  M00S16511.set     +++|*         USES   EQ, CM - CM+4, CN - CN+4.
24165  M00S16512.set     +++|*
24166  M00S16513.set     +++|*         CALLS  CDL, SME.
24167  M00S16514.set     +++|
24168  M00S16515.set     +++|
24169  M00S16516.set     +++| TRT2     LDD    AB+4        FETCH TRT LENGTH
24170  M00S16517.set     +++|          SHN    3
24171  M00S16518.set     +++|          ADK    TDGL
24172  M00S16519.set     +++|          CRD    CM
24173  M00S16520.set     +++|          ADN    TRLL-TDGL   READ TRT ADDRESS
24174  M00S16521.set     +++|          CRD    CN
24175  M00S16522.set     +++|          LDD    CN+4        CHECK TRT ADDRESS
24176  M00S16523.set     +++|          LMD    CA+1
24177  M00S16524.set     +++|          NJN    TRT1        IF ADDRESS BAD
24178  M00S16525.set     +++|          LDD    CN+3
24179  M00S16526.set     +++|          LPN    77
24180  M00S16527.set     +++|          LMD    CA
24181  M00S16528.set     +++|          NJN    TRT1        IF ADDRESS BAD
24182  M00S16529.set     +++|          RJM    CDL
24183  M00S16530.set     +++|          RAD    CA+1        ADVANCE CENTRAL ADDRESS
24184  M00S16531.set     +++|          SHN    -14
24185  M00S16532.set     +++|          RAD    CA
24186  M00S16533.set     +++| TRT3     RJM    SME
24187  M00S16534.set     +++|          NJN    TRT2        IF NOT END OF MS EST
24188  M00S16535.set     +++|
24189  M00S16536.set     +++| TRT      SUBR               ENTRY/EXIT
24190  M00S16537.set     +++|          LDN    NOPE-1
24191  M00S16538.set     +++|          STD    EQ
24192  M00S16539.set     +++|          UJN    TRT3        BEGIN EQUIPMENT SEARCH
24193  M00S16540.set     +++|
24194  M00S16541.set     +++| TRT1     LDC    =C*TRT ADDRESS ERROR.*
24195  M00S16542.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
Line S16543 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24196  M01S16543.271l716 ---| VEM      SPACE  4,10
24197  M01S16544.271l716 ---|**        VEM - VERIFY EI LEVEL AND MICROCODE NAME.
24198  M01S16545.271l716 ---|*
24199  M01S16546.271l716 ---|*         ENTRY  (HO) = HARDWARE DESCRIPTOR WORD.
24200  M01S16547.271l716 ---|*
24201  M01S16548.271l716 ---|*         EXIT   TO *DSE* IF EI LEVEL OR MICROCODE NAMES
24202  M01S16549.271l716 ---|*                DO NOT MATCH.
24203  M01S16550.271l716 ---|*
24204  M01S16551.271l716 ---|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T7.
24205  M01S16552.271l716 ---|
24206  M01S16553.271l716 ---|
24207  M01S16554.271l716 ---| VEM      SUBR               ENTRY/EXIT
24208  M01S16555.271l716 ---|          LDM    C8XX
24209  M01S16556.271l716 ---|          NJN    VEMX        IF NOT CYBER 800 TYPE MAINFRAME
24210  M01S16557.271l716 ---|          LDC    MEBF        GET MICROCODE/EI NAMES PASSED BY CTI
24211  M01S16558.271l716 ---|          CRD    CM
24212  M01S16559.271l716 ---|          SBN    MEBF-SABL   GET MAINFRAME DESCRIPTOR ADDRESS
24213  M01S16560.271l716 ---|          CRD    T1
24214  M01S16561.271l716 ---|          ADN    EABL+CPEI-SABL
24215  M01S16562.271l716 ---|          CRD    AB
24216  M01S16563.271l716 ---|          LDD    AB+1        FETCH ORIGINAL MICROCODE NAME
24217  M01S16564.271l716 ---|          SCN    77
24218  M01S16565.271l716 ---|          SHN    6
24219  M01S16566.271l716 ---|          LMD    AB
24220  M01S16567.271l716 ---|          SHN    6
24221  M01S16568.271l716 ---|          ADN    1
24222  M01S16569.271l716 ---|          CRD    T3
24223  M01S16570.271l716 ---|          ADN    1
24224  M01S16571.271l716 ---|          CRD    CN
24225  M01S16572.271l716 ---|          LDD    T3+2
24226  M01S16573.271l716 ---|          SHN    21-0
24227  M01S16574.271l716 ---|          PJN    VEM0        IF CPU-0 IS ENABLED
24228  M01S16575.271l716 ---|          LDD    AB+1        FETCH MICROCODE FROM CPU-1 BLOCK
24229  M01S16576.271l716 ---|          LPN    77
24230  M01S16577.271l716 ---|          SHN    14
24231  M01S16578.271l716 ---|          LMD    AB+2
24232  M01S16579.271l716 ---|          ADN    2
24233  M01S16580.271l716 ---|          CRD    CN
24234  M01S16581.271l716 ---| VEM0     LDN    0           CLEAR MISMATCH FLAG
Proceed to Part 14
cdc/nos2.source/opl.opl871/deck/set.013.txt ยท Last modified: by 127.0.0.1