User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1mu.003

Deck 1MU Part 003

5 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
04493  M01S01358.1mu     +++|          ADN    DILL        FETCH DEVICE STATUS FROM MST
04494  M01S01359.1mu     +++|          CRD    CM
04495  M01S01360.1mu     +++|          LDD    CM+2
04496  M01S01361.1mu     +++|          ZJN    SUTX        IF NOT BUFFERED DEVICE
04497  M01S01362.1mu     +++|          LDC    BIOL
04498  M01S01363.1mu     +++|          CRD    CN
04499  M01S01364.1mu     +++|          LDD    CN+1        GET *PUT* DESCRIPTOR
04500  M01S01365.1mu     +++|          SHN    14
04501  M01S01366.1mu     +++|          LMD    CN+2
04502  M01S01367.1mu     +++|          ADN    PUTP
04503  M01S01368.1mu     +++|          CRD    CN
04504  M01S00001.@000010 +++|          LDD    CN+3
04505  M01S00002.@000010 +++|          LPN    77          CLEAR FLAGS
04506  M01S00003.@000010 +++|          STD    CN+3
04507  M01S01369.1mu     +++|          UJP    SUT2        BEGIN UNIT TABLE SCAN
04508  M01S01370.1mu     +++| SVF      SPACE  4,10
04509  M01S01371.1mu     +++|**        SVF - SET VERIFICATION FAILURE COUNT.
04510  M01S01372.1mu     +++|*
04511  M01S01373.1mu     +++|*         ENTRY  (A) = VERIFICATION FAILURE COUNT TO SET.
04512  M01S01374.1mu     +++|*
04513  M01S01375.1mu     +++|*         EXIT   FAILURE COUNT IN *CTLL* MST WORD UPDATED.
04514  M01S01376.1mu     +++|*
04515  M01S01377.1mu     +++|*         USES   CM - CM+4.
04516  M01S01378.1mu     +++|*
04517  M01S01379.1mu     +++|*         MACROS MONITOR.
04518  M01S01380.1mu     +++|
04519  M01S01381.1mu     +++|
04520  M01S01382.1mu     +++| SVF      SUBR               ENTRY/EXIT
04521  M01S01383.1mu     +++|          STM    SVFA+4
04522  M01S01384.1mu     +++|          LDN    0
04523  M01S01385.1mu     +++|          STD    CM+2
04524  M01S01386.1mu     +++|          LDD    ES+4        BASE TABLE ADDRESS
04525  M01S01387.1mu     +++|          SHN    3
04526  M01S01388.1mu     +++|          STD    CM+4
04527  M01S01389.1mu     +++|          SHN    -14
04528  M01S01390.1mu     +++|          STD    CM+3
04529  M01S01391.1mu     +++|          LDN    1
04530  M01S01392.1mu     +++|          STD    CM+1
04531  M01S01393.1mu     +++|          LDD    MA          UPDATE FAILURE COUNT
04532  M01S01394.1mu     +++|          CWM    SVFA,ON
04533  M01S01395.1mu     +++|          MONITOR  UTEM
04534  M01S01396.1mu     +++|          UJN    SVFX        RETURN
04535  M01S01397.1mu     +++|
04536  M01S01398.1mu     +++|
04537  M01S01399.1mu     +++| SVFA     VFD    1/0,5/CTLL,6/12D,6/48D,42/0
04538  M01S00027.@000016 +++| SVI      SPACE  4,10
04539  M01S00028.@000016 +++|**        SVI - SET VERIFICATION INTERLOCK.
04540  M01S00029.@000016 +++|*
04541  M01S00030.@000016 +++|*         ENTRY  (T5) = EST ORDINAL.
04542  M01S00031.@000016 +++|*                (ES - ES+4) = WORD *EQDE* OF EST ENTRY.
04543  M01S00032.@000016 +++|*
04544  M01S00033.@000016 +++|*         EXIT   (CVIA) = EST ORDINAL OF DEVICE WITH INTERLOCK SET.
04545  M01S00034.@000016 +++|*
04546  M01S00035.@000016 +++|*         USES   CM - CM+4.
04547  M01S00036.@000016 +++|*
04548  M01S00037.@000016 +++|*         MACROS DELAY, MONITOR.
04549  M01S00038.@000016 +++|
04550  M01S00039.@000016 +++|
04551  M01S00040.@000016 +++| SVI      SUBR               ENTRY/EXIT
04552  M01S00041.@000016 +++|          LDD    ES
04553  M01S00042.@000016 +++|          SHN    21-11
04554  M01S00043.@000016 +++|          PJN    SVIX        IF NOT SHARED DEVICE
04555  M01S00044.@000016 +++|          SHN    21-4-21+11
04556  M01S00045.@000016 +++|          MJN    SVIX        IF ISD DEVICE
04557  M01S00046.@000016 +++| SVI1     LDN    ZERL
04558  M01S00047.@000016 +++|          CRD    CM
04559  M01S00048.@000016 +++|          LDD    T5          SET EST ORDINAL
04560  M01S00049.@000016 +++|          STD    CM+1
04561  M01S00050.@000016 +++|          STM    CVIA
04562  M01S00051.@000016 +++|          LDN    SVIS        SET DEVICE VERIFICATION INTERLOCK
04563  M01S00052.@000016 +++|          STD    CM+3
04564  M01S00053.@000016 +++|          MONITOR  STBM
04565  M01S00054.@000016 +++|          LDD    CM+1
04566  M01S00055.@000016 +++|          ZJN    SVIX        IF INTERLOCK SET SUCCESSFULLY
04567  M01S00056.@000016 +++|          DELAY  20B         DELAY 2 MILLISECONDS
04568  M01S00057.@000016 +++|          UJN    SVI1        RETRY
04569  M01S01400.1mu     +++| VBD      SPACE  4,15
04570  M01S01401.1mu     +++|**        VBD - VERIFY BUFFER DATA.
04571  M01S01402.1mu     +++|*
04572  M01S01403.1mu     +++|*         FOR EACH BUFFER THAT DOES NOT VERIFY, ((SP)+VCTB) IS
04573  M01S01404.1mu     +++|*         INCREMENTED.
04574  M01S01405.1mu     +++|*
04575  M01S01406.1mu     +++|*         ENTRY  (NS) = NUMBER OF BUFFERS TO PROCESS.
04576  M01S01407.1mu     +++|*                (SP) = STATISTICS GATHERING POINTER.
04577  M01S01408.1mu     +++|*                (T7) = LAST SECTOR TO CHECK + 1.
04578  M01S01409.1mu     +++|*
04579  M01S01410.1mu     +++|*         EXIT   (A) = DATA ERROR COUNT.
04580  M01S01411.1mu     +++|*
04581  M01S01412.1mu     +++|*         USES   CN, T1, T2, T3.
04582  M01S01413.1mu     +++|
04583  M01S01414.1mu     +++|
04584  M01S01415.1mu     +++| VBD      SUBR               ENTRY/EXIT
04585  M01S01416.1mu     +++|          LDC    DBUF        SET BUFFER POINTER
04586  M01S01417.1mu     +++|          STD    T3
04587  M01S01418.1mu     +++|          LDN    0           SET SECTOR NUMBER
04588  M01S01419.1mu     +++|          STD    T2
04589  M01S01420.1mu     +++| VBD1     SBD    NS
04590  M01S01421.1mu     +++|          ZJN    VBDX        IF ALL BUFFERS PROCESSED
04591  M01S01422.1mu     +++|          LDD    T3
04592  M01S01423.1mu     +++|          STD    T1          SET BUFFER ADDRESS TO CHECK
04593  M01S01424.1mu     +++|          ADC    BUFL
04594  M01S01425.1mu     +++|          STD    T3
04595  M01S01426.1mu     +++|          LDM    DVBE,T2
04596  M01S01427.1mu     +++|          NJN    VBD3        IF ERROR OCCURRED
04597  M01S01428.1mu     +++|          LDD    T7          COMPUTE SECTOR NUMBER
04598  M01S01429.1mu     +++|          SBD    NS
04599  M01S01430.1mu     +++|          ADD    T2
04600  M01S01431.1mu     +++|          STD    T0
04601  M01S01432.1mu     +++|          ADN    1
04602  M01S01433.1mu     +++|          LMI    T1
04603  M01S01434.1mu     +++|          NJN    VBD4        IF MISMATCH ON SECTOR
04604  M01S01435.1mu     +++|          AOD    T1
04605  M01S01436.1mu     +++|          LDI    T1
04606  M01S01437.1mu     +++|          LMD    HN
04607  M01S01438.1mu     +++|          NJN    VBD4        IF MISMATCH ON WORD COUNT
04608  M01S01439.1mu     +++|          AOD    T1
04609  M01S01440.1mu     +++| VBD2     LDC    BUFP
04610  M01S01441.1mu     +++|          LMI    T1
04611  M01S01442.1mu     +++|          NJN    VBD4        IF PATTERN MISMATCH
04612  M01S01443.1mu     +++|          AOD    T1
04613  M01S01444.1mu     +++|          LMD    T3
04614  M01S01445.1mu     +++|          NJN    VBD2        IF NOT END OF BUFFER
04615  M01S01446.1mu     +++| VBD3     AOD    T2
04616  M01S01447.1mu     +++|          UJN    VBD1        CHECK FOR END OF BUFFERS
04617  M01S01448.1mu     +++|
04618  M01S01449.1mu     +++| VBD4     LDD    T0          SET (T7) TO SECTOR IN ERROR
04619  M01S01450.1mu     +++|          STD    T7
04620  M01S01451.1mu     +++|          AOM    VCTB,SP     SET DATA ERROR COUNT
04621  M01S01452.1mu     +++|          UJP    VBDX        RETURN
04622  M01S01453.1mu     +++| VLS      SPACE  4,15
04623  M01S01454.1mu     +++|**        VLS - VERIFY LABEL SECTOR.
04624  M01S01455.1mu     +++|*
04625  M01S01456.1mu     +++|*         ENTRY  (T7) = LABEL SECTOR NUMBER.
04626  M01S01457.1mu     +++|*                (NS) = RELATIVE UNIT NUMBER.
04627  M01S01458.1mu     +++|*                (SP) = ERROR STATISTICS BUFFER POINTER.
04628  M01S01459.1mu     +++|*
04629  M01S01460.1mu     +++|*         EXIT   ERROR INDICATORS SET IN STATISTICS BUFFER.
04630  M01S01461.1mu     +++|*
Line S01462 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04631  M02S01462.@000011 ---|*         USES   T4, T6, T8, CM - CM+4, CN - CN+4.
04632  M01S00148.@000011 +++|*         USES   MT, T4, T6, T7, T8, CM - CM+4, CN - CN+4, IR - IR+4.
04633  M01S01463.1mu     +++|*
Line S01464 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04634  M02S01464.@000011 ---|*         CALLS  RDS, VLT, *5ME*.
04635  M01S00149.@000011 +++|*         CALLS  AEC, RDS, VLT, *5ME*.
04636  M01S01465.1mu     +++|*
Line S01466 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04637  M02S01466.@000011 ---|*         MACROS ENDMS, SETMS.
04638  M01S00150.@000011 +++|*         MACROS ENDMS, EXECUTE, SETMS.
04639  M01S01467.1mu     +++|
04640  M01S01468.1mu     +++|
Line S01469 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04641  M02S01469.@000011 ---| VLS11    LPN    77
Line S00021 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04642  M02S00021.@000011 ---|          LMN    DRVE
Line S00022 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04643  M02S00022.@000011 ---|          ZJN    VLS12       IF DRIVE RESERVE
Line S00023 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04644  M02S00023.@000011 ---|          LMN    CRSE&DRVE
Line S00024 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04645  M02S00024.@000011 ---|          ZJN    VLS12       IF CONTROLLER RESERVE
Line S00025 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04646  M02S00025.@000011 ---|          LMN    CRSE
04647  M01S00151.@000011 +++| VLS11    RJM    AEC         ANALYZE ERROR CODE
04648  M01S00152.@000011 +++|          ZJN    VLS12       IF DRIVE OR CONTROLLER RESERVE
04649  M01S01470.1mu     +++|          STM    LREB,SP     SAVE LABEL READ ERROR
04650  M01S01471.1mu     +++|          LDK    REFG        SET READ ERROR FLAG
04651  M01S01472.1mu     +++| VLS12    STM    LEFB,SP
04652  M01S01473.1mu     +++|          ENDMS
04653  M01S01474.1mu     +++|
04654  M01S01475.1mu     +++| VLS      SUBR               ENTRY/EXIT
Line S01476 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000006
Seq #  *Modification Id* Act 
----------------------------+
04655  M02S01476.@000006 ---| VLS0.1   SETMS  IOCH,(AD,DE,DF,ND)
Line S00026 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
04656  M02S00026.@000009 ---| VLS0.1   SETMS  IOCH,(AD,AR,DE,DF,ND,NR)
Line S00002 Modification History
M01 (Yanked) (Added by) @000009
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04657  M02S00002.@000011 ---| VLS0.1   SETMS  IOCH,(AD,AR,DE,DF,ND)
04658  M01S00153.@000011 +++| VLS0     SETMS  IOCH,(AD,AR,DE,DF,ND)
04659  M01S00154.@000011 +++|*         LDN    0           SET MEDIA ERROR THRESHOLD
04660  M01S00155.@000011 +++|          STD    MT
04661  M01S01477.1mu     +++|          LDM    TSCH,CC     SET CHANNEL
04662  M01S01478.1mu     +++|          STD    T4
04663  M01S01479.1mu     +++|          STM    STSB        STORE CHANNEL IN CASE BUFFERED DEVICE
04664  M01S01480.1mu     +++|          LDD    ES+4        READ MST DATA
04665  M01S01481.1mu     +++|          SHN    3
04666  M01S01482.1mu     +++|          ADN    ALGL
04667  M01S01483.1mu     +++|          CRD    CM
04668  M01S01484.1mu     +++|          LDD    CM+1        SET LABEL TRACK NUMBER
04669  M01S01485.1mu     +++|          STD    T6
04670  M01S01486.1mu     +++|          LDC    BFMS
04671  M01S01487.1mu     +++|          RJM    RDS         READ SECTOR
Line S01488 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04672  M02S01488.@000011 ---| VLS0     MJP    VLS11       IF MASS STORAGE ERROR
04673  M01S00156.@000011 +++| VLS0.1   MJP    VLS11       IF MASS STORAGE ERROR
04674  M01S01489.1mu     +++|
04675  M01S01490.1mu     +++|*         CHECK CONTENTS OF LABEL.
04676  M01S01491.1mu     +++|
04677  M01S01492.1mu     +++|*         LDN    0
04678  M01S01493.1mu     +++|          STD    T8          SET ERROR STATUS
04679  M01S01494.1mu     +++|          LDM    LLSS
04680  M01S01495.1mu     +++|          SHN    -1
04681  M01S01496.1mu     +++|          ZJN    VLS0.2      IF NOT LEVEL 2 LABEL
04682  M01S01497.1mu     +++|          LDD    NS
04683  M01S01498.1mu     +++|          NJN    VLS0.2      IF NOT RELATIVE UNIT ZERO
04684  M01S01499.1mu     +++|          RJM    VLT         VERIFY LEVEL 2 LABEL
Line S01500 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04685  M02S01500.@000011 ---|          MJN    VLS0        IF TRT READ ERROR
04686  M01S00157.@000011 +++|          MJN    VLS0.1      IF TRT READ ERROR
04687  M01S01501.1mu     +++|          STD    T8          SET ERROR STATUS
04688  M01S01502.1mu     +++|          LPK    CKFG
04689  M01S01503.1mu     +++|          NJP    VLS12       IF CHECKSUM ERROR
04690  M01S01504.1mu     +++| VLS0.2   LDM    BFMS        CHECK CONTROL BYTES
04691  M01S01505.1mu     +++|          LMC    3777
04692  M01S01506.1mu     +++|          ZJN    VLS1        IF PROPER CONTROL BYTE
04693  M01S01507.1mu     +++|          LDK    CBFG        SET BAD CONTROL BYTE FLAG
04694  M01S01508.1mu     +++|          RAD    T8
04695  M01S01509.1mu     +++| VLS1     LDM    BFMS+1
04696  M01S01510.1mu     +++|          LMN    77
04697  M01S01511.1mu     +++|          ZJN    VLS2        IF PROPER WORD COUNT
04698  M01S01512.1mu     +++|          LDK    WCFG        SET BAD WORD COUNT FLAG
04699  M01S01513.1mu     +++|          RAD    T8
04700  M01S01514.1mu     +++| VLS2     LDM    FTSS
04701  M01S01515.1mu     +++|          LMD    T6
04702  M01S01516.1mu     +++|          ZJN    VLS3        IF PROPER TRACK
04703  M01S01517.1mu     +++|          LDK    TNFG        SET BAD TRACK NUMBER FLAG
04704  M01S01518.1mu     +++|          RAD    T8
04705  M01S01519.1mu     +++| VLS3     LDM    E4SS        COMPARE EQUIPMENT TYPE WITH EST
04706  M01S01520.1mu     +++|          STM    EMNB,SP
04707  M01S01521.1mu     +++|          LMM    DVDT
04708  M01S01522.1mu     +++|          ZJN    VLS6        IF MATCHING EQUIPMENT MNEMONIC
04709  M01S01523.1mu     +++|          LMN    1RP&1RE
04710  M01S01524.1mu     +++| VLSA     PSN
04711  M01S01525.1mu     +++|*         ZJN    VLS6        (IF NON-MATCHING EM EQUIPMENT TYPES)
04712  M01S01526.1mu     +++|          LDK    EQFG        SET BAD EQUIPMENT MNEMONIC
04713  M01S01527.1mu     +++|          RAD    T8
04714  M01S01528.1mu     +++| VLS6     LDD    ES+4        GET FAMILY/PACKNAME
04715  M01S01529.1mu     +++|          SHN    3
04716  M01S01530.1mu     +++|          ADN    PFGL
04717  M01S01531.1mu     +++|          CRD    CN
04718  M01S01532.1mu     +++|          LDD    MA          COPY LABEL NAME TO MESSAGE BUFFER
04719  M01S01533.1mu     +++|          CWM    N4SS+5*PFGL,ON
04720  M01S01534.1mu     +++|          SBN    1           MOVE NAME TO DIRECT CELLS
04721  M01S01535.1mu     +++|          CRD    CM
04722  M01S01536.1mu     +++|          LDD    CM
04723  M01S01537.1mu     +++|          LMD    CN
04724  M01S01538.1mu     +++|          NJN    VLS7        IF NOT THE SAME LABEL
04725  M01S01539.1mu     +++|          LDD    CM+1
04726  M01S01540.1mu     +++|          LMD    CN+1
04727  M01S01541.1mu     +++|          NJN    VLS7        IF NOT THE SAME LABEL
04728  M01S01542.1mu     +++|          LDD    CM+2
04729  M01S01543.1mu     +++|          LMD    CN+2
04730  M01S01544.1mu     +++|          NJN    VLS7        IF NOT THE SAME LABEL
04731  M01S01545.1mu     +++|          LDD    CM+3
04732  M01S01546.1mu     +++|          LMD    CN+3
04733  M01S01547.1mu     +++|          SCN    77          CHECK DEVICE NUMBER SEPARATELY
04734  M01S01548.1mu     +++|          NJN    VLS7        IF NOT THE SAME LABEL
04735  M01S01549.1mu     +++|          LDD    CM+4
04736  M01S01550.1mu     +++|          LMD    CN+4
04737  M01S01551.1mu     +++|          SCN    70
04738  M01S01552.1mu     +++|          ZJN    VLS8        IF GOOD COMPARE
04739  M01S01553.1mu     +++| VLS7     LDK    FPFG        SET FAMILY/PACK NAME ERROR FLAG
04740  M01S01554.1mu     +++|          RAD    T8
04741  M01S01555.1mu     +++| VLS8     LDD    CM+3        COMPARE DEVICE NUMBERS
04742  M01S01556.1mu     +++|          LMD    CN+3
04743  M01S01557.1mu     +++|          LPN    77
04744  M01S01558.1mu     +++|          ZJN    VLS9        IF DEVICE NUMBERS MATCH
04745  M01S01559.1mu     +++|          LDK    DNFG        SET BAD DEVICE NUMBER FLAG
04746  M01S01560.1mu     +++|          RAD    T8
04747  M01S01561.1mu     +++| VLS9     LDD    CM
04748  M01S01562.1mu     +++|          STM    FMNB,SP
04749  M01S01563.1mu     +++|          LDD    CM+1
04750  M01S01564.1mu     +++|          STM    FMNB+1,SP
04751  M01S01565.1mu     +++|          LDD    CM+2
04752  M01S01566.1mu     +++|          STM    FMNB+2,SP
04753  M01S01567.1mu     +++|          LDD    CM+3
04754  M01S01568.1mu     +++|          STM    DNMB,SP
04755  M01S01569.1mu     +++|          LDD    CM+4        CHECK RELATIVE UNIT NUMBER
04756  M01S01570.1mu     +++|          SHN    -3
04757  M01S01571.1mu     +++|          LPN    7
04758  M01S01572.1mu     +++|          LMD    NS
04759  M01S01573.1mu     +++|          ZJN    VLS10       IF CORRECT UNIT NUMBER
04760  M01S01574.1mu     +++|          LDK    RUFG        SET RELATIVE UNIT NUMBER ERROR
04761  M01S01575.1mu     +++| VLS10    RAD    T8
04762  M01S01576.1mu     +++|          LPK    FPFG+DNFG+RUFG
04763  M01S01577.1mu     +++|          NJN    VLS10.2     IF WRONG PACK
04764  M01S01578.1mu     +++| VLS10.1  LDD    T8
04765  M01S01579.1mu     +++|          LJM    VLS12       RETURN
04766  M01S01580.1mu     +++|
04767  M01S01581.1mu     +++| VLS10.2  LDD    ES
04768  M01S01582.1mu     +++|          SHN    21-11
04769  M01S01583.1mu     +++|          PJN    VLS10.1     IF NOT SHARED
04770  M01S01584.1mu     +++|          SHN    11-21
04771  M01S01585.1mu     +++|          LPN    3
04772  M01S01586.1mu     +++|          LMN    3
04773  M01S01587.1mu     +++|          ZJN    VLS10.1     IF DOWN
04774  M01S01588.1mu     +++|          LDD    T5
04775  M01S01589.1mu     +++|          STD    IR+3        SET EST ORDINAL
04776  M01S01590.1mu     +++|          LDK    BFMS
04777  M01S01591.1mu     +++|          STD    IR+2        SET BUFFER ADDRESS
04778  M01S01592.1mu     +++|          EXECUTE  5ME
04779  M01S01593.1mu     +++|          LDD    IA          RESTORE INPUT REGISTER
04780  M01S01594.1mu     +++|          CRD    IR
Line S01595 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
04781  M02S01595.@000008 ---|          LDN    LSLT        RESET LABEL SECTOR
04782  M01S00057.@000008 +++|          LDN    /MMF/LSLT   RESET LABEL SECTOR
04783  M01S01596.1mu     +++|          STD    T7
Line S01597 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04784  M02S01597.@000011 ---|          LJM    VLS0.1      RETRY VERIFICATION
04785  M01S00158.@000011 +++|          LJM    VLS0        RETRY VERIFICATION
04786  M01S01598.1mu     +++| VLT      SPACE  4,15
04787  M01S01599.1mu     +++|**        VLT - VERIFY LEVEL TWO LABEL.
04788  M01S01600.1mu     +++|*
04789  M01S01601.1mu     +++|*         ENTRY  (NS) = RELATIVE UNIT NUMBER.
04790  M01S01602.1mu     +++|*                (SP) = ERROR STATISTICS BUFFER POINTER.
04791  M01S01603.1mu     +++|*                (T7) = LABEL SECTOR NUMBER.
04792  M01S01604.1mu     +++|*                (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
04793  M01S01605.1mu     +++|*
04794  M01S01606.1mu     +++|*         EXIT   (A) = ERROR INDICATORS.
04795  M01S01607.1mu     +++|*
04796  M01S01608.1mu     +++|*         USES   T1, T7, T9, CM - CM+4.
04797  M01S01609.1mu     +++|*
04798  M01S01610.1mu     +++|*         CALLS  CLC, RDS.
04799  M01S01611.1mu     +++|
04800  M01S01612.1mu     +++|
04801  M01S01613.1mu     +++| VLT6     LDK    CKFG        CHECKSUM ERROR
04802  M01S01614.1mu     +++|
04803  M01S01615.1mu     +++| VLT      SUBR               ENTRY/EXIT
04804  M01S01616.1mu     +++|          RJM    CLC         COMPUTE LABEL CHECKSUM
04805  M01S01617.1mu     +++|          LMM    CKSS
04806  M01S01618.1mu     +++|          NJN    VLT6        IF INCORRECT CHECKSUM
04807  M01S01619.1mu     +++|          LDM    N4SS+SDGL*5+4  CHECK MST/TRT INTERLOCK
04808  M01S01620.1mu     +++|          LPN    76
04809  M01S01621.1mu     +++|          ZJN    VLT1        IF NOT INTERLOCKED
04810  M01S01622.1mu     +++|          SHN    -1
04811  M01S01623.1mu     +++|          STD    T1
04812  M01S01624.1mu     +++|          LDD    ES+4        COMPARE INTERLOCK WITH THIS MF-S INDEX
04813  M01S01625.1mu     +++|          SHN    3
04814  M01S01626.1mu     +++|          ADK    DULL
04815  M01S01627.1mu     +++|          CRD    CM
04816  M01S01628.1mu     +++|          LDD    CM+2
04817  M01S01629.1mu     +++|          LPN    17
04818  M01S01630.1mu     +++|          ADN    1
04819  M01S01631.1mu     +++|          LMD    T1
04820  M01S01632.1mu     +++|          ZJN    VLT1        IF INTERLOCKED BY THIS MAINFRAME
04821  M01S00001.@000007 +++|          LDD    T1
04822  M01S00002.@000007 +++|          SHN    2
04823  M01S00003.@000007 +++|          RAD    T1
04824  M01S00004.@000007 +++|          LDM    DISS-5+3,T1
04825  M01S00005.@000007 +++|          LPN    1
04826  M01S00006.@000007 +++|          LMN    1
04827  M01S00007.@000007 +++|          ZJN    VLT1        IF INTERLOCKED FOR DEVICE RECOVERY
04828  M01S01633.1mu     +++|          LDK    ILFG
04829  M01S01634.1mu     +++| VLT1     STD    T9
04830  M01S01635.1mu     +++|          LDD    NS
04831  M01S01636.1mu     +++|          NJP    VLT4        IF NOT RELATIVE UNIT ZERO
04832  M01S01637.1mu     +++|          LDM    N4SS+TDGL*5+2  CHECK MST AND TRT COUNTERS
04833  M01S01638.1mu     +++|          SHN    -6
04834  M01S01639.1mu     +++|          ADN    1
04835  M01S01640.1mu     +++|          RAD    T7
04836  M01S01641.1mu     +++|          LDC    DBUF
04837  M01S01642.1mu     +++|          RJM    RDS         READ LAST SECTOR OF TRT
04838  M01S01643.1mu     +++|          MJN    VLT5        IF READ ERROR
04839  M01S01644.1mu     +++|          LDM    N4SS+SDGL*5+2
04840  M01S01645.1mu     +++|          LMM    DBUF+2+77*5+2
04841  M01S01646.1mu     +++|          NJN    VLT2        IF COUNTERS DON-T MATCH
04842  M01S01647.1mu     +++|          LDM    N4SS+SDGL*5+3
04843  M01S01648.1mu     +++|          LMM    DBUF+2+77*5+3
04844  M01S01649.1mu     +++|          NJN    VLT2        IF COUNTERS DON-T MATCH
04845  M01S01650.1mu     +++|          LDM    N4SS+SDGL*5+4
04846  M01S01651.1mu     +++|          LMM    DBUF+2+77*5+4
04847  M01S01652.1mu     +++|          SCN    77
04848  M01S01653.1mu     +++|          ZJN    VLT3        IF COUNTERS MATCH
04849  M01S01654.1mu     +++| VLT2     LDD    TH          COUNTER MISMATCH
04850  M01S01655.1mu     +++|*         LDK    CMFG
04851  M01S01656.1mu     +++|          ERRNZ  CMFG-1000B
04852  M01S01657.1mu     +++|          RAD    T9
Line S01658 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
04853  M02S01658.@000008 ---| VLT3     LDK    LSLT        RESTORE LABEL SECTOR
04854  M01S00058.@000008 +++| VLT3     LDN    /MMF/LSLT   RESET LABEL SECTOR
04855  M01S01659.1mu     +++|          STD    T7
04856  M01S01660.1mu     +++| VLT4     LDD    T9
04857  M01S01661.1mu     +++| VLT5     LJM    VLTX        RETURN
04858  M01S01662.1mu     +++| VSF      SPACE  4,15
04859  M01S01663.1mu     +++|**        VSF - VERIFY SYSTEM FILE.
04860  M01S01664.1mu     +++|*
04861  M01S01665.1mu     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
04862  M01S01666.1mu     +++|*                (ES - ES+4) = EST ENTRY.
04863  M01S01667.1mu     +++|*
04864  M01S01668.1mu     +++|*         EXIT   (A) .LT. 0 IF I/O ERROR.
04865  M01S01669.1mu     +++|*
04866  M01S01670.1mu     +++|*         USES   CM - CM+4, CN - CN+4.
04867  M01S01671.1mu     +++|*
04868  M01S01672.1mu     +++|*         CALLS  IRA, WSF.
04869  M01S01673.1mu     +++|*
04870  M01S01674.1mu     +++|*         MACROS SFA.
04871  M01S01675.1mu     +++|
04872  M01S01676.1mu     +++|
04873  M01S01677.1mu     +++| VSF      SUBR               ENTRY/EXIT
04874  M01S01678.1mu     +++|          LDD    ES
04875  M01S01679.1mu     +++|          LPC    2003        CHECK DEVICE STATE
04876  M01S01680.1mu     +++|          LMC    2003
04877  M01S01681.1mu     +++|          NJN    VSFX        IF NOT DOWN SYSTEM DEVICE
04878  M01S01682.1mu     +++|          LDN    FNTP
04879  M01S01683.1mu     +++|          CRD    CM          FETCH FNT POINTER
04880  M01S01684.1mu     +++|          LDD    CM
04881  M01S01685.1mu     +++|          SHN    14          READ SYSTEM FILE FST
04882  M01S01686.1mu     +++|          LMD    CM+1
04883  M01S01687.1mu     +++|          ERRNZ  SYFO        CODE DEPENDS ON VALUE
04884  M01S01688.1mu     +++|          ADN    FSTG
04885  M01S01689.1mu     +++|          CRD    CN
04886  M01S01690.1mu     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
04887  M01S01691.1mu     +++|
04888  M01S01692.1mu     +++|*         WRITE SYSTEM FILE - SYSTEM + EOI SECTORS.
04889  M01S01693.1mu     +++|
04890  M01S01694.1mu     +++|          LDD    CN+1        PROCESS SYSTEM FILE
04891  M01S01695.1mu     +++|          RJM    WSF
04892  M01S01696.1mu     +++|          MJN    VSFX        IF I/O ERROR
04893  M01S01697.1mu     +++|
04894  M01S01698.1mu     +++|*         WRITE PP LIBRARY FILE - SYSTEM + EOI SECTORS.
04895  M01S01699.1mu     +++|
04896  M01S01700.1mu     +++|          LDM    PLSS        PROCESS PP LIBRARY FILE
04897  M01S01701.1mu     +++|          RJM    WSF
04898  M01S01702.1mu     +++|          UJP    VSFX        RETURN
04899  M01S01703.1mu     +++| WCS      SPACE  4,15
04900  M01S01704.1mu     +++|**        WCS - WRITE CONSECUTIVE SECTORS.
04901  M01S01705.1mu     +++|*
04902  M01S01706.1mu     +++|*         ENTRY  (NS) = NUMBER OF SECTORS TO WRITE.
04903  M01S01707.1mu     +++|*                (SP) = STATISTICS GATHERING POINTER.
04904  M01S01708.1mu     +++|*                (T4 - T7) = MASS STORAGE DRIVER PARAMETERS.
04905  M01S01709.1mu     +++|*                (BFMS) = DATA TO WRITE.
04906  M01S01710.1mu     +++|*
04907  M01S01711.1mu     +++|*         EXIT   (A) = WRITE ERROR COUNT.
04908  M01S01712.1mu     +++|*
Line S01713 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04909  M02S01713.@000011 ---|*         USES   T7, T9.
04910  M01S00159.@000011 +++|*         USES   MT, T7, T9.
04911  M01S01714.1mu     +++|*
Line S01715 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04912  M02S01715.@000011 ---|*         CALLS  WDS.
04913  M01S00160.@000011 +++|*         CALLS  AEC, WDS.
04914  M01S01716.1mu     +++|
04915  M01S01717.1mu     +++|
04916  M01S01718.1mu     +++| WCS6     LDN    0           RESTORE ORIGINAL SECTOR NUMBER
04917  M01S01719.1mu     +++|          SBD    NS
04918  M01S01720.1mu     +++|          RAD    T7
04919  M01S01721.1mu     +++|          LDN    0
04920  M01S01722.1mu     +++|
04921  M01S01723.1mu     +++| WCS      SUBR               ENTRY/EXIT
04922  M01S00161.@000011 +++|          LDN    0           SET MEDIA ERROR THRESHOLD
04923  M01S00162.@000011 +++|*         LDN    METH        (I/O ON MAINTENANCE CYLINDER)
04924  M01S00163.@000011 +++| WCSA     EQU    *-1
04925  M01S00164.@000011 +++|          STD    MT
04926  M01S01724.1mu     +++|          LDD    HN
04927  M01S01725.1mu     +++|          STM    BFMS+1      SET SECTOR WORD COUNT
04928  M01S01726.1mu     +++|          LDN    0
04929  M01S01727.1mu     +++|          STD    T9          INITIALIZE SECTOR NUMBER
04930  M01S01728.1mu     +++|          LDD    T7
04931  M01S01729.1mu     +++| WCS1     ADN    1           SET SECTOR LINKAGE
04932  M01S01730.1mu     +++|          STM    BFMS
04933  M01S01731.1mu     +++|          AOD    T9
04934  M01S01732.1mu     +++|          SBD    NS
04935  M01S01733.1mu     +++|          ERRNZ  WLSF        CODE DEPENDS ON VALUE
04936  M01S01734.1mu     +++|          ZJN    WCS2        IF WRITING LAST SECTOR
04937  M01S01735.1mu     +++|          PJN    WCS6        IF WRITING COMPLETE
04938  M01S01736.1mu     +++|          LDC    WCSF
04939  M01S01737.1mu     +++| WCS2     ADC    BFMS
04940  M01S01738.1mu     +++|          RJM    WDS
Line S01739 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04941  M02S01739.@000011 ---|          SHN    0-21        SAVE ERROR FLAG
04942  M01S00165.@000011 +++|          PJN    WCS3        IF NO ERROR
04943  M01S00166.@000011 +++|          RJM    AEC         ANALYZE ERROR CODE
04944  M01S00167.@000011 +++|          NJN    WCS3        IF NOT DRIVE OR CONTROLLER RESERVE
04945  M01S01740.1mu     +++|          STM    DVBE-1,T9
Line S01741 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04946  M02S01741.@000011 ---|          ZJN    WCS3        IF NO ERROR
Line S01742 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04947  M02S01742.@000011 ---|          LDM    RDCT
Line S01743 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04948  M02S01743.@000011 ---|          LPN    77
Line S01744 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000006
M03 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04949  M03S01744.@000011 ---|          STM    WCDB,SP     SAVE LATEST WRITE ERROR CODE
Line S00027 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04950  M02S00027.@000011 ---|          LMN    DRVE
Line S00028 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04951  M02S00028.@000011 ---|          ZJN    WCS2.1      IF DRIVE RESERVE
Line S00029 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04952  M02S00029.@000011 ---|          LMN    CRSE&DRVE
Line S00030 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04953  M02S00030.@000011 ---|          NJN    WCS2.2      IF NOT CONTROLLER RESERVE
Line S00031 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04954  M02S00031.@000011 ---| WCS2.1   STM    DVBE-1,T9
04955  M01S00032.@000006 +++|          LDN    1           SET ERROR INDICATOR
Line S00033 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04956  M02S00033.@000011 ---|          UJP    WCSX        RETURN
04957  M01S00168.@000011 +++| WCS2.1   UJP    WCSX        RETURN
04958  M01S00034.@000006 +++|
Line S00035 Modification History
M01 (Yanked) (Added by) @000006
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04959  M02S00035.@000011 ---| WCS2.2   LMN    CRSE
04960  M01S00169.@000011 +++| WCS3     STM    DVBE-1,T9
04961  M01S00036.@000006 +++|          STM    WCDB,SP     SAVE LATEST WRITE ERROR CODE
Line S01745 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04962  M02S01745.@000011 ---|          LMN    PARE
Line S01746 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04963  M02S01746.@000011 ---|          NJN    WCS4        IF NOT MEDIA ERROR
Line S01747 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04964  M02S01747.@000011 ---| WCSA     LDN    0
Line S01748 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04965  M02S01748.@000011 ---|*         LDN    METH        (PERFORMING DEVICE VERIFICATION)
Line S01749 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04966  M02S01749.@000011 ---|          ZJN    WCS5        IF TOO MANY MEDIA ERRORS
Line S01750 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04967  M02S01750.@000011 ---|          SOM    WCSA
Line S01751 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04968  M02S01751.@000011 ---| WCS3     AOD    T7
04969  M01S00170.@000011 +++|          MJN    WCS4        IF TOO MANY MEDIA OR OTHER ERRORS
04970  M01S00171.@000011 +++|          AOD    T7
04971  M01S01752.1mu     +++|          UJP    WCS1        PROCESS NEXT SECTOR
04972  M01S01753.1mu     +++|
Line S01754 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04973  M02S01754.@000011 ---| WCS4     LMN    DDFE&PARE
Line S01755 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04974  M02S01755.@000011 ---|          NJN    WCS5        IF NOT DIAGNOSTIC FAILURE
04975  M01S00172.@000011 +++| WCS4     SHN    21-20
04976  M01S00173.@000011 +++|          PJN    WCS5        IF NOT DIAGNOSTIC FAILURE
04977  M01S01756.1mu     +++|          STM    HVLB
04978  M01S01757.1mu     +++| WCS5     AOM    WCTB,SP     SET WRITE ERROR COUNT
Line S01758 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
04979  M02S01758.@000011 ---|          UJP    WCSX        RETURN
04980  M01S00174.@000011 +++|          UJN    WCS2.1      RETURN
04981  M01S01759.1mu     +++| WSF      SPACE  4,15
04982  M01S01760.1mu     +++|**        WSF - WRITE SYSTEM FILE.
04983  M01S01761.1mu     +++|*
04984  M01S01762.1mu     +++|*         ENTRY  (A) = FIRST TRACK OF FILE.
04985  M01S01763.1mu     +++|*                (EQ) = ORDINAL OF DEVICE BEING VERIFIED.
04986  M01S01764.1mu     +++|*
04987  M01S01765.1mu     +++|*         EXIT   (A) .LT. 0 IF I/O ERROR.
04988  M01S01766.1mu     +++|*
04989  M01S01767.1mu     +++|*         USES   T5, T6, T7.
04990  M01S01768.1mu     +++|*
04991  M01S01769.1mu     +++|*         CALLS  RDS, SEI, WEI, WSS.
04992  M01S01770.1mu     +++|*
04993  M01S01771.1mu     +++|*         MACROS ENDMS, SETMS.
04994  M01S01772.1mu     +++|
04995  M01S01773.1mu     +++|
04996  M01S01774.1mu     +++| WSF      SUBR               ENTRY/EXIT
04997  M01S01775.1mu     +++|          STD    T6
04998  M01S01776.1mu     +++|          LDN    0           SYSTEM SECTOR NUMBER
04999  M01S01777.1mu     +++|          STD    T7
05000  M01S01778.1mu     +++|          SETMS  READSYS,(AD,DF,ND)
05001  M01S01779.1mu     +++|          LDC    BFMS        READ SYSTEM SECTOR
05002  M01S01780.1mu     +++|          RJM    RDS
05003  M01S01781.1mu     +++|          MJN    WSFX        IF READ ERROR
05004  M01S01782.1mu     +++|          ENDMS
05005  M01S01783.1mu     +++|          LDD    EQ          SELECT DEVICE BEING VERIFIED
05006  M01S01784.1mu     +++|          STD    T5
05007  M01S01785.1mu     +++|          SETMS  IO,(AD,DF,ND,NR)
05008  M01S01786.1mu     +++|          RJM    WSS         WRITE SYSTEM SECTOR
05009  M01S01787.1mu     +++|          MJN    WSFX        IF WRITE ERROR
05010  M01S01788.1mu     +++|          RJM    SEI         LOCATE EOI ON SYSTEM FILE
05011  M01S01789.1mu     +++|          SETMS  POSITION
05012  M01S01790.1mu     +++|          RJM    WEI         WRITE EOI SECTOR
05013  M01S01791.1mu     +++|          MJN    WSF1        IF WRITE ERROR
05014  M01S01792.1mu     +++|          ENDMS
05015  M01S01793.1mu     +++|*         LDN    0
05016  M01S01794.1mu     +++| WSF1     UJP    WSFX        RETURN
05017  M01S01795.1mu     +++|          SPACE  4,10
05018  M01S01796.1mu     +++|**        COMMON DECKS.
05019  M01S01797.1mu     +++|
05020  M01S01798.1mu     +++|
05021  M01S01799.1mu     +++|*CALL     COMPCLC
05022  M01S01800.1mu     +++| IRA$     EQU    0           SET *IRA* INITIALIZATION COMPLETE
05023  M01S01801.1mu     +++|*CALL     COMPSEI
05024  M01S01802.1mu     +++|*CALL     COMPIRA
Line S01803 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000017
Seq #  *Modification Id* Act 
----------------------------+
05025  M02S01803.@000017 ---|*CALL     COMPSDR
05026  M01S01804.1mu     +++|*CALL     COMPTLB
05027  M01S01805.1mu     +++|*CALL     COMPWEI
05028  M01S01806.1mu     +++|*CALL     COMPWSS
05029  M01S00001.@000014 +++|          TITLE  BUFFERS.
05030  M01S01807.1mu     +++|          SPACE  4,10
05031  M01S01808.1mu     +++|**        BUFFERS.
05032  M01S01809.1mu     +++|
05033  M01S01810.1mu     +++|
05034  M01S01811.1mu     +++| BUF      EQU    *
05035  M01S01812.1mu     +++| BEGIN    BSSN   BUF
05036  M01S01813.1mu     +++|
Line S01814 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000014
Seq #  *Modification Id* Act 
----------------------------+
05037  M02S01814.@000014 ---|*         BEGINING OF CELLS SET BY PRESET.
05038  M01S00002.@000014 +++|*         CELLS SET BY PRESET.
05039  M01S01815.1mu     +++|
05040  M01S01816.1mu     +++| DVDT     BSSN   1           DEVICE TYPE
05041  M01S01817.1mu     +++| DVMT     BSSN   1           DEVICE MAINTENANCE TRACK
05042  M01S01818.1mu     +++| DVHL     BSSN   1           DEVICE HEAD COUNT LIMIT PER TRACK
05043  M01S01819.1mu     +++| DVSI     BSSN   1           DEVICE SECTOR INCREMENT TO NEXT HEAD
Line S01820 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05044  M02S01820.@000008 ---| DVST     BSSN   1           DEVICE SECTORS BETWEEN LOGICAL TRACKS
05045  M01S00059.@000008 +++| CVNF     BSSN   1           CONVERSION FACTOR
05046  M01S00060.@000008 +++| DVST     BSSN   0           DEVICE SECTORS BETWEEN LOGICAL TRACKS
05047  M01S00061.@000008 +++| LSLT     BSSN   1           LOGICAL SECTORS/LOGICAL TRACK
Line S00062 Modification History
M01 (Yanked) (Added by) @000008
M02 (Yanked) (Updated by) @000017
Seq #  *Modification Id* Act 
----------------------------+
05048  M02S00062.@000017 ---| LSCY     BSSN   1           LOGICAL SECTORS/CYLINDER
05049  M01S00046.@000017 +++| LSCY     BSSN   2           LOGICAL SECTORS/CYLINDER
05050  M01S00063.@000008 +++| LSPT     BSSN   1           LOGICAL SECTORS/PHYSICAL TRACK
05051  M01S00021.@000018 +++| DVSB     BSSN   1           PHYSICAL SECTORS / BUFFER - 1
05052  M01S01821.1mu     +++| DVPC     BSSN   1           DEVICE HARDWARE VERIFICATION PROCESSOR
05053  M01S01822.1mu     +++|
Line S01823 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000014
Seq #  *Modification Id* Act 
----------------------------+
05054  M02S01823.@000014 ---|*         BEGINING OF ZEROED OUT TABLES.
05055  M01S00003.@000014 +++|*         ZEROED OUT TABLES.
05056  M01S01824.1mu     +++|
05057  M01S01825.1mu     +++| DVC1     BSSN   10*MXNB     CHANNEL 1 STATISTICS BUFFER
05058  M01S01826.1mu     +++| DVC2     BSSN   10*MXNB     CHANNEL 2 STATISTICS BUFFER
05059  M01S01827.1mu     +++| EZOT     BSSN   0           END OF ZEROED OUT TABLES
05060  M01S01828.1mu     +++|
Line S01829 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000014
Seq #  *Modification Id* Act 
----------------------------+
05061  M02S01829.@000014 ---|*         BEGINING OF SCRATCH CELLS.
05062  M01S00004.@000014 +++|*         SCRATCH CELLS.
05063  M01S01830.1mu     +++|
05064  M01S01831.1mu     +++| .1       SET    BFMS-*
05065  M01S01832.1mu     +++| MXSC     EQU    .1/503      MAXIMUM SECTORS IN BUFFER
05066  M01S01833.1mu     +++| DVBE     BSSN   MXSC        DEVICE VERIFICATION ERROR FLAG BUFFER
05067  M01S01834.1mu     +++| DBUF     BSSN   MXSC*BUFL   DATA VERIFICATION DATA BUFFER
05068  M01S01835.1mu     +++|
05069  M01S01836.1mu     +++|
05070  M01S01837.1mu     +++| END      BSSN
05071  M01S01838.1mu     +++|
05072  M01S01839.1mu     +++| OVLA     EQU    DVBE+5      *2VA* OVERLAY LOAD POINT
05073  M01S01840.1mu     +++|          SPACE  4,10
05074  M01S01841.1mu     +++|          ERRNG  BFMS-DBUF-MXSC*BUFL  OVERFLOW INTO WRITE BUFFER
05075  M01S01842.1mu     +++|          ERRNG  MXSC-DVSC   NOT ENOUGH SECTORS FOR DEVICE VERIFY
05076  M01S01843.1mu     +++|          ERRNG  EPFW-OVLA-ZSCL  *0SC* OVERLAYED BY ERROR PROCESSOR
05077  M01S00005.@000014 +++|          TITLE  PRESET TABLES.
05078  M01S01844.1mu     +++| TDVC     SPACE  4,10
05079  M01S01845.1mu     +++|**        TDVC - TABLE OF DEVICE CONSTANTS.
05080  M01S01846.1mu     +++|
05081  M01S01847.1mu     +++|
05082  M01S01848.1mu     +++| TDVC     BSS    0
Line S01849 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05083  M02S01849.@000008 ---| TDVCL    EQU    6           TABLE ENTRY LENGTH
Line S00064 Modification History
M01 (Yanked) (Added by) @000008
M02 (Yanked) (Updated by) @000017
Seq #  *Modification Id* Act 
----------------------------+
05084  M02S00064.@000017 ---| TDVCL    EQU    11          TABLE ENTRY LENGTH
Line S00047 Modification History
M01 (Yanked) (Added by) @000017
M02 (Yanked) (Updated by) @000018
Seq #  *Modification Id* Act 
----------------------------+
05085  M02S00047.@000018 ---| TDVCL    EQU    12          TABLE ENTRY LENGTH
05086  M01S00022.@000018 +++| TDVCL    EQU    13          TABLE ENTRY LENGTH
05087  M01S00065.@000008 +++| .A       SET    TDVCL+4
05088  M01S00066.@000008 +++| TDVCS    EQU    .A/5        TABLE ENTRY SIZE (CM WORD COUNT)
05089  M01S01850.1mu     +++|          LIST   G
05090  M01S01851.1mu     +++|          ECHO   ,DT="MSEQ"
05091  M01S01852.1mu     +++| .1       IF     DEF,PRC._DT
05092  M01S01853.1mu     +++|          CON    2R_DT        DT
Line S01854 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05093  M02S01854.@000008 ---|          CON    MCLT_DT     LOGICAL TRACK OF MAINTENANCE CYLINDER
05094  M01S00067.@000008 +++|          CON    MCLT_DT      LOGICAL TRACK OF MAINTENANCE CYLINDER
05095  M01S01855.1mu     +++| .2       IFEQ   PRC.DT,HVL
05096  M01S01856.1mu     +++|          CON    PTCY_DT      PHYSICAL TRACKS PER CYLINDER
05097  M01S01857.1mu     +++| .A       SET    TT_DT+1
Line S01858 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05098  M02S01858.@000012 ---|          CON    PSPT_DT/.A   SECTOR OFFSET TO NEXT HEAD POSITION
Line S01859 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
M03 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05099  M03S01859.@000012 ---|          CON    SL_DT+GS_DT/.A  SECTORS BETWEEN LOGICAL TRACKS
Line S01860 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
M03 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05100  M03S01860.@000012 ---| .2       ELSE
Line S01861 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
M03 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05101  M03S01861.@000012 ---|          BSSZ   3
Line S00068 Modification History
M01 (Yanked) (Added by) @000008
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05102  M02S00068.@000012 ---|          CON    CF_DT        CONVERSION FACTOR
05103  M01S00007.@000012 +++|          CON    LSPS_DT*PSPT_DT/.A SECTOR OFFSET TO NEXT HEAD POSITION
05104  M01S00008.@000012 +++|          CON    CFS_DT       CONVERSION FACTOR SHIFT COUNT
05105  M01S00069.@000008 +++|          CON    SL_DT+GS_DT   LOGICAL SECTORS/LOGICAL TRACK
Line S00070 Modification History
M01 (Yanked) (Added by) @000008
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05106  M02S00070.@000012 ---|          CON    PSPT_DT*PTCY_DT*LSPS_DT  LOGICAL SECTORS/CYLINDER
Line S00009 Modification History
M01 (Yanked) (Added by) @000012
M02 (Yanked) (Updated by) @000017
Seq #  *Modification Id* Act 
----------------------------+
05107  M02S00009.@000017 ---| .A       SET    PSPT_DT*PTCY_DT-SPSC_DT
Line S00010 Modification History
M01 (Yanked) (Added by) @000012
M02 (Yanked) (Updated by) @000017
Seq #  *Modification Id* Act 
----------------------------+
05108  M02S00010.@000017 ---|          CON    .A*LSPS_DT   LOGICAL SECTORS/CYLINDER
05109  M01S00048.@000017 +++| .A       SET    PSPT_DT*PTCY_DT-SPSC_DT  PHYSICAL SECTORS/CYLINDER
05110  M01S00049.@000017 +++| .B       SET    .A*LSPS_DT   LOGICAL SECTORS/CYLINDER
05111  M01S00050.@000017 +++| .C       SET    .B/10000
05112  M01S00051.@000017 +++| .D       SET    .C*10000
05113  M01S00052.@000017 +++|          CON    .C           UPPER LOGICAL SECTORS/CYLINDER
05114  M01S00053.@000017 +++|          CON    .B-.D        LOWER LOGICAL SECTORS/CYLINDER
05115  M01S00071.@000008 +++|          CON    LSPT_DT      LOGICAL SECTORS/PHYSICAL TRACK
05116  M01S00023.@000018 +++| .3       IF     DEF,PSBF_DT
05117  M01S00024.@000018 +++|          CON    37           LOGICAL SECTOR BUFFER ROUNDING FACTOR
05118  M01S00025.@000018 +++| .3       ELSE
05119  M01S00026.@000018 +++|          CON    0
05120  M01S00027.@000018 +++| .3       ENDIF
05121  M01S00072.@000008 +++| .2       ELSE
05122  M01S00073.@000008 +++|          BSSZ   TDVCL-3
05123  M01S01862.1mu     +++| .2       ENDIF
05124  M01S01863.1mu     +++|          CON    PRC._DT      DEVICE TYPE PROCESSOR
05125  M01S01864.1mu     +++| .1       ENDIF
05126  M01S01865.1mu     +++|          ENDD
05127  M01S01866.1mu     +++|          LIST   *
05128  M01S01867.1mu     +++|          BSSZ   TDVCL       END OF TABLE - NULL PARAMETERS
05129  M01S01868.1mu     +++| TFCN     SPACE  4,10
05130  M01S01869.1mu     +++|**        TFCN - TABLE OF FUNCTION PROCESSORS.
05131  M01S01870.1mu     +++|*
05132  M01S01871.1mu     +++|*         ENTRY - 3 BYTES.
05133  M01S01872.1mu     +++|*         BYTE 0 = FUNCTION PROCESSOR.
05134  M01S01873.1mu     +++|*         BYTE 1 = REPAIR PROCESSOR.
05135  M01S01874.1mu     +++|*         BYTE 2 = REPAIRABLE ERRORS.
05136  M01S01875.1mu     +++|
05137  M01S01876.1mu     +++|
05138  M01S01877.1mu     +++| TFCN     BSS    0
05139  M01S01878.1mu     +++|
05140  M01S01879.1mu     +++| DVFC     FCN    DVF,RLT,REFG+CKFG+CMFG
05141  M01S01880.1mu     +++| ONFC     FCN    ONF,RLT,REFG+CKFG+CMFG
05142  M01S01881.1mu     +++| IDFC     FCN    IDF,RLT,REFG+CKFG+CMFG
05143  M01S01882.1mu     +++| OFFC     FCN    LVA,RLT,REFG+CKFG+CMFG
Line S01883 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
05144  M02S01883.@000011 ---| MVFC     FCN    MVA,CFE8.2,0
Line S01884 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
05145  M02S01884.@000011 ---| UCFC     FCN    UCF,CFE8.2,0
05146  M01S00175.@000011 +++| MVFC     FCN    MVA,CFE9,0
05147  M01S00176.@000011 +++| UCFC     FCN    UCF,CFE9,0
05148  M01S01885.1mu     +++| SCFC     FCN    SCF,DVF2,0
05149  M01S01886.1mu     +++| MXFN     FCN
05150  M01S00006.@000014 +++|          TITLE  PRESET.
05151  M01S01887.1mu     +++| PRS      SPACE  4,30
05152  M01S01888.1mu     +++|**        PRS - PRESET.
05153  M01S01889.1mu     +++|*
05154  M01S01890.1mu     +++|*         ENTRY  (IR - IR+4) = *1MV* CALL.
05155  M01S01891.1mu     +++|*
05156  M01S01892.1mu     +++|*         EXIT   (CC) = (DA) = CHANNEL COUNT.
05157  M01S01893.1mu     +++|*                (FC) = FUNCTION CODE.
05158  M01S01894.1mu     +++|*                (SU) = SINGLE UNIT SECTOR COUNT FROM MST.
Line S01895 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000021
Seq #  *Modification Id* Act 
----------------------------+
05159  M02S01895.@000021 ---|*                (SP) = POINTER TO BEGINING OF STATISTICS BUFFER.
05160  M01S00003.@000021 +++|*                (SP) = POINTER TO STATISTICS BUFFER.
05161  M01S01896.1mu     +++|*                (T4) = FIRST CHANNEL.
05162  M01S01897.1mu     +++|*                (T5) = EST ORDINAL.
05163  M01S01898.1mu     +++|*                (T7) = 0.
05164  M01S01899.1mu     +++|*                (DP - DP+4) = 0 ((DP) = 1 IF EXTENDED MEMORY).
05165  M01S01900.1mu     +++|*                (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
05166  M01S01901.1mu     +++|*                (DVSA) = SINGLE UNIT SECTOR + GAP COUNT.
05167  M01S01902.1mu     +++|*                (DVHL) = HEAD COUNT LIMIT FOR DEVICE.
05168  M01S01903.1mu     +++|*                (DVMT) = MAINTENANCE CYLINDER LOGICAL TRACK.
05169  M01S01904.1mu     +++|*                (DVSI) = SECTOR INCREMENT FOR FUNCTION.
05170  M01S01905.1mu     +++|*
05171  M01S01906.1mu     +++|*         ERROR  TO *DPP* IF BAD CALL.
05172  M01S01907.1mu     +++|*
05173  M01S01908.1mu     +++|*         USES   T1, T8, CM - CM+4, CN - CN+4, ES - ES+4.
05174  M01S01909.1mu     +++|
05175  M01S01910.1mu     +++|
05176  M01S01911.1mu     +++| PRS      BSS                ENTRY
05177  M01S01912.1mu     +++|          LDD    IR+3
05178  M01S01913.1mu     +++|          SHN    -6
05179  M01S01914.1mu     +++|          STD    FC          EXTRACT FUNCTION CODE
05180  M01S01915.1mu     +++|          SHN    1
05181  M01S01916.1mu     +++|          ADD    FC
05182  M01S01917.1mu     +++|          STD    T1
05183  M01S01918.1mu     +++|          SBN    MXFN*3
05184  M01S01919.1mu     +++|          PJN    PRS1        IF INCORRECT FUNCTION CODE
05185  M01S01920.1mu     +++|          LDM    TFCN,T1     SET PROCESSOR ADDRESS
05186  M01S01921.1mu     +++|          STM    PRSB
05187  M01S01922.1mu     +++|          LDM    TFCN+1,T1   SET REPAIR PROCESSOR ADDRESS
05188  M01S01923.1mu     +++|          STM    CFEB
05189  M01S01924.1mu     +++|          LDM    TFCN+2,T1   SET REPAIRABLE ERRORS
05190  M01S01925.1mu     +++|          STM    CFEA
05191  M01S01926.1mu     +++|          LDK    ESTP
05192  M01S01927.1mu     +++|          CRD    CM
05193  M01S01928.1mu     +++|          LDD    EQ          SET EST ORDINAL
05194  M01S01929.1mu     +++|          STD    T5
05195  M01S01930.1mu     +++|          SBD    CM+3
05196  M01S01931.1mu     +++|          PJN    PRS1        IF OUT OF EST
05197  M01S01932.1mu     +++|          SFA    EST,T5      READ EST ENTRY
05198  M01S01933.1mu     +++|          ADK    EQDE
05199  M01S01934.1mu     +++|          CRD    ES
05200  M01S01935.1mu     +++|          ADK    EQAE-EQDE
05201  M01S01936.1mu     +++|          CRD    CN
05202  M01S01937.1mu     +++|          LDD    ES
05203  M01S01938.1mu     +++|          SHN    21-13
05204  M01S01939.1mu     +++|          MJN    PRS2        IF DEVICE IS MASS STORAGE
05205  M01S01940.1mu     +++| PRS1     LJM    DPP         DROP PP
05206  M01S01941.1mu     +++|
Line S01942 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000017
Seq #  *Modification Id* Act 
----------------------------+
05207  M02S01942.@000017 ---| PRS2     LDD    ES+4        READ MST DATA
05208  M01S00054.@000017 +++| PRS2     LDD    ES+3
05209  M01S00055.@000017 +++|          LMC    2RDC
05210  M01S00056.@000017 +++|          ZJN    PRS2.1      IF 895 TYPE DEVICE
05211  M01S00057.@000017 +++|          ISTORE HVLF,(UJN HVL3.1)  DISABLE 895 FORMATTING
05212  M01S00058.@000017 +++|          LDD    ES+3
05213  M01S00059.@000017 +++|          LMC    2RDF
05214  M01S00060.@000017 +++|          ZJN    PRS2.2      IF 887 TYPE (HYDRA) DEVICE
05215  M01S00061.@000017 +++|          LMN    2RDH&2RDF
05216  M01S00062.@000017 +++|          ZJN    PRS2.2      IF 887 TYPE (HYDRA) DEVICE
05217  M01S00063.@000017 +++| PRS2.1   ISTORE HVLE,(UJN HVL3)  DISABLE HYDRA DIAGNOSTICS
05218  M01S00064.@000017 +++| PRS2.2   LDD    ES+4        READ MST DATA
05219  M01S01943.1mu     +++|          SHN    3
05220  M01S01944.1mu     +++|          ADN    MDGL
05221  M01S01945.1mu     +++|          CRD    CM
05222  M01S00074.@000008 +++|          ADN    DILL-MDGL   GET DRIVER WORD
05223  M01S00075.@000008 +++|          CRD    DP
05224  M01S01946.1mu     +++|          LDD    CM+1        SAVE SINGLE UNIT SECTOR LIMIT
05225  M01S01947.1mu     +++|          LPC    3777
05226  M01S01948.1mu     +++|          STD    SU
Line S01949 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05227  M02S01949.@000008 ---|          LDN    ZERL        CLEAR DEVICE SEEK PARAMETERS
Line S01950 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05228  M02S01950.@000008 ---|          CRD    DP
05229  M01S01951.1mu     +++|
05230  M01S01952.1mu     +++|*         SEARCH FOR DEVICE IN TABLE.
05231  M01S01953.1mu     +++|
05232  M01S01954.1mu     +++|          LDC    TDVC-TDVCL   INITIALIZE POINTER INTO DEVICE CONSTANTS
05233  M01S01955.1mu     +++|          STD    T1
05234  M01S00076.@000008 +++|          LDD    DP+3
05235  M01S00077.@000008 +++|          NJN    PRS3        IF BUFFERED DEVICE
05236  M01S00078.@000008 +++|          LDC    *
05237  M01S00079.@000008 +++|          ORG    *-1         TRANSFER FOR NON-BUFFERED DEVICE
05238  M01S00080.@000008 +++|          LOC    CDAA
05239  M01S00081.@000008 +++|          UJN    CDA9        PROCESS *LDAM* DEVICE
05240  M01S00082.@000008 +++|          LOC    *O
05241  M01S00083.@000008 +++|          STM    CDAA
05242  M01S01956.1mu     +++| PRS3     LDN    TDVCL       INCREMENT POINTER
05243  M01S01957.1mu     +++|          RAD    T1
05244  M01S01958.1mu     +++|          LDI    T1          CHECK DEVICE MNEMONIC
05245  M01S01959.1mu     +++|          ZJN    PRS4        IF DEVICE NOT FOUND
05246  M01S01960.1mu     +++|          LMD    ES+3
05247  M01S01961.1mu     +++|          NJN    PRS3        IF NO MATCH
05248  M01S01962.1mu     +++| PRS4     STD    CC
05249  M01S01963.1mu     +++|          STD    T7
05250  M01S01964.1mu     +++|          STD    DA
05251  M01S01965.1mu     +++|          LDD    T1          TRANSFER DEVICE PARAMETERS
05252  M01S01966.1mu     +++|          STM    PRSA
Line S01967 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05253  M02S01967.@000008 ---|          LDD    MA
Line S01968 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05254  M02S01968.@000008 ---|          CWM    **,ON
Line S01969 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05255  M02S01969.@000008 ---| PRSA     EQU    *-1         TDC ADDRESS
Line S01970 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05256  M02S01970.@000008 ---|          SBN    1
Line S01971 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05257  M02S01971.@000008 ---|          CRM    DVDT,ON
Line S01972 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05258  M02S01972.@000008 ---|          LDM    5,T1        SET PROCESSOR ADDRESS
Line S01973 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000008
Seq #  *Modification Id* Act 
----------------------------+
05259  M02S01973.@000008 ---|          STM    DVPC
05260  M01S00084.@000008 +++|          LDN    TDVCS       SET WORD COUNT
05261  M01S00085.@000008 +++|          STD    T1
05262  M01S00086.@000008 +++|          ERRNG  6-TDVCS     TRANSFER OVERFLOWS MESSAGE BUFFER
05263  M01S00087.@000008 +++|          LDD    MA
05264  M01S00088.@000008 +++|          CWM    0,T1        MOVE TABLE ENTRY INTO MESSAGE BUFFER
05265  M01S00089.@000008 +++| PRSA     EQU    *-1
05266  M01S00090.@000008 +++|          SBN    TDVCS       COPY ENTRY TO DEVICE PARAMETER BLOCK
05267  M01S00091.@000008 +++|          CRM    DVDT,T1
05268  M01S00092.@000008 +++|          LDN    ZERL        CLEAR DEVICE SEEK PARAMETERS
05269  M01S00093.@000008 +++|          CRD    DP
05270  M01S00094.@000008 +++|          LDN    77          SET LOGICAL TO PHYSICAL SECTOR CONVERSION
05271  M01S00095.@000008 +++|          SBM    CVNF
05272  M01S00096.@000008 +++|          RAM    CDAB
05273  M01S01974.1mu     +++|          LDD    ES+3
05274  M01S01975.1mu     +++|          STM    DVDT
05275  M01S01976.1mu     +++|          LMC    2RDP
05276  M01S01977.1mu     +++|          ZJN    PRS5        IF ESM
05277  M01S01978.1mu     +++|          LMN    2RDE&2RDP
05278  M01S01979.1mu     +++|          NJN    PRS6        IF NOT UEM
05279  M01S01980.1mu     +++| PRS5     ISTORE VLSA,(ZJN VLS6)
05280  M01S01981.1mu     +++|          AOD    DP          AVOID ADDRESS CONVERSION
05281  M01S01982.1mu     +++|          LDD    CN+2
05282  M01S01983.1mu     +++|          SHN    -6
05283  M01S01984.1mu     +++|          LPN    3
05284  M01S01985.1mu     +++|          ZJN    PRS6        IF XM TRACK SIZE IS 2020 WORDS
05285  M01S01986.1mu     +++|          LDD    ES+4
05286  M01S01987.1mu     +++|          SHN    3           FORM MST ADDRESS
05287  M01S01988.1mu     +++|          ADK    ALGL
05288  M01S01989.1mu     +++|          CRD    CM
05289  M01S01990.1mu     +++|          LDD    CM+1
05290  M01S01991.1mu     +++|          STM    DVMT        USE LABEL TRACK FOR VERIFICATION
05291  M01S01992.1mu     +++|          LDN    20
05292  M01S01993.1mu     +++|          RAM    HVEA        BEGIN VERIFICATION AT SECTOR 20
05293  M01S01994.1mu     +++| PRS6     LDD    ES+3
05294  M01S01995.1mu     +++|          LMC    2RDE
05295  M01S01996.1mu     +++|          ZJN    PRS9        IF EXTENDED MEMORY
05296  M01S01997.1mu     +++|          LDN    ES+1
05297  M01S01998.1mu     +++|          STD    T1
05298  M01S01999.1mu     +++| PRS7     LDI    T1          SET CHANNEL IN TABLE
05299  M01S02000.1mu     +++|          LPN    77
05300  M01S02001.1mu     +++|          STM    TSCH,DA
05301  M01S02002.1mu     +++|          LMI    T1
05302  M01S02003.1mu     +++|          SHN    0-12
05303  M01S02004.1mu     +++|          LMN    2
05304  M01S02005.1mu     +++|          NJN    PRS8        IF ACCESS NOT PRESENT OR DISABLED
05305  M01S02006.1mu     +++|          AOD    DA
05306  M01S02007.1mu     +++| PRS8     AOD    T1          ADVANCE CHANNEL BYTE ADDRESS
05307  M01S02008.1mu     +++|          LMN    ES+3
05308  M01S02009.1mu     +++|          NJN    PRS7        IF ANOTHER CHANNEL BYTE
05309  M01S02010.1mu     +++|          SOD    DA
05310  M01S02011.1mu     +++|          MJP    DPP         IF NO CHANNELS
05311  M01S02012.1mu     +++|          ZJN    PRS10       IF SINGLE ACCESS DEVICE
05312  M01S02013.1mu     +++|          LDD    ES
05313  M01S02014.1mu     +++|          SHN    21-6
05314  M01S02015.1mu     +++|          PJN    PRS10       IF DEVICE IS AVAILABLE
05315  M01S02016.1mu     +++|          LDD    ES+1
05316  M01S02017.1mu     +++|          LMD    ES+2
05317  M01S02018.1mu     +++|          LPC    400
05318  M01S02019.1mu     +++| PRS9     ZJN    PRS10       IF SAME CONTROLLER TYPES
05319  M01S02020.1mu     +++|          LDD    ES+2
05320  M01S02021.1mu     +++|          SHN    0-10
05321  M01S02022.1mu     +++|          LPN    1
05322  M01S02023.1mu     +++|          STD    T1
05323  M01S02024.1mu     +++|          LDM    ES+1,T1     SET HALF TRACK CHANNEL FOR VERIFICATION
05324  M01S02025.1mu     +++|          LPN    77
05325  M01S02026.1mu     +++|          STM    TSCH
05326  M01S02027.1mu     +++|          UJN    PRS11       CONTINUE
05327  M01S02028.1mu     +++|
05328  M01S02029.1mu     +++| PRS10    AOD    DA          SET CHANNEL COUNT
05329  M01S02030.1mu     +++|          LDM    TSCH
05330  M01S02031.1mu     +++| PRS11    STD    T4          SET FIRST CHANNEL
05331  M01S02032.1mu     +++|          LDD    IR+3        GET REPAIR STATUS
05332  M01S02033.1mu     +++|          LPN    40
05333  M01S02034.1mu     +++|          NJN    PRS12       IF REPAIR HAS BEEN ATTEMPTED
05334  M01S02035.1mu     +++|          LDD    T5
05335  M01S02036.1mu     +++|          STD    CM+1
05336  M01S02037.1mu     +++|          LDN    RVES        RESERVE EQUIPMENT
05337  M01S02038.1mu     +++|          STD    CM+2
05338  M01S02039.1mu     +++|          MONITOR  REQM
05339  M01S02040.1mu     +++|          LDD    CM+1
05340  M01S02041.1mu     +++|          NJN    PRS13       IF DEVICE RESERVED
05341  M01S02042.1mu     +++|          LJM    IBM+1       ISSUE BML MESSAGE
05342  M01S02043.1mu     +++|
05343  M01S02044.1mu     +++| PRS12    LDN    0           COUNT ALL LABEL ERRORS AS UNREPAIRABLE
05344  M01S02045.1mu     +++|          STM    CFEA
05345  M01S02046.1mu     +++| PRS13    LDD    T5
05346  M01S02047.1mu     +++|          STM    RAEA        SET EQUIPMENT RESERVED
05347  M01S02048.1mu     +++|
05348  M01S02049.1mu     +++|*         CLEAR STATISTICS BUFFER.
05349  M01S02050.1mu     +++|
05350  M01S02051.1mu     +++|          LDC    EZOT-1      SET BUFFER LWA+1
05351  M01S02052.1mu     +++|          STD    SP          SAVE STARTING ADDRESS
05352  M01S02053.1mu     +++|          ERRNG  *-EZOT-1    TABLES OVERLAP CODE
05353  M01S02054.1mu     +++| PRS14    LDN    0
05354  M01S02055.1mu     +++|          STI    SP
05355  M01S02056.1mu     +++|          SOD    SP          DECREMENT POINTER
05356  M01S02057.1mu     +++|          LMC    DVC1
05357  M01S02058.1mu     +++|          NJN    PRS14       IF NOT DONE CLEARING
05358  M01S02059.1mu     +++|          STI    SP
05359  M01S00007.@000014 +++|          RJM    ECA         ENABLE CONTROLLER ACTIVITY
05360  M01S02060.1mu     +++|          LJM    *           EXIT TO PROCESSOR
05361  M01S02061.1mu     +++| PRSB     EQU    *-1
05362  M01S00008.@000014 +++|          TITLE  PRESET SUBROUTINES.
05363  M01S00009.@000014 +++| ECA      SPACE  4,15
05364  M01S00010.@000014 +++|**        ECA - ENABLE CONTROLLER ACTIVITY.
05365  M01S00011.@000014 +++|*
Line S00012 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05366  M02S00012.@000019 ---|*         FOR *ONFC* (*ON*) AND *IDFC* (*IDLE*) FUNCTIONS, THIS
Line S00013 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000017
M03 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05367  M03S00013.@000019 ---|*         ROUTINE FORCES THE 583X (*DAS*) OR 9853 (*XMD*) DRIVER
Line S00014 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000017
M03 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05368  M03S00014.@000019 ---|*         TO REENABLE ACTIVITY TO A CONTROLLER AND A DRIVE.
Line S00065 Modification History
M01 (Yanked) (Added by) @000017
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05369  M02S00065.@000019 ---|*         ROUTINE FORCES THE 583X/47444 (*DAS*) OR 9853 (*XMD*)
Line S00066 Modification History
M01 (Yanked) (Added by) @000017
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05370  M02S00066.@000019 ---|*         DRIVER TO REENABLE ACTIVITY TO A CONTROLLER AND A DRIVE.
05371  M01S00001.@000019 +++|*         THIS ROUTINE FORCES THE 583X/47444 (*DAS*) OR 9853 (*XMD*)
05372  M01S00002.@000019 +++|*         DRIVER TO REENABLE ACTIVITY TO A CONTROLLER IN ORDER TO
05373  M01S00003.@000019 +++|*         ALLOW A *UCFC* (*UP,CCH*) FUNCTION TO BE PROCESSED.
05374  M01S00015.@000014 +++|*         THIS IS ACCOMPLISHED BY SETTING A SPECIAL REQUEST BIT IN
Line S00016 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05375  M02S00016.@000019 ---|*         WORD *PILL* OF THE *PUT*, AND BITS FOR EACH ACTIVE CHANNEL
Line S00017 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05376  M02S00017.@000019 ---|*         IN WORD *BDLL* OF THE *MST*.
05377  M01S00004.@000019 +++|*         WORD *PILL* OF THE *PUT*, AND A BIT FOR THE SPECIFIED
05378  M01S00005.@000019 +++|*         CHANNEL IN WORD *BDLL* OF THE *MST*.
05379  M01S00018.@000014 +++|*
05380  M01S00019.@000014 +++|*         ENTRY  (FC) = FUNCTION CODE.
05381  M01S00020.@000014 +++|*                (IR+2) = EST ORDINAL.
05382  M01S00006.@000019 +++|*                (IR+4) = CHANNEL.
05383  M01S00021.@000014 +++|*
05384  M01S00022.@000014 +++|*         USES   CM - CM+4, CN - CN+4, T1.
05385  M01S00023.@000014 +++|*
05386  M01S00024.@000014 +++|*         MACROS MONITOR, SFA.
05387  M01S00025.@000014 +++|
05388  M01S00026.@000014 +++|
05389  M01S00027.@000014 +++| ECA      SUBR               ENTRY/EXIT
05390  M01S00028.@000014 +++|          LDD    FC          CHECK FUNCTION CODE
Line S00029 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05391  M02S00029.@000019 ---|          LMN    ONFC
Line S00030 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05392  M02S00030.@000019 ---|          ZJN    ECA1        IF *ON* FUNCTION
Line S00031 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05393  M02S00031.@000019 ---|          LMN    IDFC&ONFC
Line S00032 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05394  M02S00032.@000019 ---|          NJN    ECAX        IF NOT *IDLE* FUNCTION
Line S00033 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05395  M02S00033.@000019 ---| ECA1     SFA    EST,IR+2    READ EST ENTRY
05396  M01S00007.@000019 +++|          LMN    UCFC
05397  M01S00008.@000019 +++|          NJN    ECAX        IF NOT *UP,CCH* FUNCTION
05398  M01S00009.@000019 +++|          SFA    EST,IR+2    READ EST ENTRY
05399  M01S00034.@000014 +++|          ADK    EQDE
05400  M01S00035.@000014 +++|          CRD    CM
05401  M01S00036.@000014 +++|          LDN    TECAL       CHECK DEVICE TYPE
05402  M01S00037.@000014 +++|          STD    T1
05403  M01S00038.@000014 +++| ECA2     SOD    T1          CHECK NEXT TABLE ENTRY
05404  M01S00039.@000014 +++|          MJN    ECAX        IF THIS DEVICE TYPE NOT IN TABLE
05405  M01S00040.@000014 +++|          LDD    CM+3
05406  M01S00041.@000014 +++|          LMM    TECA,T1
05407  M01S00042.@000014 +++|          NJN    ECA2        IF DEVICE TYPE DOES NOT MATCH
Line S00043 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05408  M02S00043.@000019 ---|          LDD    CM+1        CHECK FIRST CHANNEL
Line S00044 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05409  M02S00044.@000019 ---|          SHN    -11
Line S00045 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05410  M02S00045.@000019 ---|          LMN    3
Line S00046 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05411  M02S00046.@000019 ---|          ZJN    ECA3        IF FIRST CHANNEL DOWN
05412  M01S00010.@000019 +++|
05413  M01S00011.@000019 +++|*         SET CHANNEL SELECTION FLAGS.
05414  M01S00012.@000019 +++|
05415  M01S00013.@000019 +++|          LDD    CM+1        CHECK FOR FIRST CHANNEL SPECIFIED
05416  M01S00014.@000019 +++|          LPN    77
05417  M01S00015.@000019 +++|          LMD    IR+4
05418  M01S00016.@000019 +++|          NJN    ECA3        IF FIRST CHANNEL NOT SPECIFIED
05419  M01S00047.@000014 +++|          LDN    1           SET FLAG FOR FIRST CHANNEL
Line S00048 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05420  M02S00048.@000019 ---| ECA3     STD    CN+4
Line S00049 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05421  M02S00049.@000019 ---|          LDD    CM+2        CHECK SECOND CHANNEL
Line S00050 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05422  M02S00050.@000019 ---|          ZJN    ECA4        IF NO SECOND CHANNEL
Line S00051 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05423  M02S00051.@000019 ---|          SHN    -11
Line S00052 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05424  M02S00052.@000019 ---|          LMN    3
Line S00053 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05425  M02S00053.@000019 ---|          ZJN    ECA4        IF SECOND CHANNEL DOWN
Line S00054 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05426  M02S00054.@000019 ---|          LDN    2           SET FLAG FOR SECOND CHANNEL
Line S00055 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000019
Seq #  *Modification Id* Act 
----------------------------+
05427  M02S00055.@000019 ---| ECA4     RAD    CN+4        NEW VALUE
05428  M01S00017.@000019 +++|          UJN    ECA4        UPDATE *MST*
05429  M01S00018.@000019 +++|
05430  M01S00019.@000019 +++| ECA3     LDN    2           SET FLAG FOR SECOND CHANNEL
05431  M01S00020.@000019 +++|
05432  M01S00021.@000019 +++|*         SET CHANNEL SELECTION FLAGS INTO *MST*.
05433  M01S00022.@000019 +++|
05434  M01S00023.@000019 +++| ECA4     STD    CN+4
05435  M01S00056.@000014 +++|          LDC    BDLL*100+2  6/INDEX INTO *MST*, 6/BITS TO CHANGE
05436  M01S00057.@000014 +++|          STD    CN
05437  M01S00058.@000014 +++|          LDC    49D*100     6/LOW ORDER BIT, 6/0
05438  M01S00059.@000014 +++|          STD    CN+1
05439  M01S00060.@000014 +++|          LDD    MA
05440  M01S00061.@000014 +++|          CWD    CN          STORE MESSAGE BUFFER PARAMETERS
05441  M01S00062.@000014 +++|          LDD    CM+4        SAVE *MST* ADDRESS
05442  M01S00063.@000014 +++|          STD    T1
05443  M01S00064.@000014 +++|          SHN    3
05444  M01S00065.@000014 +++|          STD    CM+4
05445  M01S00066.@000014 +++|          SHN    -14
05446  M01S00067.@000014 +++|          STD    CM+3
05447  M01S00068.@000014 +++|          LDN    1
05448  M01S00069.@000014 +++|          STD    CM+1        REQUESTS IN MESSAGE BUFFER
05449  M01S00070.@000014 +++|          MONITOR UTEM       UPDATE TABLE ENTRY
05450  M01S00024.@000019 +++|
05451  M01S00025.@000019 +++|*         SET SPECIAL REQUEST INTO *PUT*.
05452  M01S00026.@000019 +++|
05453  M01S00071.@000014 +++|          LDC    PILL*100+1  6/INDEX INTO *PUT*, 6/BITS TO CHANGE
05454  M01S00072.@000014 +++|          STD    CN
05455  M01S00073.@000014 +++|          LDC    ECAF*100    6/LOW ORDER BIT, 6/0
05456  M01S00074.@000014 +++|          STD    CN+1
05457  M01S00075.@000014 +++|          LDN    1
05458  M01S00076.@000014 +++|          STD    CN+4        NEW VALUE
05459  M01S00077.@000014 +++|          LDD    MA
05460  M01S00078.@000014 +++|          CWD    CN          STORE MESSAGE BUFFER PARAMETERS
05461  M01S00079.@000014 +++|          LDD    T1
05462  M01S00080.@000014 +++|          SHN    3           *MST* ADDRESS
05463  M01S00081.@000014 +++|          ADK    DILL
05464  M01S00082.@000014 +++|          CRD    CM          (CM+2) = PUT ORDINAL
05465  M01S00083.@000014 +++|          LDK    BIOL
05466  M01S00084.@000014 +++|          CRD    CN          READ BUFFERED I/O POINTERS
05467  M01S00085.@000014 +++|          LDD    CN+1
05468  M01S00086.@000014 +++|          SHN    14
05469  M01S00087.@000014 +++|          LMD    CN+2
05470  M01S00088.@000014 +++|          ADK    PUTP
05471  M01S00089.@000014 +++|          CRD    CN          READ *PUT* POINTER
05472  M01S00090.@000014 +++|          LDD    CM+2
05473  M01S00091.@000014 +++|          SHN    PUTLS
05474  M01S00092.@000014 +++|          ADD    CN+4
05475  M01S00093.@000014 +++|          STD    CM+4        SET START ADDRESS OF *PUT*
05476  M01S00094.@000014 +++|          SHN    -14
05477  M01S00095.@000014 +++|          ADD    CN+3
05478  M01S00096.@000014 +++|          STD    CM+3
05479  M01S00097.@000014 +++|          LDN    1
05480  M01S00098.@000014 +++|          STD    CM+1        REQUESTS IN MESSAGE BUFFER
05481  M01S00099.@000014 +++|          MONITOR UTEM       UPDATE TABLE ENTRY
05482  M01S00100.@000014 +++|          UJP    ECAX        RETURN
05483  M01S00101.@000014 +++|
05484  M01S00102.@000014 +++|
Line S00103 Modification History
M01 (Yanked) (Added by) @000014
M02 (Yanked) (Updated by) @000017
Seq #  *Modification Id* Act 
----------------------------+
05485  M02S00103.@000017 ---| TECA     BSS    0           TABLE OF 583X/9853 DEVICES
05486  M01S00067.@000017 +++| TECA     BSS    0           TABLE OF 583X/9853/47444 DEVICES
05487  M01S00104.@000014 +++|          CON    2RDN        9853
05488  M01S00105.@000014 +++|          CON    2REA        5832 (1X SSD)
05489  M01S00106.@000014 +++|          CON    2REB        5832 (2X SSD)
05490  M01S00107.@000014 +++|          CON    2REC        5833 (1X SABRE)
05491  M01S00108.@000014 +++|          CON    2RED        5833 (1XP SABRE)
05492  M01S00109.@000014 +++|          CON    2REE        5833 (2X SABRE)
05493  M01S00110.@000014 +++|          CON    2REF        5833 (2XP SABRE)
05494  M01S00002.@000015 +++|          CON    2REG        5838 (1X ELITE)
05495  M01S00003.@000015 +++|          CON    2REH        5838 (1XP ELITE)
05496  M01S00068.@000017 +++|          CON    2REI        5838 (2X ELITE)   (MP)
05497  M01S00069.@000017 +++|          CON    2REJ        5838 (2XP ELITE)  (MP)
05498  M01S00070.@000017 +++|          CON    2REK        5838 (3XP ELITE)  (MP)
05499  M01S00071.@000017 +++|          CON    2REL        5838 (4X ELITE)   (MP)
05500  M01S00072.@000017 +++|          CON    2REM        5833 (3XP SABRE)  (MP)
05501  M01S00073.@000017 +++|          CON    2REN        5833 (4X SABRE)   (MP)
05502  M01S00074.@000017 +++|          CON    2REO        47444 (1X 3.5IN)
05503  M01S00075.@000017 +++|          CON    2REP        47444 (1XP 3.5IN)
05504  M01S00076.@000017 +++|          CON    2RES        47444 (2X 3.5IN)  (MP)
05505  M01S00077.@000017 +++|          CON    2REU        47444 (2XP 3.5IN) (MP)
05506  M01S00078.@000017 +++|          CON    2REV        47444 (3XP 3.5IN) (MP)
05507  M01S00079.@000017 +++|          CON    2REW        47444 (4X 3.5IN)  (MP)
05508  M01S00111.@000014 +++| TECAL    EQU    *-TECA      LENGTH OF TABLE
05509  M01S02062.1mu     +++|          SPACE  4,10
05510  M01S02063.1mu     +++|          OVERFLOW
05511  M01S02064.1mu     +++|          OVERLAY  (*1MV* FUNCTION COMPLETION OVERLAY.)
Line S02065 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05512  M02S02065.@000012 ---| ELM      SPACE  4,15
05513  M01S00011.@000012 +++| ELM      SPACE  4,20
05514  M01S02066.1mu     +++|**        ELM - ERROR LOG MESSAGE PROCESSOR.
05515  M01S02067.1mu     +++|*
05516  M01S02068.1mu     +++|*         ENTRY  (CN) = SYMPTOM CODE.
05517  M01S02069.1mu     +++|*                (DCHA+3) = CHANNEL NUMBER, INCLUDING CONCURRENCY FLAG.
05518  M01S02070.1mu     +++|*                (CN) = SYMPTOM CODE FOR BML MESSAGE.
05519  M01S02071.1mu     +++|*                (EQ) = EST ORDINAL.
05520  M01S02072.1mu     +++|*                (FC) = *1MV* FUNCTION CODE.
05521  M01S02073.1mu     +++|*                (DP - DP+4) = DEVICE SEEK PARAMETERS.
05522  M01S02074.1mu     +++|*
05523  M01S00037.@000006 +++|*         EXIT   (A) = 0.
05524  M01S00038.@000006 +++|*
Line S02075 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05525  M02S02075.@000012 ---|*         USES   MT, T1, T2, T3, T5, T8, CM - CM+4, CN - CN+4.
05526  M01S00012.@000012 +++|*         USES   MT, T1, T2, T3, T8, CM - CM+4, CN - CN+4.
05527  M01S02076.1mu     +++|*
05528  M01S02077.1mu     +++|*         CALLS  C2D, DFM.
05529  M01S02078.1mu     +++|*
05530  M01S02079.1mu     +++|*         MACROS MONITOR.
05531  M01S02080.1mu     +++|
05532  M01S02081.1mu     +++|
05533  M01S02082.1mu     +++| ELM      SUBR               ENTRY/EXIT
05534  M01S02083.1mu     +++|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
05535  M01S02084.1mu     +++|          SHN    -3
05536  M01S02085.1mu     +++|          RJM    C2D
05537  M01S02086.1mu     +++|          STM    ELMB+1
05538  M01S02087.1mu     +++|          STM    ELMC+1
05539  M01S02088.1mu     +++|          STM    ELMD+1
05540  M01S02089.1mu     +++|          STM    ELME+1
05541  M01S02090.1mu     +++|          STM    ELMF+1
05542  M01S02091.1mu     +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
05543  M01S02092.1mu     +++|          STM    BMLEO       STORE EST ORDINAL IN BML MESSAGE
05544  M01S02093.1mu     +++|          LPN    7
05545  M01S02094.1mu     +++|          SHN    6
05546  M01S02095.1mu     +++|          ADC    2R0
05547  M01S02096.1mu     +++|          STM    ELMB+2
05548  M01S02097.1mu     +++|          STM    ELMC+2
05549  M01S02098.1mu     +++|          STM    ELMD+2
05550  M01S02099.1mu     +++|          STM    ELME+2
05551  M01S02100.1mu     +++|          STM    ELMF+2
05552  M01S02101.1mu     +++|          LDD    CN          STORE SYMPTOM CODE IN MESSAGE
05553  M01S02102.1mu     +++|          STD    T2
05554  M01S02103.1mu     +++|          STM    BMLSC
05555  M01S02104.1mu     +++|          LDD    DP+1        ADD UNIT NUMBER TO MESSAGE
05556  M01S02105.1mu     +++|          STM    BMLUN
05557  M01S02106.1mu     +++| ELM1     LDK    PPCP        ADD PP NUMBER TO MESSAGE
05558  M01S02107.1mu     +++|          CRD    CM
05559  M01S02108.1mu     +++|          ADN    MMFL-PPCP
05560  M01S02109.1mu     +++|          CRD    CN
05561  M01S02110.1mu     +++|          LDD    CN          ADD MACHINE ID TO MESSAGE
05562  M01S02111.1mu     +++|          STM    BMLMF
05563  M01S02112.1mu     +++|          LDD    IA          STORE PP NUMBER IN BML MESSAGE
05564  M01S02113.1mu     +++|          SBD    CM+4
05565  M01S02114.1mu     +++|          SHN    3
05566  M01S02115.1mu     +++|          LMM    DCHA+3      APPEND CHANNEL NUMBER
05567  M01S02116.1mu     +++|          STM    BMLPP
05568  M01S02117.1mu     +++|
05569  M01S02118.1mu     +++|*         DETERMINE THE APPROPRIATE BML MESSAGE IDENTIFIER TO BE
05570  M01S02119.1mu     +++|*         ADDED TO THE MESSAGE.  FOR DISKS, THE MESSAGE ID CAN BE
05571  M01S02120.1mu     +++|*         DETERMINED FROM THE DEVICE CODE.  FOR EXTENDED MEMORY,
05572  M01S02121.1mu     +++|*         IT MUST BE DETERMINED FROM DATA IN WORD *DILL* OF THE MST.
05573  M01S02122.1mu     +++|
05574  M01S02123.1mu     +++|          LDN    0           INITIALIZE TABLE POINTERS
05575  M01S00013.@000012 +++|          STD    T8
05576  M01S00014.@000012 +++|          LDC    MSGID-2     SET TABLE ADDRESS
05577  M01S02124.1mu     +++|          STD    T1
Line S02125 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05578  M02S02125.@000012 ---|          STD    T8
Line S02126 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05579  M02S02126.@000012 ---|          LDD    ES+3        SAVE LAST CHARACTER OF THE DEVICE CODE
Line S02127 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05580  M02S02127.@000012 ---|          LPN    77
05581  M01S00015.@000012 +++|          LDD    ES+3        SAVE DEVICE CODE
05582  M01S02128.1mu     +++|          STD    T3
Line S02129 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05583  M02S02129.@000012 ---|          LMN    1RE
05584  M01S00016.@000012 +++|          LMC    2RDE
05585  M01S02130.1mu     +++|          ZJN    ELM2        IF A *DE* TYPE DEVICE
Line S02131 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05586  M02S02131.@000012 ---|          LMN    1RP&1RE
05587  M01S00017.@000012 +++|          LMN    2RDP&2RDE
05588  M01S02132.1mu     +++|          NJN    ELM3        IF NOT A *DP* TYPE DEVICE
05589  M01S02133.1mu     +++| ELM2     LDD    ES+4        GET MST WORD *DILL*
05590  M01S02134.1mu     +++|          SHN    3
05591  M01S02135.1mu     +++|          ADN    DILL
05592  M01S02136.1mu     +++|          CRD    CM
05593  M01S02137.1mu     +++|          LDD    CM+3        USE *DILL* DATA FIELDS
05594  M01S02138.1mu     +++|          LPC    707
05595  M01S02139.1mu     +++|          STD    T3
05596  M01S00018.@000012 +++|          LDC    MSEID-2     SET TABLE ADDRESS
05597  M01S00019.@000012 +++|          STD    T1
05598  M01S02140.1mu     +++| ELM3     LDN    2
05599  M01S02141.1mu     +++|          RAD    T1
Line S02142 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05600  M02S02142.@000012 ---|          LDM    MSGID-2,T1  SCAN TABLE FOR A MATCH
05601  M01S00020.@000012 +++|          LDI    T1          SCAN TABLE FOR A MATCH
05602  M01S02143.1mu     +++|          ZJN    ELM4        IF DEVICE IS NOT FOUND IN TABLE
05603  M01S02144.1mu     +++|          LMD    T3
05604  M01S02145.1mu     +++|          NJN    ELM3        IF A MATCH HAS NOT YET BEEN FOUND
Line S02146 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05605  M02S02146.@000012 ---|          LDM    MSGID-1,T1
05606  M01S00021.@000012 +++|          LDM    1,T1
05607  M01S02147.1mu     +++| ELM4     STM    BMLID       STORE MESSAGE ID IN BML MESSAGE
05608  M01S02148.1mu     +++|          LDN    BMLL1
05609  M01S02149.1mu     +++|          STD    T3          SET BML MESSAGE LENGTH
05610  M01S02150.1mu     +++| ELM5     LDN    2
05611  M01S02151.1mu     +++|          RAD    T8
05612  M01S02152.1mu     +++|          LDM    TFCN-2,T8
05613  M01S02153.1mu     +++|          LMD    T2
05614  M01S02154.1mu     +++|          NJN    ELM5        IF NOT A SYMPTOM CODE MATCH
05615  M01S02155.1mu     +++|          LDM    TFCN-1,T8
05616  M01S02156.1mu     +++|          STD    T1
05617  M01S02157.1mu     +++|          LDC    ELMD        SET DEFAULT ERRORLOG MESSAGE
05618  M01S02158.1mu     +++|          LJM    0,T1        PROCESS SYMPTOM CODE DEPENDENT DATA
05619  M01S02159.1mu     +++|
05620  M01S02160.1mu     +++| ELM6     LDM    DCHA+3      CHANNEL NUMBER (AND CONCURRENCY FLAG)
05621  M01S02161.1mu     +++|          RJM    C2D         CONVERT CHANNEL NUMBER FOR MESSAGE
05622  M01S02162.1mu     +++|          STM    ELMA+1
05623  M01S02163.1mu     +++|          LDN    0           SET NO BML MESSAGE
05624  M01S02164.1mu     +++|          STD    T3
05625  M01S02165.1mu     +++|          LDC    ELMA        *CHXX, EQXXX VERIFICATION FAILURE.*
05626  M01S02166.1mu     +++|          LJM    ELM9.1      ISSUE ERRLOG MESSAGE
05627  M01S02167.1mu     +++|
05628  M01S02168.1mu     +++| ELM7     LDN    BMLL2       SET BML MESSAGE LENGTH
05629  M01S02169.1mu     +++|          STD    T3
05630  M01S02170.1mu     +++|          LDD    DP+2        SET CYLINDER IN MESSAGE
05631  M01S02171.1mu     +++|          STM    BMLCY
05632  M01S02172.1mu     +++|          LDD    DP+3        SET PHYSICAL TRACK IN MESSAGE
05633  M01S02173.1mu     +++|          STM    BMLTR
05634  M01S02174.1mu     +++|          LDD    DP+4        SET PHYSICAL SECTOR IN MESSAGE
05635  M01S02175.1mu     +++|          STM    BMLSN
05636  M01S02176.1mu     +++|          LDD    IR+4        STORE TRACK NUMBER IN ERRLOG MESSAGE
05637  M01S02177.1mu     +++|          RJM    C2D
05638  M01S02178.1mu     +++|          STM    ELMF+5
05639  M01S02179.1mu     +++|          LDD    IR+4
05640  M01S02180.1mu     +++|          SHN    -6
05641  M01S02181.1mu     +++|          RJM    C2D
05642  M01S02182.1mu     +++|          STM    ELMF+4
05643  M01S02183.1mu     +++|          LDC    ELMF+ERLN   ISSUE ERROR LOG MESSAGE
05644  M01S02184.1mu     +++|          RJM    DFM
05645  M01S02185.1mu     +++|          UJN    ELM11       ISSUE BML MESSAGE
05646  M01S02186.1mu     +++|
05647  M01S02187.1mu     +++| ELM8     LDC    ELMC        *EQXXX DOWNED BY SYSTEM.*
05648  M01S02188.1mu     +++| ELM9     STD    MT
05649  M01S02189.1mu     +++|          LDC    ELMB+ERLN   *EQXXX VERIFICATION FAILURE.*
05650  M01S02190.1mu     +++|          RJM    DFM
05651  M01S02191.1mu     +++|          LDD    MT
05652  M01S02192.1mu     +++| ELM9.1   LMC    ERLN        ISSUE ERROR LOG MESSAGE
05653  M01S02193.1mu     +++| ELM10    RJM    DFM
05654  M01S02194.1mu     +++|          LDN    ZERL        ISSUE *SEE, ERRORLOG* EVENT
05655  M01S02195.1mu     +++|          CRD    CM
05656  M01S02196.1mu     +++|          LDN    ELAE
05657  M01S02197.1mu     +++|          STD    CM+4
05658  M01S02198.1mu     +++|          MONITOR  EATM
05659  M01S02199.1mu     +++| ELM11    LDD    T3
05660  M01S02200.1mu     +++|          ZJN    ELM12       IF NULL MESSAGE
05661  M01S02201.1mu     +++|          STD    CM+1        SET BML MESSAGE LENGTH
05662  M01S02202.1mu     +++|          LDC    BML+BMLN    ISSUE BML MESSAGE
05663  M01S02203.1mu     +++|          RJM    DFM
05664  M01S02204.1mu     +++| ELM12    LJM    ELMX        RETURN
05665  M01S02205.1mu     +++|
05666  M01S02206.1mu     +++| ELM13    LDN    0           SET NO BML MESSAGE
05667  M01S02207.1mu     +++|          STD    T3
05668  M01S02208.1mu     +++|          LDC    ELME+ERLN
05669  M01S02209.1mu     +++|          UJP    ELM10       ISSUE ERRLOG MESSAGE
05670  M01S02210.1mu     +++| TFCN     SPACE  4
05671  M01S02211.1mu     +++|**        TFCN - TABLE OF SYMPTOM CODE DEPENDENT PROCESSORS.
05672  M01S02212.1mu     +++|
05673  M01S02213.1mu     +++|
05674  M01S02214.1mu     +++| TFCN     BSS    0
05675  M01S02215.1mu     +++|          CON    4000+UCFC,ELM6        CHANNEL VERIFICATION FAILURE
05676  M01S02216.1mu     +++|          CON    /COMSDFS/HS0030,ELM9  DEVICE SET *OFF* BY SYSTEM
05677  M01S02217.1mu     +++|          CON    /COMSDFS/HS0034,ELM8  DEVICE SET *DOWN* BY SYSTEM
05678  M01S02218.1mu     +++|          CON    /COMSDFS/HS0105,ELM7  TRACK FLAWED BY SYSTEM
05679  M01S02219.1mu     +++|          CON    0,ELM13               DEVICE UNAVAILABLE
Line S02220 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05680  M02S02220.@000012 ---|          SPACE  4
Line S02221 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05681  M02S02221.@000012 ---|**        MSGID - TABLE OF MESSAGE IDENTIFIERS.
05682  M01S00022.@000012 +++| MSGID    SPACE  4,10
05683  M01S00023.@000012 +++|*         MSGID - TABLE OF MESSAGE ID-S FOR NON-EXTENDED MEMORY DEVICES.
05684  M01S02222.1mu     +++|
05685  M01S02223.1mu     +++|
05686  M01S02224.1mu     +++| MSGID    BSS    0
Line S02225 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05687  M02S02225.@000012 ---|          CON    1RI,/COMSDFS/RM0002    (DI)  844-2X, HALF TRACK
Line S02226 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05688  M02S02226.@000012 ---|          CON    1RJ,/COMSDFS/RM0003    (DJ)  844-4X, HALF TRACK
Line S02227 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05689  M02S02227.@000012 ---|          CON    1RK,/COMSDFS/RM0004    (DK)  844-2X, FULL TRACK
Line S02228 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05690  M02S02228.@000012 ---|          CON    1RL,/COMSDFS/RM0005    (DL)  844-4X, FULL TRACK
Line S02229 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05691  M02S02229.@000012 ---|          CON    1RV,/COMSDFS/RM0006    (DV)  819, SINGLE DENSITY
Line S02230 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05692  M02S02230.@000012 ---|          CON    1RW,/COMSDFS/RM0006    (DW)  819, DOUBLE DENSITY
Line S02231 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05693  M02S02231.@000012 ---|          CON    1RM,/COMSDFS/RM0007    (DM)  885, HALF TRACK
Line S02232 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05694  M02S02232.@000012 ---|          CON    1RQ,/COMSDFS/RM0017    (DQ)  885, FULL TRACK
Line S02233 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05695  M02S02233.@000012 ---|          CON    1RX,/COMSDFS/RM0010    (DX)  3330-1
Line S02234 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05696  M02S02234.@000012 ---|          CON    1RY,/COMSDFS/RM0011    (DY)  3330-11
Line S02235 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05697  M02S02235.@000012 ---|          CON    1RZ,/COMSDFS/RM0012    (DZ)  3350
Line S02236 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05698  M02S02236.@000012 ---|          CON    1RA,/COMSDFS/RM0013    (DA)  33502
Line S02237 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05699  M02S02237.@000012 ---|          CON    1RB,/COMSDFS/RM0014    (DB)  PFMD
Line S02238 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05700  M02S02238.@000012 ---|          CON    1RD,/COMSDFS/RM0110    (DD)  834
Line S02239 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05701  M02S02239.@000012 ---|          CON    1RF,/COMSDFS/RM0120    (DF)  887 (SMALL SECTOR)
Line S02240 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05702  M02S02240.@000012 ---|          CON    1RG,/COMSDFS/RM0111    (DG)  836
Line S02241 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05703  M02S02241.@000012 ---|          CON    1RH,/COMSDFS/RM0121    (DH)  887 (LARGE SECTOR)
Line S02242 Modification History
M01 (Added by) 1mu
M02 (Yanked) (Updated by) @000012
Seq #  *Modification Id* Act 
----------------------------+
05704  M02S02242.@000012 ---|          CON    1RC,/COMSDFS/RM0115    (DC)  895
05705  M01S00024.@000012 +++|          CON    2RDI,/COMSDFS/RM0002   (DI)  844-2X, HALF TRACK
05706  M01S00025.@000012 +++|          CON    2RDJ,/COMSDFS/RM0003   (DJ)  844-4X, HALF TRACK
05707  M01S00026.@000012 +++|          CON    2RDK,/COMSDFS/RM0004   (DK)  844-2X, FULL TRACK
05708  M01S00027.@000012 +++|          CON    2RDL,/COMSDFS/RM0005   (DL)  844-4X, FULL TRACK
05709  M01S00028.@000012 +++|          CON    2RDV,/COMSDFS/RM0006   (DV)  819, SINGLE DENSITY
05710  M01S00029.@000012 +++|          CON    2RDW,/COMSDFS/RM0006   (DW)  819, DOUBLE DENSITY
05711  M01S00030.@000012 +++|          CON    2RDM,/COMSDFS/RM0007   (DM)  885, HALF TRACK
05712  M01S00031.@000012 +++|          CON    2RDQ,/COMSDFS/RM0017   (DQ)  885, FULL TRACK
05713  M01S00004.@000021 +++|          CON    2RDR,/COMSDFS/RM0015   (DR)  CDSS II
05714  M01S00032.@000012 +++|          CON    2RDX,/COMSDFS/RM0010   (DX)  3330-1
05715  M01S00033.@000012 +++|          CON    2RDY,/COMSDFS/RM0011   (DY)  3330-11
05716  M01S00034.@000012 +++|          CON    2RDZ,/COMSDFS/RM0012   (DZ)  3350
05717  M01S00035.@000012 +++|          CON    2RDA,/COMSDFS/RM0013   (DA)  33502
05718  M01S00036.@000012 +++|          CON    2RDB,/COMSDFS/RM0014   (DB)  885-42 (PFMD)
05719  M01S00037.@000012 +++|          CON    2RDC,/COMSDFS/RM0115   (DC)  895
05720  M01S00038.@000012 +++|          CON    2RDD,/COMSDFS/RM0110   (DD)  834
05721  M01S00039.@000012 +++|          CON    2RDF,/COMSDFS/RM0120   (DF)  887 (4KB SECTOR)
05722  M01S00040.@000012 +++|          CON    2RDG,/COMSDFS/RM0111   (DG)  836
05723  M01S00041.@000012 +++|          CON    2RDH,/COMSDFS/RM0121   (DH)  887 (16KB SECTOR)
05724  M01S00042.@000012 +++|          CON    2RDN,/COMSDFS/RM0124   (DN)  9853 (XMD/CM3)
05725  M01S00043.@000012 +++|          CON    2REA,/COMSDFS/RM0130   (EA)  5832 (1X SSD)
05726  M01S00044.@000012 +++|          CON    2REB,/COMSDFS/RM0131   (EB)  5832 (2X SSD)
05727  M01S00045.@000012 +++|          CON    2REC,/COMSDFS/RM0132   (EC)  5833 (1X SABRE)
05728  M01S00046.@000012 +++|          CON    2RED,/COMSDFS/RM0133   (ED)  5833 (1XP SABRE)
05729  M01S00047.@000012 +++|          CON    2REE,/COMSDFS/RM0134   (EE)  5833 (2X SABRE)
05730  M01S00048.@000012 +++|          CON    2REF,/COMSDFS/RM0137   (EF)  5833 (2XP SABRE)
05731  M01S00004.@000015 +++|          CON    2REG,/COMSDFS/RM0142   (EG)  5838 (1X ELITE)
05732  M01S00005.@000015 +++|          CON    2REH,/COMSDFS/RM0143   (EH)  5838 (1XP ELITE)
05733  M01S00080.@000017 +++|          CON    2REI,/COMSDFS/RM0144   (EI)  5838 (2X ELITE)   (MP)
05734  M01S00081.@000017 +++|          CON    2REJ,/COMSDFS/RM0147   (EJ)  5838 (2XP ELITE)  (MP)
05735  M01S00082.@000017 +++|          CON    2REK,/COMSDFS/RM0145   (EK)  5838 (3XP ELITE)  (MP)
05736  M01S00083.@000017 +++|          CON    2REL,/COMSDFS/RM0146   (EL)  5838 (4X ELITE)   (MP)
05737  M01S00084.@000017 +++|          CON    2REM,/COMSDFS/RM0135   (EM)  5833 (3XP SABRE)  (MP)
05738  M01S00085.@000017 +++|          CON    2REN,/COMSDFS/RM0136   (EN)  5833 (4X SABRE)   (MP)
05739  M01S00086.@000017 +++|          CON    2REO,/COMSDFS/RM0162   (EO)  47444 (1X 3.5IN)
05740  M01S00087.@000017 +++|          CON    2REP,/COMSDFS/RM0163   (EP)  47444 (1XP 3.5IN)
05741  M01S00088.@000017 +++|          CON    2RES,/COMSDFS/RM0164   (ES)  47444 (2X 3.5IN)  (MP)
05742  M01S00089.@000017 +++|          CON    2REU,/COMSDFS/RM0167   (EU)  47444 (2XP 3.5IN) (MP)
05743  M01S00090.@000017 +++|          CON    2REV,/COMSDFS/RM0165   (EV)  47444 (3XP 3.5IN) (MP)
05744  M01S00091.@000017 +++|          CON    2REW,/COMSDFS/RM0166   (EW)  47444 (4X 3.5IN)  (MP)
05745  M01S00049.@000012 +++|          CON    0           END OF TABLE
05746  M01S00050.@000012 +++| MSEID    SPACE  4,10
05747  M01S00051.@000012 +++|*         MSEID - TABLE OF MESSAGE ID-S FOR EXTENDED MEMORY DEVICES.
05748  M01S00052.@000012 +++|
05749  M01S00053.@000012 +++|
05750  M01S00054.@000012 +++| MSEID    BSS    0
05751  M01S02243.1mu     +++|          CON    102,/COMSDFS/RM0070    (DP)  ECS I  - DC135 DDP
05752  M01S02244.1mu     +++|          CON    100,/COMSDFS/RM0071    (DE)  ECS I  - COUPLER
05753  M01S02245.1mu     +++|          CON    202,/COMSDFS/RM0072    (DP)  ECS II - DC135 DDP
05754  M01S02246.1mu     +++|          CON    200,/COMSDFS/RM0073    (DE)  ECS II - COUPLER
05755  M01S02247.1mu     +++|          CON    101,/COMSDFS/RM0074    (DP)  ECS I  - DC145 DDP
05756  M01S02248.1mu     +++|          CON    201,/COMSDFS/RM0075    (DP)  ECS II - DC145 DDP
05757  M01S02249.1mu     +++|          CON    300,/COMSDFS/RM0076    (DP)  LCME   - COUPLER
05758  M01S02250.1mu     +++|          CON    400,/COMSDFS/RM0077    (DE)  UEM
05759  M01S02251.1mu     +++|          CON    500,/COMSDFS/RM0207    (DE)  ESM    - COUPLER
05760  M01S02252.1mu     +++|          CON    501,/COMSDFS/RM0210    (DP)  ESM    - LOW SPEED PORT
05761  M01S00001.@000005 +++|          CON    601,/COMSDFS/RM0172    (DP)  STORNET
05762  M01S02253.1mu     +++|          CON    0           END OF TABLE
05763  M01S02254.1mu     +++|          SPACE  4,10
05764  M01S02255.1mu     +++|*         BINARY MAINTENANCE LOG MESSAGE.
05765  M01S02256.1mu     +++|
05766  M01S02257.1mu     +++| BML      BSS    0
05767  M01S02258.1mu     +++|
05768  M01S02259.1mu     +++| BMLID    VFD    12/         MESSAGE ID
05769  M01S02260.1mu     +++|
05770  M01S02261.1mu     +++| BMLSC    VFD    12/         SYMPTOM CODE
05771  M01S02262.1mu     +++|
05772  M01S02263.1mu     +++| BMLPP    VFD    6/          PP NUMBER
05773  M01S02264.1mu     +++|          VFD    6/          CHANNEL NUMBER
05774  M01S02265.1mu     +++|
05775  M01S02266.1mu     +++| BMLUN    VFD    6/0         EQUIPMENT NUMBER
05776  M01S02267.1mu     +++|          VFD    6/          UNIT NUMBER
05777  M01S02268.1mu     +++|
05778  M01S02269.1mu     +++|          VFD    12/0        RESERVED
05779  M01S02270.1mu     +++|
05780  M01S02271.1mu     +++| BMLEO    VFD    12/         EST ORDINAL
05781  M01S02272.1mu     +++|
05782  M01S02273.1mu     +++|          VFD    24/0        RESERVED
05783  M01S02274.1mu     +++| BMLMF    VFD    12/         MAINFRAME ID
05784  M01S02275.1mu     +++|
05785  M01S02276.1mu     +++|          VFD    12/0        RESERVED
05786  M01S02277.1mu     +++|
05787  M01S02278.1mu     +++| BMLL1    EQU    *-BML       MESSAGE LENGTH (NON-TRACK FLAW FORMAT)
05788  M01S02279.1mu     +++|
05789  M01S02280.1mu     +++|          VFD    24/0        RESERVED
05790  M01S02281.1mu     +++| BMLCY    VFD    12/         CYLINDER
05791  M01S02282.1mu     +++|
05792  M01S02283.1mu     +++| BMLTR    VFD    12/         TRACK
05793  M01S02284.1mu     +++|
05794  M01S02285.1mu     +++| BMLSN    VFD    12/         SECTOR
05795  M01S02286.1mu     +++|
05796  M01S02287.1mu     +++| BMLL2    EQU    *-BML       MESSAGE LENGTH (TRACK FLAW FORMAT)
05797  M01S02288.1mu     +++|          SPACE  4,10
05798  M01S02289.1mu     +++|*         ERROR LOG MESSAGES.
05799  M01S02290.1mu     +++|
05800  M01S02291.1mu     +++|
05801  M01S02292.1mu     +++| ELMA     DATA   6HCHXX,
05802  M01S02293.1mu     +++| ELMB     DATA   C*EQXXX VERIFICATION FAILURE.*
05803  M01S02294.1mu     +++| ELMC     DATA   C*EQXXX DOWNED BY SYSTEM.*
05804  M01S02295.1mu     +++| ELMD     DATA   C*EQXXX OFFED BY SYSTEM.*
05805  M01S02296.1mu     +++| ELME     DATA   C*EQXXX UNAVAILABLE.*
05806  M01S02297.1mu     +++| ELMF     DATA   C*EQXXX,TKNNNN, MEDIA DEFECT FLAWED.*
05807  M01S00092.@000017 +++| FMT      SPACE  4,10
05808  M01S00093.@000017 +++|**        FMT - FORMAT 895 DEVICE MAINTENANCE TRACK.
05809  M01S00094.@000017 +++|*
05810  M01S00095.@000017 +++|*         ENTRY  (T4) = CHANNEL NUMBER.
05811  M01S00096.@000017 +++|*                (EQ) = EST ORDINAL.
05812  M01S00097.@000017 +++|*                (DVMT) = MAINTENANCE TRACK NUMBER.
05813  M01S00098.@000017 +++|*                (ES - ES+4) = EST ENTRY.
05814  M01S00099.@000017 +++|*
05815  M01S00100.@000017 +++|*         EXIT   (A) .NE. 0 IF ERROR.
05816  M01S00101.@000017 +++|*                (T4) = CHANNEL NUMBER.
05817  M01S00102.@000017 +++|*                (T5) = EST ORDINAL.
05818  M01S00103.@000017 +++|*                (T6) = MAINTENANCE TRACK NUMBER.
05819  M01S00104.@000017 +++|*
05820  M01S00105.@000017 +++|*         USES   T1, T2, T4, T5, T6, CM - CM+4, CN - CN+2.
05821  M01S00106.@000017 +++|*
05822  M01S00107.@000017 +++|*         CALLS  FNC, SDR.
05823  M01S00108.@000017 +++|*
05824  M01S00109.@000017 +++|*         MACROS DCHAN, DELAY, RCHAN.
05825  M01S00110.@000017 +++|
05826  M01S00111.@000017 +++|
05827  M01S00112.@000017 +++| FMT12    LDD    ES+4        GET UNIT COUNT
05828  M01S00113.@000017 +++|          SHN    3
05829  M01S00114.@000017 +++|          ADK    DDLL
05830  M01S00115.@000017 +++|          CRD    CM
05831  M01S00116.@000017 +++|          LDD    CM
05832  M01S00117.@000017 +++|          LPN    7
05833  M01S00118.@000017 +++|          STD    T2
05834  M01S00119.@000017 +++|          LDN    FMMC
05835  M01S00120.@000017 +++|          RJM    SDR
05836  M01S00121.@000017 +++|          LDN    0           SET RETURN STATUS
05837  M01S00122.@000017 +++|
05838  M01S00123.@000017 +++| FMT      SUBR               ENTRY/EXIT
05839  M01S00124.@000017 +++|          LDM    DVMT        RESTORE MAINTENANCE TRACK NUMBER
05840  M01S00125.@000017 +++|          STD    T6
05841  M01S00126.@000017 +++|          LDD    EQ          RESTORE EST ORDINAL
05842  M01S00127.@000017 +++|          STD    T5
Line S00128 Modification History
M01 (Yanked) (Added by) @000017
M02 (Yanked) (Updated by) @000022
Seq #  *Modification Id* Act 
----------------------------+
05843  M02S00128.@000022 ---|          LDD    CN          RESTORE CHANNEL NUMBER
Line S00129 Modification History
M01 (Yanked) (Added by) @000017
M02 (Yanked) (Updated by) @000022
Seq #  *Modification Id* Act 
----------------------------+
05844  M02S00129.@000022 ---|          STD    T4
05845  M01S00001.@000022 +++|          LDD    T4
05846  M01S00130.@000017 +++|          LPN    40
05847  M01S00131.@000017 +++|          NJN    FMT12       IF CONCURRENT CHANNEL
05848  M01S00132.@000017 +++|          LDD    T4
05849  M01S00133.@000017 +++|          RCHAN              RESERVE CHANNEL
05850  M01S00134.@000017 +++|          LDC    CTAB
05851  M01S00135.@000017 +++|          STD    T1          SET CHANNEL TABLE ADDRESS
05852  M01S00136.@000017 +++| FMT1     LDI    T1
05853  M01S00137.@000017 +++|          ZJN    FMT2        IF END OF LIST
05854  M01S00138.@000017 +++|          STD    T2
05855  M01S00139.@000017 +++|          LDI    T2          MODIFY INSTRUCTION
05856  M01S00140.@000017 +++|          SCN    37
05857  M01S00141.@000017 +++|          LMD    T4
05858  M01S00142.@000017 +++|          STI    T2
05859  M01S00143.@000017 +++|          AOD    T1          ADVANCE LIST POINTER
05860  M01S00144.@000017 +++|          UJN    FMT1        MODIFY NEXT INSTRUCTION
05861  M01S00145.@000017 +++|
05862  M01S00146.@000017 +++| FMT2     LDD    ES+4        GET UNIT LIST
05863  M01S00147.@000017 +++|          SHN    3
05864  M01S00148.@000017 +++|          ADK    DDLL
05865  M01S00149.@000017 +++|          CRD    CM
05866  M01S00150.@000017 +++|          LDD    T6          STORE CYLINDER NUMBER
05867  M01S00151.@000017 +++|          LPC    3777
05868  M01S00152.@000017 +++|          SHN    -1
05869  M01S00153.@000017 +++|          STD    CN
05870  M01S00154.@000017 +++| FMT3     LDD    CM+4        EXTRACT NEXT UNIT
05871  M01S00155.@000017 +++|          SHN    14
05872  M01S00156.@000017 +++|          STD    CM+4
05873  M01S00157.@000017 +++|          ERRPL  4000-3*SLDC CODE DEPENDS ON VALUE
05874  M01S00158.@000017 +++|          SHN    -14
05875  M01S00159.@000017 +++|          LMC    3S6         SET MODE/OPERATION DECODE
05876  M01S00160.@000017 +++|          STD    CN+1
05877  M01S00161.@000017 +++|          LDD    TH          SET LARGE RECORD SIZE
05878  M01S00162.@000017 +++|          STD    CN+2
05879  M01S00163.@000017 +++| FMT4     LDK    FCFP        ISSUE FORMAT FUNCTION
05880  M01S00164.@000017 +++|          RJM    FNC
05881  M01S00165.@000017 +++|          MJN    FMT6        IF ERROR
05882  M01S00166.@000017 +++|          ACN    CH
05883  M01S00167.@000017 +++|          LDN    FPBL
05884  M01S00168.@000017 +++|          OAM    CN,CH
05885  M01S00169.@000017 +++|          NJN    FMT6        IF INCOMPLETE DATA TRANSFER
05886  M01S00170.@000017 +++| FMT5     EJM    FMT7,CH     IF ALL DATA WAS ACCEPTED
05887  M01S00171.@000017 +++|          ADN    1
05888  M01S00172.@000017 +++|          NJN    FMT5        IF NOT TIMEOUT
05889  M01S00173.@000017 +++| FMT6     UJN    FMT9        SET ERROR STATUS
05890  M01S00174.@000017 +++|
05891  M01S00175.@000017 +++| FMT7     DCN    CH+40
05892  M01S00176.@000017 +++|          LCN    0           SET 4 SECOND TIMEOUT
05893  M01S00177.@000017 +++|          STD    T2
05894  M01S00178.@000017 +++| FMT8     DELAY  10
05895  M01S00179.@000017 +++|          LDK    FCGS        ISSUE GENERAL STATUS FUNCTION
05896  M01S00180.@000017 +++|          RJM    FNC
05897  M01S00181.@000017 +++|          MJN    FMT9        IF ERROR
05898  M01S00182.@000017 +++|          ACN    CH
05899  M01S00183.@000017 +++|          LDN    1
05900  M01S00184.@000017 +++|          IAM    T1,CH
05901  M01S00185.@000017 +++|          NJN    FMT9        IF INCOMPLETE DATA TRANSFER
05902  M01S00186.@000017 +++|          SFM    FMT9,CH     IF CHANNEL PARITY ERROR
05903  M01S00187.@000017 +++|          DCN    CH+40
05904  M01S00188.@000017 +++|          LDD    T1
05905  M01S00189.@000017 +++|          ZJN    FMT10       IF TRACK FORMATTING COMPLETE
05906  M01S00190.@000017 +++|          SOD    T2
05907  M01S00191.@000017 +++|          NJN    FMT8        IF NOT TIMEOUT
05908  M01S00192.@000017 +++| FMT9     AOM    FMTB,SP     SET ERROR STATUS
05909  M01S00193.@000017 +++|          UJN    FMT11       COMPLETE PROCESSING
05910  M01S00194.@000017 +++|
05911  M01S00195.@000017 +++| FMT10    AOD    CN+2        INCREMENT TRACK NUMBER
05912  M01S00196.@000017 +++|          LPN    77
05913  M01S00197.@000017 +++|          LMN    PTCYDC
05914  M01S00198.@000017 +++|          NJP    FMT4        IF NOT END OF CYLINDER
05915  M01S00199.@000017 +++|          LDD    CM
05916  M01S00200.@000017 +++|          LPN    7
05917  M01S00201.@000017 +++|          SBN    1
05918  M01S00202.@000017 +++|          STD    CM
05919  M01S00203.@000017 +++|          PJP    FMT3        IF MORE UNITS TO FORMAT
05920  M01S00204.@000017 +++| FMT11    DCN    CH+40
05921  M01S00205.@000017 +++|          LDK    FCOC        RELEASE HARDWARE RESERVES
05922  M01S00206.@000017 +++|          RJM    FNC
05923  M01S00207.@000017 +++|          SHN    0-21        SET ERROR STATUS IF ERROR
05924  M01S00208.@000017 +++|          RAM    FMTB,SP
05925  M01S00209.@000017 +++|          LDD    T4          RELEASE CHANNEL
05926  M01S00210.@000017 +++|          DCHAN
05927  M01S00211.@000017 +++|          LDM    FMTB,SP
05928  M01S00212.@000017 +++|          LJM    FMTX        RETURN
05929  M01S00213.@000017 +++| FNC      SPACE  4,10
05930  M01S00214.@000017 +++|**        FNC - FUNCTION CHANNEL.
05931  M01S00215.@000017 +++|*
05932  M01S00216.@000017 +++|*         ENTRY  (A) = FUNCTION CODE.
05933  M01S00217.@000017 +++|*
05934  M01S00218.@000017 +++|*         EXIT   (A) .EQ. 0 IF FUNCTION WAS ACCEPTED.
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/1mu.003.txt ยท Last modified: by 127.0.0.1