User Tools

Site Tools


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

Deck SET Part 018

79 Modifications

Listing Sections

Source

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 (Updated by) set69
Seq #  *Modification Id* Act 
----------------------------+
22657  M02S01133.set69   ---| FFL5     PJN    FFL1        IF RA FARTHER FROM CURRENT POSITION
22658  M01S00006.set69   +++| FFL5     PJN    FFL3.1      IF RA FARTHER FROM CURRENT POSITION
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 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
22819  M02S01294.271l750 ---|          ADN    JCIW        READ JOB CONTROL
Line S01295 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
22820  M02S01295.271l750 ---|          CRD    CM
Line S01296 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
22821  M02S01296.271l750 ---|          ADN    FLSW-JCIW   READ FL CONTROL WORDS
22822  M01S00232.271l750 +++|          ADN    FLSW        READ FL CONTROL WORDS
22823  M01S01297.271l716 +++|          CRD    AB
22824  M01S01298.271l716 +++|          ADN    1
22825  M01S01299.271l716 +++|          CRD    CN
22826  M01S00233.271l750 +++|          ADN    JCIW-FLSW-1 READ JOB CONTROL
22827  M01S00234.271l750 +++|          CRD    CM
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 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
23078  M02S01550.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1987.
23079  M01S00011.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
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 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
23086  M02S01557.ns2783  ---| RCT      RJM    MDG         MODIFY DISPLAY GENERATORS
23087  M01S00150.ns2783  +++| RCT      BSS    0           ENTRY
23088  M01S00151.ns2783  +++|          RJM    PRT         PRESET *RCT*
23089  M01S15761.set     +++|
23090  M01S15762.set     +++|*         VERIFY CMR TABLES.
23091  M01S15763.set     +++|
23092  M01S15764.set     +++|          LDN    0
23093  M01S15765.set     +++|          STD    LA
Line S15766 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23094  M02S15766.271l716 ---| RCM1     LDM    TCTP,LA     SET PROCESSOR ADDRESS
23095  M01S01558.271l716 +++| RCT1     LDM    TCTP,LA     SET PROCESSOR ADDRESS
23096  M01S15767.set     +++|          STD    T1
23097  M01S15768.set     +++|          RJM    0,T1        VERIFY TABLE
23098  M01S15769.set     +++|
23099  M01S15770.set     +++|*         PROCESSORS RETURN WITH (A) = TABLE LENGTH OR 0.
23100  M01S15771.set     +++|
23101  M01S15772.set     +++|          RAD    CA+1        ADVANCE CENTRAL ADDRESS
23102  M01S15773.set     +++|          SHN    -14
23103  M01S15774.set     +++|          RAD    CA
23104  M01S15775.set     +++|          AOD    LA          INCREMENT TABLE NUMBER
23105  M01S15776.set     +++|          LMN    TSGTE
Line S15777 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23106  M02S15777.271l716 ---|          NJN    RCM1        IF NOT END OF TABLES
Line S15778 Modification History
M01 (Added by) set
M02 (Updated by) set53
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23107  M03S15778.271l716 ---|          RJM    CMI         CLEAR MDI LOAD INTERLOCK
Line S00001 Modification History
M01 (Added by) set53
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23108  M02S00001.271l716 ---|          RJM    CEI         CLEAR EST INTERLOCKS
Line S15779 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23109  M02S15779.271l716 ---|          RJM    VEM         VERIFY EI LEVEL AND MICROCODE NAME
Line S15780 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23110  M02S15780.271l716 ---|          RJM    CKB         CLEAR KEYBOARD BUFFER
23111  M01S01559.271l716 +++|          NJN    RCT1        IF NOT END OF TABLES
23112  M01S15781.set     +++|
23113  M01S15782.set     +++|*         COMPLETE TABLES.
23114  M01S15783.set     +++|
23115  M01S01560.271l716 +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
23116  M01S15784.set     +++|          LDC    BIOL
23117  M01S15785.set     +++|          CRD    CN
Line S15786 Modification History
M01 (Added by) set
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23118  M02S15786.ns2535  ---|          LDN    CMRL
Line S15787 Modification History
M01 (Added by) set
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23119  M02S15787.ns2535  ---|          CRD    CM
23120  M01S15788.set     +++|          LDD    CA          SET CM ADDRESS
23121  M01S15789.set     +++|          STD    CN+3
23122  M01S15790.set     +++|          SHN    14
23123  M01S15791.set     +++|          LMD    CA+1
23124  M01S15792.set     +++|          STD    CN+4
23125  M01S15793.set     +++|          ADN    77
23126  M01S15794.set     +++|          SHN    -6
Line S15795 Modification History
M01 (Added by) set
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23127  M02S15795.ns2535  ---|          STD    CM+4
23128  M01S00001.ns2535  +++|          STD    T0
23129  M01S15796.set     +++|          LDD    EB          SET LOAD ADDRESS FOR *CPUMLD*
23130  M01S15797.set     +++|          STD    CN
Line S15798 Modification History
M01 (Added by) set
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23131  M02S15798.ns2535  ---|          SBD    CM+4
23132  M01S00002.ns2535  +++|          SBD    T0
Line S15799 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23133  M02S15799.271l716 ---|          PJN    RCM2        IF NO CMR OVERFLOW
23134  M01S01561.271l716 +++|          PJN    RCT2        IF NO CMR OVERFLOW
23135  M01S15800.set     +++|          LDC    =C*CMR OVERFLOW.*
23136  M01S15801.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
23137  M01S15802.set     +++|
Line S15803 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
23138  M02S15803.271l716 ---| RCM2     LDC    BIOL        STORE CPUMTR LOAD ADDRESS
23139  M01S01562.271l716 +++| RCT2     LDC    BIOL        STORE CPUMTR LOAD ADDRESS
23140  M01S15804.set     +++|          CWD    CN
Line S15805 Modification History
M01 (Added by) set
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23141  M02S15805.ns2535  ---|          LDN    CMRL        STORE CMR LENGTH
Line S15806 Modification History
M01 (Added by) set
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23142  M02S15806.ns2535  ---|          CWD    CM
Line S15807 Modification History
M01 (Added by) set
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
23143  M02S15807.ns2535  ---|          LDC    DSCP*CPAS+SNSW
23144  M01S00003.ns2535  +++|          ADK    DSCP*CPAS+SNSW-BIOL
23145  M01S15808.set     +++|          CRD    CM
23146  M01S15809.set     +++|          LDD    CM+4        CLEAR *DSD* RECOVERY INTERLOCK
23147  M01S15810.set     +++|          SCN    1
23148  M01S15811.set     +++|          STD    CM+4
23149  M01S15812.set     +++|          LDC    DSCP*CPAS+SNSW
23150  M01S15813.set     +++|          CWD    CM
23151  M01S15814.set     +++|          RJM    DRO         DISPLAY RECOVERY OPTIONS
23152  M01S15815.set     +++|          LJM    SET2        COMPLETE RECOVERY
23153  M01S15816.set     +++|          TITLE  TABLE VERIFICATION PROCESSORS.
23154  M01S15817.set     +++| BDT      SPACE  4,10
23155  M01S15818.set     +++|**        BDT - ALLOCATE BUFFERED DEVICE CONTROL TABLES.
23156  M01S15819.set     +++|*
23157  M01S15820.set     +++|*         EXIT   (A) = TABLE LENGTH.
23158  M01S15821.set     +++|*
23159  M01S15822.set     +++|*         USES   T1, CN - CN+4.
23160  M01S15823.set     +++|*
23161  M01S15824.set     +++|*         CALLS  CLS, CTA.
23162  M01S15825.set     +++|
23163  M01S15826.set     +++|
23164  M01S15827.set     +++| BDT      SUBR               ENTRY/EXIT
23165  M01S15828.set     +++|          LDC    BIOL
23166  M01S15829.set     +++|          CRD    CN
23167  M01S15830.set     +++|          LDD    CN+1
23168  M01S15831.set     +++|          ADD    CN+2
23169  M01S15832.set     +++|          ZJN    BDTX        IF NO BUFFERED DEVICES
23170  M01S15833.set     +++|          LDC    1S12+BIOL
23171  M01S15834.set     +++|          RJM    CTA
Line S15835 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23172  M02S15835.274l797 ---|          LDN    /EQP/BDTAL/5  ADVANCE CENTRAL ADDRESS
Line S02342 Modification History
M01 (Added by) 274l797
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
23173  M02S02342.283l840 ---|          LDN    /ICM/BDTAL/5  ADVANCE CENTRAL ADDRESS
23174  M01S00826.283l840 +++|          LDN    /ICT/BDTAL/5  ADVANCE CENTRAL ADDRESS
23175  M01S15836.set     +++|          RAD    CA+1
23176  M01S15837.set     +++|          SHN    -14
23177  M01S15838.set     +++|          RAD    CA
23178  M01S15839.set     +++|          LDD    CN+4        COMPUTE LENGTH OF TABLES
23179  M01S15840.set     +++|          SBD    CA+1
23180  M01S15841.set     +++|          STD    T1
23181  M01S15842.set     +++|          PJN    BDT1        IF NO BORROW
23182  M01S15843.set     +++|          SOD    CN+3
23183  M01S15844.set     +++|          AOD    T1
23184  M01S15845.set     +++| BDT1     LDD    CN+3
23185  M01S15846.set     +++|          SBD    CA
23186  M01S15847.set     +++|          SHN    14
23187  M01S15848.set     +++|          LMD    T1
23188  M01S15849.set     +++|          UJN    BDTX        RETURN
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  M01S15850.set     +++| CHT      SPACE  4,10
23236  M01S15851.set     +++|**        CHT - VERIFY CHANNEL TABLES.
23237  M01S15852.set     +++|*
23238  M01S15853.set     +++|*         EXIT   (A) = LENGTH OF CHANNEL TABLES.
23239  M01S15854.set     +++|*
23240  M01S15855.set     +++|*         USES   T1, T2.
23241  M01S15856.set     +++|*
23242  M01S15857.set     +++|*         CALLS  CTA.
23243  M01S15858.set     +++|
23244  M01S15859.set     +++|
23245  M01S15860.set     +++| CHT      SUBR               ENTRY/EXIT
23246  M01S15861.set     +++|          LDC    2S12+CHTP
23247  M01S15862.set     +++|          RJM    CTA
23248  M01S15863.set     +++|          LDN    CTALL       SET CONTROLWARE TABLE LENGTH
23249  M01S15864.set     +++|          STD    T1
23250  M01S15865.set     +++|          LDD    CA          READ CONTROLWARE TABLE
23251  M01S15866.set     +++|          SHN    14
23252  M01S15867.set     +++|          LMD    CA+1
23253  M01S15868.set     +++|          ADN    CTALL*2
23254  M01S15869.set     +++|          CRM    MBUF,T1
23255  M01S15870.set     +++|          LDN    5*CTALL-1   EDIT CONTROLWARE TABLE
23256  M01S15871.set     +++|          STD    T2
23257  M01S15872.set     +++| CHT1     LDM    MBUF,T2     CLEAR LOAD FLAGS
23258  M01S15873.set     +++|          LPC    777
23259  M01S15874.set     +++|          STM    MBUF,T2
23260  M01S15875.set     +++|          SOD    T2
23261  M01S15876.set     +++|          PJN    CHT1        IF NOT END OF TABLE
23262  M01S15877.set     +++|          LDD    CA
23263  M01S15878.set     +++|          SHN    14
23264  M01S15879.set     +++|          LMD    CA+1        STORE CONTROLWARE TABLE
23265  M01S15880.set     +++|          ADN    CTALL*2
23266  M01S15881.set     +++|          CWM    MBUF,T1
23267  M01S15882.set     +++|          LDN    CTALL*3     LENGTH OF CHANNEL TABLES
23268  M01S15883.set     +++|          UJN    CHTX        RETURN
23269  M01S15884.set     +++| CLT      SPACE  4,10
23270  M01S15885.set     +++|**        CLT - VERIFY COMMON LIBRARIES TABLE.
23271  M01S15886.set     +++|*
23272  M01S15887.set     +++|*         EXIT   (A) = TABLE LENGTH.
23273  M01S15888.set     +++|*
23274  M01S15889.set     +++|*         CALLS  CTA.
23275  M01S15890.set     +++|*
23276  M01S15891.set     +++|*         MACROS CFI.
23277  M01S15892.set     +++|
23278  M01S15893.set     +++|
23279  M01S15894.set     +++| CLT      SUBR               ENTRY/EXIT
23280  M01S15895.set     +++|          LDC    CLTP
23281  M01S15896.set     +++|          RJM    CTA
23282  M01S15897.set     +++|          CFI    CLT,CM+2    LENGTH OF TABLE
23283  M01S15898.set     +++|          UJN    CLTX        RETURN
23284  M01S15899.set     +++| DFB      SPACE  4,10
23285  M01S15900.set     +++|**        DFB - VERIFY DAYFILE BUFFERS.
23286  M01S15901.set     +++|*
23287  M01S15902.set     +++|*         EXIT   (A) = 0.
23288  M01S15903.set     +++|*
23289  M01S15904.set     +++|*         USES   T3, T6, T7, CM - CM+2.
23290  M01S15905.set     +++|*
23291  M01S15906.set     +++|*         CALLS  CDP, CLS, CTA.
23292  M01S15907.set     +++|
23293  M01S15908.set     +++|
23294  M01S15909.set     +++| DFB      SUBR               ENTRY/EXIT
23295  M01S15910.set     +++|          LDN    DFPP        SET FWA OF DAYFILE POINTERS
23296  M01S15911.set     +++|          CRD    T6
23297  M01S15912.set     +++|          LDN    0           SET SYSTEM DAYFILE BUFFER NUMBER
23298  M01S15913.set     +++|          STD    T3
23299  M01S15914.set     +++| DFB1     RJM    CDP
23300  M01S15915.set     +++|          LDN    3           ADVANCE DAYFILE POINTER ADDRESS
23301  M01S15916.set     +++|          RAD    T7
23302  M01S15917.set     +++|          SHN    -14
23303  M01S15918.set     +++|          RAD    T6
23304  M01S15919.set     +++|          AOD    T3          ADVANCE DAYFILE NUMBER
23305  M01S15920.set     +++|          LMN    EXDF
23306  M01S15921.set     +++|          NJN    DFB1        IF NOT END OF EXCESS DAYFILES
23307  M01S15922.set     +++|          LDC    2S12+DFPP
23308  M01S15923.set     +++|          RJM    CTA
23309  M01S15924.set     +++|          LDN    1           SET PP DUMP BUFFER NOT BUSY
23310  M01S15925.set     +++|          STD    CM+4
23311  M01S15926.set     +++|          LDN    DFPP        STORE POINTER
23312  M01S15927.set     +++|          CWD    CM
Line S15928 Modification History
M01 (Added by) set
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23313  M02S15928.253l688 ---|          LDD    LD
Line S15929 Modification History
M01 (Added by) set
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23314  M02S15929.253l688 ---|          SHN    0-13
Line S15930 Modification History
M01 (Added by) set
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23315  M02S15930.253l688 ---|          ZJN    DFB2        IF NO ISD-S DEFINED
Line S15931 Modification History
M01 (Added by) set
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23316  M02S15931.253l688 ---|          LDM    .PPU
Line S15932 Modification History
M01 (Added by) set
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23317  M02S15932.253l688 ---|          SHN    10          ALLOCATE SPACE FOR PP SAVE AREAS
Line S15933 Modification History
M01 (Added by) set
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23318  M02S15933.253l688 ---|          SBK    DBPS
Line S15934 Modification History
M01 (Added by) set
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
23319  M02S15934.253l688 ---| DFB2     ADC    DFDS+3      CLEAR DUMP BUFFER
23320  M01S00060.253l688 +++|          LDC    DFDS+3      CLEAR DUMP BUFFER
23321  M01S15935.set     +++|          RJM    CLS
23322  M01S15936.set     +++|          LDN    0
23323  M01S15937.set     +++|          LJM    DFBX        RETURN
23324  M01S15938.set     +++| ECB      SPACE  4,10
23325  M01S15939.set     +++|**        ECB - VERIFY *EICB* TABLES.
23326  M01S15940.set     +++|*
23327  M01S15941.set     +++|*         EXIT   (A) = LENGTH OF *EICB* TABLES.
23328  M01S15942.set     +++|*
23329  M01S15943.set     +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T3 - T7.
23330  M01S15944.set     +++|*
23331  M01S15945.set     +++|*         CALLS  CTA.
23332  M01S15946.set     +++|
23333  M01S15947.set     +++|
Line S15948 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
23334  M02S15948.ns2557  ---| ECB2     ADN    DSCM+3-D7ST READ DFT/OS POINTER
23335  M01S00120.ns2557  +++| ECB2     ADN    DSCM+3-D7RS READ DFT/OS POINTER
23336  M01S15949.set     +++|          CRD    CN
Line S15950 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23337  M02S15950.261l700 ---|          LDD    AB+3        ADD SIZE OF *MLST*
Line S15951 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23338  M02S15951.261l700 ---|          LPN    77
Line S15952 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23339  M02S15952.261l700 ---|          RAD    CN+4
23340  M01S00260.261l700 +++|          LDD    AB+3        SAVE SIZE OF *MLST*
23341  M01S00261.261l700 +++|          LPN    77
23342  M01S00262.261l700 +++|          STD    T2
23343  M01S15953.set     +++|          LDD    CN+2        READ *DFT* CONTROL WORD
23344  M01S15954.set     +++|          SHN    14
23345  M01S15955.set     +++|          LMD    CN+3
23346  M01S15956.set     +++|          SHN    -4
23347  M01S15957.set     +++|          SHN    6
23348  M01S15958.set     +++|          LMD    CN
23349  M01S15959.set     +++|          CRD    AB
23350  M01S15960.set     +++|          ADN    DFRQ        READ NOS REQUEST AREA POINTER
23351  M01S15961.set     +++|          CRD    T3
23352  M01S15962.set     +++|          LDD    T3+2        READ NOS REQUEST HEADER
23353  M01S15963.set     +++|          SHN    14
23354  M01S15964.set     +++|          LMD    T3+3
23355  M01S15965.set     +++|          SHN    -4
23356  M01S15966.set     +++|          SHN    6
23357  M01S15967.set     +++|          LMD    T3
23358  M01S15968.set     +++|          CRD    CM
23359  M01S15969.set     +++|          LDD    AB+4
23360  M01S15970.set     +++|          LPC    7426        CLEAR FLAGS (V, R, Z, L, E7)
23361  M01S15971.set     +++|          ADN    10          SET LOGGING FLAG
23362  M01S15972.set     +++|          STD    AB+4
23363  M01S15973.set     +++|
23364  M01S15974.set     +++|*         POST REQUEST TO *DFT* TO UPDATE ERROR THRESHOLDS.
23365  M01S15975.set     +++|
23366  M01S15976.set     +++|          LDM    .CPU        CHECK CPU CONFIGURATION
23367  M01S15977.set     +++|          LPN    2
23368  M01S15978.set     +++|          ZJN    ECB3        IF CPU-1 PRESENT
23369  M01S15979.set     +++|          LDN    ZERL        CLEAR THRESHOLDS FOR CPU-1
23370  M01S15980.set     +++|          CRM    ECBB,ON
Line S15981 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23371  M02S15981.261l700 ---| ECB3     LDN    STRY        SET STATUS = *READY*
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  M01S15982.set     +++|          STD    CM+4
23377  M01S15983.set     +++|          LDD    CN+2        REWRITE *DFT* CONROL WORD
23378  M01S15984.set     +++|          SHN    14
23379  M01S15985.set     +++|          LMD    CN+3
23380  M01S15986.set     +++|          SHN    -4
23381  M01S15987.set     +++|          SHN    6
23382  M01S15988.set     +++|          LMD    CN
23383  M01S15989.set     +++|          CWD    AB
23384  M01S15990.set     +++|          LDN    ECBAL/5     SET WORD COUNT
23385  M01S15991.set     +++|          STD    T3+4
23386  M01S15992.set     +++|          LDD    T3+2        WRITE NOS REQUEST HEADER
23387  M01S15993.set     +++|          SHN    14
23388  M01S15994.set     +++|          LMD    T3+3
23389  M01S15995.set     +++|          SHN    -4
23390  M01S15996.set     +++|          SHN    6
23391  M01S15997.set     +++|          LMD    T3
23392  M01S15998.set     +++|          CWD    CM
23393  M01S15999.set     +++|          ADN    1           WRITE THRESHOLD REQUEST TO BUFFER
23394  M01S16000.set     +++|          CWM    ECBA,T3+4
Line S16001 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23395  M02S16001.261l700 ---|          LDD    CN+4
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 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
23401  M02S16002.261l700 ---|          ADK    DSCBL       (A) = LENGTH OF *EICB* TABLES
23402  M01S00272.261l700 +++|          ADK    DSCBL+1     (A) = LENGTH OF *EICB* TABLES
23403  M01S16003.set     +++|
23404  M01S16004.set     +++| ECB      SUBR               ENTRY/EXIT
23405  M01S16005.set     +++|          LDC    UEML
23406  M01S16006.set     +++|          CRD    T3
23407  M01S16007.set     +++|          ADK    EIBP-UEML
23408  M01S16008.set     +++|          CRD    CM
23409  M01S16009.set     +++|          LDD    CM+3
23410  M01S16010.set     +++|          ADD    CM+4
23411  M01S16011.set     +++|          ZJN    ECBX        IF NO *EICB*
23412  M01S16012.set     +++|          LDC    3S12+EIBP
23413  M01S16013.set     +++|          RJM    CTA
23414  M01S16014.set     +++|
23415  M01S16015.set     +++|*         CALCULATE ORIGINAL MACHINE FL.
23416  M01S16016.set     +++|
23417  M01S16017.set     +++|          LDD    CA          FETCH MEMORY ALLOCATION VALUES
23418  M01S16018.set     +++|          SHN    14
23419  M01S16019.set     +++|          LMD    CA+1
23420  M01S16020.set     +++|          ADN    D7ST
23421  M01S16021.set     +++|          CRD    AB
23422  M01S16022.set     +++|          ADN    D7CM-D7ST
23423  M01S16023.set     +++|          CRD    CM
23424  M01S16024.set     +++|          ADN    1
23425  M01S16025.set     +++|          CRD    CN
23426  M01S16026.set     +++|          LDD    T3+4
23427  M01S16027.set     +++|          LPN    2
Line S16028 Modification History
M01 (Added by) set
M02 (Updated by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23428  M02S16028.ns2633a ---|          NJN    ECB1        IF UEM DEFINED
23429  M01S00001.ns2633a +++|          NJP    ECB1        IF UEM DEFINED
Line S16029 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23430  M02S16029.ns2633  ---|          LDD    CN+3        CALCULATE CURRENT NVE FIELD LENGTH
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  M01S16030.set     +++|          SBD    CN+1
Line S16031 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23439  M02S16031.ns2633  ---|          SHN    14
Line S16032 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23440  M02S16032.ns2633  ---|          LMD    CN+4
Line S16033 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23441  M02S16033.ns2633  ---|          SBD    CN+2
23442  M01S00074.ns2633  +++|          STD    CM
23443  M01S00075.ns2633  +++|          ADD    CM+1
23444  M01S16034.set     +++|          ZJN    ECB1        IF NO NVE FL
Line S16035 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23445  M02S16035.ns2633  ---|          STD    CN+4
Line S16036 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23446  M02S16036.ns2633  ---|          SHN    -14
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  M01S16037.set     +++|          SBD    CM+3
23455  M01S00083.ns2633  +++|          STD    CM+3
23456  M01S16038.set     +++|          MJN    ECB1        IF FL WITHIN RESERVED BLOCK
Line S16039 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23457  M02S16039.ns2633  ---|          SHN    14
Line S16040 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23458  M02S16040.ns2633  ---|          ADD    CN+4
Line S16041 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23459  M02S16041.ns2633  ---|          SBD    CM+4
Line S16042 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23460  M02S16042.ns2633  ---|          MJN    ECB1        IF FL WITHIN RESERVED BLOCK
23461  M01S00084.ns2633  +++|          ADD    CM+4
23462  M01S16043.set     +++|          ZJN    ECB1        IF FL WITHIN RESERVED BLOCK
Line S16044 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23463  M02S16044.ns2633  ---|          SHN    3
Line S16045 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23464  M02S16045.ns2633  ---|          STD    T7
Line S16046 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23465  M02S16046.ns2633  ---|          SHN    -6
Line S00085 Modification History
M01 (Added by) ns2633
M02 (Updated by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23466  M02S00085.ns2633a ---|          LDD    CM+3        SAVE DUAL STATE FL ADJUSTMENT
Line S00086 Modification History
M01 (Added by) ns2633
M02 (Updated by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23467  M02S00086.ns2633a ---|          STM    DSFL
Line S00087 Modification History
M01 (Added by) ns2633
M02 (Updated by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23468  M02S00087.ns2633a ---|          LDD    CM+4
Line S16047 Modification History
M01 (Added by) set
M02 (Updated by) ns2633a
Seq #  *Modification Id* Act 
----------------------------+
23469  M02S16047.ns2633a ---|          STM    DSFL+1
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 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23480  M02S16048.ns2633  ---|          LDD    T7
Line S16049 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23481  M02S16049.ns2633  ---|          SHN    6
Line S16050 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
23482  M02S16050.ns2633  ---|          STM    DSFL
23483  M01S16051.set     +++|
23484  M01S16052.set     +++|*         CLEAR CHECKPOINT AND STEP FLAGS.
23485  M01S16053.set     +++|
23486  M01S16054.set     +++| ECB1     LDD    AB
23487  M01S16055.set     +++|          LPC    6763
23488  M01S16056.set     +++|          STD    AB
23489  M01S16057.set     +++|          LDD    CA          UPDATE STATUS WORD
23490  M01S16058.set     +++|          SHN    14
23491  M01S16059.set     +++|          LMD    CA+1
23492  M01S16060.set     +++|          ADN    D7ST
23493  M01S16061.set     +++|          CWD    AB
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  M01S16062.set     +++|          LJM    ECB2        UPDATE *DFT* CONTROL WORD
23513  M01S16063.set     +++|
23514  M01S16064.set     +++|
23515  M01S16065.set     +++|*         *DFT* THRESHOLD REQUEST INFORMATION.
23516  M01S16066.set     +++|
23517  M01S16067.set     +++| ECBA     VFD    4/,8/RQTH,8/0,8/7,8/0,8/0,8/THCI,8/THUE  IOU
23518  M01S16068.set     +++|          VFD    4/,8/RQTH,8/0,8/7,8/1,8/0,8/THCM,8/THUE  MEMORY
23519  M01S16069.set     +++|          VFD    4/,8/RQTH,8/0,8/7,8/2,8/0,8/THCP,8/THUE  CPU-0
23520  M01S16070.set     +++| ECBB     VFD    4/,8/RQTH,8/0,8/7,8/2,8/1,8/THCP,8/THUE  CPU-1
23521  M01S16071.set     +++|          VFD    60/0        TERMINATOR
23522  M01S16072.set     +++| ECBAL    EQU    *-ECBA      LENGTH OF THRESHOLD DATA (PP WORDS)
23523  M01S16073.set     +++| EJT      SPACE  4,10
23524  M01S16074.set     +++|**        EJT - VERIFY EXECUTING JOB TABLE.
23525  M01S16075.set     +++|*
23526  M01S16076.set     +++|*         EXIT   (A) = EJT LENGTH.
23527  M01S16077.set     +++|*
23528  M01S16078.set     +++|*         CALLS  CTA.
23529  M01S16079.set     +++|*
23530  M01S16080.set     +++|*         MACROS CFI.
23531  M01S16081.set     +++|
23532  M01S16082.set     +++|
23533  M01S16083.set     +++| EJT      SUBR               ENTRY/EXIT
23534  M01S16084.set     +++|          LDN    EJTP
23535  M01S16085.set     +++|          RJM    CTA
23536  M01S16086.set     +++|          CFI    EJT,CM+2
23537  M01S16087.set     +++|          UJN    EJTX        RETURN
23538  M01S16088.set     +++| EMB      SPACE  4,10
23539  M01S16089.set     +++|**        EMB - VERIFY ERROR MESSAGE BUFFER.
23540  M01S16090.set     +++|*
23541  M01S16091.set     +++|*         EXIT   (A) = ERROR MESSAGE BUFFER LENGTH.
23542  M01S16092.set     +++|*
23543  M01S00034.ns2769  +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T1+4.
23544  M01S00035.ns2769  +++|*
23545  M01S16093.set     +++|*         CALLS  CTA.
23546  M01S16094.set     +++|
23547  M01S16095.set     +++|
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  M01S16096.set     +++| EMB      SUBR               ENTRY/EXIT
23566  M01S16097.set     +++|          LDC    1S12+EMBP
23567  M01S16098.set     +++|          RJM    CTA
Line S16099 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23568  M02S16099.ns2769  ---|          LDN    ZERL        SET UP INTERLOCK WORD
Line S16100 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23569  M02S16100.ns2769  ---|          CRD    AB
Line S16101 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23570  M02S16101.ns2769  ---|          AOD    AB
Line S16102 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23571  M02S16102.ns2769  ---|          LDD    CM+1        STORE BUFFER INTERLOCK WORD
Line S16103 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23572  M02S16103.ns2769  ---|          SHN    14
Line S16104 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23573  M02S16104.ns2769  ---|          LMD    CM+2
Line S16105 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23574  M02S16105.ns2769  ---|          CWD    AB
Line S16106 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23575  M02S16106.ns2769  ---|          LDC    EMBLL
Line S16107 Modification History
M01 (Added by) set
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
23576  M02S16107.ns2769  ---|          UJN    EMBX        RETURN
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  M01S16108.set     +++| EST      SPACE  4,10
23619  M01S16109.set     +++|**        EST - VERIFY EQUIPMENT STATUS TABLE.
23620  M01S16110.set     +++|*
23621  M01S16111.set     +++|*         EXIT   (A) = EST LENGTH.
23622  M01S16112.set     +++|*                (LE) = LAST MASS STORAGE EQUIPMENT + 1.
23623  M01S16113.set     +++|*
23624  M01S16114.set     +++|*         CALLS  CTA, SSE.
23625  M01S16115.set     +++|*
23626  M01S16116.set     +++|*         MACROS CFI, SFA.
23627  M01S16117.set     +++|
23628  M01S16118.set     +++|
23629  M01S16119.set     +++| EST2     CFI    EST,CM+2
23630  M01S16120.set     +++|
23631  M01S16121.set     +++| EST      SUBR               ENTRY/EXIT
23632  M01S16122.set     +++|          LDN    ESTP
23633  M01S16123.set     +++|          RJM    CTA
23634  M01S16124.set     +++|          LDD    CM+3        SET LAST MASS STORAGE EQUIPMENT + 1
23635  M01S16125.set     +++|          STD    LE
23636  M01S16126.set     +++|
23637  M01S16127.set     +++|*         CLEAR LOAD FLAGS IN *CM* DEVICE ENTRIES.
23638  M01S16128.set     +++|
Line S16129 Modification History
M01 (Added by) set
M02 (Updated by) set59
Seq #  *Modification Id* Act 
----------------------------+
23639  M02S16129.set59   ---|          LDC    1S17+2RCM
Line S16130 Modification History
M01 (Added by) set
M02 (Updated by) set59
Seq #  *Modification Id* Act 
----------------------------+
23640  M02S16130.set59   ---| EST1     RJM    SSE         SEARCH FOR *CM* ENTRY
Line S16131 Modification History
M01 (Added by) set
M02 (Updated by) set59
Seq #  *Modification Id* Act 
----------------------------+
23641  M02S16131.set59   ---|          NJN    EST2        IF NONE FOUND
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  M01S16132.set     +++|          LDD    AB+2        CLEAR LOAD FLAGS
23649  M01S16133.set     +++|          LPC    1777
23650  M01S16134.set     +++|          STD    AB+2
23651  M01S16135.set     +++|          SFA    EST,EQ      REWRITE EST ENTRY
Line S16136 Modification History
M01 (Added by) set
M02 (Updated by) set59
Seq #  *Modification Id* Act 
----------------------------+
23652  M02S16136.set59   ---|          CWD    AB
Line S16137 Modification History
M01 (Added by) set
M02 (Updated by) set59
Seq #  *Modification Id* Act 
----------------------------+
23653  M02S16137.set59   ---|          LDN    0
23654  M01S00007.set59   +++|          ADN    EQAE
23655  M01S00008.set59   +++|          CWD    AB
23656  M01S16138.set     +++|          UJN    EST1        CHECK NEXT ENTRY
23657  M01S16139.set     +++| EVT      SPACE  4,10
23658  M01S16140.set     +++|**        EVT - VERIFY EVENT TABLE.
23659  M01S16141.set     +++|*
23660  M01S16142.set     +++|*         EXIT   (A) = TABLE LENGTH.
23661  M01S16143.set     +++|*
23662  M01S16144.set     +++|*         USES   AB - AB+4.
23663  M01S16145.set     +++|*
23664  M01S16146.set     +++|*         CALLS  CTA.
23665  M01S16147.set     +++|
23666  M01S16148.set     +++|
23667  M01S16149.set     +++| EVT      SUBR               ENTRY/EXIT
23668  M01S16150.set     +++|          LDC    EVTP
23669  M01S16151.set     +++|          RJM    CTA
23670  M01S16152.set     +++|          LDD    CM          CLEAR INTERLOCK
23671  M01S16153.set     +++|          SHN    14
23672  M01S16154.set     +++|          LMD    CM+1
23673  M01S16155.set     +++|          CRD    AB
23674  M01S16156.set     +++|          LDD    AB+4
23675  M01S16157.set     +++|          SCN    1
23676  M01S16158.set     +++|          STD    AB+4
23677  M01S16159.set     +++|          LDD    CM
23678  M01S16160.set     +++|          SHN    14
23679  M01S16161.set     +++|          LMD    CM+1
23680  M01S16162.set     +++|          CWD    AB
23681  M01S16163.set     +++|          LDN    EVTLL       TABLE LENGTH
23682  M01S16164.set     +++|          UJN    EVTX        RETURN
23683  M01S16165.set     +++| EXM      SPACE  4,15
23684  M01S16166.set     +++|**        EXM - VERIFY EXTENDED MEMORY BUFFERS.
23685  M01S16167.set     +++|*
23686  M01S16168.set     +++|*
23687  M01S16169.set     +++|*         ENTRY  (EN) = EXTENDED MEMORY EST ORDINAL IF DEFINED.
23688  M01S16170.set     +++|*                (LD) = LINK DEVICE EST ORDINAL IF DEFINED.
23689  M01S16171.set     +++|*
23690  M01S16172.set     +++|*         EXIT   (A) = 0.
23691  M01S16173.set     +++|*
23692  M01S16174.set     +++|*         USES   AB - AB+4, CM - CM+4.
23693  M01S16175.set     +++|*
23694  M01S16176.set     +++|*         CALLS  CLS, CTA.
23695  M01S16177.set     +++|
23696  M01S16178.set     +++|
23697  M01S16179.set     +++| EXM      SUBR               ENTRY/EXIT
23698  M01S16180.set     +++|          LDK    UEML
23699  M01S16181.set     +++|          CRD    AB
23700  M01S16182.set     +++|          LDD    AB+4
23701  M01S16183.set     +++|          LPN    2
23702  M01S16184.set     +++|          ADD    LD
23703  M01S16185.set     +++|          LPC    777
23704  M01S16186.set     +++|          ADD    EN
23705  M01S16187.set     +++|          ZJN    EXMX        IF NO EXTENDED MEMORY DEFINED
23706  M01S16188.set     +++|          LDC    EDBP        CHECK DISPLAY BUFFER ADDRESS
23707  M01S16189.set     +++|          RJM    CTA
23708  M01S16190.set     +++|          LDN    EDBL        CLEAR DISPLAY BUFFER
23709  M01S16191.set     +++|          RJM    CLS
23710  M01S16192.set     +++|          LDD    EN
23711  M01S16193.set     +++|          ZJN    EXM3        IF NO EXTENDED MEMORY DEFINED
23712  M01S16194.set     +++|          LDC    EPBP
23713  M01S16195.set     +++|          CRD    AB
23714  M01S16196.set     +++|          LDD    AB+3
23715  M01S16197.set     +++|          SHN    -6
23716  M01S16198.set     +++|          STD    AB
23717  M01S16199.set     +++|          ZJN    EXM3        IF NO I/O BUFFERS
23718  M01S16200.set     +++|          LDC    3S12+EPBP
23719  M01S16201.set     +++|          RJM    CTA
23720  M01S16202.set     +++| EXM2     LDC    ECBL        CLEAR BUFFER
23721  M01S16203.set     +++|          RJM    CLS
23722  M01S16204.set     +++|          SOD    AB
23723  M01S16205.set     +++|          NJN    EXM2        IF NOT END OF BUFFERS
23724  M01S16206.set     +++|*         LDN    0
23725  M01S16207.set     +++| EXM3     LJM    EXMX        RETURN
23726  M01S16208.set     +++| EXP      SPACE  4,10
23727  M01S16209.set     +++|**        EXP - ALLOCATE C176 EXCHANGE PACKAGES.
23728  M01S16210.set     +++|*
23729  M01S16211.set     +++|*         EXIT   (A) = 0.
23730  M01S16212.set     +++|*
23731  M01S16213.set     +++|*         CALLS  SBD, SXA.
23732  M01S16214.set     +++|
23733  M01S16215.set     +++|
23734  M01S16216.set     +++| EXP      SUBR               ENTRY/EXIT
23735  M01S16217.set     +++|          LDD    HO
23736  M01S16218.set     +++|          SHN    -11
23737  M01S16219.set     +++|          LMN    7
23738  M01S16220.set     +++|          NJN    EXP1        IF NOT C176
23739  M01S16221.set     +++|          RJM    SBD         SEARCH FOR BUFFERED DEVICES
23740  M01S16222.set     +++|          RJM    SXA         SETUP EXCHANGE PACKAGES
23741  M01S16223.set     +++| EXP1     LDN    0
23742  M01S16224.set     +++|          UJN    EXPX        RETURN
23743  M01S16225.set     +++| FNT      SPACE  4,10
23744  M01S16226.set     +++|**        FNT - VERIFY FILE NAME TABLE.
23745  M01S16227.set     +++|*
23746  M01S16228.set     +++|*         EXIT   (A) = FNT LENGTH.
23747  M01S16229.set     +++|*
23748  M01S16230.set     +++|*         USES   AB - AB+4.
23749  M01S16231.set     +++|*
23750  M01S16232.set     +++|*         CALLS  CTA.
23751  M01S16233.set     +++|*
23752  M01S16234.set     +++|*         MACROS CFI.
23753  M01S16235.set     +++|
23754  M01S16236.set     +++|
23755  M01S16237.set     +++| FNT      SUBR               ENTRY/EXIT
23756  M01S16238.set     +++|          LDN    FNTP
23757  M01S16239.set     +++|          RJM    CTA
23758  M01S16240.set     +++|          LDD    CA          READ SYSTEM FILE FNT ENTRY
23759  M01S16241.set     +++|          SHN    14
23760  M01S16242.set     +++|          LMD    CA+1
23761  M01S16243.set     +++|          ERRNZ  SYFO        SYSTEM FILE FNT ORDINAL .NE. 0
23762  M01S16244.set     +++|          CRD    AB
23763  M01S16245.set     +++|          LDD    AB+4        SET SYSTEM FILE BUSY
23764  M01S16246.set     +++|          SCN    1
23765  M01S16247.set     +++|          LMN    1
23766  M01S16248.set     +++|          STD    AB+4
23767  M01S16249.set     +++|          LDD    CA          WRITE SYSTEM FILE FNT ENTRY
23768  M01S16250.set     +++|          SHN    14
23769  M01S16251.set     +++|          LMD    CA+1
23770  M01S16252.set     +++|          ERRNZ  SYFO        SYSTEM FILE FNT ORDINAL .NE. 0
23771  M01S16253.set     +++|          CWD    AB
23772  M01S16254.set     +++|          CFI    FNT,CM+2
23773  M01S16255.set     +++|          UJN    FNTX        RETURN
23774  M01S16256.set     +++| FOT      SPACE  4,10
23775  M01S16257.set     +++|**        FOT - VERIFY FAMILY ORDINAL TABLE.
23776  M01S16258.set     +++|*
23777  M01S16259.set     +++|*         EXIT   (A) = FOT LENGTH.
23778  M01S16260.set     +++|*
23779  M01S16261.set     +++|*         CALLS  CTA.
23780  M01S16262.set     +++|
23781  M01S16263.set     +++|
23782  M01S16264.set     +++| FOT      SUBR               ENTRY/EXIT
23783  M01S16265.set     +++|          LDC    FOTP
23784  M01S16266.set     +++|          RJM    CTA
23785  M01S16267.set     +++|          LDD    CM+2
23786  M01S16268.set     +++|          UJN    FOTX        RETURN
23787  M01S16269.set     +++| INB      SPACE  4,10
23788  M01S16270.set     +++|**        INB - VERIFY INSTALLATION BLOCK.
23789  M01S16271.set     +++|*
23790  M01S16272.set     +++|*         EXIT   (A) = LENGTH OF BLOCK.
23791  M01S16273.set     +++|*
23792  M01S16274.set     +++|*         CALLS  CTA.
23793  M01S16275.set     +++|
23794  M01S16276.set     +++|
23795  M01S16277.set     +++| INB      SUBR               ENTRY/EXIT
23796  M01S16278.set     +++|          LDC    2S12+INBP
23797  M01S16279.set     +++|          RJM    CTA
23798  M01S16280.set     +++|          LDD    CM+4
23799  M01S16281.set     +++|          UJN    INBX        RETURN
23800  M01S16282.set     +++| JCA      SPACE  4,10
Line S16283 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
23801  M02S16283.271l750 ---|**        JCA - VERIFY JOB CONTROL AREA.
23802  M01S00235.271l750 +++|**        JCA - VERIFY JOB CONTROL BUFFER TABLE (*JCB*).
23803  M01S16284.set     +++|*
23804  M01S16285.set     +++|*         EXIT   (A) = LENGTH OF AREA.
23805  M01S16286.set     +++|*
23806  M01S16287.set     +++|*         CALLS  CTA.
23807  M01S16288.set     +++|
23808  M01S16289.set     +++|
23809  M01S16290.set     +++| JCA      SUBR               ENTRY/EXIT
Line S16291 Modification History
M01 (Added by) set
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
23810  M02S16291.273l780 ---|          LDC    JBCP
23811  M01S00042.273l780 +++|          LDK    JBCP
23812  M01S16292.set     +++|          RJM    CTA
Line S16293 Modification History
M01 (Added by) set
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
23813  M02S16293.271l750 ---|          LDC    MXJC*/EQP/JCABL
23814  M01S00236.271l750 +++|          LDC    MXJC*JCBE
23815  M01S16294.set     +++|          UJN    JCAX        RETURN
23816  M01S16295.set     +++| LDB      SPACE  4,10
23817  M01S16296.set     +++|**        LDB - ALLOCATE *L* DISPLAY BUFFER.
23818  M01S16297.set     +++|*
23819  M01S16298.set     +++|*         EXIT   (A) = 0.
23820  M01S16299.set     +++|*
23821  M01S16300.set     +++|*         CALLS  CLS, CTA.
23822  M01S16301.set     +++|
23823  M01S16302.set     +++|
23824  M01S16303.set     +++| LDB      SUBR               ENTRY/EXIT
23825  M01S16304.set     +++|          LDC    2S12+LDSP
23826  M01S16305.set     +++|          RJM    CTA
23827  M01S16306.set     +++|          LDC    LDSY+LCOM+5  CLEAR BUFFER
23828  M01S16307.set     +++|          RJM    CLS
23829  M01S16308.set     +++|          LDN    0
23830  M01S16309.set     +++|          UJN    LDBX        RETURN
23831  M01S16310.set     +++| LID      SPACE  4,10
23832  M01S16311.set     +++|**        LID - VERIFY LOGICAL ID TABLE.
23833  M01S16312.set     +++|*
23834  M01S16313.set     +++|*         EXIT   (A) = TABLE LENGTH.
23835  M01S16314.set     +++|*
23836  M01S16315.set     +++|*         CALLS  CTA.
23837  M01S16316.set     +++|
23838  M01S16317.set     +++|
23839  M01S16318.set     +++| LID      SUBR               ENTRY/EXIT
23840  M01S16319.set     +++|          LDC    LIDP
23841  M01S16320.set     +++|          RJM    CTA
23842  M01S16321.set     +++|          LDD    CM+2
23843  M01S16322.set     +++|          UJN    LIDX        RETURN
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  M01S16323.set     +++| MSA      SPACE  4,10
23873  M01S16324.set     +++|**        MSA - VERIFY MASS STORAGE ALLOCATION TABLE.
23874  M01S16325.set     +++|*
23875  M01S16326.set     +++|*         EXIT   (A) = TABLE LENGTH.
23876  M01S16327.set     +++|*
23877  M01S16328.set     +++|*         CALLS  CTA.
23878  M01S16329.set     +++|
23879  M01S16330.set     +++|
23880  M01S16331.set     +++| MSA      SUBR               ENTRY/EXIT
23881  M01S16332.set     +++|          LDC    MSAP
23882  M01S16333.set     +++|          RJM    CTA
23883  M01S16334.set     +++|          LDN    MXRS
23884  M01S16335.set     +++|          UJN    MSAX        RETURN
23885  M01S16336.set     +++| MST      SPACE  4,10
23886  M01S16337.set     +++|**        MST - VERIFY MASS STORAGE TABLES.
23887  M01S16338.set     +++|*
23888  M01S16339.set     +++|*         EXIT   (A) = 0.
23889  M01S16340.set     +++|*
23890  M01S16341.set     +++|*         USES   EQ, AB - AB+4.
23891  M01S16342.set     +++|*
23892  M01S16343.set     +++|*         CALLS  RMC, SME.
23893  M01S16344.set     +++|*
23894  M01S16345.set     +++|*         MACROS SFA.
23895  M01S16346.set     +++|
23896  M01S16347.set     +++|
23897  M01S16348.set     +++| MST1     RJM    RMC         RECOVER MST
23898  M01S16349.set     +++|          RJM    SME
23899  M01S16350.set     +++|          NJN    MST1        IF NOT END OF EST
23900  M01S16351.set     +++|
23901  M01S16352.set     +++| MST      SUBR               ENTRY/EXIT
23902  M01S16353.set     +++|          LDN    RDEQ
23903  M01S16354.set     +++|          STD    EQ
23904  M01S16355.set     +++|          SFA    EST,,EQ     FETCH EST ENTRY FOR *RD* DEVICE
23905  M01S16356.set     +++|          CRD    AB
23906  M01S16357.set     +++|          UJN    MST1        RECOVER *RD* DEVICE
23907  M01S16358.set     +++| ODB      SPACE  4,10
23908  M01S16359.set     +++|**        ODB - ALLOCATE OPERATOR DISPLAY BUFFER.
23909  M01S16360.set     +++|*
23910  M01S16361.set     +++|*         EXIT   (A) = 0.
23911  M01S16362.set     +++|*
23912  M01S16363.set     +++|*         USES   CM - CM+4.
23913  M01S16364.set     +++|*
23914  M01S16365.set     +++|*         CALLS  CLS.
23915  M01S16366.set     +++|
23916  M01S16367.set     +++|
23917  M01S16368.set     +++| ODB      SUBR               ENTRY/EXIT
23918  M01S16369.set     +++|          LDN    ZERL
23919  M01S16370.set     +++|          CRD    CM
23920  M01S16371.set     +++|          AOD    CM          SET UP INTERLOCK WORD
23921  M01S16372.set     +++|          LDD    CA
23922  M01S16373.set     +++|          SHN    14
23923  M01S16374.set     +++|          LMD    CA+1
23924  M01S16375.set     +++|          CWD    CM
23925  M01S16376.set     +++|          AOD    CA+1
23926  M01S16377.set     +++|          SHN    -14
23927  M01S16378.set     +++|          RAD    CA
23928  M01S16379.set     +++|          LDN    LODS-1      CLEAR BUFFER
23929  M01S16380.set     +++|          RJM    CLS
23930  M01S16381.set     +++|          LDN    0
23931  M01S16382.set     +++|          UJN    ODBX        RETURN
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
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
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  M01S16383.set     +++| QFT      SPACE  4,10
24015  M01S16384.set     +++|**        QFT - VERIFY QUEUE FILE TABLE.
24016  M01S16385.set     +++|*
24017  M01S16386.set     +++|*         EXIT   (A) = QFT LENGTH.
24018  M01S16387.set     +++|*
24019  M01S16388.set     +++|*         CALLS  CTA.
24020  M01S16389.set     +++|*
24021  M01S16390.set     +++|*         MACROS CFI.
24022  M01S16391.set     +++|
24023  M01S16392.set     +++|
24024  M01S16393.set     +++| QFT      SUBR               ENTRY/EXIT
24025  M01S16394.set     +++|          LDN    QFTP
24026  M01S16395.set     +++|          RJM    CTA
24027  M01S16396.set     +++|          CFI    QFT,CM+2
24028  M01S16397.set     +++|          UJN    QFTX        RETURN
24029  M01S16398.set     +++| RPT      SPACE  4,10
24030  M01S16399.set     +++|**        RPT - VERIFY RING PORT TABLE.
24031  M01S16400.set     +++|*
24032  M01S16401.set     +++|*         EXIT   (A) = TABLE LENGTH.
24033  M01S16402.set     +++|*
24034  M01S16403.set     +++|*         USES   T4.
24035  M01S16404.set     +++|*
24036  M01S16405.set     +++|*         CALLS  SSE.
24037  M01S16406.set     +++|
24038  M01S16407.set     +++|
24039  M01S16408.set     +++| RPT1     LDN    RPTL        ADD TABLE LENGTH
24040  M01S16409.set     +++|          RAD    T4
24041  M01S16410.set     +++| RPT2     RJM    SSE         SEARCH FOR *RP* EQUIPMENT
24042  M01S16411.set     +++|          ZJN    RPT1        IF FOUND
24043  M01S16412.set     +++|          LDD    T4
24044  M01S16413.set     +++|          ZJN    RPTX        IF NO TABLE SPACE RESERVED
24045  M01S16414.set     +++|          LDD    CA+1
24046  M01S16415.set     +++|          LPN    1S"RPTSM"-1
24047  M01S16416.set     +++|          ADD    T4
24048  M01S16417.set     +++|
24049  M01S16418.set     +++| RPT      SUBR               ENTRY/EXIT
24050  M01S16419.set     +++|          LDN    0
24051  M01S16420.set     +++|          STD    T4
24052  M01S16421.set     +++|          LDC    1S17+2RRP
24053  M01S16422.set     +++|          UJN    RPT2        SEARCH FOR EQUIPMENT
24054  M01S16423.set     +++| SAB      SPACE  4,10
24055  M01S16424.set     +++|**        SAB - VERIFY SYSTEM ATTRIBUTE BLOCK.
24056  M01S16425.set     +++|*
24057  M01S16426.set     +++|*         EXIT   (A) = TABLE LENGTH.
24058  M01S16427.set     +++|*
24059  M01S16428.set     +++|*         CALLS  CTA.
24060  M01S16429.set     +++|
24061  M01S16430.set     +++|
24062  M01S16431.set     +++| SAB      SUBR               ENTRY/EXIT
24063  M01S16432.set     +++|          LDK    SABL
24064  M01S16433.set     +++|          RJM    CTA
24065  M01S16434.set     +++|          LDD    CM+2        TABLE LENGTH
24066  M01S16435.set     +++|          UJN    SABX        RETURN
24067  M01S16436.set     +++| SCD      SPACE  4,10
24068  M01S16437.set     +++|**        SCD - VERIFY *SCD* PARAMETER TABLE.
24069  M01S16438.set     +++|*
24070  M01S16439.set     +++|*         EXIT   (A) = 0.
24071  M01S16440.set     +++|*
Line S16441 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24072  M02S16441.ns2557  ---|*         CALLS  CTA, SPT.
Line S16442 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24073  M02S16442.ns2557  ---|
Line S16443 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24074  M02S16443.ns2557  ---|
Line S16444 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24075  M02S16444.ns2557  ---| SCD      SUBR               ENTRY/EXIT
Line S16445 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24076  M02S16445.ns2557  ---|          LDM    .DCS
Line S16446 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24077  M02S16446.ns2557  ---|          ZJN    SCDX        IF DEADSTART FROM CC545
Line S16447 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24078  M02S16447.ns2557  ---|          LDC    2S12+SCDP
Line S16448 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24079  M02S16448.ns2557  ---|          RJM    CTA
Line S16449 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24080  M02S16449.ns2557  ---|          RJM    SPT         SETUP PARAMETER TABLE
Line S16450 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24081  M02S16450.ns2557  ---|          LDN    0
Line S16451 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
24082  M02S16451.ns2557  ---|          UJN    SCDX        RETURN
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  M01S16452.set     +++| SCT      SPACE  4,10
24105  M01S16453.set     +++|**        SCT - VERIFY SUBSYSTEM CONTROL TABLE.
24106  M01S16454.set     +++|*
24107  M01S16455.set     +++|*         EXIT   (A) = TABLE LENGTH.
24108  M01S16456.set     +++|*
24109  M01S16457.set     +++|*         CALLS  CTA.
24110  M01S16458.set     +++|
24111  M01S16459.set     +++|
24112  M01S16460.set     +++| SCT      SUBR               ENTRY/EXIT
24113  M01S16461.set     +++|          LDC    2S12+SSCP
24114  M01S16462.set     +++|          RJM    CTA
24115  M01S16463.set     +++|          LDN    SSCTL*2     TABLE LENGTH
24116  M01S16464.set     +++|          UJN    SCTX        RETURN
24117  M01S16465.set     +++| SDA      SPACE  4,10
24118  M01S16466.set     +++|**        SDA - VERIFY STATISTICAL DATA AREA.
24119  M01S16467.set     +++|*
24120  M01S16468.set     +++|*         EXIT   (A) = STATISTICAL DATA AREA LENGTH.
24121  M01S16469.set     +++|*
24122  M01S16470.set     +++|*         CALLS  CTA.
24123  M01S16471.set     +++|
24124  M01S16472.set     +++|
24125  M01S16473.set     +++| SDA      SUBR               ENTRY/EXIT
24126  M01S16474.set     +++|          LDC    SDAP        CHECK STATISTICAL AREA POINTER
24127  M01S16475.set     +++|          RJM    CTA
24128  M01S16476.set     +++|          LDN    SDAL        SET STATISTICAL AREA LENGTH
24129  M01S16477.set     +++|          UJN    SDAX        RETURN
24130  M01S16478.set     +++| SIE      SPACE  4,10
24131  M01S16479.set     +++|**        SIE - *SET* INTERNAL ERROR.
24132  M01S16480.set     +++|*
24133  M01S16481.set     +++|*         ENTRY  TABLE VERIFICATION PROCESSOR MISSING.
24134  M01S16482.set     +++|*
24135  M01S16483.set     +++|*         EXIT   TO *DSE*.
24136  M01S16484.set     +++|
24137  M01S16485.set     +++|
24138  M01S16486.set     +++| SIE      CON    0           ENTRY
24139  M01S16487.set     +++|          LDC    =C+*SET* INTERNAL ERROR IN *RCM*.+
24140  M01S16488.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
24141  M01S16489.set     +++| SIT      SPACE  4,10
24142  M01S16490.set     +++|**        SIT - VERIFY *SECDED* ID TABLE.
24143  M01S16491.set     +++|*
24144  M01S16492.set     +++|*         EXIT   (A) = 0.
24145  M01S16493.set     +++|*
24146  M01S16494.set     +++|*         CALLS  CLS, CTA.
24147  M01S16495.set     +++|
24148  M01S16496.set     +++|
24149  M01S16497.set     +++| SIT      SUBR               ENTRY/EXIT
24150  M01S16498.set     +++|          LDM    C8XX
24151  M01S16499.set     +++|          ZJN    SITX        IF LOWER 800 SERIES MAINFRAME
24152  M01S16500.set     +++|          LDC    SCRL
24153  M01S16501.set     +++|          RJM    CTA
Line S16502 Modification History
M01 (Added by) set
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
24154  M02S16502.272l774 ---|          LDN    2*UIDL      CLEAR *SECDED* ID TABLE
24155  M01S00072.272l774 +++|          LDN    2*/SCR/UIDL CLEAR *SECDED* ID TABLE
24156  M01S16503.set     +++|          RJM    CLS
24157  M01S16504.set     +++|          LDN    0
24158  M01S16505.set     +++|          UJN    SITX        RETURN
24159  M01S16506.set     +++| TRT      SPACE  4,10
24160  M01S16507.set     +++|**        TRT - VERIFY TRACK RESERVATION TABLE POINTERS.
24161  M01S16508.set     +++|*
24162  M01S16509.set     +++|*         EXIT   (A) = 0.
24163  M01S16510.set     +++|*
24164  M01S16511.set     +++|*         USES   EQ, CM - CM+4, CN - CN+4.
24165  M01S16512.set     +++|*
24166  M01S16513.set     +++|*         CALLS  CDL, SME.
24167  M01S16514.set     +++|
24168  M01S16515.set     +++|
24169  M01S16516.set     +++| TRT2     LDD    AB+4        FETCH TRT LENGTH
24170  M01S16517.set     +++|          SHN    3
24171  M01S16518.set     +++|          ADK    TDGL
24172  M01S16519.set     +++|          CRD    CM
24173  M01S16520.set     +++|          ADN    TRLL-TDGL   READ TRT ADDRESS
24174  M01S16521.set     +++|          CRD    CN
24175  M01S16522.set     +++|          LDD    CN+4        CHECK TRT ADDRESS
24176  M01S16523.set     +++|          LMD    CA+1
24177  M01S16524.set     +++|          NJN    TRT1        IF ADDRESS BAD
24178  M01S16525.set     +++|          LDD    CN+3
24179  M01S16526.set     +++|          LPN    77
24180  M01S16527.set     +++|          LMD    CA
24181  M01S16528.set     +++|          NJN    TRT1        IF ADDRESS BAD
24182  M01S16529.set     +++|          RJM    CDL
24183  M01S16530.set     +++|          RAD    CA+1        ADVANCE CENTRAL ADDRESS
24184  M01S16531.set     +++|          SHN    -14
24185  M01S16532.set     +++|          RAD    CA
24186  M01S16533.set     +++| TRT3     RJM    SME
24187  M01S16534.set     +++|          NJN    TRT2        IF NOT END OF MS EST
24188  M01S16535.set     +++|
24189  M01S16536.set     +++| TRT      SUBR               ENTRY/EXIT
24190  M01S16537.set     +++|          LDN    NOPE-1
24191  M01S16538.set     +++|          STD    EQ
24192  M01S16539.set     +++|          UJN    TRT3        BEGIN EQUIPMENT SEARCH
24193  M01S16540.set     +++|
24194  M01S16541.set     +++| TRT1     LDC    =C*TRT ADDRESS ERROR.*
24195  M01S16542.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
Line S16543 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24196  M02S16543.271l716 ---| VEM      SPACE  4,10
Line S16544 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24197  M02S16544.271l716 ---|**        VEM - VERIFY EI LEVEL AND MICROCODE NAME.
Line S16545 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24198  M02S16545.271l716 ---|*
Line S16546 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24199  M02S16546.271l716 ---|*         ENTRY  (HO) = HARDWARE DESCRIPTOR WORD.
Line S16547 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24200  M02S16547.271l716 ---|*
Line S16548 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24201  M02S16548.271l716 ---|*         EXIT   TO *DSE* IF EI LEVEL OR MICROCODE NAMES
Line S16549 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24202  M02S16549.271l716 ---|*                DO NOT MATCH.
Line S16550 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24203  M02S16550.271l716 ---|*
Line S16551 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24204  M02S16551.271l716 ---|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T7.
Line S16552 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24205  M02S16552.271l716 ---|
Line S16553 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24206  M02S16553.271l716 ---|
Line S16554 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24207  M02S16554.271l716 ---| VEM      SUBR               ENTRY/EXIT
Line S16555 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24208  M02S16555.271l716 ---|          LDM    C8XX
Line S16556 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24209  M02S16556.271l716 ---|          NJN    VEMX        IF NOT CYBER 800 TYPE MAINFRAME
Line S16557 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24210  M02S16557.271l716 ---|          LDC    MEBF        GET MICROCODE/EI NAMES PASSED BY CTI
Line S16558 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24211  M02S16558.271l716 ---|          CRD    CM
Line S16559 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24212  M02S16559.271l716 ---|          SBN    MEBF-SABL   GET MAINFRAME DESCRIPTOR ADDRESS
Line S16560 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24213  M02S16560.271l716 ---|          CRD    T1
Line S16561 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24214  M02S16561.271l716 ---|          ADN    EABL+CPEI-SABL
Line S16562 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24215  M02S16562.271l716 ---|          CRD    AB
Line S16563 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24216  M02S16563.271l716 ---|          LDD    AB+1        FETCH ORIGINAL MICROCODE NAME
Line S16564 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24217  M02S16564.271l716 ---|          SCN    77
Line S16565 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24218  M02S16565.271l716 ---|          SHN    6
Line S16566 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24219  M02S16566.271l716 ---|          LMD    AB
Line S16567 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24220  M02S16567.271l716 ---|          SHN    6
Line S16568 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24221  M02S16568.271l716 ---|          ADN    1
Line S16569 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24222  M02S16569.271l716 ---|          CRD    T3
Line S16570 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24223  M02S16570.271l716 ---|          ADN    1
Line S16571 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24224  M02S16571.271l716 ---|          CRD    CN
Line S16572 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24225  M02S16572.271l716 ---|          LDD    T3+2
Line S16573 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24226  M02S16573.271l716 ---|          SHN    21-0
Line S16574 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24227  M02S16574.271l716 ---|          PJN    VEM0        IF CPU-0 IS ENABLED
Line S16575 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24228  M02S16575.271l716 ---|          LDD    AB+1        FETCH MICROCODE FROM CPU-1 BLOCK
Line S16576 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24229  M02S16576.271l716 ---|          LPN    77
Line S16577 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24230  M02S16577.271l716 ---|          SHN    14
Line S16578 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24231  M02S16578.271l716 ---|          LMD    AB+2
Line S16579 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24232  M02S16579.271l716 ---|          ADN    2
Line S16580 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24233  M02S16580.271l716 ---|          CRD    CN
Line S16581 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24234  M02S16581.271l716 ---| VEM0     LDN    0           CLEAR MISMATCH FLAG
Line S16582 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24235  M02S16582.271l716 ---|          STD    T5
Line S16583 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24236  M02S16583.271l716 ---|          LDD    T1          GET ORIGINAL EI NAME
Line S16584 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24237  M02S16584.271l716 ---|          SHN    14
Line S16585 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24238  M02S16585.271l716 ---|          LMD    T1+1
Line S16586 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24239  M02S16586.271l716 ---|          ADN    1
Line S16587 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24240  M02S16587.271l716 ---|          CRD    AB
Line S16588 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24241  M02S16588.271l716 ---|          LDN    3           COMPARE MICROCODE NAMES
Line S16589 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24242  M02S16589.271l716 ---|          STD    T3
Line S16590 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24243  M02S16590.271l716 ---| VEM1     LDM    CN,T3
Line S16591 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24244  M02S16591.271l716 ---|          STM    VEMA+12,T3
Line S16592 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24245  M02S16592.271l716 ---|          LMM    CM,T3
Line S16593 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24246  M02S16593.271l716 ---|          ZJN    VEM2        IF VALUES MATCH
Line S16594 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24247  M02S16594.271l716 ---|          STD    T5
Line S16595 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24248  M02S16595.271l716 ---| VEM2     SOD    T3
Line S16596 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24249  M02S16596.271l716 ---|          PJN    VEM1        IF COMPARE NOT COMPLETE
Line S16597 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24250  M02S16597.271l716 ---|          LDD    T5
Line S16598 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
24251  M02S16598.271l716 ---|          NJN    VEM3        IF MICROCODE ERROR
Proceed to Part 19
cdc/nos2.source/opl.opl871/deck/set.018.txt ยท Last modified: by 127.0.0.1