User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1mv.001

Deck 1MV Part 001

23 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01480  M01S01140.271l716 ---|          STD    T7
01481  M01S01141.271l716 ---|          ADK    0-LSLT
Line S00054 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01482  M01S00054.271l716 +++|          LDN    /MMF/LSLT
01483  M01S00055.271l716 +++|          STD    T7          RESET STARTING SECTOR NUMBER
01484  M01S00056.271l716 +++|          ADK    0-/MMF/LSLT
01485  M00S01142.1mv     +++|          STD    NS          RESET RELATIVE UNIT NUMBER
01486  M00S01143.1mv     +++|          RJM    SNC         SET NEXT CHANNEL
01487  M00S01144.1mv     +++|          PJN    LBV1        IF ALL CHANNELS NOT PROCESSED
01488  M00S01145.1mv     +++|          UJP    LBVX        RETURN
01489  M00S01146.1mv     +++| RCS      SPACE  4,25
01490  M00S01147.1mv     +++|**        RCS - READ CONSECUTIVE SECTORS.
01491  M00S01148.1mv     +++|*
01492  M00S01149.1mv     +++|*         *RCS* READS (NS) CONSECUTIVE SECTORS IN CONSECUTIVE BUFFERS
01493  M00S01150.1mv     +++|*         AT (DBUF).  IF A READ ERROR OCCURS, ((SP)+RCTB) IS INCREMENTED
01494  M00S01151.1mv     +++|*         AND READ ERROR CODE SAVED IN ((SP)+RCDB).
01495  M00S01152.1mv     +++|*
01496  M00S01153.1mv     +++|*         ENTRY  (NS) = NUMBER OF SECTORS TO READ.
01497  M00S01154.1mv     +++|*                (SP) = STATISTICS GATHERING POINTER.
01498  M00S01155.1mv     +++|*                (T4 - T7) = MASS STORAGE DRIVER PARAMETERS.
01499  M00S01156.1mv     +++|*
01500  M00S01157.1mv     +++|*         EXIT   (A) = READ ERROR COUNT.
01501  M00S01158.1mv     +++|*
Line S01159 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01502  M01S01159.ns2632b ---|*         USES   T8, T9.
Line S00129 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01503  M01S00129.ns2632b +++|*         USES   MT, T7, T8, T9.
01504  M00S01160.1mv     +++|*
Line S01161 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01505  M01S01161.ns2632b ---|*         CALLS  RDS.
Line S00130 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01506  M01S00130.ns2632b +++|*         CALLS  AEC, RDS.
01507  M00S01162.1mv     +++|*
01508  M00S01163.1mv     +++|*         MACROS SETMS.
01509  M00S01164.1mv     +++|
01510  M00S01165.1mv     +++|
01511  M00S01166.1mv     +++| RCS5     SETMS  POSITION    FORCE SEEK ON NEXT I/O REQUEST
01512  M00S01167.1mv     +++|*         LDN    0
01513  M00S01168.1mv     +++|
01514  M00S01169.1mv     +++| RCS      SUBR               ENTRY/EXIT
Line S00131 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01515  M01S00131.ns2632b +++|          LDN    0           SET MEDIA ERROR THRESHOLD
01516  M01S00132.ns2632b +++|*         LDN    METH        (I/O ON MAINTENANCE CYLINDER)
01517  M01S00133.ns2632b +++| RCSA     EQU    *-1
01518  M01S00134.ns2632b +++|          STD    MT
01519  M00S01170.1mv     +++|          LDC    DBUF        SET BUFFER POINTER
01520  M00S01171.1mv     +++|          STD    T8
01521  M00S01172.1mv     +++|          LDN    0           SET SECTOR NUMBER
01522  M00S01173.1mv     +++|          STD    T9
01523  M00S01174.1mv     +++| RCS1     SBD    NS
01524  M00S01175.1mv     +++|          ZJN    RCS5        IF ALL SECTORS READ
01525  M00S01176.1mv     +++|          LDM    DVBE,T9
01526  M00S01177.1mv     +++|          NJN    RCS3        IF SECTOR HAD WRITE ERRORS
01527  M00S01178.1mv     +++|          LDD    T8          SET UP BUFFER ADDRESS FOR READ
01528  M00S01179.1mv     +++|          RJM    RDS
01529  M00S01180.1mv     +++|          PJN    RCS3        IF NO ERROR
Line S01181 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01530  M01S01181.ns2632b ---|          LPN    77
Line S01182 Modification History
M01 (Removed by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01531  M02S01182.ns2632b ---|          STM    DVBE,T9
Line S00011 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01532  M02S00011.ns2632b ---|          LMN    DRVE
01533  M02S00012.ns2632b ---|          ZJN    RCS1.1      IF DRIVE RESERVE
01534  M02S00013.ns2632b ---|          LMN    CRSE&DRVE
Line S00135 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01535  M01S00135.ns2632b +++|          RJM    AEC         ANALYZE ERROR CODE
Line S00014 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
01536  M01S00014.ns2632  +++|          NJN    RCS2        IF NO CONTROLLER RESERVE
Line S00015 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01537  M02S00015.ns2632b ---| RCS1.1   LDN    1           SET ERROR INDICATION
01538  M02S00016.ns2632b ---| RCS1.2   UJN    RCSX        RETURN
Line S00136 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01539  M01S00136.ns2632b +++|          LDN    1           SET ERROR INDICATION
01540  M01S00137.ns2632b +++|          UJN    RCSX        RETURN
Line S00017 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
01541  M01S00017.ns2632  +++|
Line S00018 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01542  M02S00018.ns2632b ---| RCS2     LMN    CRSE
01543  M02S00019.ns2632b ---|          STM    DVBE,T9
Line S00138 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01544  M01S00138.ns2632b +++| RCS2     STM    DVBE,T9
01545  M00S01183.1mv     +++|          STM    RCDB,SP     SAVE LATEST READ ERROR CODE
Line S01184 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01546  M01S01184.ns2632b ---|          LMN    PARE
01547  M01S01185.ns2632b ---|          NJN    RCS4        IF NOT MEDIA ERROR
01548  M01S01186.ns2632b ---| RCSA     LDN    0
01549  M01S01187.ns2632b ---|*         LDN    METH        (PERFORMING DEVICE VERIFICATION)
01550  M01S01188.ns2632b ---|          ZJN    RCS4        IF TOO MANY MEDIA ERRORS
01551  M01S01189.ns2632b ---|          SOM    RCSA
Line S00139 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01552  M01S00139.ns2632b +++|          PJN    RCS3        IF NOT TOO MANY MEDIA OR OTHER ERRORS
01553  M01S00140.ns2632b +++|          AOM    RCTB,SP     SET READ ERROR COUNT
01554  M01S00141.ns2632b +++|          UJN    RCSX        RETURN
01555  M01S00142.ns2632b +++|
01556  M00S01190.1mv     +++| RCS3     AOD    T7          ADVANCE TO NEXT SECTOR
01557  M00S01191.1mv     +++|          LDC    BUFL        INCREMENT TO NEXT READ BUFFER
01558  M00S01192.1mv     +++|          RAD    T8
01559  M00S01193.1mv     +++|          AOD    T9          INCREMENT SECTOR NUMBER
01560  M00S01194.1mv     +++|          UJP    RCS1        PROCESS NEXT SECTOR
Line S01195 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01561  M01S01195.ns2632b ---|
01562  M01S01196.ns2632b ---| RCS4     AOM    RCTB,SP     SET READ ERROR COUNT
Line S01197 Modification History
M01 (Removed by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01563  M02S01197.ns2632b ---|          UJP    RCSX        RETURN
Line S00020 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01564  M02S00020.ns2632b ---|          UJN    RCS1.2      RETURN
01565  M00S01198.1mv     +++| RAE      SPACE  4,10
01566  M00S01199.1mv     +++|**        RAE - RELEASE ASSIGNED EQUIPMENT.
01567  M00S01200.1mv     +++|*
01568  M00S01201.1mv     +++|*         USES   CM - CM+4.
01569  M00S01202.1mv     +++|*
01570  M00S01203.1mv     +++|*         MACROS MONITOR.
01571  M00S01204.1mv     +++|
01572  M00S01205.1mv     +++|
01573  M00S01206.1mv     +++| RAE      SUBR               ENTRY/EXIT
01574  M00S01207.1mv     +++|          LDC    0
01575  M00S01208.1mv     +++| RAEA     EQU    *-1
01576  M00S01209.1mv     +++|          ZJN    RAEX        IF EQUIPMENT NOT ASSIGNED
01577  M00S01210.1mv     +++|          STD    CM+1
01578  M00S01211.1mv     +++|          MONITOR  DEQM      RELEASE EQUIPMENT ASSIGNMENT
01579  M00S01212.1mv     +++|*         LDN    0
01580  M00S01213.1mv     +++|          STM    RAEA
01581  M00S01214.1mv     +++|          UJN    RAEX        RETURN
01582  M00S01215.1mv     +++| RLT      SPACE  4,10
01583  M00S01216.1mv     +++|**        RLT - REPAIR LABEL TRACK.
01584  M00S01217.1mv     +++|*
Line S01218 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01585  M01S01218.ns2632b ---|*         EXIT   TO *CFE8.2* IF DEVICE NOT OWNED BY THIS MAINFRAME.
Line S00143 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01586  M01S00143.ns2632b +++|*         EXIT   TO *CFE9* IF DEVICE NOT OWNED BY THIS MAINFRAME.
01587  M00S01219.1mv     +++|*
Line S01220 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01588  M01S01220.ns2632b ---|*         USES   CM - CM+4, CN - CN+4.
Line S00144 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01589  M01S00144.ns2632b +++|*         USES   CM - CM+4, CN - CN+4, IR+3.
01590  M00S01221.1mv     +++|*
01591  M00S01222.1mv     +++|*         CALLS  *1CK*, *1RU*.
01592  M00S01223.1mv     +++|*
01593  M00S01224.1mv     +++|*         MACROS EXECUTE.
01594  M00S01225.1mv     +++|
01595  M00S01226.1mv     +++|
01596  M00S01227.1mv     +++| RLT      LDD    ES
01597  M00S01228.1mv     +++|          SHN    21-4
01598  M00S01229.1mv     +++|          MJN    RLT1        IF ISHARED
01599  M00S01230.1mv     +++|          EXECUTE  1CK       REWRITE LABELS
01600  M00S01231.1mv     +++|*         LJM    IMV         RERUN *1MV*
01601  M00S01232.1mv     +++|
01602  M00S01233.1mv     +++| RLT1     LDD    ES+4
01603  M00S01234.1mv     +++|          SHN    3
01604  M00S01235.1mv     +++|          ADK    SDGL
01605  M00S01236.1mv     +++|          CRD    CM
01606  M00S01237.1mv     +++|          ADK    DULL-SDGL
01607  M00S01238.1mv     +++|          CRD    CN
01608  M00S01239.1mv     +++|          LDD    CN+2
01609  M00S01240.1mv     +++|          LPN    17
01610  M00S01241.1mv     +++|          ADN    1
01611  M00S01242.1mv     +++|          SHN    1
01612  M00S01243.1mv     +++|          LMD    CM+4
01613  M00S01244.1mv     +++|          LPN    76
01614  M00S01245.1mv     +++|          ZJN    RLT2        IF INTERLOCKED BY THIS MAINFRAME
Line S01246 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01615  M01S01246.ns2632b ---|          LJM    CFE8.2      PROCESS THE ERRORS
Line S00145 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01616  M01S00145.ns2632b +++|          LJM    CFE9        PROCESS THE ERRORS
01617  M00S01247.1mv     +++|
Line S01248 Modification History
M01 (Removed by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01618  M01S01248.ns2553  ---| RLT2     STD    IR+4        SET *1RU* FUNCTION CODE
Line S00001 Modification History
M01 (Added by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
01619  M01S00001.ns2553  +++| RLT2     STD    IR+3        SET *1RU* FUNCTION CODE
01620  M00S01249.1mv     +++|          EXECUTE  1RU       REWRITE LABELS
01621  M00S01250.1mv     +++|*         LJM    IMV         RERUN *1MV*
01622  M00S01251.1mv     +++| SDA      SPACE  4,10
01623  M00S01252.1mv     +++|**        SDA - SET DEVICE AVAILABLE.
01624  M00S01253.1mv     +++|*
01625  M00S01254.1mv     +++|*         ENTRY  (A) = *SEQM* SUBFUNCTION.
01626  M00S01255.1mv     +++|*                (EQ) = EST ORDINAL.
01627  M00S01256.1mv     +++|*
01628  M00S01257.1mv     +++|*         EXIT   (A) = 0.
01629  M00S01258.1mv     +++|*
01630  M00S01259.1mv     +++|*         USES   T3, CM - CM+4.
01631  M00S01260.1mv     +++|*
01632  M00S01261.1mv     +++|*         CALLS  CEQ, CSF.
01633  M00S01262.1mv     +++|*
01634  M00S01263.1mv     +++|*         MACROS MONITOR.
01635  M00S01264.1mv     +++|
01636  M00S01265.1mv     +++|
01637  M00S01266.1mv     +++| SDA      SUBR               ENTRY/EXIT
01638  M00S01267.1mv     +++|          STD    T3
01639  M00S01268.1mv     +++|          RJM    CEQ         CLEAR ERRORS FROM UNIT I/O QUEUE
01640  M00S01269.1mv     +++|          LDD    T3
01641  M00S01270.1mv     +++|          RJM    CSF         ISSUE *SEQM* FUNCTION
01642  M00S01271.1mv     +++|          LDD    EQ
01643  M00S01272.1mv     +++|          STD    CM+1
01644  M00S01273.1mv     +++|          LDN    STDE
01645  M00S01274.1mv     +++|          STD    CM+2
01646  M00S01275.1mv     +++|          LDN    CERS        CLEAR *DE* DEVICE ERROR STATUS
01647  M00S01276.1mv     +++|          STD    CM+3
01648  M00S01277.1mv     +++|          MONITOR  SMDM
01649  M00S01278.1mv     +++|          LDN    ZERL        CLEAR *CMS* TIMERS
01650  M00S01279.1mv     +++|          CRD    CM
01651  M00S01280.1mv     +++|          ADN    RDSL-ZERL
01652  M00S01281.1mv     +++|          CWD    CM
01653  M00S01282.1mv     +++|          ERRNZ  WISE        CODE DEPENDS ON VALUE
01654  M00S01283.1mv     +++|          LDD    EQ
01655  M00S01284.1mv     +++|          STD    CM+3
01656  M00S01285.1mv     +++|          MONITOR  EATM      ISSUE EVENT FOR THIS DEVICE
01657  M00S01286.1mv     +++|*         LDN    0
01658  M00S01287.1mv     +++|          UJN    SDAX        RETURN
01659  M00S01288.1mv     +++| SNC      SPACE  4,15
01660  M00S01289.1mv     +++|**        SNC - SELECT NEXT CHANNEL.
01661  M00S01290.1mv     +++|*
01662  M00S01291.1mv     +++|*         ENTRY  (CC) = CURRENT CHANNEL TABLE ORDINAL.
01663  M00S01292.1mv     +++|*
01664  M00S01293.1mv     +++|*         EXIT   (A) .EQ. CHANNEL NUMBER.
01665  M00S01294.1mv     +++|*                    .LT. 0 IF NO MORE CHANNELS.
01666  M00S01295.1mv     +++|*                (T4) CHANNEL SELECTED.
01667  M00S01296.1mv     +++|*                (CC) INCREMENTED.
01668  M00S01297.1mv     +++|*                (SP) = SECOND CHANNEL STATISTICS POINTER.
01669  M00S01298.1mv     +++|*                CURRENT CHANNEL RELEASED.
01670  M00S01299.1mv     +++|*
Line S00146 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01671  M01S00146.ns2632b +++|*         USES   CC, SP, T4.
01672  M01S00147.ns2632b +++|*
01673  M00S01300.1mv     +++|*         MACROS ENDMS.
01674  M00S01301.1mv     +++|
01675  M00S01302.1mv     +++|
01676  M00S01303.1mv     +++| SNC1     LCN    0
01677  M00S01304.1mv     +++|
01678  M00S01305.1mv     +++| SNC      SUBR               ENTRY/EXIT
01679  M00S01306.1mv     +++|          ENDMS
01680  M00S01307.1mv     +++|          AOD    CC          ADVANCE CHANNEL TABLE INDEX
01681  M00S01308.1mv     +++|          LMD    DA
01682  M00S01309.1mv     +++|          ZJN    SNC1        IF NO MORE CHANNELS
Line S01310 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01683  M01S01310.ns2632b ---|          LDC    LDNI+0
01684  M01S01311.ns2632b ---| SNCA     EQU    *-1
01685  M01S01312.ns2632b ---|*         LDC    LDNI+METH   (I/O ON MAINTENANCE CYLINDER)
01686  M01S01313.ns2632b ---|          STM    RCSA
01687  M01S01314.ns2632b ---|          STM    WCSA
01688  M00S01315.1mv     +++|          LDC    DVC2
01689  M00S01316.1mv     +++|          STD    SP
01690  M00S01317.1mv     +++|          LDM    TSCH,CC     SET CHANNEL AND CONCURRENCY FLAG
01691  M00S01318.1mv     +++|          STD    T4
01692  M00S01319.1mv     +++|          UJN    SNCX        RETURN
01693  M00S01320.1mv     +++|
01694  M00S01321.1mv     +++|
01695  M00S01322.1mv     +++| TSCH     CON    0           PRIMARY CHANNEL (FIRST IF SINGLE ACCESS)
01696  M00S01323.1mv     +++|          CON    0           SECONDARY CHANNEL
01697  M00S01324.1mv     +++| SUT      SPACE  4,15
01698  M00S01325.1mv     +++|**        SUT - SCAN (BUFFERED I/O) UNIT TABLE.
01699  M00S01326.1mv     +++|*
01700  M00S01327.1mv     +++|*         ENTRY  (A) .LT. 0 IF INITIAL CALL.
01701  M00S01328.1mv     +++|*                (CN) = CURRENT *PUT* ORDINAL IF NOT INITIAL CALL.
01702  M00S01329.1mv     +++|*                (EQ) = EST ORDINAL.
01703  M00S01330.1mv     +++|*                (ES - ES+4) = EST ENTRY.
01704  M00S01331.1mv     +++|*                (CN+3 - CN+4) = FWA OF *PUT* IF NOT INITIAL CALL.
01705  M00S01332.1mv     +++|*
01706  M00S01333.1mv     +++|*         EXIT   (A) = 0 IF END OF SCAN.
01707  M00S01334.1mv     +++|*                    = (CN) = *PUT* ORDINAL.
01708  M00S01335.1mv     +++|*                (CN+3 - CN+4) = FWA OF PHYSICAL UNIT TABLE.
01709  M00S01336.1mv     +++|*
01710  M00S01337.1mv     +++|*         USES   CM - CM+4, CN - CN+4.
01711  M00S01338.1mv     +++|
01712  M00S01339.1mv     +++|
01713  M00S01340.1mv     +++| SUT1     SOD    CN
01714  M00S01341.1mv     +++|          ZJN    SUTX        IF END OF UNIT TABLE
01715  M00S01342.1mv     +++| SUT2     LDD    CN+3
01716  M00S01343.1mv     +++|          SHN    14-PUTLS
01717  M00S01344.1mv     +++|          ADD    CN          FORM *PUT* ADDRESS
01718  M00S01345.1mv     +++|          SHN    PUTLS
01719  M00S01346.1mv     +++|          ADD    CN+4
01720  M00S01347.1mv     +++|          ADK    UNCT        READ UNIT CONTROL WORD
01721  M00S01348.1mv     +++|          CRD    CM
01722  M00S01349.1mv     +++|          LDD    CM+1        CHECK EST ORDINAL
01723  M00S01350.1mv     +++|          LMD    EQ
01724  M00S01351.1mv     +++|          NJN    SUT1        IF NOT REQUIRED DEVICE
01725  M00S01352.1mv     +++|          LDD    CN
01726  M00S01353.1mv     +++|
01727  M00S01354.1mv     +++| SUT      SUBR               ENTRY/EXIT
01728  M00S01355.1mv     +++|          PJN    SUT1        IF NOT INITIAL CALL
01729  M00S01356.1mv     +++|          LDD    ES+4
01730  M00S01357.1mv     +++|          SHN    3
01731  M00S01358.1mv     +++|          ADN    DILL        FETCH DEVICE STATUS FROM MST
01732  M00S01359.1mv     +++|          CRD    CM
01733  M00S01360.1mv     +++|          LDD    CM+2
01734  M00S01361.1mv     +++|          ZJN    SUTX        IF NOT BUFFERED DEVICE
01735  M00S01362.1mv     +++|          LDC    BIOL
01736  M00S01363.1mv     +++|          CRD    CN
01737  M00S01364.1mv     +++|          LDD    CN+1        GET *PUT* DESCRIPTOR
01738  M00S01365.1mv     +++|          SHN    14
01739  M00S01366.1mv     +++|          LMD    CN+2
01740  M00S01367.1mv     +++|          ADN    PUTP
01741  M00S01368.1mv     +++|          CRD    CN
Line S00001 Modification History
M01 (Added by) ns2682
Seq #  *Modification Id* Act 
----------------------------+
01742  M01S00001.ns2682  +++|          LDD    CN+3
01743  M01S00002.ns2682  +++|          LPN    77          CLEAR FLAGS
01744  M01S00003.ns2682  +++|          STD    CN+3
01745  M00S01369.1mv     +++|          UJP    SUT2        BEGIN UNIT TABLE SCAN
01746  M00S01370.1mv     +++| SVF      SPACE  4,10
01747  M00S01371.1mv     +++|**        SVF - SET VERIFICATION FAILURE COUNT.
01748  M00S01372.1mv     +++|*
01749  M00S01373.1mv     +++|*         ENTRY  (A) = VERIFICATION FAILURE COUNT TO SET.
01750  M00S01374.1mv     +++|*
01751  M00S01375.1mv     +++|*         EXIT   FAILURE COUNT IN *CTLL* MST WORD UPDATED.
01752  M00S01376.1mv     +++|*
01753  M00S01377.1mv     +++|*         USES   CM - CM+4.
01754  M00S01378.1mv     +++|*
01755  M00S01379.1mv     +++|*         MACROS MONITOR.
01756  M00S01380.1mv     +++|
01757  M00S01381.1mv     +++|
01758  M00S01382.1mv     +++| SVF      SUBR               ENTRY/EXIT
01759  M00S01383.1mv     +++|          STM    SVFA+4
01760  M00S01384.1mv     +++|          LDN    0
01761  M00S01385.1mv     +++|          STD    CM+2
01762  M00S01386.1mv     +++|          LDD    ES+4        BASE TABLE ADDRESS
01763  M00S01387.1mv     +++|          SHN    3
01764  M00S01388.1mv     +++|          STD    CM+4
01765  M00S01389.1mv     +++|          SHN    -14
01766  M00S01390.1mv     +++|          STD    CM+3
01767  M00S01391.1mv     +++|          LDN    1
01768  M00S01392.1mv     +++|          STD    CM+1
01769  M00S01393.1mv     +++|          LDD    MA          UPDATE FAILURE COUNT
01770  M00S01394.1mv     +++|          CWM    SVFA,ON
01771  M00S01395.1mv     +++|          MONITOR  UTEM
01772  M00S01396.1mv     +++|          UJN    SVFX        RETURN
01773  M00S01397.1mv     +++|
01774  M00S01398.1mv     +++|
01775  M00S01399.1mv     +++| SVFA     VFD    1/0,5/CTLL,6/12D,6/48D,42/0
Line S00027 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01776  M01S00027.283l840 +++| SVI      SPACE  4,10
01777  M01S00028.283l840 +++|**        SVI - SET VERIFICATION INTERLOCK.
01778  M01S00029.283l840 +++|*
01779  M01S00030.283l840 +++|*         ENTRY  (T5) = EST ORDINAL.
01780  M01S00031.283l840 +++|*                (ES - ES+4) = WORD *EQDE* OF EST ENTRY.
01781  M01S00032.283l840 +++|*
01782  M01S00033.283l840 +++|*         EXIT   (CVIA) = EST ORDINAL OF DEVICE WITH INTERLOCK SET.
01783  M01S00034.283l840 +++|*
01784  M01S00035.283l840 +++|*         USES   CM - CM+4.
01785  M01S00036.283l840 +++|*
01786  M01S00037.283l840 +++|*         MACROS DELAY, MONITOR.
01787  M01S00038.283l840 +++|
01788  M01S00039.283l840 +++|
01789  M01S00040.283l840 +++| SVI      SUBR               ENTRY/EXIT
01790  M01S00041.283l840 +++|          LDD    ES
01791  M01S00042.283l840 +++|          SHN    21-11
01792  M01S00043.283l840 +++|          PJN    SVIX        IF NOT SHARED DEVICE
01793  M01S00044.283l840 +++|          SHN    21-4-21+11
01794  M01S00045.283l840 +++|          MJN    SVIX        IF ISD DEVICE
01795  M01S00046.283l840 +++| SVI1     LDN    ZERL
01796  M01S00047.283l840 +++|          CRD    CM
01797  M01S00048.283l840 +++|          LDD    T5          SET EST ORDINAL
01798  M01S00049.283l840 +++|          STD    CM+1
01799  M01S00050.283l840 +++|          STM    CVIA
01800  M01S00051.283l840 +++|          LDN    SVIS        SET DEVICE VERIFICATION INTERLOCK
01801  M01S00052.283l840 +++|          STD    CM+3
01802  M01S00053.283l840 +++|          MONITOR  STBM
01803  M01S00054.283l840 +++|          LDD    CM+1
01804  M01S00055.283l840 +++|          ZJN    SVIX        IF INTERLOCK SET SUCCESSFULLY
01805  M01S00056.283l840 +++|          DELAY  20B         DELAY 2 MILLISECONDS
01806  M01S00057.283l840 +++|          UJN    SVI1        RETRY
01807  M00S01400.1mv     +++| VBD      SPACE  4,15
01808  M00S01401.1mv     +++|**        VBD - VERIFY BUFFER DATA.
01809  M00S01402.1mv     +++|*
01810  M00S01403.1mv     +++|*         FOR EACH BUFFER THAT DOES NOT VERIFY, ((SP)+VCTB) IS
01811  M00S01404.1mv     +++|*         INCREMENTED.
01812  M00S01405.1mv     +++|*
01813  M00S01406.1mv     +++|*         ENTRY  (NS) = NUMBER OF BUFFERS TO PROCESS.
01814  M00S01407.1mv     +++|*                (SP) = STATISTICS GATHERING POINTER.
01815  M00S01408.1mv     +++|*                (T7) = LAST SECTOR TO CHECK + 1.
01816  M00S01409.1mv     +++|*
01817  M00S01410.1mv     +++|*         EXIT   (A) = DATA ERROR COUNT.
01818  M00S01411.1mv     +++|*
01819  M00S01412.1mv     +++|*         USES   CN, T1, T2, T3.
01820  M00S01413.1mv     +++|
01821  M00S01414.1mv     +++|
01822  M00S01415.1mv     +++| VBD      SUBR               ENTRY/EXIT
01823  M00S01416.1mv     +++|          LDC    DBUF        SET BUFFER POINTER
01824  M00S01417.1mv     +++|          STD    T3
01825  M00S01418.1mv     +++|          LDN    0           SET SECTOR NUMBER
01826  M00S01419.1mv     +++|          STD    T2
01827  M00S01420.1mv     +++| VBD1     SBD    NS
01828  M00S01421.1mv     +++|          ZJN    VBDX        IF ALL BUFFERS PROCESSED
01829  M00S01422.1mv     +++|          LDD    T3
01830  M00S01423.1mv     +++|          STD    T1          SET BUFFER ADDRESS TO CHECK
01831  M00S01424.1mv     +++|          ADC    BUFL
01832  M00S01425.1mv     +++|          STD    T3
01833  M00S01426.1mv     +++|          LDM    DVBE,T2
01834  M00S01427.1mv     +++|          NJN    VBD3        IF ERROR OCCURRED
01835  M00S01428.1mv     +++|          LDD    T7          COMPUTE SECTOR NUMBER
01836  M00S01429.1mv     +++|          SBD    NS
01837  M00S01430.1mv     +++|          ADD    T2
01838  M00S01431.1mv     +++|          STD    T0
01839  M00S01432.1mv     +++|          ADN    1
01840  M00S01433.1mv     +++|          LMI    T1
01841  M00S01434.1mv     +++|          NJN    VBD4        IF MISMATCH ON SECTOR
01842  M00S01435.1mv     +++|          AOD    T1
01843  M00S01436.1mv     +++|          LDI    T1
01844  M00S01437.1mv     +++|          LMD    HN
01845  M00S01438.1mv     +++|          NJN    VBD4        IF MISMATCH ON WORD COUNT
01846  M00S01439.1mv     +++|          AOD    T1
01847  M00S01440.1mv     +++| VBD2     LDC    BUFP
01848  M00S01441.1mv     +++|          LMI    T1
01849  M00S01442.1mv     +++|          NJN    VBD4        IF PATTERN MISMATCH
01850  M00S01443.1mv     +++|          AOD    T1
01851  M00S01444.1mv     +++|          LMD    T3
01852  M00S01445.1mv     +++|          NJN    VBD2        IF NOT END OF BUFFER
01853  M00S01446.1mv     +++| VBD3     AOD    T2
01854  M00S01447.1mv     +++|          UJN    VBD1        CHECK FOR END OF BUFFERS
01855  M00S01448.1mv     +++|
01856  M00S01449.1mv     +++| VBD4     LDD    T0          SET (T7) TO SECTOR IN ERROR
01857  M00S01450.1mv     +++|          STD    T7
01858  M00S01451.1mv     +++|          AOM    VCTB,SP     SET DATA ERROR COUNT
01859  M00S01452.1mv     +++|          UJP    VBDX        RETURN
01860  M00S01453.1mv     +++| VLS      SPACE  4,15
01861  M00S01454.1mv     +++|**        VLS - VERIFY LABEL SECTOR.
01862  M00S01455.1mv     +++|*
01863  M00S01456.1mv     +++|*         ENTRY  (T7) = LABEL SECTOR NUMBER.
01864  M00S01457.1mv     +++|*                (NS) = RELATIVE UNIT NUMBER.
01865  M00S01458.1mv     +++|*                (SP) = ERROR STATISTICS BUFFER POINTER.
01866  M00S01459.1mv     +++|*
01867  M00S01460.1mv     +++|*         EXIT   ERROR INDICATORS SET IN STATISTICS BUFFER.
01868  M00S01461.1mv     +++|*
Line S01462 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01869  M01S01462.ns2632b ---|*         USES   T4, T6, T8, CM - CM+4, CN - CN+4.
Line S00148 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01870  M01S00148.ns2632b +++|*         USES   MT, T4, T6, T7, T8, CM - CM+4, CN - CN+4, IR - IR+4.
01871  M00S01463.1mv     +++|*
Line S01464 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01872  M01S01464.ns2632b ---|*         CALLS  RDS, VLT, *5ME*.
Line S00149 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01873  M01S00149.ns2632b +++|*         CALLS  AEC, RDS, VLT, *5ME*.
01874  M00S01465.1mv     +++|*
Line S01466 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01875  M01S01466.ns2632b ---|*         MACROS ENDMS, SETMS.
Line S00150 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01876  M01S00150.ns2632b +++|*         MACROS ENDMS, EXECUTE, SETMS.
01877  M00S01467.1mv     +++|
01878  M00S01468.1mv     +++|
Line S01469 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01879  M01S01469.ns2632b ---| VLS11    LPN    77
Line S00021 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01880  M02S00021.ns2632b ---|          LMN    DRVE
01881  M02S00022.ns2632b ---|          ZJN    VLS12       IF DRIVE RESERVE
01882  M02S00023.ns2632b ---|          LMN    CRSE&DRVE
01883  M02S00024.ns2632b ---|          ZJN    VLS12       IF CONTROLLER RESERVE
01884  M02S00025.ns2632b ---|          LMN    CRSE
Line S00151 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01885  M01S00151.ns2632b +++| VLS11    RJM    AEC         ANALYZE ERROR CODE
01886  M01S00152.ns2632b +++|          ZJN    VLS12       IF DRIVE OR CONTROLLER RESERVE
01887  M00S01470.1mv     +++|          STM    LREB,SP     SAVE LABEL READ ERROR
01888  M00S01471.1mv     +++|          LDK    REFG        SET READ ERROR FLAG
01889  M00S01472.1mv     +++| VLS12    STM    LEFB,SP
01890  M00S01473.1mv     +++|          ENDMS
01891  M00S01474.1mv     +++|
01892  M00S01475.1mv     +++| VLS      SUBR               ENTRY/EXIT
Line S01476 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
01893  M01S01476.ns2632  ---| VLS0.1   SETMS  IOCH,(AD,DE,DF,ND)
Line S00026 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632a
Seq #  *Modification Id* Act 
----------------------------+
01894  M02S00026.ns2632a ---| VLS0.1   SETMS  IOCH,(AD,AR,DE,DF,ND,NR)
Line S00002 Modification History
M01 (Added by) ns2632a
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01895  M02S00002.ns2632b ---| VLS0.1   SETMS  IOCH,(AD,AR,DE,DF,ND)
Line S00153 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01896  M01S00153.ns2632b +++| VLS0     SETMS  IOCH,(AD,AR,DE,DF,ND)
01897  M01S00154.ns2632b +++|*         LDN    0           SET MEDIA ERROR THRESHOLD
01898  M01S00155.ns2632b +++|          STD    MT
01899  M00S01477.1mv     +++|          LDM    TSCH,CC     SET CHANNEL
01900  M00S01478.1mv     +++|          STD    T4
01901  M00S01479.1mv     +++|          STM    STSB        STORE CHANNEL IN CASE BUFFERED DEVICE
01902  M00S01480.1mv     +++|          LDD    ES+4        READ MST DATA
01903  M00S01481.1mv     +++|          SHN    3
01904  M00S01482.1mv     +++|          ADN    ALGL
01905  M00S01483.1mv     +++|          CRD    CM
01906  M00S01484.1mv     +++|          LDD    CM+1        SET LABEL TRACK NUMBER
01907  M00S01485.1mv     +++|          STD    T6
01908  M00S01486.1mv     +++|          LDC    BFMS
01909  M00S01487.1mv     +++|          RJM    RDS         READ SECTOR
Line S01488 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01910  M01S01488.ns2632b ---| VLS0     MJP    VLS11       IF MASS STORAGE ERROR
Line S00156 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01911  M01S00156.ns2632b +++| VLS0.1   MJP    VLS11       IF MASS STORAGE ERROR
01912  M00S01489.1mv     +++|
01913  M00S01490.1mv     +++|*         CHECK CONTENTS OF LABEL.
01914  M00S01491.1mv     +++|
01915  M00S01492.1mv     +++|*         LDN    0
01916  M00S01493.1mv     +++|          STD    T8          SET ERROR STATUS
01917  M00S01494.1mv     +++|          LDM    LLSS
01918  M00S01495.1mv     +++|          SHN    -1
01919  M00S01496.1mv     +++|          ZJN    VLS0.2      IF NOT LEVEL 2 LABEL
01920  M00S01497.1mv     +++|          LDD    NS
01921  M00S01498.1mv     +++|          NJN    VLS0.2      IF NOT RELATIVE UNIT ZERO
01922  M00S01499.1mv     +++|          RJM    VLT         VERIFY LEVEL 2 LABEL
Line S01500 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01923  M01S01500.ns2632b ---|          MJN    VLS0        IF TRT READ ERROR
Line S00157 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01924  M01S00157.ns2632b +++|          MJN    VLS0.1      IF TRT READ ERROR
01925  M00S01501.1mv     +++|          STD    T8          SET ERROR STATUS
01926  M00S01502.1mv     +++|          LPK    CKFG
01927  M00S01503.1mv     +++|          NJP    VLS12       IF CHECKSUM ERROR
01928  M00S01504.1mv     +++| VLS0.2   LDM    BFMS        CHECK CONTROL BYTES
01929  M00S01505.1mv     +++|          LMC    3777
01930  M00S01506.1mv     +++|          ZJN    VLS1        IF PROPER CONTROL BYTE
01931  M00S01507.1mv     +++|          LDK    CBFG        SET BAD CONTROL BYTE FLAG
01932  M00S01508.1mv     +++|          RAD    T8
01933  M00S01509.1mv     +++| VLS1     LDM    BFMS+1
01934  M00S01510.1mv     +++|          LMN    77
01935  M00S01511.1mv     +++|          ZJN    VLS2        IF PROPER WORD COUNT
01936  M00S01512.1mv     +++|          LDK    WCFG        SET BAD WORD COUNT FLAG
01937  M00S01513.1mv     +++|          RAD    T8
01938  M00S01514.1mv     +++| VLS2     LDM    FTSS
01939  M00S01515.1mv     +++|          LMD    T6
01940  M00S01516.1mv     +++|          ZJN    VLS3        IF PROPER TRACK
01941  M00S01517.1mv     +++|          LDK    TNFG        SET BAD TRACK NUMBER FLAG
01942  M00S01518.1mv     +++|          RAD    T8
01943  M00S01519.1mv     +++| VLS3     LDM    E4SS        COMPARE EQUIPMENT TYPE WITH EST
01944  M00S01520.1mv     +++|          STM    EMNB,SP
01945  M00S01521.1mv     +++|          LMM    DVDT
01946  M00S01522.1mv     +++|          ZJN    VLS6        IF MATCHING EQUIPMENT MNEMONIC
01947  M00S01523.1mv     +++|          LMN    1RP&1RE
01948  M00S01524.1mv     +++| VLSA     PSN
01949  M00S01525.1mv     +++|*         ZJN    VLS6        (IF NON-MATCHING EM EQUIPMENT TYPES)
01950  M00S01526.1mv     +++|          LDK    EQFG        SET BAD EQUIPMENT MNEMONIC
01951  M00S01527.1mv     +++|          RAD    T8
01952  M00S01528.1mv     +++| VLS6     LDD    ES+4        GET FAMILY/PACKNAME
01953  M00S01529.1mv     +++|          SHN    3
01954  M00S01530.1mv     +++|          ADN    PFGL
01955  M00S01531.1mv     +++|          CRD    CN
01956  M00S01532.1mv     +++|          LDD    MA          COPY LABEL NAME TO MESSAGE BUFFER
01957  M00S01533.1mv     +++|          CWM    N4SS+5*PFGL,ON
01958  M00S01534.1mv     +++|          SBN    1           MOVE NAME TO DIRECT CELLS
01959  M00S01535.1mv     +++|          CRD    CM
01960  M00S01536.1mv     +++|          LDD    CM
01961  M00S01537.1mv     +++|          LMD    CN
01962  M00S01538.1mv     +++|          NJN    VLS7        IF NOT THE SAME LABEL
01963  M00S01539.1mv     +++|          LDD    CM+1
01964  M00S01540.1mv     +++|          LMD    CN+1
01965  M00S01541.1mv     +++|          NJN    VLS7        IF NOT THE SAME LABEL
01966  M00S01542.1mv     +++|          LDD    CM+2
01967  M00S01543.1mv     +++|          LMD    CN+2
01968  M00S01544.1mv     +++|          NJN    VLS7        IF NOT THE SAME LABEL
01969  M00S01545.1mv     +++|          LDD    CM+3
01970  M00S01546.1mv     +++|          LMD    CN+3
01971  M00S01547.1mv     +++|          SCN    77          CHECK DEVICE NUMBER SEPARATELY
01972  M00S01548.1mv     +++|          NJN    VLS7        IF NOT THE SAME LABEL
01973  M00S01549.1mv     +++|          LDD    CM+4
01974  M00S01550.1mv     +++|          LMD    CN+4
01975  M00S01551.1mv     +++|          SCN    70
01976  M00S01552.1mv     +++|          ZJN    VLS8        IF GOOD COMPARE
01977  M00S01553.1mv     +++| VLS7     LDK    FPFG        SET FAMILY/PACK NAME ERROR FLAG
01978  M00S01554.1mv     +++|          RAD    T8
01979  M00S01555.1mv     +++| VLS8     LDD    CM+3        COMPARE DEVICE NUMBERS
01980  M00S01556.1mv     +++|          LMD    CN+3
01981  M00S01557.1mv     +++|          LPN    77
01982  M00S01558.1mv     +++|          ZJN    VLS9        IF DEVICE NUMBERS MATCH
01983  M00S01559.1mv     +++|          LDK    DNFG        SET BAD DEVICE NUMBER FLAG
01984  M00S01560.1mv     +++|          RAD    T8
01985  M00S01561.1mv     +++| VLS9     LDD    CM
01986  M00S01562.1mv     +++|          STM    FMNB,SP
01987  M00S01563.1mv     +++|          LDD    CM+1
01988  M00S01564.1mv     +++|          STM    FMNB+1,SP
01989  M00S01565.1mv     +++|          LDD    CM+2
01990  M00S01566.1mv     +++|          STM    FMNB+2,SP
01991  M00S01567.1mv     +++|          LDD    CM+3
01992  M00S01568.1mv     +++|          STM    DNMB,SP
01993  M00S01569.1mv     +++|          LDD    CM+4        CHECK RELATIVE UNIT NUMBER
01994  M00S01570.1mv     +++|          SHN    -3
01995  M00S01571.1mv     +++|          LPN    7
01996  M00S01572.1mv     +++|          LMD    NS
01997  M00S01573.1mv     +++|          ZJN    VLS10       IF CORRECT UNIT NUMBER
01998  M00S01574.1mv     +++|          LDK    RUFG        SET RELATIVE UNIT NUMBER ERROR
01999  M00S01575.1mv     +++| VLS10    RAD    T8
02000  M00S01576.1mv     +++|          LPK    FPFG+DNFG+RUFG
02001  M00S01577.1mv     +++|          NJN    VLS10.2     IF WRONG PACK
02002  M00S01578.1mv     +++| VLS10.1  LDD    T8
02003  M00S01579.1mv     +++|          LJM    VLS12       RETURN
02004  M00S01580.1mv     +++|
02005  M00S01581.1mv     +++| VLS10.2  LDD    ES
02006  M00S01582.1mv     +++|          SHN    21-11
02007  M00S01583.1mv     +++|          PJN    VLS10.1     IF NOT SHARED
02008  M00S01584.1mv     +++|          SHN    11-21
02009  M00S01585.1mv     +++|          LPN    3
02010  M00S01586.1mv     +++|          LMN    3
02011  M00S01587.1mv     +++|          ZJN    VLS10.1     IF DOWN
02012  M00S01588.1mv     +++|          LDD    T5
02013  M00S01589.1mv     +++|          STD    IR+3        SET EST ORDINAL
02014  M00S01590.1mv     +++|          LDK    BFMS
02015  M00S01591.1mv     +++|          STD    IR+2        SET BUFFER ADDRESS
02016  M00S01592.1mv     +++|          EXECUTE  5ME
02017  M00S01593.1mv     +++|          LDD    IA          RESTORE INPUT REGISTER
02018  M00S01594.1mv     +++|          CRD    IR
Line S01595 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02019  M01S01595.271l716 ---|          LDN    LSLT        RESET LABEL SECTOR
Line S00057 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02020  M01S00057.271l716 +++|          LDN    /MMF/LSLT   RESET LABEL SECTOR
02021  M00S01596.1mv     +++|          STD    T7
Line S01597 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02022  M01S01597.ns2632b ---|          LJM    VLS0.1      RETRY VERIFICATION
Line S00158 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02023  M01S00158.ns2632b +++|          LJM    VLS0        RETRY VERIFICATION
02024  M00S01598.1mv     +++| VLT      SPACE  4,15
02025  M00S01599.1mv     +++|**        VLT - VERIFY LEVEL TWO LABEL.
02026  M00S01600.1mv     +++|*
02027  M00S01601.1mv     +++|*         ENTRY  (NS) = RELATIVE UNIT NUMBER.
02028  M00S01602.1mv     +++|*                (SP) = ERROR STATISTICS BUFFER POINTER.
02029  M00S01603.1mv     +++|*                (T7) = LABEL SECTOR NUMBER.
02030  M00S01604.1mv     +++|*                (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
02031  M00S01605.1mv     +++|*
02032  M00S01606.1mv     +++|*         EXIT   (A) = ERROR INDICATORS.
02033  M00S01607.1mv     +++|*
02034  M00S01608.1mv     +++|*         USES   T1, T7, T9, CM - CM+4.
02035  M00S01609.1mv     +++|*
02036  M00S01610.1mv     +++|*         CALLS  CLC, RDS.
02037  M00S01611.1mv     +++|
02038  M00S01612.1mv     +++|
02039  M00S01613.1mv     +++| VLT6     LDK    CKFG        CHECKSUM ERROR
02040  M00S01614.1mv     +++|
02041  M00S01615.1mv     +++| VLT      SUBR               ENTRY/EXIT
02042  M00S01616.1mv     +++|          RJM    CLC         COMPUTE LABEL CHECKSUM
02043  M00S01617.1mv     +++|          LMM    CKSS
02044  M00S01618.1mv     +++|          NJN    VLT6        IF INCORRECT CHECKSUM
02045  M00S01619.1mv     +++|          LDM    N4SS+SDGL*5+4  CHECK MST/TRT INTERLOCK
02046  M00S01620.1mv     +++|          LPN    76
02047  M00S01621.1mv     +++|          ZJN    VLT1        IF NOT INTERLOCKED
02048  M00S01622.1mv     +++|          SHN    -1
02049  M00S01623.1mv     +++|          STD    T1
02050  M00S01624.1mv     +++|          LDD    ES+4        COMPARE INTERLOCK WITH THIS MF-S INDEX
02051  M00S01625.1mv     +++|          SHN    3
02052  M00S01626.1mv     +++|          ADK    DULL
02053  M00S01627.1mv     +++|          CRD    CM
02054  M00S01628.1mv     +++|          LDD    CM+2
02055  M00S01629.1mv     +++|          LPN    17
02056  M00S01630.1mv     +++|          ADN    1
02057  M00S01631.1mv     +++|          LMD    T1
02058  M00S01632.1mv     +++|          ZJN    VLT1        IF INTERLOCKED BY THIS MAINFRAME
Line S00001 Modification History
M01 (Added by) 1mv13
Seq #  *Modification Id* Act 
----------------------------+
02059  M01S00001.1mv13   +++|          LDD    T1
02060  M01S00002.1mv13   +++|          SHN    2
02061  M01S00003.1mv13   +++|          RAD    T1
02062  M01S00004.1mv13   +++|          LDM    DISS-5+3,T1
02063  M01S00005.1mv13   +++|          LPN    1
02064  M01S00006.1mv13   +++|          LMN    1
02065  M01S00007.1mv13   +++|          ZJN    VLT1        IF INTERLOCKED FOR DEVICE RECOVERY
02066  M00S01633.1mv     +++|          LDK    ILFG
02067  M00S01634.1mv     +++| VLT1     STD    T9
02068  M00S01635.1mv     +++|          LDD    NS
02069  M00S01636.1mv     +++|          NJP    VLT4        IF NOT RELATIVE UNIT ZERO
02070  M00S01637.1mv     +++|          LDM    N4SS+TDGL*5+2  CHECK MST AND TRT COUNTERS
02071  M00S01638.1mv     +++|          SHN    -6
02072  M00S01639.1mv     +++|          ADN    1
02073  M00S01640.1mv     +++|          RAD    T7
02074  M00S01641.1mv     +++|          LDC    DBUF
02075  M00S01642.1mv     +++|          RJM    RDS         READ LAST SECTOR OF TRT
02076  M00S01643.1mv     +++|          MJN    VLT5        IF READ ERROR
02077  M00S01644.1mv     +++|          LDM    N4SS+SDGL*5+2
02078  M00S01645.1mv     +++|          LMM    DBUF+2+77*5+2
02079  M00S01646.1mv     +++|          NJN    VLT2        IF COUNTERS DON-T MATCH
02080  M00S01647.1mv     +++|          LDM    N4SS+SDGL*5+3
02081  M00S01648.1mv     +++|          LMM    DBUF+2+77*5+3
02082  M00S01649.1mv     +++|          NJN    VLT2        IF COUNTERS DON-T MATCH
02083  M00S01650.1mv     +++|          LDM    N4SS+SDGL*5+4
02084  M00S01651.1mv     +++|          LMM    DBUF+2+77*5+4
02085  M00S01652.1mv     +++|          SCN    77
02086  M00S01653.1mv     +++|          ZJN    VLT3        IF COUNTERS MATCH
02087  M00S01654.1mv     +++| VLT2     LDD    TH          COUNTER MISMATCH
02088  M00S01655.1mv     +++|*         LDK    CMFG
02089  M00S01656.1mv     +++|          ERRNZ  CMFG-1000B
02090  M00S01657.1mv     +++|          RAD    T9
Line S01658 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02091  M01S01658.271l716 ---| VLT3     LDK    LSLT        RESTORE LABEL SECTOR
Line S00058 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02092  M01S00058.271l716 +++| VLT3     LDN    /MMF/LSLT   RESET LABEL SECTOR
02093  M00S01659.1mv     +++|          STD    T7
02094  M00S01660.1mv     +++| VLT4     LDD    T9
02095  M00S01661.1mv     +++| VLT5     LJM    VLTX        RETURN
02096  M00S01662.1mv     +++| VSF      SPACE  4,15
02097  M00S01663.1mv     +++|**        VSF - VERIFY SYSTEM FILE.
02098  M00S01664.1mv     +++|*
02099  M00S01665.1mv     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
02100  M00S01666.1mv     +++|*                (ES - ES+4) = EST ENTRY.
02101  M00S01667.1mv     +++|*
02102  M00S01668.1mv     +++|*         EXIT   (A) .LT. 0 IF I/O ERROR.
02103  M00S01669.1mv     +++|*
02104  M00S01670.1mv     +++|*         USES   CM - CM+4, CN - CN+4.
02105  M00S01671.1mv     +++|*
02106  M00S01672.1mv     +++|*         CALLS  IRA, WSF.
02107  M00S01673.1mv     +++|*
02108  M00S01674.1mv     +++|*         MACROS SFA.
02109  M00S01675.1mv     +++|
02110  M00S01676.1mv     +++|
02111  M00S01677.1mv     +++| VSF      SUBR               ENTRY/EXIT
02112  M00S01678.1mv     +++|          LDD    ES
02113  M00S01679.1mv     +++|          LPC    2003        CHECK DEVICE STATE
02114  M00S01680.1mv     +++|          LMC    2003
02115  M00S01681.1mv     +++|          NJN    VSFX        IF NOT DOWN SYSTEM DEVICE
02116  M00S01682.1mv     +++|          LDN    FNTP
02117  M00S01683.1mv     +++|          CRD    CM          FETCH FNT POINTER
02118  M00S01684.1mv     +++|          LDD    CM
02119  M00S01685.1mv     +++|          SHN    14          READ SYSTEM FILE FST
02120  M00S01686.1mv     +++|          LMD    CM+1
02121  M00S01687.1mv     +++|          ERRNZ  SYFO        CODE DEPENDS ON VALUE
02122  M00S01688.1mv     +++|          ADN    FSTG
02123  M00S01689.1mv     +++|          CRD    CN
02124  M00S01690.1mv     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
02125  M00S01691.1mv     +++|
02126  M00S01692.1mv     +++|*         WRITE SYSTEM FILE - SYSTEM + EOI SECTORS.
02127  M00S01693.1mv     +++|
02128  M00S01694.1mv     +++|          LDD    CN+1        PROCESS SYSTEM FILE
02129  M00S01695.1mv     +++|          RJM    WSF
02130  M00S01696.1mv     +++|          MJN    VSFX        IF I/O ERROR
02131  M00S01697.1mv     +++|
02132  M00S01698.1mv     +++|*         WRITE PP LIBRARY FILE - SYSTEM + EOI SECTORS.
02133  M00S01699.1mv     +++|
02134  M00S01700.1mv     +++|          LDM    PLSS        PROCESS PP LIBRARY FILE
02135  M00S01701.1mv     +++|          RJM    WSF
02136  M00S01702.1mv     +++|          UJP    VSFX        RETURN
02137  M00S01703.1mv     +++| WCS      SPACE  4,15
02138  M00S01704.1mv     +++|**        WCS - WRITE CONSECUTIVE SECTORS.
02139  M00S01705.1mv     +++|*
02140  M00S01706.1mv     +++|*         ENTRY  (NS) = NUMBER OF SECTORS TO WRITE.
02141  M00S01707.1mv     +++|*                (SP) = STATISTICS GATHERING POINTER.
02142  M00S01708.1mv     +++|*                (T4 - T7) = MASS STORAGE DRIVER PARAMETERS.
02143  M00S01709.1mv     +++|*                (BFMS) = DATA TO WRITE.
02144  M00S01710.1mv     +++|*
02145  M00S01711.1mv     +++|*         EXIT   (A) = WRITE ERROR COUNT.
02146  M00S01712.1mv     +++|*
Line S01713 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02147  M01S01713.ns2632b ---|*         USES   T7, T9.
Line S00159 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02148  M01S00159.ns2632b +++|*         USES   MT, T7, T9.
02149  M00S01714.1mv     +++|*
Line S01715 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02150  M01S01715.ns2632b ---|*         CALLS  WDS.
Line S00160 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02151  M01S00160.ns2632b +++|*         CALLS  AEC, WDS.
02152  M00S01716.1mv     +++|
02153  M00S01717.1mv     +++|
02154  M00S01718.1mv     +++| WCS6     LDN    0           RESTORE ORIGINAL SECTOR NUMBER
02155  M00S01719.1mv     +++|          SBD    NS
02156  M00S01720.1mv     +++|          RAD    T7
02157  M00S01721.1mv     +++|          LDN    0
02158  M00S01722.1mv     +++|
02159  M00S01723.1mv     +++| WCS      SUBR               ENTRY/EXIT
Line S00161 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02160  M01S00161.ns2632b +++|          LDN    0           SET MEDIA ERROR THRESHOLD
02161  M01S00162.ns2632b +++|*         LDN    METH        (I/O ON MAINTENANCE CYLINDER)
02162  M01S00163.ns2632b +++| WCSA     EQU    *-1
02163  M01S00164.ns2632b +++|          STD    MT
02164  M00S01724.1mv     +++|          LDD    HN
02165  M00S01725.1mv     +++|          STM    BFMS+1      SET SECTOR WORD COUNT
02166  M00S01726.1mv     +++|          LDN    0
02167  M00S01727.1mv     +++|          STD    T9          INITIALIZE SECTOR NUMBER
02168  M00S01728.1mv     +++|          LDD    T7
02169  M00S01729.1mv     +++| WCS1     ADN    1           SET SECTOR LINKAGE
02170  M00S01730.1mv     +++|          STM    BFMS
02171  M00S01731.1mv     +++|          AOD    T9
02172  M00S01732.1mv     +++|          SBD    NS
02173  M00S01733.1mv     +++|          ERRNZ  WLSF        CODE DEPENDS ON VALUE
02174  M00S01734.1mv     +++|          ZJN    WCS2        IF WRITING LAST SECTOR
02175  M00S01735.1mv     +++|          PJN    WCS6        IF WRITING COMPLETE
02176  M00S01736.1mv     +++|          LDC    WCSF
02177  M00S01737.1mv     +++| WCS2     ADC    BFMS
02178  M00S01738.1mv     +++|          RJM    WDS
Line S01739 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02179  M01S01739.ns2632b ---|          SHN    0-21        SAVE ERROR FLAG
Line S00165 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02180  M01S00165.ns2632b +++|          PJN    WCS3        IF NO ERROR
02181  M01S00166.ns2632b +++|          RJM    AEC         ANALYZE ERROR CODE
02182  M01S00167.ns2632b +++|          NJN    WCS3        IF NOT DRIVE OR CONTROLLER RESERVE
02183  M00S01740.1mv     +++|          STM    DVBE-1,T9
Line S01741 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02184  M01S01741.ns2632b ---|          ZJN    WCS3        IF NO ERROR
02185  M01S01742.ns2632b ---|          LDM    RDCT
02186  M01S01743.ns2632b ---|          LPN    77
Line S01744 Modification History
M01 (Removed by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02187  M02S01744.ns2632b ---|          STM    WCDB,SP     SAVE LATEST WRITE ERROR CODE
Line S00027 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02188  M02S00027.ns2632b ---|          LMN    DRVE
02189  M02S00028.ns2632b ---|          ZJN    WCS2.1      IF DRIVE RESERVE
02190  M02S00029.ns2632b ---|          LMN    CRSE&DRVE
02191  M02S00030.ns2632b ---|          NJN    WCS2.2      IF NOT CONTROLLER RESERVE
02192  M02S00031.ns2632b ---| WCS2.1   STM    DVBE-1,T9
Line S00032 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
02193  M01S00032.ns2632  +++|          LDN    1           SET ERROR INDICATOR
Line S00033 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02194  M02S00033.ns2632b ---|          UJP    WCSX        RETURN
Line S00168 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02195  M01S00168.ns2632b +++| WCS2.1   UJP    WCSX        RETURN
Line S00034 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
02196  M01S00034.ns2632  +++|
Line S00035 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02197  M02S00035.ns2632b ---| WCS2.2   LMN    CRSE
Line S00169 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02198  M01S00169.ns2632b +++| WCS3     STM    DVBE-1,T9
Line S00036 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
02199  M01S00036.ns2632  +++|          STM    WCDB,SP     SAVE LATEST WRITE ERROR CODE
Line S01745 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02200  M01S01745.ns2632b ---|          LMN    PARE
02201  M01S01746.ns2632b ---|          NJN    WCS4        IF NOT MEDIA ERROR
02202  M01S01747.ns2632b ---| WCSA     LDN    0
02203  M01S01748.ns2632b ---|*         LDN    METH        (PERFORMING DEVICE VERIFICATION)
02204  M01S01749.ns2632b ---|          ZJN    WCS5        IF TOO MANY MEDIA ERRORS
02205  M01S01750.ns2632b ---|          SOM    WCSA
02206  M01S01751.ns2632b ---| WCS3     AOD    T7
Line S00170 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02207  M01S00170.ns2632b +++|          MJN    WCS4        IF TOO MANY MEDIA OR OTHER ERRORS
02208  M01S00171.ns2632b +++|          AOD    T7
02209  M00S01752.1mv     +++|          UJP    WCS1        PROCESS NEXT SECTOR
02210  M00S01753.1mv     +++|
Line S01754 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02211  M01S01754.ns2632b ---| WCS4     LMN    DDFE&PARE
02212  M01S01755.ns2632b ---|          NJN    WCS5        IF NOT DIAGNOSTIC FAILURE
Line S00172 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02213  M01S00172.ns2632b +++| WCS4     SHN    21-20
02214  M01S00173.ns2632b +++|          PJN    WCS5        IF NOT DIAGNOSTIC FAILURE
02215  M00S01756.1mv     +++|          STM    HVLB
02216  M00S01757.1mv     +++| WCS5     AOM    WCTB,SP     SET WRITE ERROR COUNT
Line S01758 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02217  M01S01758.ns2632b ---|          UJP    WCSX        RETURN
Line S00174 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02218  M01S00174.ns2632b +++|          UJN    WCS2.1      RETURN
02219  M00S01759.1mv     +++| WSF      SPACE  4,15
02220  M00S01760.1mv     +++|**        WSF - WRITE SYSTEM FILE.
02221  M00S01761.1mv     +++|*
02222  M00S01762.1mv     +++|*         ENTRY  (A) = FIRST TRACK OF FILE.
02223  M00S01763.1mv     +++|*                (EQ) = ORDINAL OF DEVICE BEING VERIFIED.
02224  M00S01764.1mv     +++|*
02225  M00S01765.1mv     +++|*         EXIT   (A) .LT. 0 IF I/O ERROR.
02226  M00S01766.1mv     +++|*
02227  M00S01767.1mv     +++|*         USES   T5, T6, T7.
02228  M00S01768.1mv     +++|*
02229  M00S01769.1mv     +++|*         CALLS  RDS, SEI, WEI, WSS.
02230  M00S01770.1mv     +++|*
02231  M00S01771.1mv     +++|*         MACROS ENDMS, SETMS.
02232  M00S01772.1mv     +++|
02233  M00S01773.1mv     +++|
02234  M00S01774.1mv     +++| WSF      SUBR               ENTRY/EXIT
02235  M00S01775.1mv     +++|          STD    T6
02236  M00S01776.1mv     +++|          LDN    0           SYSTEM SECTOR NUMBER
02237  M00S01777.1mv     +++|          STD    T7
02238  M00S01778.1mv     +++|          SETMS  READSYS,(AD,DF,ND)
02239  M00S01779.1mv     +++|          LDC    BFMS        READ SYSTEM SECTOR
02240  M00S01780.1mv     +++|          RJM    RDS
02241  M00S01781.1mv     +++|          MJN    WSFX        IF READ ERROR
02242  M00S01782.1mv     +++|          ENDMS
02243  M00S01783.1mv     +++|          LDD    EQ          SELECT DEVICE BEING VERIFIED
02244  M00S01784.1mv     +++|          STD    T5
02245  M00S01785.1mv     +++|          SETMS  IO,(AD,DF,ND,NR)
02246  M00S01786.1mv     +++|          RJM    WSS         WRITE SYSTEM SECTOR
02247  M00S01787.1mv     +++|          MJN    WSFX        IF WRITE ERROR
02248  M00S01788.1mv     +++|          RJM    SEI         LOCATE EOI ON SYSTEM FILE
02249  M00S01789.1mv     +++|          SETMS  POSITION
02250  M00S01790.1mv     +++|          RJM    WEI         WRITE EOI SECTOR
02251  M00S01791.1mv     +++|          MJN    WSF1        IF WRITE ERROR
02252  M00S01792.1mv     +++|          ENDMS
02253  M00S01793.1mv     +++|*         LDN    0
02254  M00S01794.1mv     +++| WSF1     UJP    WSFX        RETURN
02255  M00S01795.1mv     +++|          SPACE  4,10
02256  M00S01796.1mv     +++|**        COMMON DECKS.
02257  M00S01797.1mv     +++|
02258  M00S01798.1mv     +++|
02259  M00S01799.1mv     +++|*CALL     COMPCLC
02260  M00S01800.1mv     +++| IRA$     EQU    0           SET *IRA* INITIALIZATION COMPLETE
02261  M00S01801.1mv     +++|*CALL     COMPSEI
02262  M00S01802.1mv     +++|*CALL     COMPIRA
Line S01803 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02263  M01S01803.284l847 ---|*CALL     COMPSDR
02264  M00S01804.1mv     +++|*CALL     COMPTLB
02265  M00S01805.1mv     +++|*CALL     COMPWEI
02266  M00S01806.1mv     +++|*CALL     COMPWSS
Line S00001 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02267  M01S00001.ns2750  +++|          TITLE  BUFFERS.
02268  M00S01807.1mv     +++|          SPACE  4,10
02269  M00S01808.1mv     +++|**        BUFFERS.
02270  M00S01809.1mv     +++|
02271  M00S01810.1mv     +++|
02272  M00S01811.1mv     +++| BUF      EQU    *
02273  M00S01812.1mv     +++| BEGIN    BSSN   BUF
02274  M00S01813.1mv     +++|
Line S01814 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02275  M01S01814.ns2750  ---|*         BEGINING OF CELLS SET BY PRESET.
Line S00002 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02276  M01S00002.ns2750  +++|*         CELLS SET BY PRESET.
02277  M00S01815.1mv     +++|
02278  M00S01816.1mv     +++| DVDT     BSSN   1           DEVICE TYPE
02279  M00S01817.1mv     +++| DVMT     BSSN   1           DEVICE MAINTENANCE TRACK
02280  M00S01818.1mv     +++| DVHL     BSSN   1           DEVICE HEAD COUNT LIMIT PER TRACK
02281  M00S01819.1mv     +++| DVSI     BSSN   1           DEVICE SECTOR INCREMENT TO NEXT HEAD
Line S01820 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02282  M01S01820.271l716 ---| DVST     BSSN   1           DEVICE SECTORS BETWEEN LOGICAL TRACKS
Line S00059 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02283  M01S00059.271l716 +++| CVNF     BSSN   1           CONVERSION FACTOR
02284  M01S00060.271l716 +++| DVST     BSSN   0           DEVICE SECTORS BETWEEN LOGICAL TRACKS
02285  M01S00061.271l716 +++| LSLT     BSSN   1           LOGICAL SECTORS/LOGICAL TRACK
Line S00062 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02286  M02S00062.284l847 ---| LSCY     BSSN   1           LOGICAL SECTORS/CYLINDER
Line S00046 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02287  M01S00046.284l847 +++| LSCY     BSSN   2           LOGICAL SECTORS/CYLINDER
Line S00063 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02288  M01S00063.271l716 +++| LSPT     BSSN   1           LOGICAL SECTORS/PHYSICAL TRACK
Line S00021 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
02289  M01S00021.1mv14   +++| DVSB     BSSN   1           PHYSICAL SECTORS / BUFFER - 1
02290  M00S01821.1mv     +++| DVPC     BSSN   1           DEVICE HARDWARE VERIFICATION PROCESSOR
02291  M00S01822.1mv     +++|
Line S01823 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02292  M01S01823.ns2750  ---|*         BEGINING OF ZEROED OUT TABLES.
Line S00003 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02293  M01S00003.ns2750  +++|*         ZEROED OUT TABLES.
02294  M00S01824.1mv     +++|
02295  M00S01825.1mv     +++| DVC1     BSSN   10*MXNB     CHANNEL 1 STATISTICS BUFFER
02296  M00S01826.1mv     +++| DVC2     BSSN   10*MXNB     CHANNEL 2 STATISTICS BUFFER
02297  M00S01827.1mv     +++| EZOT     BSSN   0           END OF ZEROED OUT TABLES
02298  M00S01828.1mv     +++|
Line S01829 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02299  M01S01829.ns2750  ---|*         BEGINING OF SCRATCH CELLS.
Line S00004 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02300  M01S00004.ns2750  +++|*         SCRATCH CELLS.
02301  M00S01830.1mv     +++|
02302  M00S01831.1mv     +++| .1       SET    BFMS-*
02303  M00S01832.1mv     +++| MXSC     EQU    .1/503      MAXIMUM SECTORS IN BUFFER
02304  M00S01833.1mv     +++| DVBE     BSSN   MXSC        DEVICE VERIFICATION ERROR FLAG BUFFER
02305  M00S01834.1mv     +++| DBUF     BSSN   MXSC*BUFL   DATA VERIFICATION DATA BUFFER
02306  M00S01835.1mv     +++|
02307  M00S01836.1mv     +++|
02308  M00S01837.1mv     +++| END      BSSN
02309  M00S01838.1mv     +++|
02310  M00S01839.1mv     +++| OVLA     EQU    DVBE+5      *2VA* OVERLAY LOAD POINT
02311  M00S01840.1mv     +++|          SPACE  4,10
02312  M00S01841.1mv     +++|          ERRNG  BFMS-DBUF-MXSC*BUFL  OVERFLOW INTO WRITE BUFFER
02313  M00S01842.1mv     +++|          ERRNG  MXSC-DVSC   NOT ENOUGH SECTORS FOR DEVICE VERIFY
02314  M00S01843.1mv     +++|          ERRNG  EPFW-OVLA-ZSCL  *0SC* OVERLAYED BY ERROR PROCESSOR
Line S00005 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02315  M01S00005.ns2750  +++|          TITLE  PRESET TABLES.
02316  M00S01844.1mv     +++| TDVC     SPACE  4,10
02317  M00S01845.1mv     +++|**        TDVC - TABLE OF DEVICE CONSTANTS.
02318  M00S01846.1mv     +++|
02319  M00S01847.1mv     +++|
02320  M00S01848.1mv     +++| TDVC     BSS    0
Line S01849 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02321  M01S01849.271l716 ---| TDVCL    EQU    6           TABLE ENTRY LENGTH
Line S00064 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02322  M02S00064.284l847 ---| TDVCL    EQU    11          TABLE ENTRY LENGTH
Line S00047 Modification History
M01 (Added by) 284l847
M02 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
02323  M02S00047.1mv14   ---| TDVCL    EQU    12          TABLE ENTRY LENGTH
Line S00022 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
02324  M01S00022.1mv14   +++| TDVCL    EQU    13          TABLE ENTRY LENGTH
Line S00065 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02325  M01S00065.271l716 +++| .A       SET    TDVCL+4
02326  M01S00066.271l716 +++| TDVCS    EQU    .A/5        TABLE ENTRY SIZE (CM WORD COUNT)
02327  M00S01850.1mv     +++|          LIST   G
02328  M00S01851.1mv     +++|          ECHO   ,DT="MSEQ"
02329  M00S01852.1mv     +++| .1       IF     DEF,PRC._DT
02330  M00S01853.1mv     +++|          CON    2R_DT        DT
Line S01854 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02331  M01S01854.271l716 ---|          CON    MCLT_DT     LOGICAL TRACK OF MAINTENANCE CYLINDER
Line S00067 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02332  M01S00067.271l716 +++|          CON    MCLT_DT      LOGICAL TRACK OF MAINTENANCE CYLINDER
02333  M00S01855.1mv     +++| .2       IFEQ   PRC.DT,HVL
02334  M00S01856.1mv     +++|          CON    PTCY_DT      PHYSICAL TRACKS PER CYLINDER
02335  M00S01857.1mv     +++| .A       SET    TT_DT+1
Line S01858 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02336  M01S01858.272l774 ---|          CON    PSPT_DT/.A   SECTOR OFFSET TO NEXT HEAD POSITION
Line S01859 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02337  M02S01859.272l774 ---|          CON    SL_DT+GS_DT/.A  SECTORS BETWEEN LOGICAL TRACKS
02338  M02S01860.272l774 ---| .2       ELSE
02339  M02S01861.272l774 ---|          BSSZ   3
Line S00068 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02340  M02S00068.272l774 ---|          CON    CF_DT        CONVERSION FACTOR
Line S00007 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02341  M01S00007.272l774 +++|          CON    LSPS_DT*PSPT_DT/.A SECTOR OFFSET TO NEXT HEAD POSITION
02342  M01S00008.272l774 +++|          CON    CFS_DT       CONVERSION FACTOR SHIFT COUNT
Line S00069 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02343  M01S00069.271l716 +++|          CON    SL_DT+GS_DT   LOGICAL SECTORS/LOGICAL TRACK
Line S00070 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02344  M02S00070.272l774 ---|          CON    PSPT_DT*PTCY_DT*LSPS_DT  LOGICAL SECTORS/CYLINDER
Line S00009 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02345  M02S00009.284l847 ---| .A       SET    PSPT_DT*PTCY_DT-SPSC_DT
02346  M02S00010.284l847 ---|          CON    .A*LSPS_DT   LOGICAL SECTORS/CYLINDER
Line S00048 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02347  M01S00048.284l847 +++| .A       SET    PSPT_DT*PTCY_DT-SPSC_DT  PHYSICAL SECTORS/CYLINDER
02348  M01S00049.284l847 +++| .B       SET    .A*LSPS_DT   LOGICAL SECTORS/CYLINDER
02349  M01S00050.284l847 +++| .C       SET    .B/10000
02350  M01S00051.284l847 +++| .D       SET    .C*10000
02351  M01S00052.284l847 +++|          CON    .C           UPPER LOGICAL SECTORS/CYLINDER
02352  M01S00053.284l847 +++|          CON    .B-.D        LOWER LOGICAL SECTORS/CYLINDER
Line S00071 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02353  M01S00071.271l716 +++|          CON    LSPT_DT      LOGICAL SECTORS/PHYSICAL TRACK
Line S00023 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
02354  M01S00023.1mv14   +++| .3       IF     DEF,PSBF_DT
02355  M01S00024.1mv14   +++|          CON    37           LOGICAL SECTOR BUFFER ROUNDING FACTOR
02356  M01S00025.1mv14   +++| .3       ELSE
02357  M01S00026.1mv14   +++|          CON    0
02358  M01S00027.1mv14   +++| .3       ENDIF
Line S00072 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02359  M01S00072.271l716 +++| .2       ELSE
02360  M01S00073.271l716 +++|          BSSZ   TDVCL-3
02361  M00S01862.1mv     +++| .2       ENDIF
02362  M00S01863.1mv     +++|          CON    PRC._DT      DEVICE TYPE PROCESSOR
02363  M00S01864.1mv     +++| .1       ENDIF
02364  M00S01865.1mv     +++|          ENDD
02365  M00S01866.1mv     +++|          LIST   *
02366  M00S01867.1mv     +++|          BSSZ   TDVCL       END OF TABLE - NULL PARAMETERS
02367  M00S01868.1mv     +++| TFCN     SPACE  4,10
02368  M00S01869.1mv     +++|**        TFCN - TABLE OF FUNCTION PROCESSORS.
02369  M00S01870.1mv     +++|*
02370  M00S01871.1mv     +++|*         ENTRY - 3 BYTES.
02371  M00S01872.1mv     +++|*         BYTE 0 = FUNCTION PROCESSOR.
02372  M00S01873.1mv     +++|*         BYTE 1 = REPAIR PROCESSOR.
02373  M00S01874.1mv     +++|*         BYTE 2 = REPAIRABLE ERRORS.
02374  M00S01875.1mv     +++|
02375  M00S01876.1mv     +++|
02376  M00S01877.1mv     +++| TFCN     BSS    0
02377  M00S01878.1mv     +++|
02378  M00S01879.1mv     +++| DVFC     FCN    DVF,RLT,REFG+CKFG+CMFG
02379  M00S01880.1mv     +++| ONFC     FCN    ONF,RLT,REFG+CKFG+CMFG
02380  M00S01881.1mv     +++| IDFC     FCN    IDF,RLT,REFG+CKFG+CMFG
02381  M00S01882.1mv     +++| OFFC     FCN    LVA,RLT,REFG+CKFG+CMFG
Line S01883 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02382  M01S01883.ns2632b ---| MVFC     FCN    MVA,CFE8.2,0
02383  M01S01884.ns2632b ---| UCFC     FCN    UCF,CFE8.2,0
Line S00175 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
02384  M01S00175.ns2632b +++| MVFC     FCN    MVA,CFE9,0
02385  M01S00176.ns2632b +++| UCFC     FCN    UCF,CFE9,0
02386  M00S01885.1mv     +++| SCFC     FCN    SCF,DVF2,0
02387  M00S01886.1mv     +++| MXFN     FCN
Line S00006 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02388  M01S00006.ns2750  +++|          TITLE  PRESET.
02389  M00S01887.1mv     +++| PRS      SPACE  4,30
02390  M00S01888.1mv     +++|**        PRS - PRESET.
02391  M00S01889.1mv     +++|*
02392  M00S01890.1mv     +++|*         ENTRY  (IR - IR+4) = *1MV* CALL.
02393  M00S01891.1mv     +++|*
02394  M00S01892.1mv     +++|*         EXIT   (CC) = (DA) = CHANNEL COUNT.
02395  M00S01893.1mv     +++|*                (FC) = FUNCTION CODE.
02396  M00S01894.1mv     +++|*                (SU) = SINGLE UNIT SECTOR COUNT FROM MST.
Line S01895 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02397  M01S01895.ns2776  ---|*                (SP) = POINTER TO BEGINING OF STATISTICS BUFFER.
Line S00003 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02398  M01S00003.ns2776  +++|*                (SP) = POINTER TO STATISTICS BUFFER.
02399  M00S01896.1mv     +++|*                (T4) = FIRST CHANNEL.
02400  M00S01897.1mv     +++|*                (T5) = EST ORDINAL.
02401  M00S01898.1mv     +++|*                (T7) = 0.
02402  M00S01899.1mv     +++|*                (DP - DP+4) = 0 ((DP) = 1 IF EXTENDED MEMORY).
02403  M00S01900.1mv     +++|*                (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
02404  M00S01901.1mv     +++|*                (DVSA) = SINGLE UNIT SECTOR + GAP COUNT.
02405  M00S01902.1mv     +++|*                (DVHL) = HEAD COUNT LIMIT FOR DEVICE.
02406  M00S01903.1mv     +++|*                (DVMT) = MAINTENANCE CYLINDER LOGICAL TRACK.
02407  M00S01904.1mv     +++|*                (DVSI) = SECTOR INCREMENT FOR FUNCTION.
02408  M00S01905.1mv     +++|*
02409  M00S01906.1mv     +++|*         ERROR  TO *DPP* IF BAD CALL.
02410  M00S01907.1mv     +++|*
02411  M00S01908.1mv     +++|*         USES   T1, T8, CM - CM+4, CN - CN+4, ES - ES+4.
02412  M00S01909.1mv     +++|
02413  M00S01910.1mv     +++|
02414  M00S01911.1mv     +++| PRS      BSS                ENTRY
02415  M00S01912.1mv     +++|          LDD    IR+3
02416  M00S01913.1mv     +++|          SHN    -6
02417  M00S01914.1mv     +++|          STD    FC          EXTRACT FUNCTION CODE
02418  M00S01915.1mv     +++|          SHN    1
02419  M00S01916.1mv     +++|          ADD    FC
02420  M00S01917.1mv     +++|          STD    T1
02421  M00S01918.1mv     +++|          SBN    MXFN*3
02422  M00S01919.1mv     +++|          PJN    PRS1        IF INCORRECT FUNCTION CODE
02423  M00S01920.1mv     +++|          LDM    TFCN,T1     SET PROCESSOR ADDRESS
02424  M00S01921.1mv     +++|          STM    PRSB
02425  M00S01922.1mv     +++|          LDM    TFCN+1,T1   SET REPAIR PROCESSOR ADDRESS
02426  M00S01923.1mv     +++|          STM    CFEB
02427  M00S01924.1mv     +++|          LDM    TFCN+2,T1   SET REPAIRABLE ERRORS
02428  M00S01925.1mv     +++|          STM    CFEA
02429  M00S01926.1mv     +++|          LDK    ESTP
02430  M00S01927.1mv     +++|          CRD    CM
02431  M00S01928.1mv     +++|          LDD    EQ          SET EST ORDINAL
02432  M00S01929.1mv     +++|          STD    T5
02433  M00S01930.1mv     +++|          SBD    CM+3
02434  M00S01931.1mv     +++|          PJN    PRS1        IF OUT OF EST
02435  M00S01932.1mv     +++|          SFA    EST,T5      READ EST ENTRY
02436  M00S01933.1mv     +++|          ADK    EQDE
02437  M00S01934.1mv     +++|          CRD    ES
02438  M00S01935.1mv     +++|          ADK    EQAE-EQDE
02439  M00S01936.1mv     +++|          CRD    CN
02440  M00S01937.1mv     +++|          LDD    ES
02441  M00S01938.1mv     +++|          SHN    21-13
02442  M00S01939.1mv     +++|          MJN    PRS2        IF DEVICE IS MASS STORAGE
02443  M00S01940.1mv     +++| PRS1     LJM    DPP         DROP PP
02444  M00S01941.1mv     +++|
Line S01942 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02445  M01S01942.284l847 ---| PRS2     LDD    ES+4        READ MST DATA
Line S00054 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02446  M01S00054.284l847 +++| PRS2     LDD    ES+3
02447  M01S00055.284l847 +++|          LMC    2RDC
02448  M01S00056.284l847 +++|          ZJN    PRS2.1      IF 895 TYPE DEVICE
02449  M01S00057.284l847 +++|          ISTORE HVLF,(UJN HVL3.1)  DISABLE 895 FORMATTING
02450  M01S00058.284l847 +++|          LDD    ES+3
02451  M01S00059.284l847 +++|          LMC    2RDF
02452  M01S00060.284l847 +++|          ZJN    PRS2.2      IF 887 TYPE (HYDRA) DEVICE
02453  M01S00061.284l847 +++|          LMN    2RDH&2RDF
02454  M01S00062.284l847 +++|          ZJN    PRS2.2      IF 887 TYPE (HYDRA) DEVICE
02455  M01S00063.284l847 +++| PRS2.1   ISTORE HVLE,(UJN HVL3)  DISABLE HYDRA DIAGNOSTICS
02456  M01S00064.284l847 +++| PRS2.2   LDD    ES+4        READ MST DATA
02457  M00S01943.1mv     +++|          SHN    3
02458  M00S01944.1mv     +++|          ADN    MDGL
02459  M00S01945.1mv     +++|          CRD    CM
Line S00074 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02460  M01S00074.271l716 +++|          ADN    DILL-MDGL   GET DRIVER WORD
02461  M01S00075.271l716 +++|          CRD    DP
02462  M00S01946.1mv     +++|          LDD    CM+1        SAVE SINGLE UNIT SECTOR LIMIT
02463  M00S01947.1mv     +++|          LPC    3777
02464  M00S01948.1mv     +++|          STD    SU
Line S01949 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02465  M01S01949.271l716 ---|          LDN    ZERL        CLEAR DEVICE SEEK PARAMETERS
02466  M01S01950.271l716 ---|          CRD    DP
02467  M00S01951.1mv     +++|
02468  M00S01952.1mv     +++|*         SEARCH FOR DEVICE IN TABLE.
02469  M00S01953.1mv     +++|
02470  M00S01954.1mv     +++|          LDC    TDVC-TDVCL   INITIALIZE POINTER INTO DEVICE CONSTANTS
02471  M00S01955.1mv     +++|          STD    T1
Line S00076 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02472  M01S00076.271l716 +++|          LDD    DP+3
02473  M01S00077.271l716 +++|          NJN    PRS3        IF BUFFERED DEVICE
02474  M01S00078.271l716 +++|          LDC    *
02475  M01S00079.271l716 +++|          ORG    *-1         TRANSFER FOR NON-BUFFERED DEVICE
02476  M01S00080.271l716 +++|          LOC    CDAA
02477  M01S00081.271l716 +++|          UJN    CDA9        PROCESS *LDAM* DEVICE
02478  M01S00082.271l716 +++|          LOC    *O
02479  M01S00083.271l716 +++|          STM    CDAA
02480  M00S01956.1mv     +++| PRS3     LDN    TDVCL       INCREMENT POINTER
02481  M00S01957.1mv     +++|          RAD    T1
02482  M00S01958.1mv     +++|          LDI    T1          CHECK DEVICE MNEMONIC
02483  M00S01959.1mv     +++|          ZJN    PRS4        IF DEVICE NOT FOUND
02484  M00S01960.1mv     +++|          LMD    ES+3
02485  M00S01961.1mv     +++|          NJN    PRS3        IF NO MATCH
02486  M00S01962.1mv     +++| PRS4     STD    CC
02487  M00S01963.1mv     +++|          STD    T7
02488  M00S01964.1mv     +++|          STD    DA
02489  M00S01965.1mv     +++|          LDD    T1          TRANSFER DEVICE PARAMETERS
02490  M00S01966.1mv     +++|          STM    PRSA
Line S01967 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02491  M01S01967.271l716 ---|          LDD    MA
02492  M01S01968.271l716 ---|          CWM    **,ON
02493  M01S01969.271l716 ---| PRSA     EQU    *-1         TDC ADDRESS
02494  M01S01970.271l716 ---|          SBN    1
02495  M01S01971.271l716 ---|          CRM    DVDT,ON
02496  M01S01972.271l716 ---|          LDM    5,T1        SET PROCESSOR ADDRESS
02497  M01S01973.271l716 ---|          STM    DVPC
Line S00084 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02498  M01S00084.271l716 +++|          LDN    TDVCS       SET WORD COUNT
02499  M01S00085.271l716 +++|          STD    T1
02500  M01S00086.271l716 +++|          ERRNG  6-TDVCS     TRANSFER OVERFLOWS MESSAGE BUFFER
02501  M01S00087.271l716 +++|          LDD    MA
02502  M01S00088.271l716 +++|          CWM    0,T1        MOVE TABLE ENTRY INTO MESSAGE BUFFER
02503  M01S00089.271l716 +++| PRSA     EQU    *-1
02504  M01S00090.271l716 +++|          SBN    TDVCS       COPY ENTRY TO DEVICE PARAMETER BLOCK
02505  M01S00091.271l716 +++|          CRM    DVDT,T1
02506  M01S00092.271l716 +++|          LDN    ZERL        CLEAR DEVICE SEEK PARAMETERS
02507  M01S00093.271l716 +++|          CRD    DP
02508  M01S00094.271l716 +++|          LDN    77          SET LOGICAL TO PHYSICAL SECTOR CONVERSION
02509  M01S00095.271l716 +++|          SBM    CVNF
02510  M01S00096.271l716 +++|          RAM    CDAB
02511  M00S01974.1mv     +++|          LDD    ES+3
02512  M00S01975.1mv     +++|          STM    DVDT
02513  M00S01976.1mv     +++|          LMC    2RDP
02514  M00S01977.1mv     +++|          ZJN    PRS5        IF ESM
02515  M00S01978.1mv     +++|          LMN    2RDE&2RDP
02516  M00S01979.1mv     +++|          NJN    PRS6        IF NOT UEM
02517  M00S01980.1mv     +++| PRS5     ISTORE VLSA,(ZJN VLS6)
02518  M00S01981.1mv     +++|          AOD    DP          AVOID ADDRESS CONVERSION
02519  M00S01982.1mv     +++|          LDD    CN+2
02520  M00S01983.1mv     +++|          SHN    -6
02521  M00S01984.1mv     +++|          LPN    3
02522  M00S01985.1mv     +++|          ZJN    PRS6        IF XM TRACK SIZE IS 2020 WORDS
02523  M00S01986.1mv     +++|          LDD    ES+4
02524  M00S01987.1mv     +++|          SHN    3           FORM MST ADDRESS
02525  M00S01988.1mv     +++|          ADK    ALGL
02526  M00S01989.1mv     +++|          CRD    CM
02527  M00S01990.1mv     +++|          LDD    CM+1
02528  M00S01991.1mv     +++|          STM    DVMT        USE LABEL TRACK FOR VERIFICATION
02529  M00S01992.1mv     +++|          LDN    20
02530  M00S01993.1mv     +++|          RAM    HVEA        BEGIN VERIFICATION AT SECTOR 20
02531  M00S01994.1mv     +++| PRS6     LDD    ES+3
02532  M00S01995.1mv     +++|          LMC    2RDE
02533  M00S01996.1mv     +++|          ZJN    PRS9        IF EXTENDED MEMORY
02534  M00S01997.1mv     +++|          LDN    ES+1
02535  M00S01998.1mv     +++|          STD    T1
02536  M00S01999.1mv     +++| PRS7     LDI    T1          SET CHANNEL IN TABLE
02537  M00S02000.1mv     +++|          LPN    77
02538  M00S02001.1mv     +++|          STM    TSCH,DA
02539  M00S02002.1mv     +++|          LMI    T1
02540  M00S02003.1mv     +++|          SHN    0-12
02541  M00S02004.1mv     +++|          LMN    2
02542  M00S02005.1mv     +++|          NJN    PRS8        IF ACCESS NOT PRESENT OR DISABLED
02543  M00S02006.1mv     +++|          AOD    DA
02544  M00S02007.1mv     +++| PRS8     AOD    T1          ADVANCE CHANNEL BYTE ADDRESS
02545  M00S02008.1mv     +++|          LMN    ES+3
02546  M00S02009.1mv     +++|          NJN    PRS7        IF ANOTHER CHANNEL BYTE
02547  M00S02010.1mv     +++|          SOD    DA
02548  M00S02011.1mv     +++|          MJP    DPP         IF NO CHANNELS
02549  M00S02012.1mv     +++|          ZJN    PRS10       IF SINGLE ACCESS DEVICE
02550  M00S02013.1mv     +++|          LDD    ES
02551  M00S02014.1mv     +++|          SHN    21-6
02552  M00S02015.1mv     +++|          PJN    PRS10       IF DEVICE IS AVAILABLE
02553  M00S02016.1mv     +++|          LDD    ES+1
02554  M00S02017.1mv     +++|          LMD    ES+2
02555  M00S02018.1mv     +++|          LPC    400
02556  M00S02019.1mv     +++| PRS9     ZJN    PRS10       IF SAME CONTROLLER TYPES
02557  M00S02020.1mv     +++|          LDD    ES+2
02558  M00S02021.1mv     +++|          SHN    0-10
02559  M00S02022.1mv     +++|          LPN    1
02560  M00S02023.1mv     +++|          STD    T1
02561  M00S02024.1mv     +++|          LDM    ES+1,T1     SET HALF TRACK CHANNEL FOR VERIFICATION
02562  M00S02025.1mv     +++|          LPN    77
02563  M00S02026.1mv     +++|          STM    TSCH
02564  M00S02027.1mv     +++|          UJN    PRS11       CONTINUE
02565  M00S02028.1mv     +++|
02566  M00S02029.1mv     +++| PRS10    AOD    DA          SET CHANNEL COUNT
02567  M00S02030.1mv     +++|          LDM    TSCH
02568  M00S02031.1mv     +++| PRS11    STD    T4          SET FIRST CHANNEL
02569  M00S02032.1mv     +++|          LDD    IR+3        GET REPAIR STATUS
02570  M00S02033.1mv     +++|          LPN    40
02571  M00S02034.1mv     +++|          NJN    PRS12       IF REPAIR HAS BEEN ATTEMPTED
02572  M00S02035.1mv     +++|          LDD    T5
02573  M00S02036.1mv     +++|          STD    CM+1
02574  M00S02037.1mv     +++|          LDN    RVES        RESERVE EQUIPMENT
02575  M00S02038.1mv     +++|          STD    CM+2
02576  M00S02039.1mv     +++|          MONITOR  REQM
02577  M00S02040.1mv     +++|          LDD    CM+1
02578  M00S02041.1mv     +++|          NJN    PRS13       IF DEVICE RESERVED
02579  M00S02042.1mv     +++|          LJM    IBM+1       ISSUE BML MESSAGE
02580  M00S02043.1mv     +++|
02581  M00S02044.1mv     +++| PRS12    LDN    0           COUNT ALL LABEL ERRORS AS UNREPAIRABLE
02582  M00S02045.1mv     +++|          STM    CFEA
02583  M00S02046.1mv     +++| PRS13    LDD    T5
02584  M00S02047.1mv     +++|          STM    RAEA        SET EQUIPMENT RESERVED
02585  M00S02048.1mv     +++|
02586  M00S02049.1mv     +++|*         CLEAR STATISTICS BUFFER.
02587  M00S02050.1mv     +++|
02588  M00S02051.1mv     +++|          LDC    EZOT-1      SET BUFFER LWA+1
02589  M00S02052.1mv     +++|          STD    SP          SAVE STARTING ADDRESS
02590  M00S02053.1mv     +++|          ERRNG  *-EZOT-1    TABLES OVERLAP CODE
02591  M00S02054.1mv     +++| PRS14    LDN    0
02592  M00S02055.1mv     +++|          STI    SP
02593  M00S02056.1mv     +++|          SOD    SP          DECREMENT POINTER
02594  M00S02057.1mv     +++|          LMC    DVC1
02595  M00S02058.1mv     +++|          NJN    PRS14       IF NOT DONE CLEARING
02596  M00S02059.1mv     +++|          STI    SP
Line S00007 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02597  M01S00007.ns2750  +++|          RJM    ECA         ENABLE CONTROLLER ACTIVITY
02598  M00S02060.1mv     +++|          LJM    *           EXIT TO PROCESSOR
02599  M00S02061.1mv     +++| PRSB     EQU    *-1
Line S00008 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02600  M01S00008.ns2750  +++|          TITLE  PRESET SUBROUTINES.
02601  M01S00009.ns2750  +++| ECA      SPACE  4,15
02602  M01S00010.ns2750  +++|**        ECA - ENABLE CONTROLLER ACTIVITY.
02603  M01S00011.ns2750  +++|*
Line S00012 Modification History
M01 (Added by) ns2750
M02 (Removed by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02604  M02S00012.1mv15   ---|*         FOR *ONFC* (*ON*) AND *IDFC* (*IDLE*) FUNCTIONS, THIS
Line S00013 Modification History
M01 (Added by) ns2750
M02 (Removed by) 284l847
M03 (Removed by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02605  M03S00013.1mv15   ---|*         ROUTINE FORCES THE 583X (*DAS*) OR 9853 (*XMD*) DRIVER
02606  M03S00014.1mv15   ---|*         TO REENABLE ACTIVITY TO A CONTROLLER AND A DRIVE.
Line S00065 Modification History
M01 (Added by) 284l847
M02 (Removed by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02607  M02S00065.1mv15   ---|*         ROUTINE FORCES THE 583X/47444 (*DAS*) OR 9853 (*XMD*)
02608  M02S00066.1mv15   ---|*         DRIVER TO REENABLE ACTIVITY TO A CONTROLLER AND A DRIVE.
Line S00001 Modification History
M01 (Added by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02609  M01S00001.1mv15   +++|*         THIS ROUTINE FORCES THE 583X/47444 (*DAS*) OR 9853 (*XMD*)
02610  M01S00002.1mv15   +++|*         DRIVER TO REENABLE ACTIVITY TO A CONTROLLER IN ORDER TO
02611  M01S00003.1mv15   +++|*         ALLOW A *UCFC* (*UP,CCH*) FUNCTION TO BE PROCESSED.
Line S00015 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02612  M01S00015.ns2750  +++|*         THIS IS ACCOMPLISHED BY SETTING A SPECIAL REQUEST BIT IN
Line S00016 Modification History
M01 (Added by) ns2750
M02 (Removed by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02613  M02S00016.1mv15   ---|*         WORD *PILL* OF THE *PUT*, AND BITS FOR EACH ACTIVE CHANNEL
02614  M02S00017.1mv15   ---|*         IN WORD *BDLL* OF THE *MST*.
Line S00004 Modification History
M01 (Added by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02615  M01S00004.1mv15   +++|*         WORD *PILL* OF THE *PUT*, AND A BIT FOR THE SPECIFIED
02616  M01S00005.1mv15   +++|*         CHANNEL IN WORD *BDLL* OF THE *MST*.
Line S00018 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02617  M01S00018.ns2750  +++|*
02618  M01S00019.ns2750  +++|*         ENTRY  (FC) = FUNCTION CODE.
02619  M01S00020.ns2750  +++|*                (IR+2) = EST ORDINAL.
Line S00006 Modification History
M01 (Added by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02620  M01S00006.1mv15   +++|*                (IR+4) = CHANNEL.
Line S00021 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02621  M01S00021.ns2750  +++|*
02622  M01S00022.ns2750  +++|*         USES   CM - CM+4, CN - CN+4, T1.
02623  M01S00023.ns2750  +++|*
02624  M01S00024.ns2750  +++|*         MACROS MONITOR, SFA.
02625  M01S00025.ns2750  +++|
02626  M01S00026.ns2750  +++|
02627  M01S00027.ns2750  +++| ECA      SUBR               ENTRY/EXIT
02628  M01S00028.ns2750  +++|          LDD    FC          CHECK FUNCTION CODE
Line S00029 Modification History
M01 (Added by) ns2750
M02 (Removed by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02629  M02S00029.1mv15   ---|          LMN    ONFC
02630  M02S00030.1mv15   ---|          ZJN    ECA1        IF *ON* FUNCTION
02631  M02S00031.1mv15   ---|          LMN    IDFC&ONFC
02632  M02S00032.1mv15   ---|          NJN    ECAX        IF NOT *IDLE* FUNCTION
02633  M02S00033.1mv15   ---| ECA1     SFA    EST,IR+2    READ EST ENTRY
Line S00007 Modification History
M01 (Added by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02634  M01S00007.1mv15   +++|          LMN    UCFC
02635  M01S00008.1mv15   +++|          NJN    ECAX        IF NOT *UP,CCH* FUNCTION
02636  M01S00009.1mv15   +++|          SFA    EST,IR+2    READ EST ENTRY
Line S00034 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02637  M01S00034.ns2750  +++|          ADK    EQDE
02638  M01S00035.ns2750  +++|          CRD    CM
02639  M01S00036.ns2750  +++|          LDN    TECAL       CHECK DEVICE TYPE
02640  M01S00037.ns2750  +++|          STD    T1
02641  M01S00038.ns2750  +++| ECA2     SOD    T1          CHECK NEXT TABLE ENTRY
02642  M01S00039.ns2750  +++|          MJN    ECAX        IF THIS DEVICE TYPE NOT IN TABLE
02643  M01S00040.ns2750  +++|          LDD    CM+3
02644  M01S00041.ns2750  +++|          LMM    TECA,T1
02645  M01S00042.ns2750  +++|          NJN    ECA2        IF DEVICE TYPE DOES NOT MATCH
Line S00043 Modification History
M01 (Added by) ns2750
M02 (Removed by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02646  M02S00043.1mv15   ---|          LDD    CM+1        CHECK FIRST CHANNEL
02647  M02S00044.1mv15   ---|          SHN    -11
02648  M02S00045.1mv15   ---|          LMN    3
02649  M02S00046.1mv15   ---|          ZJN    ECA3        IF FIRST CHANNEL DOWN
Line S00010 Modification History
M01 (Added by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02650  M01S00010.1mv15   +++|
02651  M01S00011.1mv15   +++|*         SET CHANNEL SELECTION FLAGS.
02652  M01S00012.1mv15   +++|
02653  M01S00013.1mv15   +++|          LDD    CM+1        CHECK FOR FIRST CHANNEL SPECIFIED
02654  M01S00014.1mv15   +++|          LPN    77
02655  M01S00015.1mv15   +++|          LMD    IR+4
02656  M01S00016.1mv15   +++|          NJN    ECA3        IF FIRST CHANNEL NOT SPECIFIED
Line S00047 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02657  M01S00047.ns2750  +++|          LDN    1           SET FLAG FOR FIRST CHANNEL
Line S00048 Modification History
M01 (Added by) ns2750
M02 (Removed by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02658  M02S00048.1mv15   ---| ECA3     STD    CN+4
02659  M02S00049.1mv15   ---|          LDD    CM+2        CHECK SECOND CHANNEL
02660  M02S00050.1mv15   ---|          ZJN    ECA4        IF NO SECOND CHANNEL
02661  M02S00051.1mv15   ---|          SHN    -11
02662  M02S00052.1mv15   ---|          LMN    3
02663  M02S00053.1mv15   ---|          ZJN    ECA4        IF SECOND CHANNEL DOWN
02664  M02S00054.1mv15   ---|          LDN    2           SET FLAG FOR SECOND CHANNEL
02665  M02S00055.1mv15   ---| ECA4     RAD    CN+4        NEW VALUE
Line S00017 Modification History
M01 (Added by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02666  M01S00017.1mv15   +++|          UJN    ECA4        UPDATE *MST*
02667  M01S00018.1mv15   +++|
02668  M01S00019.1mv15   +++| ECA3     LDN    2           SET FLAG FOR SECOND CHANNEL
02669  M01S00020.1mv15   +++|
02670  M01S00021.1mv15   +++|*         SET CHANNEL SELECTION FLAGS INTO *MST*.
02671  M01S00022.1mv15   +++|
02672  M01S00023.1mv15   +++| ECA4     STD    CN+4
Line S00056 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02673  M01S00056.ns2750  +++|          LDC    BDLL*100+2  6/INDEX INTO *MST*, 6/BITS TO CHANGE
02674  M01S00057.ns2750  +++|          STD    CN
02675  M01S00058.ns2750  +++|          LDC    49D*100     6/LOW ORDER BIT, 6/0
02676  M01S00059.ns2750  +++|          STD    CN+1
02677  M01S00060.ns2750  +++|          LDD    MA
02678  M01S00061.ns2750  +++|          CWD    CN          STORE MESSAGE BUFFER PARAMETERS
02679  M01S00062.ns2750  +++|          LDD    CM+4        SAVE *MST* ADDRESS
02680  M01S00063.ns2750  +++|          STD    T1
02681  M01S00064.ns2750  +++|          SHN    3
02682  M01S00065.ns2750  +++|          STD    CM+4
02683  M01S00066.ns2750  +++|          SHN    -14
02684  M01S00067.ns2750  +++|          STD    CM+3
02685  M01S00068.ns2750  +++|          LDN    1
02686  M01S00069.ns2750  +++|          STD    CM+1        REQUESTS IN MESSAGE BUFFER
02687  M01S00070.ns2750  +++|          MONITOR UTEM       UPDATE TABLE ENTRY
Line S00024 Modification History
M01 (Added by) 1mv15
Seq #  *Modification Id* Act 
----------------------------+
02688  M01S00024.1mv15   +++|
02689  M01S00025.1mv15   +++|*         SET SPECIAL REQUEST INTO *PUT*.
02690  M01S00026.1mv15   +++|
Line S00071 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02691  M01S00071.ns2750  +++|          LDC    PILL*100+1  6/INDEX INTO *PUT*, 6/BITS TO CHANGE
02692  M01S00072.ns2750  +++|          STD    CN
02693  M01S00073.ns2750  +++|          LDC    ECAF*100    6/LOW ORDER BIT, 6/0
02694  M01S00074.ns2750  +++|          STD    CN+1
02695  M01S00075.ns2750  +++|          LDN    1
02696  M01S00076.ns2750  +++|          STD    CN+4        NEW VALUE
02697  M01S00077.ns2750  +++|          LDD    MA
02698  M01S00078.ns2750  +++|          CWD    CN          STORE MESSAGE BUFFER PARAMETERS
02699  M01S00079.ns2750  +++|          LDD    T1
02700  M01S00080.ns2750  +++|          SHN    3           *MST* ADDRESS
02701  M01S00081.ns2750  +++|          ADK    DILL
02702  M01S00082.ns2750  +++|          CRD    CM          (CM+2) = PUT ORDINAL
02703  M01S00083.ns2750  +++|          LDK    BIOL
02704  M01S00084.ns2750  +++|          CRD    CN          READ BUFFERED I/O POINTERS
02705  M01S00085.ns2750  +++|          LDD    CN+1
02706  M01S00086.ns2750  +++|          SHN    14
02707  M01S00087.ns2750  +++|          LMD    CN+2
02708  M01S00088.ns2750  +++|          ADK    PUTP
02709  M01S00089.ns2750  +++|          CRD    CN          READ *PUT* POINTER
02710  M01S00090.ns2750  +++|          LDD    CM+2
02711  M01S00091.ns2750  +++|          SHN    PUTLS
02712  M01S00092.ns2750  +++|          ADD    CN+4
02713  M01S00093.ns2750  +++|          STD    CM+4        SET START ADDRESS OF *PUT*
02714  M01S00094.ns2750  +++|          SHN    -14
02715  M01S00095.ns2750  +++|          ADD    CN+3
02716  M01S00096.ns2750  +++|          STD    CM+3
02717  M01S00097.ns2750  +++|          LDN    1
02718  M01S00098.ns2750  +++|          STD    CM+1        REQUESTS IN MESSAGE BUFFER
02719  M01S00099.ns2750  +++|          MONITOR UTEM       UPDATE TABLE ENTRY
02720  M01S00100.ns2750  +++|          UJP    ECAX        RETURN
02721  M01S00101.ns2750  +++|
02722  M01S00102.ns2750  +++|
Line S00103 Modification History
M01 (Added by) ns2750
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02723  M02S00103.284l847 ---| TECA     BSS    0           TABLE OF 583X/9853 DEVICES
Line S00067 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02724  M01S00067.284l847 +++| TECA     BSS    0           TABLE OF 583X/9853/47444 DEVICES
Line S00104 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02725  M01S00104.ns2750  +++|          CON    2RDN        9853
02726  M01S00105.ns2750  +++|          CON    2REA        5832 (1X SSD)
02727  M01S00106.ns2750  +++|          CON    2REB        5832 (2X SSD)
02728  M01S00107.ns2750  +++|          CON    2REC        5833 (1X SABRE)
02729  M01S00108.ns2750  +++|          CON    2RED        5833 (1XP SABRE)
02730  M01S00109.ns2750  +++|          CON    2REE        5833 (2X SABRE)
02731  M01S00110.ns2750  +++|          CON    2REF        5833 (2XP SABRE)
Line S00002 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
02732  M01S00002.ns2768  +++|          CON    2REG        5838 (1X ELITE)
02733  M01S00003.ns2768  +++|          CON    2REH        5838 (1XP ELITE)
Line S00068 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02734  M01S00068.284l847 +++|          CON    2REI        5838 (2X ELITE)   (MP)
02735  M01S00069.284l847 +++|          CON    2REJ        5838 (2XP ELITE)  (MP)
02736  M01S00070.284l847 +++|          CON    2REK        5838 (3XP ELITE)  (MP)
02737  M01S00071.284l847 +++|          CON    2REL        5838 (4X ELITE)   (MP)
02738  M01S00072.284l847 +++|          CON    2REM        5833 (3XP SABRE)  (MP)
02739  M01S00073.284l847 +++|          CON    2REN        5833 (4X SABRE)   (MP)
02740  M01S00074.284l847 +++|          CON    2REO        47444 (1X 3.5IN)
02741  M01S00075.284l847 +++|          CON    2REP        47444 (1XP 3.5IN)
02742  M01S00076.284l847 +++|          CON    2RES        47444 (2X 3.5IN)  (MP)
02743  M01S00077.284l847 +++|          CON    2REU        47444 (2XP 3.5IN) (MP)
02744  M01S00078.284l847 +++|          CON    2REV        47444 (3XP 3.5IN) (MP)
02745  M01S00079.284l847 +++|          CON    2REW        47444 (4X 3.5IN)  (MP)
Line S00111 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02746  M01S00111.ns2750  +++| TECAL    EQU    *-TECA      LENGTH OF TABLE
02747  M00S02062.1mv     +++|          SPACE  4,10
02748  M00S02063.1mv     +++|          OVERFLOW
02749  M00S02064.1mv     +++|          OVERLAY  (*1MV* FUNCTION COMPLETION OVERLAY.)
Line S02065 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02750  M01S02065.272l774 ---| ELM      SPACE  4,15
Line S00011 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02751  M01S00011.272l774 +++| ELM      SPACE  4,20
02752  M00S02066.1mv     +++|**        ELM - ERROR LOG MESSAGE PROCESSOR.
02753  M00S02067.1mv     +++|*
02754  M00S02068.1mv     +++|*         ENTRY  (CN) = SYMPTOM CODE.
02755  M00S02069.1mv     +++|*                (DCHA+3) = CHANNEL NUMBER, INCLUDING CONCURRENCY FLAG.
02756  M00S02070.1mv     +++|*                (CN) = SYMPTOM CODE FOR BML MESSAGE.
02757  M00S02071.1mv     +++|*                (EQ) = EST ORDINAL.
02758  M00S02072.1mv     +++|*                (FC) = *1MV* FUNCTION CODE.
02759  M00S02073.1mv     +++|*                (DP - DP+4) = DEVICE SEEK PARAMETERS.
02760  M00S02074.1mv     +++|*
Line S00037 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
02761  M01S00037.ns2632  +++|*         EXIT   (A) = 0.
02762  M01S00038.ns2632  +++|*
Line S02075 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02763  M01S02075.272l774 ---|*         USES   MT, T1, T2, T3, T5, T8, CM - CM+4, CN - CN+4.
Line S00012 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02764  M01S00012.272l774 +++|*         USES   MT, T1, T2, T3, T8, CM - CM+4, CN - CN+4.
02765  M00S02076.1mv     +++|*
02766  M00S02077.1mv     +++|*         CALLS  C2D, DFM.
02767  M00S02078.1mv     +++|*
02768  M00S02079.1mv     +++|*         MACROS MONITOR.
02769  M00S02080.1mv     +++|
02770  M00S02081.1mv     +++|
02771  M00S02082.1mv     +++| ELM      SUBR               ENTRY/EXIT
02772  M00S02083.1mv     +++|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
02773  M00S02084.1mv     +++|          SHN    -3
02774  M00S02085.1mv     +++|          RJM    C2D
02775  M00S02086.1mv     +++|          STM    ELMB+1
02776  M00S02087.1mv     +++|          STM    ELMC+1
02777  M00S02088.1mv     +++|          STM    ELMD+1
02778  M00S02089.1mv     +++|          STM    ELME+1
02779  M00S02090.1mv     +++|          STM    ELMF+1
02780  M00S02091.1mv     +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
02781  M00S02092.1mv     +++|          STM    BMLEO       STORE EST ORDINAL IN BML MESSAGE
02782  M00S02093.1mv     +++|          LPN    7
02783  M00S02094.1mv     +++|          SHN    6
02784  M00S02095.1mv     +++|          ADC    2R0
02785  M00S02096.1mv     +++|          STM    ELMB+2
02786  M00S02097.1mv     +++|          STM    ELMC+2
02787  M00S02098.1mv     +++|          STM    ELMD+2
02788  M00S02099.1mv     +++|          STM    ELME+2
02789  M00S02100.1mv     +++|          STM    ELMF+2
02790  M00S02101.1mv     +++|          LDD    CN          STORE SYMPTOM CODE IN MESSAGE
02791  M00S02102.1mv     +++|          STD    T2
02792  M00S02103.1mv     +++|          STM    BMLSC
02793  M00S02104.1mv     +++|          LDD    DP+1        ADD UNIT NUMBER TO MESSAGE
02794  M00S02105.1mv     +++|          STM    BMLUN
02795  M00S02106.1mv     +++| ELM1     LDK    PPCP        ADD PP NUMBER TO MESSAGE
02796  M00S02107.1mv     +++|          CRD    CM
02797  M00S02108.1mv     +++|          ADN    MMFL-PPCP
02798  M00S02109.1mv     +++|          CRD    CN
02799  M00S02110.1mv     +++|          LDD    CN          ADD MACHINE ID TO MESSAGE
02800  M00S02111.1mv     +++|          STM    BMLMF
02801  M00S02112.1mv     +++|          LDD    IA          STORE PP NUMBER IN BML MESSAGE
02802  M00S02113.1mv     +++|          SBD    CM+4
02803  M00S02114.1mv     +++|          SHN    3
02804  M00S02115.1mv     +++|          LMM    DCHA+3      APPEND CHANNEL NUMBER
02805  M00S02116.1mv     +++|          STM    BMLPP
02806  M00S02117.1mv     +++|
02807  M00S02118.1mv     +++|*         DETERMINE THE APPROPRIATE BML MESSAGE IDENTIFIER TO BE
02808  M00S02119.1mv     +++|*         ADDED TO THE MESSAGE.  FOR DISKS, THE MESSAGE ID CAN BE
02809  M00S02120.1mv     +++|*         DETERMINED FROM THE DEVICE CODE.  FOR EXTENDED MEMORY,
02810  M00S02121.1mv     +++|*         IT MUST BE DETERMINED FROM DATA IN WORD *DILL* OF THE MST.
02811  M00S02122.1mv     +++|
02812  M00S02123.1mv     +++|          LDN    0           INITIALIZE TABLE POINTERS
Line S00013 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02813  M01S00013.272l774 +++|          STD    T8
02814  M01S00014.272l774 +++|          LDC    MSGID-2     SET TABLE ADDRESS
02815  M00S02124.1mv     +++|          STD    T1
Line S02125 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02816  M01S02125.272l774 ---|          STD    T8
02817  M01S02126.272l774 ---|          LDD    ES+3        SAVE LAST CHARACTER OF THE DEVICE CODE
02818  M01S02127.272l774 ---|          LPN    77
Line S00015 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02819  M01S00015.272l774 +++|          LDD    ES+3        SAVE DEVICE CODE
02820  M00S02128.1mv     +++|          STD    T3
Line S02129 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02821  M01S02129.272l774 ---|          LMN    1RE
Line S00016 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02822  M01S00016.272l774 +++|          LMC    2RDE
02823  M00S02130.1mv     +++|          ZJN    ELM2        IF A *DE* TYPE DEVICE
Line S02131 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02824  M01S02131.272l774 ---|          LMN    1RP&1RE
Line S00017 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02825  M01S00017.272l774 +++|          LMN    2RDP&2RDE
02826  M00S02132.1mv     +++|          NJN    ELM3        IF NOT A *DP* TYPE DEVICE
02827  M00S02133.1mv     +++| ELM2     LDD    ES+4        GET MST WORD *DILL*
02828  M00S02134.1mv     +++|          SHN    3
02829  M00S02135.1mv     +++|          ADN    DILL
02830  M00S02136.1mv     +++|          CRD    CM
02831  M00S02137.1mv     +++|          LDD    CM+3        USE *DILL* DATA FIELDS
02832  M00S02138.1mv     +++|          LPC    707
02833  M00S02139.1mv     +++|          STD    T3
Line S00018 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02834  M01S00018.272l774 +++|          LDC    MSEID-2     SET TABLE ADDRESS
02835  M01S00019.272l774 +++|          STD    T1
02836  M00S02140.1mv     +++| ELM3     LDN    2
02837  M00S02141.1mv     +++|          RAD    T1
Line S02142 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02838  M01S02142.272l774 ---|          LDM    MSGID-2,T1  SCAN TABLE FOR A MATCH
Line S00020 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02839  M01S00020.272l774 +++|          LDI    T1          SCAN TABLE FOR A MATCH
02840  M00S02143.1mv     +++|          ZJN    ELM4        IF DEVICE IS NOT FOUND IN TABLE
02841  M00S02144.1mv     +++|          LMD    T3
02842  M00S02145.1mv     +++|          NJN    ELM3        IF A MATCH HAS NOT YET BEEN FOUND
Line S02146 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02843  M01S02146.272l774 ---|          LDM    MSGID-1,T1
Line S00021 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02844  M01S00021.272l774 +++|          LDM    1,T1
02845  M00S02147.1mv     +++| ELM4     STM    BMLID       STORE MESSAGE ID IN BML MESSAGE
02846  M00S02148.1mv     +++|          LDN    BMLL1
02847  M00S02149.1mv     +++|          STD    T3          SET BML MESSAGE LENGTH
02848  M00S02150.1mv     +++| ELM5     LDN    2
02849  M00S02151.1mv     +++|          RAD    T8
02850  M00S02152.1mv     +++|          LDM    TFCN-2,T8
02851  M00S02153.1mv     +++|          LMD    T2
02852  M00S02154.1mv     +++|          NJN    ELM5        IF NOT A SYMPTOM CODE MATCH
02853  M00S02155.1mv     +++|          LDM    TFCN-1,T8
02854  M00S02156.1mv     +++|          STD    T1
02855  M00S02157.1mv     +++|          LDC    ELMD        SET DEFAULT ERRORLOG MESSAGE
02856  M00S02158.1mv     +++|          LJM    0,T1        PROCESS SYMPTOM CODE DEPENDENT DATA
02857  M00S02159.1mv     +++|
02858  M00S02160.1mv     +++| ELM6     LDM    DCHA+3      CHANNEL NUMBER (AND CONCURRENCY FLAG)
02859  M00S02161.1mv     +++|          RJM    C2D         CONVERT CHANNEL NUMBER FOR MESSAGE
02860  M00S02162.1mv     +++|          STM    ELMA+1
02861  M00S02163.1mv     +++|          LDN    0           SET NO BML MESSAGE
02862  M00S02164.1mv     +++|          STD    T3
02863  M00S02165.1mv     +++|          LDC    ELMA        *CHXX, EQXXX VERIFICATION FAILURE.*
02864  M00S02166.1mv     +++|          LJM    ELM9.1      ISSUE ERRLOG MESSAGE
02865  M00S02167.1mv     +++|
02866  M00S02168.1mv     +++| ELM7     LDN    BMLL2       SET BML MESSAGE LENGTH
02867  M00S02169.1mv     +++|          STD    T3
02868  M00S02170.1mv     +++|          LDD    DP+2        SET CYLINDER IN MESSAGE
02869  M00S02171.1mv     +++|          STM    BMLCY
02870  M00S02172.1mv     +++|          LDD    DP+3        SET PHYSICAL TRACK IN MESSAGE
02871  M00S02173.1mv     +++|          STM    BMLTR
02872  M00S02174.1mv     +++|          LDD    DP+4        SET PHYSICAL SECTOR IN MESSAGE
02873  M00S02175.1mv     +++|          STM    BMLSN
02874  M00S02176.1mv     +++|          LDD    IR+4        STORE TRACK NUMBER IN ERRLOG MESSAGE
02875  M00S02177.1mv     +++|          RJM    C2D
02876  M00S02178.1mv     +++|          STM    ELMF+5
02877  M00S02179.1mv     +++|          LDD    IR+4
02878  M00S02180.1mv     +++|          SHN    -6
02879  M00S02181.1mv     +++|          RJM    C2D
02880  M00S02182.1mv     +++|          STM    ELMF+4
02881  M00S02183.1mv     +++|          LDC    ELMF+ERLN   ISSUE ERROR LOG MESSAGE
02882  M00S02184.1mv     +++|          RJM    DFM
02883  M00S02185.1mv     +++|          UJN    ELM11       ISSUE BML MESSAGE
02884  M00S02186.1mv     +++|
02885  M00S02187.1mv     +++| ELM8     LDC    ELMC        *EQXXX DOWNED BY SYSTEM.*
02886  M00S02188.1mv     +++| ELM9     STD    MT
02887  M00S02189.1mv     +++|          LDC    ELMB+ERLN   *EQXXX VERIFICATION FAILURE.*
02888  M00S02190.1mv     +++|          RJM    DFM
02889  M00S02191.1mv     +++|          LDD    MT
02890  M00S02192.1mv     +++| ELM9.1   LMC    ERLN        ISSUE ERROR LOG MESSAGE
02891  M00S02193.1mv     +++| ELM10    RJM    DFM
02892  M00S02194.1mv     +++|          LDN    ZERL        ISSUE *SEE, ERRORLOG* EVENT
02893  M00S02195.1mv     +++|          CRD    CM
02894  M00S02196.1mv     +++|          LDN    ELAE
02895  M00S02197.1mv     +++|          STD    CM+4
02896  M00S02198.1mv     +++|          MONITOR  EATM
02897  M00S02199.1mv     +++| ELM11    LDD    T3
02898  M00S02200.1mv     +++|          ZJN    ELM12       IF NULL MESSAGE
02899  M00S02201.1mv     +++|          STD    CM+1        SET BML MESSAGE LENGTH
02900  M00S02202.1mv     +++|          LDC    BML+BMLN    ISSUE BML MESSAGE
02901  M00S02203.1mv     +++|          RJM    DFM
02902  M00S02204.1mv     +++| ELM12    LJM    ELMX        RETURN
02903  M00S02205.1mv     +++|
02904  M00S02206.1mv     +++| ELM13    LDN    0           SET NO BML MESSAGE
02905  M00S02207.1mv     +++|          STD    T3
02906  M00S02208.1mv     +++|          LDC    ELME+ERLN
02907  M00S02209.1mv     +++|          UJP    ELM10       ISSUE ERRLOG MESSAGE
02908  M00S02210.1mv     +++| TFCN     SPACE  4
02909  M00S02211.1mv     +++|**        TFCN - TABLE OF SYMPTOM CODE DEPENDENT PROCESSORS.
02910  M00S02212.1mv     +++|
02911  M00S02213.1mv     +++|
02912  M00S02214.1mv     +++| TFCN     BSS    0
02913  M00S02215.1mv     +++|          CON    4000+UCFC,ELM6        CHANNEL VERIFICATION FAILURE
02914  M00S02216.1mv     +++|          CON    /COMSDFS/HS0030,ELM9  DEVICE SET *OFF* BY SYSTEM
02915  M00S02217.1mv     +++|          CON    /COMSDFS/HS0034,ELM8  DEVICE SET *DOWN* BY SYSTEM
02916  M00S02218.1mv     +++|          CON    /COMSDFS/HS0105,ELM7  TRACK FLAWED BY SYSTEM
02917  M00S02219.1mv     +++|          CON    0,ELM13               DEVICE UNAVAILABLE
Line S02220 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02918  M01S02220.272l774 ---|          SPACE  4
02919  M01S02221.272l774 ---|**        MSGID - TABLE OF MESSAGE IDENTIFIERS.
Line S00022 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02920  M01S00022.272l774 +++| MSGID    SPACE  4,10
02921  M01S00023.272l774 +++|*         MSGID - TABLE OF MESSAGE ID-S FOR NON-EXTENDED MEMORY DEVICES.
02922  M00S02222.1mv     +++|
02923  M00S02223.1mv     +++|
02924  M00S02224.1mv     +++| MSGID    BSS    0
Line S02225 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02925  M01S02225.272l774 ---|          CON    1RI,/COMSDFS/RM0002    (DI)  844-2X, HALF TRACK
02926  M01S02226.272l774 ---|          CON    1RJ,/COMSDFS/RM0003    (DJ)  844-4X, HALF TRACK
02927  M01S02227.272l774 ---|          CON    1RK,/COMSDFS/RM0004    (DK)  844-2X, FULL TRACK
02928  M01S02228.272l774 ---|          CON    1RL,/COMSDFS/RM0005    (DL)  844-4X, FULL TRACK
02929  M01S02229.272l774 ---|          CON    1RV,/COMSDFS/RM0006    (DV)  819, SINGLE DENSITY
02930  M01S02230.272l774 ---|          CON    1RW,/COMSDFS/RM0006    (DW)  819, DOUBLE DENSITY
02931  M01S02231.272l774 ---|          CON    1RM,/COMSDFS/RM0007    (DM)  885, HALF TRACK
02932  M01S02232.272l774 ---|          CON    1RQ,/COMSDFS/RM0017    (DQ)  885, FULL TRACK
02933  M01S02233.272l774 ---|          CON    1RX,/COMSDFS/RM0010    (DX)  3330-1
02934  M01S02234.272l774 ---|          CON    1RY,/COMSDFS/RM0011    (DY)  3330-11
02935  M01S02235.272l774 ---|          CON    1RZ,/COMSDFS/RM0012    (DZ)  3350
02936  M01S02236.272l774 ---|          CON    1RA,/COMSDFS/RM0013    (DA)  33502
02937  M01S02237.272l774 ---|          CON    1RB,/COMSDFS/RM0014    (DB)  PFMD
02938  M01S02238.272l774 ---|          CON    1RD,/COMSDFS/RM0110    (DD)  834
02939  M01S02239.272l774 ---|          CON    1RF,/COMSDFS/RM0120    (DF)  887 (SMALL SECTOR)
02940  M01S02240.272l774 ---|          CON    1RG,/COMSDFS/RM0111    (DG)  836
02941  M01S02241.272l774 ---|          CON    1RH,/COMSDFS/RM0121    (DH)  887 (LARGE SECTOR)
02942  M01S02242.272l774 ---|          CON    1RC,/COMSDFS/RM0115    (DC)  895
Line S00024 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02943  M01S00024.272l774 +++|          CON    2RDI,/COMSDFS/RM0002   (DI)  844-2X, HALF TRACK
02944  M01S00025.272l774 +++|          CON    2RDJ,/COMSDFS/RM0003   (DJ)  844-4X, HALF TRACK
02945  M01S00026.272l774 +++|          CON    2RDK,/COMSDFS/RM0004   (DK)  844-2X, FULL TRACK
02946  M01S00027.272l774 +++|          CON    2RDL,/COMSDFS/RM0005   (DL)  844-4X, FULL TRACK
02947  M01S00028.272l774 +++|          CON    2RDV,/COMSDFS/RM0006   (DV)  819, SINGLE DENSITY
02948  M01S00029.272l774 +++|          CON    2RDW,/COMSDFS/RM0006   (DW)  819, DOUBLE DENSITY
02949  M01S00030.272l774 +++|          CON    2RDM,/COMSDFS/RM0007   (DM)  885, HALF TRACK
02950  M01S00031.272l774 +++|          CON    2RDQ,/COMSDFS/RM0017   (DQ)  885, FULL TRACK
Line S00004 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02951  M01S00004.ns2776  +++|          CON    2RDR,/COMSDFS/RM0015   (DR)  CDSS II
Line S00032 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02952  M01S00032.272l774 +++|          CON    2RDX,/COMSDFS/RM0010   (DX)  3330-1
02953  M01S00033.272l774 +++|          CON    2RDY,/COMSDFS/RM0011   (DY)  3330-11
02954  M01S00034.272l774 +++|          CON    2RDZ,/COMSDFS/RM0012   (DZ)  3350
02955  M01S00035.272l774 +++|          CON    2RDA,/COMSDFS/RM0013   (DA)  33502
02956  M01S00036.272l774 +++|          CON    2RDB,/COMSDFS/RM0014   (DB)  885-42 (PFMD)
02957  M01S00037.272l774 +++|          CON    2RDC,/COMSDFS/RM0115   (DC)  895
02958  M01S00038.272l774 +++|          CON    2RDD,/COMSDFS/RM0110   (DD)  834
02959  M01S00039.272l774 +++|          CON    2RDF,/COMSDFS/RM0120   (DF)  887 (4KB SECTOR)
02960  M01S00040.272l774 +++|          CON    2RDG,/COMSDFS/RM0111   (DG)  836
02961  M01S00041.272l774 +++|          CON    2RDH,/COMSDFS/RM0121   (DH)  887 (16KB SECTOR)
02962  M01S00042.272l774 +++|          CON    2RDN,/COMSDFS/RM0124   (DN)  9853 (XMD/CM3)
02963  M01S00043.272l774 +++|          CON    2REA,/COMSDFS/RM0130   (EA)  5832 (1X SSD)
02964  M01S00044.272l774 +++|          CON    2REB,/COMSDFS/RM0131   (EB)  5832 (2X SSD)
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1mv.001.txt ยท Last modified: by 127.0.0.1