*DECK DTC                                                                DTC
***                  DTC - 844-4X DISK DRIVE DIAGNOSTIC                  DTC
**                   DTC - 844-4X DISK DRIVE DIAGNOSTIC                  DTC
*                                                                        DTC
*                             AUTHOR - M. B. ANDERSON                    DTC
*                                                                        DTC
*                            DATE - NOVEMBER, 1978                       DTC
*                                                                        DTC
*                      COPYRIGHT CONTROL DATA CORP. 1978                 DTC
*                                                                        DTC
*                                                                        DTC
*   1.    INTRODUCTION                                                   DTC
*         ------------                                                   DTC
*                                                                        DTC
*         DTC IS A DIAGNOSTIC WHICH DETECTS AND                          DTC1455
*         REPORTS FAILURES IN THE 844-4X DISK DRIVE.                     DTC
*                                                                        DTC
*         THE 844-4X DISK DRIVE IS A DOUBLE DENSITY                      DTC
*         DRIVE.                                                         DTC
*                                                                        DTC
*         THE 7155 CONTROLLER IS USED TO DRIVE THE 844-4X                DTC
*         DISK DRIVE.                                                    DTC
*                                                                        DTC
*         THE 7155 CONTROLLER IS THE FMD SUBSYSTEM                       DTC
*         CONTROLLER WHICH ALSO DRIVES 885 DISK DRIVES.                  DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   2.    REQUIREMENTS                                                   DTC
*         ------------                                                   DTC
*                                                                        DTC
*   2.1   HARDWARE                                                       DTC
*                                                                        DTC
*         THIS DIAGNOSTIC MUST ADDRESS CONTROLLER AND ONE DRIVE.  THE    DTC
*         CONFIGURATION MAY BE ANY LEGAL ONE AS DEFINED IN THE 7155      DTC
*         EQUIPMENT SPECIFICATION (PUBLICATION 22938611). OTHER HARDWARE DTC
*         REQUIREMENTS IMPOSED BY EACH OPERATING SYSTEM ARE INCLUDED     DTC
*         IN ITS REFERENCE MANUAL.                                       DTC
*                                                                        DTC
*                                                                        DTC
*   2.2   SOFTWARE                                                       DTC
*                                                                        DTC
*                                                                        DTC
*         AN ACCESS LEVEL OF 4 IS REQUIRED IF THE OPERATOR               DTCPTR1
*         WISHES TO RUN ALL DTC MODULES SEQUENTIALLY.                    DTCPTR1
*         HOWEVER, A SCRATCH PACK SHOULD BE MOUNTED IN THIS              DTCPTR1
*         CASE OR MODULES DTC13-16 MAY VIOLATE CUSTOMER                  DTCPTR1
*         DATA PROTECTION WITH READS/WRITES.  IF                         DTCPTR1
*         THE OPERATOR CHOOSES AN ACCESS LEVEL OF LESS THAN              DTCPTR1
*         4, ANY MODULES WHICH REQUIRES A HIGH ACCESS LEVEL              DTCPTR1
*         WILL ABORT, DISPLAYING A PROD. OVL. MESSAGE. IT IS             DTC1455
*         SUGGESTED FOR THIS REASON THAT DTC BE RUN USING                DTCPTR1
*         A SCRATCH PACK UNLESS A SELECT MODULE IS RUN USING             DTCPTR1
*         THE PRE-ALLOCATED CYLINDERS.                                   DTCPTR1
*                                                                        DTC
*   2.3   ACCESSORIES                                                    DTC
*                                                                        DTC
*         AN 883 DISK PAK IS REQUIRED FOR THE 844-4X DRIVE.              DTC
*                                                                        DTC
*   3.    OPERATIONAL PROCEDURE                                          DTC
*         ----------- ---------                                          DTC
*                                                                        DTC
*   3.1   LOADING PROCEDURE                                              DTC
*                                                                        DTC
*         DTC IS LOADED USING THE STANDARD LOADING                       DTC1455
*         PROCEDURES.                                                    DTC
*                                                                        DTC
*                                                                        DTC
*   3.2   PARAMETERS                                                     DTC
*                                                                        DTC
*         THE FOLLOWING PARAMETERS ARE USED BY DTC--                     DTC
*                                                                        DTC
*         P0 - XXXX   CONTAINS LOWER CYLINDER ADDRESS LIMIT              DTC
*                     -RIGHT JUSTIFIED,ZERO FILLED                       DTC
*                     (LEGAL ADDRESSES ARE 0-1466B)                      DTC
*                                                                        DTC
*         P1 - XXXX   CONTAINS UPPER CYLINDER ADDRESS LIMIT              DTC
*                     -RIGHT JUSTIFIED,ZERO FILLED                       DTC
*                     (LEGAL ADDRESSES ARE 0-1466B)                      DTC
*                                                                        DTC
*         P2 - XXXX   UPPER 6 BITS CONTAIN LOWER TRACK                   DTC
*              LLUU   ADDRESS LIMIT (LEGAL VALUES ARE 0-22B)             DTC
*                                                                        DTC
*                     LOWER 6 BITS CONTAIN UPPER TRACK                   DTC
*                     ADDRESS LIMIT (LEGAL VALUES ARE 0-22B)             DTC
*                                                                        DTC
*         P3 - XXXX   UPPER 6 BITS CONTAIN LOWER SECTOR                  DTC
*              LLUU   ADDRESS LIMIT(LEGAL VALUES ARE 0-27B)              DTCPTR1
*                                                                        DTC
*                     LOWER 6 BITS CONTAIN UPPER SECTOR                  DTC
*                     ADDRESS LIMIT(LEGAL VALUES ARE 0-27B)              DTCPTR1
*                                                                        DTC
*         P4 - XXXX   ENABLES 
* 
*              XXX1   ENABLE FULL PACK SEEKS
*                                                                        DTC
*         P5 - XXXX   DISABLES                                           DTC
*                                                                        DTC
*              XX1X   DISABLES SCRATCH PAK MESSAGE                       DTC
*                     FOR DTC12-DTC16                                    DTC
*                                                                        DTC
*              XX2X   DISABLES MANUAL OPERATION MESSAGE                  DTC
*                     FOR DTC20                                          DTC
*                                                                        DTC
*              2XXX   DISABLES OPPOSITE CHANNEL RESERVE                  DTC
*                                                                        DTC
*                                                                        DTC
*         P6 - XXXX    DATA PATTERN SELECTION                            DTCPTR1
*                                                                        DTCPTR1
*              XX00    ANY VALUE BETWEEN 0 AND 57                        DTCPTR1
*              XX57    WILL SELECT ONE DATA PATTERN                      DTCPTR1
*                                                                        DTCPTR1
*              XX77    SELECT ALL DATA PATTERNS                          DTCPTR1
*                                                                        DTCPTR1
*                                                                        DTC
*         P7 - XXAB   MARGINS (OFFSET/STROBES)                           DTC
*                                                                        DTC
*              XXX0 - NORMAL OFFSETS                                     DTC
*              XXX1 - FORWARD OFFSETS                                    DTC
*              XXX2 - REVERSE OFFSETS                                    DTC
*              XX0X - NORMAL STROBES                                     DTC
*              XX1X - EARLY STROBES                                      DTC
*              XX2X - LATE STROBES                                       DTC
*              7777 - DEFAULT - RUNS ALL MARGIN CONDITIONS               DTC
*                                                                        DTC
*         P8 - XAAA - COPY SELECTION FOR DTC20                           DTC
*                                                                        DTC
*              X100 - SELECT COPY 1 (DTC20A) OF DTC20                    DTC
*              X200 - SELECT COPY 2 (DTC20B) OF DTC20                    DTC
*                                                                        DTC
*         P9 - XXXA - VERBAL/OCTAL ERROR DISPLAY                         DTC
*                                                                        DTC
*              XXX0 - DEFAULT - OCTAL STATUS DISPLAY                     DTC
*                                                                        DTC
*              XXX1 - VERBAL STATUS DISPLAY                              DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   3.3   SECTION DESCRIPTION INDEX                                      DTC
*         NAME    DESCRIPTION       RUN TIME    ACCESS LEVEL             DTCPTR1
*                                     (SEC)       (MINIMUM)              DTCPTR1
*         ----   ------------       --------    ------------             DTCPTR1
*         DTC00  PARAMETER CHECK        .001       1
*         DTC01  DRIVE SELECT/DESEL/RTZ .22        3
*                TEST                                                    DTCPTR1
*         DTC02  DRIVE REGISTER         .13        3
*                POSITION TEST                                           DTCPTR1
*         DTC03  DRIVE REGISTER         7.4        3
*                BIT TEST                                                DTCPTR1
*         DTC04  SPINDLE SPEED          .49        3
*                TEST                                                    DTCPTR1
*         DTC05  SECTOR COUNTER         .21        1
*                TEST                                                    DTCPTR1
*         DTC06  SEEK CYLINDER         *.57        1
*                ADDRESS +1 INCR                                         DTCPTR1
*                TEST                                                    DTCPTR1
*         DTC07  SEEK CYLINDER         *.56        1
*                ADDRESS -1 DECR                                         DTCPTR1
*                TEST                                                    DTCPTR1
*         DTC08  SEEK CYLINDER         *.53        1
*                IN INCREASING INCR/                                     DTCPTR1
*                DECR TEST                                               DTCPTR1
*         DTC09  TOTAL CYLINDER SEEK    .62        1
*                TIME TEST                                               DTCPTR1
*         DTC10 SEQUENTIAL CYLINDER    *.60        1
*                SEEK TIME TEST                                          DTCPTR1
*         DTC11  AVERAGE CYLINDER      *1.2        1
*                SEEK TIME TEST                                          DTCPTR1
*         DTC12  READ ADDRESS TEST     *1.0        1
*         DTC13  WRITE VERIFY TEST      2.1   **** 3 OR 4 
*         DTC14  READ/WRITE TEST      **1.7   **** 3 OR 4 
*         DTC15  HEAD ADVANCE TEST      3.7   **** 3 OR 4 
*         DTC16  READ/WRITE INTER-      4.3   **** 3 OR 4 
*                LACING TEST                                             DTCPTR1
*         DTC17  OFF CYLINDER READ      .11        3
*                FAULT TEST                                              DTCPTR1
*         DTC18  OFF CYLINDER WRITE     .11        4
*                FAULT TEST                                              DTCPTR1
*         DTC19  SEEK CYLINDER          .57        3
*                FAULT TEST                                              DTCPTR1
*         DTC20  DUAL ACCESS TEST       ***        10                    DTCPTR1
*                                                                        DTCPTR1
*                                                                        DTC
*                                                                        DTC
*         ***-THESE MODULES REQUIRE OPERATOR INTERVENTION                DTC
*             THEREFORE THE RUN TIME WILL VARY                           DTC
*                                                                        DTC
*         * - THE RUN TIME INCLUDES TESTING ONE CYLINDER.                DTC
*             IF MORE THAN ONE CYLINDER IS TESTED, RUN                   DTC
*             TIME WILL INCREASE BY THIS VALUE X CYL COUNT               DTC
*                                                                        DTC
*         **- THE RUN TIME INCLUDES TESTING ONE CYLINDER                 DTC
*             USING ONE DATA PATTERN. MULTIPLY RUN TIME                  DTC
*             BY THIS VALUE IF PATTERN OR CYLINDER COUNT                 DTC
*             IS INCREMENTED.                                            DTC
*                                                                        DTC
*         **** - AN ACCESS LEVEL OF 3 IS REQUIRED FOR R/W ON             DTCPTR1
*                PRE-ALLOCATED CYLINDERS (1464-1466).                    DTCPTR1
*         **** - AN ACCESS LEVEL OF 4 IS REQUIRED FOR R/W                DTCPTR1
*                OUTSIDE THE PRE-ALLOCATED CYLINDERS.                    DTCPTR1
*                                                                        DTC
*                            *********
*                            *CAUTION*
*                            *********
* 
*         **** - IN PARAMETER DRIVEN MODULES WITH AN ACCESS 
*                LEVEL OF 4, DATA CAN BE DESTROYED ANYWHERE 
*                ON THE PACK. THEREFORE, IT IS ADVISABLE NOT
*                TO SWAP THE PACK WHILE RUNNING THE DIAGNOSTIC. 
* 
*         NOTE_ONE CYLINDER=19D TRACKS AND 24D SECTORS/TRACK             DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   4.    OPERATOR COMMUNICATION                                         DTC
*          -------- -------------                                        DTC
*                                                                        DTC
*   4.1   MESSAGE FORMATS                                                DTC
*                                                                        DTC
*         THE MESSAGE FORMATS USED BY DTC TO REPORT ERRORS               DTC
*         AND INSTRUCT THE OPERATOR ARE--                                DTC
*                                                                        DTC
*         00                                                             DTC
*         01  DTC - 844-4X DISK DRIVE DIAGNOSTIC                         DTC
*         02  DTCNN - MODULE TITLE                                       DTC
*         03                                                             DTC
*         04  DRIVE/CONTROLLER CONNECT MESSAGE                           DTC
*         04  DTCNN - LINE YYYY - ERROR NUMBER TTEEE                     DTC
*         05  ERROR MESSAGE (INDEXED BY EM/EC REGISTER)                  DTC
*         06  LAST FUNCTION EXECUTED                                     DTC
*         07                                                             DTC
*         10  DETAILED ERROR DESCRIPTION                                 DTC
*         11  DETAILED ERROR DESCRIPTION                                 DTC
*         12  DETAILED ERROR DESCRIPTION                                 DTC
*         13  DETAILED ERROR DESCRIPTION                                 DTC
*         14                                                             DTC
*         15                                                             DTC
*         16  VERBAL/OCTAL STATUS REPORTING                              DTC
*         17  VERBAL/OCTAL STATUS REPORTING                              DTC
*         20  VERBAL/OCTAL STATUS REPORTING                              DTC
*         21  VERBAL/OCTAL STATUS REPORTING                              DTC
*         22  VERBAL/OCTAL STATUS REPORTING                              DTC
*         23  VERBAL STATUS REPORTING                                    DTC
*         24  VERBAL STATUS REPORTING                                    DTC
*         25  VERBAL STATUS REPORTING                                    DTC
*         26  VERBAL STATUS REPORTING                                    DTC
*         27  VERBAL STATUS REPORTING                                    DTC
*         30  VERBAL STATUS REPORTING                                    DTC
*         31  VERBAL STATUS REPORTING                                    DTC
*         32  VERBAL STATUS REPORTING                                    DTC
*         33  VERBAL STATUS REPORTING                                    DTC
*         34  VERBAL STATUS REPORTING                                    DTC
*         35  VERBAL STATUS REPORTING                                    DTC
*         36  VERBAL STATUS REPORTING                                    DTC
*         37  VERBAL STATUS REPORTING                                    DTC
*         40  VERBAL STATUS REPORTING                                    DTC
*         41  VERBAL STATUS REPORTING                                    DTC
*         42  VERBAL STATUS REPORTING                                    DTC
*         43  VERBAL STATUS REPORTING                                    DTC
*         44  VERBAL STATUS REPORTING                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         NN IS THE MODULE NUMBER.                                       DTC
*                                                                        DTC
*         YYYY IS THE ADDRESS THE ERROR OCCURRED IN THE                  DTC
*           PRIMARY MODULE.                                              DTC
*                                                                        DTC
*         TT IS THE TEST NUMBER (IN HEX).                                DTC
*                                                                        DTC
*         EEE IS THE ERROR NUMBER (IN HEX).                              DTC
*                                                                        DTC
*         THE ERROR MESSAGE IS A ONE LINE STATEMENT                      DTC
*         EXPLAINING THE ERROR CONDITION.                                DTC
*                                                                        DTC
*         THE LAST FUNCTION EXECUTED WILL BE DISPLAYED                   DTC
*         TO BE USED BY OPERATOR IN LOCATING THE PLACE                   DTC
*         IN THE MODULE WHERE THE ERROR OCCURRED.                        DTC
*                                                                        DTC
*         THE DETAILED ERROR DESCRIPTION WILL VARY                       DTC
*           FROM MODULE TO MODULE.                                       DTC
*                                                                        DTC
*         OCTAL STATUS REPORTING WILL SIMPLY DISPLAY                     DTC
*         GENERAL,DETAILED AND EXTENDED DETAIL STATUS                    DTC
*         IN A 12 BIT OCTAL WORD. THE OPERATOR WILL HAVE                 DTC
*         TO INTERPRET THE BIT CONDITION TO DETERMINE THE                DTC
*         ERROR.                                                         DTC
*                                                                        DTC
*         VERBAL STATUS REPORTING WILL INTERPRET ALL BIT                 DTC
*         CONDITIONS IN GENERAL,DETAILED AND EXTENDED DETAIL             DTC
*         STATUS AND REPORT ANY FAILING CONDITIONS VERBALLY.             DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   4.2   MESSAGE DICTIONARY                                             DTC
*                                                                        DTC
*   4.2.1 ERROR MESSAGES                                                 DTC
*                                                                        DTC
*     DTC98C/D                                                           DTCPTR1
*         ERROR CODE XX001   CONTROLLER IS ALREADY RESERVED              DTCPTR1
*         ERROR CODE XX002   DRIVE IS ALREADY RESERVED                   DTCPTR1
*         ERROR CODE XX003   DRIVE IS BUSY                               DTCPTR1
*         ERROR CODE XX004   DRIVE MALFUNCTION                           DTCPTR1
*         ERROR CODE XX005   DRIVE UNCONNECTED                           DTCPTR1
*         ERROR CODE XX006   DRIVE NOT READY                             DTCPTR1
*         ERROR CODE XX007   FAULT REGISTER ERROR                        DTCPTR1
*         ERROR CODE XX008   DRIVE CONTROL REGISTER ERROR                DTCPTR1
*         ERROR CODE XX009   DRIVE CONTROL REGISTER ERROR                DTCPTR1
*         ERROR CODE XX00A   DRIVE INTERLOCK REGISTER ERROR              DTCPTR1
*     DTC01                                                              DTCPTR1
*         ERROR CODE 3100B   CONTROLLER STILL CONNECTED AFTER REL        DTCPTR1
*         ERROR CODE 3100C   DRIVE STILL CONNECTED AFTER REL COMMAND     DTCPTR1
*     DTC02                                                              DTCPTR1
*         ERROR CODE 3200D   CYLINDER REGISTER POSITION ERROR            DTCPTR1
*         ERROR CODE 3200E   DIFFERENCE REGISTER POSITION ERROR          DTCPTR1
*         ERROR CODE 3200F   HEAD REGISTER POSITION ERROR                DTCPTR1
*         ERROR CODE 32010   SECTOR REGISTER POSITION ERROR              DTCPTR1
*     DTC03                                                              DTCPTR1
*         ERROR CODE 32011   DATA ERROR IN ONE OF 4 DRIVE REGISTERS      DTCPTR1
*     DTC04                                                              DTCPTR1
*         ERROR CODE 32012   INVALID SPINDLE SPEED DATA                  DTCPTR1
*         ERROR CODE 32013   SPINDLE SPEED TOO HIGH ( GT 17 MSEC)        DTCPTR1
*         ERROR CODE 32014   SPINDLE SPEED TOO LOW  ( LT 16 MSEC)        DTCPTR1
*     DTC05                                                              DTCPTR1
*         ERROR CODE 32015   ACTUAL AND EXPECTED SECTOR ADDR DISAGREE    DTCPTR1
*     DTC09                                                              DTCPTR1
*         ERROR CODE 34016   FORWARD FULL SEEK ERROR                     DTCPTR1
*         ERROR CODE 34017   REVERSE FULL SEEK ERROR                     DTCPTR1
*     DTC10                                                              DTCPTR1
*         ERROR CODE 34018   FORWARD CYLINDER SEEK TIME ERROR            DTCPTR1
*         ERROR CODE 34019   REVERSE CYLINDER SEEK TIME ERROR            DTCPTR1
*     DTC11                                                              DTCPTR1
*         ERROR CODE 3401A   AVERAGE SEEK TIME EXCEEDS 45B MSEC          DTCPTR1
*         ERROR CODE 3401B   AVERAGE SEEK TIME IS ZERO - INVALID         DTCPTR1
*     DTC17                                                              DTCPTR1
*         ERROR CODE 3A01C   OFF-CYLINDER FAULT BIT DIDNT SET            DTCPTR1
*         ERROR CODE 3A01D   PACK UNSAFE BIT DIDNT SET                   DTCPTR1
*         ERROR CODE 3A01E   OFF-CYLINDER FAULT BIT DIDNT CLEAR          DTCPTR1
*         ERROR CODE 3A01F   PACK UNSAFE BIT DIDNT CLEAR                 DTCPTR1
*     DTC18                                                              DTCPTR1
*         ERROR CODE 3A020   OFF-CYLINDER FAULT BIT DIDNT SET            DTCPTR1
*         ERROR CODE 3A021   PACK UNSAFE BIT DIDNT SET                   DTCPTR1
*         ERROR CODE 3A022   OFF-CYLINDER BIT DIDNT CLEAR                DTCPTR1
*         ERROR CODE 3A023   PACK UNSAFE BIT DIDNT CLEAR                 DTCPTR1
*     DTC19                                                              DTCPTR1
*         ERROR CODE 3A024   SEEK FAULT BIT DIDNT SET                    DTCPTR1
*         ERROR CODE 3A025   INVALID SEEK BIT DIDNT SET                  DTCPTR1
*         ERROR CODE 3A026   SEEK FAULT BIT DIDNT CLEAR                  DTCPTR1
*         ERROR CODE 3A027   INVALID SEEK BIT DIDNT CLEAR                DTCPTR1
*     DTC20A                                                             DTCPTR1
*         ERROR CODE 3B028   COULDNT RESERVE THE 844 DRIVE               DTCPTR1
*         ERROR CODE 3B029   844 DRIVE NOT RESERVED BY COPY 1            DTCPTR1
*         ERROR CODE 3B02A   COULDNT RESERVE THE 844 DRIVE               DTCPTR1
*     DTC20B                                                             DTCPTR1
*         ERROR CODE 3B02B   844 DRIVE NOT RESERVED BY COPY 0            DTCPTR1
*         ERROR CODE 3B02C   COULDNT RESERVE THE 844 DRIVE               DTCPTR1
*   4.2.1.1  PP DISPLAY BUFFER MESSAGES                                  DTC
*                                                                        DTC
*         THE ERROR MESSAGES WHICH ARE POSTED BY DTC IN THE PP DISPLAY B DTC
*         AND DO NOT FOLLOW THE FORMAT DESCRIBED IN 4.1 ARE--            DTC
*                                                                        DTC
*                MODULE DTC*H WAS UNABLE TO                              DTC
*                ESTABLISH A CONNECT TO THE FMD/844                      DTC
*                CONTROLLER                                              DTC
*                                                                        DTC
*                MODULE DTC*H WAS UNABLE TO                              DTC
*                ESTABLISH A CONNECT TO THE 844-4X                       DTC
*                DISK DRIVE - UNIT XX                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   4.2.1.2  B DISPLAY MESSAGES                                          DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   5.    DESCRIPTIONS                                                   DTC
*         ------------                                                   DTC
*                                                                        DTC
*   5.1   GENERAL                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         DTC WAS WRITTEN TO DETECT 844-4X DRIVE ERRORS. DTC             DTC
*         WILL NOT ISOLATE THE ERROR AND SO THE OPERATOR MUST            DTC
*         INTERPRET THE INFORMATION GIVEN HIM BY THE STATUS              DTC
*         REPORTED ON AN ERROR.                                          DTC
*                                                                        DTC
*                                                                        DTC
*   5.2   DIAGNOSTIC MODULE DESCRIPTIONS                                 DTC
*                                                                        DTC
   MODULE DTC00,844FT, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC00 - DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAY PARAMETER REGISTER ERRORS AND                DTC
*                   MESSAGE CORRESPONDING TO PARAMETER                   DTC
*                   REGISTER SETTINGS                                    DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD -  TEST PARAMETER REGISTERS                             DTC
*                                                                        DTC
*                            P0- LIMITS 0-1466B                          DTC
*                            P1- LIMITS 0-1466B                          DTC
*                            P2- LIMITS 0000-0022B                       DTC
*                            P3- LIMITS 0000-0027B                       DTC
*                            P5- 0010 - SCRATCH PAK MESSAGE NOT          DTC
*                                       DISPLAYED                        DTC
*                            P5- 0020 - MANUAL OPERATED TEST             DTC
*                            P7=0000 - NORMAL OFFSET/                    DTC
*                                      NORMAL STROBE                     DTC
*                            P7=0001 - FORWARD OFFSET/                   DTC
*                                      NORMAL STROBE                     DTC
*                            P7=0002 - REVERSE OFFSET                    DTC
*                                      NORMAL STROBE                     DTC
*                            P7=0010 - NORMAL OFFSET/                    DTC
*                                      EARLY STROBE                      DTC
*                            P7=0011 - FORWARD OFFSET/                   DTC
*                                      EARLY STROBE                      DTC
*                            P7=0012 - REVERSE OFFSET/                   DTC
*                                      EARLY STROBE                      DTC
*                            P7=0020 - NORMAL OFFSET/                    DTC
*                                      LATE STROBE                       DTC
*                            P7=0021 - FORWARD OFFSET/                   DTC
*                                      LATE STROBE                       DTC
*                            P7=0022 - REVERSE OFFSET/                   DTC
*                                      LATE OFFSET                       DTC
*                            P8- 0100 - COPY 0 OF DTC20                  DTC
*                                0200 - COPY 1 OF DTC20                  DTC
*                            P9=0000 - OCTAL STATUS DISPLAY              DTC
*                               0001 - VERBAL STATUS DISPLAY             DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY- THE ABOVE PARAMETER REGISTERS MUST BE SET TO            DTC
*                LEGAL VALUES OR DTC00 WILL PAUSE AND DISPLAY            DTCPTR1
*                AN ERROR MESSAGE.  THE OPERATOR MAY THEN ENTER          DTCPTR1
*                THE CORRECT PARAMETER REGISTER VALUE AND RE-            DTCPTR1
*                RUN DTC00.  DTC REQUIRES THAT THE PARAMETER             DTCPTR1
*                REGISTER BE SET ON ENTRY TO TEST DTC.  IF DTC           DTCPTR1
*                IS RUN WITH ALL PARAMETERS SET TO ZERO, DTC06,07,       DTCPTR1
*                08,10, AND DTC16 WILL GENERATE DEFAULT VALUES AT        DTCPTR1
*                MODULE RUN TIME.                                        DTCPTR1
*                                                                        DTC
*         EXIT- THERE ARE NO CONDITIONS SET ON EXITING THIS MODULE       DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-NONE                                     DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - NOT USED                                                  DTC
*         B3 - PARAMETER ERROR INDICATOR                                 DTC
*         B4 - NOT USED                                                  DTC
*         B5 - NOT USED                                                  DTC
*         B6 - NOT USED                                                  DTC
*         B7 - NOT USED                                                  DTC
*         B8 - NOT USED                                                  DTC
*         B9 - NOT USED                                                  DTC
*         B10- INDEX INDICATING DISPLAY LINE USED                        DTC
*         B11- NOT USED                                                  DTC
*         B12- LOWER SECTOR PARAMETER ADDRESS                            DTC
*         B13- UPPER SECTOR PARAMETER ADDRESS                            DTC
*         B14- LOWER TRACK PARAMETER ADDRESS                             DTC
*         B15- UPPER TRACK PARAMETER ADDRESS                             DTC
*         BA, ES, EC, EM, EA - STANDARD USAGE                            DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED- NONE                                             DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         KNOWN LIMITATIONS- IF THE PARAMETER REGISTERS CONTAIN ILLEGAL  DTC
*                            VALUES, DTC00 WILL LOOP ON ITSELF UNTIL THE DTC
*                            ILLEGAL VALUES ARE CHANGED.                 DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC00 - PARAMETER CHECKER                                      DTC
2  FORMAT THE PARAMETER REGISTERS SPECIFY THE FOLLOWING_                 DTC
3  FORMAT CYL *OCT-*OCTB TRK *OCT-*OCTB SECT*OCT-*OCTB                   DTC
4  FORMAT ILLEGAL PATTERN INDEX SET IN P6 - 0-57B,77 LEGAL               DTCPTR1
5  FORMAT CHANGE ILLEGAL CYLINDER PARAMETERS IN P0/P1                    DTC
6  FORMAT THE LOWER CYLINDER IS GREATER THAN UPPER CYLINDER              DTC
7  FORMAT CHANGE ILLEGAL TRACK PARAMETERS IN P2                          DTC
10 FORMAT THE LOWER TRACK IS GREATER THAN UPPER TRACK                    DTC
11 FORMAT CHANGE ILLEGAL SECTOR PARAMETERS IN P3                         DTC
12 FORMAT THE LOWER SECTOR IS GREATER THAN UPPER SECTOR                  DTC
* CYLINDER ADDRESS CHECK                                                 DTC
31 B0=60                                                                 DTC
   B1=0                                                                  DTC
   B3=0                                                                  DTC
   MSG 1 TO PRINT                                                        DTCPTR2
35 B10=6                                                                 DTC
   IF(P0 LE 1466B) GOTO 36                                               DTC
   MSG 5 TO LINE B10         *P0 GT 1466B - ILLEGAL                      DTC
   B10=B10+1                                                             DTC
   B3=B3+1                                                               DTC
   GOTO 37                                                               DTC
36 IF(P1 LE 1466B) GOTO 37                                               DTC
   MSG 5 TO LINE B10         *P1 GT 1466B - ILLEGAL                      DTC
   B10=B10+1                                                             DTC
   B3=B3+1                                                               DTC
37 IF(P0 LE P1) GOTO 41                                                  DTC
   MSG 6 TO LINE B10         *P0 GT P1 - ILLEGAL                         DTC
   B3=B3+1                                                               DTC
   B10=B10+2                                                             DTC
* TRACK ADDRESS CHECK                                                    DTC
41 B14=P2 AND 7700            *LOWER TRACK ADDRESS                       DTC
   B14=B14 RS 6                                                          DTC
   B15=P2 AND 77              *UPPER TRACK ADDRESS                       DTC
   IF(B14 LE 22B) GOTO 42                                                DTC
   MSG 7 TO LINE B10         *LOW TRACK ADDRESS GT 22B-ILLE              DTC
   B10=B10+1                                                             DTC
   B3=B3+1                                                               DTC
   GOTO 43                                                               DTC
42 IF(B15 LE 22B) GOTO 43                                                DTC
   MSG 7 TO LINE B10         *HI TRACK ADDRESS GT 22B-ILLEG              DTC
   B10=B10+1                                                             DTC
   B3=B3+1                                                               DTC
43 IF(B14 LE B15) GOTO 45                                                DTC
   MSG 10 TO LINE B10         *LOW TRACK ADDR GT HI TRACK AD             DTC
   B3=B3+1                                                               DTC
45 B10=B10+2                                                             DTC
* SECTOR ADDRESS CHECK                                                   DTC
   B12=P3 AND 7700            *LOWER SECTOR ADDRESS                      DTC
   B12=B12 RS 6                                                          DTC
   B13=P3 AND 77              *UPPER SECTOR ADDRESS                      DTC
   IF(B12 LE 27B) GOTO 46                                                DTC
   MSG 11 TO LINE B10         *LOW SECT ADDR GT 27B - ILLEG              DTC
   B10=B10+1                                                             DTC
   B3=B3+1                                                               DTC
   GOTO 47                                                               DTC
46 IF(B13 LE 27B) GOTO 47                                                DTC
   MSG 11 TO LINE B10         *HI SECT ADDR GT 27B - ILLEG               DTC
   B10=B10+1                                                             DTC
   B3=B3+1                                                               DTC
47 IF(B12.LE.B13) GOTO 60                                                DTCPTR2
   MSG 12 TO LINE B10         *LOW SECT ADDR GT HI SECT ADDR             DTC
   B10=B10+1                                                             DTC
   B3=B3+1                                                               DTC
60 IF(P6 LE 57B) GOTO 62   *SELECTION OF DATA PATTERN                    DTC
   IF(P6 EQ 77) GOTO 62   *SELECT ALL DATA PATTERNS                      DTCPTR1
   MSG 4 TO LINE B10                                                     DTC
   B3=B3+1                                                               DTC
62 IF(B3 EQ 0) GOTO 63                                                   DTC
   MSG 1 TO LINE 1                                                       DTCPTR2
   MSG 2 TO LINE 3                                                       DTCPTR2
   MSG 3(P0,P1,B14,B15,B12,B13) TO LINE 4   *DISPLAY PARAM               DTCPTR2
   PICTURE                                                               DTCPTR1
   PAUSE                                                                 DTCPTR1
   GOTO 35                                                               DTCPTR2
63 IF(ES.AND.RM.NE.0) GOTO 35                                            DTCPTR2
   EXIT                                                                  DTCPTR2
   END 31                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC01,844HT, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC01 - DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DTC01 EXERCISES THE DRIVE AND CONTROLLER               DTC
*                 INTERFACE BOARDS. THE DRIVE IS CONNECTED               DTC
*                 AND DISCONNECTED WHILE THE UNSELECTED                  DTC
*                 STATUS BITS ARE CHECKED. (THE UNSELECTED               DTC
*                 STATUS BITS ARE DRIVE BUSY, SELECTED,                  DTC
*                 READY AND ON-LINE)                                     DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- THE DRIVE IS CONNECTED WITH A CALL TO                  DTC
*                 SUBMODULE DTC98C. THE DRIVE UNSELECTED                 DTC
*                 STATUS BITS ARE THEN CHECKED.  IF THE                  DTC
*                 DRIVE IS READY,ON-LINE,SELECTED AND                    DTC
*                 NOT BUSY, THE DRIVE IS RELEASED AND THE                DTC
*                 SELECT BIT SHOULD BE CLEARED.  IF AN                   DTC
*                 ERROR OCCURS IN THIS PROCESS, SUBMODULE                DTC
*                 DTC01A IS CALLED AND THE ERROR IS REPORTED.            DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98C - RESERVES THE I/O CHANNEL,                    DTC
*                           CONNECTS THE FMD CONTROLLER                  DTC
*                           AND THE 844 DISK DRIVE                       DTC
*                                                                        DTC
*                  DTC01A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC01                 DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*         B6 - NOT USED                                                  DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - NOT USED                                                  DTC
*         B10- NOT USED                                                  DTC
*         B11- NOT USED                                                  DTC
*         B12- NOT USED                                                  DTC
*         B13- NOT USED                                                  DTC
*         B14- NOT USED                                                  DTC
*         B15- NOT USED                                                  DTC
*         BA, ES, EC, EM, EA - STANDARD USAGE                            DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*                                                                        DTC
*         OB(400) TO OB(415) - CONTAIN CHANNEL FUNCTIONS                 DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*         SB(1) TO SB(24) - CONTAINS DETAILED/EXTENDED                   DTC
*                           DETAILED STATUS                              DTC
*                                                                        DTC
*         DTC01 ERROR CODES - 3100A - CONTROLLER DID NOT RELEASE         DTC
*                             3100B - DRIVE DID NOT RELEASE              DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC01 - 844 SELECT/DESEL/RTZS TEST
3  FORMAT DTC01 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC01 ERROR(S) = *DECD                                         DTCPTR2
   EQUATE CRSVD=2000, DRSVD=10                                           DTC
   EQUATE CONNECT=501                                                    DTC
   EQUATE CH12 = 12B
*                                                                        DTCPTR2
/         MODULE INITIALIZATION                                          DTCPTR2
*                                                                        DTCPTR2
20 MSG 2 TO PRINT            *PRINT MODULE NAME                          DTCPTR2
   B0=61                     *TEST NUMBER XX HEX                         DTC
   B1=01                     *MODULE NUMBER                              DTC
   B7=0                      *CLEAR ERROR COUNT                          DTC
   B8=0                      *CLEAR LOOP COUNT                           DTC
*                                                                        DTC
/  RESERVE AND CONNECT TO FMD CONTROLLER AND 844 DRIVE                   DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE,ABT 60          *CONNECT DRIVE AND CONTROLLER
* 
/         RETURN-TO-ZERO SEEK 
* 
32 B3 = 2                    *CONDITION NO. 2 
   RES DRIVE,ABT 60          *CONNECT DRIVE AND CONTROLLER
   OUT CHANNEL=CH12,0,100, ABT 60   *CONTROL SELECT LOW/BUS STABLE
   OUT CHANNEL=CH12,10,100, ABT 60  *ISSUE CONTROL SELECT TAG LINE
   OUT CHANNEL=CH12,0,100, ABT 60   *DROP CONTROL SELECT TAG LINE 
   OUT CHANNEL=11B,000,201,ABT 60  *SELECT CYL REG
   STATUS CHANNEL,ABT 60
   IB(25) = SB(25).AND.3.LS.10B 
   IB(25) = SB(26).AND.377+IB(25)  *FORM REG CONT. IN 1 WORD
   IF(IB(25).EQ.0) GOTO 64    *NO REGISTER ERROR EXIT 
   ERROR 7/14 
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 01A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC01A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC01A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC01, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC01A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC01 - 844 SELECT/DESEL/RTZS TEST
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
/         0100X ERROR MESSAGE.                                           DTC
6  FORMAT CONTROLLER DID NOT RELEASE                                     DTC
7  FORMAT DRIVE DID NOT RELEASE                                          DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTCPTR2
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTCPTR2
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTCPTR2
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTCPTR2
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTCPTR2
30 FORMAT CHAN  CHANNEL STATUS(HEXADECIMAL) 
31 FORMAT  00B  *H*H  *H*H  *H*H  *H*H
32 FORMAT  04B  *H*H  *H*H  *H*H  *H*H
33 FORMAT  10B  *H*H  *H*H  *H*H  *H*H
34 FORMAT  14B  *H*H  *H*H  *H*H  *H*H
/                                                                        DTC
22 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
24 MSG 4 (EA,B0,EC) TO LINE 4                                            DTC
   MSG EM TO LINE 5                                                      DTC
   IF(EC.NE.14) GOTO 25    *NOT CHANNEL ERROR STATUS
23 MSG 30 TO LINE 10
   MSG 31, 8 WORDS FROM SB(1) TO LINE 11
   MSG 32, 8 WORDS FROM SB(11) TO LINE 12 
   MSG 33, 8 WORDS FROM SB(21) TO LINE 13 
   MSG 34, 8 WORDS FROM SB(31) TO LINE 14 
   GOTO 77
25 EXIT TO 98H
   GOTO 77                                                               DTCPTR2
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5 (LF) TO LINE 6                                                  DTC
   IF(P9.EQ.0) GOTO 27                                                   DTCPTR2
   EXIT TO 98H                                                           DTCPTR2
   GOTO 77                                                               DTCPTR2
27 MSG 13 TO LINE 16                                                     DTCPTR2
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTCPTR2
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTCPTR2
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTCPTR2
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTCPTR2
   GOTO 77                                                               DTCPTR2
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 22                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC02,844HT, (03,05),LOCK                                      DTC
**                                                                       DTCPTR1
*         DTC02 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC02 DETERMINES IF THE 4 DRIVE REGISTERS              DTC
*                 (CYLINDER,DIFFERENCE,HEAD, AND SECTOR)                 DTC
*                 ARE WIRED CORRECTLY TO THE DRIVE INTERFACE.            DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD - A BACKGROUND PATTERN OF ZEROS IS WRITTEN              DTC
*                  INTO EACH OF THE 4 DRIVE REGISTERS. THEN              DTC
*                  EACH OF THE REGISTERS IS TESTED IN THE                DTC
*                  FOLLOWING WAY_                                        DTC
*                                                                        DTC
*                    1) WRITE ONES PATTERN INTO TEST REGISTER            DTC
*                    2) CHECK TEST REGISTER FOR ONES PATTERN             DTC
*                    3) CHECK OTHER 3 REGISTERS FOR BACKGROUND           DTC
*                       PATTERN                                          DTC
*                    4) RE-WRITE BACKGROUND PATTERN INTO THE             DTC
*                       TEST REGISTER                                    DTC
*                                                                        DTC
*                  ANY ERROR OCCURING DURING THE TEST SEQUENCE           DTC
*                  WILL RESULT IN A CALL TO DTC02A WHICH                 DTC
*                  PROCESSES AND DISPLAYS ERROR INFORMATION.             DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98C - RESERVES THE I/O CHANNEL,                    DTC
*                           CONNECTS THE FMD CONTROLLER                  DTC
*                           AND THE 844 DISK DRIVE                       DTC
*                                                                        DTC
*                  DTC02A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC02                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - DATA BUFFER INDEX                                         DTC
*         B3 - TEMPORARY ERROR INDICATOR                                 DTC
*         B4 - IB,OB BUFFER INDEX                                        DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - DRIVE REGISTER INDEX                                      DTC
*         B10- NOT USED                                                  DTC
*         B11- DIFFERENCE REGISTER INDICATOR                             DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB - OB(400) THRU OB(407) CONTAIN DATA WRITTEN                 DTC
*         IB - IB(400) THRU IB(407) CONTAIN DATA READ                    DTC
*         IB - IB(24),(25) CONTAIN DATA READ FROM REG                    DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*         OB(501) - CONTAINS FUNCTION TO DIFFERENCE REGISTER             DTC
*                                                                        DTC
*         REMARKS - DTC02 TAKES 2 SECONDS TO EXECUTE.                    DTC
*                                                                        DTC
*                                                                        DTC
*         DTC02 ERROR CODES - 3200C - CYL REGISTER POSITION ERROR        DTC
*                             3200D - DIFFERENCE REG POSITION ERROR      DTC
*                             3200E - TRACK REGISTER POSITION ERROR      DTC
*                             3200F - SECTOR REGISTER POSITION ERROR     DTC
2  FORMAT DTC02-844 REG POSITION TEST                                    DTC
3  FORMAT DTC02 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC02 ERROR(S) = *DECD                                         DTCPTR2
   DATA(OB(400),CON) 1777,0000,0000,0000  *EXPECTED REGISTER             DTC
   DATA(OB(404),CON) 0000,1777,0000,0000  *DATA                          DTC
   DATA(OB(410),CON) 0000,0000,0037,0000                                 DTC
   DATA(OB(414),CON) 0000,0000,0000,0037                                 DTC
   EQUATE CONNECT=501                                                    DTC
   EQUATE CH12 = 12B
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT            *PRINT MODULE NAME                          DTCPTR2
   B0=62                     *TEST NUMBER XX HEX                         DTC
   B1=02                     *MODULE NUMBER                              DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
*                                                                        DTC
/          ISSUE TEST COMMANDS TO 844-4X DRIVE                           DTC
*                                                                        DTC
25 B4 = 0                    *REGISTER INDEX                             DTCPTR2
*                                                                        DTCPTR2
/         WRITE ZEROS IN ALL FOUR REGISTERS                              DTCPTR2
*                                                                        DTCPTR2
   RES DRIVE, ABT 62                   *RESERVE DRIVE 
   GOSUB 50                            *WRITE ZEROES ALL REG(S) 
* TEST CYLINDER REGISTER                                                 DTC
27 B3 = 2                                                                DTCPTR2
   OUT CHANNEL=12B,103,377, ABT 60                                       DTC
   OUT CHANNEL=12B,003,377, ABT 60     *WRITE ONES                       DTC
   GOSUB 37                                                              DTC
30 GOSUB 50                            *WRITE ZEROES ALL REG(S) 
* TEST DIFFERENCE REGISTER                                               DTC
31 B3 = 3                                                                DTCPTR2
   OUT CHANNEL=12B,203,377, ABT 60                                       DTC
   OUT CHANNEL=12B,003,377, ABT 60     *WRITE ONES                       DTC
   GOSUB 37                                                              DTC
32 GOSUB 50                            *WRITE ZEROES ALL REG(S) 
* TEST HEAD REGISTER                                                     DTC
33 B3 = 4                                                                DTCPTR2
   OUT CHANNEL=12B,040,037, ABT 60                                       DTC
   OUT CHANNEL=12B,000,037, ABT 60     *WRITE ONES                       DTC
   GOSUB 37                                                              DTC
34 GOSUB 50                            *WRITE ZEROES ALL REG(S) 
* TEST SECTOR REGISTER                                                   DTC
35 B3 = 5                                                                DTCPTR2
   OUT CHANNEL=12B,020,037, ABT 60                                       DTC
   OUT CHANNEL=12B,000,037, ABT 60     *WRITE ONES                       DTC
   GOSUB 37                                                              DTC
36 GOSUB 50                            *WRITE ZEROES ALL REG(S) 
   GOSUB 60                            *RETURN-TO-ZERO SEEK 
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         READ DATA PATTERN IN EACH REGISTER                             DTCPTR2
*                                                                        DTCPTR2
37 OUT CHANNEL=11B,000,201, ABT 60     *CYL REG 
   B9=1                                                                  DTC
   GOSUB 40                                                              DTC
   OUT CHANNEL=11B,000,202, ABT 60     *DIFF REG                         DTC
   GOSUB 40                                                              DTC
   OUT CHANNEL=11B,000,203, ABT 60     *HEAD REG                         DTC
   GOSUB 40                                                              DTC
   OUT CHANNEL=11B,000,205, ABT 60     *SECTOR REG                       DTC
   GOSUB 40                                                              DTC
   RETURN                                                                DTC
*                                                                        DTCPTR2
/         VERIFY DATA PATTERN IN EACH REGISTER                           DTCPTR2
*                                                                        DTCPTR2
40 STATUS CHANNEL, ABT 60                                                DTC
   IB(25)=SB(25) AND 3 LS 10B  *THE CONTENTS OF EACH REG WILL 
   IB(26)=SB(26) AND 377   *APPEAR IN WORDS 25,26 OF NIC-10              DTC
/                          *MASK DATA BITS FROM THESE WORDS 
   IB(B4+400)=IB(25) + IB(26)  *COMBINE INTO 1 WORD OF DATA              DTC
   IF(B9 EQ 2)IB(B4+400)=IB(B4+400) XOR 1777  *IF DIF REG, COMPLMNT 
42 IF(IB(B4+400) EQ OB(B4+400)) GOTO 44    *COMPARE EXP/REC              DTC
   IF(B3.EQ.2) ERROR 06/15
   IF(B3.EQ.3) ERROR 06/16
   IF(B3.EQ.4) ERROR 06/17
   IF(B3.EQ.5) ERROR 06/20
   GOTO 60
44 B4=B4+1                 *INCREMENT REGISTER COUNT                     DTC
   B9=B9+1                 *INCREMENT REGISTER INDEX
46 RETURN        *TEST CONTENTS OF ALL 4 REGISTERS                       DTCPTR2
*                                                                        DTCPTR2
/         WRITE ZEROS IN ALL FOUR REGISTERS                              DTCPTR2
*                                                                        DTCPTR2
50 OUT CHANNEL=12B,100,000, ABT 60   *CYL REG 
   OUT CHANNEL=12B,200,000, ABT 60   *DIFF REG                           DTC
   OUT CHANNEL=12B,040,000, ABT 60   *HEAD REG                           DTC
   OUT CHANNEL=12B,020,000, ABT 60   *SECTOR REG                         DTC
   OUT CHANNEL=12B,000,000, ABT 60                                       DTC
   RETURN 
* 
/         RETURN-TO-ZERO (RTZ) SEEK SUBROUTINE. 
* 
60 OUT CHANNEL=CH12,0,100,ABT 61   *BUS STABLE/CNTRL SEL LOW
   OUT CHANNEL=CH12,10,100,ABT 61  *ISSUE CNTRL SEL TAG LINE
   OUT CHANNEL=CH12,0,100,ABT 61   *DROP CNTRL SEL TAG LINE 
61 IF(EC.EQ.0) RETURN              *IF NO ERROR, EXIT SUBR
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
62 B7 = B7 + 1                     *INCREMENT ERROR COUNT 
   IF(ES.AND.SL.NE.0) GOTO 64 
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC AND 77 NE 25) GOTO 63
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
63 CALL 02A 
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   ENDSUB 
   IF(ES.AND.RC.NE.0) GOTO 22 
66 IF(ES.AND.RM.NE.0) GOTO 22 
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC02A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC02A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC02, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC02A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                TO THE ERROR CODE IN THE EC REGISTER                    DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B4 - IB,OB BUFFER INDEX                                        DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*         BUFFERS USED-OB(400-417) EXPECTED DATA                         DTC
*                      IB(400-417) RECEIVED DATA                         DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC02-844 REG POSITION TEST                                    DTC
3  FORMAT FAILURE AT LINE *OCTB ERROR CODE=*H*HE                         DTC
4  FORMAT DTC ERROR CODE=*OCTB                                           DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
/         ERROR MESSAGES                                                 DTC
6  FORMAT EXPECTED AND ACTUAL REGISTER CONTENTS DISAGREE                 DTC
/                                                                        DTC
7  FORMAT      CYL      DIFF     HEAD      SECTOR                        DTC
/                                                                        DTC
10 FORMAT EXP *OCTB    *OCTB    *OCTB     *OCTB                          DTC
/                                                                        DTC
11 FORMAT ACT *OCTB    *OCTB    *OCTB     *OCTB                          DTC
/                                                                        DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
30 FORMAT CHAN  CHANNEL STATUS(HEXADECIMAL) 
31 FORMAT  00B  *H*H  *H*H  *H*H  *H*H
32 FORMAT  04B  *H*H  *H*H  *H*H  *H*H
33 FORMAT  10B  *H*H  *H*H  *H*H  *H*H
34 FORMAT  14B  *H*H  *H*H  *H*H  *H*H
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
22 MSG 3 (EA,B0,EC) TO LINE 4                                            DTC
   MSG 6 TO LINE 7                                                       DTC
   MSG 7 TO LINE 10                                                      DTC
   B4=B4-B9+1 
   MSG 10 4 WORDS FROM OB(B4+400) TO LINE 11                             DTC
   MSG 11 4 WORDS FROM IB(B4+400) TO LINE 12                             DTC
   B4=B4+B9-1 
   IF(EC.EQ.15) GOTO 23     *CHANNEL STATUS ERROR 
   IF(EC.EQ.16) GOTO 23     *CHANNEL STATUS ERROR 
   IF(EC.EQ.17) GOTO 23     *CHANNEL STATUS ERROR 
   IF(EC.EQ.20) GOTO 23     *CHANNEL STATUS ERROR 
   GOTO 24
23 MSG 30 TO LINE 16
   MSG 31, 8 WORDS FROM SB(1) TO LINE 17
   MSG 32, 8 WORDS FROM SB(11) TO LINE 20 
   MSG 33, 8 WORDS FROM SB(21) TO LINE 21 
   MSG 34, 8 WORDS FROM SB(31) TO LINE 22 
   GOTO 77
24 IF (P9.EQ.0) GOTO 25 
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6                                                   DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC03,844HT, (03,05),LOCK                                      DTC
** GENERAL INFO ABOUT MODULE DESIGN AND OPERATION                        DTC
*                                                                        DTC
*         DTC03 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC03 INSURES THAT EACH BIT OF ALL 4 DRIVE             DTC
*                 REGISTERS WILL PROPERLY STORE AND RETAIN               DTC
*                 VARIOUS DATA PATTERNS. THESE DATA PATTERNS             DTC
*                 ARE SHIFTED AND RESTORED IN EACH REGISTER              DTC
*                 TO CREATE WORST CASE CONDITIONS. THIS WILL             DTC
*                 THROUOUGHLY TEST EACH BIT UNDER CHANGING               DTC
*                 CONDITIONS OF ITS NEIGHBORING BITS.                    DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD -EACH OF THE FOUR DRIVE REGISTERS IS TESTED             DTC
*                 USING A SEQUENCE OF 4 DIFFERENT DATA                   DTC
*                 PATTERNS. AND EACH OF THESE DATA PATTERNS              DTC
*                 IS SHIFTED AND RESTORED TEN TIMES IN THE               DTC
*                 TEST REGISTER TO SIMULATE WORST CASE                   DTC
*                 CONDITIONS FOR THE REGISTER BITS.                      DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98C - RESERVES THE I/O CHANNEL,                    DTC
*                           CONNECTS THE FMD CONTROLLER                  DTC
*                           AND THE 844 DISK DRIVE                       DTC
*                                                                        DTC
*                  DTC03A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC03                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC03B - BUILDS A BLOCK OF DATA CONTAIN-              DTC
*                           ING A SINGLE DATA PATTERN                    DTC
*                           SHIFTED 10 TIMES.                            DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - DATA PATTERN INDEX                                        DTC
*         B3 - TEMPORARY ERROR INDICATOR                                 DTC
*         B4 - POINTER FOR OB,IB DATA COMPARE BUFFERS                    DTC
*         B5 - POINTER FOR TABLE CREATED IN DTC03B                       DTC
*         B6 - DRIVE REGISTER INDEX                                      DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - OB,IB BUFFER INDEX                                        DTC
*         B11- DIFFERENCE REGISTER INDICATOR                             DTC
*         B13- CHANNEL INFORMATION FOR OUT CHANNEL COMMAND               DTC
*         B14- DATA/FUNCTION FOR OUT CHANNEL COMMAND                     DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB - OB(400) THRU 0B(417) CONTAINS DATA WRITTEN                DTC
*         IB - IB(400) THRU IB(417) CONTAINS DATA READ                   DTC
*         IB - IB(24),(25) CONTAINS REGISTER DATA                        DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REMARKS - DTC03 TAKES 4 SECONDS TO EXECUTE.                    DTC
*                                                                        DTC
*         DTC03 ERROR CODES - 32010 - FAILING BIT IN ONE OF THE          DTC
*                                     DRIVE REGISTERS                    DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC03-844 REGISTER BIT TEST                                    DTC
3  FORMAT DTC03 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC03 ERROR(S) = *DECD                                         DTCPTR2
   EQUATE CH11 = 11B,CH12 = 12B,DIFFR = 502                              DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT            *PRINT MODULE NAME                          DTCPTR2
   B0=62                     *TEST NUMBER IN HEX                         DTC
   B1=03                     *MODULE NUMBER                              DTC
   B7=0                      *CLEAR ERROR COUNT                          DTC
   B8=0                      *CLEAR LOOP COUNT                           DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE,ABT 61          *CONNECT DRIVE AND CONTROLLER
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
   B2=0               *INITIALIZE DATA PATTERN INDEX                     DTC
30 CALL 03B        *BUILD DATA BLOCK OF SHIFTED PATTERN                  DTCPTR2
   B11=0              *DIFF REG INDICATOR                                DTC
   B4=0            *POINTER FOR OB,IB DATA COMPARE BUFFERS               DTC
   B5=0            *POINTER FOR TABLE CREATED IN DTC031                  DTC
   B9=0            *INDEX FOR DATA PATTERN ON ERROR                      DTC
*                                                                        DTC
/ WRITE DATA PATTERN IN ALL FOUR REGISTERS                               DTC
*                                                                        DTC
31 B6 = 0                    *REGISTER INDEX                             DTCPTR2
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 61         *CONNECT DRIVE AND CONTROLLER
33 B14=OB(B5+300)            *STORE LOWER DATA BITS IN
   B14=B14+OB(B6+4)       *OB(400) BLOCK AND ADD REG BIT                 DTC
   B15=OB(B5+301)          *STORE UPPER DATA BITS                        DTC
   OUT CHANNEL=CH12,B14,B15, ABT 60   *RAISE TAG LINE                    DTCPTR2
   B14=B14 AND 3          *MASK OFF REGISTER BIT                         DTC
   OUT CHANNEL=CH12,B14,B15, ABT 60   *LOWER TAG LINE                    DTCPTR2
   GOTO 33 WHILE(B6+1.NE.4) 
   GOTO 40                                                               DTC
*                                                                        DTC
/ INPUT REGISTER CONTENTS TO NORMAL INPUT CHANNEL                        DTC
*                                                                        DTC
* FORM 3 WORD FUNCTION TO INPUT CONTENTS OF EACH REGISTER                DTC
34 B14 = 0
   B15=OB(B6+10)           *STORE UNIT SELECT BIT + REG BIT              DTC
   OUT CHANNEL=CH11,B14,B15, ABT 60  *INPUT REG CONTENT                  DTCPTR2
   OB(DIFFR)=B15                                                         DTC
   IF(OB(DIFFR).NE.202) GOTO 35  *CHECK IF TESTING REG. BIT              DTCPTR2
   B11=B11+1                                                             DTC
*                                                                        DTC
/ INPUT CONTENTS OF NORMAL CHANNELS TO IB                                DTC
*                                                                        DTC
35 STATUS CHANNEL, ABT 60                                                DTCPTR2
   IB(25)=SB(25) AND 3       *MASK UPPER REG BITS                        DTC
   IB(26)=SB(26) AND 377     *MASK LOWER REG BITS                        DTC
   IB(25)=IB(25) LS 10B                                                  DTC
   IB(25)=IB(25) + IB(26)    *FORM REG CONTENTS IN ONE WORD              DTC
   IF(B11.EQ.0) GOTO 36      *CHECK IF TESTING DIFF REG.                 DTCPTR2
   IB(25)=IB(25) XOR 1777    *IF SO, COMPLEMENT REG CONTENTS             DTC
   B11=0                                                                 DTC
36 IB(B4+400) = IB(25)       *SHIFT DATA                                 DTCPTR2
   IF(IB(B4+400).EQ.OB(B4+400)) GOTO 37                                  DTCPTR2
   ERROR 06/21, GOTO 60                                                  DTCPTR2
37 RETURN                                                                DTCPTR2
*          TEST ALL 4 REGISTERS                                          DTC
40 B6=0                                                                  DTC
   GOSUB 34   *TEST CYLINDER REGISTER                                    DTC
   B6=1                                                                  DTC
   B4=B4+1    *INCREMENT WORD COUNT IN OB,IB                             DTC
   GOSUB 34   *TEST DIFFERENCE REGISTER                                  DTC
   B6=2                                                                  DTC
   B4=B4+1                                                               DTC
   GOSUB 34   *TEST HEAD REGISTER                                        DTC
   B6=3                                                                  DTC
   B4=B4+1                                                               DTC
   GOSUB 34   *TEST SECTOR REGISTER                                      DTC
   B4=B4+1                                                               DTC
41 B9=B9+4                                                               DTC
   GOSUB 50                  *RTZ SEEK
   IF(EC.NE.0) GOTO 61       *RTZ ABORT CHECK 
42 GOTO 31 WHILE(B5+2.NE.24)    *REPEAT FOR SHIFTED PATTERN              DTCPTR2
43 GOTO 30 WHILE(B2+1.NE.4)     *REPEAT FOR ALL 4 PATTERNS               DTCPTR2
   GOTO 64                   *EXIT                                       DTCPTR2
* 
/         RETURN-TO-ZERO (RTZ) SEEK SUBROUTINE. 
* 
50 OUT CHANNEL=CH12,0,0, ABT 55     *INSURE CONTROL SELECT LOW
   OUT CHANNEL=CH12,0,100, ABT 55   *BUS STABLE 
   OUT CHANNEL=CH12,10,100, ABT 55  *ISSUE CONTROL SELECT TAG LINE
   OUT CHANNEL=CH12,0,100, ABT 55   *DROP CONTROL SELECT TAG LINE 
   DELAY 500D MSEC
55 RETURN 
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 GOSUB 50                  *RTZ SEEK
61 B7 = B7 + 1               *INCREMENT ERROR COUNT 
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE 25) GOTO 62                                           DTCPTR2
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 03A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   ENDSUB                                                                DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) ENDSUB GOTO 22                                     DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC03A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC03A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC03, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC03A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - THE B9 REGISTER MUST BE PREVIOUSLY SET SO THAT         DTC
*                 THE CORRECT INFORMATION FROM IB, OB(EXPECTED,          DTC
*                 RECEIVED DATA) IS REPORTED                             DTC
*                 AND THE BO,EA,EC,EM AND LF REGISTERS MUST BE SET       DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT-   THERE ARE NO EXIT CONDITIONS SET                       DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B9 - INDEX FOR OB,IB ON ERROR                                  DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB - OB(300) THRU OB(323) - 2 DATA WORDS FOR CHANNEL           DTC
*              TRANSFER SHIFTED 10 TIMES                                 DTC
*                                                                        DTC
*         OB - OB(400) THRU OB(447) - EACH 4 REGISTER DATA               DTC
*              WORDS FOR EVERY LEFT SHIFT INCREMENT                      DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC03-844 REG BIT TEST                                         DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB  ERROR CODE *H*HE                        DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
/         ERROR MESSAGES                                                 DTC
6  FORMAT ACTUAL AND EXPECTED REG CONTENTS DISAGREE                      DTC
/                                                                        DTC
7  FORMAT      CYL      DIFF     HEAD      SECTOR                        DTC
/                                                                        DTC
10 FORMAT EXP *OCTB    *OCTB    *OCTB     *OCTB                          DTC
/                                                                        DTC
11 FORMAT ACT *OCTB    *OCTB    *OCTB     *OCTB                          DTC
/                                                                        DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
30 FORMAT CHAN  CHANNEL STATUS(HEXADECIMAL) 
31 FORMAT  00B  *H*H  *H*H  *H*H  *H*H
32 FORMAT  04B  *H*H  *H*H  *H*H  *H*H
33 FORMAT  10B  *H*H  *H*H  *H*H  *H*H
34 FORMAT  14B  *H*H  *H*H  *H*H  *H*H
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
22 MSG 4 (EA,B0,EC) TO LINE 4  *TRANSFER MESSAGE TO DISPLAY              DTC
   MSG 6 TO LINE 10                                                      DTC
   MSG 7 TO LINE 11                                                      DTC
   MSG 10 4 WORDS FROM OB(B9+400) TO LINE 12                             DTC
   MSG 11 4 WORDS FROM IB(B9+400) TO LINE 13                             DTC
   IF(EC.NE.14) GOTO 24    *NOT CHANNEL ERROR STATUS
23 MSG 30 TO LINE 16
   MSG 31, 8 WORDS FROM SB(1) TO LINE 17
   MSG 32, 8 WORDS FROM SB(11) TO LINE 20 
   MSG 33, 8 WORDS FROM SB(21) TO LINE 21 
   MSG 34, 8 WORDS FROM SB(31) TO LINE 22 
   GOTO 77
24 IF (P9.EQ.0) GOTO 25 
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6   *DISPLAY FUNCTION CODE                          DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC03B,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC03B - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE - GENERATE A DATA BLOCK IN OB CONTAINING               DTC
*                 A SINGLE DATA PATTERN SHIFTED 10D TIMES -              DTC
*                 THIS IS REPEATED FOR EACH PATTERN                      DTC
*                                                                        DTC
*                 THE EXPECTED DATA CONTENTS OF EACH REGISTER            DTC
*                 IS WRITTEN INTO OB(400-417) FOR DATA                   DTC
*                 CHECKING PURPOSES.                                     DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THE B2 REGISTER MUST CONTAIN AN INDEX VALUE            DTC
*                 POINTING TO THE CORRECT DATA PATTERN.                  DTC
*                                                                        DTC
*                                THE DATA PATTERN                        DTC
*                                                                        DTC
*         EXIT-    OB(300-323) CONTAIN DATA PATTERN SPLIT INTO 2         DTC
*                              OCTAL WORDS FOR USE IN WRITING THE        DTC
*                              PATTERN INTO THE REGISTER                 DTC
*                                                                        DTC
*                  OB(400-447 CONTAIN THE EXPECTED 4 REGISTER VALUES     DTC
*                             AFTER EACH OF THE 10 DATA SHIFTS           DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - DATA PATTERN INDEX                                        DTC
*         B4 - BUFFER INDEX                                              DTC
*         B5 - BUFFER INDEX                                              DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*         BUFFERS USED - OB(0-13)=DATA PATTERN AND CHANNEL INFORMATION   DTC
*                                                                        DTC
*                                                                        DTC
   EQUATE PATT TO 500                                                    DTC
   DATA(OB(0),CON) 0001  *SLIDING ZEROS PATTERN                          DTC
   DATA(OB(1),CON) 0001  *SLIDING ONES PATTERN                           DTC
   DATA(OB(2),CON) 0525  *2525 PATTERN                                   DTC
   DATA(OB(3),CON) 1252  *5252 PATTERN                                   DTC
   DATA(OB(4),CON) 0100   *WRITE CYL REGISTER                            DTC
   DATA(OB(5),CON) 0200   *WRITE DIFF REGISTER                           DTC
   DATA(OB(6),CON) 0040   *WRITE HEAD REGISTER                           DTC
   DATA(OB(7),CON) 0020   *WRITE SECTOR REGISTER                         DTC
   DATA(OB(10),CON) 0201   *READ CYL REGISTER                            DTC
   DATA(OB(11),CON) 0202   *READ DIFF REGISTER                           DTC
   DATA(OB(12),CON) 0203   *READ HEAD REGISTER                           DTC
   DATA(OB(13),CON) 0205   *READ SECTOR REGISTER                         DTC
30 B5=277                  *ADDRESS-1 OF CHANNEL DATA                    DTC
   B4=377                  *                                             DTC
*                                                                        DTC
/ FORM SHIFTED PATTERN IN PATT                                           DTC
*                                                                        DTC
   OB(PATT)=OB(B2)                                                       DTC
   GOTO 33                                                               DTC
32 OB(PATT)=OB(PATT) LS 1                                                DTC
33 OB(PATT)=OB(PATT) AND 1777   *MASK FOR 10 DATA BITS                   DTC
   IF(B2 NE 0) GOTO 34                                                   DTC
   OB(PATT)=OB(PATT) XOR 1777  *COMPLEMENT TO ISOLATE ZERO               DTC
*                                                                        DTC
/ STORE 10 BIT PATTERN INTO 2 WORDS OF OB                                DTC
*                                                                        DTC
34 OB(B5+1)=OB(PATT) RS 10     *UPPER 2 BITS OF PATTERN                  DTC
   OB(B5+2)=OB(PATT) AND 377   *LOWER 8 BITS OF PATTERN                  DTC
   OB(B4+1)=OB(PATT) AND 1777  *CYLINDER REG VALUE                       DTC
   OB(B4+2)=OB(PATT) AND 1777  *DIFFERENCE REG VALUE                     DTC
   OB(B4+3)=OB(PATT) AND 37    *TRACK REG VALUE                          DTC
   OB(B4+4)=OB(PATT) AND 37    *SECTOR REG VALUE                         DTC
   IF(B2 NE 0) GOTO 36                                                   DTC
   OB(PATT)=OB(PATT) XOR 1777                                            DTC
36 B5=B5+2                                                               DTC
   B4=B4+4                                                               DTC
* SHIFT HEX PATTERN 10D TIMES                                            DTC
   GOTO 32 WHILE(B5+0 NE 323)   *SHIFT DATA PATTERN                      DTC
   EXIT                                                                  DTC
   END 30                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC04,844HT, (03,05),LOCK                                      DTC
** GENERAL INFO ABOUT MODULE DESIGN AND OPERATION                        DTC
*                                                                        DTC
*         DTC04 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC04 VERIFIES THAT THE SPINDLE SPEED IS               DTC
*                 WITHIN 2 PERCENT OF SPECIFICATION.  SECTOR             DTC
*                 MARK STATUS AND SECTOR ALERT STATUS ARE ALSO           DTC
*                 TESTED IN THIS PROCESS.                                DTC
*                                                                        DTC
*                 THE SPECIFICATION FOR 844-4X DRIVE REQUIRES            DTC
*                 SPINDLE SPEED TO BE WITHIN 16-17 MILLISECONDS          DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD -AS THE DISK SPINS, THE HARDWARE IS                     DTC
*                 INSTRUCTED TO DETECT THE SECTOR MARK FOR               DTC
*                 SECTOR 1. AS SOON AS THE DRIVE HARDWARE                DTC
*                 DETECTS THIS MARK THE TIMING BEGINS.                   DTC
*                 WHEN THIS SAME MARK IS DETECTED AGAIN                  DTC
*                 THE TIMING WILL END. IT IS THIS INTERVAL               DTC
*                 THAT EQUALS TIME PER DISK REVOLUTION.                  DTC
*                 ACTUALLY A 694 MICROSECOND DELAY OCCURS                DTC
*                 BEFORE THE ACTUAL TIMING BEGINS, AND SO                DTC
*                 THIS VALUE IS THEN ADDED TO THE RESULT.                DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY-  THERE ARE NO ENTRY CONDITIONS                          DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT-   THERE WILL BE NO CONDITIONS SET AFTER EXITING          DTC
*                 THIS MODULE                                            DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98C - RESERVES THE I/O CHANNEL,                    DTC
*                           CONNECTS THE FMD CONTROLLER                  DTC
*                           AND THE 844 DISK DRIVE                       DTC
*                                                                        DTC
*                  DTC04A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC04                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC98E - CONVERTS SPINDLE SPEED FROM                  DTC
*                           MICROSECONDS TO MILLISECONDS                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - HOLDS ONE SECTOR DELAY(694.4 USEC)                        DTC
*         B4 - CARRY BIT WHEN ADD 1 SECTOR DELAY TO SPINDLE SPEED        DTC
*         B6 - NOT USED                                                  DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B14- HOLDS UPPER BITS OF SPINDLE SPEED FROM DTC98E             DTC
*         B15- HOLDS LOWER BITS OF SPINDLE SPEED FROM DTC98E             DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*         BA, ES, EC, EM, EA - STANDARD USAGE                            DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*         REMARKS - DTC04 TAKES 2 SECONDS TO EXECUTE.                    DTC
*                                                                        DTC
*                                                                        DTC
*         DTC04 ERROR CODES - 32011 - INVALID DATA                       DTC
*                             32012 - SPINDLE SPEED EXCEEDS 17 MSEC      DTC
*                             32013 - SPINDLE SPEED LESS THAN 16 MSEC    DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC04 - SPINDLE SPEED TEST                                     DTC
3  FORMAT DTC04 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT SPINDLE SPEED=*OCTB MILLISECONDS/REVOLUTION                    DTCPTR2
5  FORMAT DTC04 ERROR(S) = *DECD                                         DTCPTR2
10 FORMAT SPINDLE SPEED=*OCT*OCTB MICROSECONDS/REVOLUTION                DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT            *PRINT MODULE NAME                          DTCPTR2
   B0=62                     *TEST NUMBER XX HEX                         DTC
   B1=04                     *MODULE NUMBER                              DTC
   B7=0                      *CLEAR ERROR COUNT                          DTC
   B8=0                      *CLEAR LOOP COUNT                           DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
/              *SET TAG LINE TO LOAD SECTOR REG                          DTC
32 B3=2                      CONDITION NO. 2                             DTCPTR2
   RES DRIVE, ABT 60                                                     DTCPTR2
   OUT CHANNEL=12B,020,001, ABT 60                                       DTC
/              *LOAD SECTOR REGISTER WITH 1                              DTC
   OUT CHANNEL=12B,000,001, ABT 60                                       DTC
/      *INITIATE TIMING AND EXECUTE CONTROL WORD SEQUENCE                DTC
   CONTROL 21,200,0,200, ABT 60                                          DTC
   CONTROL 0,35,0,0, ABT 60                                              DTC
   CONTROL 0,0,0,0, TIME 0752 TO B14 AND B15, ABT 60                     DTC
/      *INPUT TIMING DATA AND CHECK SPINDLE SPEED                        DTC
   IF(B14 AND 200 NE 0) ERROR 11/22, GOTO 60  *INVALID DATA              DTC
   B2=1266                    *1266B=694D=1 SECTOR DELAY                 DTC
*      *ADD ONE SECTOR DELAY TO TIMING DATA                              DTC
   B4=B15+B2 RS 14                                                       DTC
   B15=B15+B2                                                            DTC
   B14=B14+B4                                                            DTC
34 CALL 98E       *CONVERT TIMING DATA FROM USEC TO MSEC                 DTCPTR2
   IF(B15+0 GT 21B) ERROR 10/23,GOTO 60  *GT 17 MILLISECONDS(TOO SLOW)
   IF(B15+0 LT 20B) ERROR 07/24,GOTO 60  *LT 16 MILLISECONDS(TOO FAST)
   IF(ES.AND.CM.EQ.0) MSG 4(B15) TO PRINT, DISPLAY                       DTCPTR2
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 04A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC04A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC04A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC04, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC04A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                 B15 REGISTER MUST HOLD SPINDLE SPEED IN MILLISECONDS   DTC
*                                                                        DTC
*         EXIT-  THERE ARE NO CONDITIONS SET AFTER EXIT THIS MODULE      DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B15- SPINDLE SPEED IN MILLISECONDS                             DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC04 - SPINDLE SPEED TEST                                     DTC
3  FORMAT DTC ERROR CODE *H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
/         02003 ERROR MESSAGE.                                           DTC
6  FORMAT SPINDLE SPEED = *OCTB MILLISECONDS/REVOLUTION                  DTC
7  FORMAT SPINDLE SPEED TOO FAST                                         DTC
10 FORMAT SPINDLE SPEED TOO SLOW                                         DTC
11 FORMAT SPINDLE SPEED INVALID -MUST BE BETWEEN 16-17 MSEC              DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
24 MSG 4 (EA,B0,EC) TO LINE 4  *TRANSFER MESSAGE TO DISPLAY              DTC
   MSG EM TO LINE 5                                                      DTC
   MSG 6 (B15) TO LINE 7                                                 DTC
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTCPTR2
   MSG 5 (LF) TO LINE 6     *DISPLAY FUNCTION CODE                       DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                      *STOP ON ERROR                              DTC
   BLANK                     *CLEAR ERROR DISPLAY                        DTC
   EXIT                      *EXIT THE MODULE                            DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC05,844HT, (03,05),LOCK                                      DTC
**                                                                       DTCPTR1
*                                                                        DTC
*         DTC05 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC05 DETERMINES IF THE SECTOR COUNTER                 DTC
*                 CAN INCREMENT CONSECUTIVELY FROM 0 TO                  DTC
*                 27B. INDEX MARK STATUS IS TESTED                       DTC
*                 IN THIS PROCESS.                                       DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- A COUNT OF 1 IS FIRST PLACED INTO                      DTC
*                 B6 REGISTER. WITH THE DETECTION                        DTC
*                 OF THE SECTOR MARK ON CYLINDER(P0),                    DTC
*                 SECTOR MARK 1 WILL SIMULTANEOUSLY                      DTC
*                 APPEAR AND SHOULD EQUAL THE VALUE                      DTC
*                 PLACED IN THE B6 REG. (THE FIRST SECTOR                DTC
*                 COUNT SHOULD EQUAL 1 SINCE THE SECTOR                  DTC
*                 COUNT IS ALWAYS IN ANTICIPATION OF THE                 DTC
*                 NEXT PHYSICIAL SECTOR NUMBER.                          DTC
*                 THE B6 REGISTER IS THEN INCREMENTED.                   DTC
*                 A 694 MICROSECOND DELAY FOLLOWS UNTIL                  DTC
*                 THE NEXT SECTOR MARK IS DETECTED WHICH                 DTC
*                 SHOULD CORRESPOND TO B6 VALUE.  THIS                   DTC
*                 PROCEDURE IS REPEATED UNTIL ALL 27B                    DTC
*                 SECTOR MARKS ARE DETECTED.                             DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY-  THERE ARE NO ENTRY CONDITIONS                          DTC
*         EXIT-   THERE WILL BE NO CONDITIONS SET AFTER EXITING          DTC
*                 THIS MODULE                                            DTC
*                                                                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98C - RESERVES THE I/O CHANNEL,                    DTC
*                           CONNECTS THE FMD CONTROLLER                  DTC
*                           AND THE 844 DISK DRIVE                       DTC
*                                                                        DTC
*                  DTC05A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC05                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - NOT USED                                                  DTC
*         B3 - NOT USED                                                  DTC
*         B4 - INDIVIDUAL SECTOR MARK TIMER                              DTC
*         B5 - TOTAL SECTOR MARK TIMER                                   DTC
*         B6 - SECTOR COUNT                                              DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REMARKS - DTC05 TAKES 2 SECONDS TO EXECUTE.                    DTC
*                                                                        DTC
*         DTC05 ERROR CODES - 32014 - EXPECTED AND ACTUAL SECTOR COUNT   DTC
*                                     DONT AGREE                         DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC05 - SECTOR COUNTER TEST                                    DTC
3  FORMAT DTC05 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTCO5 ERROR(S) = *DECD                                         DTCPTR2
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT            *PRINT MODULE NAME                          DTCPTR2
   B0=62                     *TEST NUMBER XX HEX                         DTC
   B1=05                     *MODULE NUMBER                              DTC
   B7=0                      *CLEAR ERROR COUNT                          DTC
   B8=0                      *CLEAR LOOP COUNT                           DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
32 B3=2                      CONDITION NO. 2                             DTCPTR2
   RES DRIVE, ABT 60                                                     DTCPTR2
   OUT CHANNEL=11B,000,211, ABT 60                                       DTC
   B6=1             *INITIALIZE FOR FIRST SECTOR COUNT                   DTC
*                                                                        DTC
/         EXECUTE CONTROL WORD SEQUENCE TO SYNC ON INDEX.                DTC
*                                                                        DTC
   CONTROL 0,21,0,300, ABT 60                                            DTCPTR2
   CONTROL 0,35,0,0, ABT 60                                              DTC
   CONTROL 0,0,0,0, EXECUTE, ABT 60                                      DTC
*                                                                        DTC
/         READ THE INITIAL CONTENTS OF THE SECTOR COUNTER                DTC
*                                                                        DTC
   OUT CHANNEL=11B,0,204, ABT 60                                         DTC
   B5=RT-100                 *DECREMENT REAL TIME CLOCK                  DTC
   STATUS CHANNEL, ABT 60                                                DTC
   GOTO 34                   *GO TO CHECK STATUSES                       DTC
*                                                                        DTC
/         DELAY BEFORE READING THE SECTOR COUNTER.                       DTC
*                                                                        DTC
33 B4 = RT-B5      *ISOLATE PRESENT SEEK TIME FROM TOTAL                 DTCPTR2
   IF(B4.LT.694D) GOTO 33    *DELAY UNTIL NEXT SECTOR                    DTCPTR2
*                                                                        DTC
/         READ THE SECTOR COUNTER FROM THE DRIVE.                        DTC
*                                                                        DTC
   B5=B5+694D                *ADD ONE SECTOR TIME TO B5                  DTC
   OUT CHANNEL=11B,0,204, ABT 60                                         DTC
   STATUS CHANNEL, ABT 60                                                DTC
*                                                                        DTC
/         CHECK IF SECTOR COUNT VALID                                    DTC
*                                                                        DTC
34 IF(SB(26) EQ B6) GOTO 35  *COMPARE ACTUAL AND EXPECTED                DTC
   ERROR 06/25, GOTO 60                                                  DTC
35 IF(B6+0.EQ.0) GOTO 64     *WHEN B6=0, TEST COMPLETE                   DTCPTR2
   GOTO 33 WHILE(B6+1.NE.30B)   *LOOP TO DO ALL COUNTS                   DTCPTR2
   B6=0               *CLEAR B6 TO TEST FOR SECTOR 0 MARK                DTC
   GOTO 33                   *CONTINUE                                   DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.NE.4525B) GOTO 62
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 05A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC05A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC05A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC05, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC05A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                 SB(26) MUST CONTAIN ACTUAL SECTOR NUMBER               DTC
*                 B6 MUST CONTAIN EXPECTED SECTOR NUMBER                 DTC
*         EXIT-  NO EXIT CONDITIONS ARE SET                              DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC05 - SECTOR COUNTER TEST                                    DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT SECTOR COUNT IN ERROR                                          DTC
/                                                                        DTC
7  FORMAT ACTUAL COUNT  EXPECTED COUNT                                   DTC
/                                                                        DTC
10 FORMAT    *OCTB          *OCTB                                        DTC
/                                                                        DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
30 FORMAT CHAN  CHANNEL STATUS(HEXADECIMAL) 
31 FORMAT  00B  *H*H  *H*H  *H*H  *H*H
32 FORMAT  04B  *H*H  *H*H  *H*H  *H*H
33 FORMAT  10B  *H*H  *H*H  *H*H  *H*H
34 FORMAT  14B  *H*H  *H*H  *H*H  *H*H
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
22 MSG 4 (EA,B0,EC) TO LINE 4                                            DTC
   MSG 6 TO LINE 10                                                      DTC
   MSG 7 TO LINE 11                                                      DTC
   MSG 10 (SB(26),B6)TO LINE 12                                          DTC
   IF(EC.NE.25) GOTO 25    *NOT CHANNEL ERROR STATUS
23 MSG 30 TO LINE 16
   MSG 31, 8 WORDS FROM SB(1) TO LINE 17
   MSG 32, 8 WORDS FROM SB(11) TO LINE 20 
   MSG 33, 8 WORDS FROM SB(21) TO LINE 21 
   MSG 34, 8 WORDS FROM SB(31) TO LINE 22 
   GOTO 77
24 IF (P9.EQ.0) GOTO 25 
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5 (LF) TO LINE 6     *DISPLAY FUNCTION CODE                       DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END OF SUBMODULE                                               DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                      *STOP ON ERROR                              DTC
   BLANK                     *CLEAR ERROR DISPLAY                        DTC
   EXIT                      *EXIT THE MODULE                            DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC06,844FT, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC06 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC06 TESTS THE DRIVE POSITION ELECTRONICS             DTC
*                 IN A WORST-CASE MODE BY POSITIONING IN 1               DTC
*                 CYLINDER INCREMENTS FORWARD.                           DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- BEGIN WITH A SEEK TO CYLINDER ADDRESS IN P0 REGISTER   DTC
*                 AND CONTINUALLY INCREMENT THE CYLINDER ADDRESS BY      DTC
*                 ONE UNTIL THE LAST AVAILABLE CYLINDER ADDRESS          DTC
*                 IN THE PARAMETER REGISTER HAS BEEN FOUND. IF ANY       DTC
*                 SEEK COMMAND IS NOT ACTED UPON BY THE DRIVE, AN        DTC
*                 ERROR DISPLAY WILL INDICATE THE REASONS FOR            DTC
*                 THE SEEK COMMAND ABORT. SUBMODULE DTC06A WILL          DTC
*                 PROCESS THE ERROR AND CREATE THE ERROR DISPLAY.        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - BECAUSE DTC06 REQUIRES AT LEAST 2 CYLINDERS            DTCPTR1
*                 TO RUN, THE UPPER CYLINDER PARAMETER WILL              DTCPTR1
*                 BE INCREMENTED IN THE CASE WHERE THE OPERATOR          DTCPTR1
*                 HAS LEFT BOTH CYLINDER PARAMETER REGISTERS             DTCPTR1
*                 EQUAL.  THIS WILL ELIMINATE OPERATOR                   DTCPTR1
*                 INTERVENTION IF THE PROPER CYLINDER PARAMETERS         DTCPTR1
*                 HAVE NOT BEEN SET.                                     DTCPTR1
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC06A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC06                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B4=LOWER CYLINDER ADDRESS                                      DTCPTR1
*         B5 - TRACK ADDRESS                                             DTC
*         B6 - SECTOR ADDRESS                                            DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B13=UPPER CYLINDER ADDRESS                                     DTCPTR1
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB - IB(502,503,504) HOLDS UPPER ADDRESS LIMITS FOR CYLINDER,  DTC
*              TRACK AND SECTOR REGISTER                                 DTC
*         OB - OB(502,503,504) HOLDS LOWER ADDRESS LIMITS FOR CYLINDER,  DTC
*              TRACK AND SECTOR REGISTER                                 DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*         SB(60) HOLDS SEEK TIME                                         DTC
*                                                                        DTC
*                                                                        DTC
*         REMARKS-IT WILL TAKE 9 SECONDS FOR THIS TEST TO RUN IF 1466    DTC
*                 CYLINDER ADDRESSES ARE USED.                           DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC06-SEEK ADDRESS +1 TEST                                     DTC
3  FORMAT DTC06 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT DTC06 SEEK CYL. *OCTB                                          DTCPTR2
5  FORMAT DTC06 ERROR(S) = *DECD                                         DTCPTR2
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=63                       *TEST NUMBER XX HEX                       DTC
   B1=06                       *MODULE NUMBER                            DTC
   B7=0                        *CLEAR ERROR COUNT                        DTC
   B8=0                        *CLEAR LOOP COUNT                         DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
32 B3 = 2                                                                DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   B4 = IB(LOCYL)           *B4=LOWEST CYLINDER ADDRESS                  DTCPTR2
*                                                                        DTCPTR2
/         INITIALIZE ADDRESS REGISTERS                                   DTCPTR2
*                                                                        DTCPTR2
   B5=IB(LOTRK)        *B5=LOWEST TRACK ADDRESS                          DTC
   B6=IB(LOSECT)       *B6=LOWEST SECTOR ADDRESS                         DTC
   B13 = OB(UPCYL)           *B13=HIGHEST CYLINDER ADDRESS               DTCPTR2
*                                                                        DTCPTR2
/         MODIFY PARAMETERS INCORRECTLY SET FOR DTC06                    DTCPTR2
*                                                                        DTCPTR2
   IF(B4 EQ 1466B) B4=B4-1  *IF HI/LO CYL ADDR = 1466B                   DTCPTR1
   IF(B4 EQ B13) B13=B13+1  *IF HI/LO CYL ADDR ARE EQUAL                 DTCPTR1
*         BEGIN TEST                                                     DTCPTR2
33 IF(ES.AND.CM.EQ.0) MSG 4(B4) TO DISPLAY                               DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER
   SEEK CYL B4 TRK B5 SEC B6, ABT 60  *SEEK FORWARD 1 CYL                DTC
34 B4 = B4+1                 *INCREMENT CYLINDER ADDRESS                 DTCPTR2
   IF(B4.LE.B13) GOTO 33     *CONTINUE IF NOT ON LAST CYL.               DTCPTR2
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 06A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC06A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC06A - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE- DTC06A DISPLAYS ERROR INFORMATION CORRES-             DTC
*                  PONDING TO THE ERROR CODES IN THE EC                  DTC
*                  AND THE EM REGISTER                                   DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD - THE EM REGISTER WILL ALWAYS CONTAIN AN EC             DTC
*                  GREATER THAN 3777 BECAUSE THE ONLY ABORTS             DTC
*                  ARE COMMAND ABORTS                                    DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC06-SEEK ADDRESS +1 TEST                                     DTC
3  FORMAT DTC ERROR CODE *H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT SEEKING CYLINDER *OCTB                                         DTCPTR2
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1             *DISPLAY DIAGNOSTIC TITLE                 DTC
   MSG 4 (EA,B0,EC) TO LINE 4  *DISPLAY LINE/ERR CODE 
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 6                                                      DTC
   MSG 5 (LF) TO LINE 7       *DISPLAY LF                                DTC
   IF(B3.GT.1) MSG 6(B4) TO LINE 10B                                     DTCPTR2
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                               GENERAL STATUS                           DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC07,844FT, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC07 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC07 TESTS THE DRIVE POSITION ELECTRONICS             DTC
*                 IN A WORST-CASE MODE BY POSITIONING IN 1               DTC
*                 CYLINDER DECREMENTS BACKWARD.                          DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- BEGIN WITH A SEEK TO CYLINDER ADDRESS IN               DTC
*                 THE P1 REGISTER AND CONTINUALLY DECREMENT              DTC
*                 THE CYLINDER ADDRESS BY ONE UNTIL THE                  DTC
*                 ADDRESS IN THE P0 REGISTER HAS BEEN FOUND.             DTC
*                 IF ANY SEEK COMMAND IS NOT ACTED UPON BY               DTC
*                 THE DRIVE, AN ERROR DISPLAY WILL INDICATE              DTC
*                 THE REASONS FOR THE ABORT SEEK COMMAND.                DTC
*                 SUBMODULE DTC07A WILL CREATE THE ERROR                 DTC
*                 DISPLAY.                                               DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - BECAUSE DTC07 REQUIRES AT LEAST 2 CYLINDERS            DTCPTR1
*                 TO RUN, THE UPPER CYLINDER PARAMETER WILL              DTCPTR1
*                 BE INCREMENTED IN THE CASE WHERE THE OPERATOR          DTCPTR1
*                 HAS LEFT BOTH CYLINDER PARAMETER REGISTERS             DTCPTR1
*                 EQUAL.  THIS WILL ELIMINATE OPERATOR                   DTCPTR1
*                 INTERVENTION IF THE PROPER CYLINDER PARAMETERS         DTCPTR1
*                 HAVE NOT BEEN SET.                                     DTCPTR1
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC07A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC07                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - NOT USED                                                  DTC
*         B3 - NOT USED                                                  DTC
*         B4 - CYLINDER ADDRESS                                          DTC
*         B5 - TRACK ADDRESS                                             DTC
*         B6 - SECTOR ADDRESS                                            DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB - IB(502,503,504) HOLDS UPPER ADDRESS LIMITS FOR CYLINDER,  DTC
*              TRACK AND SECTOR REGISTER                                 DTC
*         OB - OB(502,503,504) HOLDS LOWER ADDRESS LIMITS FOR CYLINDER,  DTC
*              TRACK AND SECTOR REGISTER                                 DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*         SB(60) HOLDS SEEK TIME                                         DTC
*                                                                        DTC
*         REMARKS-THIS TEST WILL TAKE 9 SECONDS TO RUN IF 1466           DTC
*                 CYLINDER ADDRESSES ARE USED.                           DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC07-SEEK ADDRESS -1 TEST                                     DTC
3  FORMAT DTC07 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT DTC07 SEEK CYL. *OCTB                                          DTCPTR2
5  FORMAT DTC07 ERROR(S) = *DECD                                         DTCPTR2
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=63                       *TEST NUMBER XX HEX                       DTC
   B1=07                       *MODULE NUMBER                            DTC
   B7=0                        *CLEAR ERROR COUNT                        DTC
   B8=0                        *CLEAR LOOP COUNT                         DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
*         INITIALIZE ADDRESS REGISTERS                                   DTCPTR2
32 B3 = 2                                                                DTCPTR2
   B4 = OB(UPCYL)            *B4=CYLINDER ADDRESS                        DTCPTR2
   B5=IB(LOTRK)                *B5=TRACK ADDRESS                         DTC
   B6=IB(LOSECT)               *B6=SECTOR ADDRESS                        DTC
   B13 = IB(LOCYL)           *B13=LOWEST CYLINDER ADDRESS                DTCPTR2
*                                                                        DTCPTR2
/         MODIFY PARAMETERS INCORRECTLY SET FOR DTC07                    DTCPTR2
*                                                                        DTCPTR2
   IF(B13.EQ.1466B) B13=B4-1   *IF HI/LO CYL. ADDR.= 1466B               DTCPTR2
   IF(B13.EQ.B4) B4=B4+1     *IF HI/LO CYL. ADDR. ARE EQUAL              DTCPTR2
*         BEGIN TEST                                                     DTCPTR2
34 IF(ES.AND.CM.EQ.0) MSG 4(B4) TO DISPLAY
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER
   SEEK CYL B4 TRK B5 SEC B6, ABT 60  *SEEK IN REVERSE                   DTC
   IF(B4.EQ.B13) GOTO 64     *EXIT                                       DTCPTR2
   B4 = B4-1                 *DECREMENT CYLINDER ADDRESS                 DTCPTR2
   GOTO 34                                                               DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 07A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC07A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC07A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC07, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC07A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC07-SEEK ADDRESS -1 TEST                                     DTC
3  FORMAT DTC ERROR CODE *H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT SEEKING CYLINDER *OCTB                                         DTCPTR2
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1             *DISPLAY DIAGNOSTIC TITLE                 DTC
   MSG 4 (EA,B0,EC) TO LINE 4  *DISPLAY LINE/ERR CODE 
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 6                                                      DTC
   MSG 5 (LF) TO LINE 7       *DISPLAY LF                                DTC
   IF(B3.GT.1) MSG 6(B4) TO LINE 10B                                     DTCPTR2
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                              *GENERAL STATUS                           DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC08,844FT, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC08 - DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DTC08 TESTS THE DRIVE POSITION ELECTRONICS             DTC
*                 IN A WORST-CASE MODE BY POSITIONING IN +1              DTC
*                 CYLINDER INCREMENTS FORWARD FOLLOWED BY A              DTC
*                 REPOSITIONING IN REVERSE TO THE FIRST CYLINDER         DTC
*                 ADDRESS                                                DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- BEGIN WITH A SEEK TO CYLINDER ADDRESS IN P0 REGISTER   DTC
*                 AND CONTINUALLY INCREMENT THE CYLINDER ADDRESS BY      DTC
*                 1 FOLLOWED BY A DECREMENT OF THE SAME VALUE UNTIL THE  DTC
*                 ADDRESS IN THE P1 REGISTER HAS BEEN FOUND. IF ANY      DTC
*                 SEEK COMMAND IS NOT ACTED UPON BY THE DRIVE, AN        DTC
*                 ERROR DISPLAY WILL INDICATE THE REASONS FOR            DTC
*                 THE ABORT SEEK COMMAND. SUBMODULE DTC06A WILL          DTC
*                 CREATE THE ERROR DISPLAY.                              DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC08A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC08                 DTC
*                                                                        DTC
*         ENTRY - BECAUSE DTC08 REQUIRES AT LEAST 2 CYLINDERS            DTCPTR1
*                 TO RUN, THE UPPER CYLINDER PARAMETER WILL              DTCPTR1
*                 BE INCREMENTED IN THE CASE WHERE THE OPERATOR          DTCPTR1
*                 HAS LEFT BOTH CYLINDER PARAMETER REGISTERS             DTCPTR1
*                 EQUAL.  THIS WILL ELIMINATE OPERATOR                   DTCPTR1
*                 INTERVENTION IF THE PROPER CYLINDER PARAMETERS         DTCPTR1
*                 HAVE NOT BEEN SET.                                     DTCPTR1
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B3 - HOLDS COUNT TO INCREMENT AND DECREMENT ADDRESS            DTC
*         B4 - CYLINDER ADDRESS                                          DTC
*         B5 - TRACK ADDRESS                                             DTC
*         B6 - SECTOR ADDRESS                                            DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - HOLDS CYLINDER ADDRESS FOR SEEK CYLINDER MESSAGE          DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB - IB(502,503,504) HOLDS UPPER ADDRESS LIMITS FOR CYLINDER,  DTC
*              TRACK AND SECTOR REGISTER                                 DTC
*         OB - OB(502,503,504) HOLDS LOWER ADDRESS LIMITS FOR CYLINDER,  DTC
*              TRACK AND SECTOR REGISTER                                 DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*         SB(60) HOLDS SEEK TIME                                         DTC
*                                                                        DTC
*                                                                        DTC
*         REMARKS-DTC08 TAKES 62 SECONDS TO RUN IF 1466                  DTC
*                 CYLINDER ADDRESSES ARE USED.                           DTC
*                                                                        DTC
1  FORMAT DTC - 844 DISK DRIVE DIAGNOSTIC                                DTC
2  FORMAT DTC08-SEEK IN +X/-X INCR                                       DTC
3  FORMAT DTC08 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT DTC08 SEEK *OCTB CYL.                                          DTCPTR2
5  FORMAT DTC08 ERROR(S) = *DECD                                         DTCPTR2
   EQUATE OCYL = 3,CONNECT=501                                           DTC
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=63   *TEST NUMBER XX HEX                                           DTC
   B1=10   *MODULE NUMBER                                                DTC
   B7=0    *CLEAR ERROR COUNT                                            DTC
   B8=0    *CLEAR LOOP COUNT                                             DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   B4 = IB(LOCYL)            *B4 = LOWEST CYLINDER ADDRESS               DTCPTR2
   B5=IB(LOTRK)                *B5=TRACK ADDRESS                         DTC
   B6=IB(LOSECT)               *B6=SECTOR ADDRESS                        DTC
   B13 = OB(UPCYL)           *B13=LOWEST CYLINDER ADDRESS                DTCPTR2
*         MODIFY PARAMETERS INCORRECTLY SET FOR DTC08                    DTCPTR2
   IF(B4 EQ 1466B) B4=B4-1  *IF HI/LO CYL ADDR = 1466B                   DTCPTR1
   IF(B4 EQ B13) B13=B13+1  *IF HI/LO CYL ADDR ARE EQUAL                 DTCPTR1
*         BEGIN TEST                                                     DTCPTR2
   SEEK CYL B4 TRK B5 SEC B6, ABT 60   *SEEK FORWARD                     DTCPTR2
34 B2 = B2+1                 *INCREMENT CYLINDER COUNT                   DTCPTR2
   B4 = B4+B2       *INCREMENT CYLINDER REGISTER COUNT                   DTCPTR2
   IF(ES.AND.CM.EQ.0) MSG 4(B4) TO DISPLAY                               DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER
   SEEK CYL B4 TRK B5 SEC B6, ABT 60  *SEEK FWD CYL COUNT                DTC
   B4 = B4-B2       *DECREMENT CYLINDER REGISTER COUNT                   DTCPTR2
   SEEK CYL B4 TRK B5 SEC B6, ABT 60  *SEEK REVERSE                      DTC
   IF(B2+P0.LT.B13) GOTO 34                                              DTCPTR2
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 08A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC08A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC08A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC08, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC08A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC08-SEEK IN +X/-X INCR                                       DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT SEEKING CYLINDER *OCTB                                         DTCPTR2
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1             *DISPLAY DIAGNOSTIC TITLE                 DTC
   MSG 4 (EA,B0,EC) TO LINE 4  *DISPLAY LINE/ERR CODE 
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 6                                                      DTC
   MSG 5 (LF) TO LINE 7       *DISPLAY LF                                DTC
   IF(B3.GT.1) MSG 6(B4) TO LINE 10B                                     DTCPTR2
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC09,844FT, (03,05),LOCK                                      DTC
**  GENERAL INFO ABOUT MODULE DESIGN AND OPERATION                       DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   THERE ARE 823D CYLINDERS ON 844 DOUBLE DENSITY PAK                   DTC
*         15 OF THESE CYLINDERS ARE SPARE                                DTC
*                                                                        DTC
*         DOUBLE DENSITY PAK = 883-60                                    DTC
*                                                                        DTC
*  SEEK 808(1450B) TRACKS = 55 MILLISECONDS MAX                          DTC
*  SEEK 1 TRACK = 10 MILLISECONDS MAX                                    DTC
*  AVERAGE SEEK = 30 MILLISECONDS MAX                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         DTCO9 - DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DTC09 MEASURES THE TIME IT TAKES TO                    DTC
*                 POSITION THE HEADS BETWEEN FIRST AND LAST              DTC
*                 CYLINDER ADDRESS. THIS TEST WILL RECORD                DTC
*                 THE MAXIMUM POSITIONING TIME.                          DTC
*                                                                        DTC
*         METHOD- REGISTERS B4,B5,B6 ARE INITIALIZED WITH                DTC
*                 THE FIRST CYLINDER,TRACK AND SECTOR                    DTC
*                 VALUES OBTAINED FROM THE PARAMETER                     DTC
*                 REGISTERS. THE FULL SEEK FORWARD IS THEN               DTC
*                 PERFORMED. FOLLOWING EACH SEEK THE                     DTC
*                 TIME REQUIRED TO PERFORM THE SEEK IS                   DTC
*                 STORED IN SB(60).  THIS VALUE IS                       DTC
*                 INSPECTED AND IF IT EXCEEDS THE SPEC LIMITS            DTC
*                 OF 55 MILLISECONDS AN ERROR IS REPORTED.               DTC
*                 THE SAME PROCESS IS THEN USED FOR FULL                 DTC
*                 SEEK IN REVERSE.                                       DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - BECAUSE DTC09 REQUIRES THAT 1466B                      DTCPTR1
*                 CYLINDERS BE AVAILABLE TO RUN, 1466B                   DTCPTR1
*                 CYLINDERS WILL AUTOMATICALLY BE SET IN                 DTCPTR1
*                 THE MODULE.  THIS WILL ELIMINATE ANY                   DTCPTR1
*                 OPERATOR INTERVENTION IF THE PROPER                    DTCPTR1
*                 CYLINDER PARAMETERS HAVE NOT BEEN SET.                 DTCPTR1
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC09A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC09                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B4 - CYLINDER ADDRESS                                          DTC
*         B5 - TRACK ADDRESS                                             DTC
*         B6 - SECTOR ADDRESS                                            DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B10- SEEK REVERSE TIME
*         B11- SEEK FORWARD TIME
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB - IB(502-504) HOLDS LOWEST CYLINDER,TRACK AND SECTOR ADDRES DTC
*              OBTAINED FROM PARAMETER REGISTERS P0,P1,P2,P3             DTC
*         OB - OB(502-504) HOLDS HIGHEST CYLINDER,TRACK AND SECTOR ADDRE DTC
*              OBTAINED FROM PARAMETER REGISTERS P0,P1,P2,P3             DTC
*         SB(60) - HOLDS SEEK TIME FOLLOWING A SEEK COMMAND              DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REMARKS -DTC09 TAKES 1 SECOND TO EXECUTE.                      DTC
*                                                                        DTC
*         DTC09 ERROR CODES - 34015 - FORWARD FULL SEEK ERROR            DTC
*                             34016 - REVERSE FULL SEEK ERROR            DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC09-FULL CYLINDER SEEK TST                                   DTCPTR1
3  FORMAT DTC09 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC09 ERROR(S) = *DECD                                         DTCPTR2
6  FORMAT FULL SEEK REVERSE  = *OCTB MILLISECONDS                        DTC
7  FORMAT FULL SEEK FORWARD = *OCTB MILLISECONDS                         DTCPTR2
   EQUATE CONNECT=501                                                    DTC
   EQUATE LOCYL=502,UPCYL=502                                            DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=64                       *TEST NUMBER XX HEX                       DTC
   B1=11                       *MODULE NUMBER                            DTC
   B7=0                        *ERROR COUNT                              DTC
   B8=0                        *LOOP COUNT                               DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
*                                                                        DTC
/        ISSUE TEST COMMANDS TO 844-4X DRIVE                             DTC
*                                                                        DTC
* SEEK CYLINDER ZERO                                                     DTC
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   B4 = 0                    *SET B4 TO LOWEST CYLINDER ADDR             DTCPTR2
   B5=0                    *SET B5 TO FIRST TRACK ADDRESS                DTC
   B6=0                     *SET B6 TO FIRST SECTOR ADDRESS              DTC
   SEEK CYL B4 TRK B5 SEC B6, ABT 60    *SEEK CYLINDER ZERO              DTC
* SEEK CYLINDER 1466B                                                    DTC
   B4 = 1466B               *SET B4 TO HIGHEST CYLINDER ADDR             DTCPTR2
   SEEK CYL B4 TRK B5 SEC B6, ABT 60       *SEEK TO (B4) CYL             DTC
   B10 = SB(60) 
   IF(SB(60) LE 67B) GOTO 40                                             DTC
   ERROR 07/26, GOTO 60                                                  DTC
*  SEEK CYLINDER ZERO                                                    DTC
40 B4 = 0                    *SET B4 TO LOWEST CYLINDER ADDR
   SEEK CYL B4 TRK B5 SEC B6, ABT 60  *SEEK TO (B4) CYL                  DTC
   B11 = SB(60) 
   IF(SB(60) LE 67B) GOTO 45                                             DTC
   ERROR 10/27, GOTO 60                                                  DTC
45 GOTO 64                   *EXIT
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 09A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 MSG 6(B10) TO DISPLAY,PRINT
   MSG 7(B11) TO DISPLAY,PRINT
   IF(B7.NE.0) MSG 5(B7) TO DISPLAY,PRINT 
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC09A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC09A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC09, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC09A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
1  FORMAT DTC - 844-4X  DISK DRIVE DIAGNOSTIC                            DTC
2  FORMAT DTC09-FULL CYLINDER SEEK TEST                                  DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT SEEKING CYLINDER *OCTB                                         DTCPTR2
/                                                                        DTC
7  FORMAT SEEK FROM CYL 0 TO CYL *OCTB TOOK *OCTB MSEC                   DTC
/                                                                        DTC
10 FORMAT SEEK FROM CYL 1466B TO CYL *OCTB TOOK *OCTB MSEC               DTC
/                                                                        DTC
11 FORMAT SEEK TIME SHOULD NOT EXCEED 55 MSEC                            DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
22 MSG 4 (EA,B0,EC) TO LINE 4                                            DTC
   MSG 6(B4) TO LINE 10                                                  DTCPTR2
   MSG EM (B4,SB(60)) TO LINE 11                                         DTC
   MSG 11 TO LINE 12                                                     DTC
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5 (LF) TO LINE 6     *DISPLAY FUNCTION CODE                       DTC
   IF(B3.GT.1) MSG 6(B4) TO LINE 7                                       DTCPTR2
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC10,844FT, (03,05),LOCK                                      DTC
**                                                                       DTC
*                                                                        DTC
*                                                                        DTC
*         DTC10 - DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DTC10 MEASURES THE TIME IT TAKES TO                    DTC
*                 POSITION THE HEADS BETWEEN SEQUENTIAL                  DTC
*                 CYLINDER ADDRESSES. THIS TEST WILL RECORD              DTC
*                 MINIMUM POSITIONING TIMES.                             DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- REGISTERS B4,B5,B6 ARE INITIALIZED WITH                DTC
*                 THE FIRST CYLINDER,TRACK AND SECTOR                    DTC
*                 VALUES OBTAINED FROM THE PARAMETER                     DTC
*                 REGISTERS. SEQUENTIAL SEEKS IN INCREM. OF 1 ARE THEN   DTC
*                 PERFORMED IN THE FORWARD DIRECTION UNTIL THE           DTC
*                 HIGHEST CYLINDER ADDRESS WITHIN PARAMETER BOUNDARIES   DTC
*                 IS FOUND. FOLLOWING EACH SEEK THE                      DTC
*                 TIME REQUIRED TO PERFORM THE SEEK IS                   DTC
*                 STORED IN SB(60).  THIS VALUE IS                       DTC
*                 INSPECTED AND IF IT EXCEEDS THE SPEC LIMITS            DTC
*                 OF 10 MILLISECONDS AN ERROR IS REPORTED.               DTC
*                 THE SAME PROCESS IS THEN USED FOR SEEKING              DTC
*                 SEQUENTIAL ADDRESSES IN REVERSE.                       DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - BECAUSE DTC10 REQUIRES AT LEAST 2 CYLINDERS            DTCPTR1
*                 TO RUN, THE UPPER CYLINDER PARAMETER WILL              DTCPTR1
*                 BE INCREMENTED IN THE CASE WHERE THE OPERATOR          DTCPTR1
*                 HAS LEFT BOTH CYLINDER PARAMETER REGISTERS             DTCPTR1
*                 EQUAL.  THIS WILL ELIMINATE OPERATOR                   DTCPTR1
*                 INTERVENTION IF THE PROPER CYLINDER PARAMETERS         DTCPTR1
*                 HAVE NOT BEEN SET.                                     DTCPTR1
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC10A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC10                 DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B4 - CURRENT CYLINDER ADDRESS INDEX 
*         B5 - TRACK ADDRESS                                             DTC
*         B6 - SECTOR ADDRESS                                            DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - LOWER CYLINDER ADDRESS 
*         B13=UPPER CYLINDER ADDRESS                                     DTCPTR1
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB - IB(502-504) HOLDS LOWEST CYLINDER,TRACK AND SECTOR ADDRES DTC
*              OBTAINED FROM PARAMETER REGISTERS P0,P1,P2,P3             DTC
*         OB - OB(502-504) HOLDS HIGHEST CYLINDER,TRACK AND SECTOR ADDRE DTC
*              OBTAINED FROM PARAMETER REGISTERS P0,P1,P2,P3             DTC
*         SB(60) - HOLDS SEEK TIME FOLLOWING A SEEK COMMAND              DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REMARKS - DTC10 TAKES                                          DTC
*                                                                        DTC
*                                                                        DTC
*         DTC10 ERROR CODES - 34017 - FORWARD CYL SEEK TIME              DTC
*                             34018 - REVERSE CYL SEEK TIME              DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC10-INCR CYL SEEK TIME                                       DTC
3  FORMAT DTC10 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC10 ERROR(S) = *DECD                                         DTCPTR2
6  FORMAT DTC10 SEEK REVERSE CYL=*OCTB                                   DTCPTR2
7  FORMAT DTC10 SEEK FORWARD CYL=*OCTB                                   DTCPTR2
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=64                       *TEST NUMBER XX HEX                       DTC
   B1=20                       *MODULE NUMBER                            DTC
   B7=0                        *CLEAR ERROR COUNT                        DTC
   B8=0                        *CLEAR LOOP COUNT                         DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   B9 = IB(LOCYL)            *B9=LOWER CYLINDER ADDRESS 
   B13 = OB(UPCYL)           *B13=UPPER CYLINDER ADDRESS                 DTCPTR2
*                                                                        DTCPTR2
/         MODIFY PARAMETERS INCORRECTLY SET FOR DTC10                    DTCPTR2
*                                                                        DTCPTR2
   IF(B9.EQ.1466B) B9=B9-1   *IF HI/LO CYL ADRS = 1466B 
   IF(B9.EQ.B13) B13=B13+1   *IF HI/LO CYL ADRS ARE EQUAL 
   B4 = B9                   *INITIALIZE CYL ADRS INDEX 
   SEEK CYL B4 TRK B5 SEC B6, ABT 60  *SEEK FIRST CYL AVAIL              DTC
* SEEK FORWARD ONE CYL AT A TIME                                         DTC
34 B4 = B4+1                 *INCREMENT CYLINDER ADDRESS                 DTCPTR2
   IF(ES.AND.CM.EQ.0) MSG 7(B4) TO DISPLAY                               DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER
   SEEK CYL B4 TRK B5 SEC B6, ABT 60      *SEEK TO (B4) CYL              DTC
   IF(SB(60) GT 12B) ERROR 06/30, GOTO 60   *ERROR                       DTC
   IF(B4.LT.B13) GOTO 34     *CONTINUE IF NOT ON LAST CYL.               DTCPTR2
* SEEK REVERSE ONE CYL AT A TIME                                         DTC
36 B3 = 3                    *CONDITION NO. 3                            DTCPTR2
   RES DRIVE, ABT 60                                                     DTCPTR2
   B4 = B13                  *SET B4 TO MAX. CYLINDER ADDR.              DTCPTR2
   SEEK CYL B4 TRK B5 SEC B6, ABT 60   *SEEK TO (B4) ADDR.               DTCPTR2
40 B4 = B4-1                 *DECREMENT CYLINDER ADDRESS                 DTCPTR2
   IF(ES.AND.CM.EQ.0) MSG 6(B4) TO DISPLAY                               DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER
   SEEK CYL B4 TRK B5 SEC B6, ABT 60      *SEEK TO (B4) CYL              DTC
   IF(SB(60) GT 12B) ERROR 07/31, GOTO 60   *ERROR                       DTC
   IF(B4.GT.B9) GOTO 40      *CONTINUE IF NOT ON LAST CYL.
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 10A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
   IF(B3.EQ.3) GOTO 36                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC10A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC10A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC09, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC10A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC10-INCR CYL SEEK TIME                                       DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT FORWARD INCREMENTAL SEEK TIME ERROR                            DTC
/                                                                        DTC
7  FORMAT REVERSE INCREMENTAL SEEK TIME ERROR                            DTC
/                                                                        DTC
10 FORMAT SEEK TIME FROM *OCTB CYL TO *OCTB CYL = *OCTB MSEC             DTC
/                                                                        DTC
11 FORMAT INCREMENTAL SEEK TIME SHOULD NOT EXCEED 10 MSEC                DTC
12 FORMAT SEEKING CYLINDER *OCTB                                         DTCPTR2
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
   EQUATE CYLN TO 500                                                    DTC
/                                                                        DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
22 MSG 4 (EA,B0,EC) TO LINE 4  *TRANSFER MESSAGE TO DISPLAY              DTC
   OB(CYLN)=B4-1                                                         DTC
   MSG EM TO LINE 10                                                     DTC
* DISPLAY SEEK FORWARD ADDRESS ERROR                                     DTC
   IF(EC.EQ.30) MSG 10(OB(CYLN),B4,SB(60)) TO LINE 11                    DTCPTR2
   IF(EC.EQ.31) MSG 10(B4,OB(CYLN),SB(60)) TO LINE 11                    DTCPTR2
   MSG 11 TO LINE 12                                                     DTC
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5 (LF) TO LINE 6     *DISPLAY FUNCTION CODE                       DTC
   IF(B3.GT.1) MSG 12(B4) TO LINE 7                                      DTCPTR2
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC11,844FT, (03,05),LOCK                                      DTC
**                                                                       DTCPTR1
*         DTC11 - DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DTC09 MEASURES THE TIME IT TAKES TO                    DTC
*                 POSITION THE HEADS BETWEEN CYLINDER                    DTC
*                 ADDRESSES OF INCREASING DISTANCE.                      DTC
*                 THIS TEST WILL RECORD THE AVERAGE                      DTC
*                 POSITIONING TIME.                                      DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- REGISTERS B4,B5,B6 ARE INITIALIZED WITH                DTC
*                 THE FIRST CYLINDER,TRACK AND SECTOR                    DTC
*                 VALUES OBTAINED FROM THE PARAMETER                     DTC
*                 REGISTERS. SEEKS OF ASCENDING INCREMENT                DTC
*                 FOLLOWED BY REVERSE SEEK OF THE SAME                   DTC
*                 DISTANCE IS PERFORMED.  THE NUMBER OF SEEK             DTC
*                 COMMANDS PERFORMED IS STORED IN REGISTER               DTC
*                 B13. AND EACH TIME A SEEK IS PERFORMED                 DTC
*                 THE TIME TAKEN TO EXECUTE THE SEEK IS ADDED            DTC
*                 TO REGISTER B14 AND B15.  B14 HOLDS THE                DTC
*                 LOWER 12 BITS OF THIS SUM AND B15 HOLDS                DTC
*                 THE UPPER BITS.                                        DTC
*                 FOLLOWING ALL SEEKS THE TOTAL TIME REQUIRED            DTC
*                 IS STORED IN SB(60).                                   DTC
*                 AFTER THE LAST SEEK IS PERFORMED,                      DTC
*                 THE SUM IN B14,B15 IS THEN DIVIDED BY THE TOTAL        DTC
*                 NUMBER OF SEEKS TO OBTAIN THE AVERAGE TIME             DTC
*                 NECESSARY TO PERFORM ANY ONE SEEK.                     DTC
*                 IF THE AVERAGE EXCEEDS THE SPEC LIMITS                 DTC
*                 OF 30 MILLISECONDS AN ERROR IS REPORTED.               DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - BECAUSE DTC11 REQUIRES AT LEAST 2 CYLINDERS            DTCPTR1
*                 TO RUN, THE UPPER CYLINDER PARAMETER WILL              DTCPTR1
*                 BE INCREMENTED IN THE CASE WHERE THE OPERATOR          DTCPTR1
*                 HAS LEFT BOTH CYLINDER PARAMETER REGISTERS             DTCPTR1
*                 EQUAL.  THIS WILL ELIMINATE OPERATOR                   DTCPTR1
*                 INTERVENTION IF THE PROPER CYLINDER PARAMETERS         DTCPTR1
*                 HAVE NOT BEEN SET.                                     DTCPTR1
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC11A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC11                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B4 - CYLINDER REGISTER VALUE                                   DTC
*         B5 - TRACK REGISTER VALUE                                      DTC
*         B6 - SECTOR REGISTER VALUE                                     DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B13- HOLDS TOTAL NUMBER OF SEEKS PERFORMED                     DTC
*         B14- HOLDS LOWER 12 BITS OF TOTAL SEEK TIME                    DTC
*         B15- HOLDS UPPER 12 BITS OF TOTAL SEEK TIME                    DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB - IB(502-504) HOLDS LOWEST CYLINDER,TRACK AND SECTOR ADDRES DTC
*              OBTAINED FROM PARAMETER REGISTERS P0,P1,P2,P3             DTC
*         OB - OB(502-504) HOLDS HIGHEST CYLINDER,TRACK AND SECTOR ADDRE DTC
*              OBTAINED FROM PARAMETER REGISTERS P0,P1,P2,P3             DTC
*         SB(60) - HOLDS SEEK TIME FOLLOWING A SEEK COMMAND              DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REMARKS - DTC11 TAKES 1 MINUTE TO EXECUTE.                     DTC
*                                                                        DTC
*                                                                        DTC
*         DTC11 ERROR CODES - 34019 - AVG SEEK TIME EXCEEDS 45B MSEC     DTC
*                             3401A - AVG SEEK TIME IS ZERO              DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC11-AVERAGE CYL SEEK TIME                                    DTC
3  FORMAT DTC11 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC11 ERROR(S) = *DECD                                         DTCPTR2
6  FORMAT AVERAGE SEEK TIME = *OCTB MILLISECONDS                         DTCPTR2
7  FORMAT DTC11 SEEK CYL *OCTB                                           DTCPTR2
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=64                       *TEST NUMBER XX HEX                       DTC
   B1=21                       *MODULE NUMBER                            DTC
   B7=0                        *CLEAR ERROR COUNT                        DTC
   B8=0                        *CLEAR LOOP COUNT                         DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
*                                                                        DTC
/        ISSUE TEST COMMANDS TO 844-4X DRIVE                             DTC
*                                                                        DTC
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   B13 = 0                 *HOLDS TOTAL NUMBER OF SEEKS                  DTCPTR2
   B14=0             *HOLDS LOWER 12 BITS OF TOTAL SEEK TIME             DTC
   B15=0             *HOLDS UPPER 12 BITS OF TOTAL SEEK TIME             DTC
   B4=IB(LOCYL)              *LOWEST ACCESSIBLE ADDRESS                  DTCPTR2
   B5=IB(LOTRK)                *HEAD ADDRESS                             DTC
   B6=IB(LOSECT)               *SECTOR ADDRESS                           DTC
   B2 = OB(UPCYL)            *B2=HIGHEST CYLINDER ADDRESS                DTCPTR2
*                                                                        DTCPTR2
/         MODIFY PARAMETERS INCORRECTLY FOR DTC11                        DTCPTR2
*                                                                        DTCPTR2
   IF(B4 EQ 1466B) B4=B4-1  *IF HI/LO CYL ADDR = 1466B                   DTCPTR1
   IF(B4.EQ.B2)B2=B2+1  *IF HI/LO CYL.ADDRESS ARE EQUAL                  DTCPTR2
   SEEK CYL B4 TRK B5 SEC B6, ABT 60   *SEEK FIRST CYLINDER              DTCPTR2
* SEEK (B4) CYL FORWARD                                                  DTC
34 B13 = B13+1                                                           DTCPTR2
   B4=B4+B13                   *INCREMENT B4 BY (B13) COUNT              DTC
   IF(ES.AND.CM.EQ.0) MSG 7(B4) TO DISPLAY                               DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER
35 SEEK CYL B4 TRK B5 SEC B6, ABT 60      *SEEK TO (B4) CYL              DTC
   IF(SB(60) + B14 GT 7777) B15=B15+1                                    DTC
   B14=SB(60)+B14                                                        DTC
* SEEK (B4) CYL REVERSE                                                  DTC
40 B4=B4-B13                 *DECREMENT B4 BY B13 COUNT                  DTCPTR2
   SEEK CYL B4 TRK B5 SEC B6, ABT 60      *SEEK TO (B4) CYL              DTC
   IF(SB(60) + B14 GT 7777) B15=B15+1                                    DTC
   B14=SB(60)+B14                                                        DTC
   IF(ES.AND.CM.EQ.0) MSG 7(B4) TO DISPLAY                               DTCPTR2
   IF(B13+P0.LT.B2) GOTO 34                                              DTCPTR2
*                                                                        DTCPTR2
/         CALCULATE SEEK TIME                                            DTCPTR2
*                                                                        DTCPTR2
   B13=B13+B13     *DOUBLE B13 TO INCLUDE BOTH FWD/RVS SEEKS             DTC
   CALL 98F                                                              DTC
   IF(B14 GT 45B) ERROR 06/32, GOTO 60                                   DTC
   IF(B14 EQ 0) ERROR 06/33, GOTO 60                                     DTC
   IF(ES.AND.CM.EQ.0) MSG 6(B14) TO DISPLAY,PRINT                        DTCPTR2
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 11A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC11A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC11A - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE- DISPLAY ERROR INFORMATION CORRESPONDING               DTC
*                  TO THE ERROR CODE IN THE EC REGISTER                  DTC
*                                                                        DTC
*         METHOD- WHEN AN ERROR IS DETECTED IN DTC11, A                  DTC
*                 SPECIFIC ERROR CODE IS PLACED IN THE EC                DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC11A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC11-AVERAGE CYL SEEK TIME                                    DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
/                                                                        DTC
6  FORMAT AVERAGE SEEK TIME ERROR                                        DTC
/                                                                        DTC
7  FORMAT AVERAGE SEEK TIME = *OCTB MILLISECONDS                         DTC
/                                                                        DTC
10 FORMAT                                                                DTC
/                                                                        DTC
11 FORMAT AVG SEEK TIME SHOULD NOT EXCEED 30 MILLISECONDS                DTC
12 FORMAT SEEKING CYLINDER *OCTB                                         DTCPTR2
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
22 MSG 4 (EA,B0,EC) TO LINE 4  *TRANSFER MESSAGE TO DISPLAY              DTC
   MSG EM TO LINE 10         *TRANSFER MESSAGE TO DISPLAY                DTC
   MSG 7 (B14) TO LINE 12                                                DTC
   MSG 11 TO LINE 13                                                     DTC
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5 (LF) TO LINE 6      *DISPLAY FUNCTION CODE                      DTC
   IF(B3.GT.1) MSG 12(B4) TO LINE 7                                      DTCPTR2
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC12,844FT, (03,05),LOCK                                      DTC
**                                                                       DTCPTR1
*         DTC12 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC12 VERIFYS THAT THE CONTROLLER CAN READ             DTC
*                 A ADDRESS FIELD(A 24 BIT DATA FIELD) TO PP             DTC
*                 MEMORY CORRECTLY.                                      DTC
*                                                                        DTC
*         METHOD- DTC12 READS EVERY SECTOR ADDRESS WITHIN                DTC
*                 LIMITATIONS OF THE UPPER AND LOWER                     DTC
*                 SECTOR,TRACK AND CYLINDER PARAMETERS.                  DTC
*                 EACH ADDRESS IS ALSO READ UNDER ALL 9D                 DTC
*                 MARGIN CONDITIONS.  IF A FLAWED TRACK                  DTC
*                 OR SECTOR IS FOUND, THE SECTOR/TRACK ADDRESS IN        DTC
*                 INCREMENTED AND THE TOTAL FLAWED ADDRESSES             DTC
*                 ACCESSED WILL BE DISPLAYED ALONG WITH ANY ERROR        DTC
*                 INFORMATION.  ACCESSING A FLAWED ADDRESS IS NOT        DTC
*                 CONSIDERED AN ERROR CONDITION AND THE MODULE           DTC
*                 DOES NOT HALT ON THIS CONDITION.                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC12A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC12                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B3 - NUMBER OF SECTORS READ AT ONE TIME                        DTC
*         B4 - LOWER CYLINDER PARAMETER                                  DTC
*         B5 - LOWER TRACK PARAMETER                                     DTC
*         B6 - LOWER SECTOR PARAMETER                                    DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - MESSAGE NUMBER FOR MARGIN CONDITION                       DTC
*         B10- NUMBER OF FLAWED SECTORS FOUND                            DTC
*         B12- INDEX FOR READ MARGIN CONDITION                           DTC
*         B13- UPPER CYLINDER PARAMETER                                  DTC
*         B14- UPPER TRACK PARAMETER                                     DTC
*         B15- UPPER SECTOR PARAMETER                                    DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB - IB(502,503,504) HOLD LOWER CYLINDER,TRACK AND             DTC
*              SECTOR ADDRESSES FROM PARAMETER REGISTERS                 DTC
*         OB - OB(502,503,504) HOLD UPPER CYLINDER,TRACK AND             DTC
*              SECTOR ADDRESSES FROM PARAMETER REGISTERS                 DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
0  FORMAT                                                                DTCPTR2
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC12 - READ ADDRESS TEST                                      DTC
3  FORMAT DTC12 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT DTC12 READ CYL=*OCTB TRK=*OB SEC=*OB                           DTCPTR2
5  FORMAT DTC12 ERROR(S) = *DECD                                         DTCPTR2
6  FORMAT READ MARGINS - NORMAL  OFFSET, NORMAL STROBE                   DTC
7  FORMAT READ MARGINS - FORWARD OFFSET, NORMAL STROBE                   DTC
10 FORMAT READ MARGINS - REVERSE OFFSET, NORMAL STROBE                   DTC
11 FORMAT READ MARGINS - NORMAL  OFFSET, EARLY  STROBE                   DTC
12 FORMAT READ MARGINS - FORWARD OFFSET, EARLY  STROBE                   DTC
13 FORMAT READ MARGINS - REVERSE OFFSET, EARLY  STROBE                   DTC
14 FORMAT READ MARGINS - NORMAL  OFFSET, LATE   STROBE                   DTC
15 FORMAT READ MARGINS - FORWARD OFFSET, LATE   STROBE                   DTC
16 FORMAT READ MARGINS - REVERSE OFFSET, LATE   STROBE                   DTC
17 FORMAT *OCTB FLAWED SECTORS FOUND IN DTC12                            DTCPTR2
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=65                       *TEST NUMBER XX HEX                       DTC
   B1=22                       *MODULE NUMBER                            DTC
   B7=0                        *CLEAR ERROR COUNT                        DTC
   B8=0                        *CLEAR LOOP COUNT                         DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
* ENTER CYL,SECT, TRACK PARAMETERS INTO IB,OB(502-504)                   DTC
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
* INITIALIZE                                                             DTC
   B4=IB(LOCYL)              *B4=CYLINDER ADDRESS                        DTCPTR2
   B5=IB(LOTRK)                *B5=TRACK ADDRESS                         DTC
   B6=IB(LOSECT)               *B6=SECTOR ADDRESS                        DTC
   B13=OB(UPCYL)               *B13=LAST CYLINDER ADDRESS                DTC
   B14=OB(UPTRK)               *B14=LAST TRACK ADDRESS                   DTC
   B15=OB(UPSECT)              *B15=LAST SECTOR ADDRESS                  DTC
*                                                                        DTCPTR2
/         READ MARGIN PREPARATION                                        DTCPTR2
*                                                                        DTCPTR2
30 B3 = 2                    *CONDITION NO. 2 
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   IF(P7.EQ.7777) B12 = 0    *DEFAULT TO CHECK ALL READ MRG 
   IF(P7.EQ.7777) B9=6                                                   DTCPTR2
   IF(P7.NE.7777) B12 = P7                                               DTCPTR2
*                *BEGIN TEST                                             DTCPTR2
31 MARGINS B12, ABT 60                                                   DTCPTR2
32 IF(ES.AND.CM.EQ.0) MSG 4(B4,B5,B6) TO DISPLAY
   B11 = 1                   *NUMBER OF SECTORS TO READ 
   READCW B11 SECTORS AT CYL B4 TRK B5 SEC B6, ABT 40 
34 GOTO 32 WHILE(B6+1.LE.B15)                                            DTCPTR2
   B6=IB(LOSECT)                                                         DTC
   GOTO 32 WHILE(B5+1.LE.B14)                                            DTCPTR2
   B5=IB(LOTRK)                                                          DTC
   IF(P7 NE 7777) GOTO 37      *USE READ MARGIN IN P7                    DTC
   GOSUB 41  *CHANGE READ MARGINS                                        DTC
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER
   GOTO 31 WHILE(B12+0.LE.22)   *LOOP FOR ALL MARGINS                    DTCPTR2
37 GOTO 30 WHILE(B4+1.LE.B13)   *LOOP FOR ALL CYLINDERS                  DTCPTR2
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         CHANGE READ MARGIN SUBROUTINE                                  DTCPTR2
*                                                                        DTCPTR2
41 IF(B12 NE 2) GOTO 42        *SEE MSG 5-7                              DTC
   B12=10                      *SEE MSG 10-12                            DTC
   B9=B9+1                                                               DTC
   RETURN                                                                DTC
42 IF(B12 NE 12) GOTO 43       *SEE MSG 13-15                            DTC
   B12=20                                                                DTC
   B9=B9+1                                                               DTC
   RETURN                                                                DTC
43 B12=B12+1                                                             DTC
   B9=B9+1                                                               DTC
   IF(B9 EQ 17) B9=6                                                     DTC
   RETURN                                                                DTC
* CHECK FOR FLAWED SECTORS, TRACKS                                       DTC
*                                                                        DTCPTR2
/         CHECK FOR FLAWED SECTORS                                       DTCPTR2
*                                                                        DTCPTR2
40 IF(SB(6).AND.20.EQ.0) GOTO 60       *SECTOR NOT FLAWED                DTCPTR2
   B10 = B10 + 1             *INCREMENT SECTOR FLAW COUNTER 
   GOTO 34                                                               DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 12A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 30
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   MSG 17(B10) TO PRINT      *PRINT SECTOR FLAW COUNTER 
   MSG 0 TO DISPLAY                                                      DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTCPTR2
COMPILE                                                                  DTC
   MODULE DTC12A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC12A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
/                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC12, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC12A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC12 - READ ADDRESS TEST                                      DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT READ ADDRESS ERROR OCCURRED AT                                 DTC
7  FORMAT CYL *OCTB TRK *OCTB SECTOR *OCTB                               DTC
10 FORMAT READ CHECKWORD ERROR                                           DTC
12 FORMAT READING CYL=*OCTB TRK=*OB SEC=*OB                              DTCPTR2
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1                                                       DTC
*                                                                        DTC
   IF(EC.GT.3777) GOTO 26                                                DTCPTR2
*                                                                        DTC
/                PROCESS MODULE ERROR MESSAGE                            DTC
*                                                                        DTC
24 MSG 4(EA,B0,EC) TO LINE 4      *DISPLAY MODULE ERROR INFO             DTCPTR2
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6   *DISPLAY FUNCTION CODE                          DTC
   MSG 10 TO LINE 10                                                     DTC
   MSG 6 TO LINE 11                                                      DTC
   MSG 7 (B4,B5,B6) TO LINE 12                                           DTC
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/                PROCESS PRODUCT OVERLAY ERROR MESSAGE                   DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTCPTR2
   MSG 5(LF) TO LINE 6    *DISPLAY FUNCTION CODE                         DTC
   IF(B3.GT.1) MSG 12(B4,B5,B6) TO LINE 7                                DTCPTR2
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC13,844FT, (03,05),LOCK                                      DTC
** GENERAL INFO ABOUT MODULE DESIGN AND OPERATION                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*      THE WRITE VERIFY TEST VERIFIES THAT ALL SECTORS OF EACH           DTC
*      CYLINDER CONTAINS THE SAME DATA PATTERN AS WAS WRITTEN            DTC
*      IN THE OUTPUT BUFFER                                              DTC
*                                                                        DTC
*                                                                        DTC
*      THEN LOOP FOR ALL READ DATA MARGINS (9 VARIATIONS)                DTC
*      THEN LOOP FOR ALL 45 DATA PATTERNS                                DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         DTC13 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC13 DETERMINES IF THE WRITE                          DTC
*                 VERIFY FUNCTION WORKS PROPERLY ON THE                  DTC
*                 844 DRIVES.  WRITE VERIFY WILL BE TESTED USING         DTC
*                 GOOD AND BAD DATA.  ACTUALLY MORE CONTROLLER           DTC
*                 HARDWARE IS CHECKED USING THE VERIFY COMMAND           DTC
*                 BUT THIS SECTIONS HAS VALUE IN THAT IT PERFORMS        DTC
*                 THE FIRST WRITE ON THE PACK AND IT EXERCISES           DTC
*                 ALL PREVIOUSLY TESTED HARDWARE ON THE 844 DRIVE.       DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- A ZEROS PATTERN IS WRITTEN TO THE ADDRESS              DTC
*                 SELECTED IN THE B4,B5,B6 REGISTERS. THIS PATTERN       DTC
*                 IS ALSO WRITTEN INTO THE OUTPUT BUFFER. A VERIFY       DTC
*                 OF THE DATA FIELD WITH THE OUTPUT BUFFER IS DONE       DTC
*                 AND A GOOD COMPARE IS EXPECTED. NEXT A ZEROS           DTC
*                 PATTERN IS WRITTEN INTO THE DATA FIELD WHILE A         DTC
*                 ONES PATTERN IS WRITTEN INTO THE OUTPUT BUFFER.        DTC
*                 A VERIFY IS PERFORMED ON THE DATA FIELD WITH THE       DTC
*                 OUTPUT BUFFER AND A BAD DATA COMPARE IS EXPECTED       DTC
*                                                                        DTC
*         METHOD-                                                        DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC13A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC15                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B3 - NUMBER OF SECTORS READ AT ONE TIME                        DTC
*         B4 - LOWER CYLINDER PARAMETER                                  DTC
*         B5 - LOWER TRACK PARAMETER                                     DTC
*         B6 - LOWER SECTOR PARAMETER                                    DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - MESSAGE NUMBER FOR MARGIN CONDITION                       DTC
*         B10- NUMBER OF FLAWED SECTORS FOUND                            DTC
*         B12- INDEX FOR READ MARGIN CONDITION                           DTC
*         B13- UPPER CYLINDER PARAMETER                                  DTC
*         B14- UPPER TRACK PARAMETER                                     DTC
*         B15- UPPER SECTOR PARAMETER                                    DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
0  FORMAT                                                                DTCPTR2
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC13 - WRITE VERIFY TEST                                      DTC
3  FORMAT DTC13 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT DTC13 CYL=*OCTB PATT=*OCTB                                     DTCPTR2
5  FORMAT DTC13 ERROR(S) = *DECD                                         DTCPTR2
16 FORMAT //DTC13 NOT EXECUTED,NEEDS P0.GE.1464B//
17 FORMAT *OCTB FLAWED SECTORS FOUND IN DTC13                            DTCPTR2
   EQUATE CONNECT=501                                                    DTC
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=66   *TEST NUMBER IN HEX                                           DTC
   B1=23                       *MODULE NUMBER                            DTC
   B7=0                        *CLEAR ERROR COUNT                        DTC
   B8=0                        *CLEAR LOOP COUNT                         DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
   IF(AL.GE.4) GOTO 32       *CHECK ACCESS LEVEL
   IF(IB(LOCYL).GE.1464B) GOTO 32  *CHECK CYL ADRS
   MSG 16 TO DISPLAY, PRINT 
   EXIT 
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
32 B3 = 2                    *CONDITION NO. 1                            DTCPTR2
   B2 = 0                                                                DTCPTR2
   B4 = IB(LOCYL)                                                        DTCPTR2
   B5 = IB(LOTRK)                                                        DTCPTR2
   B6 = IB(LOSECT)                                                       DTCPTR2
   GOSUB 36                                                              DTCPTR2
   GOSUB 37                                                              DTCPTR2
   IF(ES.AND.CM.EQ.0) MSG 4(B4,OB(B2)) TO DISPLAY                        DTCPTR2
* WRITE ENTIRE CYLINDER WITH DATA IN OUTPUT BUFFER                       DTC
   WRITE B11 SECTORS AT CYL B4 TRK B5 SEC B6, ABT 40
   GOSUB 37                                                              DTCPTR2
   VERIFY B11 SECTORS AT CYL B4 TRK B5 SEC B6, ABT 60 
   GOSUB 37                                                              DTCPTR2
   B2=1                                                                  DTC
   GOSUB 36                                                              DTCPTR2
   IF(ES.AND.CM.EQ.0) MSG 4(B4,OB(B2)) TO DISPLAY                        DTCPTR2
   GOSUB 37                                                              DTCPTR2
   VERIFY B11 SECTORS AT CYL B4 TRK B5 SEC B6, ABT 34 
   STATUS GENERAL, ABT 60                                                DTCPTR1
   STATUS DETAIL, ABT 60                                                 DTCPTR1
   IF(SB(20).AND.1.EQ.0) ERROR 10/53, GOTO 60                            DTCPTR2
34 GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         WRITE DATA PATTERN IN OUTPUT BUFFER                            DTCPTR2
*                                                                        DTCPTR2
* WRITE DATA PATTERN INTO OUTPUT BUFFER                                  DTC
36 CALL 98G                                                              DTCPTR2
   RES DRIVE, ABT 60                                                     DTC
   RETURN                                                                DTC
*                                                                        DTCPTR2
/         INITIALIZE REGISTERS BEFORE READ/WRITE                         DTCPTR2
*                                                                        DTCPTR2
37 B4=IB(LOCYL)              *LOWER CYLINDER ADDRESS                     DTCPTR2
   B5=IB(LOTRK)      *LOWER TRACK ADDRESS                                DTC
   B6=IB(LOSECT)     *LOWER SECTOR ADDRESS                               DTC
   B11 = 1           *NUMBER OF SECTORS WRITTEN/VERIFIED
   RETURN                                                                DTC
* CHECK FOR FLAWED SECTORS, TRACKS                                       DTC
*                                                                        DTCPTR2
/         CHECK FOR FLAWED SECTORS                                       DTCPTR2
*                                                                        DTCPTR2
40 IF(SB(6).AND.20.EQ.0) GOTO 60       *SECTOR NOT FLAWED                DTCPTR2
   B10 = B10 + 1             *INCREMENT SECTOR FLAW COUNTER 
   IB(LOSECT)=IB(LOSECT)+1                                               DTC
   GOTO 32                   *SECTOR FLAWED, CONTINUE                    DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   ENDSUB                                                                DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 13A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   MSG 17(B10) TO PRINT 
   MSG 0 TO DISPLAY                                                      DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC13A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC13A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC13, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC13A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC13 - WRITE VERIFY TEST                                      DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT READ/WRITE ERROR OCCURRED AT ADDRESS                           DTC
7  FORMAT CYL=*OCTB  SECTOR=*OCTB  TRACK=*OCTB                           DTC
10 FORMAT WRITE VERIFY ERROR DID NOT OCCUR                               DTC
11 FORMAT WRITE VERIFY ERROR OCCURRED                                    DTC
12 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
13 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
14 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC.GT.3777) GOTO 26                                                DTCPTR2
*                                                                        DTC
/                PROCESS MODULE ERROR MESSAGE                            DTC
*                                                                        DTC
24 MSG 4(EA,B0,EC) TO LINE 4                                             DTCPTR2
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6   *DISPLAY FUNCTION CODE                          DTC
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 12 TO LINE 16                                                     DTC
   MSG 13 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 14(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 15 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 16 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/                PROCESS PRODUCT OVERLAY ERROR MESSAGE                   DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTCPTR2
   MSG 5(LF) TO LINE 6    *DISPLAY FUNCTION CODE                         DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
27 MSG 12 TO LINE 16                                                     DTC
   MSG 13 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 14(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 15 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 16 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC14,844FT, (03,05),LOCK                                      DTC
**                                                                       DTCPTR1
*         DTC14 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC14 DETERMINES IF THE WRITE                          DTC
*                 VERIFY FUNCTION WORKS PROPERLY ON THE                  DTC
*                 844 DRIVES.  THIS WILL BE TESTED USING                 DTC
*                 VARIOUS ADDRESSES TO DO THIS COMPARE.                  DTC
*                                                                        DTC
*         METHOD- VARIOUS DATA PATTERNS ARE FIRST WRITTEN                DTC
*                 TO THE ADDRESSES FOLLOWED BY A VERIFY(WRITE            DTC
*                 VERIFY) COMMAND. THIS MODULE DOES NOT                  DTC
*                 PURPOSELY CREATE DATA ERRORS AS DID DTC13.             DTC
*                 ALSO A VARITY OF 57B DIFFERENT DATA PATTERNS           DTC
*                 MAY BE SELECTED(P6) AND ALL 9D READ MARGINS            DTC
*                 (P7) ARE SELECTABLE FOR THIS TEST.                     DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC14A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC14                 DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - DATA BUFFER INDEX                                         DTC
*         B3 - NUMBER OF SECTORS READ AT ONE TIME                        DTC
*         B4 - LOWER CYLINDER PARAMETER                                  DTC
*         B5 - LOWER TRACK PARAMETER                                     DTC
*         B6 - LOWER SECTOR PARAMETER                                    DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - MESSAGE NUMBER FOR MARGIN CONDITION                       DTC
*         B10- NUMBER OF FLAWED SECTORS FOUND                            DTC
*         B12- INDEX FOR READ MARGIN CONDITION                           DTC
*         B13- UPPER CYLINDER PARAMETER                                  DTC
*         B14- UPPER TRACK PARAMETER                                     DTC
*         B15- UPPER SECTOR PARAMETER                                    DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
0  FORMAT //DTC14 NOT EXECUTED,NEEDS P0.GE.1464B//
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC14 - READ/WRITE TEST                                        DTC
3  FORMAT DTC14 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT DTC14 C=*OCTB T=*OB P=*OCT M=*OB                               DTCPTR2
5  FORMAT DTC14 ERROR(S) = *DECD                                         DTCPTR2
6  FORMAT READ MARGINS - NORMAL  OFFSET, NORMAL STROBE                   DTC
7  FORMAT READ MARGINS - FORWARD OFFSET, NORMAL STROBE                   DTC
10 FORMAT READ MARGINS - REVERSE OFFSET, NORMAL STROBE                   DTC
11 FORMAT READ MARGINS - NORMAL  OFFSET, EARLY  STROBE                   DTC
12 FORMAT READ MARGINS - FORWARD OFFSET, EARLY  STROBE                   DTC
13 FORMAT READ MARGINS - REVERSE OFFSET, EARLY  STROBE                   DTC
14 FORMAT READ MARGINS - NORMAL  OFFSET, LATE   STROBE                   DTC
15 FORMAT READ MARGINS - FORWARD OFFSET, LATE   STROBE                   DTC
16 FORMAT READ MARGINS - REVERSE OFFSET, LATE   STROBE                   DTC
17 FORMAT *OCTB FLAWED SECTORS FOUND IN DTC14                            DTCPTR2
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT            *PRINT MODULE NAME                          DTCPTR2
   B0=67    *TEST NUMBER IN HEX                                          DTC
   B1=24                       *MODULE NUMBER                            DTC
   B7=0                        *CLEAR ERROR COUNT                        DTC
   B8=0                        *CLEAR LOOP COUNT                         DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
   IF(AL.GE.4) GOTO 25       *CHECK ACCESS LEVEL
   IF(IB(LOCYL).GE.1464B) GOTO 25  *CHECK CYL ADRS
   MSG 0 TO DISPLAY, PRINT
   EXIT 
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
* INITIALIZE                                                             DTC
25 B4=IB(LOCYL)              *B4=CYLINDER ADDRESS                        DTCPTR2
   B5=IB(LOTRK)              *B5=TRACK ADDRESS                           DTCPTR2
   B6=IB(LOSECT)               *B6=SECTOR ADDRESS                        DTC
   B13=OB(UPCYL)               *B13 LAST CYLINDER ADDRESS                DTC
   B14=OB(UPTRK)               *B14 LAST TRACK ADDRESS                   DTC
   B15=OB(UPSECT)              *B15 LAST SECTOR ADDRESS                  DTC
   IF(P6.NE.77) B2=P6               *RUN ONE DATA PATTERN                DTCPTR2
   IF(P6.EQ.77) B2=0                *RUN ALL DATA PATTERNS               DTCPTR2
* BEGIN TEST                                                             DTC
26 CALL 98G                *WRITE PATTERN INTO OUTPUT BUFFER             DTC
   RES DRIVE, ABT 60       *RE-RESERVE CHANNEL AFTER CALL                DTC
   B4=IB(LOCYL)                                                          DTC
27 IF(P7.EQ.7777) B12=0      *RE-INITIALIZE CYL. ADDRESS                 DTCPTR2
   IF(P7.EQ.7777) B9=6                                                   DTCPTR2
   IF(P7.NE.7777) B12=P7                                                 DTCPTR2
31 B3 = 2                                                                DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   MARGINS B12, ABT 60                                                   DTCPTR2
32 IF(ES.AND.CM.EQ.0) MSG 4(B4,B5,OB(B2),B12) TO DISPLAY
   B11 = 1                   *NUMBER OF SECTORS WRITTEN 
   WRITE B11 SECTORS AT CYL B4 TRK B5 SEC B6,ABT 45 
   B11 = 1                   *NUMBER OF SECTORS READ
   READ B11 SECTORS AT CYL B4 TRK B5 SEC B6,ABT 60
34 GOTO 32 WHILE(B6+1.LE.B15)          *LOOP FOR ALL SECT                DTCPTR2
   B6=IB(LOSECT)                                                         DTC
   GOTO 32 WHILE(B5+1.LE.B14)          *LOOP FOR ALL TRACKS              DTCPTR2
   B5=IB(LOTRK)                                                          DTC
   IF(P7.NE.7777) GOTO 36             *USE READ MARGIN IN P7             DTCPTR2
   GOSUB 41  *CHANGE READ MARGINS                                        DTC
   IF(ES.AND.CM.EQ.0) MSG B9 TO DISPLAY                                  DTCPTR2
   GOTO 31 WHILE(B12+0.LE.22)         *LOOP FOR ALL MARGIN               DTCPTR2
36 GOTO 27 WHILE(B4+1.LE.B13)        *LOOP FOR ALL PATTERNS              DTCPTR2
   IF(P6.NE.77) GOTO 64                                                  DTCPTR2
   GOTO 26 WHILE(B2+0.LE.57B)                                            DTCPTR2
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         CHANGE READ MARGIN CONDITION                                   DTCPTR2
*                                                                        DTCPTR2
41 IF(B12 NE 2) GOTO 42        *SEE MSG 5-7                              DTC
   B12=10                      *SEE MSG 10-12                            DTC
   B9=B9+1                                                               DTC
   RETURN                                                                DTC
42 IF(B12 NE 12) GOTO 43       *SEE MSG 13-15                            DTC
   B12=20                                                                DTC
   B9=B9+1                                                               DTC
   RETURN                                                                DTC
43 B12=B12+1                                                             DTC
   B9=B9+1                                                               DTC
   IF(B9 EQ 17) B9=6                                                     DTC
   RETURN                                                                DTC
* CHECK FOR FLAWED SECTORS, TRACKS                                       DTC
*                                                                        DTCPTR2
/         CHECK FOR FLAWED SECTORS                                       DTCPTR2
*                                                                        DTCPTR2
45 IF(SB(6).AND.20.EQ.0) GOTO 60       *SECTOR NOT FLAWED                DTCPTR2
   B10 = B10 + 1             *INCREMENT SECTOR FLAW COUNTER 
   GOTO 34                                                               DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE 25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 14A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 31
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   MSG 17(B10) TO PRINT 
   EXIT                                                                  DTCPTR2
   END 20                                                                DTCPTR2
COMPILE                                                                  DTC
   MODULE DTC14A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC14A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC14, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC14A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC14 - READ/WRITE TEST                                        DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT WRITE/VERIFY ERROR OCCURRED AT ADDRESS                         DTC
7  FORMAT CYLINDER=*OCTB  SECTOR=*OCTB  TRACK=*OCTB                      DTC
12 FORMAT READING CYL=*OCTB TRK=*OB SEC=*OB                              DTCPTR2
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC.GT.3777) GOTO 26                                                DTCPTR2
*                                                                        DTC
/                PROCESS MODULE ERROR MESSAGE                            DTC
*                                                                        DTC
24 MSG 4(EA,B0,EC)TO LINE 4  *DISPLAY MODULE ERROR INFO 
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6   *DISPLAY FUNCTION CODE                          DTC
   MSG 6 TO LINE 11                                                      DTC
   MSG 7 (B4,B5,B6) TO LINE 12                                           DTC
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/                PROCESS PRODUCT OVERLAY ERROR MESSAGE                   DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTCPTR2
   MSG 5(LF) TO LINE 6    *DISPLAY FUNCTION CODE                         DTC
   IF(B3.GT.1) MSG 12(B4,B5,B6) TO LINE 7                                DTCPTR2
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC15,844FT, (03,05),LOCK                                      DTC
**                                                                       DTCPTR1
*         DTC15 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC15 TESTS THE HEAD ADVANCE OF THE 844                DTC
*                 DRIVES. THE HEAD COUNTER WILL BE INCRE-                DTC
*                 MENTED BY READING AND WRITING AN ENTIRE                DTC
*                 CYLINDER. BEHAVIOR OF THE HEAD REGISTER                DTC
*                 AND END OF CYLINDER SIGNAL SILL BE CHECK-              DTC
*                 ED WHEN AN ATTEMPT IS MADE TO ADVANCE                  DTC
*                 THE HEAD TOO FAR.                                      DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD- THE ADDRESS FIELD OF EACH ADDRESS IS WRITTEN INTO      DTC
*                 THE DATA FIELD OF ONE SECTOR OF EACH OF THE 22B        DTC
*                 TRACKS.  A VERIFY IS THEN PERFORMED ON THE DATA        DTC
*                 FIELD.  THIS METHOD INSURES THAT THE HEAD NUMBER       DTC
*                 INCREMENTS AND THAT THE EACH HEAD ACTUALLY             DTC
*                 ACCESSES THE CYLINDER ADDRESS.                         DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - BECAUSE DTC15 REQUIRES THAT 22B                        DTCPTR1
*                 TRACKS BE AVAILABLE TO RUN, 22B                        DTCPTR1
*                 TRACKS WILL AUTOMATICALLY BE SET IN                    DTCPTR1
*                 THE MODULE.  THIS WILL ELIMINATE ANY                   DTCPTR1
*                 OPERATOR INTERVENTION IF THE PROPER                    DTCPTR1
*                 TRACK PARAMETERS HAVE NOT BEEN SET.                    DTCPTR1
*                                                                        DTCPTR1
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC15A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC16                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B3 - NUMBER OF SECTORS READ AT ONE TIME                        DTC
*         B4 - LOWER CYLINDER PARAMETER                                  DTC
*         B5 - LOWER TRACK PARAMETER                                     DTC
*         B6 - LOWER SECTOR PARAMETER                                    DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - MESSAGE NUMBER FOR MARGIN CONDITION                       DTC
*         B10- NUMBER OF FLAWED SECTORS FOUND                            DTC
*         B12- INDEX FOR READ MARGIN CONDITION                           DTC
*         B13- UPPER CYLINDER PARAMETER                                  DTC
*         B14- UPPER TRACK PARAMETER                                     DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
0  FORMAT                                                                DTCPTR2
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC15 - HEAD ADVANCE TEST                                      DTC
3  FORMAT DTC15 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT DTC15 - HEAD *OB ACCESSED                                      DTCPTR2
5  FORMAT DTC15 ERROR(S) = *DECD                                         DTCPTR2
16 FORMAT //DTC15 NOT EXECUTED,NEEDS P0.GE.1464B//
17 FORMAT *OCTB FLAWED SECTORS FOUND IN DTC15                            DTCPTR2
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=70                       *TEST NUMBER XX HEX                       DTC
   B1=25                       *MODULE NUMBER                            DTC
   B7=0                        *CLEAR ERROR COUNT                        DTC
   B8=0                        *CLEAR LOOP COUNT                         DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98B  *DETERMINE IF PARAMETERS ARE VALID                          DTC
   IF(AL.GE.4) GOTO 30       *CHECK ACCESS LEVEL
   IF(IB(LOCYL).GE.1464B) GOTO 30  *CHECK CYL ADRS
   MSG 16 TO DISPLAY, PRINT 
   EXIT 
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
30 B4=IB(LOCYL)                *B4=CYLINDER ADDRESS                      DTC
   B5=0                        *B5=LOWEST TRACK ADDRESS                  DTCPTR1
   B6=IB(LOSECT)               *B6=SECTOR ADDRESS                        DTC
   B13=OB(UPCYL)            *B13 HOLDS LAST CYLINDER ADDRESS             DTC
*                                                                        DTC
/        ISSUE TEST COMMANDS TO 844-4X DRIVE                             DTC
*                                                                        DTC
32 B3 = 2                                                                DTCPTR2
   RES DRIVE, ABT 60                                                     DTCPTR2
* WRITE CYL ADDR INTO DATA FIELD OF EACH PARAM CYL ADDRESS               DTC
   B11 = 1                   *NUMBER OF SECTORS TO WRITE
   WRITE B11 CODED SECTORS AT CYL B4 TRK B5 SEC B6, ABT 45
   B11 = 1                   *NUMBER OF SECTORS TO VERIFY 
   VERIFY B11 CODED SECTORS AT CYL B4 TRK B5 SEC B6, ABT 60 
   IF(ES.AND.CM.EQ.0) MSG 4(B5) TO DISPLAY                               DTCPTR2
   IF(B5.NE.OB(2)) ERROR 06/55, GOTO 60  *HEAD ADDRESS ERROR             DTCPTR2
33 B6 = IB(LOSECT)           *REINITIALIZE SECTOR ADDRESS 
   GOTO 32 WHILE(B5+1.LE.22B)                                            DTCPTR2
   B5=0                                                                  DTCPTR1
34 GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         CHECK FOR FLAWED SECTORS                                       DTCPTR2
*                                                                        DTCPTR2
45 IF(SB(6) AND 20 EQ 0) GOTO 60      *SECTOR NOT FLAWED                 DTC
   B10 = B10 + 1             *INCREMENT SECTOR FLAW COUNTER 
   IF(B6 GE IB(UPSECT)) GOTO 33 
   B6 = B6 + 1               *FIND NEXT SECTOR
   GOTO 32       *SECTOR FLAWED, CONTINUE WITH TEST                      DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98D                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 15A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   MSG 17(B10) TO PRINT      *PRINT SECTOR FLAW COUNTER 
   MSG 0 TO DISPLAY                                                      DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTCPTR2
COMPILE                                                                  DTC
   MODULE DTC15A,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC15A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC15, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC15A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC15 - HEAD ADVANCE TEST                                      DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT FAILURE ON HEAD INCREMENT                                      DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26  *IF PRODUCT OVERLAY ERROR CODE                DTCPTR1
*                                                                        DTC
/                PROCESS MODULE ERROR MESSAGE                            DTC
*                                                                        DTC
24 MSG 4(EA,B0,EC) TO LINE 4    *DISPLAY MODULE ERROR INFO.              DTCPTR2
   MSG 5(LF) TO LINE 6   *DISPLAY FUNCTION CODE                          DTC
   MSG 6 TO LINE 11                                                      DTC
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/                PROCESS PRODUCT OVERLAY ERROR MESSAGE                   DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTCPTR2
   MSG 5(LF) TO LINE 6    *DISPLAY FUNCTION CODE                         DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98L                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC16,844HT, (03,05),LOCK                                      DTC
** GENERAL INFO ABOUT MODULE DESIGN AND OPERATION                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   00  NORMAL STROBE, NORMAL OFFSET                                     DTC
*   01  NORMAL STROBE, FORWARD OFFSET                                    DTC
*   02  NORMAL STROBE, REVERSE OFFSET                                    DTC
*   10  EARYL STROBE, NORMAL OFFSET                                      DTC
*   11  EARLY STROBE, FORWARD OFFSET                                     DTC
*   12  EARLY STROBE, REVERSE OFFSET                                     DTC
*   20  LATE STROBE, NORMAL OFFSET                                       DTC
*   21  LATE STROBE, FORWARD OFFSET                                      DTC
*   22  LATE STROBE, REVERSE OFFSET                                      DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         DTC16 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC16 CHECKS THE READ/WRITE LOGIC DURING               DTC
*                 SEQUENTIAL READ BEFORE WRITE AND WRITE                 DTC
*                 BEFORE READ OPERATIONS.                                DTC
*                 THIS MODULE IS RUN AT 2_1 INTERLACE MODE.              DTC
*                                                                        DTC
*         METHOD -A 2525 DATA PATTERN IN WRITTEN INTO EVERY SECTORS      DTC
*                 DATA FIELD OF THE SELECTED CYLINDER AND A VERIFY IS    DTC
*                 PERFORMED.                                             DTC
*                 A 5252 DATA PATTERN IN WRITTEN INTO EVERY ODD SECTORS  DTC
*                 DATA FIELD OF THE SELECTED CYLINDER AND A VERIFY IS    DTC
*                 PERFORMED.                                             DTC
*                 A 5252 DATA PATTERN IN WRITTEN INTO EVERY EVEN SECTORS DTC
*                 DATA FIELD OF THE SELECTED CYLINDER AND A VERIFY IS    DTC
*                 PERFORMED.                                             DTC
*                                                                        DTC
*         METHOD-                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - BECAUSE DTC16 REQUIRES THAT 30B                        DTCPTR1
*                 SECTORS BE AVAILABLE TO RUN, 30B                       DTCPTR1
*                 SECTORS WILL AUTOMATICALLY BE SET IN                   DTCPTR1
*                 THE MODULE.  THIS WILL ELIMINATE ANY                   DTCPTR1
*                 OPERATOR INTERVENTION IF THE PROPER                    DTCPTR1
*                 SECTOR PARAMETERS HAVE NOT BEEN SET.                   DTCPTR1
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98B - PLACES LOWER ADDRESS PARAMETERS              DTC
*                           IN IB(LOCYL),IB(LOTRK), AND                  DTC
*                           IB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           PLACES UPPER ADDRESS PARAMETERS              DTC
*                           IN OB(LOCYL),OB(LOTRK), AND                  DTC
*                           OB(LOSECT)- THE LAST 3 WORDS                 DTC
*                           OF THE INPUT BUFFER                          DTC
*                                                                        DTC
*                           DISPLAYS OPERATOR INTERVENTION               DTC
*                           MESSAGES CONCERNING THE SCRATCH              DTC
*                           PAK AND PARAMETER REGISTERS.                 DTC
*                                                                        DTC
*                                                                        DTC
*                  DTC16A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC17                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - DATA PATTERN INDEX                                        DTC
*         B3 - HOLDS TOTAL NUMBER OF SECTORS                             DTC
*         B4 - LOWER CYLINDER PARAMETER                                  DTC
*         B5 - LOWER TRACK PARAMETER                                     DTC
*         B6 - LOWER SECTOR PARAMETER                                    DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         B9 - MESSAGE NUMBER FOR MARGIN CONDITION                       DTC
*         B10- NUMBER OF FLAWED SECTORS FOUND                            DTC
*         B11- HOLDS TOTAL NUMBER OF TRACKS                              DTC
*         B12- INDEX FOR READ MARGIN CONDITION                           DTC
*         B13- DATA WORD BUFFER INDEX                                    DTC
*         B14- UPPER TRACK PARAMETER                                     DTC
*         B15- UPPER SECTOR PARAMETER                                    DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 3 IF COMMAND ABORTS                         DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*                                                                        DTC
0  FORMAT                                                                DTCPTR2
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC16-READ/WRITE INTERLACING                                   DTC
3  FORMAT DTC16 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC16 ERROR(S) = *DECD                                         DTCPTR2
6  FORMAT DTC16 TESTING ODD  SECTORS                                     DTCPTR2
7  FORMAT DTC16 TESTING EVEN SECTORS                                     DTCPTR2
16 FORMAT //DTC16 NOT EXECUTED,NEEDS P0.GE.1464B//
17 FORMAT *OCTB FLAWED SECTORS FOUND IN DTC16                            DTCPTR2
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=71   *TEST NUMBER XX HEX                                           DTC
   B1=26  *MODULE NUMBER                                                 DTC
   B7=0    *CLEAR ERROR COUNT                                            DTC
   B8=0    *CLEAR LOOP COUNT                                             DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   CALL 98A  *DETERMINE IF PARAMETERS ARE VALID                          DTC
   IF(AL.GE.4) GOTO 30       *CHECK ACCESS LEVEL
   IF(IB(LOCYL).GE.1464B) GOTO 30  *CHECK CYL ADRS
   MSG 16 TO DISPLAY, PRINT 
   EXIT 
*                                                                        DTC
/         ISSUE TEST COMMANDS TO 844-4X DRIVE                            DTC
*                                                                        DTC
30 B4=IB(LOCYL)                *B4=CYLINDER ADDRESS                      DTC
31 B5=0                      *B5=LOWEST TRACK ADDRESS                    DTCPTR2
*                                                                        DTC
*          BEGIN TEST                                                    DTC
*                                                                        DTC
*                                                                        DTC
/ WRITE 2525 DATA PATTERN INTO ALL SECTORS OF ONE CYLINDER               DTC
*                                                                        DTC
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
   B2 = 2525                                                             DTCPTR2
   B12 = 0                                                               DTCPTR2
   GOSUB 36  *GENERATE DATA BUFFER OF 2525 PATTERN                       DTCPTR2
   GOSUB 40          *WRITE/VERIFY EVEN SECTORS W 2525 PATT              DTC
   B12 = 1                                                               DTCPTR2
   GOSUB 40          *WRITE/VERIFY ODD SECTORS W 2525 PATT               DTC
*                                                                        DTC
/ WRITE EVERY ODD SECTOR WITH 5252 PATTERN                               DTC
* VERIFY ODD SECTORS =5252,EVEN SECTORS=2525                             DTC
*                                                                        DTC
   B2=5252                                                               DTC
   IF(ES.AND.CM.EQ.0) MSG 7 TO DISPLAY                                   DTCPTR2
   GOSUB 36      *GENERATE DATA BUFFER OF 5252 PATTERN                   DTCPTR2
   GOSUB 40          *WRITE/VERIFY ODD SECTORS W 5252 PATT               DTC
   B12 = 0                                                               DTCPTR2
   B2=2525                                                               DTC
   GOSUB 36      *GENERATE DATA BUFFER OF 2525 PATTERN                   DTCPTR2
   GOSUB 44          *VERIFY EVEN SECTORS W 2525 PATTERN                 DTC
*                                                                        DTC
/ WRITE EVERY EVEN SECTOR WITH 5252 PATTERN                              DTC
* VERIFY ODD SECTORS AND EVEN SECTORS=5252                               DTC
*                                                                        DTC
   B2=5252                                                               DTC
   IF(ES.AND.CM.EQ.0) MSG 6 TO DISPLAY                                   DTCPTR2
   GOSUB 36                                                              DTCPTR2
   GOSUB 40          *WRITE/VERIFY EVEN SECTORS W 5252 PATT              DTC
   B12 = 1                                                               DTCPTR2
   GOSUB 44          *VERIFY ODD SECTORS W 5252 PATTERN                  DTC
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         SUBROUTINE TO GENERATE PATTERN IN OUTPUT BUFFER                DTCPTR2
*                                                                        DTCPTR2
36 B13 = 0                                                               DTCPTR2
37 OB(B13) = B2                                                          DTCPTR2
   GOTO 37 WHILE(B13+1.NE.502)                                           DTCPTR2
   RETURN                                                                DTC
*         SUBROUTINE TO READ/WRITE                                       DTCPTR2
40 B11 = 344B                *NUMBER OF SECTORS TO WRITE
   B4 = IB(LOCYL)                                                        DTCPTR2
   B5=0                                                                  DTCPTR1
   B6 = B12                                                              DTCPTR2
/         WRITE ENTIRE CYLINDER WITH PATTERN IN OB                       DTCPTR2
   WRITE B11 SECTORS AT CYL B4 TRK B5 SEC B6, ABT 60
44 B11 = 344B                *NUMBER OF SECTORS TO VERIFY 
   B4 = IB(LOCYL)                                                        DTCPTR2
   B5=0                                                                  DTCPTR1
   B6 = B12                                                              DTCPTR2
/         VERIFY ENTIRE CYLINDER WITH PATTERN IN OB                      DTCPTR2
   VERIFY B11 SECTORS AT CYL B4 TRK B5 SEC B6, ABT 60 
   RETURN                                                                DTC
*                                                                        DTCPTR2
/         CHECK FOR FLAWED SECTORS                                       DTCPTR2
*                                                                        DTCPTR2
47 IF(SB(6) AND 20 EQ 0) GOTO 60  *SECTOR NOT FLAWED                     DTC
   B10 = B10 + 1             *INCREMENT SECTOR FLAW COUNTER 
   IF(B4.EQ.1466B) IB(LOCYL)=IB(LOCYL)-1                                 DTCPTR2
   IB(LOCYL)=IB(LOCYL)+1                                                 DTCPTR2
   GOTO 31       *SECTOR FLAWED, INCR. B4 AND CONTINUE                   DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   ENDSUB                                                                DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 16A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   MSG 17(B10) TO PRINT      *PRINT SECTOR FLAW 
   MSG 0 TO DISPLAY                                                      DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC16A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC16A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC16, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC16A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC16 - READ/WRITE INTERLACING                                 DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
6  FORMAT WRITE/VERIFY FAILURE OCCURRED                                  DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
/                                                                        DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26  *IF PRODUCT OVERLAY ERROR CODE                DTCPTR1
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
24 MSG 4(EA,B0,EC)TO LINE 4  *DISPLAY MODULE ERROR INFO 
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6   *DISPLAY FUNCTION CODE                          DTC
   MSG 6 TO LINE 11                                                      DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98H                                                           DTCPTR1
   GOTO 77                                                               DTC
25 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
   GOTO 77                                                               DTC
*                                                                        DTC
/                PROCESS PRODUCT OVERLAY ERROR MESSAGE                   DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTCPTR2
   MSG 5(LF) TO LINE 6    *DISPLAY FUNCTION CODE                         DTC
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98H                                                           DTCPTR1
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC17,844HT, (03,05),LOCK                                      DTC
**                                                                       DTC
*                                                                        DTC
*         DTC17 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC17 WILL FORCE A FAULT CONDITION                     DTC
*                 BY TRYING TO READ AN ADDRESS WHEN THE HEADS ARE        DTC
*                 NOT YET POSITIONED ON THAT SELECTED CYLINDER           DTC
*                 ADDRESS. THIS WILL VERIFY THAT THE CORRECT FAULT       DTC
*                 REGISTER BITS WILL SET.                                DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD -A SEEK FORWARD FROM CYLINDER ZERO TO CYLINDER 1466B    DTC
*                 IS PERFORMED.  WHILE THIS IS OCCURING, A READ          DTC
*                 FUNCTION IS EXECUTED. THE RESULT SHOULD BE A READ      DTC
*                 OFF-CYLINDER AND PACK UNSAFE FAULT.                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98C - RESERVES THE I/O CHANNEL,                    DTC
*                           CONNECTS THE FMD CONTROLLER                  DTC
*                           AND THE 844 DISK DRIVE                       DTC
*                                                                        DTC
*                  DTC17A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC18                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B3 - TEMPORARY ERROR COUNT                                     DTC
*         B4 - CYLINDER ADDRESS                                          DTC
*         B5 - TRACK ADDRESS                                             DTC
*         B6 - SECTOR ADDRESS                                            DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*         DTC17 ERROR CODES - 3C01B - OFF-CYL BIT CLEAR                  DTC
*                             3C01C - PACK UNSAFE BIT CLEAR              DTC
*                             3C01D - OFF-CYL BIT SET                    DTC
*                             3C01E - PACK UNSAFE BIT SET                DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC17-OFF-CYL READ FAULT                                       DTC
3  FORMAT DTC17 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC17 ERROR(S) = *DECD                                         DTCPTR2
   EQUATE CONNECT=501                                                    DTC
   EQUATE CH12=12B
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=72   *TEST NUMBER XX HEX                                           DTC
   B1=27   *MODULE NUMBER                                                DTC
   B7=0    *CLEAR ERROR COUNT                                            DTC
   B8=0    *CLEAR LOOP COUNT                                             DTC
*                                                                        DTC
/         CONNECT TO FMD CONTROLLER AND 844 DRIVE                        DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
*                                                                        DTC
/ ISSUE COMMANDS TO 844-4X DRIVE                                         DTC
*                                                                        DTC
*                                                                        DTC
/          *SEEK TO CYL 0                                                DTC
*                                                                        DTC
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 60                                                     DTCPTR2
   B4 = 0                                                                DTCPTR2
   B5=0                                                                  DTC
   B6=0                                                                  DTC
   SEEK CYL B4 TRK B5 SEC B6, ABT 60                                     DTC
*                                                                        DTC
/          *SEEK TO CYL 1465B(822D)                                      DTC
*                                                                        DTC
   OUT CHANNEL=12B,203,065, ABT 60  *STORE 1465B IN DIFF REG             DTC
   OUT CHANNEL=12B,003,065, ABT 60                                       DTC
   OUT CHANNEL=CH12,103,065,ABT 60  *STORE 1465B IN CYL REG 
   OUT CHANNEL=CH12,003,065,ABT 60
* CREATE SEEK FORWARD PULSE TO INITIATE SEEK FORWARD                     DTC
   OUT CHANNEL=12B,000,004, ABT 60  *STABILIZE SEEK FWD LINE             DTC
   OUT CHANNEL=12B,010,004, ABT 60  *ENABLE SEEK FWD LINE                DTC
   OUT CHANNEL=12B,000,004, ABT 60  *DISABLE SEEK FWD LINE               DTC
*                                                                        DTC
/          *GENERATE FAULT                                               DTC
*                                                                        DTC
*          *SET FAULT STATUS IN NIC-10                                   DTC
   OUT CHANNEL=11B,000,210, ABT 60                                       DTC
*              *SET CONTROL SELECT BIT IN NIC-10                         DTC
   OUT CHANNEL=12B,010,000, ABT 60                                       DTC
*              *INITIATE CONTROL SEQUENCE                                DTC
   CONTROL 0,100,100,4,ABT 60  *PROC CLK, RD GATE 
   CONTROL 0,100,100,0,ABT 60  *DELAY, PROC CLK 
   CONTROL 0,0,100,0,EXECUTE,ABT 60 
*                                                                        DTC
/          *CHECK FOR FAULT CONDITION                                    DTC
*                                                                        DTC
*          *CHECK FOR READ OFF-CYLINDER FAULT                            DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(3).AND.201.NE.0) ERROR 12/77, GOTO 60
   IF(SB(26) AND 1 EQ 0) ERROR 06/34, GOTO 60                            DTC
*          *ENABLE READ CONTROL STATUS TO NIC                            DTC
   OUT CHANNEL=11B,000,211, ABT 60                                       DTC
*          *CHECK FOR PACK-UNSAFE FAULT                                  DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 2 EQ 0) ERROR 07/35, GOTO 60                            DTC
*          *CLEAR FAULT CONDITIONS                                       DTC
   OUT CHANNEL=11B,000,300, ABT 60                                       DTC
   OUT CHANNEL=11B,000,200, ABT 60                                       DTC
   OUT CHANNEL=11B,000,210, ABT 60                                       DTC
*          *CHECK FOR READ OFF-CYLINDER FAULT CLEARED                    DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 1 NE 0) ERROR 10/36, GOTO 60                            DTC
* CHECK FOR PACK UNSAFE FAULT CLEARED                                    DTC
   OUT CHANNEL=11B,000,211, ABT 60  *READ CONTROL STATUS
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 2 NE 0) ERROR 11/37, GOTO 60                            DTC
40 B13 = 160                  *LOOP UNTIL ON-CYLINDER                    DTCPTR2
   STATUS DETAIL, ABT 60     *READ DETAILED STATUS
42 IF(SB(12).AND.4000.NE.0) GOTO 44  *EXIT(ON-CYLINDER) 
   STATUS DETAIL, ABT 60     *READ DETAILED STATUS
   GOTO 42 WHILE(B13-1.NE.0)                                             DTCPTR2
44 OUT CHANNEL=11B,000,300, ABT 60  *CLEAR FAULTS 
   GOTO 64                   *EXIT (NOT ON-CYLINDER)                     DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   OUT CHANNEL=11B,000,300, ABT 60  *CLEAR FAULTS 
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 17A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC17A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC17A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC17, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC17A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844 DISK DRIVE DIAGNOSTIC                                DTC
2  FORMAT DTC17 - READ OFF-CYLINDER FAULT TEST                           DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
/         02003 ERROR MESSAGE.                                           DTC
6  FORMAT READ FAULT DID NOT OCCUR                                       DTC
7  FORMAT PACK UNSAFE FAULT DID NOT OCCUR                                DTC
10 FORMAT READ FAULT WAS NOT CLEARED                                     DTC
11 FORMAT PACK UNSAFE FAULT WAS NOT CLEARED                              DTC
12 FORMAT LOST CONTROLWORD/LOST CLOCK 
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
30 FORMAT CHAN  CHANNEL STATUS(HEXADECIMAL) 
31 FORMAT  00B  *H*H  *H*H  *H*H  *H*H
32 FORMAT  04B  *H*H  *H*H  *H*H  *H*H
33 FORMAT  10B  *H*H  *H*H  *H*H  *H*H
34 FORMAT  14B  *H*H  *H*H  *H*H  *H*H
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
22 MSG 4 (EA,B0,EC) TO LINE 4   *DISPLAY LINE AND ERROR CODE             DTC
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6                                                   DTC
   IF(EC.EQ.77) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.34) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.35) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.36) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.37) GOTO 25    *CHANNEL ERROR STATUS
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98H                                                           DTCPTR1
   GOTO 77                                                               DTC
25 MSG 30 TO LINE 10
   MSG 31, 8 WORDS FROM SB(1) TO LINE 11
   MSG 32, 8 WORDS FROM SB(11) TO LINE 12 
   MSG 33, 8 WORDS FROM SB(21) TO LINE 13 
   MSG 34, 8 WORDS FROM SB(31) TO LINE 14 
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5 (LF) TO LINE 6      *DISPLAY FUNCTION CODE                      DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC18,844HT, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC18 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC18 WILL FORCE A FAULT CONDITION BY                  DTC
*                 BY TRYING TO WRITE AN ADDRESS WHEN THE HEADS ARE       DTC
*                 NOT YET POSITIONED ON THAT SELECTED CYLINDER           DTC
*                 ADDRESS. THIS WILL VERIFY THAT THE CORRECT FAULT       DTC
*                 REGISTER BITS WILL SET.                                DTC
*                                                                        DTC
*                                                                        DTC
*         METHOD -A SEEK FORWARD FROM CYLINDER ZERO TO CYLINDER 1466B    DTC
*                 IS PERFORMED.  WHILE THIS IS OCCURING, A WRITE         DTC
*                 FUNCTION IS EXECUTED. THE RESULT SHOULD BE A WRITE     DTC
*                 OFF-CYLINDER AND PACK UNSAFE FAULT.                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*                                                                        DTC
*                  DTC98C - RESERVES THE I/O CHANNEL,                    DTC
*                           CONNECTS THE FMD CONTROLLER                  DTC
*                           AND THE 844 DISK DRIVE                       DTC
*                                                                        DTC
*                  DTC18A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC19                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B3 - TEMPORARY ERROR COUNT                                     DTC
*         B4 - CYLINDER ADDRESS                                          DTC
*         B5 - TRACK ADDRESS                                             DTC
*         B6 - SECTOR ADDRESS                                            DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*         DTC18 ERROR CODES - 3C01F - OFF-CYL BIT CLEAR                  DTC
*                             3C020 - PACK UNSAFE BIT CLEAR              DTC
*                             3C021 - OFF-CYL BIT SET                    DTC
*                             3C022 - PACK UNSAFE BIT SET                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC18-OFF-CYL WRITE FAULT                                      DTC
3  FORMAT DTC18 EC=*DECD, LC=*DECD                                       DTCPTR2
4  FORMAT // DTC18 NOT EXECUTED, NEEDS AL=0004, AL=*OCTB // 
5  FORMAT DTC18 ERROR(S) = *DECD                                         DTCPTR2
6  FORMAT                                                                DTC
   EQUATE CONNECT=501                                                    DTC
   EQUATE CH12 = 12B
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=72   *TEST NUMBER XX HEX                                           DTC
   B1=30   *MODULE NUMBER                                                DTC
   B7=0  *CLEAR ERROR COUNT                                              DTC
   B8=0  *CLEAR LOOP COUNT                                               DTC
   IF (AL.GE.4) GOTO 22      *ACCESS LEVEL CHECK
   MSG 4 (AL) TO DISPLAY, PRINT 
   EXIT                      *EXIT, ACCESS LEVEL TOO LOW
*                                                                        DTC
/          CONNECT TO FMD CONTROLLER AND 844 DRIVE                       DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
*                                                                        DTC
/ ISSUE COMMANDS TO 844-4X DRIVE                                         DTC
*                                                                        DTC
*                                                                        DTC
/          *SEEK TO CYL 0                                                DTC
*                                                                        DTC
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 60                                                     DTCPTR2
   B4 = 0                                                                DTCPTR2
   B5=0                                                                  DTC
   B6=0                                                                  DTC
   SEEK CYL B4 TRK B5 SEC B6, ABT 60                                     DTC
*                                                                        DTC
/          *SEEK TO CYL 1465B(822D)                                      DTC
*                                                                        DTC
   OUT CHANNEL=12B,203,065, ABT 60   *STORE 1465 IN DIFF REG             DTC
   OUT CHANNEL=12B,003,065, ABT 60                                       DTC
   OUT CHANNEL=CH12,103,065,ABT 60  *STORE 1465B IN CYL REG 
   OUT CHANNEL=CH12,003,065,ABT 60
* CREATE SEEK FORWARD PULSE TO INITIATE SEEK FORWARD                     DTC
   OUT CHANNEL=12B,000,004, ABT 60  *STABILIZE SEEK FWD LINE             DTC
   OUT CHANNEL=12B,010,004, ABT 60  *ENABLE SEEK FWD LINE                DTC
   OUT CHANNEL=12B,000,004, ABT 60  *DISABLE SEEK FWD LINE               DTC
*                                                                        DTC
/          *GENERATE FAULT                                               DTC
*                                                                        DTC
*          *SET FAULT STATUS IN NIC-10                                   DTC
   OUT CHANNEL=11B,000,210, ABT 60                                       DTC
*          *SET CONTROL SELECT BIT IN NIC-10                             DTC
   OUT CHANNEL=12B,010,000, ABT 60                                       DTC
*          *INITIATE CONTROL SEQUENCE                                    DTC
   CONTROL 0,100,100,10,ABT 60  *PROC CLK, WRT GATE 
   CONTROL 0,100,100,0,ABT 60  *DELAY, PROC CLK 
   CONTROL 0,0,100,0,EXECUTE,ABT 60 
*                                                                        DTC
/          *CHECK FOR FAULT CONDITION                                    DTC
*                                                                        DTC
*          *CHECK FOR WRITE OFF-CYLINDER FAULT                           DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(3).AND.201.NE.0) ERROR 12/77, GOTO 60
   IF(SB(26) AND 1 EQ 0) ERROR 06/40, GOTO 60                            DTC
*          *ENABLE READ CONTROL STATUS TO NIC                            DTC
   OUT CHANNEL=11B,000,211, ABT 60                                       DTC
*          *CHECK FOR PACK-UNSAFE FAULT                                  DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 2 EQ 0) ERROR 07/41, GOTO 60                            DTC
*          *CLEAR FAULT CONDITIONS                                       DTC
   OUT CHANNEL=11B,000,300, ABT 60                                       DTC
   OUT CHANNEL=11B,000,200, ABT 60                                       DTC
   OUT CHANNEL=11B,000,210, ABT 60                                       DTC
*          *CHECK FOR WRITE OFF-CYLINDER FAULT CLEARED                   DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 1 NE 0) ERROR 10/42, GOTO 60                            DTC
* CHECK FOR PACK UNSAFE FAULT CLEARED                                    DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 2 NE 0) ERROR 11/43, GOTO 60                            DTC
40 B13 = 160                  *LOOP UNTIL ON-CYLINDER                    DTCPTR2
42 IF(SB(12).AND.4000.NE.0) GOTO 64  *EXIT(ON-CYLINDER)                  DTCPTR2
   STATUS DETAIL, ABT 60     *READ DETAILED STATUS
   GOTO 42 WHILE(B13-1.NE.0)                                             DTCPTR2
   GOTO 64                   *EXIT (NOT ON-CYLINDER)                     DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 18A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   EXIT                                                                  DTCPTR2
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC18A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC18A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC18, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC18A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC18-WRITE OFF-CYL FAULT                                      DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
/         02003 ERROR MESSAGE.                                           DTC
6  FORMAT WRITE FAULT DID NOT OCCUR                                      DTC
7  FORMAT PACK UNSAFE FAULT DID NOT OCCUR                                DTC
10 FORMAT WRITE FAULT WAS NOT CLEARED                                    DTC
11 FORMAT PACK UNSAFE FAULT WAS NOT CLEARED                              DTC
12 FORMAT LOST CONTROLWORD/LOST CLOCK 
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
30 FORMAT CHAN  CHANNEL STATUS(HEXADECIMAL) 
31 FORMAT  00B  *H*H  *H*H  *H*H  *H*H
32 FORMAT  04B  *H*H  *H*H  *H*H  *H*H
33 FORMAT  10B  *H*H  *H*H  *H*H  *H*H
34 FORMAT  14B  *H*H  *H*H  *H*H  *H*H
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
22 MSG 4 (EA,B0,EC) TO LINE 4   *DISPLAY LINE AND ERROR CODE             DTC
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6                                                   DTC
   IF(EC.EQ.77) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.40) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.41) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.42) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.43) GOTO 25    *CHANNEL ERROR STATUS
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
25 MSG 30 TO LINE 10
   MSG 31, 8 WORDS FROM SB(1) TO LINE 11
   MSG 32, 8 WORDS FROM SB(11) TO LINE 12 
   MSG 33, 8 WORDS FROM SB(21) TO LINE 13 
   MSG 34, 8 WORDS FROM SB(31) TO LINE 14 
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5 (LF) TO LINE 6      *DISPLAY FUNCTION CODE                      DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC19,844HT, (03,05),LOCK                                      DTC
**                                                                       DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*   THE RTZS IS A SEEK WHERE THE HEADS ARE REPOSITIONED A                DTC
*    CYLINDER 000 - THE UNIT MUST ALREADY BE SELECTED                    DTC
*    RTZS CANNOT OCCUR IF THERE IS A FAULT CONDITION.                    DTC
*    THE UNIT MUST BE ON-LINE.                                           DTC
*    IF THE DIBITS ON THE SERVO TRACK ARE LOST FOR MORE                  DTC
*    THAN 200 MSEC THE HEADS WILL BE UNLOADED BUT THE FAULT              DTC
*    CONDITION WILL NOT BE CLEARED.                                      DTC
*                                                                        DTC
*   END OF CYLINDER IS GENERATED WHENEVER THE HEAD                       DTC
*    REGISTER CONTAINS A VALUE OF 18 OR GREATER.  THIS CAN               DTC
*    RESULT FROM A HEAD SELECT TAG OR HEAD ADVANCE TAG WITH              DTC
*    THE HEAD REGISTER ALREADY AT 18.                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*    THE ILLEGAL CYLINDER YOU HAVE TO SEEK TO TO CREATE THE              DTC
*    SEEK FAULTS 1467B                                                   DTC
*         WONT WORK - HAS TO BE 1470B                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         DTC19 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-DTC19 WILL CREATE A FAULT CONDITION BY                 DTC
*                 TRYING TO SEEK TO CYLINDER 1470 WHICH                  DTC
*                 EXCEEDS THE PACK CYLINDER ADDRESS BY 2.                DTC
*                                                                        DTC
*         METHOD-SEEK TO CYLINDER ZERO                                   DTC
*                THEN INITIATE A SEEK TO CYLINDER 1470B                  DTC
*                 A SEEK FAULT IN THE FAULT REGISTER AND AMPLITUDE       DTC
*                 MONITOR(SEEK TO INVALID ADDRESS) IN THE CONTROL        DTC
*                 REGISTER SHOULD OCCUR.                                 DTC
*                                                                        DTC
*                  NOTE - DTC19 COMPLETES DTC TEST SERIES. ETC-          DTCPTR1
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THE TEST SERIES DTC WILL BE COMPLETE UPON               DTCPTR1
*                EXITING DTC19.  DTC20 IS A STAND-ALONE                  DTCPTR1
*                TEST WHICH WILL ONLY BE RUN IF THE OPERATOR             DTCPTR1
*                ENTERS "R DTC20"                                        DTCPTR1
*                                                                        DTC
*                  DTC98C - RESERVES THE I/O CHANNEL,                    DTC
*                           CONNECTS THE FMD CONTROLLER                  DTC
*                           AND THE 844 DISK DRIVE                       DTC
*                                                                        DTC
*                  DTC19A - PROCESSES AND DISPLAYS ERROR                 DTC
*                           INFORMATION FOR MODULE DTC20                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         B1 - MODULE NUMBER                                             DTC
*         B2 - NOT USED                                                  DTC
*         B3 - TEMPORARY ERROR COUNT                                     DTC
*         B4 - CYLINDER ADDRESS                                          DTC
*         B5 - TRACK ADDRESS                                             DTC
*         B6 - SECTOR ADDRESS                                            DTC
*         B7 - ERROR COUNT                                               DTC
*         B8 - LOOP COUNT                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB - OB(124) THRU OB(126) = SEEK ZERO FUNCTION                 DTC
*         OB - OB(150) THRU OB(170) = FAULT GENERATION AND               DTC
*              RETRIEVE STATUS FUNCTIONS                                 DTC
*         OB(501) - CONTAINS 0 IF BOTH CONTRL/DRIVE CONNECT              DTC
*                   CONTAINS 1 IF CONTROLLER NOT CONNECTED               DTC
*                   CONTAINS 2 IF DRIVE NOT CONNECTED                    DTC
*                   CONTAINS 4 IF DRIVE CONNECTS BUT FAULT EXISTS        DTC
*                                                                        DTC
*         DTC19 ERROR CODES - 3C023 - SEEK FAULT BIT CLEAR               DTC
*                             3C024 - INVALID SEEK BIT CLEAR             DTC
*                             3C025 - SEEK FAULT BIT SET                 DTC
*                             3C026 - INVALID SEEK BIT SET               DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC19 - SEEK FAULT TEST                                        DTC
3  FORMAT DTC19 EC=*DECD, LC=*DECD                                       DTCPTR2
5  FORMAT DTC19 ERROR(S) = *DECD                                         DTCPTR2
6  FORMAT                                                                DTC
*          MODULE EQUATES                                                DTC
   EQUATE CONNECT=501                                                    DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
20 MSG 2 TO PRINT                                                        DTCPTR2
   B0=72   *TEST NUMBER XX HEX                                           DTC
   B1=31   *MODULE NUMBER                                                DTC
   B7=0  *CLEAR ERROR COUNT                                              DTC
   B8=0  *CLEAR LOOP COUNT                                               DTC
*                                                                        DTC
/          CONNECT TO FMD CONTROLLER AND 844 DRIVE                       DTC
*                                                                        DTC
22 B3 = 1                    *CONDITION NO. 1                            DTCPTR2
   RES DRIVE, ABT 60         *CONNECT DRIVE AND CONTROLLER               DTCPTR2
*                                                                        DTC
/         ISSUE COMMANDS TO THE DRIVE                                    DTC
*                                                                        DTC
32 B3 = 2                    *CONDITION NO. 2                            DTCPTR2
   RES DRIVE, ABT 60                                                     DTCPTR2
   B4 = 0                                                                DTCPTR2
   B5=0          *INITIALIZE TRACK REGISTER                              DTC
   B6=0          *INITIALIZE SECTOR REGISTER                             DTC
* SEEK TO FIRST ADDRESS ON PAK                                           DTC
   SEEK CYL B4 TRK B5 SEC B6,ABT 60                                      DTC
   OUT CHANNEL=12B,203,070, ABT 60  *STORE 1467B IN DIFF REG             DTC
   OUT CHANNEL=12B,003,070, ABT 60                                       DTC
* CREATE SEEK FORWARD PULSE TO INITIATE SEEK FORWARD                     DTC
   OUT CHANNEL=12B,000,004, ABT 60  *STABILIZE SEEK FWD LINE             DTC
   OUT CHANNEL=12B,010,004, ABT 60  *ENABLE SEEK FWD LINE                DTC
   OUT CHANNEL=12B,000,004, ABT 60  *DISABLE SEEK FWD LINE               DTC
   DELAY 150 MSEC                                                        DTC
/ CHECK ERROR IN FAULT STATUS                                            DTC
   OUT CHANNEL=11B,000,210, ABT 60                                       DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 40 EQ 0) ERROR 07/44, GOTO 60                           DTC
/ CHECK ERROR IN CONTROL STATUS                                          DTC
   OUT CHANNEL=11B,000,211, ABT 60                                       DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 40 EQ 0) ERROR 10/45, GOTO 60                           DTC
* CREATE RETURN-TO-ZERO SEEK TO CLEAR FAULT FF                           DTC
   OUT CHANNEL=12B,000,100, ABT 60  *STABILIZE RZS LINE                  DTC
   OUT CHANNEL=12B,010,100, ABT 60  *ENABLE RZS LINE                     DTC
   OUT CHANNEL=12B,000,100, ABT 60  *DISABLE RZS LINE                    DTC
* CREATE PULSE TO CLEAR FAULT                                            DTC
   OUT CHANNEL=11B,000,300, ABT 60  *ENABLE CLEAR FAULT LINE             DTC
   OUT CHANNEL=11B,000,200, ABT 60  *DISABLE CLR FAULT LINE              DTC
/ CHECK ERROR IN FAULT STATUS                                            DTC
   OUT CHANNEL=11B,000,210, ABT 60                                       DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 40 NE 0) ERROR 11/46, GOTO 60                           DTC
/ CHECK ERROR IN CONTROL STATUS                                          DTC
   OUT CHANNEL=11B,000,211, ABT 60                                       DTC
   STATUS CHANNEL, ABT 60                                                DTC
   IF(SB(26) AND 40 NE 0) ERROR 12/47, GOTO 60                           DTC
   GOTO 64                   *EXIT                                       DTCPTR2
*                                                                        DTCPTR2
/         PROCESS ERRORS                                                 DTCPTR2
*                                                                        DTCPTR2
60 B7 = B7+1                 *INCREMENT ERROR COUNT                      DTCPTR2
   IF(ES.AND.SL.NE.0) GOTO 64                                            DTCPTR2
   MSG 2 TO LINE 2           *MODULE NUMBER/TITLE MESSAGE 
   IF(EC.AND.77.NE.25) GOTO 62                                           DTCPTR2
   CALL 98C                                                              DTCPTR2
   GOTO 64                                                               DTCPTR2
62 CALL 19A                                                              DTCPTR2
*                                                                        DTCPTR2
/         PROCESS RM,RC, AND MODULE EXIT                                 DTCPTR2
*                                                                        DTCPTR2
64 IF(ES.AND.CM.EQ.0) GOTO 72                                            DTCPTR2
   B8 = B8+1                 *INCREMENT RM LOOP COUNT                    DTCPTR2
   MSG 3(B7,B8) TO DISPLAY                                               DTCPTR2
   IF(ES.AND.RC.EQ.0) GOTO 66                                            DTCPTR2
   IF(B3.EQ.1) GOTO 22                                                   DTCPTR2
   IF(B3.EQ.2) GOTO 32                                                   DTCPTR2
66 IF(ES.AND.RM.NE.0) GOTO 22                                            DTCPTR2
72 IF(B7.NE.0) MSG 5(B7) TO DAYFILE,PRINT                                DTCPTR2
   MSG 6 TO DISPLAY                                                      DTCPTRS
76 END 20   *END TEST SERIES                                             DTCPTR1
COMPILE                                                                  DTC
   MODULE DTC19A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC19A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE-DISPLAY ERROR INFORMATION CORRESPONDING                DTC
*                 TO THE ERROR CODE IN THE EC REGISTER AND               DTC
*                 THE ERROR MESSAGE CODE IN THE EM REGISTER              DTC
*                                                                        DTC
*         METHOD-WHEN AN ERROR IS DETECTED IN DTC19, A SPECIFIC          DTC
*                ERROR CODE IS PLACED IN THE EC REGISTER                 DTC
*                INDICATIVE OF THE TYPE OF ERROR FOUND.                  DTC
*                DTC19A WILL THEN USE INFORMATION FROM                   DTC
*                EC,EM,EA AND LF REGISTER TO CREATE                      DTC
*                AN ERROR DISPLAY.                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X  DISK DRIVE DIAGNOSTIC                            DTC
2  FORMAT DTC19 - SEEK FAULT TEST                                        DTC
3  FORMAT DTC ERROR CODE=*H*HE                                           DTC
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
/         02003 ERROR MESSAGE.                                           DTC
6  FORMAT SEEK CYLINDER ZERO COMMAND ABORTED                             DTC
/                                                                        DTC
7  FORMAT EOT SEEK FAULT IN CONTROL REG DID NOT OCCUR                    DTC
10 FORMAT SEEK FAULT IN FAULT REG DID NOT OCCUR                          DTC
11 FORMAT EOT SEEK FAULT IN CONTROL REG DID NOT CLEAR                    DTC
12 FORMAT SEEK FAULT IN FAULT REG DID NOT CLEAR                          DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
30 FORMAT CHAN  CHANNEL STATUS(HEXADECIMAL) 
31 FORMAT  00B  *H*H  *H*H  *H*H  *H*H
32 FORMAT  04B  *H*H  *H*H  *H*H  *H*H
33 FORMAT  10B  *H*H  *H*H  *H*H  *H*H
34 FORMAT  14B  *H*H  *H*H  *H*H  *H*H
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   IF(EC GT 3777) GOTO 26    *IF PRODUCT OVERLAY ERROR CODE              DTC
*                                                                        DTC
/         PROCESS MODULE ERROR MESSAGES.                                 DTC
*                                                                        DTC
24 MSG 4(EA,B0,EC) TO LINE 4                                             DTC
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6                                                   DTC
   IF(EC.EQ.44) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.45) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.46) GOTO 25    *CHANNEL ERROR STATUS
   IF(EC.EQ.47) GOTO 25    *CHANNEL ERROR STATUS
   IF(P9 EQ 0) GOTO 25                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
25 MSG 30 TO LINE 10
   MSG 31, 8 WORDS FROM SB(1) TO LINE 11
   MSG 32, 8 WORDS FROM SB(11) TO LINE 12 
   MSG 33, 8 WORDS FROM SB(21) TO LINE 13 
   MSG 34, 8 WORDS FROM SB(31) TO LINE 14 
   GOTO 77                                                               DTC
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR MESSAGES.                        DTC
*                                                                        DTC
26 MSG EM TO LINE 5                                                      DTC
   MSG 5 (LF) TO LINE 6      *DISPLAY FUNCTION CODE                      DTC
   IF(AL LT 4) GOTO 77     *IF ACCESS LEVEL LT 4, EXIT                   DTCPTR1
   IF(P9 EQ 0) GOTO 27                                                   DTC
   EXIT TO 98H                                                           DTC
   GOTO 77                                                               DTC
27 MSG 13 TO LINE 16                                                     DTC
   MSG 14 5 WORDS FROM SB(1) TO LINE 20                                  DTC
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 21             DTC
   MSG 16 5 WORDS FROM SB(13) TO LINE 22                                 DTC
   MSG 17 5 WORDS FROM SB(20) TO LINE 23                                 DTC
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC20,6000, (03,05),LOCK                                       DTC
**                                                                       DTC
*         DTC20 - DESCRIPTION                                            DTC
*                                                                        DTC
*         PURPOSE-                                                       DTC
*         TO TEST THE RESERVE LOGIC IN THE 844-4X DISK                   DTC
*         DRIVE USING THE TWO ACCESSES TO THE DRIVE.                     DTC
*         MANUAL OPERATIONS ARE REQUIRED TO RUN THIS                     DTC
*         TEST.                                                          DTCPTR1
*           NOTE - DTC20 IS A STAND-ALONE TEST. A "R DTC20"              DTCPTR1
*           COMMAND IS NECESSARY TO INITIATE THE TEST.                   DTCPTR1
*                                                                        DTC
*         METHOD-                                                        DTC
*         1. CHECK PARAMETER WORD 8 FOR HAVING ONE OF THE                DTC
*            COPY BITS SET IN THE PARAMETER WORD AND ONLY                DTC
*            ONE OF THE BITS. ISSUE MESSAGES IF ANY OF THE               DTC
*            ERRORS ARE DETECTED                                         DTC
*         2. CHECK PARAMETER WORD 8 FOR HAVING ANY EXTRA                 DTC
*            BITS SET IN THE PARAMETER WORD. ISSUE MESSAGES              DTC
*            IF EXTRA BITS ARE SET.                                      DTC
*         3. REPORT A SUSPECTED PARAMETER ENTRY ERROR IF                 DTC
*            ERRORS WERE DETECTED IN STEPS 1 AND 2.                      DTC
*         4. IF NEITHER OR BOTH OF THE COPY BITS WERE SET                DTC
*            IN PARAMETER WORD 8, LOOP WAITING FOR THE                   DTC
*            OPERATOR TO ENTRY A NEW RUN COMMAND.                        DTC
*         5. EXIT TO THE MODULE CONTAINING THE COPY OF THE               DTC
*            OF THE TEST TO BE RUN.                                      DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY-                                                         DTC
*         OPERATOR INTERVENTION BIT INITIALIZED IN PARAMETER             DTC
*         WORD 5 AND THE COPY BIT INITIALIZED IN PARAMETER               DTC
*        WORD 8. DTC20 IS A STAND-ALONE TEST AND REQUIRES                DTCPTR1
*        AN ACCESS LEVEL OF 10.  IF DTC20 IS RUN WITH AN                 DTCPTR1
*         ACCESS LEVEL OF LESS THAN 10, THE PROD. OVL. WILL DISPLAY      DTC1455
*        A MESSAGE SAYING "ACCESS LEVEL NOT HIGH ENOUGH."                DTCPTR1
*                                                                        DTC
*         EXIT-                                                          DTC
*         EXIT TO MODULE DTC20A IF THE COPY 0 BIT IS SET IN              DTC
*         PARAMETER WORD 8.                                              DTC
*         EXIT TO MODULE DTC20B IF THE COPY 1 BIT IS SET IN              DTC
*         PARAMETER WORD 8.                                              DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*         DTC20A - COPY 0 OF THE TEST.                                   DTC
*         DTC20B - COPY 0 OF THE TEST.                                   DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 REGISTER - MASK FOR UNUSED P8 BITS.                         DTC
*         B1 REGISTER - DISPLAY LINE NUMBER.                             DTC
*         B2 REGISTER - ILLEGAL PARAMETER FLAG.                          DTC
*         B3 REGISTER - NOT USED.                                        DTC
*         B4 REGISTER - NOT USED.                                        DTC
*         B5 REGISTER - NOT USED.                                        DTC
*         B6 REGISTER - NOT USED.                                        DTC
*         B7 REGISTER - NOT USED.                                        DTC
*         B8 REGISTER - NOT USED.                                        DTC
*         B9 REGISTER - NOT USED.                                        DTC
*         B10 REGISTER - NOT USED.                                       DTC
*         B11 REGISTER - NOT USED.                                       DTC
*         B12 REGISTER - NOT USED.                                       DTC
*         B13 REGISTER - CONDITION NUMBER                                DTC
*         B14 REGISTER - ERROR COUNTER.                                  DTC
*         B15 REGISTER - LOOP COUNTER.                                   DTC
*         BA REGISTER - STANDARD USAGE.                                  DTC
*         WC REGISTER - STANDARD USAGE.                                  DTC
*         EA, EC, AND EM REGISTERS - STANDARD USAGE.                     DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         NO BUFFER REQUIREMENTS.                                        DTC
*                                                                        DTC
*         REMARKS-                                                       DTC
*         COPY 0 OF THE TEST MUST BE STARTED BEFORE COPY 1               DTC
*         OF THE TEST.                                                   DTC
*                                                                        DTC
*         KNOWN LIMITATIONS-                                             DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC20 - TEST DUAL ACCESS                                       DTC
2  FORMAT DTC - 844 DISK DRIVE DIAGNOSTIC                                DTC
4  FORMAT SUSPECTED PARAMETER ENTRY ERROR                                DTC
5  FORMAT CHECK P8 - NOT COPY BITS SET                                   DTC
6  FORMAT CHECK P8 - TWO CONFLICTING BITS SET                            DTC
7  FORMAT CHECK P8 - UNUSED BITS ARE SET                                 DTC
10 FORMAT P0 - P4  *OCT *OCT *OCT *OCT *OCT                              DTC
11 FORMAT P5 - P9  *OCT *OCT *OCT *OCT *OCT                              DTC
12 FORMAT PARAMETERS ARE DESCRIBED IN MODULE DTC99A                      DTCPTR1
13 FORMAT DTC20 - PARAMETER ERROR                                        DTC
14 FORMAT PARAMETER REG MUST BE SET AS FOLLOWS                           DTC
15 FORMAT P8=100 IN FIRST COMPUTER SYSTEM                                DTC
16 FORMAT P8=200 IN SECOND COMPUTER SYSTEM                               DTC
17 FORMAT REPEAT MODULE CANNOT BE SET                                    DTC
20 FORMAT ENTER GO TO CONTINUE                                           DTC
41 FORMAT DTC20 REQUIRES 2 COMPUTER SYSTEMS TO TEST DUAL                 DTC
42 FORMAT ACCESS ON THE 844-4X DISK DRIVE.                               DTC
43 FORMAT THE COMMANDS REQUESTED ON THE SYSTEM DISPLAYS                  DTC
44 FORMAT MUST BE PERFORMED MANUALLY BY THE COMPUTER                     DTC
45 FORMAT OPERATOR/OPERATORS IN THE ORDER SPECIFIED                      DTC
46 FORMAT FOR THE TEST TO EXECUTE PROPERLY.                              DTC
   EQUATE CPYS=300 CPY0=100, CPY1=200                                    DTC
   EQUATE MANUAL=20                                                      DTC
*                                                                        DTC
/        MODULE INITIALIZATION                                           DTC
*                                                                        DTC
21 MSG 14 TO LINE 20                                                     DTC
   MSG 15 TO LINE 21                                                     DTC
   MSG 16 TO LINE 22                                                     DTC
   MSG 17 TO LINE 23                                                     DTC
   IF(P5 AND MANUAL EQ 20) GOTO 23                                       DTC
   MSG 41 TO LINE 10                                                     DTC
   MSG 42 TO LINE 11                                                     DTC
   MSG 43 TO LINE 12                                                     DTC
   MSG 44 TO LINE 13                                                     DTC
   MSG 45 TO LINE 14                                                     DTC
   MSG 46 TO LINE 15                                                     DTC
23 MSG 20 TO LINE 25                                                     DTC
   PAUSE                                                                 DTC
   BLANK                                                                 DTC
   IF(ES AND RM NE 0) EXIT                                               DTC
22 MSG 1 TO PRINT,DAYFILE  *MODULE TITLE MESSAGE                         DTC
   MSG 1 TO DISPLAY                                                      DTC
   B0=73                                                                 DTC
   B1=40                                                                 DTC
   B2=0                      *FLAG FOR ILLEGAL PARAMETER                 DTC
   B4=14                     *STARTING LINE NUMBER                       DTC
   IF(P8 AND CPYS NE 0) GOTO 24  *IF NOT COPY BITS SET                   DTC
   MSG 5 TO LINE B4          *P8 PARAMETER ERROR MESSAGE                 DTC
   B4=B4+1                   *INCREMENT LINE NUMBER                      DTC
   B2=1                      *SET ILLEGAL PARAMETER FLAG                 DTC
24 IF(P8 AND CPYS NE CPYS) GOTO 26  *IF NOT TWO BITS SET                 DTC
   MSG 6 TO LINE B4          *P8 PARAMETER ERROR MESSAGE                 DTC
   B4=B4+1                   *INCREMENT LINE NUMBER                      DTC
   B2=1                      *SET ILLEGAL PARAMETER FLAG                 DTC
26 B6=CPYS XOR 7777          *BUILD MASK FOR EXTRA BITS                  DTC
   IF(P8 AND B6 EQ 0) GOTO 30  *IF NO EXTRA BIT IN P8                    DTC
   MSG 7 TO LINE B4          *EXTRA BITS IN P8 MESSAGE                   DTC
   B4=B4+1                   *INCREMENT LINE NUMBER                      DTC
30 IF(B4 EQ 14) GOTO 34      *IF P8 PARAMETER WORD OK                    DTC
   MSG 2 TO LINE 1           *TITLE LINE                                 DTC
   MSG 1 TO LINE 2           *MODULE NUMBER AND NAME                     DTC
   MSG 10 (P0,P1,P2,P3,P4) TO LINE 7  *DISPLAY PARAMETERS                DTC
   MSG 11 (P5,P6,P7,P8,P9) TO LINE 10  *DISPLAY PARAMETERS               DTC
   MSG 4 TO LINE 12          *ERROR MESSAGE                              DTC
   MSG 12 TO LINE B4         *DIRECTIONS TO CE                           DTC
32 MSG 13 TO DISPLAY         *DISPLAY MESSAGE                            DTC
   PAUSE                     *WAIT FOR GO                                DTC
   IF(B2 NE 0) GOTO 22       *LOOP IF ILLEGAL PARAMETER                  DTC
34 IF(P8 EQ CPY0) EXIT TO 20A  *EXIT TO COPY 0                           DTC
   IF(P8 EQ CPY1) EXIT TO 20B  *EXIT TO COPY 1                           DTC
   END 21                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC20A,6000, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC20A - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE-                                                       DTC
*         TO TEST ONE ACCESS TO THE 844-4X DISK DRIVE                    DTC
*         WHILE ANOTHER COPY (COPY 1) USES THE OTHER                     DTC
*         ACCESS TO THE DRIVE.                                           DTC
*                                                                        DTC
*         METHOD-                                                        DTC
*         1. CONNECT THE THE 7155 CONTROLLER AND THEN TO                 DTC
*            THE 844-4X DISK DRIVE.                                      DTC
*         2. CHECK THE GENERAL STATUS TO VERIFY THAT THE                 DTC
*            844-4X DISK DRIVE IS SELECTED.                              DTC
*         3. INFORM OPERATOR TO START COPY 1 ON THE TEST.                DTC
*         4. AFTER RECEIVING A GO, RELEASE THE 844-4X DISK               DTC
*            DRIVE.                                                      DTC
*         5. INFORM OPERATOR TO START COPY 1 ON THE TEST.                DTC
*         6. AFTER RECEIVING A GO, VERIFY THAT THE 844-4X                DTC
*            DISKE DRIVE IS RESERVED BY THE OTHER ACCESS.                DTC
*         7. INFORM OPERATOR TO START COPY 1 ON THE TEST.                DTC
*         8. AFTER RECEIVING A GO, CONNECT TO THE 844-4X                 DTC
*            DISKE DRIVE. CHECK THE GENERAL STATUS TO                    DTC
*            VERIFY THAT THE DRIVE IS SELECTED.                          DTC
*         9. RELEASE THE 844-4X DISK DRIVE AND EXIT THE                  DTC
*            MODULE.                                                     DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY-                                                         DTC
*         SB(72) CONTAINS THE 844-4X DISK DRIVE NUMBER.                  DTC
*                                                                        DTC
*         EXIT-                                                          DTC
*         NO EXIT REQUIREMENTS.                                          DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*         FMD20C - PROCESS AND REPORT ERRORS.                            DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 REGISTER - CONTROLLER CONNECT RETRY COUNTER.                DTC
*         B1 REGISTER - NOT USED.                                        DTC
*         B2 REGISTER - EXPECTED GENERAL STATUS.                         DTC
*         B3 REGISTER - NOT USED.                                        DTC
*         B4 REGISTER - NOT USED.                                        DTC
*         B5 REGISTER - NOT USED.                                        DTC
*         B6 REGISTER - NOT USED.                                        DTC
*         B7 REGISTER - NOT USED.                                        DTC
*         B8 REGISTER - NOT USED.                                        DTC
*         B9 REGISTER - NOT USED.                                        DTC
*         B10 REGISTER - NOT USED.                                       DTC
*         B11 REGISTER - NOT USED.                                       DTC
*         B12 REGISTER - NOT USED.                                       DTC
*         B13 REGISTER - CONDITION NUMBER                                DTC
*         B14 REGISTER - ERROR COUNTER.                                  DTC
*         B15 REGISTER - LOOP COUNTER.                                   DTC
*         BA REGISTER - STANDARD USAGE.                                  DTC
*         WC REGISTER - STANDARD USAGE.                                  DTC
*         EA, EC, AND EM REGISTERS - STANDARD USAGE.                     DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB(0) CONTIANS ACTUAL GENERAL STATUS.                          DTC
*                                                                        DTC
*         REMARKS-                                                       DTC
*         COPY 0 OF THE TEST MUST BE STARTED BEFORE COPY 1               DTC
*         OF THE TEST.                                                   DTC
*                                                                        DTC
*         KNOWN LIMITATIONS-                                             DTC
*                                                                        DTC
*         DTC20A ERROR CODES - 3C027 - SEEK FAULT BIT CLEAR              DTC
*                              3C028 - INVALID SEEK BIT CLEAR            DTC
*                              3C029 - SEEK FAULT BIT SET                DTC
*                              3C02A - INVALID SEEK BIT SET              DTC
*                              3C02B - INVALID SEEK BIT SET              DTC
*                                                                        DTC
1  FORMAT DTC20 - TEST DUAL ACCESS                                       DTC
2  FORMAT DTC20A- EC = *DECD, LC = *DECD                                 DTC
3  FORMAT DTC20A- *DECD ERRORS                                           DTC
4  FORMAT DTC - 844 -4X DISK DRIVE DIAGNOSTIC                            DTC
6  FORMAT MANUAL OPERATION STOP                                          DTC
7  FORMAT START COPY 1 OF THE DTC CONNECT TEST(DTC20)                    DTC
10 FORMAT DTC20 - START COPY 1                                           DTC
12 FORMAT THE FMD CONTROLLER AND DRIVE HAVE BEEN RESERVED                DTC
13 FORMAT BY COPY 0                                                      DTC
14 FORMAT THE FMD CONTROLLER AND DRIVE HAVE BEEN RELEASED                DTC
15 FORMAT BY COPY 0                                                      DTC
16 FORMAT COPY 0 HAS DETECTED THAT THE FMD CONTROLLER AND                DTC
17 FORMAT DRIVE HAVE BEEN RESERVED BY COPY 1                             DTC
*                                                                        DTC
/         EQUATES FOR THE MODULE.                                        DTC
*                                                                        DTC
   EQUATE CNDV=0, CRSVD=2000, OPCOM=10                                   DTC
   EQUATE RELD=20,CGS=12                                                 DTC
*                                                                        DTC
/         INITIALIZE REGISTER FOR MODULE                                 DTC
*                                                                        DTC
20 MSG 1 TO DISPLAY,DAYFILE                                              DTC
/         SELECT AND RESERVE THE 844 DRIVE                               DTCPTR1
22 B13=0                     *CONDITION NUMBER 0                         DTC
   GOSUB 62                  *CONNECT TO FMD CONTROLLER                  DTC
   GOSUB 66                  *CONNECT TO FIXED MODULE DRIVE              DTC
   B2=0                      *EXPECTED GENERAL STATUS                    DTC
   IF(IB(0) NE B2) ERROR 11/50, GOTO 72   *DRIVE NOT RESVD               DTC
   IF(IB(0) NE B2) ERROR 11/50, GOTO 72                                  DTCPTR1
24 GOSUB 74                  *REPEAT CONDITION CHECK                     DTC
   GOSUB 60                  *START COPY 1                               DTC
/         RELEASE THE 844 DRIVE                                          DTCPTR1
26 B13=1                     *CONDITION NUMBER 1                         DTC
   GOSUB 62                  *CONNECT TO FMD CONTROLLER                  DTC
   GOSUB 70                  *RELEASE FIXED MODULE DRIVE                 DTC
30 GOSUB 74                  *REPEAT CONDITION CHECK                     DTC
   GOSUB 60                  *START COPY 1                               DTC
/         TEST FOR 844 DRIVE RESERVED BY COPY 1                          DTCPTR1
32 B13=2                     *CONDITION NUMBER 2                         DTC
   GOSUB 62                  *CONNECT TO FMD CONTROLLER                  DTC
   GOSUB 66                  *CONNECT TO FIXED MODULE DRIVE              DTC
   B2=0010                   *EXPECTED GENERAL STATUS                    DTC
   IF(IB(0) NE B2) ERROR 10/51, GOTO 72  *IF DRIVE UNRESVD               DTCPTR1
34 GOSUB 74                  *REPEAT CONDITION CHECK                     DTC
   GOSUB 60                                                              DTC
/         ATTEMPT TO RESERVE THE 844 DRIVE AGAIN                         DTCPTR1
36 B13=3                     *CONDITION NUMBER 3                         DTC
   GOSUB 62                  *CONNECT TO FMD CONTROLLER                  DTC
   GOSUB 66                  *CONNECT TO FIXED MODULE DRIVE              DTC
   B2=0                      *EXPECTED GENERAL STATUS                    DTC
   IF(IB(0) NE 0) ERROR 11/52, GOTO 72  *IF NOT SELECTED                 DTCPTR1
40 GOSUB 74                  *REPEAT CONDITION CHECK                     DTC
/         RELEASE THE 7155 CONTROLLER AND 844 DRIVE                      DTCPTR1
   RES                                                                   DTC
   FUNC, OPCOM             *RELEASE FMD CHANNEL                          DTC
   IF(ES AND RM NE 0) GOTO 20  *IF REPEAT MODULE SELECTED                DTC
   IF(B7 NE 0) MSG 3 TO DAYFILE  *IF ERRORS DETECTED                     DTC
   EXIT                      *EXIT THE MODULE                            DTC
*                                                                        DTC
/         INFORM OPERATOR TO GIVE COPY 1 A GO COMMAND.                   DTC
*                                                                        DTC
60 MSG 4 TO LINE 1           *TITLE LINE                                 DTC
   MSG 1 TO LINE 2           *MODULE NUMBER AND NAME                     DTC
   MSG 6 TO LINE 12          *MANUAL OPERATION STOP                      DTC
   IF(B13 EQ 0) MSG 12 TO LINE 14                                        DTC
   IF(B13 EQ 0) MSG 13 TO LINE 15                                        DTC
   IF(B13 EQ 1) MSG 14 TO LINE 14                                        DTC
   IF(B13 EQ 1) MSG 15 TO LINE 15                                        DTC
   IF(B13 EQ 2) MSG 16 TO LINE 14                                        DTC
   IF(B13 EQ 2) MSG 17 TO LINE 15                                        DTC
   IF(B13 EQ 3) MSG 12 TO LINE 14                                        DTC
   IF(B13 EQ 3) MSG 13 TO LINE 15                                        DTC
   MSG 7 TO LINE 17                                                      DTC
   MSG 10 TO DISPLAY         *DISPLAY MESSAGE                            DTC
   PAUSE                     *WAIT FOR GO                                DTC
   BLANK                     *CLEAR DISPLAY BUFFER                       DTC
   RETURN                    *EXIT THE SUBROUTINE                        DTC
*                                                                        DTC
/         CONNECT TO FIXED MODULE CONTROLLER.                            DTC
*                                                                        DTC
62 BA=0                                                                  DTC
   WC=1                                                                  DTC
   B3=0                                                                  DTC
   B2=0                      *EXPECTED GENERAL STATUS                    DTC
64 RES   *RESERVE 7155 CHANNEL                                           DTC
   FIN CGS, ABT 72                                                       DTC
   IF(IB(0) AND CRSVD EQ 0) RETURN  *EXIT IF 7155 CONNECTED              DTC
   GOTO 64 WHILE (B3+1 NE 1000)  *RETRY 1000 TIMES                       DTC
   ERROR 07/53, GOTO 72      *CONTROLLER CONNECT ERROR                   DTC
*                                                                        DTC
/         CONNECT TO 844-4X DRIVE.                                       DTC
*                                                                        DTC
66 OB=SB(72)                                                             DTC
   WC=1                                                                  DTC
   FOUT,CNDV, ABT 72                                                     DTC
   FIN CGS, ABT 72                                                       DTC
   RETURN          *EXIT THE SUBROUTINE                                  DTC
*                                                                        DTC
/         RELEASE THE 844 DRIVE                                          DTCPTR1
*                                                                        DTC
70 WC=1                                                                  DTC
   FUNC,RELD, ABT 72                                                     DTC
   FIN CGS, ABT 72                                                       DTC
   IF(IB(0) EQ 0) RETURN                                                 DTC
   ERROR 12/54, GOTO 72      *EXIT THE SUBROUTINE                        DTC
*                                                                        DTC
/         REPORT ERRORS DETECTED.                                        DTC
*                                                                        DTC
72 B7=B7+1                      *INCREMENT ERROR COUNTER                 DTC
   IF(ES AND SL EQ 0) CALL 20C  *REPORT ERROR IF NOT SCOPING             DTC
   IF(B13 EQ 0) ENDSUB GOTO 24  *IF CONDITION ZERO                       DTC
   IF(B13 EQ 1) ENDSUB GOTO 30  *IF CONDITION ONE                        DTC
   IF(B13 EQ 2) ENDSUB GOTO 34  *IF CONDITION TWO                        DTC
   ENDSUB GOTO 40               *IF CONDITION THREE                      DTC
*                                                                        DTC
/         PROCESS REPEAT CONDITION.                                      DTC
*                                                                        DTC
74 IF(ES AND RC EQ 0) GOTO 76   *IF NO REPEAT CONDITION                  DTC
   B8=B8+1                      *INCREMENT LOOP COUNT BY ONE             DTC
   MSG 3 (B7,B8) TO DISPLAY     *DISPLAY RC MESSAGE                      DTC
   IF(B13 EQ 0) ENDSUB GOTO 22  *IF CONDITION ZERO                       DTC
   IF(B13 EQ 1) ENDSUB GOTO 26  *IF CONDITION ONE                        DTC
   IF(B13 EQ 2) ENDSUB GOTO 32  *IF CONDITION TWO                        DTC
   ENDSUB GOTO 36               *IF CONDITION THREE                      DTC
76 MSG 1 TO DISPLAY             *DISPLAY RUNNING MESSAGE                 DTC
   RETURN                       *EXIT THE SUBROUTINE                     DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC20B,6000, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC20B - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE-                                                       DTC
*         TO TEST ONE ACCESS TO THE 844-4X DISK DRIVE                    DTC
*         WHILE ANOTHER COPY (COPY 0) USES THE OTHER                     DTC
*         ACCESS TO THE DRIVE.                                           DTC
*                                                                        DTC
*         METHOD-                                                        DTC
*         1. CONNECT THE THE 7155 CONTROLLER AND THEN TO                 DTC
*            THE 844-4X DISK DRIVE.                                      DTC
*         2. VERIFY THAT THE FIXED MODULE DRIVE IS RESERVED              DTC
*            BY THE OTHER ACCESS.                                        DTC
*         3. INFORM OPERATOR TO START COPY 0 ON THE TEST.                DTC
*         4. AFTER RECEIVING A GO, CONNECT TO THE 844-4X                 DTC
*            DISK DRIVE. CHECK THE GENERAL STATUS TO                     DTC
*            VERIFY THAT THE DRIVE IS SELECTED.                          DTC
*         5. RELEASE THE 844-4X DISK DRIVE AND EXIT THE                  DTC
*            MODULE. INFORM THE OPERATOR TO START COPY 0                 DTC
*            OF THE TEST.                                                DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY-                                                         DTC
*         SB(72) CONTAINS THE 844-4X DISK DRIVE NUMBER.                  DTC
*                                                                        DTC
*         EXIT-                                                          DTC
*         NO EXIT REQUIREMENTS.                                          DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*         DTC20D - PROCESS AND REPORT ERRORS                             DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 REGISTER - CONTROLLER CONNECT RETRY COUNTER.                DTC
*         B1 REGISTER - NOT USED.                                        DTC
*         B2 REGISTER - EXPECTED GENERAL STATUS.                         DTC
*         B3 REGISTER - NOT USED.                                        DTC
*         B4 REGISTER - NOT USED.                                        DTC
*         B5 REGISTER - NOT USED.                                        DTC
*         B6 REGISTER - NOT USED.                                        DTC
*         B7 REGISTER - NOT USED.                                        DTC
*         B8 REGISTER - NOT USED.                                        DTC
*         B9 REGISTER - NOT USED.                                        DTC
*         B10 REGISTER - NOT USED.                                       DTC
*         B11 REGISTER - NOT USED.                                       DTC
*         B12 REGISTER - NOT USED.                                       DTC
*         B13 REGISTER - CONDITION NUMBER                                DTC
*         B14 REGISTER - ERROR COUNTER.                                  DTC
*         B15 REGISTER - LOOP COUNTER.                                   DTC
*         BA REGISTER - STANDARD USAGE.                                  DTC
*         WC REGISTER - STANDARD USAGE.                                  DTC
*         EA, EC, AND EM REGISTERS - STANDARD USAGE.                     DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB(0) CONTIANS ACTUAL GENERAL STATUS.                          DTC
*                                                                        DTC
*         REMARKS-                                                       DTC
*         COPY 0 OF THE TEST MUST BE STARTED BEFORE COPY 1               DTC
*         OF THE TEST.                                                   DTC
*                                                                        DTC
*         KNOWN LIMITATIONS-                                             DTC
*                                                                        DTC
*                                                                        DTC
*         DTC20B ERROR CODES - 3D02C - SEEK FAULT BIT CLEAR              DTC
*                              3D02D - INVALID SEEK BIT CLEAR            DTC
*                              3D02E - SEEK FAULT BIT SET                DTC
*                              3D02F - INVALID SEEK BIT SET              DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC20 - TEST DUAL ACCESS                                       DTC
2  FORMAT DTC20B- EC = *DECD, LC = *DECD                                 DTC
3  FORMAT DTC20B- *DECD ERRORS                                           DTC
4  FORMAT DTC - 844 DISK DRIVE DIAGNOSTIC                                DTC
6  FORMAT MANUAL OPERATION STOP                                          DTC
7  FORMAT START COPY OF THE DTC CONNECT TEST(DTC20)                      DTC
10 FORMAT DTC20 - START COPY 0                                           DTC
11 FORMAT START COPY 0 AND 1 OF THE DTC CONNECT TEST (DTC20)             DTC
12 FORMAT DTC20 - START COPIES 0 AND 1                                   DTC
5  FORMAT THE FMD CONTROLLER AND DRIVE HAVE BEEN RESERVED                DTC
13 FORMAT BY COPY 1                                                      DTC
14 FORMAT THE FMD CONTROLLER AND DRIVE HAVE BEEN RELEASED                DTC
15 FORMAT BY COPY 1                                                      DTC
16 FORMAT COPY 1 HAS DETECTED THAT THE FMD CONTROLLER AND                DTC
17 FORMAT DRIVE HAVE BEEN RESERVED BY COPY 0                             DTC
*                                                                        DTC
/         EQUATES FOR THE MODULE.                                        DTC
*                                                                        DTC
   EQUATE CNDV=0, CRSVD=2000, OPCOM=10,                                  DTC
   EQUATE RELD=20,CGS=12                                                 DTC
*                                                                        DTC
/         INITIALIZE REGISTER FOR MODULE                                 DTC
*                                                                        DTC
20 MSG 1 TO DISPLAY,DAYFILE                                              DTC
/         TEST FOR FMD RESERVED BY COPY 0.                               DTC
22 B13=0                     *CONDITION NUMBER 0                         DTC
   GOSUB 62                  *CONNECT TO FMD CONTROLLER                  DTC
   GOSUB 66                  *CONNECT TO FIXED MODULE DRIVE              DTC
   B2=0010                   *EXPECTED GENERAL STATUS                    DTC
   IF(IB(0) NE B2) ERROR 10/53, GOTO 72  *DRIVE NOT RESVD                DTCPTR1
24 GOSUB 74                  *REPEAT CONDITION CHECK                     DTC
   GOSUB 60                  *START COPY 0                               DTC
/         ATTEMPT TO RESERVE THE 844 DRIVE                               DTCPTR1
26 B13=1                     *CONDITION NUMBER 1                         DTC
   GOSUB 62                  *CONNECT TO FMD CONTROLLER                  DTC
   GOSUB 66                  *CONNECT TO FIXED MODULE DRIVE              DTC
   B2=0                      *EXPECTED GENERAL STATUS                    DTC
   IF(IB(0) NE B2) ERROR 11/54, GOTO 72  *IF DRIVE UNSELCT               DTCPTR1
30 GOSUB 74                  *REPEAT CONDITION CHECK                     DTC
   GOSUB 60                  *START COPY 0                               DTC
/         RELEASE THE 844 DRIVE                                          DTCPTR1
32 B13=2                     *CONDITION NUMBER 2                         DTC
   GOSUB 62                  *CONNECT TO FMD CONTROLLER                  DTC
   GOSUB 70                  *RELEASE FIXED MODULE DRIVE                 DTC
34 GOSUB 74                  *REPEAT CONDITION CHECK                     DTC
   GOSUB 60                                                              DTC
/         RELEASE THE 7155 CONTROLLER.                                   DTC
35 RES     *RELEASE FMD CHANNEL                                          DTC
   FUNC, OPCOM                                                           DTC
   REL                                                                   DTC
   IF(ES AND RM NE 0) GOTO 20  *IF REPEAT MODULE SELECTED                DTC
   IF(B7 NE 0) MSG 3 TO DAYFILE  *IF ERRORS DETECTED                     DTC
   EXIT                      *EXIT THE MODULE                            DTC
*                                                                        DTC
/         INFORM OPERATOR TO GIVE COPY 0 A GO COMMAND.                   DTC
*                                                                        DTC
60 MSG 4 TO LINE 1           *TITLE LINE                                 DTC
   MSG 1 TO LINE 2           *MODULE NUMBER AND NAME                     DTC
   MSG 6 TO LINE 12          *MANUAL OPERATION STOP                      DTC
   IF(B13 EQ 0) MSG 16 TO LINE 14                                        DTC
   IF(B13 EQ 0) MSG 17 TO LINE 15                                        DTC
   IF(B13 EQ 1) MSG 5 TO LINE 14                                         DTC
   IF(B13 EQ 1) MSG 13 TO LINE 15                                        DTC
   IF(B13 EQ 2) MSG 14 TO LINE 14                                        DTC
   IF(B13 EQ 2) MSG 15 TO LINE 15                                        DTC
   IF(B13 EQ 2) MSG 7 TO LINE 17                                         DTC
   MSG 7 TO LINE 17                                                      DTC
   MSG 10 TO DISPLAY         *DISPLAY MESSAGE                            DTC
   PAUSE                     *WAIT FOR GO                                DTC
   BLANK                     *CLEAR DISPLAY BUFFER                       DTC
   RETURN                    *EXIT THE SUBROUTINE                        DTC
*                                                                        DTC
/         CONNECT TO FIXED MODULE CONTROLLER.                            DTC
*                                                                        DTC
62 BA=0                                                                  DTC
   WC=1                                                                  DTC
   B3=0                                                                  DTC
   B2=0                      *EXPECTED GENERAL STATUS                    DTC
64 RES    *RESERVE 7155 CHANNEL                                          DTC
   FIN CGS, ABT 72                                                       DTC
   IF(IB(0) AND CRSVD EQ 0) RETURN  *EXIT IF 7155 CONNECTED              DTC
   GOTO 64 WHILE (B3+1 NE 1000)  *RETRY 1000 TIMES                       DTC
   ERROR 07/57, GOTO 72      *CONTROLLER CONNECT ERROR                   DTC
*                                                                        DTC
/         CONNECT TO THE 844 DRIVE                                       DTCPTR1
*                                                                        DTC
66 OB=SB(72)                                                             DTC
   WC=1                                                                  DTC
   FOUT CNDV, ABT 72                                                     DTC
   FIN CGS, ABT 72                                                       DTC
   RETURN          *EXIT THE SUBROUTINE                                  DTC
*                                                                        DTC
/         RELEASE THE 844 DRIVE                                          DTCPTR1
*                                                                        DTC
70 WC=1                                                                  DTC
   FUNC RELD, ABT 72                                                     DTC
   FIN CGS, ABT 72                                                       DTC
   IF(IB(0) EQ 0) RETURN                                                 DTC
   ERROR 12/60, GOTO 72      *EXIT THE SUBROUTINE                        DTC
   ERROR 12/54, GOTO 72                                                  DTC
   RETURN                     *EXIT THE SUBROUTINE                       DTC
*                                                                        DTC
/         REPORT ERRORS DETECTED.                                        DTC
*                                                                        DTC
72 B7=B7+1                      *INCREMENT ERROR COUNTER                 DTC
   IF(ES AND SL EQ 0) CALL 20D  *REPORT ERROR IF NOT SCOPING             DTC
   IF(B13 EQ 0) ENDSUB GOTO 24  *IF CONDITION ZERO                       DTC
   IF(B13 EQ 1) ENDSUB GOTO 30  *IF CONDITION ONE                        DTC
   ENDSUB GOTO 34               *IF CONDITION TWO                        DTC
*                                                                        DTC
/         PROCESS REPEAT CONDITION.                                      DTC
*                                                                        DTC
74 IF(ES AND RC EQ 0) GOTO 76   *IF NO REPEAT CONDITION                  DTC
   B8=B8+1                      *INCREMENT LOOP COUNT BY ONE             DTC
   MSG 3 (B7,B8) TO DISPLAY     *DISPLAY RC MESSAGE                      DTC
   IF(B13 EQ 0) ENDSUB GOTO 22  *IF CONDITION ZERO                       DTC
   IF(B13 EQ 1) ENDSUB GOTO 26  *IF CONDITION ONE                        DTC
   ENDSUB GOTO 32               *IF CONDITION TWO                        DTC
76 MSG 1 TO DISPLAY             *DISPLAY RUNNING MESSAGE                 DTC
   RETURN                       *EXIT THE SUBROUTINE                     DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC20C,6000, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC20C - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE-                                                       DTC
*         PROCESS AND REPORT ERRORS DETECTED BY COPY 0                   DTC
*         (MODULE DTC20A) OF THE TEST.                                   DTC
*                                                                        DTC
*         METHOD-                                                        DTC
*         BUILD THE ERROR DISPLAY TO REPORT PRODUCT OVERLAY              DTC
*         ERRORS OR MODULE DETECTED ERRORS.                              DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY-                                                         DTC
*         EA, EC, AND EM REGISTERS CONTAIN THE ERROR                     DTC
*         ADDRESS, ERROR CODE, AND ERROR MESSAGE NUMBER FOR              DTC
*         THE ERROR TO BE REPORTED.                                      DTC
*         IB(0) CONTAINS THE ACTUAL GENERAL STATUS WORD.                 DTC
*         B2 CONTAINS THE EXPECTED GENERAL STATUS WORD.                  DTC
*                                                                        DTC
*         EXIT-                                                          DTC
*         NO EXIT REQUIREMENTS.                                          DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*         NONE                                                           DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 REGISTER - STATUS DIFFERENCE REGISTER.                      DTC
*         B1 REGISTER - NOT USED.                                        DTC
*         B2 REGISTER - EXPECTED GENERAL STATUS.                         DTC
*         B3 REGISTER - NOT USED.                                        DTC
*         B4 REGISTER - NOT USED.                                        DTC
*         B5 REGISTER - NOT USED.                                        DTC
*         B6 REGISTER - NOT USED.                                        DTC
*         B7 REGISTER - NOT USED.                                        DTC
*         B8 REGISTER - NOT USED.                                        DTC
*         B9 REGISTER - NOT USED.                                        DTC
*         B10 REGISTER - NOT USED.                                       DTC
*         B11 REGISTER - NOT USED.                                       DTC
*         B12 REGISTER - NOT USED.                                       DTC
*         B13 REGISTER - CONDITION NUMBER                                DTC
*         B14 REGISTER - ERROR COUNTER.                                  DTC
*         B15 REGISTER - LOOP COUNTER.                                   DTC
*         BA REGISTER - STANDARD USAGE.                                  DTC
*         WC REGISTER - STANDARD USAGE.                                  DTC
*         EA, EC, AND EM REGISTERS - STANDARD USAGE.                     DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB(0) CONTIANS ACTUAL GENERAL STATUS.                          DTC
*                                                                        DTC
*         REMARKS-                                                       DTC
*                                                                        DTC
*         KNOWN LIMITATIONS-                                             DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC20 - TEST DUAL ACCESS                                       DTC
4  FORMAT DTC ERROR CODE=*OCTB                                           DTC
5  FORMAT FAILURE ON LINE *OCTB- ERROR CODE 0D*HE                        DTC
6  FORMAT STATUS ERROR W0000  E*OCT  A*OCT  D*OCT                        DTC
7  FORMAT COPY 0 UNABLE TO RESERVE THE FMD CONTROLLER                    DTC
10 FORMAT COPY 0 UNABLE TO DETECT DRIVE RESERVED BY COPY 1               DTC
11 FORMAT COPY 0 UNABLE TO RESERVE THE 844 DRIVE                         DTC
12 FORMAT COPY 0 UNABLE TO RELEASE THE 844 DRIVE                         DTC
13 FORMAT WAS RELEASED BY COPY 1                                         DTC
/                                                                        DTC
30 MSG 1 TO LINE 1           *TITLE LINE                                 DTC
   MSG 2 TO LINE 2           *MODULE NUMBER AND NAME                     DTC
   IF (EC LE 3777) GOTO 32                                               DTC1455
/         PROCESS PRODUCT OVERLAY ERRORS.                                DTC1455
   MSG 4 (EA,EC) TO LINE 5   *DISPLAY ERROR LINE AND CODE                DTC
   MSG EM TO LINE 12           *DISPLAY ERROR MESSAGE                    DTC
   GOTO 34                    *GO TO STOP ON ERROR                       DTC
/         PROCESS MODULE ERRORS.                                         DTC
32 MSG 5 (EC) TO LINE 5   *DISPLAY ERROR LINE AND CODE                   DTC
   B3=IB(0) XOR B2           *BUILD DIFFERENCE IN STATUSES               DTC
   MSG 6 (B2,IB,B0) TO LINE 6  *DISPLAY GENERAL STATUS                   DTC
   MSG EM TO LINE 12          *DISPLAY ERROR MESSAGE                     DTC
   IF(EM NE 12) GOTO 34      *IF NOT TWO LINE ERROR MESSAGE              DTC
   MSG 13 TO LINE 13         *DISPLAY SECOND LINE OF MESSAGE             DTC
/                                                                        DTC
34 PICTURE                   *SAVE ERROR DISPLAY                         DTC
   HALT                      *STOP ON ERROR                              DTC
   BLANK                     *CLEAR DISPLAY BUFFER                       DTC
   EXIT                      *EXIT THE MODULE                            DTC
   END 30                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC20D,6000, (03,05),LOCK                                      DTC
**                                                                       DTC
*         DTC20D - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE-                                                       DTC
*         PROCESS AND REPORT ERRORS DETECTED BY COPY 1                   DTC
*         (MODULE DTC20B) OF THE TEST.                                   DTC
*                                                                        DTC
*         METHOD-                                                        DTC
*         BUILD THE ERROR DISPLAY TO REPORT PRODUCT OVERLAY              DTC
*         ERRORS OR MODULE DETECTED ERRORS.                              DTC
*                                                                        DTC
*         ENTRY-                                                         DTC
*         EA, EC, AND EM REGISTERS CONTAIN THE ERROR                     DTC
*         ADDRESS, ERROR CODE, AND ERROR MESSAGE NUMBER FOR              DTC
*         THE ERROR TO BE REPORTED.                                      DTC
*         IB(0) CONTAINS THE ACTUAL GENERAL STATUS WORD.                 DTC
*         B2 CONTAINS THE EXPECTED GENERAL STATUS WORD.                  DTC
*                                                                        DTC
/                                                                        DTC
*         EXIT-                                                          DTC
*         NO EXIT REQUIREMENTS.                                          DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-                                         DTC
*         NONE                                                           DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 REGISTER - STATUS DIFFERENCE REGISTER.                      DTC
*         B1 REGISTER - NOT USED.                                        DTC
*         B2 REGISTER - EXPECTED GENERAL STATUS.                         DTC
*         B3 REGISTER - NOT USED.                                        DTC
*         B4 REGISTER - NOT USED.                                        DTC
*         B5 REGISTER - NOT USED.                                        DTC
*         B6 REGISTER - NOT USED.                                        DTC
*         B7 REGISTER - NOT USED.                                        DTC
*         B8 REGISTER - NOT USED.                                        DTC
*         B9 REGISTER - NOT USED.                                        DTC
*         B10 REGISTER - NOT USED.                                       DTC
*         B11 REGISTER - NOT USED.                                       DTC
*         B12 REGISTER - NOT USED.                                       DTC
*         B13 REGISTER - CONDITION NUMBER                                DTC
*         B14 REGISTER - ERROR COUNTER.                                  DTC
*         B15 REGISTER - LOOP COUNTER.                                   DTC
*         BA REGISTER - STANDARD USAGE.                                  DTC
*         WC REGISTER - STANDARD USAGE.                                  DTC
*         EA, EC, AND EM REGISTERS - STANDARD USAGE.                     DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         IB(0) CONTIANS ACTUAL GENERAL STATUS.                          DTC
*                                                                        DTC
*         REMARKS-                                                       DTC
*                                                                        DTC
*         KNOWN LIMITATIONS-                                             DTC
*                                                                        DTC
1  FORMAT DTC - FIXED MODULE DRIVE DIAGNOSTIC                            DTC
2  FORMAT DTC20 - TEST DUAL ACCESS                                       DTC
4  FORMAT FAILURE ON LINE *OCTB- ERROR CODE *OCTB                        DTC
5  FORMAT FAILURE ON LINE *OCTB- ERROR CODE 0D*HE                        DTC
6  FORMAT STATUS ERROR W0000  E*OCT  A*OCT  D*OCT                        DTC
7  FORMAT COPY 1 UNABLE TO RESERVE THE FMD CONTROLLER                    DTC
10 FORMAT COPY 1 UNABLE TO DETECT DRIVE RESERVED BY COPY 0               DTC
11 FORMAT COPY 1 UNABLE TO RESERVE THE 844 DRIVE                         DTC
13 FORMAT COPY 1 UNABLE TO RELEASE THE 844 DRIVE                         DTC
12 FORMAT WAS RELEASED BY COPY 0                                         DTC
/                                                                        DTC
30 MSG 1 TO LINE 1           *TITLE LINE                                 DTC
   MSG 2 TO LINE 2           *MODULE NUMBER AND NAME                     DTC
   IF (EC LE 3777) GOTO 32                                               DTC1455
/         PROCESS PRODUCT OVERLAY ERRORS.                                DTC1455
   MSG 4 (EA,EC) TO LINE 5      *DISPLAY ERROR LINE AND CODE             DTC
   MSG EM TO LINE 12           *DISPLAY ERROR MESSAGE                    DTC
   GOTO 34                    *GO TO STOP ON ERROR                       DTC
/         PROCESS MODULE ERRORS.                                         DTC
32 MSG 5 (EA,EC) TO LINE 5   *DISPLAY ERROR LINE AND CODE                DTC
   B3=IB(0) XOR B2           *BUILD DIFFERENCE IN STATUSES               DTC
   MSG 6 (B2,IB,B0) TO LINE 6  *DISPLAY GENERAL STATUS                   DTC
   MSG EM TO LINE 12          *DISPLAY ERROR MESSAGE                     DTC
   IF(EM NE 11) GOTO 34      *IF NOT TWO LINE ERROR MESSAGE              DTC
   MSG 12 TO LINE 13         *DISPLAY SECOND LINE OF MESSAGE             DTC
/                                                                        DTC
34 PICTURE                   *SAVE ERROR DISPLAY                         DTC
   HALT                      *STOP ON ERROR                              DTC
   BLANK                     *CLEAR DISPLAY BUFFER                       DTC
   EXIT                      *EXIT THE MODULE                            DTC
   END 30                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98A,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98A - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - INFORMS OPERATOR IF SUFFICIENT CYLINDERS             DTC
*                   TRACKS OR SECTORS ARE NOT AVAILABLE IN               DTC
*                   PARAMETER REGISTERS TO RUN PRIMARY TEST              DTC
*                   MODULES.  A MESSAGE TO MOUNT A SCRATCH               DTC
*                   PAK IS ALSO DISPLAYED IF THE PRIMARY                 DTC
*                   MODULE SELECTED PERFORMS A READ OR WRITE.            DTC
*                                                                        DTC
*                   THIS MODULE IS CALLED BY ALL PRIMARY                 DTC
*                   MODULES USING THE HALF TRACK PRODUCT                 DTC
*                   OVERLAY.                                             DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - OB(LOSECT,LOTRK,LOCYL) MUST CONTAIN THE                DTC
*                 LOWER ADDRESS PARAMETERS                               DTC
*                 IB(LOSECT,LOTRK,LOCYL) MUST CONTAIN THE                DTC
*                 UPPER ADDRESS PARAMETERS                               DTC
*                 B1 MUST CONTAIN THE PRIMARY MODULE NUMBER              DTC
*                 BEING RUN                                              DTC
*                 P5,P7 REGISTERS MUST BE CONTAIN THE DESIRED            DTC
*                 VALUES                                                 DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED -                                                 DTC
*                OB(502)=OB(LOCYL)                                       DTC
*                OB(503)=OB(LOTRK)                                       DTC
*                OB(504)=OB(LOSECT)                                      DTC
*                IB(502)=IB(LOCYL)                                       DTC
*                IB(503)=IB(LOTRK)                                       DTC
*                IB(504)=IB(LOSECT)                                      DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC*H PERFORMS READS/WRITES. IF YOU INTEND TO USE              DTC
2  FORMAT CYLINDERS OTHER THAN 1464B-1466B(PRE-ALLOCATED) -              DTC
3  FORMAT PLEASE MOUNT A SCRATCH PAK                                     DTC
4  FORMAT AFTER THE SCRATCH PACK IS MOUNTED                              DTC
5  FORMAT PLEASE ENTER GO TO CONTINUE TESTING                            DTC
25 FORMAT                                                                DTC
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
*                                                                        DTC
*  ISSUE MESSAGE TO OPERATOR TO USE SCRATCH PAK                          DTC
*                                                                        DTC
31 IF(AL GE 4) GOTO 44                                                   DTCPTR1
   IF(P5 AND 10 NE 0) GOTO 44  *IF BIT 5 OF PARAM REG 5 SET              DTCPTR1
   IF(B1 LT 22B) GOTO 44       *A REMINDER TO MOUNT A SCRATCH            DTCPTR1
   IF(B1 GT 26B) GOTO 44       *PACK IS NOT DISPLAYED                    DTCPTR1
   IF(P0.LT.1464) GOTO 45      *IF LOCYL.LT.PREALL, MOUNT PACK
   IF(P1.GT.1463) GOTO 44      *IF UPCYL.GT.1463, CONTINUE
45 MSG 1(B1)TO LINE 5          *ELSE, MOUNT PACK MESSAGE
   MSG 2 TO LINE 6                                                       DTC
   MSG 3 TO LINE 7                                                       DTC
   MSG 4 TO LINE 11 
   MSG 5 TO LINE 12                                                      DTC
   MSG 5 TO DISPLAY 
   PICTURE
   PAUSE                                                                 DTC
44 MSG 25 TO LINE 5                                                      DTC
   MSG 25 TO LINE 6                                                      DTC
   MSG 25 TO LINE 7                                                      DTC
   MSG 25 TO LINE 10                                                     DTC
   MSG 25 TO LINE 12                                                     DTC
   MSG 25 TO LINE 13                                                     DTC
   IF(P7 EQ 0) B9=6        *FILL B9 TO INDICATE ON DISPLAY               DTC
   IF(P7 EQ 1) B9=7        *WHICH READ MARGIN THE OPERATOR               DTC
   IF(P7 EQ 2) B9=10       *ENTERED INTO P7                              DTC
   IF(P7 EQ 10) B9=11                                                    DTC
   IF(P7 EQ 11) B9=12                                                    DTC
   IF(P7 EQ 12) B9=13                                                    DTC
   IF(P7 EQ 20) B9=14                                                    DTC
   IF(P7 EQ 21) B9=15                                                    DTC
   IF(P7 EQ 22) B9=16                                                    DTC
   IF(P4 AND 1 EQ 0) GOTO 46    *IF NO ENABLE FULL SEEKS, 
   IF(B1 GE 22B) GOTO 46        *IF .GE.MODULE 12 
   IB(LOCYL) = 00B              *PLACE FIRST CYL IN IB(502) 
   IB(LOTRK) = 00B              *PLACE FIRST TRK IN IB(503) 
   IB(LOSECT) = 00B             *PLACE FIRST SECT IN IB(504)
   OB(UPCYL) = 1466B            *PLACE LAST CYL IN OB(502)
   OB(UPTRK) = 22B              *PLACE LAST TRK IN OB(503)
   OB(UPSECT) = 27B             *PLACE LAST CYL IN OB(504)
   GOTO 50
*                                                                        DTCPTR2
/  PLACE PARAMETERS FOR CYL,TRK,SECTOR REG.IN IB,OB(502,504)             DTCPTR2
*                                                                        DTCPTR2
46 IB(LOCYL) = P0               *PLACE FIRST CYL IN IB(502) 
   IB(LOTRK)=P2 AND 7700        *PLACE FIRST TRK IN IB(503)              DTCPTR2
   IB(LOTRK)=IB(LOTRK) RS 6                                              DTCPTR2
   IB(LOSECT)=P3 AND 7700       *PLACE FIRST SECT IN IB(504)             DTCPTR2
   IB(LOSECT)=IB(LOSECT) RS 6                                            DTCPTR2
   OB(UPCYL)=P1                 *PLACE LAST CYL IN 0B(502)               DTCPTR2
   OB(UPTRK)=P2 AND 77          *PLACE LAST TRK IN 0B(503)               DTCPTR2
   OB(UPSECT)=P3 AND 77         *PLACE LAST SECT IN OB(504)              DTCPTR2
50 EXIT                                                                  DTC
   END 31                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98B,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98B - DESCRIPTION                                           DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - INFORMS OPERATOR IF SUFFICIENT CYLINDERS             DTC
*                   TRACKS OR SECTORS ARE NOT AVAILABLE IN               DTC
*                   PARAMETER REGISTERS TO RUN PRIMARY TEST              DTC
*                   MODULES.  A MESSAGE TO MOUNT A SCRATCH               DTC
*                   PAK IS ALSO DISPLAYED IF THE PRIMARY                 DTC
*                   MODULE SELECTED PERFORMS A READ OR WRITE.            DTC
*                                                                        DTC
*                   THIS MODULE IS CALLED BY ALL PRIMARY                 DTC
*                   MODULES USING THE FULL TRACK PRODUCT                 DTC
*                   OVERLAY.                                             DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - OB(LOSECT,LOTRK,LOCYL) MUST CONTAIN THE                DTC
*                 LOWER ADDRESS PARAMETERS                               DTC
*                 IB(LOSECT,LOTRK,LOCYL) MUST CONTAIN THE                DTC
*                 UPPER ADDRESS PARAMETERS                               DTC
*                 B1 MUST CONTAIN THE PRIMARY MODULE NUMBER              DTC
*                 BEING RUN                                              DTC
*                 P5,P7 REGISTERS MUST BE CONTAIN THE DESIRED            DTC
*                 VALUES                                                 DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED -                                                 DTC
*                OB(502)=OB(LOCYL)                                       DTC
*                OB(503)=OB(LOTRK)                                       DTC
*                OB(504)=OB(LOSECT)                                      DTC
*                IB(502)=IB(LOCYL)                                       DTC
*                IB(503)=IB(LOTRK)                                       DTC
*                IB(504)=IB(LOSECT)                                      DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT DTC*H PERFORMS READS/WRITES. IF YOU INTEND TO USE              DTC
2  FORMAT CYLINDERS OTHER THAN 1464B-1466B(PRE-ALLOCATED) -              DTC
3  FORMAT PLEASE MOUNT A SCRATCH PAK                                     DTC
4  FORMAT AFTER THE SCRATCH PACK IS MOUNTED                              DTC
5  FORMAT PLEASE ENTER GO TO CONTINUE TESTING                            DTC
24 FORMAT                                                                DTC
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
*                                                                        DTC
*  ISSUE MESSAGE TO OPERATOR TO USE SCRATCH PAK                          DTC
*                                                                        DTC
61 IF(AL GE 4) GOTO 40                                                   DTCPTR1
   IF(P5 AND 10 NE 0) GOTO 40  *IF BIT 5 OF PARAM REG 5 SET              DTCPTR1
   IF(B1 LT 22B) GOTO 40       *A REMINDER TO MOUNT A SCRATCH            DTCPTR1
   IF(B1 GT 26B) GOTO 40       *PACK IS NOT DISPLAYED                    DTCPTR1
   IF(P0.LT.1464) GOTO 45      *IF LOCYL.LT.PREALL, MOUNT PACK
   IF(P1.GT.1463) GOTO 40      *IF UPCYL.GT.1463, CONTINUE
45 MSG 1(B1)TO LINE 5          *ELSE, MOUNT PACK MESSAGE
   MSG 2 TO LINE 6                                                       DTC
   MSG 3 TO LINE 7                                                       DTC
   MSG 4 TO LINE 11 
   MSG 5 TO LINE 12                                                      DTC
   MSG 5 TO DISPLAY 
   PICTURE
   PAUSE                                                                 DTC
*                                                                        DTC
40 IF(P7 EQ 0) B9=6        *FILL B9 TO INDICATE ON DISPLAY               DTC
   IF(P7 EQ 1) B9=7        *WHICH READ MARGIN THE OPERATOR               DTC
   IF(P7 EQ 2) B9=10       *ENTERED INTO P7                              DTC
   IF(P7 EQ 10) B9=11                                                    DTC
   IF(P7 EQ 11) B9=12                                                    DTC
   IF(P7 EQ 12) B9=13                                                    DTC
   IF(P7 EQ 20) B9=14                                                    DTC
   IF(P7 EQ 21) B9=15                                                    DTC
   IF(P7 EQ 22) B9=16                                                    DTC
   MSG 24 TO LINE 5                                                      DTC
   MSG 24 TO LINE 6                                                      DTC
   MSG 24 TO LINE 7                                                      DTC
   MSG 24 TO LINE 10                                                     DTC
   MSG 24 TO LINE 12                                                     DTCPTR1
   IF(P4 AND 1 EQ 0) GOTO 46    *IF NO ENABLE FULL SEEKS, 
   IF(B1 GE 22B) GOTO 46        *IF .GE.MODULE 12 
   IB(LOCYL) = 00B              *PLACE FIRST CYL IN IB(502) 
   IB(LOTRK) = 00B              *PLACE FIRST TRK IN IB(503) 
   IB(LOSECT) = 00B             *PLACE FIRST SECT IN IB(504)
   OB(UPCYL) = 1466B            *PLACE LAST CYL IN OB(502)
   OB(UPTRK) = 22B              *PLACE LAST TRK IN OB(503)
   OB(UPSECT) = 27B             *PLACE LAST CYL IN OB(504)
   GOTO 50
*                                                                        DTCPTR2
/  PLACE PARAMETERS FOR CYL,TRK,SECTOR REG.IN IB,OB(502,504)             DTCPTR2
*                                                                        DTCPTR2
46 IB(LOCYL) = P0               *PLACE FIRST CYL IN IB(502) 
   IB(LOTRK)=P2 AND 7700        *PLACE FIRST TRK IN IB(503)              DTCPTR2
   IB(LOTRK)=IB(LOTRK) RS 6                                              DTCPTR2
   IB(LOSECT)=P3 AND 7700       *PLACE FIRST SECT IN IB(504)             DTCPTR2
   IB(LOSECT)=IB(LOSECT) RS 6                                            DTCPTR2
   OB(UPCYL)=P1                 *PLACE LAST CYL IN 0B(502)               DTCPTR2
   OB(UPTRK)=P2 AND 77          *PLACE LAST TRK IN 0B(503)               DTCPTR2
   OB(UPSECT)=P3 AND 77         *PLACE LAST SECT IN OB(504)              DTCPTR2
50 EXIT                                                                  DTC
   END 61                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98C,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98C - DESCRIPTION                                           DTC
*         PURPOSE - RESERVE PP I/O CHANNEL,CONNECT FMD(7155)             DTC
*                   CONTROLLER, RESERVE AND CONNECT THE                  DTC
*                   844-4X DISK DRIVE.                                   DTC
*                                                                        DTC
*         METHOD - THE I/O CHANNEL WILL BE RESERVED WITH A               DTC
*                  RES COMMAND. THE CONTROLLER WILL BE                   DTC
*                  CONNECTED BY ISSUING A GENERAL STATUS                 DTC
*                  FUNCTION AND THE DRIVE WILL BE RESERVED               DTC
*                  BY ISSUING A CONNECT FUNCTION. THE                    DTC
*                  CONNECT FUNCTION WILL USE THE DRIVE                   DTC
*                  NUMBER REQUESTED IN THE ASSIGN                        DTC
*                  STATEMENT.                                            DTC
*                                                                        DTC
*                  THIS MODULE IS CALLED BY ALL PRIMARY                  DTC
*                  MODULES USING THE HALF TRACK PRODUCT                  DTC
*                  OVERLAY.                                              DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - OB(LOSECT,LOTRK,LOCYL) MUST CONTAIN THE                DTC
*                 LOWER ADDRESS PARAMETERS                               DTC
*                 IB(LOSECT,LOTRK,LOCYL) MUST CONTAIN THE                DTC
*                 UPPER ADDRESS PARAMETERS                               DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         EXIT - OB(CONNECT)=0,1,2, OR 4 INDICATING TYPE OF CONNECT      DTC
*                MADE                                                    DTC
*                A CONNECT/NO CONNECT MESSAGE IS ALSO POSTED             DTC
*                                                                        DTC
*         SUBMODULES REFERENCED - DTC98H                                 DTC
*                                                                        DTC
*         REGISTERS USED                                                 DTC
*         B0 - TEST NUMBER                                               DTC
*         B9 - 844-4X DISK DRIVE UNIT NUMBER                             DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         SB(0) - GENERAL STATUS WORD FROM THE 7155                      DTC
*                 CONTROLLER                                             DTC
*         OB(0) - CONNECT FUNCTION + DRIVE UNIT NUMBER                   DTC
*                 FOR THE 844 DISK DRIVE                                 DTC
*                                                                        DTC
*         OB(501)-CONTAINS A ZERO IF BOTH CONTROLLER AND                 DTC
*                 DRIVE CONNECT                                          DTC
*                -CONTAINS A 1 IF THE CONTROLLER DOESNT                  DTC
*                 CONNECT                                                DTC
*                -CONTAINS A 2 IF THE DRIVE DOESNT CONNECT               DTC
*                -CONTAINS A 4 IF THE DRIVE CONNECTS BUT DRIVE FAULT     DTC
*                                                                        DTC
*         SB(72) -CONTAINS THE 844 DRIVE UNIT NUMBER                     DTC
*         SB(1) TO SB(24) - CONTAIN DETAILED/EXTENDED                    DTC
*                           DETAILED STATUS                              DTC
*         KNOWN LIMITATIONS - PRIMARY TEST MODULE WHICH CALLS DTC98C     DTC
*                WILL ABORT IF A CONNECT IS NOT MADE.                    DTC
*                                                                        DTC
*                            DTC98C ERROR CODES - XXOO1                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                                        DTC
1  FORMAT DTC- 844-4X DISK DRIVE DIAGNOSTIC                              DTC
2  FORMAT DTC98C - CONNECT CONTROLLER/DRIVE MODULE                       DTC
3  FORMAT DTC98C - DTC ERROR CODE=*H*HE                                  DTC
4  FORMAT DTC98C - FAILURE ON LINE *OCTB ERROR CODE *H*HE                DTC
5  FORMAT LAST FUNCTION EXECUTED=*OCTB                                   DTC
/         98000 ERROR MESSAGE                                            DTC
6  FORMAT MODULE DTC*H WAS UNABLE TO                                     DTC
7  FORMAT ESTABLISH A CONNECT TO THE FMD/844                             DTC
10 FORMAT CONTROLLER                                                     DTC
11 FORMAT THE CONTROLLER IS ALREADY RESERVED                             DTC
12 FORMAT DTC*H - LINE *OCT - ERROR NUMBER *H*HE
14 FORMAT RECOVERABLE ERROR 
15 FORMAT MODULE DTC*H WAS UNABLE TO                                     DTC
16 FORMAT ESTABLISH A CONNECT TO THE 844-4X                              DTC
17 FORMAT DISK DRIVE - UNIT *OCTB                                        DTC
20 FORMAT           DRIVE IS ALREADY RESERVED                            DTC
21 FORMAT           DRIVE IS BUSY                                        DTC
22 FORMAT           DRIVE HAS A MALFUNCTION                              DTC
24 FORMAT UNSELECTED STATUS ERROR                                        DTC
25 FORMAT CONTROL STATUS ERROR                                           DTC
26 FORMAT FAULT STATUS ERROR                                             DTC
27 FORMAT INTERLOCK STATUS ERROR                                         DTC
30 FORMAT GENERAL STATUS = *OCT                                          DTC
*         EQUATES FOR THE MODULE                                         DTC
   EQUATE CRSVD=2000, DRSVD=10, BUSY=2                                   DTC
   EQUATE UNSEL=740, CONTRL1=2, CONTRL2=3000                             DTC
   EQUATE FAULT=0376, INTRLK=7560, CONNECT=501                           DTC
   EQUATE MALF=20,CNDV=540,RCVRY=400
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
*                                                                        DTC
/         CONNECT FMD CONTROLLER                                         DTC
*                                                                        DTC
32 MSG 1 TO LINE 1
   MSG 12 (B1,EA,B0,EC) TO LINE 3 
34 IF(EC NE 4525) GOTO 66   *IF EC=4525, ABNORMAL GEN STATUS             DTC
   MSG 30(SB(0)) TO LINE 16B  *GENERAL STATUS NOT EQUAL TO 0             DTC
35 IF(SB(0) AND CRSVD EQ 0) GOTO 36   *CONTRL ALREADY RES                DTC
   ERROR 6/01, GOTO 60                                                   DTC
36 IF(SB(0) AND DRSVD EQ 0) GOTO 37   *DRIVE ALREADY RES                 DTC
   ERROR 20/02, GOTO 60                                                  DTC
37 IF(SB(0) AND BUSY EQ 0) GOTO 40    *DRIVE BUSY                        DTC
   ERROR 21/03, GOTO 60                                                  DTC
40 IF(SB(0) AND MALF EQ 0) GOTO 50    *DRIVE MALFUNCTION
   ERROR 22/04, GOTO 60                                                  DTC
50 IF(SB(0) AND RCVRY EQ 0) GOTO 41   *RECOVERABLE ERROR
   ERROR 14/13, GOTO 60 
41 IF(SB(11) AND CNDV EQ 540) GOTO 42  *DRIVE UNCONNECTED                DTC
   ERROR 24/05, GOTO 60                                                  DTC
42 IF(SB(11) AND UNSEL EQ 740) GOTO 43   *DRIVE NOT READY                DTC
   ERROR 24/06, GOTO 60                                                  DTC
43 IF(SB(12) AND FAULT EQ 0) GOTO 44    *FAULT REG ERROR                 DTC
   ERROR 26/11, GOTO 60                                                  DTC
44 IF(SB(11) AND CONTRL1 EQ 0) GOTO 45  *CONTROL REG ERROR               DTC
   ERROR 25/07, GOTO 60                                                  DTC
45 IF(SB(12) AND CONTRL2 EQ 0) GOTO 46   *CONTROL REG ERR                DTC
   ERROR 25/10, GOTO 60                                                  DTC
46 IF(SB(13) AND INTRLK EQ 7560) GOTO 47  *INTERLOCK REG ERR             DTC
   ERROR 27/12, GOTO 60                                                  DTC
47 EXIT TO 98U
*                                                                        DTC
/         BUILD ERROR DISPLAY                                            DTC
*                                                                        DTC
60 PASS 
   IF(EC EQ 1) GOTO 62     *REPORT CONTROLLER RESERVED ERROR             DTC
   IF(EC GT 1) GOTO 64     *REPORT DRIVE RESERVED ERROR                  DTC
*                                                                        DTC
/         PROCESS CONTROLLER CONNECT ERROR                               DTC
*                                                                        DTC
62 MSG 4(EA,B0,EC) TO LINE 6                                             DTC
63 MSG 6(B1) TO LINE 10                                                  DTC
   MSG 7 TO LINE 11                                                      DTC
   MSG 10 TO LINE 12                                                     DTC
   OB(CONNECT)=1                                                         DTC
   IF(EC GT 3777) GOTO 71                                                DTC
   MSG 11 TO LINE 13                                                     DTC
   EXIT TO 98H                                                           DTC
   GOTO 71                                                               DTCPTRS
*                                                                        DTC
/         PROCESS 844-4X DRIVE CONNECT ERROR                             DTC
*                                                                        DTC
64 MSG 4(EA,B0,EC) TO LINE 5                                             DTC
   IF(EC GT 5) GOTO 65                                                   DTC
   MSG 15(B1)TO LINE 7                                                   DTC
   MSG 16 TO LINE 10                                                     DTC
   B9=SB(63)                                                             DTC
   MSG 17(B9) TO LINE 11                                                 DTC
   OB(CONNECT)=2                                                         DTC
65 MSG EM TO LINE 12        *REPORT WHY DRIVE DIDNT RES                  DTC
   OB(CONNECT)=4                                                         DTC
   EXIT TO 98H                                                           DTC
   GOTO 71                                                               DTCPTRS
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR                                  DTC
*                                                                        DTC
66 MSG EM TO LINE 7                                                      DTC
   MSG 3(B0,EC) TO LINE 6    *DISPLAY LINE AND ERROR CODE                DTC
   MSG 5(LF) TO LINE 10     *DISPLAY FUNCTION CODE                       DTC
   GOTO 63        *IF GEN STATUS NE 0, REPORT ERROR                      DTC
*                                                                        DTC
71 PICTURE  *SEND ERROR INFO TO OUTPUT FILES/REL I/0 CHAN                DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
72 EXIT     *RETURN TO CALLING MODULE                                    DTC
   END 32                                                                DTCPTR2
COMPILE                                                                  DTC
   MODULE DTC98D,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98D- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - RESERVE PP I/O CHANNEL,CONNECT FMD(7155)             DTC
*                   CONTROLLER, RESERVE AND CONNECT THE                  DTC
*                   844-4X DISK DRIVE.                                   DTC
*                                                                        DTC
*         METHOD - THE I/O CHANNEL WILL BE RESERVED WITH A               DTC
*                  RES COMMAND. THE CONTROLLER WILL BE                   DTC
*                  CONNECTED BY ISSUING A GENERAL STATUS                 DTC
*                  FUNCTION AND THE DRIVE WILL BE RESERVED               DTC
*                  BY ISSUING A CONNECT FUNCTION. THE                    DTC
*                  CONNECT FUNCTION WILL USE THE DRIVE                   DTC
*                  NUMBER REQUESTED IN THE ASSIGN                        DTC
*                  STATEMENT.                                            DTC
*                                                                        DTC
*                  THIS MODULE IS CALLED BY ALL PRIMARY                  DTC
*                  MODULES USING THE FULL TRACK PRODUCT                  DTC
*                  OVERLAY.                                              DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - OB(LOSECT,LOTRK,LOCYL) MUST CONTAIN THE                DTC
*                 LOWER ADDRESS PARAMETERS                               DTC
*                 IB(LOSECT,LOTRK,LOCYL) MUST CONTAIN THE                DTC
*                 UPPER ADDRESS PARAMETERS                               DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT - OB(CONNECT)=0,1,2, OR 4 INDICATING TYPE OF CONNECT      DTC
*                MADE                                                    DTC
*                A CONNECT/NO CONNECT MESSAGE IS ALSO POSTED             DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED - DTC98H                                 DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED                                                 DTC
*         B0 - TEST NUMBER                                               DTC
*         B9 - 844-4X DISK DRIVE UNIT NUMBER                             DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         SB(0) - GENERAL STATUS WORD FROM THE 7155                      DTC
*                 CONTROLLER                                             DTC
*         OB(0) - CONNECT FUNCTION + DRIVE UNIT NUMBER                   DTC
*                 FOR THE 844 DISK DRIVE                                 DTC
*                                                                        DTC
*         OB(501)-CONTAINS A ZERO IF BOTH CONTROLLER AND                 DTC
*                 DRIVE CONNECT                                          DTC
*                -CONTAINS A 1 IF THE CONTROLLER DOESNT                  DTC
*                 CONNECT                                                DTC
*                -CONTAINS A 2 IF THE DRIVE DOESNT CONNECT               DTC
*                -CONTAINS A 4 IF THE DRIVE CONNECTS BUT DRIVE FAULT     DTC
*                                                                        DTC
*         SB(72) -CONTAINS THE 844 DRIVE UNIT NUMBER                     DTC
*         SB(1) TO SB(24) - CONTAIN DETAILED/EXTENDED                    DTC
*                           DETAILED STATUS                              DTC
*                                                                        DTC
*         KNOWN LIMITATIONS - PRIMARY TEST MODULE WHICH CALLS DTC98C     DTC
*                             WILL ABORT IF A CONNECT IS NOT MADE        DTC
*                                                                        DTC
*                                                                        DTC
*                            DTC98D ERROR CODES - XXOO1                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                 XX002                  DTC
*                                                                        DTC
1  FORMAT DTC- 844-4X  DISK DRIVE DIAGNOSTIC                             DTC
2  FORMAT DTC98D - CONNECT CONTROLLER/DRIVE MODULE                       DTC
3  FORMAT DTC98D - DTC ERROR CODE=*H*HE                                  DTC
4  FORMAT DTC98D   FAILURE ON LINE *OCTB ERROR CODE *H*HE                DTC
5  FORMAT LAST FUNCTION EXECUTED=*OCTB                                   DTC
/         98000 ERROR MESSAGE                                            DTC
6  FORMAT MODULE DTC*H WAS UNABLE TO                                     DTC
7  FORMAT ESTABLISH A CONNECT TO THE FMD/844                             DTC
10 FORMAT CONTROLLER                                                     DTC
11 FORMAT THE CONTROLLER IS ALREADY RESERVED                             DTC
12 FORMAT DTC*H - LINE *OCT - ERROR NUMBER *H*HE
14 FORMAT RECOVERABLE ERROR 
15 FORMAT MODULE DTC*H WAS UNABLE TO                                     DTC
16 FORMAT ESTABLISH A CONNECT TO THE 844-4X                              DTC
17 FORMAT DISK DRIVE - UNIT *OCTB                                        DTC
20 FORMAT          DRIVE IS ALREADY RESERVED                             DTC
21 FORMAT          DRIVE IS BUSY                                         DTC
22 FORMAT          DRIVE HAS A MALFUNCTION                               DTC
24 FORMAT UNSELECTED STATUS ERROR                                        DTC
25 FORMAT CONTROL STATUS ERROR                                           DTC
26 FORMAT FAULT STATUS ERROR                                             DTC
27 FORMAT INTERLOCK STATUS ERROR                                         DTC
30 FORMAT GENERAL STATUS = *OCT                                          DTC
*         EQUATES FOR THE MODULE                                         DTC
   EQUATE CRSVD=2000, DRSVD=10, BUSY=2                                   DTC
   EQUATE UNSEL=740, CONTRL1=2, CONTRL2=3000                             DTC
   EQUATE FAULT=0376, INTRLK=7560, CONNECT=501                           DTC
   EQUATE MALF=20,CNDV=540,RCVRY=400
   EQUATE LOCYL=502,LOTRK=503,LOSECT=504                                 DTC
   EQUATE UPCYL=502,UPTRK=503,UPSECT=504                                 DTC
*                                                                        DTC
/         CONNECT FMD CONTROLLER                                         DTC
*                                                                        DTC
32 MSG 1 TO LINE 1
   MSG 12 (B1,EA,B0,EC) TO LINE 3 
34 IF(EC.AND.77.NE.25) GOTO 66   *IF EC=XX25, ABNORMAL GEN STATUS 
   MSG 30(SB(0)) TO LINE 16B  *GENERAL STATUS NOT EQUAL TO 0             DTC
35 IF(SB(0) AND CRSVD EQ 0) GOTO 36   *CONTRL ALREADY RES                DTC
   ERROR 6/01, GOTO 60                                                   DTC
36 IF(SB(0) AND DRSVD EQ 0) GOTO 37   *DRIVE ALREADY RES                 DTC
   ERROR 20/02, GOTO 60                                                  DTC
37 IF(SB(0) AND BUSY EQ 0) GOTO 40    *DRIVE BUSY                        DTC
   ERROR 21/03, GOTO 60                                                  DTC
40 IF(SB(0) AND MALF EQ 0) GOTO 50    *DRIVE MALFUNCTION
   ERROR 22/04, GOTO 60                                                  DTC
50 IF(SB(0) AND RCVRY EQ 0) GOTO 41   *RECOVERABLE ERROR
   ERROR 14/13, GOTO 60 
41 IF(SB(11) AND CNDV EQ 540) GOTO 42  *DRIVE UNCONNECTED                DTC
   ERROR 24/05, GOTO 60                                                  DTC
42 IF(SB(11) AND UNSEL EQ 740) GOTO 43   *DRIVE NOT READY                DTC
   ERROR 24/06, GOTO 60                                                  DTC
43 IF(SB(12) AND FAULT EQ 0) GOTO 44    *FAULT REG ERROR                 DTC
   ERROR 26/11, GOTO 60                                                  DTC
44 IF(SB(11) AND CONTRL1 EQ 0) GOTO 45  *CONTROL REG ERROR               DTC
   ERROR 25/07, GOTO 60                                                  DTC
45 IF(SB(12) AND CONTRL2 EQ 0) GOTO 46   *CONTROL REG ERR                DTC
   ERROR 25/10, GOTO 60                                                  DTC
46 IF(SB(13) AND INTRLK EQ 7560) GOTO 47  *INTERLOCK REG ERR             DTC
   ERROR 27/12, GOTO 60                                                  DTC
47 EXIT TO 98T
*                                                                        DTC
/         BUILD ERROR DISPLAY                                            DTC
*                                                                        DTC
60 PASS 
   IF(EC EQ 1) GOTO 62     *REPORT CONTROLLER RESERVED ERROR             DTC
   IF(EC GT 1) GOTO 64     *REPORT DRIVE RESERVED ERROR                  DTC
*                                                                        DTC
/         PROCESS CONTROLLER CONNECT ERROR                               DTC
*                                                                        DTC
62 MSG 4(EA,B0,EC) TO LINE 6                                             DTC
63 MSG 6(B1) TO LINE 10                                                  DTC
   MSG 7 TO LINE 11                                                      DTC
   MSG 10 TO LINE 12                                                     DTC
   OB(CONNECT)=1                                                         DTC
   IF(EC GT 3777) GOTO 71                                                DTC
   MSG 11 TO LINE 13                                                     DTC
   EXIT TO 98L                                                           DTC
   GOTO 71                                                               DTCPTRS
*                                                                        DTC
/         PROCESS 844-4X DRIVE CONNECT ERROR                             DTC
*                                                                        DTC
64 MSG 4(EA,B0,EC) TO LINE 5                                             DTC
   IF(EC GT 5) GOTO 65                                                   DTC
   MSG 15(B1)TO LINE 7                                                   DTC
   MSG 16 TO LINE 10                                                     DTC
   B9=SB(63)                                                             DTC
   MSG 17(B9) TO LINE 11                                                 DTC
   OB(CONNECT)=2                                                         DTC
65 MSG EM TO LINE 12        *REPORT WHY DRIVE DIDNT RES                  DTC
   OB(CONNECT)=4                                                         DTC
   EXIT TO 98L                                                           DTC
   GOTO 71                                                               DTCPTRS
*                                                                        DTC
/         PROCESS PRODUCT OVERLAY ERROR                                  DTC
*                                                                        DTC
66 MSG EM TO LINE 7                                                      DTC
   MSG 3 (B0,EC) TO LINE 6    *DISPLAY LINE AND ERROR CODE               DTCPTR1
   MSG 5 (LF) TO LINE 10     *DISPLAY FUNCTION CODE                      DTC
   GOTO 63        *IF GEN STATUS NE 0, REPORT ERROR                      DTC
*                                                                        DTC
71 PICTURE  *SEND ERROR INFO TO OUTPUT FILES/REL I/0 CHAN                DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
72 EXIT     *RETURN TO CALLING MODULE                                    DTC
   END 32                                                                DTCPTR2
COMPILE                                                                  DTC
   MODULE DTC98E,844HT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98E - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE-                                                       DTC
*         DTC98E DIVIDES THE 24 BIT NUMBER CONTAINED IN                  DTC
*         REGISTERS B14/B15 BY 1000D AND REPLACES IT WITH                DTC
*         THE QUOTIENT.                                                  DTC
*                                                                        DTC
*         METHOD-                                                        DTC
*         1000D IS SUBTRACTED FROM THE 24 BIT DIVIDEND                   DTC
*         UNTIL IT GOES NEGATIVE.  THE NUMBER OF SUBTRACTS               DTC
*         MINUS ONE IS THEN THE QUOTIENT.                                DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY-                                                         DTC
*         B14 - UPPER 12 BITS OF THE 24 BIT DIVIDEND                     DTC
*         B15 - LOWER 12 BITS OF THE 24 BIT DIVIDEND                     DTC
*                                                                        DTC
*         EXIT-                                                          DTC
*         B14 - UPPER 12 BITS OF THE 24 BIT QUOTIENT                     DTC
*         B15 - LOWER 12 BITS OF THE 24 BIT QUOTIENT                     DTC
*         OB(502) THROUGH OB(504) ARE DESTROYED                          DTC
*         IB(502) THROUGH IB(504) ARE DESTROYED                          DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-NONE.                                    DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B2 - BORROW/CARRY BIT 2**12                                    DTC
*         B3 - BORROW BIT 2**24                                          DTC
*         B4 - UPPER 12 BITS OF QUOTIENT                                 DTC
*         B5 - LOWER 12 BITS OF QUOTIENT                                 DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(502) THROUGH OB(504) AND IB(502) THROUGH                    DTC
*           IB(504) ARE USED TO SAVE THE REGISTERS.                      DTC
*                                                                        DTC
*         REMARKS-                                                       DTC
*         BY CHANGING THE EQUATE FOR DIVISOR, THIS MODULE                DTC
*         CAN BE MODIFIED TO DIVIDE BY ANY NUMBER LESS                   DTC
*         THAN 4096D.                                                    DTC
*                                                                        DTC
*         KNOWN LIMITATIONS-                                             DTC
*                                                                        DTC
*                                                                        DTC
/         MISCELLANEOUS EQUATES                                          DTC
*                                                                        DTC
   EQUATE DIVISOR TO 1000D                                               DTC
*                                                                        DTC
/         SAVE THE REGISTERS                                             DTC
*                                                                        DTC
20 OB(500)=B2                                                            DTC
   OB(501)=B3                                                            DTC
   OB(502)=B4                                                            DTC
   OB(503)=B5                                                            DTC
   B4=0                                                                  DTC
   B5=0                                                                  DTC
*                                                                        DTC
/         SUBTRACT DIVISOR FROM B14/B15                                  DTC
*                                                                        DTC
30 B2=B15-DIVISOR.RS.17D      *BORROW BIT 2**12                          DTC
   B3=B14-B2.RS.17D           *BORROW BIT 2**24                          DTC
   B15=B15-DIVISOR+B3          *LOWER 12 BITS                            DTC
   B14=B14-B2                  *UPPER 12 BITS                            DTC
   IF (B3.NE.0) GOTO 34      *EXIT IF NEGATIVE                           DTC
*                                                                        DTC
/         INCREMENT B4/B5                                                DTC
*                                                                        DTC
   B2=B5+1.RS.12D            *CARRY BIT 2**12                            DTC
   B4=B4+B2                  *UPPER 12 BITS                              DTC
   B5=B5+B2+1                *LOWER 12 BITS                              DTC
   GOTO 30                                                               DTC
*                                                                        DTC
/         REPLACE DIVIDEND WITH QUOTIENT                                 DTC
*                                                                        DTC
34 B14=B4                     *UPPER 12 BITS                             DTC
   B15=B5                     *LOWER 12 BITS                             DTC
*                                                                        DTC
/         RESTORE REGISTERS                                              DTC
*                                                                        DTC
   B2=OB(500)                                                            DTC
   B3=OB(501)                                                            DTC
   B4=OB(502)                                                            DTC
   B5=OB(503)                                                            DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98F,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98F - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE-                                                       DTC
*         DTC98F DIVIDES THE 24 BIT NUMBER CONTAINED IN                  DTC
*         REGISTERS B14/B15 BY 1000D AND REPLACES IT WITH                DTC
*         THE QUOTIENT.                                                  DTC
*                                                                        DTC
*         METHOD-                                                        DTC
*         1000D IS SUBTRACTED FROM THE 24 BIT DIVIDEND                   DTC
*         UNTIL IT GOES NEGATIVE.  THE NUMBER OF SUBTRACTS               DTC
*         MINUS ONE IS THEN THE QUOTIENT.                                DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY-                                                         DTC
*         B14 - UPPER 12 BITS OF THE 24 BIT DIVIDEND                     DTC
*         B15 - LOWER 12 BITS OF THE 24 BIT DIVIDEND                     DTC
*                                                                        DTC
*         EXIT-                                                          DTC
*         B14 - UPPER 12 BITS OF THE 24 BIT QUOTIENT                     DTC
*         B15 - LOWER 12 BITS OF THE 24 BIT QUOTIENT                     DTC
*         OB(502) THROUGH OB(504) ARE DESTROYED                          DTC
*         IB(502) THROUGH IB(504) ARE DESTROYED                          DTC
*                                                                        DTC
*         SUBMODULES REFERENCED-NONE.                                    DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B2 - BORROW/CARRY BIT 2**12                                    DTC
*         B3 - BORROW BIT 2**24                                          DTC
*         B4 - UPPER 12 BITS OF QUOTIENT                                 DTC
*         B5 - LOWER 12 BITS OF QUOTIENT                                 DTC
*                                                                        DTC
*         BUFFERS USED-                                                  DTC
*         OB(502) THROUGH OB(504) AND IB(502) THROUGH                    DTC
*           IB(504) ARE USED TO SAVE THE REGISTERS.                      DTC
*                                                                        DTC
*         REMARKS-                                                       DTC
*         BY CHANGING THE EQUATE FOR DIVISOR, THIS MODULE                DTC
*         CAN BE MODIFIED TO DIVIDE BY ANY NUMBER LESS                   DTC
*         THAN 4096D.                                                    DTC
*                                                                        DTC
*         KNOWN LIMITATIONS-                                             DTC
*                                                                        DTC
*                                                                        DTC
/         MISCELLANEOUS EQUATES                                          DTC
*                                                                        DTC
*                                                                        DTC
/         SAVE THE REGISTERS                                             DTC
*                                                                        DTC
*                                                                        DTC
20 OB(477)=B2                                                            DTC
   OB(500)=B3                                                            DTC
   OB(501)=B4                                                            DTC
   OB(502)=B5                                                            DTC
   OB(503)=B13                                                           DTC
   B4=0                                                                  DTC
   B5=0                                                                  DTC
*                                                                        DTC
/         SUBTRACT B10 FROM B14/B15                                      DTC
*                                                                        DTC
36 B2=B14-B13.RS.17D      *BORROW BIT 2**12                              DTC
   B3=B15-B2.RS.17D           *BORROW BIT 2**24                          DTC
   B14=B14-B13+B3          *LOWER 12 BITS                                DTC
   B15=B15-B2                  *UPPER 12 BITS                            DTC
   IF (B3.NE.0) GOTO 37      *EXIT IF NEGATIVE                           DTC
*                                                                        DTC
/         INCREMENT B4/B5                                                DTC
*                                                                        DTC
   B2=B5+1.RS.12D            *CARRY BIT 2**12                            DTC
   B4=B4+B2                  *UPPER 12 BITS                              DTC
   B5=B5+B2+1                *LOWER 12 BITS                              DTC
   GOTO 36                                                               DTC
*                                                                        DTC
/         REPLACE DIVIDEND WITH QUOTIENT                                 DTC
*                                                                        DTC
37 B15=B4                     *UPPER 12 BITS                             DTC
   B14=B5                     *LOWER 12 BITS                             DTC
*                                                                        DTC
/         RESTORE REGISTERS                                              DTC
*                                                                        DTC
   B2=OB(477)                                                            DTC
   B3=OB(500)                                                            DTC
   B4=OB(501)                                                            DTC
   B5=OB(502)                                                            DTC
   B13=OB(503)                                                           DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98G,844FT, (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98G - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE - FILL WORDS 0-501 OF OB WITH THE DATA                 DTC
*                   PATTERN IN TABLE INDEXED BY B2                       DTC
*                                                                        DTC
*         METHOD-WORDS 0-57 OF OB WILL FIRST BE FILLED WITH              DTC
*                60B DIFFERENT DATA PATTERNS. THE B2 REGISTER            DTC
*                WILL SELECT ONE OF THESE PATTERNS AND THE OB            DTC
*                WILL BE FILLED WITH THIS PATTERN.                       DTC
*                THE EXCEPTIONS ARE THE COUNTING PATTERNS 1,2            DTC
*                WHICH STORE EACH INCREMENTED COUNT IN B11               DTC
*                REGISTER FOR THE NEXT PASS THRU DTC98G.                 DTC
*                                                                        DTC
/                                                                        DTC
*         ENTRY - THE B2 REGISTER MUST CONTAIN THE INDEX NUMBER          DTC
*                 WHICH POINTS TO A DATA PATTERN IN THE DATA TABLE       DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT - 502 WORDS OF THE OUTPUT BUFFER ARE FILLED WITH          DTC
*                THE REQUESTED DATA PATTERN                              DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - NOT USED                                                  DTC
*         B1 - NOT USED                                                  DTC
*         B2 - DATA PATTERN INDEX                                        DTC
*         B11 - OUTPUT BUFFER WORD INDEX                                 DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED - OB(0-501) CONTAINS DATA PATTERN ON EXIT OF      DTC
*                        DTC98G                                          DTC
*                        OB(0-57B) CONTAIN DATA PATTERN TABLE ON ENTRY   DTC
*                        OF DTC98G                                       DTC
*         KNOWN LIMITATIONS - IF A PARTICULAR DATA PATTERN IS NEEDED     DTC
*                THE P6 REGISTER MUST INDEX THE DATA PATTERN IN THE      DTC
*                TABLE. IF THE P6 REGISTER EQUALS ZERO, THE TEST         DTC
*                WILL CYCLE THRU ALL 60B PATTERNS                        DTC
*                                                                        DTC
*                                                                        DTC
   DATA (OB(0),CON) 7777    * ALL ONES                                   DTC
   DATA (OB(1),CON) 0000    * ALL ZEROS                                  DTC
   DATA (OB(2),CON) 0001    * SLIDING ONES                               DTC
   DATA (OB(3),CON) 0002                                                 DTC
   DATA (OB(4),CON) 0004                                                 DTC
   DATA (OB(5),CON) 0010                                                 DTC
   DATA (OB(6),CON) 0020                                                 DTC
   DATA (OB(7),CON) 0040                                                 DTC
   DATA (OB(10),CON) 0100                                                DTC
   DATA (OB(11),CON) 0200                                                DTC
   DATA (OB(12),CON) 0400                                                DTC
   DATA (OB(13),CON) 1000                                                DTC
   DATA (OB(14),CON) 2000                                                DTC
   DATA (OB(15),CON) 4000                                                DTC
   DATA (OB(16),CON) 7776    *SLIDING ZEROS                              DTC
   DATA (OB(17),CON) 7775                                                DTC
   DATA (OB(20),CON) 7773                                                DTC
   DATA (OB(21),CON) 7767                                                DTC
   DATA (OB(22),CON) 7757                                                DTC
   DATA (OB(23),CON) 7737                                                DTC
   DATA (OB(24),CON) 7677                                                DTC
   DATA (OB(25),CON) 7577                                                DTC
   DATA (OB(26),CON) 7377                                                DTC
   DATA (OB(27),CON) 6777                                                DTC
   DATA (OB(30),CON) 5777                                                DTC
   DATA (OB(31),CON) 3777                                                DTC
   DATA (OB(32),CON) 2525     *ALTERNATING BIT                           DTC
   DATA (OB(33),CON) 5252     *ALTERNATING BIT                           DTC
   DATA (OB(34),CON) 0000     *COUNTING PATTERN                          DTC
   DATA (OB(35),CON) 7777     *COUNTING PATTERN                          DTC
   DATA (OB(36),CON) 7007     *COMPLEMENTING PATT 1                      DTC
   DATA (OB(37),CON) 0770                                                DTC
   DATA (OB(40),CON) 6336     *COMPLEMENTING PATT 2                      DTC
   DATA (OB(41),CON) 3663                                                DTC
   DATA (OB(42),CON) 6655     *COMPLEMENTING PATT 3                      DTC
   DATA (OB(43),CON) 5566                                                DTC
   DATA (OB(44),CON) 0176     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(45),CON) 7601     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(46),CON) 0374     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(47),CON) 7403     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(50),CON) 0770     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(51),CON) 7007     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(52),CON) 1760     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(53),CON) 6017     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(54),CON) 3740     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(55),CON) 4037     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(56),CON) 7700     *COMPLEMENTING SLIDING PATT                DTC
   DATA (OB(57),CON) 0077     *COMPLEMENTING SLIDING PATT                DTC
20 IF(B2 NE 34) GOTO 21                                                  DTC
   IF(B11 EQ 0) GOTO 25                                                  DTC
   OB(34)=B11                                                            DTC
   GOTO 25                                                               DTC
21 IF(B2 NE 35) GOTO 23                                                  DTC
   IF(B11 EQ 7777) GOTO 30                                               DTC
   OB(35)=B11                                                            DTC
   GOTO 30                                                               DTC
* WRITE INDIVIDUAL PATTERN INTO OB                                       DTC
23 B11=0                                                                 DTC
24 OB(B11)=OB(B2)                                                        DTC
   GOTO 24 WHILE(B11+1 NE 502)                                           DTC
   B2=B2+1                                                               DTC
   GOTO 32                                                               DTC
* WRITE COUNTING PATTERN 1 INTO OB                                       DTC
25 B11=0                                                                 DTC
26 OB(B11)=OB(34)                                                        DTC
   GOTO 26 WHILE(B11+1 NE 502)                                           DTC
   IF(OB(34) EQ 7777) B2=B2+1                                            DTC
   B11=OB(34)+1                                                          DTC
   GOTO 32                                                               DTC
* WRITE COUNTING PATTERN 2 INTO OB                                       DTC
30 B11=0                                                                 DTC
31 OB(B11)=OB(35)                                                        DTC
   GOTO 31 WHILE(B11+1 NE 502)                                           DTC
   IF(OB(35) EQ 0000) B2=B2+1                                            DTC
   B11=OB(35)-1                                                          DTC
32 EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98H,844HT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98H- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS GENERAL AND UNSELECTED                      DTC
*                   STATUS ERRORS                                        DTC
*                                                                        DTC
*         METHOD -  INSPECTS EACH BIT OF GENERAL STATUS                  DTC
*                   AND UNSELECTED STATUS. IF THE BIT                    DTC
*                   CONDITION INDICATES AN ERROR, AN                     DTC
*                   ERROR MESSAGE IS DISPLAYED DESCRIBING                DTC
*                   THE FAILURE.                                         DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         ENTRY - SB(0)  MUST CONTAIN GENERAL STATUS                     DTC
*                 SB(2)  MUST CONTAIN THE ACCESS NUMBER                  DTC
*                 SB(22) MUST CONTAIN UNSELECTED STATUS                  DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED - DTC98I                                 DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B10 - LINE NUMBER OF DISPLAY ON WHICH MESSAGE IS POSTED        DTC
*         B11 - 844-4X DISK DRIVE UNIT NUMBER                            DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED - OB(CONNECT) EQUALS 0,1,2, OR 4 DEPENDING        DTC
*                        ON TYPE OF CONNECT MADE                         DTC
*                                                                        DTC
1  FORMAT GENERAL STATUS = *OCT                                          DTC
2  FORMAT    AUTOLOAD ERROR (BIT 2)                                      DTC
3  FORMAT    844 IS CURRENTLY RESERVED BY ANOTHER DSC(BIT 3)             DTC
4  FORMAT    7155 IS CURRENTLY RESERVED BY ANOTHER ACCESS                DTC
5  FORMAT    844 DRIVE OR 7155 CONTROLLER IS BUSY(BIT 1)                 DTC
6  FORMAT    844 DISK DRIVE MALFUNCTION HAS OCCURRED (BIT 4)             DTC
7  FORMAT    CORRECTABLE READ ADDRESS CW ERROR (BIT 6)                   DTC
10 FORMAT    DATA OR ADDRESS CHECKWORD ERROR (BIT 7)                     DTC
11 FORMAT      ERROR RECOVERY IN PROGRESS (BIT 8)                        DTC
12 FORMAT      NON-RECOVERABLE ERROR HAS OCCURRED (BIT 9)                DTC
13 FORMAT    ABNORMAL TERMINATION OF COMMAND (BIT 11)                    DTC
14 FORMAT UNSELECTED STATUS = *OCT                                       DTC
15 FORMAT    SECTOR ALERT ON SECTOR BIT(BIT 11)                          DTC
16 FORMAT    SEEK ERROR (BIT 10)                                         DTC
17 FORMAT    DRIVE BUSY - RESERVED OR IN MOTION (BIT 9)                  DTC
20 FORMAT    DRIVE NOT SELECTED (BIT 8)                                  DTC
21 FORMAT    DRIVE NOT READY (BIT 7)  CHECK IF POWER ON UNIT             DTC
22 FORMAT    DRIVE NOT ON-LINE (BIT 6)                                   DTC
23 FORMAT    THE TEST DRIVE CONNECTED IS NOT AN 844-4X                   DTC
24 FORMAT ACCESS *H CONNECTED                                            DTC
25 FORMAT       DRIVE MAY NOT BE POWERED UP                              DTC
26 FORMAT       DRIVE MAY BE DISABLED FROM 7155/UNIT SELECT              DTC
27 FORMAT       PLEASE CHECK EQUIPMENT/UNIT SELECTION CODE               DTC
30 FORMAT          DRIVE UNIT SELECTED = *OCTB                           DTC
   EQUATE CONNECT=501                                                    DTC
31 B10=16    *INITIALIZE B10 FOR FIRST DISPLAY LINE                      DTC
   MSG 1(SB(0)) TO LINE B10   *DISPLAY GENERAL STATUS                    DTC
   B10=B10+1  *INCREMENT LINE COUNTER                                    DTC
   IF(SB(0) EQ 7777) EXIT TO 98I                                         DTC
54 IF(SB(22) AND 4000 EQ 0) GOTO 55   *ACCESS D                          DTC
   B11 = 0015 
55 IF(SB(22) AND 2000 EQ 0) GOTO 56   *ACCESS C                          DTC
   B11 = 0014 
56 IF(SB(22) AND 1000 EQ 0) GOTO 57   *ACCESS B                          DTC
   B11 = 0013 
57 IF(SB(22) AND 400 EQ 0) GOTO 32    *ACCESS A                          DTC
   B11 = 0012 
32 MSG 24(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
   IF(SB(0) AND 4 EQ 0) GOTO 33    *AUTOLOAD ERROR                       DTC
   MSG 2 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
33 IF(SB(0) AND 2000 EQ 0) GOTO 34   *CONTROLLER RESRVD                  DTC
   MSG 4 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
34 IF(SB(0) AND 10 EQ 0) GOTO 35    *DRIVE RESERVED                      DTC
   MSG 3 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
35 IF(SB(0) AND 20 EQ 0) GOTO 36    *DRIVE MALFUNCTION                   DTC
   MSG 6 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
36 IF(SB(0) AND 2 EQ 0) GOTO 37     *DRIVE BUSY                          DTC
   MSG 5 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
37 IF(SB(0) AND 100 EQ 0) GOTO 40   *CORR ADDRESS ERR                    DTC
   MSG 7 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
40 IF(SB(0) AND 200 EQ 0) GOTO 41   *CHECKWORD ERROR                     DTC
   MSG 10 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
41 IF(SB(0) AND 4000 EQ 0) GOTO 42  *ABNORMAL TERM                       DTC
   MSG 13 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
42 IF(SB(0) AND 400 EQ 0) GOTO 43   *RECOVRY IN PROGR                    DTC
   MSG 11 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
43 IF(SB(0) AND 1000 EQ 0) GOTO 44  *NON-RECOVER ERR                     DTC
   MSG 12 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
44 B10=B10+1                                                             DTC
   IF(OB(CONNECT) EQ 1) GOTO 77                                          DTC
   B11=SB(11) AND 7740                                                   DTC
   MSG 14(B11) TO LINE B10    *DISPLAY UNSELECTED STATUS                 DTC
   B10=B10+1                                                             DTC
   IF(SB(11) EQ 740) EXIT TO 98I                                         DTC
   IF(SB(11) AND 4000 EQ 0) GOTO 45  *SECTOR ALERT                       DTC
   MSG 15 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
45 IF(SB(11) AND 2000 EQ 0) GOTO 46  *SEEKN ERROR                        DTC
   MSG 16 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
46 IF(SB(11) AND 1000 EQ 0) GOTO 47  *DRIVE BUSY                         DTC
   MSG 17 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
47 IF(SB(11) AND 400 NE 0) GOTO 50  *DRIVE SELECTED                      DTC
   MSG 20 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
   MSG 26 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
50 IF(SB(11) AND 200 NE 0) GOTO 51  *DRIVE READY                         DTC
   MSG 21 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
   MSG 25 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
51 IF(SB(11) AND 100 NE 0) GOTO 52  *DRIVE ON-LINE                       DTC
   MSG 22 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
52 IF(SB(11) AND 40 NE 0) GOTO 75   *EQUIPMENT SELECTION                 DTC
   MSG 23 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
53 MSG 27 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
   B11=SB(63)                                                            DTC
   MSG 30(B11) TO LINE B10                                               DTC
75 IF(OB(CONNECT) EQ 1) GOTO 77  *CONTROLLER NOT CONNECTED               DTC
   IF(OB(CONNECT) EQ 2) GOTO 77  *DRIVE NOT CONNECTED                    DTC
   EXIT TO 98I                *EXIT IF DRIVE FAULT                       DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 31                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98I,844HT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98I- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS CONTROL REGISTER,FAULT REGISTER             DTC
*                   AND INTERLOCK REGISTER STATUS ERRORS                 DTC
*                                                                        DTC
*         METHOD -  INSPECTS EACH BIT OF THE FAULT, CONTROL              DTC
*                   AND INTERLOCK STATUS. IF THE BIT                     DTC
*                   CONDITION INDICATES AN ERROR, AN                     DTC
*                   ERROR MESSAGE IS DISPLAYED DESCRIBING                DTC
*                   THE FAILURE.                                         DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         ENTRY - SB(11,12,13)MUST CONTAIN CONTROL,FAULT, AND            DTC
*                 INTERLOCK STATUS                                       DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED - DTC98J                                 DTC
*         REGISTERS USED-                                                DTC
*         B2 - CONTROL STATUS                                            DTC
*         B3 - FAULT STATUS                                              DTC
*         B10 - LINE NUMBER OF DISPLAY ON WHICH MESSAGE IS POSTED        DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT CONTROL STATUS ..................*OCT                          DTC
2  FORMAT    END OF CYLINDER DETECTED      (BIT 3)                       DTC
3  FORMAT    SEEK ERROR - END OF TRAVEL    (BIT 2)                       DTC
4  FORMAT    INDEX MARK DETECTED           (BIT 1)                       DTC
5  FORMAT    ON CYLINDER DETECTED          (BIT 7)                       DTC
6  FORMAT    SEEK ERROR - NOT ON CYLINDER  (BIT 6)                       DTC
7  FORMAT    PACK UNSAFE                   (BIT 5)                       DTC
10 FORMAT    SECTOR MARK DETECTED          (BIT 4)                       DTC
11 FORMAT FAULT STATUS ....................*OCT                          DTC
12 FORMAT    SEEK FAULT                    (BIT 7)                       DTC
13 FORMAT    NEG/POS VOLTAGE ERROR         (BIT 6,5)                     DTC
14 FORMAT    CURRENT FAULT                 (BIT 4)                       DTC
15 FORMAT    WRITE AND READ FAULT          (BIT 3)                       DTC
16 FORMAT    WRITE OR READ AND NOT ON CYLINDER FAULT (BIT 2)             DTC
17 FORMAT    AC WRITE FAULT                (BIT 1)                       DTC
20 FORMAT INTERLOCK STATUS ................*OCT                          DTC
21 FORMAT    SPINDLE MOTOR NOT ON          (BIT 7)                       DTC
22 FORMAT    LOCAL POWER SEQUENCE USED     (BIT 6)                       DTC
23 FORMAT    START SWITCH NOT ON           (BIT 5)                       DTC
24 FORMAT    BRUSH CYCLE IN PROGRESS       (BIT 4)                       DTC
25 FORMAT    HEADS NOT LOADED              (BIT 3)                       DTC
26 FORMAT    COVER OPEN,SW OFF,BREAKERS OFF(BIT 2)                       DTC
27 FORMAT    PACK OFF                      (BIT 1)                       DTC
   EQUATE CONNECT=501                                                    DTC
31 B10=B10+1                                                             DTC
   B3=SB(11) AND 7                                                       DTC
   B2=SB(12) AND 7400                                                    DTC
   B2=B2+B3                                                              DTC
   IF(B2 EQ 0) GOTO 40       *CONTROL STATUS GOOD                        DTC
   MSG 1(B2) TO LINE B10                    *CONTROL STATUS              DTC
   B10=B10+1                                                             DTC
   IF(SB(11) AND 4 EQ 0) GOTO 32        *END OF CYLINDER                 DTC
   MSG 2 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
32 IF(SB(11) AND 2 EQ 0) GOTO 33        *SEEK ERROR,EOT                  DTC
   MSG 3 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
33 IF(SB(11) AND 1 EQ 0) GOTO 34        *INDEX MARK                      DTC
   MSG 4 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
34 IF(SB(12) AND 4000 EQ 0) GOTO 35    *ON CYLINDER                      DTC
   MSG 5 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
35 IF(SB(12) AND 2000 EQ 0) GOTO 36    *SEEK ERR,NOT ON CYL              DTC
   MSG 6 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
36 IF(SB(12) AND 1000 EQ 0) GOTO 37    *PACK UNSAFE                      DTC
   MSG 7 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
37 IF(SB(12) AND 400 EQ 0) GOTO 40     *SECTOR MARK                      DTC
   MSG 10 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
40 B3=SB(12) AND 376                                                     DTC
   IF(B3 EQ 0) GOTO 46        *FAULT STATUS GOOD                         DTC
   MSG 11(B3) TO LINE B10                   *FAULT STATUS                DTC
   B10=B10+1                                                             DTC
   IF(SB(12) AND 200 EQ 0) GOTO 41     *SEEK ERROR                       DTC
   MSG 12 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
41 IF(SB(12) AND 140 EQ 0) GOTO 42     *NEG/POS VOLTAGE ERR              DTC
   MSG 13 TO LINE B10                  *POS VOLTAGE ERROR                DTC
   B10=B10+1                                                             DTC
42 IF(SB(12) AND 20 EQ 0) GOTO 43      *CURRENT ERROR                    DTC
   MSG 14 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
43 IF(SB(12) AND 10 EQ 0) GOTO 44      *WRITE . READ ERROR               DTC
   MSG 15 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
44 IF(SB(12) AND 4 EQ 0) GOTO 45       *WR + READ NOT ON CYL             DTC
   MSG 16 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
45 IF(SB(12) AND 2 EQ 0) GOTO 46       *AC WRITE FAULT                   DTC
   MSG 17 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
46 IF(SB(11) AND 500 NE 500) GOTO 57                                     DTC
   B3=SB(13) AND 7760                                                    DTC
   IF(B3 EQ 7560) GOTO 57      *INTERLOCK STATUS GOOD                    DTC
   IF(SB(11) AND 400 EQ 0) GOTO 57                                       DTC
   MSG 20(B3) TO LINE B10                  *INTERLOCK STATUS             DTC
   B10=B10+1                                                             DTC
47 IF(SB(13) AND 2000 NE 0) GOTO 50    *SPINDLE MOTOR NOT ON             DTC
   MSG 21 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
50 IF(SB(13) AND 1000 NE 0) GOTO 51    *LOCAL POWER SEQ                  DTC
   MSG 22 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
51 IF(SB(13) AND 400 NE 0) GOTO 52     *START SWITCH NOT ON              DTC
   MSG 23 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
52 IF(SB(13) AND 200 EQ 0) GOTO 53     *BRUSH CYCLE IN PROGR             DTC
   MSG 24 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
53 IF(SB(13) AND 100 NE 0) GOTO 54     *HEADS LOADED                     DTC
   MSG 25 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
54 IF(SB(13) AND 40 NE 0) GOTO 55      *PHYSICAL ENABLE                  DTC
   MSG 26 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
55 IF(SB(13) AND 20 NE 0) GOTO 57      *PACK ON                          DTC
   MSG 27 TO LINE B10                                                    DTC
57 B10=B10+1                                                             DTC
   IF(OB(CONNECT) NE 0) GOTO 65   *EXIT IF NO CONNECT                    DTC
   EXIT TO 98J                                                           DTC
65 B10=B10+1                                                             DTC
   PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 31                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98J,844HT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98J- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS DETAILED STATUS ERRORS                      DTC
*                                                                        DTC
*         METHOD -  INSPECTS EACH BIT OF DETAILED STATUS.                DTC
*                   IF THE BIT CONDITION INDICATES AN ERROR              DTC
*                   AN ERROR MESSAGE IS DISPLAYED DESCRIBING             DTC
*                   THE FAILURE.                                         DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         ENTRY - SB(1-6)MUST CONTAIN DETAILED STATUS                    DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED - DTC98K                                 DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B2 - WORKING REGISTER                                          DTC
*         B4 - FAILING CYL ADDR AND WORKING REGISTER                     DTC
*         B5 - FAILING TRACK ADDR                                        DTC
*         B6 - FAILING SECTOR ADDR                                       DTC
*         B9 - NUMBER OF FORMAT STATEMENT DISPLAYED                      DTC
*              AND WORKING REGISTER                                      DTC
*         B10 - LINE NUMBER OF DISPLAY ON WHICH MESSAGE IS POSTED        DTC
*         B11 - WORKING REGISTER                                         DTC
*         B12 - WORKING REGISTER                                         DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT 844 DETAILED STATUS                                            DTC
2  FORMAT    CONTROLWARE REVISION NUMBER IS *OCTB                        DTC
3  FORMAT    SOFTWARE IS COMPATIBLE WITH MA401 CONTROLWARE               DTC
4  FORMAT    7155 SUBSYSTEM CONTROLWARE IS BEING USED                    DTC
5  FORMAT    ILLEGAL PARAMETER                                           DTC
6  FORMAT    ILLEGAL NUMBER OF PARAMETERS                                DTC
7  FORMAT    THE ERROR RATE THRESHOLD HAS BEEN EXCEEDED                  DTC
10 FORMAT    THE STROBE/OFFSET RETRY COUNT IS *OCTB                      DTC
11 FORMAT    ADDRESS ERROR                                               DTC
12 FORMAT    CYLINDER ERROR                                              DTC
13 FORMAT    TRACK ERROR                                                 DTC
14 FORMAT    SECTOR NUMBER ERROR                                         DTC
15 FORMAT    ADDRESS CHECKWORD ERROR                                     DTC
16 FORMAT    NON-CORRECTABLE ADDRESS CHECKWORD ERROR                     DTC
17 FORMAT    DATA CHECKWORD ERROR                                        DTC
20 FORMAT    NON-CORRECTABLE DATA CHECKWORD ERROR                        DTC
23 FORMAT    AT CYLINDER=*OCTB  TRACK=*OCTB  SECTOR=*OCTB                DTC
24 FORMAT    THE SECTOR IS FLAWED                                        DTC
25 FORMAT    THE TRACK IS FLAWED                                         DTC
26 FORMAT    FACTORY MANUFACTURING DATA FLAW MAP FLAG IS SET             DTC
27 FORMAT    UTILITY FLAW MAP FLAG IS SET                                DTC
30 FORMAT LAST 4 FUNCTIONS EXECUTED= *OCT *OCT *OCT *OCT                 DTC
34 B3=B10                                                                DTC
   B10=B10+1                                                             DTC
   B11=SB(4) AND 1700      *DISPLAY CONTROLWARE REV NUMBER               DTC
   IF(SB(0) AND 4 EQ 0) GOTO 36  *OMIT INFO ABOUT CNTLWARE               DTC
   MSG 2(B11) TO LINE B10  *                                             DTC
   B10=B10+1               *                                             DTC
   IF(SB(4) AND 4000 EQ 0) GOTO 35  *7155 CONTROLWARE USED               DTC
   B9=3                                                                  DTC
   GOSUB 61                                                              DTC
35 IF(SB(4) AND 2000 EQ 0) GOTO 36  *7155 CONTROLWARE USED               DTC
   B9=4                                                                  DTC
   GOSUB 61                                                              DTC
36 IF(SB(3) AND 10 EQ 0) GOTO 37   *ILLEGAL PARAMETER                    DTC
   B9=5                                                                  DTC
   GOSUB 61                                                              DTC
37 IF(SB(3) AND 4 EQ 0) GOTO 40    *ILLEGAL PARAMETERS                   DTC
   B9=6                                                                  DTC
   GOSUB 61                                                              DTC
40 IF(SB(3) AND 2 EQ 0) GOTO 41    *ERROR RATE THRESH EXCED              DTC
   B9=7                                                                  DTC
   GOSUB 61                                                              DTC
41 B11=SB(1) AND 7760              *STROBE/OFFSET RETRY CT               DTC
   IF(B11 EQ 0) GOTO 42             *OMIT DISPLAYING COUNT               DTC
   MSG 10(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
42 IF(SB(1) AND 10 EQ 0) GOTO 43    *ADDRESS ERROR                       DTC
   B9=11                                                                 DTC
   GOSUB 61                                                              DTC
43 IF(SB(1) AND 4 EQ 0) GOTO 44    *CYLINDER NUMBER ERROR                DTC
   B9=12                                                                 DTC
   GOSUB 61                                                              DTC
44 IF(SB(1) AND 2 EQ 0) GOTO 45    *TRACK NUMBER ERROR                   DTC
   B9=13                                                                 DTC
   GOSUB 61                                                              DTC
45 IF(SB(1) AND 1 EQ 0) GOTO 46    *SECTOR NUMBER ERROR                  DTC
   B9=14                                                                 DTC
   GOSUB 61                                                              DTC
46 IF(SB(2) AND 4000 EQ 0) GOTO 47    *ADDR CHECKWORD ERROR              DTC
   B9=15                                                                 DTC
   GOSUB 61                                                              DTC
47 IF(SB(2) AND 2000 EQ 0) GOTO 50    *NON-CORR ADDR CKWD ER             DTC
   B9=16                                                                 DTC
   GOSUB 61                                                              DTC
50 IF(SB(2) AND 1000 EQ 0) GOTO 51    *DATA CHECKWORD ERR                DTC
   B9=17                                                                 DTC
   GOSUB 61                                                              DTC
51 IF(SB(2) AND 400 EQ 0) GOTO 52    *NON-CORR DATA CKWD ERR             DTC
   B9=20                                                                 DTC
   GOSUB 61                                                              DTC
52 B11=SB(5) AND 7770     *CYLINDER NUMBER                               DTC
   B11=B11 RS 3                                                          DTC
   B9=SB(6) AND 1                                                        DTC
   B9=B9 LS 11B                                                          DTC
   B4=B11+B9                                                             DTC
53 B11=SB(5) AND 7        *TRACK NUMBER                                  DTC
   B11=B11 LS 2                                                          DTC
   B9=SB(6) AND 6000                                                     DTC
   B9=B9 RS 12                                                           DTC
   B5=B11+B9                                                             DTC
54 B11=SB(6) AND 1740     *SECTOR NUMBER                                 DTC
   B6=B11 RS 5                                                           DTC
   MSG 23(B4,B5,B6) TO LINE B10                                          DTC
   B10=B10+1                                                             DTC
55 IF(SB(6) AND 20 EQ 0) GOTO 56    *SECTOR FLAWED                       DTC
   B9=24                                                                 DTC
   GOSUB 61                                                              DTC
56 IF(SB(6) AND 10 EQ 0) GOTO 57    *TRACK FLAWED                        DTC
   B9=25                                                                 DTC
   GOSUB 61                                                              DTC
57 IF(SB(6) AND 4 EQ 0) GOTO 60    *FACTORY MFG DATA FLAW                DTC
   B9=26                                                                 DTC
   GOSUB 61                                                              DTC
60 IF(SB(6) AND 2 EQ 0) GOTO 62    *UTILITY FLAW MAP FLAG                DTC
   B9=27                                                                 DTC
   GOSUB 61                                                              DTC
   GOTO 62                                                               DTC
61 MSG B9 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
   RETURN                                                                DTC
62 IF(B10 EQ B3) GOTO 63                                                 DTC
   MSG 1 TO LINE B3                                                      DTC
   B2=SB(22) AND 377           *LAST FUNCTION                            DTC
   B11=SB(23) AND 776          *SECOND LAST FUNCTION                     DTC
   B11=B11 RS 4                                                          DTC
   B12=SB(23) AND 17           *THIRD LAST FUNCTION                      DTC
   B9=SB(24) AND 7400                                                    DTC
   B9=B9 RS 4                                                            DTC
   B12=B12+B9                                                            DTC
   B3=SB(24) AND 377                                                     DTC
   MSG 30(B2,B11,B12,B3) TO LINE B10                                     DTC
   B10=B10+1                                                             DTC
63 EXIT TO 98K                                                           DTC
   END 34                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98K,844HT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98K- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS EXTENDED DETAIL STATUS ERRORS.              DTC
*                                                                        DTC
*         METHOD -  INSPECTS EACH BIT OF EX.DETAILED STATUS.             DTC
*                   IF THE BIT CONDITION INDICATES AN ERROR              DTC
*                   AN ERROR MESSAGE IS DISPLAYED DESCRIBING             DTC
*                   THE FAILURE.                                         DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - SB(4) MUST CONTAIN CONTROLWARE INFORMATION             DTC
*                 SB(20,21) MUST CONTAIN EXTENDED DETAIL STATUS          DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B10 - LINE NUMBER OF DISPLAY ON WHICH MESSAGE IS POSTED        DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*         B10- NOT USED                                                  DTC
*         B11- NOT USED                                                  DTC
*         B12- NOT USED                                                  DTC
*         B13- NOT USED                                                  DTC
*         B14- LOWER ADDRESS OF TRACK,SECTOR,OR CYLINDER                 DTC
*         B15- UPPER ADDRESS OF TRACK,SECTOR,OR CYLINDER                 DTC
*         BA, ES, EC, EM, EA - STANDARD USAGE                            DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT EXTENDED DETAIL STATUS                                         DTC
2  FORMAT    LOST DRIVE CLOCK                                            DTC
3  FORMAT    NON-CORRECTABLE CHECKWORD ERROR                             DTC
4  FORMAT    DATA PARITY ERROR                                           DTC
5  FORMAT    PROCESSOR INSTRUCTION TIME-OUT                              DTC
6  FORMAT    LOST CONTROL WORD                                           DTC
7  FORMAT    UP/DOWN COUNT NON ZERO                                      DTC
10 FORMAT    PACK UNSAFE                                                 DTC
11 FORMAT    BUFFER OUTPUT REGISTER PARITY ERROR                         DTC
12 FORMAT    WRITE VERIFY ERROR                                          DTC
13 FORMAT    SYNC BYTE SEARCH IN PROGRESS                                DTC
14 FORMAT    SECTOR LENGTH VIOLATION                                     DTC
15 FORMAT    LOST DATA                                                   DTC
16 FORMAT    SYNC BYTE MISCOMPARE                                        DTC
17 FORMAT    CHECKWORD ERROR - CORRECTION IN PROGRESS                    DTC
20 FORMAT    BUFFER OUTPUT REGISTER FULL                                 DTC
21 FORMAT    BUFFER INPUT REGISTER FULL                                  DTC
22 FORMAT    CHANNEL RESERVED                                            DTC
23 FORMAT    DEADMAN TIME-OUT                                            DTC
24 FORMAT    CHANNEL INACTIVE                                            DTC
25 FORMAT    DATA FIELD ERROR                                            DTC
26 FORMAT CONTROLWARE REVISION NUMBER IS *OCTB                           DTC
27 FORMAT SOFTWARE IS COMPATIBLE WITH MA401 CONTROLWARE                  DTC
30 FORMAT 7155 SUBSYSTEM CONTROLWARE IS USED                             DTC
37 B3=B10                                                                DTC
   B10=B10+1                                                             DTC
   IF(SB(20) AND 4000 EQ 0) GOTO 40   *LOST DRIVE CLOCK                  DTC
   B10=B10+1                                                             DTC
   MSG 2 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
40 IF(SB(20) AND 200 EQ 0) GOTO 41    *NON-CORR CKWD ERR                 DTC
   MSG 3 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
41 IF(SB(20) AND 100 EQ 0) GOTO 42    *DATA PARITY ERROR                 DTC
   MSG 4 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
42 IF(SB(20) AND 40 EQ 0) GOTO 43     *INSTRUCT. TIME-OUT                DTC
   MSG 5 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
43 IF(SB(20) AND 20 EQ 0) GOTO 44     *LOST CONTROL WORD                 DTC
   MSG 6 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
44 IF(SB(20) AND 10 EQ 0) GOTO 45     *UP/DOWN CT NON-ZERO               DTC
   MSG 7 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
45 IF(SB(20) AND 4 EQ 0) GOTO 46      *PACK UNSAFE                       DTC
   MSG 10 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
46 IF(SB(20) AND 2 EQ 0) GOTO 47      *BUFFER OUT REG PAR E              DTC
   MSG 11 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
47 IF(SB(20) AND 1 EQ 0) GOTO 50      *WRITE VERIFY ERR                  DTC
   MSG 12 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
50 IF(SB(21) AND 4000 EQ 0) GOTO 51   *SYNC BYTE SEARCH                  DTC
   MSG 13 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
51 IF(SB(21) AND 2000 EQ 0) GOTO 52   *SECTOR LENGTH VIOLAT              DTC
   MSG 14 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
52 IF(SB(21) AND 1000 EQ 0) GOTO 53   *LOST DATA                         DTC
   MSG 15 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
53 IF(SB(21) AND 400 EQ 0) GOTO 54    *SYNC BYTE MISCOMPARE              DTC
   MSG 16 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
54 IF(SB(21) AND 200 EQ 0) GOTO 55    *CKWD ERR CORRECTION               DTC
   MSG 17 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
55 IF(SB(21) AND 100 EQ 0) GOTO 56    *BUFFER OUT REG FULL               DTC
   MSG 20 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
56 IF(SB(21) AND 40 EQ 0) GOTO 57     *BUFFER IN REG FULL                DTC
   MSG 21 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
57 IF(SB(21) AND 20 EQ 0) GOTO 60     *CHAN RESERVED                     DTC
   MSG 22 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
60 IF(SB(21) AND 10 EQ 0) GOTO 61     *DEADMAN TIME-OUT                  DTC
   MSG 23 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
61 IF(SB(21) AND 4 EQ 0) GOTO 62      *CHAN INACTIVE                     DTC
   MSG 24 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
62 IF(SB(21) AND 2 EQ 0) GOTO 66      *DATA FIELD ERR                    DTC
   MSG 25 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
66 B11=SB(4) AND 1700                                                    DTC
   IF(SB(0) AND 4 EQ 0) GOTO 71                                          DTC
   MSG 26(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
67 IF(SB(4) AND 4000 EQ 0) GOTO 70                                       DTC
   MSG 26(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
70 IF(SB(4) AND 2000 EQ 0) GOTO 71                                       DTC
   MSG 26(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
71 IF(B3 EQ B10) GOTO 72                                                 DTC
   MSG 1 TO LINE B3                                                      DTC
72 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 37                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98L,844FT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98L - DESCRIPTION                                           DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS GENERAL AND UNSELECTED                      DTC
*                   STATUS ERRORS                                        DTC
*                                                                        DTC
*         METHOD -  INSPECTS EACH BIT OF GENERAL STATUS                  DTC
*                   AND UNSELECTED STATUS. IF THE BIT                    DTC
*                   CONDITION INDICATES AN ERROR, AN                     DTC
*                   ERROR MESSAGE IS DISPLAYED DESCRIBING                DTC
*                   THE FAILURE.                                         DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - SB(0)  MUST CONTAIN GENERAL STATUS                     DTC
*                 SB(2)  MUST CONTAIN THE ACCESS NUMBER                  DTC
*                 SB(22) MUST CONTAIN UNSELECTED STATUS                  DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*         SUBMODULES REFERENCED - DTC98I                                 DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B10 - LINE NUMBER OF DISPLAY ON WHICH MESSAGE IS POSTED        DTC
*         B11 - 844-4X DISK DRIVE UNIT NUMBER                            DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED - OB(CONNECT) EQUALS 0,1,2, OR 4 DEPENDING        DTC
*                        ON TYPE OF CONNECT MADE                         DTC
*                                                                        DTC
1  FORMAT GENERAL STATUS = *OCT                                          DTC
2  FORMAT    AUTOLOAD ERROR (BIT 2)                                      DTC
3  FORMAT    844 IS CURRENTLY RESERVED BY ANOTHER DSC(BIT 3)             DTC
4  FORMAT    7155 IS CURRENTLY RESERVED BY ANOTHER ACCESS                DTC
5  FORMAT    844 DRIVE OR 7155 CONTROLLER IS BUSY(BIT 1)                 DTC
6  FORMAT    844 DISK DRIVE MALFUNCTION HAS OCCURRED (BIT 4)             DTC
7  FORMAT    CORRECTABLE READ ADDRESS CW ERROR (BIT 6)                   DTC
10 FORMAT    DATA OR ADDRESS CHECKWORD ERROR (BIT 7)                     DTC
11 FORMAT      ERROR RECOVERY IN PROGRESS (BIT 8)                        DTC
12 FORMAT      NON-RECOVERABLE ERROR HAS OCCURRED (BIT 9)                DTC
13 FORMAT    ABNORMAL TERMINATION OF COMMAND (BIT 11)                    DTC
14 FORMAT UNSELECTED STATUS = *OCT                                       DTC
15 FORMAT    SECTOR ALERT ON SECTOR BIT(BIT 11)                          DTC
16 FORMAT    SEEK ERROR (BIT 10)                                         DTC
17 FORMAT    DRIVE BUSY - RESERVED OR IN MOTION (BIT 9)                  DTC
20 FORMAT    DRIVE NOT SELECTED (BIT 8)                                  DTC
21 FORMAT    DRIVE NOT READY (BIT 7)  CHECK IF POWER ON UNIT             DTC
22 FORMAT    DRIVE NOT ON-LINE (BIT 6)                                   DTC
23 FORMAT    THE TEST DRIVE CONNECTED IS NOT AN 844-4X                   DTC
24 FORMAT ACCESS *H CONNECTED                                            DTC
25 FORMAT       DRIVE MAY NOT BE POWERED UP                              DTC
26 FORMAT       DRIVE MAY BE DISABLED FROM 7155/UNIT SELECT              DTC
27 FORMAT       PLEASE CHECK EQUIPMENT/UNIT SELECTION CODE               DTC
30 FORMAT          DRIVE UNIT SELECTED = *OCTB                           DTC
   EQUATE CONNECT=501                                                    DTC
31 B10=16    *INITIALIZE B10 FOR FIRST DISPLAY LINE                      DTC
   MSG 1(SB(0)) TO LINE B10   *DISPLAY GENERAL STATUS                    DTC
   B10=B10+1  *INCREMENT LINE COUNTER                                    DTC
   IF(SB(0) EQ 7777) EXIT TO 98M                                         DTC
54 IF(SB(22) AND 4000 EQ 0) GOTO 55   *ACCESS D                          DTC
   B11 = 0015 
55 IF(SB(22) AND 2000 EQ 0) GOTO 56   *ACCESS C                          DTC
   B11 = 0014 
56 IF(SB(22) AND 1000 EQ 0) GOTO 57   *ACCESS B                          DTC
   B11 = 0013 
57 IF(SB(22) AND 400 EQ 0) GOTO 32    *ACCESS A                          DTC
   B11 = 0012 
32 MSG 24(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
   IF(SB(0) AND 4 EQ 0) GOTO 33    *AUTOLOAD ERROR                       DTC
   MSG 2 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
33 IF(SB(0) AND 2000 EQ 0) GOTO 34   *CONTROLLER RESRVD                  DTC
   MSG 4 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
34 IF(SB(0) AND 10 EQ 0) GOTO 35    *DRIVE RESERVED                      DTC
   MSG 3 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
35 IF(SB(0) AND 20 EQ 0) GOTO 36    *DRIVE MALFUNCTION                   DTC
   MSG 6 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
36 IF(SB(0) AND 2 EQ 0) GOTO 37     *DRIVE BUSY                          DTC
   MSG 5 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
37 IF(SB(0) AND 100 EQ 0) GOTO 40   *CORR ADDRESS ERR                    DTC
   MSG 7 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
40 IF(SB(0) AND 200 EQ 0) GOTO 41   *CHECKWORD ERROR                     DTC
   MSG 10 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
41 IF(SB(0) AND 4000 EQ 0) GOTO 42  *ABNORMAL TERM                       DTC
   MSG 13 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
42 IF(SB(0) AND 400 EQ 0) GOTO 43   *RECOVRY IN PROGR                    DTC
   MSG 11 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
43 IF(SB(0) AND 1000 EQ 0) GOTO 44  *NON-RECOVER ERR                     DTC
   MSG 12 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
44 B10=B10+1                                                             DTC
   IF(OB(CONNECT) EQ 1) GOTO 77                                          DTC
   B11=SB(11) AND 7740                                                   DTC
   MSG 14(B11) TO LINE B10    *DISPLAY UNSELECTED STATUS                 DTC
   B10=B10+1                                                             DTC
   IF(SB(11) EQ 740) EXIT TO 98M                                         DTC
   IF(SB(11) AND 4000 EQ 0) GOTO 45  *SECTOR ALERT                       DTC
   MSG 15 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
45 IF(SB(11) AND 2000 EQ 0) GOTO 46  *SEEKN ERROR                        DTC
   MSG 16 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
46 IF(SB(11) AND 1000 EQ 0) GOTO 47  *DRIVE BUSY                         DTC
   MSG 17 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
47 IF(SB(11) AND 400 NE 0) GOTO 50  *DRIVE SELECTED                      DTC
   MSG 20 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
   MSG 26 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
50 IF(SB(11) AND 200 NE 0) GOTO 51  *DRIVE READY                         DTC
   MSG 21 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
   MSG 25 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
51 IF(SB(11) AND 100 NE 0) GOTO 52  *DRIVE ON-LINE                       DTC
   MSG 22 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
52 IF(SB(11) AND 40 NE 0) GOTO 75   *EQUIPMENT SELECTION                 DTC
   MSG 23 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
53 MSG 27 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
   B11=SB(63)                                                            DTC
   MSG 30(B11) TO LINE B10                                               DTC
75 IF(OB(CONNECT) EQ 1) GOTO 77  *CONTROLLER NOT CONNECTED               DTC
   IF(OB(CONNECT) EQ 2) GOTO 77  *DRIVE NOT CONNECTED                    DTC
   EXIT TO 98M                *EXIT IF DRIVE FAULT                       DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 31                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98M,844FT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98M- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS CONTROL REGISTER,FAULT REGISTER             DTC
*                   AND INTERLOCK REGISTER STATUS ERRORS                 DTC
*                                                                        DTC
*         METHOD -  INSPECTS EACH BIT OF THE FAULT, CONTROL              DTC
*                   AND INTERLOCK STATUS. IF THE BIT                     DTC
*                   CONDITION INDICATES AN ERROR, AN                     DTC
*                   ERROR MESSAGE IS DISPLAYED DESCRIBING                DTC
*                   THE FAILURE.                                         DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - SB(11,12,13)MUST CONTAIN CONTROL,FAULT, AND            DTC
*                 INTERLOCK STATUS                                       DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED - DTC98J                                 DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B2 - CONTROL STATUS                                            DTC
*         B3 - FAULT STATUS                                              DTC
*         B10 - LINE NUMBER OF DISPLAY ON WHICH MESSAGE IS POSTED        DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT CONTROL STATUS ..................*OCT                          DTC
2  FORMAT    END OF CYLINDER DETECTED      (BIT 3)                       DTC
3  FORMAT    SEEK ERROR - END OF TRAVEL    (BIT 2)                       DTC
4  FORMAT    INDEX MARK DETECTED           (BIT 1)                       DTC
5  FORMAT    ON CYLINDER DETECTED          (BIT 7)                       DTC
6  FORMAT    SEEK ERROR - NOT ON CYLINDER  (BIT 6)                       DTC
7  FORMAT    PACK UNSAFE                   (BIT 5)                       DTC
10 FORMAT    SECTOR MARK DETECTED          (BIT 4)                       DTC
11 FORMAT FAULT STATUS ....................*OCT                          DTC
12 FORMAT    SEEK FAULT                    (BIT 7)                       DTC
13 FORMAT    NEG/POS VOLTAGE ERROR         (BIT 6,5)                     DTC
14 FORMAT    CURRENT FAULT                 (BIT 4)                       DTC
15 FORMAT    WRITE AND READ FAULT          (BIT 3)                       DTC
16 FORMAT    WRITE OR READ AND NOT ON CYLINDER FAULT (BIT 2)             DTC
17 FORMAT    AC WRITE FAULT                (BIT 1)                       DTC
20 FORMAT INTERLOCK STATUS ................*OCT                          DTC
21 FORMAT    SPINDLE MOTOR NOT ON          (BIT 7)                       DTC
22 FORMAT    LOCAL POWER SEQUENCE USED     (BIT 6)                       DTC
23 FORMAT    START SWITCH NOT ON           (BIT 5)                       DTC
24 FORMAT    BRUSH CYCLE IN PROGRESS       (BIT 4)                       DTC
25 FORMAT    HEADS NOT LOADED              (BIT 3)                       DTC
26 FORMAT    COVER OPEN,SW OFF,BREAKERS OFF(BIT 2)                       DTC
27 FORMAT    PACK OFF                      (BIT 1)                       DTC
   EQUATE CONNECT=501                                                    DTC
31 B10=B10+1                                                             DTC
   B3=SB(11) AND 7                                                       DTC
   B2=SB(12) AND 7400                                                    DTC
   B2=B2+B3                                                              DTC
   IF(B2 EQ 0) GOTO 40       *CONTROL STATUS GOOD                        DTC
   MSG 1(B2) TO LINE B10                    *CONTROL STATUS              DTC
   B10=B10+1                                                             DTC
   IF(SB(11) AND 4 EQ 0) GOTO 32        *END OF CYLINDER                 DTC
   MSG 2 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
32 IF(SB(11) AND 2 EQ 0) GOTO 33        *SEEK ERROR,EOT                  DTC
   MSG 3 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
33 IF(SB(11) AND 1 EQ 0) GOTO 34        *INDEX MARK                      DTC
   MSG 4 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
34 IF(SB(12) AND 4000 EQ 0) GOTO 35    *ON CYLINDER                      DTC
   MSG 5 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
35 IF(SB(12) AND 2000 EQ 0) GOTO 36    *SEEK ERR,NOT ON CYL              DTC
   MSG 6 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
36 IF(SB(12) AND 1000 EQ 0) GOTO 37    *PACK UNSAFE                      DTC
   MSG 7 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
37 IF(SB(12) AND 400 EQ 0) GOTO 40     *SECTOR MARK                      DTC
   MSG 10 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
40 B3=SB(12) AND 376                                                     DTC
   IF(B3 EQ 0) GOTO 46        *FAULT STATUS GOOD                         DTC
   MSG 11(B3) TO LINE B10                   *FAULT STATUS                DTC
   B10=B10+1                                                             DTC
   IF(SB(12) AND 200 EQ 0) GOTO 41     *SEEK ERROR                       DTC
   MSG 12 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
41 IF(SB(12) AND 140 EQ 0) GOTO 42     *NEG/POS VOLTAGE ERR              DTC
   MSG 13 TO LINE B10                  *POS VOLTAGE ERROR                DTC
   B10=B10+1                                                             DTC
42 IF(SB(12) AND 20 EQ 0) GOTO 43      *CURRENT ERROR                    DTC
   MSG 14 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
43 IF(SB(12) AND 10 EQ 0) GOTO 44      *WRITE . READ ERROR               DTC
   MSG 15 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
44 IF(SB(12) AND 4 EQ 0) GOTO 45       *WR + READ NOT ON CYL             DTC
   MSG 16 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
45 IF(SB(12) AND 2 EQ 0) GOTO 46       *AC WRITE FAULT                   DTC
   MSG 17 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
46 IF(SB(11) AND 500 NE 500) GOTO 57   *IF NOT SEL, NO INTLK             DTC
   B3=SB(13) AND 7760                                                    DTC
   IF(B3 EQ 7560) GOTO 57      *INTERLOCK STATUS GOOD                    DTC
   IF(SB(11) AND 400 EQ 0) GOTO 57                                       DTC
   MSG 20(B3) TO LINE B10                  *INTERLOCK STATUS             DTC
   B10=B10+1                                                             DTC
47 IF(SB(13) AND 2000 NE 0) GOTO 50    *SPINDLE MOTOR NOT ON             DTC
   MSG 21 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
50 IF(SB(13) AND 1000 NE 0) GOTO 51    *LOCAL POWER SEQ                  DTC
   MSG 22 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
51 IF(SB(13) AND 400 NE 0) GOTO 52     *START SWITCH NOT ON              DTC
   MSG 23 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
52 IF(SB(13) AND 200 EQ 0) GOTO 53     *BRUSH CYCLE IN PROGR             DTC
   MSG 24 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
53 IF(SB(13) AND 100 NE 0) GOTO 54     *HEADS LOADED                     DTC
   MSG 25 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
54 IF(SB(13) AND 40 NE 0) GOTO 55      *PHYSICAL ENABLE                  DTC
   MSG 26 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
55 IF(SB(13) AND 20 NE 0) GOTO 57      *PACK ON                          DTC
   MSG 27 TO LINE B10                                                    DTC
57 B10=B10+1                                                             DTC
   EXIT TO 98N                                                           DTC
65 B10=B10+1                                                             DTC
   PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 31                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98N,844FT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98N- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS DETAILED STATUS ERRORS                      DTC
*                                                                        DTC
*         METHOD -  INSPECTS EACH BIT OF DETAILED STATUS.                DTC
*                   IF THE BIT CONDITION INDICATES AN ERROR              DTC
*                   AN ERROR MESSAGE IS DISPLAYED DESCRIBING             DTC
*                   THE FAILURE.                                         DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - SB(1-6)MUST CONTAIN DETAILED STATUS                    DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         SUBMODULES REFERENCED - DTC98O                                 DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B2 - WORKING REGISTER                                          DTC
*         B4 - FAILING CYL ADDR AND WORKING REGISTER                     DTC
*         B5 - FAILING TRACK ADDR                                        DTC
*         B6 - FAILING SECTOR ADDR                                       DTC
*         B9 - NUMBER OF FORMAT STATEMENT DISPLAYED                      DTC
*              AND WORKING REGISTER                                      DTC
*         B10 - LINE NUMBER OF DISPLAY ON WHICH MESSAGE IS POSTED        DTC
*         B11 - WORKING REGISTER                                         DTC
*         B12 - WORKING REGISTER                                         DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT 844 DETAILED STATUS                                            DTC
2  FORMAT    CONTROLWARE REVISION NUMBER IS *OCTB                        DTC
3  FORMAT    SOFTWARE IS COMPATIBLE WITH MA401 CONTROLWARE               DTC
4  FORMAT    7155 SUBSYSTEM CONTROLWARE IS BEING USED                    DTC
5  FORMAT    ILLEGAL PARAMETER                                           DTC
6  FORMAT    ILLEGAL NUMBER OF PARAMETERS                                DTC
7  FORMAT    THE ERROR RATE THRESHOLD HAS BEEN EXCEEDED                  DTC
10 FORMAT    THE STROBE/OFFSET RETRY COUNT IS *OCTB                      DTC
11 FORMAT    ADDRESS ERROR                                               DTC
12 FORMAT    CYLINDER ERROR                                              DTC
13 FORMAT    TRACK ERROR                                                 DTC
14 FORMAT    SECTOR NUMBER ERROR                                         DTC
15 FORMAT    ADDRESS CHECKWORD ERROR                                     DTC
16 FORMAT    NON-CORRECTABLE ADDRESS CHECKWORD ERROR                     DTC
17 FORMAT    DATA CHECKWORD ERROR                                        DTC
20 FORMAT    NON-CORRECTABLE DATA CHECKWORD ERROR                        DTC
23 FORMAT    AT CYLINDER=*OCTB  TRACK=*OCTB  SECTOR=*OCTB                DTC
24 FORMAT    THE SECTOR IS FLAWED                                        DTC
25 FORMAT    THE TRACK IS FLAWED                                         DTC
26 FORMAT    FACTORY MANUFACTURING DATA FLAW MAP FLAG IS SET             DTC
27 FORMAT    UTILITY FLAW MAP FLAG IS SET                                DTC
30 FORMAT LAST 4 FUNCTIONS EXECUTED= *OCT *OCT *OCT *OCT                 DTC
34 B3=B10                                                                DTC
   B10=B10+1                                                             DTC
   B11=SB(4) AND 1700      *DISPLAY CONTROLWARE REV NUMBER               DTC
   IF(SB(0) AND 4 EQ 0) GOTO 36  *OMIT INFO ABOUT CNTLWARE               DTC
   MSG 2(B11) TO LINE B10  *                                             DTC
   B10=B10+1               *                                             DTC
   IF(SB(4) AND 4000 EQ 0) GOTO 35  *7155 CONTROLWARE USED               DTC
   B9=3                                                                  DTC
   GOSUB 61                                                              DTC
35 IF(SB(4) AND 2000 EQ 0) GOTO 36  *7155 CONTROLWARE USED               DTC
   B9=4                                                                  DTC
   GOSUB 61                                                              DTC
36 IF(SB(3) AND 10 EQ 0) GOTO 37   *ILLEGAL PARAMETER                    DTC
   B9=5                                                                  DTC
   GOSUB 61                                                              DTC
37 IF(SB(3) AND 4 EQ 0) GOTO 40    *ILLEGAL PARAMETERS                   DTC
   B9=6                                                                  DTC
   GOSUB 61                                                              DTC
40 IF(SB(3) AND 2 EQ 0) GOTO 41    *ERROR RATE THRESH EXCED              DTC
   B9=7                                                                  DTC
   GOSUB 61                                                              DTC
41 B11=SB(1) AND 7760              *STROBE/OFFSET RETRY CT               DTC
   IF(B11 EQ 0) GOTO 42             *OMIT DISPLAYING COUNT               DTC
   MSG 10(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
42 IF(SB(1) AND 10 EQ 0) GOTO 43    *ADDRESS ERROR                       DTC
   B9=11                                                                 DTC
   GOSUB 61                                                              DTC
43 IF(SB(1) AND 4 EQ 0) GOTO 44    *CYLINDER NUMBER ERROR                DTC
   B9=12                                                                 DTC
   GOSUB 61                                                              DTC
44 IF(SB(1) AND 2 EQ 0) GOTO 45    *TRACK NUMBER ERROR                   DTC
   B9=13                                                                 DTC
   GOSUB 61                                                              DTC
45 IF(SB(1) AND 1 EQ 0) GOTO 46    *SECTOR NUMBER ERROR                  DTC
   B9=14                                                                 DTC
   GOSUB 61                                                              DTC
46 IF(SB(2) AND 4000 EQ 0) GOTO 47    *ADDR CHECKWORD ERROR              DTC
   B9=15                                                                 DTC
   GOSUB 61                                                              DTC
47 IF(SB(2) AND 2000 EQ 0) GOTO 50    *NON-CORR ADDR CKWD ER             DTC
   B9=16                                                                 DTC
   GOSUB 61                                                              DTC
50 IF(SB(2) AND 1000 EQ 0) GOTO 51    *DATA CHECKWORD ERR                DTC
   B9=17                                                                 DTC
   GOSUB 61                                                              DTC
51 IF(SB(2) AND 400 EQ 0) GOTO 52    *NON-CORR DATA CKWD ERR             DTC
   B9=20                                                                 DTC
   GOSUB 61                                                              DTC
52 B11=SB(5) AND 7770     *CYLINDER NUMBER                               DTC
   B11=B11 RS 3                                                          DTC
   B9=SB(6) AND 1                                                        DTC
   B9=B9 LS 11B                                                          DTC
   B4=B11+B9                                                             DTC
53 B11=SB(5) AND 7        *TRACK NUMBER                                  DTC
   B11=B11 LS 2                                                          DTC
   B9=SB(6) AND 6000                                                     DTC
   B9=B9 RS 12                                                           DTC
   B5=B11+B9                                                             DTC
54 B11=SB(6) AND 1740     *SECTOR NUMBER                                 DTC
   B6=B11 RS 5                                                           DTC
   MSG 23(B4,B5,B6) TO LINE B10                                          DTC
   B10=B10+1                                                             DTC
55 IF(SB(6) AND 20 EQ 0) GOTO 56    *SECTOR FLAWED                       DTC
   B9=24                                                                 DTC
   GOSUB 61                                                              DTC
56 IF(SB(6) AND 10 EQ 0) GOTO 57    *TRACK FLAWED                        DTC
   B9=25                                                                 DTC
   GOSUB 61                                                              DTC
57 IF(SB(6) AND 4 EQ 0) GOTO 60    *FACTORY MFG DATA FLAW                DTC
   B9=26                                                                 DTC
   GOSUB 61                                                              DTC
60 IF(SB(6) AND 2 EQ 0) GOTO 62    *UTILITY FLAW MAP FLAG                DTC
   B9=27                                                                 DTC
   GOSUB 61                                                              DTC
   GOTO 62                                                               DTC
61 MSG B9 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
   RETURN                                                                DTC
62 IF(B10 EQ B3) GOTO 63                                                 DTC
   MSG 1 TO LINE B3                                                      DTC
   B2=SB(22) AND 377           *LAST FUNCTION                            DTC
   B11=SB(23) AND 776          *SECOND LAST FUNCTION                     DTC
   B11=B11 RS 4                                                          DTC
   B12=SB(23) AND 17           *THIRD LAST FUNCTION                      DTC
   B9=SB(24) AND 7400                                                    DTC
   B9=B9 RS 4                                                            DTC
   B12=B12+B9                                                            DTC
   B3=SB(24) AND 377                                                     DTC
   MSG 30(B2,B11,B12,B3) TO LINE B10                                     DTC
   B10=B10+1                                                             DTC
63 EXIT TO 98O                                                           DTC
   END 34                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98O,844FT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98O- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS EXTENDED DETAIL STATUS ERRORS.              DTC
*                                                                        DTC
*         METHOD -  INSPECTS EACH BIT OF EX.DETAILED STATUS.             DTC
*                   IF THE BIT CONDITION INDICATES AN ERROR              DTC
*                   AN ERROR MESSAGE IS DISPLAYED DESCRIBING             DTC
*                   THE FAILURE.                                         DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - SB(4) MUST CONTAIN CONTROLWARE INFORMATION             DTC
*                 SB(20,21) MUST CONTAIN EXTENDED DETAIL STATUS          DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B10 - LINE NUMBER OF DISPLAY ON WHICH MESSAGE IS POSTED        DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT EXTENDED DETAIL STATUS                                         DTC
2  FORMAT    LOST DRIVE CLOCK                                            DTC
3  FORMAT    NON-CORRECTABLE CHECKWORD ERROR                             DTC
4  FORMAT    DATA PARITY ERROR                                           DTC
5  FORMAT    PROCESSOR INSTRUCTION TIME-OUT                              DTC
6  FORMAT    LOST CONTROL WORD                                           DTC
7  FORMAT    UP/DOWN COUNT NON ZERO                                      DTC
10 FORMAT    PACK UNSAFE                                                 DTC
11 FORMAT    BUFFER OUTPUT REGISTER PARITY ERROR                         DTC
12 FORMAT    WRITE VERIFY ERROR                                          DTC
13 FORMAT    SYNC BYTE SEARCH IN PROGRESS                                DTC
14 FORMAT    SECTOR LENGTH VIOLATION                                     DTC
15 FORMAT    LOST DATA                                                   DTC
16 FORMAT    SYNC BYTE MISCOMPARE                                        DTC
17 FORMAT    CHECKWORD ERROR - CORRECTION IN PROGRESS                    DTC
20 FORMAT    BUFFER OUTPUT REGISTER FULL                                 DTC
21 FORMAT    BUFFER INPUT REGISTER FULL                                  DTC
22 FORMAT    CHANNEL RESERVED                                            DTC
23 FORMAT    DEADMAN TIME-OUT                                            DTC
24 FORMAT    CHANNEL INACTIVE                                            DTC
25 FORMAT    DATA FIELD ERROR                                            DTC
26 FORMAT CONTROLWARE REVISION NUMBER IS *OCTB                           DTC
27 FORMAT SOFTWARE IS COMPATIBLE WITH MA401 CONTROLWARE                  DTC
30 FORMAT 7155 SUBSYSTEM CONTROLWARE IS BEING USED                       DTC
37 B3=B10                                                                DTC
   B10=B10+1                                                             DTC
   IF(SB(20) AND 4000 EQ 0) GOTO 40   *LOST DRIVE CLOCK                  DTC
   B10=B10+1                                                             DTC
   MSG 2 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
40 IF(SB(20) AND 200 EQ 0) GOTO 41    *NON-CORR CKWD ERR                 DTC
   MSG 3 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
41 IF(SB(20) AND 100 EQ 0) GOTO 42    *DATA PARITY ERROR                 DTC
   MSG 4 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
42 IF(SB(20) AND 40 EQ 0) GOTO 43     *INSTRUCT. TIME-OUT                DTC
   MSG 5 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
43 IF(SB(20) AND 20 EQ 0) GOTO 44     *LOST CONTROL WORD                 DTC
   MSG 6 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
44 IF(SB(20) AND 10 EQ 0) GOTO 45     *UP/DOWN CT NON-ZERO               DTC
   MSG 7 TO LINE B10                                                     DTC
   B10=B10+1                                                             DTC
45 IF(SB(20) AND 4 EQ 0) GOTO 46      *PACK UNSAFE                       DTC
   MSG 10 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
46 IF(SB(20) AND 2 EQ 0) GOTO 47      *BUFFER OUT REG PAR E              DTC
   MSG 11 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
47 IF(SB(20) AND 1 EQ 0) GOTO 50      *WRITE VERIFY ERR                  DTC
   MSG 12 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
50 IF(SB(21) AND 4000 EQ 0) GOTO 51   *SYNC BYTE SEARCH                  DTC
   MSG 13 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
51 IF(SB(21) AND 2000 EQ 0) GOTO 52   *SECTOR LENGTH VIOLAT              DTC
   MSG 14 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
52 IF(SB(21) AND 1000 EQ 0) GOTO 53   *LOST DATA                         DTC
   MSG 15 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
53 IF(SB(21) AND 400 EQ 0) GOTO 54    *SYNC BYTE MISCOMPARE              DTC
   MSG 16 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
54 IF(SB(21) AND 200 EQ 0) GOTO 55    *CKWD ERR CORRECTION               DTC
   MSG 17 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
55 IF(SB(21) AND 100 EQ 0) GOTO 56    *BUFFER OUT REG FULL               DTC
   MSG 20 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
56 IF(SB(21) AND 40 EQ 0) GOTO 57     *BUFFER IN REG FULL                DTC
   MSG 21 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
57 IF(SB(21) AND 20 EQ 0) GOTO 60     *CHAN RESERVED                     DTC
   MSG 22 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
60 IF(SB(21) AND 10 EQ 0) GOTO 61     *DEADMAN TIME-OUT                  DTC
   MSG 23 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
61 IF(SB(21) AND 4 EQ 0) GOTO 62      *CHAN INACTIVE                     DTC
   MSG 24 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
62 IF(SB(21) AND 2 EQ 0) GOTO 66      *DATA FIELD ERR                    DTC
   MSG 25 TO LINE B10                                                    DTC
   B10=B10+1                                                             DTC
66 B11=SB(4) AND 1700                                                    DTC
   IF(SB(0) AND 4 EQ 0) GOTO 71       *CONTROLWARE NUMBER                DTC
   MSG 26(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
67 IF(SB(4) AND 4000 EQ 0) GOTO 70    *7155 CONTROLWARE                  DTC
   MSG 27(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
70 IF(SB(4) AND 2000 EQ 0) GOTO 71    *7155 CONTROLWARE                  DTC
   MSG 30(B11) TO LINE B10                                               DTC
   B10=B10+1                                                             DTC
71 IF(B3 EQ B10) GOTO 72                                                 DTC
   MSG 1 TO LINE B3                                                      DTC
72 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 37                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98P,844HT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98P- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS CONTENTS OF REGISTERS_                      DTC
*                                                                        DTC
*                            B0-B15                                      DTC
*                            BA,WC,LF,WT                                 DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING OB WORDS_                         DTC
*                                                                        DTC
*                            20-27,300-327,400-427,500-504               DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING IB WORDS_                         DTC
*                                                                        DTC
*                            20-27,400-437,500-504                       DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING SB WORDS_                         DTC
*                                                                        DTC
*                            0-37B                                       DTC
*                                                                        DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY- THERE ARE NO ENTRY REQUIREMENTS                         DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*                                                                        DTC
*         BUFFERS USED - IB,SB,OB                                        DTC
*                                                                        DTC
1  FORMAT GENERAL STATUS = *OCT, DETAILED STATUS                         DTC
2  FORMAT          INPUT CHANNEL STATUS                                  DTC
3  FORMAT              OUTPUT BUFFER                                     DTC
4  FORMAT              INPUT BUFFER                                      DTC
27 FORMAT CH08=*H*H  CH09=*H*H  CH10=*H*H  CH11=*H*H                     DTC
30 FORMAT              STATUS BUFFER                                     DTC
5  FORMAT B0=*OCTB   B1=*OCTB  B2=*OCTB  B3=*OCTB  B4=*OCTB              DTC
6  FORMAT B5=*OCTB   B6=*OCTB  B7=*OCTB  B8=*OCTB  B9=*OCTB              DTC
7  FORMAT B10=*OCTB  B11=*OCTB B12=*OCTB B13=*OCTB B14=*OCTB             DTC
10 FORMAT B15=*OCTB  BA=*OCTB  WC=*OCTB  LF=*OCTB  WT=*OCTB              DTC
11 FORMAT 000  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
12 FORMAT 010  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
13 FORMAT 020  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
14 FORMAT 030  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
15 FORMAT 300  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
16 FORMAT 310  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
17 FORMAT 320  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
20 FORMAT 400  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
21 FORMAT 410  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
22 FORMAT 420  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
23 FORMAT 430  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
24 FORMAT 440  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
25 FORMAT 500  *OCT *OCT *OCT *OCT *OCT                                  DTC
/                                                                        DTC
40 MSG 5 (B0,B1,B2,B3,B4) TO LINE 1                                      DTC
   MSG 6 (B5,B6,B7,B8,B9) TO LINE 2                                      DTC
   MSG 7 (B10,B11,B12,B13,B14) TO LINE 3                                 DTC
   MSG 10 (B15,BA,WC,LF,WT) TO LINE 4                                    DTC
/         DISPLAY GENERAL STATUS                                         DTC
   RES DRIVE, FAULT,ABT 50                                               DTC
   STATUS GENERAL, ABT 50                                                DTC
   MSG 1 (SB(0)) TO LINE 5                                               DTC
/         DISPLAY INPUT CHANNEL STATUSES                                 DTC
50 MSG 2 TO LINE 13                                                      DTC
   STATUS CHANNEL, ABT 54                                                DTC
   MSG 27 10 WORDS FROM SB(21) TO LINE 14                                DTC
/         DISPLAY DETAILED STATUS                                        DTC
54 STATUS DETAIL, ABT 60                                                 DTC
   MSG 30 TO LINE 6                                                      DTC
   MSG 11 10 WORDS FROM SB(0) TO LINE 7                                  DTC
   MSG 12 10 WORDS FROM SB(10) TO LINE 10                                DTC
   MSG 13 10 WORDS FROM SB(20) TO LINE 11                                DTC
   MSG 14 10 WORDS FROM SB(30) TO LINE 12                                DTC
/         DISPLAY OUTPUT BUFFER                                          DTC
60 MSG 3 TO LINE 15                                                      DTC
   MSG 13 10 WORDS FROM OB(20) TO LINE 16                                DTC
   MSG 15 10 WORDS FROM OB(300) TO LINE 17                               DTC
   MSG 16 10 WORDS FROM OB(310) TO LINE 20                               DTC
   MSG 17 10 WORDS FROM OB(320) TO LINE 21                               DTC
   MSG 20 10 WORDS FROM OB(400) TO LINE 22                               DTC
   MSG 21 10 WORDS FROM OB(410) TO LINE 23                               DTC
   MSG 22 10 WORDS FROM OB(420) TO LINE 24                               DTC
   MSG 23 10 WORDS FROM OB(430) TO LINE 25                               DTC
   MSG 24 10 WORDS FROM OB(440) TO LINE 26                               DTC
   MSG 25 5 WORDS FROM OB(500) TO LINE 27                                DTC
   MSG 4 TO LINE 30                                                      DTC
   MSG 13 10 WORDS FROM IB(20) TO LINE 31                                DTC
   MSG 20 10 WORDS FROM IB(400) TO LINE 32                               DTC
   MSG 21 10 WORDS FROM IB(410) TO LINE 33                               DTC
   MSG 22 10 WORDS FROM IB(420) TO LINE 34                               DTC
   MSG 23 10 WORDS FROM IB(430) TO LINE 35                               DTC
   MSG 25 5 WORDS FROM IB(500) TO LINE 36                                DTC
/                                                                        DTC
   PICTURE                                                               DTC
   PAUSE                                                                 DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 40                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98Q,844HT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98Q- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS FOLLOWING OB WORDS_                         DTC
*                                                                        DTC
*                            300-447,500-504                             DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING IB WORDS_                         DTC
*                                                                        DTC
*                            300-447,500-504                             DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING SB WORDS_                         DTC
*                                                                        DTC
*                            0-37B                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         ENTRY- THERE ARE NO ENTRY REQUIREMENTS                         DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED - IB,SB,OB                                        DTC
*                                                                        DTC
1  FORMAT               STATUS BUFFER                                    DTC
2  FORMAT              OUTPUT BUFFER                                     DTC
3  FORMAT              INPUT BUFFER                                      DTC
4  FORMAT 000  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
5  FORMAT 010  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
6  FORMAT 020  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
7  FORMAT 030  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
10 FORMAT 040  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
11 FORMAT 050  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
12 FORMAT 060  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
13 FORMAT 300  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
14 FORMAT 310  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
15 FORMAT 320  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
16 FORMAT 330  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
17 FORMAT 340  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
20 FORMAT 350  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
21 FORMAT 360  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
22 FORMAT 370  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
23 FORMAT 400  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
24 FORMAT 410  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
25 FORMAT 420  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
26 FORMAT 430  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
27 FORMAT 440  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
30 FORMAT 500  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
/                                                                        DTC
/         DISPLAY OUTPUT BUFFER                                          DTC
60 MSG 2 TO LINE 1                                                       DTC
   MSG 4 10 WORDS FROM OB(0) TO LINE 2                                   DTC
   MSG 13 10 WORDS FROM OB(300) TO LINE 3                                DTC
   MSG 14 10 WORDS FROM OB(310) TO LINE 4                                DTC
   MSG 15 10 WORDS FROM OB(320) TO LINE 5                                DTC
   MSG 16 10 WORDS FROM OB(330) TO LINE 6                                DTC
   MSG 17 10 WORDS FROM OB(340) TO LINE 7                                DTC
   MSG 20 10 WORDS FROM OB(350) TO LINE 10                               DTC
   MSG 21 10 WORDS FROM OB(360) TO LINE 11                               DTC
   MSG 22 10 WORDS FROM OB(370) TO LINE 12                               DTC
   MSG 23 10 WORDS FROM OB(400) TO LINE 13                               DTC
   MSG 24 10 WORDS FROM OB(410) TO LINE 14                               DTC
   MSG 25 10 WORDS FROM OB(420) TO LINE 15                               DTC
   MSG 26 10 WORDS FROM OB(430) TO LINE 16                               DTC
   MSG 27 10 WORDS FROM OB(440) TO LINE 17                               DTC
   MSG 30 5 WORDS FROM OB(500) TO LINE 20                                DTC
/         DISPLAY INPUT BUFFER                                           DTC
   MSG 3 TO LINE 21                                                      DTC
   MSG 4 10 WORDS FROM IB(0) TO LINE 22                                  DTC
   MSG 13 10 WORDS FROM IB(300) TO LINE 23                               DTC
   MSG 14 10 WORDS FROM IB(310) TO LINE 24                               DTC
   MSG 15 10 WORDS FROM IB(320) TO LINE 25                               DTC
   MSG 16 10 WORDS FROM IB(330) TO LINE 26                               DTC
   MSG 17 10 WORDS FROM IB(340) TO LINE 27                               DTC
   MSG 20 10 WORDS FROM IB(350) TO LINE 30                               DTC
   MSG 21 10 WORDS FROM IB(360) TO LINE 31                               DTC
   MSG 22 10 WORDS FROM IB(370) TO LINE 32                               DTC
   MSG 23 10 WORDS FROM IB(400) TO LINE 33                               DTC
   MSG 24 10 WORDS FROM IB(410) TO LINE 34                               DTC
   MSG 25 10 WORDS FROM IB(420) TO LINE 35                               DTC
   MSG 26 10 WORDS FROM IB(430) TO LINE 36                               DTC
   MSG 27 10 WORDS FROM IB(440) TO LINE 37                               DTC
   MSG 30 5 WORDS FROM OB(500) TO LINE 40                                DTC
/                                                                        DTC
   MSG 1 TO LINE 41                                                      DTC
   MSG 4 10 WORDS FROM SB(0) TO LINE 42                                  DTC
   MSG 5 10 WORDS FROM SB(10) TO LINE 43                                 DTC
   MSG 6 10 WORDS FROM SB(20) TO LINE 44                                 DTC
   MSG 7 10 WORDS FROM SB(30) TO LINE 45                                 DTC
   PICTURE                                                               DTC
   PAUSE                                                                 DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 60                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98R,844FT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98R- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS CONTENTS OF REGISTERS_                      DTC
*                                                                        DTC
*                            B0-B15                                      DTC
*                            BA,WC,LF,WT                                 DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING OB WORDS_                         DTC
*                                                                        DTC
*                            20-27,300-327,400-427,500-504               DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING IB WORDS_                         DTC
*                                                                        DTC
*                            20-27,400-437,500-504                       DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING SB WORDS_                         DTC
*                                                                        DTC
*                            0-37B                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         ENTRY- THERE ARE NO ENTRY REQUIREMENTS                         DTC
*                                                                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
*         BUFFERS USED - IB,SB,OB                                        DTC
*                                                                        DTC
1  FORMAT GENERAL STATUS = *OCT, DETAILED STATUS                         DTC
2  FORMAT          INPUT CHANNEL STATUS                                  DTC
3  FORMAT              OUTPUT BUFFER                                     DTC
4  FORMAT              INPUT BUFFER                                      DTC
25 FORMAT CH00=*H*H  CH01=*H*H  CH02=*H*H  CH03=*H*H                     DTC
26 FORMAT CH04=*H*H  CH05=*H*H  CH06=*H*H  CH07=*H*H                     DTC
27 FORMAT CH08=*H*H  CH09=*H*H  CH10=*H*H  CH11=*H*H                     DTC
30 FORMAT              STATUS BUFFER                                     DTC
5  FORMAT B0=*OCTB   B1=*OCTB  B2=*OCTB  B3=*OCTB  B4=*OCTB              DTC
6  FORMAT B5=*OCTB   B6=*OCTB  B7=*OCTB  B8=*OCTB  B9=*OCTB              DTC
7  FORMAT B10=*OCTB  B11=*OCTB B12=*OCTB B13=*OCTB B14=*OCTB             DTC
10 FORMAT B15=*OCTB  BA=*OCTB  WC=*OCTB  LF=*OCTB  WT=*OCTB              DTC
11 FORMAT 000  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
12 FORMAT 010  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
13 FORMAT 020  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
14 FORMAT 300  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
15 FORMAT 310  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
16 FORMAT 320  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
17 FORMAT 400  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
20 FORMAT 410  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
21 FORMAT 420  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
22 FORMAT 430  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
23 FORMAT 440  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
24 FORMAT 500  *OCT *OCT *OCT *OCT *OCT                                  DTC
/                                                                        DTC
40 MSG 5 (B0,B1,B2,B3,B4) TO LINE 1                                      DTC
   MSG 6 (B5,B6,B7,B8,B9) TO LINE 2                                      DTC
   MSG 7 (B10,B11,B12,B13,B14) TO LINE 3                                 DTC
   MSG 10 (B15,BA,WC,LF,WT) TO LINE 4                                    DTC
/         DISPLAY GENERAL STATUS                                         DTC
   RES DRIVE, FAULT,ABT 50                                               DTC
   STATUS GENERAL, ABT 50                                                DTC
   MSG 1 (SB(0)) TO LINE 6                                               DTC
/         DISPLAY INPUT CHANNEL STATUSES                                 DTC
50 MSG 2 TO LINE 13                                                      DTC
   STATUS CHANNEL, ABT 54                                                DTC
   MSG 25 10 WORDS FROM SB(1) TO LINE 14                                 DTC
   MSG 26 10 WORDS FROM SB(11) TO LINE 15                                DTC
   MSG 27 10 WORDS FROM SB(21) TO LINE 16                                DTC
/         DISPLAY DETAILED STATUS                                        DTC
54 STATUS DETAIL, ABT 60                                                 DTC
   MSG 11 10 WORDS FROM SB(0) TO LINE 7                                  DTC
   MSG 12 10 WORDS FROM SB(10) TO LINE 10                                DTC
   MSG 13 4 WORDS FROM SB(20) TO LINE 11                                 DTC
/         DISPLAY OUTPUT BUFFER                                          DTC
60 MSG 3 TO LINE 21                                                      DTC
   MSG 11 10 WORDS FROM OB(0) TO LINE 22                                 DTC
   MSG 12 10 WORDS FROM OB(10) TO LINE 23                                DTC
   MSG 13 10 WORDS FROM OB(20) TO LINE 24                                DTC
   MSG 14 10 WORDS FROM OB(300) TO LINE 25                               DTC
   MSG 15 10 WORDS FROM OB(310) TO LINE 26                               DTC
   MSG 16 10 WORDS FROM OB(320) TO LINE 27                               DTC
   MSG 17 10 WORDS FROM OB(400) TO LINE 30                               DTC
   MSG 20 10 WORDS FROM OB(410) TO LINE 31                               DTC
   MSG 21 10 WORDS FROM OB(420) TO LINE 32                               DTC
   MSG 22 10 WORDS FROM OB(430) TO LINE 33                               DTC
   MSG 23 10 WORDS FROM OB(440) TO LINE 34                               DTC
   MSG 24 5 WORDS FROM OB(500) TO LINE 35                                DTC
   MSG 4 TO LINE 37                                                      DTC
   MSG 11 10 WORDS FROM IB(0) TO LINE 40                                 DTC
   MSG 12 10 WORDS FROM IB(10) TO LINE 41                                DTC
   MSG 13 10 WORDS FROM IB(20) TO LINE 42                                DTC
   MSG 20 10 WORDS FROM IB(410) TO LINE 43                               DTC
   MSG 21 10 WORDS FROM IB(420) TO LINE 44                               DTC
   MSG 22 10 WORDS FROM IB(430) TO LINE 45                               DTC
   MSG 23 10 WORDS FROM IB(440) TO LINE 46                               DTC
   MSG 24 5 WORDS FROM IB(500) TO LINE 47                                DTC
/                                                                        DTC
   PICTURE                                                               DTC
   PAUSE                                                                 DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 40                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98S,844FT. (03,05),LOCK                                     DTC
**                                                                       DTC
*         DTC98S- DESCRIPTION                                            DTC
*                                                                        DTC
*                                                                        DTC
*         PURPOSE - DISPLAYS FOLLOWING OB WORDS_                         DTC
*                                                                        DTC
*                            300-447,500-504                             DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING IB WORDS_                         DTC
*                                                                        DTC
*                            300-447,500-504                             DTC
*                                                                        DTC
*                   DISPLAYS FOLLOWING SB WORDS_                         DTC
*                                                                        DTC
*                            0-37B                                       DTC
*                                                                        DTC
/                                                                        DTC
*                                                                        DTC
*         ENTRY - THERE ARE NO ENTRY REQUIREMENTS                        DTC
*                                                                        DTC
*         EXIT - THERE ARE NO EXIT CONDITIONS SET                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*         BUFFERS USED - IB,SB,OB                                        DTC
*                                                                        DTC
*                                                                        DTC
1  FORMAT               STATUS BUFFER                                    DTC
2  FORMAT              OUTPUT BUFFER                                     DTC
3  FORMAT              INPUT BUFFER                                      DTC
4  FORMAT 000  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
5  FORMAT 010  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
6  FORMAT 020  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
7  FORMAT 030  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
10 FORMAT 040  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
11 FORMAT 050  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
12 FORMAT 060  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
13 FORMAT 300  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
14 FORMAT 310  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
15 FORMAT 320  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
16 FORMAT 330  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
17 FORMAT 340  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
20 FORMAT 350  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
21 FORMAT 360  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
22 FORMAT 370  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
23 FORMAT 400  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
24 FORMAT 410  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
25 FORMAT 420  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
26 FORMAT 430  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
27 FORMAT 440  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
30 FORMAT 500  *OCT *OCT *OCT *OCT *OCT *OCT *OCT *OCT                   DTC
/                                                                        DTC
/         DISPLAY OUTPUT BUFFER                                          DTC
60 MSG 2 TO LINE 1                                                       DTC
   MSG 4 10 WORDS FROM OB(0) TO LINE 2                                   DTC
   MSG 13 10 WORDS FROM OB(300) TO LINE 3                                DTC
   MSG 14 10 WORDS FROM OB(310) TO LINE 4                                DTC
   MSG 15 10 WORDS FROM OB(320) TO LINE 5                                DTC
   MSG 16 10 WORDS FROM OB(330) TO LINE 6                                DTC
   MSG 17 10 WORDS FROM OB(340) TO LINE 7                                DTC
   MSG 20 10 WORDS FROM OB(350) TO LINE 10                               DTC
   MSG 21 10 WORDS FROM OB(360) TO LINE 11                               DTC
   MSG 22 10 WORDS FROM OB(370) TO LINE 12                               DTC
   MSG 23 10 WORDS FROM OB(400) TO LINE 13                               DTC
   MSG 24 10 WORDS FROM OB(410) TO LINE 14                               DTC
   MSG 25 10 WORDS FROM OB(420) TO LINE 15                               DTC
   MSG 26 10 WORDS FROM OB(430) TO LINE 16                               DTC
   MSG 27 10 WORDS FROM OB(440) TO LINE 17                               DTC
   MSG 30 5 WORDS FROM OB(500) TO LINE 20                                DTC
/         DISPLAY INPUT BUFFER                                           DTC
   MSG 3 TO LINE 21                                                      DTC
   MSG 4 10 WORDS FROM IB(0) TO LINE 22                                  DTC
   MSG 13 10 WORDS FROM IB(300) TO LINE 23                               DTC
   MSG 14 10 WORDS FROM IB(310) TO LINE 24                               DTC
   MSG 15 10 WORDS FROM IB(320) TO LINE 25                               DTC
   MSG 16 10 WORDS FROM IB(330) TO LINE 26                               DTC
   MSG 17 10 WORDS FROM IB(340) TO LINE 27                               DTC
   MSG 20 10 WORDS FROM IB(350) TO LINE 30                               DTC
   MSG 21 10 WORDS FROM IB(360) TO LINE 31                               DTC
   MSG 22 10 WORDS FROM IB(370) TO LINE 32                               DTC
   MSG 23 10 WORDS FROM IB(400) TO LINE 33                               DTC
   MSG 24 10 WORDS FROM IB(410) TO LINE 34                               DTC
   MSG 25 10 WORDS FROM IB(420) TO LINE 35                               DTC
   MSG 26 10 WORDS FROM IB(430) TO LINE 36                               DTC
   MSG 27 10 WORDS FROM IB(440) TO LINE 37                               DTC
   MSG 30 5 WORDS FROM OB(500) TO LINE 40                                DTC
/                                                                        DTC
   MSG 1 TO LINE 41                                                      DTC
   MSG 4 10 WORDS FROM SB(0) TO LINE 42                                  DTC
   MSG 5 10 WORDS FROM SB(10) TO LINE 43                                 DTC
   MSG 6 10 WORDS FROM SB(20) TO LINE 44                                 DTC
   MSG 7 10 WORDS FROM SB(30) TO LINE 45                                 DTC
   PICTURE                                                               DTC
   PAUSE                                                                 DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 60                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98T,844FT,(03,05),LOCK 
**
*         DTC98T - DESCRIPTION
* 
*         PURPOSE - 
*         DISPLAY *ABNORMAL GENERAL STATUS ABORT* MESSAGE.
* 
*         METHOD -
*         WHEN THE CALLING MODULE IS UNABLE TO
*         INTERPRET THE FAILING DETAILED STATUS, THIS MODULE
*         WILL THEN USE THE INFORMATION IN THE STATUS BUFFER, 
*         EC, EM, EA, AND THE LF-REGISTERS TO CREATE AN 
*         *ABNORMAL GENERAL STATUS ABORT* MESSAGE.
* 
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X  DISK DRIVE DIAGNOSTIC 
2  FORMAT DTC*H - ABNORMAL GENERAL STATUS ABORT 
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   MSG 2 (B1) TO LINE 2      *MODULE NUMBER AND ABN. GEN. STAT. 
24 MSG 4(EA,B0,EC) TO LINE 4                                             DTC
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6                                                   DTC
   MSG 13 TO LINE 10
   MSG 14 5 WORDS FROM SB(1) TO LINE 11 
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 12
   MSG 16 5 WORDS FROM SB(13) TO LINE 13
   MSG 17 5 WORDS FROM SB(20) TO LINE 14
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC98U,844HT,(03,05),LOCK 
**
*         DTC98T - DESCRIPTION
* 
*         PURPOSE - 
*         DISPLAY *ABNORMAL GENERAL STATUS ABORT* MESSAGE.
* 
*         METHOD -
*         WHEN THE CALLING MODULE IS UNABLE TO
*         INTERPRET THE FAILING DETAILED STATUS, THIS MODULE
*         WILL THEN USE THE INFORMATION IN THE STATUS BUFFER, 
*         EC, EM, EA, AND THE LF-REGISTERS TO CREATE AN 
*         *ABNORMAL GENERAL STATUS ABORT* MESSAGE.
* 
/                                                                        DTC
*                                                                        DTC
*         ENTRY - B0,EA,EC,EM AND LF REGISTERS MUST BE SET               DTC
*                                                                        DTC
*         EXIT- NO EXIT CONDITIONS ARE SET                               DTC
*                                                                        DTC
*         SUBMODULES REFERENCED- NONE                                    DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*                                                                        DTC
*         REGISTERS USED-                                                DTC
*         B0 - TEST NUMBER                                               DTC
*         BA,EC,EM,EA,LF - STANDARD USAGE                                DTC
*                                                                        DTC
1  FORMAT DTC - 844-4X  DISK DRIVE DIAGNOSTIC 
2  FORMAT DTC*H - ABNORMAL GENERAL STATUS ABORT 
4  FORMAT FAILURE ON LINE *OCTB ERROR CODE *H*HE                         DTC
5  FORMAT LAST FUNCTION EXECUTED WAS *OCTB                               DTC
13 FORMAT                  WORD   DETAILED STATUS(OCTAL)                 DTC
14 FORMAT  GENERAL STATUS    1    *OCT *OCT *OCT *OCT *OCT               DTC
15 FORMAT  = *OCTB           6    *OCT *OCT *OCT *OCT *OCT               DTC
16 FORMAT                    11D  *OCT *OCT *OCT *OCT *OCT               DTC
17 FORMAT                    16D  *OCT *OCT *OCT *OCT *OCT               DTC
20 MSG 1 TO LINE 1           *DIAGNOSTIC TITLE MESSAGE                   DTC
   MSG 2 (B1) TO LINE 2      *MODULE NUMBER AND ABN. GEN. STAT. 
24 MSG 4(EA,B0,EC) TO LINE 4                                             DTC
   MSG EM TO LINE 5                                                      DTC
   MSG 5(LF) TO LINE 6                                                   DTC
   MSG 13 TO LINE 10
   MSG 14 5 WORDS FROM SB(1) TO LINE 11 
   MSG 15(SB(0),SB(6),SB(7),SB(10),SB(11),SB(12)) TO LINE 12
   MSG 16 5 WORDS FROM SB(13) TO LINE 13
   MSG 17 5 WORDS FROM SB(20) TO LINE 14
*                                                                        DTC
/         END                                                            DTC
*                                                                        DTC
77 PICTURE                                                               DTC
   HALT                                                                  DTC
   BLANK                                                                 DTC
   EXIT                                                                  DTC
   END 20                                                                DTC
COMPILE                                                                  DTC
   MODULE DTC99,844FT, (03,05)                                           DTC
1  FORMAT COPYRIGHT CONTROL DATA CORP. 1978                              DTC
2  PAUSE                                                                 DTC
   EXIT TO 99A                                                           DTC
/                                                                        DTC
/          FOR ADDITIONAL DOCUMENTATION, SEE THE FOLLOWING               DTC
/          MODULES--                                                     DTC
/                                                                        DTC
/          DTC99    OVERVIEW                                             DTC
/          DTC99A   PARAMETER DESCRIPTION                                DTC
/          DTC99B   SECTION DESCRIPTION INDEX                            DTC
/          DTC99C   MESSAGE DICTIONARY                                   DTC
/          DTC99D   END OF DOCUMENTATION                                 DTC
/                                                                        DTC
   END 2                                                                 DTC
COMPILE,SOURCE                                                           DTC
   MODULE DTC99A,844FT, (03)                                             DTC
1  PAUSE                                                                 DTC
   EXIT TO 99B                                                           DTC
/                                                                        DTC
/         P0 - LLLL - LOWER CYLINDER                                     DTC
/              (RIGHT JUSTIFIED, ZERO FILLED)                            DTC
/                                                                        DTC
/         P1 - UUUU - UPPER CYLINDER                                     DTC
/              (RIGHT JUSTIFIED, ZERO FILLED)                            DTC
/                                                                        DTC
/         P2 - LLUU - LOWER AND UPPER TRACKS                             DTC
/                                                                        DTC
/         P3 - LLUU - LOWER AND UPPER SECTORS                            DTC
/                                                                        DTC
/         P4 - XXXX - ENABLES 
/ 
/              XXX1 - ENABLE FULL PACK SEEKS
/                                                                        DTC
/         P5 - XXXX - DISABLES                                           DTC
/                                                                        DTC
/              XXX1 - NOT USED (MUST BE 0)                               DTC
/              XXX2 - NOT USED (MUST BE 0)                               DTC
/              XXX4 - NOT USED (MUST BE 0)                               DTC
/              XX1X - OPERATOR INTERVENTION                              DTC
/              XX2X - NOT USED (MUST BE 0)                               DTC
/              XX4X - NOT USED (MUST BE 0)                               DTC
/              X1XX - NOT USED (MUST BE 0)                               DTC
/              X2XX - NOT USED (MUST BE 0)                               DTC
/              X4XX - NOT USED (MUST BE 0)                               DTC
/              1XXX - NOT USED (MUST BE 0)                               DTC
/              2XXX - DISABLES OPPOSITE CHANNEL RESERVE                  DTC
/              4XXX - NOT USED (MUST BE 0)                               DTC
/                                                                        DTC
/                                                                        DTC
/         P7 - 00AB - MARGINS                                            DTC
/                                                                        DTC
/              XXX0 - NORMAL OFFSETS                                     DTC
/              XXX1 - EARLY OFFSETS                                      DTC
/              XXX2 - LATE OFFSETS                                       DTC
/              XX0X - NORMAL STROBES                                     DTC
/              XX1X - FORWARD STROBES                                    DTC
/              XX2X - REVERSE STROBES                                    DTC
/              7777 - DEFAULT - RUNS ALL READ MARGINS                    DTC
/                                                                        DTC
/                                                                        DTC
/         P8 - COPY SELECTION FOR DTC20                                  DTC
/                                                                        DTC
/              X100 - START COPY 1 FOR DTC20                             DTC
/              X200 - START COPY 2 FOR DTC20                             DTC
/                                                                        DTC
/         P9 - ALTERNATIVE OF STATUS DISPLAYED                           DTC
/              IN OCTAL FORMAT OR VERBAL DESCRIPTION                     DTC
/              OF FAILURE                                                DTC
/                                                                        DTC
/              XXX0 - OCTAL FORMAT                                       DTC
/              XXX1 - VERBAL DESCRIPTION                                 DTC
   END 1                                                                 DTC
COMPILE,SOURCE                                                           DTC
   MODULE DTC99B,844FT, (03)                                             DTC
1  PAUSE                                                                 DTC
   EXIT TO 99C                                                           DTC
/                                                                        DTC
/         NAME     DESCRIPTION               RUN TIME (SEC)              DTC
/         ----     -----------               --- ---- -----              DTC
/         DTC00    PARAMETER CHECK                 .001 
/         DTC01    DRIVE SELECT/DESEL/RTZ TEST     .22
/         DTC02    DRIVE REGISTER POSITION TEST    .13
/         DTC03    DRIVE REGISTER BIT TEST         7.4
/         DTC04    SPINDLE SPEED TEST              .49
/         DTC05    SECTOR COUNTER TEST             .21
/         DTC06    SEEK CYLINDER ADDRESS IN +1     .57
/                  INCREMENTS TEST                                       DTC
/         DTC07    SEEK CYLINDER ADDRESS IN -1     .56
/                  DECREMENTS TEST                                       DTC
/         DTC08    SEEK CYLINDER ADDRESS           .53
/                  INCREASING INCREMENT/DECREMENT                        DTC
/                  TEST                                                  DTC
/         DTC09    TOTAL CYLINDER SEEK TIME TEST   .62
/         DTC10    SEQUENTIAL CYLINDER SEEK TIME   .60
/                  TEST                                                  DTC
/         DTC11    AVERAGE CYLINDER SEEK TIME TEST 1.2
/         DTC12    READ ADDRESS TEST               1.0
/         DTC13    READ/WRITE TEST                 2.1
/         DTC14    WRITE VERIFY TEST               1.7
/         DTC15    HEAD ADVANCE TEST               3.7
/         DTC16    READ/WRITE INTERLACING TEST     4.3
/         DTC17    OFF CYLINDER READ FAULT TEST    .11
/         DTC18    OFF CYLINDER WRITE FAULT TEST   .11
/         DTC19    SEEK CYLINDER FAULT TEST        .57
/         DTC20    DUAL ACCESS TEST                                      DTC
/                                                                        DTC
   END 1                                                                 DTC
COMPILE,SOURCE                                                           DTC
   MODULE DTC99C,844FT (03)                                              DTC
1  PAUSE                                                                 DTC
   EXIT TO 99D                                                           DTC
/                                                                        DTC
/          THE MESSAGE FORMATS USED BY DTC TO REPORT ERRORS              DTC
/          AND INSTRUCT THE OPERATOR ARE--                               DTC
/                                                                        DTC
/          00                                                            DTC
/          01  DTC - 844 DISK DRIVE DIAGNOSTIC                           DTC
/          02  DTCNN - MODULE TITLE                                      DTC
/          03                                                            DTC
/        04  DRIVE/CONTROLLER CONNECT MESSAGE                            DTC
/        05  ERROR MESSAGE                                               DTC
/        06  ADDITIONAL ERROR INFORMATION                                DTC
/        07  ADDITIONAL ERROR INFORMATION                                DTC
/        10  ADDITIONAL ERROR INFORMATION                                DTC
/        11  ADDITIONAL ERROR INFORMATION                                DTC
/        12                                                              DTC
/        13                                                              DTC
/        14                                                              DTC
/        15                                                              DTC
/        16  STATUS REPORTING                                            DTC
/                                                                        DTC
/          NN IS THE MODULE NUMBER.                                      DTC
/          YYYY IS THE ADDRESS THE ERROR OCCURRED IN THE                 DTC
/            PRIMARY MODULE.                                             DTC
/          TT IS THE TEST NUMBER (IN HEX).                               DTC
/          EEE IS THE ERROR CODE (IN HEX).                               DTC
/          THE MESSAGES WHICH ARE DISPLAYED BY DTC IN THE                DTC
/          COURSE OF NORMAL OPERATION ARE--                              DTC
/                                                                        DTC
/          ADD LIST OF MESSAGES HERE.                                    DTC
/                                                                        DTC
/          THE ERROR MESSAGES WHICH ARE POSTED BY DTC ARE--              DTC
/                                                                        DTC
/          ADD LIST OF ERROR MESSAGES HERE.                              DTC
/                                                                        DTC
/          TO DISPLAY MORE ERROR MESSAGES, TYPE GO.                      DTC
/                                                                        DTC
/                                                                        DTC
   END 1                                                                 DTC
COMPILE,SOURCE                                                           DTC
   MODULE DTC99D,844FT, (03)                                             DTC
1  PAUSE                                                                 DTC
   EXIT TO 99A                 *THIS IS LAST MODULE 99                   DTC
/                                                                        DTC
/          FINISH LIST OF ERROR MESSAGES HERE.                           DTC
/                                                                        DTC
/          END OF DTC DOCUMENTATION                                      DTC
/                                                                        DTC
   END 1                                                                 DTC
COMPILE,SOURCE                                                           DTC
