1 C00   20:45 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   20:45 JUN 20,'83    SIGMA 5/7 MIOP WITH MAIN. SUBCONTRLR 705721-11/51A04 8/9/72           PAGE    2
A       1                             TITLE 'SIGMA 5/7 MIOP WITH MAIN. SUBCONTRLR 705721-11/51A04 8/9/72'
        2                            *
        3                            *
        4                                     SYSTEM   SIG7FDP
        5                            *
        6                            *
        7                            * PROGRAM OBJECTIVES
        8                            *
        9                            *        THIS PROGRAM WILL PROVIDE THE USER WITH A MEANS OF TEST-
       10                            *        ING AN MIOP/MS INDEPENDANT OF THE PERIPHERAL ENVIRONMENT.  *A02
       11                            *
       12                            * PROGRAM MODIFICATIONS
       13                            *
       14                            * REVISION A04  (8/9/72)                                            *A04
       15                            *                 PROGRAM MODIFIED TO PREVENT TRAP TO 46 (TAR 10843)*A04
       16                            *                 CORRECTED ERROR IN AIO HANDLER (TAR 10851)        *A04
       17                            *
       18                            *REVISION A03(12/10/71) MODIFICATIONS INDICATED IN COLS 69-72 BY AN *A03
       19                            *                 PROGRAM MODIFIED TO:                              *A03
       20                            *                 1. OUTPUT ON THE IOP BEING TESTED.                *A03
       21                            *                 2. CHECK FOR 4-BYTE OPTION WHEN RUNNING IOP 0.    *A03
       22                            *                 3. CHECK FOR SUBCHANNEL INTERACTION.              *A03
       23                            *                 4. REFINE INTERMITTANT PROCESSING.                *A03
       24                            *                 5. DOCUMENT "COOKBOOK" VERIFICATION PROCEEDURE.   *A03
       25                            *                 6. OUTPUT ONLY MISCOMPARISONS WHEN VERIFYING.     *A03
       26                            *
       27                            *REVISION A02(01/20/71) MODIFICATIONS INDICATED IN COLS 69-72 BY AN *A02
       28                            *                 PROGRAM MODIFIED TO:                              *A02
       29                            *                 1. CALCULATE MEMSIZE UPON RETURN FROM KSR CONTROL.*A02
       30                            *                 2. CHECK FOR 4-BYTE OPTION UPON RETURN FROM KSR.  *A02
       31                            *                 3. REFINE TEST LOOPING AND SHORTEN ERR LOOP       *A02
       32                            *                    FOR BETTER SCOPE RESOLUTION.                   *A02
       33                            *                 4. REFINE INITIALIZATION MSG OUTPUT AND           *A02
       34                            *                    INHIBIT OUTPUT AFTER FIRSTPASS.                *A02
       35                            *                 5. PRESERVE PARAMETERS WHEN MAKING RECOVERY VIA   *A02
       36                            *                    PCP RESET.                                     *A02
       37                            *                 6. INHIBIT RUNNING OF T53 WHEN 4-BYTE OPTION IS   *A02
       38                            *                    NOT INSTALLED.                                 *A02
       39                            *                 7. OUTPUT OLD ERRWORDS WHEN MARGINAL TIMING       *A02
       40                            *                    ERRORS OCCUR.                                  *A02
       41                            *                                                                   *A01
       42                            *REVISION A01(10/15/70) MODIFICATIONS INDICATED IN COLS 69-72 BY AN *A01
       43                            *                 PROGRAM MODIFIED TO:                              *A01
       44                            *                 1. ADAPT T40 AND T42 TO ENG.REV. 'C' ON THE MIOP. *A01
       45                            *                 2. REPOSITION 4-BYTE DATA IN TEST.                *A01
       46                            *                 3. OUTPUT MSG. IF 4-BYTE OPTION IS NOT INSTALLED. *A01
       47                            *                 4. IMPROVE COOKBOOK COMPARE DATA RESIDUAL.        *A01
       48                            *                 5. CORRECT INITIALIZATION MSG. BYTE COUNT.        *A01
       49                            *                 6. REFINE COOKBOOK GENERATION PROCEEDURE.         *A01
       50                            *                 7. UPDATE STORED DISPLAY DATA 'COOKBOOK'.         *A01
       51                            *                 8. OPERATE WITH FIELD MOD KITS 8273-02/05+8473-02/05.
       52                            *
       53                            * OPERATING REQUIREMENTS AND SPECIFICATIONS
       54                            *
       55                            *
       56                            *   REQUIRED EQUIPMENT       SIGMA 5/7 WITH 16K OF MEMORY
       57                            *                            MIOP WITH KSR AND TAPEDECK, PAPER TAPE
       58                            *                            OR CARD READER, AND A MAIN. SUBCNTRLR.
       59                            *
       60                            *
       61                            *   PROGRAM PREREQUISITES    THE USER MUST BE ABLE TO LOAD THE PROGRAM
       62                            *                            INTO MEMORY.  THE IOP AND CHANNEL NUMBERS
       63                            *                            TO BE TESTED MUST BE SUPPLIED TO THE PRO-
       64                            *                            GRAM AS WELL AS THE MAINTENANCE SUBCONTROL-
       65                            *                            ER DIO ADDRESS AND THE OUTPUT ADDR.
       66                            *
       67                            *                            PRIOR TO RUNNING THE IOP TEST,
       68                            *                            THE USER SHOULD VERIFY THAT THE
       69                            *                            M.S.  IS FUNCTIONING PROPERLY
       70                            *                            VIA USE OF THE 'MAINTENANCE SUBCONTROLLER
       71                            *                            SELF-TEST PROGRAM CATALOG NO. 705723.
       72                            *
       73                            *   CORE STORAGE             10K
       74                            *
       75                            *   RUN TIME                 APPROXIMATELY THIRTY SECONDS TO EXE-
       76                            *                            CUTE ALL 53 TESTS ON ALL 24 CHANNELS OR
       77                            *                            ABOUT ONE SECOND PER CHANNEL.
       78                            *
       79                            *   PROGRAM MEDIA            SELF-LOADING CARDS, PAPER TAPE OR MAG. TAPE
       80                            *
       81                            *   SOURCE LANGUAGE          SIGMA METASYMBOL. SEE SDS SIGMA SYMBOL AND
       82                            *                            METASYMBOL, REFERENCE MANUAL 900952.
       83                            *
       84                            * LOADING PROCEDURE      (A) RESET ALL SENSE SWITCHES.
       85                            *                        (B) EXECUTE A 'LOAD' FUNCTION FROM THE PCP.
       86                            *
       87                            *   PROGRAM INITIALIZATION
       88                            *
       89                            *                            IMMEDIATELY SUBSEQUENT TO SUCCESSFUL PRO-
       90                            *                            GRAM LOADING, THE PROGRAM WILL EXECUTE AN
       91                            *                            SIO TO THE UNIT ASR/KSR, ASSUMING AN I/O
       92                            *                            UNIT ADDRESS OF HEX '001' (IOP=0, DC=1).
       93                            *
       94                            *                            IF THE SIO IS UNSUCCESSFUL, THE PROGRAM
       95                            *                            WILL DEFAULT TO A WAIT AT %WAIT1.  AT THIS
       96                            *                            TIME THE USER MUST ENTER A VALID ASR/KSR
       97                            *                            I/O UNIT ADDRESS INTO R0: IOP NUMBER INTO
       98                            *                            BITS 21-23, DEVICE CONTROLLER NUMBER INTO
       99                            *                            BITS 24-31.  UPON CLEARING THE 'WAIT',
      100                            *                            (TOGGLEING THE COMPUTE SWITCH),THE PROGRAM
      101                            *                            WILL PROCEED NORMALLY AS DESCRIBED BELOW.
      102                            *
      103                            *                            NOTE:  THE REGISTER 0 ENTRY AT THE TIME OF
      104                            *                            THE DEFAULT 'WAIT' IS THE ONLY PCP
      105                            *                            DATA ENTRY CONDITION NECESSARY IN
      106                            *                            THE RUNNING OF THE PROGRAM.  ALL
      107                            *                            OTHER ENTRIES WILL BE TYPED IN ON
      108                            *                            THE UNIT ASR/KSR.
      109                            *
      110                            *   PARAMETER INPUT
      111                            *
      112                            *                            UPON SUCCESSFUL COMPLETION OF THE SIO,
      113                            *                            THE KEYBOARD PRINTER (ASR/KSR) WILL
      114                            *                            OUTPUT THE INITIAL REQUEST-DIRECTIVE-INPUT
      115                            *                            CHARACTER: '%' AND THE UNIT ASR/KSR WILL
      116                            *                            BE SELECTED FOR INPUT.
      117                            *
      118                            *                            AT THE TIME OF THE INITIAL REQUESTS FOR
      119                            *                            DIRECTIVE INPUT FOLLOWING EITHER LOADING
      120                            *                            OR PROGRAM RECOVERY, CERTAIN I/O CONFIG-
      121                            *                            URATION AND TEST DATA MUST BE MADE KNOWN
      122                            *                            TO THE PROGRAM.  TO ACCOMPLISH THIS, THE
      123                            *                            USER MUST ENTER ONE EACH OF THE FOUR INPUT
      124                            *                            DIRECTIVES:  OUT, DIO, ADR, AND RUN.
      125                            *
      126                            *                            NOTE:  ON SUCCESSIVE REQUESTS FOR INPUT
      127                            *                            AS INITIATED BY SENSE SWITCH ONE,
      128                            *                            (RETURN TO KEYBOARD CONTROL), IT
      129                            *                            IS NOT NECESSARY TO RE-ENTER A
      130                            *                            GIVEN DIRECTIVE WHEN THAT DIRECTIVE
      131                            *                            DATA IS NOT TO BE CHANGED.
      132                            *
      133                            *                            NOTE:  ALL DIRECTIVE INPUT WILL BE TERMIN-
      134                            *                            ATED WITH THE NEW-LINE KEY.
      135                            *                            INCORRECT DIRECTIVE INPUT WILL
      136                            *                            RESULT IN THE OUTPUT MESSAGE:
      137                            *
      138                            *                                      'SYNTAX ERROR'
      139                            *
      140                            *                            AND THE ASR/KSR WILL AGAIN BE
      141                            *                            SELECTED FOR INPUT.
      142                            *
      143                            *
      144                            *
      145                            *                            ENTER AN 'X' TO VOID AND               *A03
      146                            *                            RESTART A DIRECTIVE ENTRY.             *A03
      147                            *
      148                            *
      149                            *
      150                            *                        (1) THE 'OUT' DIRECTIVE
      151                            *
      152                            *                 FUNCTION   THE OUT DIRECTIVE SUPPLIES THE PROGRAM
      153                            *                            WITH THE I/O UNIT ADDRESS AND TYPE OF
      154                            *                            THE DESIRED OUTPUT DEVICE.
      155                            *
      156                            *
      157                            *                 FORM       OUT,XXXY
      158                            *                            WHERE XXX IS A THREE DIGIT HEXADECIMAL
      159                            *                            NUMBER WITH A VALUE RANGE OF X'000'-X'7FF';
      160                            *                            AND WHERE Y IS THE PERIPHERAL-TYPE DESIG-
      161                            *                            NATOR: K FOR KSR, L FOR LINEPRINTER.
      162                            *
      163                            *                 EXAMPLE    %OUT,001K ....OUTPUT DEVICE 1 ON IOP 0 -KSR
      164                            *                            %OUT,007L ....OUTPUT DEVICE 7 ON IOP 0 -LP
      165                            *
      166                            *                            %OUT,40CK ....OUTPUT DEVICE C ON IOP 4 -KSR
      167                            *
      168                            *                            NOTE:  UPON ENTERING THE OUT DIRECTIVE,
      169                            *                            A DISPLAY GROUP READOUT INTERPRE-
      170                            *                            TATION TABLE AND AN INITIALIZATION
      171                            *                            MESSAGE WILL BE OUTPUT ON THE LINE
      172                            *                            PRINTER OR ON THE ASR/KSR IF NO
      173                            *                            LINE PRINTER IS AVAILABLE.  THE        *A02
      174                            *                            TABLE AND MSG WILL BE OUTPUT           *A02
      175                            *                            ONCE ONLY PER PROGRAM LOAD.            *A02
      176                            *
      177                            *
      178                            *                            NOTE:  DUE TO THE LENGTH OF TIME REQUIRED
      179                            *                            TO OUTPUT THE TABLE AND INITIALIZATION MSG
      180                            *                            ON THE KSR, IT MAY BE DESIREABLE TO ELIMIN-
      181                            *                            ATE THESE OUTPUTS  WHEN ONLY THE KSR IS
      182                            *                            AVAILABLE.  THIS MAY BE ACCOMPLISHED BY
      183                            *                            SIMPLY DEPRESSING THE BREAK KEY ON THE KSR
      184                            *                            AT ANY TIME AFTER THE OUTPUT HAS BEGUN.
      185                            *
      186                            *
      187                            *                            UPON COMPLETION OF THE TABLE AND INITIAL-
      188                            *                            IZATION MESSAGE, THE UNIT ASR/KSR WILL
      189                            *                            AGAIN OUTPUT THE REQUEST-DIRECTIVE-INPUT
      190                            *                            CHARACTER: '%' AND BE SELECTED FOR INPUT.
      191                            *                            THE USER MUST NOW INPUT THE DIO DIRECTIVE.
      192                            *
      193                            *
      194                            *                        (2) THE 'DIO' DIRECTIVE
      195                            *
      196                            *                 FUNCTION   THE DIO DIRECTIVE SUPPLIES THE PROGRAM
      197                            *                            WITH THE DIO ADDRESS OF THE MAINTENANCE
      198                            *                            SUBCONTROLLER ATTACHED TO THE IOP UNDER
      199                            *                            TEST.
      200                            *
      201                            *
      202                            *                 FORM       DIO,XX
      203                            *                            WHERE XX IS A TWO DIGIT HEXADECIMAL NUMBER
      204                            *                            WITH THE VALUE RANGE: X'00'-X'7F'.
      205                            *
      206                            *                 EXAMPLE    %DIO,7F .... DIO ADDRESS EQUALS HEX '7F'
      207                            *                            %DIO,14 .... DIO ADDRESS EQUALS HEX '14'
      208                            *                            %DIO,AA .... DIO ADDRESS EQUALS HEX 'AA'
      209                            *
      210                            *                            UPON ENTERING THE DIO DIRECTIVE, THE UNIT
      211                            *                            ASR/KSR WILL AGAIN OUTPUT THE REQUST-DIR-
      212                            *                            ECTIVE-INPUT CHARACTER: '%' AND BE SELECTED
      213                            *                            FOR INPUT.  THE USER MUST NOW INPUT THE
      214                            *                            ADR DIRECTIVE.
      215                            *
      216                            *
      217                            *                        (3) THE 'ADR' DIRECTIVE
      218                            *
      219                            *                 FUNCTION   THE ADR DIRECTIVE SUPPLIES THE PROGRAM
      220                            *                            WITH THE I/O UNIT ADDRESS (INCLUDING SUB-
      221                            *                            CHANNEL) OF THE IOP TO BE TESTED. IT IS
      222                            *                            ALSO CAPEABLE OF SUPPLYING A RANGE OF
      223                            *                            DEVICE CONTROLLER, (SUBCHANNEL) ADDRESSES
      224                            *                            WITH A GIVEN IOP.
      225                            *
      226                            *
      227                            *                 FORM       ADR,D1D2D3
      228                            *                            WHERE D1 IS A DECIMAL NUMBER INDICATING
      229                            *                            THE IOP NUMBER TO BE TESTED: 0<D1<7, AND
      230                            *                            WHERE D2 IS A HEX DIGIT INDICATING     *A02
      231                            *                            THE LOWEST DC ADDRESS TO BE TESTED:
      232                            *                            00<D2<7F, AND WHERE D3 IS A HEX DIGIT  *A02
      233                            *                            INDICATING THE HIGHEST DC ADDRESS TO BE
      234                            *                            TESTED:  00<D3<7F. THE RANGE D1-D2     *A02
      235                            *                            MUST NOT EXCEED 24 DECIMAL.            *A02
      236                            *
      237                            *                 EXAMPLE    %ADR,10101 .... TEST CHANNEL ONE ON IOP ONE
      238                            *                            %ADR,40023 .... TEST 24 CHNLS ON IOP 4 *A02
      239                            *                            %ADR,20415 .... TEST CHANNELS 4-15 ON IOP 2
      240                            *
      241                            *                            UPON ENTERING THE ADR DIRECTIVE, THE UNIT
      242                            *                            ASR/KSR WILL AGAIN OUTPUT THE REQUEST-DIR-
      243                            *                            ECTIVE-INPUT CHARACTER: '%' AND BE SELECTED
      244                            *                            FOR INPUT.  THE USER MUST NOW ENTER THE RUN
      245                            *                            DIRECTIVE.
      246                            *
      247                            *
      248                            *                        (4) THE 'RUN' DIRECTIVE
      249                            *
      250                            *                 FUNCTION   THE RUN DIRECTIVE SUPPLIES THE PROGRAM
      251                            *                            WITH THE TEST NUMBERS IT IS TO EXECUTE,
      252                            *                            AND INDICATION AS TO WHETHER OR NOT IT
      253                            *                            IS TO MAKE 'COOKBOOK' COMPARISON UPON
      254                            *                            ERROR DETECTION
      255                            *
      256                            *                 DEFAULT    NO TESTS WILL BE RUN PRIOR TO INPUT OF
      257                            *                            THIS DIRECTIVE.
      258                            *
      259                            *
      260                            *                            THERE ARE TWO DISTINCT FORMS FOR THIS
      261                            *                            DIRECTIVE:
      262                            *
      263                            *                         I. SIMPLEX COMPARE:  RUN TO-T52 SEQUENTIALLY
      264                            *                            AND MAKE 'COOKBOOK' COMPARISON UPON ERROR
      265                            *                            DETECTION.
      266                            *
      267                            *                 FORM       RUN
      268                            *                 EXAMPLE    %RUN
      269                            *
      270                            *
      271                            *                        II. SELECTIVE - NO COMPARE:  RUN THOSE TESTS
      272                            *                            WHOSE NUMBERS FOLLOW THE DIRECTIVE. DO NOT
      273                            *                            MAKE 'COOKBOOK' COMPARISON UPON ERROR
      274                            *                            DETECTION.
      275                            *
      276                            *                 FORMS      RUN,
      277                            *                            RUN,TX
      278                            *                            RUN,TX,TY
      279                            *                            RUN,TY-TZ
      280                            *                            RUN,TX,TY-TZ,TN
      281                            *
      282                            *                            A 'T' ALWAYS PRECEEDS A TEST NUMBER.
      283                            *                            A COMMA SEPERATES INDIVIDUAL TESTS OR
      284                            *                              CONTIGUOUS GROUPS OF TESTS.
      285                            *                            A HYPHEN SEPERATES CONTIGUOUS TESTS.
      286                            *
      287                            *                 EXAMPLES   %RUN, ....RUN EXISTING TEST PATTERN
      288                            *                            %RUN,T8 ....RUN TEST 8
      289                            *                            %RUN,T8,T12 ....RUN TEST 8 AND TEST 12
      290                            *                            %RUN,T12-T20 ....RUN TEST 12 THRU TEST 20
      291                            *                            %RUN,T8,T12-T20,T51 ....RUN TEST 8, TEST 12
      292                            *                                                THRU TEST 20 AND TST 51
      293                            *
      294                            *
      295                            * SPECIAL OPERATING INST.(A) TEST 54 IS A BUS-SHARING TEST AND REQUIRES
      296                            * FOR TEST 54                A SLIGHTLY DIFFERENT OPERATING PROCEDURE.
      297                            *                            THIS TEST SHOULD BE SELECTED ONLY IF TWO
      298                            *                            BUS-SHARING MIOPS ARE AVAILABLE FOR TESTING
      299                            *                            THIS TEST WILL PUT ONE MIOP INTO A FREE
      300                            *                            RUNNING MODE WHILE THE OTHER MIOP IS PUT
      301                            *                            THROUGH ALL THE TESTS  (TEST 0 THRU 53).
      302                            *                        (A) WHEN TEST 54 IS SELECTED, THE PROGRAM WILL
      303                            *                            COME TO A 'WAIT'.  THE USER MUST ENTER THE
      304                            *                            FREE RUNNING MIOPS I/O UNIT ADDRESS (0-7)
      305                            *                            INTO BITS 21 THRU 23 AND THE FREE RUNNING
      306                            *                            MIOPS MAINTENANCE SUBCONTROLLER ADDRESS
      307                            *                            (00-7F) INTO BITS 25 THRU 31 OF REGISTER 0.
      308                            *                        (B) ONCE THE FREE-RUNNING MIOP IS RUNNING, THE
      309                            *                            KEYBOARD PRINTER WILL BE SELECTED FOR
      310                            *                            INPUT.
      311                            *                        (C) ENTER PARAMETERS AS IN NORMAL OPERATION
      312                            *                        (D) TO RESET THE FREE-RUNING MIOP, THE
      313                            *                            OPERATOR MUST RESET I/O FROM THE PCP.
      314                            *                            NOTE:  MISCOMPARISONS INDICATED IN     *A02
      315                            *                            DISPLAY GROUP 3 ARE NOT NECESSARILY    *A02
      316                            *                            INDICATIVE OF MALFUNCTION WHEN THE     *A02
      317                            *                            BUSS SHARE OPTION IS INSTALLED.        *A02
      318                            *                            THE VARIOUS MEMORY SIGNALS REPRESENTED *A02
      319                            *                            IN DISPLAY GROUP 3 WILL BE SET OR      *A02
      320                            *                            RESET ENTIRELY DEPENDANT UPON THE      *A02
      321                            *                            SYSTEM CONFIGURATION AND USAGE, AND    *A02
      322                            *                            NO SINGLE SET OF COMPARE DATA WILL     *A02
      323                            *                            BE VALID FOR ALL VARIANCES.            *A02
      324                            *
      325                            * PROGRAM RECOVERY           FOR PROGRAM RECOVERY, SET THE 'COMPUTE'
      326                            *                            SWITCH TO THE 'IDLE' POSITION, HIT THE
      327                            *                            'SYSTEM RESET' SWITCH ON THE PCP AND SET
      328                            *                            THE COMPUTE SWITCH TO RUN.  THE KSR
      329                            *                            WILL BE SELECTED FOR INPUT AS PREVIOUSLY
      330                            *                            DESCRIBED.
      331                            *
      332                            *PROGRAM RESTART             FOR PROGRAM RESTART, SET SENSE SWITCH 1.
      333                            *                            WHEN THE KEYBOARD PRINTER IS SELECTED,
      334                            *                            INPUT NEW DIRECTIVES AS APPLICABLE.
      335                            *
      336                            * CONTROL OPTIONS
      337                            *             THE FOLLOWING TABLE LISTS THE SENSE SWITCH OPTIONS AVAIL-
      338                            *        ABLE TO THE USER.  NO OPTIONS ARE INTERRELATED.  ALL ARE IN
      339                            *        EFFECT AFTER TESTING HAS BEEN STARTED.
      340                            *
      341                            *            S E N S E  S W I T C H  O P T I O N S
      342                            *
      343                            * SWITCH STATUS   FUNCTION
      344                            *
      345                            *  SS1    SET     HALT TESTING SEQUENCE, RETURN FOR USER COMMUNICATION.
      346                            *         RESET   CONTINUE TESTING SEQUENCE.
      347                            *
      348                            *  SS2    SET     DO NOT LOOP ON ERROR.
      349                            *         RESET   LOOP ON ERROR.
      350                            *
      351                            *  SS3    SET     DO NOT GIVE TEST COMPLETE INDICATION.
      352                            *         RESET   GIVE TEST COMPLETE INDICATIONS WHEN ALL CHANNELS
      353                            *                 HAVE BEEN TESTED.
      354                            *
      355                            *  SS4    SET     INHIBIT DISPLAY GROUP ERROR OUTPUT
      356                            *         RESET   ALLOW DISPLAY GROUP ERROR OUTPUT
      357                            *
      358                            *
      359                            *
      360                            *        C O O K B O O K   V E R I F I C A T I O N                  *A03
      361                            *
      362                            *                 P R O C E E D U R E
      363                            *
      364                            *
      365                            *
      366                            *                 IF THE USER DESIRES TO RUN A COMPARE FOR
      367                            *        ERROR DETECTION SUBSEQUENT TO SUCCESSFUL COMPLETION
      368                            *        OF ALL FUNCTIONAL TESTING, THE FOLLOWING STEP-BY-STEP
      369                            *        PROCEEDURE SHOULD BE UTILIZED:
      370                            *
      371                            *        1.  AT THE TIME OF 'DIRECTIVE INPUT REQUEST' AT
      372                            *        THE UNIT KSR, ACTIVATE THE CONSOLE INTERRUPT ON
      373                            *        THE PCP.  THE PROGRAM WILL ENTER "COOKBOOK" MODE,
      374                            *        BRANCH TO PROGRAM START AND REINITIATE THE DIRECTIVE
      375                            *        INPUT REQUEST. (TO RETURN TO THE NORMAL MODE OF
      376                            *        OPERATION, SIMPLY REACTIVATE THE CONSOLE INTER-
      377                            *        RUPT BUTTON ON THE PCP.
      378                            *
      379                            *        2.  SET SENSE SWITCH TWO.
      380                            *
      381                            *        3.  ENTER THE OUT DIRECTIVE SPECIFYING EITHER
      382                            *        THE KSR OR LINE PRINTER.
      383                            *
      384                            *        4.  ENTER THE APPROPRIATE 'DIO' DIRECTIVE.
      385                            *
      386                            *        5.  ENTER THE 'ADR' DIRECTIVE SPECIFYING ANY BUT
      387                            *        SUBCHANNEL (D.C.), ADDRESS ZERO.
      388                            *
      389                            *        6.  ENTER THE RUN-SIMPLEX-COMPARE DIRECTIVE.
      390                            *        UPON ENTERING THIS DIRECTIVE, LISTING OF THE
      391                            *        MISCOMPARING COOKBOOK DATA WILL COMMENCE.
      392                            *
      393                            *        7.  COMPLETION OF COOKBOOK VERIFICATION WILL BE
      394                            *        SIGNALED BY THE OUTPUT OF THE 'TEST COMPLETE'
      395                            *        MESSAGE ON THE UNIT ASR/KSR, AT WHICH TIME, THE
      396                            *        USER  SHOULD SET SENSE SWITCH ONE FOR RETURN TO
      397                            *        KSR CONTROL.
      398                            *
      399                            *
      400                            *
      401                            * TEST DESCRIPTIONS          THERE ARE A TOTAL OF 55 TEST MODULES IN
      402                            *                            THE PROGRAM. HOWEVER, 10 OF THESE ARE
      403                            *                            SPARE TEST MODULES RESERVED FOR POSSIBLE
      404                            *                            EXPANSION AND/OR MODIFICATIONS. THE SPARES
      405                            *                            ARE TESTS 2,7,10,21,22,41,43,44,45 & 46.
      406                            *
      407                            *                 TEST 0   - TEST SETTING OF SIO PHASES.
      408                            *                 TEST 1   - TEST SETTING OF SIO PHASES.
      409                            *                 TEST 2   - SPARE.
      410                            *                 TEST 3   - TEST SIO FUNCTION INDICATOR LINE.
      411                            *                 TEST 4   - TEST TIO FUNCTION INDICATOR LINE.
      412                            *                 TEST 5   - TEST TDV FUNCTION INDICATOR LINE.
      413                            *                 TEST 6   - TEST HIO FUNCTION INDICATOR LINE.
      414                            *                 TEST 7   - SPARE.
      415                            *                 TEST 8   - TEST ASC INDICATOR LINE.
      416                            *                 TEST 9   - TEST CC1 AND CC2.
      417                            *                 TEST 10  - SPARE.
      418                            *                 TEST 11  - TEST DATA LINES. (DA)
      419                            *                 TEST 12  - TEST FUNCTION RESPONSE LINE (FR0).
      420                            *                 TEST 13  - TEST FR1.
      421                            *                 TEST 14  - TEST FR2.
      422                            *                 TEST 15  - TEST FR3.
      423                            *                 TEST 16  - TEST FR4.
      424                            *                 TEST 17  - TEST FR5.
      425                            *                 TEST 18  - TEST FR6.
      426                            *                 TEST 19  - TEST FR7.
      427                            *                 TEST 20  - TEST COMMAND ADDRESS REGISTERS (CA).
      428                            *                 TEST 21  - SPARE.
      429                            *                 TEST 22  - SPARE.
      430                            *                 TEST 23  - TEST C REGISTER DOWN COUNTING.
      431                            *                 TEST 24  - TEST ORDER OUT PHASE SETTING.
      432                            *                 TEST 25  - TEST ORDER OUT.
      433                            *                 TEST 26  - TEST BYTE COUNT REGISTER (BC).
      434                            *                 TEST 27  - TEST ORDER IN.
      435                            *                 TEST 28  - TEST ORDER IN WITH FLAG SETTING.
      436                            *                 TEST 29 THRU TEST 32 - SAME AS TEST 28.
      437                            *                 TEST 33  - TEST ORDER IN WITH COMMAND CHAINING.
      438                            *                 TEST 34  - TEST RESPONSE TO CHAINING MODIFIER.(TO)
      439                            *                 TEST 35  - TEST RESPONSE TO CHAINING MODIFIER.(CC)
      440                            *                 TEST 36  - TEST TRANSFER IN CHANNEL.
      441                            *                 TEST 37  - TEST TWO TRANSFER IN CHANNELS.
      442                            *                 TEST 38  - TEST STATUS AFTER 2 XFER. IN CHANNELS.
      443                            *                 TEST 39  - TEST INCORRECT LENGTH AND XMISSION ERROR
      444                            *                 TEST 40  - TEST DATA OUT RESPONSE AND BYTE ADDRESS.
      445                            *                 TEST 41  - SPARE.
      446                            *                 TEST 42  - TEST DATA TRANSFER DURING DATA OUT.
      447                            *                 TEST 43 THRU 46  - SPARES.
      448                            *                 TEST 47  - TEST FOR SUBCHANNEL INTERACTION
      449                            *                 TEST 48  - TEST DATA CHAINING.
      450                            *                 TEST 49  - TEST IOP INTERRUPT RESPONSE
      451                            *                 TEST 50  - TEST READ BACKWARD                     *A01
      452                            *                 TEST 51  - TEST DATA IN                           *A01
      453                            *                 TEST 52  - TEST SKIP FUNCTION.
      454                            *                 TEST 53  - TEST DATA IN/DATA OUT  (FREE RUN)
      455                            *                 TEST 54  - TEST MIOP BUS-SHARING
      456                            *
      457                            *ERROR MESSAGES              ALL ERROR MESSAGES HAVE THE SAME GENERAL
      458                            *                            FORMAT.  ERR WORD DATA WILL BE EITHER HEX.
      459                            *                            DECIMAL OR BINARY AS SUITS THE TEST.
      460                            *
      461                            *                            THIS SECTION WILL ONLY DESCRIBE THE ERRWD
      462                            *                            FOR EACH TEST.  THE SNAP-SHOT MATRIX IS
      463                            *                            DESCRIBED IN THE NEXT SECTION.  ERRWD4
      464                            *                            ALWAYS SPECIFIES THE FAILING CHANNEL NO.
      465                            *
      466                            *                 TEST 0 THRU 9  - %ERRWD4 = FAILING CHANNEL
      467                            *                                  (SNAP-SHOT MATRIX)
      468                            *                 TEST 11  - %ERRWD1 = EXPECTED RESULTS ON DA0-DA7
      469                            *                            %ERRWD2 = RESULTS RECEIVED ON DA0-DA7
      470                            *                            %ERRWD4 = FAILING CHANNEL
      471                            *                            (SNAP-SHOT MATRIX)
      472                            *
      473                            *                 TEST 12 THRU 19  - %ERRWD4 = FAILING CHANNEL
      474                            *                                    (SNAP-SHOT MATRIX)
      475                            *
      476                            *                 TEST 20  - %ERRWD1 = EXPECTED COMMAND ADDRESS (CA).
      477                            *                            %ERRWD2 = RECEIVED COMMAND ADDRESS(CA).
      478                            *                            %ERRWD3 = FAILING CHANNEL.
      479                            *                            (SNAP-SHOT MATRIX)
      480                            *
      481                            *                 TEST 23  - %ERRWD1 = COMMAND ADDRESS EXPECTED BY TIO.
      482                            *                            %ERRWD2 = COMMAND ADDRESS RECEIVED BY TIO.
      483                            *                            %ERRWD4 = FAILING CHANNEL.
      484                            *                            (SNAP-SHOT MATRIX)
      485                            *
      486                            *
      487                            *                 TEST 24  - THERE ARE 4 MESSAGE TYPES DEPENDING ON
      488                            *                            %ERRWD3.
      489                            *                        (A) %ERRWD1 = ADDRESS BEING TESTED.
      490                            *                            %ERRWD3 = 1 = NO ASC FOR ORDER OUT.
      491                            *                            %ERRWD4 = FAILING CHANNEL.
      492                            *                            (SNAP-SHOT MATRIX)
      493                            *
      494                            *                        (B) %ERRWD1 = ADDRESS BEING TESTED.
      495                            *                            %ERRWD3 = 2 = NO RSA FOR ORDER OUT.
      496                            *                            %ERRWD4 = FAILING CHANNEL.
      497                            *                            (SNAP-SHOT MATRIX)
      498                            *
      499                            *                        (C) %ERRWD1 = ADDRESS BEING TESTED.
      500                            *                            %ERRWD3 = 3 = INCORRECT ORDER FOR ORDER OUT
      501                            *                            %ERRWD4 = FAILING CHANNEL.
      502                            *                            (SNAP-SHOT MATRIX)
      503                            *
      504                            *                 TEST 25  - THERE ARE 4 MESSAGE TYPES DEPENDING ON
      505                            *                            %ERRWD3.
      506                            *                        (A) %ERRWD3 = 1 = NO ASC FOR ORDER-OUT.
      507                            *                            %ERRWD4 = FAILING CHANNEL.
      508                            *                            (SNAP-SHOT MATRIX)
      509                            *
      510                            *                        (B) %ERRWD3 = 2 = NO RSA FOR ORDER-OUT.
      511                            *                            %ERRWD4 = FAILING CHANNEL.
      512                            *                            (SNAP-SHOT MATRIX)
      513                            *
      514                            *                        (C) %ERRWD3 = 3 = NO RSA FOR TERMINAL ORDER(TO)
      515                            *                            %ERRWD4 = FAILING CHANNEL.
      516                            *                            (SNAP-SHOT MATRIX)
      517                            *
      518                            *                        (D) %ERRWD3 = 4 = NO ES FOR TERMINAL ORDER(TO)
      519                            *                            %ERRWD4 = FAILING CHANNEL
      520                            *                            (SNP-SHOT MATRIX)
      521                            *
      522                            *                 TEST 26  - %ERRWD1 = EXPECTED BYTE COUNT
      523                            *                            %ERRWD2 = RECEIVED BYTE COUNT
      524                            *                            %ERRWD4 = FAILING CHANNEL
      525                            *                            (SANP-SHOT MATRIX)
      526                            *
      527                            *                 TEST 27  - THERE ARE 3 MESSAGE TYPES DEPENDING ON
      528                            *                            %ERRWD3.
      529                            *                        (A) %ERRWD3 = 1 = NO ASC FOR ORDER IN.
      530                            *                            %ERRWD4 = FAILING CHANNEL.
      531                            *                            (SNAP-SHOT MATRIX)
      532                            *
      533                            *                        (B) %ERRWD3 = 2 = PHTO NOT SET IN MS AFTER
      534                            *                                          ORDER-IN.  ES IS TRUE AFTER
      535                            *                                          RS FOR ORDER-IN.
      536                            *                            %ERRWD4 = FAILING CHANNEL.
      537                            *                            (SNAP-SHOT MATRIX)
      538                            *
      539                            *                        (C) %ERRWD3 = 3 = NO RSA FOR TERMINAL ORDER(TO)
      540                            *                            %ERRWD4 = FAILING CHANNEL
      541                            *                            (SNAP-SHOT MATRIX)
      542                            *
      543                            *                 TEST 28 THRU 33  -
      544                            *                            %ERRWD1 = EXPECTED TERMINAL ORDER (TO)
      545                            *                            %ERRWD2 = RECEIVED TERMINAL ORDER(TO)
      546                            *                            %ERRWD4 = FAILING CHANNEL.
      547                            *                            (SNAP-SHOT MATRIX)
      548                            *
      549                            *                 TEST 34  - THERE ARE 2 MESSAGE TYPES DEPENDING ON
      550                            *                            %ERRWD3.
      551                            *                        (A) %ERRWD3 = 1 = NO ASC FOR ORDER-IN.
      552                            *                            %ERRWD4 = FAILING CHANNEL.
      553                            *                            (SNAP-SHOT MATRIX)
      554                            *
      555                            *                        (B) %ERRWD3 = 2 = NO RSA FOR ORDER-IN.
      556                            *                            %ERRWD4 = FAILING CHANNEL.
      557                            *                            (SNAP-SHOT MATRIX
      558                            *
      559                            *                 TEST 35  - %ERRWD1 = EXPECTED ORDER BYTE (ALWAYS BB)
      560                            *                            %ERRWD2 = RECEIVED ORDER BYTE
      561                            *                            %ERRWD4 = FAILING CHANNEL.
      562                            *                            (SANP-SHOT MATRIX)
      563                            *
      564                            *                 TEST 36 THRU 37  - THERE ARE 2 MESSAGE TYPES.
      565                            *                        (A) %ERRWD1 = EXPECTED ORDER BYTE.(ALWAYS AA)
      566                            *                            %ERRWD2 = RECEIVED ORDER BYTE.
      567                            *                            %ERRWD3 = 1 = INCORRECT ORDER BYTE, NES OR
      568                            *                                          RSA NOT RECEIVED IN ORDER-IN.
      569                            *
      570                            *                        (B) %ERRWD1 = EXPECTED TERMINAL ORDER(TO)
      571                            *                            %ERRWD2 = RECEIVED TERMINAL ORDER(TO)
      572                            *                            %ERRWD3 = 2 = INCORRECT ORDER BYTE, NES OR
      573                            *                                          RSA NOT RECEIVED IN ORDER-IN
      574                            *                            %ERRWD4 = FAILING CHANNEL
      575                            *                            (SANP-SHOT MATRIX)
      576                            *
      577                            *                 TEST 38  - %ERRWD1 = EXPECTED TIO STATUS AFTER 2 TIC
      578                            *                            %ERRWD2 = RECEIVED TIO STATUS AFTER 2 TIC
      579                            *                            %ERRWD4 = FAILING CHANNEL
      580                            *                            (SNAP-SHOT MATRIX)
      581                            *
      582                            *                 TEST 39  - THERE ARE 2 MESSAGE TYPES.
      583                            *                        (A) %ERRWD1 = EXPECTED TERMINAL ORDER(TO)
      584                            *                            %ERRWD2 = RECEIVED TERMINAL ORDER(TO)
      585                            *                            %ERRWD3 = 1 = WRONG TERMINAL ORDER(TO)
      586                            *                            %ERRWD4 = FAILING CHANNEL
      587                            *                            (SNAP-SHOT MATRIX)
      588                            *
      589                            *                        (B) %ERRWD1 = EXPECTED TIO STATUS
      590                            *                            %ERRWD2 = RECEIVED TIO STATUS
      591                            *                            %ERRWD3 = 2 = WRONG TIO STATUS
      592                            *                            %ERRWD4 = FAILING CHANNEL
      593                            *                            (SNAP-SHOT MATRIX
      594                            *
      595                            *                 TEST 40  - THERE ARE 5 MESSAGE TYPES DEPENDING ON
      596                            *                            %ERRWD3.
      597                            *                        (A) %ERRWD1 = EXPECTED BYTE ADDRESS FOR DATAOUT
      598                            *                            %ERRWD2 = RECEIVED BYTE ADDRESS
      599                            *                            %ERRWD3 = 1 = NO ASC RECEIVED FOR DATAOUT
      600                            *                            %ERRWD4 = FAILING CHANNEL
      601                            *                            (SNAP-SHOT MATRIX)
      602                            *
      603                            *                        (B) %ERRWD1 = EXPECTED BYTE ADDRESS FOR DATAOUT
      604                            *                            %ERRWD2 = RECEIVED BYTE ADDRESS
      605                            *                            %ERRWD3 = 2 = NO RSA FOR DATAOUT
      606                            *                            %ERRWD4 = FAILING CHANNEL
      607                            *                            (SNAP-SHOT MATRIX)
      608                            *
      609                            *                        (C) %ERRWD1 = EXPECTED BYTE ADDRESS FOR DATAOUT
      610                            *                            %ERRWD2 = RECEIVED BYTE ADDRESS FOR DATAOUT
      611                            *                            %ERRWD3 = 3 = NO NES FOR TERMINAL ORDER.
      612                            *                            %ERRWD4 = FAILING CHANNEL
      613                            *                            (SNAP-SHOT MATRIX)
      614                            *
      615                            *                        (D) %ERRWD1 = EXPECTED BYTE ADDRESS FOR DATAOUT
      616                            *                            %ERRWD2 = RECEIVED BYTE ADDRESS FOR DATAOUT
      617                            *                            %ERRWD3 = 4 = NO COUNT DONE FOR TERINAL
      618                            *                                          ORDER.
      619                            *                            %ERRWD4 = FAILING CHANNEL
      620                            *                            (SNAP-SHOT MATRIX)
      621                            *
      622                            *                        (E) %ERRWD1 = EXPECTED BYTE ADDRESS FOR DATAOUT
      623                            *                            %ERRWD2 = RECEIVED BYTE ADDRESS FOR DATAOUT
      624                            *                            %ERRWD3 = 5 = BYTE COUNT DID NOT GO TO ZERO
      625                            *                            %ERRWD4 = FAILING CHANNEL
      626                            *                            (SNAP-SHOT MATRIX)
      627                            *
      628                            *                 TEST 42  - THERE ARE 4 MESSAGE TYPES DEPENDING ON
      629                            *                            %ERRWD3
      630                            *                        (A) %ERRWD1 = DATA BEING TRANSFERRED(ADDRESS)
      631                            *                            %ERRWD2 = DATA RECEIVED.
      632                            *                            %ERRWD3 = 1 = BYTE A WRONG
      633                            *                            %ERRWD4 = FAILING CHANNEL
      634                            *                            (SNAP-SHOT MATRIX)
      635                            *
      636                            *                        (B) %ERRWD1 = DATA BEING TRANSFERRED (ADDRESS)
      637                            *                            %ERRWD2 = DATA RECEIVED.
      638                            *                            %ERRWD3 = 2 = BYTE B WRONG
      639                            *                            %ERRWD4 = FAILING CHANNEL
      640                            *                            (SNAP-SHOT MATRIX)
      641                            *
      642                            *                        (C) %ERRWD1 = DATA BEING TRANSFERRED(ADDRESS)
      643                            *                            %ERRWD2 = DATA RECEIVED
      644                            *                            %ERRWD3 = 3 = BYTE C WRONG
      645                            *                            %ERRWD4 = FAILING CHANNEL
      646                            *                            (SNAP-SHOT MATRIX)
      647                            *
      648                            *                        (D) %ERRWD1 = DATA BEING TRANSFERRED(ADDRESS)
      649                            *                            %ERRWD2 = DATA RECEIVED
      650                            *                            %ERRWD3 = 4 = BYTE D WRONG
      651                            *                            %ERRWD4 = FAILING CHANNEL
      652                            *                            (SNAP-SHOT MATRIX)
      653                            *
      654                            *                 TEST 47  - %ERRWD1 = B.C. EXPECTED
      655                            *                            %ERRWD2 = B.C. RECEIVED
      656                            *                            %ERRWD3 = INTERACTING SUBCHANNEL
      657                            *                            %ERRWD4 = FAILING CHANNEL
      658                            *                            (SNAP-SHOT MATRIX)
      659                            *
      660                            *                 TEST 48  - THERE ARE 8 MESSAGE TYPES DEPENDING ON
      661                            *                            %ERRWD3.
      662                            *                        (A) %ERRWD1 = EXPECTED DATA
      663                            *                            %ERRWD2 = RECEIVED DATA
      664                            *                            %ERRWD3 = 1 = WRONG DATA AFTER 1ST DATAOUT
      665                            *                            %ERRWD4 = FAILING CHANNEL
      666                            *                            (SNAP-SHOT MATRIX)
      667                            *
      668                            *                        (B) %ERRWD1 = EXPECTED DATA
      669                            *                            %ERRWD2 = RECEIVED DATA
      670                            *                            %ERRWD3 = 2 = WRONG DATA AFTER 2ND DATAOUT
      671                            *                            %ERRWD4 = FALING CHANNEL
      672                            *                            (SNAP-SHOT MATRIX)
      673                            *
      674                            *                        (C) %ERRWD1 = EXPECTED DATA
      675                            *                            %ERRWD2 = RECEIVED DATA
      676                            *                            %ERRWD3 = 3 = WRONG TERMINAL ORDER AFTER
      677                            *                                          1ST DATA OUT
      678                            *                            %ERRWD4 = FAILING CHANNEL
      679                            *                            (SNAP-SHOT MATRIX)
      680                            *
      681                            *                        (D) %ERRWD1 = EXPECTED DATA
      682                            *                            %ERRWD2 = RECEIVED DATA
      683                            *                            %ERRWD3 = 4 = WRONG TERMINAL ORDER AFTER
      684                            *                                          2ND DATA OUT
      685                            *                            %ERRWD4 = FAILING CHANNEL
      686                            *                            (SNAP-SHOT MATRIX)
      687                            *
      688                            *                        (E) %ERRWD1 = EXPECTED DATA
      689                            *                            %ERRWD2 = RECEIVED DATA
      690                            *                            %ERRWD3 = 5 = RSA, ED OR NES NOT RETURNED
      691                            *                                          AFTER 1ST DATA OUT.
      692                            *                            %ERRWD4 = FAILING CHANNEL
      693                            *                            (SNAP-SHOT MATRIX)
      694                            *
      695                            *                        (F) %ERRWD1 = EXPECTED DATA
      696                            *                            %ERRWD2 = RECEIVED DATA
      697                            *                            %ERRWD3 = 6 = NO RSA OR ES AFTER TERMINAL
      698                            *                                          ORDER FOR 1ST DATA OUT
      699                            *                        (G) %ERRWD1 = EXPECTED DATA
      700                            *                            %ERRWD2 = RECEIVED DATA
      701                            *                            %ERRWD3 = 7 = RSA, ED OR NES NOT RETURNED
      702                            *                                          AFTER 2ND DATA OUT
      703                            *                            %ERRWD4 = FAILING CHANNEL
      704                            *                            (SNAP-SHOT MATRIX)
      705                            *
      706                            *                        (H) %ERRWD1 = EXPECTED DATA
      707                            *                            %ERRWD2 = RECEIVED DATA
      708                            *                            %ERRWD3 = 8 = NO ED OR ES AFTER 2ND DATAOUT
      709                            *                            %ERRWD4 = FAILING CHANNEL
      710                            *                            (SNAP-SHOT MATRIX)
      711                            *
      712                            *                 TEST 49  - %ERRWD1 = EXPECTED AIO STATUS
      713                            *                            %ERRWD2 = RECEIVED AIO STATUS
      714                            *                            %ERRWD4 = FAILING CHANNEL
      715                            *                            (SNAP-SHOT MATRIX)
      716                            *
      717                            *                 TEST 50 THRU 52  - THERE ARE 2 MESSAGE TYPES
      718                            *                        (A) %ERRWD1 = EXPECTED DATA
      719                            *                            %ERRWD2 = RECEIVED DATA
      720                            *                            %ERRWD3 = N1 = NO ASC AFTER NTH DATA IN.
      721                            *                                           N WILL BE BETWEEN 1 AND C.
      722                            *                            %ERRWD4 = FAILING CHANNEL
      723                            *                            (SNAP-SHOT MATRIX)
      724                            *
      725                            *                        (B) %ERRWD1 = EXPECTED DATA
      726                            *                            %ERRWD2 = RECEIVED DATA
      727                            *                            %ERRWD3 = N2 = THE NTH DATA WORD IS WRONG
      728                            *                            %ERRWD4 = FAILING CHANNEL
      729                            *                            (SNAP-SHOT MATRIX)
      730                            *
      731                            *                 TEST 53  - %ERRWD1 = (N)  INDICATING NON-OPERATIVE I/O
      732                            *                            %ERRWD4 = FAILING CHANNEL
      733                            *
      734                            *                 TEST 54  - THIS IS A MIOP BUS-SHARING TEST AND THE
      735                            *                            ERROR INDICATION IS A'WAIT'WHICH IMPLIES
      736                            *                            THAT THE FREE-RUNNING MIOP WILL NOT GO BUSY
      737                            *                            USE CAN REGAIN CONTROL BY TOGGLING COMPUTE
      738                            *                            SWITCH.
      739                            *
      740                            *
      741                            *
      742                            *
      743                            *
      744                            *
      745                            *
      746                            * SNAP-SHOT              WHEN AN ERROR IS DETECTED, A SNAP-SHOT MATRIX
      747                            *                        WILL BE GENERATED AND PRINTED. THIS SNAP-SHOT
      748                            *                        MATRIX GIVES THE STATE OF THE IOP AS IT IS
      749                            *                        SEQUENCING THRU A TEST.  IF SIMPLEX COM-
      750                            *                        PARE IS RUN, THE CORRECT SNAPSHOT LINE
      751                            *                        WILL BE PRINTED ABOVE ANY LINE IN WHICH
      752                            *                        MISCOMPARISON WAS DETECTED.  ERRORED LINES
      753                            *                        WILL BE FLAGGED WITH A '>', AND ERRORED
      754                            *                        GROUPS WILL BE FLAGGED WITH AN ASTERISK.
      755                            *                        LINE SPACEING WILL BE GIVEN BEFORE AND
      756                            *                        AFTER THE DOUBLE LINE 'COOKBOOK/MISCOM-
      757                            *                        PARE OUTPUT, IN ORDER TO OFFSET MISCOMPARES
      758                            *                        FROM VALID LINES.
      759                            *
      760                            *                        SNAPSHOT LINES WILL BE GROUPED INTO
      761                            *                        SERVICE CYCLES AND THE SERVICE CYCLE
      762                            *                        HEADER WILL BE PRINTED IMMEDIATELY ABOVE
      763                            *                        THE SERVICE CYCLE.  IN THE CASE OF THE
      764                            *                        SIMPLEX-COMPARE OUTPUT, THE OUTPUT WILL
      765                            *                        BEGIN WITH THE SERVICE CYCLE IN WHICH THE
      766                            *                        MISCOMPARE WAS FIRST DETECTED.  IF NO
      767                            *                        MISCOMPARISON WAS DETECTED, THE SIMPLEX-
      768                            *                        COMPARE OUTPUT WILL APPEAR IDENTICAL
      769                            *                        TO THE SELECTIVE-NO COMPARE OUTPUT.
      770                            *
      771                            *                        THE DISPLAY MATRIX CONSISTS OF COLUMNS
      772                            *                        OF HEX DIGITS.  EACH OF THE COLUMNS
      773                            *                        HAS A HEADING, GRP1 TO GRP7. EACH GROUP HAS
      774                            *                        4 HEXADECIMAL DIGITS WHICH REPRESENTS THE MIOP
      775                            *                        DISPLAY DATA. EACH BIT POSITION OF THE 4
      776                            *                        HEXADECIMAL DIGITS (16 BITS) HAS THE FOLLOWING
      777                            *                        SIGNIFICANCE.
      778                            *                        NOTE:  MISCOMPARISONS INDICATED IN         *A02
      779                            *                        DISPLAY GROUP 3 ARE NOT NECESSARILY        *A02
      780                            *                        INDICATIVE OF MALFUNCTION WHEN THE         *A02
      781                            *                        BUSS SHARE OPTION IS INSTALLED.            *A02
      782                            *                        THE VARIOUS MEMORY SIGNALS REPRESENTED     *A02
      783                            *                        IN DISPLAY GROUP 3 WILL BE SET OR          *A02
      784                            *                        RESET ENTIRELY DEPENDANT UPON THE          *A02
      785                            *                        SYSTEM CONFIGURATION AND USAGE, AND        *A02
      786                            *                        NO SINGLE SET OF COMPARE DATA WILL         *A02
      787                            *                        BE VALID FOR ALL VARIANCES.                *A02
      788                            *
      789                            *
      790                            *                        GRP1
      791                            *        P P P P    P P P P    P P P P    P P P P
      792                            *        H H H H    H H H H    H H H H    H H R R
      793                            *        0 0 0 0    1 1 1 1    1 1 1 1    1 1 1 2
      794                            *        1 1 0 0    0 0 1 1    2 2 3 3    4 4
      795                            *        D P D P    D P D P    D P D P    D P
      796                            *        1 D 1 D    1 D 1 D    1 D 1 D    1 D
      797                            *          2   1      1   1      1   1      1
      798                            *
      799                            *                        GRP2
      800                            *
      801                            *        P P P P    P P P P    P P P P    P P P P
      802                            *        H H H H    H H H H    H H H H    H H H H
      803                            *        0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0
      804                            *        0 0 1 1    2 2 3 3    4 4 5 5    6 6 7 7
      805                            *        D P D P    D P D P    D P D P    D P D P
      806                            *        1 D 1 D    1 D 1 D    1 D 1 D    1 D 1 D
      807                            *          1   1      1   1      1   1      1   1
      808                            *
      809                            *                        GRP 3
      810                            *
      811                            *        M M M M    M M P T    E E D A    M M M M
      812                            *        A A D P    R S R P    H H L I    C C C C
      813                            *        E R R E    Q   C E      E 3 O    F F F F
      814                            *                       H          C P    A A B B
      815                            *                                  Y        /   /
      816                            *                                  C        1   1
      817                            *                                  L
      818                            *                                  E
      819                            *
      820                            *                        GRP4
      821                            *
      822                            *        O O W F    F T T Z    F F R R    L A - -  ( - ALWAYS 1 )
      823                            *        R U I I    P O R B    S S S S    A V                       *A02
      824                            *        D T   N      R A C    : L : A    S O
      825                            *                     D 1      D : R :    T :
      826                            *                                R   D    O R
      827                            *                                         N
      828                            *                                         E
      829                            *
      830                            *                        GRP5
      831                            *
      832                            *        A A A A    A A A A    L L L K    S U U U
      833                            *        0 0 0 0    0 0 0 0    S S S 1    U N N N
      834                            *        0 1 2 3    4 5 6 7    0 1 2 5    B 0 1 2
      835                            *
      836                            *                        GRP6
      837                            *
      838                            *        H H H H    H H H H    C C C I    I F J J
      839                            *        0 1 2 3    4 5 6 7    C C M E    R N 1 2
      840                            *                              1 2 D R    : C
      841                            *                                    :    D
      842                            *                                    R
      843                            *
      844                            *                        GRP7
      845                            *
      846                            *        C C C C    C C C C    C C C C    C C C C
      847                            *        0 0 0 0    0 0 0 0    0 0 1 1    1 1 1 1
      848                            *        0 1 2 3    4 5 6 7    8 9 0 1    2 3 4 5
      849                            *
      850                            *
      851                            *
      852                            *
      853                            *
      854                            *   PROGRAM PRINTOUTS
      855                            *    MESSAGE                             MEANING
      856                            *
      857                            * SYNTAX ERROR    INCORRECT DIRECTIVE INPUT
      858                            *
      859                            * ERR TEST NN     TEST NN (DECIMAL) FAILED.
      860                            * ERR WORD 1 =    ANY OF THE THREE ERROR WORDS MAY BE OUTPUT WHEN A
      861                            * ERR WORD 2 =    TEST FAILS TO PROVIDE ADDITIONAL INFORMATION AS AN
      862                            * ERR WORD 3 =    AID TO FAULT ISOLATION.
      863                            * ERR WORD 4 =    CHANNEL NUMBER (DECIMAL) BEING TESTED.
      864                            *
      865                            *
      866                            * FOLLOWING THE ERR WORDS THERE WILL BE A TYPEOUT OF EACH OF THE SEVEN
      867                            * 16-BIT MIOP DISPLAY GROUPS IN HEX:
      868                            *
      869                            *        HHHH HHHH HHHH HHHH HHHH HHHH HHHH
      870                            *
      871                            * THIS SINGLE LINE HEX TYPEOUT WILL BE REPEATED X TIMES, WHERE X IS THE
      872                            * NUMBER OF PHASES EXCUTED IN THE MIOP DURING THE OPERATION IN ERR.
      873                            *
      874                            * TEST COMPLETE   THE TESTING SEQUENCE HAS BEEN COMPLETED.
      875                            *
      876                            *
      877                            *
      878                            *
      879                            *
      880         00000000           TEXTS    CNAME                      PROCEEDURE FOR GENERATION       *A02
      881                                     PROC                       OF TEXT SUPPRESSION PROC        *A02
      882                                     DISP      %                                                *A02
      883                                     LIST      0                                                *A02
      884                            LF       TEXT      AF                                               *A02
      885                                     LIST      1                                                *A02
      886                                     PEND                                                       *A02
      887   01 00040                          ORG      64
            01 00040
      888   01 00040    0F000140              XPSD,0   %INTRAP           NON-ALLOWED OPERATION TRAP
      889   01 00041    0F000140              XPSD,0   %INTRAP           UNIMPLEMENTED INSTRUCTION TRAP
      890   01 00042    0F000140              XPSD,0   %INTRAP           PUSH-DOWN STACK LIMIT TRAP
      891   01 00043    0F000140              XPSD,0   %INTRAP           FIXED-POINT ARITHMETIC OVERFLOW TRAP
      892   01 00044    0F000140              XPSD,0   %INTRAP           FLOATING-POINT FAULT TRAP
      893   01 00045    0F000140              XPSD,0   %INTRAP           DECIMAL ARITHMETIC FAULT TRAP
      894   01 00046    0F000CF4              XPSD,0   %WDTTRAP          WATCHDOG TIMER TRAP XPSD******
      895   01 00047    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      896   01 00048    0F000140              XPSD,0   %INTRAP           CALL 1
      897   01 00049    0F000140              XPSD,0   %INTRAP           CALL 2
      898   01 0004A    0F000140              XPSD,0   %INTRAP           CALL 3
      899   01 0004B    0F000140              XPSD,0   %INTRAP           CALL 4
      900   01 0004C    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      901   01 0004D    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      902   01 0004E    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      903   01 0004F    0F000140              XPSD,0   %INTRAP           UNASSIGNED
      904   01 00050    0F000140              XPSD,0   %INTRAP           POWER ON INTERRUPT
      905   01 00051    0F000140              XPSD,0   %INTRAP           POWER OFF INTERRUPT
      906   01 00052    33000052              MTW,0    %                 COUNTER 1 COUNT PULSE INTERRUPT
      907   01 00053    33000053              MTW,0    %                 COUNTER 2 COUNT PULSE INTERRUPT
      908   01 00054    33000054              MTW,0    %                 COUNTER 3 COUNT PULSE INTERRUPT
      909   01 00055    33000055              MTW,0    %                 COUNTER 4 COUNT PULSE INTERRUPT
      910   01 00056    0F000140              XPSD,0   %INTRAP           MEMORY PARITY INTERRUPT
      911   01 00057    0F000140              XPSD,0   %INTRAP           UNASSIGNED INTERRUPT
      912   01 00058    0F000140              XPSD,0   %INTRAP           COUNTER 1 ZERO INTERRUPT
      913   01 00059    0F000140              XPSD,0   %INTRAP           COUNTER 2 ZERO INTERRUPT
      914   01 0005A    0F000140              XPSD,0   %INTRAP           COUNTER 3 ZERO INTERRUPT
      915   01 0005B    0F000140              XPSD,0   %INTRAP           COUNTER 4 ZERO INTERRUPT
      916   01 0005C    0F000CFC              XPSD,0   %IOINT            INPUT OUTPUT INTERRUPT
      917   01 0005D    0F000D72              XPSD,0   %CPINT            CONTROL PANEL INTERRUPT
      918   01 0005E    0F000140              XPSD,0   %INTRAP           UNASSIGNED INTERRUPT
      919   01 0005F    0F000140              XPSD,0   %INTRAP           UNASSIGNED INTERRUPT
      920   01 00140                          ORG      320                                               *A02
            01 00140
      921   01 00140    00000000 A   %INTRAP  DATA     0,0
            01 00141    00000000 A
      922   01 00142    00000144              DATA     %+2,0
            01 00143    00000000 A
      923   01 00144    2E000000 A            WAIT                       A TRAP OR INTERRUPT HAS OCCURRED
      924   01 00145    0E200146              LPSD,2   %+1               CLEAR ACTIVE LEVEL RETURN TO START
      925   01 00146    00000200              DATA     %START
      926   01 00147    00000000 A            DATA     0
      927                            *
      928                            *        TEST CASE COMMAND PAIRS
      929                            *
      930   01 00148    AA000000 A   T025CP   GEN,8,24 170,0
      931   01 00149    00000000 A            DATA     0
      932   01 0014A    AA000000 A   T026CP   GEN,8,24 170,0
      933   01 0014B    00000000 A            DATA     0
      934   01 0014C    01000800     T0270CP  GEN,8,24 1,BA(%START)
      935   01 0014D    00000001 A            DATA     1
      936   01 0014E    00000000 A   T0271CP  DATA     0
      937   01 0014F    00000000 A            DATA     0
      938   01 00150    00000000 A   T0272CP  DATA     0
      939   01 00151    00000000 A            DATA     0
      940   01 00152    00000000 A   T0360CP  DATA     0
      941   01 00153    00000000 A            DATA     0
      942   01 00154    AA000000 A   T0360CP1 GEN,8,24 170,0
      943   01 00155    00000000 A            DATA     0
      944   01 00156    000000AA     T0360CA  DATA     DA(T0360CP1)
      945   01 00157    00000000 A            DATA     0
      946   01 00158    01000100 A   T040CP   GEN,8,24 1,256
      947   01 00159    0000000C A            DATA     12
      948   01 0015A    00000000 A   T042CP   DATA     0
      949   01 0015B    00000004 A            DATA     4
      950   01 0015C    01000598     T048CP   GEN,8,24 1,BA(T048BUF1)
      951   01 0015D    88000001 A            GEN,8,24 136,1
      952   01 0015E    000005A0              DATA     BA(T048BUF2)
      953   01 0015F    08000001 A            GEN,8,24 8,1
      954   01 00160    020005A8     T051CP   GEN,8,24 2,BA(DINBUFF)
      955   01 00161    00000000 A            DATA     0
      956   01 00162    0C0005D7     T050CP   GEN,8,24 12,BA(DINBUFF)+47
      957   01 00163    00000000 A            DATA     0
      958   01 00164    020005A8     T052CP   GEN,8,24 2,BA(DINBUFF)
      959   01 00165    01000000 A            GEN,8,24 1,0
      960   01 00166    01000000 A   T048BUF1 DATA     X'01000000'
      961   01 00167    00000000 A            DATA     0
      962   01 00168    03000000 A   T048BUF2 DATA     X'03000000'
      963   01 00169    00000000 A            DATA     0
      964   01 0016A                 DINBUFF  RES      12
      965                            *
      966                            *
      967   01 00176    01004E84     T047CP   GEN,8,24 1,BA(T048)
      968   01 00177    00000004 A            GEN,8,24 0,4
      969   01 00178    0200C000 A   T53INCP  GEN,8,24 2,49152           ORDER = READ,  BA = 49,152
      970   01 00179    00001F40 A            DATA     8000              NO FLAGS,  BC = 8000
      971   01 0017A    0100C000 A   T53OUTCP GEN,8,24 1,49152           ORDER = WRITE,  BA = 49,152
      972   01 0017B    00001F40 A            DATA     8000              NO FLAGS,  BC = 8000
      973   01 0017C    01000190 A   T054CP   GEN,8,24 1,400
      974   01 0017D    2000FFFF A            GEN,8,24 32,65535          COMMAND CHAINING
      975   01 0017E    080000BE              GEN,8,24 8,DA(T054CP)      TRANSFER IN CHANNEL
      976                            *
      977                            *
      978   01 00200                          ORG      512
            01 00200
      979                            *        BEGIN  EXECUTIVE  ROUTINE
      980   01 00200    6AF00CD6     %START   BAL,15   MEM01             COMPUTE MEMORY SIZE
      981   01 00201    32400292              LW,4     %RESTART          INITIALIZE LOCATION X'26' FOR
      982   01 00202    35400026 A            STW,4    38                 PROGRAM RECOVERY VIA 'SYSTEM RESET'
      983   01 00203    6AF0029C              BAL,15   %REGSET           SET VALUE 0,1,2,3 INTE REG. 0,1,2,3
      984   01 00204    22400030 A            LI,4     X'30'             SET INTERUPT CONTROL BITS
      985   01 00205    6D401200 A            WD,4     X'1200'           ARM & ENABLE I/O GRP INT'S
      986   01 00206    68000AEB              B        %KTROL            REQUEST INPUT PARAMETERS        *A02
      987   01 00207    6AF00A69     EXEC     BAL,15   %IORST            RESET I/O AND MS ON LINE        *A02
      988   01 00208    22480000 A            LI,4     X'80000'          R E L A Y                       *A02
      989   01 00209    35400295              STW,4    LASTFAIL          INVALIDATE LASTFAIL TEST NUMBER
      990   01 0020A    6540020A              BIR,4    %                            D E L A Y            *A02
      991   01 0020B    ED400BB5              WD,4     *GPA3             ARM GRP 3 FOR SNAPSHOT          *A02
      992   01 0020C    EC400BB5              RD,4     *GPA3             READ FOR EDX4                   *A01
      993   01 0020D    4B400F99              AND,4    X:100             IS FOUR BYTE OPTION INSTALLED   *A01
      994   01 0020E    69200216              BCS,2    EXECX             IF SO, BRANCH                   *A01
      995   01 0020F    220001FB              LI,0     DA(DWCMNDGK)      FETCH COMMAND ADDRESS           *A01
      996   01 00210    6AF00A75              BAL,15   IOPCHECK          IS OUTPUT ON TEST IOP?
      997   01 00211    6AF003CD              BAL,15   OUTYPE            OUTPUT 4-BYTE MESSAGE           *A01
      998   01 00212    6AF00A77              BAL,15   IOCHKOFF          INSURE THAT DC'S ARE OFF
      999   01 00213    32400C33              LW,4     %BITEST+1         FETCH TEST BIT SETTING          *A01
     1000   01 00214    4B400FB3              AND,4    FFA1E200          INHIBIT T51, T52 AND T53        *A02
     1001   01 00215    35400C33              STW,4    %BITEST+1         STORE INHIBITED PATTERN         *A01
     1002   01 00216    35100D6C     EXECX    STW,1    %FIRSTIME         SET FIRST TIME FLAG
     1003   01 00217    68000D0C     #0001000 B        %STROL            GO TO CHAN CONTROL ROUTINE
     1004   01 00218    32600C32              LW,6     %BITEST           FETCH CURRENT TEST BIT PATTERN,0-31
     1005   01 00219    4B600FAE              AND,6    DEDFF9FF          INHIBIT RUNNING OF SPARE TESTS
     1006   01 0021A    35600C32              STW,6    %BITEST           SET RESULTING TEST BIT PATTERN
     1007   01 0021B    32600C33              LW,6     %BITEST+1         FETCH TEST BIT PATTERN T32-T54
     1008   01 0021C    4B600FB6              AND,6    FFA1FE00          INHIBIT SPARE TESTS
     1009   01 0021D    33000D70              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION?
     1010   01 0021E    68300220              BCR,3    %+2               BRANCH IF NOT
     1011   01 0021F    4B600FB5              AND,6    FFA0FE00          INHIBIT T47 IF CBGEN
     1012   01 00220    33000C1A              MTW,0    COMPFLAG          IS COMPARE TO BE MADE
     1013   01 00221    68300223              BCR,3    %+2               BRANCH IF NOT
     1014   01 00222    4B600FB4              AND,6    FFA0F800          INHIBIT T47,T53 AND T54 IF COMPARE
     1015   01 00223    35600C33              STW,6    %BITEST+1         SET RESULTING TEST BIT PATTERN
     1016   01 00224    35E00294              STW,14   PHSLATCH          CLEAR SINGLE PHASE ENABLE       *A02
     1017   01 00225    35E00293              STW,14   PHASPASS          CLEAR RESIDUAL PASS ENABLE      *A02
     1018   01 00226    35E00298              STW,14   TYERR             CLEAR ERR REPORTED FLAG         *A02
     1019   01 00227    35E01184              STW,14   TSTERROR          CLR T27 ERROR FLAG
     1020   01 00228    35100AD7              STW,1    NEWLINE           INSURE DISP BEGINS W/NEWLINE    *A02
     1021   01 00229    3240029B              LW,4     BADCLR            FETCH RETURN INITIALIZER
     1022   01 0022A    33000D70              MTW,0    CBFLG             IS THIS C.B. GENERATION?
     1023   01 0022B    6930022D              BCS,3    %+2               IF SO, DO NOT RESET RETURN
     1024   01 0022C    35400257              STW,4    RETURN            INITIALIZE RETURN
     1025                            *                                                                   *A02
     1026                            *        END  OF  EXECUTIVE  ROUTINE
     1027                            *
     1028                            *
     1029                            *        T E S T  C O N T R O L  R O U T I N E
     1030                            *
     1031   01 0022D    35E00299              STW,14   TESTERR           CLEAR TEST FAILED FLAG
     1032   01 0022E    35E0029A              STW,14   %EPOINT           CLEAR EXECUTE POINTER
     1033   01 0022F    32400C32              LW,4     %BITEST           FETCH TEST BITS
     1034   01 00230    49400C33              OR,4     %BITEST+1         FETCH TEST BITS
     1035   01 00231    68300AEB              BCR,3    %KTROL            BRANCH IF NO TEST TO RUN
     1036   01 00232    3240029A     #0001010 LW,4     %EPOINT           RETURN HERE--GET TABLE POINTER
     1037   01 00233    22500000 A            LI,5     0                 CLEAR REG 5
     1038   01 00234    2540017B A            SLD,4    -5                DIVIDE BY 32
     1039   01 00235    25500065 A            SLS,5    -27               RIGHT JUSTIFY
     1040   01 00236    32880C32              LW,8     %BITEST,4         FETCH BIT PATTERN, INDEXED
     1041   01 00237    258A0000 A            SLS,8    0,5               SELECT BIT IN BIT POSITION 0
     1042   01 00238    33000008 A            MTW,0    8                 TEST BIT 0
     1043   01 00239    69100241              BCS,1    #0001030          BRANCH IF THIS TEST IS TO BE RUN
     1044   01 0023A    3310029A     #0001020 MTW,1    %EPOINT           ADVANCE EXECUTE TABLE POINTER
     1045   01 0023B    35E00298              STW,14   TYERR             CLEAR TYPE ERR FLAG
     1046   01 0023C    35E00299              STW,14   TESTERR           CLEAR TESTERR BEFORE ADVANCING
     1047   01 0023D    3240029A              LW,4     %EPOINT           FETCH EXECUTE TABLE POINTER
     1048   01 0023E    21400037 A            CI,4     %DICTLENGTH       COMPARE WITH # OF TESTS POSSIBLE
     1049   01 0023F    68300217              BCR,3    #0001000          BRANCH IF PAST END OF TABLE
     1050   01 00240    68000232              B        #0001010          BRANCH TO CONTINUE NEXT TEST
     1051   01 00241    6C000000 A   #0001030 RD,0     0                 FETCH SENSE SWITCH SETTING
     1052   01 00242    69800205              BCS,8    EXEC-2            BRANCH IF SS1 IS SET, BACK TO EXEC
     1053   01 00243    6AF00A69              BAL,15   %IORST            RESET IO
     1054   01 00244    35E00AD5              STW,14   ADDATA            CLEAR ADD DATA FLAG
     1055   01 00245    33000293              MTW,0    PHASPASS          IS THIS THE SINGLE PHS PASS     *A01
     1056   01 00246    68300254              BCR,3    TOTEST            BRANCH IF NOT                   *A01
     1057   01 00247    33000D70              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION     *A01
     1058   01 00248    6830024B              BCR,3    %+3               BRANCH IF NOT                   *A01
     1059   01 00249    35100297              STW,1    CBENABLE          ENABLE CB OUTPUT AT LASTFAIL ONLY
     1060   01 0024A    0F000D72              XPSD,0   %CPINT            GO OUT OF CB MODE
     1061   01 0024B    3240029A              LW,4     %EPOINT           FETCH EXECUTE TABLE POINTER
     1062   01 0024C    31400295              CW,4     LASTFAIL          IS THIS THE FAILING MODULE      *A01
     1063   01 0024D    69300254              BCS,3    TOTEST            BRANCH IF NOT                   *A01
     1064   01 0024E    33100294              MTW,1    PHSLATCH          SET SINGLE PHASE MODE           *A01
     1065   01 0024F    35E00293              STW,14   PHASPASS          CLEAR PHASE PASS FLAG           *A01
     1066   01 00250    33000297              MTW,0    CBENABLE          IS CB OUTPUT ENABLED?
     1067   01 00251    68300254              BCR,3    TOTEST            NO, GO TO TEST MODULE
     1068   01 00252    35E00297              STW,14   CBENABLE          YES, CLEAR IT
     1069   01 00253    0F000D72              XPSD,0   %CPINT            ENABLE COOKBOOK MODE
     1070   01 00254    3240029A     TOTEST   LW,4     %EPOINT           FETCH TABLE POINTER
     1071   01 00255    32480C9F              LW,4     %DICTA,4          FETCH MODULE ADDRESS
     1072   01 00256    68080000 A            B        0,4               GO TO TEST MODULE
     1073   01 00257    68000258     RETURN   B        %+1               TEST MODULES RETURN HERE
     1074   01 00258    6800025A              B        GOOD              RETURN POINTS HERE IF TEST WAS GOOD
     1075   01 00259    68000269              B        BAD               RETURN POINTS HERE IF TEST FAILED
     1076   01 0025A    33000294     GOOD     MTW,0    PHSLATCH          IS THIS AN ERROR PASS RETURN
     1077   01 0025B    6930025F              BCS,3    %+4               IF SO BRANCH
     1078   01 0025C    33000298              MTW,0    TYERR             SHOULD TEST BE ERR LOOPING?
     1079   01 0025D    69300232              BCS,3    #0001010          YES, REMAIN IN ERROR LOOP
     1080   01 0025E    6800023A              B        #0001020          NO, CONTINUE TESTING
     1081   01 0025F    220001FA              LI,0     DA(DWCMNDFK)      FETCH INTERMIT MSG. CMND PR.
     1082   01 00260    6AF00A75              BAL,15   IOPCHECK          IS OUTPUT ON TEST IOP?
     1083   01 00261    6AF003CD              BAL,15   OUTYPE            OUTPUT MARGINAL TIMING MESSAGE
     1084   01 00262    6AF00A77              BAL,15   IOCHKOFF          INSURE THAT DC'S ARE OFF
     1085   01 00263    351003DF              STW,1    BYTECNT           INHIBIT DISPLAY GRP OUTPUT
     1086   01 00264    224FFFFD A            LI,4     -3                SET LOOP FOR THREE ITERATIONS
     1087   01 00265    32880C9E              LW,8     ERRWDLST+3,4      FETCH OLD ERR WORD
     1088   01 00266    35880C9A              STW,8    %ERRWD1+3,4       RESTORE OLD ERR WORD
     1089   01 00267    65400265              BIR,4    %-2               LOOP FOR THREE WORDS
     1090   01 00268    68000272              B        BADLY             REPORT ERROR
     1091   01 00269    33000293     BAD      MTW,0    PHASPASS          IS THIS RESIDUAL RERUN?
     1092   01 0026A    68300272              BCR,3    BADLY             BRANCH IF NOT PHASPASS
     1093   01 0026B    220001FC              LI,0     DA(DWCMNDHK)      FETCH CP TO:
     1094   01 0026C    6AF00A75              BAL,15   IOPCHECK          IS OUTPUT ON TEST IOP?
     1095   01 0026D    6AF003CD              BAL,15   OUTYPE            OUTPUT INTERMITTANT MSG.
     1096   01 0026E    6AF00A77              BAL,15   IOCHKOFF          INSURE THAT DC'S ARE OFF
     1097   01 0026F    68000286              B        EOUT              OUTPUT OLD ERROR WORDS
     1098   01 00270    33F00257              MTW,-1   RETURN            SET RETURN BACK TO GOOD
     1099   01 00271    6800023A              B        #0001020          CONTINUE WITH TESTING
     1100   01 00272    33F00257     BADLY    MTW,-1   RETURN            SET RETURN BACK TO GOOD
     1101   01 00273    68000275              B        %+2               NORMAL C.B. ENTRY PNT.
     1102   01 00274    33F00257              MTW,-1   RETURN            PLUS ONE C.B. ENTRY PNT.
     1103   01 00275    3240029A              LW,4     %EPOINT           FETCH FAILING MODULE INDEX      *A02
     1104   01 00276    35400295              STW,4    LASTFAIL          SAVE                            *A02
     1105   01 00277    33000294              MTW,0    PHSLATCH          HAS SINGLE PHASEING  BEEN EXECUTED?
     1106   01 00278    6930027A              BCS,3    %+2               IF SO, BRANCH                   *A01
     1107   01 00279    33100293              MTW,1    PHASPASS          ENABLE SINGLE PHASE PASS        *A01
     1108   01 0027A    35100D69              STW,1    %ERRFLAG          SET ERROR-THIS-CHANNEL-FLAG
     1109   01 0027B    224FFFFD A            LI,4     -3                SET ERRWD SAVE LOOP COUNT
     1110   01 0027C    32880C9A              LW,8     %ERRWD1+3,4       SAVE FAILING TEST DATA...
     1111   01 0027D    35880C9E              STW,8    ERRWDLST+3,4       IN CASE OF INTERMITTANT FAILURE
     1112   01 0027E    6540027C              BIR,4    %-2               LOOP FOR 4 WORDS
     1113   01 0027F    33000298              MTW,0    TYERR             HAS ERROR BEEN REPORTED?
     1114   01 00280    6930028D              BCS,3    #0001040          DO NOT EXECUTE PHSLOOP
     1115   01 00281    33000294              MTW,0    PHSLATCH          HAS PHASE LOOP BEEN EXECUTED?
     1116   01 00282    69300285              BCS,3    %+3               IF SO, BRANCH                   *A01
     1117   01 00283    35E0029A              STW,14   %EPOINT           SET TEST INDEX BACK TO ZERO     *A01
     1118   01 00284    68000232              B        #0001010          RERUN ALL PRIOR TESTS           *A01
     1119   01 00285    35E00294              STW,14    PHSLATCH          YES, CLEAR PHSLATCH
     1120   01 00286    EDE00BBF     EOUT     WD,14    *GRP0             I/O RESET VIA MS WRITE DIR.
     1121   01 00287    6AF00C3A              BAL,15   %ETROL            REPORT ERROR
     1122   01 00288    6C000000 A            RD,0     0                 FETCH SENSE SWITCHE SETTINGS
     1123   01 00289    6910028D              BCS,1    #0001040          INHIBIT DISPLAY OUTPUT IF SS4 IS SET
     1124   01 0028A    311003DF              CW,1     BYTECNT           IS SPECIAL INHIBIT SET?
     1125   01 0028B    6830028D              BCR,3    #0001040               IF SO, DO NOT OUTPUT DISPLAY
     1126   01 0028C    6AF002D6     DEVSEL   BAL,15   TYPEOUT           OUTPUT DISPLAY OF READ DATA
     1127   01 0028D    35E00294     #0001040 STW,14   PHSLATCH          CLEAR SINGLE PHASE ENABLE
     1128   01 0028E    35E00293              STW,14    PHASPASS          CLEAR RERUN INDICATOR
     1129   01 0028F    6C000000 A            RD,0     0                 GET SENSE SWITCH STATUS
     1130   01 00290    6940023A              BCS,4    #0001020          BRANCH TO CONTINUE TESTING
     1131   01 00291    68000232              B        #0001010          BRANCH TO LOOP ON FAILING TEST
     1132   01 00292    68000200     %RESTART B        %START            INSTRUCTION FOR PROGRAM RECOVERY
     1133   01 00293    00000000 A   PHASPASS DATA     0                 ENABLES RERUNNING FOR RESIDUAL
     1134   01 00294    00000000 A   PHSLATCH DATA     0                 PERMITS ONE SINGLE PHASE LOOP
     1135   01 00295    00000000 A   LASTFAIL DATA     0                 EXECUTE POINTER OF FAILING TST
     1136   01 00296    00000000 A   LATCHSAV DATA     0                 TEMPORARY PHSLATCH STORAGE
     1137   01 00297    00000000 A   CBENABLE DATA     0                 ENABLES CB MODE FOR MODULE 'N'
     1138   01 00298    00000000 A   TYERR    DATA     0                 INDICATES ERROR HAS BEEN REPORTED
     1139   01 00299    00000000 A   TESTERR  DATA     0                 ERROR OCCURRED FLAG
     1140   01 0029A    00000000 A   %EPOINT  DATA     0                 DICTIONARY INDEX FOR CURRENT TEST
     1141   01 0029B    68000258     BADCLR   B        RETURN+1          RETURN INITIALIZER
     1142                            *        REGISTER SET ROUTINE
     1143                            *
     1144   01 0029C    22000000 A   %REGSET  LI,0     0                 REG 0 CONTAINS 0
     1145   01 0029D    22100001 A            LI,1     1                 REG 1 CONTAINS 1
     1146   01 0029E    22200002 A            LI,2     2                 REG 2 CONTAINS 2
     1147   01 0029F    22300003 A            LI,3     3                 REG 3 CONTAINS 3
     1148   01 002A0    22D00004 A            LI,13    4                 REG 13 CONTAINS 4
     1149   01 002A1    22E00000 A            LI,14    0                 REG 14 CONTAINS 0
     1150   01 002A2    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1151                            *        RESTORE REGISTER CONTENTS
     1152                            *
     1153   01 002A3    35F002BA     REGRESTR STW,15   SAVERX            SAVE R15 FOR RETURN
     1154   01 002A4    02200000 A            LCI,0    0                 CONDITIONS SET FOR MULT. OF 16
     1155   01 002A5    2A0002AA              LM,0     SAVE0             SAVE ALL 16 REGISTERS
     1156   01 002A6    E80002BA              B        *SAVERX           RETURN TO CALLER
     1157                            *        SAVE REGISTER CONTENTS
     1158   01 002A7    02200000 A   REGSAVE  LCI,0    0                 CONDITION SET FOR MULT. OF 16
     1159   01 002A8    2B0002AA              STM,0    SAVE0             RESTORE ALL 16 REGISTERS
     1160   01 002A9    E800000F A            B        *15               RETURN TO CALLER
     1161                            *        REGISTER SAVE LOCATIONS
     1162   01 002AA    00000000 A   SAVE0    DATA     0
     1163   01 002AB    00000000 A   SAVE1    DATA     0
     1164   01 002AC    00000000 A   SAVE2    DATA     0
     1165   01 002AD    00000000 A   SAVE3    DATA     0
     1166   01 002AE    00000000 A   SAVE4    DATA     0
     1167   01 002AF    00000000 A   SAVE5    DATA     0
     1168   01 002B0    00000000 A   SAVE6    DATA     0
     1169   01 002B1    00000000 A   SAVE7    DATA     0
     1170   01 002B2    00000000 A   SAVE8    DATA     0
     1171   01 002B3    00000000 A   SAVE9    DATA     0
     1172   01 002B4    00000000 A   SAVE10   DATA     0
     1173   01 002B5    00000000 A   SAVE11   DATA     0
     1174   01 002B6    00000000 A   SAVE12   DATA     0
     1175   01 002B7    00000000 A   SAVE13   DATA     0
     1176   01 002B8    00000000 A   SAVE14   DATA     0
     1177   01 002B9    00000000 A   SAVE15   DATA     0
     1178   01 002BA    00000000 A   SAVERX   DATA     0                 R15 STORAGE DURING REGRESTORE
     1179                            *
     1180                            *
     1181                            *  TYPE AND PRINT OUTPUT ROUTINES
     1182                            *
     1183                            *
     1184                            *        INITIALIZATION MESSAGE OUTPUT ROUTINES
     1185                            *
     1186   01 002BB    324002D4     INITIAL  LW,4     INHBINIT          LOAD AND STORE CODE FOR
     1187   01 002BC    35400B97              STW,4    OUTRET+2           INHIBITING INITIALIZATION MSG.
     1188   01 002BD    33000BD4              MTW,0    LINEPRNT          IS OUTPUT DEVICE THE LINEPRINTER?
     1189   01 002BE    693002C6              BCS,3    PRNTINTL          YES, OUTPUT ON LINEPRINTER
     1190   01 002BF    220001EC     TYPEINTL LI,0     DA(DWCMND1K)      NO, OUTPUT ON ASR/KSR
     1191   01 002C0    6AF003CD              BAL,15   OUTYPE            SPACE ONE LINE
     1192   01 002C1    220001ED              LI,0     DA(DWCMND2K)      FETCH COMMAND PAIR FOR OUTPUTING
     1193   01 002C2    6AF003CD              BAL,15   OUTYPE             THE INITIALIZATION MESSAGE
     1194   01 002C3    220001EC              LI,0     DA(DWCMND1K)      SPACE ANOTHER LINE
     1195   01 002C4    6AF003CD              BAL,15   OUTYPE             AFTER MESSAGE HAS BEEN OUTPUT
     1196   01 002C5    68000AEB              B        #0010000          RETURN TO %KTROL FOR MORE INPUT
     1197   01 002C6    22000203     PRNTINTL LI,0     DA(DWCMND1L)      SPACE ONE LINE PRIOR
     1198   01 002C7    6AF003D2              BAL,15   OUTPRINT          TO BEGINING LINEPRINTER OUTPUT
     1199   01 002C8    22400000 A            LI,4     0                 CLEAR R4 FOR DIVIDE
     1200   01 002C9    325003DB              LW,5     DWCMND2K+1        DIVIDE THE INITIALIZATION MSG
     1201   01 002CA    36400F94              DW,4     X:15               BYTE COUNT BY 15, AND SUBTRACT THIS
     1202   01 002CB    324003DB              LW,4     DWCMND2K+1         VALUE FROM THE ORIGINAL BYTE COUNT
     1203   01 002CC    38400005 A            SW,4     5                  TO GET B.C. FOR THE LINEPRINTER.
     1204   01 002CD    354002D0              STW,4    %+3                THIS COMPENSATES FOR N/L CHARACTERS!
     1205   01 002CE    6AF00361              BAL,15   XPRINT            PRINT INITIALIZATION MESSAGE
     1206   01 002CF    00001090              DATA     BA(MSG1)          MESSAGE BYTE ADDRESS
     1207   01 002D0    00000F30 A            DATA     X'F30'            MESSAGE BYTE COUNT              *A01
     1208   01 002D1    00000050 A            DATA     80                MESSAGE UNIT-BYTE-LENGTH
     1209   01 002D2    22000203              LI,0     DA(DWCMND1L)      AFTER MESSAGE,
     1210   01 002D3    6AF003D2              BAL,15   OUTPRINT          GIVE NEW LINE
     1211   01 002D4    68000AEB     INHBINIT B        #0010000          RETURN FOR MORE INPUT
     1212                            *
     1213                            *        DISPLAY GROUP ERROR OUTPUT  (KSR OR LP)
     1214                            *
     1215   01 002D5    00000000 A   TYPESAVE DATA     0
     1216   01 002D6    35F002D5     TYPEOUT  STW,15   TYPESAVE          SAVE RETURN ADRESS
     1217   01 002D7    6AF00A75              BAL,15   IOPCHECK          IS OUTPUT ON TEST IOP?
     1218   01 002D8    33000C1A              MTW,0    COMPFLAG          IS COMPARE TO BE MADE?
     1219   01 002D9    69300D82              BCS,3    COMPARE           IF SO, BRANCH
     1220   01 002DA    33000BD4              MTW,0    LINEPRNT          IS OUTPUT TO GO TO L.P.?
     1221   01 002DB    6930034B              BCS,3    PRINTOUT          BRANCH IF LP SELECTED
     1222   01 002DC    35E00EBF              STW,14   CYCLINDX          CLEAR SERVICE CYCLE INDEX
     1223   01 002DD    2240A668              LI,4     BA(OUTBUFF)       LOAD STARTING ADDRESS
     1224   01 002DE    3540035E              STW,4    BYTEADDR          SAVE STARTING ADDRESS
     1225   01 002DF    324003DF              LW,4     BYTECNT           FETCH BUFFER SIZE
     1226   01 002E0    3540035F              STW,4    MAXBCNT           STORE BUFFER SIZE FOR COUNTDOWN
     1227   01 002E1    6AF00306              BAL,15   HEADOUTK          OUTPUT INITIAL CYCLE HEADER
     1228   01 002E2    3240035F     KLINELUP LW,4     MAXBCNT           FETCH NUMBER OF BYTES REMAINING
     1229   01 002E3    38400F96              SW,4     X:3C              SUBTRACT LINE LENGTH (60 BYTES)
     1230   01 002E4    691002F9              BCS,1    TYPEXIT           EXIT IF QUOTIENT IS NEGATIVE
     1231   01 002E5    3540035F              STW,4    MAXBCNT           STORE NUMBER OF BYTES REMAINING
     1232   01 002E6    3240035E              LW,4     BYTEADDR          FETCH CURRENT BYTE ADDRESS
     1233   01 002E7    30400FBE              AW,4     KSROUT            FORM INTO COMMAND DOUBLEWORD
     1234   01 002E8    354003F2              STW,4    DWCMNDEK          SET COMMAND DOUBLEWORD
     1235   01 002E9    220001F9              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1236   01 002EA    6AF003CD              BAL,15   OUTYPE            OUTPUT ONE DISPLAY GROUP LINE
     1237   01 002EB    22400038 A            LI,4     56                FETCH DISP GRP LINE-LENGTH CONSTANT
     1238   01 002EC    3040035E              AW,4     BYTEADDR          INCREMENT BYTE ADDRESS
     1239   01 002ED    2540007E A            SLS,4    -2                MAKE WORD ADDRESS
     1240   01 002EE    B2500004 A            LW,5     *4                FETCH NEWLINE WORD INDICATOR
     1241   01 002EF    31500FA8              CW,5     15150D0D          IS HEADER AND NEWLINE CALLED OUT
     1242   01 002F0    683002F4              BCR,3    %+4               IF SO, BRANCH
     1243   01 002F1    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1244   01 002F2    6AF003CD              BAL,15   OUTYPE            SPACE ONE LINE
     1245   01 002F3    680002F5              B        %+2               BRANCH AROUND HEADER OUTPUT
     1246   01 002F4    6AF00306              BAL,15   HEADOUTK          OUTPUT HEADER AND LINE SPACING
     1247   01 002F5    25400002 A            SLS,4    2                 RESTORE WORD ADDRESS TO BYTE ADDRESS
     1248   01 002F6    20400004 A            AI,4     4                 INCREMENT BA PAST NEWLINE INDICATOR
     1249   01 002F7    3540035E              STW,4    BYTEADDR          STORE NEW STARTING BYTE ADDRESS
     1250   01 002F8    680002E2              B        KLINELUP          LOOP
     1251   01 002F9    220001EC     TYPEXIT  LI,0     DA(DWCMND1K)      SPACE
     1252   01 002FA    6AF003CD              BAL,15   OUTYPE                 FIVE
     1253   01 002FB    220001EC              LI,0     DA(DWCMND1K)              LINES
     1254   01 002FC    6AF003CD              BAL,15   OUTYPE                         AFTER
     1255   01 002FD    220001EC              LI,0     DA(DWCMND1K)                        OUTPUT
     1256   01 002FE    6AF003CD              BAL,15   OUTYPE              OF
     1257   01 002FF    220001EC              LI,0     DA(DWCMND1K)          THE
     1258   01 00300    6AF003CD              BAL,15   OUTYPE                   IOP
     1259   01 00301    220001EC              LI,0     DA(DWCMND1K)                DISPLAY
     1260   01 00302    6AF003CD              BAL,15   OUTYPE                             MATRIX
     1261   01 00303    6AF00A77              BAL,15   IOCHKOFF          INSURE THAT DC'S ARE OFF
     1262   01 00304    E80002D5              B        *TYPESAVE         RETURN TO CALLING ROUTINE
     1263                            *
     1264                            *
     1265   01 00305    00000000 A   HEADSAVE DATA     0
     1266   01 00306    35F00305     HEADOUTK STW,15   HEADSAVE          SAVE RETURN ADDRESS
     1267   01 00307    6AF002A7              BAL,15   REGSAVE           SAVE REGISTER VALUES
     1268   01 00308    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1269   01 00309    6AF003CD              BAL,15   OUTYPE            SPACE ONE LINE
     1270   01 0030A    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1271   01 0030B    6AF003CD              BAL,15   OUTYPE            SPACE ONE LINE
     1272   01 0030C    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1273   01 0030D    6AF003CD              BAL,15   OUTYPE            SPACE ONE LINE
     1274   01 0030E    32400EBF              LW,4     CYCLINDX          FETCH CYCLE INDEX VALUE
     1275   01 0030F    21400000 A            CI,4     0                 DOES CYCLE INDEX EQUAL ZERO
     1276   01 00310    69300326              BCS,3    CI1K              BRANCH IF NOT
     1277   01 00311    6AF003C7              BAL,15   TSTFETCH          FETCH HEX TEST NUMBERTO R9
     1278   01 00312    21900006 A            CI,9     6                 IS TEST NUMBER = 6
     1279   01 00313    69300316              BCS,3    %+3               BRANCH IF NOT
     1280   01 00314    220001F3              LI,0     DA(DWCMND8K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1281   01 00315    6800033D              B        HEADRETK          OUTPUT HIO, LINESPACES, AND RETURN
     1282   01 00316    21900005 A            CI,9     5                 IS TEST NUMBER FIVE
     1283   01 00317    6930031A              BCS,3    %+3               BRANCH IF NOT
     1284   01 00318    220001F2              LI,0     DA(DWCMND7K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1285   01 00319    6800033D              B        HEADRETK          OUTPUT TDV, LINESPACES, AND RETURN
     1286   01 0031A    21900009 A            CI,9     9                 IS TEST NUMBER NINE
     1287   01 0031B    68300318              BCR,3    %-3               BRANCH IF SO
     1288   01 0031C    21900004 A            CI,9     4                 IS THE TEST NUMBER FOUR
     1289   01 0031D    69300320              BCS,3    %+3               BRANCH IF NOT
     1290   01 0031E    220001F1              LI,0     DA(DWCMND6K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1291   01 0031F    6800033D              B        HEADRETK          OUTPUT TIO, LINESPACES, AND RETURN
     1292   01 00320    21900014 A            CI,9     20                IS TEST NUMBER LESS THAN 20
     1293   01 00321    68100324              BCR,1    %+3               BRANCH IF NOT
     1294   01 00322    2190000A A            CI,9     10                IS TEST NUMBER ALSO GREATER THAN 10
     1295   01 00323    6920031E              BCS,2    %-5               IF SO, BRANCH
     1296   01 00324    220001F0              LI,0     DA(DWCMND5K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1297   01 00325    6800033D              B        HEADRETK          OUTPUT SIO, LINESPACES, AND RETURN
     1298   01 00326    21400001 A   CI1K     CI,4     1                 DOES CYCLE INDEX EQUAL ONE
     1299   01 00327    6930032A              BCS,3    CI2K              BRANCH IF NOT
     1300   01 00328    220001F4              LI,0     DA(DWCMND9K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1301   01 00329    6800033D              B        HEADRETK          OUTPUT ORDER OUT, AND RETURN
     1302   01 0032A    21400002 A   CI2K     CI,4     2                 DOES CYCLE INDEX EQUAL TWO
     1303   01 0032B    69300333              BCS,3    CI3K              BRANCH IF NOT
     1304   01 0032C    6AF003C7              BAL,15   TSTFETCH          FETCH HEX TEST NUMBERTO R9
     1305   01 0032D    21900032 A            CI,9     50                IS TEST NUMBER LESS THAN 50
     1306   01 0032E    69100331              BCS,1    %+3               IF SO, BRANCH
     1307   01 0032F    220001F5              LI,0     DA(DWCMNDAK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1308   01 00330    6800033D              B        HEADRETK          OUTPUT DATA IN HEADER, AND RETURN
     1309   01 00331    220001F6              LI,0     DA(DWCMNDBK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1310   01 00332    6800033D              B        HEADRETK          OUTPUT DATA OUT HEADER, AND RETURN
     1311   01 00333    21400003 A   CI3K     CI,4     3                 DOES CYCLE INDEX EQUAL THREE
     1312   01 00334    69300337              BCS,3    CI4K              BRANCH IF NOT
     1313   01 00335    220001F7              LI,0     DA(DWCMNDCK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1314   01 00336    6800033D              B        HEADRETK          OUTPUT ORDER IN HEADER, AND RETURN
     1315   01 00337    6AF003C7     CI4K     BAL,15   TSTFETCH          FETCH HEX TEST NUMBER TO R9
     1316   01 00338    21900031 A            CI,9     49                DOES TEST NUMBER EQUAL 49
     1317   01 00339    6930033C              BCS,3    %+3               BRANCH IF NOT
     1318   01 0033A    220001F8              LI,0     DA(DWCMNDDK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1319   01 0033B    6800033D              B        HEADRETK          OUTPUT AIO, LINESPACES, AND RETURN
     1320   01 0033C    220001F4              LI,0     DA(DWCMND9K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1321   01 0033D    6AF003CD     HEADRETK BAL,15   OUTYPE            OUTPUT HEADER
     1322   01 0033E    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1323   01 0033F    6AF003CD              BAL,15   OUTYPE            SPACE ONE LINE
     1324   01 00340    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1325   01 00341    6AF003CD              BAL,15   OUTYPE            SPACE ONE LINE
     1326   01 00342    220001EE              LI,0     DA(DWCMND3K)       BEFORE GROUP HEADINGS
     1327   01 00343    6AF003CD              BAL,15   OUTYPE            TYPEOUT DISP GRP HEADINGS
     1328   01 00344    220001EC              LI,0     DA(DWCMND1K)      SPACE ONE LINE
     1329   01 00345    6AF003CD              BAL,15   OUTYPE             AFTER GROUP HEADINGS
     1330   01 00346    220001EC              LI,0     DA(DWCMND1K)       SPACE ANOTHER LINE
     1331   01 00347    6AF003CD              BAL,15   OUTYPE            AFTER GROUP HEADINGS
     1332   01 00348    33100EBF              MTW,1    CYCLINDX          INCREMENT CYCLE INDEX
     1333   01 00349    6AF002A3              BAL,15   REGRESTR          RESTORE REGISTER VALUES
     1334   01 0034A    E8000305              B        *HEADSAVE         RETURN TO CALLING ROUTINE
     1335                            *
     1336   01 0034B    35E00EBF     PRINTOUT STW,14   CYCLINDX          CLEAR CYCLE INDEX
     1337   01 0034C    35100360              STW,1    DISPFLAG          SET DISP FLAG
     1338   01 0034D    324003DF              LW,4     BYTECNT           FETCH OUTBUFF LENGTH
     1339   01 0034E    35400351              STW,4    %+3
     1340   01 0034F    6AF00361              BAL,15   XPRINT            PRINT OUT DISPLAY GROUPS
     1341   01 00350    0000A668              DATA     BA(OUTBUFF)       MESSAGE BYTE ADDRESS
     1342   01 00351    00000000 A            DATA     0                 MESSAGE BYTE COUNT
     1343   01 00352    00000038 A            DATA     56                MESSAGE UNIT BYTE LENGTH
     1344   01 00353    22000203     LINEXIT  LI,0     DA(DWCMND1L)
     1345   01 00354    6AF003D2              BAL,15   OUTPRINT          GIVE NEW LINE
     1346   01 00355    22000203              LI,0     DA(DWCMND1L)
     1347   01 00356    6AF003D2              BAL,15   OUTPRINT          GIVE NEW LINE
     1348   01 00357    22000203              LI,0     DA(DWCMND1L)
     1349   01 00358    6AF003D2              BAL,15   OUTPRINT          GIVE NEW LINE
     1350   01 00359    22000203              LI,0     DA(DWCMND1L)
     1351   01 0035A    6AF003D2              BAL,15   OUTPRINT          GIVE NEW LINE
     1352   01 0035B    6AF00A77              BAL,15   IOCHKOFF          INSURE D.C.'S ARE OFF
     1353   01 0035C    E80002D5              B        *TYPESAVE         RETURN TO CALLING ROUTINE
     1354                            *
     1355                            *        'X' MESSAGE PRINTOUT
     1356                            *
     1357   01 0035D    00000000 A   XPRNTPNT DATA     0                 POINTER AND RETURN SAVE
     1358   01 0035E    00000000 A   BYTEADDR DATA     0                 VOLITILE BYTE ADDRESS STORAGE
     1359   01 0035F    00000000 A   MAXBCNT  DATA     0                 MESSAGE BYTE COUNT REMAINING
     1360   01 00360    00000000 A   DISPFLAG DATA     0
     1361   01 00361    35F0035D     XPRINT   STW,15   XPRNTPNT          SAVE POINTER/RETURN
     1362   01 00362    B240035D              LW,4     *XPRNTPNT         FETCH MESSAGE BYTE ADDRESS
     1363   01 00363    3540035E              STW,4    BYTEADDR          SET STARTING BYTE ADDRESS
     1364   01 00364    3310035D              MTW,1    XPRNTPNT          INCREMENT POINTER
     1365   01 00365    B240035D              LW,4     *XPRNTPNT         FETCH MESSAGE BYTE COUNT
     1366   01 00366    3540035F              STW,4    MAXBCNT           SET MESSAGE BYTE COUNT
     1367   01 00367    3310035D              MTW,1    XPRNTPNT          INCREMENT POINTER
     1368   01 00368    B240035D              LW,4     *XPRNTPNT         FETCH MESSAGE UNIT-BYTE LENGTH
     1369   01 00369    30400FBF              AW,4     SILBIT            ADD FLAG SETTING  (SIL)
     1370   01 0036A    35400409              STW,4    DWCMND2L+1        SET SECOND WORD OF CMND DBWRD
     1371   01 0036B    33000360              MTW,0    DISPFLAG          IS DISPFLAG SET
     1372   01 0036C    6830036E              BCR,3    %+2               BRANCH IF NOT
     1373   01 0036D    6AF00388              BAL,15   HEADOUTL          OUTPUT INITIAL HEADER
     1374                            *
     1375   01 0036E    3240035F     XPRINTLP LW,4     MAXBCNT           FETCH CURRENT BC REMAINING
     1376   01 0036F    B840035D              SW,4     *XPRNTPNT         SUBTRACT MESSAGE UNIT-BYTE-LENGTH
     1377   01 00370    68100373              BCR,1    %+3               BRANCH IF BC POSITIVE
     1378   01 00371    3310035D              MTW,1    XPRNTPNT          INCREMENT POINTER
     1379   01 00372    E800035D              B        *XPRNTPNT         RETURN TO CALLING ROUTINE
     1380   01 00373    3540035F              STW,4    MAXBCNT           STORE REMAINING BYTE COUNT
     1381   01 00374    3240035E              LW,4     BYTEADDR          FETCH CURRENT BYTE ADDR.
     1382   01 00375    30400FC2              AW,4     WRITEORD          ADD WRITE ORDER: X'01000000'
     1383   01 00376    35400408              STW,4    DWCMND2L          SET IN CMND DBWRD
     1384   01 00377    22000204              LI,0     DA(DWCMND2L)      FETCH COMMAND PAIR ADDR.
     1385   01 00378    6AF003D2              BAL,15   OUTPRINT          OUTPUT ONE LINE OF MSG TO LP
     1386   01 00379    B240035D              LW,4     *XPRNTPNT         FETCH MESSAGE UNIT-BYTE-LENGTH
     1387   01 0037A    3040035E              AW,4     BYTEADDR          ADD TO CURRENT BA
     1388   01 0037B    2540007E A            SLS,4    -2                CONVERT TO WORD ADDRESS
     1389   01 0037C    B2500004 A            LW,5     *4                FETCH NEW LINE CONTROL WORD
     1390   01 0037D    31500FA8              CW,5     15150D0D          IS A NEW LINE DESIRED
     1391   01 0037E    69300384              BCS,3    %+6               BRANCH IF NOT
     1392   01 0037F    33000360              MTW,0    DISPFLAG          IS DISP FLAG SET
     1393   01 00380    68300382              BCR,3    %+2               BRANCH IF NOT
     1394   01 00381    6AF00388              BAL,15   HEADOUTL          OUTPUT HEADER MESSAGE
     1395   01 00382    22000203              LI,0     DA(DWCMND1L)      AFTER HEADER,
     1396   01 00383    6AF003D2              BAL,15   OUTPRINT          GIVE NEW LINE
     1397   01 00384    25400002 A            SLS,4    2                 FORM BYTE ADDR FROM WRD ADDR.
     1398   01 00385    20400004 A            AI,4     4                 ADD 4 BYTES (N/L COMPENSATION)
     1399   01 00386    3540035E              STW,4    BYTEADDR          SET NEW BA
     1400   01 00387    6800036E              B        XPRINTLP          LOOP
     1401                            *
     1402   01 00388    35F00305     HEADOUTL STW,15   HEADSAVE          SAVE RETURN ADDRESS
     1403   01 00389    6AF002A7              BAL,15   REGSAVE           SAVE REGISTER VALUES
     1404   01 0038A    22000203              LI,0     DA(DWCMND1L)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1405   01 0038B    6AF003D2              BAL,15   OUTPRINT          SPACE ONE LINE
     1406   01 0038C    22000203              LI,0     DA(DWCMND1L)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1407   01 0038D    6AF003D2              BAL,15   OUTPRINT          SPACE ONE LINE
     1408   01 0038E    32400EBF              LW,4     CYCLINDX          FETCH CYCLE INDEX VALUE
     1409   01 0038F    21400000 A            CI,4     0                 DOES CYCLE INDEX EQUAL ZERO
     1410   01 00390    693003A6              BCS,3    CI1L              BRANCH IF NOT
     1411   01 00391    6AF003C7              BAL,15   TSTFETCH          FETCH HEX TEST NUMBERTO R9
     1412   01 00392    21900006 A            CI,9     6                 IS TEST NUMBER = 6
     1413   01 00393    69300396              BCS,3    %+3               BRANCH IF NOT
     1414   01 00394    2200020A              LI,0     DA(DWCMND8L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1415   01 00395    680003BD              B        HEADRETL          OUTPUT HIO, LINESPACES, AND RETURN
     1416   01 00396    21900005 A            CI,9     5                 ISIT TEST NUMBER FIVE
     1417   01 00397    6930039A              BCS,3    %+3               BRANCH IF NOT
     1418   01 00398    22000209              LI,0     DA(DWCMND7L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1419   01 00399    680003BD              B        HEADRETL          OUTPUT TDV, LINESPACES, AND RETURN
     1420   01 0039A    21900009 A            CI,9     9                 IS TEST NUMBER NINE
     1421   01 0039B    68300398              BCR,3    %-3               BRANCH IF SO
     1422   01 0039C    21900004 A            CI,9     4                 IS THE TEST NUMBER FOUR
     1423   01 0039D    693003A0              BCS,3    %+3               BRANCH IF NOT
     1424   01 0039E    22000208              LI,0     DA(DWCMND6L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1425   01 0039F    680003BD              B        HEADRETL          OUTPUT TIO, LINESPACES, AND RETURN
     1426   01 003A0    21900014 A            CI,9     20                IS TEST NUMBER LESS THAN 20
     1427   01 003A1    681003A4              BCR,1    %+3               BRANCH IF NOT
     1428   01 003A2    2190000A A            CI,9     10                IS TEST NUMBER ALSO GREATER THAN 10
     1429   01 003A3    6920039E              BCS,2    %-5               IF SO, BRANCH
     1430   01 003A4    22000207              LI,0     DA(DWCMND5L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1431   01 003A5    680003BD              B        HEADRETL          OUTPUT SIO, LINESPACES, AND RETURN
     1432   01 003A6    21400001 A   CI1L     CI,4     1                 DOES CYCLE INDEX EQUAL ONE
     1433   01 003A7    693003AA              BCS,3    CI2L              BRANCH IF NOT
     1434   01 003A8    2200020B              LI,0     DA(DWCMND9L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1435   01 003A9    680003BD              B        HEADRETL          OUTPUT ORDER OUT, AND RETURN
     1436   01 003AA    21400002 A   CI2L     CI,4     2                 DOES CYCLE INDEX EQUAL TWO
     1437   01 003AB    693003B3              BCS,3    CI3L              BRANCH IF NOT
     1438   01 003AC    6AF003C7              BAL,15   TSTFETCH          FETCH HEX TEST NUMBERTO R9
     1439   01 003AD    21900032 A            CI,9     50                IS TEST NUMBER LESS THAN 50
     1440   01 003AE    691003B1              BCS,1    %+3               IF SO, BRANCH
     1441   01 003AF    2200020C              LI,0     DA(DWCMNDAL)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1442   01 003B0    680003BD              B        HEADRETL          OUTPUT DATA IN HEADER, AND RETURN
     1443   01 003B1    2200020D              LI,0     DA(DWCMNDBL)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1444   01 003B2    680003BD              B        HEADRETL          OUTPUT DATA OUT HEADER, AND RETURN
     1445   01 003B3    21400003 A   CI3L     CI,4     3                 DOES CYCLE INDEX EQUAL THREE
     1446   01 003B4    693003B7              BCS,3    CI4L              BRANCH IF NOT
     1447   01 003B5    2200020E              LI,0     DA(DWCMNDCL)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1448   01 003B6    680003BD              B        HEADRETL          OUTPUT ORDER IN HEADER, AND RETURN
     1449   01 003B7    6AF003C7     CI4L     BAL,15   TSTFETCH          FETCH HEX TEST NUMBER TO R9
     1450   01 003B8    21900031 A            CI,9     49                DOES TEST NUMBER EQUAL 49
     1451   01 003B9    693003BC              BCS,3    %+3               BRANCH IF NOT
     1452   01 003BA    2200020F              LI,0     DA(DWCMNDDL)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1453   01 003BB    680003BD              B        HEADRETL          OUTPUT AIO, LINESPACES, AND RETURN
     1454   01 003BC    2200020B              LI,0     DA(DWCMND9L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     1455   01 003BD    6AF003D2     HEADRETL BAL,15   OUTPRINT          OUTPUT HEADER
     1456   01 003BE    22000203              LI,0     DA(DWCMND1L)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1457   01 003BF    6AF003D2              BAL,15   OUTPRINT          SPACE ONE LINE
     1458   01 003C0    22000210              LI,0     DA(DWCMNDEL)       BEFORE GROUP HEADINGS
     1459   01 003C1    6AF003D2              BAL,15   OUTPRINT          PRINT DISPLAY GROUP HEADINGS
     1460   01 003C2    22000203              LI,0     DA(DWCMND1L)      SPACE ONE LINE AFTER
     1461   01 003C3    6AF003D2              BAL,15   OUTPRINT           GROUP HEADINGS
     1462   01 003C4    33100EBF              MTW,1    CYCLINDX          INCREMENT CYCLE INDEX
     1463   01 003C5    6AF002A3              BAL,15   REGRESTR          RESTORE REGISTER VALUES
     1464   01 003C6    E8000305              B        *HEADSAVE         RETURN TO CALLING ROUTINE
     1465                            *
     1466   01 003C7    3270029A     TSTFETCH LW,7     %EPOINT           FETCH EXECUTE TABLE POINTER
     1467   01 003C8    324E0C9F              LW,4     %DICTA,7          FETCH DICTIONARY WORD
     1468   01 003C9    72920004 A            LB,9     4,1               FETCH HEX TEST NUMBER FROM DICT WRD
     1469   01 003CA    2590007F A            SLS,9    -1                RIGHT JUSTIFY
     1470   01 003CB    4B900F97              AND,9    X:7F              LIMIT NUMBER TO 0-127
     1471   01 003CC    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1472                            *
     1473                            *        I/O SUBROUTINES
     1474                            *
     1475   01 003CD    CC000BD3     OUTYPE   SIO,0    *%KP:ADR          ISSUE SIQ TO KSR
     1476   01 003CE    69C003CD              BCS,12   %-1               REPEAT UNTIL ACCEPTED
     1477   01 003CF    CD000BD3              TIO,0    *%KP:ADR
     1478   01 003D0    69C003CF              BCS,12   %-1               BRU UNTIL MESSAGE COMPLETION
     1479   01 003D1    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1480                            *
     1481                            *
     1482   01 003D2    CC000BD4     OUTPRINT SIO,0    *LINEPRNT         EXECUTE SIO TO LINE PRINTER
     1483   01 003D3    69C003D2              BCS,12   %-1               REPEAT UNTIL ACCEPTED
     1484   01 003D4    CD000BD4              TIO,0    *LINEPRNT
     1485   01 003D5    69C003D4              BCS,12   %-1               BRU UNTIL MESSAGE COMPLETION
     1486   01 003D6    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1487                            *
     1488                            *
     1489                            *        KSR COMMAND DOUBLEWORDS
     1490                            *
     1491                                     BOUND    8
     1492   01 003D8    05001088     DWCMND1K GEN,8,24 5,BA(SKIPLINE)
     1493   01 003D9    00000002 A            GEN,8,24 0,2
     1494   01 003DA    05001090     DWCMND2K GEN,8,24 5,BA(MSG1)
     1495   01 003DB    00001650 A            GEN,8,24 0,MSG1E-BA(MSG1)
     1496   01 003DC    050026E0     DWCMND3K GEN,8,24 5,BA(MSG2)
     1497   01 003DD    00000038 A            GEN,8,24 0,56
     1498   01 003DE    0500A668     DWCMND4K GEN,8,24 5,BA(OUTBUFF)
     1499   01 003DF    00000000 A   BYTECNT  GEN,8,24 0,0
     1500   01 003E0    0500271C     DWCMND5K GEN,8,24 5,BA(MSG3)
     1501   01 003E1    02000004 A            GEN,8,24 2,MSG3E-BA(MSG3)
     1502   01 003E2    05002720     DWCMND6K GEN,8,24 5,BA(MSG4)
     1503   01 003E3    02000004 A            GEN,8,24 2,MSG4E-BA(MSG4)
     1504   01 003E4    05002724     DWCMND7K GEN,8,24 5,BA(MSG5)
     1505   01 003E5    02000004 A            GEN,8,24 2,MSG5E-BA(MSG5)
     1506   01 003E6    05002728     DWCMND8K GEN,8,24 5,BA(MSG6)
     1507   01 003E7    02000004 A            GEN,8,24 2,MSG6E-BA(MSG6)
     1508   01 003E8    0500272C     DWCMND9K GEN,8,24 5,BA(MSG7)
     1509   01 003E9    0200000C A            GEN,8,24 2,MSG7E-BA(MSG7)
     1510   01 003EA    05002738     DWCMNDAK GEN,8,24 5,BA(MSG8)
     1511   01 003EB    02000008 A            GEN,8,24 2,MSG8E-BA(MSG8)
     1512   01 003EC    05002740     DWCMNDBK GEN,8,24 5,BA(MSG9)
     1513   01 003ED    02000008 A            GEN,8,24 2,MSG9E-BA(MSG9)
     1514   01 003EE    05002748     DWCMNDCK GEN,8,24 5,BA(MSGA)
     1515   01 003EF    02000008 A            GEN,8,24 2,MSGAE-BA(MSGA)
     1516   01 003F0    05002750     DWCMNDDK GEN,8,24 5,BA(MSGB)
     1517   01 003F1    02000004 A            GEN,8,24 2,MSGBE-BA(MSGB)
     1518   01 003F2    00000000 A   DWCMNDEK GEN,8,24 0,0
     1519   01 003F3    02000038 A            GEN,8,24 2,56
     1520   01 003F4    05002754     DWCMNDFK GEN,8,24 5,BA(MSGC)
     1521   01 003F5    00000044 A            GEN,8,24 0,MSGCE-BA(MSGC)
     1522   01 003F6    05002798     DWCMNDGK GEN,8,24 5,BA(MSGD)                                        *A01
     1523   01 003F7    00000054 A            GEN,8,24 0,MSGDE-BA(MSGD)                                  *A01
     1524   01 003F8    050027EC     DWCMNDHK GEN,8,24 5,BA(MSGE)
     1525   01 003F9    00000034 A            GEN,8,24 0,MSGEE-BA(MSGE)
     1526                            *
     1527   01 003FA    05002860     %CP01    GEN,8,24 5,BA(%MSG04)      COMMAND PAIR FOR OUTPUT OF
     1528   01 003FB    00000002 A            GEN,8,24 0,2               % AND NEW/LINE CODE
     1529   01 003FC    86002F54     %CP02    GEN,8,24 X'86',BA(%INBUFF) COMMAND PAIR FOR INPUT OF
     1530   01 003FD    00000100 A            GEN,8,24 0,256             CONTROL INFORMATION
     1531   01 003FE    05002864     %CP03    GEN,8,24 5,BA(%MSG05)      COMMAND PAIR FOR OUTPUT OF
     1532   01 003FF    0000000C A            GEN,8,24 0,12               SYNTAX ERROR MESSAGE
     1533   01 00400    05002850     %CP04    GEN,8,24 5,BA(%MSG03)      COMMAND PAIR FOR
     1534   01 00401    0000000D A            GEN,8,24 0,13              TEST COMPLETE MSG
     1535   01 00402    05002820     %CP05    GEN,8,24 5,BA(%MSG01)
     1536   01 00403    0000000F A            GEN,8,24 0,15
     1537   01 00404    05002830     %CP06    GEN,8,24 5,BA(%MSG02)
     1538   01 00405    00000020 A            GEN,8,24 0,32
     1539                            *
     1540                            *        LINE PRINTER COMMAND DOUBLEWORDS
     1541                            *
     1542   01 00406    0300108C     DWCMND1L GEN,8,24 3,BA(LINESKIP)
     1543   01 00407    02000001 A            GEN,8,24 2,1
     1544   01 00408    00000000 A   DWCMND2L GEN,8,24 0,0
     1545   01 00409    00000000 A            GEN,8,24 0,0
     1546   01 0040A    01002820     DWCMND3L GEN,8,24 1,BA(%MSG01)
     1547   01 0040B    0200000F A            GEN,8,24 2,15
     1548   01 0040C    01002830     DWCMND4L GEN,8,24 1,BA(%MSG02)
     1549   01 0040D    02000020 A            GEN,8,24 2,32
     1550   01 0040E    0100271C     DWCMND5L GEN,8,24 1,BA(MSG3)
     1551   01 0040F    02000004 A            GEN,8,24 2,MSG3E-BA(MSG3)
     1552   01 00410    01002720     DWCMND6L GEN,8,24 1,BA(MSG4)
     1553   01 00411    02000004 A            GEN,8,24 2,MSG4E-BA(MSG4)
     1554   01 00412    01002724     DWCMND7L GEN,8,24 1,BA(MSG5)
     1555   01 00413    02000004 A            GEN,8,24 2,MSG5E-BA(MSG5)
     1556   01 00414    01002728     DWCMND8L GEN,8,24 1,BA(MSG6)
     1557   01 00415    02000004 A            GEN,8,24 2,MSG6E-BA(MSG6)
     1558   01 00416    0100272C     DWCMND9L GEN,8,24 1,BA(MSG7)
     1559   01 00417    0200000C A            GEN,8,24 2,MSG7E-BA(MSG7)
     1560   01 00418    01002738     DWCMNDAL GEN,8,24 1,BA(MSG8)
     1561   01 00419    02000008 A            GEN,8,24 2,MSG8E-BA(MSG8)
     1562   01 0041A    01002740     DWCMNDBL GEN,8,24 1,BA(MSG9)
     1563   01 0041B    02000008 A            GEN,8,24 2,MSG9E-BA(MSG9)
     1564   01 0041C    01002748     DWCMNDCL GEN,8,24 1,BA(MSGA)
     1565   01 0041D    02000008 A            GEN,8,24 2,MSGAE-BA(MSGA)
     1566   01 0041E    01002750     DWCMNDDL GEN,8,24 1,BA(MSGB)
     1567   01 0041F    02000004 A            GEN,8,24 2,MSGBE-BA(MSGB)
     1568   01 00420    010026E0     DWCMNDEL GEN,8,24 1,BA(MSG2)
     1569   01 00421    02000038 A            GEN,8,24 2,56
     1570                            *
     1571                            *        MESSAGES
     1572                            *
     1573         01 00422           150D0D0D EQU      %
     1574   01 00422    150D0D0D A   SKIPLINE DATA     X'150D0D0D'
     1575   01 00423    C1404040 A   LINESKIP DATA     X'C1404040'
     1576                            *
     1577                            *
     1578                            *
     1579                            *
     1580                            * INITIALIZATION MESSAGE
     1581         01 00424           MSG1     TEXTS    '    SIGMA 5/7 MIOP WITH MAINTENANCE SUBC'        *A01
     1582         01 0042E                    TEXTS    'ONTROLLER                               



'    *A02
     1583         01 00439                    TEXTS    '    PROGRAM NO. 705721-A04    MANUAL NO.'        *A04
     1584         01 00443                    TEXTS    ' 901669A                                



'
     1585         01 0044E                    TEXTS    '    REVISION A04                        '        *A04
     1586         01 00458                    TEXTS    '                                        



'    *A04
     1587         01 00463                    TEXTS    '    PROGRAM MODIFIED TO PREVENT TRAP TO '        *A04
     1588         01 0046D                    TEXTS    '46 (TAR 10843)                          



'    *A04
     1589         01 00478                    TEXTS    '    CORRECT ERROR IN AIO HANDLER (TAR 10'        *A04
     1590         01 00482                    TEXTS    '851)                                    



'    *A04
     1591         01 0048D                    TEXTS    '    REVISION A03                        '
     1592         01 00497                    TEXTS    '                                        



'
     1593         01 004A2                    TEXTS    '    PROGRAM MODIFIED TO:                '        *A01
     1594         01 004AC                    TEXTS    '                                        



'    *A01
     1595         01 004B7                    TEXTS    '    1. ADAPT T40 AND T42 TO ENG.REV.C ON'        *A01
     1596         01 004C1                    TEXTS    ' THE MIOP.                              



'    *A01
     1597         01 004CC                    TEXTS    '    2. REPOSITION 4-BYTE DATA IN TEST.  '        *A01
     1598         01 004D6                    TEXTS    '                                        



'    *A01
     1599         01 004E1                    TEXTS    '    3. OUTPUT MSG. IF 4-BYTE OPTION IS N'        *A01
     1600         01 004EB                    TEXTS    'OT INSTALLED.                           



'    *A01
     1601         01 004F6                    TEXTS    '    4. IMPROVE COOKBOOK COMPARE DATA RES'        *A01
     1602         01 00500                    TEXTS    'IDUAL TECHNIQUE.                        



'    *A01
     1603         01 0050B                    TEXTS    '    5. CORRECT INITIALIZATION MSG. BYTEC'        *A01
     1604         01 00515                    TEXTS    'OUNT.                                   



'    *A01
     1605         01 00520                    TEXTS    '    6. REFINE COOKBOOK GENERATION PROCEE'        *A01
     1606         01 0052A                    TEXTS    'DURE.                                   



'    *A01
     1607         01 00535                    TEXTS    '    7. UPDATE STORED DISPLAY DATA COOKBO'        *A01
     1608         01 0053F                    TEXTS    'OK.                                     



'    *A03
     1609         01 0054A                    TEXTS    '    8. CALCULATE MEMSIZE UPON RETURN FRO'        *A02
     1610         01 00554                    TEXTS    'M KSR CONTROL.                          



'    *A03
     1611         01 0055F                    TEXTS    '    9. CHECK FOR 4-BYTE OPTION UPON RETU'        *A02
     1612         01 00569                    TEXTS    'RN FROM KSR CONTROL.                    



'    *A03
     1613         01 00574                    TEXTS    '   10. REFINE TEST LOOPING AND SHORTEN E'        *A02
     1614         01 0057E                    TEXTS    'RR LOOP FOR BETTER SCOPE RESOLUTION.    



'    *A03
     1615         01 00589                    TEXTS    '   11. REFINE INITIALIZATION MSG OUTPUT '        *A02
     1616         01 00593                    TEXTS    'AND INHIBIT OUTPUT AFTER FIRSTPASS.     



'    *A03
     1617         01 0059E                    TEXTS    '   12. PRESERVE PARAMETERS WHEN MAKING R'        *A02
     1618         01 005A8                    TEXTS    'ECOVERY VIA PCP RESET.                  



'    *A03
     1619         01 005B3                    TEXTS    '   13. INHIBIT RUNNING OF T53 WHEN 4-BYT'        *A02
     1620         01 005BD                    TEXTS    'E IS NOT INSTALLED.                     



'    *A03
     1621         01 005C8                    TEXTS    '   14. OUTPUT OLD ERRWORDS WHEN MARGINAL'        *A02
     1622         01 005D2                    TEXTS    ' TIMING ERRORS OCCUR.                   



'    *A03
     1623         01 005DD                    TEXTS    '   15. OUTPUT ON THE IOP UNDER TEST.    '
     1624         01 005E7                    TEXTS    '                                        



'    *A03
     1625         01 005F2                    TEXTS    '   16. CHECK FOR FOUR BYTE OPTION WHEN R'
     1626         01 005FC                    TEXTS    'UNNING IOP 0.                           



'    *A03
     1627         01 00607                    TEXTS    '   17. CHECK FOR SUBCHANNEL INTERACTION.'
     1628         01 00611                    TEXTS    '                                        



'    *A03
     1629         01 0061C                    TEXTS    '   18. REFINE INTERMITTANT PROCESSING.  '
     1630         01 00626                    TEXTS    '                                        



'    *A03
     1631         01 00631                    TEXTS    '   19. DOCUMENT COOKBOOK VERIFICATION PR'
     1632         01 0063B                    TEXTS    'OCEEDURES.                              



'    *A03
     1633         01 00646                    TEXTS    '   20. OUTPUT ONLY MISCOMPARES WHEN RUNN'
     1634         01 00650                    TEXTS    'ING COOKBOOK VERIFICATION.              



'
     1635                            *
     1636         01 0065B                    TEXTS    '    INITIALIZATION:                                 '
     1637         01 00668                    TEXTS    '                            



'
     1638         01 00670                    TEXTS    '    1.  PLACE OFF-LINE: ALL DEVICE CONTROLLERS CONNE'
     1639         01 0067D                    TEXTS    'CTED TO THE MIOP UNDER TEST,



'
     1640         01 00685                    TEXTS    '        EXCEPT THOSE EQUIPPED WITH PROGRAM-CONTROLLE'
     1641         01 00692                    TEXTS    'D-OFF-LINE-MODULE:  (AT-83).



'
     1642         01 0069A                    TEXTS    '    2.  INSURE THAT THE TEST SWITCH ON THE TEST MS I'
     1643         01 006A7                    TEXTS    'S IN THE UP (TEST) POSITION.



'
     1644         01 006AF                    TEXTS    'ENTER TEST PARAMETERS AS DEFINED IN THE 4-BYTE MIOP '
     1645         01 006BC                    TEXTS    'PROGRAM MANUAL    XDS 901669



'
     1646         01 006C4                    TEXTS    '                                                    '
     1647         01 006D1                    TEXTS    '                            



'
     1648         01 006D9                    TEXTS    '                                                    '
     1649         01 006E6                    TEXTS    '                            



'
     1650         01 006EE                    TEXTS    '    MIOP DISPLAY-GROUP-ERROR-PRINTOUT ANALYSIS      '
     1651         01 006FB                    TEXTS    '                            



'
     1652         01 00703                    TEXTS    '      THE FOLLOWING TABLE IS TO BE USED FOR INTERPRE'
     1653         01 00710                    TEXTS    'TATION OF MIOP DISPLAY GROUP



'
     1654         01 00718                    TEXTS    '    ERROR PRINTOUTS.  DISPLAY GROUP BIT DESCRIPTIONS'
     1655         01 00725                    TEXTS    ' ARE HEX FORMATTED FROM LEFT



'
     1656         01 0072D                    TEXTS    '    TO RIGHT AS IN ACTUAL HEX DISPLAY GROUP ERROR PR'
     1657         01 0073A                    TEXTS    'INTOUT, (4 HEX CHAR./GROUP).



'
     1658                            *
     1659         01 00742                    TEXTS    '****************************************************'
     1660         01 0074F                    TEXTS    '****************************



'
     1661         01 00757                    TEXTS    '*                   *                   *           '
     1662         01 00764                    TEXTS    '        *                  *



'
     1663         01 0076C                    TEXTS    '*                   *                   *           '
     1664         01 00779                    TEXTS    '        *                  *



'
     1665         01 00781                    TEXTS    '* 1ST HEX CHARACTER * 2ND HEX CHARACTER * 3RD HEX CH'
     1666         01 0078E                    TEXTS    'ARACTER * 4TH HEX CHARACTER*



'
     1667         01 00796                    TEXTS    '*                   *                   *           '
     1668         01 007A3                    TEXTS    '        *                  *



'
     1669         01 007AB                    TEXTS    '*                   *                   *           '
     1670         01 007B8                    TEXTS    '        *                  *



'
     1671                            *
     1672         01 007C0                    TEXTS    '* GRP1 ************** GRP1 ************** GRP1 *****'
     1673         01 007CD                    TEXTS    '********* GRP1 *************



'
     1674         01 007D5                    TEXTS    '*PH01 PH01 PH00 PH00*PH10 PH10 PH11 PH11*PH12 PH12 P'
     1675         01 007E2                    TEXTS    'H13 PH13*PH14 PH14 PR1  PR2*



'
     1676         01 007EA                    TEXTS    '*D2   PD2  D1   PD1 *D1   PD1  D1   PD1 *D1   PD1  D'
     1677         01 007F7                    TEXTS    '1   PD1 *D1   PD1          *



'
     1678         01 007FF                    TEXTS    '*                   *                   *           '
     1679         01 0080C                    TEXTS    '        *                  *



'
     1680                            *
     1681         01 00814                    TEXTS    '* GRP2 ************** GRP2 ************** GRP2 *****'
     1682         01 00821                    TEXTS    '********* GRP2 *************



'
     1683         01 00829                    TEXTS    '*PH00 PH00 PH01 PH01*PH02 PH02 PH03 PH03*PH04 PH04 P'
     1684         01 00836                    TEXTS    'H05 PH05*PH06 PH06 PH07 PH7*



'
     1685         01 0083E                    TEXTS    '*D1   PD1  D1   PD1 *D1   PD1  D1   PD1 *D1   PD1  D'
     1686         01 0084B                    TEXTS    '1   PD1 *D1   PD1  D1   PD1*



'
     1687         01 00853                    TEXTS    '*                   *                   *           '
     1688         01 00860                    TEXTS    '        *                  *



'
     1689                            *
     1690         01 00868                    TEXTS    '* GRP3 ************** GRP3 ************** GRP3 *****'
     1691         01 00875                    TEXTS    '********* GRP3 *************



'
     1692         01 0087D                    TEXTS    '*MAE  MAR  MDR  MPE *MRQ  MS   PRCH TPE *EH   EHE  D'
     1693         01 0088A                    TEXTS    'L3  AIOP*MCFA MCF  MCFB MCF*



'
     1694         01 00892                    TEXTS    '*                   *                   *          C'
     1695         01 0089F                    TEXTS    'YCLE    *     A/1       B/1*



'
     1696                            *
     1697         01 008A7                    TEXTS    '* GRP4 ************** GRP4 ************** GRP4 *****'
     1698         01 008B4                    TEXTS    '********* GRP4 *************



'
     1699         01 008BC                    TEXTS    '*ORD  OUT  WI   FIN *FP   TORD TRA1 ZBC *FS:D FSL  R'
     1700         01 008C9                    TEXTS    'S:D XXXX*LAST AVO  XXXX XXX*



'
     1701         01 008D1                    TEXTS    '*                   *                   *           '
     1702         01 008DE                    TEXTS    '        *ONE               *



'
     1703                            *
     1704         01 008E6                    TEXTS    '* GRP5 ************** GRP5 ************** GRP5 *****'
     1705         01 008F3                    TEXTS    '********* GRP5 *************



'
     1706         01 008FB                    TEXTS    '*A00  A01  A02  A03 *A04  A05  A06  A07 *LS0  LS1  L'
     1707         01 00908                    TEXTS    'S2  K15 *SUB  UN0  UN1  UN2*



'
     1708         01 00910                    TEXTS    '*                   *                   *           '
     1709         01 0091D                    TEXTS    '        *                  *



'
     1710                            *
     1711         01 00925                    TEXTS    '* GRP6 ************** GRP6 ************** GRP6 *****'
     1712         01 00932                    TEXTS    '********* GRP6 *************



'
     1713         01 0093A                    TEXTS    '*H0   H1   H2   H3  *H4   H5   H6   H7  *CC1  CC2  C'
     1714         01 00947                    TEXTS    'MD  IER *IR:D FNC  J1   J2 *



'
     1715         01 0094F                    TEXTS    '*                   *                   *           '
     1716         01 0095C                    TEXTS    '        *                  *



'
     1717                            *
     1718         01 00964                    TEXTS    '* GRP7 ************** GRP7 ************** GRP7 *****'
     1719         01 00971                    TEXTS    '********* GRP7 *************



'
     1720         01 00979                    TEXTS    '*C00  C01  C02  C03 *C04  C05  C06  C07 *C08  C09  C'
     1721         01 00986                    TEXTS    '10  C11 *C12  C13  C14  C15*



'
     1722         01 0098E                    TEXTS    '*                   *                   *           '
     1723         01 0099B                    TEXTS    '        *                  *



'
     1724         01 009A3                    TEXTS    '****************************************************'
     1725         01 009B0                    TEXTS    '****************************



'
     1726         01 009B8           MSG1E    EQU      BA(%)
     1727                            *
     1728                            *
     1729                            *
     1730                            * GROUP HEADING MESSAGE
     1731         01 009B8           MSG2     TEXTS    '    GRP1    GRP2    GRP3    GRP4    GRP5    GRP6    '
     1732         01 009C5                    TEXTS    'GRP7



'
     1733         01 009C7           MSG3     TEXTS    'SIO '
     1734         01 009C8           MSG3E    EQU      BA(%)
     1735         01 009C8           MSG4     TEXTS    'TIO '
     1736         01 009C9           MSG4E    EQU      BA(%)
     1737         01 009C9           MSG5     TEXTS    'TDV '
     1738         01 009CA           MSG5E    EQU      BA(%)
     1739         01 009CA           MSG6     TEXTS    'HIO '
     1740         01 009CB           MSG6E    EQU      BA(%)
     1741         01 009CB           MSG7     TEXTS    'ORDER OUT   '
     1742         01 009CE           MSG7E    EQU      BA(%)
     1743         01 009CE           MSG8     TEXTS    'DATA IN '
     1744         01 009D0           MSG8E    EQU      BA(%)
     1745         01 009D0           MSG9     TEXTS    'DATA OUT'
     1746         01 009D2           MSG9E    EQU      BA(%)
     1747         01 009D2           MSGA     TEXTS    'ORDER IN'
     1748         01 009D4           MSGAE    EQU      BA(%)
     1749         01 009D4           MSGB     TEXTS    'AIO '
     1750         01 009D5           MSGBE    EQU      BA(%)
     1751         01 009D5           MSGC     TEXTS    'TEST FAILED DURING FUNCTIONAL, BUT NOT DURING SINGLE'
     1752         01 009E2                    TEXTS    ' PHASE PASS.



'
     1753         01 009E6           MSGCE    EQU      BA(%)
     1754         01 009E6           MSGD     TEXTS    'FOUR BYTE OPTION IS NOT INSTALLED, R'            *A01
     1755         01 009EF                    TEXTS    'UNNING OF T51,T52 & T53 WILL BE INHIBITED.



'
     1756         01 009FB           MSGDE    EQU      BA(%)                                             *A01
     1757         01 009FB           MSGE     TEXTS    'THE BELOW TEST FAILED WHILE RERUNNING FOR SNAP.



'
     1758         01 00A08           MSGEE    EQU      BA(%)
     1759         01 00A08           %MSG01   TEXTS    'ERROR TEST XXX ' ERROR MESSAGE
     1760         01 00A0C           %MSG02   TEXTS    'ERR WORD X= 9999 9999 9999 9999'
     1761         01 00A14           %MSG03   TEXTS    'TEST COMPLETE'   OUTPUT AFTER ALL CHANS ARE TESTED
     1762         01 00A18           %MSG04   TEXTS    '
%  '            NEW LINE AND DOLLAR SIGN
     1763         01 00A19           %MSG05   TEXTS    'SYNTAX ERROR'    SYNTAX ERROR MESSAGE
     1764   01 00A1C    35F00A65     PNCHOUT  STW,15   PNCHSAVE          PUNCH ROUTINE FOR PROG. MAIN.
     1765   01 00A1D    35E00A62              STW,14   LABELFLG
     1766   01 00A1E    35E00006 A            STW,14   6                 CLEAR WORD INDEX
     1767   01 00A1F    35E00A64              STW,14   EXITFLAG          CLEAR EXIT FLAG
     1768                            *
     1769   01 00A20    35E00005 A   LINERET  STW,14   5                 CLEAR WRDCOUNT
     1770   01 00A21    35E00007 A            STW,14   7                 CLEAR STORE INDEX
     1771   01 00A22    35E00A63              STW,14   ENDFLAG           CLEAR ENDFLAG
     1772   01 00A23    324003DF              LW,4     BYTECNT
     1773   01 00A24    38400F96              SW,4     X:3C              SUBTRACT 60 BYTES (15 WORDS)
     1774   01 00A25    69200A27              BCS,2    %+2               BRANCH IF POSITIVE
     1775   01 00A26    35100A64              STW,1    EXITFLAG
     1776   01 00A27    354003DF              STW,4    BYTECNT
     1777   01 00A28    33000A62              MTW,0    LABELFLG
     1778   01 00A29    69200A2F              BCS,2    %+6
     1779   01 00A2A    32400A0B              LW,4     %MSG01+3
     1780   01 00A2B    20400098 A            AI,4     X'98'
     1781   01 00A2C    35400A4E              STW,4    PNCHBUFF
     1782   01 00A2D    35100A62              STW,1    LABELFLG
     1783   01 00A2E    68000A31              B        %+3
     1784   01 00A2F    32401450              LW,4     SPACES
     1785   01 00A30    35400A4E              STW,4    PNCHBUFF          NULL LABEL FIELD
     1786   01 00A31    324C299A     WORDRET  LW,4     OUTBUFF,6
     1787   01 00A32    20600001 A            AI,6     1
     1788   01 00A33    31401450              CW,4     SPACES
     1789   01 00A34    68300A41              BCR,3    WORDLOOP          BRANCH IF DATA = SPACES
     1790   01 00A35    2150000D A            CI,5     13                DOES WRD CNT = 13
     1791   01 00A36    69300A38              BCS,3    %+2
     1792   01 00A37    35100A63              STW,1    ENDFLAG
     1793   01 00A38    354E0A53              STW,4    PNCHDATA,7        STORE WORD INDEXED
     1794   01 00A39    20700001 A            AI,7     1
     1795   01 00A3A    33000A63              MTW,0    ENDFLAG
     1796   01 00A3B    68300A41              BCR,3    WORDLOOP          LOOP FOR 14 WORDS OF DATA
     1797   01 00A3C    6AF00A43              BAL,15   OUTPNCH
     1798   01 00A3D    20600001 A            AI,6     1
     1799   01 00A3E    33000A64              MTW,0    EXITFLAG
     1800   01 00A3F    68300A20              BCR,3    LINERET
     1801   01 00A40    E8000A65              B        *PNCHSAVE
     1802   01 00A41    20500001 A   WORDLOOP AI,5     1
     1803   01 00A42    68000A31              B        WORDRET
     1804   01 00A43    22000524     OUTPNCH  LI,0     DA(PNCHCMND)
     1805   01 00A44    CC000A66              SIO,0    *PNCHADDR
     1806   01 00A45    CD000A66              TIO,0    *PNCHADDR
     1807   01 00A46    69C00A45              BCS,12   %-1
     1808   01 00A47    E800000F A            B        *15
     1809                                     BOUND    8
     1810   01 00A48    05002938     PNCHCMND GEN,8,24 5,BA(PNCHBUFF)
     1811   01 00A49    20000050 A            GEN,8,24 X'20',80
     1812   01 00A4A    08000524              GEN,8,24 X'08',DA(PNCHCMND)
     1813   01 00A4B    00000000 A            DATA     0
     1814   01 00A4C    00000000 A            DATA     0
     1815   01 00A4D    00000000 A            DATA     0
     1816   01 00A4E    00000000 A   PNCHBUFF DATA     0
     1817   01 00A4F    40404040 A            DATA     X'40404040'
     1818   01 00A50    40E3C5E7 A            DATA     X'40E3C5E7'
     1819   01 00A51    E3404040 A            DATA     X'E3404040'
     1820   01 00A52    4040407D A            DATA     X'4040407D'
     1821   01 00A53    00000000 A   PNCHDATA DATA     0
     1822   01 00A54    00000000 A            DATA     0
     1823   01 00A55    00000000 A            DATA     0
     1824   01 00A56    00000000 A            DATA     0
     1825   01 00A57    00000000 A            DATA     0
     1826   01 00A58    00000000 A            DATA     0
     1827   01 00A59    00000000 A            DATA     0
     1828   01 00A5A    7D404040 A            DATA     X'7D404040'
     1829   01 00A5B    40404040 A            DATA     X'40404040'
     1830   01 00A5C    40404040 A            DATA     X'40404040'
     1831   01 00A5D    40404040 A            DATA     X'40404040'
     1832   01 00A5E    40404040 A            DATA     X'40404040'
     1833   01 00A5F    40404040 A            DATA     X'40404040'
     1834   01 00A60    40404040 A            DATA     X'40404040'
     1835   01 00A61    40404040 A            DATA     X'40404040'
     1836                            *
     1837                            *
     1838   01 00A62    00000000 A   LABELFLG DATA     0
     1839   01 00A63    00000000 A   ENDFLAG  DATA     0
     1840   01 00A64    00000000 A   EXITFLAG DATA     0
     1841   01 00A65    00000000 A   PNCHSAVE DATA     0
     1842   01 00A66    00000004 A   PNCHADDR DATA     4
     1843   01 00A67    6AF00A1C     PNCHBRA  BAL,15   PNCHOUT
     1844   01 00A68    6AF002D6     TYPEBRA  BAL,15   TYPEOUT
     1845                            *
     1846                            *
     1847                            *
     1848                            *
     1849                            *       T E S T   M O D E   S U B R O U T I N E S
     1850                            *
     1851                            *
     1852                            *
     1853                            *
     1854                            *
     1855   01 00A69    EDD00BBF     %IORST   WD,13    *GRP0             RESET I/O VIA MS                *A02
     1856   01 00A6A    ED300BBE              WD,3     *GPAC             SET DOR/IOR
     1857   01 00A6B    2240D000 A            LI,4     X'D000'           IIOP, MS ON LINE, DC'S OFF LINE
     1858   01 00A6C    30400C9A              AW,4     %ERRWD4           PRESERVE PROGRAMMED ADDRESS REGISTER
     1859   01 00A6D    ED400BBC              WD,4     *GPAA             SET IIOP MODE AND MS ON LINE
     1860   01 00A6E    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1861                            *
     1862   01 00A6F    EDD00BBF     %IORSTX  WD,13    *GRP0             RESET I/O
     1863   01 00A70    22405000 A            LI,4     X'5000'           MSOL, DC'S OFF LINE
     1864   01 00A71    30400C9A              AW,4     %ERRWD4           PRESERVE PROGRAMMED ADDR. REG.
     1865   01 00A72    ED400BBC              WD,4     *GPAA             SET MSOL, DC'S OFF LINE
     1866   01 00A73    ED300BBE              WD,3     *GPAC             SET IOR DOR
     1867   01 00A74    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1868   01 00A75    22400000 A   IOPCHECK LI,4     0                 ZERO = DC'S ON; MS OFF
     1869   01 00A76    68000A78              B        %+2               ALTERNATE ENTRANCE
     1870   01 00A77    2240D000 A   IOCHKOFF LI,4     X'D000'           DC'S OFF; MS ON; IIOP MODE
     1871   01 00A78    72540D6B              LB,5     IOPTEST,2         FETCH ADDRESS OF TEST IOP
     1872   01 00A79    71540BD4              CB,5     LINEPRNT,2        DOES IT = LP IOP ADDR.?
     1873   01 00A7A    68300A7D              BCR,3    %+3               IF SO, BRANCH
     1874   01 00A7B    71540BD3              CB,5     %KP:ADR,2           DOESIT = KSR IOP ADDR.
     1875   01 00A7C    E930000F A            BCS,3    *15               IF NOT, RETURN TO CALLER
     1876   01 00A7D    30400C9A              AW,4     %ERRWD4           ADD SUBCHANNEL NUMBER
     1877   01 00A7E    ED400BBC              WD,4     *GPAA             SET MS MODE
     1878   01 00A7F    EDD00BBF              WD,13    *GRP0                                             *A04
     1879   01 00A80    224C0000 A            LI,4     X'C0000'             DELAY COUNT
     1880   01 00A81    65400A81              BIR,4    %                 DELAY FOR RELAY LATCHING
     1881   01 00A82    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1882                            *
     1883                            *
     1884   01 00A83    00000000 A   PHASAVE  DATA     0                 REG. 15 STORAGE DURING PHASE SNAP
     1885   01 00A84    33000294     PHASNAP  MTW,0    PHSLATCH          HAS ERROR OCCURED?
     1886   01 00A85    E830000F A            BCR,3    *15               NO, RETURN
     1887   01 00A86    35F00A83              STW,15   PHASAVE           SAVE RETURN ADDRESS
     1888   01 00A87    6AF002A7              BAL,15   REGSAVE           SAVE VALUES OF REG 0 THRU 14
     1889   01 00A88    326003DF              LW,6     BYTECNT           FETCH BYTE COUNT ACCUME
     1890   01 00A89    2560007E A            SLS,6    -2                POSITION
     1891   01 00A8A    33000AD5              MTW,0    ADDATA            SECOND PART OF MESSAGE
     1892   01 00A8B    69300AB5              BCS,3    ADDEM             BRANCH IF ADDITIONAL DATA TO BE STORED
     1893   01 00A8C    22600000 A            LI,6     0                 CLEAR R6 FOR INDEXING
     1894   01 00A8D    22700000 A            LI,7     0                 CLEAR RM FOR COUNTING
     1895   01 00A8E    356E299A              STW,6    OUTBUFF,7         STORE ZEROES IN OUTPUT BUFFER LOC.
     1896   01 00A8F    20700001 A            AI,7     1                 INCREMENT LOCATION INDEX
     1897   01 00A90    21701500 A            CI,7     X'1500'           HAVE ALL LOCS BEEN CLEARED
     1898   01 00A91    69300A8E              BCS,3    %-3               IF NOT, LOOP
     1899   01 00A92    32900BBF     PHASEM   LW,9     GRP0              LOAD MIOP-VIA-MS DISPLAY ADDRESS
     1900   01 00A93    35900AD6              STW,9    DISPGRP           SAVE FOR FORMING READ DIRECT
     1901   01 00A94    35E00AD5              STW,14   ADDATA            CLEAR ADD DATA FLAG
     1902   01 00A95    227FFFF9 A            LI,7     -7                SET DISPLAY GROUP COUNT
     1903   01 00A96    2290000C A   GROUPEM  LI,9     12                SET HEX POSITIONING SHIFT COUNT
     1904   01 00A97    35900AD8              STW,9    POSIT             STORE INITIAL COUNT
     1905   01 00A98    32901450              LW,9     SPACES            SET FOUR BLANKS BETWEEN EACH WRD
     1906   01 00A99    359C299A              STW,9    OUTBUFF,6         STOR BLANKS IN BUFFER
     1907   01 00A9A    20600001 A            AI,6     1                 INCREMENT STORE INDEX
     1908   01 00A9B    224FFFFC A            LI,4     -4                SET BYTE COUNT
     1909   01 00A9C    66100AD6              AWM,1    DISPGRP           FORM READ DIRECT ADDRESS
     1910   01 00A9D    EC800AD6     BYTEM    RD,8     *DISPGRP          READ DISPLAY GROUP
     1911   01 00A9E    35800009 A            STW,8    9                 RESPONSE TO R9 FOR HEX CHECK
     1912   01 00A9F    4B980AC3              AND,9    MASK+4,4          MASK FOR DESIRED BIT
     1913   01 00AA0    31980ACE              CW,9     DEC+4,4           COMPARE SELECTED BIT WITH 9
     1914   01 00AA1    69200ABB              BCS,2    CONVERT           IF DIGIT= > 9, BRANCH TO CONVERT
     1915   01 00AA2    4B880AC3              AND,8    MASK+4,4          INDEXED MASK FOR HEX BIT
     1916   01 00AA3    30880AC8              AW,8     ZONE+4,4          ZONE CONVERT INDEXED
     1917   01 00AA4    A5800AD8     SHIFTEM  SLS,8    *POSIT            INDIRECT SHIFT
     1918   01 00AA5    33C00AD8              MTW,-4   POSIT             SHIFT COUNT MINUS FOUR
     1919   01 00AA6    668C299A              AWM,8    OUTBUFF,6         STORE IN INCREMENTED LOCATION
     1920   01 00AA7    65400A9D              BIR,4    BYTEM             LOOP TO COMPLETE DISPLAY WRD CONVER.
     1921   01 00AA8    20600001 A            AI,6     1                 INCREMENT WORD STORE COUNT
     1922   01 00AA9    65700A96              BIR,7    GROUPEM           LOOP TO COMPLETE 7 DISPLAY GROUPS
     1923   01 00AAA    65500AB0              BIR,5    CLOCKEM           LOOP TO COMPLETE ALL PHASES
     1924   01 00AAB    25600002 A            SLS,6    2                 SHIFT WRD COUNT TO GET B.C.
     1925   01 00AAC    356003DF              STW,6    BYTECNT           SAVE BYTECOUNT
     1926   01 00AAD    35100AD7              STW,1    NEWLINE           INSURE NEXT MATRIX STARTS WITH N/L
     1927   01 00AAE    6AF002A3              BAL,15   REGRESTR          RESTORE REGISTER VALUES
     1928   01 00AAF    E8000A83              B        *PHASAVE          RETURN TO CALLING ROUTINE
     1929                            *
     1930   01 00AB0    ED100BBF     CLOCKEM  WD,1     *GRP0             SEND SINGLE PHASE CLOCK
     1931   01 00AB1    32900422              LW,9     150D0D0D          NEW LINE CODE
     1932   01 00AB2    359C299A              STW,9    OUTBUFF,6         STORE CODE FOR NEW LINE
     1933   01 00AB3    20600001 A            AI,6     1                 INCREMENT WORD STORE COUNT
     1934   01 00AB4    68000A92              B        PHASEM            RETURN TO SNAP NEXT PHASE
     1935                            *
     1936   01 00AB5    32900FA8     ADDEM    LW,9     15150D0D          LOAD NEW LINES CODE
     1937   01 00AB6    33000AD7              MTW,0    NEWLINE           SHOULD LINE SPACE BE INSERTED?
     1938   01 00AB7    68300AAA              BCR,3    SHIFTEM+6         BRANCH IF NOT
     1939   01 00AB8    359C299A              STW,9    OUTBUFF,6         STORE NEW LINE CODES
     1940   01 00AB9    20600001 A            AI,6     1                 INCREMENT WORD STORE COUNT
     1941   01 00ABA    68000A92              B        PHASEM            BRANCH TO SNAP ROUTINE
     1942   01 00ABB    38980ACE     CONVERT  SW,9     DEC+4,4             SUBTRACT CONVERSION CONSTANT
     1943   01 00ABC    30980AD3              AW,9     CON+4,4           ADD EBCDIC CONSTANT
     1944   01 00ABD    35900008 A            STW,9    8                 PREPARE FOR STORING DIGIT
     1945   01 00ABE    68000AA4              B        SHIFTEM           RETURN TO CONTINUE CONVERSION
     1946                            *
     1947   01 00ABF    0000F000 A   MASK     DATA     X'F000'
     1948   01 00AC0    00000F00 A            DATA     X'0F00'
     1949   01 00AC1    000000F0 A            DATA     X'00F0'
     1950   01 00AC2    0000000F A            DATA     X'000F'
     1951   01 00AC3    00000000 A            DATA     0
     1952                            *
     1953   01 00AC4    000F0000 A   ZONE     DATA     X'F0000'
     1954   01 00AC5    0000F000 A            DATA     X'F000'
     1955   01 00AC6    00000F00 A            DATA     X'F00'
     1956   01 00AC7    000000F0 A            DATA     X'F0'
     1957   01 00AC8    00000000 A            DATA     0
     1958   01 00AC9    00000000 A            DATA     0
     1959   01 00ACA    00009000 A   DEC      DATA     X'9000'
     1960   01 00ACB    00000900 A            DATA     X'900'
     1961   01 00ACC    00000090 A            DATA     X'90'
     1962   01 00ACD    00000009 A            DATA     X'9'
     1963   01 00ACE    00000000 A            DATA     0
     1964                            *
     1965   01 00ACF    000C0000 A   CON      DATA     X'C0000'
     1966   01 00AD0    0000C000 A            DATA     X'C000'
     1967   01 00AD1    00000C00 A            DATA     X'C00'
     1968   01 00AD2    000000C0 A            DATA     X'C0'
     1969   01 00AD3    00000000 A            DATA     0
     1970   01 00AD4    00000000 A            DATA     0
     1971                            *
     1972   01 00AD5    00000000 A   ADDATA   DATA     0
     1973   01 00AD6    00000000 A   DISPGRP  DATA     0
     1974   01 00AD7    00000000 A   NEWLINE  DATA     0
     1975   01 00AD8    00000000 A   POSIT    DATA     0
     1976                            *
     1977   01 00AD9    33000294     PREPHS   MTW,0    PHSLATCH          IS THIS SINGLE PHASE?
     1978   01 00ADA    E830000F A            BCR,3    *15               BRANCH IF NOT
     1979   01 00ADB    ED200BBF              WD,2     *GRP0             STOP NORMAL PHASE CLK
     1980   01 00ADC    E800000F A            B        *15               RETURN TO CALLER
     1981                            *
     1982   01 00ADD    33000294     PHSCLK   MTW,0    PHSLATCH          HAS ERROR OCCURED
     1983   01 00ADE    E930000F A            BCS,3    *15               BRANCH IF ERROR PASS
     1984   01 00ADF    65500AE1              BIR,5    %+2               LOOP THRU X CLOCKS
     1985   01 00AE0    E800000F A            B        *15               RETURN TO CALLER
     1986   01 00AE1    ED100BBF              WD,1     *GRP0             GIVE PHASE CLOCK
     1987   01 00AE2    68000ADF              B        %-3               LOOP
     1988                            *
     1989   01 00AE3    35F00AEA     PHSCLKX  STW,15   SNAPSAVE          SAVE RETURN
     1990   01 00AE4    6AF00ADD              BAL,15   PHSCLK            SINGLE PHASE MIOP IF NO ERROR
     1991   01 00AE5    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     1992   01 00AE6    33000294              MTW,0    PHSLATCH          IS THIS AN ERROR PASS
     1993   01 00AE7    68300AE9              BCR,3    %+2               BRANCH IF NOT
     1994   01 00AE8    35100AD5              STW,1    ADDATA            SET ADDATA FLAG
     1995   01 00AE9    E8000AEA              B        *SNAPSAVE         RETURN TO CALLING ROUTINE
     1996   01 00AEA    00000000 A   SNAPSAVE DATA     0
     1997                            *
     1998                            *
     1999                            *
     2000                            *        K E Y B O A R D  P R I N T E R  C O N T R O L  R O U T I N E
     2001                            *
     2002                            *
     2003         01 00AEB           %KTROL   EQU      %
     2004   01 00AEB    220001FD     #0010000 LI,0     DA(%CP01)         COMMAND PAIR FOR C/R AND %
     2005   01 00AEC    6AF00A75              BAL,15   IOPCHECK          IS OUTPUT ON TEST IOP?
     2006   01 00AED    CC000BD3              SIO,0    *%KP:ADR          OUTPUT C/R AND %
     2007   01 00AEE    68800AF3              BCR,8    %+5               BRANCH IF CC1 IS RESET
     2008   01 00AEF    68400AEB              BCR,4    #0010000          BRANCH IF CC1 = 1,  CC2 = 0
     2009   01 00AF0    2E000000 A   %WAIT1   WAIT     0                 WAIT TO ENTER VALID KSR ADDR INTO
     2010                            *                                   R0 - IOP # INTO BITS 21-23, DC INTO
     2011                            *                                   BITS 24 THRU 31.
     2012   01 00AF1    35000BD3              STW,0    %KP:ADR           SET ENTERED ADDRESS
     2013   01 00AF2    68000AEB              B        #0010000          RESTART I/O
     2014   01 00AF3    69400AEB              BCS,4    #0010000          LOOP UNTIL ACCEPTED
     2015   01 00AF4    CD000BD3              TIO,0    *%KP:ADR          TEST FOR BUSY
     2016   01 00AF5    69C00AF4              BCS,12   %-1               WAIT UNTIL K/P IS READY
     2017   01 00AF6    2250000F A   #0010001 LI,5     15                SET LOOP FOR 16 WORDS
     2018   01 00AF7    35EA0BD5              STW,14   %INBUFF,5         CLEAR INPUT BUFFER
     2019   01 00AF8    64500AF7              BDR,5    %-1               LOOP
     2020   01 00AF9    220001FE              LI,0     DA(%CP02)         COMMAND PAIR FOR MESSAGE INPUT
     2021   01 00AFA    CC000BD3              SIO,0    *%KP:ADR          CONNECT TYPEWRITER FOR INPUT
     2022   01 00AFB    CD000BD3              TIO,0    *%KP:ADR          TEST FOR BUSY
     2023   01 00AFC    69C00AFB              BCS,12   %-1               WAIT FOR MESSAGE TO BE INPUT
     2024   01 00AFD    22500040 A            LI,5     64                 R5 WILL EQUAL 'X' BYTE SEARCH INDEX
     2025   01 00AFE    724A0BD5     #0010004 LB,4     %INBUFF,5         FETCH BYTE INDEXED
     2026   01 00AFF    214000E7 A            CI,4     'X'               IS IT ESCAPE CHARACTER?
     2027   01 00B00    68300AEB              BCR,3    #0010000          IF SO, REPEAT INPUT
     2028   01 00B01    64500AFE              BDR,5    #0010004          LOOP FOR 64 BYTES
     2029   01 00B02    32400BD5     #0010006 LW,4     %INBUFF           FETCH FIRST FOUR CHARACTERS
     2030   01 00B03    25400178 A            SLD,4    -8                LOOK AT ONLY FIRST THREE
     2031   01 00B04    72500005 A            LB,5     5                 GET FOURTH CHARACTER
     2032   01 00B05    21500015 A            CI,5     X'15'             IS IT N/L CHARACTER
     2033   01 00B06    68300B28              BCR,3    #0010040          IF SO, RUN SIMPLEX COMPARE
     2034   01 00B07    2150006B A            CI,5     ','               IS IT A COMMA
     2035   01 00B08    69300B22              BCS,3    #0010020          BRANCH IF NOT COMMA-SYNTAX ERROR
     2036   01 00B09    31400C17              CW,4     C:ADR             CHECK FOR  'ADR'
     2037   01 00B0A    69300B34              BCS,3    #0010050          BRANCH IF NOT 'ADR'
     2038   01 00B0B    72420BD7              LB,4     %INBUFF+2,1       FETCH TENTH BYTE
     2039   01 00B0C    21400015 A            CI,4     X'15'             IS IT A N/L CHARACTER?
     2040   01 00B0D    69300B22              BCS,3    #0010020          BRANCH IF NOT, SYNTAX ERROR
     2041   01 00B0E    32400BD6              LW,4     %INBUFF+1         FETCH NUMERIC DATA ENTRY
     2042   01 00B0F    226FFFFC A            LI,6     -4                R6 = NUMBER OF BYTES TO BE CHECKED
     2043   01 00B10    6AF00BC7              BAL,15   NUMCHK            VERIFY NUMERIC ENTRY
     2044   01 00B11    72400BD7              LB,4     %INBUFF+2         FETCH LAST BYTE
     2045   01 00B12    226FFFFF A            LI,6     -1                SET VERIFY LOOP COUNT
     2046   01 00B13    25400018 A            SLS,4    24                POSITION IN BYTE 0
     2047   01 00B14    6AF00BC7              BAL,15   NUMCHK            VERIFY LAST BYTE
     2048   01 00B15    22700004 A            LI,7     4                 INDEX TO FIFTH CHARACTER
     2049   01 00B16    22400000 A            LI,4     0                 CLEAR CHARACTER ACCUMULATOR
     2050   01 00B17    725E0BD5     #0010010 LB,5     %INBUFF,7         FETCH NEXT CHARACTER
     2051   01 00B18    21500015 A            CI,5     X'15'             CHECK FOR NEW LINE CODE
     2052   01 00B19    68300B26              BCR,3    #0010030          BRANCH IF CHARACTER IS NEW LINE
     2053   01 00B1A    21500010 A            CI,5     1**4              CHECK ZONE BITS
     2054   01 00B1B    69400B1D              BCS,4    %+2               BRANCH IF NUMERIC
     2055   01 00B1C    20500009 A            AI,5     9                 CONVERT TO HEX
     2056   01 00B1D    4B500F93              AND,5    X:F               STRIP OFF ZONE BITS             *A02
     2057   01 00B1E    25400004 A            SLS,4    4                 MAKE ROOM FOR THIS DIGIT
     2058   01 00B1F    49400005 A            OR,4     5                 MERGE IN NEW DIGIT
     2059   01 00B20    33100007 A            MTW,1    7                 MOVE BUFFER INDEX TO NEXT CHAR
     2060   01 00B21    68000B17              B        #0010010          BRANCH IF NOT END OF BUFFER YET *A02
     2061   01 00B22    220001FF     #0010020 LI,0     DA(%CP03)         HERE FOR SYNTAX ERROR MESSAGE
     2062   01 00B23    CC000BD3              SIO,0    *%KP:ADR          START MESSAGE
     2063   01 00B24    22D00004 A            LI,13    4                 PRESERVE R13 = 4
     2064   01 00B25    68000AEB              B        #0010000          GO CONNECT TYPEWRITER FOR INPUT
     2065   01 00B26    35400D6A     #0010030 STW,4    %TEST:ADR         SAVE INPUT PARAMETER
     2066   01 00B27    68000AEB              B        #0010000          RETURN FOR MORE INPUT
     2067   01 00B28    31400C16     #0010040 CW,4     C:RUN             CHECK FOR RUN DIRECTIVE
     2068   01 00B29    69300B22              BCS,3    #0010020          IF NOT RUN, SYNTAX ERROR
     2069   01 00B2A    35100C1A              STW,1    COMPFLAG          SET COMPARE FLAG
     2070   01 00B2B    35E00C36              STW,14   %BITSETP1         PARAMETER 1 = 0
     2071   01 00B2C    22400037 A            LI,4     %DICTLENGTH       FETCH DICTIONARY LENGTH
     2072   01 00B2D    35400C37              STW,4    %BITSETP2         PARAMETER 2 = NUMBER OF TESTS
     2073   01 00B2E    6AF00C1B              BAL,15   %BITSET           SET ALL ONES IN BITEMP
     2074   01 00B2F    224FFFFC A            LI,4     -4                LOOP COUNT
     2075   01 00B30    32580C32              LW,5     %BITEMP+4,4       FETCH PATTERN
     2076   01 00B31    35580C36              STW,5    %BITEST+4,4       MOVE TO EXECUTE TABLE
     2077   01 00B32    65400B30              BIR,4    %-2               LOOP FOR 4 WORDS
     2078   01 00B33    68000207              B        EXEC              RETURN TO EXECUTIVE
     2079                            *
     2080   01 00B34    31400C16     #0010050 CW,4     C:RUN             RUN DIRECTIVE INPUT?
     2081   01 00B35    69300B79              BCS,3    #0010100          CHECK FOR DIO OR OUT DIRECTIVE
     2082   01 00B36    22700004 A            LI,7     4                 INDEX TO FIFTH CHAR INPUT
     2083   01 00B37    724E0BD5              LB,4     %INBUFF,7         FETCH FIFTH CHARACTER
     2084   01 00B38    21400015 A            CI,4     21                IS IT A NEW LINE CHAR
     2085   01 00B39    68300207              BCR,3    EXEC              RETURN TO EXEC, RUN EXISTING PATTERN
     2086   01 00B3A    224FFFFC A            LI,4     -4                INDEX FOR CLEARING 4 WORD TABLE
     2087   01 00B3B    35E80C32              STW,14   %BITEMP+4,4       CLEAR TEMPOARY TEST BIT TABLE
     2088   01 00B3C    35E80C36              STW,14   %BITEST+4,4       CLEAR EXECUTE TEST BIT TABLE    *A02
     2089   01 00B3D    65400B3B              BIR,4    %-2               BRANCH IF NOT DONE
     2090   01 00B3E    35E00C15              STW,14   %SWITCHA          RESET SWITCH A
     2091   01 00B3F    35E00C36              STW,14   %BITSETP1         CLEAR FIRST BIT SET PARAMETER   *A02
     2092   01 00B40    35E00C38              STW,14   %BSP1LAST         CLEAR LAST P1 VALUE FLAG
     2093   01 00B41    22D000F0 A            LI,13    X'F0'             MASK FOR ZONE BITS
     2094   01 00B42    22C000F0 A            LI,12    X'F0'             DATA FOR ZONE BIT COMPARE
     2095   01 00B43    724E0BD5     #0010060 LB,4     %INBUFF,7         FETCH CHARACTER
     2096   01 00B44    214000E3 A            CI,4     'T'               CHECK FOR LETTER 'T'
     2097   01 00B45    69300B70              BCS,3    #0010090          BRANCH IF NOT 'T'
     2098   01 00B46    22500000 A            LI,5     0                 CLEAR REGISTER 5
     2099   01 00B47    33100007 A            MTW,1    7                 MOVE TO NEXT CHARACTER
     2100   01 00B48    724E0BD5              LB,4     %INBUFF,7         FETCH CHARACTER
     2101   01 00B49    45C00004 A            CS,12    4                 CHECK FOR ALPHA ZONE BITS
     2102   01 00B4A    69300B22              BCS,3    #0010020          BRANCH IF NOT NUMERIC-SYNTAX ERROR
     2103   01 00B4B    2540017C A   #0010070 SLD,4    -4                SAVE LOW-ORDER 4-BITS IN REG 5
     2104   01 00B4C    33100007 A            MTW,1    7                 MOVE TO NEXT CHARACTER
     2105   01 00B4D    724E0BD5              LB,4     %INBUFF,7         FETCH CHARACTER
     2106   01 00B4E    45C00004 A            CS,12    4                 CHECK FOR ALPHA ZONE BITS
     2107   01 00B4F    68300B4B              BCR,3    #0010070          BRANCH IF NUMERIC DIGIT
     2108   01 00B50    22400000 A            LI,4     0                 CLEAR REG 4
     2109   01 00B51    25400304 A            SCD,4    4                 LOW ORDER DIGIT INTO REG 4
     2110   01 00B52    25500064 A            SLS,5    -28               HIGH ORDER DIGIT INTO REG 5
     2111   01 00B53    2350000A A            MI,5     10                MULTIPLY HIGH-ORDER DIGIT BY 10
     2112   01 00B54    30500004 A            AW,5     4                 ADD THIS TO HIGH-ORDER VALUE
     2113   01 00B55    35500C37              STW,5    %BITSETP2         STORE FOR BIT SET ROUTINE
     2114   01 00B56    33000C15              MTW,0    %SWITCHA          CHECK SWITCH A
     2115   01 00B57    69300B59              BCS,3    %+2               BRANCH IF SWITCH IS SET
     2116   01 00B58    35500C36              STW,5    %BITSETP1         STORE FOR BIT SET ROUTINE
     2117   01 00B59    32400C37              LW,4     %BITSETP2         FETCH PARAMETER P2
     2118   01 00B5A    2140007F A            CI,4     127               CHECK FOR LIMIT
     2119   01 00B5B    69200B22              BCS,2    #0010020          BRANCH IF >127-SYNTAX ERROR
     2120   01 00B5C    32500C36              LW,5     %BITSETP1         FETCH PARAMETER P1
     2121   01 00B5D    2150007F A            CI,5     127               CHECK FOR LIMIT
     2122   01 00B5E    69200B22              BCS,2    #0010020          BRANCH IF >127-SYNTAX ERROR
     2123   01 00B5F    31400C38              CW,4     %BSP1LAST         CHECK FOR ASCENDING SEQUENCE
     2124   01 00B60    69100B22              BCS,1    #0010020          BRANCH IF P1 < LAST P1-SYNTAX ERROR
     2125   01 00B61    31500004 A            CW,5     4                 CHECK IF P1>=P2
     2126   01 00B62    69200B22              BCS,2    #0010020          BRANCH IF P1>P2-SYNTAX ERROR
     2127   01 00B63    6AF00C1B              BAL,15   %BITSET           GO TO TEST BIT SETTING ROUTINE
     2128   01 00B64    724E0BD5              LB,4     %INBUFF,7         FETCH CURRENT CHARACTER
     2129   01 00B65    2140006B A            CI,4     ','               CHECK FOR COMMA
     2130   01 00B66    69300B6A              BCS,3    #0010080          BRANCH IF NOT COMMA
     2131   01 00B67    35E00C15              STW,14   %SWITCHA          RESET SWITCH A
     2132   01 00B68    33100007 A   #0010071 MTW,1    7                 MOVE TO NEXT CHARACTER
     2133   01 00B69    68000B43              B        #0010060          RETURN TO PROCESS NEXT FIELD
     2134   01 00B6A    21400060 A   #0010080 CI,4     '-'               CHECK FOR DASH CHARACTER
     2135   01 00B6B    69300B70              BCS,3    #0010090          BRANCH IF NOT DASH CHARACTER
     2136   01 00B6C    33000C15              MTW,0    %SWITCHA          TEST SWITCH A
     2137   01 00B6D    69300B22              BCS,3    #0010020          BRANCH IF SWITCH A SET-SYNTAX ERROR
     2138   01 00B6E    35100C15              STW,1    %SWITCHA          SET SWITCH A
     2139   01 00B6F    68000B68              B        #0010071          RETURN FOR SECOND DASH PARAMETER
     2140   01 00B70    21400015 A   #0010090 CI,4     X'15'             CHECK FOR NEW-LINE CHARACTER
     2141   01 00B71    69300B22              BCS,3    #0010020          BRANCH IF NOT NEW-LINE CHARACTER
     2142   01 00B72    227FFFFC A            LI,7     -4                INDEX TO MOVE 4 WORD TABLE
     2143   01 00B73    324E0C32              LW,4     %BITEMP+4,7       GET NEW TEST BITS
     2144   01 00B74    354E0C36              STW,4    %BITEST+4,7       UPDATE EXECUTE TABLE
     2145   01 00B75    65700B73              BIR,7    %-2               BRANCH IF NOT DONE
     2146   01 00B76    35E00C1A              STW,14   COMPFLAG          CLEAR COMPARE FLAG IF SET
     2147   01 00B77    22D00004 A            LI,13    4                 PRESERVE R13 = 4
     2148   01 00B78    68000207              B        EXEC              RETURN TO EXECUTIVE ROUTINE
     2149   01 00B79    31400C19     #0010100 CW,4     C:OUT             CHECK FOR OUT DIRECTIVE
     2150   01 00B7A    69300B9A              BCS,3    #0010110          BRANCH IF NOT OUT DIRECTIVE
     2151   01 00B7B    72600BD7              LB,6     %INBUFF+2         FETCH NINETH CHARACTER
     2152   01 00B7C    21600015 A            CI,6     X'15'             IS IT NEW LINE
     2153   01 00B7D    69300B22              BCS,3    #0010020          BRANCH IF NOT, SYNTAX ERROR
     2154   01 00B7E    32400BD6              LW,4     %INBUFF+1         FETCH DIRECTIVE DATA
     2155   01 00B7F    226FFFFD A            LI,6     -3                SET LOOP COUNT
     2156   01 00B80    6AF00BC7              BAL,15   NUMCHK            VALIDATE DATA
     2157   01 00B81    32400BD6              LW,4     %INBUFF+1         FETCH ADDRESS AND TYPE
     2158   01 00B82    4B400FB8              AND,4    FFFFFF00          MASK FOR HEX DIGITS
     2159   01 00B83    204000F0 A            AI,4     X'F0'             ZONE CONVERT
     2160   01 00B84    25400278 A            SCS,4    -8                SHIFT FOR ADDR POSITION
     2161   01 00B85    6AF00DF5              BAL,15   EBCTOHEX          CONVERT TO HEX
     2162   01 00B86    21400800 A            CI,4     X'800'            IS IT WITHIN ADDRESS RANGE
     2163   01 00B87    68100B22              BCR,1    #0010020          BRANCH IF NOT
     2164   01 00B88    72660BD6              LB,6     %INBUFF+1,3       FETCH TYPE DESIGNATOR
     2165   01 00B89    32500A68              LW,5     TYPEBRA           FETCH USER OUTPUT BRANCH
     2166   01 00B8A    216000D3 A            CI,6     'L'               'L' SIGNIFIES LINE PRINTER
     2167   01 00B8B    68300B93              BCR,3    LPOUT             BRANCH IF LP SELECTED
     2168   01 00B8C    216000D2 A            CI,6     'K'               'K' SIGNIFIES KSR
     2169   01 00B8D    68300B95              BCR,3    OUTRET            BRANCH IF KSR OUTPUT
     2170   01 00B8E    32500A67              LW,5     PNCHBRA           FETCH MAINTENANCE BRANCH
     2171   01 00B8F    216000D8 A            CI,6     'Q'               'Q' SIGNIFIES KSR ERR WRD MONITER
     2172   01 00B90    68300B95              BCR,3    OUTRET            PUNCH WITH KSR MONITOR
     2173   01 00B91    216000D7 A            CI,6     'P'               'P' SIGNIFIES LP ERR MONITER
     2174   01 00B92    69300B22              BCS,3    #0010020          INCORRECT TYPE DESIGNATOR, SYN ERR
     2175   01 00B93    35400BD4     LPOUT    STW,4    LINEPRNT          SET LINEPRINTER ADDRESS
     2176   01 00B94    68000B96              B        %+2               DO NOT CLEAR LP ADDR
     2177   01 00B95    35E00BD4     OUTRET   STW,14   LINEPRNT          SPECIFY KSR OUTPUT
     2178   01 00B96    3550028C              STW,5    DEVSEL            SET USER OR MAINTENANCE BRANCH
     2179   01 00B97    680002BB              B        INITIAL           OUTPUT INITIAL MESSAGE
     2180   01 00B98    31400C18              CW,4     C:DIO             CHECK FOR DIO DIRECTIVE
     2181   01 00B99    69300B22              BCS,3    #0010020          IF NOT DIO, SYN ERR
     2182   01 00B9A    72640BD6     #0010110 LB,6     %INBUFF+1,2       FETCH SEVENTH CHARACTER
     2183   01 00B9B    21600015 A            CI,6     X'15'             IS IT NEW LINE
     2184   01 00B9C    69300B22              BCS,3    #0010020          BRANCH IF NOT, SYNTAX ERROR
     2185   01 00B9D    32400BD6              LW,4     %INBUFF+1         FETCH INPUT DATA
     2186   01 00B9E    226FFFFE A            LI,6     -2                SET LOOP COUNT
     2187   01 00B9F    6AF00BC7              BAL,15   NUMCHK            CHECK CHARACTER CORRECTNESS
     2188   01 00BA0    32400BD6              LW,4     %INBUFF+1         FETCH DIO DATA
     2189   01 00BA1    25400470 A            SAS,4    -16               POSITION IN BITS 16-31
     2190   01 00BA2    4B400FB0              AND,4    F0F0FFFF          MASK FOR EBCDIC
     2191   01 00BA3    6AF00DF5              BAL,15   EBCTOHEX          CONVERT TO HEX
     2192   01 00BA4    25400005 A            SLS,4    5                 REPOSITION INTO BITS 20 - 26
     2193   01 00BA5    22602000 A   MSADDIN  LI,6     X'2000'           SET TEST EQUIP. DESIGNATOR
     2194   01 00BA6    30600004 A            AW,6     4                 ADD DIO SETTING
     2195   01 00BA7    224FFFF3 A            LI,4     -13               SET LOOP COUNT
     2196   01 00BA8    35680BBF              STW,6    GPA0+13,4         STORE COMPLETED ADDRESS INDEXED
     2197   01 00BA9    20600001 A            AI,6     1                 INCREMENT ADDRESS
     2198   01 00BAA    65400BA8              BIR,4    %-2               LOOP FOR ALL MS GRP ADDRESSES
     2199   01 00BAB    32600BB2              LW,6     GPA0              RECONFIGURE GROUP ADDRESSES
     2200   01 00BAC    20600010 A            AI,6     X'10'             TO FORM IOP DISP GRP ADRESSES
     2201   01 00BAD    224FFFF8 A            LI,4     -8                SET LOOP COUNT
     2202   01 00BAE    35680BC7              STW,6    GRP0+8,4          STORE COMPLETED ADDRESS, INDEXED
     2203   01 00BAF    20600001 A            AI,6     1                 INCREMENT
     2204   01 00BB0    65400BAE              BIR,4    %-2               LOOP FOR ALL ADDRESSES
     2205   01 00BB1    68000AEB              B        #0010000          RETURN FOR MORE INPUT
     2206                            *
     2207   01 00BB2    00000000 A   GPA0     DATA     0                 MS GROUP ADDRESS ZERO
     2208   01 00BB3    00000000 A   GPA1     DATA     0                 MS GROUP ADDRESS ONE
     2209   01 00BB4    00000000 A   GPA2     DATA     0                 MS GROUP ADDRESS TWO
     2210   01 00BB5    00000000 A   GPA3     DATA     0                 MS GROUP ADDRESS THREE
     2211   01 00BB6    00000000 A   GPA4     DATA     0                 MS GROUP ADDRESS FOUR
     2212   01 00BB7    00000000 A   GPA5     DATA     0                 MS GROUP ADDRESS FIVE
     2213   01 00BB8    00000000 A   GPA6     DATA     0                 MS GROUP ADDRESS SIX
     2214   01 00BB9    00000000 A   GPA7     DATA     0                 MS GROUP ADDRESS SEVEN
     2215   01 00BBA    00000000 A   GPA8     DATA     0                 MS GROUP ADDRESS EIGHT
     2216   01 00BBB    00000000 A   GPA9     DATA     0                 MS GROUP ADDRESS NINE
     2217   01 00BBC    00000000 A   GPAA     DATA     0                 MS GROUP ADDRESS TEN
     2218   01 00BBD    00000000 A   GPAB     DATA     0                 MS GROUP ADDRESS ELEVEN
     2219   01 00BBE    00000000 A   GPAC     DATA     0                 MS GROUP ADDRESS TWELVE
     2220                            *
     2221   01 00BBF    00000000 A   GRP0     DATA     0                 IOP DISPLAY GROUP ADDRESS ZERO
     2222   01 00BC0    00000000 A   GRP1     DATA     0                 IOP DISPLAY GROUP ADDRESS ONE
     2223   01 00BC1    00000000 A   GRP2     DATA     0                 IOP DISPLAY GROUP ADDRESS TWO
     2224   01 00BC2    00000000 A   GRP3     DATA     0                 IOP DISPLAY GROUP ADDRESS THREE
     2225   01 00BC3    00000000 A   GRP4     DATA     0                 IOP DISPLAY GROUP ADDRESS FOUR
     2226   01 00BC4    00000000 A   GRP5     DATA     0                 IOP DISPLAY GROUP ADDRESS FIVE
     2227   01 00BC5    00000000 A   GRP6     DATA     0                 IOP DISPLAY GROUP ADDRESS SIX
     2228   01 00BC6    00000000 A   GRP7     DATA     0                 IOP DISPLAY GROUP ADDRESS SEVEN
     2229                            *
     2230   01 00BC7    72500004 A   NUMCHK   LB,5     4                 FETCH DATA BYTE
     2231   01 00BC8    25400008 A            SLS,4    8                 POSITION NEXT BYTE
     2232   01 00BC9    215000F9 A            CI,5     X'F9'             IS BYTE > NINE?
     2233   01 00BCA    69200B22              BCS,2    #0010020          IF SO, SYNTAX ERROR
     2234   01 00BCB    215000EF A            CI,5     X'EF'             IS BYTE < ZERO?
     2235   01 00BCC    69200BD1              BCS,2    %+5               NO, BYTE IS VALID DECIMAL CHAR
     2236   01 00BCD    215000C6 A            CI,5     X'C6'             YES, IS BYTE ALPHA CHAR. > F?
     2237   01 00BCE    69200B22              BCS,2    #0010020          IF SO, SYNTAX ERROR
     2238   01 00BCF    215000C0 A            CI,5     X'C0'             IS BYTE AN ALPHA < A?
     2239   01 00BD0    68200B22              BCR,2    #0010020          IF SO, SYNTAX ERROR
     2240   01 00BD1    65600BC7              BIR,6    NUMCHK            LOOP FOR ALL BYTES
     2241   01 00BD2    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     2242   01 00BD3    00000001 A   %KP:ADR  DATA     1                 ADDRESS OF KEYBOARD/PRINTER     *A02
     2243   01 00BD4    00000000 A   LINEPRNT DATA     0                 ADDRESS OF LINE PRINTER
     2244   01 00BD5                 %INBUFF  RES      64                INPUT BUFFER
     2245   01 00C15    00000000 A   %SWITCHA DATA     0                 INDICATES DASH CHAR. PROCESSING
     2246   01 00C16    00D9E4D5 A   C:RUN    DATA     'RUN'             CONSTANT
     2247   01 00C17    00C1C4D9 A   C:ADR    DATA     'ADR'             CONSTANT
     2248   01 00C18    00C4C9D6 A   C:DIO    DATA     'DIO'             CONSTANT
     2249   01 00C19    00D6E4E3 A   C:OUT    DATA     'OUT'             CONSTANT
     2250   01 00C1A    00000000 A   COMPFLAG DATA     0                 SET IF COMPARE IS TO BE MADE
     2251                            *        END KEYBOARD/PRINTER CONTROL ROUTINE
     2252                            *
     2253                            *        T E S T  B I T  S E T  R O U T I N E
     2254                            *
     2255   01 00C1B    32800C36     %BITSET  LW,8     %BITSETP1         GET FIRST PARAMETER
     2256   01 00C1C    35800C38              STW,8    %BSP1LAST         UPDATE LAST P1 ENTRY
     2257   01 00C1D    32A00C37              LW,10    %BITSETP2         GET SECOND PARAMETER
     2258   01 00C1E    38A00008 A            SW,10    8                 FORM P2-P1 CALL IT DELTA 1
     2259   01 00C1F    20A00001 A            AI,10    1                 DELTA 1 + 1 LOOP COUNT
     2260   01 00C20    2580017B A            SLD,8    -5                DIVIDE BY 32-CALL IT DELTA 2
     2261   01 00C21    25900065 A            SLS,9    -27               FORM P1-MODULO 32-CALL IT DELTA 3
     2262   01 00C22    3A600009 A            LCW,6    9                 PUT DELTA 3 INTO INDEX REG. 6
     2263   01 00C23    22B00001 A            LI,11    1                 SET BIT 31 HIGH
     2264   01 00C24    25B0027F A            SCS,11   -1                SET BIT 0 HIGH
     2265   01 00C25    25BC0200 A            SCS,11   0,6               SHIFT RIGHT DELTA 3 POSITIONS
     2266   01 00C26    32600008 A            LW,6     8                 PUT DELTA 2 INTO INDEX REG 6
     2267   01 00C27    47BC0C2E     %BITSET1 STS,11   %BITEMP,6         OR TEST BIT INTO TEMPORARY TABLE
     2268   01 00C28    25B0027F A            SCS,11   -1                GET NEXT TEST BIT
     2269   01 00C29    32B0000B A            LW,11    11                TEST FOR BIT 0 SET
     2270   01 00C2A    68100C2C              BCR,1    %+2               BRANCH IF BIT 0 IS NOT SET
     2271   01 00C2B    20600001 A            AI,6     1                 MOVE TABLE INDEX - DELTA 2 +1
     2272   01 00C2C    64A00C27              BDR,10   %BITSET1          BRANCH IF NOT DONE
     2273   01 00C2D    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     2274   01 00C2E    00000000 A   %BITEMP  DATA     0                 4 WORD TABLE USED TO
     2275   01 00C2F    00000000 A            DATA     0                 RETAIN TEMPORARY TEST BIT
     2276   01 00C30    00000000 A            DATA     0                 PATTERN DURING SYNTAX
     2277   01 00C31    00000000 A            DATA     0                 ANALYSIS
     2278   01 00C32    00000000 A   %BITEST  DATA     0                 4 WORD TABLE USED TO
     2279   01 00C33    00000000 A            DATA     0                 RETAIN ACTUAL TEST BIT
     2280   01 00C34    00000000 A            DATA     0                 PATTERN THAT IS TO BE
     2281   01 00C35    00000000 A            DATA     0                 USED IN TESTING
     2282                            %BITSETP1 ;                         PARAMETER P1 USED BY BIT SETTING
     2283   01 00C36    00000000 A            DATA     0                 ROUTINE TO INDICATE POSITION OF BIT
     2284                            %BITSETP2 ;                         PARAMETER P2 USED BY BIT SETTING
     2285   01 00C37    00000000 A            DATA     0                 ROUTINE TO INDICATE POSITION OF BIT
     2286                            %BSP1LAST ;                         CONTAINS VALUE OF LAST P1
     2287   01 00C38    00000000 A            DATA     0                 PARAMETER FOR BIT SETTING ROUTINE
     2288                            *
     2289                            *        E R R O R  R E P O R T  R O U T I N E
     2290                            *
     2291   01 00C39    00000000 A   ETROLSAV DATA     0                 R15 STORAGE FOR ETROL RETURN
     2292   01 00C3A    35F00C39     %ETROL   STW,15   ETROLSAV          SAVE R15 FOR RETURN
     2293   01 00C3B    3270029A              LW,7     %EPOINT           FETCH EXECUTE TABLE POINTER
     2294   01 00C3C    324E0C9F              LW,4     %DICTA,7          FETCH DICTIONARY WORD
     2295   01 00C3D    72920004 A            LB,9     4,1               FETCH TEST NUMBER
     2296   01 00C3E    2590007F A            SLS,9    -1                RIGHT JUSTIFY
     2297   01 00C3F    4B900F97              AND,9    X:7F              LIMIT TO 0-127                  *A02
     2298   01 00C40    22800000 A            LI,8     0                 CLEAR HIGH ORDER DIVIDEND
     2299   01 00C41    36800FA4              DW,8     D:100             DIVIDE BY 100
     2300   01 00C42    49900F98              OR,9     X:F0              SET EBCDIC ZONE BITS            *A02
     2301   01 00C43    75960A0A              STB,9    %MSG01+2,3        SET VALUE INTO MESSAGE
     2302   01 00C44    25800160 A            SLD,8    -32               RIGHT JUSTIFY REMAINDER
     2303   01 00C45    36800FA5              DW,8     D:10              DIVIDE BY 10
     2304   01 00C46    49900F98              OR,9     X:F0              SET EBCDIC ZONE BITS            *A02
     2305   01 00C47    75900A0B              STB,9    %MSG01+3          SET VALUE INTO MESSAGE
     2306   01 00C48    49800F98              OR,8     X:F0              SET EBCDIC ZONE BITS            *A02
     2307   01 00C49    75820A0B              STB,8    %MSG01+3,1        SET VALUE INTO MESSAGE
     2308   01 00C4A    6AF00A75              BAL,15   IOPCHECK          DOES OUT IOP = TEST IOP?
     2309   01 00C4B    22000205              LI,0     DA(DWCMND3L)      CMND PR FOR  ERR TEST MSG       *A02
     2310   01 00C4C    33000BD4              MTW,0    LINEPRNT          IS THE L.P. TO BE USED?         *A02
     2311   01 00C4D    68300C50              BCR,3    %+3               BRANCH IF NOT                   *A02
     2312   01 00C4E    6AF003D2              BAL,15   OUTPRINT          OUTPUT ON L.P.                  *A02
     2313   01 00C4F    68000C54              B        %+5               BRANCH AROUND KSR OUTPUT
     2314   01 00C50    22000201              LI,0     DA(%CP05)         FETCH CMND FOR ERR TEST
     2315   01 00C51    6AF003CD              BAL,15   OUTYPE            OUTPUT ON KSR                   *A02
     2316   01 00C52    220001EC              LI,0     DA(DWCMND1K)      FETCH LINE SPACING COM. PAIR
     2317   01 00C53    6AF003CD              BAL,15   OUTYPE            LINE SPACEING                   *A02
     2318   01 00C54    324E0C9F              LW,4     %DICTA,7          FETCH DICTIONARY WORD
     2319   01 00C55    227FFFFC A            LI,7     -4                LOOP COUNT
     2320   01 00C56    22500000 A   #0100000 LI,5     0                 CLEAR REG 5
     2321   01 00C57    25400302 A            SCD,4    2                 FETCH ERROR WORD PARAMETER
     2322   01 00C58    21500000 A            CI,5     0                 CHECK FOR ACTIVITY THIS ERROR WORD
     2323   01 00C59    69300C5E              BCS,3    #0100010          BRANCH IF ACTIVE
     2324   01 00C5A    65700C56     #0100001 BIR,7    #0100000          BRANCH IF NOT DONE
     2325   01 00C5B    35100298              STW,1    TYERR             SET ERR-REPORTED FLAG
     2326   01 00C5C    6AF00A77              BAL,15   IOCHKOFF          INSURE DC'S OFF; MS ON
     2327   01 00C5D    E8000C39              B        *ETROLSAV         RETURN TO TEST CONTROL
     2328   01 00C5E    229000F5 A   #0100010 LI,9     X'F5'             THIS VALUE LESS REG 7 IS EW #
     2329   01 00C5F    30900007 A            AW,9     7                 SUB LOOP COUNT TO GET EW#
     2330   01 00C60    75920A0E              STB,9    %MSG02+2,1        PLACE IN OUTPUT MESSAGE
     2331   01 00C61    22600004 A            LI,6     4                 LOOP COUNT
     2332   01 00C62    32801450              LW,8     SPACES            WORD OF SPACES
     2333   01 00C63    358C0A0F              STW,8    %MSG02+3,6        INITIALIZE MESSAGE
     2334   01 00C64    64600C63              BDR,6    %-1               BRANCH IF NOT DONE WITH 5 WORDS
     2335   01 00C65    4B500003 A            AND,5    3                 RIP OFF ACTIVITY BIT            *A02
     2336   01 00C66    32AE0C9B              LW,10    %ERRWD1+4,7       FETCH ERROR WORD
     2337   01 00C67    680A0C68              B        %+1,5             GO TO CONVERSION ROUTINE CALLED FOR
     2338   01 00C68    00000000 A            DATA     0                 INDEX DISPLACEMENT
     2339   01 00C69    68000C6C              B        #0100020          BINARY
     2340   01 00C6A    68000C78              B        #0100040          HEXADECIMAL
     2341   01 00C6B    68000C84              B        #0100060          DECIMAL
     2342   01 00C6C    22500013 A   #0100020 LI,5     19                BYTE INDEX
     2343   01 00C6D    22CFFFFC A            LI,12    -4                OUTSIDE LOOP COUNT
     2344   01 00C6E    229FFFFC A   #0100030 LI,9     -4                INSIDE LOOP COUNT
     2345   01 00C6F    205FFFFF A   #0100031 AI,5     -1                STEP TO NEXT BYTE
     2346   01 00C70    25A0017F A            SLD,10   -1                GET NEXT BIT
     2347   01 00C71    25B00061 A            SLS,11   -31               RIGHT JUSTIFY
     2348   01 00C72    20B000F0 A            AI,11    X'F0'             EBCDIC ZONE BITS
     2349   01 00C73    75BA0A0F              STB,11   %MSG02+3,5        STORE BINARY DIGIT IN MESSAGE
     2350   01 00C74    65900C6F              BIR,9    #0100031          BRANCH FOR NEXT DIGIT
     2351   01 00C75    205FFFFF A            AI,5     -1                SKIP 1 BYTE  (BLANK)
     2352   01 00C76    65C00C6E              BIR,12   #0100030          BRANCH IF 16 DIGITS NOT DONE
     2353   01 00C77    68000C8D              B        #0100100          BRANCH TO PRINT MESSAGE
     2354   01 00C78    22500007 A   #0100040 LI,5     7                 BYTE INDEX
     2355   01 00C79    22CFFFF8 A            LI,12    -8                LOOP COUNT
     2356   01 00C7A    25A0017C A   #0100050 SLD,10   -4                GET HEX DIGIT
     2357   01 00C7B    25B00064 A            SLS,11   -28               RIGHT JUSTIFY
     2358   01 00C7C    20B000F0 A            AI,11    X'F0'             ZONE BITS
     2359   01 00C7D    21B000FA A            CI,11    X'FA'             CHECK FOR 0-9 OR A-F
     2360   01 00C7E    69100C80              BCS,1    %+2               BRANCH IF 0-9
     2361   01 00C7F    20B000C7 A            AI,11    X'C7'             MAKE IT ALPHA
     2362   01 00C80    75BA0A0F              STB,11   %MSG02+3,5        STORE IN MESSAGE
     2363   01 00C81    205FFFFF A            AI,5     -1                MOVE TO NEXT BYTE
     2364   01 00C82    65C00C7A              BIR,12   #0100050          BRANCH IF NOT DONE WITH 8 DIGITS
     2365   01 00C83    68000C8D              B        #0100100          BRANCH TO PRINT MESSAGE
     2366   01 00C84    22CFFFF8 A   #0100060 LI,12    -8                LOOP COUNT
     2367   01 00C85    22500007 A            LI,5     7                 BYTE INDEX
     2368   01 00C86    25A00160 A            SLD,10   -32               RIGHT JUSTIFY VALUE
     2369   01 00C87    36A00FA5     #0100070 DW,10    D:10              DIVIDE BY TEN
     2370   01 00C88    20A000F0 A            AI,10    X'F0'             ADD ZONE BITS
     2371   01 00C89    75AA0A0F              STB,10   %MSG02+3,5        STORE BYTE IN MESSAGE
     2372   01 00C8A    205FFFFF A            AI,5     -1                MOVE INDEX TO NEXT BYTE
     2373   01 00C8B    22A00000 A            LI,10    0                 CLEAR REG 10
     2374   01 00C8C    65C00C87              BIR,12   #0100070          BRANCH IF 8 DIGITS NOT DONE
     2375   01 00C8D    22000206     #0100100 LI,0     DA(DWCMND4L)      FETCH L.P. CMND PAIR
     2376   01 00C8E    33000BD4              MTW,0    LINEPRNT          IS THE L.P. TO BE USED?         *A02
     2377   01 00C8F    68300C92              BCR,3    %+3               BRANCH IF NOT                   *A02
     2378   01 00C90    6AF003D2              BAL,15   OUTPRINT          OUTPUT ON L.P.                  *A02
     2379   01 00C91    68000C95              B        %+4               BRANCH AROUND KSR OUTPUT
     2380   01 00C92    6AF003CD              BAL,15   OUTYPE            OUTPUT ON KSR
     2381   01 00C93    220001EC              LI,0     DA(DWCMND1K)      AFTER ERROR WORDS PROVIDE-
     2382   01 00C94    6AF003CD              BAL,15   OUTYPE            LINE SPACEING                   *A02
     2383   01 00C95    68000C5A              B        #0100001          BRANCH FOR NEXT ERROR WORD
     2384                            *
     2385   01 00C96    00000000 A            DATA     0                 BY TEST ROUTINES
     2386   01 00C97    00000000 A   %ERRWD1  DATA     0                 ERROR WORD NUMBER 1
     2387   01 00C98    00000000 A   %ERRWD2  DATA     0                 ERROR WORD NUMBER 2
     2388   01 00C99    00000000 A   %ERRWD3  DATA     0                 ERROR WORD NUMBER 3
     2389   01 00C9A    00000000 A   %ERRWD4  DATA     0                 ERROR WORD NUMBER 4
     2390   01 00C9B                 ERRWDLST RES      4                                                 *A02
     2391                            *
     2392                            *        T E S T  D I C T I O N A R Y
     2393                            *
     2394         00000004           DICT     COM,2,2,2,2,7,17  AF(1),AF(2),AF(3),AF(4),AF(5),AF(6)
     2395         01 00C9F           %DICTA   EQU      %                 INSERT TEST ROUTINE ADDRESSES HERE
     2396   01 00C9F    03000FC3              DICT     0,0,0,3,0,T000
     2397   01 00CA0    03020FCD              DICT     0,0,0,3,1,T001
     2398   01 00CA1    0F040FD7              DICT     0,0,3,3,2,T002
     2399   01 00CA2    03060FD8              DICT     0,0,0,3,3,T003
     2400   01 00CA3    03080FE3              DICT     0,0,0,3,4,T004
     2401   01 00CA4    030A0FED              DICT     0,0,0,3,5,T005
     2402   01 00CA5    030C0FF7              DICT     0,0,0,3,6,T006
     2403   01 00CA6    0F0E1001              DICT     0,0,3,3,7,T007
     2404   01 00CA7    03101002              DICT     0,0,0,3,8,T008
     2405   01 00CA8    0312100E              DICT     0,0,0,3,9,T009
     2406   01 00CA9    0F141042              DICT     0,0,3,3,10,T010
     2407   01 00CAA    53161043              DICT     1,1,0,3,11,T011
     2408   01 00CAB    03181050              DICT     0,0,0,3,12,T012
     2409   01 00CAC    031A105B              DICT     0,0,0,3,13,T013
     2410   01 00CAD    031C1066              DICT     0,0,0,3,14,T014
     2411   01 00CAE    031E1071              DICT     0,0,0,3,15,T015
     2412   01 00CAF    0320107C              DICT     0,0,0,3,16,T016
     2413   01 00CB0    03221087              DICT     0,0,0,3,17,T017
     2414   01 00CB1    03241091              DICT     0,0,0,3,18,T018
     2415   01 00CB2    0326109B              DICT     0,0,0,3,19,T019
     2416   01 00CB3    532810A5              DICT     1,1,0,3,20,T020
     2417   01 00CB4    532A10D4              DICT     1,1,0,3,21,T021
     2418   01 00CB5    532C10D5              DICT     1,1,0,3,22,T022
     2419   01 00CB6    532E10D6              DICT     1,1,0,3,23,T023
     2420   01 00CB7    8F301101              DICT     2,0,3,3,24,T024
     2421   01 00CB8    0F32113B              DICT     0,0,3,3,25,T025
     2422   01 00CB9    5334115B              DICT     1,1,0,3,26,T026
     2423   01 00CBA    0F361186              DICT     0,0,3,3,27,T027
     2424   01 00CBB    533811F0              DICT     1,1,0,3,28,T028
     2425   01 00CBC    533A11FC              DICT     1,1,0,3,29,T029
     2426   01 00CBD    533C1207              DICT     1,1,0,3,30,T030
     2427   01 00CBE    533E1212              DICT     1,1,0,3,31,T031
     2428   01 00CBF    5340121D              DICT     1,1,0,3,32,T032
     2429   01 00CC0    53421227              DICT     1,1,0,3,33,T033
     2430   01 00CC1    0F441232              DICT     0,0,3,3,34,T034
     2431   01 00CC2    53461242              DICT     1,1,0,3,35,T035
     2432   01 00CC3    5F481252              DICT     1,1,3,3,36,T036
     2433   01 00CC4    5F4A128F              DICT     1,1,3,3,37,T037
     2434   01 00CC5    534C129B              DICT     1,1,0,3,38,T038
     2435   01 00CC6    5F4E12AD              DICT     1,1,3,3,39,T039
     2436   01 00CC7    5F5012C3              DICT     1,1,3,3,40,T040
     2437   01 00CC8    53521329              DICT     1,1,0,3,41,T041
     2438   01 00CC9    5F54132A              DICT     1,1,3,3,42,T042
     2439   01 00CCA    53561374              DICT     1,1,0,3,43,T043
     2440   01 00CCB    53581375              DICT     1,1,0,3,44,T044
     2441   01 00CCC    535A1376              DICT     1,1,0,3,45,T045
     2442   01 00CCD    535C1377              DICT     1,1,0,3,46,T046
     2443   01 00CCE    FF5E1378              DICT     3,3,3,3,47,T047
     2444   01 00CCF    5F6013A1              DICT     1,1,3,3,48,T048
     2445   01 00CD0    A3621421              DICT     2,2,0,3,49,T049
     2446   01 00CD1    AB641456              DICT     2,2,2,3,50,T050
     2447   01 00CD2    AB661490              DICT     2,2,2,3,51,T051
     2448   01 00CD3    AB6814C0              DICT     2,2,2,3,52,T052
     2449   01 00CD4    836A14F1              DICT     2,0,0,3,53,T053
     2450   01 00CD5    C06C1512              DICT     3,0,0,0,54,T054
     2451         00000037           %DICTLENGTH  EQU  %-%DICTA          NUMBER OF TEST ROUTINES
     2452                            *        C O M P U T E  M E M O R Y  S I Z E
     2453                            *
     2454                            *     THIS ROUTINE COMPUTES THE MEMORY SIZE AND STORES THE END OF
     2455                            * MEMORY ADDRESS IN 'MEMSIZE'.  RETURN ADDRESS IS IN R15.
     2456                            *
     2457   01 00CD6    32400040 A   MEM01    LW,4     64                EXCHANGE 'NONALLOWED OPERATION'
     2458   01 00CD7    46400CEB              XW,4     MEMXPSD            TRAP XPSD
     2459   01 00CD8    35400040 A            STW,4    64                RESTORE
     2460   01 00CD9    226FFFE1 A            LI,6     -31               LOOP COUNT SET FOR 128K
     2461   01 00CDA    22700000 A            LI,7     0                 ADDRESS TO TEST IS IN R7
     2462   01 00CDB    35700CEA              STW,7    MEMFLAG           INHIBIT FURTHER MEM COMPUTE
     2463   01 00CDC    20701000 A   MEM02    AI,7     4096              ADD 1K TO MEMORY TO BE TESTED
     2464   01 00CDD    B2000007 A            LW,0     *7                LOAD TO TEST FOR EXISTACE OF ADR
     2465   01 00CDE    33000CEA              MTW,0    MEMFLAG           MEMFLAG SET BY NONEXISTANT MEM ADR
     2466   01 00CDF    69200CE2              BCS,2    MEM03              ROUTINE. LOOP UNTIL SET OR MEMORY
     2467   01 00CE0    65600CDC              BIR,6    MEM02               FOUND TO BE 128K
     2468   01 00CE1    68000CE3              B        %+2               MEM = 128K
     2469   01 00CE2    207FF000 A   MEM03    AI,7     -4096             SUBTRACT 1K
     2470   01 00CE3    20700FFF A            AI,7     4095              ADD X'FFF'
     2471   01 00CE4    35700CE9              STW,7    MEMSIZE           MEMSIZE HAS LAST MEM LOCATION
     2472   01 00CE5    32400040 A            LW,4     64                RESTORE 'NONALLOWED
     2473   01 00CE6    46400CEB              XW,4     MEMXPSD            OPERATION TRAP
     2474   01 00CE7    35400040 A            STW,4    64                  XPSD
     2475   01 00CE8    E800000F A            B        *15               RETURN
     2476                            *
     2477   01 00CE9    00000000 A   MEMSIZE  DATA     0                 ADDRESS OF LAST LOCATION OF MEMORY
     2478   01 00CEA    00000000 A   MEMFLAG  DATA     0                 SET WHEN MEMORY SIZE IS FOUND
     2479   01 00CEB    0F000CEC     MEMXPSD  XPSD,0   MEMCHK
     2480                            *
     2481                                     BOUND    8
     2482   01 00CEC    00000000 A   MEMCHK   DATA     0,0
            01 00CED    00000000 A
     2483   01 00CEE    00000CF0              DATA     %+2,0
            01 00CEF    00000000 A
     2484   01 00CF0    33100CEA              MTW,1    MEMFLAG           SET MEMORY SIZE FOUND FLAG
     2485   01 00CF1    33100CEC              MTW,1    MEMCHK            ADD 1 TO INSTRUCTION ADDRESS
     2486   01 00CF2    0E000CEC              LPSD,0   MEMCHK
     2487                            *
     2488                            *
     2489                            *
     2490                            *        WATCHDOG TIMER TRAP ROUTINE
     2491                                     BOUND    8
     2492   01 00CF4    00000000 A   %WDTTRAP DATA     0,0
            01 00CF5    00000000 A
     2493   01 00CF6    00000CF8              DATA     %+2,0
            01 00CF7    00000000 A
     2494   01 00CF8    33100CFB              MTW,1    WDTI              SET WATCHDOG TIMER TRAP FLAG
     2495   01 00CF9    33100CF4              MTW,1    %WDTTRAP          INCREMENT RETURN ADDRESS
     2496   01 00CFA    0E000CF4              LPSD,0   %WDTTRAP
     2497   01 00CFB    00000000 A   WDTI     DATA     0                 FLAG SET WHEN WDT TRAP OCCURS
     2498                            *
     2499                            *        I/O INTERRUPT ROUTINE
     2500                                     BOUND    8
     2501   01 00CFC    00000000 A   %IOINT   DATA     0,0
            01 00CFD    00000000 A
     2502   01 00CFE    00000D00              DATA     %+2,7**24
            01 00CFF    07000000 A
     2503   01 00D00    32900C9A              LW,9     %ERRWD4           FETCH CHANNEL NUMBER
     2504   01 00D01    ED900BBB              WD,9     *GPA9             SET STATUS BITS
     2505   01 00D02    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASING
     2506   01 00D03    6E900000 A            AIO,9    0                 EXECUTE AIO
     2507   01 00D04    225FFFFB A            LI,5     -5                SINGLE PHASE LOOP COUNT
     2508   01 00D05    35F00D0B              STW,15   TEMP15                                            *A04
     2509   01 00D06    6AF00AE3              BAL,15   PHSCLKX           CLOCK PHASES IF NO ERROR
     2510   01 00D07    32F00D0B              LW,15    TEMP15                                            *A04
     2511   01 00D08    32900020 A            LW,9     X'20'             FETCH STATUS FROM CELL 20
     2512   01 00D09    4B900FA3              AND,9    X:FFFFFF          MSAK OUT DEVICE STATUS
     2513   01 00D0A    0E300CFC              LPSD,3   %IOINT            RETURN TO TEST ROUTINE
     2514   01 00D0B    00000000 A   TEMP15   DATA     0                                                 *A04
     2515                            *
     2516                            *
     2517                            *        C H A N N E L  C O N T R O L  R O U T I N E
     2518                            *
     2519         01 00D0C           %STROL   EQU      %
     2520   01 00D0C    33000D6C     %STROL00 MTW,0    %FIRSTIME         TEST FIRST TIME FLAG
     2521   01 00D0D    68300D22              BCR,3    %STROL02          BRANCH IF NOT FIRST TIME
     2522   01 00D0E    72A60D6A              LB,10    %TEST:ADR,3       FETCH LOWEST CHANNEL NUMBER
     2523   01 00D0F    6AF00D47              BAL,15   CONDECBI          CONVERT 2 DIGIT PACKED DECIMAL
     2524   01 00D10    35B00009 A            STW,11   9                 LOWEST CHAN NUM TO R9
     2525   01 00D11    72A40D6A              LB,10    %TEST:ADR,2       FETCH HIGHEST CHANNEL NUMBER
     2526   01 00D12    6AF00D47              BAL,15   CONDECBI          CONVERT 2 DIGIT PACKED DECIMAL
     2527   01 00D13    31B00009 A            CW,11    9                 INSURE R11
     2528   01 00D14    68100D16              BCR,1    %+2                CONTAINS HIGHER
     2529   01 00D15    46B00009 A            XW,11    9                   CHANNEL NUMBER
     2530   01 00D16    22400000 A            LI,4     0                 CHANNEL NUMBER COUNTER
     2531   01 00D17    35980D50     %STROL01 STW,9    %ADRDICT,4        LOWER CHAN NUM INTO TEST ADDR LIST
     2532   01 00D18    20400001 A            AI,4     1                 INCREMENT COUNTER
     2533   01 00D19    20900001 A            AI,9     1                 INCREMENT CHANNEL NUMBER
     2534   01 00D1A    3190000B A            CW,9     11                ARE ALL CHANNEL NUMBERS IN LIST
     2535   01 00D1B    69200D1E              BCS,2    %+3               BRANCH IF YES
     2536   01 00D1C    21400018 A            CI,4     24                HAVE 24 BEEN STORED (MAX NUMBER)
     2537   01 00D1D    69300D17              BCS,3    %STROL01          REPEAT LOOP IF NOT FINISHED
     2538   01 00D1E    35400D4F              STW,4    %ADRLIST          SAVE CHAN NUM COUNT + 1
     2539   01 00D1F    35400D68              STW,4    %ADRCNT           %ADRCNT WILL = CHAN COUNT+1
     2540   01 00D20    35E00D6C              STW,14   %FIRSTIME         CLEAR FIRST TIME FLAG
     2541   01 00D21    35E00D69              STW,14   %ERRFLAG          CLEAR ADDR ERROR FLAG
     2542   01 00D22    6DE00035 A   %STROL02 WD,14    X'35'             INHIBIT COUNTER AND EXTERNAL INT.
     2543   01 00D23    6DE00022 A            WD,14    X'22'             RESET I/O GROUP INHIBIT
     2544   01 00D24    22400030 A            LI,4     X'30'             SET INTERUPT CONTROL BITS
     2545   01 00D25    6D401200 A            WD,4     X'1200'           ARM & ENABLE I/O GRP INT'S
     2546   01 00D26    6CE00000 A            RD,14    0                 FETCH SENSE SWITCHES
     2547   01 00D27    69400D2A              BCS,4    %+3               BRANCH IF SS2 SET
     2548   01 00D28    33000D69              MTW,0    %ERRFLAG          WAS THERE ANY ERROR ON LAST ADDR.
     2549   01 00D29    69300D35              BCS,3    EXITSTRL          BRANCH IF YES
     2550   01 00D2A    33F00D4F              MTW,15   %ADRLIST          DECREMENT CHANNEL NUMBER COUNTER
     2551   01 00D2B    69100D37              BCS,1    %STROL03          BRANCH IF ALL CHANNELS TESTED
     2552   01 00D2C    32500D4F              LW,5     %ADRLIST          FETCH POINTER
     2553   01 00D2D    326A0D50              LW,6     %ADRDICT,5        FETCH CHANNEL NUMBER
     2554   01 00D2E    35600C9A              STW,6    %ERRWD4           CHANNEL NUM TO ERR WORD 4
     2555   01 00D2F    72720D6A              LB,7     %TEST:ADR,1       FETCH IOP NUMBER
     2556   01 00D30    25700008 A            SLS,7    8                 POSITION IN BITS 21-23
     2557   01 00D31    49700006 A            OR,7     6                 ADD SUBCHANNEL SETTING
     2558   01 00D32    35700D6B              STW,7    IOPTEST           SET I/O UNIT ADDRESS
     2559   01 00D33    20605000 A            AI,6     X'5000'           PRESERVE MSOL                   *A02
     2560   01 00D34    ED600BBC              WD,6     *GPAA             SET PROGRAMMED ADDRESS REGISTER *A02
     2561   01 00D35    35E00D69     EXITSTRL STW,14   %ERRFLAG          CLEAR CHANNEL ERROR FLAG
     2562   01 00D36    68000218              B        #0001000+1        RETURN TO %TTROL
     2563   01 00D37    6C000000 A   %STROL03 RD,0     0                 FETCH SENSE SWITCHES
     2564   01 00D38    69200D43              BCS,2    %STROL04          BRANCH IF SS3 IS SET
     2565   01 00D39    33000D70              MTW,0    CBFLG             COOKBOOK MODE?
     2566   01 00D3A    69300D3D              BCS,3    %+3               IF SO BRANCH
     2567   01 00D3B    33000D69              MTW,0    %ERRFLAG          WAS THERE AN ERROR
     2568   01 00D3C    69300D43              BCS,3    %STROL04          BRANCH IF YES
     2569   01 00D3D    6AF00A75              BAL,15   IOPCHECK          IS OUTPUT ON TEST IOP?
     2570   01 00D3E    22000200              LI,0     DA(%CP04)         FETCH COMMAND PAIR
     2571   01 00D3F    6AF003CD              BAL,15   OUTYPE            OUTPUT TEST COMPLETE MSG        *A02
     2572   01 00D40    220001EC              LI,0     DA(DWCMND1K)      FETCH COMMAND PAIR
     2573   01 00D41    6AF003CD              BAL,15   OUTYPE            LINE SPACEING                   *A02
     2574   01 00D42    6AF00A77              BAL,15   IOCHKOFF          INSURE THAT DC'S ARE OFF
     2575   01 00D43    32400D68     %STROL04 LW,4     %ADRCNT           FETCH NUM OF CHANNELS TO TEST
     2576   01 00D44    35400D4F              STW,4    %ADRLIST          RESTORE COUNT
     2577   01 00D45    33100D6C              MTW,1    %FIRSTIME         SET FIRST TIME FLAG
     2578   01 00D46    68000D0C              B        %STROL00          RETURN TO CHECK IF FINISHED
     2579                            *
     2580   01 00D47    25A0017C A   CONDECBI SLD,10   -4                ONE'S DIGIT TO R11
     2581   01 00D48    25B00064 A            SLS,11   -28               RIGHT JUSTIFY IT
     2582   01 00D49    35B0000C A            STW,11   12
     2583   01 00D4A    25A0017C A            SLD,10   -4                TEN'S DIGIT TO R11
     2584   01 00D4B    25B00064 A            SLS,11   -28               RIGHT JUSTIFY IT
     2585   01 00D4C    23B0000A A            MI,11    10                X 10 TO FORM HEX EQUIVIALNT
     2586   01 00D4D    30B0000C A            AW,11    12                ADD ONE' DIGIT
     2587   01 00D4E    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     2588   01 00D4F    00000000 A   %ADRLIST DATA     0                 POINTER FOR NEXT CHANNEL TO TEST
     2589   01 00D50                 %ADRDICT RES      24                CHANNEL NUMBER LIST
     2590   01 00D68    00000000 A   %ADRCNT  DATA     0                 NUMBER OF CHANNELS TO TEST
     2591   01 00D69    00000000 A   %ERRFLAG DATA     0                 SET IF A CHANNEL FAILS ANY TEST
     2592                            %TEST:ADR ;                         ADDRESS INPUT BY USER FOR USE
     2593   01 00D6A    00000000 A            DATA     0                 EXECUTIVE IS TO INITIALIZE TESTING
     2594   01 00D6B    00000800 A   IOPTEST  DATA     X'800'            I/O UNIT ADDR OF IOP UNDER TEST
     2595                            %FIRSTIME ;                         FLAG SET UPON INITIALIZATION
     2596   01 00D6C    00000000 A            DATA     0                 INDICATES FIRST TIME/CHANNEL
     2597                            *
     2598                            *        CONTROL PANEL INTERRUPT ROUTINE
     2599                            *
     2600                            *        THIS ROUTINE CAUSES 'COOKBOOK' GENERATION WHEN THE INTERRUPT
     2601                            *        CONTROL BUTTON IS PUSHED ON THE PROCESSOR CONTROL PANEL.
     2602                            *        THE PROGRAM IS RESTARTED AND EVERY DISPLAY SNAPSHOT OF EVERY
     2603                            *        PHASE IS OUTPUT ON THE UNIT OUTPUT DEVICE.
     2604                            *
     2605                            *
     2606   01 00D6D    68000258     NOTCOOK  B        RETURN+1
     2607   01 00D6E    6800025A              B        GOOD
     2608   01 00D6F    68000273     COOK     B        BADLY+1                                          *A01
     2609   01 00D70    00000000 A   CBFLG    DATA     0
     2610                                     BOUND    8
     2611   01 00D72    00000000 A   %CPINT   DATA     0
     2612   01 00D73    00000000 A            DATA     0
     2613   01 00D74    00000D76              DATA     %+2
     2614   01 00D75    00000000 A            DATA     0
     2615   01 00D76    33000D70              MTW,0    CBFLG             FIRST INTERRUPT?
     2616   01 00D77    68300D7E              BCR,3    TIMEONE           YES, SET CBFLG AND STORE COOK
     2617   01 00D78    33100D70              MTW,1    CBFLG             NO, CLEAR CBFLG AND STORE NOTCOOK
     2618   01 00D79    32400D6D              LW,4     NOTCOOK           STORE NORMAL RETURN BRANCH
     2619   01 00D7A    32500D6E              LW,5     NOTCOOK+1         STORE GOOD RETURN
     2620   01 00D7B    35400257     COOKRET  STW,4    RETURN            SET BRANCH
     2621   01 00D7C    35500258              STW,5    RETURN+1          SET BRANCH
     2622   01 00D7D    0E300D72              LPSD,3   %CPINT            RETURN TO CALLER
     2623   01 00D7E    33F00D70     TIMEONE  MTW,-1   CBFLG             SET CBFLG TO A NEGATIVE ONE
     2624   01 00D7F    32400D6F              LW,4     COOK              STORE COOKBOOK RETURN BRANCH
     2625   01 00D80    32500D6F              LW,5     COOK              SET GOOD BRANCH TO BADLY
     2626   01 00D81    68000D7B              B        COOKRET           STORE BRANCHES AND EXIT
     2627                            *
     2628                            *
     2629                            *
     2630                            *
     2631                            *
     2632                            *
     2633                            *        C O M P A R E   R O U T I N E S
     2634                            *
     2635                            *
     2636                            *
     2637                            *
     2638                            *
     2639   01 00D82    35E00EBD     COMPARE  STW,14   COMPERR           CLEAR ERROR FLAG
     2640   01 00D83    35E00EBF              STW,14   CYCLINDX          CLEAR CYCLE INDEX
     2641   01 00D84    EC400BC2              RD,4     *GRP3             FETCH AIOP SETTING
     2642   01 00D85    4B401442              AND,4    X:10              MSK FOR CURRENT VALUE
     2643   01 00D86    35400DD3              STW,4    IMPLANTD          SET IMPLANT VALUE
     2644   01 00D87    6AF00DD5              BAL,15   IMPLANT           BRANCH TO IMPLANT ROUTINE
     2645   01 00D88    0000152F              DATA     000Q+2            STARTING ADDRESS
     2646   01 00D89    0000FFEF A            DATA     X'FFEF'           UNIT MASK
     2647   01 00D8A    00000007 A            DATA     7                 INDEXING CONSTANT
     2648   01 00D8B    EC400BC3              RD,4     *GRP4             FETCH LASTONE SETTINE
     2649   01 00D8C    4B401441              AND,4    X:8               MASK FOR CURRENT VALUE
     2650   01 00D8D    35400DD3              STW,4    IMPLANTD          SET IMPLANT VALUE
     2651   01 00D8E    6AF00DD5              BAL,15   IMPLANT           BRANCH TO IMPLANT ROUTINE
     2652   01 00D8F    00001530              DATA     000Q+3            STARTING ADDRESS
     2653   01 00D90    0000FFF7 A            DATA     X'FFF7'           UNIT MASK
     2654   01 00D91    00000007 A            DATA     7                 INDEXING CONSTANT
     2655   01 00D92    32400D6B              LW,4     IOPTEST           FETCH IOP AND XUBCHANNEL NUMBER
     2656   01 00D93    25400278 A            SCS,4    -8                RECONFIGURE POSITION TO MATCH COOK
     2657   01 00D94    72500004 A            LB,5     4                 FETCH SUBCHANNEL PORTION
     2658   01 00D95    25500008 A            SLS,5    8                 POSITION INTO BITS 16 THRU 23
     2659   01 00D96    30400005 A            AW,4     5                 COMBINE WITH IOP NUMBER
     2660   01 00D97    4B400F9F              AND,4    X:FFFF            MASK FOR 16 LSB'S
     2661   01 00D98    35400DD3              STW,4    IMPLANTD          SET IMPLANT VALUE
     2662   01 00D99    6AF00DD5              BAL,15   IMPLANT           BRANCH TO IMPLANT ROUTINE
     2663   01 00D9A    00001531              DATA     000Q+4            STARTING ADDRESS
     2664   01 00D9B    000000F8 A            DATA     X'F8'             UNIT MASK
     2665   01 00D9C    00000007 A            DATA     7                 INDEXING CONSTANT
     2666   01 00D9D    32400D6B              LW,4     IOPTEST           FETCH CURRENT IOP NUMBER        *A02
     2667   01 00D9E    25400078 A            SLS,4    -8                RIGHT JUSTIFY                   *A02
     2668   01 00D9F    204000F8 A            AI,4     X'F8'             ADD DISPLAY BIT CONSTANT        *A02
     2669   01 00DA0    6AF00DEA              BAL,15   CIMPLNT           IMPLANT THIS VALUE IN COOKBOOK  *A02
     2670   01 00DA1    000023E7              DATA     049Q+165          AT THIS LOCATION                *A02
     2671   01 00DA2    32400D6B              LW,4     IOPTEST           FETCH IOP AND SUBCHANNEL NUMBER
     2672   01 00DA3    4B400F95              AND,4    X:1F              MASK FOR SUBCHANNEL NUMBER
     2673   01 00DA4    25400008 A            SLS,4    8                 POSITION INTO BITS 16 THRU 23
     2674   01 00DA5    35400DD3              STW,4    IMPLANTD          SET IMPLANT VALUE
     2675   01 00DA6    22500EC2              LI,5     HREGLOCS          FETCH STARTING ADDRESS
     2676                            *
     2677   01 00DA7    B2600005 A   HREGLOOP LW,6     *5                FETCH ADDR OF WRD TO BE CHANGED
     2678   01 00DA8    68300DB1              BCR,3    %+9               BRANCH IF ZERO
     2679   01 00DA9    B2400006 A            LW,4     *6                FETCH WORD TO BE IMPLANTED
     2680   01 00DAA    6AF00DF5              BAL,15   EBCTOHEX          CONVERT R4 TO HEX
     2681   01 00DAB    4B400F9E              AND,4    X:E0FF            MASK OUT CHANGE AREA
     2682   01 00DAC    49400DD3              OR,4     IMPLANTD          OR IN IMPLANT VALUE
     2683   01 00DAD    6AF00E0F              BAL,15   HEXTOEBC          CONVERT BACK TO EBCDIC
     2684   01 00DAE    B5400006 A            STW,4    *6                IMPLANT COOKBOOK
     2685   01 00DAF    20500001 A            AI,5     1                 INCREMENT FETCH LOCATION
     2686   01 00DB0    68000DA7              B        HREGLOOP          LOOP FOR NEXT VALUE
     2687   01 00DB1    3290029A              LW,9     %EPOINT           FETCH HEX TEST NUMBER
     2688   01 00DB2    32500009 A            LW,5     9                 SET INDEX REGISTER
     2689   01 00DB3    324A0F4F              LW,4     COOKADDR,5        FETCH ADDR OF THIS TEST IN COOKBOOK
     2690   01 00DB4    35400EB6              STW,4    COOKWORD          SET INITIAL COMPARE ADDR
     2691   01 00DB5    35400EB7              STW,4    COOKCYCL          SET INITIAL CYCLE ADDR
     2692   01 00DB6    35400EB8              STW,4    COOKSTRT          SET INITIAL COOKBOOK OUTPUT ADDRESS
     2693   01 00DB7    2240299A              LI,4     OUTBUFF           FETCH STARTING ADDR OF OUTPUT BUFFER
     2694   01 00DB8    35400EB9              STW,4    BUFFWORD          SET INITIAL COMPARE ADDR OF OUTBUFF
     2695   01 00DB9    35400EBA              STW,4    BUFFLINE          SET INITIAL SNAP LINE ADDRESS
     2696   01 00DBA    35400EBB              STW,4    BUFFCYCL          SET INITIAL SNAP CYCLE ADDRESS
     2697   01 00DBB    35400EBC              STW,4    BUFFSTRT          SET INITIAL SNAP OUTPUT ADDR
     2698   01 00DBC    325003DF              LW,5     BYTECNT           FETCH DISPLAY GROUP BYTE COUNT
     2699   01 00DBD    2550007E A            SLS,5    -2                FORM WORD COUNT
     2700   01 00DBE    30400005 A            AW,4     5                 CALCULATE BUFFER END ADDR
     2701   01 00DBF    35400EC0              STW,4    TESTEND           SET BUFFER END ADDR
     2702                            *
     2703   01 00DC0    B2400EB9     WORDTEST LW,4     *BUFFWORD         FETCH THE SNAPSHOT WORD
     2704   01 00DC1    31401450              CW,4     SPACES            IS IT SPACES
     2705   01 00DC2    68300E1F              BCR,3    NEXTWORD          LOOP FOR NEXT WORD
     2706   01 00DC3    31400422              CW,4     150D0D0D          IS IT LINE END
     2707   01 00DC4    68300E21              BCR,3    NEXTLINE          LOOP FOR NEXT LINE
     2708   01 00DC5    31400FA8              CW,4     15150D0D          IS IT GROUP END
     2709   01 00DC6    68300E25              BCR,3    NEXTGRP           LOOP FOR NEXT GROUP
     2710   01 00DC7    32500EC0              LW,5     TESTEND           FETCH BUFFER END ADDR
     2711   01 00DC8    31500EB9              CW,5     BUFFWORD          HAS TEST END BEEN REACHED
     2712   01 00DC9    68300E48              BCR,3    COMPOUT           IF SO, BRANCH TO OUTPUT ROUTINE
     2713   01 00DCA    B2500EB6              LW,5     *COOKWORD         FETCH  COOKBOOK WORD
     2714   01 00DCB    31400005 A            CW,4     5                 DO WORDS COMPARE
     2715   01 00DCC    69300E2D              BCS,3    MISCOMP           BRANCH IF NOT
     2716   01 00DCD    33100EB6              MTW,1    COOKWORD          INCREMENT COOKBOOK WORD ADDR
     2717   01 00DCE    33100EB9              MTW,1    BUFFWORD          INCREMENT OUTPUT BUFFER WORD ADDR
     2718   01 00DCF    68000DC0              B        WORDTEST          LOOP FOR NEXT WORD
     2719                            *
     2720                            *
     2721                            *
     2722                            *
     2723                            *
     2724                            *
     2725                            *
     2726                            *
     2727                            *********COMPARE SUBROUTINES *******************************************
     2728                            *
     2729                            *
     2730                            *
     2731                            *
     2732                            *        IMPLANT SUBROUTINE
     2733                            *
     2734                            *
     2735   01 00DD0    00000000 A   IMPLANTA DATA     0
     2736   01 00DD1    00000000 A   IMPLANTB DATA     0
     2737   01 00DD2    00000000 A   IMPLANTC DATA     0
     2738   01 00DD3    00000000 A   IMPLANTD DATA     0
     2739   01 00DD4    00000000 A   IMPSAVE  DATA     0
     2740   01 00DD5    35F00DD4     IMPLANT  STW,15   IMPSAVE           SAVE R15 FOR RETURN AND POINTING
     2741   01 00DD6    B2400DD4              LW,4     *IMPSAVE          FETCH STARTING ADDRESS
     2742   01 00DD7    35400DD0              STW,4    IMPLANTA          SET STARTING ADDRESS
     2743   01 00DD8    33100DD4              MTW,1    IMPSAVE           INCREMENT POINTER
     2744   01 00DD9    B2400DD4              LW,4     *IMPSAVE          FETCH UNIT MASK
     2745   01 00DDA    35400DD1              STW,4    IMPLANTB          SET UNIT MASK
     2746   01 00DDB    33100DD4              MTW,1    IMPSAVE           INCREMENT POINTER
     2747   01 00DDC    B2400DD4              LW,4     *IMPSAVE          FETCH INDEXING CONSTANT
     2748   01 00DDD    35400DD2              STW,4    IMPLANTC          SET INDEXING CONSTANT
     2749   01 00DDE    33100DD4              MTW,1    IMPSAVE           INCREMENT POINTER TO RETURN VALUE
     2750   01 00DDF    22500000 A            LI,5     0                 CLEAR INDEX REGISTER
     2751                            *
     2752   01 00DE0    B24A0DD0     IMPLOOP  LW,4     *IMPLANTA,5       FETCH EBCDIC COOKBOOK WORD
     2753   01 00DE1    E8300DD4              BCR,3    *IMPSAVE          RETURN TO CALLING ROUTINE IF ZERO
     2754   01 00DE2    6AF00DF5              BAL,15   EBCTOHEX          CONVERT R4 TO HEX
     2755   01 00DE3    4B400DD1              AND,4    IMPLANTB          CLEAR BITS TO BE IMPLANTED
     2756   01 00DE4    49400DD3              OR,4     IMPLANTD          SET IMPLANT VALUE INTO HEX WORD
     2757   01 00DE5    6AF00E0F              BAL,15   HEXTOEBC          CONVERT BACK TO EBCDIC
     2758   01 00DE6    B54A0DD0              STW,4    *IMPLANTA,5       REPLACE COOKBOOK WORD
     2759   01 00DE7    30500DD2              AW,5     IMPLANTC          INCREMENT STORE LOC BY UNIT INDEX
     2760   01 00DE8    68000DE0              B        IMPLOOP           LOOP FOR ALL WORDS TO BE CHANGED
     2761                            *
     2762                            *
     2763   01 00DE9    00000000 A   CPLNTSAV DATA     0
     2764   01 00DEA    35F00DE9     CIMPLNT  STW,15   CPLNTSAV          SAVE R15 FOR RETURN AND POINTING
     2765   01 00DEB    6AF00E0F              BAL,15   HEXTOEBC          CONVERT R4 TO EBCDIC
     2766   01 00DEC    B2500DE9              LW,5     *CPLNTSAV         FETCH ADDRESS TO BE IMPLANTED
     2767   01 00DED    B5400005 A            STW,4    *5                IMPLANT VALUE INTO COOKBOOK
     2768   01 00DEE    6AF00DF5              BAL,15   EBCTOHEX          CONVERT R4 BACK TO HEX
     2769   01 00DEF    33100DE9              MTW,1    CPLNTSAV          INCREMENT POINTER TO RETURN VALUE
     2770   01 00DF0    E8000DE9              B        *CPLNTSAV         RETURN TO CALLING ROUTINE
     2771                            *
     2772                            *        EBCDIC TO HEXADECIMAL CONVERSION ROUTINE
     2773                            *
     2774   01 00DF1    00000000 A   HSAVE    DATA     0
     2775   01 00DF2    00000000 A   HSAVE1   DATA     0
     2776   01 00DF3    00000000 A   HSAVE5   DATA     0
     2777   01 00DF4    00000000 A   HSAVE9   DATA     0
     2778   01 00DF5    35100DF2     EBCTOHEX STW,1    HSAVE1            SAVE R1
     2779   01 00DF6    35500DF3              STW,5    HSAVE5            SAVE R5
     2780   01 00DF7    35900DF4              STW,9    HSAVE9            SAVE R9
     2781   01 00DF8    22100003 A            LI,1     3                 INITIALIZE BYTE INDEX
     2782   01 00DF9    22500000 A   BLOOP    LI,5     0                 CLEAR R5
     2783   01 00DFA    25400178 A            SLD,4    -8                SHIFT IN LO-ORDER 8 BITS
     2784   01 00DFB    25500068 A            SLS,5    -24               SHIFT INTO BYTE POSITION 3
     2785   01 00DFC    71500FAF              CB,5     F0000000          CHECK FOR 0 THRU 9
     2786   01 00DFD    68100DFF              BCR,1    %+2               BRANCH IF 9 OR LESS
     2787   01 00DFE    20500039 A            AI,5     X'39'             ADJUST IF A THRU F
     2788   01 00DFF    4B500F93              AND,5    X:F               MASK FOR BCD VALUE
     2789   01 00E00    75520DF1              STB,5    HSAVE,1           STORE BCD BYTE
     2790   01 00E01    201FFFFF A            AI,1     -1                DECREMENT STORE POSITION
     2791   01 00E02    68100DF9              BCR,1    BLOOP             LOOP FOR 4 BYTES
     2792   01 00E03    22400000 A            LI,4     0
     2793   01 00E04    229FFFFC A            LI,9     -4                SET INDEX TO COMBINE 4 BYTES
     2794   01 00E05    32500DF1              LW,5     HSAVE             FETCH BCD WORD
     2795   01 00E06    72100005 A            LB,1     5                 FETCH BYTE ZERO
     2796   01 00E07    25500008 A            SLS,5    8                 SHIFT NEXT BYTE INTO ZERO POSITION
     2797   01 00E08    25400004 A            SLS,4    4                 POSITION 4 FOR RECIEPT OF NEXT BYTE
     2798   01 00E09    30400001 A            AW,4     1                 ADD BYTE TO R4
     2799   01 00E0A    65900E06              BIR,9    %-4               LOOP FOR ALL FOUR BYTES
     2800   01 00E0B    46100DF2              XW,1     HSAVE1            RESTORE R1
     2801   01 00E0C    46500DF3              XW,5     HSAVE5            RESTORE R5
     2802   01 00E0D    46900DF4              XW,9     HSAVE9            RESTORE R9
     2803   01 00E0E    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     2804                            *
     2805                            *        HEXADECIMAL TO EBCDIC CONVERSION ROUTINE
     2806                            *
     2807   01 00E0F    35100DF2     HEXTOEBC STW,1    HSAVE1            SAVE R1
     2808   01 00E10    35500DF3              STW,5    HSAVE5            SAVE R5
     2809   01 00E11    22100003 A            LI,1     3                 SET INDEX TO STORE BYTES 3 THRU 0
     2810   01 00E12    225000F0 A   HLOOP    LI,5     X'F0'             HI ORDER EBC FOR DIGITS 0 THRU 9
     2811   01 00E13    2540017C A            SLD,4    -4                SHIFT IN LO-ORDER 4 BITS
     2812   01 00E14    25500204 A            SCS,5    4                 SHIFT INTO BYTE POSITION 3
     2813   01 00E15    71500FB2              CB,5     F9000000          CHECK FOR 0 THRU 9
     2814   01 00E16    68200E18              BCR,2    %+2               BRANCH IF LESS THAN OR EQUAL TO 9
     2815   01 00E17    205FFFC7 A            AI,5     -X'39'            ADJUST FOR A THRU F
     2816   01 00E18    75520DF1              STB,5    HSAVE,1           STORE RESULTING BYTE
     2817   01 00E19    201FFFFF A            AI,1     -1                DECREMENT STORE POSITION
     2818   01 00E1A    68100E12              BCR,1    HLOOP             LOOP UNTIL 4 DIGITS ARE CONVERTED
     2819   01 00E1B    32400DF1              LW,4     HSAVE             SET RESULT IN R4
     2820   01 00E1C    46100DF2              XW,1     HSAVE1            RESTORE R1
     2821   01 00E1D    46500DF3              XW,5     HSAVE5            RESTORE R5
     2822   01 00E1E    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     2823                            *
     2824   01 00E1F    33100EB9     NEXTWORD MTW,1    BUFFWORD          INCREMENT SNAPSHOT WORD ADDR
     2825   01 00E20    68000DC0              B        WORDTEST          LOOP FOR NEXT WORD
     2826                            *
     2827   01 00E21    33100EB9     NEXTLINE MTW,1    BUFFWORD          INCREMENT SNAPSHOT WORD ADDRESS
     2828   01 00E22    32400EB9              LW,4     BUFFWORD          FETCH NEW WORD ADDR
     2829   01 00E23    35400EBA              STW,4    BUFFLINE          SET THIS VALUE FOR LINE ADDRESS
     2830   01 00E24    68000DC0              B        WORDTEST          LOOP FOR NEXT WORD
     2831                            *
     2832   01 00E25    33100EB9     NEXTGRP  MTW,1    BUFFWORD          INCREMENT SNAPSHOT WORD ADDRESS
     2833   01 00E26    32400EB9              LW,4     BUFFWORD          FETCH NEW WORD ADDR
     2834   01 00E27    35400EBA              STW,4    BUFFLINE          SET THIS VALUE FOR NEW LINE ADDRESS
     2835   01 00E28    35400EBB              STW,4    BUFFCYCL          SET THIS VALUE FOR GRP ADDRESS
     2836   01 00E29    33100EBF              MTW,1    CYCLINDX          INCREMENT CYCLE INDEX
     2837   01 00E2A    32400EB6              LW,4     COOKWORD          FETCH COOKBOOK WORD ADDRESS
     2838   01 00E2B    35400EB7              STW,4    COOKCYCL          SET COOKBOOK CYCLE ADDRESS
     2839   01 00E2C    68000DC0              B        WORDTEST          LOOP FOR NEXT WORD
     2840                            *
     2841   01 00E2D    33000EBD     MISCOMP  MTW,0    COMPERR           IS THIS THE FIRST ERROR
     2842   01 00E2E    69300E36              BCS,3    LINEFLAG          BRANCH IF NOT
     2843   01 00E2F    32400EBF              LW,4     CYCLINDX          FETCH CYCLE INDEX
     2844   01 00E30    35400EC1              STW,4    ERRCYCLE          SET ERROR CYCLE NUMBER
     2845   01 00E31    32400EBB              LW,4     BUFFCYCL          FETCH SNAPSHOT CYCLE ADDR
     2846   01 00E32    35400EBC              STW,4    BUFFSTRT          SET STARTING ADDRESS FOR OUTPUT
     2847   01 00E33    32400EB7              LW,4     COOKCYCL          FETCH COOKBOOK CYCLE ADDR
     2848   01 00E34    35400EB8              STW,4    COOKSTRT          SET AS START FOR COOKBOOK OUTPUT
     2849   01 00E35    35100EBD              STW,1    COMPERR           SET COMPARE ERROR FLAG
     2850                            *
     2851   01 00E36    32400FAB     LINEFLAG LW,4     406E4040          FETCH ERROR LINE CODE
     2852   01 00E37    B2500EBA              LW,5     *BUFFLINE         FETCH ERR LINE WORD
     2853   01 00E38    31500FAB              CW,5     406E4040          HAS IT BEEN LINE FLAGGED
     2854   01 00E39    68300E3D              BCR,3    %+4               IF SO, BRANCH
     2855   01 00E3A    31500FAC              CW,5     406E405C          HAS IT BEEN WORD FLAGGED
     2856   01 00E3B    68300E3D              BCR,3    %+2               IF SO, BRANCH
     2857   01 00E3C    B5400EBA              STW,4    *BUFFLINE         FLAG ERRORED LINE
     2858   01 00E3D    33F00EB9              MTW,15   BUFFWORD          DECREMENT SNPSHOT WORD ADDRESS
     2859   01 00E3E    B2400EB9              LW,4     *BUFFWORD         FETCH THIS WORD FOR ERR CHK
     2860   01 00E3F    31400FAB              CW,4     406E4040          HAS THIS WORD BEEN ERR LINE FLAGGED
     2861   01 00E40    69300E43              BCS,3    %+3               BRANCH IF NOT
     2862   01 00E41    32400FAC              LW,4     406E405C          FLAG FOR BOTH LINE AND WORD
     2863   01 00E42    68000E44              B        %+2
     2864   01 00E43    32400FAA              LW,4     4040405C          FETCH ERR WORD CODE
     2865   01 00E44    B5400EB9              STW,4    *BUFFWORD         FLAG ERRORED WORD
     2866   01 00E45    33200EB9              MTW,2    BUFFWORD          INCREMENT SNAPSHOT WORD ADDRESS
     2867   01 00E46    33100EB6              MTW,1    COOKWORD          INCREMENT COOKBOOK ADDRESS
     2868   01 00E47    68000DC0              B        WORDTEST          LOOP FOR NEXT WORD
     2869                            *
     2870                            *
     2871                            *
     2872                            *
     2873   01 00E48    32400EC1     COMPOUT  LW,4     ERRCYCLE          FETCH ERROR CYCLE NUMBER
     2874   01 00E49    33000D70              MTW,0    CBFLG             COOKBOOK MODE?
     2875   01 00E4A    68300E4D              BCR,3    %+3               BRANCH IF NOT
     2876   01 00E4B    33000EBD              MTW,0    COMPERR           WAS THERE ANY MISCOMPARISON?
     2877   01 00E4C    E83002D5              BCR,3    *TYPESAVE         IF NONE, RETURN TO DRIVER
     2878   01 00E4D    35400EBF              STW,4    CYCLINDX          SET CYCLE INDEX TO FAILING VALUE
     2879   01 00E4E    33000EBD              MTW,0    COMPERR           WAS MISCOMPARE DETECTED
     2880   01 00E4F    69300E51              BCS,3    %+2               IF SO, BRANCH
     2881   01 00E50    35E00EBF              STW,14   CYCLINDX          SET CYCLE INDEX TO ZERO
     2882   01 00E51    21400000 A            CI,4     0                 WAS ERROR IN FIRST CYCLE
     2883   01 00E52    68300E5A              BCR,3    %+8               IF SO, BRANCH
     2884   01 00E53    33000D70              MTW,0    CBFLG             COOKBOOK MODE?
     2885   01 00E54    68300E57              BCR,3    %+3               BRANCH IF NOT
     2886   01 00E55    33000EBD              MTW,0    COMPERR           MISCOMPARISON?
     2887   01 00E56    68300E7B              BCR,3    COMPOUTL          OUTPUT INITIAL HEADER
     2888   01 00E57    33000BD4              MTW,0    LINEPRNT          INHIBIT INITIAL HEADER IF
     2889   01 00E58    69300E7C              BCS,3    LCMPLOOP          ERROR WAS NOT IN FIRST CYL
     2890   01 00E59    68000E5D              B        KOPLOOP
     2891   01 00E5A    33000BD4              MTW,0    LINEPRNT          IS LINE PRINTER SELECTED
     2892   01 00E5B    69300E7B              BCS,3    COMPOUTL          IF SO, BRANCH
     2893   01 00E5C    6AF00306              BAL,15   HEADOUTK          OUTPUT INITIAL HEADER
     2894   01 00E5D    32400EBC     KOPLOOP  LW,4     BUFFSTRT          FETCH STARTING ADDRESS
     2895   01 00E5E    31400EC0              CW,4     TESTEND           IS OUTPUT COMPLETE
     2896   01 00E5F    692002F9              BCS,2    TYPEXIT           IF SO, BRANCH
     2897   01 00E60    33F00004 A            MTW,15   4                 DECREMENT STRT ADDRESS
     2898   01 00E61    B2500004 A            LW,5     *4                FETCH LINE INDICATOR
     2899   01 00E62    31500FA8              CW,5     15150D0D          IS THIS A NEW GROUP
     2900   01 00E63    69300E66              BCS,3    %+3               BRANCH IF NOT
     2901   01 00E64    6AF00306              BAL,15   HEADOUTK          OUTPUT INITIAL HEADER
     2902   01 00E65    68000E68              B        %+3
     2903   01 00E66    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO CMND ADDRESS
     2904   01 00E67    6AF003CD              BAL,15   OUTYPE            GIVE ANOTHER NEW LINE
     2905   01 00E68    D2400EBC              LH,4     *BUFFSTRT         FETCH ERROR INDICATOR
     2906   01 00E69    2140406E A            CI,4     X'406E'           DOES THIS LINE CONTAIN AN ERROR
     2907   01 00E6A    69300E6C              BCS,3    %+2               BRANCH IF NOT
     2908   01 00E6B    6AF00E98              BAL,15   COOKOUT           OUTPUT COOKBOOK LINE
     2909   01 00E6C    32400EBC              LW,4     BUFFSTRT          FETCH STARTING ADDRESS
     2910   01 00E6D    25400002 A            SLS,4    2                 FORM BYTE ADDRESS
     2911   01 00E6E    30400FBE              AW,4     KSROUT            FORM COMMAND
     2912   01 00E6F    354003F2              STW,4    DWCMNDEK          SET ORDER AND BYTE ADDRESS
     2913   01 00E70    220001F9              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO CMND ADDR
     2914   01 00E71    6AF003CD              BAL,15   OUTYPE
     2915   01 00E72    33000EBE              MTW,0    COOKFLAG          WAS COOKLINE OUTPUT
     2916   01 00E73    68300E77              BCR,3    %+4               BRANCH IF NOT
     2917   01 00E74    35E00EBE              STW,14   COOKFLAG          CLEAR COOKBOOK OUTPUT FLAG
     2918   01 00E75    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO CMND ADDRESS
     2919   01 00E76    6AF003CD              BAL,15   OUTYPE            GIVE ANOTHER NEW LINE
     2920   01 00E77    33700EB8              MTW,7    COOKSTRT          INCREMENT COOKBOOK LINE ADDRESS
     2921   01 00E78    2240000F A            LI,4     15
     2922   01 00E79    66400EBC              AWM,4    BUFFSTRT          INCREMENT OUTPUT BUFFER LINE ADDRESS
     2923   01 00E7A    68000E5D              B        KOPLOOP           LOOP FOR NEXT LINE
     2924                            *
     2925                            *
     2926   01 00E7B    6AF00388     COMPOUTL BAL,15   HEADOUTL          OUTPUT INITIAL HEADER MESSAGE
     2927   01 00E7C    32400EBC     LCMPLOOP LW,4     BUFFSTRT          FETCH STARTING ADDRESS
     2928   01 00E7D    31400EC0              CW,4     TESTEND           IS OUTPUT COMPLETE
     2929   01 00E7E    69200353              BCS,2    LINEXIT           IF SO, BRANCH
     2930   01 00E7F    33F00004 A            MTW,15   4                 DECREMENT STRT ADDRESS
     2931   01 00E80    B2500004 A            LW,5     *4                FETCH LINT INDICATOR
     2932   01 00E81    31500FA8              CW,5     15150D0D          IS THIS A NEW GROUP
     2933   01 00E82    69300E84              BCS,3    %+2               BRANCH IF NOT
     2934   01 00E83    6AF00388              BAL,15   HEADOUTL          OUTPUT INITIAL HEADER
     2935   01 00E84    D2400EBC              LH,4     *BUFFSTRT         FETCH ERROR INDICATOR
     2936   01 00E85    2140406E A            CI,4     X'406E'           DOES THIS LINE CONTAIN AN ERROR
     2937   01 00E86    69300E88              BCS,3    %+2               BRANCH IF NOT
     2938   01 00E87    6AF00E98              BAL,15   COOKOUT           OUTPUT COOKBOOK LINE
     2939   01 00E88    32400EBC              LW,4     BUFFSTRT          FETCH STARTING ADDRESS
     2940   01 00E89    25400002 A            SLS,4    2                 FORM BYTE ADDRESS
     2941   01 00E8A    30400FC2              AW,4     WRITEORD          FORM COMMAND
     2942   01 00E8B    354003F2              STW,4    DWCMNDEK          SET ORDER AND BYTE ADDRESS
     2943   01 00E8C    220001F9              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO CMND ADDR
     2944   01 00E8D    6AF003D2              BAL,15   OUTPRINT
     2945   01 00E8E    33000EBE              MTW,0    COOKFLAG          WAS COOKLINE OUTPUT
     2946   01 00E8F    68300E93              BCR,3    %+4               BRANCH IF NOT
     2947   01 00E90    35E00EBE              STW,14   COOKFLAG          CLEAR COOKBOOK OUTPUT FLAG
     2948   01 00E91    22000203              LI,0     DA(DWCMND1L)      DEDICATE R0 TO CMND ADDRESS
     2949   01 00E92    6AF003D2              BAL,15   OUTPRINT          GIVE ANOTHER NEW LINE
     2950   01 00E93    33700EB8              MTW,7    COOKSTRT          INCREMENT COOKBOOK LINE ADDRESS
     2951   01 00E94    2240000F A            LI,4     15
     2952   01 00E95    66400EBC              AWM,4    BUFFSTRT          INCREMENT OUTPUT BUFFER LINE ADDRESS
     2953   01 00E96    68000E7C              B        LCMPLOOP          LOOP FOR NEXT LINE
     2954                            *
     2955                            *
     2956   01 00E97    00000000 A   COSAVE   DATA     0
     2957   01 00E98    35F00E97     COOKOUT  STW,15   COSAVE            SAVE R15 FOR RETURN
     2958   01 00E99    22500F85              LI,5     COOKBUFF+1        FETCH FIRST STORE ADDRESS
     2959   01 00E9A    22600000 A            LI,6     0                 SET STROE INDEX
     2960   01 00E9B    227FFFF9 A            LI,7     -7                SET LOOP COUNT
     2961   01 00E9C    33100EBE              MTW,1    COOKFLAG          SET COOKBOOK OUTPUT FLAG
     2962                            *
     2963   01 00E9D    B24C0EB8     COOKLOOP LW,4     *COOKSTRT,6       FETCH FIRST WORD TO BE STORED
     2964   01 00E9E    B5400005 A            STW,4    *5                STORE COOKBOOK WORD
     2965   01 00E9F    20600001 A            AI,6     1                 INCREMENT WORD FETCH INDEX
     2966   01 00EA0    20500002 A            AI,5     2                 DOUBLE INDEX STORE INDEX
     2967   01 00EA1    65700E9D              BIR,7    COOKLOOP          LOOP FOR SEVEN WORDS
     2968   01 00EA2    33000BD4              MTW,0    LINEPRNT          IS THE LINEPRINTER SELECTED
     2969   01 00EA3    69300EAE              BCS,3    COOKOUTL          IF SO, BRANCH
     2970   01 00EA4    220001EC              LI,0     DA(DWCMND1K)      DEDICATE R0 TO CMND ADDRESS
     2971   01 00EA5    6AF003CD              BAL,15   OUTYPE            GIVE ANOTHER NEW LINE
     2972   01 00EA6    22403E10              LI,4     BA(COOKBUFF)      FETCH COOKBOOK BUFFER BYTE ADDRESS
     2973   01 00EA7    30400FBE              AW,4     KSROUT            FORM COMMAND
     2974   01 00EA8    354003F2              STW,4    DWCMNDEK          SET ORDER AND BYTE ADDRESS
     2975   01 00EA9    220001F9              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO CMND ADDR
     2976   01 00EAA    6AF003CD              BAL,15   OUTYPE
     2977   01 00EAB    220001EC              LI,0     DA(DWCMND1K)
     2978   01 00EAC    6AF003CD              BAL,15   OUTYPE            GIVE NEW LINE
     2979   01 00EAD    E8000E97              B        *COSAVE           REEURN TO CALLING ROUTINE
     2980                            *
     2981   01 00EAE    22000203     COOKOUTL LI,0     DA(DWCMND1L)      DEDICATE R0 TO CMND ADDRESS
     2982   01 00EAF    6AF003D2              BAL,15   OUTPRINT          GIVE ANOTHER NEW LINE
     2983   01 00EB0    22403E10              LI,4     BA(COOKBUFF)      FETCH COOKBOOK BUFFER BYTE ADDRESS
     2984   01 00EB1    30400FC2              AW,4     WRITEORD          FORM COMMAND
     2985   01 00EB2    354003F2              STW,4    DWCMNDEK          SET ORDER AND BYTE ADDRESS
     2986   01 00EB3    220001F9              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO CMND ADDR
     2987   01 00EB4    6AF003D2              BAL,15   OUTPRINT
     2988   01 00EB5    E8000E97              B        *COSAVE           REEURN TO CALLING ROUTINE
     2989                            *
     2990                            *
     2991                            *
     2992                            ******** COMPARE TABLES AND CONSTANTS **********************************
     2993                            *
     2994                            *
     2995   01 00EB6    00000000 A   COOKWORD DATA     0
     2996   01 00EB7    00000000 A   COOKCYCL DATA     0
     2997   01 00EB8    00000000 A   COOKSTRT DATA     0
     2998   01 00EB9    00000000 A   BUFFWORD DATA     0
     2999   01 00EBA    00000000 A   BUFFLINE DATA     0
     3000   01 00EBB    00000000 A   BUFFCYCL DATA     0
     3001   01 00EBC    00000000 A   BUFFSTRT DATA     0
     3002   01 00EBD    00000000 A   COMPERR  DATA     0
     3003   01 00EBE    00000000 A   COOKFLAG DATA     0
     3004   01 00EBF    00000000 A   CYCLINDX DATA     0
     3005   01 00EC0    00000000 A   TESTEND  DATA     0
     3006   01 00EC1    00000000 A   ERRCYCLE DATA     0
     3007                            *
     3008                            *
     3009   01 00EC2    0000154E     HREGLOCS DATA     000Q+33
     3010   01 00EC3    0000157F              DATA     001Q+40
     3011   01 00EC4    000015A9              DATA     003Q+33
     3012   01 00EC5    000015D3              DATA     004Q+33
     3013   01 00EC6    000015FD              DATA     005Q+33
     3014   01 00EC7    00001627              DATA     006Q+33
     3015   01 00EC8    00001651              DATA     008Q+33
     3016   01 00EC9    0000167B              DATA     009Q+33
     3017   01 00ECA    000016A5              DATA     011Q+33
     3018   01 00ECB    000016CF              DATA     012Q+33
     3019   01 00ECC    000016F9              DATA     013Q+33
     3020   01 00ECD    00001723              DATA     014Q+33
     3021   01 00ECE    0000174D              DATA     015Q+33
     3022   01 00ECF    00001777              DATA     016Q+33
     3023   01 00ED0    000017A1              DATA     017Q+33
     3024   01 00ED1    000017CB              DATA     018Q+33
     3025   01 00ED2    000017F5              DATA     019Q+33
     3026   01 00ED3    00001826              DATA     020Q+40
     3027   01 00ED4    00001850              DATA     023Q+33
     3028   01 00ED5    0000187A              DATA     024Q+33
     3029   01 00ED6    000018B2              DATA     024Q+89
     3030   01 00ED7    000018B9              DATA     025Q+5
     3031   01 00ED8    000018D5              DATA     025Q+33
     3032   01 00ED9    0000190D              DATA     025Q+89
     3033   01 00EDA    00001930              DATA     026Q+33
     3034   01 00EDB    00001968              DATA     026Q+89
     3035   01 00EDC    0000198B              DATA     027Q+33
     3036   01 00EDD    000019C3              DATA     027Q+89
     3037   01 00EDE    000019CA              DATA     027Q+96
     3038   01 00EDF    000019E6              DATA     027Q+124
     3039   01 00EE0    000019ED              DATA     027Q+131
     3040   01 00EE1    00001A02              DATA     027Q+152
     3041   01 00EE2    00001A09              DATA     028Q+5
     3042   01 00EE3    00001A25              DATA     028Q+33
     3043   01 00EE4    00001A5D              DATA     028Q+89
     3044   01 00EE5    00001A64              DATA     028Q+96
     3045   01 00EE6    00001A80              DATA     028Q+124
     3046   01 00EE7    00001A87              DATA     028Q+131
     3047   01 00EE8    00001A9C              DATA     028Q+152
     3048   01 00EE9    00001AA3              DATA     029Q+5
     3049   01 00EEA    00001ABF              DATA     029Q+33
     3050   01 00EEB    00001AF7              DATA     029Q+89
     3051   01 00EEC    00001AFE              DATA     029Q+96
     3052   01 00EED    00001B1A              DATA     029Q+124
     3053   01 00EEE    00001B21              DATA     029Q+131
     3054   01 00EEF    00001B36              DATA     029Q+152
     3055   01 00EF0    00001B3D              DATA     030Q+5
     3056   01 00EF1    00001B59              DATA     030Q+33
     3057   01 00EF2    00001B91              DATA     030Q+89
     3058   01 00EF3    00001B98              DATA     030Q+96
     3059   01 00EF4    00001BB4              DATA     030Q+124
     3060   01 00EF5    00001BBB              DATA     030Q+131
     3061   01 00EF6    00001BD0              DATA     030Q+152
     3062   01 00EF7    00001BD7              DATA     031Q+5
     3063   01 00EF8    00001BF3              DATA     031Q+33
     3064   01 00EF9    00001C2B              DATA     031Q+89
     3065   01 00EFA    00001C32              DATA     031Q+96
     3066   01 00EFB    00001C4E              DATA     031Q+124
     3067   01 00EFC    00001C55              DATA     031Q+131
     3068   01 00EFD    00001C6A              DATA     031Q+152
     3069   01 00EFE    00001C71              DATA     032Q+5
     3070   01 00EFF    00001C8D              DATA     032Q+33
     3071   01 00F00    00001CC5              DATA     032Q+89
     3072   01 00F01    00001CCC              DATA     032Q+96
     3073   01 00F02    00001CE8              DATA     032Q+124
     3074   01 00F03    00001CEF              DATA     032Q+131
     3075   01 00F04    00001D04              DATA     032Q+152
     3076   01 00F05    00001D0B              DATA     033Q+5
     3077   01 00F06    00001D27              DATA     033Q+33
     3078   01 00F07    00001D5F              DATA     033Q+89
     3079   01 00F08    00001D66              DATA     033Q+96
     3080   01 00F09    00001D82              DATA     033Q+124
     3081   01 00F0A    00001D89              DATA     033Q+131
     3082   01 00F0B    00001D9E              DATA     033Q+152
     3083   01 00F0C    00001DA5              DATA     034Q+5
     3084   01 00F0D    00001DC1              DATA     034Q+33
     3085   01 00F0E    00001DF9              DATA     034Q+89
     3086   01 00F0F    00001E00              DATA     034Q+96
     3087   01 00F10    00001E1C              DATA     034Q+124
     3088   01 00F11    00001E23              DATA     034Q+131
     3089   01 00F12    00001E38              DATA     034Q+152
     3090   01 00F13    00001E3F              DATA     034Q+159
     3091   01 00F14    00001E69              DATA     034Q+201
     3092   01 00F15    00001E70              DATA     035Q+5
     3093   01 00F16    00001E8C              DATA     035Q+33
     3094   01 00F17    00001EC4              DATA     035Q+89
     3095   01 00F18    00001ECB              DATA     035Q+96
     3096   01 00F19    00001EE7              DATA     035Q+124
     3097   01 00F1A    00001EEE              DATA     035Q+131
     3098   01 00F1B    00001F03              DATA     035Q+152
     3099   01 00F1C    00001F0A              DATA     035Q+159
     3100   01 00F1D    00001F34              DATA     035Q+201
     3101   01 00F1E    00001F3B              DATA     036Q+5
     3102   01 00F1F    00001F57              DATA     036Q+33
     3103   01 00F20    00001F9D              DATA     036Q+103
     3104   01 00F21    00001FA4              DATA     037Q+5
     3105   01 00F22    00001FC0              DATA     037Q+33
     3106   01 00F23    00002006              DATA     037Q+103
     3107   01 00F24    0000200D              DATA     038Q+5                                            *A02
     3108   01 00F25    00002029              DATA     038Q+33
     3109   01 00F26    0000206F              DATA     038Q+103
     3110   01 00F27    00002076              DATA     039Q+5
     3111   01 00F28    00002092              DATA     039Q+33
     3112   01 00F29    000020CA              DATA     039Q+89
     3113   01 00F2A    000020D1              DATA     039Q+96
     3114   01 00F2B    000020ED              DATA     039Q+124
     3115   01 00F2C    000020F4              DATA     039Q+131
     3116   01 00F2D    00002109              DATA     039Q+152
     3117   01 00F2E    0000212C              DATA     040Q+33
     3118   01 00F2F    00002164              DATA     040Q+89
     3119   01 00F30    0000216B              DATA     040Q+96
     3120   01 00F31    000021FE              DATA     040Q+243
     3121   01 00F32    00002221              DATA     042Q+33
     3122   01 00F33    00002259              DATA     042Q+89
     3123   01 00F34    00002260              DATA     042Q+96
     3124   01 00F35    00002291              DATA     042Q+145
     3125   01 00F36    00002298              DATA     048Q+5
     3126   01 00F37    000022B4              DATA     048Q+33
     3127   01 00F38    000022EC              DATA     048Q+89
     3128   01 00F39    000022F3              DATA     048Q+96
     3129   01 00F3A    00002324              DATA     048Q+145
     3130   01 00F3B    00002340              DATA     048Q+173
     3131   01 00F3C    00002347              DATA     049Q+5
     3132   01 00F3D    00002363              DATA     049Q+33
     3133   01 00F3E    0000239B              DATA     049Q+89
     3134   01 00F3F    000023A2              DATA     049Q+96
     3135   01 00F40    000023BE              DATA     049Q+124
     3136   01 00F41    000023C5              DATA     049Q+131
     3137   01 00F42    000023DA              DATA     049Q+152
     3138   01 00F43    000023E1              DATA     049Q+159
     3139   01 00F44    000023F6              DATA     049Q+180
     3140   01 00F45    00002420              DATA     050Q+33
     3141   01 00F46    00002458              DATA     050Q+89
     3142   01 00F47    0000245F              DATA     050Q+96
     3143   01 00F48    000026A4              DATA     051Q+33
     3144   01 00F49    000026DC              DATA     051Q+89
     3145   01 00F4A    000026E3              DATA     051Q+96
     3146   01 00F4B    0000282C              DATA     052Q+33
     3147   01 00F4C    00002864              DATA     052Q+89
     3148   01 00F4D    0000286B              DATA     052Q+96
     3149   01 00F4E    00000000 A            DATA     0
     3150                            *
     3151                            *
     3152   01 00F4F    0000152D     COOKADDR DATA     000Q
     3153   01 00F50    00001557              DATA     001Q
     3154   01 00F51    00000000 A            DATA     0
     3155   01 00F52    00001588              DATA     003Q
     3156   01 00F53    000015B2              DATA     004Q
     3157   01 00F54    000015DC              DATA     005Q
     3158   01 00F55    00001606              DATA     006Q
     3159   01 00F56    00000000 A            DATA     0
     3160   01 00F57    00001630              DATA     008Q
     3161   01 00F58    0000165A              DATA     009Q
     3162   01 00F59    00000000 A            DATA     0
     3163   01 00F5A    00001684              DATA     011Q
     3164   01 00F5B    000016AE              DATA     012Q
     3165   01 00F5C    000016D8              DATA     013Q
     3166   01 00F5D    00001702              DATA     014Q
     3167   01 00F5E    0000172C              DATA     015Q
     3168   01 00F5F    00001756              DATA     016Q
     3169   01 00F60    00001780              DATA     017Q
     3170   01 00F61    000017AA              DATA     018Q
     3171   01 00F62    000017D4              DATA     019Q
     3172   01 00F63    000017FE              DATA     020Q
     3173   01 00F64    00000000 A            DATA     0
     3174   01 00F65    00000000 A            DATA     0
     3175   01 00F66    0000182F              DATA     023Q
     3176   01 00F67    00001859              DATA     024Q
     3177   01 00F68    000018B4              DATA     025Q
     3178   01 00F69    0000190F              DATA     026Q
     3179   01 00F6A    0000196A              DATA     027Q
     3180   01 00F6B    00001A04              DATA     028Q
     3181   01 00F6C    00001A9E              DATA     029Q
     3182   01 00F6D    00001B38              DATA     030Q
     3183   01 00F6E    00001BD2              DATA     031Q
     3184   01 00F6F    00001C6C              DATA     032Q
     3185   01 00F70    00001D06              DATA     033Q
     3186   01 00F71    00001DA0              DATA     034Q
     3187   01 00F72    00001E6B              DATA     035Q
     3188   01 00F73    00001F36              DATA     036Q
     3189   01 00F74    00001F9F              DATA     037Q
     3190   01 00F75    00002008              DATA     038Q
     3191   01 00F76    00002071              DATA     039Q
     3192   01 00F77    0000210B              DATA     040Q
     3193   01 00F78    00000000 A            DATA     0
     3194   01 00F79    00002200              DATA     042Q
     3195   01 00F7A    00000000 A            DATA     0
     3196   01 00F7B    00000000 A            DATA     0
     3197   01 00F7C    00000000 A            DATA     0
     3198   01 00F7D    00000000 A            DATA     0
     3199   01 00F7E    00000000 A            DATA     0
     3200   01 00F7F    00002293              DATA     048Q
     3201   01 00F80    00002342              DATA     049Q
     3202   01 00F81    000023FF              DATA     050Q
     3203   01 00F82    00002683              DATA     051Q
     3204   01 00F83    0000280B              DATA     052Q
     3205                            *
     3206   01 00F84    40404040 A   COOKBUFF DATA     X'40404040'
     3207   01 00F85    00000000 A            DATA     0
     3208   01 00F86    40404040 A            DATA     X'40404040'
     3209   01 00F87    00000000 A            DATA     0
     3210   01 00F88    40404040 A            DATA     X'40404040'
     3211   01 00F89    00000000 A            DATA     0
     3212   01 00F8A    40404040 A            DATA     X'40404040'
     3213   01 00F8B    00000000 A            DATA     0
     3214   01 00F8C    40404040 A            DATA     X'40404040'
     3215   01 00F8D    00000000 A            DATA     0
     3216   01 00F8E    40404040 A            DATA     X'40404040'
     3217   01 00F8F    00000000 A            DATA     0
     3218   01 00F90    40404040 A            DATA     X'40404040'
     3219   01 00F91    00000000 A            DATA     0
     3220                            *
     3221                            *
     3222                            *                 LITERALS
     3223                            *
     3224                            *
     3225   01 00F92    00000007 A   X:7      DATA     X'00000007'
     3226   01 00F93    0000000F A   X:F      DATA     X'0000000F'
     3227   01 00F94    00000015 A   X:15     DATA     X'00000015'
     3228   01 00F95    0000001F A   X:1F     DATA     X'0000001F'
     3229   01 00F96    0000003C A   X:3C     DATA     X'0000003C'
     3230   01 00F97    0000007F A   X:7F     DATA     X'0000007F'
     3231   01 00F98    000000F0 A   X:F0     DATA     X'000000F0'
     3232   01 00F99    00000100 A   X:100    DATA     X'00000100'
     3233   01 00F9A    00000700 A   X:700    DATA     X'00000700'
     3234   01 00F9B    00000800 A   X:800    DATA     X'00000800'
     3235   01 00F9C    00000AFF A   X:AFF    DATA     X'00000AFF'
     3236   01 00F9D    00004000 A   X:4000   DATA     X'00004000'
     3237   01 00F9E    0000E0FF A   X:E0FF   DATA     X'0000E0FF'
     3238   01 00F9F    0000FFFF A   X:FFFF   DATA     X'0000FFFF'
     3239   01 00FA0    0003FFF8 A   X:3FFF8  DATA     X'0003FFF8'
     3240   01 00FA1    00180000 A   X:180000 DATA     X'00180000'
     3241   01 00FA2    00FF0000 A   X:FF0000 DATA     X'00FF0000'
     3242   01 00FA3    00FFFFFF A   X:FFFFFF DATA     X'00FFFFFF'
     3243                            *
     3244   01 00FA4    00000064 A   D:100    DATA     100               CONSTANT
     3245   01 00FA5    0000000A A   D:10     DATA     10                CONSTANT
     3246                            *
     3247   01 00FA6    0A000001 A   0A000001 DATA     X'0A000001'
     3248   01 00FA7    0C000001 A   0C000001 DATA     X'0C000001'
     3249   01 00FA8    15150D0D A   15150D0D DATA     X'15150D0D'
     3250   01 00FA9    2C000001 A   2C000001 DATA     X'2C000001'
     3251   01 00FAA    4040405C A   4040405C DATA     X'4040405C'
     3252   01 00FAB    406E4040 A   406E4040 DATA     X'406E4040'
     3253   01 00FAC    406E405C A   406E405C DATA     X'406E405C'
     3254   01 00FAD    AA000000 A   AA000000 DATA     X'AA000000'
     3255   01 00FAE    DEDFF9FF A   DEDFF9FF DATA     X'DEDFF9FF'
     3256   01 00FAF    F0000000 A   F0000000 DATA     X'F0000000'
     3257   01 00FB0    F0F0FFFF A   F0F0FFFF DATA     X'F0F0FFFF'
     3258   01 00FB1    FC000000 A   FC000000 DATA     X'FC000000'
     3259   01 00FB2    F9000000 A   F9000000 DATA     X'F9000000'
     3260   01 00FB3    FFA1E200 A   FFA1E200 DATA     X'FFA1E200'
     3261   01 00FB4    FFA0F800 A   FFA0F800 DATA     X'FFA0F800'
     3262   01 00FB5    FFA0FE00 A   FFA0FE00 DATA     X'FFA0FE00'
     3263   01 00FB6    FFA1FE00 A   FFA1FE00 DATA     X'FFA1FE00'
     3264   01 00FB7    FFFF0000 A   FFFF0000 DATA     X'FFFF0000'
     3265   01 00FB8    FFFFFF00 A   FFFFFF00 DATA     X'FFFFFF00'
     3266                            *
     3267                            *                 CONSTANTS
     3268                            *
     3269   01 00FB9    20000001 A   CC       DATA     X'20000001'
     3270   01 00FBA    08000001 A   HTE      DATA     X'08000001'
     3271   01 00FBB    10000001 A   ICE      DATA     X'10000001'
     3272   01 00FBC    04000001 A   IUE      DATA     X'04000001'
     3273   01 00FBD    14000001 A   IUEICE   DATA     X'14000001'
     3274   01 00FBE    05000000 A   KSROUT   DATA     X'05000000'
     3275   01 00FBF    02000000 A   SILBIT   DATA     X'02000000'
     3276   01 00FC0    08000000 A   TIC      DATA     X'08000000'
     3277   01 00FC1    000000A9     TIC2     DATA     DA(T0360CP)
     3278   01 00FC2    01000000 A   WRITEORD DATA     X'01000000'
     3279                            *
1 C00   20:45 JUN 20,'83    SIGMA 5/7 MIOP WITH MAIN. SUBCONTRLR 705721-11/51A04 8/9/72           PAGE    3
A    3280                                     PAGE
     3281                            *
     3282                            *        TEST 0  TEST SETTING OF PHASES
     3283                            *
     3284                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED USING AN ODD REGISTER.
     3285                            * REASON FOR ERROR: THE SIO INSTRUCTION WAS NOT COMPLETED BUT WAS IN-
     3286                            *        TERRUPTED BY THE WATCHDOG TIMER.  VERIFY: PH1D2, PH0D1, PH10D1,
     3287                            *        PH12D1, PH13D1, PH14D1.
     3288                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3289                            *
     3290         01 00FC3           T000     EQU      %
     3291   01 00FC3    35E00CFB              STW,14   WDTI              CLEAR WATCHDOG TIMER TRAP FLAG
     3292   01 00FC4    220000B2              LI,0     DA(T052CP)        FETCH TEST CASE CMND PAIR
     3293   01 00FC5    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING
     3294   01 00FC6    CCF00D6B              SIO,15   *IOPTEST          EXECUTE SIO
     3295   01 00FC7    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3296   01 00FC8    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS
     3297   01 00FC9    33000CFB              MTW,0    WDTI              DID WATCHDOG TIMER INTERRUPT
     3298   01 00FCA    68300FCC              BCR,3    %+2               BRANCH IF NOT
     3299   01 00FCB    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3300   01 00FCC    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3301                            *
     3302                            *        TEST 1  TEST SETTING OF PHASES
     3303                            *
     3304                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED USING AN EVEN REGISTER.
     3305                            * REASON FOR ERROR: THE SIO INSTRUCTION WAS NOT COMPLETED BUT WAS IN-
     3306                            *        TERRUPTED BY THE WATCHDOG TIMER.  VERIFY PH11D1.
     3307                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3308                            *
     3309         01 00FCD           T001     EQU      %
     3310   01 00FCD    35E00CFB              STW,14   WDTI              CLEAR WATCHDOG TIMER TRAP FLAG
     3311   01 00FCE    220000B2              LI,0     DA(T052CP)        FETCH TEST CASE CMND PAIR
     3312   01 00FCF    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING
     3313   01 00FD0    CC800D6B              SIO,8    *IOPTEST          EXECUTE SIO
     3314   01 00FD1    225FFFF9 A            LI,5     -7                LOAD NUMBER OF PHASES
     3315   01 00FD2    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS
     3316   01 00FD3    33000CFB              MTW,0    WDTI              DID WATCHDOG TIMER INTERRUPT
     3317   01 00FD4    68300FD6              BCR,3    %+2               BRANCH IF NOT
     3318   01 00FD5    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3319   01 00FD6    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3320                            *
     3321                            *        SPARE TEST SLOT
     3322   01 00FD7    68000257     T002     B        RETURN
     3323                            *
     3324                            *
     3325                            *
     3326                            *        TEST 3  TEST SIO FUNCTION INDICATOR LINE
     3327                            *
     3328                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED.  THE SIO FUNCTION
     3329                            *        INDICATOR LINE IS CHECKED IN THE MS.
     3330                            * REASON FOR ERROR: THE SIO LINE DID NOT COME TRUE IN THE MS.
     3331                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3332                            *
     3333         01 00FD8           T003     EQU      %
     3334   01 00FD8    220000B2              LI,0     DA(T052CP)        FETCH TEST CASE CMND PAIR
     3335   01 00FD9    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING
     3336   01 00FDA    ED000BB5              WD,0     *GPA3             ARM SNAP
     3337   01 00FDB    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     3338   01 00FDC    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3339   01 00FDD    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS
     3340   01 00FDE    EC400BB5              RD,4     *GPA3             READ OPERATION CODES
     3341   01 00FDF    4B401445              AND,4    X:80              MASK
     3342   01 00FE0    69300FE2              BCS,3    %+2               BRANCH IF SIO INDICATOR WAS SET
     3343   01 00FE1    33100257              MTW,1    RETURN            FORCE ERROR RETURN IF NOT TRUE
     3344   01 00FE2    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3345                            *
     3346                            *        TEST  4  TEST TIO FUNCTION INDICATOR LINE
     3347                            *
     3348                            * METHOD OF TEST: A TIO INSTRUCTION IS EXECUTED.  THE TIO FUNCTION
     3349                            *        INDICATOR LINE IS CHECKED IN THE MS.
     3350                            * REASON FOR ERROR: THE TIO LINE DID NOT COME TRUE IN THE MS.
     3351                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3352                            *
     3353         01 00FE3           T004     EQU      %
     3354   01 00FE3    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING
     3355   01 00FE4    ED000BB5              WD,0     *GPA3             ARM SNAP
     3356   01 00FE5    CD000D6B              TIO,0    *IOPTEST          EXECUTE TIO
     3357   01 00FE6    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3358   01 00FE7    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS
     3359   01 00FE8    EC400BB5              RD,4     *GPA3             READ OPERATION CODES
     3360   01 00FE9    4B401444              AND,4    X:40              MASK
     3361   01 00FEA    69300FEC              BCS,3    %+2               BRANCH IF TIO INDICATOR WAS SET
     3362   01 00FEB    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3363   01 00FEC    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3364                            *
     3365                            *        TEST 5   TEST TDV FUNTION INDICATOR LINE
     3366                            *
     3367                            * METHOD OF TEST: A TDV INSTRUCTION IS EXECUTED; THE TDV FUNCTION
     3368                            *        INDICATOR LINE IS CHECKED IN THE MS.
     3369                            * REASON FOR ERROR: THE TDV LINE DID NOT COME TRUE IN THE MS.
     3370                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 =  CHANNEL NUMBER.
     3371                            *
     3372         01 00FED           T005     EQU      %
     3373   01 00FED    ED000BB5              WD,0     *GPA3             ARM SNAP
     3374   01 00FEE    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING
     3375   01 00FEF    CE000D6B              TDV,0    *IOPTEST          EXECUTE TDV
     3376   01 00FF0    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3377   01 00FF1    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS
     3378   01 00FF2    EC400BB5              RD,4     *GPA3             READ OPERATION CODES
     3379   01 00FF3    4B401443              AND,4    X:20              MASK
     3380   01 00FF4    69300FF6              BCS,3    %+2               BRANCH IF TDV INDICATOR WAS SET
     3381   01 00FF5    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3382   01 00FF6    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3383                            *
     3384                            *        TEST 6  TEST HIO FUNCTION INDICATOR LINE
     3385                            *
     3386                            * METHOD OF TEST: AN HIO INSTRUCTION IS EXECUTED; THE HIO FUNCTION
     3387                            *        INDICATOR LINE IS CHECKED IN THE MS.
     3388                            * REASON FOR ERROR: THE HIO LINE DID NOT COME TRUE IN THE MS.
     3389                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3390                            *
     3391         01 00FF7           T006     EQU      %
     3392   01 00FF7    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING
     3393   01 00FF8    ED000BB5              WD,0     *GPA3             ARM SNAP
     3394   01 00FF9    CF000D6B              HIO,0    *IOPTEST          EXECUTE HIO
     3395   01 00FFA    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3396   01 00FFB    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS
     3397   01 00FFC    EC400BB5              RD,4     *GPA3             READ OPERATION CODES
     3398   01 00FFD    4B401442              AND,4    X:10              MASK
     3399   01 00FFE    69301000              BCS,3    %+2               BRANCH IF HIO INDICATOR IS NOT SET
     3400   01 00FFF    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3401   01 01000    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3402                            *
     3403                            *        SPARE TEST SLOT
     3404   01 01001    68000257     T007     B        RETURN
     3405                            *
     3406                            *        TEST  8  TEST ASC INDICATOR LINE
     3407                            *
     3408                            * METHOD OF TEST: AN SC IS SENT TO THE IOP FROM THE MS. THE ASC LINE
     3409                            *        SHOULD BE BROUGHT UP IN THE IOP.
     3410                            * REASON FOR ERROR: THE ASC INDICATOR LINE DID NOT COME TRUE IN THE MS.
     3411                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3412                            *
     3413         01 01002           T008     EQU      %
     3414   01 01002    220000B2              LI,0     DA(T052CP)        FETCH TEST CASE CMND PAIR
     3415   01 01003    6AF00AD9              BAL,15   PREPHS            STOP NORMAL PHASE CLOCK
     3416   01 01004    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     3417   01 01005    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3418   01 01006    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE IF NO ERROR
     3419   01 01007    ED000BB5              WD,0     *GPA3             ARM SNAP
     3420   01 01008    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     3421   01 01009    EC500BB5              RD,5     *GPA3             READ OPERATION CODES
     3422   01 0100A    4B50000D A            AND,5    13                MASK
     3423   01 0100B    6930100D              BCS,3    %+2               BRANCH IF ASC INDICATOR IS SET
     3424   01 0100C    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3425   01 0100D    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3426                            *
     3427                            *        TEST   9  TEST CC1 AND CC2
     3428                            *
     3429                            * METHOD OF TEST: CC1 AND CC2 ARE INDIVIDUALLY SET THEN RESET AS A
     3430                            *        RESULT OF TOGGLEING DOR AND IOR. RESULTS ARE MONITERED IN THE
     3431                            *        CPU.
     3432                            * REASON FOR ERROR: CC1 OR CC2 WILL NOT SET OR RESET PROPERLY.
     3433                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3434                            *
     3435         01 0100E           T009     EQU      %
     3436   01 0100E    ED200BBE              WD,2     *GPAC             SET CC1
     3437   01 0100F    6AF0102F              BAL,15   CNDCPLNT          IMPLANT CC IF NECESSARY
     3438   01 01010    00000044 A            DATA     X'44'
     3439   01 01011    CE000D6B              TDV,0    *IOPTEST          FETCH CONDITION CODE
     3440   01 01012    68801022              BCR,8    T009A             BRANCH IF NOT SET
     3441   01 01013    ED300BBE              WD,3     *GPAC             RESTORE IOR=1, DOR=1
     3442   01 01014    6AF0102F              BAL,15   CNDCPLNT          IMPLANT CC IF NECESSARY
     3443   01 01015    000000C4 A            DATA     X'C4'
     3444   01 01016    CE000D6B              TDV,0    *IOPTEST          FETCH CONDITION CODE
     3445   01 01017    69801022              BCS,8    T009A             BRANCH IF CC1 IS NOT RESET
     3446   01 01018    ED100BBE              WD,1     *GPAC             SET CC2
     3447   01 01019    6AF0102F              BAL,15   CNDCPLNT          IMPLANT CC IF NECESSARY
     3448   01 0101A    00000084 A            DATA     X'84'
     3449   01 0101B    CE000D6B              TDV,0    *IOPTEST          FETCH CONDITION CODE
     3450   01 0101C    68401022              BCR,4    T009A             BRANCH IF NOT SET
     3451   01 0101D    ED300BBE              WD,3     *GPAC             RESTORE IOR=1, DOR=1
     3452   01 0101E    6AF0102F              BAL,15   CNDCPLNT          IMPLANT CC IF NECESSARY
     3453   01 0101F    000000C4 A            DATA     X'C4'
     3454   01 01020    CE000D6B              TDV,0    *IOPTEST          FETCH CONDITIONCODES
     3455   01 01021    68401027              BCR,4    %+6               BRANCH IF CC2 IS RESET CORRECTLY
     3456   01 01022    225FFFFA A   T009A    LI,5     -6                LOAD NUMBER OF PHASES
     3457   01 01023    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING
     3458   01 01024    CE000D6B              TDV,0    *IOPTEST          FETCH CONDITION CODE
     3459   01 01025    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS
     3460   01 01026    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3461   01 01027    33000D70              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION?
     3462   01 01028    6810102D              BCR,1    %+5               BRANCH IF NOT
     3463   01 01029    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING
     3464   01 0102A    CE000D6B              TDV,0    *IOPTEST          EXECUTE TDV
     3465   01 0102B    225FFFFA A            LI,5     -6                SET SINGLE PHASE LOOP COUNT
     3466   01 0102C    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     3467   01 0102D    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3468   01 0102E    00000000 A   CNDCSAVE DATA     0                 RETURN STORAGE FOR CNDCPLNT ROUTINE
     3469   01 0102F    35F0102E     CNDCPLNT STW,15   CNDCSAVE          SAVE R15 FOR POINTING AND RETURN
     3470   01 01030    33000294              MTW,0    PHSLATCH          IS THIS AN ERROR PASS
     3471   01 01031    68301040              BCR,3    CNDCEXIT          BRANCH IF NOT
     3472   01 01032    33000C1A              MTW,0    COMPFLAG          IS COMPARE TO BE MADE
     3473   01 01033    68301040              BCR,3    CNDCEXIT          BRANCH IF NOT
     3474   01 01034    33000D70              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION
     3475   01 01035    69301040              BCS,3    CNDCEXIT          IF SO, BRANCH
     3476   01 01036    B240102E              LW,4     *CNDCSAVE         FETCH SETTING TO BE IMPLANTED
     3477   01 01037    6AF00DEA              BAL,15   CIMPLNT           IMPLANT VALUE IN COOKBOOK
     3478   01 01038    0000165F              DATA     009Q+5
     3479   01 01039    4B400F98              AND,4    X:F0              DELETE FNC BIT
     3480   01 0103A    6AF00DEA              BAL,15   CIMPLNT           IMPLANT NEXT VALUE
     3481   01 0103B    00001674              DATA     009Q+26
     3482   01 0103C    6AF00DEA              BAL,15   CIMPLNT           IMPLANT NEXT VALUE
     3483   01 0103D    0000167B              DATA     009Q+33
     3484   01 0103E    6AF00DEA              BAL,15   CIMPLNT           IMPLANT VALUE INTO COOKBOOK
     3485   01 0103F    00001682              DATA     009Q+40
     3486   01 01040    3310102E     CNDCEXIT MTW,1    CNDCSAVE          INCREMENT PRINTER TO RETURN VALUE
     3487   01 01041    E800102E              B        *CNDCSAVE         RETURN TO CALLING ROUTINE
     3488                            *
     3489                            *        TEST  10  SPARE TEST SLOT
     3490                            *
     3491   01 01042    68000257     T010     B        RETURN
     3492                            *
     3493                            *        TEST 11  TEST DATA (DA) LINES FOR CORRECT ADDRESS
     3494                            *
     3495                            * METHOD OF TEST: A TIO INSTRUCTION IS EXECUTED WHCICH DRIVES DAO-7
     3496                            *        WITH THE DEVICE CONTROLLER (CHANNEL) NUMBER. THIS ADDRESS IS
     3497                            *        CHECKED IN THE MS.
     3498                            * REASON FOR ERROR: CORRECT ADDRESS NOT PRESENTED TO THE MS.
     3499                            * INDICATION OF ERROR: ERROR NUMBER;
     3500                            *        ERR WORD 1 =  DA0-7 CONFIGURATION EXPECTED;
     3501                            *        ERR WORD 2 =  DA0-7 CONFIGURATION RECEIVED;
     3502                            *        ERR WORD 4 =  CHANNEL NUMBER.
     3503                            *
     3504         01 01043           T011     EQU      %
     3505   01 01043    72460D6B              LB,4     IOPTEST,3         FETCH CHANNEL NUMBER
     3506   01 01044    35400C97              STW,4    %ERRWD1           STORE IN ERR WORD 1
     3507   01 01045    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3508   01 01046    ED000BB6              WD,0     *GPA4             ARM R4
     3509   01 01047    CD000D6B              TIO,0    *IOPTEST          EXECUTE TIO
     3510   01 01048    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3511   01 01049    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3512   01 0104A    EC500BB6              RD,5     *GPA4             READ DA0-7
     3513   01 0104B    71560C97              CB,5     %ERRWD1,3         WAS CORRECT DA RETURNED
     3514   01 0104C    6820104F              BCR,2    %+3               BRANCH IF YES
     3515   01 0104D    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3516   01 0104E    75560C98              STB,5    %ERRWD2,3         ERR WORD 3 = RECEIVED CHANNEL NUM
     3517   01 0104F    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3518                            *
     3519                            *        TEST 12  TEST FUNCTION RESPONSE LINE FR0
     3520                            *
     3521                            *METHOD OF TEST: FRO IS DRIVEN BY THE MS. A TIO
     3522                            *        INSTRUCTION IS EXECUTED.  BIT 0 OF THE DEVICE STATUS BYTE
     3523                            *        SHOULD BE SET.
     3524                            * REASON FOR ERROR: BIT 0 WAS NOT SET.
     3525                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3526                            *
     3527         01 01050           T012     EQU      %
     3528   01 01050    22400080 A            LI,4     X'80'             SET WRITE DIRECT DATA BIT 24
     3529   01 01051    ED400BBB              WD,4     *GPA9             SET FR0
     3530   01 01052    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3531   01 01053    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     3532   01 01054    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3533   01 01055    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3534   01 01056    25700061 A            SLS,7    -31               RIGHT JUSTIFY DEVICE STATUS
     3535   01 01057    21700001 A            CI,7     1                 WAS DEVICE STATUS BIT 0 SET?
     3536   01 01058    6830105A              BCR,3    %+2               BRANCH IF YES
     3537   01 01059    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3538   01 0105A    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3539                            *
     3540                            *        TEST 13  TEST FUNCTION RESPONSE LINE FR1
     3541                            *
     3542                            * METHOD OF TEST: FR1 IS DRIVEN IN THE MS. A TIO
     3543                            *        INSTRUCTION IS EXECUTED.  BIT 1 OF THE DEVICE STATUS BYTE
     3544                            *        SHOULD BE SET.
     3545                            * REASON FOR ERROR: BIT 1 WAS NOT SET.
     3546                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3547                            *
     3548         01 0105B           T013     EQU      %
     3549   01 0105B    22400040 A            LI,4     X'40'             SET WRITE DIRECT DATA BIT 25
     3550   01 0105C    ED400BBB              WD,4     *GPA9             SET FR1
     3551   01 0105D    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3552   01 0105E    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     3553   01 0105F    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3554   01 01060    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3555   01 01061    25700062 A            SLS,7    -30               RIGHT JUSTIFY DEVICE STATUS
     3556   01 01062    21700001 A            CI,7     1                 WAS DEVICE STATUS BIT 1 SET?
     3557   01 01063    68301065              BCR,3    %+2               BRANCH IF YES
     3558   01 01064    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3559   01 01065    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3560                            *
     3561                            *        TEST 14  TEST FUNCTION RESPONSE LINE FR2
     3562                            *
     3563                            * METHOD OF TEST: FR2 IS DRIVEN BY THE MS. A TIO
     3564                            *        INSTRUCTION IS EXECUTED.  BIT 2 OF THE DEVICE STATUS BYTE
     3565                            *        SHOULD BE SET.
     3566                            * REASON FOR ERROR: BIT 2 WAS NOT SET.
     3567                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3568                            *
     3569         01 01066           T014     EQU      %
     3570   01 01066    22400020 A            LI,4     X'20'             SET WRITE DIRECT DATA BIT 26
     3571   01 01067    ED400BBB              WD,4     *GPA9             SET FR2
     3572   01 01068    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3573   01 01069    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     3574   01 0106A    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3575   01 0106B    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3576   01 0106C    25700063 A            SLS,7    -29               RIGHT JUSTIFY DEVICE STATUS
     3577   01 0106D    21700001 A            CI,7     1                 WAS DEVICE STATUS BIT 2 SET?
     3578   01 0106E    68301070              BCR,3    %+2               BRANCH IF YES
     3579   01 0106F    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3580   01 01070    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3581                            *
     3582                            *        TEST 15  TEST FUNCTION RESPONSE LINE FR3
     3583                            *
     3584                            * METHOD OF TEST: FR3 IS DRIVEN IN THE MS. A TIO
     3585                            *        INSTRUCTION IS EXECUTED.  BIT 3 OF THE DEVICE STATUS BYTE
     3586                            *        SHOULD BE SET.
     3587                            * REASON FOR ERROR: BIT 3 WAS NOT SET.
     3588                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3589                            *
     3590         01 01071           T015     EQU      %
     3591   01 01071    22400010 A            LI,4     X'10'             SET WRITE DIRECT DATA BIT 27
     3592   01 01072    ED400BBB              WD,4     *GPA9             SET FR3
     3593   01 01073    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3594   01 01074    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     3595   01 01075    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3596   01 01076    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3597   01 01077    25700064 A            SLS,7    -28               RIGHT JUSTIFY DEVICE STATUS
     3598   01 01078    21700001 A            CI,7     1                 WAS DEVICE STATUS BIT 3 SET?
     3599   01 01079    6830107B              BCR,3    %+2               BRANCH IF YES
     3600   01 0107A    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3601   01 0107B    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3602                            *
     3603                            *        TEST 16  TEST FUNCTION RESPONSE LINE FR4
     3604                            *
     3605                            * METHOD OF TEST: FR4 IS DRIVEN IN THE MS. A TIO
     3606                            *        INSTRUCTION IS EXECUTED.  BIT 4 OF THE DEVICE STATUS BYTE
     3607                            *        SHOULD BE SET.
     3608                            * REASON FOR ERROR: BIT 4 WAS NOT SET.
     3609                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3610                            *
     3611         01 0107C           T016     EQU      %
     3612   01 0107C    22400008 A            LI,4     X'8'              SET WRITE DIRECT DATA BIT 28
     3613   01 0107D    ED400BBB              WD,4     *GPA9             FR4
     3614   01 0107E    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3615   01 0107F    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     3616   01 01080    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3617   01 01081    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3618   01 01082    25700065 A            SLS,7    -27               RIGHT JUSTIFY DEVICE STATUS
     3619   01 01083    21700001 A            CI,7     1                 WAS DEVICE STATUS BIT 4 SET?
     3620   01 01084    68301086              BCR,3    %+2               BRANCH IF YES
     3621   01 01085    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3622   01 01086    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3623                            *
     3624                            *        TEST 17  TEST FUNCTION RESPONSE LINE FR5
     3625                            *
     3626                            * METHOD OF TEST: FR5 IS DRIVEN BY THE MS. A TIO
     3627                            *        INSTRUCTION IS EXECUTED.  BIT 5 OF THE DEVICE STATUS BYTE
     3628                            *        SHOULD BE SET.
     3629                            * REASON FOR ERROR: BIT 5 WAS NOT SET.
     3630                            * INDICATION OF ERROR: ERROR NUMBER: ERR WORD 4 = CHANNEL NUMBER.
     3631                            *
     3632         01 01087           T017     EQU      %
     3633   01 01087    EDD00BBB              WD,13    *GPA9             SET FR5
     3634   01 01088    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3635   01 01089    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     3636   01 0108A    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3637   01 0108B    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3638   01 0108C    25700066 A            SLS,7    -26               RIGHT JUSTIFY DEVICE STATUS
     3639   01 0108D    21700001 A            CI,7     1                 WAS DEVICE STATUS BIT 5 SET?
     3640   01 0108E    68301090              BCR,3    %+2               BRANCH IF YES
     3641   01 0108F    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3642   01 01090    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3643                            *
     3644                            *        TEST 18  TEST FUNCTION RESPONSE LINE FR6
     3645                            *
     3646                            * METHOD OF TEST: FR6 IS DRIVEN BY THE MS. A TIO
     3647                            *        INSTRUCTION IS EXECUTED.  BIT 6 OF THE DEVICE STATUS BYTE
     3648                            *        SHOULD BE SET.
     3649                            * REASON FOR ERROR: BIT 6 WAS NOT SET.
     3650                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3651                            *
     3652         01 01091           T018     EQU      %
     3653   01 01091    ED200BBB              WD,2     *GPA9             SET FR6
     3654   01 01092    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3655   01 01093    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     3656   01 01094    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3657   01 01095    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3658   01 01096    25700067 A            SLS,7    -25               RIGHT JUSTIFY DEVICE STATUS
     3659   01 01097    21700001 A            CI,7     1                 WAS DEVICE STATUS BIT 6 SET?
     3660   01 01098    6830109A              BCR,3    %+2               BRANCH IF YES
     3661   01 01099    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3662   01 0109A    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3663                            *
     3664                            *        TEST 19  TEST FUNCTION RESPONSE LINE FR7
     3665                            *
     3666                            * METHOD OF TEST: FR7 IS DRIVEN BY THE MS. A TIO
     3667                            *        INSTRUCTION IS EXECUTED. BIT 7 OF THE DEVICE STATUS BYTE
     3668                            *        SHOULD BE SET.
     3669                            * REASON FOR ERROR: BIT 7 WAS NOT SET.
     3670                            * INDICATION OF ERROR: ERROR NUMBER; ERR WORD 4 = CHANNEL NUMBER.
     3671                            *
     3672         01 0109B           T019     EQU      %
     3673   01 0109B    ED100BBB              WD,1     *GPA9             SET FR7
     3674   01 0109C    6AF00AD9              BAL,15   PREPHS            PREPARE FOR SINGLE PHASEING IF ERROR
     3675   01 0109D    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     3676   01 0109E    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3677   01 0109F    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS IF ERROR
     3678   01 010A0    25700068 A            SLS,7    -24               RIGHT JUSTIFY DEVICE STATUS
     3679   01 010A1    21700001 A            CI,7     1                 WAS DEVICE STATUS BIT 7 SET?
     3680   01 010A2    683010A4              BCR,3    %+2               BRANCH IF YES
     3681   01 010A3    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3682   01 010A4    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3683                            *
     3684                            *        TEST 20  TEST CA (COMMAND ADDRESS) REGISTER
     3685                            *
     3686                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED AND THE FIRST
     3687                            *        CA (X'0001') IS SENT TO THE IOP. THE SEC-
     3688                            *        OND SIO INSTRUCTION IS EXECUTED WHICH WILL RETURN THE PREVIOUS
     3689                            *        CA AND SEND THE NEXT CA (X'0002').  THE RETURNED CA IS CHECKED
     3690                            *        FOR CORRECTNESS. THIS SEQUENCE IS CONTINUED UNTIL ALL CA'S HAVE
     3691                            *        BEEN CHECKED.
     3692                            *
     3693                            * REASON FOR ERROR: THE CORRECT CA WAS NOT RECEIVED.
     3694                            * INDICATION OF ERROR: ERROR NUMBER;
     3695                            *        ERR WORD 1 = CA EXPECTED;
     3696                            *        ERR WORD 2 = CA RECEIVED;
     3697                            *        ERR WORD 4 = CHANNEL NUMBER.
     3698                            *
     3699         01 010A5           T020     EQU      %
     3700   01 010A5    227FFFEF A            LI,7     -17               SET LOOP COUNT
     3701   01 010A6    33000299              MTW,0    TESTERR           IS THIS AN ERROR PASS
     3702   01 010A7    682010AB              BCR,2    %+4               BRANCH IF NOT
     3703   01 010A8    33100C97              MTW,1    %ERRWD1           RESTORE DECREMENTED CA
     3704   01 010A9    32000C97              LW,0     %ERRWD1           FETCH ERR CA
     3705   01 010AA    680010AC              B        %+2               DO NOT INITIALIZE CA
     3706   01 010AB    22000001 A            LI,0     1                 LOAD FIRST CMND. ADDR.
     3707   01 010AC    CC000D6B              SIO,0    *IOPTEST          SEND OUT FIRST CA
     3708   01 010AD    35000C97     T0200    STW,0    %ERRWD1           EXPECTED CA INTO ERR WORD 1
     3709   01 010AE    25000001 A            SLS,0    1                 SHIFT CA BY ONE
     3710   01 010AF    22400200 A            LI,4     X'200'            PHS RST BIT
     3711   01 010B0    ED400BBA              WD,4     *GPA8             RESET MS
     3712   01 010B1    6AF00A69              BAL,15   %IORST            RESET IO
     3713   01 010B2    CC800D6B              SIO,8    *IOPTEST          SEND NEXT CA, FETCH LAST CA
     3714   01 010B3    33F00C97              MTW,15   %ERRWD1           DECREMENT CA BY ONE
     3715   01 010B4    35800C98              STW,8    %ERRWD2           RECEIVED CA INTO ERR WORD 2
     3716   01 010B5    31800C97              CW,8     %ERRWD1           DOES RECEIVED CA = EXPECTED CA
     3717   01 010B6    683010CB              BCR,3    T020LOOP          IF SO, BRANCH
     3718   01 010B7    33000C1A              MTW,0    COMPFLAG          IS COMPARE TO BE MADE
     3719   01 010B8    683010C4              BCR,3    T020ERR           BRANCH IF NOT
     3720   01 010B9    33000294              MTW,0    PHSLATCH          IS THIS THE ERROR PASS
     3721   01 010BA    683010C4              BCR,3    T020ERR           BRANCH IF NOT
     3722   01 010BB    32400C97              LW,4     %ERRWD1           FETCH C REGISTER IMPLANT
     3723   01 010BC    20400001 A            AI,4     1                 RESTORE
     3724   01 010BD    6AF00DEA              BAL,15   CIMPLNT           IMPLANT C REGISTER IN THE COOKBOOK
     3725   01 010BE    00001812              DATA     020Q+20           LOCATION TO BE IMPLANTED
     3726   01 010BF    20400001 A            AI,4     1                 INCREMENT C REGISTER VALUE
     3727   01 010C0    6AF00DEA              BAL,15   CIMPLNT           IMPLANT THIS VALUE
     3728   01 010C1    00001819              DATA     020Q+27           LOCATION TO BE IMPLANTED
     3729   01 010C2    6AF00DEA              BAL,15   CIMPLNT           IMPLANT VALUE AGAIN
     3730   01 010C3    00001820              DATA     020Q+34           LOCATION TO BE IMPLANTED
     3731   01 010C4    6AF00AD9     T020ERR  BAL,15   PREPHS            PREPARE TO SINGLE PHASE IF ERROR
     3732   01 010C5    CC800D6B              SIO,8    *IOPTEST          REPEAT LAST SIO FOR SNAP
     3733   01 010C6    225FFFF9 A            LI,5     -7                SET SINGLE PHASE LOOP COUNT
     3734   01 010C7    6AF00A84              BAL,15   PHASNAP           SNAP DISPLAY GROUPS
     3735   01 010C8    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     3736   01 010C9    35100299              STW,1    TESTERR           SET TEST ERRORED FLAG
     3737   01 010CA    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3738   01 010CB    657010AD     T020LOOP BIR,7    T0200             LOOP UNTIL ALL BITS ARE TESTED
     3739   01 010CC    35E00299              STW,14   TESTERR           CLEAR TEST FAILURE FLAG
     3740   01 010CD    33000D70              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION?
     3741   01 010CE    681010D3              BCR,1    %+5               BRANCH IF NOT
     3742   01 010CF    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     3743   01 010D0    CC800D6B              SIO,8    *IOPTEST          EXECUTE SIO
     3744   01 010D1    225FFFF9 A            LI,5     -7                SET SINGLE PHASE LOOP COUNT
     3745   01 010D2    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     3746   01 010D3    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3747                            *
     3748                            *        TEST 21  SPARE TEST SLOT
     3749                            *
     3750   01 010D4    68000257     T021     B        RETURN
     3751                            *
     3752                            *        TEST 22  SPARE TEST SLOT
     3753                            *
     3754   01 010D5    68000257     T022     B        RETURN
     3755                            *
     3756                            *
     3757                            *        TEST 23  TEST DOWN COUNTING OF C REGISTER
     3758                            *
     3759                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED WHICH SENDS THE CA TO
     3760                            *        THE IOP. A TIO INSTRUCTION READS THE CA BACK.
     3761                            * REASON FOR ERROR: THE CA WAS NOT DECREMENTED PROPERLY.
     3762                            * INDICATION OF ERROR: ERROR NUMBER;
     3763                            *        ERR WORD 1 = ADDRESS EXPECTED BY THE TIO;
     3764                            *        ERR WORD 2 = ADDRESS RECEIVED BY THE TIO;
     3765                            *        ERR WORD 4 = CHANNEL NUMBER.
     3766                            *
     3767         01 010D6           T023     EQU      %
     3768   01 010D6    33000299              MTW,0    TESTERR           DID AN ERROR OCCUR ON THE LAST CA
     3769   01 010D7    683010DB              BCR,3    %+4               BRANCH IF NOT
     3770   01 010D8    33100C97              MTW,1    %ERRWD1           RESTORE C VALUE
     3771   01 010D9    32000C97              LW,0     %ERRWD1           DEDICATE R0 TO CMND ADDR
     3772   01 010DA    680010DF              B        %+5               DO NOT INITIALIZE CA
     3773   01 010DB    32000F9F              LW,0     X:FFFF            INITIALIZE FIRST CA
     3774   01 010DC    35000C97              STW,0    %ERRWD1           STORE IN 'EXPECTED' ADDRESS WORD
     3775   01 010DD    680010E1              B        %+4               DO NOT INCREMENT INITIAL CA
     3776   01 010DE    25000001 A   T023A    SLS,0    1                 FORM NEW COMMAND ADDRESS
     3777   01 010DF    4B000F9F              AND,0    X:FFFF            MASK FOR CA BITS ONLY
     3778   01 010E0    35000C97              STW,0    %ERRWD1           %ERRWD1 = CA EXPECTED
     3779   01 010E1    6AF00A69              BAL,15   %IORST            RESET IO
     3780   01 010E2    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING IF ERROR
     3781   01 010E3    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO, CA TO IOP
     3782   01 010E4    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3783   01 010E5    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     3784   01 010E6    35E00AD5              STW,14   ADDATA            CLEAR ADDATA DISPLAY FLAG
     3785   01 010E7    6AF00A69              BAL,15   %IORST            RESET I/O, NORMAL CLOCKING
     3786   01 010E8    CD800D6B              TIO,8    *IOPTEST          FETCH CA - 1
     3787   01 010E9    35800C98              STW,8    %ERRWD2           STORE IN 'RECEIVED' ADDRESS WORD
     3788   01 010EA    33F00C97              MTW,15   %ERRWD1           'EXPECTED' CA - 1
     3789   01 010EB    32400C97              LW,4     %ERRWD1           FETCH ADDRESS EXPECTED
     3790   01 010EC    4B400F9F              AND,4    X:FFFF            MASK OFF SIGN EXTENSION
     3791   01 010ED    31800004 A            CW,8     4                 DID IOP DECREMENT PROPERLY
     3792   01 010EE    693010F2              BCS,3    T023C             BRANCH IF NOT
     3793   01 010EF    33000C97     T023B    MTW,0    %ERRWD1           HAVE ALL CONFIGURATIONS BEEN TESTED
     3794   01 010F0    681010DE              BCR,1    T023A             LOOP IF TEST NOT FINISHED
     3795   01 010F1    680010FF              B        T023D             EXIT
     3796   01 010F2    33100257     T023C    MTW,1    RETURN            FORCE ERROR RETURN
     3797   01 010F3    35100299              STW,1    TESTERR           SET TEST ERRORED FLAG
     3798   01 010F4    33000C1A              MTW,0    COMPFLAG          IS COMPARE TO BE MADE
     3799   01 010F5    68300257              BCR,3    RETURN            BRANCH IF NOT
     3800   01 010F6    33000294              MTW,0    PHSLATCH          IS THIS THE ERROR PASS
     3801   01 010F7    68300257              BCR,3    RETURN            BRANCH IF NOT
     3802   01 010F8    32400C97              LW,4     %ERRWD1           FETCH C VALUE
     3803   01 010F9    20400001 A            AI,4     1                 RESTORE
     3804   01 010FA    6AF00DEA              BAL,15   CIMPLNT           IMPLANT COOKBOOK
     3805   01 010FB    00001843              DATA     023Q+20           LOCATION TO BE IMPLANTED
     3806   01 010FC    6AF00DEA              BAL,15   CIMPLNT           IMPLANT IN NEXT LOCATION
     3807   01 010FD    0000184A              DATA     023Q+27           LOCATION TO BE IMPLANTED
     3808   01 010FE    68001100              B        %+2               EXIT
     3809   01 010FF    35E00299     T023D    STW,14   TESTERR           CLEAR ERROR FLAG
     3810   01 01100    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3811                            *
     3812                            *        TEST 24  TEST ORDER OUT FOR PHASE SETTING AND ADDRESS LINE
     3813                            *
     3814                            * METHOD OF TEST: PRIOR TO EXECUTION OF EACH SIO, THE MEMORY LOCS
     3815                            *        SPECIFIED BY THE COMMAND DOUBLEWORD ARE SET
     3816                            *        TO CONTAIN THE ORDER 'AA'.  ADDRESS LINES ARE THEN
     3817                            *        TESTED BY ASKING FOR AN ORDER OUT AND CHECKING THE RECEIVED
     3818                            *        ORDER.  IT SHOULD BE 'AA'.
     3819                            *        AN SIO INSTRUCTION IS EXECUTED AND THE CA IS SENT TO THE IOP.
     3820                            *        AN SC IS SENT TO THE IOP. AN RS IS SENT TO THE IOP. IF THE
     3821                            *        ORDER IS CORRECT AND RSA IS SIGNALLED, THE NEXT ADDRESS IS
     3822                            *        TESTED.
     3823                            * REASON FOR ERROR: THE PROGRAM STOPPED EXECUTION OF THE TEST DUE TO
     3824                            *        A MALFUNCTION.
     3825                            * INDICATION OF ERROR: ERROR NUMBER.
     3826                            *        ERR WORD 1 =  ADDRESS IN TEST.
     3827                            *        ERR WORD 3 = 1   SC ISSUED TO IOP BUT NO ASC RECEIVED.
     3828                            *                   = 2   NO RSA RECEIVED AFTER RS WAS SENT TO THE IOP.
     3829                            *                   = 3   CORRECT ORDER NOT RECEIVED.
     3830                            *        ERR WORD 4 = CHANNEL NUMBER.
     3831                            *
     3832         01 01101           T024     EQU      %
     3833   01 01101    33000299              MTW,0    TESTERR           HAS AN ERROR OCCURRED
     3834   01 01102    68301106              BCR,3    T024B             BRANCH IF NOT
     3835   01 01103    32000C97              LW,0     %ERRWD1           FETCH ADDRESS IN ERROR
     3836   01 01104    2500007F A            SLS,0    -1                FORM CA FROM ADDRESS
     3837   01 01105    68001107              B        %+2               DO NOT INITIALIZE DBWRD ADDR.
     3838   01 01106    22001800 A   T024B    LI,0     X'1800'           SET INITIAL DOUBLEWORD ADDRESS
     3839   01 01107    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     3840   01 01108    25000001 A            SLS,0    1                 FORM ADDRESS FROM CA
     3841   01 01109    6AF00A69              BAL,15   %IORST            RESET IO
     3842   01 0110A    32500FAD              LW,5     AA000000          ORDER AA INTO
     3843   01 0110B    B5500000 A            STW,5    *0                 TEST ADDRESS
     3844   01 0110C    35000C97              STW,0    %ERRWD1           SAVE ADDRESS BEING TESTED
     3845   01 0110D    2500007F A            SLS,0    -1                RESTORE CA
     3846   01 0110E    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     3847   01 0110F    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     3848   01 01110    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3849   01 01111    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     3850   01 01112    ED400BB5              WD,4     *GPA3             PRESET GPA 3 FOR SNAPSHOTING
     3851   01 01113    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     3852   01 01114    225FFFF9 A            LI,5     -7                SET SINGLE PHASE LOOP COUNT
     3853   01 01115    6AF00AE3              BAL,15   PHSCLKX           CLOCK PHASES IF NO ERROR
     3854   01 01116    ECA00BB5              RD,10    *GPA3             READ FOR ASC AND RSA
     3855   01 01117    35A0000B A            STW,10   11                SAVE RETURNED RESPONSE FOR RSA COMP.
     3856   01 01118    4BA0000D A            AND,10   13                MASK FOR ASC
     3857   01 01119    6820112A              BCR,2    T024D             BRANCH IF ASC IS NOT RETURNED
     3858   01 0111A    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     3859   01 0111B    4BB00002 A            AND,11   2                 CHECK FOR RSA
     3860   01 0111C    6820112A              BCR,2    T024D             BRANCH IF NO RSA RETURNED
     3861   01 0111D    35300C99              STW,3    %ERRWD3           %ERRWD3 = 3
     3862   01 0111E    ECA00BB4              RD,10    *GPA2             FETCH ORDER
     3863   01 0111F    4BA01449              AND,10   X:FF              LEAVE ONLY ORDER
     3864   01 01120    21A000AA A            CI,10    170               IS THE ORDER CORRECT (170 = AA)
     3865   01 01121    6930112A              BCS,3    T024D             BRANCH IF NOT
     3866   01 01122    33000D70              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION?    *A02
     3867   01 01123    6930112B              BCS,3    T024D+1             IF SO, BRANCH                   *A02
     3868   01 01124    32000C97              LW,0     %ERRWD1           FETCH LAST ADDRESS TESTED
     3869   01 01125    20001000 A            AI,0     X'1000'           INCREMENT WORD ADDRESS BY X'1000'
     3870   01 01126    31000CE9              CW,0     MEMSIZE           COMPARE WITH MEMORY SIZE
     3871   01 01127    68101139              BCR,1    T024E             BRANCH IF MEMORY SIZE IS EXCEEDED
     3872   01 01128    2500007F A            SLS,0    -1                FORM DBWRD ADDR FROM WORD ADDR
     3873   01 01129    68001107              B        T024B+1           LOOP
     3874   01 0112A    33100257     T024D    MTW,1    RETURN            FORCE ERROR RETURN
     3875   01 0112B    35100299              STW,1    TESTERR           SET TEST ERRORED FLAG
     3876   01 0112C    33000C1A              MTW,0    COMPFLAG          IS COMPARE TO BE MADE
     3877   01 0112D    68300257              BCR,3    RETURN            BRANCH IF NOT
     3878   01 0112E    33000294              MTW,0    PHSLATCH          IS THIS THE ERROR PASS
     3879   01 0112F    68300257              BCR,3    RETURN            BRANCH IF NOT
     3880   01 01130    32400000 A            LW,4     0           FETCH TEST ADDRESS
     3881   01 01131    6AF00DEA              BAL,15   CIMPLNT           IMPLANT COOKBOOK
     3882   01 01132    0000186D              DATA     024Q+20           LOCATION TO BE IMPLANTED
     3883   01 01133    6AF00DEA              BAL,15   CIMPLNT           IMPLANT IN NEXT LOCATION
     3884   01 01134    00001874              DATA     024Q+27           LOCATION TO BE IMPLANTED
     3885   01 01135    20400001 A            AI,4     1                 RESTORE
     3886   01 01136    6AF00DEA              BAL,15   CIMPLNT           IMPLANT C REGISTER IN THE COOKBOOK
     3887   01 01137    0000189E              DATA     024Q+69           LOCATION TO BE IMPLANTED
     3888   01 01138    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3889   01 01139    35E00299     T024E    STW,14   TESTERR            OCCURRED FLAG
     3890   01 0113A    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3891                            *
     3892                            *        TEST 25  TEST ORDER OUT
     3893                            *
     3894                            * METHOD OF TEST: THIS TEST VERIFIES THAT AN ORDER OUT OPERATION CAN BE
     3895                            *        COMPLETED SUCCESSFULLY. AN SIO INSTRUCTION WILL BE EXECUTED
     3896                            *        AND THE CA WILL BE SENT TO THE IOP. AN SC WILL BE MADE BY THE
     3897                            *        MS. AN RS WILL BE SENT TO THE IOP FOR AN ORDER OUT. AN RS FOR A
     3898                            *        TERMINAL ORDER WILL BE SENT TO THE IOP.
     3899                            * REASON FOR ERROR: THE PROGRAM STOPPED EXECUTION OF THE TEST DUE TO A
     3900                            *        MALFUNCTION.  ERR WORD 3 INDICATES WHEN THE TEST STOPPED.
     3901                            * INDICATION OF ERROR: ERROR NUMBER;
     3902                            *        ERR WORD 3 = 1   SC ISSUED TO IOP BUT NO ASC WAS RETURNED.
     3903                            *                   = 2   NO RSA WAS RECEIVED AFTER THE FIRST RS;
     3904                            *                   = 3   NO RSA WAS RECEIVED AFTER THE SECOND RS;
     3905                            *                   = 4   NO ES WAS RECEIVED  AFTER THE SECOND RS;
     3906                            *        ERR WORD 4 = CHANNEL NUMBER.
     3907                            *
     3908         01 0113B           T025     EQU      %
     3909   01 0113B    220000A4              LI,0     DA(T025CP)        FETCH CA
     3910   01 0113C    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     3911   01 0113D    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     3912   01 0113E    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     3913   01 0113F    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3914   01 01140    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     3915   01 01141    ED400BB5              WD,4     *GPA3             PRESET GPA 3 FOR SNAPSHOTING
     3916   01 01142    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     3917   01 01143    225FFFFB A            LI,5     -5                LOAD NUMBER OF PHASES FOR THIS OPER.
     3918   01 01144    6AF00AE3              BAL,15   PHSCLKX           CLOCK PHASES IF NO ERROR
     3919   01 01145    ECA00BB5              RD,10    *GPA3             READ FOR ASC AND RSA
     3920   01 01146    35A0000B A            STW,10   11                SAVE RETURNED RESPONSE FOR RSA COMP.
     3921   01 01147    4BA0000D A            AND,10   13                MASK FOR ASC
     3922   01 01148    68201159              BCR,2    T025B             BRANCH IF ASC NOT RETURNED
     3923   01 01149    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     3924   01 0114A    4BB00002 A            AND,11   2                 MASK FOR FIRST RSA
     3925   01 0114B    68201159              BCR,2    T025B             BRANCH IF NO RSA
     3926   01 0114C    35100AD5              STW,1    ADDATA            SET ADDATA FLAG
     3927   01 0114D    ED400BB5              WD,4     *GPA3             PRESET GPA 3 FOR SNAPSHOTING
     3928   01 0114E    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     3929   01 0114F    225FFFFD A            LI,5     -3                LOAD NUMBER OF PHASES REMAINING
     3930   01 01150    6AF00AE3              BAL,15   PHSCLKX           CLOCK PHASES IF NO ERROR
     3931   01 01151    35300C99              STW,3    %ERRWD3           ERR WORD 3 = 3
     3932   01 01152    ECA00BB5              RD,10    *GPA3             READ IOP RESPONSE
     3933   01 01153    35A0000B A            STW,10   11                SAVE RESPONSE
     3934   01 01154    4BA00002 A            AND,10   2                 WAS RSA RETURNED
     3935   01 01155    68201159              BCR,2    T025B             BRANCH IF NOT
     3936   01 01156    35D00C99              STW,13    %ERRWD3           ERR WORD 3 = 4
     3937   01 01157    4BB00F9D              AND,11   X:4000            WAS ES RETURNED
     3938   01 01158    6920115A              BCS,2    %+2               BRANCH IF YES
     3939   01 01159    33100257     T025B    MTW,1    RETURN            FORCE ERROR RETURN
     3940   01 0115A    68000257              B        RETURN            EXIT
     3941                            *
     3942                            *
     3943                            *        TEST 26  TEST BC (BYTE COUNT) REGISTER
     3944                            *
     3945                            * METHOD OF TEST: THIS TEST VERIFIES THAT EACH BC BIT CAN BE SET SUC-
     3946                            *        CESSFULLY.  AN SIO INSTRUCTION WILL BE EXECUTED SENDING THE
     3947                            *        CA TO THE IOP. THE MS MAKES AN SC FOLLOWED BY AN RS FOR
     3948                            *        AN ORDER OUT.  THEN THE SECOND RS IS SENT FOR A TERMINAL OR-
     3949                            *        DER. A TIO INSTRUCTION IS EXECUTED WHICH WILL
     3950                            *        RETURN THE BYTE COUNT.
     3951                            * REASON FOR ERROR: INCORRECT BYTE COUNT RETURNED.
     3952                            * INDICATION OF ERROR: ERROR NUMBER;
     3953                            *        ERR WORD 1 = BYTE COUNT EXPECTED;
     3954                            *        ERR WORD 2 = BYTE COUNT RETURNED;
     3955                            *        ERR WORD 4 = CHANNEL NUMBER.
     3956                            *
     3957         01 0115B           T026     EQU      %
     3958   01 0115B    33000299              MTW,0    TESTERR           DID THIS TEST FAIL LAST TIME
     3959   01 0115C    6930115E              BCS,3    T026A             BRANCH IF YES
     3960   01 0115D    3510014B              STW,1    T026CP+1          INITIALIZE BC TO 1
     3961   01 0115E    5242014B     T026A    LH,4     T026CP+1,1        FETCH BYTE COUNT FROM IOCD
     3962   01 0115F    55420C97              STH,4    %ERRWD1,1         IOCD BYTE COUNT INTO ERR WORD 1
     3963   01 01160    6AF00A69              BAL,15   %IORST            RESET IO
     3964   01 01161    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     3965   01 01162    220000A5              LI,0     DA(T026CP)        FETCH CMND ADDR
     3966   01 01163    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     3967   01 01164    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     3968   01 01165    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     3969   01 01166    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     3970   01 01167    225FFFF9 A            LI,5     -7                LOAD NUMBER OF PHASES
     3971   01 01168    6AF00AE3              BAL,15   PHSCLKX           CLOCK PHASES IF NO ERROR
     3972   01 01169    35E00AD5              STW,14   ADDATA            CLEAR ADDATA DISPLAY FLAG
     3973   01 0116A    6AF00A69              BAL,15   %IORST            RESET IO
     3974   01 0116B    CDB00D6B              TIO,11   *IOPTEST          EXECUTE TIO TO FETCH BYTE COUNT
     3975   01 0116C    4BB00F9F              AND,11   X:FFFF            MASK OUT STATUS
     3976   01 0116D    55B20C98              STH,11   %ERRWD2,1         RETURNED BYTE COUNT TO ERR WORD 2
     3977   01 0116E    31B0014B              CW,11    T026CP+1          WAS BC REGISTER SET PROPERLY
     3978   01 0116F    69301176              BCS,3    T026B             BRANCH IF NOT
     3979   01 01170    3250014B              LW,5     T026CP+1          FETCH BC FROM IOCD
     3980   01 01171    25500001 A            SLS,5    1                 SET NEXT BIT FOR BC TEST
     3981   01 01172    3550014B              STW,5    T026CP+1          NEW BYTE COUNT TO IOCD
     3982   01 01173    21510000 A            CI,5     65536             HAVE ALL BITS BEEN TESTED
     3983   01 01174    6910115E              BCS,1    T026A             LOOP IF NOT
     3984   01 01175    68001182              B        T026C             EXIT
     3985   01 01176    33100257     T026B    MTW,1    RETURN            FORCE ERROR RETURN
     3986   01 01177    35100299              STW,1    TESTERR           SET TEST ERRORED FLAG
     3987   01 01178    33000C1A              MTW,0    COMPFLAG          IS COMPARE TO BE MADE
     3988   01 01179    68300257              BCR,3    RETURN            BRANCH IF NOT
     3989   01 0117A    33000294              MTW,0    PHSLATCH          IS THIS THE ERROR PASS
     3990   01 0117B    68300257              BCR,3    RETURN            BRANCH IF NOT
     3991   01 0117C    3240014B              LW,4     T026CP+1          FETCH BC TO BE IMPLANTED
     3992   01 0117D    6AF00DEA              BAL,15   CIMPLNT           IMPLANT THIS VALUE
     3993   01 0117E    00001962              DATA     026Q+83           LOCATION TO BE IMPLANTED
     3994   01 0117F    33F00004 A            MTW,15   4                 DECRENENT BC
     3995   01 01180    6AF00DEA              BAL,15   CIMPLNT           IMPLANT NEXT VALUE INTO COOKBOOK
     3996   01 01181    0000194D              DATA     026Q+62           LOCATION TO BE IMPLANTED
     3997   01 01182    35E00299     T026C    STW,14    TESTERR            OCCURRED FLAG
     3998   01 01183    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     3999                            *
     4000                            *
     4001                            *        TEST 27  TEST ORDER IN AND TERMINAL ORDER RESPONSE
     4002                            *
     4003                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4004                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO
     4005                            *        REQUESTED. AN SC IS SENT TO THE IOP, FOLLOWED BY AN RS FOR AN
     4006                            *        ORDER IN. AN RS FOR A TERMINAL ORDER IS SENT.
     4007                            * REASON FOR ERROR: RESPONSE FROM THE IOP WAS INCORRECT.
     4008                            * INDICATION OF ERROR: ERROR NUMBER;
     4009                            *        ERR WORD 3 = 1  ASC WAS NOT RETURNED AFTER THE SC FOR
     4010                            *                        THE ORDER IN;
     4011                            *                   = 2  PHTO(RSA AND NES) WAS NOT TRUE IN THE
     4012                            *                        MS FOLLOWING THE RS FOR THE ORDER IN
     4013                            *                   = 3  RSA WAS NOT TRUE FOLLOWING THE RS FOR
     4014                            *                        THE TERMINAL ORDER
     4015                            *        ERR WORD 4 = CHANNEL NUMBER
     4016                            *
     4017   01 01184    00000000 A   TSTERROR DATA     0                 SIGNIFIES T027 ERROR
     4018   01 01185    00000000 A   ORDFLG   DATA     0                 ORDER IN RSPONSE TO IOP
     4019         01 01186           T027     EQU      %
     4020   01 01186    32400FA9              LW,4     2C000001          CC,HTE,IUE, AND BC = 1
     4021   01 01187    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4022   01 01188    22500090 A            LI,5     144               ORDER IN = IE, CE (NOT USED)
     4023   01 01189    35501185              STW,5    ORDFLG            SAVE ORDER IN RESPONSE
     4024   01 0118A    226000B0 A            LI,6     176               TERM ORD = I, CC, IOPH (NOT USED)
     4025   01 0118B    356011D6              STW,6    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4026   01 0118C    35E01184              STW,14   TSTERROR          CLEAR ERROR FLAG
     4027   01 0118D    35101241              STW,1    INHIBIT           INHIBIT TERM. ORD. PASS         *A02
     4028   01 0118E    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4029   01 0118F    35E01241              STW,14   INHIBIT           RESET INHIBIT FLAG              *A02
     4030   01 01190    31E01184              CW,14    TSTERROR          DID AN ERROR OCCUR?
     4031   01 01191    68301193              BCR,3    %+2               BRANCH IF NOT
     4032   01 01192    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4033   01 01193    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4034                            *
     4035   01 01194    35F011D2     T0270    STW,15   27SAV             SAVE RETURN TO CALLING ROUTINE
     4036   01 01195    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     4037   01 01196    324011D5              LW,4     CPSAV             FETCH CMND PR FLAGS AND BYTE COUNT
     4038   01 01197    3540014D              STW,4    T0270CP+1         STORE FLAGS IN IOCD
     4039   01 01198    220000A6              LI,0     DA(T0270CP)       FETCH IOCD FOR SIO
     4040   01 01199    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     4041   01 0119A    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     4042   01 0119B    225FFFFA A            LI,5     -6                SET SINGLE PHASE LOOP COUNT
     4043   01 0119C    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     4044   01 0119D    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4045   01 0119E    225FFFF9 A            LI,5     -7                SET ORDER OUT PHASE COUNT
     4046   01 0119F    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4047   01 011A0    EDD00BBD              WD,13    *GPAB             SC FOR DATA OUT
     4048   01 011A1    225FFFFB A            LI,5     -5                LOAD NUMBER OF PHASES FOR DATA OUT
     4049   01 011A2    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     4050   01 011A3    ED400BB5              WD,4     *GPA3             ARM GRP ADDR 3
     4051   01 011A4    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL FOR ORD IN
     4052   01 011A5    330011EF              MTW,0    TERMPASS          IS TERMINAL ORDER TO BE READ?
     4053   01 011A6    693011AC              BCS,3    %+6               IF SO, BRANCH
     4054   01 011A7    ECA00BB5              RD,10    *GPA3             READ FOR ASC
     4055   01 011A8    4BA0000D A            AND,10   13                WAS ASC RETURNED
     4056   01 011A9    682011D3              BCR,2    T0270A            BRANCH IF NOT
     4057   01 011AA    ED400BB8              WD,4     *GPA6             ARM GPA6 FOR SNAPSHOTTING
     4058   01 011AB    680011B1              B        %+6               BRANCH AROUND T.O. PREP
     4059   01 011AC    32401185              LW,4     ORDFLG            LOAD ORDER IN RESPONSE TO MIOP
     4060   01 011AD    ED400BBB              WD,4     *GPA9             SET DATA BITS DA0-7
     4061   01 011AE    225FFFFD A            LI,5     -3                SET SINGLE PHASE LOOP CNT FOR ORDIN
     4062   01 011AF    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THRU PH01D1
     4063   01 011B0    680011B8              B        TBRANCH           DO NOT CHECK FOR RSA AND NES
     4064   01 011B1    225FFFFD A            LI,5     -3                SET SINGLE PHASE LOOP CNT FOR ORDIN
     4065   01 011B2    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE MIOP IF NO ERROR
     4066   01 011B3    ECA00BB8              RD,10    *GPA6             READ FOR PHTO
     4067   01 011B4    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     4068   01 011B5    4BA00F9B              AND,10   X:800             WAS PHTO SET
     4069   01 011B6    682011D3              BCR,2    T0270A            BRANCH IF NOT
     4070   01 011B7    35300C99              STW,3    %ERRWD3           ERR WORD 3 = 3
     4071   01 011B8    330011EF     TBRANCH  MTW,0    TERMPASS          CHECK TERM. ORD. PASS"
     4072   01 011B9    693011BB              BCS,3    %+2               BRANCH IF NOT
     4073   01 011BA    ED400BB5              WD,4     *GPA3             ARM GPA3 FOR SNAPSHOT
     4074   01 011BB    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4075   01 011BC    225FFFFE A            LI,5     -2                ONE PHASE FOR TO
     4076   01 011BD    6AF00AE3              BAL,15   PHSCLKX           PHASE CLOCK IF NO ERROR
     4077   01 011BE    330011EF              MTW,0    TERMPASS          CHECK TERM. ORD. PASS"
     4078   01 011BF    693011CB              BCS,3    TERMEXIT          BRANCH TO CHECK TERM ORD
     4079   01 011C0    33001241              MTW,0    INHIBIT           IS TERM PASS TO BE INHIBITED?
     4080   01 011C1    683011C7              BCR,3    TERMPREP          BRANCH IF INHIBIT IS NOT SET
     4081   01 011C2    35E011EF              STW,14   TERMPASS          RESET TERMPASS INDICATER
     4082   01 011C3    ECB00BB5              RD,11    *GPA3             READ FOR RSA
     4083   01 011C4    4BB00002 A            AND,11   2                 WAS RSA RETURNED
     4084   01 011C5    682011D3              BCR,2    T0270A            BRANCH IF NOT
     4085   01 011C6    E80011D2              B        *27SAV            RETURN TO CALLING ROUTINE
     4086   01 011C7    331011EF     TERMPREP MTW,1    TERMPASS          SET PASS COUNT
     4087   01 011C8    6AF00A6F              BAL,15   %IORSTX           I/O RESET, NOT SINGLE SERVICE
     4088   01 011C9    35E00AD5              STW,14   ADDATA            CLEAR ADDATA DISPLAY FLAG
     4089   01 011CA    68001196              B        T0270+2           MAKE ANOTHER PASS FOR THE T.O.
     4090   01 011CB    324011D6     TERMEXIT LW,4     TERMSAV           FETCH T.O. EXPECTED
     4091   01 011CC    35400C97              STW,4    %ERRWD1           EXPECTED RESPONSE TO ERR WORD 1
     4092   01 011CD    ECB00BB6              RD,11    *GPA4             FETCH TO RESPONSE
     4093   01 011CE    4BB01449              AND,11   X:FF              MASK
     4094   01 011CF    35B00C98              STW,11   %ERRWD2           RESPONSE TO ERRWD2
     4095   01 011D0    35E011EF              STW,14   TERMPASS          RESET PASS COUNTER
     4096   01 011D1    E80011D2              B        *27SAV            RETURN TO CALLING TEST
     4097   01 011D2    00000000 A   27SAV    DATA     0                 RETURN STORAGE DURING T0270
     4098   01 011D3    33101184     T0270A   MTW,1    TSTERROR          SET ERROR FLAG
     4099   01 011D4    E80011D2              B        *27SAV            RETURN TO CALLING TEST
     4100   01 011D5    00000000 A   CPSAV    DATA     0                 FLAGS AND BC FOR T0270
     4101   01 011D6    00000000 A   TERMSAV  DATA     0                 TERM ORD EXPECTED FOR T0270
     4102                            *
     4103   01 011D7    224000BB A   T0271    LI,4     187               X'BB'
     4104   01 011D8    35F011EE              STW,15   271SAV            SAVE R15 FOR RETURN
     4105   01 011D9    7540014E              STB,4    T0271CP           STORE IN ORDER FIELD OF IOCD
     4106   01 011DA    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     4107   01 011DB    ED400BB5              WD,4     *GPA3             ARM GRP ADDR 3
     4108   01 011DC    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4109   01 011DD    EC400BB5              RD,4     *GPA3             READ FOR ASC
     4110   01 011DE    4B40000D A            AND,4    13                WAS ASC RETURNED
     4111   01 011DF    682011EB              BCR,2    T0271A            BRANCH IF NOT
     4112   01 011E0    ED400BB5              WD,4     *GPA3             ARM GPA3 FOR SNAPSHOT
     4113   01 011E1    225FFFF9 A            LI,5     -7                SET SINGLE PHASE LOOP COUNT
     4114   01 011E2    6AF00AE3              BAL,15   PHSCLKX           CLOCK PHASES IF NO ERROR
     4115   01 011E3    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     4116   01 011E4    224000BB A            LI,4     X'BB'             ORDER EXPECTED
     4117   01 011E5    35400C97              STW,4    %ERRWD1           STORE IN EXPECTED RESPONSE WORD
     4118   01 011E6    ECA00BB5              RD,10    *GPA3             READ FOR RSA
     4119   01 011E7    4BA00002 A            AND,10   2                 WAS RSA RETURNED
     4120   01 011E8    682011EB              BCR,2    T0271A            BRANCH IF NOT
     4121   01 011E9    ECA00BB4              RD,10    *GPA2             READ FOR ORDER
     4122   01 011EA    E80011EE              B        *271SAV           RETURN TO CALLING ROUTINE
     4123   01 011EB    33101184     T0271A   MTW,1    TSTERROR          SET ERROR FLAG
     4124   01 011EC    EDD00BBF              WD,13    *GRP0             RESET I/O VIA MS WRITE DIRECT
     4125   01 011ED    E80011EE              B        *271SAV           BRANCH TO CALLING ROUTINE
     4126   01 011EE    00000000 A   271SAV   DATA     0                 R15 STORAGE DURING T0271
     4127   01 011EF    00000000 A   TERMPASS DATA     0                 SET = ENABLE TERM ORD PASS
     4128                            *
     4129                            *        TEST 28  TEST ORDER IN, TERMINAL ORDER, AND CERTAIN FS
     4130                            *
     4131                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4132                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED.
     4133                            *        AN SC IS SENT TO THE IOP, FOLLOWED BY AN RS FOR AN ORDER IN.
     4134                            *        AN RS IS SENT FOR A TERMINAL ORDER. THE FS SENT TO
     4135                            *        THE IOP DURING THE ORDER OUT IS: (1) CC, (2) HTE, (3) IUE. THE
     4136                            *        INFORMATION SENT TO THE IOP DURING THE ORDER IN IS: (1) TE,
     4137                            *        (2) CE.  THE RESULT EXPECTED DURING THE TERMINAL ORDER PHASE
     4138                            *        OF THE ORDER IN IS: (1) I , (2) CC, (3) IOP HALT.
     4139                            * REASON FOR ERROR: INCORRECT IOP RESPONSE.
     4140                            * INDICATION OF ERROR: ERROR NUMBER;
     4141                            *        ERR WORD 1 =   TERMINAL ORDER EXPECTED;
     4142                            *        ERR WORD 2 =   TERMINAL ORDER RECEIVED;
     4143                            *        ERR WORD 4 =   CHANNEL NUMBER.
     4144                            *
     4145         01 011F0           T028     EQU      %
     4146   01 011F0    3500014E              STW,0    T0271CP           CLEAR CMND DBWRD
     4147   01 011F1    32400FA9              LW,4     2C000001          CC,HTE,IUE, AND BC = 1
     4148   01 011F2    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4149   01 011F3    22500090 A            LI,5     144               ORDER IN = TE, CE
     4150   01 011F4    35501185              STW,5    ORDFLG            SAVE ORD IN RESPONSE
     4151   01 011F5    226000B0 A            LI,6     X'B0'             TERMINAL ORDER = CC, I, AND IOP HALT
     4152   01 011F6    356011D6              STW,6    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4153   01 011F7    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4154   01 011F8    31B00C97              CW,11    %ERRWD1           WAS TERM ORD RESPONSE CORRECT
     4155   01 011F9    683011FB              BCR,3    %+2               BRANCH IF YES
     4156   01 011FA    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4157   01 011FB    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4158                            *
     4159                            *        TEST 29  TEST ORDER IN, TERMINAL ORDER, AND CERTAIN FS
     4160                            *
     4161                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4162                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED. AN
     4163                            *        SC IS ALSO SENT TO THE IOP, FOLLOWED BY AN ORDER IN. AN RS IS
     4164                            *        SENT FOR A TERMINAL ORDER. THE FS SENT TO
     4165                            *        THE IOP DURING THE ORDER OUT IS: (1) HTE, (2) IUE.  THE INFOR-
     4166                            *        MATION SENT TO THE IOP DURING THE ORDER IN IS: (1) IL, (2) CE.
     4167                            *        THE RESULT EXPECTED DURING THE TERMINAL ORDER PHASE OF THE OR-
     4168                            *        DER IN IS: (1)I, (2) IOP HALT.
     4169                            * REASON FOR ERROR: INCORRECT IOP RESPONSE.
     4170                            * INDICATION OF ERROR: ERROR NUMBER;
     4171                            *        ERR WORD 1 =   TERMINAL ORDER EXPECTED;
     4172                            *        ERR WORD 2 =   TERMINAL ORDER RECEIVED;
     4173                            *        ERR WORD 4 =   CHANNEL NUMBER.
     4174                            *
     4175         01 011FC           T029     EQU      %
     4176   01 011FC    32400FA7              LW,4     0C000001          FLAGS = HTE AND IUE; BC = 1
     4177   01 011FD    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4178   01 011FE    22500050 A            LI,5     80                ORDER IN = IL, CE
     4179   01 011FF    35501185              STW,5    ORDFLG            ORD IN RESPONSE
     4180   01 01200    22600090 A            LI,6     144               TERM ORDER = I, IOP HALT
     4181   01 01201    356011D6              STW,6    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4182   01 01202    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4183   01 01203    31B00C97              CW,11    %ERRWD1           WAS TERM ORDER RESPONSE CORRECT
     4184   01 01204    68301206              BCR,3    %+2               BRANCH IF YES
     4185   01 01205    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4186   01 01206    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4187                            *
     4188                            *        TEST 30  TEST ORDER IN, TERMINAL ORDER, AND CERTAIN FS
     4189                            *
     4190                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4191                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED. AN
     4192                            *        SC IS SENT TO THE IOP, FOLLOWED BY AN RS FOR AN ORDER IN. AN RS
     4193                            *        IS SENT FOR A TERMINAL ORDER. THE FS IS SENT TO
     4194                            *        THE IOP DURING THE ORDER OUT IS: (1)ICE.  THE INFORMATION SENT
     4195                            *        TO THE IOP DURING THE ORDER IN IS: (1) CE.  THE RESULT EXPEC-
     4196                            *        TED DURING THE TERMINAL ORDER PHASE OF THE ORDER IN IS: (1) I.
     4197                            * REASON FOR ERROR: INCORRECT IOP RESPONSE.
     4198                            * INDICATION OF ERROR: ERROR NUMBER;
     4199                            *        ERR WORD 1 =   TERMINAL ORDER EXPECTED;
     4200                            *        ERR WORD 2 =   TERMINAL ORDER RECEIVED;
     4201                            *        ERR WORD 4 =   CHANNEL NUMBER.
     4202                            *
     4203         01 01207           T030     EQU      %
     4204   01 01207    32400FBB              LW,4     ICE               FLAGS = ICE;  BC = 1
     4205   01 01208    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4206   01 01209    22500010 A            LI,5     16                ORDER IN = CE
     4207   01 0120A    35501185              STW,5    ORDFLG            ORD IN RESPONSE
     4208   01 0120B    22600080 A            LI,6     128               TERM ORDER = I
     4209   01 0120C    356011D6              STW,6    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4210   01 0120D    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4211   01 0120E    31B00C97              CW,11    %ERRWD1           WAS TERM ORD RESPONSE CORRECT
     4212   01 0120F    68301211              BCR,3    %+2               BRANCH IF YES
     4213   01 01210    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4214   01 01211    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4215                            *
     4216                            *        TEST 31  TEST ORDER IN, TERMINAL ORDER, AND CERTAIN FS
     4217                            *
     4218                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOW BY AN SC AND AN
     4219                            *        RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED. AN SC
     4220                            *        IS SENT TO THE IOP, FOLLOWED BY AN RS FOR AN ORDER IN. AN RS IS
     4221                            *        SENT FOR A TERMINAL ORDER. THE FS SENT TO
     4222                            *        THE IOP DURING THE ORDER OUT IS: (1)IUE.  THE INFORMATION SENT
     4223                            *        TO THE IOP DURING THE ORDER IN IS: (1) UE.  THE RESULT EXPEC-
     4224                            *        TED DURING THE TERMINAL ORDER PHASE OF THE ORDER IN IS: (1) I.
     4225                            * REASON FOR ERROR: INCORRECT IOP RESPONSE.
     4226                            * INDICATION OF ERROR: ERROR NUMBER;
     4227                            *        ERR WORD 1 =   TERMINAL ORDER EXPECTED;
     4228                            *        ERR WORD 2 =   TERMINAL ORDER RECEIVED;
     4229                            *        ERR WORD 4 =   CHANNEL NUMBER.
     4230                            *
     4231         01 01212           T031     EQU      %
     4232   01 01212    32400FBC              LW,4     IUE               FLAGS = IUE;  BC = 1
     4233   01 01213    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4234   01 01214    22500008 A            LI,5     8                 ORDER IN = UE
     4235   01 01215    35501185              STW,5    ORDFLG            ORD IN RESPONSE
     4236   01 01216    22600080 A            LI,6     128               TERM ORDER = I
     4237   01 01217    356011D6              STW,6    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4238   01 01218    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4239   01 01219    31B00C97              CW,11    %ERRWD1           WAS TERM ORD RESPONSE CORRECT
     4240   01 0121A    6830121C              BCR,3    %+2               BRANCH IF YES
     4241   01 0121B    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4242   01 0121C    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4243                            *
     4244                            *        TEST 32  TEST ORDER IN, TERMINAL ORDER, AND CERTAIN FS
     4245                            *
     4246                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4247                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED. AN
     4248                            *        SC IS SENT TO THE IOP, FOLLOWED BY AN RS FOR AN ORDER IN. AN RS
     4249                            *        IS SENT FOR A TERMINAL ORDER. THE FS SENT TO
     4250                            *        THE IOP DURING THE ORDER OUT IS: (1) HTE, (2) SIL.  THE INFOR-
     4251                            *        MATION SENT TO THE IOP DURING THE ORDER IN IS: (1) IL, (2) CE.
     4252                            *        THERE SHOULD NOT BE ANY RESPONSE DURING THE TERMINAL ORDER
     4253                            *        PHASE OF THE ORDER IN.
     4254                            * REASON FOR ERROR: INCORRECT IOP RESPONSE.
     4255                            * INDICATION OF ERROR: ERROR NUMBER;
     4256                            *        ERR WORD 1 =   TERMINAL ORDER EXPECTED;
     4257                            *        ERR WORD 2 =   TERMINAL ORDER RECEIVED;
     4258                            *        ERR WORD 4 =   CHANNEL NUMBER.
     4259                            *
     4260         01 0121D           T032     EQU      %
     4261   01 0121D    32400FA6              LW,4     0A000001          SIO FLAGS = HTE,SIL;  BC = 1
     4262   01 0121E    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4263   01 0121F    22500050 A            LI,5     80                ORDER IN = IL, CE
     4264   01 01220    35501185              STW,5    ORDFLG            ORD IN RESPONSE
     4265   01 01221    35E011D6              STW,14   TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4266   01 01222    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4267   01 01223    31B00C97              CW,11    %ERRWD1           WAS TERM ORDER RESPONSE CORRECT
     4268   01 01224    68301226              BCR,3    %+2               BRANCH IF YES
     4269   01 01225    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4270   01 01226    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4271                            *
     4272                            *        TEST 33  TEST ORDER IN, TERMINAL ORDER, AND FS15 (CM)
     4273                            *
     4274                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4275                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED.
     4276                            *        AN SC IS SENT TO THE IOP, FOLLOWED BY AN RS FOR AN ORDER IN. AN
     4277                            *        RS IS SENT FOR A TERMINAL ORDER. THE FS SENT TO
     4278                            *        THE IOP DURING THE ORDER OUT IS: (1) CC.  THE INFORMATION SENT
     4279                            *        TO THE IOP DURING THE ORDER IN IS: (1) CM.  THE RESULT EXPEC-
     4280                            *        TED DURING THE TERMINAL ORDER PHASE OF THE ORDER IN IS: (1)CC.
     4281                            * REASON FOR ERROR: INCORRECT IOP RESPONSE.
     4282                            * INDICATION OF ERROR: ERROR NUMBER;
     4283                            *        ERR WORD 1 =   TERMINAL ORDER EXPECTED;
     4284                            *        ERR WORD 2 =   TERMINAL ORDER RECEIVED;
     4285                            *        ERR WORD 4 =   CHANNEL NUMBER.
     4286                            *
     4287         01 01227           T033     EQU      %
     4288   01 01227    35E0014E              STW,14   T0271CP           CLEAR OLD FLAGS
     4289   01 01228    32400FB9              LW,4     CC                FLAGS = CC;  BC = 1
     4290   01 01229    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4291   01 0122A    22500020 A            LI,5     32                ORDER IN = CM
     4292   01 0122B    35501185              STW,5    ORDFLG            ORD IN RESPONSE
     4293   01 0122C    355011D6              STW,5    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4294   01 0122D    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4295   01 0122E    31B00C97              CW,11    %ERRWD1           WAS TERM ORDER RESPONSE CORRECT
     4296   01 0122F    68301231              BCR,3    %+2               BRANCH IF YES
     4297   01 01230    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4298   01 01231    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4299                            *
     4300                            *        TEST 34  TEST RESPONSE TO CM DURING TERMINAL ORDER
     4301                            *
     4302                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4303                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED. AN
     4304                            *        SC IS SENT TO THE IOP,FOLLOWED BY AN RS FOR AN ORDER IN. AN RS
     4305                            *        IS SENT FOR A TERMINAL ORDER. AN SC IS SENT TO THE IOP. AN RS
     4306                            *        IS SENT TO THE IOP FOR AN ORDER OUT. THE FS SENT TO THE IOP
     4307                            *        DURING THE ORDER
     4308                            *        OUT IS: (1) CC.  THE INFORMATION SENT TO THE IOP DURING THE
     4309                            *        ORDER IN IS: (1) CM.  THE RESULT EXPECTED DURING THE TERMINAL
     4310                            *        ORDER PHASE OF THE ORDER IN IS: (1) CC.
     4311                            * REASON FOR ERROR: IOP RESPONSE NOT CORRECT
     4312                            * INDICATION OF ERROR: ERROR NUMBER;
     4313                            *        ERR WORD 3 = 1   ASC NOT RETURNED AFTER SC;
     4314                            *                   = 2   RSA NOT RETURNED AFTER RS;
     4315                            *        ERR WORD 4 = CHANNEL NUMBER.
     4316                            *
     4317         01 01232           T034     EQU      %
     4318   01 01232    35E0014E              STW,14   T0271CP           CLEAR CMND DBWRD
     4319   01 01233    32400FB9              LW,4     CC                FLAGS = CC;  BC = 1
     4320   01 01234    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4321   01 01235    22500020 A            LI,5     32                ORDER IN = CM
     4322   01 01236    355011D6              STW,5    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4323   01 01237    35101241              STW,1    INHIBIT           INHIBIT TERMPASS
     4324   01 01238    35501185              STW,5    ORDFLG            SAVE ORDER IN RESPONSE
     4325   01 01239    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4326   01 0123A    35E01184              STW,14   TSTERROR          CLEAR T27 ERR FLAG
     4327   01 0123B    35E01241              STW,14   INHIBIT           CLEAR TERMPASS INHIBIT
     4328   01 0123C    6AF011D7              BAL,15   T0271             GO TO TEST ROUTINE
     4329   01 0123D    31E01184              CW,14    TSTERROR          DID AN ERROR OCCUR
     4330   01 0123E    68301240              BCR,3    %+2               BRANCH IF NOT
     4331   01 0123F    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4332   01 01240    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4333   01 01241    00000000 A   INHIBIT  DATA     0
     4334                            *
     4335                            *        TEST 35  TEST RESPONSE TO CM
     4336                            *
     4337                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4338                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED. AN
     4339                            *        SC IS SENT TO THE IOP, FOLLOWED BY AN RS FOR AN ORDER IN. AN RS
     4340                            *        IS SENT FOR A TERMINAL ORDER. AN SC IS SENT TO THE IOP. AN RS
     4341                            *        IS SENT TO THE IOP
     4342                            *        FOR THE ORDER OUT.  THE ORDER EXPECTED IS 'BB'.  THE SEQUENCE
     4343                            *        OF SIGNALS IS THE SAME AS FOR THE PREVIOUS TEST.  BECAUSE OF
     4344                            *        COMMAND CHAINING, PH4D1 SHOULD BE REPEATED ONCE TO INCREMENT
     4345                            *        THE CA FOR SKIPPING ONE COMMAND DOUBLEWORD.
     4346                            * REASON FOR ERROR: CORRECT ORDER WAS NOT RECEIVED.
     4347                            * INDICATION OF ERROR: ERROR NUMBER;
     4348                            *        ERR WORD 1 = EXPECTED ORDER;
     4349                            *        ERR WORD 2 = RECEIVED ORDER;
     4350                            *        ERR WORD 4 = CHANNEL NUMBER.
     4351                            *
     4352         01 01242           T035     EQU      %
     4353   01 01242    3500014E              STW,0  T0271CP             CLEAR CMND DBWRD
     4354   01 01243    32400FB9              LW,4     CC                FLAGS = CC;  BC = 1
     4355   01 01244    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4356   01 01245    22500020 A            LI,5     32                ORDER IN = CM
     4357   01 01246    22500020 A            LI,5     32                TERMINAL ORDER = CC
     4358   01 01247    356011D6              STW,6    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4359   01 01248    35101241              STW,1    INHIBIT           INHIBIT TERMPASS
     4360   01 01249    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4361   01 0124A    35E01241              STW,14   INHIBIT           CLEAR INHIBIT FLAG
     4362   01 0124B    6AF011D7              BAL,15   T0271             GO TO TEST ROUTINE
     4363   01 0124C    4BA00F9C              AND,10   X:AFF             MASK TO DELETE UNIMPORTANT RESPONSE
     4364   01 0124D    31A00C97              CW,10    %ERRWD1           IS RESPONSE AND ORDER CORRECT
     4365   01 0124E    68301251              BCR,3    %+3               BRANCH IF YES
     4366   01 0124F    35A00C98              STW,10   %ERRWD2           ERR WORD 2 = RECEIVED RESPONSE
     4367   01 01250    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4368   01 01251    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4369                            *
     4370                            *        TEST 36  TEST TRANSFER IN CHANNEL
     4371                            *
     4372                            * METHOD OF TEST: THE FIRST COMMAND DOUBLEWORD CONTAINS A TIC (TRANSFER
     4373                            *        IN CHANNEL) ORDER.  THE SECOND COMMAND DOUBLEWORD HAS THE OR-
     4374                            *        DER AA. AN SIO INSTRUCTION IS EXECUTED. AN SC IS SENT TO THE
     4375                            *        IOP, FOLLOWED BY AN RS FOR AN ORDER OUT. AN RS IS SENT TO THE
     4376                            *        IOP FOR A TERMINAL ORDER.
     4377                            * REASON FOR ERROR: IMPROPER IOP RESPONSE.
     4378                            * INDICATION OF ERROR: ERROR NUMBER;
     4379                            *        ERR WORD 1 = RESULT EXPECTED BY MS;
     4380                            *        ERR WORD 2 = RESULT RECEIVED BY MS;
     4381                            *        ERR WORD 3 = 1  CORRECT ORDER (AA), NES, OR RSA NOT RECEIVED;
     4382                            *                   = 2  CORRECT TERMINAL ORDER (00), RSA, OR ES
     4383                            *
     4384                            *        ERR WORD 4 = CHANNEL NUMBER.
     4385                            *
     4386         01 01252           T036     EQU      %
     4387   01 01252    224000AA A            LI,4     X'AA'             RESPONSE EXPECTED TO 1ST CMND DBWRD
     4388   01 01253    3540128D              STW,4    ORDFLG1           1ST RESPONSE EXPECTED
     4389   01 01254    225099AA A            LI,5     X'99AA'           RESPONSE EXPECTED TO 2ND CMND DBWRD
     4390   01 01255    3550128E              STW,5    ORDFLG2           2ND RESPONSE EXPECTED
     4391   01 01256    32F00FC0              LW,15    TIC               TIC ORDER
     4392   01 01257    49F00156              OR,15    T0360CA           MERGE DA OF T0360CP1
     4393   01 01258    35F00152              STW,15   T0360CP           FIRST IOCD HAS TIC TO T0360CP1
     4394   01 01259    6AF0125E              BAL,15   T0360             GO TO TEST
     4395   01 0125A    31E01184              CW,14    TSTERROR          DID ERR FLAG GET SET?
     4396   01 0125B    6830125D              BCR,3    %+2               BRANCH IF NOT
     4397   01 0125C    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4398   01 0125D    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4399   01 0125E    220000A9     T0360    LI,0     DA(T0360CP)       FETCH IOCD FOR TEST
     4400   01 0125F    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     4401   01 01260    35F0128C              STW,15   36SAV             SAVE RETURN
     4402   01 01261    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     4403   01 01262    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     4404   01 01263    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     4405   01 01264    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE MIOP IF NO ERROR
     4406   01 01265    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4407   01 01266    ED400BB5              WD,4     *GPA3             PRESET GPA3 FOR SNAPSHOTTING
     4408   01 01267    225FFFF9 A            LI,5     -7                LOAD NUMBER OF PHASES
     4409   01 01268    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE IF NO ERROR
     4410   01 01269    35E01184              STW,14   TSTERROR          RESET ERROR FLAG
     4411   01 0126A    ECA00BB4              RD,10    *GPA2             READ IOP RESPONSE
     4412   01 0126B    4BA01449              AND,10   X:FF              MASK
     4413   01 0126C    35A00C98              STW,10   %ERRWD2           RECEIVED RESPONSE INTO ERR WORD 2
     4414   01 0126D    3240128D              LW,4     ORDFLG1           FETCH ORDER EXPECTED
     4415   01 0126E    35400C97              STW,4    %ERRWD1           EXPECTED RESPONSE INTO ERR WORD 1
     4416   01 0126F    31A00C97              CW,10    %ERRWD1           WAS ORDER CORRECT
     4417   01 01270    6930128A              BCS,3    T0360A            BRANCH IF NOT
     4418   01 01271    ECA00BB5              RD,10    *GPA3             READ FOR RSA AND NES
     4419   01 01272    35A0000B A            STW,10   11                SAVE FOR NES CHECK
     4420   01 01273    4BA00002 A            AND,10   2                 WAS RSA RETURNED
     4421   01 01274    6820128A              BCR,2    T0360A            BRANCH IF NOT
     4422   01 01275    4BB00F9D              AND,11   X:4000            WAS NES RETURNED
     4423   01 01276    6920128A              BCS,2    T0360A            BRANCH IF NOT
     4424   01 01277    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4425   01 01278    ED400BB5              WD,4     *GPA3             ARM GPA3
     4426   01 01279    35100AD5              STW,1    ADDATA            SET ADDATA FLAG
     4427   01 0127A    225FFFFD A            LI,5     -3                SINGLE PHASE THRU TERM ORD
     4428   01 0127B    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE IF NO ERROR
     4429   01 0127C    3250128E              LW,5     ORDFLG2           FETCH 2ND RESPONSE EXPECTED
     4430   01 0127D    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     4431   01 0127E    35500C97              STW,5    %ERRWD1           EXPECTED RESPONSE TO ERR WORD 1
     4432   01 0127F    ECA00BB4              RD,10    *GPA2             READ FOR TERMINAL ORDER
     4433   01 01280    4BA00F9F              AND,10   X:FFFF            MASK FOR ORDER
     4434   01 01281    35A00C98              STW,10   %ERRWD2           RECEIVED RESPONSE INTO ERR WORD 2
     4435   01 01282    31A00C97              CW,10    %ERRWD1           WAS ORDER CORRECT
     4436   01 01283    6930128A              BCS,3    T0360A            BRANCH IF INCORRECT ORDER
     4437   01 01284    ECA00BB5              RD,10    *GPA3             READ FOR RSA AND ES
     4438   01 01285    35A0000B A            STW,10   11                SAVE RESPONSE FOR ES COMPARE
     4439   01 01286    4BA00002 A            AND,10   2                 WAS RSA RETURNED
     4440   01 01287    6820128A              BCR,2    T0360A            BRANCH IF NOT
     4441   01 01288    4BB00F9D              AND,11   X:4000            WAS ES RETURNED
     4442   01 01289    6920128B              BCS,2    %+2               BRANCH IF SET
     4443   01 0128A    35101184     T0360A   STW,1    TSTERROR          SET ERROR OCCURRED FLAG
     4444   01 0128B    E800128C              B        *36SAV            RETURN TO CALLING ROUTINE
     4445   01 0128C    00000000 A   36SAV    DATA     0                 RETURN STORAGE DURING T0360
     4446   01 0128D    00000000 A   ORDFLG1  DATA     0                 1ST ORDER EXPECTED
     4447   01 0128E    00000000 A   ORDFLG2  DATA     0                 2ND ORDER EXPECTED
     4448                            *
     4449                            *        TEST 37  TEST TWO SUCCESSIVE TIC (TRANSFER IN CHANNEL) ORDERS
     4450                            *
     4451                            * METHOD OF TEST: THE COMMAND DOUBLEWORD CONTAINS A TIC TO ITSELF.
     4452                            *        AN SIO INSTRUCTION IS EXECUTED. AN SC IS SENT TO THE IOP,
     4453                            *        FOLLOWED BY AN RS FOR AN ORDER OUT, FOLLOWED BY AN RS FOR A
     4454                            *        TERMINAL ORDER
     4455                            *        WHICH SHOULD BE: (1) IOP HALT.
     4456                            * REASON FOR ERROR: IOP RESPONSE NOT CORRECT.
     4457                            * INDICATION OF ERROR: ERROR NUMBER;
     4458                            *        ERR WORD 1 = RESULT EXPECTED BY MS;
     4459                            *        ERR WORD 2 = RESULT RECEIVED BY MS;
     4460                            *        ERR WORD 3 = 1  CORRECT ORDER (08), NES, OR RSA NOT RETURNED
     4461                            *                   = 2  CORRECT TERMINAL ORDER (10), RSA, OR ES
     4462                            *                        NOT RECEIVED;
     4463                            *        ERR WORD 4 = CHANNEL NUMBER.
     4464                            *
     4465         01 0128F           T037     EQU      %
     4466   01 0128F    22400008 A            LI,4     8                 RESPONSE EXPECTED 1
     4467   01 01290    3540128D              STW,4    ORDFLG1           STORE RESPONSE 1
     4468   01 01291    2250A908 A            LI,5     X'A908'           RESPONSE EXPECTED 2
     4469   01 01292    3550128E              STW,5    ORDFLG2           STORE RESPONSE EXPECTED 2
     4470   01 01293    32F00FC0              LW,15    TIC               TIC ORDER
     4471   01 01294    49F00FC1              OR,15    TIC2              FORM TIC TO T0360
     4472   01 01295    35F00152              STW,15   T0360CP           STORE IN T0360
     4473   01 01296    6AF0125E              BAL,15   T0360             GO TO TEST
     4474   01 01297    31E01184              CW,14    TSTERROR          DID ERR FLAG GET SET?
     4475   01 01298    6830129A              BCR,3    %+2               BRANCH IF NOT
     4476   01 01299    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4477   01 0129A    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4478                            *
     4479                            *        TEST 38  TEST IOP STATUS AFTER 2 TIC'S
     4480                            *
     4481                            * METHOD OF TEST: THE COMMAND DOUBLEWORD CONTAINS A TIC TO ITSELF.
     4482                            *        AN SIO INSTRUCTION IS EXECUTED. AN SC IS SENT TO THE IOP,
     4483                            *        FOLLOWED BY AN RS FOR AN ORDER OUT. AN RS FOR A TERMINAL ORDER
     4484                            *        IS SENT TO THE IOP. A TIO INSTRUCTION IS EXECUTED TO
     4485                            *        FETCH THE IOP STATUS WHICH SHOULD BE: (1) IOP CONTROL ERROR,
     4486                            *        AND (2) IOP HALT.
     4487                            * REASON FOR ERROR: INCORRECT IOP STATUS.
     4488                            * INDICATION OF ERROR: ERROR NUMBER;
     4489                            *        ERR WORD 1 = EXPECTED IOP RESPONSE;
     4490                            *        ERR WORD 2 = RECEIVED IOP RESPONSE;
     4491                            *        ERR WORD 4 = CHANNEL NUMBER.
     4492                            *
     4493         01 0129B           T038     EQU      %
     4494   01 0129B    22400008 A            LI,4     X'8'              RESPONSE EXPECTED 1
     4495   01 0129C    2250A908 A            LI,5     X'A908'           RESPONSE EXPECTED 2
     4496   01 0129D    3550128E              STW,5    ORDFLG2           STORE SECOND RESPONSE EXPECTED
     4497   01 0129E    3540128D              STW,4    ORDFLG1           STORE FIRST RESPONSE EXPECTED
     4498   01 0129F    32F00FC0              LW,15    TIC               TIC ORDER
     4499   01 012A0    49F00FC1              OR,15    TIC2              FORM TIC TO T0360
     4500   01 012A1    35F00152              STW,15   T0360CP           STORE IN T0360
     4501   01 012A2    6AF0125E              BAL,15   T0360             GO TO TEST
     4502   01 012A3    6AF00A69              BAL,15   %IORST            RESET I/O
     4503   01 012A4    CD700D6B              TIO,7    *IOPTEST          FETCH IOP STATUS
     4504   01 012A5    72720007 A            LB,7     7,1               POSITION STATUS FOR COMPARE
     4505   01 012A6    35700C98              STW,7    %ERRWD2           RECEIVED STATUS TO ERR WORD 2
     4506   01 012A7    22600006 A            LI,6     6                 FETCH STATUS EXPECTED
     4507   01 012A8    35600C97              STW,6    %ERRWD1           EXPECTED STATUS TO ERR WORD 1
     4508   01 012A9    31700006 A            CW,7     6                 WAS STATUS CORRECT
     4509   01 012AA    683012AC              BCR,3    %+2               BRANCH IF YES
     4510   01 012AB    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4511   01 012AC    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4512                            *
     4513                            *        TEST 39  TEST IL AND TE IN FS
     4514                            *
     4515                            * METHOD OF TEST: AN SIO INSTRUCTION IS EXECUTED, FOLLOWED BY AN SC AND
     4516                            *        AN RS FOR AN ORDER OUT. A TERMINAL ORDER IS ALSO REQUESTED. AN
     4517                            *        SC IS SENT TO THE IOP, FOLLOWED BY AN RS FOR AN ORDER IN. AN RS
     4518                            *        IS SENT FOR A TERMINAL ORDER. A
     4519                            *        TIO INSTRUCTION IS EXECUTED TO FETCH THE IOP STATUS.  THE FS
     4520                            *        SENT TO THE IOP DURING THE ORDER OUT IS: (1) HTE.  THE INFOR-
     4521                            *        MATION SENT TO THE IOP DURING THE ORDER IN IS: (1) TE, (2) IL.
     4522                            *        THE RESULT EXPECTED DURING THE TERMINAL ORDER PHASE OF THE
     4523                            *        ORDER IN IS: (1) IOP HALT.  THE IOP STATUS FROM THE TIO IN-
     4524                            *        STRUCTION SHOULD BE: (1) IL, (2) TRANSMISSION DATA ERROR, (3)
     4525                            *        IOP HALT.
     4526                            * REASON FOR ERROR: EITHER THE TERMINAL ORDER OR THE IOP STATUS WAS NOT
     4527                            *        CORRECT.
     4528                            * INDICATION OF ERROR: ERROR NUMBER;
     4529                            *        ERR WORD 1 = EXPECTED IOP RESPONSE;
     4530                            *        ERR WORD 2 = RECEIVED IOP RESPONSE;
     4531                            *        ERR WORD 3 = 1   TERMINAL ORDER WAS INCORRECT;
     4532                            *                   = 2   IOP STATUS WAS INCORRECT;
     4533                            *        ERR WORD 4 = CHANNEL NUMBER.
     4534                            *
     4535         01 012AD           T039     EQU      %
     4536   01 012AD    32400FBA              LW,4     HTE               FLAGS = HTE;  BC = 1
     4537   01 012AE    354011D5              STW,4    CPSAV             STORE CMND PAIR FLAGS AND BYTE COUNT
     4538   01 012AF    225000C0 A            LI,5     192               ORDER IN = TE, IL
     4539   01 012B0    35501185              STW,5    ORDFLG            STORE ORDER IN RESPONSE
     4540   01 012B1    22600010 A            LI,6     16                TERMINAL ORDER = IOP HALT
     4541   01 012B2    356011D6              STW,6    TERMSAV           STORE EXPECTED TERMINAL ORDER RESPONSE
     4542   01 012B3    6AF01194              BAL,15   T0270             GO TO TEST ROUTINE
     4543   01 012B4    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     4544   01 012B5    35100AD5              STW,1    ADDATA            SET DISPLAY ADD DATA FLAG
     4545   01 012B6    31B00C97              CW,11    %ERRWD1           WAS TERM ORDER RESPONSE CORRECT
     4546   01 012B7    693012C1              BCS,3    T039A             BRANCH IF NOT
     4547   01 012B8    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     4548   01 012B9    6AF00A69              BAL,15   %IORST            RESET I/O
     4549   01 012BA    CD700D6B              TIO,7    *IOPTEST          EXECUTE TIO
     4550   01 012BB    72720007 A            LB,7     7,1               IOP STATUS TO BITS 24-31
     4551   01 012BC    226000C2 A            LI,6     194               IOP STATUS EXPECTED = IL, TDE, IOPH
     4552   01 012BD    35600C97              STW,6    %ERRWD1           EXPECTED RESPONSE
     4553   01 012BE    35700C98              STW,7    %ERRWD2           RECEIVED RESPONSE
     4554   01 012BF    31600007 A            CW,6     7                 WAS RESPONSE CORRECT
     4555   01 012C0    683012C2              BCR,3    %+2               BRANCH IF YES
     4556   01 012C1    33100257     T039A    MTW,1    RETURN            FORCE ERROR RETURN
     4557   01 012C2    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4558                            *
     4559                            *        TEST 40  TEST DATA OUT RESPONSE AND BYTE ADDRESS
     4560                            *
     4561                            * METHOD OF TEST: THIS TEST VERIFIES THAT THE IOP WILL RESPOND CORRECTLY
     4562                            *        DURING A DATA OUT, AND THAT THE BYTE ADDRESS BITS MAY BE SET
     4563                            *        AND RESET CORRECTLY.
     4564                            * REASON FOR ERROR:AN INCORRECT BA WAS GENERATED, OR THE IOP DID NOT
     4565                            *        RESPOND CORRECTLY TO THE DATA OUT.
     4566                            * INDICATION OF ERROR: ERROR NUMBER
     4567                            *        ERR WORD 1 = BA EXPECTED
     4568                            *        ERR WORD 2 = BA RECEIVED
     4569                            *        ERR WORD 3 = 1  ASC NOT RETURNED AFTER SC FOR DATA OUT
     4570                            *                   = 2  RSA NOT RECEIVED AFTER RS FOR DATA OUT
     4571                            *                   = 3  NES NOT RECEIVED AFTER 4TH RS
     4572                            *                   = 4  COUNT DONE NOT RECEIVED IN TERMINAL ORDER
     4573                            *                   = 5  BYTE COUNT DID NOT GO TO ZERO
     4574                            *        ERR WORD 4 = CHANNEL NUMBER
     4575                            *
     4576                            *
     4577         01 012C3           T040     EQU      %
     4578   01 012C3    22900100 A            LI,9     256               B.A. = X'100'
     4579   01 012C4    35900C97              STW,9    %ERRWD1           INITIALIZE BYTE ADDR
     4580   01 012C5    220000AC              LI,0     DA(T040CP)        LOAD COMMAND PAIR WITH NEW BYTE ADDR
     4581   01 012C6    EDE00BBB              WD,14    *GPA9             SET FOUR BYTE INTERFACE FROM MS
     4582   01 012C7    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     4583   01 012C8    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     4584   01 012C9    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES
     4585   01 012CA    6AF00AE3              BAL,15   PHSCLKX           CLOCK PHASES IF NO ERROR
     4586   01 012CB    35100AD5              STW,1    ADDATA            SET DATA ADD FLAG
     4587   01 012CC    225FFFFB A            LI,5     -5                LOAD NUMBER OF PHASES
     4588   01 012CD    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4589   01 012CE    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE IF NO ERROR
     4590   01 012CF    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     4591   01 012D0    ECA00BC6              RD,10    *GRP7             READ C00-15
     4592   01 012D1    25A00003 A            SLS,10   3                 SHIFT INTO 16 MSB'S POSITION
     4593   01 012D2    4BA00FA0              AND,10   X:3FFF8           MASK
     4594   01 012D3    35A0000B A            STW,10   11                SAVE IN R11
     4595   01 012D4    ECA00BC5              RD,10    *GRP6             FETCH 3 LSB'S
     4596   01 012D5    25A00073 A            SLS,10   -13               POSITION
     4597   01 012D6    4BA00F92              AND,10   X:7               MASK
     4598   01 012D7    30B0000A A            AW,11    10                COMBINE LSB'S AND MSB'S
     4599   01 012D8    35B00C98              STW,11   %ERRWD2           ERR WORD 2 = BA BEFORE TRANSFER TO
     4600   01 012D9    31B00C97              CW,11    %ERRWD1           BA CORRECT?
     4601   01 012DA    69301327              BCS,3    T040A             BRANCH IF NOT
     4602   01 012DB    66100C97              AWM,1    %ERRWD1           INCREMENT BA EXPECTED
     4603   01 012DC    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACING
     4604   01 012DD    225FFFFD A            LI,5     -3                LOAD NUMBER OF PHASES
     4605   01 012DE    6AF00AE3              BAL,15   PHSCLKX           CLOCK PHASES IF NO ERROR
     4606   01 012DF    ED400BB5     T040B    WD,4     *GPA3             PRESET MS DISPLAY GRP 3 FOR SNAPSHOT
     4607   01 012E0    EDD00BBD              WD,13    *GPAB             SERVICE CALL FOR DATA OUT
     4608   01 012E1    EC400BB5              RD,4     *GPA3             READ FOR ASC
     4609   01 012E2    4B40000D A            AND,4    13                WAS ASC RETURNED
     4610   01 012E3    68201327              BCR,2    T040A             BRANCH IF NOT
     4611   01 012E4    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     4612   01 012E5    225FFFFD A            LI,5     -3                SET PHASE COUNT
     4613   01 012E6    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4614   01 012E7    226FFFFC A            LI,6     -4                SET BYTE LOOP COUNT
     4615   01 012E8    656012EA     BYTELOOP BIR,6    %+2               LOOP FOR FIRST THREE BYTES
     4616   01 012E9    680012FD              B        LASTBYTE          PROCESS LAST BYTE
     4617   01 012EA    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4618   01 012EB    ED400BB5              WD,4     *GPA3             PRESET GRP ADDR 3
     4619   01 012EC    225FFFFE A            LI,5     -2                CLOCK THRU PH02D1
     4620   01 012ED    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4621   01 012EE    EC400BB5              RD,4     *GPA3             READ FOR RSA AND NES
     4622   01 012EF    3540000C A            STW,4    12                SAVE FOR NES COMPARE
     4623   01 012F0    4B400002 A            AND,4    2                 WAS RSA RETURNED
     4624   01 012F1    68201327              BCR,2    T040A             BRANCH IF NOT
     4625   01 012F2    32400C97              LW,4     %ERRWD1           FETCH CURRENT BA MSB'S
     4626   01 012F3    4B400FA0              AND,4    X:3FFF8           MASK FOR MSB'S
     4627   01 012F4    ECB00BC5              RD,11    *GRP6             FETCH LSB'S RETURNED FROM FAM (+1)
     4628   01 012F5    25B00073 A            SLS,11   -13               POSITION
     4629   01 012F6    4BB00F92              AND,11   X:7               MASK
     4630   01 012F7    30B00004 A            AW,11    4                 COMBINE MSB'S AND LSB'S (+1)
     4631   01 012F8    35B00C98              STW,11   %ERRWD2           RESULT TO ERR WORD 2
     4632   01 012F9    31B00C97              CW,11    %ERRWD1           WAS BA CORRECT
     4633   01 012FA    69301327              BCS,3    T040A             BRANCH IF NOT
     4634   01 012FB    66100C97              AWM,1    %ERRWD1           INCREMENT BA EXPECTED
     4635   01 012FC    680012E8              B        BYTELOOP          LOOP FOR NEXT BA
     4636   01 012FD    35300C99     LASTBYTE STW,3    %ERRWD3           ERR WORD 3 = 3
     4637   01 012FE    4BC00F9D              AND,12   X:4000            WAS NES RETURNED?
     4638   01 012FF    69201327              BCS,2    T040A             BRANCH IF NOT
     4639   01 01300    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4640   01 01301    225FFFFE A            LI,5     -2                SINGLE PHASE THRU LAST BYTE
     4641   01 01302    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4642   01 01303    ECB00BC5              RD,11    *GRP6             FETCH H00-H02
     4643   01 01304    25B00073 A            SLS,11   -13               POSITION
     4644   01 01305    4BB00F92              AND,11   X:7               MASK
     4645   01 01306    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4646   01 01307    225FFFFE A            LI,5     -2                LOAD NUMBER OF PHASES REMAINING
     4647   01 01308    32900C97              LW,9     %ERRWD1           FETCH CURRENT BA
     4648   01 01309    4B900F92              AND,9    X:7               MASK FOR WORD BITS
     4649   01 0130A    31900F92              CW,9     X:7               WILL A WORD BOUND BE CROSSED?
     4650   01 0130B    69301316              BCS,3    NOTCBA            BRANCH IF NOT
     4651   01 0130C    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4652   01 0130D    225FFFFD A            LI,5     -3                EXTRA PHASE FOR CARRY TO MSB'S IF
     4653   01 0130E    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4654   01 0130F    ECA00BC6              RD,10    *GRP7             FETCH C00-15 RETURNED FROM FAM
     4655   01 01310    25A00003 A            SLS,10   3                 POSITTION
     4656   01 01311    30B0000A A            AW,11    10                COMBINE MSB'S AND LSB'S
     4657   01 01312    35B00C98              STW,11   %ERRWD2           ERRWD 2 = BA ACTUAL
     4658   01 01313    31B00C97              CW,11    %ERRWD1           WAS BA CORRECT
     4659   01 01314    69301327              BCS,3    T040A             BRANCH IF NOT
     4660   01 01315    68001317              B        DATALOOP          CHECK FOR MORE DATA
     4661   01 01316    6AF00AE3     NOTCBA   BAL,15   PHSCLKX           SINGLE PHASE MIOP IF NO ERROR
     4662   01 01317    32400C97     DATALOOP LW,4     %ERRWD1           FETCH CURRENT BYTE ADDRESS
     4663   01 01318    2140010B A            CI,4     X'10B'            HAS ALL DATA BEEN TRANSFERRED?
     4664   01 01319    6810131D              BCR,1    %+4               IF SO, BRANCH
     4665   01 0131A    33100C97              MTW,1    %ERRWD1           INCREMENT BYTE COUNT EXPECTED
     4666   01 0131B    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4667   01 0131C    680012DF              B        T040B             LOOP FOR NEXT DATA TRANSFER
     4668   01 0131D    35D00C99              STW,13   %ERRWD3           ERR WORD 3 = 4
     4669   01 0131E    EC400BB4              RD,4     *GPA2             WAS COUNT DONE RETURNED?
     4670   01 0131F    4B400F9D              AND,4    X:4000            MASK FOR BIT 17
     4671   01 01320    68201327              BCR,2    T040A             BRANCH IF NOT
     4672   01 01321    22400005 A            LI,4     5                 R4 = 5
     4673   01 01322    35400C99              STW,4    %ERRWD3           ERR WORD 3 = 5
     4674   01 01323    EC400BC3              RD,4     *GRP4             READ FOR ZBC
     4675   01 01324    4B400F99              AND,4    X:100             WAS ZBC SET?
     4676   01 01325    68201327              BCR,2    T040A             BRANCH IF NOT
     4677   01 01326    68000257              B        RETURN            RETURN TO CALLING ROUTINE
     4678   01 01327    33100257     T040A    MTW,1    RETURN            INCREMENT RETURN
     4679   01 01328    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4680                            *
     4681                            *        TEST 41- SPARE TEST SLOT
     4682                            *
     4683   01 01329    68000257     T041     B        RETURN
     4684                            *
     4685                            *        TEST 42  TEST DATA TRASFER DURING DATA OUT
     4686                            *
     4687                            * METHOD OF TEST: THIS TEST VERIFIES DATA TRANSFERRED TO THE MS.
     4688                            *        MEMORY LOCATIONS X'400' THRU X'402' WILL BE WRITTEM
     4689                            * REASON FOR ERROR: THE MS DID NOT RECEIVE THE PROPER DATA
     4690                            * ERROR INDICATIONS:  ERROR TEST NUMBER
     4691                            *        ERR WORD 1 = WORD ADDRESS BEING TRANSFERRED
     4692                            *        ERR WORD 2 = DATA RECEIVED
     4693                            *        ERR WORD 3 = 1 BYTE A
     4694                            *                   = 2 BYTE B
     4695                            *                   = 3 BYTE C
     4696                            *                   = 4 BYTE D
     4697                            *        ERR WORD 4 = CHANNEL NUMBER
     4698                            *
     4699         01 0132A           T042     EQU      %
     4700   01 0132A    22400400 A            LI,4     X'400'            STARTING ADDRESS EQUALS X'400'
     4701   01 0132B    35401373              STW,4    ADDRESS           INITIALIZE STARTING ADDRESS
     4702   01 0132C    6AF00A6F     T042A    BAL,15   %IORSTX           RESET, NIIOP, MSOL, AND DC OFF LINE
     4703   01 0132D    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING MS
     4704   01 0132E    32401373              LW,4     ADDRESS           FETCH ADDRESS
     4705   01 0132F    35400C97              STW,4    %ERRWD1           ERR WORD 1 = CURRENT DATA ADDRESS
     4706   01 01330    25400002 A            SLS,4    2                 CONVERT TO BYTE ADDRESS
     4707   01 01331    30400FC2              AW,4     WRITEORD          ADD WRITE ORDER
     4708   01 01332    3540015A              STW,4    T042CP            SET CMND DBWRD BA
     4709   01 01333    220000AD              LI,0     DA(T042CP)        DEDICATE R0 TO CMND DBWRD ADDR
     4710   01 01334    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     4711   01 01335    225FFFFA A            LI,5     -6                LOAD NUMBER OF PHASES FOR SIO
     4712   01 01336    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE TO DATA OUT PH02D1
     4713   01 01337    EDD00BBD              WD,13    *GPAB             ENABLE SC FOR ORDER OUT
     4714   01 01338    225FFFF9 A            LI,5     -7                LOAD NUMBER OF PHASES FOR ORDEROUT
     4715   01 01339    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE MIOP THRU ORDER OUT
     4716   01 0133A    EDD00BBD              WD,13    *GPAB             ENABLE SC FOR DATA OUT
     4717   01 0133B    225FFFFC A            LI,5     -4                SET SINGLE PHASE LOOP COUNT
     4718   01 0133C    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THRU 1ST BYTE TRANSFER
     4719   01 0133D    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     4720   01 0133E    ECA00BB6              RD,10    *GPA4             READ FOR FIRST BYTE
     4721   01 0133F    4BA01449              AND,10   X:FF              MASK
     4722   01 01340    B2401373              LW,4     *ADDRESS          FETCH DATA UNDER TEST
     4723   01 01341    25400068 A            SLS,4    -24               POSITION BYTE FOR COMPARE
     4724   01 01342    4B401449              AND,4    X:FF              MASK
     4725   01 01343    3140000A A            CW,4     10                WAS DATA CORRECT
     4726   01 01344    6930136F              BCS,3    T042B             BRANCH IF NOT
     4727   01 01345    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     4728   01 01346    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4729   01 01347    225FFFFE A            LI,5     -2                GIVE ONE PHASE CLOCK FOR NEXT BYTE
     4730   01 01348    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4731   01 01349    ECA00BB6              RD,10    *GPA4             READ FOR SECOND DATA BYTE
     4732   01 0134A    4BA01449              AND,10   X:FF              MASK FOR DISPLAY BITS
     4733   01 0134B    B2401373              LW,4     *ADDRESS          FETCH DATA FROM CORE
     4734   01 0134C    25400070 A            SLS,4    -16               POSITION BYTE FOR COMPARE
     4735   01 0134D    4B401449              AND,4    X:FF              MASK FOR CURRENT BYTE
     4736   01 0134E    3140000A A            CW,4     10                2ND BYTE CORRECT
     4737   01 0134F    6930136F              BCS,3    T042B             BRANCH IF NOT
     4738   01 01350    35300C99              STW,3    %ERRWD3           ERR WORD 3 = 3
     4739   01 01351    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4740   01 01352    225FFFFE A            LI,5     -2                SET PHASE LOOP COUNT
     4741   01 01353    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4742   01 01354    ECA00BB6              RD,10    *GPA4             READ FOR THIRD DATA BYTE
     4743   01 01355    4BA01449              AND,10   X:FF              MASK FOR DISPLAY BITS
     4744   01 01356    B2401373              LW,4     *ADDRESS          FETCH DATA FROM CORE
     4745   01 01357    25400078 A            SLS,4    -8                POSITION BYTE FOR COMPARE
     4746   01 01358    4B401449              AND,4    X:FF              MASK FOR CURRENT BYTE
     4747   01 01359    3140000A A            CW,4     10                3RD BYTE CORRECT
     4748   01 0135A    6930136F              BCS,3    T042B             BRANCH IF NOT
     4749   01 0135B    35D00C99              STW,13    %ERRWD3          ERR WORD 3 = 4
     4750   01 0135C    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4751   01 0135D    225FFFFE A            LI,5     -2                SET SINGLE PHASE LOOP COUNT
     4752   01 0135E    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4753   01 0135F    ECA00BB6              RD,10    *GPA4             READ FOR FOURTH DATA BYTE
     4754   01 01360    4BA01449              AND,10   X:FF              MASK FOR DISPLAY BITS
     4755   01 01361    B2401373              LW,4     *ADDRESS          FETCH CURRENT DATA WORD FROM CORE
     4756   01 01362    4B401449              AND,4    X:FF              MASK FOR CURRENT BYTE
     4757   01 01363    3140000A A            CW,4     10                4TH BYTE CORRECT
     4758   01 01364    6930136F              BCS,3    T042B             BRANCH IF NOT
     4759   01 01365    32401373              LW,4     ADDRESS           FETCH CURRENT DATA ADDRESS
     4760   01 01366    21400402 A            CI,4     X'402'            IS THERE MORE DATA TO CHECK
     4761   01 01367    6810136B              BCR,1    LASTCLK           BRANCH IF NOT
     4762   01 01368    66101373              AWM,1    ADDRESS           INCREMENT ADDRESS
     4763   01 01369    35E00AD5              STW,14   ADDATA            CLEAR ADDATA DISPLAY FLAG
     4764   01 0136A    6800132C              B        T042A             LOOP FOR NEXT DATA WORD
     4765                            *
     4766   01 0136B    35E00AD7     LASTCLK  STW,14   NEWLINE           INHIBIT LINE SPACEING IN DISP
     4767   01 0136C    225FFFFE A            LI,5     -2                SET SINGLE PHASE LOOP COUNT
     4768   01 0136D    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4769   01 0136E    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4770   01 0136F    35A00C98     T042B    STW,10   %ERRWD2           %ERRWD2 = DATA RECIEVED
     4771   01 01370    35E0015A              STW,14   T042CP            CLEAR DBWRD
     4772   01 01371    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     4773   01 01372    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     4774   01 01373    00000000 A   ADDRESS  DATA     0
     4775                            *
     4776                            *        TEST 43  SPARE TEST SLOT
     4777                            *
     4778   01 01374    68000257     T043     B        RETURN
     4779                            *
     4780                            *        TEST 44  SPARE TEST SLOT
     4781                            *
     4782   01 01375    68000257     T044     B        RETURN
     4783                            *
     4784                            *        TEST 45  SPARE TEST SLOT
     4785                            *
     4786   01 01376    68000257     T045     B        RETURN
     4787                            *
     4788                            *        TEST 46  SPARE TEST SLOT
     4789                            *
     4790   01 01377    68000257     T046     B        RETURN
     4791                            *
     4792                            *        TEST 47  TEST FOR SUBCHANNEL INTERACTION
     4793                            *
     4794                            * METHOD OF TEST: THE SUBCHANNEL UNDER TEST WILL BE SINGLE
     4795                            *        SERVICED THRU ORDER OUT, LEAVING ITS FAM SET WITH
     4796                            *        A BYTE COUNT OF 4.  THEN, IN DESCENDING SEQUENCE,
     4797                            *        ALL OTHER SUBCHANNELS WILL BE FREE RUN THRU A
     4798                            *        WRITE OPERATION.  AFTER EACH SUBCHANNEL IS
     4799                            *        FREE RUN, THE B.C. IN THE TEST SUBCHANNEL WILL
     4800                            *        BE CHECKED WITH A TIO TO ENSURE IT HAS REMAINED
     4801                            *        UNCHANGED.
     4802                            * REASON FOR ERROR: SUBCHANNEL INTERACTION.
     4803                            * INDICATION OF ERROR: ERROR NUMBER;
     4804                            *        ERR WORD 1 = B.C. EXPECTED;
     4805                            *        ERR WORD 2 = B.C. RECEIVED;
     4806                            *        ERR WORD 3 = INTERACTING SUBCHANNEL;
     4807                            *        ERR WORD 4 = CHANNEL NUMBER
     4808                            *
     4809         01 01378           T047     EQU       %
     4810   01 01378    220000BB              LI,0     DA(T047CP)        FETCH TEST COMMAND
     4811   01 01379    CC800D6B              SIO,8    *IOPTEST          START TEST CHANNEL
     4812   01 0137A    EDD00BBD              WD,13    *GPAB             SINGLE SERVICE THRU ORD.OUT
     4813   01 0137B    224FFC00 A            LI,4     X'FFC00'          DELAY COUNT
     4814   01 0137C    6540137C              BIR,4    %                 DELAY FOR I/O COMPLETION
     4815   01 0137D    22400200 A            LI,4     X'200'            PHS RST BIT
     4816   01 0137E    ED400BBA              WD,4     *GPA8             GIVE MS RESET
     4817   01 0137F    33000299              MTW,0    TESTERR           LOOP ON FAILING CHAN.?
     4818   01 01380    68301384              BCR,3    %+4               BRANCH IF NOT
     4819   01 01381    32500C99              LW,5     %ERRWD3           FETCH FAILING CHAN.
     4820   01 01382    35E00299              STW,14    TESTERR           CLEAR ERR OCCURED FLAG
     4821   01 01383    68001386              B        %+3               RUN ONLY FAILING CHAN.
     4822   01 01384    32500D68              LW,5     %ADRCNT           FETCH # OF CHAN.S TO BE TESTED
     4823   01 01385    33F00005 A   T47A     MTW,15   5                 DECREMENT CHAN COUNT
     4824   01 01386    6910139C              BCS,1    T47B              EXIT IF DONE ALL CHAN.S
     4825   01 01387    324A0D50              LW,4     %ADRDICT,5        FETCH SUBCHANNEL NUMBER
     4826   01 01388    31400C9A              CW,4     %ERRWD4           IS IT THE TEST CHANNEL?
     4827   01 01389    68301385              BCR,3    T47A              IF SO, DO NOT FREE RUN
     4828   01 0138A    72720D6A              LB,7     %TEST:ADR,1       FETCH IOP NUMBER
     4829   01 0138B    25700008 A            SLS,7    8                 POSITION IN BITS 21-23
     4830   01 0138C    49700004 A            OR,7     4                 ADD SUBCHANN3L
     4831   01 0138D    20405000 A            AI,4     X'5000'           PRESERVE MS ON LINE
     4832   01 0138E    ED400BBC              WD,4     *GPAA             SET PROGRAMMABLE ADR
     4833   01 0138F    CCA00007 A            SIO,10   *7                FREE RUN CHAN. THRU WRITE
     4834   01 01390    CD000007 A            TIO,0    *7                WAIT FOR COMPLETION
     4835   01 01391    69C01390              BCS,12   %-1               OF WRITE OPERATION
     4836   01 01392    224FFC00 A            LI,4     X'FFC00'          DELAY COUNT
     4837   01 01393    65401393              BIR,4    %                 DELAY FOR I/O COMPLETION
     4838   01 01394    6AF00A6A              BAL,15   %IORST+1          RESTORE MS TEST ADDR.
     4839   01 01395    CD900D6B              TIO,9    *IOPTEST          TEST THE TEST SUBCHANNEL
     4840   01 01396    4B900F9F              AND,9    X:FFFF            MASK FOR B.C.
     4841   01 01397    21900004 A            CI,9     4                 DOES IT STILL EQUAL 4?
     4842   01 01398    68301385              BCR,3    T47A              IF SO, LOOP FOR NEXT CHAN.
     4843   01 01399    33100257              MTW,1    RETURN            POINT RETURN TO BAD
     4844   01 0139A    35100299              STW,1    TESTERR           PROVIDE FOR LOOP ON BAD CHAN.
     4845   01 0139B    4B701449              AND,7    X:FF              MASK FOR FAILING CHAN. NUMBER
     4846   01 0139C    35D00C97     T47B     STW,13   %ERRWD1           SET B.C. EXPECTED
     4847   01 0139D    35900C98              STW,9    %ERRWD2           SET B.C. RECEIVED
     4848   01 0139E    35700C99              STW,7    %ERRWD3           SET INTERACTING CHANNEL
     4849   01 0139F    351003DF              STW,1    BYTECNT           INHIBIT DISPLAY OUTPUT
     4850   01 013A0    68000257              B        RETURN            RETURN TO DRIVER
     4851                            *
     4852                            *
     4853                            *        TEST 48  TEST DATA CHAINING
     4854                            *
     4855                            * METHOD OF TEST: TWO BYTES OF DATA WILL BE REQUESTED FROM THE IOP.
     4856                            *        DATA CHAINIG SHOULD OCCUR AFTER THE FIRST BYTE.
     4857                            *        AN SIO INSTRUCTION IS EXECUTED.  THEN AN RS FOR AN ORDER OUT
     4858                            *        IS REQUESTED (SETTING DC, IZC, AND HTE IN FS REGISTER) FOLLOW-
     4859                            *        ED BY AN RS FOR A TERMINAL ORDER. AN SC IS SENT.
     4860                            *        THE RS FOR A DATA OUT IS SENT.
     4861                            *        AN RS IS SENT FOR A TERMINAL ORDER WHICH SHOULD REQUEST AN
     4862                            *        INTERRUPT. ANOTHER SC IS MADE, FOLLOWED BY AN RS FOR DATA OUT.
     4863                            *        AN RS FOR A TERMINAL ORDER IS SENT WHICH SHOULD SIGNAL COUNT
     4864                            *        DONE.
     4865                            * REASON FOR ERROR: IOP RESPONSE WAS INCORRECT.
     4866                            * INDICATION OF ERROR: ERROR NUMBER;
     4867                            *        ERR WORD 1 = EXPECTED RETURN;
     4868                            *        ERR WORD 2 = RECEIVED RETURN;
     4869                            *        ERR WORD 3 = 1   INCORRECT DATA RETURNED FROM FIRST DATAOUT
     4870                            *                   = 2   INCORRECT DATA RETUNED FROM SECOND DATAOUT
     4871                            *                   = 3   INCORRECT TERMINAL ORDER RETURNED
     4872                            *                         AFTER FIRST DATA OUT;
     4873                            *                   = 4   INCORRECT TERMINAL ORDER RETURNED
     4874                            *                         AFTER SECOND DATA OUT;
     4875                            *                   = 5   RSA, ED, OR NES NOT RETURNED AFTER
     4876                            *                         RS FOR THE FIRST DATA OUT;
     4877                            *                   = 6   RSA OR ES NOT RETURNED AFTER RS FOR
     4878                            *                         THE TERMINAL ORDER FOLLOWING THE FIRST
     4879                            *                         DATA OUT;
     4880                            *                   = 7   RSA, ED, OR NES WERE NOT RETURNED AFTER
     4881                            *                         THE RS FOR THE SECOND TERMINAL ORDER
     4882                            *                   = 8   ED OR ES WERE NOT RETURNED AFTER THE
     4883                            *                         RS FOR THE SECOND DATA OUT;
     4884                            *        ERR WORD 4 = CHANNEL NUMBER.
     4885                            *
     4886         01 013A1           T048     EQU      %
     4887   01 013A1    6AF00A6F              BAL,15   %IORSTX           SET NIIOP MODE
     4888   01 013A2    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     4889   01 013A3    220000AE              LI,0     DA(T048CP)        DWCMND FOR DATA CHAINING
     4890   01 013A4    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     4891   01 013A5    225FFFFA A            LI,5     -6                LOAD NUMBER PHASES THIS OPERATION
     4892   01 013A6    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     4893   01 013A7    EDD00BBD              WD,13    *GPAB             ENABLE SC
     4894   01 013A8    225FFFF9 A            LI,5     -7                NUMBER OF PHASES THIS OPERATION
     4895   01 013A9    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     4896   01 013AA    35100C99              STW,1    %ERRWD3           ERR WORD 3 = 1
     4897   01 013AB    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4898   01 013AC    225FFFFC A            LI,5     -4                SINGLE PHASE THE MIOP THROUGH
     4899   01 013AD    6AF00AE3              BAL,15   PHSCLKX           3 PHASES
     4900   01 013AE    ECA00BB6              RD,10    *GPA4             READ FOR DATA
     4901   01 013AF    4BA01449              AND,10   X:FF              MASK FOR DATA
     4902   01 013B0    35A00C98              STW,10   %ERRWD2           RECEIVED DATA TO ERR WORD 2
     4903   01 013B1    35100C97              STW,1    %ERRWD1           ERRWD 1 = 1
     4904   01 013B2    21A00001 A            CI,10    1                 WAS CORRECT DATA RETURNED
     4905   01 013B3    69301419              BCS,3    T048C             BRANCH IF NOT
     4906   01 013B4    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4907   01 013B5    225FFFFB A            LI,5     -5                LOAD NUMBER OF PHASES
     4908   01 013B6    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE
     4909   01 013B7    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4910   01 013B8    35200C99              STW,2    %ERRWD3           ERR WORD 3 = 2
     4911   01 013B9    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4912   01 013BA    225FFFFC A            LI,5     -4                LOAD NUMBER OF PHASES
     4913   01 013BB    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE
     4914   01 013BC    ECA00BB6              RD,10    *GPA4             READ FOR DATA
     4915   01 013BD    35300C97              STW,3    %ERRWD1           ERRWD 1 = 3
     4916   01 013BE    4BA01449              AND,10   X:FF              MASK FOR DATA
     4917   01 013BF    35A00C98              STW,10   %ERRWD2           RECEIVED DATA TO ERRWD2
     4918   01 013C0    21A00003 A            CI,10    3                 WAS CORRECT DATA RETURNED
     4919   01 013C1    69301419              BCS,3    T048C             BRANCH IF NOT
     4920   01 013C2    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4921   01 013C3    225FFFFE A            LI,5     -2                SET SINGLE PHASE LOOP COUNT
     4922   01 013C4    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     4923   01 013C5    6AF00A6F     T048B    BAL,15   %IORSTX           RESET IO, MSOL, AND NOT IIOP MODE
     4924   01 013C6    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     4925   01 013C7    220000AE              LI,0     DA(T048CP)        LOAD CMND PR WITH DATA CHAINING
     4926   01 013C8    35E00AD5              STW,14   ADDATA            BEGIN NEW DISPLAY BUILDUP
     4927   01 013C9    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     4928   01 013CA    225FFFFA A            LI,5     -6                SINGLE PHASE THROUGH SIO
     4929   01 013CB    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4930   01 013CC    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4931   01 013CD    225FFFF9 A            LI,5     -7                SINGLE PHASE THROUGH ORDER OUT
     4932   01 013CE    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4933   01 013CF    35300C99              STW,3    %ERRWD3           ERR WORD 3 = 3
     4934   01 013D0    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4935   01 013D1    225FFFF8 A            LI,5     -8                SET SINGLE PHASE LOOP COUNT
     4936   01 013D2    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THRU TERMINAL ORDER
     4937   01 013D3    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4938   01 013D4    ECA00BB6              RD,10    *GPA4             READ FOR TERM ORD
     4939   01 013D5    4BA01449              AND,10   X:FF              MASK FOR T.O.
     4940   01 013D6    21A00000 A            CI,10    0                 WAS T.O. CORRECT
     4941   01 013D7    6930141B              BCS,3    T048D             BRANCH IF NOT
     4942   01 013D8    35D00C99              STW,13   %ERRWD3           ERR WORD 3 = 4
     4943   01 013D9    EDD00BBD              WD,13    *GPAB             ENABLE SC
     4944   01 013DA    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4945   01 013DB    225FFFFB A            LI,5     -5                LOAD NUMBER OF PHASES
     4946   01 013DC    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4947   01 013DD    ECA00BB6              RD,10    *GPA4             READ FOR T.O.
     4948   01 013DE    4BA01449              AND,10   X:FF              MASK FOR T.O.
     4949   01 013DF    31A01444              CW,10    X:40              WAS CORRECT T.O. RETURNED
     4950   01 013E0    6930141B              BCS,3    T048D             BRANCH IF NOT
     4951   01 013E1    6AF00A69     T048A    BAL,15   %IORST            RESET I/O, MSOL, IIOP, DC'S OFF LINE
     4952   01 013E2    220000AE              LI,0     DA(T048CP)        CMND PR WITH DATA CHAINING
     4953   01 013E3    35E00AD5              STW,14   ADDATA            BEGIN NEW DISPLAY BUILDUP
     4954   01 013E4    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING
     4955   01 013E5    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     4956   01 013E6    225FFFFA A            LI,5     -6                SINGLE PHASE THROUGH SIO
     4957   01 013E7    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4958   01 013E8    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4959   01 013E9    225FFFF9 A            LI,5     -7                SINGLE PHASE THROUGH ORDER OUT
     4960   01 013EA    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     4961   01 013EB    ED900BB8              WD,9     *GPA6             ARM GPA 6
     4962   01 013EC    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL
     4963   01 013ED    225FFFFC A            LI,5     -4                SINGLE PHASE THRU PH02D1
     4964   01 013EE    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP
     4965   01 013EF    ECA00BB8              RD,10    *GPA6             READ FOR PHTO
     4966   01 013F0    4BA00F9B              AND,10   X:800             WAS PHTO SET
     4967   01 013F1    6820141D              BCR,2    T048E             BRANCH IF NOT
     4968   01 013F2    22400005 A            LI,4     5                 R4 = 5
     4969   01 013F3    35400C99              STW,4    %ERRWD3           ERR WORD 3 = 5
     4970   01 013F4    ED900BB5              WD,9     *GPA3             ARM GPA3
     4971   01 013F5    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4972   01 013F6    225FFFFB A            LI,5     -5                SET SINGLE PHASE LOOP COUNT
     4973   01 013F7    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE IF NO ERROR
     4974   01 013F8    ECA00BB5              RD,10    *GPA3             READ FOR RSA, AND ES
     4975   01 013F9    35A0000B A            STW,10   11                SAVE RETURN FOR ES CHECK
     4976   01 013FA    22400006 A            LI,4     6                 R4 = 6
     4977   01 013FB    35400C99              STW,4    %ERRWD3           ERR WORD 3 = 6
     4978   01 013FC    4BA00002 A            AND,10   2                 WAS RSA RETURNED
     4979   01 013FD    6820141D              BCR,2    T048E             BRANCH IF NOT
     4980   01 013FE    4BB00F9D              AND,11   X:4000            WAS ES RETURNED
     4981   01 013FF    6820141D              BCR,2    T048E             BRANCH IF NOT
     4982   01 01400    ED900BB8              WD,9     *GPA6             ARM GPA 6
     4983   01 01401    EDD00BBD              WD,13    *GPAB             SC FOR 2ND DATA OUT
     4984   01 01402    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4985   01 01403    225FFFFC A            LI,5     -4                SINGLE PHASE THROUGH PH02D1
     4986   01 01404    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE IF NO ERROR
     4987   01 01405    22400007 A            LI,4     7                 R4 = 7
     4988   01 01406    35400C99              STW,4    %ERRWD3           ERR WORD 3 = 7
     4989   01 01407    ECA00BB8              RD,10    *GPA6             READ FOR PHTO
     4990   01 01408    4BA00F9B              AND,10   X:800             WAS PHTO SET
     4991   01 01409    6820141D              BCR,2    T048E             BRANCH IF NOT
     4992   01 0140A    ED900BB5              WD,9     *GPA3             ARM GPA3
     4993   01 0140B    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     4994   01 0140C    225FFFFE A            LI,5     -2                SET SINGLE PHASE LOOP COUNT
     4995   01 0140D    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE IF NO ERROR
     4996   01 0140E    ECA00BB5              RD,10    *GPA3             READ FOR RSA, AND ES
     4997   01 0140F    35A0000B A            STW,10   11                SAVE RETURN FOR ES CHECK
     4998   01 01410    22400008 A            LI,4     8                 R4 = 8
     4999   01 01411    35400C99              STW,4    %ERRWD3           ERR WORD 3 = 8
     5000   01 01412    4BA00002 A            AND,10   2                 WAS RSA RETURNED
     5001   01 01413    6820141D              BCR,2    T048E             BRANCH IF NOT
     5002   01 01414    4BB00F9D              AND,11   X:4000            WAS ES RETURNED
     5003   01 01415    6820141D              BCR,2    T048E             BRANCH IF NOT
     5004   01 01416    33001420              MTW,0    DATAERR           HAS ERROR OCCURRED
     5005   01 01417    6930141D              BCS,3    T048E             IF SO BRANCH
     5006   01 01418    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5007   01 01419    35101420     T048C    STW,1    DATAERR           SET ERR FLAG
     5008   01 0141A    680013C5              B        T048B             COMPLETE TEST
     5009   01 0141B    35101420     T048D    STW,1    DATAERR           SET ERR FLAG
     5010   01 0141C    680013E1              B        T048A             COMPLETE TEST
     5011   01 0141D    35E01420     T048E    STW,14   DATAERR           CLEAR ERR FLAG
     5012   01 0141E    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     5013   01 0141F    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5014   01 01420    00000000 A   DATAERR  DATA     0                 ERROR OCCURANCE FLAG FOR T048
     5015                            *
     5016                            *
     5017                            *
     5018                            *        TEST 49  TEST IOP INTERRUPT RESPONSE
     5019                            *
     5020                            * METHOD OF TEST:  THE TWO INTERRUPT STATUS BITS: IUE AND ICE ARE TESTED
     5021                            *        THE MIOP IS SINGLE PHASED THRU SIO,ORDER OUT, DATA OUT, AND
     5022                            *        ORDER IN, (T027);  AFTER WHICH, THE INTERRUPT IS ENABLED AND
     5023                            *        THE IOP STATUS IS READ AND CHECKED WITH AN AIO.
     5024                            * REASON FOR ERROR: IOP RESPONSE NOT CORRECT
     5025                            * INDICATION OF ERROR: ERROR NUMBER;
     5026                            *        ERR WORD 1 = EXPECTED RESPONSE;
     5027                            *        ERR WORD 2 = RECEIVED RESPONSE;
     5028                            *        ERR WORD 4 = CHANNEL NUMBER.
     5029                            *
     5030         01 01421           T049     EQU      %
     5031   01 01421    32400FBD              LW,4     IUEICE            FLAGS = IUE, ICE; BC = 1
     5032   01 01422    354011D5              STW,4    CPSAV             STORE FLAGS
     5033   01 01423    22500018 A            LI,5     X'18'             ORDER IN BITS = CE, UE
     5034   01 01424    35501185              STW,5    ORDFLG            STORE RESPONSE EXPECTED
     5035   01 01425    22600080 A            LI,6     128               T.O. = INTERRUPT; (X'80')
     5036   01 01426    356011D6              STW,6    TERMSAV           STORE OPERATIONAL STATUS BYTE
     5037   01 01427    6AF01194              BAL,15   T0270             EXECUTE SIO, ORD OUT, DATA OUT, O.I.
     5038   01 01428    EDD00BBD              WD,13    *GPAB             ENABLE INTERRUPT
     5039   01 01429    32400D6B              LW,4     IOPTEST           FETCH IO ADDRESS
     5040   01 0142A    30400FA1              AW,4     X:180000          ADD IOP STATUS BITS
     5041   01 0142B    35400C97              STW,4    %ERRWD1           EXPECTED RESPONSE TO AIO
     5042   01 0142C    35900C98              STW,9    %ERRWD2           RECEIVED RESPONSE TO ERRWD2
     5043   01 0142D    35100C99              STW,1    %ERRWD3           INITIALIZE ERR WORD 3 TO 1
     5044   01 0142E    31900004 A            CW,9     4                 WAS AIO RESPONSE CORRECT
     5045   01 0142F    68301431              BCR,3    %+2               BRANCH IF CORRECT
     5046   01 01430    33100257              MTW,1    RETURN            FORCE ERROR RETURN
     5047   01 01431    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5048                            *
     5049                            *
     5050                            *
     5051                            *        DATA INPUT PATTERNS
     5052                            *
     5053   01 01432    00002001 A   DINPUT   DATA     X'2001'
     5054   01 01433    00002002 A            DATA     X'2002'
     5055   01 01434    00002004 A            DATA     X'2004'
     5056   01 01435    00002008 A            DATA     X'2008'
     5057   01 01436    00002010 A            DATA     X'2010'
     5058   01 01437    00002020 A            DATA     X'2020'
     5059   01 01438    00002040 A            DATA     X'2040'
     5060   01 01439    00002080 A            DATA     X'2080'
     5061   01 0143A    00002055 A            DATA     X'2055'
     5062   01 0143B    000020AA A            DATA     X'20AA'
     5063   01 0143C    00002000 A            DATA     X'2000'
     5064   01 0143D    000020FF A            DATA     X'20FF'
     5065                            *
     5066   01 0143E    00000001 A   DINPAT   DATA     X'01'
     5067   01 0143F    00000002 A            DATA     X'02'
     5068   01 01440    00000004 A            DATA     X'04'
     5069   01 01441    00000008 A   X:8      DATA     X'08'
     5070   01 01442    00000010 A   X:10     DATA     X'10'
     5071   01 01443    00000020 A   X:20     DATA     X'20'
     5072   01 01444    00000040 A   X:40     DATA     X'40'
     5073   01 01445    00000080 A   X:80     DATA     X'80'
     5074   01 01446    00000055 A            DATA     X'55'
     5075   01 01447    000000AA A            DATA     X'AA'
     5076   01 01448    00000000 A            DATA     X'00'
     5077   01 01449    000000FF A   X:FF     DATA     X'FF'
     5078                            *
     5079   01 0144A    01010101 A   DINWRD   DATA     X'01010101'
     5080   01 0144B    02020202 A            DATA     X'02020202'
     5081   01 0144C    04040404 A            DATA     X'04040404'
     5082   01 0144D    08080808 A            DATA     X'08080808'
     5083   01 0144E    10101010 A            DATA     X'10101010'
     5084   01 0144F    20202020 A            DATA     X'20202020'
     5085   01 01450    40404040 A   SPACES   DATA     X'40404040'
     5086   01 01451    80808080 A            DATA     X'80808080'
     5087   01 01452    55555555 A            DATA     X'55555555'
     5088   01 01453    AAAAAAAA A            DATA     X'AAAAAAAA'
     5089   01 01454    00000000 A            DATA     X'00000000'
     5090   01 01455    FFFFFFFF A            DATA     X'FFFFFFFF'
     5091                            *
     5092                            *
     5093                            *        TEST 50    TEST READ BACKWARD                              *A01
     5094                            *
     5095                            *
     5096                            *
     5097                            * METHOD OF TEST: AN SIO IS EXECUTED FOLLOWED BY A SERVICE CALL FROM THE
     5098                            *        MAINTENANCE SUBCONTROLLER FOR AN ORDER OUT.  TWELVE SUCCESSIVE
     5099                            *        SERVICE CALLS ARE MADE FOR DATA IN WITH ONE BYTE WIDE DATA
     5100                            *        PATH, RESULTING IN THE READING OF A TWELVE BIT DATA PATTERN
     5101                            *        INTO CORE. IOP RESPONSE IS CHECKED, AND THE DATA PATTERN IN
     5102                            *        CORE IS VERIFIED.
     5103                            * REASON FOR ERROR: THE IOP RESPONDED INCORRECTLY DURING THE DATA IN, OR
     5104                            *        INCORRECT DATA WAS TRANSFERRED TO CORE.
     5105                            * INDICATION OF ERROR: ERROR TEST NUMBER
     5106                            *        ERR WORD 1 = DATA WORD EXPECTED
     5107                            *        ERR WORD 2 = DATA WORD RECEIVED
     5108                            *        ERR WORD 3 = N1  ASC WAS NOT RECEIVED AFTER THE SERVICE
     5109                            *                         CALL FOR THE (N)TH DATA IN. N = 1 THRU C
     5110                            *                   = N2  THE (N)TH DATA WORD IS INCORRECT IN CORE
     5111                            *        ERR WORD 4 = CHANNEL NUMBER
     5112                            *
     5113         01 01456           T050     EQU      %
     5114   01 01456    35E014BF              STW,14   CBACNTR           CLEAR CROSS BOUNDRY COUNTER
     5115   01 01457    2240000B A            LI,4     11                DATA INDEX = 11
     5116   01 01458    3540148F              STW,4    INDEX             INITIALIZE DATA INDEX
     5117   01 01459    224FFFF4 A            LI,4     -12               SET BUFFER PURGE INDEX
     5118   01 0145A    35080176              STW,0    DINBUFF+12,4      CLEAR DINBUFF
     5119   01 0145B    6540145A              BIR,4    %-1               LOOP UNTIL BUFFER IS CLEARED
     5120   01 0145C    220000B1              LI,0     DA(T050CP)        LOAD DOUBLEWORD ADDRESS OF CMND PR
     5121   01 0145D    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING THE MIOP
     5122   01 0145E    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     5123   01 0145F    225FFFFA A            LI,5     -6                SET SINGLE PHASE LOOP COUNT
     5124   01 01460    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP THRU THE SIO
     5125   01 01461    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL FOR ORDER OUT
     5126   01 01462    225FFFF9 A            LI,5     -7                LOAD NUMBER OF PHASES
     5127   01 01463    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THRU ORDER OUT
     5128   01 01464    35200C99              STW,2    %ERRWD3           INITIALIZE ERRWD3
     5129   01 01465    227FFFF4 A            LI,7     -12               SET DATA-IN LOOP COUNT
     5130   01 01466    2240000F A   DINLEEP  LI,4     X'F'              INCREMENT VALUE = 15
     5131   01 01467    66400C99              AWM,4    %ERRWD3           INCREMENT DATA WORD (N) INDICATER
     5132   01 01468    ED000BB5              WD,0     *GPA3             PRESET GPA3 FOR SNAPSHOT
     5133   01 01469    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL FOR DATA IN
     5134   01 0146A    EC400BB5              RD,4     *GPA3             READ FOR ASC
     5135   01 0146B    4B40000D A            AND,4    13                WAS ASC RETURNED
     5136   01 0146C    682014BD              BCR,2    T051A             BRANCH IF NOT
     5137   01 0146D    33100C99              MTW,1    %ERRWD3           ERR WORD3 = N2
     5138   01 0146E    224FFFFC A            LI,4     -4                SET BYTE INDEX FOR 4 WORDS
     5139   01 0146F    3540148E              STW,4    BYTEINDX          INITIALIZE BYTE INDEX FOR THIS DATA IN
     5140   01 01470    225FFFFE A            LI,5     -2                LOAD NUMBER OF PHASES TO BE CLOCKED
     5141   01 01471    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THRU PH00D1 OF DATA IN
     5142   01 01472    324E144A     BYTERET  LW,4     DINPAT+12,7       FETCH DATA WORD INDEXED
     5143   01 01473    ED400BBB              WD,4     *GPA9             SET DATA LINES TO MIOP
     5144   01 01474    324E1456              LW,4     DINWRD+12,7       FETCH DATA PATTERN EXPECTED
     5145   01 01475    35400C97              STW,4    %ERRWD1           DATA EXPECTED TO ERR WORD 1
     5146   01 01476    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     5147   01 01477    225FFFFE A            LI,5     -2                SINGLE PHASE THE MIOP THRU A BYTE XFER
     5148   01 01478    6AF00AE3              BAL,15   PHSCLKX              -IF NOT ERROR PASS
     5149   01 01479    3310148E              MTW,1    BYTEINDX          INCREMENT BYTE INDEX
     5150   01 0147A    69101472              BCS,1    BYTERET           LOOP TO TRANSFER ALL 4 BYTES
     5151   01 0147B    3250148F              LW,5     INDEX             FETCH DATA INDEX
     5152   01 0147C    324A016A              LW,4     DINBUFF,5         FETCH TRANSFERRED DATA, INDEX
     5153   01 0147D    33F0148F              MTW,-1   INDEX             DECREMENT INDEX
     5154   01 0147E    35400C98              STW,4    %ERRWD2           ERR WORD 2 = DATA PATTERN RECEIVED
     5155   01 0147F    31400C97              CW,4     %ERRWD1           DOES DATA EXPECTED = DATA RECEIVED
     5156   01 01480    6930148C              BCS,3    T050A             BRANCH IF NOT
     5157   01 01481    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     5158   01 01482    225FFFFD A            LI,5     -3                TWO PHASE CLOCKS FOR PH03D1 - PH07D1
     5159   01 01483    22400001 A            LI,4     1                 SET R4 TO EOR VALUE
     5160   01 01484    484014BF              EOR,4    CBACNTR           WILL A WORD BOUNDRY BE CROSSED
     5161   01 01485    354014BF              STW,4    CBACNTR           REPLACE ORED VALUE
     5162   01 01486    68301488              BCR,3    %+2               IF SO, BRANCH
     5163   01 01487    225FFFFE A            LI,5     -2                IF NOT, GIVE ONLY ONE CLOCK FOR T.O.
     5164   01 01488    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE IF NO ERROR
     5165   01 01489    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     5166   01 0148A    65701466              BIR,7    DINLEEP           LOOP UNTIL TWELVE WORD PATTERN HAS
     5167   01 0148B    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5168   01 0148C    33100257     T050A    MTW,1    RETURN            FORCE ERROR RETURN
     5169   01 0148D    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5170   01 0148E    00000000 A   BYTEINDX DATA     0                 DATA BYTE INDEX
     5171   01 0148F    00000000 A   INDEX    DATA     0                 DATA WORD INDEX
     5172                            *
     5173                            *
     5174                            *
     5175                            *
     5176                            *        TEST 51  TEST DATA IN                                      *A01
     5177                            *
     5178                            * METHOD OF TEST: AN SIO IS EXECUTED FOLLOWED BY A SERVICE CALL FROM THE
     5179                            *        MAINTENANCE SUBCONTROLLER FOR AN ORDER OUT.  TWELVE SUCCESSIVE
     5180                            *        SERVICE CALLS ARE MADE FOR DATA IN  WITH FOUR BYTE WIDE DATA
     5181                            *        PATH, RESULTING IN THE READING OF A TWELVE BIT DATA PATTERN
     5182                            *        INTO CORE. IOP RESPONSE IS CHECKED, AND THE DATA PATTERN IN
     5183                            *        CORE IS VERIFIED.
     5184                            * REASON FOR ERROR: THE IOP RESPONDED INCORRECTLY DURING THE DATA IN, OR
     5185                            *        INCORRECT DATA WAS TRANSFERRED TO CORE.
     5186                            * INDICATION OF ERROR: ERROR TEST NUMBER
     5187                            *        ERR WORD 1 = DATA WORD EXPECTED
     5188                            *        ERR WORD 2 = DATA WORD RECEIVED
     5189                            *        ERR WORD 3 = N1  ASC WAS NOT RECEIVED AFTER THE SERVICE
     5190                            *                         CALL FOR THE (N)TH DATA IN. N = 1 THRU C
     5191                            *                   = N2  THE (N)TH DATA WORD IS INCORRECT IN CORE
     5192                            *        ERR WORD 4 = CHANNEL NUMBER
     5193                            *
     5194         01 01490           T051     EQU      %                                                 *A01
     5195   01 01490    35E014BF              STW,14   CBACNTR           CLEAR CROSS BOUNDRY COUNTER
     5196   01 01491    224FFFF4 A            LI,4     -12               SET BUFFER PURGE INDEX
     5197   01 01492    35080176              STW,0    DINBUFF+12,4      CLEAR DINBUFF
     5198   01 01493    65401492              BIR,4    %-1               LOOP UNTIL BUFFER IS CLEARED
     5199   01 01494    22402000 A            LI,4     X'2000'           DX4
     5200   01 01495    ED400BBB              WD,4     *GPA9             SET DX4 (4 BYTE WIDE DATA PATH)
     5201   01 01496    220000B0              LI,0     DA(T051CP)        LOAD DOUBLEWORD ADDRESS OF CMND PAIR
     5202   01 01497    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING THE MIOP
     5203   01 01498    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     5204   01 01499    225FFFFA A            LI,5     -6                SET SINGLE PHASE LOOP COUNT
     5205   01 0149A    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP THRU THE SIO
     5206   01 0149B    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL FOR ORDER OUT
     5207   01 0149C    225FFFF9 A            LI,5     -7                LOAD NUMBER OF PHASES
     5208   01 0149D    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THRU ORDER OUT
     5209   01 0149E    35200C99              STW,2    %ERRWD3           INITIALIZE ERRWD3
     5210   01 0149F    227FFFF4 A            LI,7     -12               SET DATA-IN LOOP COUNT
     5211   01 014A0    2240000F A   DINLOOP  LI,4     X'F'              INCREMENT VALUE = 15
     5212   01 014A1    66400C99              AWM,4    %ERRWD3           INCREMENT DATA WORD (N) INDICATER
     5213   01 014A2    ED000BB5              WD,0     *GPA3             PRESET GPA3 FOR SNAPSHOT
     5214   01 014A3    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL FOR DATA IN
     5215   01 014A4    EC400BB5              RD,4     *GPA3             READ FOR ASC
     5216   01 014A5    4B40000D A            AND,4    13                WAS ASC RETURNED
     5217   01 014A6    6820148C              BCR,2    T050A             BRANCH IF NOT
     5218   01 014A7    324E143E              LW,4     DINPUT+12,7       FETCH DATA WORD INDEXED
     5219   01 014A8    ED400BBB              WD,4     *GPA9             SET DATA LINES TO MIOP
     5220   01 014A9    225FFFFD A            LI,5     -3                SINGLE PHASE MIOP THRU PH01D1
     5221   01 014AA    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     5222   01 014AB    33100C99              MTW,1    %ERRWD3           ERR WORD 3 = 2
     5223   01 014AC    324E1456              LW,4     DINWRD+12,7       FETCH EXPECTED DATA WRD, INDEXED
     5224   01 014AD    35400C97              STW,4    %ERRWD1           ERR WORD 1 = DATA PATTERN EXPECTED
     5225   01 014AE    324E0176              LW,4     DINBUFF+12,7      FETCH TRANSFERRED DATA,INDEXED
     5226   01 014AF    35400C98              STW,4    %ERRWD2           ERR WORD 2 = DATA PATTERN RECEIVED
     5227   01 014B0    31400C97              CW,4     %ERRWD1           DOES DATA EXPECTED = DATA RECEIVED
     5228   01 014B1    693014BD              BCS,3    T051A             BRANCH IF NOT
     5229   01 014B2    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     5230   01 014B3    225FFFFD A            LI,5     -3                TWO PHASE CLOCKS FOR PH03D1 - PH07D1
     5231   01 014B4    22400001 A            LI,4     1                 SET R4 TO EOR VALUE
     5232   01 014B5    484014BF              EOR,4    CBACNTR           WILL A WORD BOUNDRY BE CROSSED
     5233   01 014B6    354014BF              STW,4    CBACNTR           REPLACE ORED VALUE
     5234   01 014B7    683014B9              BCR,3    %+2               IF SO, BRANCH
     5235   01 014B8    225FFFFE A            LI,5     -2                IF NOT, GIVE ONLY ONE CLOCK FOR T.O.
     5236   01 014B9    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     5237   01 014BA    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     5238   01 014BB    657014A0              BIR,7    DINLOOP           LOOP UNTIL TWELVE WORD PATTERN HAS
     5239   01 014BC    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5240   01 014BD    33100257     T051A    MTW,1    RETURN            FORCE ERROR RETURN
     5241   01 014BE    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5242   01 014BF    00000000 A   CBACNTR  DATA     0                 DOUBLEWORD (CBA) MONITER
     5243                            *
     5244                            *
     5245                            *        TEST 52  TEST SKIP FUNCTION
     5246                            *
     5247                            *
     5248                            *
     5249                            *
     5250                            * METHOD OF TEST: AN SIO IS EXECUTED FOLLOWED BY A SERVICE CALL FROM THE
     5251                            *        MAINTENANCE SUBCONTROLLER FOR AN ORDER OUT.  TWELVE SUCCESSIVE
     5252                            *        SERVICE CALLS ARE MADE FOR DATA IN  WITH FOUR BYTE WIDE DATA
     5253                            *        PATH, RESULTING IN THE READING OF A TWELVE BIT DATA PATTERN
     5254                            *        INTO CORE. IOP RESPONSE IS CHECKED, AND THE DATA PATTERN IN
     5255                            *        CORE IS VERIFIED.
     5256                            * REASON FOR ERROR: THE IOP RESPONDED INCORRECTLY DURING THE DATA IN, OR
     5257                            *        INCORRECT DATA WAS TRANSFERRED TO CORE.
     5258                            * INDICATION OF ERROR: ERROR TEST NUMBER
     5259                            *        ERR WORD 1 = DATA WORD EXPECTED
     5260                            *        ERR WORD 2 = DATA WORD RECEIVED
     5261                            *        ERR WORD 3 = N1  ASC WAS NOT RECEIVED AFTER THE SERVICE
     5262                            *                         CALL FOR THE (N)TH DATA IN. N = 1 THRU C
     5263                            *                   = N2  THE (N)TH DATA WORD IS INCORRECT IN CORE
     5264                            *        ERR WORD 4 = CHANNEL NUMBER
     5265                            *
     5266         01 014C0           T052     EQU      %
     5267   01 014C0    35E014BF              STW,14   CBACNTR           CLEAR CROSS BOUNDRY COUNTER
     5268   01 014C1    2240000B A            LI,4     11                DATA INDEX EQUALS ELEVEN
     5269   01 014C2    3540148F              STW,4    INDEX             INITIALIZE DATA INDEX
     5270   01 014C3    224FFFF4 A            LI,4     -12               SET PURGE-LOOP LOOP COUNT
     5271   01 014C4    35080176              STW,0    DINBUFF+12,4      CLEAR DINBUFF
     5272   01 014C5    654014C4              BIR,4    %-1               LOOP FOR 12 WORDS
     5273   01 014C6    22402000 A            LI,4     X'2000'           DX4
     5274   01 014C7    ED400BBB              WD,4     *GPA9             SET DX4 (4 BYTE WIDE DATA PATH)
     5275   01 014C8    220000B2              LI,0     DA(T052CP)        DEDICATE R0 TO CMND DBWRD ADDR
     5276   01 014C9    ED200BBF              WD,2     *GRP0             PREPARE FOR SINGLE PHASEING THE MIOP
     5277   01 014CA    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO
     5278   01 014CB    225FFFFA A            LI,5     -6                SET SINGLE PHASE LOOP COUNT
     5279   01 014CC    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THE MIOP THRU THE SIO
     5280   01 014CD    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL FOR ORDER OUT
     5281   01 014CE    225FFFF9 A            LI,5     -7                LOAD NUMBER OF PHASES
     5282   01 014CF    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE THRU ORDER OUT
     5283   01 014D0    35200C99              STW,2    %ERRWD3           INITIALIZE ERRWD3
     5284   01 014D1    227FFFF4 A            LI,7     -12               SET DATA-IN LOOP COUNT
     5285   01 014D2    2240000F A   DINLOUP  LI,4     X'F'              INCREMENT VALUE = 15
     5286   01 014D3    66400C99              AWM,4    %ERRWD3           INCREMENT DATA WORD (N) INDICATER
     5287   01 014D4    ED000BB5              WD,0     *GPA3             PRESET GPA3 FOR SNAPSHOT
     5288   01 014D5    EDD00BBD              WD,13    *GPAB             ENABLE SERVICE CALL FOR DATA IN
     5289   01 014D6    EC400BB5              RD,4     *GPA3             READ FOR ASC
     5290   01 014D7    4B40000D A            AND,4    13                WAS ASC RETURNED
     5291   01 014D8    682014EF              BCR,2    T052A             BRANCH IF NOT
     5292   01 014D9    324E143E              LW,4     DINPUT+12,7       FETCH DATA WORD INDEXED
     5293   01 014DA    ED400BBB              WD,4     *GPA9             SET DATA LINES TO MIOP
     5294   01 014DB    33100C99              MTW,1    %ERRWD3           ERR WORD 3 = N2
     5295   01 014DC    35100AD5              STW,1    ADDATA            SET ADD DATA FLAG
     5296   01 014DD    225FFFFD A            LI,5     -3                SINGLE PHASE MIOP THRU PH01D1
     5297   01 014DE    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     5298   01 014DF    35400C97              STW,4    %ERRWD1           ERR WORD 1 = DATA PATTERN EXPECTED
     5299   01 014E0    324E0176              LW,4     DINBUFF+12,7      FETCH TRANSFERRED DATA,INDEXED
     5300   01 014E1    35400C98              STW,4    %ERRWD2           ERR WORD 2 = DATA PATTERN RECEIVED
     5301   01 014E2    31400C97              CW,4     %ERRWD1           DOES DATA EXPECTED = DATA RECEIVED
     5302   01 014E3    692014EF              BCS,2    T052A             BRANCH IF NOT
     5303   01 014E4    225FFFFD A            LI,5     -3                TWO PHASE CLOCKS FOR PH03D1 - PH07D1
     5304   01 014E5    22400001 A            LI,4     1                 R4 = 1
     5305   01 014E6    484014BF              EOR,4    CBACNTR           WILL A WORD BOUNDRY BE CROSSED
     5306   01 014E7    354014BF              STW,4    CBACNTR           REPLACE CBACNTR W/NEW VALUE
     5307   01 014E8    683014EA              BCR,3    %+2               IF SO, BRANCH
     5308   01 014E9    225FFFFE A            LI,5     -2                IF NOT, GIVE ONLY ONE CLOCK FOR T.O.
     5309   01 014EA    35E00AD7              STW,14   NEWLINE           INHIBIT LINE SPACEING
     5310   01 014EB    6AF00AE3              BAL,15   PHSCLKX           SINGLE PHASE & IF ERR, READ DISPLAY
     5311   01 014EC    35E00AD7              STW,14   NEWLINE           INHIBIT NEW LINE
     5312   01 014ED    657014D2              BIR,7    DINLOUP           LOOP UNTIL TWELVE WORD PATTERN HAS
     5313   01 014EE    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5314   01 014EF    33100257     T052A    MTW,1    RETURN            FORCE ERROR RETURN
     5315   01 014F0    68000257              B        RETURN            RETURN TO TEST CONTROL ROUTINE
     5316                            *
     5317                            *
     5318                            *        TEST 53  FREE RUN TEST  (DATA IN AND DATA OUT)
     5319                            *
     5320                            *
     5321                            *
     5322                            * METHOD OF TEST: THE MS IS PLACED IN THE FREE RUN (NIIOP) MODE.
     5323                            *        THE MIOP IS NOT SINGLE PHASED.  DISPLAY GROUP OUTPUT IS INHIB-
     5324                            *        ITED.  AN SIO IS EXECUTED REQUESTING A READ (DATA IN) OF
     5325                            *        2000 WORDS.  AFTER A SECOND OF DELAY, A TIO IS EXECUTED TO
     5326                            *        FETCH THE IOP STATUS AND DETERMINE WHETHER THE SIO WAS SUCCESS-
     5327                            *        FUL.  IF THE DATA IN WAS SUCCESSFUL, AND NO ERR FLAGS WERE SET
     5328                            *        IN THE STATUS, ANOTHER SIO IS EXEcUTED, THIS TIME REQUESTING
     5329                            *        A DATA OUT OF 2000 WORDS.  AGAIN CONDITION CODE SETTINGS AND
     5330                            *        STATUS ARE EXAMINED FOR CORRECTNESS.
     5331                            * REASON FOR ERROR:  UNSUCCESSFUL IO OR INCORRECT STATUS
     5332                            * INDICATION OF ERROR:  ERROR TEST
     5333                            *        ERR WORD 1 = 1  SIO UNSUCCESSFUL (FOR DATA IN)
     5334                            *                   = 2  TIO UNSUCCESSFUL (MIOP IS STILL BUSY)
     5335                            *                   = 3  STATUS INCORRECT (CHECK DATA PATTERN IN CORE)
     5336                            *
     5337                            *        ERR WORD 1 = 4  SIO UNSUCCESSFUL (FOR DATA OUT)
     5338                            *                   = 5  TIO UNSUCCESSFUL (MIOP IS STILL BUSY)
     5339                            *                   = 6  STATUS INCORRECT
     5340                            *
     5341                            *
     5342                            *
     5343   01 014F1    22405000 A   T053     LI,4     X'5000'           NIIOP MODE
     5344   01 014F2    30400C9A              AW,4     %ERRWD4           PRESERVE PROGRAMMMED ADDRESS SETTING
     5345   01 014F3    ED400BBC              WD,4     *GPAA             SET MS IN FREE RUN MODE
     5346   01 014F4    2240003F A            LI,4     X'3F'             DATA PATTERN = X'3F'
     5347   01 014F5    ED400BBB              WD,4     *GPA9             SET DATA PATTERN
     5348   01 014F6    35100C97              STW,1    %ERRWD1           ERR WORD 1 = 1
     5349   01 014F7    351003DF              STW,1    BYTECNT           INHIBIT DISPLAY GROUP OUTPUT
     5350   01 014F8    220000BC              LI,0     DA(T53INCP)       DEDICATE R0 TO CMND DBWRD ADDR
     5351   01 014F9    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO FOR DATA IN
     5352   01 014FA    69C01510              BCS,12   T053ERR           BRANCH IF SIO WAS UNSUCCESSFUL
     5353   01 014FB    35200C97              STW,2    %ERRWD1           ERR WORD 1 = 2
     5354   01 014FC    224FC000 A            LI,4     X'FC000'          SET COUNTDOWN VALUE
     5355   01 014FD    654014FD              BIR,4    %                 DELAY
     5356   01 014FE    CD800D6B              TIO,8    *IOPTEST          EXECUTE TIO
     5357   01 014FF    69C01510              BCS,12   T053ERR           BRANCH IF TIO WAS UNSUCCESSFUL
     5358   01 01500    35300C97              STW,3    %ERRWD1           ERR WORD 1 = 3
     5359   01 01501    4B900FA2              AND,9    X:FF0000          MASK FOR IOP STATUS
     5360   01 01502    69201510              BCS,2    T053ERR           BRANCH IF ANY STATUS BIT IS SET
     5361   01 01503    EDE00BBB              WD,14    *GPA9             CLEAR MS STATUS BYTE
     5362   01 01504    33100C97              MTW,1    %ERRWD1           ERR WORD 1 = 4
     5363   01 01505    220000BD              LI,0     DA(T53OUTCP)      FETCH FREE RUN CMND PAIR
     5364   01 01506    CC000D6B              SIO,0    *IOPTEST          EXECUTE SIO FOR DATA OUT
     5365   01 01507    69C01510              BCS,12   T053ERR           BRANCH IF SIO WAS UNSUCCESSFUL
     5366   01 01508    33100C97              MTW,1    %ERRWD1           ERR WORD 1 = 5
     5367   01 01509    22480000 A            LI,4     -524288           SET COUNTDOWN VALUE
     5368   01 0150A    6540150A              BIR,4    %                 DELAY
     5369   01 0150B    CD800D6B              TIO,8    *IOPTEST          EXECUTE TIO
     5370   01 0150C    69C01510              BCS,12   T053ERR           BRANCH IF TIO WAS UNSUCCESSFUL
     5371   01 0150D    33100C97              MTW,1    %ERRWD1           ERR WORD 1 = 6
     5372   01 0150E    4B900FA2              AND,9    X:FF0000          MASK FOR IOP STATUS
     5373   01 0150F    68201511              BCR,2    %+2               BRANCH IF NO STATUS BITS ARE SET
     5374   01 01510    33100257     T053ERR  MTW,1    RETURN            FORCE ERROR RETURN
     5375   01 01511    E8000257              B        *RETURN           RETURN TO TEST CONTROL
     5376                            *
     5377                            *
     5378                            *        TEST 54  BUS SHAREING TEST
     5379                            *
     5380                            * METHOD OF TEST:  THIS TEST SHOULD BE SELECTED ONLY IF TWO MIOP'S ARE
     5381                            *                 CONFIGURED FOR BUS SHAREING.
     5382                            *
     5383                            *                 THIS TEST VERIFIES THAT THE MIOP WHICH IS SELECTED FOR
     5384                            *                 TEST, (HEREAFTER REFERRED TO AS THE T-MIOP), WILL PASS
     5385                            *                 ANY OR ALL OF THE 4-BYTE MIOP TESTS (T000-T053) WHILE
     5386                            *                 MEMORY BUS-SHARED WITH A SECOND, FREE-RUNNING MIOP,
     5387                            *                 (HEREAFTER REFERRED TO AS THE F-MIOP).
     5388                            *
     5389                            *                 THE PROGRAM WILL COME TO A HALT AT %WAITB, AT WHICH
     5390                            *                 TIME THE OPERATOR MUST ENTER INTO REGISTER 0:
     5391                            *                 THE F-MIOP I/O UNIT ADDRESS (0-7) BITS 21-23
     5392                            *                 THE F-MIOP MS ADDRESS (00-7F) INTO BITS 25-31
     5393                            *                 (NOTE: THE ABOVE ADDRESS ENTRY SHOULD NOT BE
     5394                            *                 CONFUSED WITH THE DEVICE CONTROLLER/SUBCHANNEL
     5395                            *                 ADDRESS WHICH WILL BE PROGRAM CONTROLLED VIA
     5396                            *                 THE MAINTENANCE SUBCONTROLLER PROGRAMMABLE
     5397                            *                 ADDRESS REGISTER.
     5398                            *
     5399                            *
     5400                            *        AFTER THE COMPUTE SWITCH IS TOGGLED THE PROGRAM WILL CAUSE
     5401                            *        AN INTERMINABLE I/O OPERATION TO BE STARTED IN THE F-MIOP.
     5402                            *        AFTER SEVERAL SECONDS, A TIO IS SENT TO VERIFY THAT THE
     5403                            *        F-MIOP IS TRANSFERRING CONTINUOSLY.
     5404                            *        IF THE SIO WAS SUCCESSFUL, THE PROGRAM WILL RETURN TO %START
     5405                            *        AND PROCEED TO THE INITIALIZATTION WAITS AT WHICH TIME THE
     5406                            *        OPERATOR MUST SELECT KEYBOARD/PCP AND TEST/SUBCHANNEL
     5407                            *        PARAMETERS FOR THE T-MIOP AS DURING NORMAL OPERATION.
     5408                            *
     5409                            *        TO RESET THE FREE-RUNNING F-MIOP, THE OPERATOR MUST RESET I/O
     5410                            *        FROM THE PCP.
     5411                            *
     5412                            * REASON FOR ERROR: F-MIOP IS NOT IN THE 'BUSY' STATE
     5413                            * ERROR INDICATION: PROGRAM HALT AT %ERRWAIT AFTER TIO OR SIO
     5414                            *                   READ CC1, CC2 ON PCP
     5415                            ***************TOGGLE CUMPUTE SWITCH TO RETURN FOR USER COMMUNICATION***
     5416                            *              AFTER ERROR HALT,...
     5417   01 01512    22000000 A   T054     LI,0     0                 CLEAR R0
     5418   01 01513    2E000000 A   %WAITB   WAIT     0                 ENTER F-MIOP PARAMETERS
     5419                            *
     5420                            *        ENTER F-MIOP/MS ADDRESS INTO R0:
     5421                            *        F-MIOP UNIT ADDRESS (0-7) INTO BITS 21-23
     5422                            *        F-MIOP MS ADDRESS (00-7F) INTO BITS 25-31
     5423                            *
     5424   01 01514    35000009 A            STW,0    9                 INPUT DATA TO R9 FOR ADDR FORMATIONS
     5425   01 01515    4B900F97              AND,9    X:7F              MASK FOR MS ADDR
     5426   01 01516    25900005 A            SLS,9    5                 POSITION IN CONTROL WORD
     5427   01 01517    20902010 A            AI,9     X'2010'           FORM GRP0 OF F-MIOP
     5428   01 01518    EDD00009 A            WD,13    *9                RESET F-MIOP
     5429   01 01519    3890000D A            SW,9     13                FORM GPAC OF F-MIOP MS
     5430   01 0151A    ED300009 A            WD,3     *9                SET IOR/DOR
     5431   01 0151B    38900002 A            SW,9     2                 FORM GPAA FOR F-MIOP MS
     5432   01 0151C    22405001 A            LI,4     X'5001'           PROGRAMMABLE ADDR. = 1
     5433   01 0151D    ED400009 A            WD,4     *9                SET MSOL, DC'S OFF LINE, PROG.ADDR=1
     5434   01 0151E    32400FB7              LW,4     FFFF0000          R E L A Y
     5435   01 0151F    6540151F              BIR,4    %                           D E L A Y
     5436   01 01520    4B000F9A              AND,0    X:700             MASK FOR IO UNIT ADDRESS
     5437   01 01521    20000001 A            AI,0     1                 DEVICE CONTROLLER,(SUBCHANNEL) = 1
     5438   01 01522    35000004 A            STW,0    4                 RELOCATE ADDR TO REG 4
     5439   01 01523    220000BE              LI,0     DA(T054CP)        LOAD CMND PAIR
     5440   01 01524    CC600004 A            SIO,6    *4                EXECUTE SIO TO F-MIOP
     5441   01 01525    69C0152B              BCS,12   %ERRWAIT          BRANCH TO WAIT IF UNSUCCESSFUL SIO
     5442   01 01526    22900FB1              LI,9     FC000000          FETCH DELAY COUNT
     5443   01 01527    65901527              BIR,9    %                 DELAY SEVERAL SECONDS
     5444   01 01528    CD600004 A            TIO,6    *4                IS F-MIOP BUSY
     5445   01 01529    68C0152B              BCR,12   %ERRWAIT          BRANCH IF NOT
     5446   01 0152A    68000200              B        %START            RETURN FOR T-MIOP INITIALIZATION
     5447   01 0152B    2E000000 A   %ERRWAIT WAIT     0
     5448   01 0152C    68000200              B        %START            RETURN FOR USER COMMUNICATION
     5449                            *
     5450                            *        STORED DATA DISPLAY 'COOKBOOK'
     5451                            *
     5452         01 0152D           000Q     TEXTS      '60058000092F1103020A00040000'
     5453         01 01534                    TEXTS      '580140006C2F180302FA00C40000'
     5454         01 0153B                    TEXTS      '44810000092F18C302AA00C401FF'
     5455         01 01542                    TEXTS      'C0610000092F480302EA000001FF'
     5456         01 01549                    TEXTS      'C01B00006D2F480302CA02000000'
     5457         01 01550                    TEXTS      'C00700006D2F580302CA00000000'
     5458         01 01557           001Q     TEXTS      '60058000092F1103020A000400B2'
     5459         01 0155E                    TEXTS      '580140006C2F180302FA00C400B2'
     5460         01 01565                    TEXTS      '460100006D2F18C302FA00E40203'
     5461         01 0156C                    TEXTS      '418100006D2F18C302AA00E40204'
     5462         01 01573                    TEXTS      'C0610000092F480302EA00200204'
     5463         01 0157A                    TEXTS      'C01B00006D2F480302CA02200000'
     5464         01 01581                    TEXTS      'C00700006D2F580302CA002000B1'
     5465         01 01588           003Q     TEXTS      '60058000092F1103020A000400B2'
     5466         01 0158F                    TEXTS      '580140006C2F180302FA00C400B2'
     5467         01 01596                    TEXTS      '44810000082F18C302AA00C40204'
     5468         01 0159D                    TEXTS      'C0630000082F480302EA00000204'
     5469         01 015A4                    TEXTS      'C01B0000082F480302CA02000000'
     5470         01 015AB                    TEXTS      'C0070000082F580302CA00000000'
     5471         01 015B2           004Q     TEXTS      '60058000082F1103020A000400B2'
     5472         01 015B9                    TEXTS      '580140006C2F180302FA00C400B2'
     5473         01 015C0                    TEXTS      '44810000082F18C302AA00C40000'
     5474         01 015C7                    TEXTS      'C0630000082F080302EA00000000'
     5475         01 015CE                    TEXTS      'C01B0000082F080302CA02000000'
     5476         01 015D5                    TEXTS      'C0070000082F180302CA00000000'
     5477         01 015DC           005Q     TEXTS      '60058000082F1103020A00040000'
     5478         01 015E3                    TEXTS      '580140006C2F180302FA00C40000'
     5479         01 015EA                    TEXTS      '44810000082F18C302AA00C40000'
     5480         01 015F1                    TEXTS      'C0630000082F080302EA00000000'
     5481         01 015F8                    TEXTS      'C01B0000082F080302CA02000000'
     5482         01 015FF                    TEXTS      'C0070000082F180302CA00000000'
     5483         01 01606           006Q     TEXTS      '60058000082F1103020A00040000'
     5484         01 0160D                    TEXTS      '580140006C2F180302FA00C40000'
     5485         01 01614                    TEXTS      '44810000082F18C302AA00C40000'
     5486         01 0161B                    TEXTS      'C0630000082F080302EA00000000'
     5487         01 01622                    TEXTS      'C01B0000082F080302CA02000000'
     5488         01 01629                    TEXTS      'C0070000082F180302CA00000000'
     5489         01 01630           008Q     TEXTS      '60058000082F1103020A00040000'
     5490         01 01637                    TEXTS      '580140006C2F180302FA00C40000'
     5491         01 0163E                    TEXTS      '44810000082F18C302AA00C40207'
     5492         01 01645                    TEXTS      'C0630000082F480302EA00000207'
     5493         01 0164C                    TEXTS      'C01B0000082F480302CA02000000'
     5494         01 01653                    TEXTS      'C0070000082F580302CA00000000'
     5495         01 0165A           009Q     TEXTS      '60078000082F180302CA000400B2'
     5496         01 01661                    TEXTS      '580140006C2F180302FA00C400B2'
     5497         01 01668                    TEXTS      '44810000082F18C302AA00C40000'
     5498         01 0166F                    TEXTS      'C0630000082F080302EA00000000'
     5499         01 01676                    TEXTS      'C01B0000082F080302CA02000000'
     5500         01 0167D                    TEXTS      'C0070000082F180302CA00000000'
     5501         01 01684           011Q     TEXTS      '60058000082F1103020A00040000'
     5502         01 0168B                    TEXTS      '580140006C2F180302FA00C40000'
     5503         01 01692                    TEXTS      '44810000082F18C302AA00C40000'
     5504         01 01699                    TEXTS      'C0630000082F080302EA00000000'
     5505         01 016A0                    TEXTS      'C01B0000082F080302CA02000000'
     5506         01 016A7                    TEXTS      'C0070000082F180302CA00000000'
     5507         01 016AE           012Q     TEXTS      '60058000082F1103020A00040000'
     5508         01 016B5                    TEXTS      '580140006C2F180302FA00C40000'
     5509         01 016BC                    TEXTS      '44810000092F18C302AA00C40000'
     5510         01 016C3                    TEXTS      'C06300006D2F080302EA00000000'
     5511         01 016CA                    TEXTS      'C01B00006D2F080302CA02000000'
     5512         01 016D1                    TEXTS      'C00700006D2F180302CA00000000'
     5513         01 016D8           013Q     TEXTS      '60058000092F1103020A00040000'
     5514         01 016DF                    TEXTS      '580140006C2F180302FA00C40000'
     5515         01 016E6                    TEXTS      '44810000092F18C302AA00C40000'
     5516         01 016ED                    TEXTS      'C06300006D2F080302EA00000000'
     5517         01 016F4                    TEXTS      'C01B00006D2F080302CA02000000'
     5518         01 016FB                    TEXTS      'C00700006D2F180302CA00000000'
     5519         01 01702           014Q     TEXTS      '60058000092F1103020A00040000'
     5520         01 01709                    TEXTS      '580140006C2F180302FA00C40000'
     5521         01 01710                    TEXTS      '44810000092F18C302AA00C40000'
     5522         01 01717                    TEXTS      'C06300006D2F080302EA00000000'
     5523         01 0171E                    TEXTS      'C01B00006D2F080302CA02000000'
     5524         01 01725                    TEXTS      'C00700006D2F180302CA00000000'
     5525         01 0172C           015Q     TEXTS      '60058000092F1103020A00040000'
     5526         01 01733                    TEXTS      '580140006C2F180302FA00C40000'
     5527         01 0173A                    TEXTS      '44810000092F18C302AA00C40000'
     5528         01 01741                    TEXTS      'C06300006D2F080302EA00000000'
     5529         01 01748                    TEXTS      'C01B00006D2F080302CA02000000'
     5530         01 0174F                    TEXTS      'C00700006D2F180302CA00000000'
     5531         01 01756           016Q     TEXTS      '60058000092F1103020A00040000'
     5532         01 0175D                    TEXTS      '580140006C2F180302FA00C40000'
     5533         01 01764                    TEXTS      '44810000092F18C302AA00C40000'
     5534         01 0176B                    TEXTS      'C06300006D2F080302EA00000000'
     5535         01 01772                    TEXTS      'C01B00006D2F080302CA02000000'
     5536         01 01779                    TEXTS      'C00700006D2F180302CA00000000'
     5537         01 01780           017Q     TEXTS      '60058000092F1103020A00040000'
     5538         01 01787                    TEXTS      '580140006C2F180302FA00C40000'
     5539         01 0178E                    TEXTS      '44810000092F18C302AA00C40000'
     5540         01 01795                    TEXTS      'C06300006D2F080302EA00000000'
     5541         01 0179C                    TEXTS      'C01B00006D2F080302CA02000000'
     5542         01 017A3                    TEXTS      'C00700006D2F180302CA00000000'
     5543         01 017AA           018Q     TEXTS      '60058000092F1103020A00040000'
     5544         01 017B1                    TEXTS      '580140006C2F180302FA00C40000'
     5545         01 017B8                    TEXTS      '44810000092F18C302AA00C40000'
     5546         01 017BF                    TEXTS      'C06300006D2F080302EA00000000'
     5547         01 017C6                    TEXTS      'C01B00006D2F080302CA02000000'
     5548         01 017CD                    TEXTS      'C00700006D2F180302CA00000000'
     5549         01 017D4           019Q     TEXTS      '60058000092F1103020A00040000'
     5550         01 017DB                    TEXTS      '580140006C2F180302FA00C40000'
     5551         01 017E2                    TEXTS      '44810000092F18C302AA00C40000'
     5552         01 017E9                    TEXTS      'C06300006D2F080302EA00000000'
     5553         01 017F0                    TEXTS      'C01B00006D2F080302CA02000000'
     5554         01 017F7                    TEXTS      'C00700006D2F180302CA00000000'
     5555         01 017FE           020Q     TEXTS      '600780006D2F580302CA00240000'
     5556         01 01805                    TEXTS      '580140006C2F180302FA00C40000'
     5557         01 0180C                    TEXTS      '460100006D2F18C302FA00E4FFFF'
     5558         01 01813                    TEXTS      '418100006D2F18C302AA00E40000'
     5559         01 0181A                    TEXTS      'C0610000092F480302EA00600000'
     5560         01 01821                    TEXTS      'C01B00006D2F480302CA02600000'
     5561         01 01828                    TEXTS      'C00700006D2F580302CA00600000'
     5562         01 0182F           023Q     TEXTS      '60058000092F1103020A00040000'
     5563         01 01836                    TEXTS      '580140006C2F180302FA00C40000'
     5564         01 0183D                    TEXTS      '44810000082F18C302AA00C40000'
     5565         01 01844                    TEXTS      'C0630000082F480302EA00000000'
     5566         01 0184B                    TEXTS      'C01B0000082F480302CA02000000'
     5567         01 01852                    TEXTS      'C0070000082F580302CA00000000'
     5568         01 01859           024Q     TEXTS      '60058000092F1103020A00040000'
     5569         01 01860                    TEXTS      '580140006C2F180302FA00C40000'
     5570         01 01867                    TEXTS      '44810000082F18C302AA00C41800'
     5571         01 0186E                    TEXTS      'C0630000082F480302EA00001800'
     5572         01 01875                    TEXTS      'C01B0000082F480302CA02000000'
     5573         01 0187C                    TEXTS      'C0070000082F580302CA00000000'
     5574         01 01883                    TEXTS      '60078000082F58C302CA00000000'
     5575         01 0188A                    TEXTS      '50036000082F1823021A00000000'
     5576         01 01891                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5577         01 01898                    TEXTS      'C00300606C2FCC23028200201801'
     5578         01 0189F                    TEXTS      'C00300186C2FCE23020200200000'
     5579         01 018A6                    TEXTS      'C00300066C2FCE23026200300000'
     5580         01 018AD                    TEXTS      'C00300016C2FDE03026202300000'
     5581         01 018B4           025Q     TEXTS      '60018001082F1303020A02040000'
     5582         01 018BB                    TEXTS      '580140006C2F180302FA00C40000'
     5583         01 018C2                    TEXTS      '44810000082F18C302AA00C400A4'
     5584         01 018C9                    TEXTS      'C0630000082F480302EA000000A4'
     5585         01 018D0                    TEXTS      'C01B0000082F480302CA02000000'
     5586         01 018D7                    TEXTS      'C0070000082F580302CA00000000'
     5587         01 018DE                    TEXTS      '60078000082F58C302CA00000000'
     5588         01 018E5                    TEXTS      '50036000082F1823021A00000000'
     5589         01 018EC                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5590         01 018F3                    TEXTS      'C00300606C2FCC230282002000A5'
     5591         01 018FA                    TEXTS      'C00300186C2FCE23020200200000'
     5592         01 01901                    TEXTS      'C00300066C2FCE23026200300000'
     5593         01 01908                    TEXTS      'C00300016C2FDE03026202300000'
     5594         01 0190F           026Q     TEXTS      '60058000092F1103020A00040000'
     5595         01 01916                    TEXTS      '580140006C2F180302FA00C40000'
     5596         01 0191D                    TEXTS      '44810000082F18C302AA00C400A5'
     5597         01 01924                    TEXTS      'C0630000082F480302EA000000A5'
     5598         01 0192B                    TEXTS      'C01B0000082F480302CA02000000'
     5599         01 01932                    TEXTS      'C0070000082F580302CA00000000'
     5600         01 01939                    TEXTS      '60078000082F58C302CA00000000'
     5601         01 01940                    TEXTS      '50036000082F1823021A00000000'
     5602         01 01947                    TEXTS      'C0031080082FCC2302FA00003FFF'
     5603         01 0194E                    TEXTS      'C00300606C2FCC230282002000A6'
     5604         01 01955                    TEXTS      'C00300186C2FCE23020200200000'
     5605         01 0195C                    TEXTS      'C00300066C2FCE23026200208000'
     5606         01 01963                    TEXTS      'C00300016C2FDE03026202200000'
     5607         01 0196A           027Q     TEXTS      '60058000092F1103020A00040000'
     5608         01 01971                    TEXTS      '580140006C2F180302FA00C40000'
     5609         01 01978                    TEXTS      '44810000082F18C302AA00C400A6'
     5610         01 0197F                    TEXTS      'C0630000082F480302EA000000A6'
     5611         01 01986                    TEXTS      'C01B0000082F480302CA02000000'
     5612         01 0198D                    TEXTS      'C0070000082F580302CA00000000'
     5613         01 01994                    TEXTS      '60078000082F58C302CA00000000'
     5614         01 0199B                    TEXTS      '50036000082F1823021A00000000'
     5615         01 019A2                    TEXTS      'C0031080082FCC2302FA00007FFF'
     5616         01 019A9                    TEXTS      'C00300606C2FCC230282002000A7'
     5617         01 019B0                    TEXTS      'C00300186C2FCE23020200200100'
     5618         01 019B7                    TEXTS      'C00300066C2FCE23026204300001'
     5619         01 019BE                    TEXTS      'C00300016C2FDE03026202302C00'
     5620         01 019C5                    TEXTS      '600380016C2FDEC3026202302C00'
     5621         01 019CC                    TEXTS      '50036000086F1823021A00100000'
     5622         01 019D3                    TEXTS      'C00318006C6F4823021A04100000'
     5623         01 019DA                    TEXTS      'C00304026C6F452302FA24100000'
     5624         01 019E1                    TEXTS      'C00300016C6F550302EA02102C00'
     5625         01 019E8                    TEXTS      '600380016C6F55C302EA02102C00'
     5626         01 019EF                    TEXTS      '50036000086F1823021A00100000'
     5627         01 019F6                    TEXTS      'C0031002086F842302FA2411FFFF'
     5628         01 019FD                    TEXTS      'C0030001086F940302EA02102C00'
     5629         01 01A04           028Q     TEXTS      '60018001086F1103020A02042C00'
     5630         01 01A0B                    TEXTS      '580140006C2F180302FA00C40000'
     5631         01 01A12                    TEXTS      '44810000082F18C302AA00C400A6'
     5632         01 01A19                    TEXTS      'C0630000082F480302EA000000A6'
     5633         01 01A20                    TEXTS      'C01B0000082F480302CA02000000'
     5634         01 01A27                    TEXTS      'C0070000082F580302CA00000000'
     5635         01 01A2E                    TEXTS      '60078000082F58C302CA00000000'
     5636         01 01A35                    TEXTS      '50036000082F1823021A00000000'
     5637         01 01A3C                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5638         01 01A43                    TEXTS      'C00300606C2FCC230282002000A7'
     5639         01 01A4A                    TEXTS      'C00300186C2FCE23020200200100'
     5640         01 01A51                    TEXTS      'C00300066C2FCE23026204300001'
     5641         01 01A58                    TEXTS      'C00300016C2FDE03026202302C00'
     5642         01 01A5F                    TEXTS      '600380016C2FDEC3026202302C00'
     5643         01 01A66                    TEXTS      '50036000086F1823021A00100000'
     5644         01 01A6D                    TEXTS      'C00318006C6F4823021A04100000'
     5645         01 01A74                    TEXTS      'C00304026C6F452302FA24100000'
     5646         01 01A7B                    TEXTS      'C00300016C6F550302EA02102C00'
     5647         01 01A82                    TEXTS      '600380016C6F55C302EA02102C00'
     5648         01 01A89                    TEXTS      '50036000086F1823021A00100000'
     5649         01 01A90                    TEXTS      'C003100209EF842302FA2411FFFF'
     5650         01 01A97                    TEXTS      'C003000109EF940302EA22102C42'
     5651         01 01A9E           029Q     TEXTS      '60018001086F1103020A02040C00'
     5652         01 01AA5                    TEXTS      '580140006C2F180302FA00C40000'
     5653         01 01AAC                    TEXTS      '44810000082F18C302AA00C400A6'
     5654         01 01AB3                    TEXTS      'C0630000082F480302EA000000A6'
     5655         01 01ABA                    TEXTS      'C01B0000082F480302CA02000000'
     5656         01 01AC1                    TEXTS      'C0070000082F580302CA00000000'
     5657         01 01AC8                    TEXTS      '60078000082F58C302CA00000000'
     5658         01 01ACF                    TEXTS      '50036000082F1823021A00000000'
     5659         01 01AD6                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5660         01 01ADD                    TEXTS      'C00300606C2FCC230282002000A7'
     5661         01 01AE4                    TEXTS      'C00300186C2FCE23020200200100'
     5662         01 01AEB                    TEXTS      'C00300066C2FCE23026204300001'
     5663         01 01AF2                    TEXTS      'C00300016C2FDE03026202300C00'
     5664         01 01AF9                    TEXTS      '600380016C2FDEC3026202300C00'
     5665         01 01B00                    TEXTS      '50036000086F1823021A00100000'
     5666         01 01B07                    TEXTS      'C00318006C6F4823021A04100000'
     5667         01 01B0E                    TEXTS      'C00304026C6F452302FA24100000'
     5668         01 01B15                    TEXTS      'C00300016C6F550302EA02100C00'
     5669         01 01B1C                    TEXTS      '600380016C6F55C302EA02100C00'
     5670         01 01B23                    TEXTS      '50036000086F1823021A00100000'
     5671         01 01B2A                    TEXTS      'C003100208EF842302FA2411FFFF'
     5672         01 01B31                    TEXTS      'C003000108EF940302EA22100C82'
     5673         01 01B38           030Q     TEXTS      '60018001082F1103020A02041000'
     5674         01 01B3F                    TEXTS      '580140006C2F180302FA00C40000'
     5675         01 01B46                    TEXTS      '44810000082F18C302AA00C400A6'
     5676         01 01B4D                    TEXTS      'C0630000082F480302EA000000A6'
     5677         01 01B54                    TEXTS      'C01B0000082F480302CA02000000'
     5678         01 01B5B                    TEXTS      'C0070000082F580302CA00000000'
     5679         01 01B62                    TEXTS      '60078000082F58C302CA00000000'
     5680         01 01B69                    TEXTS      '50036000082F1823021A00000000'
     5681         01 01B70                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5682         01 01B77                    TEXTS      'C00300606C2FCC230282002000A7'
     5683         01 01B7E                    TEXTS      'C00300186C2FCE23020200200100'
     5684         01 01B85                    TEXTS      'C00300066C2FCE23026200300001'
     5685         01 01B8C                    TEXTS      'C00300016C2FDE03026202301000'
     5686         01 01B93                    TEXTS      '600380016C2FDEC3026202301000'
     5687         01 01B9A                    TEXTS      '50036000082F1823021A00100000'
     5688         01 01BA1                    TEXTS      'C00318006C2F4823021A00100000'
     5689         01 01BA8                    TEXTS      'C00304026C2F452302FA20100000'
     5690         01 01BAF                    TEXTS      'C00300016C2F550302EA02101000'
     5691         01 01BB6                    TEXTS      '600380016C2F55C302EA02101000'
     5692         01 01BBD                    TEXTS      '50036000082F1823021A00100000'
     5693         01 01BC4                    TEXTS      'C0031002082F842302FA2011FFFF'
     5694         01 01BCB                    TEXTS      'C0030001082F940302EA42101000'
     5695         01 01BD2           031Q     TEXTS      '60018001082F1103020A02040400'
     5696         01 01BD9                    TEXTS      '580140006C2F180302FA00C40000'
     5697         01 01BE0                    TEXTS      '44810000082F18C302AA00C400A6'
     5698         01 01BE7                    TEXTS      'C0630000082F480302EA000000A6'
     5699         01 01BEE                    TEXTS      'C01B0000082F480302CA02000000'
     5700         01 01BF5                    TEXTS      'C0070000082F580302CA00000000'
     5701         01 01BFC                    TEXTS      '60078000082F58C302CA00000000'
     5702         01 01C03                    TEXTS      '50036000082F1823021A00000000'
     5703         01 01C0A                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5704         01 01C11                    TEXTS      'C00300606C2FCC230282002000A7'
     5705         01 01C18                    TEXTS      'C00300186C2FCE23020200200100'
     5706         01 01C1F                    TEXTS      'C00300066C2FCE23026200300001'
     5707         01 01C26                    TEXTS      'C00300016C2FDE03026202300400'
     5708         01 01C2D                    TEXTS      '600380016C2FDEC3026202300400'
     5709         01 01C34                    TEXTS      '50036000082F1823021A00100000'
     5710         01 01C3B                    TEXTS      'C00318006C2F4823021A00100000'
     5711         01 01C42                    TEXTS      'C00304026C2F452302FA20100000'
     5712         01 01C49                    TEXTS      'C00300016C2F550302EA02100400'
     5713         01 01C50                    TEXTS      '600380016C2F55C302EA02100400'
     5714         01 01C57                    TEXTS      '50036000082F1823021A00100000'
     5715         01 01C5E                    TEXTS      'C0031002082F842302FA2011FFFF'
     5716         01 01C65                    TEXTS      'C0030001082F940302EA22100400'
     5717         01 01C6C           032Q     TEXTS      '60018001086F1103020A02040A00'
     5718         01 01C73                    TEXTS      '580140006C2F180302FA00C40000'
     5719         01 01C7A                    TEXTS      '44810000082F18C302AA00C400A6'
     5720         01 01C81                    TEXTS      'C0630000082F480302EA000000A6'
     5721         01 01C88                    TEXTS      'C01B0000082F480302CA02000000'
     5722         01 01C8F                    TEXTS      'C0070000082F580302CA00000000'
     5723         01 01C96                    TEXTS      '60078000082F58C302CA00000000'
     5724         01 01C9D                    TEXTS      '50036000082F1823021A00000000'
     5725         01 01CA4                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5726         01 01CAB                    TEXTS      'C00300606C2FCC230282002000A7'
     5727         01 01CB2                    TEXTS      'C00300186C2FCE23020200200100'
     5728         01 01CB9                    TEXTS      'C00300066C2FCE23026204300001'
     5729         01 01CC0                    TEXTS      'C00300016C2FDE03026202300A00'
     5730         01 01CC7                    TEXTS      '600380016C2FDEC3026202300A00'
     5731         01 01CCE                    TEXTS      '50036000086F1823021A00100000'
     5732         01 01CD5                    TEXTS      'C00318006C6F4823021A04100000'
     5733         01 01CDC                    TEXTS      'C00304026C6F452302FA24100000'
     5734         01 01CE3                    TEXTS      'C00300016C6F550302EA02100A00'
     5735         01 01CEA                    TEXTS      '600380016C6F55C302EA02100A00'
     5736         01 01CF1                    TEXTS      '50036000086F1823021A00100000'
     5737         01 01CF8                    TEXTS      'C0031002086F842302FA2411FFFF'
     5738         01 01CFF                    TEXTS      'C0030001086F940302EA02100A80'
     5739         01 01D06           033Q     TEXTS      '60018001082F1103020A02042000'
     5740         01 01D0D                    TEXTS      '580140006C2F180302FA00C40000'
     5741         01 01D14                    TEXTS      '44810000082F18C302AA00C400A6'
     5742         01 01D1B                    TEXTS      'C0630000082F480302EA000000A6'
     5743         01 01D22                    TEXTS      'C01B0000082F480302CA02000000'
     5744         01 01D29                    TEXTS      'C0070000082F580302CA00000000'
     5745         01 01D30                    TEXTS      '60078000082F58C302CA00000000'
     5746         01 01D37                    TEXTS      '50036000082F1823021A00000000'
     5747         01 01D3E                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5748         01 01D45                    TEXTS      'C00300606C2FCC230282002000A7'
     5749         01 01D4C                    TEXTS      'C00300186C2FCE23020200200100'
     5750         01 01D53                    TEXTS      'C00300066C2FCE23026200300001'
     5751         01 01D5A                    TEXTS      'C00300016C2FDE03026202302000'
     5752         01 01D61                    TEXTS      '600380016C2FDEC3026202302000'
     5753         01 01D68                    TEXTS      '50036000082F1823021A00100000'
     5754         01 01D6F                    TEXTS      'C00318006C2F4823021A00100000'
     5755         01 01D76                    TEXTS      'C00304026C2F452302FA20100000'
     5756         01 01D7D                    TEXTS      'C00300016C2F550302EA02102000'
     5757         01 01D84                    TEXTS      '600380016C2F55C302EA02102000'
     5758         01 01D8B                    TEXTS      '50036000082F1823021A00100000'
     5759         01 01D92                    TEXTS      'C0031002082F842302FA2011FFFF'
     5760         01 01D99                    TEXTS      'C0030001082F940302EA02102001'
     5761         01 01DA0           034Q     TEXTS      '60018001082F1103020A02042001'
     5762         01 01DA7                    TEXTS      '580140006C2F180302FA00C40000'
     5763         01 01DAE                    TEXTS      '44810000082F18C302AA00C400A6'
     5764         01 01DB5                    TEXTS      'C0630000082F480302EA000000A6'
     5765         01 01DBC                    TEXTS      'C01B0000082F480302CA02000000'
     5766         01 01DC3                    TEXTS      'C0070000082F580302CA00000000'
     5767         01 01DCA                    TEXTS      '60078000082F58C302CA00000000'
     5768         01 01DD1                    TEXTS      '50036000082F1823021A00000000'
     5769         01 01DD8                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5770         01 01DDF                    TEXTS      'C00300606C2FCC230282002000A7'
     5771         01 01DE6                    TEXTS      'C00300186C2FCE23020200200100'
     5772         01 01DED                    TEXTS      'C00300066C2FCE23026200300001'
     5773         01 01DF4                    TEXTS      'C00300016C2FDE03026202302000'
     5774         01 01DFB                    TEXTS      '600380016C2FDEC3026202302000'
     5775         01 01E02                    TEXTS      '50036000082F1823021A00100000'
     5776         01 01E09                    TEXTS      'C00318006C2F4823021A00100000'
     5777         01 01E10                    TEXTS      'C00304026C2F452302FA20100000'
     5778         01 01E17                    TEXTS      'C00300016C2F550302EA02102000'
     5779         01 01E1E                    TEXTS      '600380016C2F55C302EA02102000'
     5780         01 01E25                    TEXTS      '50036000082F1823021A00100000'
     5781         01 01E2C                    TEXTS      'C0031002082F842302FA2011FFFF'
     5782         01 01E33                    TEXTS      'C0030001082F940302EA02102000'
     5783         01 01E3A                    TEXTS      '60038001082F94C302EA02102000'
     5784         01 01E41                    TEXTS      '50036000082F1823021A00100000'
     5785         01 01E48                    TEXTS      'C0031080082FCC2302FA2011FFFF'
     5786         01 01E4F                    TEXTS      'C00300606C2FCC230282003000A8'
     5787         01 01E56                    TEXTS      'C00300186C2FCE23020200300000'
     5788         01 01E5D                    TEXTS      'C00300066C2FCE23026200300000'
     5789         01 01E64                    TEXTS      'C00300016C2FDE03026202300000'
     5790         01 01E6B           035Q     TEXTS      '60018001082F1303020A02040000'
     5791         01 01E72                    TEXTS      '580140006C2F180302FA00C40000'
     5792         01 01E79                    TEXTS      '44810000082F18C302AA00C400A6'
     5793         01 01E80                    TEXTS      'C0630000082F480302EA000000A6'
     5794         01 01E87                    TEXTS      'C01B0000082F480302CA02000000'
     5795         01 01E8E                    TEXTS      'C0070000082F580302CA00000000'
     5796         01 01E95                    TEXTS      '60078000082F58C302CA00000000'
     5797         01 01E9C                    TEXTS      '50036000082F1823021A00000000'
     5798         01 01EA3                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5799         01 01EAA                    TEXTS      'C00300606C2FCC230282002000A7'
     5800         01 01EB1                    TEXTS      'C00300186C2FCE23020200200100'
     5801         01 01EB8                    TEXTS      'C00300066C2FCE23026200300001'
     5802         01 01EBF                    TEXTS      'C00300016C2FDE03026202302000'
     5803         01 01EC6                    TEXTS      '600380016C2FDEC3026202302000'
     5804         01 01ECD                    TEXTS      '50036000082F1823021A00100000'
     5805         01 01ED4                    TEXTS      'C00318006C2F4823021A00100000'
     5806         01 01EDB                    TEXTS      'C00304026C2F452302FA20100000'
     5807         01 01EE2                    TEXTS      'C00300016C2F550302EA02102000'
     5808         01 01EE9                    TEXTS      '600380016C2F55C302EA02102000'
     5809         01 01EF0                    TEXTS      '50036000082F1823021A00100000'
     5810         01 01EF7                    TEXTS      'C0031002082F842302FA2011FFFF'
     5811         01 01EFE                    TEXTS      'C0030001082F940302EA02102000'
     5812         01 01F05                    TEXTS      '60038001082F94C302EA02102000'
     5813         01 01F0C                    TEXTS      '50036000082F1823021A00100000'
     5814         01 01F13                    TEXTS      'C0031080082FCC2302FA2011FFFF'
     5815         01 01F1A                    TEXTS      'C00300606C2FCC230282003000A8'
     5816         01 01F21                    TEXTS      'C00300186C2FCE230202C0300014'
     5817         01 01F28                    TEXTS      'C00300066C2FCE230262C0300000'
     5818         01 01F2F                    TEXTS      'C00300016C2FDE03026202300000'
     5819         01 01F36           036Q     TEXTS      '60018001082F1303020A02040000'
     5820         01 01F3D                    TEXTS      '580140006C2F180302FA00C40000'
     5821         01 01F44                    TEXTS      '44810000082F18C302AA00C400A9'
     5822         01 01F4B                    TEXTS      'C0630000082F480302EA000000A9'
     5823         01 01F52                    TEXTS      'C01B0000082F480302CA02000000'
     5824         01 01F59                    TEXTS      'C0070000082F580302CA00000000'
     5825         01 01F60                    TEXTS      '60078000082F58C302CA00000000'
     5826         01 01F67                    TEXTS      '50036000082F1823021A00000000'
     5827         01 01F6E                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5828         01 01F75                    TEXTS      'C00300606C2FCC230282002000AA'
     5829         01 01F7C                    TEXTS      'C0030090082FCE230292002000AA'
     5830         01 01F83                    TEXTS      'C00300606C2FCE230282002000AB'
     5831         01 01F8A                    TEXTS      'C00300186C2FCE23020200200000'
     5832         01 01F91                    TEXTS      'C00300066C2FCE23026200300000'
     5833         01 01F98                    TEXTS      'C00300016C2FDE03026202300000'
     5834         01 01F9F           037Q     TEXTS      '60018001082F1303020A02040000'
     5835         01 01FA6                    TEXTS      '580140006C2F180302FA00C40000'
     5836         01 01FAD                    TEXTS      '44810000082F18C302AA00C400A9'
     5837         01 01FB4                    TEXTS      'C0630000082F480302EA000000A9'
     5838         01 01FBB                    TEXTS      'C01B0000082F480302CA02000000'
     5839         01 01FC2                    TEXTS      'C0070000082F580302CA00000000'
     5840         01 01FC9                    TEXTS      '60078000082F58C302CA00000000'
     5841         01 01FD0                    TEXTS      '50036000082F1823021A00000000'
     5842         01 01FD7                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5843         01 01FDE                    TEXTS      'C00300606C2FCC230282002000AA'
     5844         01 01FE5                    TEXTS      'C0030090082FCE230292002000A9'
     5845         01 01FEC                    TEXTS      'C00300606C2FCE230282002000AA'
     5846         01 01FF3                    TEXTS      'C003001808AFCE230292002000A9'
     5847         01 01FFA                    TEXTS      'C003000608AFCE2302F200300001'
     5848         01 02001                    TEXTS      'C003000108AFDE0302E202300006'
     5849         01 02008           038Q     TEXTS      '6001800108AF1303020A02040006'
     5850         01 0200F                    TEXTS      '580140006C2F180302FA00C40000'
     5851         01 02016                    TEXTS      '44810000082F18C302AA00C400A9'
     5852         01 0201D                    TEXTS      'C0630000082F480302EA000000A9'
     5853         01 02024                    TEXTS      'C01B0000082F480302CA02000006'
     5854         01 0202B                    TEXTS      'C0070000082F580302CA00000000'
     5855         01 02032                    TEXTS      '60078000082F58C302CA00000000'
     5856         01 02039                    TEXTS      '50036000082F1823021A00000000'
     5857         01 02040                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5858         01 02047                    TEXTS      'C00300606C2FCC230282002000AA'
     5859         01 0204E                    TEXTS      'C0030090082FCE230292002000A9'
     5860         01 02055                    TEXTS      'C00300606C2FCE230282002000AA'
     5861         01 0205C                    TEXTS      'C003001808AFCE230292002000A9'
     5862         01 02063                    TEXTS      'C003000608AFCE2302F200300001'
     5863         01 0206A                    TEXTS      'C003000108AFDE0302E202300006'
     5864         01 02071           039Q     TEXTS      '60018001086F1103020A02040800'
     5865         01 02078                    TEXTS      '580140006C2F180302FA00C40000'
     5866         01 0207F                    TEXTS      '44810000082F18C302AA00C400A6'
     5867         01 02086                    TEXTS      'C0630000082F480302EA000000A6'
     5868         01 0208D                    TEXTS      'C01B0000082F480302CA02000000'
     5869         01 02094                    TEXTS      'C0070000082F580302CA00000000'
     5870         01 0209B                    TEXTS      '60078000082F58C302CA00000000'
     5871         01 020A2                    TEXTS      '50036000082F1823021A00000000'
     5872         01 020A9                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5873         01 020B0                    TEXTS      'C00300606C2FCC230282002000A7'
     5874         01 020B7                    TEXTS      'C00300186C2FCE23020200200100'
     5875         01 020BE                    TEXTS      'C00300066C2FCE23026204300001'
     5876         01 020C5                    TEXTS      'C00300016C2FDE03026202300800'
     5877         01 020CC                    TEXTS      '600380016C2FDEC3026202300800'
     5878         01 020D3                    TEXTS      '50036000086F1823021A00100000'
     5879         01 020DA                    TEXTS      'C00318006C6F4823021A04100000'
     5880         01 020E1                    TEXTS      'C00304026C6F452302FA24100000'
     5881         01 020E8                    TEXTS      'C00300016C6F550302EA02100800'
     5882         01 020EF                    TEXTS      '600380016C6F55C302EA02100800'
     5883         01 020F6                    TEXTS      '50036000086F1823021A00100000'
     5884         01 020FD                    TEXTS      'C003100209EF842302FA2411FFFF'
     5885         01 02104                    TEXTS      'C003000109EF940302EA021008C2'
     5886         01 0210B           040Q     TEXTS      '60058000092F1103020A00040000'
     5887         01 02112                    TEXTS      '580140006C2F180302FA00C40000'
     5888         01 02119                    TEXTS      '44810000082F18C302AA00C400AC'
     5889         01 02120                    TEXTS      'C0630000082F480302EA000000AC'
     5890         01 02127                    TEXTS      'C01B0000082F480302CA020000C2'
     5891         01 0212E                    TEXTS      'C0070000082F580302CA00000000'
     5892         01 02135                    TEXTS      '60078000082F58C302CA00000000'
     5893         01 0213C                    TEXTS      '50036000082F1823021A00000000'
     5894         01 02143                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5895         01 0214A                    TEXTS      'C00300606C2FCC230282002000AD'
     5896         01 02151                    TEXTS      'C00300186C2FCE23020200200020'
     5897         01 02158                    TEXTS      'C00300066C2FCE2302620020000C'
     5898         01 0215F                    TEXTS      'C00300016C2FDE03026202200000'
     5899         01 02166                    TEXTS      '600380016C2FDEC3026202200000'
     5900         01 0216D                    TEXTS      '50036000082F1823021A00000000'
     5901         01 02174                    TEXTS      'C00318006C2F4823021A0000000B'
     5902         01 0217B                    TEXTS      'C0030C006C2F4023021A2010000B'
     5903         01 02182                    TEXTS      'C0030C006C2F4023021A4011000A'
     5904         01 02189                    TEXTS      'C0030C006C2F4023021A60120009'
     5905         01 02190                    TEXTS      'C00304026C2F4203025A80030008'
     5906         01 02197                    TEXTS      'C00300016C2F5203024A80000000'
     5907         01 0219E                    TEXTS      '50036000082F1823021A00000000'
     5908         01 021A5                    TEXTS      'C00318006C2F4823021A80000007'
     5909         01 021AC                    TEXTS      'C0030C006C2F4023021AA0100007'
     5910         01 021B3                    TEXTS      'C0030C006C2F4023021AC0110006'
     5911         01 021BA                    TEXTS      'C0030C006C2F4023021AE0120005'
     5912         01 021C1                    TEXTS      'C00306006C2F4203025A00130004'
     5913         01 021C8                    TEXTS      'C00301006C2F5A03025200100021'
     5914         01 021CF                    TEXTS      '50036000082F1823021A00100001'
     5915         01 021D6                    TEXTS      'C00318006C2F4823021A00100003'
     5916         01 021DD                    TEXTS      'C0030C006C2F4023021A20100003'
     5917         01 021E4                    TEXTS      'C0030C006C2F4023021A40110002'
     5918         01 021EB                    TEXTS      'C0030C006C2F4023021A60120001'
     5919         01 021F2                    TEXTS      'C00304026C2F472302FA80130000'
     5920         01 021F9                    TEXTS      'C00300016C2F570302EA02100000'
     5921         01 02200           042Q     TEXTS      '60018400082F1303020A00040000'
     5922         01 02207                    TEXTS      '580140006C2F180302FA00C40000'
     5923         01 0220E                    TEXTS      '44810000082F18C302AA00C400AD'
     5924         01 02215                    TEXTS      'C0630000082F480302EA000000AD'
     5925         01 0221C                    TEXTS      'C01B0000082F480302CA02000000'
     5926         01 02223                    TEXTS      'C0070000082F580302CA00000000'
     5927         01 0222A                    TEXTS      '60078000082F58C302CA00000000'
     5928         01 02231                    TEXTS      '50036000082F1823021A00000000'
     5929         01 02238                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5930         01 0223F                    TEXTS      'C00300606C2FCC230282002000AE'
     5931         01 02246                    TEXTS      'C00300186C2FCE23020200200201'
     5932         01 0224D                    TEXTS      'C00300066C2FCE23026200300004'
     5933         01 02254                    TEXTS      'C00300016C2FDE03026202300000'
     5934         01 0225B                    TEXTS      '600380016C2FDEC3026202300000'
     5935         01 02262                    TEXTS      '50036000082F1823021A00100000'
     5936         01 02269                    TEXTS      'C00318006C2F4823021A00100003'
     5937         01 02270                    TEXTS      'C0030C006C2F4023021A20100003'
     5938         01 02277                    TEXTS      'C0030C006C2F4023021A40110002'
     5939         01 0227E                    TEXTS      'C0030C006C2F4023021A60120001'
     5940         01 02285                    TEXTS      'C00304026C2F472302FA80130000'
     5941         01 0228C                    TEXTS      'C00300016C2F570302EA02100000'
     5942         01 02293           048Q     TEXTS      '60018001086F1103020A02040800'
     5943         01 0229A                    TEXTS      '580140006C2F180302FA00C40000'
     5944         01 022A1                    TEXTS      '44810000082F18C302AA00C400AE'
     5945         01 022A8                    TEXTS      'C0630000082F480302EA000000AE'
     5946         01 022AF                    TEXTS      'C01B0000082F480302CA02000000'
     5947         01 022B6                    TEXTS      'C0070000082F580302CA00000000'
     5948         01 022BD                    TEXTS      '60078000082F58C302CA00000000'
     5949         01 022C4                    TEXTS      '50036000082F1823021A00000000'
     5950         01 022CB                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5951         01 022D2                    TEXTS      'C00300606C2FCC230282002000AF'
     5952         01 022D9                    TEXTS      'C00300186C2FCE230202002000B3'
     5953         01 022E0                    TEXTS      'C00300066C2FCE23026206300001'
     5954         01 022E7                    TEXTS      'C00300016C2FDE03026202308800'
     5955         01 022EE                    TEXTS      '600380016C2FDEC3026202308800'
     5956         01 022F5                    TEXTS      '50036000086F1823021A00100000'
     5957         01 022FC                    TEXTS      'C00318006C6F4823021A06100000'
     5958         01 02303                    TEXTS      'C00304806C6F452302FA26100000'
     5959         01 0230A                    TEXTS      'C00300606C6F45230282003000B0'
     5960         01 02311                    TEXTS      'C00300186C6F47230202003000B4'
     5961         01 02318                    TEXTS      'C00300066C6F4723026204300001'
     5962         01 0231F                    TEXTS      'C00300016C6F5703026202300800'
     5963         01 02326                    TEXTS      '50036000086F1823021A00100000'
     5964         01 0232D                    TEXTS      'C00318006C6F4823021A04100000'
     5965         01 02334                    TEXTS      'C00304026C6F452302FA24100000'
     5966         01 0233B                    TEXTS      'C00300016C6F550302EA02100800'
     5967         01 02342           049Q     TEXTS      '60018001082F1103020A02041400'
     5968         01 02349                    TEXTS      '580140006C2F180302FA00C40000'
     5969         01 02350                    TEXTS      '44810000082F18C302AA00C400A6'
     5970         01 02357                    TEXTS      'C0630000082F480302EA000000A6'
     5971         01 0235E                    TEXTS      'C01B0000082F480302CA02000000'
     5972         01 02365                    TEXTS      'C0070000082F580302CA00000000'
     5973         01 0236C                    TEXTS      '60078000082F58C302CA00000000'
     5974         01 02373                    TEXTS      '50036000082F1823021A00000000'
     5975         01 0237A                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     5976         01 02381                    TEXTS      'C00300606C2FCC230282002000A7'
     5977         01 02388                    TEXTS      'C00300186C2FCE23020200200100'
     5978         01 0238F                    TEXTS      'C00300066C2FCE23026200300001'
     5979         01 02396                    TEXTS      'C00300016C2FDE03026202301400'
     5980         01 0239D                    TEXTS      '600380016C2FDEC3026202301400'
     5981         01 023A4                    TEXTS      '50036000082F1823021A00100000'
     5982         01 023AB                    TEXTS      'C00318006C2F4823021A00100000'
     5983         01 023B2                    TEXTS      'C00304026C2F452302FA20100000'
     5984         01 023B9                    TEXTS      'C00300016C2F550302EA02101400'
     5985         01 023C0                    TEXTS      '600380016C2F55C302EA02101400'
     5986         01 023C7                    TEXTS      '50036000082F1823021A00100000'
     5987         01 023CE                    TEXTS      'C0031002082F842302FA2011FFFF'
     5988         01 023D5                    TEXTS      'C0030001082F940302EA62101400'
     5989         01 023DC                    TEXTS      '60038001082F940302EA621C1400'
     5990         01 023E3                    TEXTS      '50814000082F18C300FA00DC0000'
     5991         01 023EA                    TEXTS      'C0610000082F880302EA00100000'
     5992         01 023F1                    TEXTS      'C01B00006C2F8A0302CA02500000'
     5993         01 023F8                    TEXTS      'C00700006C2F9A0302CA00500000'
     5994         01 023FF           050Q     TEXTS      '60058000082F1303020A00440000'
     5995         01 02406                    TEXTS      '580140006C2F180302FA00C40000'
     5996         01 0240D                    TEXTS      '44810000082F18C302AA00C400B1'
     5997         01 02414                    TEXTS      'C0630000082F480302EA000000B1'
     5998         01 0241B                    TEXTS      'C01B0000082F480302CA02000000'
     5999         01 02422                    TEXTS      'C0070000082F580302CA00000000'
     6000         01 02429                    TEXTS      '60078000082F58C302CA00000000'
     6001         01 02430                    TEXTS      '50036000082F1823021A00000000'
     6002         01 02437                    TEXTS      'C0031080082FCC2302FA0000FFFF'
     6003         01 0243E                    TEXTS      'C00300606C2FCC230282002000B2'
     6004         01 02445                    TEXTS      'C00300186C2FCE230202E02000BA'
     6005         01 0244C                    TEXTS      'C00300066C2FCE230262E8300000'
     6006         01 02453                    TEXTS      'C00300016C2FDE03026202300000'
     6007         01 0245A                    TEXTS      '600380016C2FDEC3026202300000'
     6008         01 02461                    TEXTS      '50036000082F1823021A00100000'
     6009         01 02468                    TEXTS      'C0031800082F0023021AC813FFFF'
     6010         01 0246F                    TEXTS      'C0030C00082F0023021AA812FFFE'
     6011         01 02476                    TEXTS      'C0030C00082F0023021A8811FFFD'
     6012         01 0247D                    TEXTS      'C00304026C2F0203025A6810FFFC'
     6013         01 02484                    TEXTS      'C00300016C2F1203024A68100000'
     6014         01 0248B                    TEXTS      '50036000082F1823021A00100000'
     6015         01 02492                    TEXTS      'C0031800082F0023021A4803FFFB'
     6016         01 02499                    TEXTS      'C0030C00082F0023021A2812FFFA'
     6017         01 024A0                    TEXTS      'C0030C00082F0023021A0811FFF9'
     6018         01 024A7                    TEXTS      'C00306006C2F0203025AE810FFF8'
     6019         01 024AE                    TEXTS      'C00301026C2F0203025A001000B9'
     6020         01 024B5                    TEXTS      'C00300016C2F1203024AE8100000'
     6021         01 024BC                    TEXTS      '50036000082F1823021A00100000'
     6022         01 024C3                    TEXTS      'C0031800082F0023021AC803FFF7'
     6023         01 024CA                    TEXTS      'C0030C00082F0023021AA812FFF6'
     6024         01 024D1                    TEXTS      'C0030C00082F0023021A8811FFF5'
     6025         01 024D8                    TEXTS      'C00304026C2F0203025A6810FFF4'
     6026         01 024DF                    TEXTS      'C00300016C2F1203024A68100000'
     6027         01 024E6                    TEXTS      '50036000082F1823021A00100000'
     6028         01 024ED                    TEXTS      'C0031800082F0023021A4803FFF3'
     6029         01 024F4                    TEXTS      'C0030C00082F0023021A2812FFF2'
     6030         01 024FB                    TEXTS      'C0030C00082F0023021A0811FFF1'
     6031         01 02502                    TEXTS      'C00306006C2F0203025AE810FFF0'
     6032         01 02509                    TEXTS      'C00301026C2F0203025A001000B8'
     6033         01 02510                    TEXTS      'C00300016C2F1203024AE8100000'
     6034         01 02517                    TEXTS      '50036000082F1823021A00100000'
     6035         01 0251E                    TEXTS      'C0031800082F0023021AC803FFEF'
     6036         01 02525                    TEXTS      'C0030C00082F0023021AA812FFEE'
     6037         01 0252C                    TEXTS      'C0030C00082F0023021A8811FFED'
     6038         01 02533                    TEXTS      'C00304026C2F0203025A6810FFEC'
     6039         01 0253A                    TEXTS      'C00300016C2F1203024A68100000'
     6040         01 02541                    TEXTS      '50036000082F1823021A00100000'
     6041         01 02548                    TEXTS      'C0031800082F0023021A4803FFEB'
     6042         01 0254F                    TEXTS      'C0030C00082F0023021A2812FFEA'
     6043         01 02556                    TEXTS      'C0030C00082F0023021A0811FFE9'
     6044         01 0255D                    TEXTS      'C00306006C2F0203025AE810FFE8'
     6045         01 02564                    TEXTS      'C00301026C2F0203025A001000B7'
     6046         01 0256B                    TEXTS      'C00300016C2F1203024AE8100000'
     6047         01 02572                    TEXTS      '50036000082F1823021A00100000'
     6048         01 02579                    TEXTS      'C0031800082F0023021AC803FFE7'
     6049         01 02580                    TEXTS      'C0030C00082F0023021AA812FFE6'
     6050         01 02587                    TEXTS      'C0030C00082F0023021A8811FFE5'
     6051         01 0258E                    TEXTS      'C00304026C2F0203025A6810FFE4'
     6052         01 02595                    TEXTS      'C00300016C2F1203024A68100000'
     6053         01 0259C                    TEXTS      '50036000082F1823021A00100000'
     6054         01 025A3                    TEXTS      'C0031800082F0023021A4803FFE3'
     6055         01 025AA                    TEXTS      'C0030C00082F0023021A2812FFE2'
     6056         01 025B1                    TEXTS      'C0030C00082F0023021A0811FFE1'
     6057         01 025B8                    TEXTS      'C00306006C2F0203025AE810FFE0'
     6058         01 025BF                    TEXTS      'C00301026C2F0203025A001000B6'
     6059         01 025C6                    TEXTS      'C00300016C2F1203024AE8100000'
     6060         01 025CD                    TEXTS      '50036000082F1823021A00100000'
     6061         01 025D4                    TEXTS      'C0031800082F0023021AC803FFDF'
     6062         01 025DB                    TEXTS      'C0030C00082F0023021AA812FFDE'
     6063         01 025E2                    TEXTS      'C0030C00082F0023021A8811FFDD'
     6064         01 025E9                    TEXTS      'C00304026C2F0203025A6810FFDC'
     6065         01 025F0                    TEXTS      'C00300016C2F1203024A68100000'
     6066         01 025F7                    TEXTS      '50036000082F1823021A00100000'
     6067         01 025FE                    TEXTS      'C0031800082F0023021A4803FFDB'
     6068         01 02605                    TEXTS      'C0030C00082F0023021A2812FFDA'
     6069         01 0260C                    TEXTS      'C0030C00082F0023021A0811FFD9'
     6070         01 02613                    TEXTS      'C00306006C2F0203025AE810FFD8'
     6071         01 0261A                    TEXTS      'C00301026C2F0203025A001000B5'
     6072         01 02621                    TEXTS      'C00300016C2F1203024AE8100000'
     6073         01 02628                    TEXTS      '50036000082F1823021A00100000'
     6074         01 0262F                    TEXTS      'C0031800082F0023021AC803FFD7'
     6075         01 02636                    TEXTS      'C0030C00082F0023021AA812FFD6'
     6076         01 0263D                    TEXTS      'C0030C00082F0023021A8811FFD5'
     6077         01 02644                    TEXTS      'C00304026C2F0203025A6810FFD4'
     6078         01 0264B                    TEXTS      'C00300016C2F1203024A68100000'
     6079         01 02652                    TEXTS      '50036000082F1823021A00100000'
     6080         01 02659                    TEXTS      'C0031800082F0023021A4803FFD3'
     6081         01 02660                    TEXTS      'C0030C00082F0023021A2812FFD2'
     6082         01 02667                    TEXTS      'C0030C00082F0023021A0811FFD1'
     6083         01 0266E                    TEXTS      'C00306006C2F0203025AE810FFD0'
     6084         01 02675                    TEXTS      'C00301026C2F0203025A001000B4'
     6085         01 0267C                    TEXTS      'C00300016C2F1203024AE8100000'
     6086         01 02683           051Q     TEXTS      '60018001082F1303020AE8040000'
     6087         01 0268A                    TEXTS      '580140006C2F180302FA00C40000'
     6088         01 02691                    TEXTS      '44810000082F18C302AA00C400B0'
     6089         01 02698                    TEXTS      'C0630000082F480302EA000000B0'
     6090         01 0269F                    TEXTS      'C01B0000082F480302CA02000000'
     6091         01 026A6                    TEXTS      'C0070000082F580302CA00000000'
     6092         01 026AD                    TEXTS      '60078000082F58C302CA00000000'
     6093         01 026B4                    TEXTS      '50036000082F1823021A00000000'
     6094         01 026BB                    TEXTS      'C0031080082FCC2302FA0000FFCF'
     6095         01 026C2                    TEXTS      'C00300606C2FCC230282002000B1'
     6096         01 026C9                    TEXTS      'C00300186C2FCE230202002000B5'
     6097         01 026D0                    TEXTS      'C00300066C2FCE23026200300000'
     6098         01 026D7                    TEXTS      'C00300016C2FDE03026202300000'
     6099         01 026DE                    TEXTS      '600380016C2FDEC3026202300000'
     6100         01 026E5                    TEXTS      '50036000082F3823021A00100000'
     6101         01 026EC                    TEXTS      'C00310026C2F0203025A8010FFFC'
     6102         01 026F3                    TEXTS      'C00300016C2F1203024A80100000'
     6103         01 026FA                    TEXTS      '50036000082F3823021A00100000'
     6104         01 02701                    TEXTS      'C00312006C2F0203025A0000FFF8'
     6105         01 02708                    TEXTS      'C00301026C2F02030252000000B6'
     6106         01 0270F                    TEXTS      'C00300016C2F1203024200000000'
     6107         01 02716                    TEXTS      '50036000082F3823021A00000000'
     6108         01 0271D                    TEXTS      'C00310026C2F0203025A8000FFF4'
     6109         01 02724                    TEXTS      'C00300016C2F1203024A80000000'
     6110         01 0272B                    TEXTS      '50036000082F3823021A00000000'
     6111         01 02732                    TEXTS      'C00312006C2F0203025A0000FFF0'
     6112         01 02739                    TEXTS      'C00301026C2F02030252000000B7'
     6113         01 02740                    TEXTS      'C00300016C2F1203024200000000'
     6114         01 02747                    TEXTS      '50036000082F3823021A00000000'
     6115         01 0274E                    TEXTS      'C00310026C2F0203025A8000FFEC'
     6116         01 02755                    TEXTS      'C00300016C2F1203024A80000000'
     6117         01 0275C                    TEXTS      '50036000082F3823021A00000000'
     6118         01 02763                    TEXTS      'C00312006C2F0203025A0000FFE8'
     6119         01 0276A                    TEXTS      'C00301026C2F02030252000000B8'
     6120         01 02771                    TEXTS      'C00300016C2F1203024200000000'
     6121         01 02778                    TEXTS      '50036000082F3823021A00000000'
     6122         01 0277F                    TEXTS      'C00310026C2F0203025A8000FFE4'
     6123         01 02786                    TEXTS      'C00300016C2F1203024A80000000'
     6124         01 0278D                    TEXTS      '50036000082F3823021A00000000'
     6125         01 02794                    TEXTS      'C00312006C2F0203025A0000FFE0'
     6126         01 0279B                    TEXTS      'C00301026C2F02030252000000B9'
     6127         01 027A2                    TEXTS      'C00300016C2F1203024200000000'
     6128         01 027A9                    TEXTS      '50036000082F3823021A00000000'
     6129         01 027B0                    TEXTS      'C00310026C2F0203025A8000FFDC'
     6130         01 027B7                    TEXTS      'C00300016C2F1203024A80000000'
     6131         01 027BE                    TEXTS      '50036000082F3823021A00000000'
     6132         01 027C5                    TEXTS      'C00312006C2F0203025A0000FFD8'
     6133         01 027CC                    TEXTS      'C00301026C2F02030252000000BA'
     6134         01 027D3                    TEXTS      'C00300016C2F1203024200000000'
     6135         01 027DA                    TEXTS      '50036000082F3823021A00000000'
     6136         01 027E1                    TEXTS      'C00310026C2F0203025A8000FFD4'
     6137         01 027E8                    TEXTS      'C00300016C2F1203024A80000000'
     6138         01 027EF                    TEXTS      '50036000082F3823021A00000000'
     6139         01 027F6                    TEXTS      'C00312006C2F0203025A0000FFD0'
     6140         01 027FD                    TEXTS      'C00301026C2F02030252000000BB'
     6141         01 02804                    TEXTS      'C00300016C2F1203024200000000'
     6142         01 0280B           052Q     TEXTS      '60018001082F1303020A00040000'
     6143         01 02812                    TEXTS      '580140006C2F180302FA00C40000'
     6144         01 02819                    TEXTS      '44810000082F18C302AA00C400B2'
     6145         01 02820                    TEXTS      'C0630000082F480302EA000000B2'
     6146         01 02827                    TEXTS      'C01B0000082F480302CA02000000'
     6147         01 0282E                    TEXTS      'C0070000082F580302CA00000000'
     6148         01 02835                    TEXTS      '60078000082F58C302CA00000000'
     6149         01 0283C                    TEXTS      '50036000082F1823021A00000000'
     6150         01 02843                    TEXTS      'C0031080082FCC2302FA0000FFCF'
     6151         01 0284A                    TEXTS      'C00300606C2FCC230282002000B3'
     6152         01 02851                    TEXTS      'C00300186C2FCE230202002000B5'
     6153         01 02858                    TEXTS      'C00300066C2FCE23026210300000'
     6154         01 0285F                    TEXTS      'C00300016C2FDE03026202300100'
     6155         01 02866                    TEXTS      '600380016C2FDEC3026202300100'
     6156         01 0286D                    TEXTS      '50036000082F3823021A00100000'
     6157         01 02874                    TEXTS      'C0031002082F0203025A9010FFFC'
     6158         01 0287B                    TEXTS      'C0030001082F1203024A90100100'
     6159         01 02882                    TEXTS      '50036000083F382B001800100000'
     6160         01 02889                    TEXTS      'C0031200082F0203025A1000FFF8'
     6161         01 02890                    TEXTS      'C0030102082F02030252000000B6'
     6162         01 02897                    TEXTS      'C0030001082F1203024210000100'
     6163         01 0289E                    TEXTS      '50036000082F3823021A00000000'
     6164         01 028A5                    TEXTS      'C0031002082F0203025A9000FFF4'
     6165         01 028AC                    TEXTS      'C0030001082F1203024A90000100'
     6166         01 028B3                    TEXTS      '50036000082F3823021A00000000'
     6167         01 028BA                    TEXTS      'C0031200082F0203025A1000FFF0'
     6168         01 028C1                    TEXTS      'C0030102082F02030252000000B7'
     6169         01 028C8                    TEXTS      'C0030001082F1203024210000100'
     6170         01 028CF                    TEXTS      '50036000082F3823021A00000000'
     6171         01 028D6                    TEXTS      'C0031002082F0203025A9000FFEC'
     6172         01 028DD                    TEXTS      'C0030001082F1203024A90000100'
     6173         01 028E4                    TEXTS      '50036000082F3823021A00000000'
     6174         01 028EB                    TEXTS      'C0031200082F0203025A1000FFE8'
     6175         01 028F2                    TEXTS      'C0030102082F02030252000000B8'
     6176         01 028F9                    TEXTS      'C0030001082F1203024210000100'
     6177         01 02900                    TEXTS      '50036000082F3823021A00000000'
     6178         01 02907                    TEXTS      'C0031002082F0203025A9000FFE4'
     6179         01 0290E                    TEXTS      'C0030001082F1203024A90000100'
     6180         01 02915                    TEXTS      '50036000082F3823021A00000000'
     6181         01 0291C                    TEXTS      'C0031200082F0203025A1000FFE0'
     6182         01 02923                    TEXTS      'C0030102082F02030252000000B9'
     6183         01 0292A                    TEXTS      'C0030001082F1203024210000100'
     6184         01 02931                    TEXTS      '50036000082F3823021A00000000'
     6185         01 02938                    TEXTS      'C0031002082F0203025A9000FFDC'
     6186         01 0293F                    TEXTS      'C0030001082F1203024A90000100'
     6187         01 02946                    TEXTS      '50036000082F3823021A00000000'
     6188         01 0294D                    TEXTS      'C0031200082F0203025A1000FFD8'
     6189         01 02954                    TEXTS      'C0030102082F02030252000000BA'
     6190         01 0295B                    TEXTS      'C0030001082F1203024210000100'
     6191         01 02962                    TEXTS      '50036000082F3823021A00000000'
     6192         01 02969                    TEXTS      'C0031002082F0203025A9000FFD4'
     6193         01 02970                    TEXTS      'C0030001082F1203024A90000100'
     6194         01 02977                    TEXTS      '50036000082F3823021A00000000'
     6195         01 0297E                    TEXTS      'C0031200082F0203025A1000FFD0'
     6196         01 02985                    TEXTS      'C0030102082F02030252000000BB'
     6197         01 0298C                    TEXTS      'C0030001082F1203024210000100'
     6198   01 02993    00000000 A            DATA     0                 THESE SEVEN BLANK MEM LOCS
     6199   01 02994    00000000 A            DATA     0                 TERMINATE COMPARE SEARCHES
     6200   01 02995    00000000 A            DATA     0                 AND IMPLANTATIONS OF DATA INTO THE
     6201   01 02996    00000000 A            DATA     0                 STORED DATA DISPLAY 'COOKBOOK'.
     6202   01 02997    00000000 A            DATA     0
     6203   01 02998    00000000 A            DATA     0
     6204   01 02999    00000000 A            DATA     0
     6205         01 0299A           OUTBUFF  EQU      %
     6206         01 00200           PROGEND  END      %START

  CONTROL SECTION SUMMARY: 01 0299A   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:45 JUN 20,'83    SIGMA 5/7 MIOP WITH MAIN. SUBCONTRLR 705721-11/51A04 8/9/72           PAGE    4
A  AA000000        3254-DATA    3842/LW
   ADDATA          1054/STW     1891/MTW     1901/STW     1972-DATA    1994/STW     3784/STW     3926/STW
      3972/STW     4088/STW     4426/STW     4544/STW     4586/STW     4763/STW     4926/STW     4953/STW
      5295/STW
   ADDEM           1892/BCS     1936-LW
   ADDRESS         4701/STW     4704/LW      4722/LW*     4733/LW*     4744/LW*     4755/LW*     4759/LW
      4762/AWM     4774-DATA
   BAD             1075/B       1091-MTW
   BADCLR          1021/LW      1141-B
   BADLY           1090/B       1092/BCR     1100-MTW     2608/B
   BLOOP           2782-LI      2791/BCR
   BUFFCYCL        2696/STW     2835/STW     2845/LW      3000-DATA
   BUFFLINE        2695/STW     2829/STW     2834/STW     2852/LW*     2857/STW*    2999-DATA
   BUFFSTRT        2697/STW     2846/STW     2894/LW      2905/LH*     2909/LW      2922/AWM     2927/LW
      2935/LH*     2939/LW      2952/AWM     3001-DATA
   BUFFWORD        2694/STW     2703/LW*     2711/CW      2717/MTW     2824/MTW     2827/MTW     2828/LW
      2832/MTW     2833/LW      2858/MTW     2859/LW*     2865/STW*    2866/MTW     2998-DATA
   BYTEADDR        1224/STW     1232/LW      1238/AW      1249/STW     1358-DATA    1363/STW     1381/LW
      1387/AW      1399/STW
   BYTECNT         1085/STW     1124/CW      1225/LW      1338/LW      1499-GEN     1772/LW      1776/STW
      1889/LW      1925/STW     2698/LW      4849/STW     5349/STW
   BYTEINDX        5139/STW     5149/MTW     5170-DATA
   BYTELOOP        4615-BIR     4635/B
   BYTEM           1910-RD      1920/BIR
   BYTERET         5142-LW      5150/BCS
   C:ADR           2036/CW      2247-DATA
   C:DIO           2180/CW      2248-DATA
   C:OUT           2149/CW      2249-DATA
   C:RUN           2067/CW      2080/CW      2246-DATA
   CBACNTR         5114/STW     5160/EOR     5161/STW     5195/STW     5232/EOR     5233/STW     5242-DATA
      5267/STW     5305/EOR     5306/STW
   CBENABLE        1059/STW     1066/MTW     1068/STW     1137-DATA
   CBFLG           1009/MTW     1022/MTW     1057/MTW     2565/MTW     2609-DATA    2615/MTW     2617/MTW
      2623/MTW     2874/MTW     2884/MTW     3461/MTW     3474/MTW     3740/MTW     3866/MTW
   CC              3269-DATA    4289/LW      4319/LW      4354/LW
   CIMPLNT         2669/BAL     2764-STW     3477/BAL     3480/BAL     3482/BAL     3484/BAL     3724/BAL
      3727/BAL     3729/BAL     3804/BAL     3806/BAL     3881/BAL     3883/BAL     3886/BAL     3992/BAL
      3995/BAL
   CI1K            1276/BCS     1298-CI
   CI1L            1410/BCS     1432-CI
   CI2K            1299/BCS     1302-CI
   CI2L            1433/BCS     1436-CI
   CI3K            1303/BCS     1311-CI
   CI3L            1437/BCS     1445-CI
   CI4K            1312/BCS     1315-BAL
   CI4L            1446/BCS     1449-BAL
   CLOCKEM         1923/BIR     1930-WD
   CNDCEXIT        3471/BCR     3473/BCR     3475/BCS     3486-MTW
   CNDCPLNT        3437/BAL     3442/BAL     3447/BAL     3452/BAL     3469-STW
   CNDCSAVE        3468-DATA    3469/STW     3476/LW*     3486/MTW     3487/B*
   COMPARE         1219/BCS     2639-STW
   COMPERR         2639/STW     2841/MTW     2849/STW     2876/MTW     2879/MTW     2886/MTW     3002-DATA
   COMPFLAG        1012/MTW     1218/MTW     2069/STW     2146/STW     2250-DATA    3472/MTW     3718/MTW
      3798/MTW     3876/MTW     3987/MTW
   COMPOUT         2712/BCR     2873-LW
   COMPOUTL        2887/BCR     2892/BCS     2926-BAL
   CON             1943/AW      1965-DATA
   CONDECBI        2523/BAL     2526/BAL     2580-SLD
   CONVERT         1914/BCS     1942-SW
   COOK            2608-B       2624/LW      2625/LW
   COOKADDR        2689/LW      3152-DATA
   COOKBUFF        2958/LI      2972/LI      2983/LI      3206-DATA
   COOKCYCL        2691/STW     2838/STW     2847/LW      2996-DATA
   COOKFLAG        2915/MTW     2917/STW     2945/MTW     2947/STW     2961/MTW     3003-DATA
   COOKLOOP        2963-LW      2967/BIR
   COOKOUT         2908/BAL     2938/BAL     2957-STW
   COOKOUTL        2969/BCS     2981-LI
   COOKRET         2620-STW     2626/B
   COOKSTRT        2692/STW     2848/STW     2920/MTW     2950/MTW     2963/LW*     2997-DATA
   COOKWORD        2690/STW     2713/LW*     2716/MTW     2837/LW      2867/MTW     2995-DATA
   COSAVE          2956-DATA    2957/STW     2979/B*      2988/B*
   CPLNTSAV        2763-DATA    2764/STW     2766/LW*     2769/MTW     2770/B*
   CPSAV           4021/STW     4037/LW      4100-DATA    4148/STW     4177/STW     4205/STW     4233/STW
      4262/STW     4290/STW     4320/STW     4355/STW     4537/STW     5032/STW
   CYCLINDX        1222/STW     1274/LW      1332/MTW     1336/STW     1408/LW      1462/MTW     2640/STW
      2836/MTW     2843/LW      2878/STW     2881/STW     3004-DATA
   D:10            2303/DW      2369/DW      3245-DATA
   D:100           2299/DW      3244-DATA
   DATAERR         5004/MTW     5007/STW     5009/STW     5011/STW     5014-DATA
   DATALOOP        4660/B       4662-LW
   DEC             1913/CW      1942/SW      1959-DATA
   DEDFF9FF        1005/AND     3255-DATA
   DEVSEL          1126-BAL     2178/STW
   DICT            2394-COM
   DINBUFF          954/GEN      956/GEN      958/GEN      964-RES     5118/STW     5152/LW      5197/STW
      5225/LW      5271/STW     5299/LW
   DINLEEP         5130-LI      5166/BIR
   DINLOOP         5211-LI      5238/BIR
   DINLOUP         5285-LI      5312/BIR
   DINPAT          5066-DATA    5142/LW
   DINPUT          5053-DATA    5218/LW      5292/LW
   DINWRD          5079-DATA    5144/LW      5223/LW
   DISPFLAG        1337/STW     1360-DATA    1371/MTW     1392/MTW
   DISPGRP         1900/STW     1909/AWM     1910/RD*     1973-DATA
   DWCMNDAK        1307/LI      1510-GEN
   DWCMNDAL        1441/LI      1560-GEN
   DWCMNDBK        1309/LI      1512-GEN
   DWCMNDBL        1443/LI      1562-GEN
   DWCMNDCK        1313/LI      1514-GEN
   DWCMNDCL        1447/LI      1564-GEN
   DWCMNDDK        1318/LI      1516-GEN
   DWCMNDDL        1452/LI      1566-GEN
   DWCMNDEK        1234/STW     1235/LI      1518-GEN     2912/STW     2913/LI      2942/STW     2943/LI
      2974/STW     2975/LI      2985/STW     2986/LI
   DWCMNDEL        1458/LI      1568-GEN
   DWCMNDFK        1081/LI      1520-GEN
   DWCMNDGK         995/LI      1522-GEN
   DWCMNDHK        1093/LI      1524-GEN
   DWCMND1K        1190/LI      1194/LI      1243/LI      1251/LI      1253/LI      1255/LI      1257/LI
      1259/LI      1268/LI      1270/LI      1272/LI      1322/LI      1324/LI      1328/LI      1330/LI
      1492-GEN     2316/LI      2381/LI      2572/LI      2903/LI      2918/LI      2970/LI      2977/LI
   DWCMND1L        1197/LI      1209/LI      1344/LI      1346/LI      1348/LI      1350/LI      1395/LI
      1404/LI      1406/LI      1456/LI      1460/LI      1542-GEN     2948/LI      2981/LI
   DWCMND2K        1192/LI      1200/LW      1202/LW      1494-GEN
   DWCMND2L        1370/STW     1383/STW     1384/LI      1544-GEN
   DWCMND3K        1326/LI      1496-GEN
   DWCMND3L        1546-GEN     2309/LI
   DWCMND4K        1498-GEN
   DWCMND4L        1548-GEN     2375/LI
   DWCMND5K        1296/LI      1500-GEN
   DWCMND5L        1430/LI      1550-GEN
   DWCMND6K        1290/LI      1502-GEN
   DWCMND6L        1424/LI      1552-GEN
   DWCMND7K        1284/LI      1504-GEN
   DWCMND7L        1418/LI      1554-GEN
   DWCMND8K        1280/LI      1506-GEN
   DWCMND8L        1414/LI      1556-GEN
   DWCMND9K        1300/LI      1320/LI      1508-GEN
   DWCMND9L        1434/LI      1454/LI      1558-GEN
   EBCTOHEX        2161/BAL     2191/BAL     2680/BAL     2754/BAL     2768/BAL     2778-STW
   ENDFLAG         1771/STW     1792/STW     1795/MTW     1839-DATA
   EOUT            1097/B       1120-WD
   ERRCYCLE        2844/STW     2873/LW      3006-DATA
   ERRWDLST        1087/LW      1111/STW     2390-RES
   ETROLSAV        2291-DATA    2292/STW     2327/B*
   EXEC             987-BAL     1052/BCS     2078/B       2085/BCR     2148/B
   EXECX            994/BCS     1002-STW
   EXITFLAG        1767/STW     1775/STW     1799/MTW     1840-DATA
   EXITSTRL        2549/BCS     2561-STW
   FC000000        3258-DATA    5442/LI
   FFA0FE00        1011/AND     3262-DATA
   FFA0F800        1014/AND     3261-DATA
   FFA1E200        1000/AND     3260-DATA
   FFA1FE00        1008/AND     3263-DATA
   FFFFFF00        2158/AND     3265-DATA
   FFFF0000        3264-DATA    5434/LW
   F0F0FFFF        2190/AND     3257-DATA
   F0000000        2785/CB      3256-DATA
   F9000000        2813/CB      3259-DATA
   GOOD            1074/B       1076-MTW     2607/B
   GPAA            1859/WD*     1865/WD*     1877/WD*     2217-DATA    2560/WD*     4832/WD*     5345/WD*
   GPAB            2218-DATA    3420/WD*     3851/WD*     3916/WD*     3969/WD*     4044/WD*     4047/WD*
      4051/WD*     4108/WD*     4406/WD*     4588/WD*     4607/WD*     4713/WD*     4716/WD*     4812/WD*
      4893/WD*     4897/WD*     4909/WD*     4930/WD*     4934/WD*     4943/WD*     4958/WD*     4962/WD*
      4983/WD*     5038/WD*     5125/WD*     5133/WD*     5206/WD*     5214/WD*     5280/WD*     5288/WD*
   GPAC            1856/WD*     1866/WD*     2219-DATA    3436/WD*     3441/WD*     3446/WD*     3451/WD*
   GPA0            2196/STW     2199/LW      2207-DATA
   GPA1            2208-DATA
   GPA2            2209-DATA    3862/RD*     4121/RD*     4411/RD*     4432/RD*     4669/RD*
   GPA3             991/WD*      992/RD*     2210-DATA    3336/WD*     3340/RD*     3355/WD*     3359/RD*
      3373/WD*     3378/RD*     3393/WD*     3397/RD*     3419/WD*     3421/RD*     3850/WD*     3854/RD*
      3915/WD*     3919/RD*     3927/WD*     3932/RD*     4050/WD*     4054/RD*     4073/WD*     4082/RD*
      4107/WD*     4109/RD*     4112/WD*     4118/RD*     4407/WD*     4418/RD*     4425/WD*     4437/RD*
      4606/WD*     4608/RD*     4618/WD*     4621/RD*     4970/WD*     4974/RD*     4992/WD*     4996/RD*
      5132/WD*     5134/RD*     5213/WD*     5215/RD*     5287/WD*     5289/RD*
   GPA4            2211-DATA    3508/WD*     3512/RD*     4092/RD*     4720/RD*     4731/RD*     4742/RD*
      4753/RD*     4900/RD*     4914/RD*     4938/RD*     4947/RD*
   GPA5            2212-DATA
   GPA6            2213-DATA    4057/WD*     4066/RD*     4961/WD*     4965/RD*     4982/WD*     4989/RD*
   GPA7            2214-DATA
   GPA8            2215-DATA    3711/WD*     4816/WD*
   GPA9            2216-DATA    2504/WD*     3529/WD*     3550/WD*     3571/WD*     3592/WD*     3613/WD*
      3633/WD*     3653/WD*     3673/WD*     4060/WD*     4581/WD*     5143/WD*     5200/WD*     5219/WD*
      5274/WD*     5293/WD*     5347/WD*     5361/WD*
   GROUPEM         1903-LI      1922/BIR
   GRP0            1120/WD*     1855/WD*     1862/WD*     1878/WD*     1899/LW      1930/WD*     1979/WD*
      1986/WD*     2202/STW     2221-DATA    2505/WD*     3742/WD*     3780/WD*     3846/WD*     3911/WD*
      3964/WD*     4040/WD*     4124/WD*     4402/WD*     4582/WD*     4703/WD*     4888/WD*     4924/WD*
      4954/WD*     5121/WD*     5202/WD*     5276/WD*
   GRP1            2222-DATA
   GRP2            2223-DATA
   GRP3            2224-DATA    2641/RD*
   GRP4            2225-DATA    2648/RD*     4674/RD*
   GRP5            2226-DATA
   GRP6            2227-DATA    4595/RD*     4627/RD*     4642/RD*
   GRP7            2228-DATA    4591/RD*     4654/RD*
   HEADOUTK        1227/BAL     1246/BAL     1266-STW     2893/BAL     2901/BAL
   HEADOUTL        1373/BAL     1394/BAL     1402-STW     2926/BAL     2934/BAL
   HEADRETK        1281/B       1285/B       1291/B       1297/B       1301/B       1308/B       1310/B
      1314/B       1319/B       1321-BAL
   HEADRETL        1415/B       1419/B       1425/B       1431/B       1435/B       1442/B       1444/B
      1448/B       1453/B       1455-BAL
   HEADSAVE        1265-DATA    1266/STW     1334/B*      1402/STW     1464/B*
   HEXTOEBC        2683/BAL     2757/BAL     2765/BAL     2807-STW
   HLOOP           2810-LI      2818/BCR
   HREGLOCS        2675/LI      3009-DATA
   HREGLOOP        2677-LW      2686/B
   HSAVE           2774-DATA    2789/STB     2794/LW      2816/STB     2819/LW
   HSAVE1          2775-DATA    2778/STW     2800/XW      2807/STW     2820/XW
   HSAVE5          2776-DATA    2779/STW     2801/XW      2808/STW     2821/XW
   HSAVE9          2777-DATA    2780/STW     2802/XW
   HTE             3270-DATA    4536/LW
   ICE             3271-DATA    4204/LW
   IMPLANT         2644/BAL     2651/BAL     2662/BAL     2740-STW
   IMPLANTA        2735-DATA    2742/STW     2752/LW*     2758/STW*
   IMPLANTB        2736-DATA    2745/STW     2755/AND
   IMPLANTC        2737-DATA    2748/STW     2759/AW
   IMPLANTD        2643/STW     2650/STW     2661/STW     2674/STW     2682/OR      2738-DATA    2756/OR
   IMPLOOP         2752-LW      2760/B
   IMPSAVE         2739-DATA    2740/STW     2741/LW*     2743/MTW     2744/LW*     2746/MTW     2747/LW*
      2749/MTW     2753/BCR*
   INDEX           5116/STW     5151/LW      5153/MTW     5171-DATA    5269/STW
   INHBINIT        1186/LW      1211-B
   INHIBIT         4027/STW     4029/STW     4079/MTW     4323/STW     4327/STW     4333-DATA    4359/STW
      4361/STW
   INITIAL         1186-LW      2179/B
   IOCHKOFF         998/BAL     1084/BAL     1096/BAL     1261/BAL     1352/BAL     1870-LI      2326/BAL
      2574/BAL
   IOPCHECK         996/BAL     1082/BAL     1094/BAL     1217/BAL     1868-LI      2005/BAL     2308/BAL
      2569/BAL
   IOPTEST         1871/LB      2558/STW     2594-DATA    2655/LW      2666/LW      2671/LW      3294/SIO*
      3313/SIO*    3337/SIO*    3356/TIO*    3375/TDV*    3394/HIO*    3416/SIO*    3439/TDV*    3444/TDV*
      3449/TDV*    3454/TDV*    3458/TDV*    3464/TDV*    3505/LB      3509/TIO*    3531/TIO*    3552/TIO*
      3573/TIO*    3594/TIO*    3615/TIO*    3635/TIO*    3655/TIO*    3675/TIO*    3707/SIO*    3713/SIO*
      3732/SIO*    3743/SIO*    3781/SIO*    3786/TIO*    3847/SIO*    3912/SIO*    3966/SIO*    3974/TIO*
      4041/SIO*    4403/SIO*    4503/TIO*    4549/TIO*    4583/SIO*    4710/SIO*    4811/SIO*    4839/TIO*
      4890/SIO*    4927/SIO*    4955/SIO*    5039/LW      5122/SIO*    5203/SIO*    5277/SIO*    5351/SIO*
      5356/TIO*    5364/SIO*    5369/TIO*
   IUE             3272-DATA    4232/LW
   IUEICE          3273-DATA    5031/LW
   KLINELUP        1228-LW      1250/B
   KOPLOOP         2890/B       2894-LW      2923/B
   KSROUT          1233/AW      2911/AW      2973/AW      3274-DATA
   LABELFLG        1765/STW     1777/MTW     1782/STW     1838-DATA
   LASTBYTE        4616/B       4636-STW
   LASTCLK         4761/BCR     4766-STW
   LASTFAIL         989/STW     1062/CW      1104/STW     1135-DATA
   LATCHSAV        1136-DATA
   LCMPLOOP        2889/BCS     2927-LW      2953/B
   LINEFLAG        2842/BCS     2851-LW
   LINEPRNT        1188/MTW     1220/MTW     1482/SIO*    1484/TIO*    1872/CB      2175/STW     2177/STW
      2243-DATA    2310/MTW     2376/MTW     2888/MTW     2891/MTW     2968/MTW
   LINERET         1769-STW     1800/BCR
   LINESKIP        1542/GEN     1575-DATA
   LINEXIT         1344-LI      2929/BCS
   LPOUT           2167/BCR     2175-STW
   MASK            1912/AND     1915/AND     1947-DATA
   MAXBCNT         1226/STW     1228/LW      1231/STW     1359-DATA    1366/STW     1375/LW      1380/STW
   MEMCHK          2479/XPSD    2482-DATA    2485/MTW     2486/LPSD
   MEMFLAG         2462/STW     2465/MTW     2478-DATA    2484/MTW
   MEMSIZE         2471/STW     2477-DATA    3870/CW
   MEMXPSD         2458/XW      2473/XW      2479-XPSD
   MEM01            980/BAL     2457-LW
   MEM02           2463-AI      2467/BIR
   MEM03           2466/BCS     2469-AI
   MISCOMP         2715/BCS     2841-MTW
   MSADDIN         2193-LI
   MSGA            1514/GEN     1515/GEN     1564/GEN     1565/GEN     1747-TEXTS
   MSGAE           1515/GEN     1565/GEN     1748-EQU
   MSGB            1516/GEN     1517/GEN     1566/GEN     1567/GEN     1749-TEXTS
   MSGBE           1517/GEN     1567/GEN     1750-EQU
   MSGC            1520/GEN     1521/GEN     1751-TEXTS
   MSGCE           1521/GEN     1753-EQU
   MSGD            1522/GEN     1523/GEN     1754-TEXTS
   MSGDE           1523/GEN     1756-EQU
   MSGE            1524/GEN     1525/GEN     1757-TEXTS
   MSGEE           1525/GEN     1758-EQU
   MSG1            1206/DATA    1494/GEN     1495/GEN     1581-TEXTS
   MSG1E           1495/GEN     1726-EQU
   MSG2            1496/GEN     1568/GEN     1731-TEXTS
   MSG3            1500/GEN     1501/GEN     1550/GEN     1551/GEN     1733-TEXTS
   MSG3E           1501/GEN     1551/GEN     1734-EQU
   MSG4            1502/GEN     1503/GEN     1552/GEN     1553/GEN     1735-TEXTS
   MSG4E           1503/GEN     1553/GEN     1736-EQU
   MSG5            1504/GEN     1505/GEN     1554/GEN     1555/GEN     1737-TEXTS
   MSG5E           1505/GEN     1555/GEN     1738-EQU
   MSG6            1506/GEN     1507/GEN     1556/GEN     1557/GEN     1739-TEXTS
   MSG6E           1507/GEN     1557/GEN     1740-EQU
   MSG7            1508/GEN     1509/GEN     1558/GEN     1559/GEN     1741-TEXTS
   MSG7E           1509/GEN     1559/GEN     1742-EQU
   MSG8            1510/GEN     1511/GEN     1560/GEN     1561/GEN     1743-TEXTS
   MSG8E           1511/GEN     1561/GEN     1744-EQU
   MSG9            1512/GEN     1513/GEN     1562/GEN     1563/GEN     1745-TEXTS
   MSG9E           1513/GEN     1563/GEN     1746-EQU
   NEWLINE         1020/STW     1926/STW     1937/MTW     1974-DATA    3928/STW     4074/STW     4424/STW
      4603/STW     4617/STW     4639/STW     4645/STW     4651/STW     4666/STW     4728/STW     4739/STW
      4750/STW     4766/STW     4906/STW     4911/STW     4920/STW     4937/STW     4944/STW     4971/STW
      4984/STW     4993/STW     5146/STW     5157/STW     5165/STW     5229/STW     5237/STW     5309/STW
      5311/STW
   NEXTGRP         2709/BCR     2832-MTW
   NEXTLINE        2707/BCR     2827-MTW
   NEXTWORD        2705/BCR     2824-MTW
   NOTCBA          4650/BCS     4661-BAL
   NOTCOOK         2606-B       2618/LW      2619/LW
   NUMCHK          2043/BAL     2047/BAL     2156/BAL     2187/BAL     2230-LB      2240/BIR
   ORDFLG          4018-DATA    4023/STW     4059/LW      4150/STW     4179/STW     4207/STW     4235/STW
      4264/STW     4292/STW     4324/STW     4539/STW     5034/STW
   ORDFLG1         4388/STW     4414/LW      4446-DATA    4467/STW     4497/STW
   ORDFLG2         4390/STW     4429/LW      4447-DATA    4469/STW     4496/STW
   OUTBUFF         1223/LI      1341/DATA    1498/GEN     1786/LW      1895/STW     1906/STW     1919/AWM
      1932/STW     1939/STW     2693/LI      6205-EQU
   OUTPNCH         1797/BAL     1804-LI
   OUTPRINT        1198/BAL     1210/BAL     1345/BAL     1347/BAL     1349/BAL     1351/BAL     1385/BAL
      1396/BAL     1405/BAL     1407/BAL     1455/BAL     1457/BAL     1459/BAL     1461/BAL     1482-SIO
      2312/BAL     2378/BAL     2944/BAL     2949/BAL     2982/BAL     2987/BAL
   OUTRET          1187/STW     2169/BCR     2172/BCR     2177-STW
   OUTYPE           997/BAL     1083/BAL     1095/BAL     1191/BAL     1193/BAL     1195/BAL     1236/BAL
      1244/BAL     1252/BAL     1254/BAL     1256/BAL     1258/BAL     1260/BAL     1269/BAL     1271/BAL
      1273/BAL     1321/BAL     1323/BAL     1325/BAL     1327/BAL     1329/BAL     1331/BAL     1475-SIO
      2315/BAL     2317/BAL     2380/BAL     2382/BAL     2571/BAL     2573/BAL     2904/BAL     2914/BAL
      2919/BAL     2971/BAL     2976/BAL     2978/BAL
   PHASAVE         1884-DATA    1887/STW     1928/B*
   PHASEM          1899-LW      1934/B       1941/B
   PHASNAP         1885-MTW     1991/BAL     3296/BAL     3315/BAL     3339/BAL     3358/BAL     3377/BAL
      3396/BAL     3459/BAL     3511/BAL     3533/BAL     3554/BAL     3575/BAL     3596/BAL     3617/BAL
      3637/BAL     3657/BAL     3677/BAL     3734/BAL
   PHASPASS        1017/STW     1055/MTW     1065/STW     1091/MTW     1107/MTW     1128/STW     1133-DATA
   PHSCLK          1982-MTW     1990/BAL
   PHSCLKX         1989-STW     2509/BAL     3418/BAL     3466/BAL     3745/BAL     3783/BAL     3849/BAL
      3853/BAL     3914/BAL     3918/BAL     3930/BAL     3968/BAL     3971/BAL     4043/BAL     4046/BAL
      4049/BAL     4062/BAL     4065/BAL     4076/BAL     4114/BAL     4405/BAL     4409/BAL     4428/BAL
      4585/BAL     4589/BAL     4605/BAL     4613/BAL     4620/BAL     4641/BAL     4653/BAL     4661/BAL
      4712/BAL     4715/BAL     4718/BAL     4730/BAL     4741/BAL     4752/BAL     4768/BAL     4892/BAL
      4895/BAL     4899/BAL     4908/BAL     4913/BAL     4922/BAL     4929/BAL     4932/BAL     4936/BAL
      4946/BAL     4957/BAL     4960/BAL     4964/BAL     4973/BAL     4986/BAL     4995/BAL     5124/BAL
      5127/BAL     5141/BAL     5148/BAL     5164/BAL     5205/BAL     5208/BAL     5221/BAL     5236/BAL
      5279/BAL     5282/BAL     5297/BAL     5310/BAL
   PHSLATCH        1016/STW     1064/MTW     1076/MTW     1105/MTW     1115/MTW     1119/STW     1127/STW
      1134-DATA    1885/MTW     1977/MTW     1982/MTW     1992/MTW     3470/MTW     3720/MTW     3800/MTW
      3878/MTW     3989/MTW
   PNCHADDR        1805/SIO*    1806/TIO*    1842-DATA
   PNCHBRA         1843-BAL     2170/LW
   PNCHBUFF        1781/STW     1785/STW     1810/GEN     1816-DATA
   PNCHCMND        1804/LI      1810-GEN     1812/GEN
   PNCHDATA        1793/STW     1821-DATA
   PNCHOUT         1764-STW     1843/BAL
   PNCHSAVE        1764/STW     1801/B*      1841-DATA
   POSIT           1904/STW     1917/SLS*    1918/MTW     1975-DATA
   PREPHS          1977-MTW     3293/BAL     3312/BAL     3335/BAL     3354/BAL     3374/BAL     3392/BAL
      3415/BAL     3457/BAL     3463/BAL     3507/BAL     3530/BAL     3551/BAL     3572/BAL     3593/BAL
      3614/BAL     3634/BAL     3654/BAL     3674/BAL     3731/BAL
   PRINTOUT        1221/BCS     1336-STW
   PRNTINTL        1189/BCS     1197-LI
   PROGEND         6206-END
   REGRESTR        1153-STW     1333/BAL     1463/BAL     1927/BAL
   REGSAVE         1158-LCI     1267/BAL     1403/BAL     1888/BAL
   RETURN          1024/STW     1073-B       1098/MTW     1100/MTW     1102/MTW     1141/B       2606/B
      2620/STW     2621/STW     3299/MTW     3300/B       3318/MTW     3319/B       3322/B       3343/MTW
      3344/B       3362/MTW     3363/B       3381/MTW     3382/B       3400/MTW     3401/B       3404/B
      3424/MTW     3425/B       3460/MTW     3467/B       3491/B       3515/MTW     3517/B       3537/MTW
      3538/B       3558/MTW     3559/B       3579/MTW     3580/B       3600/MTW     3601/B       3621/MTW
      3622/B       3641/MTW     3642/B       3661/MTW     3662/B       3681/MTW     3682/B       3735/MTW
      3737/B       3746/B       3750/B       3754/B       3796/MTW     3799/BCR     3801/BCR     3810/B
      3874/MTW     3877/BCR     3879/BCR     3888/B       3890/B       3939/MTW     3940/B       3985/MTW
      3988/BCR     3990/BCR     3998/B       4032/MTW     4033/B       4156/MTW     4157/B       4185/MTW
      4186/B       4213/MTW     4214/B       4241/MTW     4242/B       4269/MTW     4270/B       4297/MTW
      4298/B       4331/MTW     4332/B       4367/MTW     4368/B       4397/MTW     4398/B       4476/MTW
      4477/B       4510/MTW     4511/B       4556/MTW     4557/B       4677/B       4678/MTW     4679/B
      4683/B       4769/B       4772/MTW     4773/B       4778/B       4782/B       4786/B       4790/B
      4843/MTW     4850/B       5006/B       5012/MTW     5013/B       5046/MTW     5047/B       5167/B
      5168/MTW     5169/B       5239/B       5240/MTW     5241/B       5313/B       5314/MTW     5315/B
      5374/MTW     5375/B*
   SAVERX          1153/STW     1156/B*      1178-DATA
   SAVE0           1155/LM      1159/STM     1162-DATA
   SAVE1           1163-DATA
   SAVE10          1172-DATA
   SAVE11          1173-DATA
   SAVE12          1174-DATA
   SAVE13          1175-DATA
   SAVE14          1176-DATA
   SAVE15          1177-DATA
   SAVE2           1164-DATA
   SAVE3           1165-DATA
   SAVE4           1166-DATA
   SAVE5           1167-DATA
   SAVE6           1168-DATA
   SAVE7           1169-DATA
   SAVE8           1170-DATA
   SAVE9           1171-DATA
   SHIFTEM         1917-SLS     1938/BCR     1945/B
   SILBIT          1369/AW      3275-DATA
   SKIPLINE        1492/GEN     1574-DATA
   SNAPSAVE        1989/STW     1995/B*      1996-DATA
   SPACES          1784/LW      1788/CW      1905/LW      2332/LW      2704/CW      5085-DATA
   TBRANCH         4063/B       4071-MTW
   TEMP15          2508/STW     2510/LW      2514-DATA
   TERMEXIT        4078/BCS     4090-LW
   TERMPASS        4052/MTW     4071/MTW     4077/MTW     4081/STW     4086/MTW     4095/STW     4127-DATA
   TERMPREP        4080/BCR     4086-MTW
   TERMSAV         4025/STW     4090/LW      4101-DATA    4152/STW     4181/STW     4209/STW     4237/STW
      4265/STW     4293/STW     4322/STW     4358/STW     4541/STW     5036/STW
   TESTEND         2701/STW     2710/LW      2895/CW      2928/CW      3005-DATA
   TESTERR         1031/STW     1046/STW     1139-DATA    3701/MTW     3736/STW     3739/STW     3768/MTW
      3797/STW     3809/STW     3833/MTW     3875/STW     3889/STW     3958/MTW     3986/STW     3997/STW
      4817/MTW     4820/STW     4844/STW
   TEXTS            880-CNAME
   TIC             3276-DATA    4391/LW      4470/LW      4498/LW
   TIC2            3277-DATA    4471/OR      4499/OR
   TIMEONE         2616/BCR     2623-MTW
   TOTEST          1056/BCR     1063/BCS     1067/BCR     1070-LW
   TSTERROR        1019/STW     4017-DATA    4026/STW     4030/CW      4098/MTW     4123/MTW     4326/STW
      4329/CW      4395/CW      4410/STW     4443/STW     4474/CW
   TSTFETCH        1277/BAL     1304/BAL     1315/BAL     1411/BAL     1438/BAL     1449/BAL     1466-LW
   TYERR           1018/STW     1045/STW     1078/MTW     1113/MTW     1138-DATA    2325/STW
   TYPEBRA         1844-BAL     2165/LW
   TYPEINTL        1190-LI
   TYPEOUT         1126/BAL     1216-STW     1844/BAL
   TYPESAVE        1215-DATA    1216/STW     1262/B*      1353/B*      2877/BCR*
   TYPEXIT         1230/BCS     1251-LI      2896/BCS
   T000            2396/DICT    3290-EQU
   T001            2397/DICT    3309-EQU
   T002            2398/DICT    3322-B
   T003            2399/DICT    3333-EQU
   T004            2400/DICT    3353-EQU
   T005            2401/DICT    3372-EQU
   T006            2402/DICT    3391-EQU
   T007            2403/DICT    3404-B
   T008            2404/DICT    3413-EQU
   T009            2405/DICT    3435-EQU
   T009A           3440/BCR     3445/BCS     3450/BCR     3456-LI
   T010            2406/DICT    3491-B
   T011            2407/DICT    3504-EQU
   T012            2408/DICT    3527-EQU
   T013            2409/DICT    3548-EQU
   T014            2410/DICT    3569-EQU
   T015            2411/DICT    3590-EQU
   T016            2412/DICT    3611-EQU
   T017            2413/DICT    3632-EQU
   T018            2414/DICT    3652-EQU
   T019            2415/DICT    3672-EQU
   T020            2416/DICT    3699-EQU
   T020ERR         3719/BCR     3721/BCR     3731-BAL
   T020LOOP        3717/BCR     3738-BIR
   T0200           3708-STW     3738/BIR
   T021            2417/DICT    3750-B
   T022            2418/DICT    3754-B
   T023            2419/DICT    3767-EQU
   T023A           3776-SLS     3794/BCR
   T023B           3793-MTW
   T023C           3792/BCS     3796-MTW
   T023D           3795/B       3809-STW
   T024            2420/DICT    3832-EQU
   T024B           3834/BCR     3838-LI      3873/B
   T024D           3857/BCR     3860/BCR     3865/BCS     3867/BCS     3874-MTW
   T024E           3871/BCR     3889-STW
   T025            2421/DICT    3908-EQU
   T025B           3922/BCR     3925/BCR     3935/BCR     3939-MTW
   T025CP           930-GEN     3909/LI
   T026            2422/DICT    3957-EQU
   T026A           3959/BCS     3961-LH      3983/BCS
   T026B           3978/BCS     3985-MTW
   T026C           3984/B       3997-STW
   T026CP           932-GEN     3960/STW     3961/LH      3965/LI      3977/CW      3979/LW      3981/STW
      3991/LW
   T027            2423/DICT    4019-EQU
   T0270           4028/BAL     4035-STW     4089/B       4153/BAL     4182/BAL     4210/BAL     4238/BAL
      4266/BAL     4294/BAL     4325/BAL     4360/BAL     4542/BAL     5037/BAL
   T0270A          4056/BCR     4069/BCR     4084/BCR     4098-MTW
   T0270CP          934-GEN     4038/STW     4039/LI
   T0271           4103-LI      4328/BAL     4362/BAL
   T0271A          4111/BCR     4120/BCR     4123-MTW
   T0271CP          936-DATA    4105/STB     4146/STW     4288/STW     4318/STW     4353/STW
   T0272CP          938-DATA
   T028            2424/DICT    4145-EQU
   T029            2425/DICT    4175-EQU
   T030            2426/DICT    4203-EQU
   T031            2427/DICT    4231-EQU
   T032            2428/DICT    4260-EQU
   T033            2429/DICT    4287-EQU
   T034            2430/DICT    4317-EQU
   T035            2431/DICT    4352-EQU
   T036            2432/DICT    4386-EQU
   T0360           4394/BAL     4399-LI      4473/BAL     4501/BAL
   T0360A          4417/BCS     4421/BCR     4423/BCS     4436/BCS     4440/BCR     4443-STW
   T0360CA          944-DATA    4392/OR
   T0360CP          940-DATA    3277/DATA    4393/STW     4399/LI      4472/STW     4500/STW
   T0360CP1         942-GEN      944/DATA
   T037            2433/DICT    4465-EQU
   T038            2434/DICT    4493-EQU
   T039            2435/DICT    4535-EQU
   T039A           4546/BCS     4556-MTW
   T040            2436/DICT    4577-EQU
   T040A           4601/BCS     4610/BCR     4624/BCR     4633/BCS     4638/BCS     4659/BCS     4671/BCR
      4676/BCR     4678-MTW
   T040B           4606-WD      4667/B
   T040CP           946-GEN     4580/LI
   T041            2437/DICT    4683-B
   T042            2438/DICT    4699-EQU
   T042A           4702-BAL     4764/B
   T042B           4726/BCS     4737/BCS     4748/BCS     4758/BCS     4770-STW
   T042CP           948-DATA    4708/STW     4709/LI      4771/STW
   T043            2439/DICT    4778-B
   T044            2440/DICT    4782-B
   T045            2441/DICT    4786-B
   T046            2442/DICT    4790-B
   T047            2443/DICT    4809-EQU
   T047CP           967-GEN     4810/LI
   T048             967/GEN     2444/DICT    4886-EQU
   T048A           4951-BAL     5010/B
   T048B           4923-BAL     5008/B
   T048BUF1         950/GEN      960-DATA
   T048BUF2         952/DATA     962-DATA
   T048C           4905/BCS     4919/BCS     5007-STW
   T048CP           950-GEN     4889/LI      4925/LI      4952/LI
   T048D           4941/BCS     4950/BCS     5009-STW
   T048E           4967/BCR     4979/BCR     4981/BCR     4991/BCR     5001/BCR     5003/BCR     5005/BCS
      5011-STW
   T049            2445/DICT    5030-EQU
   T050            2446/DICT    5113-EQU
   T050A           5156/BCS     5168-MTW     5217/BCR
   T050CP           956-GEN     5120/LI
   T051            2447/DICT    5194-EQU
   T051A           5136/BCR     5228/BCS     5240-MTW
   T051CP           954-GEN     5201/LI
   T052            2448/DICT    5266-EQU
   T052A           5291/BCR     5302/BCS     5314-MTW
   T052CP           958-GEN     3292/LI      3311/LI      3334/LI      3414/LI      5275/LI
   T053            2449/DICT    5343-LI
   T053ERR         5352/BCS     5357/BCS     5360/BCS     5365/BCS     5370/BCS     5374-MTW
   T054            2450/DICT    5417-LI
   T054CP           973-GEN      975/GEN     5439/LI
   T47A            4823-MTW     4827/BCR     4842/BCR
   T47B            4824/BCS     4846-STW
   T53INCP          969-GEN     5350/LI
   T53OUTCP         971-GEN     5363/LI
   WDTI            2494/MTW     2497-DATA    3291/STW     3297/MTW     3310/STW     3316/MTW
   WORDLOOP        1789/BCR     1796/BCR     1802-AI
   WORDRET         1786-LW      1803/B
   WORDTEST        2703-LW      2718/B       2825/B       2830/B       2839/B       2868/B
   WRITEORD        1382/AW      2941/AW      2984/AW      3278-DATA    4707/AW
   X:AFF           3235-DATA    4363/AND
   X:E0FF          2681/AND     3237-DATA
   X:F             2056/AND     2788/AND     3226-DATA
   X:FF            3863/AND     4093/AND     4412/AND     4721/AND     4724/AND     4732/AND     4735/AND
      4743/AND     4746/AND     4754/AND     4756/AND     4845/AND     4901/AND     4916/AND     4939/AND
      4948/AND     5077-DATA
   X:FFFF          2660/AND     3238-DATA    3773/LW      3777/AND     3790/AND     3975/AND     4433/AND
      4840/AND
   X:FFFFFF        2512/AND     3242-DATA
   X:FF0000        3241-DATA    5359/AND     5372/AND
   X:F0            2300/OR      2304/OR      2306/OR      3231-DATA    3479/AND
   X:1F            2672/AND     3228-DATA
   X:10            2642/AND     3398/AND     5070-DATA
   X:100            993/AND     3232-DATA    4675/AND
   X:15            1201/DW      3227-DATA
   X:180000        3240-DATA    5040/AW
   X:20            3379/AND     5071-DATA
   X:3C            1229/SW      1773/SW      3229-DATA
   X:3FFF8         3239-DATA    4593/AND     4626/AND
   X:40            3360/AND     4949/CW      5072-DATA
   X:4000          3236-DATA    3937/AND     4422/AND     4441/AND     4637/AND     4670/AND     4980/AND
      5002/AND
   X:7             3225-DATA    4597/AND     4629/AND     4644/AND     4648/AND     4649/CW
   X:7F            1470/AND     2297/AND     3230-DATA    5425/AND
   X:700           3233-DATA    5436/AND
   X:8             2649/AND     5069-DATA
   X:80            3341/AND     5073-DATA
   X:800           3234-DATA    4068/AND     4966/AND     4990/AND
   XPRINT          1205/BAL     1340/BAL     1361-STW
   XPRINTLP        1375-LW      1400/B
   XPRNTPNT        1357-DATA    1361/STW     1362/LW*     1364/MTW     1365/LW*     1367/MTW     1368/LW*
      1376/SW*     1378/MTW     1379/B*      1386/LW*
   ZONE            1916/AW      1953-DATA
   0A000001        3247-DATA    4261/LW
   0C000001        3248-DATA    4176/LW
   000Q            2645/DATA    2652/DATA    2663/DATA    3009/DATA    3152/DATA    5452-TEXTS
   001Q            3010/DATA    3153/DATA    5458-TEXTS
   003Q            3011/DATA    3155/DATA    5465-TEXTS
   004Q            3012/DATA    3156/DATA    5471-TEXTS
   005Q            3013/DATA    3157/DATA    5477-TEXTS
   006Q            3014/DATA    3158/DATA    5483-TEXTS
   008Q            3015/DATA    3160/DATA    5489-TEXTS
   009Q            3016/DATA    3161/DATA    3478/DATA    3481/DATA    3483/DATA    3485/DATA    5495-TEXTS
   011Q            3017/DATA    3163/DATA    5501-TEXTS
   012Q            3018/DATA    3164/DATA    5507-TEXTS
   013Q            3019/DATA    3165/DATA    5513-TEXTS
   014Q            3020/DATA    3166/DATA    5519-TEXTS
   015Q            3021/DATA    3167/DATA    5525-TEXTS
   016Q            3022/DATA    3168/DATA    5531-TEXTS
   017Q            3023/DATA    3169/DATA    5537-TEXTS
   018Q            3024/DATA    3170/DATA    5543-TEXTS
   019Q            3025/DATA    3171/DATA    5549-TEXTS
   020Q            3026/DATA    3172/DATA    3725/DATA    3728/DATA    3730/DATA    5555-TEXTS
   023Q            3027/DATA    3175/DATA    3805/DATA    3807/DATA    5562-TEXTS
   024Q            3028/DATA    3029/DATA    3176/DATA    3882/DATA    3884/DATA    3887/DATA    5568-TEXTS
   025Q            3030/DATA    3031/DATA    3032/DATA    3177/DATA    5581-TEXTS
   026Q            3033/DATA    3034/DATA    3178/DATA    3993/DATA    3996/DATA    5594-TEXTS
   027Q            3035/DATA    3036/DATA    3037/DATA    3038/DATA    3039/DATA    3040/DATA    3179/DATA
      5607-TEXTS
   028Q            3041/DATA    3042/DATA    3043/DATA    3044/DATA    3045/DATA    3046/DATA    3047/DATA
      3180/DATA    5629-TEXTS
   029Q            3048/DATA    3049/DATA    3050/DATA    3051/DATA    3052/DATA    3053/DATA    3054/DATA
      3181/DATA    5651-TEXTS
   030Q            3055/DATA    3056/DATA    3057/DATA    3058/DATA    3059/DATA    3060/DATA    3061/DATA
      3182/DATA    5673-TEXTS
   031Q            3062/DATA    3063/DATA    3064/DATA    3065/DATA    3066/DATA    3067/DATA    3068/DATA
      3183/DATA    5695-TEXTS
   032Q            3069/DATA    3070/DATA    3071/DATA    3072/DATA    3073/DATA    3074/DATA    3075/DATA
      3184/DATA    5717-TEXTS
   033Q            3076/DATA    3077/DATA    3078/DATA    3079/DATA    3080/DATA    3081/DATA    3082/DATA
      3185/DATA    5739-TEXTS
   034Q            3083/DATA    3084/DATA    3085/DATA    3086/DATA    3087/DATA    3088/DATA    3089/DATA
      3090/DATA    3091/DATA    3186/DATA    5761-TEXTS
   035Q            3092/DATA    3093/DATA    3094/DATA    3095/DATA    3096/DATA    3097/DATA    3098/DATA
      3099/DATA    3100/DATA    3187/DATA    5790-TEXTS
   036Q            3101/DATA    3102/DATA    3103/DATA    3188/DATA    5819-TEXTS
   037Q            3104/DATA    3105/DATA    3106/DATA    3189/DATA    5834-TEXTS
   038Q            3107/DATA    3108/DATA    3109/DATA    3190/DATA    5849-TEXTS
   039Q            3110/DATA    3111/DATA    3112/DATA    3113/DATA    3114/DATA    3115/DATA    3116/DATA
      3191/DATA    5864-TEXTS
   040Q            3117/DATA    3118/DATA    3119/DATA    3120/DATA    3192/DATA    5886-TEXTS
   042Q            3121/DATA    3122/DATA    3123/DATA    3124/DATA    3194/DATA    5921-TEXTS
   048Q            3125/DATA    3126/DATA    3127/DATA    3128/DATA    3129/DATA    3130/DATA    3200/DATA
      5942-TEXTS
   049Q            2670/DATA    3131/DATA    3132/DATA    3133/DATA    3134/DATA    3135/DATA    3136/DATA
      3137/DATA    3138/DATA    3139/DATA    3201/DATA    5967-TEXTS
   050Q            3140/DATA    3141/DATA    3142/DATA    3202/DATA    5994-TEXTS
   051Q            3143/DATA    3144/DATA    3145/DATA    3203/DATA    6086-TEXTS
   052Q            3146/DATA    3147/DATA    3148/DATA    3204/DATA    6142-TEXTS
   150D0D0D        1573-EQU     1931/LW      2706/CW
   15150D0D        1241/CW      1390/CW      1936/LW      2708/CW      2899/CW      2932/CW      3249-DATA
   2C000001        3250-DATA    4020/LW      4147/LW
   27SAV           4035/STW     4085/B*      4096/B*      4097-DATA    4099/B*
   271SAV          4104/STW     4122/B*      4125/B*      4126-DATA
   36SAV           4401/STW     4444/B*      4445-DATA
   4040405C        2864/LW      3251-DATA
   406E4040        2851/LW      2853/CW      2860/CW      3252-DATA
   406E405C        2855/CW      2862/LW      3253-DATA
   %ADRCNT         2539/STW     2575/LW      2590-DATA    4822/LW
   %ADRDICT        2531/STW     2553/LW      2589-RES     4825/LW
   %ADRLIST        2538/STW     2550/MTW     2552/LW      2576/STW     2588-DATA
   %BITEMP         2075/LW      2087/STW     2143/LW      2267/STS     2274-DATA
   %BITEST          999/LW      1001/STW     1004/LW      1006/STW     1007/LW      1015/STW     1033/LW
      1034/OR      1040/LW      2076/STW     2088/STW     2144/STW     2278-DATA
   %BITSET         2073/BAL     2127/BAL     2255-LW
   %BITSETP1       2070/STW     2091/STW     2116/STW     2120/LW      2255/LW      2282-DATA
   %BITSETP2       2072/STW     2113/STW     2117/LW      2257/LW      2284-DATA
   %BITSET1        2267-STS     2272/BDR
   %BSP1LAST       2092/STW     2123/CW      2256/STW     2286-DATA
   %CPINT           917/XPSD    1060/XPSD    1069/XPSD    2611-DATA    2622/LPSD
   %CP01           1527-GEN     2004/LI
   %CP02           1529-GEN     2020/LI
   %CP03           1531-GEN     2061/LI
   %CP04           1533-GEN     2570/LI
   %CP05           1535-GEN     2314/LI
   %CP06           1537-GEN
   %DICTA          1071/LW      1467/LW      2294/LW      2318/LW      2395-EQU     2451/EQU
   %DICTLENGTH     1048/CI      2071/LI      2451-EQU
   %EPOINT         1032/STW     1036/LW      1044/MTW     1047/LW      1061/LW      1070/LW      1103/LW
      1117/STW     1140-DATA    1466/LW      2293/LW      2687/LW
   %ERRFLAG        1108/STW     2541/STW     2548/MTW     2561/STW     2567/MTW     2591-DATA
   %ERRWAIT        5441/BCS     5445/BCR     5447-WAIT
   %ERRWD1         1088/STW     1110/LW      2336/LW      2386-DATA    3506/STW     3513/CB      3703/MTW
      3704/LW      3708/STW     3714/MTW     3716/CW      3722/LW      3770/MTW     3771/LW      3774/STW
      3778/STW     3788/MTW     3789/LW      3793/MTW     3802/LW      3835/LW      3844/STW     3868/LW
      3962/STH     4091/STW     4117/STW     4154/CW      4183/CW      4211/CW      4239/CW      4267/CW
      4295/CW      4364/CW      4415/STW     4416/CW      4431/STW     4435/CW      4507/STW     4545/CW
      4552/STW     4579/STW     4600/CW      4602/AWM     4625/LW      4632/CW      4634/AWM     4647/LW
      4658/CW      4662/LW      4665/MTW     4705/STW     4846/STW     4903/STW     4915/STW     5041/STW
      5145/STW     5155/CW      5224/STW     5227/CW      5298/STW     5301/CW      5348/STW     5353/STW
      5358/STW     5362/MTW     5366/MTW     5371/MTW
   %ERRWD2         2387-DATA    3516/STB     3715/STW     3787/STW     3976/STH     4094/STW     4366/STW
      4413/STW     4434/STW     4505/STW     4553/STW     4599/STW     4631/STW     4657/STW     4770/STW
      4847/STW     4902/STW     4917/STW     5042/STW     5154/STW     5226/STW     5300/STW
   %ERRWD3         2388-DATA    3839/STW     3858/STW     3861/STW     3910/STW     3923/STW     3931/STW
      3936/STW     4036/STW     4067/STW     4070/STW     4106/STW     4115/STW     4400/STW     4430/STW
      4543/STW     4547/STW     4590/STW     4611/STW     4636/STW     4668/STW     4673/STW     4719/STW
      4727/STW     4738/STW     4749/STW     4819/LW      4848/STW     4896/STW     4910/STW     4933/STW
      4942/STW     4969/STW     4977/STW     4988/STW     4999/STW     5043/STW     5128/STW     5131/AWM
      5137/MTW     5209/STW     5212/AWM     5222/MTW     5283/STW     5286/AWM     5294/MTW
   %ERRWD4         1858/AW      1864/AW      1876/AW      2389-DATA    2503/LW      2554/STW     4826/CW
      5344/AW
   %ETROL          1121/BAL     2292-STW
   %FIRSTIME       1002/STW     2520/MTW     2540/STW     2577/MTW     2595-DATA
   %INBUFF         1529/GEN     2018/STW     2025/LB      2029/LW      2038/LB      2041/LW      2044/LB
      2050/LB      2083/LB      2095/LB      2100/LB      2105/LB      2128/LB      2151/LB      2154/LW
      2157/LW      2164/LB      2182/LB      2185/LW      2188/LW      2244-RES
   %INTRAP          888/XPSD     889/XPSD     890/XPSD     891/XPSD     892/XPSD     893/XPSD     895/XPSD
       896/XPSD     897/XPSD     898/XPSD     899/XPSD     900/XPSD     901/XPSD     902/XPSD     903/XPSD
       904/XPSD     905/XPSD     910/XPSD     911/XPSD     912/XPSD     913/XPSD     914/XPSD     915/XPSD
       918/XPSD     919/XPSD     921-DATA
   %IOINT           916/XPSD    2501-DATA    2513/LPSD
   %IORST           987/BAL     1053/BAL     1855-WD      3712/BAL     3779/BAL     3785/BAL     3841/BAL
      3963/BAL     3973/BAL     4502/BAL     4548/BAL     4838/BAL     4951/BAL
   %IORSTX         1862-WD      4087/BAL     4702/BAL     4887/BAL     4923/BAL
   %KP:ADR         1475/SIO*    1477/TIO*    1874/CB      2006/SIO*    2012/STW     2015/TIO*    2021/SIO*
      2022/TIO*    2062/SIO*    2242-DATA
   %KTROL           986/B       1035/BCR     2003-EQU
   %MSG01          1535/GEN     1546/GEN     1759-TEXTS   1779/LW      2301/STB     2305/STB     2307/STB
   %MSG02          1537/GEN     1548/GEN     1760-TEXTS   2330/STB     2333/STW     2349/STB     2362/STB
      2371/STB
   %MSG03          1533/GEN     1761-TEXTS
   %MSG04          1527/GEN     1762-TEXTS
   %MSG05          1531/GEN     1763-TEXTS
   %REGSET          983/BAL     1144-LI
   %RESTART         981/LW      1132-B
   %START           925/DATA     934/GEN      980-BAL     1132/B       5446/B       5448/B       6206/END
   %STROL          1003/B       2519-EQU
   %STROL00        2520-MTW     2578/B
   %STROL01        2531-STW     2537/BCS
   %STROL02        2521/BCR     2542-WD
   %STROL03        2551/BCS     2563-RD
   %STROL04        2564/BCS     2568/BCS     2575-LW
   %SWITCHA        2090/STW     2114/MTW     2131/STW     2136/MTW     2138/STW     2245-DATA
   %TEST:ADR       2065/STW     2522/LB      2525/LB      2555/LB      2592-DATA    4828/LB
   %WAITB          5418-WAIT
   %WAIT1          2009-WAIT
   %WDTTRAP         894/XPSD    2492-DATA    2495/MTW     2496/LPSD
   #0001000        1003-B       1049/BCR     2562/B
   #0001010        1036-LW      1050/B       1079/BCS     1118/B       1131/B
   #0001020        1044-MTW     1080/B       1099/B       1130/BCS
   #0001030        1043/BCS     1051-RD
   #0001040        1114/BCS     1123/BCS     1125/BCR     1127-STW
   #0010000        1196/B       1211/B       2004-LI      2008/BCR     2013/B       2014/BCS     2027/BCR
      2064/B       2066/B       2205/B
   #0010001        2017-LI
   #0010004        2025-LB      2028/BDR
   #0010006        2029-LW
   #0010010        2050-LB      2060/B
   #0010020        2035/BCS     2040/BCS     2061-LI      2068/BCS     2102/BCS     2119/BCS     2122/BCS
      2124/BCS     2126/BCS     2137/BCS     2141/BCS     2153/BCS     2163/BCR     2174/BCS     2181/BCS
      2184/BCS     2233/BCS     2237/BCS     2239/BCR
   #0010030        2052/BCR     2065-STW
   #0010040        2033/BCR     2067-CW
   #0010050        2037/BCS     2080-CW
   #0010060        2095-LB      2133/B
   #0010070        2103-SLD     2107/BCR
   #0010071        2132-MTW     2139/B
   #0010080        2130/BCS     2134-CI
   #0010090        2097/BCS     2135/BCS     2140-CI
   #0010100        2081/BCS     2149-CW
   #0010110        2150/BCS     2182-LB
   #0100000        2320-LI      2324/BIR
   #0100001        2324-BIR     2383/B
   #0100010        2323/BCS     2328-LI
   #0100020        2339/B       2342-LI
   #0100030        2344-LI      2352/BIR
   #0100031        2345-AI      2350/BIR
   #0100040        2340/B       2354-LI
   #0100050        2356-SLD     2364/BIR
   #0100060        2341/B       2366-LI
   #0100070        2369-DW      2374/BIR
   #0100100        2353/B       2365/B       2375-LI
