Deck 1MV

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1mv     +++|          IDENT  1MV,IMV
00002  M00S00002.1mv     +++|          PERIPH
00003  M00S00003.1mv     +++|          BASE   MIXED
00004  M00S00004.1mv     +++|          SST
00005  M00S00005.1mv     +++|*COMMENT  1MV - MASS STORAGE AND MEDIA VERIFICATION.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1984, 1985.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.1mv     +++|          TITLE  1MV - MASS STORAGE AND MEDIA VERIFICATION.
00009  M00S00008.1mv     +++|          SPACE  4,10
00010  M00S00009.1mv     +++|***       1MV - MASS STORAGE AND MEDIA VERIFICATION.
00011  M00S00010.1mv     +++|*
00012  M00S00011.1mv     +++|*         R. K. MYERS.       84/11/19.
00013  M00S00012.1mv     +++|*         W. E. GOEBEL.      85/04/12.
00014  M00S00013.1mv     +++|          SPACE  4,10
00015  M00S00014.1mv     +++|***       *1MV* PERFORMS THE FOLLOWING MASS STORAGE VALIDATION
00016  M00S00015.1mv     +++|*         FUNCTIONS.
00017  M00S00016.1mv     +++|*
00018  M00S00017.1mv     +++|*         0 = DVFC = MASS STORAGE DEVICE VERIFICATION.
00019  M00S00018.1mv     +++|*                PERFORM A PHYSICAL AND LOGICAL VERIFICATION OF A MASS
00020  M00S00019.1mv     +++|*                STORAGE EQUIPMENT.
00021  M00S00020.1mv     +++|*                PHYSICAL VERIFICATION INVOLVES WRITING AND READING
00022  M00S00021.1mv     +++|*                THE MAINTENANCE CYLINDER ON ALL UNITS OF A DEVICE
00023  M00S00022.1mv     +++|*                THROUGH ALL CHANNELS OF ACCESS.  THE DATA READ IS
00024  M00S00023.1mv     +++|*                VERIFIED AGAINST THE DATA WRITTEN.
00025  M00S00024.1mv     +++|*                LOGICAL VERIFICATION INVOLVES THE READING OF THE
00026  M00S00025.1mv     +++|*                LABEL SECTOR ON ALL UNITS OF A DEVICE THROUGH ALL
00027  M00S00026.1mv     +++|*                CHANNELS OF ACCESS.  THE LABEL READ IS VERIFIED FOR
00028  M00S00027.1mv     +++|*                THE PROPER DATA.
00029  M00S00028.1mv     +++|*
00030  M00S00029.1mv     +++|*         1 = ONFC = SET DEVICE IN *ON* STATE.
00031  M00S00030.1mv     +++|*                THE DEVICE IS TURNED ON UPON SUCCESSFUL VERIFICATION.
00032  M00S00031.1mv     +++|*
00033  M00S00032.1mv     +++|*         2 = IDFC = SET DEVICE IN *IDLE* STATE.
00034  M00S00033.1mv     +++|*                SET THE DEVICE IN THE *IDLE* STATE UPON A SUCCESSFULL
00035  M00S00034.1mv     +++|*                VERIFICATION.
00036  M00S00035.1mv     +++|*
00037  M00S00036.1mv     +++|*         3 = OFFC = SET DEVICE IN *OFF* STATE.
00038  M00S00037.1mv     +++|*                SET THE DEVICE IN THE *OFF* STATE UPON A SUCCESSFULL
00039  M00S00038.1mv     +++|*                LABEL VERIFICATION.  THE PHYSICAL VERIFICATION IS
00040  M00S00039.1mv     +++|*                NOT PERFORMED.
00041  M00S00040.1mv     +++|*
00042  M00S00041.1mv     +++|*         4 = MVFC = MEDIA VERIFICATION.
00043  M00S00042.1mv     +++|*                A LOGICAL TRACK IS WRITTEN AND READ SECTOR
00044  M00S00043.1mv     +++|*                BY SECTOR THROUGH ALL CHANNELS OF ACCESS.
00045  M00S00044.1mv     +++|*                IF NO ERRORS ARE ENCOUNTERED, THE TRACK FLAW
00046  M00S00045.1mv     +++|*                IS CLEARED AND THE TRACK CAN BE REUSED.
00047  M00S00046.1mv     +++|*
00048  M00S00047.1mv     +++|*         5 = UCFC = MASS STORAGE DATA PATH VERIFICATION AND SET
00049  M00S00048.1mv     +++|*                    CHANNEL STATE = *UP*.
00050  M00S00049.1mv     +++|*                PERFORM A PHYSICAL AND LOGICAL VERIFICATION OF A
00051  M00S00050.1mv     +++|*                MASS STORAGE EQUIPMENT USING A SPECIFIED CHANNEL.
00052  M00S00051.1mv     +++|*                PHYSICAL AND LOGICAL VERIFICATION ARE PERFORMED IN THE
00053  M00S00052.1mv     +++|*                SAME FASHION AS FOR FUNCTION *DVFC* WITH THE EXCEPTION
00054  M00S00053.1mv     +++|*                THAT ONLY THE SPECIFIED CHANNEL IS USED.  UPON
00055  M00S00054.1mv     +++|*                SUCCESSFUL VERIFICATION, THE CHANNEL STATE IS CHANGED
00056  M00S00055.1mv     +++|*                TO *UP*.
00057  M00S00056.1mv     +++|*
00058  M00S00057.1mv     +++|*         6 = SCFC = DISK SWEEP CYCLING.
00059  M00S00058.1mv     +++|*                PERFORM THE NEXT SEEK SEQUENCE IN THE SWEEP CYCLING
00060  M00S00059.1mv     +++|*                ALGORITHM FOR ALL PHYSICAL UNITS OF THE DEVICE WHOSE
00061  M00S00060.1mv     +++|*                EST ORDINAL WAS PASSED IN THE *1MV* CALL.
00062  M00S00061.1mv     +++|          SPACE  4,15
00063  M00S00062.1mv     +++|***       CALL.
00064  M00S00063.1mv     +++|*
00065  M00S00064.1mv     +++|*T        18/1MV, 6/CP, 12/EST, 6/FCN, 1/R, 17/PAR.
Figure

0161718232429PAR.RFCNEST303536414259ESTCP1MV

00066  M00S00065.1mv     +++|*
00067  M00S00066.1mv     +++|*         CP     CALLING CONTROL POINT.
00068  M00S00067.1mv     +++|*         EST    EST ORDINAL TO PROCESS.
00069  M00S00068.1mv     +++|*         FCN    FUNCTION CODE.
00070  M00S00069.1mv     +++|*         R      LABEL REPAIR HAS BEEN ATTEMPTED.
00071  M00S00070.1mv     +++|*         PAR    = TRACK NUMBER TO TEST (FUNCTION *MVFC*).
00072  M00S00071.1mv     +++|*                = CHANNEL NUMBER, INCLUDING CONCURRENCY FLAG (FUNCTION
00073  M00S00072.1mv     +++|*                  *UCFC*).
00074  M00S00073.1mv     +++|          SPACE  4,10
00075  M00S00074.1mv     +++|**        COMMON DECKS.
00076  M00S00075.1mv     +++|
00077  M00S00076.1mv     +++|
00078  M00S00077.1mv     +++|*CALL     COMPMAC
00079  M00S00078.1mv     +++|*CALL     COMPCHI
00080  M00S00079.1mv     +++|*CALL     COMSCPS
00081  M00S00080.1mv     +++|*CALL     COMSDFS
00082  M00S00081.1mv     +++|          QUAL   DSL
00083  M00S00082.1mv     +++|*CALL     COMSDSL
00084  M00S00083.1mv     +++|          QUAL   *
00085  M00S00084.1mv     +++| PLSS     EQU    /DSL/PLSS
00086  M00S00085.1mv     +++|*CALL     COMSEVT
00087  M00S00086.1mv     +++|*CALL     COMSHIO
00088  M00S00087.1mv     +++|*CALL     COMSLSD
Line S00088 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00088.271l716 ---|*CALL     COMSMMF
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00001.271l716 +++|          QUAL   MMF
00091  M01S00002.271l716 +++|*CALL     COMSMMF
00092  M01S00003.271l716 +++|          QUAL   *
00093  M01S00004.271l716 +++| MISD     EQU    /MMF/MISD
00094  M00S00089.1mv     +++|*CALL     COMSMSP
00095  M00S00090.1mv     +++|*CALL     COMSMST
00096  M00S00091.1mv     +++|*CALL     COMSPFM
00097  M00S00092.1mv     +++|*CALL     COMSPIM
00098  M00S00093.1mv     +++|*CALL     COMSSSE
00099  M00S00094.1mv     +++|*CALL     COMSWEI
00100  M00S00095.1mv     +++|*CALL     COMSZOL
00101  M00S00096.1mv     +++|*CALL     COMS1DS
00102  M00S00097.1mv     +++|          LIST   X
00103  M00S00098.1mv     +++|*CALL     COMS1MV
00104  M00S00099.1mv     +++|          LIST   *
00105  M00S00100.1mv     +++|          TITLE  MACRO DEFINITIONS.
00106  M00S00101.1mv     +++| FCN      SPACE  4,10
00107  M00S00102.1mv     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00108  M00S00103.1mv     +++|*
00109  M00S00104.1mv     +++|* FN      FCN    P,R,E
00110  M00S00105.1mv     +++|*
00111  M00S00106.1mv     +++|*         FN     FUNCTION CODE.
00112  M00S00107.1mv     +++|*         P      NAME OF FUNCTION PROCESSOR.
00113  M00S00108.1mv     +++|*         R      NAME OF REPAIR PROCESSOR (HANDLES REPAIRABLE ERRORS).
00114  M00S00109.1mv     +++|*         E      ERRORS THAT CAN BE REPAIRED BY *R*.
00115  M00S00110.1mv     +++|*
00116  M00S00111.1mv     +++|*         TABLE GENERATED.
00117  M00S00112.1mv     +++|*
00118  M00S00113.1mv     +++|*T,TN     12/ P,12/ R,12/ E
Figure TN

01112232429 E R P3035 P

00119  M00S00114.1mv     +++|
00120  M00S00115.1mv     +++|
00121  M00S00116.1mv     +++|          PURGMAC  FCN
00122  M00S00117.1mv     +++|
00123  M00S00118.1mv     +++|          MACRO  FCN,FN,P,R,E
00124  M00S00119.1mv     +++|          MACREF FCN
00125  M00S00120.1mv     +++|          ORG    TFCN+3*FN
00126  M00S00121.1mv     +++|          LOC    FN
00127  M00S00122.1mv     +++| .A       IFC    NE,$P$$
00128  M00S00123.1mv     +++|          CON    P,R,E
00129  M00S00124.1mv     +++| .A       ELSE
00130  M00S00125.1mv     +++|          LOC    *O
00131  M00S00126.1mv     +++| .A       ENDIF
00132  M00S00127.1mv     +++|          ENDM
00133  M00S00128.1mv     +++| OVERLAY  SPACE  4,10
00134  M00S00129.1mv     +++|**        OVERLAY - DEFINE THE SECONDARY OVERLAY(S).
00135  M00S00130.1mv     +++|*
00136  M00S00131.1mv     +++|*         OVERLAY (TEXT)
00137  M00S00132.1mv     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLE.
00138  M00S00133.1mv     +++|
00139  M00S00134.1mv     +++|
00140  M00S00135.1mv     +++| .N       SET    0
00141  M00S00136.1mv     +++| OVLB     MICRO  1,, 2V      OVERLAY NAME
00142  M00S00137.1mv     +++|
00143  M00S00138.1mv     +++|
00144  M00S00139.1mv     +++|          PURGMAC OVERLAY
00145  M00S00140.1mv     +++|
00146  M00S00141.1mv     +++| OVERLAY  MACRO  TEXT
00147  M00S00142.1mv     +++|          MACREF OVERLAY
00148  M00S00143.1mv     +++|          QUAL
00149  M00S00144.1mv     +++| .N       SET    .N+1
00150  M00S00145.1mv     +++| .M       MICRO  .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00151  M00S00146.1mv     +++| .O       MICRO  1,3, "OVLB"".M"
00152  M00S00147.1mv     +++|          QUAL   ".O"
00153  M00S00148.1mv     +++|          TITLE  ".O" - TEXT
00154  M00S00149.1mv     +++|          IDENT  ".O",OVLA   TEXT
00155  M00S00150.1mv     +++|*COMMENT  1MV - TEXT
Line S00151 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00156  M01S00151.281l803 ---|          COMMENT COPYRIGHT   CONTROL DATA CORP. 1984.
Line S00002 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00157  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00158  M00S00152.1mv     +++|          ORG    OVLA
00159  M00S00153.1mv     +++|          LJM    *           ENTRY/EXIT
00160  M00S00154.1mv     +++|          UJN    *-2         OVERLAY EXIT ADDRESS
00161  M00S00155.1mv     +++|          ENDM
00162  M00S00156.1mv     +++| ENTRY    SPACE  4,10
00163  M00S00157.1mv     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00164  M00S00158.1mv     +++|*
00165  M00S00159.1mv     +++|* NAME    ENTRY
00166  M00S00160.1mv     +++|*         NAME = NAME OF ENTRY ADDRESS.
00167  M00S00161.1mv     +++|
00168  M00S00162.1mv     +++|
00169  M00S00163.1mv     +++|          PURGMAC ENTRY
00170  M00S00164.1mv     +++|
00171  M00S00165.1mv     +++|          MACRO  ENTRY,NAME
00172  M00S00166.1mv     +++|          MACREF ENTRY
00173  M00S00167.1mv     +++|          QUAL
00174  M00S00168.1mv     +++| NAME     BSS    0           ENTRY
00175  M00S00169.1mv     +++|          QUAL   *
00176  M00S00170.1mv     +++|          ENDM
00177  M00S00171.1mv     +++| VERIFY   SPACE  4,10
00178  M00S00172.1mv     +++|**        VERIFY - DEFINE HARDWARE VERIFICATION ROUTINE FOR EQUIPMENT.
00179  M00S00173.1mv     +++|*
00180  M00S00174.1mv     +++|* NAME    ENTRY  EQ
00181  M00S00175.1mv     +++|*         NAM =  NAME OF ENTRY ADDRESS.
00182  M00S00176.1mv     +++|*         EQ =   EQUIPMENT TYPE(S) TO VERIFY.
00183  M00S00177.1mv     +++|
00184  M00S00178.1mv     +++|
00185  M00S00179.1mv     +++|          PURGMAC VERIFY
00186  M00S00180.1mv     +++|          MACRO  VERIFY,NAM,EQ
00187  M00S00181.1mv     +++|          MACREF VERIFY
00188  M00S00182.1mv     +++| NAM      SUBR               ENTRY/EXIT
00189  M00S00183.1mv     +++|          IRP    EQ
00190  M00S00184.1mv     +++| PRC._EQ  EQU    NAM
00191  M00S00185.1mv     +++|          IRP
00192  M00S00186.1mv     +++|          ENDM
00193  M00S00187.1mv     +++|          SPACE  4,20
00194  M00S00188.1mv     +++|****      DIRECT LOCATION ASSIGNMENTS.
00195  M00S00189.1mv     +++|
00196  M00S00190.1mv     +++|
00197  M00S00191.1mv     +++| BEGIN    BSSN   16
00198  M00S00192.1mv     +++| T8       BSSN   1           SCRATCH
00199  M00S00193.1mv     +++| T9       BSSN   1           SCRATCH
00200  M00S00194.1mv     +++| CN       BSSN   5           CM WORD BUFFER (5 LOCATIONS)
00201  M00S00195.1mv     +++| CC       BSSN   1           CURRENT CHANNEL ORDINAL FOR DEVICE
00202  M00S00196.1mv     +++| DA       BSSN   1           CHANNEL COUNT - 1 FOR DEVICE
00203  M00S00197.1mv     +++| ES       BSSN   5           EST ENTRY (5 LOCATIONS)
00204  M00S00198.1mv     +++| EI       BSSN   1           SCRATCH
00205  M00S00199.1mv     +++| FC       BSSN   1           FUNCTION CODE
00206  M00S00200.1mv     +++| FP       BSSN   1           *SEQM* FUNCTION PARAMETER
00207  M00S00201.1mv     +++| HC       BSSN   1           HEAD PROCESSING COUNTER
Line S00202 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00208  M01S00202.ns2632b ---| MT       BSSN   1           SCRATCH CELL
Line S00001 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00209  M01S00001.ns2632b +++| MT       BSSN   1           MEDIA ERROR THRESHOLD (1MV)
00210  M01S00002.ns2632b +++|*                            SCRATCH CELL (2VA)
00211  M00S00203.1mv     +++| NS       BSSN   1           NUMBER OF SECTORS TO PROCESS
00212  M00S00204.1mv     +++| SU       BSSN   1           SINGLE UNIT SECTOR LIMIT
00213  M00S00205.1mv     +++| DP       BSSN   5           DEVICE SEEK PARAMETERS (5 LOCATIONS)
00214  M00S00206.1mv     +++|          ERRNG  50-*        DIRECT CELL OVERFLOW
00215  M00S00207.1mv     +++|          BSSN   57-*
00216  M00S00208.1mv     +++| SP       BSSN   1           STATISTICS BUFFER POINTER
00217  M00S00209.1mv     +++|          ERRNG  70-*        DIRECT CELL OVERFLOW
00218  M00S00210.1mv     +++| END      BSSN
00219  M00S00211.1mv     +++|
00220  M00S00212.1mv     +++| EQ       EQU    IR+2        EQUIPMENT ORDINAL TO PROCESS
00221  M00S00213.1mv     +++|****
00222  M00S00214.1mv     +++|          SPACE  4,10
00223  M00S00215.1mv     +++|****      ASSEMBLY CONSTANTS.
00224  M00S00216.1mv     +++|
00225  M00S00217.1mv     +++|
00226  M00S00218.1mv     +++| BUFL     EQU    502         PP BUFFER SIZE
00227  M00S00219.1mv     +++| BUFP     EQU    5252        BUFFER WORD PATTERN FOR WRITE/READ TEST
00228  M00S00220.1mv     +++| CH       EQU    0           MASS STORAGE CHANNEL
00229  M00S00221.1mv     +++| DVSC     EQU    3           DEVICE VERIFICATION SECTOR COUNT
00230  M00S00222.1mv     +++| FCOC     EQU    10          OPERATION COMPLETE FUNCTION CODE
00231  M00S00223.1mv     +++| FCGS     EQU    12          GENERAL STATUS FUNCTION CODE
00232  M00S00224.1mv     +++| FCFP     EQU    16          FORMAT 895 FUNCTION CODE
00233  M00S00225.1mv     +++| FPBL     EQU    22          PARAMETER BLOCK LENGTH FOR 895 FORMATTING
00234  M00S00226.1mv     +++| METH     EQU    6           MAINTENANCE CYLINDER MEDIA ERROR THRESHOLD
00235  M00S00227.1mv     +++|
00236  M00S00228.1mv     +++|
00237  M00S00229.1mv     +++|**        STATISTICS BUFFER DEFINITION.
00238  M00S00230.1mv     +++|
00239  M00S00231.1mv     +++|
00240  M00S00232.1mv     +++| BEGIN    BSSN   0
00241  M00S00233.1mv     +++| WCDB     BSSN   1           WRITE ERROR CODE BYTE
00242  M00S00234.1mv     +++| RCDB     BSSN   1           READ ERROR CODE BYTE
00243  M00S00235.1mv     +++| FMTB     BSSN   1           895 FORMATTING ERROR COUNT BYTE
00244  M00S00236.1mv     +++| WCTB     BSSN   1           WRITE ERROR COUNT BYTE
00245  M00S00237.1mv     +++| RCTB     BSSN   1           READ ERROR COUNT BYTE
00246  M00S00238.1mv     +++| VCTB     BSSN   1           VERIFY ERROR COUNT BYTE
00247  M00S00239.1mv     +++| FMNB     BSSN   3           FAMILY/PACK NAME BYTES
00248  M00S00240.1mv     +++| DNMB     BSSN   1           DEVICE NUMBER BYTE
00249  M00S00241.1mv     +++| EMNB     BSSN   1           EQUIPMENT MNEMONIC BYTE
00250  M00S00242.1mv     +++| LREB     BSSN   1           LABEL READ ERROR CODE
00251  M00S00243.1mv     +++| LEFB     BSSN   1           LABEL ERROR FLAGS
00252  M00S00244.1mv     +++| MXNB     BSSN   0           MAXIMUM STATUS BUFFER BYTES
00253  M00S00245.1mv     +++| END      BSSN
00254  M00S00246.1mv     +++| TBUFL    EQU    2*10*MXNB   TOTAL BUFFER LENGTH IN PP BYTES
00255  M00S00247.1mv     +++|****
00256  M00S00248.1mv     +++|          TITLE  MAIN PROGRAM.
00257  M00S00249.1mv     +++|**        1MV - MAIN PROGRAM.
00258  M00S00250.1mv     +++|
00259  M00S00251.1mv     +++|
00260  M00S00252.1mv     +++|          ORG    PPFW
00261  M00S00253.1mv     +++| IMV      LJM    PRS         PRESET PROGRAM
00262  M00S00254.1mv     +++| DPP      SPACE  4,10
00263  M00S00255.1mv     +++|**        DROP PP.
00264  M00S00256.1mv     +++|
00265  M00S00257.1mv     +++|
00266  M00S00258.1mv     +++| DPP      RJM    RAE         RELEASE ASSIGNED EQUIPMENT
Line S00001 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00267  M01S00001.283l840 +++|          RJM    CVI         CLEAR VERIFICATION INTERLOCK
00268  M00S00259.1mv     +++|          MONITOR  DPPM      DROP PP
00269  M00S00260.1mv     +++|          LJM    PPR         EXIT TO PP RESIDENT
00270  M00S00261.1mv     +++|          TITLE  FUNCTION PROCESSORS.
00271  M00S00262.1mv     +++| DVFC     SPACE  4,10
00272  M00S00263.1mv     +++|**        DVFC - DEVICE VERIFICATION AND CLEAR SUSPECT.
00273  M00S00264.1mv     +++|*
00274  M00S00265.1mv     +++|*         ENTRY  (IR+2) = EST ORDINAL TO VERIFY.
00275  M00S00266.1mv     +++|*                (IR+3) = UPPER 6 BITS IS FUNCTION CODE *DVFC*.
00276  M00S00267.1mv     +++|
00277  M00S00268.1mv     +++|
00278  M00S00269.1mv     +++| DVF      ENTRY              ENTRY
00279  M00S00270.1mv     +++|          RJM    DHV         PERFORM DEVICE VERIFICATION
00280  M00S00271.1mv     +++|          RJM    LBV         PERFORM LABEL VERIFICATION
00281  M00S00272.1mv     +++| DVF1     RJM    CFE         CHECK FOR ERRORS
00282  M00S00273.1mv     +++|          MJN    DVF2        IF ERRORS
00283  M00S00274.1mv     +++|          LDN    CSES        CLEAR SUSPECT
00284  M00S00275.1mv     +++|          RJM    SDA         SET DEVICE AVAILABLE
00285  M00S00276.1mv     +++|          RJM    IPE         ISSUE REMOVABLE PACK EVENT
00286  M00S00277.1mv     +++| DVF2     CMSTF  L1MV        CLEAR *1MV* ACTIVE FLAG
00287  M00S00278.1mv     +++| DVF3     UJP    DPP         DROP PP
00288  M00S00279.1mv     +++| ONFC     SPACE  4,10
00289  M00S00280.1mv     +++|**        ONFC - DEVICE VERIFICATION AND SET DEVICE *ON*.
00290  M00S00281.1mv     +++|*
00291  M00S00282.1mv     +++|*         ENTRY  (IR+2) = EST ORDINAL TO VERIFY.
00292  M00S00283.1mv     +++|*                (IR+3) = UPPER 6 BITS IS FUNCTION CODE *ONFC*.
00293  M00S00284.1mv     +++|
00294  M00S00285.1mv     +++|
00295  M00S00286.1mv     +++| ONF      ENTRY              ENTRY
00296  M00S00287.1mv     +++|          RJM    DHV         PERFORM DEVICE VERIFICATION
00297  M00S00288.1mv     +++|          RJM    LBV         PERFORM LABEL VERIFICATION
00298  M00S00289.1mv     +++| ONF1     RJM    CFE         CHECK FOR ERRORS
00299  M00S00290.1mv     +++|          MJN    ONF2        IF ERRORS
00300  M00S00291.1mv     +++|          LDN    ONES        SET DEVICE ON
00301  M00S00292.1mv     +++|          RJM    SDA         SET DEVICE AVAILABLE
00302  M00S00293.1mv     +++|*         LDN    0
00303  M00S00294.1mv     +++|          RJM    SVF         CLEAR VERIFICATION FAILURE COUNT
00304  M00S00295.1mv     +++| ONF2     UJN    DVF3        DROP PP
00305  M00S00296.1mv     +++| IDFC     SPACE  4,10
00306  M00S00297.1mv     +++|**        IDFC - DEVICE VERIFICATION AND SET DEVICE *IDLE*.
00307  M00S00298.1mv     +++|*
00308  M00S00299.1mv     +++|*         ENTRY  (IR+2) = EST ORDINAL TO VERIFY.
00309  M00S00300.1mv     +++|*                (IR+3) = UPPER 6 BITS IS FUNCTION CODE *IDFC*.
00310  M00S00301.1mv     +++|
00311  M00S00302.1mv     +++|
00312  M00S00303.1mv     +++| IDF      ENTRY              ENTRY
00313  M00S00304.1mv     +++|          RJM    DHV         PERFORM DEVICE VERIFICATION
00314  M00S00305.1mv     +++|          RJM    LBV         PERFORM LABEL VERIFICATION
00315  M00S00306.1mv     +++| IDF1     RJM    CFE         CHECK FOR ERRORS
00316  M00S00307.1mv     +++|          MJN    IDF2        IF ERRORS
00317  M00S00308.1mv     +++|          LDN    IDES        SET DEVICE IN *IDLE* STATE
00318  M00S00309.1mv     +++|          RJM    SDA         SET DEVICE AVAILABLE
00319  M00S00310.1mv     +++| IDF2     UJN    ONF2        DROP PP
00320  M00S00311.1mv     +++| LVA      SPACE  4,10
00321  M00S00312.1mv     +++|**        LVFC - LABEL VERIFICATION AND SET DEVICE *OFF*.
00322  M00S00313.1mv     +++|*
00323  M00S00314.1mv     +++|*         ENTRY  (IR+2) = EST ORDINAL TO VERIFY.
00324  M00S00315.1mv     +++|*                (IR+3) = UPPER 6 BITS IS FUNCTION CODE *OFFC*.
00325  M00S00316.1mv     +++|
00326  M00S00317.1mv     +++|
00327  M00S00318.1mv     +++| LVA      ENTRY              ENTRY
00328  M00S00319.1mv     +++|          RJM    LBV         PERFORM LABEL VERIFICATION
00329  M00S00320.1mv     +++|          RJM    CFE         CHECK FOR ERRORS
00330  M00S00321.1mv     +++|          MJN    LVA1        IF ERRORS
00331  M00S00322.1mv     +++|          LDN    OFES        SET DEVICE OFF
00332  M00S00323.1mv     +++|          RJM    CSF         ISSUE *SEQM* FUNCTION
00333  M00S00324.1mv     +++| LVA1     UJN    IDF2        DROP PP
00334  M00S00325.1mv     +++| MVA      SPACE  4,10
00335  M00S00326.1mv     +++|**        MVFC - MEDIA VERIFICATION OF A PARTICULAR TRACK.
00336  M00S00327.1mv     +++|*
00337  M00S00328.1mv     +++|*         ENTRY  (IR+2) = EST ORDINAL TO PROCESS.
00338  M00S00329.1mv     +++|*                (IR+3) = UPPER 6 BITS IS FUNCTION CODE *MVFC*.
00339  M00S00330.1mv     +++|*                (IR+4) = LOGICAL TRACK NUMBER TO VERIFY.
00340  M00S00331.1mv     +++|
00341  M00S00332.1mv     +++|
00342  M00S00333.1mv     +++| MVA      ENTRY              ENTRY
00343  M00S00334.1mv     +++|          LDD    ES+4        READ MAXIMUM TRACKS
00344  M00S00335.1mv     +++|          SHN    3
00345  M00S00336.1mv     +++|          ADK    TDGL
00346  M00S00337.1mv     +++|          CRD    CM
00347  M00S00338.1mv     +++|          LDD    IR+4        PRESET TRACK NUMBER TO PROCESS
00348  M00S00339.1mv     +++|          STD    T6
00349  M00S00340.1mv     +++|          LPC    3777
00350  M00S00341.1mv     +++|          SBD    CM
00351  M00S00342.1mv     +++|          PJP    MVA6        IF BEYOND END OF TRT
00352  M00S00343.1mv     +++|          SETMS  IOCH,(AD,DE,DF,ND,NR),DBUF
00353  M00S00344.1mv     +++|          RJM    FBP         FILL BUFFER WITH WRITE PATTERN
00354  M00S00345.1mv     +++|
00355  M00S00346.1mv     +++|*         WRITE, READ AND VERIFY ENTIRE TRACK.
00356  M00S00347.1mv     +++|
00357  M00S00348.1mv     +++|          LDD    T4          SET CHANNEL FOR BUFFERED DEVICE
00358  M00S00349.1mv     +++| MVA1     STM    STSB
00359  M00S00350.1mv     +++|          LDN    0           INITIALIZE SECTOR NUMBER
00360  M00S00351.1mv     +++|          STD    T7
00361  M00S00352.1mv     +++|          LDN    MXSC        SET SECTOR COUNT
00362  M00S00353.1mv     +++|          STD    NS
00363  M00S00354.1mv     +++| MVA2     SBD    NS
00364  M00S00355.1mv     +++|          PJN    MVA3        IF NOT MAXIMUM SECTORS TO PROCESS
00365  M00S00356.1mv     +++|          RAD    NS
00366  M00S00357.1mv     +++| MVA3     RJM    WCS         WRITE CONSECUTIVE SECTORS
00367  M00S00358.1mv     +++|          NJN    MVA5        IF WRITE ERRORS
00368  M00S00359.1mv     +++|          RJM    RCS         READ BACK SECTOR DATA
00369  M00S00360.1mv     +++|          NJN    MVA5        IF READ ERRORS
00370  M00S00361.1mv     +++|          RJM    VBD         VERIFY BUFFER DATA
00371  M00S00362.1mv     +++|          NJN    MVA5        IF DATA VERIFICATION ERRORS
00372  M00S00363.1mv     +++|          LDM    SLM
00373  M00S00364.1mv     +++|          SBD    T7
00374  M00S00365.1mv     +++|          NJN    MVA2        IF NOT SECTOR LIMIT
00375  M00S00366.1mv     +++|          RJM    SNC
00376  M00S00367.1mv     +++|          PJP    MVA1        IF ANOTHER CHANNEL TO PROCESS
00377  M00S00368.1mv     +++|          LDD    EQ
00378  M00S00369.1mv     +++|          STD    CM+1
00379  M00S00370.1mv     +++|          LDD    IR+4        TRACK NUMBER TO CLEAR FLAW ON
00380  M00S00371.1mv     +++|          STD    CM+2
00381  M00S00372.1mv     +++|          LDN    CTFS
00382  M00S00373.1mv     +++|          STD    CM+3
00383  M00S00374.1mv     +++|          MONITOR  STBM
00384  M00S00375.1mv     +++|          UJN    MVA6        RETURN
00385  M00S00376.1mv     +++|
00386  M00S00377.1mv     +++| MVA5     ENDMS
00387  M00S00378.1mv     +++|          LDK    /COMSDFS/HS0105  ISSUE BML MESSAGE
00388  M00S00379.1mv     +++|          RJM    IBM
00389  M00S00380.1mv     +++| MVA6     LDD    EQ          CLEAR TRACK NUMBER IN MST
00390  M00S00381.1mv     +++|          STD    CM+1
00391  M00S00382.1mv     +++|          LDD    IR+4
00392  M00S00383.1mv     +++|          STD    CM+2
00393  M00S00384.1mv     +++|          LDN    CFTS        CONDTIONALLY CLEAR TRACK NUMBER
00394  M00S00385.1mv     +++|          STD    CM+3
00395  M00S00386.1mv     +++|          MONITOR  SMDM
00396  M00S00387.1mv     +++| MVA7     UJP    DVF2        CLEAR *1MV* ACTIVE AND DROP PP
00397  M00S00388.1mv     +++| UCFC     SPACE  4,10
00398  M00S00389.1mv     +++|**        UCFC - DATA PATH VERIFICATION AND SET CHANNEL STATE = *UP*.
00399  M00S00390.1mv     +++|*
00400  M00S00391.1mv     +++|*         ENTRY  (IR+2) = EST ORDINAL OF EQUIPMENT TO VERIFY.
00401  M00S00392.1mv     +++|*                (IR+3) = UPPER 6 BITS IS FUNCTION CODE *UCFC*.
00402  M00S00393.1mv     +++|*                (IR+4) = CHANNEL NUMBER, INCLUDING CONCURRENCY FLAG.
00403  M00S00394.1mv     +++|
00404  M00S00395.1mv     +++|
00405  M00S00396.1mv     +++| UCF      ENTRY              ENTRY
00406  M00S00397.1mv     +++| UCF1     LDM    TSCH,CC
00407  M00S00398.1mv     +++|          STD    T4          STORE CHANNEL FOR VERIFICATION PROCESSOR
00408  M00S00399.1mv     +++|          STM    TSCH
00409  M00S00400.1mv     +++|          LMD    IR+4
00410  M00S00401.1mv     +++|          ZJN    UCF3        IF CHANNEL FOUND IN TABLE
00411  M00S00402.1mv     +++|          AOD    CC
00412  M00S00403.1mv     +++|          LMD    DA
00413  M00S00404.1mv     +++|          NJN    UCF1        IF ANOTHER CHANNEL
00414  M00S00405.1mv     +++| UCF2     UJN    MVA7        DROP PP
00415  M00S00406.1mv     +++|
00416  M00S00407.1mv     +++| UCF3     STD    CC          FORCE SINGLE CHANNEL VERIFICATION
Line S00408 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00417  M01S00408.ns2632  ---|          STM    DCHB
Line S00001 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00418  M01S00001.ns2632  +++|          STM    DCHA+4
00419  M00S00409.1mv     +++|          STM    HVLA        DISABLE HYDRA DIAGNOSTICS
00420  M00S00410.1mv     +++|          ADN    1
00421  M00S00411.1mv     +++|          STD    DA
Line S00001 Modification History
M01 (Added by) 1mv11
Seq #  *Modification Id* Act 
----------------------------+
00422  M01S00001.1mv11   +++|          LDD    ES
00423  M01S00002.1mv11   +++|          SHN    21-6
00424  M01S00003.1mv11   +++|          MJN    UCF5        IF UNAVAILABLE DEVICE
00425  M00S00412.1mv     +++|          RJM    DHV         PERFORM VERIFICATION ON SPECIFIED CHANNEL
00426  M00S00413.1mv     +++|          RJM    LBV         PERFORM LABEL VERIFICATION
00427  M00S00414.1mv     +++| UCF4     RJM    CFE         CHECK FOR ERRORS
00428  M00S00415.1mv     +++|          MJN    UCF2        IF ERRORS
00429  M00S00416.1mv     +++| UCF5     LDD    T5          SET CHANNEL STATE TO *UP*
00430  M00S00417.1mv     +++|          STD    CM+1
00431  M00S00418.1mv     +++|          LDM    TSCH        CHANNEL
00432  M00S00419.1mv     +++|          STD    CM+2
00433  M00S00420.1mv     +++|          LDK    SUCS        SUBFUNCTION
00434  M00S00421.1mv     +++|          STD    CM+3
00435  M00S00422.1mv     +++|          MONITOR  SCSM
00436  M00S00423.1mv     +++|          RJM    CEQ         CLEAR ERRORS FROM UNIT I/O QUEUE
00437  M00S00424.1mv     +++| UCF6     UJP    UCF2        CLEAR ACTIVE FLAG AND DROP PP
00438  M00S00425.1mv     +++| SCF      SPACE  4,10
00439  M00S00426.1mv     +++|**        SCFC - PERFORM DISK SWEEP CYCLING.
00440  M00S00427.1mv     +++|*
00441  M00S00428.1mv     +++|*         ENTRY  (IR+2) = EST ORDINAL OF EQUIPMENT ON WHICH TO PERFORM
00442  M00S00429.1mv     +++|*                         SWEEP CYCLING SEEK SEQUENCE.
00443  M00S00430.1mv     +++|*                (IR+3) = UPPER 6 BITS IS FUNCTION CODE *SCFC*.
00444  M00S00431.1mv     +++|
00445  M00S00432.1mv     +++|
00446  M00S00433.1mv     +++| SCF      ENTRY              ENTRY
00447  M00S00434.1mv     +++|          EXECUTE  0SC,OVLA  EXECUTE *0SC*
00448  M00S00435.1mv     +++|          UJN    UCF6        CLEAR ACTIVE FLAG AND DROP PP
00449  M00S00436.1mv     +++|          TITLE  SUBROUTINES.
Line S00003 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00450  M01S00003.ns2632b +++| AEC      SPACE  4,15
00451  M01S00004.ns2632b +++|**        AEC - ANALYZE ERROR CODE.
00452  M01S00005.ns2632b +++|*
00453  M01S00006.ns2632b +++|*         ENTRY  (RDCT) = 6/, 6/ EC.
00454  M01S00007.ns2632b +++|*                         EC = ERROR CODE.
00455  M01S00008.ns2632b +++|*                (MT) = MEDIA ERROR THRESHOLD.
00456  M01S00009.ns2632b +++|*
00457  M01S00010.ns2632b +++|*         EXIT   (A) = 0, IF *EC* IS *DRVE* OR *CRSE*.
00458  M01S00011.ns2632b +++|*                    = *PARE*, IF *EC*=*PARE* AND *METH* NOT EXCEEDED.
00459  M01S00012.ns2632b +++|*                    = 1/1, 1/D, 6/, 1/C, 3/, 6/ EC.
00460  M01S00013.ns2632b +++|*                      D = 1, IF *EC*=*DDFE*.
00461  M01S00014.ns2632b +++|*                      C = 1, IF CHANNEL OR CONTROLLER ERROR.
00462  M01S00015.ns2632b +++|*                (MT) DECREMENTED IF MEDIA ERROR ENCOUNTERED.
00463  M01S00016.ns2632b +++|*
00464  M01S00017.ns2632b +++|*         USES   MT.
00465  M01S00018.ns2632b +++|
00466  M01S00019.ns2632b +++|
00467  M01S00020.ns2632b +++| AEC1     LDD    MT          MEDIA ERROR THRESHOLD
00468  M01S00021.ns2632b +++|          ZJN    AEC3        IF TOO MANY MEDIA ERRORS
00469  M01S00022.ns2632b +++|          SOD    MT
00470  M01S00023.ns2632b +++|          LDK    PARE+1000*IDC.ME
00471  M01S00024.ns2632b +++|          UJN    AECX        RETURN
00472  M01S00025.ns2632b +++|
00473  M01S00026.ns2632b +++| AEC2     LMC    SHNI&77&DDFE
00474  M01S00027.ns2632b +++|          STM    AECA
00475  M01S00028.ns2632b +++|          LDC    AECB        BIT MAP OF ERRORS INVOLVING CHAN/CONT
00476  M01S00029.ns2632b +++|          SHN    0-**        POSITION BIT CORRESPONDING TO ERROR
00477  M01S00030.ns2632b +++| AECA     EQU    *-1
00478  M01S00031.ns2632b +++|          LPN    1
00479  M01S00032.ns2632b +++|          LMK    IDC.ME
00480  M01S00033.ns2632b +++|          SHN    9D
00481  M01S00034.ns2632b +++|          LMD    T0
00482  M01S00035.ns2632b +++| AEC3     LMC    400000+PARE+1000*IDC.ME
00483  M01S00036.ns2632b +++|
00484  M01S00037.ns2632b +++| AEC      SUBR               ENTRY/EXIT
00485  M01S00038.ns2632b +++|          LDM    RDCT
00486  M01S00039.ns2632b +++|          LPN    77
00487  M01S00040.ns2632b +++|          LMN    DRVE
00488  M01S00041.ns2632b +++|          ZJN    AECX        IF DRIVE RESERVE ERROR
00489  M01S00042.ns2632b +++|          LMN    CRSE&DRVE
00490  M01S00043.ns2632b +++|          ZJN    AECX        IF CONTROLLER RESERVE ERROR
00491  M01S00044.ns2632b +++|          LMN    PARE&CRSE
00492  M01S00045.ns2632b +++|          ZJN    AEC1        IF MEDIA ERROR
00493  M01S00046.ns2632b +++|          STD    T0
00494  M01S00047.ns2632b +++|          LMN    DDFE&PARE
00495  M01S00048.ns2632b +++|          NJN    AEC2        IF NOT DIAGNOSTIC FAILURE
00496  M01S00049.ns2632b +++|          LDC    600000+1000*IDC.DF+DDFE
00497  M01S00050.ns2632b +++|          UJN    AECX        RETURN
00498  M01S00051.ns2632b +++|
00499  M01S00052.ns2632b +++|
00500  M01S00053.ns2632b +++|*         GENERATE THE SET OF ERROR CODES OF CHANNEL/CONTROLLER ERRORS.
00501  M01S00054.ns2632b +++|
00502  M01S00055.ns2632b +++| .1       SET    1
00503  M01S00056.ns2632b +++| .2       SET    0
00504  M01S00057.ns2632b +++| .A       ECHO   ,ES=("DREC")
00505  M01S00058.ns2632b +++| .B       IFEQ   IDC.ES,1
00506  M01S00059.ns2632b +++|          ERRNG  17D-.1      ERROR CODE OVER 17 IS CHAN/CONT ERROR CODE
00507  M01S00060.ns2632b +++| .1       DECMIC .1
00508  M01S00061.ns2632b +++| .2       SET    .2+1S".1"
00509  M01S00062.ns2632b +++| .B       ENDIF
00510  M01S00063.ns2632b +++| .1       SET    .1+1
00511  M01S00064.ns2632b +++| .A       ENDD
00512  M01S00065.ns2632b +++|
00513  M01S00066.ns2632b +++| AECB     EQU    .2
00514  M00S00437.1mv     +++| CDA      SPACE  4,10
00515  M00S00438.1mv     +++|**        CDA - CALCULATE PHYSICAL DISK ADDRESS.
00516  M00S00439.1mv     +++|*
00517  M00S00440.1mv     +++|*         ENTRY  (T4 - T7) = MASS STORAGE DRIVER PARAMETERS.
00518  M00S00441.1mv     +++|*                (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
00519  M00S00442.1mv     +++|*
00520  M00S00443.1mv     +++|*         EXIT   (DP - DP+4) = SEEK PARAMETERS.
00521  M00S00444.1mv     +++|*
Line S00445 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00522  M01S00445.271l716 ---|*         USES   T1, T2, CM - CM+4.
Line S00005 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00005.272l774 ---|*         USES   T1, T2, T3, T8, T9, CM - CM+4.
Line S00001 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00001.272l774 +++|*         USES   T1, T2, T3, T8, T9, CM - CM+4, DP - DP+4.
00525  M00S00446.1mv     +++|*
00526  M00S00447.1mv     +++|*         MACROS MONITOR.
00527  M00S00448.1mv     +++|
00528  M00S00449.1mv     +++|
Line S00450 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00529  M01S00450.271l716 ---| CDA5     LDD    MA          STORE LOGICAL DISK ADDRESS
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00530  M01S00006.271l716 +++| CDA9     LDD    MA          STORE LOGICAL DISK ADDRESS
00531  M00S00451.1mv     +++|          CWD    T4
00532  M00S00452.1mv     +++|          MONITOR  LDAM      CONVERT TO PHYSICAL ADDRESS
00533  M00S00453.1mv     +++|          LDD    MA
00534  M00S00454.1mv     +++|          ADN    1           RETRIEVE SEEK PARAMETERS
00535  M00S00455.1mv     +++|          CRD    DP
Line S00456 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00536  M01S00456.271l716 ---| CDA6     AOD    DP          FLAG DISK ADDRESS PRESENT
Line S00007 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00537  M01S00007.271l716 +++| CDA10    AOD    DP          FLAG DISK ADDRESS PRESENT
00538  M00S00457.1mv     +++|
00539  M00S00458.1mv     +++| CDA      SUBR               ENTRY/EXIT
00540  M00S00459.1mv     +++|          LDD    DP
00541  M00S00460.1mv     +++|          NJN    CDAX        IF ADDRESS ALREADY OBTAINED
00542  M00S00461.1mv     +++|          STD    CM+1
Line S00001 Modification History
M01 (Added by) ns2546
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00001.271l716 ---|          LDD    ES+3
00544  M02S00002.271l716 ---|          LMC    2RDB
00545  M02S00003.271l716 ---|          ZJN    CDA0        IF 885-42
00546  M02S00004.271l716 ---|          LMN    2RDC&2RDB
00547  M02S00005.271l716 ---|          ZJN    CDA0        IF 895
Line S00462 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00548  M01S00462.271l716 ---|          LDD    ES          CHECK DEVICE TYPE
00549  M01S00463.271l716 ---|          SHN    21-7
00550  M01S00464.271l716 ---|          MJN    CDA5        IF *LDAM* DEVICE
Line S00465 Modification History
M01 (Removed by) ns2546
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00465.271l716 ---|          LDD    T6
Line S00006 Modification History
M01 (Added by) ns2546
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00006.271l716 ---| CDA0     LDD    T6
Line S00466 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00553  M01S00466.271l716 ---|          LPC    3777        UNPACK LOGICAL TRACK
00554  M01S00467.271l716 ---|          SHN    -1
00555  M01S00468.271l716 ---|          STD    DP+2        SET CYLINDER NUMBER
Line S00008 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00008.271l716 +++|          STD    T8          CLEAR PHYSICAL SECTOR ACCUMULATOR
00557  M01S00009.271l716 +++| CDAA     LDD    T6
00558  M01S00010.271l716 +++|*         UJN    CDA9        (NON-BUFFERED DEVICE)
00559  M01S00011.271l716 +++|          LPC    3777
00560  M01S00012.271l716 +++|          STD    T3          ITERATION COUNT FOR CONVERSION
00561  M00S00469.1mv     +++|
00562  M00S00470.1mv     +++|*         UNIT INDEX = SECTOR NUMBER / SINGLE UNIT SECTOR LIMIT.
00563  M00S00471.1mv     +++|
00564  M00S00472.1mv     +++|          LDD    T7          LOGICAL SECTOR NUMBER
Line S00013 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00565  M01S00013.271l716 +++|          STD    T9
00566  M00S00473.1mv     +++| CDA1     STD    T2
00567  M00S00474.1mv     +++|          AOD    DP          ADVANCE UNIT INDEX
00568  M00S00475.1mv     +++|          LDD    T2
00569  M00S00476.1mv     +++|          SBD    SU
00570  M00S00477.1mv     +++|          PJN    CDA1        IF DIVISION INCOMPLETE
00571  M00S00478.1mv     +++|          LDD    ES+4
00572  M00S00479.1mv     +++|          SHN    3
00573  M00S00480.1mv     +++|          ADN    DDLL        FETCH UNIT DESCRIPTOR WORD FROM MST
00574  M00S00481.1mv     +++|          CRD    CM
00575  M00S00482.1mv     +++|          SOD    DP
00576  M00S00483.1mv     +++|          SHN    -1
00577  M00S00484.1mv     +++|          LMC    -0          CALCULATE BYTE ADDRESS
00578  M00S00485.1mv     +++|          ADN    CM+4
00579  M00S00486.1mv     +++|          STD    T1
00580  M00S00487.1mv     +++|          LDD    DP
00581  M00S00488.1mv     +++|          LPN    1
00582  M00S00489.1mv     +++|          SHN    21-0        DETERMINE POSITION WITHIN BYTE
00583  M00S00490.1mv     +++|          LMI    T1
00584  M00S00491.1mv     +++|          PJN    CDA2        IF UNIT POSITIONED LOW
00585  M00S00492.1mv     +++|          SHN    -6
00586  M00S00493.1mv     +++| CDA2     LPN    77          EXTRACT UNIT NUMBER
00587  M00S00494.1mv     +++|          STD    DP+1
Line S00002 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00588  M01S00002.272l774 +++|          LDD    CM          MERGE WITH EQUIPMENT (CONTROLLER) NUMBER
00589  M01S00003.272l774 +++|          LPC    700
00590  M01S00004.272l774 +++|          RAD    DP+1
Line S00495 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00591  M01S00495.271l716 ---|          UJN    CDA4        BEGIN TRACK AND SECTOR CALCULATION
00592  M01S00496.271l716 ---|
00593  M01S00497.271l716 ---| CDA3     AOD    DP+3        ADVANCE TRACK NUMBER
00594  M01S00498.271l716 ---| CDA4     LDN    0
00595  M01S00499.271l716 ---|          SBM    DVSI        SECTOR INCREMENT TO NEXT HEAD
00596  M01S00500.271l716 ---|          RAD    T2
00597  M01S00501.271l716 ---|          PJN    CDA3        IF CALCULATION INCOMPLETE
00598  M01S00502.271l716 ---|          ADM    DVSI
00599  M01S00503.271l716 ---|          STD    DP+4
00600  M01S00504.271l716 ---|          LJM    CDA6        RETURN
Line S00014 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00601  M01S00014.271l716 +++|
00602  M01S00015.271l716 +++|*         CONVERT LOGICAL DISK ADDRESS TO RELATIVE SECTOR COUNT.
00603  M01S00016.271l716 +++|
00604  M01S00017.271l716 +++| CDA3     SOD    T3
Line S00018 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00018.284l847 ---|          MJN    CDA6        IF CONVERSION COMPLETE
Line S00001 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00606  M01S00001.284l847 +++|          MJN    CDA5        IF CONVERSION COMPLETE
Line S00019 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00607  M01S00019.271l716 +++|          LDM    LSLT
00608  M01S00020.271l716 +++|          RAD    T9          ADVANCE LOGICAL SECTOR COUNT
00609  M01S00021.271l716 +++|          SHN    -14
00610  M01S00022.271l716 +++|          RAD    T8
00611  M01S00023.271l716 +++|          UJN    CDA3        LOOP ON CONVERSION
00612  M01S00024.271l716 +++|
00613  M01S00025.271l716 +++|*         DIVIDE THE RELATIVE SECTOR COUNT BY THE NUMBER OF LOGICAL
00614  M01S00026.271l716 +++|*         SECTORS PER CYLINDER.
00615  M01S00027.271l716 +++|
Line S00028 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00028.284l847 ---| CDA5     AOD    DP+2        ADVANCE CYLINDER NUMBER
00617  M02S00029.284l847 ---| CDA6     LDN    0
00618  M02S00030.284l847 ---|          SBM    LSCY        DIVIDE BY ITERATIVE SUBTRACTION
Line S00002 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00619  M01S00002.284l847 +++| CDA4     AOD    DP+2        ADVANCE RELATIVE CYLINDER NUMBER
00620  M01S00003.284l847 +++| CDA5     LDM    LSCY
00621  M01S00004.284l847 +++|          STD    T0
00622  M01S00005.284l847 +++|          LDD    T9
00623  M01S00006.284l847 +++|          SBM    LSCY+1      DIVIDE BY ITERATIVE SUBTRACTION
00624  M01S00007.284l847 +++|          STD    T9
00625  M01S00008.284l847 +++|          PJN    CDA6        IF NO BORROW
00626  M01S00009.284l847 +++|          AOD    T9
00627  M01S00010.284l847 +++|          AOD    T0
00628  M01S00011.284l847 +++| CDA6     LDD    T8
00629  M01S00012.284l847 +++|          SBD    T0
00630  M01S00013.284l847 +++|          STD    T8
00631  M01S00014.284l847 +++|          PJN    CDA4        IF DIVISION NOT COMPLETE
00632  M01S00015.284l847 +++|          LDM    LSCY+1
Line S00031 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00633  M01S00031.271l716 +++|          RAD    T9
Line S00032 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00032.284l847 ---|          PJN    CDA5        IF NO UNDERFLOW
00635  M02S00033.284l847 ---|          AOD    T9
00636  M02S00034.284l847 ---|          SOD    T8
00637  M02S00035.284l847 ---|          PJN    CDA5        IF DIVISION INCOMPLETE
00638  M02S00036.284l847 ---|          LDM    LSCY
00639  M02S00037.284l847 ---|          RAD    T9
Line S00016 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00640  M01S00016.284l847 +++|          SHN    -14
00641  M01S00017.284l847 +++|          ADD    T0
00642  M01S00018.284l847 +++|          RAD    T8
00643  M01S00019.284l847 +++|          LDD    ES+4
00644  M01S00020.284l847 +++|          SHN    3
00645  M01S00021.284l847 +++|          ADN    SCYL        FETCH STARTING CYLINDER FROM MST
00646  M01S00022.284l847 +++|          CRD    CM
00647  M01S00023.284l847 +++|          LDD    CM+2        CONVERT RELATIVE CYLINDER TO ABSOLUTE
00648  M01S00024.284l847 +++|          RAD    DP+2
Line S00038 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00649  M01S00038.271l716 +++|          UJN    CDA8        COMPLETE ADDRESS CONVERSION
00650  M01S00039.271l716 +++|
00651  M01S00040.271l716 +++|*         DIVIDE THE REMAINDER OF THE ABOVE CALCULATION BY THE NUMBER
00652  M01S00041.271l716 +++|*         OF LOGICAL SECTORS PER PHYSICAL TRACK.
00653  M01S00042.271l716 +++|
00654  M01S00043.271l716 +++| CDA7     AOD    DP+3        ADVANCE PHYSICAL TRACK NUMBER
00655  M01S00044.271l716 +++| CDA8     LDN    0
00656  M01S00045.271l716 +++|          SBM    LSPT        DIVIDE BY ITERATIVE SUBTRACTION
00657  M01S00046.271l716 +++|          RAD    T9
00658  M01S00047.271l716 +++|          PJN    CDA7        IF NO UNDERFLOW
00659  M01S00048.271l716 +++|          ADM    LSPT
00660  M01S00049.271l716 +++| CDAB     SHN    0           SET PHYSICAL SECTOR NUMBER
00661  M01S00050.271l716 +++|          STD    DP+4
00662  M01S00051.271l716 +++|          LJM    CDA10       RETURN
00663  M00S00505.1mv     +++| CEQ      SPACE  4,10
00664  M00S00506.1mv     +++|**        CEQ - CLEAR ERRORS FROM UNIT I/O QUEUE.
00665  M00S00507.1mv     +++|*
00666  M00S00508.1mv     +++|*         ENTRY  (EQ) = EST ORDINAL.
00667  M00S00509.1mv     +++|*                (ES - ES+4) = EST ENTRY.
00668  M00S00510.1mv     +++|*
00669  M00S00511.1mv     +++|*         USES   CM - CM+4.
00670  M00S00512.1mv     +++|*
00671  M00S00513.1mv     +++|*         CALLS  SUT.
00672  M00S00514.1mv     +++|*
00673  M00S00515.1mv     +++|*         MACROS DELAY, MONITOR.
00674  M00S00516.1mv     +++|
00675  M00S00517.1mv     +++|
00676  M00S00518.1mv     +++| CEQ1     DELAY
00677  M00S00519.1mv     +++|          LDD    CN          *PUT* ORDINAL
00678  M00S00520.1mv     +++| CEQ2     STD    CM+2
00679  M00S00521.1mv     +++|          LDN    SUIS        *BIOM* SUBFUNCTION
00680  M00S00522.1mv     +++|          STD    CM+1
00681  M00S00523.1mv     +++|          MONITOR  BIOM      INTERLOCK *PUT* ENTRY
00682  M00S00524.1mv     +++|          LDD    CM+1
00683  M00S00525.1mv     +++|          NJN    CEQ1        IF CURRENTLY UNAVAILABLE
00684  M00S00526.1mv     +++|          LDD    CN
00685  M00S00527.1mv     +++|          STD    CM+2
00686  M00S00528.1mv     +++|          LDN    CETS        CLEAR ERROR STATUS FROM I/O QUEUE
00687  M00S00529.1mv     +++|          STD    CM+1
00688  M00S00530.1mv     +++|          MONITOR  BIOM
00689  M00S00531.1mv     +++|*         LDN    0           SCAN UNIT TABLE
00690  M00S00532.1mv     +++| CEQ3     RJM    SUT
00691  M00S00533.1mv     +++|          NJN    CEQ2        IF SPECIFIED DEVICE
00692  M00S00534.1mv     +++|
00693  M00S00535.1mv     +++| CEQ      SUBR               ENTRY/EXIT
00694  M00S00536.1mv     +++|          LDD    ES+3
00695  M00S00537.1mv     +++|          LMC    2RDV
00696  M00S00538.1mv     +++|          ZJN    CEQX        IF AN 819 DISK
00697  M00S00539.1mv     +++|          LMK    2RDW&2RDV
00698  M00S00540.1mv     +++|          ZJN    CEQX        IF AN 819 DISK
00699  M00S00541.1mv     +++|          LCN    0
00700  M00S00542.1mv     +++|          UJN    CEQ3        CLEAR ERRORS
Line S00543 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00701  M01S00543.ns2632b ---| CFE      SPACE  4,15
Line S00067 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00702  M01S00067.ns2632b +++| CFE      SPACE  4,25
00703  M00S00544.1mv     +++|**        CFE - CHECK FOR ERRORS.
00704  M00S00545.1mv     +++|*
00705  M00S00546.1mv     +++|*         ENTRY  (DVC1) = CHANNEL 1 DEVICE STATISTICS.
00706  M00S00547.1mv     +++|*                (DVC2) = CHANNEL 2 DEVICE STATISTICS.
00707  M00S00548.1mv     +++|*
00708  M00S00549.1mv     +++|*         EXIT   (A) .LT. 0 IF ERRORS FOUND.
00709  M00S00550.1mv     +++|*                *1DS* CALLED TO DOWN CHANNEL IF ERRORS ON ONE OF TWO
00710  M00S00551.1mv     +++|*                CHANNELS OR PATH VERIFICATION FAILURE.
00711  M00S00552.1mv     +++|*                DEVICE DOWNED IF VERIFY ERRORS.
00712  M00S00553.1mv     +++|*                DEVICE TURNED OFF IF OTHER ERRORS.
00713  M00S00554.1mv     +++|*
Line S00555 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00714  M01S00555.ns2632b ---|*         USES   CC, T2, T3, CM - CM+4, CN - CN+4.
Line S00068 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00715  M01S00068.ns2632b +++|*         USES   CC, SP, T2, T3, CM - CM+4, CN - CN+4.
00716  M00S00556.1mv     +++|*
00717  M00S00557.1mv     +++|*         CALLS  CSF, DCH, IBM, SVF, VSF.
Line S00069 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00718  M01S00069.ns2632b +++|*
00719  M01S00070.ns2632b +++|*         NOTE - *CFE* USES CM - CM+4 AND CN - CN+4 TO ACCUMULATE ANY
00720  M01S00071.ns2632b +++|*                ERRORS DETECTED ON THE FIRST AND SECOND CHANNELS,
00721  M01S00072.ns2632b +++|*                RESPECTIVELY.  THE FIVE BYTES ARE USED AS FOLLOWS -
00722  M01S00073.ns2632b +++|*
00723  M01S00074.ns2632b +++|*                BYTE 0 = CHANNEL NUMBER.
00724  M01S00075.ns2632b +++|*                BYTE 1 = VERIFICATION ERROR COUNT.
00725  M01S00076.ns2632b +++|*                BYTE 2 = TOTAL ERROR COUNT.
00726  M01S00077.ns2632b +++|*                BYTE 3 = UNREPAIRABLE ERROR COUNT.
00727  M01S00078.ns2632b +++|*                BYTE 4 = CHANNEL/CONTROLLER ERROR COUNT.
00728  M00S00558.1mv     +++|
00729  M00S00559.1mv     +++|
00730  M00S00560.1mv     +++| CFE      SUBR               ENTRY/EXIT
00731  M00S00561.1mv     +++|          LDN    ZERL        CLEAR CHANNEL ERROR COUNTS
00732  M00S00562.1mv     +++|          CRD    CM
00733  M00S00563.1mv     +++|          CRD    CN
00734  M00S00564.1mv     +++|          LDN    CM          SET FIRST CHANNEL ACCUMULATOR ADDRESS
00735  M00S00565.1mv     +++|          STD    T2
00736  M00S00566.1mv     +++|          LDC    DVC1        BUFFER START ADDRESS
00737  M00S00567.1mv     +++|          STD    SP
00738  M00S00568.1mv     +++|          LDN    0
00739  M00S00569.1mv     +++|          STD    CC
Line S00570 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00740  M01S00570.ns2632b ---| CFE1     LDN    10          SET UNIT COUNT
Line S00079 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00741  M01S00079.ns2632b +++| CFE1     LDM    TSCH,CC     SET CHANNEL NUMBER
00742  M01S00080.ns2632b +++|          STI    T2
00743  M01S00081.ns2632b +++|          LDN    10          SET UNIT COUNT
00744  M00S00571.1mv     +++|          STD    T3
00745  M00S00572.1mv     +++| CFE2     LDM    VCTB,SP     ACCUMULATE VERIFY ERROR COUNTS
00746  M00S00573.1mv     +++|          ZJN    CFE3        IF NO VERIFY ERROR
Line S00574 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00747  M01S00574.ns2632b ---|          AOI    T2          COUNT VERIFY ERROR THIS UNIT
Line S00082 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00748  M01S00082.ns2632b +++|          AOM    1,T2        COUNT VERIFY ERROR THIS UNIT
00749  M00S00575.1mv     +++| CFE3     LDM    LEFB,SP     GET REPAIRABLE LABEL ERRORS
00750  M00S00576.1mv     +++|          LPC    **
00751  M00S00577.1mv     +++| CFEA     EQU    *-1         (SET BY PRESET)
00752  M00S00578.1mv     +++|          STD    T0
00753  M00S00579.1mv     +++|          LMM    LEFB,SP     ACCUMULATE READ/WRITE/LABEL ERROR COUNTS
Line S00580 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00754  M01S00580.ns2632b ---|          ADM    RCTB,SP
Line S00083 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00755  M01S00083.ns2632b +++|          ZJN    CFE3.1      IF NO UNREPAIRABLE LABEL ERRORS
00756  M01S00084.ns2632b +++|          LDN    1
00757  M01S00085.ns2632b +++| CFE3.1   ADM    RCTB,SP
00758  M00S00581.1mv     +++|          ADM    WCTB,SP
00759  M00S00582.1mv     +++|          ADM    FMTB,SP
Line S00583 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00760  M01S00583.ns2632b ---|          ZJN    CFE3.1      IF NO UNREPAIRABLE ERRORS
00761  M01S00584.ns2632b ---|          AOM    2,T2        COUNT UNREPAIRABLE ERRORS
00762  M01S00585.ns2632b ---| CFE3.1   ADD    T0
Line S00086 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00763  M01S00086.ns2632b +++|          ZJN    CFE3.3      IF NO UNREPAIRABLE ERRORS
00764  M01S00087.ns2632b +++|          SHN    -9D
00765  M01S00088.ns2632b +++|          ZJN    CFE3.2      IF NO CHANNEL/CONTROLLER ERRORS
00766  M01S00089.ns2632b +++|          AOM    4,T2        COUNT CHANNEL/CONTROLLER ERRORS
00767  M01S00090.ns2632b +++| CFE3.2   AOM    3,T2        COUNT UNREPAIRABLE ERRORS
00768  M01S00091.ns2632b +++| CFE3.3   ADD    T0
00769  M00S00586.1mv     +++|          ZJN    CFE4        IF NO ERRORS
Line S00587 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00770  M01S00587.ns2632b ---|          AOM    1,T2        COUNT ERRORS
Line S00092 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00771  M01S00092.ns2632b +++|          AOM    2,T2        COUNT ERRORS
00772  M00S00588.1mv     +++| CFE4     LDN    MXNB
00773  M00S00589.1mv     +++|          RAD    SP
00774  M00S00590.1mv     +++|          SOD    T3
Line S00591 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00775  M01S00591.ns2632b ---|          NJN    CFE2        IF NOT THROUGH WITH ALL UNITS
Line S00093 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00776  M01S00093.ns2632b +++|          NJP    CFE2        IF NOT THROUGH WITH ALL UNITS
00777  M00S00592.1mv     +++|          LDN    CN          SET SECOND CHANNEL ACCUMULATOR ADDRESS
00778  M00S00593.1mv     +++|          STD    T2
00779  M00S00594.1mv     +++|          AOD    CC
00780  M00S00595.1mv     +++|          LMD    DA
00781  M00S00596.1mv     +++|          NJP    CFE1        IF ANOTHER CHANNEL
00782  M00S00597.1mv     +++|          SOD    CC
00783  M00S00598.1mv     +++|          ZJN    CFE8        IF ONLY ONE CHANNEL
Line S00599 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00784  M01S00599.ns2632b ---|          LDD    CN
00785  M01S00600.ns2632b ---|          ADD    CN+1
Line S00094 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00786  M01S00094.ns2632b +++|          LDD    CN+1
00787  M00S00601.1mv     +++|          ADD    CN+2
00788  M00S00602.1mv     +++|          NJN    CFE5        IF ERRORS ON SECOND CHANNEL
Line S00603 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00603.ns2632b ---|          LDD    CM
00790  M01S00604.ns2632b ---|          ADD    CM+1
Line S00095 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00791  M01S00095.ns2632b +++|          LDD    CM+1
00792  M00S00605.1mv     +++|          ADD    CM+2
00793  M00S00606.1mv     +++|          ZJN    CFE7        IF NO ERROR ON PRIMARY CHANNEL
00794  M00S00607.1mv     +++|
00795  M00S00608.1mv     +++|*         ERROR EXISTS ON PRIMARY CHANNEL BUT NOT ON SECONDARY CHANNEL.
00796  M00S00609.1mv     +++|
Line S00610 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00797  M01S00610.ns2632b ---|          LDM    TSCH
Line S00096 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00798  M01S00096.ns2632b +++|          LDN    CM
00799  M00S00611.1mv     +++|          UJN    CFE6        DOWN CHANNEL
00800  M00S00612.1mv     +++|
Line S00613 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00801  M01S00613.ns2632b ---| CFE5     LDD    CM
00802  M01S00614.ns2632b ---|          ADD    CM+1
Line S00097 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00803  M01S00097.ns2632b +++| CFE5     LDD    CM+1
00804  M00S00615.1mv     +++|          ADD    CM+2
00805  M00S00616.1mv     +++|          NJN    CFE8        IF ERRORS ON BOTH CHANNELS
Line S00617 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00806  M01S00617.ns2632b ---|          LDM    TSCH+1
Line S00098 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00807  M01S00098.ns2632b +++|          LDN    CN
00808  M00S00618.1mv     +++| CFE6     RJM    DCH         DOWN CHANNEL
00809  M00S00619.1mv     +++| CFE7     RJM    VSF         VERIFY SYSTEM FILE
00810  M00S00620.1mv     +++|          UJP    CFEX        RETURN
00811  M00S00621.1mv     +++|
Line S00622 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00812  M01S00622.ns2632b ---| CFE8     LDD    CM
00813  M01S00623.ns2632b ---|          ADD    CN
Line S00099 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00814  M01S00099.ns2632b +++| CFE8     LDD    CM+1
00815  M01S00100.ns2632b +++|          ADD    CN+1
00816  M00S00624.1mv     +++|          NJP    CFE10       IF DATA VERIFICATION ERRORS
Line S00625 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00817  M01S00625.ns2632b ---|          LDD    CM+1
00818  M01S00626.ns2632b ---|          ADD    CN+1
Line S00101 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00819  M01S00101.ns2632b +++|          LDD    CM+2
00820  M01S00102.ns2632b +++|          ADD    CN+2
00821  M00S00627.1mv     +++|          ZJN    CFE7        IF NO READ/WRITE/LABEL ERRORS
Line S00628 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00822  M01S00628.ns2632b ---|          LDD    CM+2
00823  M01S00629.ns2632b ---|          ADD    CN+2
00824  M01S00630.ns2632b ---|          NJN    CFE8.2      IF UNREPAIRABLE ERRORS
Line S00103 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00825  M01S00103.ns2632b +++|          LDD    CM+3
00826  M01S00104.ns2632b +++|          ADD    CN+3
00827  M01S00105.ns2632b +++|          NJN    CFE9        IF UNREPAIRABLE ERRORS
00828  M00S00631.1mv     +++|          LJM    **          PROCESS REPAIRABLE ERROR
00829  M00S00632.1mv     +++| CFEB     EQU    *-1         (SET BY PRESET)
00830  M00S00633.1mv     +++|
Line S00634 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00831  M01S00634.ns2632  ---| CFE8.2   LDM    DCHB
Line S00002 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00002.ns2632b ---| CFE8.2   LDM    DCHA+4
Line S00106 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00833  M01S00106.ns2632b +++| CFE9     LDM    DCHA+4
00834  M00S00635.1mv     +++|          ZJN    CFE11       IF PATH VERIFICATION
00835  M00S00636.1mv     +++|          LDD    ES+4
00836  M00S00637.1mv     +++|          SHN    3
00837  M00S00638.1mv     +++|          ADN    CTLL
00838  M00S00639.1mv     +++|          CRD    CN
00839  M00S00640.1mv     +++|          AOD    CN          INCREMENT VERIFICATION FAILURE COUNTER
00840  M00S00641.1mv     +++|          RJM    SVF
00841  M00S00642.1mv     +++|          LDD    ES+4
00842  M00S00643.1mv     +++|          SHN    3
00843  M00S00644.1mv     +++|          ADN    THLL
00844  M00S00645.1mv     +++|          CRD    CM
00845  M00S00646.1mv     +++|          LDD    CN
00846  M00S00647.1mv     +++|          SBD    CM
00847  M00S00648.1mv     +++|          MJP    CFE7        IF COUNT BELOW THRESHOLD - CLEAR ERROR
00848  M00S00649.1mv     +++|          LDD    ES
00849  M00S00650.1mv     +++|          SHN    21-1
00850  M00S00651.1mv     +++|          MJN    CFE13       IF DEVICE OFF OR DOWN
00851  M00S00652.1mv     +++|          LDN    OFES
00852  M00S00653.1mv     +++|          RJM    CSF         ISSUE *SEQM*
00853  M00S00654.1mv     +++|          LDN    /COMSDFS/HS0030  ISSUE BML MESSAGE
00854  M00S00655.1mv     +++|          RJM    IBM
Line S00656 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00855  M01S00656.ns2632b ---| CFE9     UJN    CFE13       RETURN
Line S00107 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00107.ns2632b +++|          UJN    CFE13       RETURN
00857  M00S00657.1mv     +++|
Line S00658 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00858  M01S00658.ns2632  ---| CFE10    LDM    DCHB
Line S00003 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00859  M01S00003.ns2632  +++| CFE10    LDM    DCHA+4
00860  M00S00659.1mv     +++|          NJN    CFE12       IF NOT PATH VERIFICATION
Line S00660 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00861  M01S00660.ns2632b ---| CFE11    LDD    IR+4
Line S00108 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00862  M01S00108.ns2632b +++| CFE11    LDN    CM
00863  M00S00661.1mv     +++|          RJM    DCH         DOWN CHANNEL
00864  M00S00662.1mv     +++|          LDC    4000+UCFC
00865  M00S00663.1mv     +++|          RJM    IBM         ISSUE ERROR LOG MESSAGE
Line S00664 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00664.ns2632  ---|          UJN    CFE13       RETURN
Line S00004 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00867  M01S00004.ns2632  +++|          UJN    CFE14       RETURN
00868  M00S00665.1mv     +++|
00869  M00S00666.1mv     +++|*         DOWN DEVICE WHEN VERIFY ERRORS ARE PRESENT ON ALL CHANNELS.
00870  M00S00667.1mv     +++|
00871  M00S00668.1mv     +++| CFE12    LDD    ES          CHECK DEVICE STATE
00872  M00S00669.1mv     +++|          LPN    3
00873  M00S00670.1mv     +++|          LMN    3
00874  M00S00671.1mv     +++|          ZJN    CFE13       IF DEVICE DOWN
00875  M00S00672.1mv     +++|          LDN    DWES        RETURN DOWN STATUS
00876  M00S00673.1mv     +++|          RJM    CSF         ISSUE *SEQM*
00877  M00S00674.1mv     +++|          LDN    /COMSDFS/HS0034  ISSUE BML MESSAGE
00878  M00S00675.1mv     +++|          RJM    IBM
00879  M00S00676.1mv     +++| CFE13    LCN    0
Line S00677 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00880  M01S00677.ns2632  ---|          LJM    CFEX        RETURN
Line S00005 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00881  M01S00005.ns2632  +++| CFE14    LJM    CFEX        RETURN
00882  M00S00678.1mv     +++| CSF      SPACE  4,15
00883  M00S00679.1mv     +++|**        CSF - CALL *SEQM* SUBFUNCTION.
00884  M00S00680.1mv     +++|*
00885  M00S00681.1mv     +++|*         ENTRY  (A) = *SEQM* SUBFUNCTION.
00886  M00S00682.1mv     +++|*                (EQ) = EST ORDINAL.
00887  M00S00683.1mv     +++|*                (ES - ES+4) = EST ENTRY.
00888  M00S00684.1mv     +++|*
00889  M00S00685.1mv     +++|*         USES   T3, CM - CM+4.
00890  M00S00686.1mv     +++|*
00891  M00S00687.1mv     +++|*         CALLS  RAE.
00892  M00S00688.1mv     +++|*
00893  M00S00689.1mv     +++|*         MACROS MONITOR, SFA.
00894  M00S00690.1mv     +++|
00895  M00S00691.1mv     +++|
00896  M00S00692.1mv     +++| CSF      SUBR               ENTRY/EXIT
00897  M00S00693.1mv     +++|          STD    T3
00898  M00S00694.1mv     +++|          LDD    ES          CHECK DEVICE STATE
00899  M00S00695.1mv     +++|          LPN    3
00900  M00S00696.1mv     +++|          LMN    3
00901  M00S00697.1mv     +++|          NJN    CSF1        IF NOT *DOWN*
00902  M00S00698.1mv     +++|          RJM    RAE         RELEASE ASSIGNED EQUIPMENT
00903  M00S00699.1mv     +++| CSF1     LDD    T3
00904  M00S00700.1mv     +++|          STD    CM+2        SET SUBFUNCTION FOR *SEQM* CALL
00905  M00S00701.1mv     +++|          LDD    EQ
00906  M00S00702.1mv     +++|          STD    CM+1
00907  M00S00703.1mv     +++|          LDN    0
00908  M00S00704.1mv     +++|          STD    CM+4
00909  M00S00705.1mv     +++|          MONITOR  SEQM
00910  M00S00706.1mv     +++|          SFA    EST,EQ      REREAD EST ENTRY
00911  M00S00707.1mv     +++|          ADK    EQDE
00912  M00S00708.1mv     +++|          CRD    ES
00913  M00S00709.1mv     +++|          UJN    CSFX        RETURN
Line S00002 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00914  M01S00002.283l840 +++| CVI      SPACE  4,10
00915  M01S00003.283l840 +++|**        CVI - CLEAR VERIFICATION INTERLOCK.
00916  M01S00004.283l840 +++|*
00917  M01S00005.283l840 +++|*         ENTRY  (CVIA) = EST ORDINAL OF DEVICE WITH INTERLOCK SET.
00918  M01S00006.283l840 +++|*
00919  M01S00007.283l840 +++|*         USES   CM - CM+4.
00920  M01S00008.283l840 +++|*
00921  M01S00009.283l840 +++|*         MACROS MONITOR.
00922  M01S00010.283l840 +++|
00923  M01S00011.283l840 +++|
00924  M01S00012.283l840 +++| CVI      SUBR               ENTRY/EXIT
00925  M01S00013.283l840 +++|          LDN    ZERL
00926  M01S00014.283l840 +++|          CRD    CM
00927  M01S00015.283l840 +++|          LDC    **          (EST ORDINAL OF DEVICE WITH INTERLOCK SET)
00928  M01S00016.283l840 +++| CVIA     EQU    *-1
00929  M01S00017.283l840 +++|          ZJN    CVIX        IF NO INTERLOCK SET
00930  M01S00018.283l840 +++|          STD    CM+1        SET EST ORDINAL
00931  M01S00019.283l840 +++|          LDN    CVIS        CLEAR DEVICE VERIFICATION INTERLOCK
00932  M01S00020.283l840 +++|          STD    CM+3
00933  M01S00021.283l840 +++|          MONITOR  STBM
00934  M01S00022.283l840 +++|*         LDN    0
00935  M01S00023.283l840 +++|          STM    CVIA        CLEAR EST ORDINAL
00936  M01S00024.283l840 +++|          UJN    CVIX        RETURN
00937  M00S00710.1mv     +++| DCH      SPACE  4,10
00938  M00S00711.1mv     +++|**        DCH - DOWN CHANNEL.
00939  M00S00712.1mv     +++|*
Line S00713 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00713.ns2632b ---|*         ENTRY  (A) = CHANNEL NUMBER, INCLUDING CONCURRENCY FLAG.
Line S00109 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00941  M01S00109.ns2632b +++|*         ENTRY  (A) = ADDRESS OF CHANNEL SUMMARY.
00942  M01S00110.ns2632b +++|*                ((A)) = CHANNEL NUMBER.
00943  M01S00111.ns2632b +++|*                ((A)+4) = CHANNEL/CONTROLLER ERROR COUNT.
00944  M01S00112.ns2632b +++|*                (EQ) = EST ORDINAL OF EQUIPMENT BEING VERIFIED.
Line S00714 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00945  M01S00714.ns2632  ---|*                (T5) = EST ORDINAL.
00946  M00S00715.1mv     +++|*
00947  M00S00716.1mv     +++|*         USES   CM - CM+4.
00948  M00S00717.1mv     +++|*
00949  M00S00718.1mv     +++|*         MACROS EXECUTE, MONITOR.
00950  M00S00719.1mv     +++|
00951  M00S00720.1mv     +++|
00952  M00S00721.1mv     +++| DCH      SUBR               ENTRY/EXIT
Line S00113 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00953  M01S00113.ns2632b +++|          STD    CM+1
00954  M01S00114.ns2632b +++|          LDI    CM+1
00955  M00S00722.1mv     +++|          STM    DCHA+3      SAVE CHANNEL AND CONCURRENCY FLAG
Line S00723 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00956  M01S00723.ns2632  ---|          LDD    T5          STORE EST ORDINAL IN *1DS* CALL
00957  M01S00724.ns2632  ---|          LMC    4000        SET DRIVER CALL FLAG
00958  M01S00725.ns2632  ---|*         LMC    0           (PATH VERIFICATION FAILURE)
00959  M01S00726.ns2632  ---| DCHB     EQU    *-1
00960  M01S00727.ns2632  ---|          STM    DCHA+4
Line S00728 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00961  M01S00728.ns2632b ---|          LDD    MA
Line S00115 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
00962  M01S00115.ns2632b +++|          LDM    4,CM+1
00963  M01S00116.ns2632b +++|          NJN    DCH1        IF CHANNEL/CONTROLLER ERRORS DETECTED
00964  M01S00117.ns2632b +++|          LDD    EQ          SET EST ORDINAL IN REQUEST
00965  M01S00118.ns2632b +++|          RAM    DCHA+4
00966  M01S00119.ns2632b +++| DCH1     LDD    MA
00967  M00S00729.1mv     +++|          CWM    DCHA,ON
00968  M00S00730.1mv     +++|          LDN    0
00969  M00S00731.1mv     +++|          STD    CM+1
00970  M00S00732.1mv     +++|          EXECUTE  1DS,=
00971  M00S00733.1mv     +++|          MONITOR  RPPM      CALL *1DS* TO DOWN CHANNEL
00972  M00S00734.1mv     +++|          UJN    DCHX        RETURN
00973  M00S00735.1mv     +++|
00974  M00S00736.1mv     +++|
Line S00737 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00975  M01S00737.ns2632  ---| DCHA     VFD    18/3L1DS,6/,12/DWNF,12/0,12/0
Line S00006 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
00976  M01S00006.ns2632  +++| DCHA     VFD    18/3L1DS,6/,12/DWNF,12/0,12/4000
00977  M00S00738.1mv     +++| DHV      SPACE  4,10
00978  M00S00739.1mv     +++|**        DHV - PERFORM DEVICE VERIFICATION.
00979  M00S00740.1mv     +++|*
00980  M00S00741.1mv     +++|*         ENTRY  (CC) = CHANNEL COUNT.
00981  M00S00742.1mv     +++|*                (T5) = EST ORDINAL.
00982  M00S00743.1mv     +++|*                (ES - ES+4) = WORD *EQDE* OF EST ENTRY.
00983  M00S00744.1mv     +++|*
00984  M00S00745.1mv     +++|*         EXIT   (A) .NE. 0 IF PREMATURE VERIFICATION TERMINATION.
00985  M00S00746.1mv     +++|*                ERRORS ENCOUNTERED ARE REFLECTED IN STATISTICS BUFFER.
00986  M00S00747.1mv     +++|*
00987  M00S00748.1mv     +++|*         USES   T8.
00988  M00S00749.1mv     +++|*
Line S00750 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00989  M01S00750.283l840 ---|*         CALLS  FBP, DEVICE DEPENDENT PROCESSORS.
Line S00025 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00990  M01S00025.283l840 +++|*         CALLS  FBP, SVI, DEVICE DEPENDENT PROCESSORS.
00991  M00S00751.1mv     +++|
00992  M00S00752.1mv     +++|
00993  M00S00753.1mv     +++| DHV1     LDN    0           SET RETURN STATUS
00994  M00S00754.1mv     +++|
00995  M00S00755.1mv     +++| DHV      SUBR               ENTRY/EXIT
Line S00026 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00996  M01S00026.283l840 +++|          RJM    SVI         SET VERIFICATION INTERLOCK
00997  M00S00756.1mv     +++|          RJM    FBP         FILL BUFFER WITH WRITE PATTERN
00998  M00S00757.1mv     +++|          LDM    DVPC        SETUP PROCESSOR
00999  M00S00758.1mv     +++|          ZJN    DHVX        IF DEVICE NOT SUPPORTED
01000  M00S00759.1mv     +++|          STD    T8
01001  M00S00760.1mv     +++|          LDC    LDNI+METH   ALLOW MAINTENANCE CYLINDER MEDIA ERRORS
Line S00120 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01002  M01S00120.ns2632b +++|          ERRPL  METH-100    CODE DEPENDS ON VALUE
01003  M00S00761.1mv     +++|          STM    RCSA
Line S00762 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01004  M01S00762.ns2632b ---|          ERRPL  METH-100    CODE DEPENDS ON VALUE
01005  M01S00763.ns2632b ---|          STM    SNCA
01006  M00S00764.1mv     +++|          STM    WCSA
01007  M00S00765.1mv     +++|          RJM    0,T8        PERFORM DEVICE DEPENDENT PROCESSING
01008  M00S00766.1mv     +++|          UJN    DHVX        RETURN
01009  M00S00767.1mv     +++| FBP      SPACE  4,10
01010  M00S00768.1mv     +++|**        FBP - FILL BUFFER WITH PATTERN TO WRITE.
01011  M00S00769.1mv     +++|*
01012  M00S00770.1mv     +++|*         EXIT   (A) = 0.
01013  M00S00771.1mv     +++|*
01014  M00S00772.1mv     +++|*         USES   T1.
01015  M00S00773.1mv     +++|
01016  M00S00774.1mv     +++|
01017  M00S00775.1mv     +++| FBP      SUBR               ENTRY/EXIT
01018  M00S00776.1mv     +++|          LDC    BUFL
01019  M00S00777.1mv     +++|          STD    T1
01020  M00S00778.1mv     +++| FBP1     LDC    BUFP        FILL BUFFER WITH PATTERN
01021  M00S00779.1mv     +++|          STM    BFMS-1,T1
01022  M00S00780.1mv     +++|          SOD    T1          FILL BUFFER WITH PATTERN
01023  M00S00781.1mv     +++|          NJN    FBP1        IF NOT END OF BUFFER
01024  M00S00782.1mv     +++|*         LDN    0
01025  M00S00783.1mv     +++|          UJN    FBPX        RETURN
01026  M00S00784.1mv     +++| FDC      SPACE  4,10
01027  M00S00785.1mv     +++|**        FDC - FORMAT 895 DEVICE MAINTENANCE TRACK.
01028  M00S00786.1mv     +++|*
01029  M00S00787.1mv     +++|*         ENTRY  (T4) = CHANNEL NUMBER.
Line S00788 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01030  M01S00788.284l847 ---|*                (T5) = EST ORDINAL.
01031  M01S00789.284l847 ---|*                (T6) = MAINTENANCE TRACK NUMBER.
Line S00025 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01032  M01S00025.284l847 +++|*                (EQ) = EST ORDINAL.
01033  M01S00026.284l847 +++|*                (DVMT) = MAINTENANCE TRACK NUMBER.
01034  M00S00790.1mv     +++|*                (ES - ES+4) = EST ENTRY.
01035  M00S00791.1mv     +++|*
01036  M00S00792.1mv     +++|*         EXIT   (A) .NE. 0 IF ERROR.
Line S00793 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01037  M01S00793.284l847 ---|*
01038  M01S00794.284l847 ---|*         USES   T1, T2, CM - CM+4, CN - CN+2.
Line S00027 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01039  M01S00027.284l847 +++|*                (T4) = CHANNEL NUMBER.
01040  M01S00028.284l847 +++|*                (T5) = EST ORDINAL.
01041  M01S00029.284l847 +++|*                (T6) = MAINTENANCE TRACK NUMBER.
01042  M00S00795.1mv     +++|*
Line S00796 Modification History
M01 (Removed by) 1mv10
Seq #  *Modification Id* Act 
----------------------------+
01043  M01S00796.1mv10   ---|*         CALLS  SDR.
Line S00001 Modification History
M01 (Added by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01044  M02S00001.284l847 ---|*         CALLS  FNC, SDR.
Line S00030 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01045  M01S00030.284l847 +++|*         CALLS  /2VA/FDC.
01046  M00S00797.1mv     +++|*
Line S00798 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01047  M01S00798.284l847 ---|*         MACROS DCHAN, DELAY, RCHAN.
Line S00031 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01048  M01S00031.284l847 +++|*         MACROS EXECUTE.
01049  M00S00799.1mv     +++|
01050  M00S00800.1mv     +++|
Line S00801 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01051  M01S00801.284l847 ---| FDC13    LDD    ES+4        GET UNIT COUNT
01052  M01S00802.284l847 ---|          SHN    3
01053  M01S00803.284l847 ---|          ADK    DDLL
01054  M01S00804.284l847 ---|          CRD    CM
01055  M01S00805.284l847 ---|          LDD    CM
01056  M01S00806.284l847 ---|          LPN    7
01057  M01S00807.284l847 ---|          STD    T2
01058  M01S00808.284l847 ---|          LDN    FMMC
01059  M01S00809.284l847 ---|          RJM    SDR
01060  M01S00810.284l847 ---| FDC14    LDN    0           SET RETURN STATUS
01061  M01S00811.284l847 ---|
01062  M00S00812.1mv     +++| FDC      SUBR               ENTRY/EXIT
Line S00032 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01063  M01S00032.284l847 +++|          LDD    T4          SAVE CHANNEL NUMBER
01064  M01S00033.284l847 +++|          STM    FDCA
Line S00813 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01065  M01S00813.284l847 ---|          LDM    DVDT
01066  M01S00814.284l847 ---|          LMC    2RDC
01067  M01S00815.284l847 ---|          NJN    FDC14       IF NOT 895 DEVICE
01068  M01S00816.284l847 ---|          LDD    T4
01069  M01S00817.284l847 ---|          LPN    40
01070  M01S00818.284l847 ---|          NJN    FDC13       IF CONCURRENT CHANNEL
01071  M01S00819.284l847 ---|          LDD    T4
01072  M01S00820.284l847 ---|          RCHAN              RESERVE CHANNEL
Line S00821 Modification History
M01 (Removed by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00821.284l847 ---|          LDC    FDCA
Line S00002 Modification History
M01 (Added by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00002.284l847 ---|          LDC    CTAB
Line S00822 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01075  M01S00822.284l847 ---|          STD    T1          SET CHANNEL TABLE ADDRESS
01076  M01S00823.284l847 ---| FDC1     LDI    T1
01077  M01S00824.284l847 ---|          ZJN    FDC2        IF END OF LIST
01078  M01S00825.284l847 ---|          STD    T2
01079  M01S00826.284l847 ---|          LDI    T2          MODIFY INSTRUCTION
01080  M01S00827.284l847 ---|          SCN    37
01081  M01S00828.284l847 ---|          LMD    T4
01082  M01S00829.284l847 ---|          STI    T2
01083  M01S00830.284l847 ---|          AOD    T1          ADVANCE LIST POINTER
01084  M01S00831.284l847 ---|          UJN    FDC1        MODIFY NEXT INSTRUCTION
01085  M01S00832.284l847 ---|
01086  M01S00833.284l847 ---| FDC2     LDD    ES+4        GET UNIT LIST
01087  M01S00834.284l847 ---|          SHN    3
01088  M01S00835.284l847 ---|          ADK    DDLL
01089  M01S00836.284l847 ---|          CRD    CM
01090  M01S00837.284l847 ---|          LDD    T6          STORE CYLINDER NUMBER
01091  M01S00838.284l847 ---|          LPC    3777
01092  M01S00839.284l847 ---|          SHN    -1
01093  M01S00840.284l847 ---|          STD    CN
01094  M01S00841.284l847 ---| FDC3     LDD    CM+4        EXTRACT NEXT UNIT
01095  M01S00842.284l847 ---|          SHN    14
01096  M01S00843.284l847 ---|          STD    CM+4
01097  M01S00844.284l847 ---|          ERRPL  4000-3*SLDC CODE DEPENDS ON VALUE
01098  M01S00845.284l847 ---|          SHN    -14
01099  M01S00846.284l847 ---|          LMC    3S6         SET MODE/OPERATION DECODE
01100  M01S00847.284l847 ---|          STD    CN+1
01101  M01S00848.284l847 ---|          LDD    TH          SET LARGE RECORD SIZE
01102  M01S00849.284l847 ---|          STD    CN+2
Line S00850 Modification History
M01 (Removed by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01103  M02S00850.284l847 ---| FDC3.1   FNC    FCFP,CH     ISSUE FORMAT FUNCTION
Line S00003 Modification History
M01 (Added by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01104  M02S00003.284l847 ---| FDC3.1   LDK    FCFP        ISSUE FORMAT FUNCTION
01105  M02S00004.284l847 ---|          RJM    FNC
01106  M02S00005.284l847 ---|          MJN    FDC5        IF ERROR
Line S00851 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01107  M01S00851.284l847 ---|          ACN    CH
01108  M01S00852.284l847 ---|          LDN    FPBL
01109  M01S00853.284l847 ---|          OAM    CN,CH
01110  M01S00854.284l847 ---|          NJN    FDC5        IF INCOMPLETE DATA TRANSFER
01111  M01S00855.284l847 ---| FDC4     EJM    FDC6,CH     IF ALL DATA WAS ACCEPTED
01112  M01S00856.284l847 ---|          ADN    1
01113  M01S00857.284l847 ---|          NJN    FDC4        IF NOT TIMEOUT
01114  M01S00858.284l847 ---| FDC5     UJN    FDC8        SET ERROR STATUS
01115  M01S00859.284l847 ---|
01116  M01S00860.284l847 ---| FDC6     DCN    CH+40
Line S00861 Modification History
M01 (Removed by) ns2559
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01117  M02S00861.284l847 ---|          LDC    400D        SET 400 MILLISECOND DELAY
Line S00001 Modification History
M01 (Added by) ns2559
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01118  M02S00001.284l847 ---|          LCN    0           SET 4 SECOND TIMEOUT
Line S00862 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01119  M01S00862.284l847 ---|          STD    T2
01120  M01S00863.284l847 ---| FDC7     DELAY  10
Line S00864 Modification History
M01 (Removed by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01121  M02S00864.284l847 ---|          FNC    FCGS,CH     GET GENERAL STATUS
Line S00006 Modification History
M01 (Added by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01122  M02S00006.284l847 ---|          LDK    FCGS        ISSUE GENERAL STATUS FUNCTION
01123  M02S00007.284l847 ---|          RJM    FNC
01124  M02S00008.284l847 ---|          MJN    FDC8        IF ERROR
Line S00865 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01125  M01S00865.284l847 ---|          ACN    CH
01126  M01S00866.284l847 ---|          LDN    1
01127  M01S00867.284l847 ---|          IAM    T1,CH
01128  M01S00868.284l847 ---|          NJN    FDC8        IF INCOMPLETE DATA TRANSFER
01129  M01S00869.284l847 ---|          SFM    FDC8,CH     IF CHANNEL PARITY ERROR
01130  M01S00870.284l847 ---|          DCN    CH+40
01131  M01S00871.284l847 ---|          LDD    T1
01132  M01S00872.284l847 ---|          ZJN    FDC9        IF TRACK FORMATTING COMPLETE
01133  M01S00873.284l847 ---|          SOD    T2
01134  M01S00874.284l847 ---|          NJN    FDC7        IF NOT TIMEOUT
01135  M01S00875.284l847 ---| FDC8     AOM    FMTB,SP     SET ERROR STATUS
01136  M01S00876.284l847 ---|          UJN    FDC10       COMPLETE PROCESSING
01137  M01S00877.284l847 ---|
01138  M01S00878.284l847 ---| FDC9     AOD    CN+2        INCREMENT TRACK NUMBER
01139  M01S00879.284l847 ---|          LPN    77
01140  M01S00880.284l847 ---|          LMN    PTCYDC
01141  M01S00881.284l847 ---|          NJP    FDC3.1      IF NOT END OF CYLINDER
01142  M01S00882.284l847 ---|          LDD    CM
01143  M01S00883.284l847 ---|          LPN    7
01144  M01S00884.284l847 ---|          SBN    1
01145  M01S00885.284l847 ---|          STD    CM
01146  M01S00886.284l847 ---|          PJP    FDC3        IF MORE UNITS TO FORMAT
01147  M01S00887.284l847 ---| FDC10    DCN    CH+40
Line S00888 Modification History
M01 (Removed by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01148  M02S00888.284l847 ---|          FNC    FCOC,CH     RELEASE HARDWARE RESERVE
Line S00009 Modification History
M01 (Added by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01149  M02S00009.284l847 ---|          LDK    FCOC        RELEASE HARDWARE RESERVES
01150  M02S00010.284l847 ---|          RJM    FNC
01151  M02S00011.284l847 ---|          SHN    0-21        SET ERROR STATUS IF ERROR
01152  M02S00012.284l847 ---|          RAM    FMTB,SP
Line S00889 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01153  M01S00889.284l847 ---|          LDD    T4          RELEASE CHANNEL
01154  M01S00890.284l847 ---|          DCHAN
01155  M01S00891.284l847 ---|          LDM    FMTB,SP
01156  M01S00892.284l847 ---|          LJM    FDCX        RETURN
Line S00034 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00034.284l847 +++|          EXECUTE  2VA
01158  M01S00035.284l847 +++|          LDC    *           (CHANNEL NUMBER)
01159  M01S00036.284l847 +++| FDCA     EQU    *-1
01160  M01S00037.284l847 +++|          STD    T4
01161  M01S00038.284l847 +++|          RJM    /2VA/FMT    FORMAT 895 MAINTENANCE TRACK
01162  M01S00039.284l847 +++|          UJN    FDCX        RETURN
Line S00013 Modification History
M01 (Added by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01163  M02S00013.284l847 ---| FNC      SPACE  4,10
01164  M02S00014.284l847 ---|**        FNC - FUNCTION CHANNEL.
01165  M02S00015.284l847 ---|*
01166  M02S00016.284l847 ---|*         ENTRY  (A) = FUNCTION CODE.
01167  M02S00017.284l847 ---|*
01168  M02S00018.284l847 ---|*         EXIT   (A) .EQ. 0 IF FUNCTION WAS ACCEPTED.
01169  M02S00019.284l847 ---|*                    .LT. 0 IF TIMEOUT OR CHANNEL ACTIVE UPON ENTRY.
01170  M02S00020.284l847 ---|
01171  M02S00021.284l847 ---|
01172  M02S00022.284l847 ---| FNC      SUBR               ENTRY/EXIT
01173  M02S00023.284l847 ---|          AJM    FNC2,CH     IF CHANNEL ALREADY ACTIVE
01174  M02S00024.284l847 ---|          FAN    CH
01175  M02S00025.284l847 ---| FNC1     ADD    ON
01176  M02S00026.284l847 ---|          IJM    FNC3,CH     IF FUNCTION ACCEPTED
01177  M02S00027.284l847 ---|          NJN    FNC1        IF NOT TIMEOUT YET
01178  M02S00028.284l847 ---| FNC2     DCN    CH+40
01179  M02S00029.284l847 ---|          LCN    0           RETURN ERROR STATUS
01180  M02S00030.284l847 ---|          UJN    FNCX        RETURN
01181  M02S00031.284l847 ---|
01182  M02S00032.284l847 ---| FNC3     LDN    0           RETURN SUCCESSFUL STATUS
01183  M02S00033.284l847 ---|          UJN    FNCX        RETURN
Line S00893 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01184  M01S00893.284l847 ---|
01185  M01S00894.284l847 ---|
Line S00895 Modification History
M01 (Removed by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01186  M02S00895.284l847 ---| FDCA     BSS    0           TABLE OF INSTRUCTION ADDRESSES
Line S00034 Modification History
M01 (Added by) 1mv10
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01187  M02S00034.284l847 ---| CTAB     BSS    0           TABLE OF CHANNEL INSTRUCTION ADDRESSES
Line S00896 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01188  M01S00896.284l847 ---|          CHTB
01189  M00S00897.1mv     +++| HVE      SPACE  4,15
01190  M00S00898.1mv     +++|**        HVE - HARDWARE VERIFICATION FOR EXTENDED MEMORY DEVICES.
01191  M00S00899.1mv     +++|*
01192  M00S00900.1mv     +++|*         ENTRY  (CC) = CHANNEL COUNT.
01193  M00S00901.1mv     +++|*                (T5) = EST ORDINAL.
01194  M00S00902.1mv     +++|*
01195  M00S00903.1mv     +++|*         EXIT   ERRORS NOTED IN STATISTICS BUFFER.
01196  M00S00904.1mv     +++|*
01197  M00S00905.1mv     +++|*         USES   T6, T7.
01198  M00S00906.1mv     +++|*
01199  M00S00907.1mv     +++|*         CALLS  RCS, SNC, VBD, WCS.
Line S00121 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01200  M01S00121.ns2632b +++|*
01201  M01S00122.ns2632b +++|*         MACROS SETMS, VERIFY.
01202  M00S00908.1mv     +++|
01203  M00S00909.1mv     +++|
01204  M00S00910.1mv     +++| HVE      VERIFY (DE,DP)     ENTRY/EXIT
Line S00911 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
01205  M01S00911.ns2632  ---|          SETMS  IOCH,(AD,DE,DF,ND),DBUF
Line S00007 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
01206  M01S00007.ns2632  +++|          SETMS  IOCH,(AD,AR,DE,DF,ND),DBUF
01207  M00S00912.1mv     +++|          LDM    DVMT        SETUP MAINTENANCE TRACK
01208  M00S00913.1mv     +++|          STD    T6
01209  M00S00914.1mv     +++|          ZJN    HVEX        IF UNDEFINED
01210  M00S00915.1mv     +++| HVE1     LDN    1
01211  M00S00916.1mv     +++|          STD    NS          SET NUMBER OF SECTORS TO PROCESS
01212  M00S00917.1mv     +++| HVEA     LDN    0
01213  M00S00918.1mv     +++|*         LDN    20          IF EM TRACK SIZE IS MORE THAN 2020 WORDS
01214  M00S00919.1mv     +++|          STD    T7
01215  M00S00920.1mv     +++| HVE2     RJM    WCS
01216  M00S00921.1mv     +++|          RJM    RCS
01217  M00S00922.1mv     +++|          RJM    VBD         VERIFY READ BUFFERS
01218  M00S00923.1mv     +++|          LDM    SLM
01219  M00S00924.1mv     +++|          SBD    T7
01220  M00S00925.1mv     +++|          NJN    HVE2        IF MORE SECTORS TO PROCESS
01221  M00S00926.1mv     +++|          RJM    SNC         SELECT NEXT CHANNEL
01222  M00S00927.1mv     +++|          PJN    HVE1        IF SECOND CHANNEL PRESENT
01223  M00S00928.1mv     +++|          UJP    HVEX        RETURN
01224  M00S00929.1mv     +++| HVL      SPACE  4,15
01225  M00S00930.1mv     +++|**        HVL - HARDWARE VERIFICATION FOR RMS DEVICES.
01226  M00S00931.1mv     +++|*
01227  M00S00932.1mv     +++|*         ENTRY  (CC) = CHANNEL COUNT.
01228  M00S00933.1mv     +++|*                (T4) = FIRST CHANNEL.
01229  M00S00934.1mv     +++|*                (T5) = EST ORDINAL.
01230  M00S00935.1mv     +++|*                (ES - ES+4) = WORD *EQDE* OF EST ENTRY.
01231  M00S00936.1mv     +++|*
01232  M00S00937.1mv     +++|*         EXIT   ERRORS NOTED IN STATISTICS BUFFER.
01233  M00S00938.1mv     +++|*
Line S00939 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01234  M01S00939.ns2632b ---|*         USES   HC, SP, T6, T7.
Line S00123 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01235  M01S00123.ns2632b +++|*         USES   HC, NS, SP, T6, T7.
01236  M00S00940.1mv     +++|*
01237  M00S00941.1mv     +++|*         CALLS  FDC, IHD, RCS, SNC, VBD, WCS.
Line S00124 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01238  M01S00124.ns2632b +++|*
01239  M01S00125.ns2632b +++|*         MACROS SETMS, VERIFY.
01240  M00S00942.1mv     +++|
01241  M00S00943.1mv     +++|
Line S00944 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01242  M01S00944.271l716 ---| HVL      VERIFY (DB,DC,DD,DF,DG,DH,DI,DJ,DK,DL,DM,DQ,DX,DY,DZ)
Line S00052 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01243  M02S00052.272l774 ---| HVL      VERIFY (DB,DC,DD,DF,DG,DH,DI,DJ,DK,DL,DM,DN,DQ,DX,DY,DZ)
Line S00005 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01244  M02S00005.ns2776  ---| HVL      VERIFY (DB,DC,DD,DF,DG,DH,DI,DJ,DK,DL,DM,DN,DQ,DX,DY,DZ,EA,EB,
Line S00006 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2768
M03 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01245  M03S00006.ns2776  ---|,EC,ED,EE,EF)
Line S00001 Modification History
M01 (Added by) ns2768
M02 (Removed by) 284l847
M03 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01246  M03S00001.ns2776  ---|,EC,ED,EE,EF,EG,EH)
Line S00040 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S00040.ns2776  ---|,EC,ED,EE,EF,EM,EN,EG,EH,EI,EJ,EK,EL,EO,EP,ES,EU,EV,EW)
Line S00001 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01248  M01S00001.ns2776  +++| HVL      VERIFY (DB,DC,DD,DF,DG,DH,DI,DJ,DK,DL,DM,DN,DQ,DR,DX,DY,DZ,EA,
01249  M01S00002.ns2776  +++|,EB,EC,ED,EE,EF,EM,EN,EG,EH,EI,EJ,EK,EL,EO,EP,ES,EU,EV,EW)
Line S00945 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
01250  M01S00945.ns2632  ---|          SETMS  IOCH,(AD,DE,DF,ND,NR),DBUF
Line S00008 Modification History
M01 (Added by) ns2632
M02 (Removed by) ns2632a
Seq #  *Modification Id* Act 
----------------------------+
01251  M02S00008.ns2632a ---|          SETMS  IOCH,(AD,AR,DE,DF,ND,NR),DBUF
Line S00001 Modification History
M01 (Added by) ns2632a
Seq #  *Modification Id* Act 
----------------------------+
01252  M01S00001.ns2632a +++|          SETMS  IOCH,(AD,AR,DE,DF,ND),DBUF
01253  M00S00946.1mv     +++| HVLA     UJN    HVL2        INITIATE HYDRA DIAGNOSTICS
01254  M00S00947.1mv     +++|*         PSN                (PATH VERIFICATION)
01255  M00S00948.1mv     +++|
Line S00949 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01256  M01S00949.ns2632b ---| HVL1     LDC    1           (HYDRA DIAGNOSTICS DISABLED)
Line S00126 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01257  M01S00126.ns2632b +++| HVL1     LDC    0           (HYDRA DIAGNOSTICS DISABLED)
01258  M01S00127.ns2632b +++|*         LDC    2*DDFE+1    (HYDRA DIAGNOSTIC FAILURE DETECTED)
01259  M00S00950.1mv     +++| HVLB     EQU    *-1
Line S00951 Modification History
M01 (Removed by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01260  M01S00951.ns2632b ---|          NJN    HVL3        IF NO DIAGNOSTICS
Line S00128 Modification History
M01 (Added by) ns2632b
Seq #  *Modification Id* Act 
----------------------------+
01261  M01S00128.ns2632b +++|          ZJN    HVL3        IF NO DIAGNOSTICS
01262  M00S00952.1mv     +++| HVL2     RJM    IHD
Line S00041 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01263  M01S00041.284l847 +++|*         UJN    HVL3        (IF NOT HYDRA DEVICE)
01264  M01S00042.284l847 +++| HVLE     EQU    HVL2
01265  M00S00953.1mv     +++| HVL3     LDM    DVMT        SET MAINTENANCE TRACK
01266  M00S00954.1mv     +++|          STD    T6
01267  M00S00955.1mv     +++|          ZJN    HVLX        IF UNDEFINED
Line S00956 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01268  M01S00956.284l847 ---|          RJM    FDC         FORMAT MAINTENANCE TRACK, IF 895
Line S00043 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01269  M01S00043.284l847 +++| HVLF     RJM    FDC         FORMAT MAINTENANCE TRACK, IF 895
01270  M01S00044.284l847 +++|*         UJN    HVL3.1      (IF NOT 895 DEVICE)
Line S00957 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01271  M01S00957.1mv14   ---|          NJN    HVL7        IF FORMATTING ERROR
Line S00001 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01272  M01S00001.1mv14   +++|          NJP    HVL5        IF FORMATTING ERROR
Line S00958 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01273  M01S00958.284l847 ---|*         LDN    0
Line S00045 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01274  M01S00045.284l847 +++| HVL3.1   LDN    0
Line S00959 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01275  M01S00959.1mv14   ---|          STD    T7          INITIALIZE SECTOR NUMBER
01276  M00S00960.1mv     +++|          STD    HC
01277  M00S00961.1mv     +++|          STM    HVLD
Line S00002 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01278  M01S00002.1mv14   +++|          STM    HVLG        INITIALIZE SECTOR NUMBER
01279  M01S00003.1mv14   +++|          SBM    DVSB        PHYSICAL SECTORS/BUFFER-1
01280  M01S00004.1mv14   +++|          STM    HVLH        INITIALIZE MASK
01281  M00S00962.1mv     +++|          LDD    T4          STORE CHANNEL IN CASE OF BUFFERED DEVICE
01282  M00S00963.1mv     +++|          STM    STSB
01283  M00S00964.1mv     +++|          LDN    DVSC        SET NUMBER OF SECTORS TO PROCESS
01284  M00S00965.1mv     +++|          STD    NS
01285  M00S00966.1mv     +++|          LDM    DVST        RESET FOR OTHER CHANNEL
01286  M00S00967.1mv     +++|          STM    HVLC
Line S00968 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01287  M01S00968.1mv14   ---| HVL4     RJM    WCS         WRITE CONSECUTIVE SECTORS
Line S00005 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01288  M01S00005.1mv14   +++| HVL4     LDC    **          SECTOR NUMBER
01289  M01S00006.1mv14   +++| HVLG     EQU    *-1
01290  M01S00007.1mv14   +++|          ADM    DVSB        ROUND UP TO BUFFER MULTIPLE
01291  M01S00008.1mv14   +++|          LPC    **
01292  M01S00009.1mv14   +++| HVLH     EQU    *-1
01293  M01S00010.1mv14   +++|          STD    T7
01294  M01S00011.1mv14   +++|          SBM    HVLC
01295  M01S00012.1mv14   +++|          PJN    HVL7        IF ROUNDING EXCEEDS SECTOR LIMIT
01296  M01S00013.1mv14   +++|          RJM    WCS         WRITE CONSECUTIVE SECTORS
Line S00969 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01297  M01S00969.1mv14   ---|          NJN    HVL10       IF WRITE ERRORS
Line S00014 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01298  M01S00014.1mv14   +++| HVL5     NJN    HVL6        IF WRITE ERRORS
01299  M00S00970.1mv     +++|          RJM    RCS         READ BACK SECTOR DATA
Line S00971 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01300  M01S00971.1mv14   ---|          NJN    HVL10       IF READ ERRORS
Line S00015 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01301  M01S00015.1mv14   +++|          NJN    HVL6        IF READ ERRORS
01302  M00S00972.1mv     +++|          RJM    VBD         VERIFY READ BUFFERS
Line S00973 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01303  M01S00973.1mv14   ---| HVL7     NJN    HVL10       IF DATA VERIFICATION ERRORS
01304  M01S00974.1mv14   ---|          LDM    DVSI
Line S00016 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01305  M01S00016.1mv14   +++| HVL6     NJN    HVL10       IF DATA VERIFICATION ERRORS
01306  M01S00017.1mv14   +++| HVL7     LDM    DVSI
01307  M00S00975.1mv     +++|          SBN    DVSC        ADVANCE SECTOR TO NEXT PHYSICAL TRACK
Line S00976 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01308  M01S00976.1mv14   ---|          RAD    T7
Line S00018 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01309  M01S00018.1mv14   +++|          RAM    HVLG
01310  M00S00977.1mv     +++|          LDC    0           SECTORS + GAP SECTORS PER LOGICAL TRACK
01311  M00S00978.1mv     +++| HVLC     EQU    *-1
Line S00979 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01312  M01S00979.1mv14   ---|          SBD    T7
Line S00019 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01313  M01S00019.1mv14   +++|          SBM    HVLG
01314  M00S00980.1mv     +++|          SBN    1
01315  M00S00981.1mv     +++|          PJN    HVL8        IF STILL WITHIN SAME LOGICAL TRACK
01316  M00S00982.1mv     +++|          LMC    -0
01317  M00S00983.1mv     +++|          ADC    0           OFFSET TO NEXT UNIT
01318  M00S00984.1mv     +++| HVLD     EQU    *-1
01319  M00S00985.1mv     +++|          SBN    1
Line S00986 Modification History
M01 (Removed by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01320  M01S00986.1mv14   ---|          STD    T7
Line S00020 Modification History
M01 (Added by) 1mv14
Seq #  *Modification Id* Act 
----------------------------+
01321  M01S00020.1mv14   +++|          STM    HVLG
01322  M00S00987.1mv     +++|          AOD    T6          INCREMENT TO NEXT LOGICAL TRACK
01323  M00S00988.1mv     +++| HVL8     AOD    HC
01324  M00S00989.1mv     +++|          SBM    DVHL
01325  M00S00990.1mv     +++|          ZJN    HVL11       IF ALL HEADS PROCESSED
01326  M00S00991.1mv     +++| HVL9     LJM    HVL4        PROCESS NEXT HEAD
01327  M00S00992.1mv     +++|
01328  M00S00993.1mv     +++| HVL10    NJN    HVL12       IF ERROR
01329  M00S00994.1mv     +++| HVL11    STD    HC
01330  M00S00995.1mv     +++|          LDN    MXNB        INCREMENT STATISTICS POINTER TO NEXT UNIT
01331  M00S00996.1mv     +++|          RAD    SP
01332  M00S00997.1mv     +++|          LDM    DVMT        RESET LOGICAL TRACK POINTER
01333  M00S00998.1mv     +++|          STD    T6
01334  M00S00999.1mv     +++|          LDD    SU          CHANGE FOR NEXT UNIT
01335  M00S01000.1mv     +++|          RAM    HVLC
01336  M00S01001.1mv     +++|          LDD    SU          CHANGE SECTOR OFFSET TO NEXT UNIT
01337  M00S01002.1mv     +++|          RAM    HVLD
01338  M00S01003.1mv     +++|          STD    T7          SET NEXT SECTOR
01339  M00S01004.1mv     +++|          LMM    SLM
01340  M00S01005.1mv     +++|          NJN    HVL9        IF ANOTHER UNIT
01341  M00S01006.1mv     +++| HVL12    RJM    SNC         SELECT NEXT CHANNEL
01342  M00S01007.1mv     +++|          PJP    HVL1        IF SECOND CHANNEL PRESENT
01343  M00S01008.1mv     +++|          LJM    HVLX        RETURN
01344  M00S01009.1mv     +++| IBM      SPACE  4,15
01345  M00S01010.1mv     +++|**        IBM - ISSUE BML MESSAGE.
01346  M00S01011.1mv     +++|*
01347  M00S01012.1mv     +++|*         ENTRY  (A) = SYMPTOM CODE OF BML MESSAGE.
01348  M00S01013.1mv     +++|*                (CH) = CHANNEL NUMBER BEING DOWNED.
01349  M00S01014.1mv     +++|*                (EQ) = EST ORDINAL.
01350  M00S01015.1mv     +++|*
Line S00009 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
01351  M01S00009.ns2632  +++|*         EXIT   (A) = 0.
01352  M01S00010.ns2632  +++|*
01353  M00S01016.1mv     +++|*         USES   CN.
01354  M00S01017.1mv     +++|*
01355  M00S01018.1mv     +++|*         CALLS  CDA, /2VA/ELM.
01356  M00S01019.1mv     +++|*
01357  M00S01020.1mv     +++|*         MACROS EXECUTE.
01358  M00S01021.1mv     +++|
01359  M00S01022.1mv     +++|
01360  M00S01023.1mv     +++| IBM      SUBR   DVF2        ENTRY/EXIT
01361  M00S01024.1mv     +++|          STD    CN
01362  M00S01025.1mv     +++|          RJM    CDA         GET PHYSICAL DISK ADDRESS
01363  M00S01026.1mv     +++|          EXECUTE  2VA
01364  M00S01027.1mv     +++|          LDD    EQ          RESET EQUIPMENT
01365  M00S01028.1mv     +++|          STD    T5
01366  M00S01029.1mv     +++|          RJM    /2VA/ELM    ISSUE BML MESSAGE
01367  M00S01030.1mv     +++|          UJN    IBMX        RETURN
01368  M00S01031.1mv     +++| IHD      SPACE  4,10
01369  M00S01032.1mv     +++|**        IHD - INITIATE HYDRA DIAGNOSTICS.
01370  M00S01033.1mv     +++|*
01371  M00S01034.1mv     +++|*         ENTRY  (EQ) = EST ORDINAL.
01372  M00S01035.1mv     +++|*                (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
01373  M00S01036.1mv     +++|*
01374  M00S01037.1mv     +++|*         USES   CM - CM+4.
01375  M00S01038.1mv     +++|*
01376  M00S01039.1mv     +++|*         CALLS  SUT.
01377  M00S01040.1mv     +++|*
01378  M00S01041.1mv     +++|*         MACROS MONITOR.
01379  M00S01042.1mv     +++|
01380  M00S01043.1mv     +++|
01381  M00S01044.1mv     +++| IHD2     SHN    PUTLS       CHANGE ORDINAL TO INDEX
01382  M00S01045.1mv     +++|          ADD    CN+4
01383  M00S01046.1mv     +++|          STD    CM+4
01384  M00S01047.1mv     +++|          SHN    -14         FORM *PUT* ENTRY ADDRESS
01385  M00S01048.1mv     +++|          ADD    CN+3
01386  M00S01049.1mv     +++|          STD    CM+3
01387  M00S01050.1mv     +++|          LDN    1           PARAMETER WORD COUNT
01388  M00S01051.1mv     +++|          STD    CM+1
01389  M00S01052.1mv     +++|          LDN    0           CLEAR UNUSED BYTE
01390  M00S01053.1mv     +++|          STD    CM+2
01391  M00S01054.1mv     +++|          LDD    MA          STORE MESSAGE BUFFER PARAMETERS
01392  M00S01055.1mv     +++|          CWM    IHDA,CM+1
01393  M00S01056.1mv     +++|          MONITOR  UTEM
01394  M00S01057.1mv     +++|*         LDN    0           SCAN UNIT TABLE
01395  M00S01058.1mv     +++| IHD3     RJM    SUT
01396  M00S01059.1mv     +++|          NJN    IHD2        IF SPECIFIED DEVICE
01397  M00S01060.1mv     +++|
01398  M00S01061.1mv     +++| IHD      SUBR               ENTRY/EXIT
Line S01062 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01399  M01S01062.284l847 ---|          LDD    ES+3
01400  M01S01063.284l847 ---|          LMC    2RDF
01401  M01S01064.284l847 ---|          ZJN    IHD1        IF 887 TYPE DEVICE
01402  M01S01065.284l847 ---|          LMN    2RDH&2RDF
01403  M01S01066.284l847 ---|          NJN    IHDX        IF NOT HYDRA DEVICE
01404  M00S01067.1mv     +++| IHD1     LCN    0
01405  M00S01068.1mv     +++|          UJN    IHD3        SEARCH FOR *PUT* ENTRY
01406  M00S01069.1mv     +++|
01407  M00S01070.1mv     +++|
01408  M00S01071.1mv     +++| IHDA     VFD    6/PILL,6/1,6/DVDF,42/1
01409  M00S01072.1mv     +++| IPE      SPACE  4,10
01410  M00S01073.1mv     +++|**        IPE - ISSUE REMOVABLE PACK EVENT.
01411  M00S01074.1mv     +++|*
01412  M00S01075.1mv     +++|*         ENTRY  (ES - ES+4) = EST ENTRY.
01413  M00S01076.1mv     +++|*
01414  M00S01077.1mv     +++|*         USES   CM - CM+4.
01415  M00S01078.1mv     +++|*
01416  M00S01079.1mv     +++|*         MACROS MONITOR.
01417  M00S01080.1mv     +++|
01418  M00S01081.1mv     +++|
01419  M00S01082.1mv     +++| IPE      SUBR               ENTRY/EXIT
01420  M00S01083.1mv     +++|          LDD    ES+4        READ PACKNAME/DEVICE NUMBER
01421  M00S01084.1mv     +++|          SHN    3
01422  M00S01085.1mv     +++|          ADK    PFGL
01423  M00S01086.1mv     +++|          CRD    CM
01424  M00S01087.1mv     +++|          LDD    CM+3
01425  M00S01088.1mv     +++|          LPN    77
01426  M00S01089.1mv     +++|          NJN    IPEX        IF NOT AUXILIARY DEVICE
01427  M00S01090.1mv     +++|          LDD    CM+3        BUILD PACKNAME HASH
01428  M00S01091.1mv     +++|          ADD    CM+2
01429  M00S01092.1mv     +++|          ADD    CM+1
01430  M00S01093.1mv     +++|          ADD    CM
01431  M00S01094.1mv     +++|          STD    CM+4
01432  M00S01095.1mv     +++|          LDN    0           SET EVENT
01433  M00S01096.1mv     +++|          STD    CM+1
01434  M00S01097.1mv     +++|          LDN    VSNE/10000
01435  M00S01098.1mv     +++|          STD    CM+3
01436  M00S01099.1mv     +++|          MONITOR  EATM
01437  M00S01100.1mv     +++|          UJN    IPEX        RETURN
01438  M00S01101.1mv     +++| LBV      SPACE  4,10
01439  M00S01102.1mv     +++|**        LBV - LABEL VERIFICATION.
01440  M00S01103.1mv     +++|*
01441  M00S01104.1mv     +++|*         EXIT   STATISTICS BUFFER UPDATED WITH LABEL ERROR STATUS.
01442  M00S01105.1mv     +++|*
01443  M00S01106.1mv     +++|*         USES   CC, NS, SP, T7, CM - CM+4.
01444  M00S01107.1mv     +++|*
01445  M00S01108.1mv     +++|*         CALLS  SNC, VLS.
01446  M00S01109.1mv     +++|
01447  M00S01110.1mv     +++|
01448  M00S01111.1mv     +++| LBV      SUBR               ENTRY/EXIT
01449  M00S01112.1mv     +++|          LDD    ES          CHECK UNAVAILABLE DEVICE
01450  M00S01113.1mv     +++|          SHN    21-6
01451  M00S01114.1mv     +++|          MJN    LBVX        IF NOT TO PERFORM LABEL CHECK
Line S00001 Modification History
M01 (Added by) 1mv16
Seq #  *Modification Id* Act 
----------------------------+
01452  M01S00001.1mv16   +++|          SHN    21-5-21+6
01453  M01S00002.1mv16   +++|          MJN    LBVX        IF BUFFERED DEVICE
01454  M00S01115.1mv     +++|          LDD    ES+4        CHECK FOR INITIALIZE PENDING
01455  M00S01116.1mv     +++|          SHN    3
01456  M00S01117.1mv     +++|          ADN    STLL
01457  M00S01118.1mv     +++|          CRD    CM
01458  M00S01119.1mv     +++|          LDD    CM
01459  M00S01120.1mv     +++|          LPC    MLIAL+MLIHD+MLIFD
01460  M00S01121.1mv     +++|          NJN    LBVX        IF INITIALIZE PENDING
Line S01122 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01461  M01S01122.271l716 ---|          ADK    LSLT
Line S00053 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01462  M01S00053.271l716 +++|          ADK    /MMF/LSLT
01463  M00S01123.1mv     +++|          STD    T7
01464  M00S01124.1mv     +++|          STD    NS
01465  M00S01125.1mv     +++|          STD    CC
01466  M00S01126.1mv     +++|          LDK    DVC1        SET POINTER TO FIRST CHANNEL BUFFER
01467  M00S01127.1mv     +++|          STD    SP
01468  M00S01128.1mv     +++|
01469  M00S01129.1mv     +++|*         VALIDATE LABEL SECTORS ON ALL UNITS.
01470  M00S01130.1mv     +++|
01471  M00S01131.1mv     +++| LBV1     RJM    VLS         CHECK CONTENTS OF LABEL
01472  M00S01132.1mv     +++|          AOD    NS          INCREMENT RELATIVE UNIT NUMBER
01473  M00S01133.1mv     +++|          LDN    MXNB        INCREMENT STATISTICS POINTER
01474  M00S01134.1mv     +++|          RAD    SP
01475  M00S01135.1mv     +++|          LDD    SU          INCREMENT TO NEXT UNIT
01476  M00S01136.1mv     +++|          RAD    T7
01477  M00S01137.1mv     +++|          SBM    SLM
01478  M00S01138.1mv     +++|          MJN    LBV1        IF NOT FINISHED WITH LOGICAL TRACK
Line S01139 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01479  M01S01139.271l716 ---|          LDN    LSLT        RESET STARTING SECTOR NUMBER
Proceed to Part 1