1 C00   22:55 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,5                                                                *H00
       2                     1.010           PCC                                                        *H00
       3                     1.020  CATALOG  EQU      C'0500'                                           *H00
       4                     1.030  VERSION  EQU      C'H02'                                            *H02
       5                     1.040  TITLE    EQU      S:PT('TELEFILE MIOP DIAGNOSTIC ',;                *H00
       6                     1.050                    '960-',CATALOG,'-',VERSION)                       *H00
       7                     1.060           SPACE                                                      *H00
       8                     1.070           SYSTEM   SIG9P                                             *H00
       9                   369.000  +369,374                                                            *H00
      10                   369.010           PAGE                                                       *H00
      11                   548.000  +548,558                                                            *H00
      12                   820.000  +820,820                                                            *H02
      13                   820.010           SPACE                                                      *H02
      14                   820.020           LI,R2    X'005'            IOP/MS ADDRESS DEFAULT          *H02
      15                   820.030           LI,R3    0                 DIO/MS ADDRESS DEFAULT          *H02
      16                   820.040           SPACE                                                      *H02
      17                   827.000  +827,827                                                            *H02
      18                  4386.000  +4386,4386                                                          *H00
      19                  4386.010           AND,R9   =X'FFFFFFFF'       MS/CDN NO LONGER MASKED        *H00
      20                  4399.000  +4399,4399                                                          *H00
      21                  4399.010           AND,R9   =X'FFFFFF7F'       MS/CDN MASKED                  *H00
      22                  9999.999  +END
1 C00   22:55 JUN 20,'83                                                                          PAGE    2
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   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE    3
A       1*                                    PCC                                                        *H00
        2*        TEXT               CATALOG  EQU      C'0500'                                           *H00
        3*        TEXT               VERSION  EQU      C'H02'                                            *H02
        4*                           TITLE    EQU      S:PT('TELEFILE MIOP DIAGNOSTIC ',;                *H00
        5*        TEXT                                 '960-',CATALOG,'-',VERSION)                       *H00

        7*                                    SYSTEM   SIG9P                                             *H00

        7                            * PROGRAM OBJECTIVE:
        8                            *
        9                            * THE OBJECTIVE OF THIS PROGRAM IS TO DETECT AND TO REPORT ANY
       10                            * FAULTS IN THE TELEFILE MIOP, AND TO GUARANTEE ITS INTEGRITY.
       11                            *
       12                            * OPERATING REQUIREMENTS AND SPECIFICATIONS:
       13                            *
       14                            *  REQUIRED EQUIPMENT--
       15                            *   1. TELEFILE T-SERIES CPU
       16                            *   2. 16K (DEC.) OF MEMORY
       17                            *   3. T-SERIES MIOP, CHANNEL A
       18                            *   4. TELETYPE KEYBOARD DEVICE AND CONTROLLER, MODEL NUMBER 7012, OR
       19                            *       ALTERNATE FACILITY
       20                            *   5. LOAD DEVICE; E.G., MODEL 7140 CARD READER, MODEL 7323 MAG. TAPE
       21                            *
       22                            *  OPTIONAL EQUIPMENT--
       23                            *   1. T-SERIES MIOP CHANNEL B
       24                            *   2. MEMORY TO MEMORY MOVE OPTION
       25                            *   3. ADDITIONAL IOPS, CHANNEL A
       26                            *   4. IOP ALTERNATE PROCESSOR BUS
       27                            *   5. LINE PRINTER, MODEL NUMBER 7445 OR ALTERNATE FACILITY
       28                            *   6. ALTERNATE LOAD FACILITY SUCH AS RAD, PAPER TAPE, ETC.
       29                            *   7. ALTERNATE KEYBOARD DEVICE SUCH AS A TYPEWRITER OR TELETYPE ASR.
       30                            *   8.  COC WITH ASSOCIATED REMOTE TERMINALS.
       31                            *
       32                            *  PROGRAM PRE-REQUISITES--
       33                            *   1. TAUTO
       34                            *   2. COMET (CORE MEMORY TEST)
       35                            *   3. (THIS DIAGNOSTIC INTERFACES WITH REMOTE-GUIDE)
       36                            *
       37                            *  MEMORY STORAGE--
       38                            *   THIS PROGRAM OCCUPIES MEMORY FROM APPROXIMATELY 0 TO 3B00,
       39                            *    HEXIDECIMAL, INCLUDING GUIDE REQUIREMENTS.
       40                            *
       41                            *  RUN TIME--
       42                            *   ON SINGLE IOP SYSTEMS, PASS TIME WILL BE  APPROXIMATELY 7
       43                            *   SECONDS PER PASS FOR RUNNING ALL FUNCTIONAL TEST CASES ON BOTH
       44                            *   CHANNELS.  FOR MUTILPLE IOP SYSTEMS, PASS TIME CAN BE LESS, CON-
       45                            *   TIGENT ON THE COMMUNICATION AND MESSAGE DEVICE ARRANGEMENTS.
       46                            *
       47                            *  PROGRAM MEDIA--
       48                            *   THIS PROGRAM IS SUPPLIED IN CARD FORM AND AS A RESIDENT PROGRAM
       49                            *   FILE ON THE DIAGNOSTIC MAG TAPE LIBRARY.
       50                            *   FOR RUNNING SINGLE PHASE COMPARE MODE, THIS PROGRAM MUST BE
       51                            *   LOADED FROM THE DIAGNOSTIC MAG TAPE LIBRARY. THE PROGRAM REQUIRES
       52                            *   THE STANDARD DIAGNOSTIC PROGRAM LOADER.
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE    4
A      54                            *  SOURCE LANGUAGE--
       55                            *   THIS PROGRAM WAS WRITTEN IN XDS METASYMBOL ASSEMBLY LANGUAGE.  FOR A
       56                            *   DESCRIPTION OF THIS LANGUAGE, REFER TO XDS PUBLICATION, SYMBOL/META-
       57                            *   SYMBOL REFERENCE MANUAL FOR SIGMA 5/7 COMPUTERS, PUBLICATIONS
       58                            *   NUMBER 900952.
       59                            *
       60                            *
       61                            * LOAD PROCEDURE:
       62                            *
       63                            *  1. THE PREFERRED METHOD OF LOADING IS THROUGH AN IOP THAT IS
       64                            *     NOT BEING TESTED BY THE PROGRAM.  HOWEVER, IF ONLY ONE IOP
       65                            *     IS AVAILABLE, LOADING, OF COURSE, MIGHT BE ACHIEVED THROUGH THE
       66                            *     TEST IOP.  THIS LATTER LOADING CONDITION WILL DEPEND ON THE
       67                            *     PERFORMANCE LEVEL OF THE IOP.
       68                            *
       69                            *  2. CONSOLE SWITCHES SHOULD BE PLACED IN THEIR NORMAL SETTING.
       70                            *
       71                            *  3. SENSE SWITCHES SHOULD BE SET OFF.
       72                            *
       73                            *  4. PERFORM A STANDARD LOAD.  IF LOADING IS BEING ATTEMPTED
       74                            *     THROUGH THE DIAGNOSTIC MAG TAPE LIBRARY, AND/OR IF THE DEVICE
       75                            *     ADDRESS IS NOT 001, THE COMMUNICATION IOP-DEVICE ADDRESS
       76                            *     WILL HAVE TO BE MODIFIED.  THIS ADDRESS VALUE MUST BE ENTERED
       77                            *     THROUGH THE GENERAL REGISTERS AT LOAD TIME.
       78                            *
       79                            *  5. IF THE OBJECT PROGRAM CAN NOT BE LOADED, THEN AN ALTERNATE DEVICE
       80                            *     AND/OR IOP CHANNEL SHOULD BE USED TO ATTEMPT A SUCCESSFUL LOAD.
       81                            *     IF THIS FAILS, THEN REFER TO THE DEBUG PROCEDURE.
       82                            *
       83                            *  6. IF LOADING IS SUCCESSFUL, PROGRAM CONTROL REVERTS TO THE GUIDE
       84                            *     CONTROL TO OUTPUT THE PROGRAM TITLE, TO OUTPUT CURRENT MOD-
       85                            *     IFICATIONS, AND THEN TO IDLE STATE.
       86                            *
       87                            *  7. AT THIS TIME THE OPERATOR IS EXPECTED TO KEY IN PARAMETER
       88                            *     CHARACTERS TO DESCRIBE THE OPERATING ENVIROMENT.
       89                            *
       90                            *  8. IF NO INPUT IS MADE, GUIDE CONTROL WILL TIME OUT AND BEGIN PRO-
       91                            *     GRAM EXECUTION.
       92                            *
       93                            *
       94                            * OPERATING PROCEDURES:
       95                            *
       96                            *  GENERAL--
       97                            *   TWO OPERATING MODES ARE PROVIDED IN THE PROGRAM.  THE FIRST
       98                            *   MODE IS CALLED THE FUNCTIONAL MODE, AND THE SECOND IS CALLED THE
       99                            *   ANALYSIS OR SINGLE PHASE COMPARE MODE.  IN THE FUNCTIONAL MODE,
      100                            *   THE IOP IS FUNCTIONALLY TESTED.  IN THE ANALYSIS OR SINGLE PHASE
      101                            *   MODE, CERTAIN FUNCTIONAL TEST MODULES ARE SINGLE PHASED AND
      102                            *   RESULTING IOP STATES ARE READ AND SAVED IN A BUFFER.  THIS RE-
      103                            *   SULTING DATA IS EITHER LISTED OR COMPARED AND LISTED.  BOTH OF
      104                            *   THESE OPERATING MODES ARE CONTROLLABLE WITH THE 'OM' PARAMETER.
      105                            *
      106                            *   IN FUNCTIONAL MODE, EACH FUNCTIONAL ERROR IS IDENTIFIED BY A
      107                            *   MESSAGE INDICATING THE TEST NUMBER, TEST LOCATION, AND AN OPTIONAL
      108                            *   ACTUAL-EXPECTED DATA OR STATUS.  FUNCTIONAL MODE IS INITIALLY
      109                            *   SET ON IN THE ''OM'' PARAMETER CONTROL LINE.
      110                            *
      111                            *   IN ANALYSIS OR SINGLE PHASE COMPARE MODE, AN ERROR IS REPORTED
      112                            *   AS LIST OF THE APPLICABLE PHASES OF A SERVICE.  ALL DISPLAY
      113                            *   GROUPS ARE INCLUDED IN THE DISPLAY AND MORE THAN ONE SERVICE
      114                            *   MAY BE DISPLAYED FOR EACH DETECTED ERROR.  THIS MODE IS
      115                            *   INITIALLY SET OFF IN THE ''OM'' PARAMETER CONTROL LINE.
      116                            *
      117                            *   FOR CERTAIN TEST MODULES, A DETECTED FUNCTIONAL ERROR WILL AUTO-
      118                            *   MATICLY FORCE SINGLE-PHASE DISPLAY (ANALYSIS MODE) OR SINGLE-
      119                            *   PHASE COMPARE DISPLAY PROVIDED THE PROPER BIT HAS PREVIOUSILY
      120                            *   BEEN SET ON IN THE ''OM'' PARAMETER.  THE FIRST OCCURS
      121                            *   IF THE PROGRAM HAS BEEN LOADED FROM
      122                            *   A CARD DECK, WHILE THE SECOND OCCURS IF THE PROGRAM HAS BEEN
      123                            *   LOADED FROM THE DIAGNOSTIC TAPE LIBRARY.   THE REASON FOR THIS
      124                            *   DIFFERENCE IS DUE TO THE REQUIRED COMPARE DATA, WHICH IS ONLY RESI-
      125                            *   DENT ON THE DIAGNOSTIC TAPE LIBRARY.  SINGLE PHASING DISPLAY WILL BE
      126                            *   PRECEDED BY FUNCTIONAL ERROR INDICATION AND WILL BE IN A FORM
      127                            *   OF Eighty-Five IOP DISPLAY GROUPS. EACH MAJOR PHASE WILL BE
      128                            *   INDICATED WITH EACH DISPLAY GROUP.
      129                            *
      130                            *   IN THE SITUATION WHERE THE PROGRAM IS LOADED FROM THE DIAG-
      131                            *   NOSTIC MAG TAPE LIBRARY, AND ASSUMING THE PROPER CONTROL BIT HAS
      132                            *   BEEN SET IN THE ''OM'' PARAMETER CONTROL LINE, UPON COMPLETION
      133                            *   OF FUNCTIONAL TESTING, CONTROL IS ALSO DIRECTED TO AN EXCLUSIVE
      134                            *   SINGLE PHASE COMPARE OPERATION MODE.  IN THIS MODE, ALL
      135                            *   APPROPRIATE TEST MODULES ARE EXECUTED UNDER
      136                            *   SINGLE PHASE CONTROL. NOT UNLIKE FUNCTIONAL TEST FAILURES, ANY
      137                            *   DETECTED SINGLE PHASE ERRORS WILL BE INDICATED BY A LISTING
      138                            *   OF THE DISPLAY GROUPS ON A PER PHASE BASIS.  THIS LISTING IS
      139                            *   PRINTED SUCH THAT THE OPERATOR CAN COMPARE IT AGAINST THE
      140                            *   DISPLAY CHART FOR THE MIOP, ENGINEERING TECHNICAL DATA, DRAWING
      141                            *   NUMBER 156503, SHEET 40. THE OPERATOR MUST ALSO BE AWARE THAT
      142                            *   CERTAIN DISPLAY GROUP BITS ARE TO BE IGNORED DUE TO VARIATIONS
      143                            *   IN THE SYSTEM AND SYSTEM CONFIGURATIONS.  THESE GROUP BITS ARE
      144                            *   GROUP 2, BITS 0-9, 13-16, 20-23, 25, AND 26; AND GROUP 9 OR 17,
      145                            *   BIT 21.  ALSO GROUP 12 OR 20, BITS 16-23, AND GROUP 13 OR 21,
      146                            *   BITS 16-31 ARE MASKED OFF UNLESS FOUR BYTE OR BURST MODE IS
      147                            *   INVOKED BY THE CURRENT TEST MODULE.
      148                            *
      149                            *  MISCELLANEOUS--
      150                            *   IN VIEW THAT THE IOP IS AN ASYNCHRONOUS SYSTEMS ELEMENT,
      151                            *   SPECIAL SYNC INSTRUCTIONS ARE PROVIDED FOR EACH TEST
      152                            *   MODULE.  THESE INSTRUCTIONS ARE IN THE FORM OF A WRITE DIRECT
      153                            *   GROUP 3 AND PROVIDE A SIGNAL ON PIN 3B46 ON CHANNEL 'A' AND
      154                            *   PIN 1F40 ON CHANNEL 'B'.  THEY WILL APPEAR VERY NEAR THE KEY
      155                            *   EVENT OF EACH TEST.  ONE EXCEPTION TO THIS RULE, HOWEVER, IS
      156                            *   SHORT LOOP OPERATION OF SINGLE PHASE (ANALYSIS) MODE.  SYNC-
      157                            *   ING FOR THIS SITUATION MUST BE ACHIEVE BY USING THE APPROPRIATE
      158                            *   READ DIRECT GROUPS OF A PARTICULAR PHASE.
      159                            *  READ DIRECT GROUPS OF A PARTICULAR PHASE.
      160                            *
      161                            *  CONTROL OPTIONS--
      162                            *   THE PROGRAM IS MAINLY CONTROLLED BY KEYBOARD I/O VIA THE GUIDE
      163                            *   PROGRAM, OR CONTROLS REQUIRING SPECIAL INTERPRETATION ARE DECUSSED
      164                            *   HEREIN.  GENERALLY, GUIDE  CONTROLS ARE DESCRIBED IN A SEPARATE
      165                            *
      166                            *   DUE TO THE RESTRICTED OPERATING ENVIRONMENT, THE OPERATOR MUST
      167                            *   BE AWARE OF THE IMPOSED LIMITATION ON THE KEYBOARD READ MODE.
      168                            *   SINCE THE TEST IOP AND THE KEYBOARD DEVICE ARE LIKELY AN ASSO-
      169                            *   CIATED FACILITY,THE ACTUAL TESTING WILL OCCUR WITH THE KEYBOARD
      170                            *   CONTROLLER PROGRAMMED OFF-LINE.  THIS MEANS THAT ONLY IN CERTAIN
      171                            *   TIME INTERVALS CAN THE KEYBOARD BE MADE ON-LINE AND ACTIVE.
      172                            *   HENCE, THE OPERATOR MUST LOOK FOR THE READ LIGHT LITE ON THE
      173                            *   KEYBOARD TO MAKE HIS INPUT REQUEST.
      174                            *
      175                            *   DUE TO THIS INPUT LIMITATION AN ADDITIONAL
      176                            *   FEATURE IS PROVIDED ON THE KEYBOARD. THIS IS,WHENEVER AN OUTPUT
      177                            *   MESSAGE IS BEING TYPED, DEPRESSING THE BREAK KEY WILL
      178                            *   INDUCE A BRIEF INPUT READ.  THIS ALLOWS THE OPERATOR
      179                            *   TO MAKE INPUT REQUEST BEYOND WHAT MIGHT BE AVAILABLE IN THIS
      180                            *   RESTRICTED ENVIRONMENT.
      181                            *
      182                            *
      183                            *  TEST DIRECTIVES AND PARAMETERS--
      184                            *   THE FOLLOWING LIST REFLECTS THE UNIQUE OR SPECIAL PARAMETER
      185                            *   CONTROLS.
      186                            *
      187                            *    PARAMETER                FUNCTIONAL/DESCRIPTION
      188                            *    -----------------------------------------------------------------
      189                            *
      190                            *     J        COMMUNICATION DEVICES AND MISCELLANEOUS CONTROLS--
      191                            *     -        -MSG DVC-- SPECIFIES IOP-DEVICE ADDRESS FOR THE
      192                            *               MESSAGE DEVICE; E.G., LINE PRINTER.
      193                            *              -COM DVC-- SPECIFIES IOP-DEVICE ADDRESS FOR THE
      194                            *               COMMUNICATION DEVICE; E.G., TELETYPE.
      195                            *              -SI-- SPECIFIES SUCCESS INDICATION BY TEST NUMBER.
      196                            *               0 INDICATES NO OUTPUT, 1 INDICATES SUCCESS OUTPUT.
      197                            *               THIS OUTPUT WILL OCCUR FOR ONE PROGRAM
      198                            *               PASS, AND NORMALLY INCLUDES BOTH CHANNELS, CON-
      199                            *               TIGENT ON THE PARAMETER SETTINGS.
      200                            *              -CM-- SPECIFIES NORMAL OR FAST CLOCK MARGINS IN THE
      201                            *               TEST IOP. 0 INDICATES NORMAL,1 INDICATES FAST CLOCKS
      202                            *
      203                            *
      204                            *     OM       OPERATING MODES--
      205                            *     --       -FUNCTIONAL-- THIS IS THE NORMAL OPERATING MODE OF THE
      206                            *               PROGRAM AND WILL NORMALLY BE A ONE.  IN THIS OPERATING
      207                            *               MODE, ALL FUNCTIONAL TEST MODULES ARE EXECUTED
      208                            *               AND ERRORS ARE REPORTED ON A PER TEST BASIS.
      209                            *
      210                            *              -SINGLE PHASE-- IF THIS VALUE IS SET TO A ONE, SINGLE
      211                            *               PHASE OPERATION WILL OCCUR FOR CERTAIN TEST MODULES.
      212                            *               IF SINGLE PHASE COMPARE DATA IS AVAILABLE; THAT IS, IF
      213                            *               THE IOP PROGRAM HAS BEEN LOADED FROM THE DIAGNOSTIC MAG
      214                            *               TAPE LIBRARY, THE SINGLE PHASE OUTPUT DATA IS COMPARED
      215                            *               TO EXPECTED DATA DERIVED FROM A GOOD IOP.  ANY RESULTING
      216                            *               DISCREPANCIES ARE FLAGED ON A PRINTER LISTING.
      217                            *
      218                            *               SINGLE PHASING IS INVOKED DURING TWO DIFFERENT OPERAT-
      219                            *               ING PERIODS. FIRST IT IS INVOKED  AFTER A FAULT IS DE-
      220                            *               TECTED VIA A FUNCTIONAL TEST MODULE.  IN THIS
      221                            *               SITUATION, THE SINGLE PHASE DATA IS COMPARED IF
      222                            *               COMPARE DATA IS AVAILABLE FROM THE AFOREMENTIONED
      223                            *               MAG TAPE LIBRARY.
      224                            *
      225                            *               SINGLE PHASE OPERATION IS ALSO INVOKED AFTER ALL
      226                            *               FUNCTIONAL TEST MODULES HAVE BEEN EXECUTED, PROVIDED
      227                            *               AGAIN, THAT COMPARE DATA IS AVAILABLE FROM THE MAG
      228                            *               TAPE LIBRARY.  A FURTHER REQUIREMENT IS THAT THE SINGLE
      229                            *               PHASE PARAMETER VALUE HAS BEEN PREVIOUSILY SET TO A ONE.
      230                            *
      231                            *     OP       IOP HARDWARE OPTIONS--
      232                            *     --       -IOP-MS ADR-- SPECIFIES THE TEST IOP AND THE M.S.
      233                            *               ADDRESS. THE MS ADDRESS MUST BE APPROPRIATE FOR
      234                            *               THE SPECIFIED NUMBER OF SUBCHANNELS.
      235                            *               IF MEMORY TO MEMORY MOVE
      236                            *               OPTION IS AVAILABLE, ADDRESSES EIGHT AND NINE
      237                            *               MUST BE EXCLUDED.  MS ADDRESS FIVE MUST BE SPECIFIED
      238                            *               WHEN OPERATING COMPARE (ANALYSIS) COOKBOOK MODE.
      239                            *               MULTI-DEVICE ADDRESSES CAN BE SPECIFIED IF ENTERED
      240                            *               IN THE APPROPRIATE FORMAT.
      241                            *              -IOP DIO/MI-- SPECIFIES THE DIO ADDRESS DEDICATED TO THE
      242                            *               TEST IOP, RIGHT JUSTIFIED.
      243                            *              -CH A/B-- SPECIFIES WHICH CHANNEL(S) IS/ARE TO BE TESTED.
      244                            *               A 1 INDICATES THE CHANNEL IS TO BE TESTED.
      245                            *              -SUB-CHLNS-- SPECIFIES SUBCHANNEL NUMBERS ASSOCIATED WITH
      246                            *               CHANNEL A:  1-- 0-15 SUBCHANNELS
      247                            *              -FOUR BYTE-- SPECIFIES FOUR BYTE OPTION ON THE RESPECTIVE
      248                            *               CHANNELS.  A 1 INDICATES FOUR BYTE MODE.
      249                            *              -BURST MODE-- SPECIFIES BURST MODE OPTION ON RESPECTIVE
      250                            *               CHANNELS. A 1 INDICATES BURST MODE. THIS OPTION RE-
      251                            *               QUIRES THE FOUR BYTE OPTION TO BE INVOKED.
      252                            *              -MEM-MEM-- SPECIFIES MEMORY TO MEMORY MOVE OPTION ON
      253                            *               CHANNEL A.  A 1 INDICATES THE OPTION PRESENT.
      254                            *
      255                            *     S        SENSE SWITCHES-- 1-4
      256                            *     -        -SENSE SWITCH 1-- SHORT LOOP--
      257                            *               THIS IS THE SHORTEST PROGRAM PATH THROUGH A TEST MODULE.
      258                            *               THIS OPTION IS INDEPENDENT OF OTHER SENSE SWITCH
      259                            *               OPTIONS AND IS INTENDED FOR SCOPING PURPOSES.
      260                            *
      261                            *
      262                            *              -SENSE SWITCH 2-- LONG LOOP--
      263                            *               THIS OPTION LOCKS THE PROGRAM CONTROL ON A PARTICULAR
      264                            *               TEST MODULE AND IS AFFECTED BY SENSE SWITCHES 3 AND 4.
      265                            *
      266                            *               TO ENTER SUCH A PROGRAM LOOP WHILE THE PROGRAM IS IN
      267                            *               A NORMAL RUN STATE, ONE OF TWO  METHODS CAN BE USED.
      268                            *               THE FIRST METHOD IS TO RUN THE PROGRAM WITHOUT SENSE
      269                            *               3 ON (HALT ON ERROR).  WHENEVER AN ERROR IS DETECTED,
      270                            *               THE PROGRAM GOES TO IDLE WITH THE READ LIGHT ON.
      271                            *               THE  SECOND METHOD IS DESCRIBED UNDER THE T PARAMETE
      272                            *               FOLLOWING, AND IS THE PERFERRED METHOD.
      273                            *
      274                            *               THE OPERATOR IS CAUTIONED IN USING EITHER OF THESE
      275                            *               SENSE SWITCH OPTIONS, HOWEVER.  SINCE A
      276                            *               COMMOM SET OF TEST MODULES ARE UTILIZED FOR
      277                            *               FOR BOTH CHANNELS, TO LOOP ON A SPECIFIC TEST,
      278                            *               THE CHANNEL SHOULD BE SELECTED, AS WELL.
      279                            *               THIS CAN BE ACCOMPLISHED BY THE 'OP' PARAMETER.
      280                            *
      281                            *              -SENSE SWITCH 3-- CONTINUE ON ERROR--
      282                            *               THIS OPTION, WHEN SET, PREVENTS THE PROGRAM FROM GOING
      283                            *               TO AN IDLE STATE AFTER AN ERROR HAS BEEN DETECTED.
      284                            *
      285                            *              -SENSE SWITCH 4-- INHIBIT PRINT-- WHEN SET TO A ONE
      286                            *               THIS OPTION INHIBITS THE PRINT DEVICE(S).
      287                            *
      288                            *     T>X,Y,   TEST SELECT--
      289                            *     ------   THIS PARAMETER LINE PERMITS THE OPERATOR
      290                            *              TO SELECT A RANGE OF TEST MODULES.  THE 'X' REFLECTS A
      291                            *              STARTING TEST MODULE NUMBER,  AND 'Y' REFLECTS AN ENDING
      292                            *              TEST MODULE NUMBER.   THE STARTING TEST NUMBER MUST
      293                            *              BE LESS THAN OR EQUAL TO THE ENDING TEST NUMBER.
      294                            *              BOTH MODULE NUMBERS MUST BE SPECIFIED.
      295                            *
      296                            *              ONCE THIS PARAMETER IS ENTERED, THE GUIDE CONTROL
      297                            *              PROGRAM GOES TO AN IDLE STATE.  TO EXECUTE THE TEST, THE
      298                            *              OPERATOR MUST ENTER A # TO EXIT FROM THE IDLE STATE.
      299                            *
      300                            *              IN SOME SITUATIONS, THIS PARAMETER WILL BE USEFUL IN
      301                            *              LOOPING ON A SPECIFIC TEST.  THIS WILL REQUIRE THE
      302                            *              OPERATOR TO SET SENSE SWITCH 1 OR 2 BEFORE
      303                            *              RETURNING TO RUN MODE.
      304                            *
      305                            *     &        STATUS REPORT-- THIS PARAMETER FORCES THE DRIVER
      306                            *     -        TO REPORT THE CURRENT TEST NUMBER, AND MODULE
      307                            *              LOCATION, AND OPERATING CHANNEL.
      308                            *
      309                            *  START-RESTART PROCEDURE--
      310                            *   STARTING PROCEDURE IS EXPLAINED IN ITEMS SIX THROUGH EIGHT UNDER
      311                            *   LOAD PROCEDURES.
      312                            *
      313                            *   FOR RESTARTING, TWO METHODS ARE PROVIDED.  THE FIRST METHOD
      314                            *   IS FOR THE OPERATOR TO DEPRESS THE SYSTEMS OR CPU RESET BUTTON
      315                            *   ON THE CONSOLE WHILE THE CPU IS IN IDLE STATE.  THE SECOND
      316                            *   METHOD IS TO DEPRESS THE '@' KEY ON THE KEYBOARD DEVICE WHILE THE
      317                            *   DEVICE IS IN READ MODE.
      318                            *
      319                            *   WHICHEVER METHOD IS USED WILL FORCE THE PROGRAM TO GO INTO AN
      320                            *   AN INITIALIZER SEQUENCE AND, THEREAFTER, TO OUTPUT THE FOLLOWING
      321                            *   GUIDE MESSAGE:  ''ABSOLUTE RECOVERY.  CLEAR PARAMETERS %= ''
      322                            *   THE KEYBOARD IS THEN PLACED IN A READ STATE AWAITING AN INPUT CHAR-
      323                            *   ACTER.  IF THE OPERATOR KEYS IN A 'Y' (YES), PROGRAM CONTROL GOES
      324                            *   TO ABSOLUTE RECOVERY, WHICH IS SIMILAR TO THE SITUATION THAT OCCURS
      325                            *   DURING INITIAL LOAD.  IF A 'N' (NO) IS KEYED IN, PROGRAM CONTROL
      326                            *   GOES TO SIMPLE RESTART PROCEDURE, STARTING WITH THE FIRST TEST
      327                            *   MODULE OR THE FIRST TEST MODULE PREVIOUSILY SPECIFIED BY THE
      328                            *   'T' PARAMETER CONTROL.
      329                            *
      330                            *   IT IS IMPORTANT TO NOTE THAT THE 'Y' RECOVERY STATE RESETS
      331                            *   RESETS ALL THE PARAMETER LINES TO THE ORIGINAL CONDITION.  THIS
      332                            *   MEANS CONTROL MODES MAY HAVE TO BE RE-ENTERED VIA THE PARA-
      333                            *   METER LINES.  IT ALSO FORCES THE MTL TO REWIND,WHEN APPROPRIATE.
      334                            *
      335                            *  TERMINATION PROCEDURES--
      336                            *   NO SPECIAL TERMINATIONS PROCEDURES ARE REQUIRED FOR THIS TEST WITH
      337                            *   THE EXCEPTION THAT SYSTEMS OR I/O RESET BUTTON MUST BE DEPRESSED
      338                            *   ON THE PCP TO RETURN THE DEVICE AND MAINTENANCE SUBCONTROLLERS
      339                            *   TO THEIR NORMAL ON-LINE OFF-LINE STATE.  THIS IS, HOWEVER,
      340                            *   A NORMAL FUNCTION BEFORE LOADING ANY SUBSEQUENT PROGRAMS.
      341                            *
      342                            *
      343                            * SUCCESS/FAILURE INDICATIONS:
      344                            *
      345                            *  GENERAL--
      346                            *   DURING THE FIRST NORMAL PASS OF THIS PROGRAM, THE TEST NUMBER
      347                            *   OF EACH SUCCESSFUL TEST CAN BE PRINTED BY SPECIFYING THE APPROPRIATE
      348                            *   'SI' BIT IN THE 'J' PARAMETER LINE.
      349                            *
      350                            *   ANY DETECTED FAILURES WILL BE INDICATED BY A STANDARD ERROR MESSAGE
      351                            *   AS PREVIOUILY DISCUSSED.
      352                            *
      353                            *  WAITS--
      354                            *   FOR NORMAL OPERATION, PROGRAM WAITS SHOULD NEVER OCCUR.
      355                            *   WHENEVER THIS PROGRAM IS NOT IN EXECUTION, PROGRAM CONTROL
      356                            *   IS DIRECTED TO THE IDLE STATE OF GUIDE WITH THE COMMUNICATION
      357                            *   (TELETYPE) DEVICE IN READ MODE.  IF A WAIT DOES OCCUR, IT
      358                            *   IT DENOTES A CERTAIN MALFUNCTION, AND THE OPERATOR SHOULD RE-
      359                            *   FER TO THE LISTING FOR FURTHER INSTRUCTIONS.
      360                            *
      361                            *  MESSAGE PRINTOUTS--
      362                            *   MESSAGE PRINTOUTS ARE SELF EXPLANATORY OR ARE SUPPLEMENTED BY
      363                            *   TEXT IN THE LISTING VIA THE TEST NUMBERS, ETC.
      364                            *
      365                            *  FAILURE EXCEPTION--
      366                            *   ON SOME PROCESSORS, THE ZBC SIGNAL VARIES IN TIMING.  THIS
      367                            *   CAN ESPECIALLY HAPPEN WHEN OPERATING UNDER VOLTAGE MARGINS.
      368                            *  BECAUSE OF THIS VARIATION, THE ZBC BIT WILL NOT BE CHECKED
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE    5
A     375                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      376                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      377                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      378                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      379                            *        IN THE MACHINE WORD.
      380                            *
      381                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      382                            *
      383                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      384                            *
      385                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      386                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      387                            *                  EXECUTION LOCATION COUNTER;
      388                            *
      389                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      390                            *
      391                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      392                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      393                            *                  'EBCDIC'.
      394                            *************************************************************************
      395         00000000           #HTECON  CNAME
      396                                     PROC
      397                            *
      398                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      399                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      400                            *
      401                                     ERROR,0,NUM(AF)~=1 ;
      402                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      403                            *
      404                            *
      405                            LF       BAL,X6     *#HTE%
      406                                     GEN,10,22  0,AF(1)
      407                            *
      408                                     PEND
      409                            *
      410                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      411                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      412                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      413                            *
      414                            *        RETURN IS TO THE PROCEDURE REFERENCE
      415                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      416                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      417                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      418                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      419                            *        OF THE LOAD MULTIPLE INSTRUCTION.  TO FETCH ONLY
      420                            *        ONE WORD, USE OF  LW,REG  0,LINK  OR  LW,REG  1,LINK
      421                            *        AS APPROPRIATE, IS SUGGESTED.
      422                            *
      423                            *
      424                            *
      425                            *
      426                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      427                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#BTE',
      428                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      429                            *        'EBCDIC' FOR THE 32 BIT POSITIONS IN THE WORD.
      430                            *
      431                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      432                            *
      433                            * LABELOPT  #BTECON  LABELADDR       OPTIONAL COMMENTS
      434                            *
      435                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      436                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      437                            *                  EXECUTION LOCATION COUNTER;
      438                            *
      439                            *                  #BTECON IS THE PROCEDURE REFERENCE;
      440                            *
      441                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      442                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      443                            *                  'EBCDIC'.
      444                            *
      445                        *S* #BTECON  CNAME
      446                        *S*          PROC
      447                        *S* *
      448                        *S* *
      449                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      450                        *S*  '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      451                        *S* *
      452                                     ERROR,0,NUM(AF)~=1 ;
      453                        *S*  '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      454                        *S* *
      455                        *S* *
      456                        *S* LF       BAL,X6     *#BTE%
      457                        *S*          GEN,10,22  0,AF(1)
      458                        *S* *
      459                        *S*          PEND
      460                            *
      461                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      462                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      463                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      464                            *
      465                            *        RETURN IS TO THE PROCEDURE REFERENCE
      466                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      467                            *        POINTS TO THE FIRST OF EIGHT MEMORY LOCATIONS
      468                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      469                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      470                            *        OF THE LOAD MULTIPLE INSTRUCTION WHEN THE
      471                            *        VALUE FOR ONE BYTE POSITION IS DESIRED.  THE USE
      472                            *        OF LOCATION 0-6 INDEX BY #LINK AS THE ARGUMENT OF A 'LOAD'
      473                            *        INSTRUCTION IS RECOMMENDED.
      474                            *
      475                            *
      476                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      477                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      478                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      479                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      480                            *        IF THE CHARACTER STRING TO BE CONVERTED
      481                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      482                            *        THE REGISTERS USED MUST NOT
      483                            *        INCLUDE THE LINK REGISTER.
      484                            *
      485                            *
      486                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      487                            *
      488                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      489                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      490                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      491                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      492                            *                          ( MUST BE BETWEEN 0 AND 3 )
      493                            *                 ERRETN=  ADDRESS UPON WHICH 'GUIDE' WILL BRANCH
      494                            *                           INDIRECTLY IF ANY 'EBCDIC' CHARACTER IS
      495                            *                           NOT IN THE HEXADECIMAL CONVERSION TABLE.
      496                            *
      497                            *                           IF AF(3) IS NOT ENTERED, OR IS NOT AN
      498                            *                           ADDRESS, A RETURN TO THE PROGRAM ERROR
      499                            *                           REPORTER WILL BE GENERATED.
      500                            *
      501         00000000           #ETHCON  CNAME
      502                                     PROC
      503                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      504                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      505                            *
      506                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      507                            A        SET      0
      508                            *
      509                            *
      510                                     ERROR,0,A~=CF(2) ;
      511                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      512                            *
      513                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      514                            *
      515                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      516                            B        SET      0
      517                            *
      518                            *
      519                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      520                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      521                            *
      522                            *
      523                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      524                             (AF(1)=X3))     ;
      525                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      526                            *
      527                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      528                            *
      529                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      530                             |(AF(3)=X3))&NUM(AF)>2
      531                            *
      532                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      533                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      534                            *
      535                            E        SET      C|D               'OR' THE RESULTS
      536                            LF       BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      537                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      538                            *
      539                                     GEN,8,22,2  A,AF(1),B
      540                            *
      541                                     ELSE                       RELOCATABLE ADDRESS
      542                            *
      543                                     GEN,8,24     A,BA(AF(1))+B
      544                            *
      545                                     FIN
      546                            *
      547                                     PEND

      560         00000002           #PRINT   CNAME    2,#PRINTER%
      561         00000001           #TYPE    CNAME    1,#TYPER%
      562                                     PROC
      563                            *
      564                            *
      565                                     LOCAL    A
      566                            *
      567                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      568                             '**CF(2) MUST BE POSITIVE INTEGER**'
      569                            *
      570                                     ERROR,0,NUM(CF)>3 ;
      571                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      572                            *
      573                                     ERROR,0,NUM(AF)>NAME(1) ;
      574                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      575                            *
      576                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      577                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      578                            *
      579                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      580                            *
      581                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      582                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      583                            *
      584                                     ERROR,0,A=0  ;
      585                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      586                            *
      587                                     ELSE
      588                            *
      589                            A        SET      0
      590                            *
      591                                     FIN
      592                            *
      593                            *
      594                            *
      595                            *
      596                            LF       BAL,X6   *NAME(2)
      597                            *
      598                            *
      599                                     DO       NUM(CF)=1&NAME(1)=1
      600                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      601                                     ELSE
      602                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      603                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      604                                     ELSE
      605                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      606                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      607                                     ELSE
      608                                     DO       NUM(CF)=2&CF(2)>0
      609                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      610                                     ELSE
      611                                     DO       NUM(CF)=2&CF(2)=0
      612                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      613                                     ELSE
      614                                     DO       NUM(CF)>2&CF(2)>0
      615                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      616                                     ELSE
      617                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      618                                     FIN
      619                                     FIN
      620                                     FIN
      621                                     FIN
      622                                     FIN
      623                                     FIN
      624                            *
      625                            *
      626                                     PEND
      627                            *
      628         000000C0           C0       EQU      X'C0'
      629         000000C1           C1       EQU      X'C1'
      630         000000C2           C2       EQU      X'C2'
      631         000000C3           C3       EQU      X'C3'
      632         000000C4           C4       EQU      X'C4'
      633         000000C5           C5       EQU      X'C5'
      634         000000C6           C6       EQU      X'C6'
      635         000000C7           C7       EQU      X'C7'
      636         000000C8           C8       EQU      X'C8'
      637         000000C9           C9       EQU      X'C9'
      638         000000CA           CA       EQU      X'CA'
      639         000000CB           CB       EQU      X'CB'
      640         000000CC           CC       EQU      X'CC'
      641         000000CD           CD       EQU      X'CD'
      642         000000CE           CE       EQU      X'CE'
      643         000000CF           CF       EQU      X'CF'
      644         000000F0           F0       EQU      X'F0'
      645         000000F1           F1       EQU      X'F1'
      646                            *
      647                            *
      648                            *
      649                            *
      650         00000000           TEXTCS   CNAME
      651                                     PROC
      652                                     DISP     %
      653                                     LIST     0
      654                            LF       TEXTC    AF
      655                                     LIST     1
      656                                     PEND

      658                                     OPEN     POLP,POLR,RIO
      659         00000004           POLP     COM,1,7,4,3,1,2,1,5,8 AFA(1),X'4F',CF(2),AF(2),0,2,0,AF(1),0
      660         00000004           POLR     COM,1,7,4,3,1,2,1,5,8 AFA(1),X'4F',CF(2),AF(2),0,3,0,AF(1),0
      661         00000004           RIO      COM,1,7,4,3,1,2,1,5,8 AFA(1),X'4F',CF(2),AF(2),0,1,0,AF(1),0
      662                            *
      663                            *
      664         00000000           #ABSZERO EQU      0
      665                            *
      666   01 00392                 #TABLE1A   ORG    X'392'          THIS TABLE IS USED BY THE USER
            01 00392
      667         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      668         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      669         01 00394           #LOADFLAG  EQU    %+2
      670         01 00395           #MTLFLAG   EQU    %+3
      671         01 00396           #TOADDR    EQU    %+4
      672         01 00397           #PRTADDR   EQU    %+5
      673         01 00399           #OUTPTR    EQU    %+7
      674         01 0039A           #PAKDEX    EQU    %+8
      675         01 0039B           #INDEX     EQU    %+9
      676         01 0039C           #PARAM%H1 EQU     %+10
      677         01 0039D           #PARAM%H2 EQU     %+11
      678         01 0039E           #PARAM%H3 EQU     %+12
      679         01 0039F           #PARAM%H4 EQU     %+13
      680         01 003A0           #TESTINIT EQU     %+14
      681         01 003A1           #STATUS   EQU     %+15
      682                            *
      683         01 003A2           #PARAM1  EQU      %+16
      684         01 003A4           #PARAM2  EQU      %+18
      685         01 003A6           #PARAM3  EQU      %+20
      686         01 003A8           #PARAM4  EQU      %+22
      687         01 003AA           #MAXMEM   EQU     %+24
      688         01 003AB           #SAMPLE  EQU      %+25
      689         01 003AC           #BRKOUT  EQU      %+26
      690         01 003AD           #DM%START EQU     %+27
      691         01 003AE           #DM%END  EQU      %+28
      692         01 003AF           #TRAPLNK EQU      %+29
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE    6
A     694   01 003C2                 #TABLE1B   ORG    X'3C2'            THIS TABLE IS USED BY USER
            01 003C2
      695         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      696         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      697         01 003C4           #BTE%      EQU    %+2
      698         01 003C5           #DISUSER%  EQU    %+3
      699         01 003C6           #ENUSER%   EQU    %+4
      700         01 003C7           #ARMUSER%  EQU    %+5               TO RE-ARM USER
      701                            *
      702         01 003C8           #GUIDE%    EQU    %+6
      703         01 003C9           #FIDLE%    EQU    %+7
      704         01 003CA           #RUNADDR%  EQU    %+8
      705         01 003CB           #RETURN%   EQU    %+9
      706         01 003CC           #TYPER%    EQU    %+10
      707         01 003CD           #PRINTER%  EQU    %+11
      708         01 003CE           #ERRTEXT%  EQU    %+12
      709         01 003D0           #ERR1PTR%  EQU    %+14
      710         01 003D2           #VALTAB% EQU      %+16
      711         01 003D3           #DMENTRY% EQU     %+17
      712         01 003D4           #P%MODE% EQU      %+18
      713         01 003D5           #GUIDEBUF  EQU    %+19              BYTE ADR OF GUIDE OUTPUT BUFFER
      714         01 003D6           #SCANPARAM  EQU   %+20
      715                            *
      716                            **************:
      717                            *
      718                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      719                            *
      720   01 003E5                          ORG      X'3E5'
            01 003E5
      721                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      722   01 003E5    04       A   VALBIT   DATA,1   4                      (1 BYTE EACH)
      723                            *
      724   01 003E7                          ORG      X'3E7'
            01 003E7
      725                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      726         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      727   01 003E7    F6       A            DATA,1   -10
      728                            *
      729   01 003EC                          ORG      X'3EC'
            01 003EC
      730         01 003EC           VALTYPE  EQU      %
      731                            *
      732   01 003EC    0A004EC0              GEN,8,24 10,BA(VALTAB)
      733                            *
      734                            *
      735                            ************
      736                            *
      737   01 003F0                 DCA        ORG    X'3F0'
            01 003F0
      738                            *
      739                            *
      740                            *
      741                            *
      742   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      743   01 01000    00001558     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      744   01 01001    00003349     #TABLE3@   DATA   TABLE3
      745   01 01002    00003336     #PLINEIN@  DATA   PLINEIN
      746   01 01003    80000000 A   #DIAG@   DATA     X'80000000'
      747   01 01004    00000000 A   #LOADER@ DATA     0
      748   01 01005    00000000 A   #OUTBUF@ DATA     0
      749   01 01006    00001B5F     #ONLINE  DATA     PUTDVCON          ADR OF SEQUENCE TO VERIFY IOPON LINE
      750                            *
      751                            *
      752                            *
      753                            *
      754                            ************
      755                            *
      756                            *
      757                            *                **********
      758         00000000           R0         EQU    0
      759         00000001           R1         EQU    1
      760         00000001           X1         EQU    1
      761         00000002           R2         EQU    2
      762         00000002           X2         EQU    2
      763         00000003           R3         EQU    3
      764         00000003           X3         EQU    3
      765         00000004           R4         EQU    4
      766         00000004           X4         EQU    4
      767         00000005           R5         EQU    5
      768         00000005           X5         EQU    5
      769         00000006           R6         EQU    6
      770         00000006           X6         EQU    6
      771         00000006           LINK       EQU    6
      772         00000007           R7         EQU    7
      773         00000007           X7         EQU    7
      774         00000008           R8         EQU    8
      775         00000009           R9         EQU    9
      776         0000000A           R10        EQU    10
      777         0000000B           R11        EQU    11
      778         0000000C           R12        EQU    12
      779         0000000D           R13        EQU    13
      780         0000000E           R14        EQU    14
      781         0000000F           R15        EQU    15
      782                            *
      783                            *
      784                            *
      785                            *
      786                            **********************************************************************
      787                            *                                                                    *
      788                            *                        INITIALIZATION                              *
      789                            *                                                                    *
      790                            **********************************************************************
      791   01 01010                          ORG      X'1010'
            01 01010
      792         01 01010           #IOPINIT EQU      %                 A RETURN FROM GUIDE
      793   01 01010    35601300              STW,LINK  GUIDLINK         SAVE GUID LINK REGISTER
      794   01 01011    0E00130A              LPSD,0   INHBTIT           SET ALL POSSIBLE INTERRUPT INHIBITS
      795   01 01012    32C012A3     INTL02   LW,R12   BCRINTL           STUFF RESET CELL
      796   01 01013    35C00026 A            STW,R12  X'26'
      797   01 01014    22300006 A            LI,R3    6
      798   01 01015    B2A61004              LW,R10   *#LOADER@,X3      GET MAX MEMORY ADR
      799   01 01016    35A01318              STW,R10  LASTMEM
      800   01 01017    B2301004              LW,R3    *#LOADER@         TABLE DISPLACEMENT
      801   01 01018    20300004 A            AI,R3    4                 COMMUNICATION DEVICE ADR
      802   01 01019    353012D0              STW,R3   COMDVC
      803   01 0101A    B2A61004              LW,R10   *#LOADER@,X3
      804   01 0101B    35A012D8              STW,R10  CTLPTM1           SAVE COMMUNICATION DEVICE ADR
      805   01 0101C    35A012D9              STW,R10  CTLPTM1+1         SAVE ALSO MESSAGE DEVICE ADDRESS
      806   01 0101D    B2A01004              LW,R10   *#LOADER@
      807   01 0101E    30A01004              AW,R10   #LOADER@
      808   01 0101F    B2A0000A A            LW,R10   *R10              WAS PROGRAM LOADED FROM M.T.L. ?
      809   01 01020    68301023              BCR,3    %+3               NO
      810   01 01021    22000000 A            LI,R0    0                 YES
      811   01 01022    35001331              STW,R0   NOTMTL            CLEAR FLAG

      813   01 01023    6AF013D2              BAL,R15  SIGMA                                             *G02

      815   01 01024    6AF01B21     INTL08   BAL,R15  INITRS            SET XPSDS FOR I/O & WDT
      816   01 01025    2220EFFC A            LI,R2    X'EFFC'           DISARM IMPORTANT INTERRUPTS
      817   01 01026    6D201100 A            WD,R2    DISARM             (EXCLUDE COUNTER 4)
      818   01 01027    120012D8              LD,R0    CTLPTM1           MSG & COM DEV
      819   01 01028    22500000 A            LI,R5    0

        2*  01 01029    22200005 A            LI,R2    X'005'            IOP/MS ADDRESS DEFAULT          *H02
        3*  01 0102A    22300000 A            LI,R3    0                 DIO/MS ADDRESS DEFAULT          *H02

      821   01 0102B    22400001 A            LI,R4    1
      822   01 0102C    22700001 A            LI,7     1                 4-BYTE ON A-CHANNEL             *G02
      823   01 0102D    22800000 A            LI,8     0
      824   01 0102E    22900001 A            LI,9     1                 BURST MODE ON A-CHANNEL         *G02
      825   01 0102F    22A00000 A            LI,10    0
      826   01 01030    22B00000 A            LI,11    0
      828   01 01031    22600001 A            LI,R6    1                 SUBCHANNELS
      829   01 01032    02200090 A            LCI      9
      830   01 01033    2B2012DA              STM,R2   CTLPTM1+2         SAVE
      831   01 01034    6AF01A3D              BAL,R15  CTLP              SET UP FOR OPTION CONTROLS
      832   01 01035    22C01CA6              LI,R12   T0010
      833   01 01036    35C013A9              STW,R12  TEST
      834   01 01037    35C01330              STW,R12  NEXTEST
      835   01 01038    D2C01330              LH,R12   *NEXTEST          GET CURRENT TEST NUMBER
      836   01 01039    4BC034E6              AND,R12  =X'FFFF'          MASK
      837   01 0103A    35C003F2              STW,R12  DCA+2
      838   01 0103B    22C02FB0              LI,R12   LASTEST
      839   01 0103C    35C012EC              STW,R12  ENDTEST
      840   01 0103D    22C00001 A            LI,R12   1                 SHOULD MTL BE REWOUND
      841   01 0103E    48C01331              EOR,R12  NOTMTL
      842   01 0103F    4BC012F7              AND,R12  FIRSTIME
      843   01 01040    4BC0133C              AND,R12  PHASMODE
      844   01 01041    68301044              BCR,3    INTL20            NO
      845   01 01042    22000949              LI,R0    DA(TAPEREW)       YES
      846   01 01043    6AF01900              BAL,R15  RECOUT            TO I/O SUBROUTINE
      847   01 01044    22000000 A   INTL20   LI,R0    0                 PURGE ERROR & MISC CONTROL IND
      848   01 01045    351012FE              STW,R1   FUNCTION          FUNCTION INDICATOR
      849   01 01046    350012D2              STW,R0   COMPFLAG
      850   01 01047    350012D1              STW,R0   COMPASS
      851   01 01048    350012CC              STW,R0   CM                CLEAR CLOCK MARGIN CONTROL
      852   01 01049    350012E6              STW,R0   DCOFFA
      853   01 0104A    3500130C              STW,R0   INHOUT
      854   01 0104B    350012FA              STW,R0   FORCEP1
      855   01 0104C    35001336              STW,R0   PASSCNT
      856   01 0104D    35001335              STW,R0   PASS1
      857   01 0104E    35001337              STW,R0   PCPMODE
      858   01 0104F    3500133B              STW,R0   PHASFLAG
      859   01 01050    3500133C              STW,R0   PHASMODE          PHASE MODE INDICATOR
      860   01 01051    22100001 A            LI,R1    1                 INHIBIT SUCCESS TYPE OUT
      861   01 01052    351012F6              STW,R1   FINDCOOK
      862   01 01053    3510130D              STW,R1   INHTSUC
      863   01 01054    351012FE              STW,R1   FUNCTION          FUNCTION INDICATOR
      864   01 01055    22000002 A            LI,R0    2
      865   01 01056    350013AC              STW,R0   TSTIDX1
      866   01 01057    22000064 A            LI,R0    100               USE DEFAULT SUCCESS             *G02
      867   01 01058    350012CF              STW,R0   CMPCNT0            DISPLAY INCREMENT              *G02
      868   01 01059    350012CE              STW,R0   CMPCNT                                            *G02
      869   01 0105A    22000064 A            LI,R0    100               USE DEFAULT SUCCESS             *G02
      870   01 0105B    22300003 A            LI,R3    3                 UPDATE PARAMETERS
      871   01 0105C    228000F1 A            LI,R8    X'F1'             'OM'
      872   01 0105D    75863329              STB,R8   PLINE#OM,X3       FUNCTIONAL CONTROL
      873   01 0105E    229000F0 A            LI,R9    X'F0'
      874   01 0105F    7592332B              STB,R9   PLINE#OM+2,X1     PHASE MODE CONTROL
      875   01 01060    75903328              STB,R9   PLINE#J+4         SUCCESS IND OF 'J' PARAMETER
      876   01 01061    75963328              STB,R9   PLINE#J+4,X3      CLOCK MARGIN CONTROL
      877   01 01062    68001555              B        INIT04
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE    7
A     879                            *************************************************************************
      880                            *                                                                      *
      881                            *                TEST (T) PARAMETER SEQUENCE                           *
      882                            *  THE FOLLOWING ROUTINES PROCESS THE PARAMETER ENTRIES ASSOCIATED     *
      883                            *  WITH THE OBJECT TEST PROGRAM.                                       *
      884                            *                                                                      *
      885                            ************************************************************************
      886         01 01063           TESTNO   EQU      %
      887   01 01063    22200000 A            LI,R2    0                 RESET SUCCESS MSG HEADER
      888   01 01064    352013AE              STW,R2   TSTPRAM1           FLAG AND BOTH INITIAL
      889   01 01065    352013AF              STW,R2   TSTPRAM2            PARAMETER VALUES
      890   01 01066    352013A6              STW,R2   SUCSHD
      891   01 01067    3560135B              STW,LINK RTNFIELD
      892   01 01068    EA6003D6              BAL,LINK *#SCANPARAM
      893   01 01069    00000E88              DATA     BA(#PARAM1)
      894   01 0106A    68001072              B        TSL04             NO ENTRY
      895   01 0106B    6800106C              B        %+1               PADDING
      896   01 0106C    EA6003C2              #ETHCON  %+1
            01 0106D    000041B8
      897   01 0106E    22200000 A            LI,R2    0                 CHECK THE NUMBER OF INPUT DIGITS
      898   01 0106F    51200006 A            CH,R2    LINK              TOO MANY
      899   01 01070    693010B5              BCS,3    TSL60             OUTPUT ERROR MESSAGE
      900   01 01071    356013AE              STW,LINK TSTPRAM1
      901   01 01072    EA6003D6     TSL04    BAL,LINK *#SCANPARAM
      902   01 01073    00000E90              DATA     BA(#PARAM2)
      903   01 01074    6800107C              B        TSL05             NO ENTRY
      904   01 01075    68001076              B        %+1
      905   01 01076    EA6003C2              #ETHCON  #PARAM2           CONVERT P2
            01 01077    00000E90
      906   01 01078    22200000 A            LI,R2    0                 CHECK THE NUMBER OF
      907   01 01079    51200006 A            CH,R2    LINK               INPUT DIGITS
      908   01 0107A    693010B5              BCS,3    TSL60             BRANCH IF TOO MANY
      909   01 0107B    356013AF              STW,LINK TSTPRAM2          SAVE P2

      911   01 0107C    32B013AE     TSL05    LW,R11   TSTPRAM1         CHECK P1 FOR ZERO ENTRY
      912   01 0107D    69301082              BNEZ     TSL09             SKIP IF P1.NE.0
      913   01 0107E    EA6003CC              #TYPE    TSELTMG7          DISPLAY ERROR MESSAGE
            01 0107F    0000D350 A
      914   01 01080    02200010 A            LCI      1
      915   01 01081    E80003C9              B        *#FIDLE%           RETURN TO GUIDE

      917         01 01082           TSL09    EQU      %
      918   01 01082    31B013AF              CW,R11   TSTPRAM2          DOES P1 EXCEED P2
      919   01 01083    68201088              BCR,2    TSL10             NO
      920   01 01084    EA6003CC              #TYPE    TSELTMG3          YES.  INDICATE ERROR
            01 01085    0000D2F4 A
      921   01 01086    02200010 A            LCI      1
      922   01 01087    E80003C9              B        *#FIDLE%          RE-ENTER

      924         01 01088           TSL10    EQU      %
      925   01 01088    6AF010B9              BAL,R15  TSL90             VALIDATE P1
      926   01 01089    35501330              STW,R5   NEXTEST           UPDATE STARTING TEST
      927   01 0108A    355013A9              STW,R5   TEST
      928   01 0108B    D2A01330              LH,R10   *NEXTEST          UPDATE CURRENT TEST NUMBER
      929   01 0108C    4BA034E6              AND,R10  =X'FFFF'          MASK
      930   01 0108D    35A003F2              STW,R10  DCA+2
      931   01 0108E    32B013AF              LW,R11   TSTPRAM2
      932   01 0108F    6AF010B9              BAL,R15  TSL90             VALIDATE P2
      933   01 01090    355012EC              STW,R5   ENDTEST           UPDATE LAST TEST.
      934   01 01091    02200010 A            LCI      1
      935   01 01092    E80003C9              B        *#FIDLE%          BACK TO GUIDE

      937   01 01093    33000009 A   TSL30    MTW,0    R9
      938   01 01094    693010A2              BCS,3    TSL40
      939   01 01095    EA6003C3              #HTECON  R10               USE ALTERNATE MESSAGE
            01 01096    0000000A A
      940   01 01097    22100004 A            LI,R1    4                 CONVERT TO PRINT CODE
      941   01 01098    22200003 A            LI,R2    3
      942   01 01099    F2920006 A   TSL35    LB,R9    *LINK,X1
      943   01 0109A    759434CB              STB,R9   TSELTMG5+9,X2
      944   01 0109B    33100001 A            MTW,1    R1
      945   01 0109C    33100002 A            MTW,1    R2
      946   01 0109D    21100008 A            CI,R1    8
      947   01 0109E    69301099              BCS,3    TSL35
      948   01 0109F    EA6003CC              #TYPE    TSELTMG5         PRINT ALTERNATE MESSAGE
            01 010A0    0000D308 A
      949   01 010A1    680010B3              B        TSL50
      950   01 010A2    EA6003C3     TSL40    #HTECON  R9                CONVERT PRECEEDING TEST NUMBER TO
            01 010A3    00000009 A
      951   01 010A4    22100001 A            LI,R1    1                 PRINT CODE
      952   01 010A5    B2920006 A            LW,R9    *LINK,X1          STORE CONVERTED NUMBER IN PRINT
      953   01 010A6    359034B7              STW,R9   TSELTMG2+12        MESSAGE
      954   01 010A7    EA6003C3              #HTECON  R10               CONVERT PROCEEDING TEST NUMBER TO
            01 010A8    0000000A A
      955   01 010A9    22100004 A            LI,R1    4                  PRINT CODE
      956   01 010AA    22200003 A            LI,R2    3
      957   01 010AB    F2920006 A            LB,R9    *LINK,X1
      958   01 010AC    759434B8              STB,R9   TSELTMG2+13,X2
      959   01 010AD    33100001 A            MTW,1    R1
      960   01 010AE    33100002 A            MTW,1    R2
      961   01 010AF    21100008 A            CI,R1    8
      962   01 010B0    693010AB              BCS,3    %-5
      963   01 010B1    EA6003CC              #TYPE    TSELTMG2          TYPE CLOSEST TEST NUMBER
            01 010B2    0000D2AC A
      964   01 010B3    02200010 A   TSL50    LCI      1
      965   01 010B4    E80003C9              B        *#FIDLE%
      966         01 010B5           TSL60    EQU      %
      967   01 010B5    EA6003CC              #TYPE    TSELTMG6          TYPE TOO MANY DIGITS
            01 010B6    0000D334 A
      968   01 010B7    02200010 A            LCI      1
      969   01 010B8    E80003C9              B        *#FIDLE%
      970         01 010B9           TSL90    EQU      %
      971   01 010B9    22200000 A            LI,R2    0
      972   01 010BA    22501CA6              LI,R5    T0010             FIRST TEST NUMBER
      973   01 010BB    22900000 A            LI,R9    0
      974   01 010BC    32A41CA6     TSL92    LW,R10   T0010,X2          SEARCH FOR MATCHING TEST NUMBERS
      975   01 010BD    25A00070 A            SLS,R10  -16
      976   01 010BE    31A0000B A            CW,R10   R11               R11 CONTAINS THE ENTRY TEST NO.
      977   01 010BF    E830000F A            BCR,3    *R15              TEST NUMBER COMPARES TO ENTRY VALUE
      978   01 010C0    69201093              BCS,2    TSL30             TEST NUMBER > ENTRY VALUE
      979   01 010C1    35A00009 A            STW,R10  R9                SAVE OLD TEST NUMBER
      980   01 010C2    32541CA6              LW,R5    T0010,X2
      981   01 010C3    4B5034E7              AND,R5   =X'3F'            DISPLACEMENT
      982   01 010C4    30200005 A            AW,R2    R5                COMPUTE NEXT TEST MOD DISPLACEMENT
      983   01 010C5    35200005 A            STW,R2   R5
      984   01 010C6    20501CA6              AI,R5    T0010             CHECK FOR MAXIMUM TEST LIMIT
      985   01 010C7    21502FB0              CI,R5    LASTEST
      986   01 010C8    682010BC              BCR,2    TSL92             NO
      987   01 010C9    EA6003CC              #TYPE    TSELTMG1          TEST # EXCEEDS RANGE, PRINT STATUS.
            01 010CA    0000D278 A
      988   01 010CB    22502FB0              LI,R5    LASTEST           DEFAULT VALUE
      989   01 010CC    E800000F A            B        *R15              RETURN
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE    8
A     991                            *                 COOKBOOK GENERATE ROUTINE
      992         01 010CD           GENCOKBK EQU      %
      993   01 010CD    22A00001 A            LI,R10   1                 CONTROL FLAGS
      994   01 010CE    35A0133B              STW,R10  PHASFLAG
      995   01 010CF    35A0133C              STW,R10  PHASMODE
      996   01 010D0    22000000 A            LI,R0    0
      997   01 010D1    350012F6              STW,R0   FINDCOOK          INHIBIT SEARCH FOR COOKDATA
      998   01 010D2    350012E6              STW,R0   DCOFFA            DEVICE ON INDICATION
      999   01 010D3    331012FF              MTW,1    GENADR            M.T.U. TO BE WRITTEN TO
     1000   01 010D4    32601310              LW,R6    IOPA
     1001   01 010D5    6AF013FE              BAL,R15  GENRIO6           ISSUE GENERAL RESET             *G02
     1002   01 010D6    226FD8F0 A            LI,R6    -10000
     1003   01 010D7    656010D7              BIR,R6   %                 WAIT FOR DEVICE ON-LINE STATE
     1004   01 010D8    22A01586              LI,R10   INIT90            BEGINNING ADDRESS
     1005   01 010D9    B5A01306              STW,R10  *IMTLT0
     1006   01 010DA    E8001307              B        *IMTLT1
     1007                            *
     1008                            *                 'OP' PARAMETER ROUTINE
     1009   01 010DB    0000CCB0              DATA     BA(PLINE#OP),BA(OPHDR2),BA(OPHDR1)
            01 010DC    0000D0D8
            01 010DD    0000D0B0
     1010         01 010DE           PARAMOP  EQU      %
     1011   01 010DE    22200000 A            LI,R2    0                 RESET SUCCESS MSG HEADER FLAG
     1012   01 010DF    352013A6              STW,R2   SUCSHD
     1013   01 010E0    70200006 A            LC       LINK
     1014   01 010E1    693010E4              BCS,3    %+3               ANY CHANGE
     1015   01 010E2    02200010 A            LCI      1                 NO
     1016   01 010E3    E80003C9              B        *#FIDLE%
     1017   01 010E4    35601334              STW,LINK PARAMRTN          SAVE RETURN LINKAGE
     1018   01 010E5    EA6003C2              #ETHCON,4 PLINEIN,2        CONVERT IOP-DEVICE PARAMETER TO
            01 010E6    0400CCDA
     1019   01 010E7    21601AFF A            CI,LINK  X'1AFF'           VERIFY IOP NUMBER
     1020   01 010E8    692010EC              BCS,2    PROP10            >10
     1021   01 010E9    4B6034E8              AND,R6   =X'1EFF'          MASK
     1022   01 010EA    356012DA              STW,R6   CTLPTM1+2         SAVE IOP-DEVICE ADDRESS
     1023   01 010EB    680010EE              B        %+3
     1024   01 010EC    22A000F1 A   PROP10   LI,R10   '1'              PARAMETER ONE ERROR
     1025   01 010ED    68001131              B        PROP90            REPORT ERROR
     1026   01 010EE    EA6003C2              #ETHCON,2 PLINEIN+2,1      CONVERT DIO/MI PARAMETER TO HEX
            01 010EF    0200CCE1
     1027   01 010F0    2160007F A            CI,R6    127               >127
     1028   01 010F1    682010F4              BCR,2    PROP11            NO
     1029   01 010F2    22A000F2 A            LI,R10   '2'              YES-- PRINT PARAMETER P2
     1030   01 010F3    68001131              B        PROP90            REPORT ERROR
     1031   01 010F4    356012DB     PROP11   STW,R6  CTLPTM1+3         SAVE DIO/MI ADDRESS
     1032   01 010F5    222FFFFE A            LI,R2    -2
     1033   01 010F6    EA6003C2              #ETHCON,1 PLINEIN+3,2      CONVERT CHANNEL A SELECT BIT
            01 010F7    0100CCE6
     1034   01 010F8    21600001 A   PROP12   CI,R6    1                 >1
     1035   01 010F9    682010FC              BCR,2    %+3
     1036   01 010FA    22A0F3F4 A            LI,R10   '34'              PARAMETER THREE AND/OR FOUR
     1037   01 010FB    68001145              B        PROP94             ERROR
     1038   01 010FC    356412DE              STW,R6   CTLPTM1+6,X2
     1039   01 010FD    EA6003C2              #ETHCON,1 PLINEIN+4        CONVERT CHANNEL B SELECT BIT
            01 010FE    0100CCE8
     1040   01 010FF    652010F8              BIR,R2   PROP12
     1041   01 01100    EA6003C2              #ETHCON,1 PLINEIN+5        CONVERT SUBCHANNEL OPTION
            01 01101    0100CCEC
     1042   01 01102    21600001 A            CI,R6    1                 MUST BE .EQ. 1 ON
     1043   01 01103    68301106              BE       PROP28             TELEFILE MIOP
     1044   01 01104    22A000F5 A            LI,R10   '5'               PARAMETER FIVE ERROR
     1045   01 01105    68001131              B        PROP90
     1046   01 01106    356012DE     PROP28   STW,R6   CTLPTM1+6         SAVE
     1047   01 01107    222FFFFE A            LI,R2    -2
     1048   01 01108    EA6003C2              #ETHCON,1 PLINEIN+6,1      CHANNEL A FOUR BYTE OPTION
            01 01109    0100CCF1
     1049   01 0110A    21600001 A   PROP30   CI,R6    1                 >1
     1050   01 0110B    6820110E              BCR,2    PROP38            PARAMETERS SIX AND/OR SEVEN ERROR
     1051   01 0110C    22A0F6F7 A            LI,R10   '67'              PARAMETER FOUR ERROR
     1052   01 0110D    68001145              B        PROP94
     1053   01 0110E    356412E1     PROP38   STW,R6   CTLPTM1+9,X2      SAVE CHANNEL A FOUR BYTE OPTION
     1054   01 0110F    EA6003C2              #ETHCON,1 PLINEIN+6,3      CHANNEL B FOUR BYTE OPTION
            01 01110    0100CCF3
     1055   01 01111    6520110A              BIR,R2   PROP30
     1056   01 01112    222FFFFE A            LI,R2    -2
     1057   01 01113    EA6003C2              #ETHCON,1 PLINEIN+7,3      BURST MODE
            01 01114    0100CCF7
     1058   01 01115    21600001 A   PROP40   CI,R6    1                 >1
     1059   01 01116    68201119              BCR,2    PROP48            YES
     1060   01 01117    22A0F8F9 A            LI,R10   '89'              NO-- PARAMETERS EIGHT AND/OR NINE
     1061   01 01118    68001145              B        PROP94             ERROR
     1062   01 01119    356412E3     PROP48   STW,R6   CTLPTM1+11,X2     SAVE PARAMETER BIT
     1063   01 0111A    EA6003C2              #ETHCON,1 PLINEIN+8,1
            01 0111B    0100CCF9
     1064   01 0111C    65201115              BIR,R2   PROP40
     1065   01 0111D    EA6003C2              #ETHCON,1 PLINEIN+9,1      MEMORY TO MEMORY MOVE
            01 0111E    0100CCFD
     1066   01 0111F    21600001 A            CI,R6    1                  OPTION BIT
     1067   01 01120    68201123              BCR,2    PROP58
     1068   01 01121    22A0F1F0 A            LI,R10   '10'              PARAMETER TEN ERROR
     1069   01 01122    68001131              B        PROP90
     1070   01 01123    356012E3     PROP58   STW,R6   CTLPTM1+11
     1071   01 01124    221FFFD9 A            LI,R1    -39               COPY PARAMETER LINE INTO
     1072   01 01125    72A23340              LB,R10   PLINEIN+10,X1      PRINT FIELD
     1073   01 01126    75A23336              STB,R10  PLINE#OP+10,X1
     1074   01 01127    65101125              BIR,R1   %-2
     1075   01 01128    02200000 A            LCI      0
     1076   01 01129    2B0012A4              STM,R0   BUFFER1           SAVE
     1077   01 0112A    2A0012D8              LM,R0    CTLPTM1           PARAMETERS
     1078   01 0112B    6AF01A3D              BAL,R15  CTLP              UPDATE CONTROLS
     1079   01 0112C    6AF01A24              BAL,R15  CKDVCON           RE-ESTABLISH ON-LINE OFF-LINE
     1080   01 0112D    02200000 A            LCI      0
     1081   01 0112E    2A0012A4              LM,R0    BUFFER1
     1082   01 0112F    02200010 A            LCI      1                 SET CC
     1083   01 01130    E80003C9              B        *#FIDLE%
     1084                            *
     1085         01 01131           PROP90   EQU      %
     1086   01 01131    21A00100 A            CI,R10   X'100'            SINGLE OR DOUBLE DIGIT
     1087   01 01132    6920113A              BCS,2    PROP91            DOUBLE
     1088   01 01133    75A0000B A            STB,R10  R11               SINGLE
     1089   01 01134    22100001 A            LI,R1    1
     1090   01 01135    75A23441              STB,R10  OPMG1+1,X1        DIGIT TO MESSAGE FIELD
     1091   01 01136    20100001 A            AI,R1    1
     1092   01 01137    22A00040 A            LI,R10   ' '               BLANK UNUSED FIELD
     1093   01 01138    75A23441              STB,R10  OPMG1+1,X1
     1094   01 01139    68001140              B        PROP92+1          SAVE FIELD NUMBER
     1095   01 0113A    32B034E9     PROP91   LW,R11   =X'0A000000'
     1096   01 0113B    22100002 A            LI,R1    2
     1097   01 0113C    75A23441              STB,R10  OPMG1+1,X1        SECOND DIGIT TO PRINT FIELD
     1098   01 0113D    33F00001 A            MTW,-1   R1
     1099   01 0113E    25A00078 A            SLS,R10  -8
     1100   01 0113F    75A23441     PROP92   STB,R10  OPMG1+1,X1        FIRST DIGIT TO PRINT FIELD
     1101   01 01140    22A0001C A            LI,R10   28                BYTE COUNT
     1102   01 01141    22100003 A            LI,R1    3
     1103   01 01142    75A23440              STB,R10  OPMG1,X1
     1104   01 01143    22A0D103              LI,R10   BA(OPMG1)+3       PARTIAL MESSAGE
     1105   01 01144    68001151              B        PROP98            BYTE ADDRESS
     1106         01 01145           PROP94   EQU      %
     1107   01 01145    22100001 A            LI,R1    1                 DOUBLE PARAMETER ERROR
     1108   01 01146    75A23441              STB,R10  OPMG1+1,X1
     1109   01 01147    25A00078 A            SLS,R10  -8
     1110   01 01148    75A0000B A            STB,R10  R11               SAVE FIELD NUMBER
     1111   01 01149    22100002 A            LI,R1    2
     1112   01 0114A    75A23440              STB,R10  OPMG1,X1
     1113   01 0114B    22A00040 A            LI,R10   X'40'
     1114   01 0114C    75A23441              STB,R10  OPMG1+1,X1
     1115   01 0114D    22A00060 A            LI,R10   '-'               RESTORE
     1116   01 0114E    22100003 A            LI,R1    3
     1117   01 0114F    75A23440              STB,R10  OPMG1,X1
     1118   01 01150    22A0D100              LI,R10   BA(OPMG1)         FULL MESSAGE
     1119         01 01151           PROP98   EQU      %
     1120   01 01151    35A01153              STW,R10  %+2               MESSAGE BYTE ADDRESS
     1121   01 01152    EA6003CC              #TYPE    %                 TYPE MESSAGE
            01 01153    0000454C A
     1122   01 01154    4BB034EA              AND,R11  =X'FF00000'
     1123   01 01155    7260000B A            LB,LINK  R11
     1124   01 01156    E8001334              B        *PARAMRTN
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE    9
A    1126                            *                 'OM' PARAMETER LINE ROUTINE
     1127   01 01157    0000CCA4              DATA     BA(PLINE#OM),BA(OMHDR2),BA(OMHDR1)
            01 01158    0000D0A4
            01 01159    0000D098
     1128         01 0115A           PARAMOM  EQU      %
     1129   01 0115A    22100000 A            LI,R1    0                 RESET SUCCESS MSG HEADER FLAG
     1130   01 0115B    351013A6              STW,R1   SUCSHD
     1131   01 0115C    70200006 A            LC       LINK
     1132   01 0115D    69301160              BCS,3    %+3               ANY CHANGE
     1133   01 0115E    02200010 A            LCI      1                 NO
     1134   01 0115F    E80003C9              B        *#FIDLE%
     1135   01 01160    35601334              STW,LINK PARAMRTN          SAVE RETURN LINKAGE
     1136   01 01161    EA6003C2              #ETHCON,1 PLINEIN,3       FUNCTIONAL CONTROL
            01 01162    0100CCDB
     1137   01 01163    21600001 A            CI,R6    1
     1138   01 01164    68201167              BCR,2    PROM20
     1139   01 01165    22A000F1 A            LI,R10   '1'
     1140   01 01166    68001131              B        PROM90
     1141   01 01167    356012FE     PROM20   STW,R6   FUNCTION
     1142   01 01168    EA6003C2              #ETHCON,1 PLINEIN+2,1     COMPARE CONTROL
            01 01169    0100CCE1
     1143   01 0116A    21600001 A            CI,R6    1
     1144   01 0116B    6820116E              BCR,2    PROM26
     1145   01 0116C    22A000F2 A            LI,R10   '2'
     1146   01 0116D    68001131              B        PROP90
     1147   01 0116E    3160133C     PROM26   CW,R6    PHASMODE          ANY CHANGES IN PHASE MODE
     1148   01 0116F    68301179              BE       PROM30             SKIP IF NO CHANGE
     1149   01 01170    3560133C              STW,R6   PHASMODE          SAVE
     1150   01 01171    33000006 A            MTW,0    R6                IS NEW PHASE MODE OFF
     1151   01 01172    69301179              BNEZ     PROM30             SKIP IF NOT OFF
     1152   01 01173    3560133B              STW,R6   PHASFLAG
     1153   01 01174    356012D2              STW,R6   COMPFLAG
     1154   01 01175    22000001 A            LI,R0    1                 SET FLAG TO FORCE
     1155   01 01176    350012F6              STW,R0   FINDCOOK           SEARCH FOR COOKBOOK DATA
     1156   01 01177    22000949              LI,R0    DA(TAPEREW)         REWIND THE TAPE
     1157   01 01178    6AF01900              BAL,R15  RECOUT
     1158   01 01179    221FFFF5 A   PROM30   LI,R1    -11               UPDATE PARAMETER LINE
     1159   01 0117A    72A23339              LB,R10   PLINEIN+3,X1
     1160   01 0117B    75A2332C              STB,R10  PLINE#OM+3,X1
     1161   01 0117C    6510117A              BIR,R1   %-2               LOOP
     1162   01 0117D    02200010 A            LCI      1                 SET CC
     1163   01 0117E    E80003C9              B        *#FIDLE%
     1164         01 01131           PROM90   EQU      PROP90
     1165                            *
     1166                            *
     1167                            *
     1168                            *                 'J' PARAMETER LINE ROUTINE
     1169   01 0117F    0000CC90              DATA     BA(PLINE#J),BA(JHDR)
            01 01180    0000D084
     1170         01 01181           PARAJ    EQU      %
     1171   01 01181    22000000 A            LI,R0    0                 RESET SUCCESS MSG HEADER FLAG
     1172   01 01182    350013A6              STW,R0   SUCSHD
     1173   01 01183    70200006 A            LC       LINK
     1174   01 01184    69301187              BCS,3    %+3               ANY CHANGES
     1175   01 01185    02200010 A            LCI      1                 NO
     1176   01 01186    E80003C9              B        *#FIDLE%
     1177   01 01187    35601334              STW,R6   PARAMRTN
     1178   01 01188    EA6003C2              #ETHCON,4 PLINEIN,2        CONVERT TO HEX
            01 01189    0400CCDA
     1179   01 0118A    21601AFF A            CI,LINK  X'1AFF'           VERIFY PARAMETER ONE RANGE
     1180   01 0118B    6820118E              BCR,2    %+3               YES
     1181   01 0118C    22A000F1 A            LI,R10   '1'
     1182   01 0118D    68001131              B        PAJ90
     1183   01 0118E    CD000006 A            TIO,R0   *LINK
     1184   01 0118F    68801194              BCR,8    PAJ10
     1185   01 01190    EA6003CC              #TYPE    NOMREGMG
            01 01191    0000D068 A
     1186   01 01192    22600001 A            LI,R6    1
     1187   01 01193    E8001334              B        *PARAMRTN
     1188   01 01194    356012D9     PAJ10    STW,LINK CTLPTM1+1         MESSAGE DEVICE
     1189   01 01195    3560131C              STW,LINK LPDVC              DEVICE ADDRESS
     1190   01 01196    35600397              STW,LINK #PRTADDR
     1191   01 01197    EA6003C2              #ETHCON,4 PLINEIN+2,1
            01 01198    0400CCE1
     1192   01 01199    21601AFF A            CI,LINK  X'1AFF'
     1193   01 0119A    6820119D              BCR,2    %+3
     1194   01 0119B    22A000F2 A            LI,R10   '2'
     1195   01 0119C    68001131              B        PAJ90
     1196   01 0119D    CD000006 A            TIO,R0   *LINK
     1197   01 0119E    688011A3              BCR,8    PAJ20
     1198   01 0119F    EA6003CC              #TYPE    NOCREGMG
            01 011A0    0000D04C A
     1199   01 011A1    22600002 A            LI,R6    2
     1200   01 011A2    E8001334              B        *PARAMRTN
     1201   01 011A3    356012D8     PAJ20    STW,LINK CTLPTM1           COMMUNICATION DEVICE ADDRESS
     1202   01 011A4    22000000 A            LI,R0    0
     1203   01 011A5    72A0333A              LB,R10   PLINEIN+4         GET SI BYTE                     *G01
     1204   01 011A6    20AFFF10 A            AI,R10   -X'F0'             VERIFY 0,1,2                   *G01
     1205   01 011A7    691011AF              BLZ      PAJ25                                             *G01
     1206   01 011A8    683011BA              BEZ      PAJ30                                             *G01
     1207   01 011A9    21A00002 A            CI,R10   2                                                 *G01
     1208   01 011AA    692011AF              BG       PAJ25                                             *G01
     1209   01 011AB    3300130D              MTW,0    INHTSUC           WAS INHIBIT INDICATOR OFF
     1210   01 011AC    683011BD              BCR,3    PAJ40             YES-- DON'T MODIFY CONTROLS
     1211   01 011AD    350012E9              STW,R0   ENDSUC
     1212   01 011AE    680011BC              B        PAJ40-1           RESTART SUCCESS PRINT
     1213   01 011AF    72A0333A     PAJ25    LB,R10   PLINEIN+4         GET SI BYTE                     *G01
     1214   01 011B0    21A000F0 A            CI,R10   X'F0'              CONVERT TO HEX                 *G01
     1215   01 011B1    691011B3              BL       %+2                                               *G01
     1216   01 011B2    20AFFFC7 A            AI,R10   -X'F0'+X'C1'-10                                   *G01
     1217   01 011B3    20AFFF48 A            AI,R10   -X'C1'+10-1       RANGE IS 2,3,4,...,E            *G01
     1218   01 011B4    21A0000E A            CI,R10   14                 IF RANGE IS X'E',              *G01
     1219   01 011B5    693011B7              BNE      %+2                 USE OLD VALUE (100)           *G01
     1220   01 011B6    22A00064 A            LI,R10   100                  AS DEFAULT                   *G02
     1221   01 011B7    35A012CF              STW,R10  CMPCNT0                                           *G02
     1222   01 011B8    30A01336              AW,R10   PASSCNT           COMPUTE NEXT THRESHOLD          *G02
     1223   01 011B9    35A012CE              STW,R10  CMPCNT                                            *G02

     1225   01 011BA    350012E9     PAJ30    STW,R0   ENDSUC
     1226   01 011BB    22000001 A            LI,R0    1                 NO-- INHIBIT SUCCESS INDICATION
     1227   01 011BC    3500130D              STW,R0   INHTSUC
     1228   01 011BD    22B00000 A   PAJ40    LI,R11   0
     1229   01 011BE    32A0333A              LW,R10   PLINEIN+4
     1230   01 011BF    4BA034EB              AND,R10  =X'F'
     1231   01 011C0    21A00001 A            CI,R10   1
     1232   01 011C1    682011C4              BCR,2    %+3
     1233   01 011C2    22A000F4 A            LI,R10   '4'               GREATER THAN 1
     1234   01 011C3    68001131              B        PAJ90
     1235   01 011C4    31A012CD              CW,R10   CMCTRL            ANY CHANGES
     1236   01 011C5    683011D1              BCR,3    PAJ60             NO
     1237   01 011C6    3300000A A            MTW,0    R10
     1238   01 011C7    682011CE              BCR,2    PAJ50+1           NOT SET,SET CM OFF
     1239   01 011C8    6CB00045 A            RD,R11   X'45'             SET,TEST VOLTAGE MARGIN STATE
     1240   01 011C9    4BB034EC              AND,R11  =X'100000'        BIT 11
     1241   01 011CA    693011CD              BCS,3    PAJ50             YES
     1242   01 011CB    EA6003CC              #TYPE    VMMG
            01 011CC    0000D36C A
     1243   01 011CD    32B034ED     PAJ50    LW,R11   =X'400000'
     1244   01 011CE    35A012CD              STW,R10  CMCTRL            SAVE CM CONTROLS
     1245   01 011CF    EDB01294              WD,R11   *GP00             SET CM
     1246   01 011D0    35B012CC              STW,R11  CM                SAVE CLOCK MARGIN CONTROL BIT
     1247   01 011D1    221FFFFB A   PAJ60    LI,R1    -5
     1248   01 011D2    32A2333B              LW,R10   PLINEIN+5,X1
     1249   01 011D3    35A23329              STW,R10  PLINE#J+5,X1
     1250   01 011D4    651011D2              BIR,R1   %-2
     1251   01 011D5    32A012D8              LW,R10   CTLPTM1
     1252   01 011D6    35A01317              STW,R10  KBDVC
     1253   01 011D7    35A00396              STW,R10  #TOADDR
     1254   01 011D8    6AF01A24              BAL,R15  CKDVCON           RE-ESTABLISH ON-LINE OFF-LINE
     1255   01 011D9    02200010 A            LCI      1
     1256   01 011DA    E80003C9              B        *#FIDLE%
     1257         01 01131           PAJ90    EQU      PROP90
     1258                            *
     1259                            *                 '&' PARAMETER LINE ROUTINE
     1260                            *                 REPORT CURRENT TEST NO. & LOCATION.
     1261   01 011DB    6A601C52     READSTAT BAL,LINK STATMSGS          OUTPUT STATUS MESSAGE ON & KEYIN
     1262   01 011DC    E80003CB              B        *#RETURN%         RETURN TO POINT OF INTERRUPT
     1263                            ***********************************************************************
     1264                            *                                                                     *
     1265                            *                 COMMAND DOUBLE WORD TABLE                           *
     1266                            *                                                                     *
     1267                            ***********************************************************************

     1269                                     ERROR,3,ABSVAL(%)>X'11F9'  'COOKBOOK VALUES OVERLAID'      *G02
     1270   01 011FA                          ORG      X'11FA'           %%%%%DONT TOUCH (COOKBOOK)%%%%%%*G02
            01 011FA
     1271   01 011FA    0C004A97     CMDTA    GEN,8,24 12,BA(BUFFER1)+7   READ REVERSE
     1272   01 011FB    00000008 A            GEN,8,8,16  0,0,8          BYTE COUNT = 8
     1273   01 011FC    0C004A9B     CMDTB    GEN,8,24  12,BA(BUFFER1)+11   READ REVERSE
     1274   01 011FD    0000000B A            GEN,8,8,16  0,0,11         BYTE COUNT = 11
     1275   01 011FE    0C004A9A     CMDTC    GEN,8,24  12,BA(BUFFER1)+10  READ REVERSE
     1276   01 011FF    0000000B A            GEN,8,8,16 0,0,11          BYTE COUNT = 11
     1277   01 01200    02004A90     CMDT1    GEN,8,24       2,BA(BUFFER1)   READ
     1278   01 01201    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT = 1
     1279   01 01202    01004A90     CMDT2    GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1280   01 01203    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1281   01 01204    02004A90     CMDT3    GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1282   01 01205    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT=2
     1283   01 01206    01FFFFFF A   CMDT4    GEN,8,24       1,X'FFFFFF'     WRITE, MAXIMUM BYTE ADDRESS
     1284   01 01207    01000000 A            GEN,8,8,16     1,0,0           SKIP FLAG,BYTE COUNT=MAX
     1285   01 01208    01004A91     CMDT5    GEN,8,24       1,BA(BUFFER1)+1 WRITE, BUFFER+1
     1286   01 01209    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1287   01 0120A    01004A92     CMDT6    GEN,8,24       1,BA(BUFFER1)+2 WRITE, BUFFER+2
     1288   01 0120B    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1289   01 0120C    01004A93     CMDT7    GEN,8,24       1,BA(BUFFER1)+3 WRITE, BUFFER+3
     1290   01 0120D    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1291   01 0120E    02004A91     CMDT8    GEN,8,24       2,BA(BUFFER1)+1 READ, BUFFER+1
     1292   01 0120F    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1293   01 01210    02004A92     CMDT9    GEN,8,24       2,BA(BUFFER1)+2 READ, BUFFER+2
     1294   01 01211    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1295   01 01212    02004A93     CMDT10   GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER+3
     1296   01 01213    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT = 1
     1297   01 01214    01004A90     CMDT11   GEN,8,24       1,BA(BUFFER1)   WRITE,BUFFER
     1298   01 01215    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT = 2
     1299   01 01216    01004A90     CMDT12   GEN,8,24       1,BA(BUFFER1)   WRITE,BUFFER
     1300   01 01217    00000003 A            GEN,8,8,16     0,0,3           BYTE COUNT = 3
     1301   01 01218    01004A90     CMDT13   GEN,8,24       1,BA(BUFFER1)   WRITE,BUFFER
     1302   01 01219    00000004 A            GEN,8,8,16     0,0,4           BYTE COUNT = 4
     1303   01 0121A    01004A90     CMDT14   GEN,8,24       1,BA(BUFFER1)   WRITE,BUFFER
     1304   01 0121B    00000005 A            GEN,8,8,16     0,0,5           BYTE COUNT = 5
     1305   01 0121C    02004A91     CMDT15   GEN,8,24       2,BA(BUFFER1)+1 READ, BUFFER+1
     1306   01 0121D    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT = 2
     1307   01 0121E    02004A91     CMDT16   GEN,8,24       2,BA(BUFFER1)+1 READ, BUFFER+1
     1308   01 0121F    00000003 A            GEN,8,8,16     0,0,3           BYTE COUNT = 3
     1309   01 01220    02004A90     CMDT17   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1310   01 01221    00000004 A            GEN,8,8,16     0,0,4           BYTE COUNT = 4
     1311   01 01222    01004A93     CMDT19   GEN,8,24       1,BA(BUFFER1)+3 WRITE, BUFFER+3
     1312   01 01223    00000006 A            GEN,8,8,16     0,0,6           BYTE COUNT=6
     1313   01 01224    01004A93     CMDT19A  GEN,8,24       1,BA(BUFFER1)+3 WRITE, BUFFER+3
     1314   01 01225    00000008 A            GEN,8,24       0,8             BYTE COUND = 8
     1315   01 01226    01004A90     CMDT20   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1316   01 01227    00000008 A            GEN,8,8,16     0,0,8           BYTE COUNT=8
     1317   01 01228    02004A93     CMDT21   GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER+3
     1318   01 01229    00000006 A            GEN,8,8,16     0,0,6           BYTE COUNT=6
     1319   01 0122A    02004A93     CMDT21A  GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER+3
     1320   01 0122B    00000008 A            GEN,8,24       0,8             BYTE COUNT = 8
     1321   01 0122C    02004A90     CMDT22   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1322   01 0122D    00000008 A            GEN,8,8,16     0,0,8           BYTE COUNT=8
     1323   01 0122E    00004A90     CMDT22A  GEN,8,24       0,BA(BUFFER1)   READ, BUFFER
     1324   01 0122F    00000010 A            GEN,8,8,16     0,0,16          BYTE COUNT = 16
     1325   01 01230    01004A93     CMDT23   GEN,8,24       1,BA(BUFFER1)+3 WRITE,BUFFER
     1326   01 01231    0000000E A            GEN,8,8,16     0,0,14          BYTE COUNT= 14
     1327   01 01232    01004A90     CMDT24   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1328   01 01233    0000000C A            GEN,8,8,16     0,0,12          BYTE COUNT = 12
     1329   01 01234    02004A92     CMDT25   GEN,8,24       2,BA(BUFFER1)+2 READ, BUFFER
     1330   01 01235    00000013 A            GEN,8,8,16     0,0,19          BYTE COUNT = 19
     1331   01 01236    00004A90     CMDT25A  GEN,8,24       0,BA(BUFFER1)   READ, BUFFER
     1332   01 01237    80000008 A            GEN,8,8,16     X'80',0,8       DATA CHAIN SET, BC = 8
     1333   01 01238    01004A98     CMDT25B  GEN,8,24       1,BA(BUFFER1+2) WRITE,BUFFER+2
     1334   01 01239    00000004 A            GEN,8,8,16     0,0,4           BYTE COUNT=4
     1335   01 0123A    00004A90     CMDT25C  GEN,8,24       0,BA(BUFFER1)   READ, BUFFER
     1336   01 0123B    80000004 A            GEN,8,8,16     X'80',0,4       DATA CHAIN SET, BC = 4
     1337   01 0123C    01004A98     CMDT25D  GEN,8,24       1,BA(BUFFER1+2) WRITE,BUFFER+2
     1338   01 0123D    00000008 A            GEN,8,8,16     0,0,8           BYTE COUNT=8
     1339   01 0123E    02004A92     CMDT26A  GEN,8,24       2,BA(BUFFER1)+2 READ, BUFFER
     1340   01 0123F    80000001 A            GEN,8,8,16     X'80',0,1       DATA CHAIN SET, BYTE COUNT=1
     1341   01 01240    01004A90     CMDT26B  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1342   01 01241    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT = 2
     1343   01 01242    01004A91     CMDT27A  GEN,8,24       1,BA(BUFFER1)+1 WRITE, BUFFER
     1344   01 01243    80000002 A            GEN,8,8,16     X'80',0,2       DATA CHAIN SET, BYTE COUNT=2
     1345   01 01244    02004A90     CMDT27B  GEN,8,24       2,BA(BUFFER1)   READ,  BUFFER
     1346   01 01245    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT = 1
     1347   01 01246    02004A92     CMDT28A  GEN,8,24       2,BA(BUFFER1)+2 READ, BUFFER+2
     1348   01 01247    20000002 A            GEN,8,8,16     X'20',0,2       COMMAND CHAIN, BYTE COUNT= 2
     1349   01 01248    01004A93     CMDT28B  GEN,8,24       1,BA(BUFFER1)+3 WRITE, BUFFER+3
     1350   01 01249    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT =2
     1351   01 0124A    01004A92     CMDT29A  GEN,8,24       1,BA(BUFFER1)+2 WRITE, BUFFER
     1352   01 0124B    20000002 A            GEN,8,8,16     X'20',0,2       COMMAND CHAIN, BYTE COUNT =2
     1353   01 0124C    02004A90     CMDT29B  GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1354   01 0124D    00000004 A            GEN,8,8,16     0,0,4           BYTE COUNT = 4
     1355   01 0124E    02004A93     CMDT30A  GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER
     1356   01 0124F    A0000001 A            GEN,8,8,16     X'A0',0,1       DATA & COMMAND CHAINING, CNT=1
     1357   01 01250    01004A91     CMDT30B  GEN,8,24       1,BA(BUFFER1)+1 WRITE, BUFFER
     1358   01 01251    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT=2
     1359   01 01252    01004A90     CMDT31A  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1360   01 01253    20000002 A            GEN,8,8,16     X'20',0,2       COMMAND CHAIN, BYTE COUNT= 2
     1361   01 01254    08000926     TFCH01   GEN,8,3,21     8,0,DA(CMDT29B) TRANSFER IN CHANNEL
     1362   01 01255    00000001 A            GEN,8,8,16     0,0,1           DUMMY, PARTIAL COMMAND
     1363   01 01256    01004A90     CMDT32A  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1364   01 01257    20000001 A            GEN,8,8,16     X'20',0,1       COMMAND CHAIN, BYTE COUNT = 1
     1365   01 01258    0800092A     TFCH02   GEN,8,3,21     8,0,DA(TFCH01)  TRANSFER IN CHANNEL
     1366   01 01259    00000001 A            GEN,8,8,16     0,0,1           PARTIAL DUMMY COMMAND
     1367   01 0125A    02004A93     CMDT33A  GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER
     1368   01 0125B    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT = 1
     1369   01 0125C    02004A90     CMDT34   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1370   01 0125D    40000003 A            GEN,8,8,16     X'40',0,3       INTERRUPT ON BYTE COUNT = 0
     1371   01 0125E    01004A90     CMDT35   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1372   01 0125F    10000002 A            GEN,8,8,16     X'10',0,2       INTERRUPT ON CHANNEL END
     1373   01 01260    01004A90     CMDT36   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1374   01 01261    04000004 A            GEN,8,8,16     4,0,4           INTERRUPT ON UNUSUAL END
     1375   01 01262    02004A90     CMDT37   GEN,8,24       2,BA(BUFFER1)   READ,  BUFFER
     1376   01 01263    08000008 A            GEN,8,8,16     8,0,8           HALT ON TRANSMISSION ERROR
     1377   01 01264    01004A90     CMDT38   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1378   01 01265    0800000A A            GEN,8,8,16     8,0,10          HTE, BYTE COUNT = 10
     1379   01 01266    01004A90     CMDT39   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1380   01 01267    0A00000A A            GEN,8,8,16     X'A',0,10       HTE & SIL, BYTE CNT = 10
     1381   01 01268    01004A90     CMDT40   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1382   01 01269    01000002 A            GEN,8,8,16     1,0,2           SKIP,BYTE COUNT = 2
     1383   01 0126A    02004A90     CMDT41   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1384   01 0126B    01000003 A            GEN,8,8,16     1,0,3           SKIP, BYTE COUNT = 3
     1385   01 0126C    0C004A93     CMDT42   GEN,8,24       12,BA(BUFFER1)+3 READ BACKWARDS, BUFFER+3
     1386   01 0126D    00000003 A            GEN,8,24       0,3             BYTE COUNT = 3
     1387   01 0126E    02004AF8 N   CMDT44   GEN,8,22,2     2,BUFFER2,0     READ,BUFFER 2
     1388   01 0126F    00000004 A            GEN,8,8,14,2   0,0,1,0         WORD CONT = 1
     1389   01 01270    01004A90 N   CMDT45   GEN,8,22,2     1,BUFFER1,0     WRITE, BUFFER 1
     1390   01 01271    00000004 A            GEN,8,8,14,2   0,0,1,0         WORD COUNT = 2
     1391   01 01272    01004A90     CMDT46A  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER1
     1392   01 01273    80000004 A            GEN,8,24       X'80',4         DATA CHAIN, B.C. = 4
     1393   01 01274    02004A94     CMDT46B  GEN,8,24       2,BA(BUFFER1+1)  READ, BUFFER1+1
     1394   01 01275    00000004 A            GEN,8,24       0,4             BYTE COUNT = 4
     1395   01 01276    02004AF8     CMDT47A  GEN,8,24       2,BA(BUFFER2)   READ, BUFFER2
     1396   01 01277    80000004 A            GEN,8,24       X'80',4         DATA CHAIN, B.C. = 4
     1397   01 01278    02004AFC     CMDT47B  GEN,8,24       2,BA(BUFFER2+1)  READ, BUFFER2 + 1
     1398   01 01279    00000004 A            GEN,8,24       0,4             BYTE COUNT = 4
     1399   01 0127A    01004A90     CMDT48   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER1
     1400   01 0127B    1400000C A            GEN,8,24       X'14',12        ICE,IUE  B.C. = 12
     1401   01 0127C    02004AF8     CMDT49   GEN,8,24       2,BA(BUFFER2)   READ, BUFFER2
     1402   01 0127D    0000000C A            GEN,8,24       0,12            B.C. = 12
     1403   01 0127E    02004A90     CMDT50   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER1
     1404   01 0127F    0C000008 A            GEN,8,24       X'C',8          HTE,IUE  B.C. = 8
     1405   01 01280    01004A92     CMDT51   GEN,8,24       1,BA(BUFFER1)+2  WRITE, BUFFER+2
     1406   01 01281    00000008 A            GEN,8,24       0,8             B.C.=8
     1407   01 01282    01004A90     CMDT52A  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER 1
     1408   01 01283    20000001 A            GEN,8,24       X'20',1         COMMAND CHAINNING, BC=1
     1409   01 01284    08080000 A   CMDT52B  GEN,8,3,21     8,0,X'80000'    TRANSFER IN CHANNEL,MAX ADR
     1410   01 01285    00000000 A            GEN,8,24       0,0
     1411   01 01286    4B000000 A   RECBACK  GEN,8,24       X'4B',0
     1412   01 01287    00000000 A            GEN,8,24       0,0
     1413   01 01288    73000000 A   TAPEND   GEN,8,24       X'73',0
     1414   01 01289    00000000 A            GEN,8,24       0,0
     1415   01 0128A    53000000 A   FILEFWD  GEN,8,24       X'53',0
     1416   01 0128B    00000000 A            DATA           0
     1417   01 0128C    0200E084     READREC  GEN,8,24 2,BA(ENDADDR+401) COMPARE DATA BUFFER
     1418   01 0128D    020007D0 A            GEN,8,24       2,2000
     1419   01 0128E    5B000000 A   FILEBACK GEN,8,24       X'5B',0
     1420   01 0128F    00000000 A            DATA           0
     1421   01 01290    0100DA44     TAPECMND GEN,8,24 1,BA(ENDADDR+1)   SINGLE-PHASE OUTPUT BUFFER
     1422   01 01291    00000000 A            DATA           0
     1423   01 01292    33000000 A   TAPEREW  GEN,8,24       X'33',0     TAPE REWIND COMMAND
     1424   01 01293    00000000 A            DATA           0
     1425                            ***********************************************************************
     1426                            *                                                                     *
     1427                            *                 GENERAL CONSTANTS                                   *
     1428                            ***********************************************************************
     1429                            *
     1430                            *                 DIO GROUP CODES
     1431   01 01294    00002000 A   GP00     GEN,16,4,7,5   0,2,0,0
     1432   01 01295    00002001 A   GP01     GEN,16,4,7,5   0,2,0,1
     1433   01 01296    00002002 A   GP02     GEN,16,4,7,5   0,2,0,2
     1434   01 01297    00002003 A   GP03     GEN,16,4,7,5   0,2,0,3
     1435   01 01298    00002008 A   GP08     GEN,16,4,7,5   0,2,0,8
     1436   01 01299    00002009 A   GP09     GEN,16,4,7,5   0,2,0,9
     1437   01 0129A    0000200A A   GP10     GEN,16,4,7,5   0,2,0,10
     1438   01 0129B    0000200B A   GP11     GEN,16,4,7,5   0,2,0,11
     1439   01 0129C    0000200C A   GP12     GEN,16,4,7,5   0,2,0,12
     1440   01 0129D    0000200D A   GP13     GEN,16,4,7,5   0,2,0,13
     1441   01 0129E    0000200E A   GP14     GEN,16,4,7,5   0,2,0,14
     1442   01 0129F    0000200F A   GP15     GEN,16,4,7,5   0,2,0,15
     1443                            *
     1444                            *                 PROGRAM DATA CONSTANTS AND VARIABLES
     1445   01 012A0    00000000 A   AIOCC    DATA     0                 AIO CONDITION CODES
     1446   01 012A1    00000000 A   AIOSKIP  DATA     0                 INHIBITS AIO IN HANDLER, WHEN SET
     1447   01 012A2    00000000 A   AIOSTATS DATA     0                 AIO STATUS (R)
     1448         00001300           ARM      EQU      X'1300'           ARM GROUP 0
     1449         00001200           ARMABLE  EQU      X'1200'           ARM AND ENABLE GROUP 0
     1450   01 012A3    68001012     BCRINTL  B        INTL02            RECOVERY INSTRUCTION
     1451                                     BOUND    8
     1452                            BUFFER1  TEXTCS   '                             ';
     1453                                              ,'                              ';
     1454                                              ,'                              ';
     1455         01 012A4                             ,'         '
     1456                                     BOUND    8
     1457         01 012BE           BUFFER2  TEXTCS   '         '
     1458   01 012C1    00000000 A   BURSTCHA DATA     0                 BURST MODE, CHANNEL A
     1459   01 012C2    00000000 A   BURSTCHB DATA     0                 BURST MODE, CHANNEL B
     1460   01 012C3    00000000 A   BURSTM   DATA     0                 BURST MODE REQUIRED
     1461   01 012C4    00000000 A   CBGEN    DATA     0                 CAUSES COOKBOOK GENERATION WHEN SET
     1462   01 012C5    00000000 A   CCUTEST  DATA     0                 CCU INDICATOR
     1463         00000020           CELL20   EQU      X'20'
     1464         00000021           CELL21   EQU      X'21'
     1465   01 012C6    00000000 A   CHANNELA DATA     0                 SET IF CHAN. A IS TO BE TESTED
     1466   01 012C7    00000000 A   CHANNELB DATA     0                 SET IF CHAN. B OPTION TO BE TESTED
     1467   01 012C8    00000000 A   CHBCTRL  DATA     0                 GROUP BIAS FOR CHANNEL B
     1468   01 012C9    00000000 A   CHDRCTL  DATA     0                 SUCCESS HEADER CONTROL FLAG
     1469   01 012CA    00000000 A   CHLATEST DATA     0                 CHANNEL 'A' INDICATOR
     1470   01 012CB    00000000 A   CHLBTEST DATA     0                 CHANNEL 'B' INDICATOR
     1471   01 012CC    00000000 A   CM       DATA     0                 CLOCK MARGIN CONTROL WORD
     1472   01 012CD    00000000 A   CMCTRL   DATA     0                 IOP CLOCK MARGIN CONTROL
     1473   01 012CE    00000064 A   CMPCNT   DATA     100
     1474   01 012CF    00000064 A   CMPCNT0  DATA     100               PASS COMPARATOR THRESHOLD       *G01
     1475   01 012D0    00000001 A   COMDVC   DATA     1                 TEMPORARY SAVE FOR COM DVC ADR
     1476   01 012D1    00000000 A   COMPASS  DATA     0                 SET = COMPARE-FOR-ERR-DETECTION PASS
     1477   01 012D2    00000000 A   COMPFLAG DATA     0                 SET WHEN COMPARE IS TO BE MADE
     1478   01 012D3    00000000 A   COMPSRV3 DATA     0                 NO SIO IF SET: PHASEING ALGORITHYM
     1479   01 012D4    00000000 A   COMPSRV4 DATA     0                 INHIBITS ORDER OUT WHEN SET:  "  "
     1480   01 012D5    00000000 A   COMPSTRT DATA     0                 START ADDRESS OF COMPARE DATA
     1481   01 012D6    00000000 A   COUNTER  DATA     0
     1482                                     BOUND    8
     1483   01 012D8    00000001 A   CTLPTM1  DATA     1    C(R0)        KEYBOARD PRINTER ADR (IOP & DVC #)
     1484   01 012D9    00000202 A            DATA     514  C(R1)        LINE PRINTER ADR (IOP & DVC #)
     1485   01 012DA    00000005 A            DATA     5    C(R2)        IOP-MS ADR (IOP & MS DVC #)
     1486   01 012DB    00000000 A            DATA     0    C(R3)        IOP DIO/MI ADDRESS
     1487   01 012DC    00000001 A            DATA     1    C(R4)        A ONE IF CHANNEL'A' IS AVAILABLE
     1488   01 012DD    00000000 A            DATA     0    C(R5)        A ONE IF CHANNEL'B'IS AVAILABLE
     1489   01 012DE    00000001 A            DATA     1    C(R6)        CHANNEL A SUBCHANNEL CONFIGU-
     1490                            *                                    RATION:  ONE-- 0-15
     1491   01 012DF    00000001 A            DATA     1    C(R7)        A ONE IF THE FOUR BYTE OPTION IS
     1492                            *                                    AVAILABLE ON CHANNEL A
     1493   01 012E0    00000000 A            DATA     0    C(R8)        A ONE IF THE FOUR BYTE OPTION IS
     1494                            *                                    AVAILABLE ON CHANNEL B
     1495   01 012E1    00000001 A            DATA     1    C(R9)        A ONE IF THE BURST MODE OPTION IS
     1496                            *                                    AVAILABLE ON CHANNEL A
     1497   01 012E2    00000000 A            DATA     0    C(R10)       A ONE IF THE BURST MODE OPTION IS
     1498                            *                                    AVAILABLE ON CHANNEL B
     1499   01 012E3    00000000 A            DATA     0    C(R11)       A ONE IF MEMORY-TO-MEMORY MOVE
     1500                            *                                    OPTION IS AVAILABLE
     1501   01 012E4    00000000 A   DATAPNT  DATA     0                 DATA PRINT INDICATOR
     1502   01 012E5    00000000 A   DATABYTE DATA     0
     1503   01 012E6    00000000 A   DCOFFA   DATA     0                 DC OFF LINE IND., CHAN A
     1504   01 012E7    00000000 A   DIOADR   DATA     0
     1505   01 012E8    00000000 A   DIOPRET  DATA     0                 DIO PRE-TEST INDICATOR
     1506         00001100           DISARM   EQU      X'1100'           DISARM GROUP 0
     1507         01 01294           DISPLAY  EQU      GP00
     1508         00001600           ENABLE   EQU      X'1600'           ENABLE GROUP 0
     1509   01 012E9    00000000 A   ENDSUC   DATA     0                 SUCCESS INDICATION CONTROL
     1510   01 012EA    00000000 A   FAMADR   DATA     0                 FAM ADDRESS FOR FAULT CONSIDERATION
     1511   01 012EB    00000000 A   ENDPSUC1 DATA     0                 END SUCCESS IND FOR SUCCESS PRINT
     1512   01 012EC    00002FB0     ENDTEST  DATA     LASTEST
     1513   01 012ED    00000000 A   FAMBAD   DATA     0                 FAM FAULT INDICATOR
     1514   01 012EE    00000000 A   FAM2OPT  DATA     0                 FAM (SUBCHANNELS) 0-15
     1515   01 012EF    00000000 A   FAM3OPT  DATA     0                 FAM (SUBCHANNELS) 0-23
     1516                                     BOUND    8
     1517   01 012F0    80000000 A   FAMPAT1  DATA,8   X'8000000082000000'  ZEROS PATTERN FOR FAM
                        82000000
     1518   01 012F2    80FFFFFF A   FAMPAT2  DATA,8   X'80FFFFFF82FFFFFF'
                        82FFFFFF
     1519   01 012F4    04000000 A   FAMPAT3  DATA,8   X'400000004000000'
                        04000000
     1520   01 012F6    00000001 A   FINDCOOK DATA     1                 SET FOR MTL COMPDATA SEARCH
     1521   01 012F7    00000000 A   FIRSTIME DATA     0                 FIRST TIME INDICATOR FOR INITIAL
     1522   01 012F8    00000000 A   FOLDEX   DATA     0                 DISPLAY FOLDOVER INDEX KEY
     1523   01 012F9    00000000 A   FOLDEXC  DATA     0                 COMPARE FOLDOVER INDEX KEY
     1524   01 012FA    00000000 A   FORCEP1  DATA     0
     1525   01 012FB    00000000 A   FOURBYTA DATA     0                 FOUR BYTE OPTION, CHANNEL A
     1526   01 012FC    00000000 A   FOURBYTB DATA     0                 FOUR BYTE OPTION, CHANNEL B
     1527   01 012FD    00000000 A   FOURBYTE DATA     0                 FOUR BYTE OPTION
     1528   01 012FE    00000001 A   FUNCTION DATA     1                 FUNCTION TEST MODE FLAG
     1529   01 012FF    00000000 A   GENADR   DATA     0                 M.T.U. ADDRESS FOR CBGEN
     1530   01 01300    00000000 A   GUIDLINK DATA     0                 SAVE FOR GUIDE LINK REG.
     1531                                     BOUND    8
     1532   01 01302    000014EF N   IDLINK   GEN,15,17,4,4,16,4,4   0,GO02,,,,,   IDLE LINKAGE PSD
                        00000000
     1533   01 01304    00000000 A   IETTCC04 DATA     0                 IE TRAP TCC 0-4
     1534   01 01305    0F0013BA     IEXPSD   XPSD,0   IETT              INSTRUCTION EXCEPTION TRAP XPSD
     1535   01 01306    00000000 A   IMTLT0   DATA     0                 LINKS TO THE
     1536   01 01307    00000000 A   IMTLT1   DATA     0                  M.T.L.
     1537   01 01308    00000000 A   IMTLT2   DATA     0                   WHEN
     1538   01 01309    00000000 A   IMTLT3   DATA     0                    RUNNING CBGEN
     1539         01 012E5           INDATA   EQU      DATABYTE          INPUT DATA BYTE
     1540                                     BOUND    8
     1541   01 0130A    00001012 N   INHBTIT  GEN,15,17,4,4,16,4,4   0,INTL02,0,7,0,0,0 INITIALIZE,INHBTS SET
                        07000000
     1542   01 0130C    00000000 A   INHOUT   DATA     0                 INHIBIT OUTPUT
     1543   01 0130D    00000001 A   INHTSUC  DATA     1                 INHIBIT SUCCESS MESSAGE  PRINT
     1544   01 0130E    00000000 A   INTRTN   DATA     0                 I/O INTERRUPT RETURN
     1545   01 0130F    00000000 A   IOINTRSW DATA     0                 INTERRUPT SWITCH
     1546   01 01310    00000000 A   IOPA     DATA     0                 IOP, CHANNEL A ADDRESS
     1547   01 01311    00000000 A   IOPB     DATA     0                 IOP, CHANNEL B ADDRESS
     1548   01 01312    00000000 A   IOPNO    DATA     0                 CURRENT IOP NUMBER
     1549   01 01313    00000000 A   IOPMSAP  DATA     0                 MS ADDRESS IN COMPLEMENT FORM
     1550   01 01314    00000000 A   IOPMSADR DATA     0                 DEDICATED IOP & MS ADDREESSES
     1551   01 01315    00001411     IORETURN DATA     BAD               I/O INTERRUPT RETURN (MODIFIABLE)
     1552   01 01316    0F0013BE     IOXPSD   XPSD,0   IOI               XPSD FOR I/O
     1553   01 01317    00000000 A   KBDVC    DATA     0
     1554   01 01318    00003FFF A   LASTMEM  DATA     X'3FFF'           MAX MEMORY
     1555   01 01319    00000000 A   LINECNT  DATA     0                 DISPLAY CODE LINE COUNT STORAGE
     1556   01 0131A    00000000 A   LINERR   DATA     0                 INDICATES MISCOMPARE LINE
     1557   01 0131B    00000000 A   LINEFOLD DATA     0                 DISPLAY FOLDOVER INDICATOR
     1558   01 0131C    00000000 A   LPDVC    DATA     0
     1559   01 0131D    7FFDFFF2 A   MASK8    DATA     X'7FFDFFF2'       MASK FOR DISPLAY GROUP8
     1560   01 0131E    FFFDECEE A   MASK9    DATA     X'FFFDECEE'       MASK FOR DISPLAY GROUP 9
     1561   01 0131F    00FFFFFF A   MASK10   DATA     X'FFFFFF'         MASK FOR DISPLAY GROUP 10
     1562   01 01320    00FFFFFF A   MASK11   DATA     X'FFFFFF'         MASK FOR DISPLAY GROUP 11
     1563   01 01321    0000FFFD A   MASK14   DATA     X'FFFD'           MASK FOR DISPLAY GROUP 14
     1564   01 01322    0000FF7B A   MASKSIM  DATA     X'FF7B'           MASK FOR GROUP 8 DISPLAY FOR MS SIM.
     1565   01 01323    0F0013C2     MFXPSD   XPSD,0   MFII              MEMORY FAULT INTERRUPT XPSD
     1566   01 01324    00000000 A   MISCOMP  DATA     0                 INDICATES MISCOMPARE HAS OCCURRED
     1567   01 01325    00000000 A   MOVEOPT  DATA     0
     1568   01 01326    00000000 A   MOVEOPTA DATA     0
     1569   01 01327    00000008 A   MM8      DATA     8                 DEVICE ADDRESS FOR MM MOVE, 8
     1570   01 01328    00000009 A   MM9      DATA     9                 DEVICE ADDRESS FOR MM MOVE, 9
     1571   01 01329    00000000 A   MSA      DATA     0                 MS(A) ADDRESS
     1572   01 0132A    00000000 A   MSB      DATA     0                 MS(B) ADDRESS
     1573   01 0132B    00000000 A   MSADRAP  DATA     0                 MS ADR IN COMPLEMENT FORM
     1574   01 0132C    00000000 A   MSADRBP  DATA     0                 MS ADR IN COMPLEMENT FORM
     1575   01 0132D    00000000 A   MSADRA   DATA     0
     1576   01 0132E    00000000 A   MSADRB   DATA     0
     1577   01 0132F    00000000 A   MSADRPTY DATA     0
     1578   01 01330    00001CA6     NEXTEST  DATA     T0010             NEXT TEST MODULE ADDRESS WORD
     1579   01 01331    00000001 A   NOTMTL   DATA     1                 INDICATES LOAD WAS NOT FROM MTL
     1580   01 01332    00000001 A   NDCDLY   DATA     1                 NO DEVICE DELAY
     1581   01 01333    00000000 A   OUTDEX   DATA     0                 SINGLE PHASE OUTPUT INDEX
     1582   01 01334    00000000 A   PARAMRTN DATA     0
     1583   01 01335    00000000 A   PASS1    DATA     0
     1584   01 01336    00000000 A   PASSCNT  DATA     0
     1585   01 01337    00000000 A   PCPMODE  DATA     0
     1586   01 01338    0F0013C6     PFXPSD   XPSD,0   PFII              PROCESSOR FAULT INTERRUPT XPSD
     1587   01 01339    00000000 A   PHASAVE  DATA     0                 POINTER & RETURN FOR PREPHS ROUTINES
     1588   01 0133A    00000000 A   PHASEAIO DATA     0                 INDICATES THAT AIO WILL BE PHASED.
     1589   01 0133B    00000000 A   PHASFLAG DATA     0
     1590   01 0133C    00000000 A   PHASMODE DATA     0                 FLAG FOR SINGLE PHASE CONTROL
     1591   01 0133D    0000F0F1 A   PHASNUMB DATA     X'0000F0F1'       DICTIONARY OF PHASE TYPES
     1592   01 0133E    F0F2F0F3 A            DATA     X'F0F2F0F3'
     1593   01 0133F    F0F4F0F5 A            DATA     X'F0F4F0F5'
     1594   01 01340    F0F6F0F7 A            DATA     X'F0F6F0F7'
     1595   01 01341    F0F8F0F9 A            DATA     X'F0F8F0F9'
     1596   01 01342    F1F0F1F1 A            DATA     X'F1F0F1F1'
     1597   01 01343    F1F2E2E7 A            DATA     X'F1F2E2E7'
     1598   01 01344    C940F0F0 A            DATA     X'C940F0F0'
     1599   01 01345    00000000 A   PHASTEST DATA     0                 INDICATES TEST IS PHASEABLE
     1600   01 01346    00000000 A   PNTDBL   DATA     0                 PRINT DOUBLE REGISTERS IND
     1601   01 01347    00000000 A   PTTCC04  DATA     0                 PARITY TRAP TCC 0-4
     1602   01 01348    00000000 A   PTYCTR   DATA     0
     1603   01 01349    0F0013CA     PTYXPSD  XPSD,0   PTT               PARITY TRAP XPSD
     1604   01 0134A    00000000 A   PUTOUT   DATA     0                 OUTPUT ENABLE DURING COMPARE
     1605   01 0134B                 REGISTER RES      16                REG. STORE DURING SINGLE PHASE
     1606         00040400           RESET    EQU      X'40400'          BIT 13 & 21-- RESET AND RELEASE
     1607         00000022           RESETIO  EQU      X'22'             RESET I/O INTERRUPT INHIBIT BIT
     1608   01 0135B    00000000 A   RTNFIELD DATA     0
     1609                                     BOUND    8
     1610   01 0135C    10001B1A N   RTIDLE   GEN,4,11,17,4,4,16,4,4  1,0,IDLER,0,0,0,0,0
                        00000000
     1611   01 0135E    000014F5     RTNGO03  DATA     GO03
     1612   01 0135F    00000000 A            DATA     0
     1613   01 01360    00000000 A   R15CTLP  DATA     0                 SAVE LINK R15
     1614   01 01361    00000000 A   R15PRTN  DATA     0                 R15 SAVE
     1615   01 01362    00000000 A   SAVE     DATA     0,0               GENERAL PURPOSE SAVE WORD
            01 01363    00000000 A
     1616                                     BOUND    8
     1617   01 01364    00000000 A   SAVEGIET DATA     0,0
            01 01365    00000000 A
     1618   01 01366    00000000 A   SAVEGIO  DATA     0,0               XPSD SAVE FOR GUIDE I/O
            01 01367    00000000 A
     1619   01 01368    00000000 A   SAVEGMFI DATA     0,0
            01 01369    00000000 A
     1620   01 0136A    00000000 A   SAVEGPFI DATA     0,0
            01 0136B    00000000 A
     1621   01 0136C    00000000 A   SAVEGPTY DATA     0,0
            01 0136D    00000000 A
     1622   01 0136E    00000000 A   SAVEGWDT DATA     0,0               SAVE FOR OLD WATCHDOG TIMER TRAP
            01 0136F    00000000 A
     1623   01 01370    00000000 A   SAVERTN  DATA     0
     1624   01 01371    00000000 A   SAVER15S DATA     0                 RTRN SAVE FOR SUPER RESET
     1625                                     BOUND    8
     1626   01 01372    00000000 A   SAVR8    DATA     0,0               REGISTERS 8 & 9 SAVE
            01 01373    00000000 A
     1627   01 01374    00000000 A   SAVR10   DATA     0,0               REGISTERS 10 & 11 SAVE
            01 01375    00000000 A
     1628   01 01376                 SEQBUFF  RES      16                SINGLE PHASE ALGORITHYM SEQUENCE
     1629   01 01386    00000000 A   SEQDEX   DATA     0                 SINGLE PHASE ALGORITHYM INDEX
     1630                                     BOUND    8
     1631   01 01388    00000000 A   SAVREG   DATA     0,0,0,0,0,0,0,0   REGISTER TWO SAVE
            01 01389    00000000 A
            01 0138A    00000000 A
            01 0138B    00000000 A
            01 0138C    00000000 A
            01 0138D    00000000 A
            01 0138E    00000000 A
            01 0138F    00000000 A
     1632   01 01390    00000000 A            DATA     0,0,0,0,0,0,0,0
            01 01391    00000000 A
            01 01392    00000000 A
            01 01393    00000000 A
            01 01394    00000000 A
            01 01395    00000000 A
            01 01396    00000000 A
            01 01397    00000000 A
     1633   01 01398    00000000 A   SHORTLP  DATA     0                 SHORT LOOP COUNTER
     1634                                     BOUND    8
     1635   01 0139A    12345678 A   STG123   DATA,8   X'123456789ABCDEF0'    D A T A
                        9ABCDEF0
     1636   01 0139C    23456789 A   STG234   DATA,8   X'23456789ABCDEF01'             P A T T E R N S
                        ABCDEF01
     1637   01 0139E    000000FE A   STGFED   DATA,8   X'FEDCBA9876'                            FOR
                        DCBA9876
     1638   01 013A0    0000000F A   STG0F1   DATA,8   X'0F1E2D3C4B'          D A T A   O U T
                        1E2D3C4B
     1639   01 013A2    00000010 A   STG102   DATA,8   X'1020304050'                            T E S T S
                        20304050
     1640   01 013A4    00607080 A   STG607   DATA,8   X'60708090A0B0C0'
                        90A0B0C0
     1641   01 013A6    00000000 A   SUCSHD   DATA     0                 MESSAGE HEADER INDICATOR
     1642   01 013A7    00000000 A   SUBCHLN  DATA     0                 SUBCHANNEL OPTION 1=>FAM 0-F
     1643   01 013A8    00000000 A   SUCPASS2 DATA     0                 SUCCESS PASS TWO CONTROL
     1644         01 01297           SYNC     EQU      GP03              SYNC GROUP
     1645   01 013A9    00001CA6     TEST     DATA     T0010
     1646   01 013AA    FFFFFCE0 A   TESTCNT  DATA     -800              COUNT FOR ON-LINE & OFF-LINE
     1647   01 013AB    00000000 A   TSLFLAG  DATA     0                 TEST SELECT FLAG-- IND 0 ENTRIES
     1648   01 013AC    00000002 A   TSTIDX1  DATA     2                 INDEX FOR SUCCESS LINE MSG
     1649   01 013AD    00000000 A   TSTNMBER DATA     0                 DISP.ALGO. TEST # STORE
     1650   01 013AE    00000000 A   TSTPRAM1 DATA     0                 SAVE TEST # 1 PARAMETER
     1651   01 013AF    00000000 A   TSTPRAM2 DATA     0                 SAVE TEST # 2 PARAMETER
     1652   01 013B0    F0F1F2F3 A   VALTAB   TEXT     '0123456789'      PARAMETER VALIDATION TABLE
            01 013B1    F4F5F6F7 A
            01 013B2    F8F94040 A
     1653   01 013B3    00000000 A   WDSAVE   DATA     0                 TEMP STR FOR W.D. DATA IN PREPHS17
     1654   01 013B4    00000000 A   WDTIND   DATA     0                 WATCHDOG TIMER TRAP IND.
     1655   01 013B5    00000000 A   WDTTCC04 DATA     0                 WATCHDOG TIMER TRAP TCC 0-4
     1656   01 013B6    0F0013CE     WDTXPSD  XPSD,0   WDTT              WDT XPSD
     1657   01 013B7    4040405C A   %ERRFLAG DATA     X'4040405C'       CODES FOR
     1658   01 013B8    40404040 A   %SPACES  DATA     X'40404040'        FORMATTING COMPARE OUTPUT
     1659                            ***********************************************************************
     1660                            *                                                                     *
     1661                            *                 INTERRUPT-TRAP PSD QUADWORDS                        *
     1662                            *                                                                     *
     1663                            ***********************************************************************
     1664                                     BOUND    8
     1665                            *                                   INSTRUCTION EXCEPTION
     1666   01 013BA    00000000 A   IETT     DATA     0,0               OLD PSD
            01 013BB    00000000 A
     1667   01 013BC    00001925 N            GEN,15,17,4,4,16,4,4       0,IET,0,0,0,0,0   OLD PSD
                        00000000
     1668   01 013BE    00000000 A   IOI      DATA     0,0
            01 013BF    00000000 A
     1669   01 013C0    0000193E N            GEN,15,17,4,4,16,4,4       0,IOINTR,0,2,0,0,0 I/O INHIBIT SET
                        02000000
     1670                            *                                   MEMORY FAULT
     1671   01 013C2    00000000 A   MFII     DATA     0,0               OLD PSD
            01 013C3    00000000 A
     1672   01 013C4    00001967 N            GEN,15,17,4,4,16,4,4       0,MFITR,0,0,0,0,0   NEW PSD
                        00000000
     1673                            *                                   PROCESSOR FAULT
     1674   01 013C6    00000000 A   PFII     DATA     0,0               OLD PSD
            01 013C7    00000000 A
     1675   01 013C8    0000197D N            GEN,15,17,4,4,16,4,4       0,PFITR,0,0,0,0,0   NEW PSD
                        00000000
     1676                            *                                   PARITY TRAP
     1677   01 013CA    00000000 A   PTT      DATA     0,0               OLD PSD
            01 013CB    00000000 A
     1678   01 013CC    00001995 N            GEN,15,17,4,4,16,4,4       0,PT,0,0,0,0,0   OLD PSD
                        00000000
     1679                            *                                   WATCHDOG TIMER TRAP DOUBLE WORDS
     1680   01 013CE    00000000 A   WDTT     DATA     0,0               OLD PSD
            01 013CF    00000000 A
     1681   01 013D0    000019B4 N            GEN,15,17,4,4,16,4,4       0,WDTRAP,0,0,0,0,0  NEW PSD
                        00000000
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   10
A    1683         01 013D2           SIGMA    EQU      %                                                 *G02
     1684   01 013D2    022000F0 A            LCI      15                ATTEMPT TO SET                  *G02
     1685   01 013D3    CD0012D8              TIO,R0   *CTLPTM1           AND RESET CC3                  *G02
     1686   01 013D4    E820000F A            BCR,2    *R15                IF RESET => 9-LIKE MIOP       *G02

     1688   01 013D5    22E013E4              LI,R14   SIGTAB0           DELETE TESTS NOT                *G02
     1689   01 013D6    22D013EE              LI,R13   SIGTAB1            POSSIBLE ON 7-LIKE MIOP        *G02

     1691   01 013D7    B230000E A   SIG00    LW,R3    *R14              FETCH SUBTEST POINTER           *G02
     1692   01 013D8    683013E0              BEZ      SIG01              SKIP IF END OF SUBTESTS        *G02

     1694   01 013D9    32C60000 A            LW,R12   0,R3              FETCH CONTROL WORD              *G02
     1695   01 013DA    4BC013E3              AND,R12  SIGMSK             ISOLATE DISPLACEMENT           *G02
     1696   01 013DB    B0C0000D A            AW,R12   *R13                INSERT NEW DISPLACEMENT       *G02
     1697   01 013DC    35C60000 A            STW,R12  0,R3                 RESTORE CONTROL WORD         *G02

     1699   01 013DD    20D00001 A            AI,R13   1                 POINT TO NEXT SUBTEST           *G02
     1700   01 013DE    20E00001 A            AI,R14   1                                                 *G02
     1701   01 013DF    680013D7              B        SIG00                                             *G02

     1703   01 013E0    331013E2     SIG01    MTW,1    SIGMA7            SET 7-LIKE MIOP FLAG            *G02
     1704   01 013E1    E800000F A            B        *R15                                              *G02

     1706   01 013E2    00000000 A   SIGMA7   DATA     0                 1=>7-LIKE MIOP                  *G02
     1707   01 013E3    FFFFFFC0 A   SIGMSK   DATA     X'FFFFFFC0'       DISPLACEMENT MASK               *G02

     1709   01 013E4    00001F1A     SIGTAB0  DATA     T0590             THESE SUBTESTS ARE              *G02
     1710   01 013E5    00001F49              DATA     T0630              ALTERED TO CAUSE SKIPPING      *G02
     1711   01 013E6    00001FA2              DATA     T0690               OF SUBSEQUENT TESTS           *G02
     1712   01 013E7    00002210              DATA     T1250                (BECAUSE OF 7-LIKE MIOP)     *G02
     1713   01 013E8    0000226B              DATA     T1320                                             *G02
     1714   01 013E9    000026AB              DATA     T6616                                             *G02
     1715   01 013EA    000027AD              DATA     T6860                                             *G02
     1716   01 013EB    00002803              DATA     T6980                                             *G02
     1717   01 013EC    00002C34              DATA     T7654                                             *G02
     1718   01 013ED    00000000 A            DATA     0                                                 *G02

     1720   01 013EE    0000002F A   SIGTAB1  DATA     T0630-T0590       THESE DISPLACEMENTS DEFINE      *G02
     1721   01 013EF    00000032 A            DATA     T0650-T0630        WHICH SUBTESTS WILL BE         *G02
     1722   01 013F0    0000001D A            DATA     T0730-T0690         SKIPPED                       *G02
     1723   01 013F1    00000022 A            DATA     T1280-T1250                                       *G02
     1724   01 013F2    00000026 A            DATA     T1390-T1320                                       *G02
     1725   01 013F3    0000003B A            DATA     T6650-T6616                                       *G02
     1726   01 013F4    00000028 A            DATA     T6920-T6860                                       *G02
     1727   01 013F5    0000001B A            DATA     T7000-T6980                                       *G02
     1728   01 013F6    0000000F A            DATA     T7660-T7654                                       *G02

     1730   01 013F7    330013E2     GENRIO4  MTW,0    SIGMA7            TEST 7-LIKE MIOP                *G02
     1731   01 013F8    683013FC              BEZ      GENRIO40           SKIP TO RIO IF NOT             *G02

     1733   01 013F9    6D000042 A            WD,R0    X'42'             ELSE TOGGLE THE                 *G02
     1734   01 013FA    6D000042 A            WD,R0    X'42'              MUSIC FLIP/FLOP                *G02
     1735   01 013FB    E8000002 A            B        *R2                 AND EXIT                      *G02

     1737   01 013FC    4F084000 A   GENRIO40 RIO,R0   0,R4              ISSUE TRUE RIO                  *G02
     1738   01 013FD    E8000002 A            B        *R2                AND EXIT                       *G02

     1740   01 013FE    330013E2     GENRIO6  MTW,0    SIGMA7            TEST 7-LIKE MIOP                *G02
     1741   01 013FF    68301403              BEZ      GENRIO60           SKIP TO RIO IF NOT             *G02

     1743   01 01400    6D000042 A            WD,R0    X'42'             ELSE TOGGLE THE                 *G02
     1744   01 01401    6D000042 A            WD,R0    X'42'              MUSIC FLIP/FLOP                *G02
     1745   01 01402    E800000F A            B        *R15                AND EXIT                      *G02

     1747   01 01403    4F0C4000 A   GENRIO60 RIO,R0   0,R6              ISSUE TRUE RIO                  *G02
     1748   01 01404    E800000F A            B        *R15               AND EXIT                       *G02

     1750   01 01405    330013E2     SIGBIT16 MTW,0    SIGMA7            EXIT IF SIGMA 9-LIKE            *G02
     1751   01 01406    E830000F A            BEZ      *R15                                              *G02

     1753   01 01407    4B0034E6              AND,R0   =X'FFFF'          ELSE RESTRICT DA(CDW)           *G02
     1754   01 01408    E800000F A            B        *R15               TO 16 BITS                     *G02

     1756   01 01409    330013E2     SIGC20   MTW,0    SIGMA7            EXIT IF SIGMA 9-LIKE            *G02
     1757   01 0140A    E830000F A            BEZ      *R15                                              *G02

     1759   01 0140B    4B8034EE              AND,R8   =X'FFE0FFFF'      ELSE RESTRICT COMPARE           *G02
     1760   01 0140C    E800000F A            B        *R15               MASK TO SIGMA 7 FORMAT         *G02

     1762   01 0140D    330013E2     SIGBIT20 MTW,0    SIGMA7            EXIT IF SIGMA 9-LIKE            *G02
     1763   01 0140E    E830000F A            BEZ      *R15                                              *G02

     1765   01 0140F    4B8034EF              AND,R8   =X'FFFFF'         ELSE RESTRICT COMPARE           *G02
     1766   01 01410    E800000F A            B        *R15               MASK TO SIGMA 7 FORMAT         *G02
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   11
A    1768                            ************************************************************************
     1769                            *                                                                      *
     1770                            *                           DRIVER/EXECUTIVE                           *
     1771                            *  THIS SECTION OF CODING PERFORMS THE VARIOUS CONTROL FUNCTIONS       *
     1772                            *  FOR EXECUTING THE VARIOUS TEST MODULES.  THIS SECTION PROVIDES      *
     1773                            *  LINKAGES TO THE GUIDE PROGRAM, AND IT INTERFACES TO THE SINGLE-     *
     1774                            *  PHASE COMPARE ROUTINES.                                             *
     1775                            *                                                                      *
     1776                            ************************************************************************
     1777                            *
     1778                            *
     1779                            *                 THIS ROUTINE PROCESSES ANY DETECTED FAULTS.
     1780         01 01411           BAD      EQU      %
     1781   01 01411    15A01374              STD,R10  SAVR10            SAVE R10
     1782   01 01412    6AF01B4F              BAL,R15  MODECTRL
     1783   01 01413    6AF01B80              BAL,R15  PCPCTRL           CHECK FOR PCP MODE & FOR TTY INPUT
     1784   01 01414    70200392              LC       #SENSE            TEST FOR SHORT LOOP-- SS1
     1785   01 01415    69801473              BCS,8    BG04              YES
     1786   01 01416    70200392              LC       #SENSE            TEST FOR PRINT OPTION
     1787   01 01417    68101427              BCR,1    BD20              YES
     1788         01 01418           BD10     EQU      %
     1789   01 01418    6AF01B80              BAL,R15  PCPCTRL           CHECK FOR TELETYPE INPUT
     1790   01 01419    70200392              LC       #SENSE
     1791   01 0141A    69201424              BCS,2    BD15              HALT AFTER ERROR
     1792   01 0141B    32001330              LW,R0    NEXTEST           LOCATION OF FAILING TEST MODULE
     1793   01 0141C    D2101330              LH,R1    *NEXTEST          TEST MODULE NUMBER
     1794   01 0141D    4B1034E6              AND,R1   =X'FFFF'          PURGE ANY CARRIES
     1795   01 0141E    22601424              LI,R6    BD15
     1796   01 0141F    33001337              MTW,0    PCPMODE
     1797   01 01420    69301423              BCS,3    %+3
     1798   01 01421    8F0003CA              XPSD,0   *#RUNADDR%        TO IDLE CONDITION
     1799   01 01422    68001424              B        BD15              GUIDE RETURN
     1800   01 01423    2E000000 A            WAIT
     1801                            *
     1802                            *                                   C(R0)= LOCATION OF FAILING TEST MOD.
     1803                            *                                   C(R1)= TEST MODULE NUMBER
     1804                            *                                   C(R8)= EXPECTED DATA, IF APPLICABLE
     1805                            *                                   C(R9)= ACTUAL DATA, IF APPLICABLE
     1806   01 01424    70200392     BD15     LC       #SENSE
     1807   01 01425    69C014F5              BCS,12   GO03              LONG LOOP OR SHORT LOOP
     1808   01 01426    680014EF              B        GO02
     1809   01 01427    6AF019D5     BD20     BAL,R15  ACTDVC            FIRST ASSURE THERE IS AN ACTIVE
     1810   01 01428    68001418              B        BD10              PRINT DEVICE
     1811   01 01429    6AF01ACF              BAL,R15  ERRORHDR          PRINT ERROR HEADER
     1812   01 0142A    330012ED              MTW,0    FAMBAD            CHECK FOR SPECIAL MESSAGE OPTION
     1813   01 0142B    68301438              BCR,3    BD24              NO
     1814   01 0142C    EA6003C3              #HTECON  FAMADR            YES-- CONVERT TEST ADR OF FAM
            01 0142D    000012EA
     1815   01 0142E    22100001 A            LI,R1    1
     1816   01 0142F    D2C00006 A            LH,R12   *LINK             STORE ADDRESSES IN APPROPRIATE
     1817   01 01430    55C233C0              STH,R12  FAMADRMG+7,X1      MESSAGE
     1818   01 01431    B2C00006 A            LW,R12   *LINK
     1819   01 01432    75C033C5              STB,R12  FAMADRMG+12
     1820   01 01433    22100003 A            LI,R1    3
     1821   01 01434    25C00078 A            SLS,R12  -8
     1822   01 01435    75C233C4              STB,R12  FAMADRMG+11,X1
     1823   01 01436    EA6003CD              #PRINT   FAMADRMG          PRINT SPECIAL MESSAGE
            01 01437    C000CEE4 A
     1824   01 01438    330012E4     BD24     MTW,0    DATAPNT           DATA PRINT OPTION
     1825   01 01439    68301460              BCR,3    BD30
     1826   01 0143A    EA6003C3              #HTECON  R8                CONVERT EXPECTED DATA
            01 0143B    00000008 A
     1827   01 0143C    B2A00006 A            LW,R10   *LINK
     1828   01 0143D    35A033A2              STW,R10  ERDATAMG+5        TO DATA PRINT FIELD
     1829   01 0143E    22100001 A            LI,R1    1
     1830   01 0143F    B2A20006 A            LW,R10   *LINK,X1
     1831   01 01440    35A033A3              STW,R10  ERDATAMG+6        TO PRINT FIELD
     1832   01 01441    EA6003C3              #HTECON  R9                CONVERT BAD DATA
            01 01442    00000009 A
     1833   01 01443    B2A00006 A            LW,R10   *LINK
     1834   01 01444    35A033AB              STW,R10  ERDATAMG+14        TO PRINT FIELD
     1835   01 01445    B2A20006 A            LW,R10   *LINK,X1
     1836   01 01446    35A033AC              STW,R10  ERDATAMG+15        TO PRINT FIELD
     1837   01 01447    33001346              MTW,0    PNTDBL            IS DOUBLE REGISTER PRINT REQUEST
     1838   01 01448    68301459              BCR,3    BD28               ED
     1839   01 01449    12A01374              LD,R10   SAVR10            RESTORE R10. C(R10) =  EXPECTED
     1840   01 0144A    EA6003C3              #HTECON  R10               CONVERT TO PRINT CODE
            01 0144B    0000000A A
     1841   01 0144C    B2C00006 A            LW,R12   *LINK             FIRST HALF
     1842   01 0144D    35C033A4              STW,R12  ERDATAMG+7        STORE IN EXTENDED PRINT FIELD
     1843   01 0144E    B2C20006 A            LW,R12   *LINK,X1          SECOND HALF
     1844   01 0144F    35C033A5              STW,R12  ERDATAMG+8        STORE IN EXTENDED PRINT FIELD
     1845   01 01450    EA6003C3              #HTECON  R11               CONVERT ACTUAL TO PRINT CODE
            01 01451    0000000B A
     1846   01 01452    B2C00006 A            LW,R12   *LINK             FIRST HALF
     1847   01 01453    35C033AD              STW,R12  ERDATAMG+16       STORE IN EXTENDED PRINT FIELD
     1848   01 01454    B2C20006 A            LW,R12   *LINK,X1          SECOND HALF
     1849   01 01455    35C033AE              STW,R12  ERDATAMG+17       STORE IN EXTENDED PRINT FIELD
     1850   01 01456    22C00023 A            LI,R12   35
     1851   01 01457    75C0339D              STB,R12  ERDATAMG
     1852   01 01458    75C033A6              STB,R12  ERDTAMG2
     1853   01 01459    EA6003CD     BD28     #PRINT   ERDATAMG
            01 0145A    C000CE74 A
     1854   01 0145B    EA6003CD              #PRINT   ERDTAMG2
            01 0145C    C000CE98 A
     1855   01 0145D    22C0001B A            LI,R12   27                RESTORE MESSAGE BYTE COUNT
     1856   01 0145E    75C0339D              STB,R12  ERDATAMG
     1857   01 0145F    75C033A6              STB,R12  ERDTAMG2
     1858   01 01460    3300133C     BD30     MTW,0    PHASMODE          DID USER SELECT SINGLE PHASE?
     1859   01 01461    68301418              BCR,3    BD10              BRANCH IF NOT
     1860   01 01462    33001345     BD40     MTW,0    PHASTEST          PHASE TEST
     1861   01 01463    68201418              BCR,2    BD10              NO
     1862   01 01464    22C00001 A            LI,R12   1
     1863   01 01465    35C0133B              STW,R12  PHASFLAG          SET SINGLE PHASING  INDICATOR
     1864   01 01466    33001331              MTW,0    NOTMTL            IF MTL FLAG IS SET, SET SINGLE
     1865   01 01467    6930146A              BCS,3    BD50               PHASE COMPARE FLAG
     1866   01 01468    35C012D2              STW,R12  COMPFLAG
     1867   01 01469    35C0134A              STW,R12  PUTOUT            ACTIVATE DISPLAY OUTPUT
     1868   01 0146A    32B012EC     BD50     LW,R11   ENDTEST           MAY EXECUTE TEST IN SINGLE PHASE
     1869   01 0146B    31B01330              CW,R11   NEXTEST
     1870   01 0146C    691014F9              BCS,1    GO032              YES
     1871                            *
     1872                            *                 THIS ROUTINE FORCES AN APPROPRIATE RESET CONDITION AND
     1873                            *                  THEN DIRECTS CONTROL TO A SELECTED TEST MODULE.
     1874         01 0146D           BEGINTST EQU      %
     1875   01 0146D    22D40400 A            LI,R13   RESET             CONTROL BITS 13 & 21 (RESET,RELEASE)
     1876   01 0146E    32E012CC              LW,R14   CM                CLOCK MARGIN CONTROL
     1877   01 0146F    22801C00 A            LI,R8    X'1C00'           DISARM COUNTER 4, PFI, & MFI
     1878   01 01470    6D801100 A            WD,R8    DISARM
     1879   01 01471    22800C00 A            LI,R8    X'C00'            ARM PFI & MFI
     1880   01 01472    6D801300 A            WD,R8    ARM
     1881   01 01473    22100001 A   BG04     LI,R1    1
     1882   01 01474    330012E8              MTW,0    DIOPRET           PRE-TEST
     1883   01 01475    6920147D              BCS,2    BG12              YES-- NO MI RESETS
     1884   01 01476    EDD01294              WD,R13   *GP00             CCU RESET
     1885   01 01477    EDE01294              WD,R14   *GP00             CLOCK MARGINS
     1886   01 01478    EDD01298              WD,R13   *GP08             CHANNEL RESET & RELEASE
     1887   01 01479    EDD0129C              WD,R13   *GP12              MS SNAP RELEASE
     1888   01 0147A    6AF01C72              BAL,R15  SUPRESET
     1889   01 0147B    6AF01B39              BAL,R15  ONLINECK          ASSURE MS ON-LINE
     1890   01 0147C    E8021330              B        *NEXTEST,X1       TO NEXT TEST MODULE
     1891   01 0147D    ED001297     BG12     WD,0     *SYNC
     1892   01 0147E    E8021330              B        *NEXTEST,X1       TO NEXT TEST MODULE
     1893         01 0147F           CTLWD    EQU      %                PROCESS CONTROL FIELD
     1894                            *                                   BIT      FUNCTION
     1895                            *                                    16  SKIP ON COMPARE IF 7-LIKE MIOP
     1896                            *                                    17  DIO/MI PRE-TESTS
     1897                            *                                    18  FAM, 7-15
     1898                            *                                    19  FAM, 16-23
     1899                            *                                    20  MEMORY TO MEMORY MOVE
     1900                            *                                    21  BURST MODE
     1901                            *                                    22  FOUR BYTE
     1902                            *                                    23  DATA PRINT
     1903                            *                                    24  CHANNEL 'B'
     1904                            *                                    25  CHANNEL 'A'
     1905   01 0147F    B2C01330              LW,R12   *NEXTEST          CONTROL WORD
     1906   01 01480    21C08000 A            CI,R12   X'8000'           LOOK FOR BIT 16                 *G02
     1907   01 01481    68401486              BAZ      CTL03              AND SKIP IF ABSENT             *G02

     1909   01 01482    330013E2              MTW,0    SIGMA7            LOOK FOR SIGMA 7-LIKE MIOP      *G02
     1910   01 01483    68301486              BEZ      CTL03              AND SKIP IF ABSENT             *G02

     1912   01 01484    330012D1              MTW,0    COMPASS           LOOK FOR COMPARISON PASS        *G02
     1913   01 01485    693014D2              BNEZ     CTL90              AND SKIP IF ACTIVE             *G02

     1915         01 01486           CTL03    EQU      %                                                 *G02
     1916   01 01486    25C00011 A            SLS,R12  17
     1917   01 01487    25C00001 A            SLS,R12  1                 IS DIO/MI PRE-TEST INVOKED
     1918   01 01488    6880148A              BCR,8    %+2               NO
     1919   01 01489    331012E8              MTW,1    DIOPRET           YES, SET PRE-TEST SWITCH
     1920   01 0148A    25C00001 A            SLS,R12  1                 BIT 18, FAM 8-15  OPTION
     1921   01 0148B    68801490              BCR,8    CTL04             NO
     1922   01 0148C    22A00001 A            LI,R10   1                 YES
     1923   01 0148D    31A013A7              CW,R10   SUBCHLN           TEST SPECIFIED PARAMETER OPTION
     1924   01 0148E    692014D2              BCS,2    CTL90             SKIP TEST
     1925   01 0148F    35A012EE              STW,R10  FAM2OPT
     1926   01 01490    25C00001 A   CTL04    SLS,R12  1                 BIT 19, FAM 16-23 OPTION
     1927   01 01491    6880149A              BCR,8    CTL08             NO
     1928   01 01492    22A00002 A            LI,R10   2                 YES
     1929   01 01493    31A013A7              CW,R10   SUBCHLN           TEST OPTION
     1930   01 01494    692014D2              BCS,2    CTL90             SKIP TEST
     1931   01 01495    330012C8              MTW,0    CHBCTRL           TEST FOR CHANNEL B BEING
     1932   01 01496    693014D2              BCS,3    CTL90              INVOKED
     1933   01 01497    35A012EF              STW,R10  FAM3OPT
     1934   01 01498    22000000 A            LI,R0    0
     1935   01 01499    350012EE              STW,R0   FAM2OPT
     1936   01 0149A    25C00001 A   CTL08    SLS,R12  1                 BIT 20-- M TO M MOVE OPTION
     1937   01 0149B    6880149F              BCR,8    CTL12             NO
     1938   01 0149C    330012C8              MTW,0    CHBCTRL           NOT AVAILABLE IN CHANNEL 'B'
     1939   01 0149D    693014D2              BCS,3    CTL90
     1940   01 0149E    33101325              MTW,1    MOVEOPT
     1941   01 0149F    25C00001 A   CTL12    SLS,R12  1                 BIT 21, BURST MODE
     1942   01 014A0    688014A2              BCR,8    %+2               NO
     1943   01 014A1    331012C3              MTW,1    BURSTM            YES, SET BURST INDICATOR
     1944   01 014A2    25C00001 A            SLS,R12  1                 BIT 22, FOUR BYTE OPTION
     1945   01 014A3    688014A5              BCR,8    %+2               NO
     1946   01 014A4    331012FD              MTW,1    FOURBYTE          YES, SET FOUR BYTE OPTION
     1947   01 014A5    25C00001 A            SLS,R12  1                 BIT 23, DATA PRINT MODE
     1948   01 014A6    688014A8              BCR,8    %+2               NO
     1949   01 014A7    331012E4              MTW,1    DATAPNT           YES, SET DATA PRINT INDICATOR
     1950   01 014A8    6AF01C21              BAL,R15  PURGEBUF          ALSO PURGE BUFFER
     1951   01 014A9    25C00001 A            SLS,R12  1                 BIT 24, CHANNEL 'B' TEST
     1952   01 014AA    688014AC              BCR,8    %+2               NO
     1953   01 014AB    331012CB              MTW,1    CHLBTEST          YES, SET CHANNEL 'B' INDICATOR
     1954   01 014AC    25C00001 A            SLS,R12  1                 BIT 25, CHANNEL 'A' TEST
     1955   01 014AD    688014AF              BCR,8    %+2               NO
     1956   01 014AE    331012CA              MTW,1    CHLATEST          YES, SET CHANNEL 'A' INDICATOR
     1957   01 014AF    330012C8              MTW,0    CHBCTRL           TEST FOR CHANNEL 'B' PASS
     1958   01 014B0    683014BE              BCR,3    CTL20             NO, CHANNEL A PASS
     1959   01 014B1    32A012CB              LW,R10   CHLBTEST          CHANNEL 'B' TEST
     1960   01 014B2    683014CF              BCR,3    CTL40             NO, SKIP OUT
     1961   01 014B3    32A012C7              LW,R10   CHANNELB
     1962   01 014B4    683014D2              BCR,3    CTL90
     1963   01 014B5    32A012FD              LW,R10   FOURBYTE          FOUR BYTE TEST
     1964   01 014B6    683014B9              BCR,3    %+3               NO
     1965   01 014B7    32A012FC              LW,R10   FOURBYTB          YES, CHECK OPTION
     1966   01 014B8    683014D2              BCR,3    CTL90             DON'T EXECUTE THIS TEST
     1967   01 014B9    32A012C3              LW,R10   BURSTM            BURST MODE TEST
     1968   01 014BA    683014BD              BCR,3    %+3               NO
     1969   01 014BB    32A012C2              LW,R10   BURSTCHB          YES, CHECK OPTION
     1970   01 014BC    683014D2              BCR,3    CTL90             DON'T EXECUTE THIS TEST
     1971   01 014BD    6800146D              B        BEGINTST
     1972   01 014BE    32A012CA     CTL20    LW,R10   CHLATEST          CHANNEL 'A' TEST
     1973   01 014BF    683014CF              BCR,3    CTL40             NO, SKIP OUT
     1974   01 014C0    32A012C6              LW,R10   CHANNELA
     1975   01 014C1    683014D2              BCR,3    CTL90
     1976   01 014C2    32A012FD              LW,R10   FOURBYTE          FOUR BYTE TEST
     1977   01 014C3    683014C6              BCR,3    %+3               NO
     1978   01 014C4    32A012FB              LW,R10   FOURBYTA          YES, CHECK OPTION
     1979   01 014C5    683014D2              BCR,3    CTL90
     1980   01 014C6    32A012C3              LW,R10   BURSTM            BURST MODE TEST
     1981   01 014C7    683014CA              BCR,3    %+3               NO
     1982   01 014C8    32A012C1              LW,R10   BURSTCHA          YES, CHECK OPTION
     1983   01 014C9    683014D2              BCR,3    CTL90             SKIP
     1984   01 014CA    32A01325              LW,R10   MOVEOPT
     1985   01 014CB    683014CE              BCR,3    %+3
     1986   01 014CC    32A01326              LW,R10   MOVEOPTA
     1987   01 014CD    683014D2              BCR,3    CTL90
     1988   01 014CE    6800146D              B        BEGINTST
     1989         01 014CF           CTL40    EQU      %                 CHECK FOR CCU TEST
     1990   01 014CF    32A012CA              LW,R10   CHLATEST
     1991   01 014D0    49A012CB              OR,R10   CHLBTEST
     1992   01 014D1    6830146D              BCR,3    BEGINTST          YES
     1993                            *
     1994         01 014D2           CTL90    EQU      %                 SKIP CURRENT TEST
     1995   01 014D2    22F014EF              LI,R15   GO02              CHECK FOR INPUT
     1996   01 014D3    68001B80              B        PCPCTRL
     1997                            *
     1998                            *
     1999                            *                 THIS ROUTINE PROCESSES A NORMAL RETURN FROM A TEST MODULE.
     2000         01 014D4           GOOD     EQU      %                NORMAL RETURN
     2001         01 014D4           RETURN   EQU      %
     2002   01 014D4    6AF01B4F              BAL,R15  MODECTRL
     2003   01 014D5    6AF01B80              BAL,R15  PCPCTRL           CHECK FOR PCP MODE & FOR TTY INPUT
     2004   01 014D6    70200392              LC       #SENSE            SHORT LOOP
     2005   01 014D7    69801473              BCS,8    BG04              YES
     2006   01 014D8    22C00C00 A            LI,R12   X'C00'            ENABLE PFI & MFI
     2007   01 014D9    6DC01600 A            WD,R12   ENABLE
     2008   01 014DA    02200000 A            LCI      0                 NOP
     2009   01 014DB    22C01C00 A            LI,R12   X'1C00'           DISARM COUNTER 4, PFI, & MFI
     2010   01 014DC    6DC01100 A            WD,R12   DISARM
     2011   01 014DD    330012D1              MTW,0    COMPASS           IS THIS COMPARE FOR ERROR DETECTION?
     2012   01 014DE    683014EA              BCR,3    GO01              BRANCH IF NOT
     2013   01 014DF    33001324              MTW,0    MISCOMP           DID A MISCOMPARE OCCUR?
     2014   01 014E0    683014EA              BCR,3    GO01              BRANCH IF NOT
     2015   01 014E1    330012C4              MTW,0    CBGEN             IS THIS COOKBOOK GENERATION?
     2016   01 014E2    683014E5              BCR,3    %+3               BRANCH IF NOT
     2017   01 014E3    2E000000 A            WAIT
     2018   01 014E4    680014EA              B        GO01              STEP TO IGNORE MISCOMPARE
     2019   01 014E5    22000000 A            LI,R0    0
     2020   01 014E6    35001319              STW,R0   LINECNT           RESET LINE COUNTER FOR COMPARE
     2021   01 014E7    3310134A              MTW,1    PUTOUT            ENABLE DISPLAY OUTPUT
     2022   01 014E8    6AF01ACF              BAL,R15  ERRORHDR
     2023   01 014E9    6800189E              B        STRTCOMP          OUTPUT MISCOMPARING DISPLAY
     2024   01 014EA    70200392     GO01     LC       #SENSE
     2025   01 014EB    691014EE              BCS,1    %+3               SUPPRESS PRINT
     2026   01 014EC    6AF01BCB              BAL,R15  PRNTSTNO          PRINT MODE
     2027   01 014ED    70200392              LC       #SENSE            SENSE SWITCHES
     2028   01 014EE    6940146D              BCS,4    BEGINTST          LONG LOOP
     2029         01 014EF           GO02     EQU      %
     2030   01 014EF    B2C01330              LW,R12   *NEXTEST          NO. OF INSTRUCTIONS IN CURRENT
     2031   01 014F0    4BC034E7              AND,R12  =X'3F'             TEST MODULE.  COUNT FIELD ONLY
     2032   01 014F1    66C01330              AWM,R12  NEXTEST           UPDATE ADDRESS
     2033   01 014F2    D2C01330              LH,R12   *NEXTEST          STORE CURRENT TEST NUMBER
     2034   01 014F3    4BC034E6              AND,R12  =X'FFFF'          MASK
     2035   01 014F4    35C003F2              STW,R12  DCA+2
     2036   01 014F5    6AF01BB4     GO03     BAL,R15  PRGCTL            PURGE WORD CONTROL
     2037   01 014F6    32B012EC              LW,R11   ENDTEST           HAS ADDRESS REACHED MAX
     2038   01 014F7    31B01330              CW,R11   NEXTEST
     2039   01 014F8    6810147F              BCR,1    CTLWD             NO
     2040   01 014F9    330012C4     GO032    MTW,0    CBGEN             IS COOKTAPE BEING GENERATED?
     2041   01 014FA    6930150F              BCS,3    GO040             YES
     2042   01 014FB    22C00000 A            LI,R12   0
     2043   01 014FC    32A012C6              LW,R10   CHANNELA          TEST FOR SINGLE CHANNEL OPERATIO
     2044   01 014FD    4BA012C7              AND,R10  CHANNELB
     2045   01 014FE    68301506              BCR,3    GO034             YES
     2046   01 014FF    330012C8              MTW,0    CHBCTRL           REVERSE CHANNEL CONTROL
     2047   01 01500    69301509              BCS,3    GO036             YES
     2048   01 01501    22C00008 A            LI,R12   8
     2049   01 01502    35C012C8              STW,R12  CHBCTRL
     2050   01 01503    6A601B5F              BAL,R6   PUTDVCON          ASSURE DEVICE ON-LINE
     2051   01 01504    6AF01AF5              BAL,R15  GPCTRL            UPDATE GROUP ADDRESSES
     2052   01 01505    68001551              B        GO08              SECOND TIME
     2053   01 01506    330012C6     GO034    MTW,0    CHANNELA          CHANNEL A
     2054   01 01507    69301509              BCS,3    GO036
     2055   01 01508    22C00008 A            LI,R12   8
     2056   01 01509    35C012C8     GO036    STW,R12  CHBCTRL
     2057   01 0150A    6A601B5F              BAL,R6   PUTDVCON          MAY WANT OLD CHANNEL ON
     2058   01 0150B    6AF01AF5              BAL,R15  GPCTRL
     2059   01 0150C    330012D1              MTW,0    COMPASS           HAS COMPARE PASS BEEN EXECUTED?
     2060   01 0150D    69301528              BCS,3    GO048             IF SO, TYPE PASS COMPLETED
     2061   01 0150E    6800151B              B        GO045             NO
     2062   01 0150F    32601310     GO040    LW,R6    IOPA              RESET TO FORCE DEVICES ON-LINE
     2063   01 01510    6AF013FE              BAL,R15  GENRIO6           ISSUE GENERAL RESET             *G02
     2064   01 01511    6AF01ACC              BAL,R15  DLY10MS           10 MSEC FOR DEVICE CONTROLLER
     2065   01 01512    22000000 A            LI,R0    0                 INDICATE DEVICES ON-LINE
     2066   01 01513    350012E6              STW,R0   DCOFFA
     2067   01 01514    330012D1              MTW,0    COMPASS
     2068   01 01515    69301528              BCS,3    GO048
     2069   01 01516    22000944              LI,R0    DA(TAPEND)        EOF IF IN GENERATE MODE
     2070   01 01517    6AF01900              BAL,R15  RECOUT
     2071   01 01518    22A0151B              LI,R10   GO045
     2072   01 01519    B5A01306              STW,R10  *IMTLT0
     2073   01 0151A    E8001308              B        *IMTLT2           RETURN CONTROL TO M.T.L.



     2075   01 0151B    3300133C     GO045    MTW,0    PHASMODE          HAS USER SELECTED TO RUN S.PHS?
     2076   01 0151C    68301528              BCR,3    GO048             BRANCH IF NOT
     2077   01 0151D    330012D1              MTW,0    COMPASS
     2078   01 0151E    69201528              BCS,2    GO048
     2079   01 0151F    33001331              MTW,0    NOTMTL
     2080   01 01520    69301528              BCS,3    GO048
     2081   01 01521    3310133B              MTW,1    PHASFLAG
     2082   01 01522    331012D2              MTW,1    COMPFLAG
     2083   01 01523    331012D1              MTW,1    COMPASS
     2084   01 01524    330012C4              MTW,0    CBGEN             IS THIS COOKBOOK GENERATION?
     2085   01 01525    68301551              BCR,3    GO08              BRANCH IF NOT
     2086   01 01526    331012FF              MTW,1    GENADR
     2087   01 01527    68001551              B        GO08
     2088   01 01528    22000000 A   GO048    LI,R0    0
     2089   01 01529    3500133B              STW,R0   PHASFLAG
     2090   01 0152A    350012D2              STW,R0   COMPFLAG
     2091   01 0152B    350012D1              STW,R0   COMPASS
     2092   01 0152C    330012C4              MTW,0    CBGEN
     2093   01 0152D    68301531              BCR,3    %+4               NOT CBGEN
     2094   01 0152E    22000945              LI,R0    DA(FILEFWD)
     2095   01 0152F    6AF01900              BAL,R15  RECOUT            SPACE FILE FORWARD
     2096   01 01530    E8001308              B        *IMTLT2           CONTROL TO M.T.L.
     2097   01 01531    33001335              MTW,0    PASS1             IS THIS THE FIRST PASS?
     2098   01 01532    69301539              BCS,3    GO05              NO
     2099   01 01533    6AF01BFF              BAL,R15  PTNOFLSH          FLUSH TEST-NUMBER BUFFER
     2100   01 01534    EA6003CC              #TYPE    PASS1MG           YES-- PRINT PASS 1 MESSAGE
            01 01535    0000D134 A
     2101   01 01536    33101335              MTW,1    PASS1             SET PASS ONE INHIBIT
     2102   01 01537    33101336              MTW,1    PASSCNT           PASS COUNT
     2103   01 01538    68001551              B        GO08
     2104   01 01539    33101336     GO05     MTW,1    PASSCNT           STEP PASS COUNT
     2105   01 0153A    32A012CE              LW,R10   CMPCNT             AND CHECK FOR THRESHOLD
     2106   01 0153B    31A01336              CW,R10   PASSCNT             (ADJUSTED EACH TIME IT
     2107   01 0153C    6920154C              BG       GO07                 IS CROSSED)
     2108   01 0153D    68301541              BE       GO06               NOW AT THRESHOLD, DISPLAY
     2109   01 0153E    30A012CF              AW,R10   CMPCNT0           INCREMENT TO NEXT THRESHOLD     *G01
     2110   01 0153F    35A012CE              STW,R10  CMPCNT            SAVE CURRENT LIMIT
     2111   01 01540    6800154C              B        GO07               AND CONTINUE
     2112   01 01541    EA6003C3     GO06     #HTECON  PASSCNT           CONVERT PASS COUNT
            01 01542    00001336
     2113   01 01543    22100000 A            LI,R1    0
     2114   01 01544    F2A20006 A            LB,R10   *LINK,X1          GET CONVERTED CHARACTER
     2115   01 01545    20100001 A            AI,R1    1
     2116   01 01546    75A23448              STB,R10  PASSMG,X1         STORE IN PRINT MESSAGE
     2117   01 01547    21100008 A            CI,R1    8
     2118   01 01548    69101544              BCS,1    %-4
     2119   01 01549    6AF01BFF              BAL,R15  PTNOFLSH          FLUSH TEST-NUMBER BUFFER
     2120   01 0154A    EA6003CC              #TYPE    PASSMG            TYPE PASS COUNT
            01 0154B    0000D120 A
     2121   01 0154C    32A01336     GO07     LW,R10   PASSCNT           HAS COUNT REACHED MAX
     2122   01 0154D    31A034F0              CW,R10   =X'7FFFFFFE'
     2123   01 0154E    69101551              BCS,1    GO08              NO
     2124   01 0154F    22A00000 A            LI,R10   0                 YES-- RESET
     2125   01 01550    35A01336              STW,R10  PASSCNT
     2126   01 01551    32C013A9     GO08     LW,R12   TEST              FIRST TEST ADDRESS
     2127   01 01552    35C01330              STW,R12  NEXTEST
     2128   01 01553    6AF01BFF              BAL,R15  PTNOFLSH          FLUSH TEST-NUMBER BUFFER
     2129   01 01554    6800147F              B        CTLWD
     2130                            *
     2131                            *                 INITIALIZER SEQUENCE                                  *
     2132                            *        THIS ROUTINE IS USED TO PROCESS THE INITIAL TEST MODE.
     2133         01 01555           INIT04   EQU      %                PROCESS INITIAL MODE
     2134   01 01555    330012F7              MTW,0    FIRSTIME          DON'T INITIALIZE GUIDE IF
     2135   01 01556    6920155F              BGZ      INIT045            PROCESSING ABSOLUTE RECOVERY   *G02
     2136   01 01557    E8001300              B        *GUIDLINK         BACK TO GUIDE TO PRE-INITIALIZE

     2138         01 01558           INITIAL  EQU      %                 RETURN FROM GUIDE
     2139   01 01558    35601300              STW,LINK  GUIDLINK
     2140   01 01559    33000394              MTW,0    #LOADFLAG         TEST LOAD FLAG
     2141   01 0155A    6910155E              BLZ      INIT042           THE 'NO' STATE, NORMAL RECOVERY *G02

     2143   01 0155B    330012F7              MTW,0    FIRSTIME          THE 'YES' STATE OR INITIAL LOAD
     2144   01 0155C    6820155F              BLEZ     INIT045                                           *G02
     2145   01 0155D    68001024              B        INTL08            BACK TO THE FIRST INITIAL SEQ

     2147   01 0155E    6AF01B21     INIT042  BAL,R15  INITRS            RE-INITIALIZE INTR-TRAP CELLS
     2148         01 0155F           INIT045  EQU      %
     2149         01 0155F           INIT05   EQU      %
     2150   01 0155F    32C00397              LW,R12   #PRTADDR          HAS MSG DEV ADR BEEN UPDATED
     2151   01 01560    31C0131C              CW,R12   LPDVC              BY GUIDE INITIALIZER
     2152   01 01561    6830156A              BCR,3    INIT052           NO
     2153   01 01562    35C0131C              STW,R12  LPDVC             YES-- UPDATE DEVICE ADDRESSES
     2154   01 01563    EA6003C3              #HTECON  #PRTADDR          CONVERT TO PRINT CODE
            01 01564    00000397
     2155   01 01565    22100001 A            LI,R1    1
     2156   01 01566    B2A20006 A            LW,R10   *R6,X1
     2157   01 01567    55A03325              STH,R10  PLINE#J+1
     2158   01 01568    25A00270 A            SCS,R10  -16
     2159   01 01569    55A23324              STH,R10  PLINE#J,X1

     2161   01 0156A    6AF01A24     INIT052  BAL,R15  CKDVCON           CHECK FOR COM CHANNEL CONFLICT
     2162   01 0156B    6AF019D5              BAL,R15  ACTDVC            IS OUTPUT DEVICE AVAILABLE
     2163   01 0156C    6800156C              B        %                 NO OUTPUT DEVICE

     2165   01 0156D    22C00000 A            LI,R12   0                 ACTIVATE SUCCESS PRINT
     2166   01 0156E    35C01335              STW,R12  PASS1             INITIALIZE FIRST PASS AGAIN
     2167   01 0156F    35C012E9              STW,R12  ENDSUC

     2169   01 01570    022000F0 A            LCI      15                FORCE IDLE MODE                 *G02
     2170   01 01571    EA601300              BAL,LINK *GUIDLINK
     2171   01 01572    00003472              DATA     STADDR

     2173   01 01573    330012F7     INIT054  MTW,0    FIRSTIME
     2174   01 01574    69201584              BGZ      INIT055                                           *G02
     2175   01 01575    331012F7              MTW,1    FIRSTIME

     2177   01 01576    6AF01B21              BAL,R15  INITRS            INITIALIZE TRAP/INTERRUPT CELLS
     2178   01 01577    32400395              LW,R4    #MTLFLAG
     2179   01 01578    68301586              BCR,3    INIT90            SKIP IF ZERO
     2180   01 01579    20400004 A            AI,R4    4
     2181   01 0157A    B2500004 A            LW,R5    *4
     2182   01 0157B    355012FF              STW,R5   GENADR
     2183   01 0157C    32100395              LW,R1    #MTLFLAG
     2184   01 0157D    35101306              STW,R1   IMTLT0
     2185   01 0157E    20100001 A            AI,R1    1
     2186   01 0157F    35101307              STW,R1   IMTLT1
     2187   01 01580    20100001 A            AI,R1    1
     2188   01 01581    35101308              STW,R1   IMTLT2
     2189   01 01582    20100001 A            AI,R1    1
     2190   01 01583    35101309              STW,R1   IMTLT3

     2192         01 01584           INIT055  EQU      %
     2193   01 01584    330012C4              MTW,0    CBGEN             IS THIS COOKBOOK GENERATION
     2194   01 01585    693010CD              BNEZ     GENCOKBK          IF SO, GO TO GENERATE ROUTINE   *G02

     2196         01 01586           INIT90   EQU      %
     2197   01 01586    68001551              B        GO08              GO TO NEXT TEST MODE
     2198                            ***********************************************************************
     2199                            *                                                                     *
     2200                            *        SINGLE PHASE AND COMPARE ROUTINES                            *
     2201                            *                                                                     *
     2202                            ***********************************************************************
     2203   01 01587    22401800 A   PHASTEP  LI,4     X'1800'           SET SINGLE PHASE CLOCK BIT
     2204   01 01588    ED401298              WD,4     *GP08             GIVE MPXC PHASE CLK TO CH.A
     2205   01 01589    32701333     PHASTEPX LW,7     OUTDEX            FETCH OUTDEX STORE INDEX
     2206   01 0158A    EC401298              RD,4     *GP08             READ MPXC GROUP EIGHT
     2207   01 0158B    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2208   01 0158C    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2209   01 0158D    EC401299              RD,4     *GP09             READ MPXC GROUP NINE
     2210   01 0158E    4B4034F1              AND,4    =X'FFFFFB7F'      MSK BITS 21,24.JEVEN AND ZBC
     2211   01 0158F    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2212   01 01590    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2213   01 01591    EC40129A              RD,4     *GP10             READ MPXC GROUP TEN
     2214   01 01592    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTBUFF BUFFER
     2215   01 01593    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2216   01 01594    EC40129B              RD,4     *GP11             READ MPXC GROUP ELEVEN
     2217   01 01595    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2218   01 01596    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2219   01 01597    EC40129E              RD,4     *GP14             READ MS GROUP FOURTEEN
     2220   01 01598    25400010 A            SLS,4    16                POSITION FOR OUTPUT FORMAT
     2221   01 01599    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2222   01 0159A    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2223   01 0159B    EC401294              RD,4     *GP00             READ CCU GROUP ZERO
     2224   01 0159C    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2225   01 0159D    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2226   01 0159E    EC401295              RD,4     *GP01             READ CCU GROUP ONE
     2227   01 0159F    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2228   01 015A0    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2229   01 015A1    EC401296              RD,4     *GP02             READ CCU GROUP TWO
     2230   01 015A2    4B4034F2              AND,4    =X'38709F'        MASK 0-9,13-16,20-23,25,&26
     2231   01 015A3    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2232   01 015A4    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2233   01 015A5    EC50129D              RD,R5    *GP13             READ MS DC'S & DD'S
     2234   01 015A6    EC40129C              RD,R4    *GP12             READ MS DB'S & DA'S
     2235   01 015A7    55500004 A            STH,R5   R4                MERGE
     2236   01 015A8    330012FD              MTW,0    FOURBYTE          IS FOUR BYTE ON
     2237   01 015A9    693015AD              BCS,3    %+4               YES
     2238   01 015AA    330012C3              MTW,0    BURSTM            BURST MODE ON
     2239   01 015AB    693015AD              BCS,3    %+2               YES
     2240   01 015AC    4B4034F3              AND,R4   =X'FF'            NEITHER-- ONLY SAVE DA'S
     2241   01 015AD    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2242   01 015AE    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2243   01 015AF    EC40129F              RD,4     *GP15             READ MS GROUP FIFTEEN
     2244   01 015B0    25400010 A            SLS,4    16                POSITION FOR OUTPUT FORMAT
     2245   01 015B1    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2246   01 015B2    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2247   01 015B3    35701333              STW,7    OUTDEX            STORE FINAL INDEX VALUE
     2248   01 015B4    64801587              BDR,8    PHASTEP           LOOP FOR PRESCRIBED NUMBER OF PHASES
     2249   01 015B5    E800000F A            B        *15               RETURN TO CALLER




     2251   01 015B6    EDD01294     %RESET   WD,13    *GP00             RESET CCU
     2252   01 015B7    32E012CC              LW,R14   CM                CLOCK MARGINS
     2253   01 015B8    EDE01294              WD,R14   *GP00
     2254   01 015B9    EDD01298              WD,13    *GP08             RESET MPXC, CHANNEL A
     2255   01 015BA    EDD0129C              WD,13    *GP12             RESET MS, CHANNEL A
     2256   01 015BB    22E00000 A            LI,R14   0                 CLEAR R14
     2257   01 015BC    E800000F A            B        *15               RETURN TO CALLER


     2259   01 015BD    32701386     PHASTORE LW,7     SEQDEX            FETCH SEQUENCE BUFFER INDEX
     2260   01 015BE    22600000 A            LI,6     0                 CLEAR BYTE INDEX
     2261   01 015BF    F24C000F A            LB,4     *15,6             FETCH BYTE TO BE STORED
     2262   01 015C0    692015C4              BCS,2    %+4               BRANCH IF NOT END OF DATA
     2263   01 015C1    3310000F A            MTW,1    15                INCREMENT POINTER FOR RETURN
     2264   01 015C2    35701386              STW,7    SEQDEX            STORE FINAL INDEX VALUE
     2265   01 015C3    E800000F A            B        *15               RETURN TO CALLER
     2266   01 015C4    754E1376              STB,4    SEQBUFF,7         STORE DATA BYTE INDEXED
     2267   01 015C5    33100007 A            MTW,1    7                 INCREMENT SEQUENCE BUFFER INDEX
     2268   01 015C6    33100006 A            MTW,1    6                 INCREMENT BYTE INDEX
     2269   01 015C7    21600004 A            CI,6     4                 WILL NEXT BYTE BE A NEW WORD?
     2270   01 015C8    693015BF              BCS,3    PHASTORE+2        BRANCH IF NOT
     2271   01 015C9    3310000F A            MTW,1    15                INCREMENT WORD POINTER
     2272   01 015CA    680015BE              B        PHASTORE+1        LOOP FOR NEXT WORD


     2274   01 015CB    32701333     COMPTAG  LW,7     OUTDEX            FETCH OUTPUT BUFFER INDEX
     2275   01 015CC    2240DECA A            LI,4     X'DECA'           LOAD COMPARE DATA PREFIX
     2276   01 015CD    25400010 A            SLS,4    16                POSITION AS PREFIX
     2277   01 015CE    304013AD              AW,4     TSTNMBER          ADD CURRENT TEST NUMBER
     2278   01 015CF    354E3691              STW,4    ENDADDR+1,7       STORE IN OUTPUT BUFFER
     2279   01 015D0    33101333              MTW,1    OUTDEX            INCREMENT OUTPUT BUFFER INDEX
     2280   01 015D1    32701386              LW,7     SEQDEX            FETCH SEQUENCE BUFFER INDEX
     2281   01 015D2    224000FF A            LI,4     X'FF'             LOAD COMPARE CONTROL PREFIX
     2282   01 015D3    754E1376              STB,4    SEQBUFF,7         STORE IN SEQUENCE BUFFER
     2283   01 015D4    33101386              MTW,1    SEQDEX            INCREMENT SEQUENCE BUFFER INDEX
     2284   01 015D5    E800000F A            B        *15               RETURN TO CALLER

     2286   01 015D6    33101345     PREPHSXX MTW,1    PHASTEST          FLAG THIS TEST AS PHASEABLE
     2287   01 015D7    3300133B              MTW,0    PHASFLAG          IS THIS A SINGLE PHASING PASS?
     2288   01 015D8    E930000C A            BCS,3    *R12              IF SO, BRANCH
     2289   01 015D9    ED001297              WD,0     *SYNC             GENERATE SYNC SIGNAL
     2290   01 015DA    E800000F A            B        *15               RETURN TO CALLER


     2292   01 015DB    00000000 A   MCHKSAVE DATA     0
     2293   01 015DC    35F015DB     MODECHK  STW,15   MCHKSAVE          SAVE R15 FOR POINTING AND RETURN
     2294   01 015DD    6AF01601              BAL,R15  REGSAVE           SAVE REGISTER VALUES
     2295   01 015DE    2290FFFF A            LI,9     X'FFFF'           LOAD MASK
     2296   01 015DF    B2801330              LW,8     *NEXTEST          FETCH CONTROL WORD
     2297   01 015E0    25800070 A            SLS,8    -16               RIGHT JUSTIFY TEST NUMBER
     2298   01 015E1    4B800009 A            AND,8    9                 MASK FOR TEST NUMBER
     2299   01 015E2    358013AD              STW,8    TSTNMBER          STORE TEST NUMBER
     2300   01 015E3    22900040 A            LI,9     X'40'             LOAD MASK
     2301   01 015E4    2270018F A            LI,7     399               SET LOOP COUNT FOR CLEARING OUTBUFF
     2302   01 015E5    35EE3691              STW,14   ENDADDR+1,7       CLEAR BUFFER LOCATION,INDEXED
     2303   01 015E6    647015E5              BDR,7    %-1               LOOP FOR 399 BUFFER LOCATIONS
     2304   01 015E7    2270000F A            LI,7     15                SET SEQBUFF CLEARING LOOP COUNT
     2305   01 015E8    35EE1376              STW,14   SEQBUFF,7         CLEAR SEQUENCE BUFFER LOC.
     2306   01 015E9    647015E8              BDR,7    %-1               LOOP FOR 15 BUFFER LOCATIONS
     2307   01 015EA    35E01333              STW,14   OUTDEX            CLEAR OUTPUT BUFFER INDEX
     2308   01 015EB    35E01386              STW,14   SEQDEX            CLEAR SEQUENCE BUFFER INDEX
     2309   01 015EC    6AF015CB              BAL,15   COMPTAG           TAG BUFFERS FOR COMPARE
     2310   01 015ED    32701386              LW,7     SEQDEX            FETCH SEQUENCE BUFFER INDEX
     2311   01 015EE    E70015DB              EXU      *MCHKSAVE         LOAD R4 WITH INDICATOR
     2312   01 015EF    754E1376              STB,4    SEQBUFF,7         SET SERVICE CYCLE DESCRIPTOR
     2313   01 015F0    33101386              MTW,1    SEQDEX            INCREMENT SEQUENCE BUFFER INDEX
     2314   01 015F1    6AF015BD              BAL,15   PHASTORE          SET PHASE SEQUENCE:
     2315   01 015F2    0D0E0F0A A            DATA     X'0D0E0F0A'
     2316   01 015F3    0B0C0000 A            DATA     X'0B0C0000'
     2317   01 015F4    6AF015B6              BAL,15   %RESET            RESET CCU, MPXC AND MS
     2318   01 015F5    22401800 A            LI,4     X'1800'           SET BITS 19&20 IN R4
     2319   01 015F6    ED401298              WD,4     *GP08             SET SINGLE PHASE MODE, CH.A
     2320   01 015F7    22800001 A            LI,8     1                 SET NO-PHASE-CLK LOOP CNT.
     2321   01 015F8    6AF01589              BAL,15   PHASTEPX          READ STATIC, RESIDUAL DISPLAY
     2322   01 015F9    32801353              LW,R8    REGISTER+8        RESTORE R8
     2323   01 015FA    E7001339              EXU      *PHASAVE          EXECUTE MODULE I/O INST.
     2324   01 015FB    22800001 A            LI,8     1                 SET NO-PHASE-CLK LOOP CNT.
     2325   01 015FC    6AF01589              BAL,15   PHASTEPX          READ DISPLAY CONSEQUENT - PHI
     2326   01 015FD    22800004 A            LI,8     4                 SET PHASE CLK-READ COUNT TO 4
     2327   01 015FE    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2328   01 015FF    331015DB              MTW,1    MCHKSAVE          INCREMENT POINTER FOR RETURN
     2329   01 01600    E80015DB              B        *MCHKSAVE         RETURN TO CALLER




     2331   01 01601    02200000 A   REGSAVE  LCI      0
     2332   01 01602    2B00134B              STM,0    REGISTER          SAVE REGISTER 0 THRU 15
     2333   01 01603    22E00000 A            LI,14    0                 DEDICATE R14 TO ZERO
     2334   01 01604    E800000F A            B        *15               RETURN TO CALLER


     2336   01 01605    70200392     DISPLAYX LC       #SENSE            INHIBIT DISPLAY OUTPUT
     2337   01 01606    699017A0              BCS,9    DRIVER             IF SENSE SWITCH 1 IS SET
     2338   01 01607    6AF015B6              BAL,15   %RESET            RESET I/O
     2339   01 01608    22700000 A            LI,7     0                 CLR R7 FOR INDEXING
     2340   01 01609    35700002 A            STW,7    2                 CLR R2 FOR DATA BUFFER INDEX
     2341   01 0160A    35701319              STW,7    LINECNT           CLEAR LINE COUNTER
     2342   01 0160B    3570131B              STW,7    LINEFOLD          CLEAR LINE FOLD-OVER FLAG
     2343   01 0160C    330012D2              MTW,0    COMPFLAG          IS COMPARE TO BE MADE?
     2344   01 0160D    69301881              BCS,3    COMPARE           IF SO, GO TO COMPARE ROUTINE
     2345   01 0160E    330012C4              MTW,0    CBGEN             IS COOKBOOK TAPE TO BE GENERATED?
     2346   01 0160F    693018F4              BCS,3    TAPEGEN           IF SO, BRANCH


     2348   01 01610    724E1376     LINE     LB,4     SEQBUFF,7         FETCH SEQUENCE BUFFER CNTRL. BYTE
     2349   01 01611    69201613              BCS,2    %+2
     2350   01 01612    6AF0162C              BAL,15   PREDRIVE          CHECK FOR LINE FOLDOVER
     2351   01 01613    21400010 A            CI,4     X'10'             DOES BYTE = HEADING DESCRIPTOR
     2352   01 01614    69101616              BCS,1    %+2               BRANCH IF NOT
     2353   01 01615    6AF01634              BAL,15   HEADOUT           OUTPUT HEADING
     2354   01 01616    5288133D              LH,8     PHASNUMB,4        FETCH PHASE NUMBER, INDEXED
     2355   01 01617    22500005 A            LI,5     5                 SET STORE HALF-WORD INDEX
     2356   01 01618    558A338B              STH,8    DISPFORM,5        STORE IN FORMATTED LINE BUFFER
     2357   01 01619    6AF016B8              BAL,15   LINESET           SET LINE NUMBER IN DISPFORM
     2358   01 0161A    22900005 A            LI,9     5                 SET DATA STORE LOOP COUNT
     2359   01 0161B    22500004 A            LI,5     4                 INITIALIZE DATA STORE INDEX
     2360   01 0161C    32843691     FILL     LW,8     ENDADDR+1,2       FETCH DISPLAY DATA, INDEXED
     2361   01 0161D    EA6003C3              #HTECON  8                 CONVERT TO EBCDIC
            01 0161E    00000008 A
     2362   01 0161F    32AC0000 A            LW,10    0,6               FETCH EBCDIC FOR BITS 0-15
     2363   01 01620    35AA338B              STW,10   DISPFORM,5        STR. IN FORMATTED LINE BUFFER
     2364   01 01621    20500001 A            AI,5     1                 INCREMENT DATA STORE INDEX
     2365   01 01622    32AC0001 A            LW,10    1,6               FETCH EBCDIC FOR BITS 12-31
     2366   01 01623    35AA338B              STW,10   DISPFORM,5        STR. IN FORMATTED LINE BUFF
     2367   01 01624    20500002 A            AI,5     2                 INCREMENT DATA STORE INDEX
     2368   01 01625    20200001 A            AI,2     1                 INCREMENT DATA FETCH INDEX
     2369   01 01626    6490161C              BDR,9    FILL              LOOPFOR 5 WORDS OF DATA
     2370   01 01627    33100007 A            MTW,1    7                 INCREMENT SEQUENCER INDEX
     2371   01 01628    EA6003CD              #PRINT   DISPFORM          OUTPUT FORMATTED LINE BUFFER
            01 01629    C000CE2C A
     2372   01 0162A    20200005 A            AI,2     5                 INDEX OVER FOLDOVER GROUP
     2373   01 0162B    68001610              B        LINE              LOOP FOR NEXT LINE, IF ANY.


     2375   01 0162C    3300131B     PREDRIVE MTW,0    LINEFOLD          WAS FOLDED OUTPUT OUTPUT?
     2376   01 0162D    6930162F              BCS,3    %+2               BRANCH IF NOT
     2377   01 0162E    680017A0              B        DRIVER            RETURN TO DRIVER OUTPUT COMPLETE
     2378   01 0162F    3270131B              LW,7     LINEFOLD          FETCH SEQUENCER INDEX REPEAT VALUE
     2379   01 01630    724E1376              LB,4     SEQBUFF,7         FETCH SEQUENCER CODE
     2380   01 01631    3320000F A            MTW,2    15                INCREMENT RETURN ADDRESS
     2381   01 01632    E800000F A            B        *15               RETURN AND OUTPUT GRP HEAD FOR




     2383   01 01633    00000000 A   HEADSAVE DATA     0
     2384   01 01634    35F01633     HEADOUT  STW,15   HEADSAVE          SAVE R15 FOR RETURN
     2385   01 01635    214000FF A            CI,4     X'FF'             DOES BYTE = COMPARE PREFIX?
     2386   01 01636    6930163A              BCS,3    NOTHEAD           BRANCH IF NOT
     2387   01 01637    20200001 A            AI,2     1                 INCREMENT DATA FETCH INDEX
     2388   01 01638    20700001 A            AI,7     1                 INCREMENT CONTROL SEQUENCER INDEX
     2389   01 01639    724E1376              LB,4     SEQBUFF,7         FETCH NEXT CONTROL BYTE
     2390   01 0163A    3300131B     NOTHEAD  MTW,0    LINEFOLD          IS THIS PRINTOUT FOLD-OVER?
     2391   01 0163B    693016A5              BCS,3    FOLDOUT           IF SO, BRANCH
     2392   01 0163C    214000E1 A            CI,4     X'E1'             DOES BYTE = SIO DESCRIPTOR?
     2393   01 0163D    69301644              BCS,3    HD1               BRANCH IF NOT
     2394   01 0163E    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2395   01 0163F    68301642              BCR,3    %+3               BRANCH IF NOT
     2396   01 01640    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2397   01 01641    68301644              BCR,3    HD1               BRANCH IF NOT
     2398   01 01642    EA6003CD              #PRINT   SERCYHD1,C2       OUTPUT SIO HEADER
            01 01643    C200D16C A
     2399   01 01644    214000E2 A   HD1      CI,4     X'E2'             DOES BYTE = TIO DESCRIPTOR?
     2400   01 01645    6930164C              BCS,3    HD2               BRANCH IF NOT
     2401   01 01646    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2402   01 01647    6830164A              BCR,3    %+3               BRANCH IF NOT
     2403   01 01648    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2404   01 01649    6830164C              BCR,3    HD2               BRANCH IF NOT
     2405   01 0164A    EA6003CD              #PRINT   SERCYHD2,C2       OUTPUT TIO HEADER
            01 0164B    C200D174 A
     2406   01 0164C    214000E3 A   HD2      CI,4     X'E3'             DOES BYTE = TDV DESCRIPTOR?
     2407   01 0164D    69301654              BCS,3    HD3               BRANCH IF NOT
     2408   01 0164E    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2409   01 0164F    68301652              BCR,3    %+3               BRANCH IF NOT
     2410   01 01650    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2411   01 01651    68301654              BCR,3    HD3               BRANCH IF NOT
     2412   01 01652    EA6003CD              #PRINT   SERCYHD3,C2       OUTPUT TDV HEADER
            01 01653    C200D17C A
     2413   01 01654    214000E4 A   HD3      CI,4     X'E4'             DOES BYTE = HIO DESCRIPTOR?
     2414   01 01655    6930165C              BCS,3    HD4               BRANCH IF NOT
     2415   01 01656    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2416   01 01657    6830165A              BCR,3    %+3               BRANCH IF NOT
     2417   01 01658    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2418   01 01659    6830165C              BCR,3    HD4               BRANCH IF NOT
     2419   01 0165A    EA6003CD              #PRINT   SERCYHD4,C2       OUTPUT HIO HEADER
            01 0165B    C200D184 A
     2420   01 0165C    214000E5 A   HD4      CI,4     X'E5'             DOES BYTE = AIO DESCRIPTOR?
     2421   01 0165D    69301666              BCS,3    HD5               BRANCH IF NOT
     2422   01 0165E    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2423   01 0165F    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2424   01 01660    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2425   01 01661    68301664              BCR,3    %+3               BRANCH IF NOT
     2426   01 01662    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2427   01 01663    68301666              BCR,3    HD5               BRANCH IF NOT
     2428   01 01664    EA6003CD              #PRINT   SERCYHD5,C2       OUTPUT AIO HEADER
            01 01665    C200D18C A
     2429   01 01666    214000E9 A   HD5      CI,4     X'E9'             DOES BYTE = ORDOUT DESCRIPTOR?
     2430   01 01667    69301670              BCS,3    HD6               BRANCH IF NOT
     2431   01 01668    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2432   01 01669    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2433   01 0166A    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2434   01 0166B    6830166E              BCR,3    %+3               BRANCH IF NOT
     2435   01 0166C    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2436   01 0166D    68301670              BCR,3    HD6               BRANCH IF NOT
     2437   01 0166E    EA6003CD              #PRINT   SERCYHD9,C2       OUTPUT ORDOUT HEADER
            01 0166F    C200D194 A
     2438   01 01670    214000EA A   HD6      CI,4     X'EA'             DOES BYTE = DATA OUT DESCRPTR?
     2439   01 01671    6930167A              BCS,3    HD7               BRANCH IF NOT
     2440   01 01672    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2441   01 01673    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2442   01 01674    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2443   01 01675    68301678              BCR,3    %+3               BRANCH IF NOT
     2444   01 01676    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2445   01 01677    6830167A              BCR,3    HD7               BRANCH IF NOT
     2446   01 01678    EA6003CD              #PRINT   SERCYHDA,C2       OUTPUT DATA OUT HEADER
            01 01679    C200D1A4 A
     2447   01 0167A    214000EB A   HD7      CI,4     X'EB'             DOES BYTE = DATA IN DESCRPTR?
     2448   01 0167B    69301684              BCS,3    HD8               BRANCH IF NOT
     2449   01 0167C    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2450   01 0167D    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2451   01 0167E    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2452   01 0167F    68301682              BCR,3    %+3               BRANCH IF NOT
     2453   01 01680    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2454   01 01681    68301684              BCR,3    HD8               BRANCH IF NOT
     2455   01 01682    EA6003CD              #PRINT   SERCYHDB,C2       OUTPUT DATA IN HEADER
            01 01683    C200D1B0 A
     2456   01 01684    214000EC A   HD8      CI,4     X'EC'             DOES BYTE = ORDIN DESCRIPTOR?
     2457   01 01685    6930168E              BCS,3    HD9               BRANCH IF NOT
     2458   01 01686    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2459   01 01687    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2460   01 01688    330012D2              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2461   01 01689    6830168C              BCR,3    %+3               BRANCH IF NOT
     2462   01 0168A    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2463   01 0168B    6830168E              BCR,3    HD9               BRANCH IF NOT
     2464   01 0168C    EA6003CD              #PRINT   SERCYHDC,C2       OUTPUT ORDIN HEADER
            01 0168D    C200D1BC A
     2465   01 0168E    330012D2     HD9      MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2466   01 0168F    68301692              BCR,3    %+3               BRANCH IF NOT
     2467   01 01690    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2468   01 01691    6830169B              BCR,3    HD11              BRANCH IF NOT
     2469   01 01692    EA6003CD              #PRINT   GRPHEAD1,C1       OUTPUT CH.A GROUP HEADING
            01 01693    C100CF20 A
     2470   01 01694    6800169B              B        HD11
     2471   01 01695    330012D2     HD10     MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2472   01 01696    68301699              BCR,3    %+3               BRANCH IF NOT
     2473   01 01697    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2474   01 01698    6830169B              BCR,3    HD11              BRANCH IF NOT
     2475   01 01699    EA6003CD              #PRINT   GRPHEAD3,C1       OUTPUT CH.B GROUP HEADING
            01 0169A    C100CFA8 A
     2476   01 0169B    20700001 A   HD11     AI,7     1                 INCREMENT SEQUENCE CNTRL. INDEX
     2477   01 0169C    3570131B              STW,7    LINEFOLD          STORE PHASE REPEAT START ADDR.
     2478   01 0169D    32400002 A            LW,4     R2                FETCH STARTING OUTBUFF INDEX
     2479   01 0169E    20400005 A            AI,4     5                 SET INDEX FOR ALTERNATE GROUPS
     2480   01 0169F    354012F8              STW,4    FOLDEX            STORE VALUE FOR FOLDOVER
     2481   01 016A0    32400003 A            LW,4     3                 FETCH COOKBOOK INDEX
     2482   01 016A1    20400005 A            AI,4     5                 SET ALTERNATE GRP INDEX
     2483   01 016A2    354012F9              STW,4    FOLDEXC           SAVE FOR FOLDOVER
     2484   01 016A3    724E1376              LB,4     SEQBUFF,7         FETCH SEQUENCER CODE
     2485   01 016A4    E8001633              B        *HEADSAVE         RETURN TO CALLER


     2487   01 016A5    330012D2     FOLDOUT  MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2488   01 016A6    683016A9              BCR,3    %+3               BRANCH IF NOT
     2489   01 016A7    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2490   01 016A8    683016B2              BCR,3    HD13              BRANCH IF NOT
     2491   01 016A9    EA6003CD              #PRINT   GRPHEAD2,C1       OUTPUT CH.A GROUP HEADING
            01 016AA    C100CF64 A
     2492   01 016AB    680016B2              B        HD13
     2493   01 016AC    330012D2     HD12     MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2494   01 016AD    683016B0              BCR,3    %+3               BRANCH IF NOT
     2495   01 016AE    3300134A              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2496   01 016AF    683016B2              BCR,3    HD13              BRANCH IF NOT
     2497   01 016B0    EA6003CD              #PRINT   GRPHEAD4,C1       OUTPUT CH.B GROUP HEADING
            01 016B1    C100CFEC A
     2498   01 016B2    3270131B     HD13     LW,7     LINEFOLD          FETCH PHASE REPEAT VALUE
     2499   01 016B3    724E1376              LB,4     SEQBUFF,7         FETCH CONTROL BYTE
     2500   01 016B4    322012F8              LW,2     FOLDEX            FETCH FOLDOVER DATA INDEX
     2501   01 016B5    323012F9              LW,3     FOLDEXC           FETCH DATA FOLDOVER COMPARE INDEX
     2502   01 016B6    35E0131B              STW,14   LINEFOLD          CLEAR LINE FOLD-OVER FLAG
     2503   01 016B7    E8001633              B        *HEADSAVE         RETURN TO CALLER


     2505   01 016B8    33101319     LINESET  MTW,1    LINECNT           INCREMENT LINE COUNT
     2506   01 016B9    32501319              LW,5     LINECNT           FETCH LINE COUNT
     2507   01 016BA    22400000 A            LI,4     0                 CLEAR UPPER MSD'S OF DIVIDEND
     2508   01 016BB    364034F4              DW,4     =X'A'             DIVIDE HEX TO DECIMAL
     2509   01 016BC    25500008 A            SLS,5    8                 POSITION QUOTIENT
     2510   01 016BD    30500004 A            AW,5     4                 COMBINE WITH UNITS (REMAINDER)
     2511   01 016BE    2240F0F0 A            LI,4     X'F0F0'           LOAD ZONE CONVERSION CONSTANT
     2512   01 016BF    30500004 A            AW,5     4                 CONVERT TO EBCDIC
     2513   01 016C0    5550338C              STH,5    DISPFORM+1        SET LINE NUMBER IN BUFFER
     2514   01 016C1    E800000F A            B        *15               RETURN TO CALLER




     2516   01 016C2    6AC015D6     PREPHS00 BAL,R12  PREPHSXX          CHECK FOR SINGLE PHASE
     2517   01 016C3    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2518   01 016C4    6AF016C7              BAL,15   SIO               SINGLE PHASE THRU SIO
     2519   01 016C5    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2521   01 016C6    00000000 A   SIOSAVE  DATA     0
     2522   01 016C7    35F016C6     SIO      STW,15   SIOSAVE           SAVE R15 FOR RETURN
     2523   01 016C8    6AF015DC              BAL,15   MODECHK           INITIALIZE AND SINGLE PHASE
     2524   01 016C9    224000E1 A            LI,4     X'E1'             SET SIO DESCRIPTOR
     2525   01 016CA    E80016C6              B        *SIOSAVE          RETURN TO CALLER


     2527   01 016CB    6AC015D6     PREPHS01 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2528   01 016CC    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2529   01 016CD    6AF015DC              BAL,15   MODECHK           INITIALIZE AND SINGLE PHASE
     2530   01 016CE    224000E2 A            LI,4     X'E2'             SET TIO DESCRIPTOR
     2531   01 016CF    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2533   01 016D0    6AC015D6     PREPHS02 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2534   01 016D1    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2535   01 016D2    6AF015DC              BAL,15   MODECHK           INITIALIZE AND SINGLE PHASE
     2536   01 016D3    224000E4 A            LI,4     X'E4'             SET HIO DESCRIPTOR
     2537   01 016D4    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2539   01 016D5    6AC015D6     PREPHS03 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2540   01 016D6    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2541   01 016D7    6AF016FE              BAL,R15  ORDOUT            STEP THRU SIO AND ORDER OUT
     2542   01 016D8    6AF015BD              BAL,R15  PHASTORE          STORE PHASE SEQUENCE:
     2543   01 016D9    EB0E0F01 A            DATA     X'EB0E0F01'
     2544   01 016DA    08090405 A            DATA     X'08090405'
     2545   01 016DB    06070E0F A            DATA     X'06070E0F'
     2546   01 016DC    01080700 A            DATA     X'01080700'
     2547   01 016DD    2280000E A            LI,R8    14                SET PHASTEP LOOP COUNT
     2548   01 016DE    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2549   01 016DF    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2551   01 016E0    6AC015D6     PREPHS04 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2552   01 016E1    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2553   01 016E2    6AF016FE              BAL,R15  ORDOUT            STEP THRU SIO AND ORDER OUT
     2554   01 016E3    6AF015BD              BAL,R15  PHASTORE          STORE PHASE SEQUENCE:
     2555   01 016E4    EB0E0F01 A            DATA     X'EB0E0F01'
     2556   01 016E5    08040506 A            DATA     X'08040506'
     2557   01 016E6    070E0F01 A            DATA     X'070E0F01'
     2558   01 016E7    08090700 A            DATA     X'08090700'
     2559   01 016E8    2280000E A            LI,R8    14                SET PHASTEP LOOP COUNT
     2560   01 016E9    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2561   01 016EA    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2563   01 016EB    6AC015D6     PREPHS05 BAL,R12  PREPHSXX          CHECK FOR SINGLE PHASE
     2564   01 016EC    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2565   01 016ED    6AF016FE              BAL,R15  ORDOUT            STEP THRU ORDOUT AND SIO
     2566   01 016EE    6AF015BD              BAL,R15  PHASTORE          STORE PHASE SEQUENCE:
     2567   01 016EF    EA0E0F01 A            DATA     X'EA0E0F01'
     2568   01 016F0    00000000 A            DATA     X'00000000'
     2569   01 016F1    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2570   01 016F2    6AF01587              BAL,R15  PHASTEP           SINGLE PHASE AND READ DISPLAY
     2571   01 016F3    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2573   01 016F4    6AC015D6     PREPHS06 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2574   01 016F5    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2575   01 016F6    6AF015DC              BAL,15   MODECHK           INITIALIZE AND SINGLE PHASE
     2576   01 016F7    224000E3 A            LI,4     X'E3'             SET TDV DESCRIPTOR
     2577   01 016F8    68001605              B        DISPLAYX          GO TO OUTPUT ROUTNES


     2579   01 016F9    6AC015D6     PREPHS07 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2580   01 016FA    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2581   01 016FB    6AF016FE              BAL,15   ORDOUT            STEP THRU SIO AND ORDER OUT
     2582   01 016FC    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2584   01 016FD    00000000 A   ORDOSAVE DATA     0
     2585   01 016FE    35F016FD     ORDOUT   STW,15   ORDOSAVE          SAVE R15 FOR RETURN
     2586   01 016FF    330012D3              MTW,0    COMPSRV3          IS SIO SERVICE REQUIRED?
     2587   01 01700    68301703              BCR,3    %+3               IF SO, BRANCH
     2588   01 01701    35E012D3              STW,14   COMPSRV3          CLEAR COMPSERVE FLAG
     2589   01 01702    68001704              B        %+2               BRANCH AROUND SIO SERVICE
     2590   01 01703    6AF016C7              BAL,15   SIO               INITIALIZE AND STEP THRU SIO
     2591   01 01704    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2592   01 01705    E90E0F01 A            DATA     X'E90E0F01'
     2593   01 01706    04050607 A            DATA     X'04050607'
     2594   01 01707    00000000 A            DATA     X'00000000'
     2595   01 01708    22800007 A            LI,8     7                 SET ORDER OUT PHASE COUNT
     2596   01 01709    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2597   01 0170A    E80016FD              B        *ORDOSAVE         RETURN TO CALLER


     2599   01 0170B    6AC015D6     PREPHS08 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2600   01 0170C    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2601   01 0170D    6AF01724              BAL,15   DATA              STEP THRU SIO, ORDOUT AND DATA OP.
     2602   01 0170E    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2604   01 0170F    6AC015D6     PREPHS09 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2605   01 01710    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2606   01 01711    6AF01829              BAL,15   ORDIN             STEP THRU SIO,ORDOUT,DATA AND ORDIN
     2607   01 01712    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2609   01 01713    6AC015D6     PREPHS10 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2610   01 01714    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2611   01 01715    3310133A              MTW,1    PHASEAIO          INHIBIT AIO IN HANDLER
     2612   01 01716    6AF01829              BAL,15   ORDIN             SINGLE PHASE THRU ORDIN
     2613   01 01717    22401800 A            LI,4     X'1800'           SET BITS 19&20 IN R4
     2614   01 01718    ED401298              WD,4     *GP08             SET SINGLE PHASE MODE, CH.A
     2615   01 01719    6E200000 A            AIO,R2   0                 I/O
     2616   01 0171A    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2617   01 0171B    E50E0F0B A            DATA     X'E50E0F0B'
     2618   01 0171C    0C000000 A            DATA     X'0C000000'
     2619   01 0171D    22800001 A            LI,R8    1                 SET PHASTEP LOOP COUNT
     2620   01 0171E    6AF01589              BAL,R15  PHASTEPX          READ STATIC DISPLAY
     2621   01 0171F    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2622   01 01720    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2623   01 01721    6AF01B34              BAL,R15  INTRESET          DISARM & DISABLE I/O INTRPT.
     2624   01 01722    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES




     2626   01 01723    00000000 A   DATASAVE DATA     0
     2627   01 01724    35F01723     DATA     STW,15   DATASAVE          SAVE R15 FOR RETURN
     2628   01 01725    330012D4              MTW,0    COMPSRV4          IS ORD OUT NEEDED?
     2629   01 01726    68301729              BCR,3    %+3               IF SO, BRANCH
     2630   01 01727    35E012D4              STW,14   COMPSRV4          CLEAR COMPARE SERVICE FLAG
     2631   01 01728    6800172A              B        %+2               BRANCH AROUND ORDOUT
     2632   01 01729    6AF016FE              BAL,15   ORDOUT            STEP THRU SIO AND ORDOUT
     2633   01 0172A    32400000 A            LW,4     R0
     2634   01 0172B    25400001 A            SLS,4    1                 FORM WRD ADR FROM DBWRD ADR
     2635   01 0172C    92C00004 A            LD,12    *4                FETCH COMMAND DOUBLEWORD
     2636   01 0172D    22900001 A            LI,9     1                 LOAD ORDER MASK
     2637   01 0172E    72A0000C A            LB,10    12                FETCH ORDER BYTE FROM CDW
     2638   01 0172F    4BA00009 A            AND,10   9                 DOES ORDER = WRITE?
     2639   01 01730    683017B4              BCR,3    DATAIN            BRANCH IF NOT
     2640   01 01731    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2641   01 01732    EA000000 A            DATA     X'EA000000'
     2642   01 01733    22900003 A            LI,9     3                 LOAD BYTE ADDRESS MASK
     2643   01 01734    4B90000C A            AND,9    12                DOES BYTE ADDR. = WRD. BOUND?
     2644   01 01735    68301752              BCR,3    4START            IF SO, BRANCH
     2645   01 01736    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2646   01 01737    0E0F0100 A            DATA     X'0E0F0100'
     2647   01 01738    22800003 A            LI,8     3                 SET SINGLE PHS. LOOP CNT TO 3
     2648   01 01739    6AF01587              BAL,15   PHASTEP           SINGLE STEP AND READ DISPLAY
     2649   01 0173A    6AF015BD     ODDLOOP  BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2650   01 0173B    02000000 A            DATA     X'02000000'
     2651   01 0173C    22800001 A            LI,8     1                 SET PHASE STEP LOOP COUNT
     2652   01 0173D    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2653   01 0173E    3310000C A            MTW,1    R12               INCREMENT BYTE ADDRESS
     2654   01 0173F    33F0000D A            MTW,15   13                DECREMENT BYTE COUNT BY 1
     2655   01 01740    22100001 A            LI,R1    1
     2656   01 01741    5242000D A            LH,R4    R13,1             FETCH NEW BYTE COUNT
     2657   01 01742    6830176E              BCR,3    TERMPHS
     2658   01 01743    33100009 A            MTW,1    9                 HAS WORD BOUND BEEN REACHED?
     2659   01 01744    21900004 A            CI,R9    4                 BC<4?
     2660   01 01745    6930173A              BCS,3    ODDLOOP           IF SO, BRANCH
     2661   01 01746    22400200 A            LI,R4    X'200'
     2662   01 01747    CB401330              AND,R4   *NEXTEST          IS TEST DX4?
     2663   01 01748    68201752              BCR,2    4START            NO
     2664   01 01749    22100001 A            LI,R1    1
     2665   01 0174A    5242000D A            LH,R4    R13,1             FETCH REMAINING BYTE COUNT
     2666   01 0174B    21400007 A            CI,R4    7                 IS BYTE COUNT < 7?
     2667   01 0174C    68101752              BCR,1    4START            BRANCH IF NOT
     2668   01 0174D    22B0FFFF A            LI,R11   X'FFFF'           BYTE COUNT MASK
     2669   01 0174E    4BB0000D A            AND,R11  R13               FETCH B.C. TO R11
     2670   01 0174F    22A00000 A            LI,R10   0                 CLR UPPER MSD OF DIVIDEND
     2671   01 01750    36A034F5              DW,R10   =X'4'             COMPUT WRD ITERATIONS
     2672   01 01751    6800175D              B        NOWORD-6          REMAIN ON ONEBYTE
     2673   01 01752    22B0FFFF A   4START   LI,11    X'FFFF'           LOAD BYTE COUNT MASK
     2674   01 01753    4BB0000D A            AND,11   13                MASK BYTE COUNT
     2675   01 01754    E8301723              BCR,3    *DATASAVE         BRANCH IF BYTE COUNT = ZERO
     2676   01 01755    22A00400 A            LI,10    X'400'            LOAD BURST INDICATOR MASK
     2677   01 01756    CBA01330              AND,10   *NEXTEST          IS BURST MODE SET IN CNTRL WRD?
     2678   01 01757    6930177A              BCS,3    BURST             IF SO, BRANCH
     2679   01 01758    36A034F5              DW,10    =X'4'             COMPUTE NUMBER OF WRD. ITERATIONS
     2680   01 01759    68301763              BCR,3    NOWORD            BRANCH IF NO WORD ITERATIONS
     2681   01 0175A    22900200 A            LI,9     X'200'            LOAD FOUR BYTE MODE MASKER
     2682   01 0175B    CB901330              AND,9    *NEXTEST          IS DX4 SET IN CNTRL WORD?
     2683   01 0175C    69301773              BCS,3    DX4               IF SO, BRANCH
     2684   01 0175D    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2685   01 0175E    0E0F0102 A            DATA     X'0E0F0102'
     2686   01 0175F    02020200 A            DATA     X'02020200'
     2687   01 01760    22800007 A            LI,8     7                 SET PHASTEP LOOP COUNT
     2688   01 01761    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2689   01 01762    64B0175D              BDR,11   %-5               LOOP FOR ALL WORD ITERATIONS
     2690   01 01763    3290000A A   NOWORD   LW,9     10                FETCH REMAINING BYTE CNT., IF ANY
     2691   01 01764    6830176E              BCR,3    TERMPHS           TERMINATE IF NO REMAINING BYTES
     2692   01 01765    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2693   01 01766    0E0F0100 A            DATA     X'0E0F0100'
     2694   01 01767    22800003 A            LI,8     3                 SET PHASTEP LOOP COUNT
     2695   01 01768    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2696   01 01769    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2697   01 0176A    02000000 A            DATA     X'02000000'
     2698   01 0176B    22800001 A            LI,8     1                 SETSINGLE PHASE LOOP COUNT
     2699   01 0176C    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2700   01 0176D    64901769              BDR,9    %-4               LOOP FOR REMAINING BYTES
     2701   01 0176E    6AF015BD     TERMPHS  BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2702   01 0176F    07000000 A            DATA     X'07000000'
     2703   01 01770    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2704   01 01771    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2705   01 01772    E8001723              B        *DATASAVE         RETURN TO CALLER


     2707   01 01773    6AF015BD     DX4      BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2708   01 01774    0E0F0102 A            DATA     X'0E0F0102'
     2709   01 01775    00000000 A            DATA     X'00000000'
     2710   01 01776    22800004 A            LI,8     4                 SET LOOP COUNT FOR PHASTEP
     2711   01 01777    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2712   01 01778    64B01773              BDR,11   %-5               LOOP FOR ALL WORD ITERATIONS
     2713   01 01779    68001763              B        NOWORD            CHECK FOR REMAINING BYTES


     2715   01 0177A    22900004 A   BURST    LI,9     4                 LOAD ODD WORD MASKER
     2716   01 0177B    4B90000C A            AND,9    12                MASK BYTE FOR WORD BOUND
     2717   01 0177C    69201797              BCS,2    BURSTODD          BRANCH IF ODD WORD BOUNDRY
     2718   01 0177D    22A00000 A            LI,10    0                 CLEAR REMAINDER REGISTER
     2719   01 0177E    36A034F6              DW,10    =X'8'             COMPUTE DOUBLEWORD ITERATIONS
     2720   01 0177F    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2721   01 01780    0E0F0000 A            DATA     X'0E0F0000'
     2722   01 01781    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2723   01 01782    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2724   01 01783    6AF015BD     BURST8   BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2725   01 01784    01020200 A            DATA     X'01020200'
     2726   01 01785    22800003 A            LI,8     3                 SET PHASTEP LOOP COUNT
     2727   01 01786    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2728   01 01787    64B01783              BDR,11   BURST8            LOOP FOR ALL DBWRD. ITERATIONS
     2729   01 01788    21A00003 A            CI,10    3                 IS REMAINING BYTE CNT. >3?
     2730   01 01789    69201791              BCS,2    LASTBRST          IF SO, BRANCH
     2731   01 0178A    21A00000 A   BRSTBYTE CI,10    0                 DOES BYTE CNT. = ZERO?
     2732   01 0178B    6830176E              BCR,3    TERMPHS           IF SO, GIVE TERMINATION PHASE
     2733   01 0178C    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2734   01 0178D    07000000 A            DATA     X'07000000'
     2735   01 0178E    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2736   01 0178F    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2737   01 01790    68001763              B        NOWORD            STEP THRU REMAINING BYTE XFERS

     2739   01 01791    6AF015BD     LASTBRST BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2740   01 01792    01020000 A            DATA     X'01020000'
     2741   01 01793    22800002 A            LI,8     2                 SET PHASTEP LOOP CNT TO 2
     2742   01 01794    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2743   01 01795    33C0000A A            MTW,-4   R10               DECREMENT BYTE REMAINDER
     2744   01 01796    6800178A              B        BRSTBYTE          CHECK FOR REMAINING BYTES

     2746   01 01797    6AF015BD     BURSTODD BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2747   01 01798    0E0F0102 A            DATA     X'0E0F0102'
     2748   01 01799    00000000 A            DATA     X'00000000'
     2749   01 0179A    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2750   01 0179B    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2751   01 0179C    33C0000B A            MTW,-4   R11               DECREMENT BC BY 4
     2752   01 0179D    22A00000 A            LI,R10   0
     2753   01 0179E    36A034F6              DW,R10   =X'8'
     2754   01 0179F    68001783              B        BURST8            LOOP FOR ALL DBWRD ITERATIONS



     2756         01 017A0           DRIVER   EQU      %                 NORMAL RETURN
     2757   01 017A0    6AF015B6              BAL,R15  %RESET
     2758   01 017A1    22401419              LI,R4    BD10+1            LOAD NORMAL RETURN
     2759   01 017A2    330012D1              MTW,0    COMPASS           IS THIS COMPARE PASS?
     2760   01 017A3    683017A9              BCR,3    DR1               NO, CHECK FOR CBGEN
     2761   01 017A4    224014D4              LI,R4    GOOD              LOAD COMPASS RETURN
     2762   01 017A5    3300134A              MTW,0    PUTOUT            WAS A MISCOMPARE OUTPUT?
     2763   01 017A6    683017AF              BCR,3    DR2+1             NO, RETURN TO GOOD
     2764   01 017A7    22401419              LI,R4    BD10+1            LOAD HALT RETURN
     2765   01 017A8    680017AE              B        DR2               RETURN TO BAD
     2766   01 017A9    330012C4     DR1      MTW,0    CBGEN             IS THIS COOKBOOK GENERATION?
     2767   01 017AA    683017AD              BCR,3    %+3                NO
     2768   01 017AB    224014EF              LI,R4    GO02               YES-- RETURN LINKAGE
     2769   01 017AC    680017AF              B        DR2+1              AND DO NOT RESET PHASFLAG
     2770   01 017AD    35E0133B              STW,R14  PHASFLAG          RESET PHASE ENABLE
     2771   01 017AE    35E01324     DR2      STW,R14  MISCOMP
     2772   01 017AF    354017B3              STW,R4   DR3               SAVE R4 FOR RETURN
     2773   01 017B0    02200000 A            LCI      0                 RESTORE REGISTER CONTENTS
     2774   01 017B1    2A00134B              LM,0     REGISTER           TO PRE-SINGLE PHASE VALUES
     2775   01 017B2    E80017B3              B        *DR3              RETURN TO DRIVER
     2776   01 017B3    00000000 A   DR3      DATA     0                 RETURN POINTER




     2778   01 017B4    6AF015BD     DATAIN   BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2779   01 017B5    EB000000 A            DATA     X'EB000000'
     2780   01 017B6    22900003 A            LI,9     3                 LOAD BYTE ADDRESS MASKER
     2781   01 017B7    4B90000C A            AND,9    12                DOES BYTE ADDR. = WRD BOUND?
     2782   01 017B8    683017E3              BCR,3    4STARTIN          IF SO, BRANCH
     2783   01 017B9    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2784   01 017BA    0E0F0000 A            DATA     X'0E0F0000'
     2785   01 017BB    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2786   01 017BC    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2787   01 017BD    6AF015BD     ODDLOOPI BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2788   01 017BE    01000000 A            DATA     X'01000000'
     2789   01 017BF    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2790   01 017C0    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2791   01 017C1    3310000C A            MTW,1    R12
     2792   01 017C2    33F0000D A            MTW,15   13                DECREMENT BYTE COUNT BY ONE
     2793   01 017C3    22100001 A            LI,R1    1
     2794   01 017C4    5242000D A            LH,R4    R13,1             FETCH NEW BYTE COUNT
     2795   01 017C5    6830176E              BCR,3    TERMPHS           TERMINATE IF ZBC
     2796   01 017C6    324034F7              LW,R4    =X'C000000'
     2797   01 017C7    4B40000C A            AND,R4   R12               DOES ORDER = READ BACKWARD?
     2798   01 017C8    683017CC              BCR,3    %+4               BRANCH IF NOT
     2799   01 017C9    33F00009 A            MTW,15   R9                DECREMENT BYTE ADDRESS BITS
     2800   01 017CA    683017E3              BCR,3    4STARTIN          CONTINUE ON WRD BOUND
     2801   01 017CB    680017CD              B        %+2
     2802   01 017CC    33100009 A            MTW,1    9                 HAS WRD BOUND BEEN REACHED?
     2803   01 017CD    21900004 A            CI,R9    4                 BC<4?
     2804   01 017CE    693017BD              BCS,3    ODDLOOPI          IF SO, BRANCH
     2805   01 017CF    22400200 A            LI,R4    X'200'
     2806   01 017D0    CB401330              AND,R4   *NEXTEST          IS TEST DX4?
     2807   01 017D1    682017DF              BCR,2    4STARTIN-4        NO
     2808   01 017D2    22100001 A            LI,R1    1
     2809   01 017D3    5242000D A            LH,R4    R13,1             FETCH REMAINING BYTE COUNT
     2810   01 017D4    21400007 A            CI,R4    7                 IS BYTE COUNT < 7?
     2811   01 017D5    681017DF              BCR,1    4STARTIN-4        BRANCH IF NOT
     2812   01 017D6    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2813   01 017D7    07000000 A            DATA     X'07000000'
     2814   01 017D8    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2815   01 017D9    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2816   01 017DA    22B0FFFF A            LI,R11   X'FFFF'           BYTE COUNT MASK
     2817   01 017DB    4BB0000D A            AND,R11  R13               FETCH BYTE COUNT
     2818   01 017DC    22A00000 A            LI,R10   0                 CLR UPPER MSD'S OF DIVIDEND
     2819   01 017DD    36A034F5              DW,R10   =X'4'             COMPUT WRD ITERATIONS
     2820   01 017DE    680017EE              B        NOWORDIN-6        REMAIN ON ONEBYTE
     2821   01 017DF    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2822   01 017E0    07000000 A            DATA     X'07000000'
     2823   01 017E1    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2824   01 017E2    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2825   01 017E3    22B0FFFF A   4STARTIN LI,11    X'FFFF'           LOAD BYTE COUNT MASK
     2826   01 017E4    4BB0000D A            AND,11   13                MASK BYTE COUNT
     2827   01 017E5    E8301723              BCR,3    *DATASAVE         BYTE CNT = 0, RETURN TO CALLER
     2828   01 017E6    22A00400 A            LI,10    X'400'            LOAD BURST INDICATOR MASK
     2829   01 017E7    CBA01330              AND,10   *NEXTEST          IS BURST MODE SET IN CNTRL WORD?
     2830   01 017E8    69301807              BCS,3    BURSTIN           IF SO, BRANCH
     2831   01 017E9    36A034F5              DW,10    =X'4'             COMPUTE NUMBER OF WORD ITERATIONS
     2832   01 017EA    683017F4              BCR,3    NOWORDIN          BRANCH IF NO WORD ITERATIONS
     2833   01 017EB    22900200 A            LI,9     X'200'            LOAD FOUR BYTE MODE INDICATOR MASK
     2834   01 017EC    CB901330              AND,9    *NEXTEST          IS DX4 SET IN CNTRL WORD?
     2835   01 017ED    69301800              BCS,3    DX4IN             IF SO, BRANCH
     2836   01 017EE    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2837   01 017EF    0E0F0101 A            DATA     X'0E0F0101'
     2838   01 017F0    01010700 A            DATA     X'01010700'
     2839   01 017F1    22800007 A            LI,8     7                 SET PHASTEP LOOP COUNT
     2840   01 017F2    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2841   01 017F3    64B017EE              BDR,11   %-5               LOOP FOR ALL WORD ITERATIONS
     2842   01 017F4    3290000A A   NOWORDIN LW,9     10                FETCH REMAINING BYTE COUNT, IF ANY
     2843   01 017F5    E8301723              BCR,3    *DATASAVE         RETURN TO CALLER
     2844   01 017F6    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2845   01 017F7    0E0F0000 A            DATA     X'0E0F0000'
     2846   01 017F8    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2847   01 017F9    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2848   01 017FA    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2849   01 017FB    01000000 A            DATA     X'01000000'
     2850   01 017FC    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2851   01 017FD    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLA
     2852   01 017FE    649017FA              BDR,9    %-4               LOOP FOR REMAINING BYTES
     2853   01 017FF    6800176E              B        TERMPHS           RETURN TO CALLER


     2855   01 01800    6AF015BD     DX4IN    BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2856   01 01801    0E0F0107 A            DATA     X'0E0F0107'
     2857   01 01802    00000000 A            DATA     X'00000000'
     2858   01 01803    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2859   01 01804    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2860   01 01805    64B01800              BDR,11   %-5               LOOP FOR ALL WRD ITERATIONS
     2861   01 01806    680017F4              B        NOWORDIN          CHECK FOR REMAINING BYTES


     2863   01 01807    6AF015BD     BURSTIN  BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2864   01 01808    0E0F0100 A            DATA     X'0E0F0100'
     2865   01 01809    22800003 A            LI,8     3                 SET PHASTEP LOOP COUNT
     2866   01 0180A    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2867   01 0180B    22900004 A            LI,9     4                 LOAD ODD WORD MASKER
     2868   01 0180C    4B90000C A            AND,9    12                MASK BYTE ADDR. FOR WRD BOUND
     2869   01 0180D    69201822              BCS,2    BRSTODDI          BRANCH IF ODD WORD BOUNDRY
     2870   01 0180E    22A00000 A            LI,10    0                 CLEAR REMAINDER REGISTER
     2871   01 0180F    36A034F6              DW,10    =8                COMPUTE DBWRD ITERATIONS
     2872   01 01810    6AF015BD     BURST8IN BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2873   01 01811    08090000 A            DATA     X'08090000'
     2874   01 01812    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2875   01 01813    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2876   01 01814    64B01810              BDR,11   BURST8IN          LOOP FOR ALL DBWRD ITERATIONS
     2877   01 01815    21A00003 A            CI,10    3                 IS BYTE COUNT > 3?
     2878   01 01816    6920181C              BCS,2    LSTBRSTI          IF SO, BRANCH
     2879   01 01817    6AF015BD     BRSTBYTI BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2880   01 01818    07000000 A            DATA     X'07000000'
     2881   01 01819    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2882   01 0181A    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2883   01 0181B    680017F4              B        NOWORDIN          CHECK FOR REMAINING BYTES


     2885   01 0181C    6AF015BD     LSTBRSTI BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2886   01 0181D    08080000 A            DATA     X'08080000'
     2887   01 0181E    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2888   01 0181F    6AF01587              BAL,15   PHASTEP           SINGLE STEP AND READ DISPLAY
     2889   01 01820    33C0000A A            MTW,-4   R10               DECREMENT REMAINING BYTE COUNT
     2890   01 01821    68001817              B        BRSTBYTI          CHECK FOR REMAINING BYTES


     2892   01 01822    6AF015BD     BRSTODDI BAL,15   PHASTORE         STORE PHASE SEQUENCE:
     2893   01 01823    08000000 A            DATA     X'08000000'
     2894   01 01824    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2895   01 01825    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2896   01 01826    33C0000B A            MTW,-4   R11               DECREMENT BC BY 4
     2897   01 01827    6800180E              B        BURSTIN+7         BEGIN DBWRD TRANSFER




     2899   01 01828    00000000 A   ORDINSV  DATA     0
     2900   01 01829    35F01828     ORDIN    STW,15   ORDINSV           SAVE R15 FOR RETURN
     2901   01 0182A    6AF01724              BAL,15   DATA              STEP THRU SIO,ORDOUT,&DATA
     2902   01 0182B    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2903   01 0182C    EC0E0F01 A            DATA     X'EC0E0F01'
     2904   01 0182D    07000000 A            DATA     X'07000000'
     2905   01 0182E    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2906   01 0182F    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2907   01 01830    E8001828              B        *ORDINSV          RETURN TO CALLER




     2909   01 01831    6AC015D6     PREPHS11 BAL,R12  PREPHSXX          SAVE R15 FOR RETURN
     2910   01 01832    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2911   01 01833    6AF016FE              BAL,15   ORDOUT            STEP THRU ORDOUT
     2912   01 01834    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2913   01 01835    EB0E0F01 A            DATA     X'EB0E0F01'
     2914   01 01836    04050607 A            DATA     X'04050607'
     2915   01 01837    0E0F0101 A            DATA     X'0E0F0101'
     2916   01 01838    07000000 A            DATA     X'07000000'
     2917   01 01839    2280000C A            LI,8     12                SET PHASTEP LOOP COUNT
     2918   01 0183A    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2919   01 0183B    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2921   01 0183C    6AC015D6     PREPHS12 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2922   01 0183D    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2923   01 0183E    6AF016FE              BAL,15   ORDOUT            STEP THRU ORDOUT AND SIO
     2924   01 0183F    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2925   01 01840    EA0E0F01 A            DATA     X'EA0E0F01'
     2926   01 01841    02020405 A            DATA     X'02020405'
     2927   01 01842    06070E0F A            DATA     X'06070E0F'
     2928   01 01843    01020700 A            DATA     X'01020700'
     2929   01 01844    2280000E A            LI,8     14                SET PHASTEP LOOP COUNT
     2930   01 01845    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2931   01 01846    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2933   01 01847    6AC015D6     PREPHS13 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2934   01 01848    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2935   01 01849    6AF01829              BAL,15   ORDIN             STEP THRU SIO,ORDOUT,DATA & ORDIN
     2936   01 0184A    331012D3              MTW,1    COMPSRV3          INHIBIT SIO PHASEING
     2937   01 0184B    33100000 A            MTW,1    R0                BUMP CMND DBWRD ADDR
     2938   01 0184C    6AF01724              BAL,15   DATA              STEP THRU ORDOUT AND DATA
     2939   01 0184D    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2941   01 0184E    6AC015D6     PREPHS14 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2942   01 0184F    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2943   01 01850    6AF01829              BAL,15   ORDIN             STEP THRU SIO,ORDOUT,DATA & ORDIN
     2944   01 01851    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2945   01 01852    E90E0F01 A            DATA     X'E90E0F01'
     2946   01 01853    04050405 A            DATA     X'04050405'
     2947   01 01854    06070000 A            DATA     X'06070000'
     2948   01 01855    22800009 A            LI,8     9                 SET PHASTEP LOOP COUNT
     2949   01 01856    6AF01587              BAL,15   PHASTEP           SINGLE STEP AND READ DISPLAY
     2950   01 01857    331012D4              MTW,1    COMPSRV4          INHIBIT ORDOUT PHASEING
     2951   01 01858    22000926              LI,R0    DA(CMDT29B)       FETCH NEW DA OF CHAINED CMND
     2952   01 01859    6AF01724              BAL,15   DATA              STEP THRU DATA IN
     2953   01 0185A    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2955   01 0185B    6AC015D6     PREPHS15 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2956   01 0185C    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2957   01 0185D    6AF01829              BAL,15   ORDIN             STEP THRU SIO,ORDOUT,DATA &ORDIN
     2958   01 0185E    6AF015BD              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2959   01 0185F    E90E0F01 A            DATA     X'E90E0F01'
     2960   01 01860    04050405 A            DATA     X'04050405'
     2961   01 01861    07000000 A            DATA     X'07000000'
     2962   01 01862    22800008 A            LI,8     8                 SET PHASTEP LOOP COUNT
     2963   01 01863    6AF01587              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2964   01 01864    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2966   01 01865    6AC015D6     PREPHS16 BAL,R12  PREPHSXX          CHECK FOR SINGLE PHASE
     2967   01 01866    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2968   01 01867    6AF016C7              BAL,R15  SIO               STEP THRU SIO
     2969   01 01868    328034F8              LW,R8    =X'4000000'       UNUSUAL END CONTROL BIT
     2970   01 01869    ED80129E              WD,R8    *GP14             INVOKE UNE - CHA. A
     2971   01 0186A    331012D3              MTW,1    COMPSRV3          INHIBIT SIO PHASEING
     2972   01 0186B    6AF016FE              BAL,R15  ORDOUT            STEP THRU ORDER OUT
     2973   01 0186C    22401717              LI,R4    PREPHS10+4        SET ORDIN RETURN TO
     2974   01 0186D    35401828              STW,R4   ORDINSV            AIO PROCESSOR
     2975   01 0186E    3310133A              MTW,1    PHASEAIO          INHIBIT AIO IN HANDLER
     2976   01 0186F    6800182B              B        ORDIN+2           STEP THRU ORDER IN AND AIO


     2978   01 01870    6AC015D6     PREPHS17 BAL,R12  PREPHSXX          CHECK FOR SINGLE PHASE
     2979   01 01871    35F01339              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2980   01 01872    358013B3              STW,R8   WDSAVE            SAVE WRITE DIRECT DATA
     2981   01 01873    6AF016C7              BAL,R15  SIO               STEP THRU SIO
     2982   01 01874    328013B3              LW,R8    WDSAVE            FETCH WRITE DIRECT DATA
     2983   01 01875    ED80129D              WD,R8    *GP13             SET BAD PARITY - CHA. A
     2984   01 01876    331012D3              MTW,1    COMPSRV3          INHIBIT SIO PHASEING
     2985   01 01877    6AF016FE              BAL,R15  ORDOUT            STEP THRU ORDOUT, DATA AND ORDIN
     2986   01 01878    6AF015BD              BAL,R15  PHASTORE          STORE PHASE SEQUENCE:
     2987   01 01879    EB0E0F01 A            DATA     X'EB0E0F01'
     2988   01 0187A    01070000 A            DATA     X'01070000'
     2989   01 0187B    22800005 A            LI,R8    5                 SET PHASE STEP LOOP COUNT
     2990   01 0187C    6AF01587              BAL,R15  PHASTEP           SINGLE PHASE AND READ DISPLAY
     2991   01 0187D    22401880              LI,R4    %+3
     2992   01 0187E    35401828              STW,R4   ORDINSV           SET LOCAL RETURN
     2993   01 0187F    6800182B              B        ORDIN+2           STEP THRU ORDER IN
     2994   01 01880    68001605              B        DISPLAYX          GO TO OUTPUT ROUTINES
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   12
A    2996   01 01881    330012F6     COMPARE  MTW,0    FINDCOOK          SKIP SEARCH IF
     2997   01 01882    68301893              BEZ      READONE            COOKBOOT DATA LOCATED
     2998   01 01883    22F00000 A            LI,15    0                 SET DATA-FOUND FLAG
     2999   01 01884    35F012F6              STW,15   FINDCOOK

     3001   01 01885    22000945     FINDATA  LI,R0    DA(FILEFWD)
     3002   01 01886    6AF01900              BAL,R15  RECOUT            SPACE FILE FWD.

     3004   01 01887    22000946     LUKDATA  LI,R0    DA(READREC)
     3005   01 01888    6AF01900              BAL,R15  RECOUT            READ A RECORD
     3006   01 01889    CE1012FF              TDV,R1   *GENADR           QUICK CHECK FOR
     3007   01 0188A    4B1034F9              AND,R1   =X'10000000'       EOF (END OF TAPE)
     3008   01 0188B    6830188F              BEZ      READTWO
     3009   01 0188C    22000949              LI,R0    DA(TAPEREW)       REWIND IF EOT REACHED
     3010   01 0188D    6AF01900              BAL,R15  RECOUT
     3011   01 0188E    68001887              B        LUKDATA

     3013   01 0188F    324034FA     READTWO  LW,R4    =X'DECA6600'      = FIRST WORD OF 1ST RECORD
     3014   01 01890    31403821              CW,R4    ENDADDR+401       IS THIS COOKDATA START?
     3015   01 01891    69301885              BNE      FINDATA           NO-- TRY AGAIN
     3016   01 01892    6800189E              B        STRTCOMP          BEGIN COMPARE

     3018   01 01893    22000946     READONE  LI,R0    DA(READREC)
     3019   01 01894    6AF01900              BAL,R15  RECOUT            READ A RECORD
     3020   01 01895    CE1012FF              TDV,R1   *GENADR           TEST FOR E.O.F.
     3021   01 01896    4B1034F9              AND,R1   =X'10000000'      WAS E.O.F. SET?
     3022   01 01897    6830189E              BEZ      STRTCOMP          BRANCH IF NOT
     3023   01 01898    22000947              LI,R0    DA(FILEBACK)
     3024   01 01899    6AF01900              BAL,R15  RECOUT            BACK SPACE ONE FILE
     3025   01 0189A    22000947              LI,R0    DA(FILEBACK)
     3026   01 0189B    6AF01900              BAL,R15  RECOUT            BACK SPACE ONE FILE
     3027   01 0189C    22000945              LI,R0    DA(FILEFWD)       SPACE FWD ONE FILE
     3028   01 0189D    6AF01900              BAL,R15  RECOUT

     3030   01 0189E    32403691     STRTCOMP LW,R4    ENDADDR+1         FETCH RECORD LABEL
     3031   01 0189F    31403821              CW,R4    ENDADDR+401       IS THIS DATA FOR CURRENT TEST?
     3032   01 018A0    69301893              BNE      READONE            SKIP TO READ IF NOT            *G02

     3034   01 018A1    330013E2              MTW,0    SIGMA7            CHECK FOR 7-LIKE MIOP           *G02
     3035   01 018A2    683018AE              BEZ      CONTCOMP           SKIP TO COMPARE IF NOT         *G02

     3037   01 018A3    32201330              LW,R2    NEXTEST           CHECK FOR SPECIAL RANGE         *G02
     3038   01 018A4    21202DA3              CI,R2    T8000              (8000<=T<=8166)                *G02
     3039   01 018A5    691018AE              BL       CONTCOMP            AND SKIP TO COMPARE IF NOT    *G02
     3040   01 018A6    21202E9C              CI,R2    T8166                                             *G02
     3041   01 018A7    692018AE              BG       CONTCOMP                                          *G02

     3043   01 018A8    322036B8              LW,R2    ENDADDR+30+8+2    ELSE MODIFY CURRENT AND         *G02
     3044   01 018A9    4B2034F3              AND,R2   =X'FF'             COOKBOOK DATA: SIO, PH10,      *G02
     3045   01 018AA    352036B8              STW,R2   ENDADDR+30+8+2      GROUP 13/12.                  *G02

     3047   01 018AB    32203848              LW,R2    ENDADDR+30+8+402  ONLY COMPARE MS DATA            *G02
     3048   01 018AC    4B2034F3              AND,R2   =X'FF'             BYTE A                         *G02
     3049   01 018AD    35203848              STW,R2   ENDADDR+30+8+402                                  *G02

     3051         01 018AE           CONTCOMP EQU      %                                                 *G02
     3052   01 018AE    22200000 A            LI,R2    0                 CLEAR INDEX REGISTERS
     3053   01 018AF    22300001 A            LI,R3    1
     3054   01 018B0    22700000 A            LI,R7    0
     3055   01 018B1    22E00000 A            LI,R14   0
     3056   01 018B2    35E01324              STW,R14  MISCOMP           CLEAR MISCOMPARE INDICATER

     3058   01 018B3    724E1376     COMPLINE LB,4     SEQBUFF,7         FETCH SEQUENCE CONTROL BYTE
     3059   01 018B4    693018B6              BCS,3    %+2
     3060   01 018B5    6AF0162C              BAL,15   PREDRIVE          CHECK FOR FOLDOVER
     3061   01 018B6    21400010 A            CI,4     X'10'             DOES BYTE = HEADING DESCRIPTOR?
     3062   01 018B7    691018B9              BCS,1    %+2               BRANCH IF NOT
     3063   01 018B8    6AF01634              BAL,15   HEADOUT           OUTPUT APPROPRIATE HEADING
     3064   01 018B9    5288133D              LH,8     PHASNUMB,4        FETCH PHASE NUMBER, INDEXED
     3065   01 018BA    22500005 A            LI,5     5                 SET STORE HALFWORD INDEX
     3066   01 018BB    558A338B              STH,8    DISPFORM,5        STR PHS NO. IN DISP LINE FORMAT
     3067   01 018BC    6AF016B8              BAL,15   LINESET           STORE LINE NO. IN DISP FORMAT
     3068   01 018BD    22900005 A            LI,9     5                 SET DATA STORE LOOP COUNT
     3069   01 018BE    22500004 A            LI,5     4                 INITIALIZE DATA STORE INDEX
     3070   01 018BF    353012D5              STW,3    COMPSTRT          SAVE LINESTART INDEX FOR COMPARE
     3071   01 018C0    35E0131A              STW,14   LINERR            CLEAR MISCOMPARE FLAG

     3073   01 018C1    32863821     COMPFILL LW,8     ENDADDR+401,3     FETCH COOKBOOK WORD, INDEXED
     3074   01 018C2    EA6003C3              #HTECON  8                 CONVERT TO EBCDIC
            01 018C3    00000008 A
     3075   01 018C4    32AC0000 A            LW,10    0,6               FETCH EBCDIC FOR BITS 0-15
     3076   01 018C5    35AA338B              STW,10   DISPFORM,5        STORE IN LINE BUFFER
     3077   01 018C6    20500001 A            AI,5     1                 INCREMENT DATA STORE INDEX
     3078   01 018C7    32AC0001 A            LW,10    1,6               FETCH EBCDIC FOR BITS 12-31
     3079   01 018C8    35AA338B              STW,10   DISPFORM,5        STORE IN DISPLAY LINE FORMAT
     3080   01 018C9    20500002 A            AI,5     2                 INCREMENT DATA STORE INDEX
     3081   01 018CA    20300001 A            AI,3     1                 INCREMENT DATA FETCH INDEX
     3082   01 018CB    649018C1              BDR,9    COMPFILL          LOOP FOR FIVE DISPLAY GROUPS
     3083   01 018CC    3300134A              MTW,0    PUTOUT            SHOULD DISPLAY BE OUTPUT?
     3084   01 018CD    683018D0              BCR,3    %+3               BRANCH IF NOT
     3085   01 018CE    EA6003CD              #PRINT   DISPFORM          OUTPUT FORMATTED LINE
            01 018CF    C000CE2C A


     3087   01 018D0    323012D5              LW,3     COMPSTRT          FETCH STARTING ADDR. OF COOKBOOK
     3088   01 018D1    22900005 A            LI,9     5                 SET DATA STORE LOOP COUNT
     3089   01 018D2    22500004 A            LI,5     4                 INITAILIZE DATA STORE INDEX


     3091   01 018D3    32843691     LINEFILL LW,8     ENDADDR+1,2       FETCH "ACTUAL" READING
     3092   01 018D4    32463821              LW,4     ENDADDR+401,3     FETCH COOKBOOK READING
     3093   01 018D5    31800004 A            CW,8     4                 DOES ACTUAL = COOKBOOK
     3094   01 018D6    683018DB              BE       LINEF0             SKIP IF EQUAL                  *G02

     3096         01 018D7           LINEF1   EQU      %                                                 *G02
     3097   01 018D7    33101324              MTW,1    MISCOMP           SET MISCOMPARE FLAG
     3098   01 018D8    3310131A              MTW,1    LINERR            FLAG THIS LINE FOR COMPARE ERR
     3099   01 018D9    324013B7              LW,4     %ERRFLAG          FETCH ERROR INDICATOR
     3100   01 018DA    680018DC              B        %+2

     3102         01 018DB           LINEF0   EQU      %                                                 *G02
     3103   01 018DB    324013B8              LW,4     %SPACES           FETCH SPACE CODEING
     3104   01 018DC    33F00005 A            MTW,15   5                 DECREMENT STORE INDEX
     3105   01 018DD    354A3378              STW,4    DISPERR,5         STORE IN ERR DISPLAY BUFFER
     3106   01 018DE    33100005 A            MTW,1    5                 RESTORE DAT STORE INDEX
     3107   01 018DF    EA6003C3              #HTECON  8                 CONVERT TO EBCDIC
            01 018E0    00000008 A
     3108   01 018E1    32AC0000 A            LW,10    0,6               FETCH EBCDIC FOR BITS 0-15
     3109   01 018E2    35AA3378              STW,10   DISPERR,5         STORE IN ERR DISPLAY BUFFER
     3110   01 018E3    20500001 A            AI,5     1                 INCREMENT DATA STORE INDEX
     3111   01 018E4    32AC0001 A            LW,10    1,6               FETCH EBCDIC FOR BITS 12-31
     3112   01 018E5    35AA3378              STW,10   DISPERR,5         STORE IN ERR DISPLAY BUFFER
     3113   01 018E6    20500002 A            AI,5     2                 INCREMENT DATA STORE INDEX
     3114   01 018E7    20300001 A            AI,3     1                 INCREMENT COOKBOOK DATA INDEX
     3115   01 018E8    20200001 A            AI,2     1                 INCREMENT OUTBUFF DATA INDEX
     3116   01 018E9    649018D3              BDR,9    LINEFILL          LOOP FOR FIVE DATA GROUPS
     3117   01 018EA    33100007 A            MTW,1    7                 INCREMENT SEQUENCER INDEX
     3118   01 018EB    3300131A              MTW,0    LINERR            DID MISCOMPARISON OCCUR?
     3119   01 018EC    683018F1              BCR,3    LNFL20            BRANCH IF NOT
     3120   01 018ED    3300134A              MTW,0    PUTOUT            SHOULD DISPLAY BE OUTPUT?
     3121   01 018EE    683018F1              BCR,3    LNFL20            BRANCH IF NOT
     3122   01 018EF    EA6003CD              #PRINT   DISPERR           OUTPUT ERR LINE
            01 018F0    C000CDE0 A
     3123   01 018F1    20200005 A   LNFL20   AI,2     5                 SET ALTERNATE GRP INDEX
     3124   01 018F2    20300005 A            AI,3     5                 SET ALTERNATE COMPARE INDEX
     3125   01 018F3    680018B3              B        COMPLINE          LOOP FOR NEXT LINE

     3127   01 018F4    724E1376     TAPEGEN  LB,R4    SEQBUFF,7         FETCH CONTROL BYTE
     3128   01 018F5    683018FB              BCR,3    %+6               EXIT IF = ZERO
     3129   01 018F6    21400010 A            CI,R4    X'10'             DOES BYTE = PHASE DESCRIPTOR?
     3130   01 018F7    692018F9              BCS,2    %+2               BRANCH IF NOT
     3131   01 018F8    20200028 A            AI,R2    40                40 BYTES/PHASE
     3132   01 018F9    20700001 A            AI,R7    1                 INCREMENT CONTROL BYTE INDEX
     3133   01 018FA    680018F4              B        TAPEGEN           LOOP TILL CONTROL BYTE  = 0.
     3134   01 018FB    20200004 A            AI,R2    4                 4 BYTES FOR RECORD LABEL
     3135   01 018FC    35201291              STW,R2   TAPECMND+1        SET BYTE COUNT
     3136   01 018FD    22000948              LI,R0    DA(TAPECMND)      DEDICATE R0 TO CMND ADDR.
     3137   01 018FE    6AF01900              BAL,R15  RECOUT            OUTPUT RECORD
     3138   01 018FF    680017A0              B        DRIVER            RETURN TO DRIVER.
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   13
A    3140   01 01900    32D012FF     RECOUT   LW,R13   GENADR            DOES OUTPUT ADDR. = TEST ADDR.
     3141   01 01901    4BD034FB              AND,R13  =X'1F00'
     3142   01 01902    31D01312              CW,R13   IOPNO
     3143   01 01903    69301908              BNE      REC10
     3144   01 01904    35E012E6              STW,R14  DCOFFA
     3145   01 01905    EDE0129F              WD,R14   *GP15
     3146   01 01906    22CFD8F0 A            LI,R12   -10000
     3147   01 01907    65C01907              BIR,R12  %                 DELAY
     3148   01 01908    CD1012FF     REC10    TIO,1    *GENADR           TEST I/O
     3149   01 01909    68C0190B              BCR,12   %+2
     3150   01 0190A    2E000000 A            WAIT                       I/O ADDRESS NOT RECOGNIZED
     3151                            *                                   NOT ACCEPTED:  TAPE UNIT BUSY
     3152                            *                                   OR DEVICE INTRPT PENDING.
     3153   01 0190B    4B1034F9              AND,1    =X'10000000'
     3154   01 0190C    6930190E              BCS,3    %+2
     3155   01 0190D    2E000000 A            WAIT                       TAPE UNIT IS IN MANUAL
     3156   01 0190E    2240000A A            LI,4     10                SET WRITE REPEAT COUNT
     3157   01 0190F    CC8012FF     REC11    SIO,8    *GENADR           START I/O
     3158   01 01910    22C00064 A            LI,12    100
     3159   01 01911    64C01911              BDR,12   %                 DELAY, AVOID CHANNEL OVERRUN
     3160   01 01912    CDC012FF              TIO,R12  *GENADR           TEST I/O FOR TDE
     3161   01 01913    69C01910              BCS,12   %-3               LOOP UNTIL ACCEPTED
     3162   01 01914    4BD034ED              AND,R13  =X'00400000'      WAS TDE SET?
     3163   01 01915    E830000F A            BEZ      *15               IF NO ERROR, RETURN
     3164   01 01916    32100000 A            LW,1     0                  ELSE SAVE COMMAND
     3165   01 01917    12C20000 A            LD,R12   0,R1              FETCH FAILING COMMAND
     3166   01 01918    72C0000C A            LB,R12   R12                LOOK AT ORDER-BYTE
     3167   01 01919    21C00002 A            CI,R12   X'02'               DO NOT RECOVER ERRORS
     3168   01 0191A    E920000F A            BG       *15                  ON NON-TRANSFER ORDERS
     3169   01 0191B    22000943              LI,0     DA(RECBACK)       FETCH CMND DOUBLEWORD
     3170   01 0191C    CC8012FF              SIO,8    *GENADR           SPACE BACKWARD ONE RECORD
     3171   01 0191D    22C00064 A            LI,12    100               WAIT FOR I/O COMPLETION
     3172   01 0191E    64C0191E              BDR,12   %
     3173   01 0191F    CDC012FF              TIO,12   *GENADR
     3174   01 01920    69C0191D              BCS,12   %-3
     3175   01 01921    32000001 A            LW,0     1                 RESTORE ORIGINAL POINTER
     3176   01 01922    6440190F              BDR,4    REC11              LOOP IF RETRIES LEFT
     3177   01 01923    2E000000 A            WAIT                         ELSE STOP AND WAIT
     3178   01 01924    6800190E              B        REC11-1              FOR OPERATOR RESTART
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   14
A    3180                            **********************************************************************
     3181                            *                                                                     *
     3182                            *        INTERRUPT-TRAP HANDLER ROUTINES                              *
     3183                            *                                                                     *
     3184                            **********************************************************************
     3185                            *
     3186                            *                 INSTRUCTION EXCEPTION TRAP HANDLER/PRE-HANDLER (4D)
     3187         01 01925           IET      EQU      %
     3188   01 01925    74001304              STCF     IETTCC04          SAVE TCC 0-4
     3189   01 01926    1520138C              STD,R2   SAVREG+4          SAVE
     3190   01 01927    70200392              LC       #SENSE            CHECK FOR SHORT LOOP OPTION
     3191   01 01928    69801939              BCS,8    IET70              YES
     3192   01 01929    69101933              BCS,1    IET60             SUPPRESS PRINT
     3193   01 0192A    22201933              LI,R2    IET60
     3194   01 0192B    352003AF              STW,R2   #TRAPLNK
     3195   01 0192C    122013BA              LD,R2    IETT              RESTORE ORIGINAL PSD
     3196   01 0192D    95201364              STD,R2   *SAVEGIET
     3197   01 0192E    22300008 A            LI,R3    8                 STORE TCC 0-4 IN GUIDE PSD
     3198   01 0192F    72201304              LB,R2    IETTCC04
     3199   01 01930    F5261364              STB,R2   *SAVEGIET,X3
     3200   01 01931    22200001 A            LI,R2    1                 RETURN TO GUIDE PARITY TRAP HANDLER
     3201   01 01932    8E041364              LPSD,0   *SAVEGIET,X2
     3202   01 01933    70200392     IET60    LC       #SENSE            HALT ON ERROR CONDITION
     3203   01 01934    69201939              BCS,2    IET70
     3204   01 01935    22201939              LI,R2    IET70
     3205   01 01936    35201302              STW,R2   IDLINK
     3206   01 01937    1220138C              LD,R2    SAVREG+4          RESTORE REGISTERS
     3207   01 01938    0E10135C              LPSD,1   RTIDLE            RETURN TO IDLE STATE
     3208   01 01939    331013BA     IET70    MTW,1    IETT              RETURN+1
     3209   01 0193A    22200000 A            LI,R2    0
     3210   01 0193B    352003AF              STW,R2   #TRAPLNK          CANCEL TRAP LINK FOR GUIDE
     3211   01 0193C    1220138C              LD,R2    SAVREG+4          RESTORE REGISTERS
     3212   01 0193D    0E1013BA              LPSD,1   IETT              CLEAR PDF AND RETURN
     3213                            *
     3214                            *                 I/O INTERRUPT HANDLER/PRE-HANDLER (5C)
     3215         01 0193E           IOINTR   EQU      %
     3216   01 0193E    15201392              STD,R2   SAVREG+10         SAVE REGISTERS
     3217   01 0193F    330012A1              MTW,0    AIOSKIP           IS AIO TO BE EXECUTED BY IOINTR
     3218   01 01940    69301953              BCS,3    IOT70-2           NO,SKIP AIO EXECUTION
     3219   01 01941    3300133A              MTW,0    PHASEAIO          IS THIS A SINGLE PHASE PASS
     3220   01 01942    69301955              BCS,3    IOT70
     3221   01 01943    3300130F              MTW,0    IOINTRSW          EXPECTED IO INTERRUPT
     3222   01 01944    6920194E              BCS,2    IOT60             YES
     3223   01 01945    70200392              LC       #SENSE
     3224   01 01946    6980194E              BCS,8    IOT60             CHECK FOR SHORT LOOP OPTION
     3225   01 01947    6910195E              BCS,1    IOT75             SUPPRESS PRINT
     3226   01 01948    22201961              LI,R2    IOT80             NO-- GO TO GUIDE
     3227   01 01949    352003AF              STW,R2   #TRAPLNK
     3228   01 0194A    122013BE              LD,R2    IOI               RETURN TO GUIDE I/O
     3229   01 0194B    95201366              STD,R2   *SAVEGIO           INTERRUPT HANDLER
     3230   01 0194C    22200001 A            LI,R2    1
     3231   01 0194D    8E041366              LPSD,0   *SAVEGIO,X2
     3232   01 0194E    22200000 A   IOT60    LI,R2    0                 CLEAR I/O INTERRUPT SWITCH
     3233   01 0194F    3520130F              STW,R2   IOINTRSW
     3234   01 01950    6E200000 A            AIO,R2   0                 ACKNOWLEDGE INTERRUPT
     3235   01 01951    740012A0              STCF     AIOCC             SAVE CONDITION CODES
     3236   01 01952    352012A2              STW,R2   AIOSTATS          SAVE STATUS
     3237   01 01953    3220130E              LW,R2    INTRTN            DETERMINE INTERRUPT RETURN
     3238   01 01954    352013BE              STW,R2   IOI               OLD PSD
     3239   01 01955    322013BF     IOT70    LW,R2    IOI+1             ASSURE I/O INTERRUPT BIT IS SET
     3240   01 01956    492034FC              OR,R2    =X'2000000'
     3241   01 01957    352013BF              STW,R2   IOI+1             RESTORE
     3242   01 01958    22200000 A            LI,R2    0
     3243   01 01959    3520133A              STW,R2   PHASEAIO          CLEAR SINGLE PHASE AIO FLAG
     3244   01 0195A    352003AF              STW,R2   #TRAPLNK          CANCEL TRAP LINK FOR GUIDE
     3245   01 0195B    3520130F              STW,R2   IOINTRSW          RESET INT. EXPECTED SWITCH
     3246   01 0195C    12201392              LD,R2    SAVREG+10         RESTORE REGISTERS
     3247   01 0195D    0E2013BE              LPSD,2   IOI               CLEAR AND DISARM INTR. & RETURN
     3248   01 0195E    6E200000 A   IOT75    AIO,R2   0
     3249   01 0195F    740012A0              STCF     AIOCC
     3250   01 01960    352012A2              STW,R2   AIOSTATS
     3251         01 01961           IOT80    EQU      %
     3252   01 01961    70200392              LC       #SENSE
     3253   01 01962    6920195C              BCS,2    IOT75-2
     3254   01 01963    2220195C              LI,R2    IOT75-2           IDLE LINKAGE
     3255   01 01964    35201302              STW,R2   IDLINK
     3256   01 01965    12201392              LD,R2    SAVREG+10         RESTORE REGISTERS
     3257   01 01966    0E20135C              LPSD,2   RTIDLE            RETURN TO IDLE STATE
     3258                            *
     3259                            *                 MEMORY FAULT INTERRUPT HANDLER/PRE-HANDLER (57)
     3260         01 01967           MFITR    EQU      %
     3261   01 01967    15201390              STD,R2   SAVREG+8          SAVE REGISTERS
     3262   01 01968    70200392              LC       #SENSE            CHECK FOR SHORT LOOP
     3263   01 01969    69801978              BCS,8    MFI70
     3264   01 0196A    69101971              BCS,1    MFI50             TEST FOR HALT ON ERROR CONDITION
     3265   01 0196B    22201971              LI,R2    MFI50             NO-- TO GUIDE
     3266   01 0196C    352003AF              STW,R2   #TRAPLNK
     3267   01 0196D    122013C2              LD,R2    MFII              RESTORE ORIGINAL PSD
     3268   01 0196E    95201368              STD,R2   *SAVEGMFI
     3269   01 0196F    22200001 A            LI,R2    1                 RETURN TO GUIDE MFI
     3270   01 01970    8E041368              LPSD,0   *SAVEGMFI,X2
     3271   01 01971    6AF01C28     MFI50    BAL,R15  PURGEPTY          PURGE PARITY
     3272   01 01972    70200392              LC       #SENSE            TEST FOR HALT ON ERROR CONDITION
     3273   01 01973    69201979              BCS,2    MFI70+1
     3274   01 01974    22201979              LI,R2    MFI70+1           IDLE LINKAGE
     3275   01 01975    35201302              STW,R2   IDLINK
     3276   01 01976    12201390              LD,R2    SAVREG+8          RESTORE REGISTERS
     3277   01 01977    0E30135C              LPSD,3   RTIDLE            RETURN TO IDLE STATE
     3278   01 01978    6AF01C28     MFI70    BAL,R15  PURGEPTY
     3279   01 01979    22200000 A            LI,R2    0                 CANCEL GUIDE TRAP LINKAGE
     3280   01 0197A    352003AF              STW,R2   #TRAPLNK
     3281   01 0197B    12201390              LD,R2    SAVREG+8          RESTORE REGISTERS
     3282   01 0197C    0E3013C2              LPSD,3   MFII              CLEAR, ARM & RETURN
     3283                            *
     3284                            *                 PROCESSOR FAULT INTERRUPT HANDLER/PRE-HANDLER (56)
     3285         01 0197D           PFITR    EQU      %
     3286   01 0197D    1520138E              STD,R2   SAVREG+6          SAVE REGISTERS
     3287   01 0197E    32201310              LW,R2    IOPA              IOP ADDRESS
     3288   01 0197F    70200392              LC       #SENSE            CHECK FOR SHORT LOOP OPTION
     3289   01 01980    69801990              BCS,8    PFI70              YES
     3290   01 01981    69101988              BCS,1    PFI60             SUPPRESS PRINT
     3291   01 01982    22201988              LI,R2    PFI60             NO-- GO TO GUIDE
     3292   01 01983    352003AF              STW,R2   #TRAPLNK
     3293   01 01984    122013C6              LD,R2    PFII              RESTORE ORIGINAL PSD
     3294   01 01985    9520136A              STD,R2   *SAVEGPFI
     3295   01 01986    22200001 A            LI,R2    1                 RETURN TO GUIDE PFI
     3296   01 01987    8E04136A              LPSD,0   *SAVEGPFI,X2
     3297   01 01988    32201310     PFI60    LW,R2    IOPA
     3298   01 01989    4F34C000 A            POLR,R3  0,X2              RESET PFI
     3299   01 0198A    70200392              LC       #SENSE            TEST FOR HALT ON ERROR CONDITION
     3300   01 0198B    69201991              BCS,2    PFI70+1
     3301   01 0198C    22201991              LI,R2    PFI70+1           IDLE LINKAGE
     3302   01 0198D    35201302              STW,R2   IDLINK
     3303   01 0198E    1220138E              LD,R2    SAVREG+6          RESTORE REGISTERS
     3304   01 0198F    0E30135C              LPSD,3   RTIDLE            RETURN TO IDLE STATE
     3305   01 01990    4F34C000 A   PFI70    POLR,R3  0,X2              RESET PFI
     3306   01 01991    22200000 A            LI,R2    0                 CANCEL GUIDE TRAP LINKAGE
     3307   01 01992    352003AF              STW,R2   #TRAPLNK
     3308   01 01993    1220138E              LD,R2    SAVREG+6          RESTORE REGISTERS
     3309   01 01994    0E3013C6              LPSD,3   PFII              CLEAR INTERRUPT, REARM & RETURN
     3310                            *
     3311                            *                 PARITY TRAP HANDLER/PRE-HANDLER (4C)
     3312         01 01995           PT       EQU      %
     3313   01 01995    74001347              STCF     PTTCC04           SAVE TCC 0-4
     3314   01 01996    1520138A              STD,R2   SAVREG+2          SAVE REGISTERS
     3315   01 01997    22200400 A            LI,R2    X'400'            DISARM MFI
     3316   01 01998    6D201100 A            WD,R2    DISARM
     3317   01 01999    70200392              LC       #SENSE            CHECK FOR SHORT LOOP OPTION
     3318   01 0199A    698019AC              BCS,8    PT70               YES
     3319   01 0199B    691019A5              BCS,1    PT60              SUPPRESS PRINT
     3320   01 0199C    222019A5              LI,R2    PT60              NO-- GO TO GUIDE
     3321   01 0199D    352003AF              STW,R2   #TRAPLNK
     3322   01 0199E    122013CA              LD,R2    PTT               RESTORE ORIGINAL PSD
     3323   01 0199F    9520136C              STD,R2   *SAVEGPTY
     3324   01 019A0    22300008 A            LI,R3    8                 SAVE TCC 0-4 IN GUIDE PSD
     3325   01 019A1    72201347              LB,R2    PTTCC04
     3326   01 019A2    F526136C              STB,R2   *SAVEGPTY,X3
     3327   01 019A3    22200001 A            LI,R2    1                 RETURN TO GUIDE PARITY TRAP HANDLER
     3328   01 019A4    8E04136C              LPSD,0   *SAVEGPTY,X2
     3329   01 019A5    6AF01C28     PT60     BAL,R15  PURGEPTY
     3330   01 019A6    70200392              LC       #SENSE            TEST FOR HALT ON ERROR CONDITION
     3331   01 019A7    692019AD              BCS,2    PT70+1
     3332   01 019A8    222019AD              LI,R2    PT70+1            GUIDE IDLE LINKAGE
     3333   01 019A9    35201302              STW,R2   IDLINK
     3334   01 019AA    1220138A              LD,R2    SAVREG+2          RESTORE REGISTERS
     3335   01 019AB    0E10135C              LPSD,1   RTIDLE            RETURN TO IDLE STATE
     3336   01 019AC    6AF01C28     PT70     BAL,R15  PURGEPTY
     3337   01 019AD    22200400 A            LI,R2    X'400'            REARM MFI
     3338   01 019AE    6D201200 A            WD,R2    ARMABLE
     3339   01 019AF    22200000 A            LI,R2    0                 CANCEL GUIDE TRAP LINKAGE
     3340   01 019B0    352003AF              STW,R2   #TRAPLNK
     3341   01 019B1    331013CA              MTW,1    PTT               BUMP RETURN ADDRESS ONCE
     3342   01 019B2    1220138A              LD,R2    SAVREG+2          RESTORE REGISTERS
     3343   01 019B3    0E1013CA              LPSD,1   PTT               CLEAR PDF AND RETURN
     3344                            *
     3345                            *                 WATCHDOG TIMER TRAP HANDLER/PRE-HANDLER (46)
     3346         01 019B4           WDTRAP   EQU      %
     3347   01 019B4    740013B5              STCF     WDTTCC04          SAVE TCC 0-4
     3348   01 019B5    15201388              STD,R2   SAVREG            SAVE REGISTERS
     3349   01 019B6    722013B5              LB,R2    WDTTCC04          VERIFY TCC 0-4 TYPE
     3350   01 019B7    4B2034FD              AND,R2   =X'B0'            IF NOT PROCESSOR BUS, REPORT
     3351   01 019B8    692019BD              BCS,2    WDT20
     3352   01 019B9    330013B4              MTW,0    WDTIND            WAS TRAP EXPECTED
     3353   01 019BA    692019CF              BCS,2    WDT40             YES
     3354   01 019BB    3300133B              MTW,0    PHASFLAG          IS THIS SINGLE PHASE PASS?
     3355   01 019BC    693019D2              BCS,3    WDT60             IF SO, BRANCH AROUND WAIT.
     3356   01 019BD    70200392     WDT20    LC       #SENSE            CHECK FOR SHORT LOOP OPTION
     3357   01 019BE    698019D2              BCS,8    WDT60
     3358   01 019BF    691019C9              BCS,1    WDT30             SUPPRESS PRINTOPTION
     3359   01 019C0    222019C9              LI,R2    WDT30
     3360   01 019C1    352003AF              STW,R2   #TRAPLNK
     3361   01 019C2    122013CE              LD,R2    WDTT              STORE OLD PSD IN GUIDE
     3362   01 019C3    9520136E              STD,R2   *SAVEGWDT
     3363   01 019C4    22300008 A            LI,R3    8                 RESTORE TCC 0-4 IN GUIDE PSD
     3364   01 019C5    722013B5              LB,R2    WDTTCC04
     3365   01 019C6    F526136E              STB,R2   *SAVEGWDT,X3
     3366   01 019C7    22200001 A            LI,R2    1
     3367   01 019C8    8E04136E              LPSD,0   *SAVEGWDT,X2      GO TO GUIDE TRAP HANDLER
     3368   01 019C9    70200392     WDT30    LC       #SENSE            HALT ON ERROR CONDITION
     3369   01 019CA    692019CF              BCS,2    WDT40
     3370   01 019CB    222019D2              LI,R2    WDT60             RETURN LINKAGE FROM GUIDE IDLE
     3371   01 019CC    35201302              STW,R2   IDLINK
     3372   01 019CD    12201388              LD,R2    SAVREG            RESTORE REGISTERS
     3373   01 019CE    0E10135C              LPSD,1   RTIDLE            RETURN TO IDLE STATE
     3374   01 019CF    22200000 A   WDT40    LI,R2    0                 EXPECTED TRAP HANDLER
     3375   01 019D0    352013B4              STW,R2   WDTIND
     3376   01 019D1    352003AF              STW,R2   #TRAPLNK          CANCEL GUIDE TRAP LINKAGE
     3377   01 019D2    331013CE     WDT60    MTW,1    WDTT
     3378   01 019D3    12201388              LD,R2    SAVREG            RESTORE REGISTERS
     3379   01 019D4    0E1013CE              LPSD,1   WDTT              CLEAR PDF & RETURN
     3380                            **********************************************************************
     3381                            *                                                                     *
     3382                            *                 UTILITY SUBROUTINES                                 *
     3383                            *                                                                     *
     3384                            ***********************************************************************
     3385                            *
     3386                            *                 TEST FOR AN ACTIVE OUTPUT DEVICE.  IF NOT ACTIVE
     3387                            *                  RETURN DIRECT; IF ACTIVE, RETURN PLUS ONE.
     3388         01 019D5           ACTDVC   EQU      %
     3389   01 019D5    33001337              MTW,0    PCPMODE
     3390   01 019D6    E920000F A            BCS,2    *R15
     3391   01 019D7    6A601B5F              BAL,R6   PUTDVCON
     3392   01 019D8    CD001317              TIO,0    *KBDVC            KEYBOARD DEVICE
     3393   01 019D9    688019DF              BCR,8    ACT40             YES
     3394   01 019DA    CD00131C              TIO,0    *LPDVC            NO-- TRY LINE PRINTER DEVICE
     3395   01 019DB    688019DF              BCR,8    ACT40             YES
     3396   01 019DC    684019DF              BCR,4    ACT40             COULD BE A SELECTOR TYPE IOP
     3397   01 019DD    33101337              MTW,1    PCPMODE           YES
     3398   01 019DE    E800000F A            B        *R15
     3399   01 019DF    3310000F A   ACT40    MTW,1    R15               ACTIVE-- BUMP ONCE
     3400   01 019E0    E800000F A            B        *R15              RETURN
     3401                            *
     3402                            *
     3403                            *                 ADVANCE SERVICE PHASE
     3404                            * C(R0)= DOUBLE WORD ADDRESS OF THE COMMAND DOUBLE WORD; C(R1)= NUMBER
     3405                            * OF SERVICE CYCLES; C(R8)= MI CONTROL CONFIGURATION
     3406         01 019E1           ADVSCA   EQU      %
     3407   01 019E1    35F01370              STW,R15  SAVERTN           SAVE RETURN
     3408   01 019E2    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION CONTROL
     3409   01 019E3    ED801298              WD,R8    *GP08             SET SINGLE SERVICE
     3410   01 019E4    B2401330              LW,4     *NEXTEST          FETCH MODULE CONTROL WORD
     3411   01 019E5    25400070 A            SLS,4    -16               RIGHT JUSTIFY HEX TEST NUMBER
     3412   01 019E6    21407550 A            CI,4     X'7550'           IS THIS TEST #7550?
     3413   01 019E7    693019EB              BCS,3    %+4               BRANCH IF NOT
     3414   01 019E8    6AF0183C              BAL,R15  PREPHS12          SINGLE PHASE OR GIVE SYNC
     3415   01 019E9    CC001314              SIO,R0   *IOPMSADR         I/O
     3416   01 019EA    680019F9              B        ADA02             PROCEED WITH ADVANCE SERVICE
     3417   01 019EB    21407560 A            CI,4     X'7560'
     3418   01 019EC    693019F0              BCS,3    %+4
     3419   01 019ED    6AF01847              BAL,R15  PREPHS13
     3420   01 019EE    CC001314              SIO,R0   *IOPMSADR
     3421   01 019EF    680019F9              B        ADA02
     3422   01 019F0    21407630 A            CI,4     X'7630'           IS THIS TEST #7630?
     3423   01 019F1    683019F4              BCR,3    %+3               IF SO, BRANCH
     3424   01 019F2    21407640 A            CI,4     X'7640'           IS THIS TEST #7640?
     3425   01 019F3    693019F7              BCS,3    %+4               BRANCH IF NOT
     3426   01 019F4    6AF0170F              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     3427   01 019F5    CC001314              SIO,R0   *IOPMSADR         I/O
     3428   01 019F6    680019F9              B        ADA02             PROCEED WITH SERVICE ADVANCE
     3429   01 019F7    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     3430   01 019F8    CC001314              SIO,R0   *IOPMSADR         INITIAL SERVICE
     3431         01 019F9           ADA02    EQU      %
     3432   01 019F9    33000001 A            MTW,0    R1                TEST FOR ADDITIONAL SERVICES
     3433   01 019FA    E8101370              BCR,1    *SAVERTN          ZERO, SKIP OUT
     3434   01 019FB    322034FE              LW,R2    =X'80000018'      NEG VALUE LESS 18
     3435   01 019FC    ED801298              WD,R8    *GP08             ADVANCE ONE SERVICE
     3436   01 019FD    64201A00              BDR,R2   %+3
     3437   01 019FE    EC001294              RD,R0    *DISPLAY
     3438   01 019FF    682019FD              BCR,2    %-2               WAIT FOR SNAP
     3439   01 01A00    651019FB              BIR,R1   ADA02+2           LOOP FOR INDICATED SERVICES
     3440   01 01A01    E8001370              B        *SAVERTN          RETURN
     3441                            *                 ARM I/O INTERRUPT
     3442         01 01A02           ARMIO    EQU      %
     3443   01 01A02    32C01315              LW,R12   IORETURN          NEW XPSD
     3444   01 01A03    35C0130E              STW,R12  INTRTN            RETURN CONTROL
     3445   01 01A04    22C00020 A            LI,R12   X'20'
     3446   01 01A05    6DC01200 A            WD,R12   ARMABLE
     3447   01 01A06    3310130F              MTW,1    IOINTRSW          SET INTERRUPT SWITCH
     3448   01 01A07    6D000022 A            WD,0     RESETIO           RESET I/O INHIBIT BIT
     3449   01 01A08    E800000F A            B        *R15              RETURN
     3450                            *
     3451                            *                 SET BURST & FOUR BYTE MODE IN MS (A)
     3452         01 01A09           BURSTA   EQU      %
     3453   01 01A09    32A01329              LW,R10   MSA               MS (A) DEVICE ADDRESS
     3454   01 01A0A    25A00010 A            SLS,R10  16                MOVE TO ADDRESS FIELD
     3455   01 01A0B    49A012E5              OR,R10   INDATA            MERGE DATA BYTE
     3456   01 01A0C    49A034FF              OR,R10   =X'C00'           'BM' & 'DX4' CONTROL BITS
     3457   01 01A0D    EDA0129D              WD,R10   *GP13             SET CONTROLS IN MS (A)
     3458   01 01A0E    E800000F A            B        *R15              RETURN
     3459                            *
     3460                            *                 CONDITION CODE 1 SET
     3461         01 01A0F           CC1      EQU      %
     3462   01 01A0F    68801411              BCR,8    BAD
     3463   01 01A10    680014D4              B        GOOD
     3464                            *
     3465                            *                 CONDITION CODE 1 NOT SET
     3466         01 01A11           NCC1     EQU      %
     3467   01 01A11    69801411              BCS,8    BAD
     3468   01 01A12    680014D4              B        GOOD
     3469                            *
     3470                            *                 CONDITION CODE 2 SET
     3471         01 01A13           CC2      EQU      %
     3472   01 01A13    68401411              BCR,4    BAD
     3473   01 01A14    680014D4              B        GOOD
     3474                            *
     3475                            *                 CONDITION CODE 2 NOT SET
     3476         01 01A15           NCC2     EQU      %
     3477   01 01A15    69401411              BCS,4    BAD
     3478   01 01A16    680014D4              B        GOOD
     3479                            *
     3480                            *                 CONDITION CODE 3 SET
     3481         01 01A17           CC3      EQU      %
     3482   01 01A17    68201411              BCR,2    BAD
     3483   01 01A18    680014D4              B        GOOD
     3484                            *
     3485                            *                 NOT CONDITION CODE 3
     3486         01 01A19           NCC3     EQU      %
     3487   01 01A19    69201411              BCS,2    BAD
     3488   01 01A1A    680014D4              B        GOOD
     3489                            *
     3490                            *                                  NOT CONDITION CODES 3 & 4
     3491         01 01A1B           NCC34    EQU      %
     3492   01 01A1B    69301411              BCS,3    BAD
     3493   01 01A1C    680014D4              B        GOOD
     3494                            *
     3495                            *                                  COMPARE C(R8) TO C(R9) & C(R10)
     3496         01 01A1D           CDREQUAL EQU      %                 TO C(R11)
     3497   01 01A1D    31800009 A            CW,R8    R9                C(R8)= EXPECTED, C(R9)= ACTUAL
     3498   01 01A1E    69301A22              BCS,3    CDE10             NOT EQUAL
     3499   01 01A1F    31A0000B A            CW,R10   R11               C(R10)= EXPECTED,C(R11)= ACTUAL
     3500   01 01A20    69301A22              BCS,3    CDE10             NOT EQUAL
     3501   01 01A21    680014D4              B        GOOD              OKAY--TO DRIVER
     3502   01 01A22    33101346     CDE10    MTW,1    PNTDBL            SET PRINT DOUBLE SWITCH
     3503   01 01A23    68001411              B        BAD               REPORT ERRORS
     3504                            *
     3505                            *        THIS ROUTINE DETERMINES IF ON-LINE OFF-LINE SWITCHING
     3506                            *        MUST BE INVOKED FOR OPERATOR COMMUNICATIONS.
     3507         01 01A24           CKDVCON  EQU      %
     3508   01 01A24    22C00000 A            LI,R12   0                 ZERO CONTROL FLAG
     3509   01 01A25    35C0130C              STW,R12  INHOUT
     3510   01 01A26    32C01317     CKT10    LW,R12   KBDVC             KEYBOARD?
     3511   01 01A27    4BC034FB              AND,R12  =X'1F00'
     3512   01 01A28    31C01310              CW,R12   IOPA              COMPARE IOP NUMBER
     3513   01 01A29    68301A3A              BCR,3    CKT60
     3514   01 01A2A    31C01311              CW,R12   IOPB
     3515   01 01A2B    68301A3A              BCR,3    CKT60
     3516   01 01A2C    32C0131C              LW,R12   LPDVC             NOT KEYBOARD, LINEPRINTER?
     3517   01 01A2D    4BC034FB              AND,R12  =X'1F00'
     3518   01 01A2E    31C01310              CW,R12   IOPA              COMPARE
     3519   01 01A2F    68301A3A              BCR,3    CKT60
     3520   01 01A30    31C01311              CW,R12   IOPB
     3521   01 01A31    68301A3A              BCR,3    CKT60
     3522   01 01A32    33000395              MTW,0    #MTLFLAG          IS MTL ON
     3523   01 01A33    E830000F A            BCR,3    *R15              NO
     3524   01 01A34    32C012FF              LW,R12   GENADR            YES-- CHECK TAPE ADDRESS
     3525   01 01A35    4BC034FB              AND,R12  =X'1F00'          MASK
     3526   01 01A36    31C01310              CW,R12   IOPA              CHANNEL A
     3527   01 01A37    68301A3A              BCR,3    CKT60             YES
     3528   01 01A38    31C01311              CW,R12   IOPB              CHANNEL B
     3529   01 01A39    E930000F A            BCS,3    *R15              NO
     3530   01 01A3A    22C00001 A   CKT60    LI,R12   1
     3531   01 01A3B    35C0130C              STW,R12  INHOUT            SET INHIBIT BIT
     3532   01 01A3C    E800000F A            B        *R15
     3533                            *
     3534                            *        THIS ROUTINE CONDITIONS THE VARIOUS IOP HARDWARE OPTION
     3535                            *        CONTROLS FROM THE CONTENTS OF THE GENERAL REGISTERS.
     3536         01 01A3D           CTLP     EQU      %
     3537   01 01A3D    35F01360              STW,R15  R15CTLP
     3538   01 01A3E    4B003500              AND,R0   =X'1FFF'
     3539   01 01A3F    35001317              STW,R0   KBDVC             COMMUNICATIONS IOP-DEVICE ADDRESS
     3540   01 01A40    35000396              STW,R0   #TOADDR           OUTPUT
     3541   01 01A41    4B103500              AND,R1   =X'1FFF'
     3542   01 01A42    3510131C              STW,R1   LPDVC             MESSAGE IOP-DEVICE ADDRESS
     3543   01 01A43    35100397              STW,R1   #PRTADDR          GUIDE PRINTER ADDRESS
     3544   01 01A44    321012D0              LW,R1    COMDVC            UPDATE LOADER MESSAGE
     3545   01 01A45    B5021004              STW,R0   *#LOADER@,X1       DEVICE ADDRESS
     3546   01 01A46    4B2034E8              AND,R2   =X'1EFF'          ASSURE CHANNEL 'A' ONLY
     3547   01 01A47    3520132D              STW,R2   MSADRA            COMPOSITE IOP & MS ADDRESS,CHL'A'
     3548   01 01A48    35201314              STW,R2   IOPMSADR
     3549   01 01A49    20200100 A            AI,R2    X'100'            INCREMENT FOR CHANNEL 'B'
     3550   01 01A4A    3520132E              STW,R2   MSADRB            COMPOSITE IOP & MS ADDRESS, CHL' B
     3551   01 01A4B    4B2034F3              AND,R2   =X'FF'
     3552   01 01A4C    35201329              STW,R2   MSA               MS DEVICE ADDRESS, CHANNEL 'A'
     3553   01 01A4D    3520132A              STW,R2   MSB
     3554   01 01A4E    3220132D              LW,R2    MSADRA            DETERMINE EXCLUSIVE IOP ADDRESS
     3555   01 01A4F    4B203501              AND,R2   =X'1E00'
     3556   01 01A50    35201310              STW,R2   IOPA              CHANNEL A IOP
     3557   01 01A51    20200100 A            AI,R2    X'100'
     3558   01 01A52    35201311              STW,R2   IOPB              CHANNEL B IOP
     3559   01 01A53    22200008 A            LI,R2    8                 GENERATE IOP-DEVICE ADDRESS
     3560   01 01A54    49201310              OR,R2    IOPA               FOR MEMORY TO MEMORY MOVE
     3561   01 01A55    35201327              STW,R2   MM8                OPTION
     3562   01 01A56    20200001 A            AI,R2    1
     3563   01 01A57    35201328              STW,R2   MM9
     3564   01 01A58    32201329              LW,R2    MSA
     3565   01 01A59    4B203502              AND,R2   =X'80'            CHECK FOR MULTI-DEVICE TYPE ADR
     3566   01 01A5A    68201A5F              BCR,2    CTLP02            NO
     3567   01 01A5B    3A201329              LCW,R2   MSA               YES-- 2'S COMPLEMENT
     3568   01 01A5C    202FFFFF A            AI,R2    -1                ONES COMPLEMENT
     3569   01 01A5D    4B203503              AND,R2   =X'70'            CONTROLLER ADR
     3570   01 01A5E    68001A62              B        CTLP03
     3571   01 01A5F    3A201329     CTLP02   LCW,R2   MSA               NO-- 2'S COMPLEMENT
     3572   01 01A60    202FFFFF A            AI,R2    -1                ONES COMPLEMENT
     3573   01 01A61    4B2034E7              AND,R2   =X'3F'            DC ADDRESS FIELD
     3574   01 01A62    49201310     CTLP03   OR,R2    IOPA              MERGE CURRENT IOP
     3575   01 01A63    3520132B              STW,R2   MSADRAP            ADDRESS & SAVE RESULTS
     3576   01 01A64    35201313              STW,R2   IOPMSAP
     3577   01 01A65    49203504              OR,R2    =X'100'           FOR BOTH CHANNELS A & B
     3578   01 01A66    3520132C              STW,R2   MSADRBP
     3579   01 01A67    4B303505              AND,R3   =X'7F'            MASK
     3580   01 01A68    353012E7              STW,R3   DIOADR            IOP DIO/MI ADDRESS
     3581   01 01A69    4B603506              AND,R6   =3                SET SUBCHANNEL OPTION
     3582   01 01A6A    356013A7              STW,R6   SUBCHLN            (SAME FOR BOTH)
     3583   01 01A6B    4B403507              AND,R4   =1                IS CHANNEL 'A' OFF
     3584   01 01A6C    354012C6              STW,R4   CHANNELA          CHANNEL 'A' OPTION
     3585   01 01A6D    68301A75              BEZ      CTLP04             SKIP IF NOT
     3586   01 01A6E    4B703507              AND,R7   =1
     3587   01 01A6F    357012FB              STW,R7   FOURBYTA          FOUR BYTE OPTION, CHANNEL 'A'
     3588   01 01A70    4B900007 A            AND,R9   R7                SPECIFY 4-BYTE IF BURST IS SPECIFIED
     3589   01 01A71    359012C1              STW,R9   BURSTCHA          BURST MODE, CHANNEL 'A'
     3590   01 01A72    4BB03507              AND,R11  =1
     3591   01 01A73    35B01326              STW,R11  MOVEOPTA          MOVE OPTION, CHANNEL 'A'
     3592   01 01A74    68001A78              B        CTLP08
     3593   01 01A75    354012FB     CTLP04   STW,R4   FOURBYTA          ZERO FOUR BYTE OPTION, CHANNEL 'A'
     3594   01 01A76    354012C1              STW,R4   BURSTCHA          ZERO BURST MODE, CHANNEL 'A'
     3595   01 01A77    35401326              STW,R4   MOVEOPTA          ZERO MOVE OPTION, CHANNEL 'A'
     3596   01 01A78    4B503507     CTLP08   AND,R5   =1                IS CHANNEL 'B' OFF
     3597   01 01A79    355012C7              STW,R5   CHANNELB          CHANNEL 'B' OPTION
     3598   01 01A7A    68301A80              BCR,3    CTLP12            NO
     3599   01 01A7B    4B803507              AND,R8   =1
     3600   01 01A7C    358012FC              STW,R8   FOURBYTB          FOUR BYTE OPTION, CHANNEL 'B'
     3601   01 01A7D    4BA00008 A            AND,R10  R8                SPECIFY 4-BYTE IF BURST IS SPECIFIED
     3602   01 01A7E    35A012C2              STW,R10  BURSTCHB          BURST MODE, CHANNEL 'B'
     3603   01 01A7F    68001A82              B        CTLP16
     3604   01 01A80    355012FC     CTLP12   STW,R5   FOURBYTB          ZERO FOUR BYTE OPTION, CHANNEL 'B'
     3605   01 01A81    355012C2              STW,R5   BURSTCHB          ZERO BURST MODE, CHANNEL 'B'
     3606         01 01A82           CTLP16   EQU      %
     3607   01 01A82    32A01329              LW,R10   MSA               MAINTENANCE SUBCONTROLLER ADDRESS
     3608   01 01A83    6AC01C38              BAL,R12  SETADPTY          GENERATE PARITY
     3609   01 01A84    35A01329              STW,R10  MSA               ADD PARITY
     3610   01 01A85    22C00000 A            LI,R12   0
     3611   01 01A86    330012C6              MTW,0    CHANNELA          TEST FOR CHANNEL B OPTION
     3612   01 01A87    69301A8B              BCS,3    %+4
     3613   01 01A88    330012C7              MTW,0    CHANNELB
     3614   01 01A89    68301A8B              BCR,3    %+2
     3615   01 01A8A    22C00008 A            LI,R12   8
     3616   01 01A8B    35C012C8              STW,R12  CHBCTRL           CHANNEL B GROUP BIAS CONTROL
     3617   01 01A8C    6AF01AF5              BAL,R15  GPCTRL            UPDATE CURRENT GROUP ADDRESS
     3618   01 01A8D    6AF01A8F              BAL,R15  CVTPRAM           UPDATE PARAMETER LINES
     3619   01 01A8E    E8001360              B        *R15CTLP
     3620                            *
     3621                            *        CONVERT MANUAL ENTRIES TO EBCDIC AND INSERT IN PARAMETER FIELD
     3622         01 01A8F           CVTPRAM  EQU      %
     3623   01 01A8F    22100001 A            LI,R1    1                 BYTE POSITIONS
     3624   01 01A90    22200002 A            LI,R2    2
     3625   01 01A91    22300003 A            LI,R3    3
     3626   01 01A92    EA6003C3              #HTECON  LPDVC             CONVERT MESSAGE  IOP-DEVICE NUMBER
            01 01A93    0000131C
     3627   01 01A94    B2A20006 A            LW,R10   *R6,X1            SAVE IN PRINT PARAMETER LINE
     3628   01 01A95    55A03325              STH,R10  PLINE#J+1
     3629   01 01A96    25A00270 A            SCS,R10  -16
     3630   01 01A97    55A23324              STH,R10  PLINE#J,X1
     3631   01 01A98    EA6003C3              #HTECON  KBDVC             CONVERT COMMUNICATION IOP-DEVICE
            01 01A99    00001317
     3632   01 01A9A    B2A20006 A            LW,R10   *R6,X1             NUMBER
     3633   01 01A9B    75A03327              STB,R10  PLINE#J+3         SAVE IN PARAMETER LINE
     3634   01 01A9C    25A00278 A            SCS,R10  -8
     3635   01 01A9D    22B00040 A            LI,R11   X'40'
     3636   01 01A9E    75B0000A A            STB,R11  R10
     3637   01 01A9F    35A03326              STW,R10  PLINE#J+2
     3638   01 01AA0    EA6003C3              #HTECON  MSADRA            CONVERT IOP-MS ADDRESS TO EBCDIC
            01 01AA1    0000132D
     3639   01 01AA2    B2A20006 A            LW,R10   *R6,X1
     3640   01 01AA3    55A0332D              STH,R10  PLINE#OP+1        SAVE IN PARAMETER LINE
     3641   01 01AA4    25A00270 A            SCS,R10  -16
     3642   01 01AA5    55A2332C              STH,R10  PLINE#OP,X1
     3643   01 01AA6    EA6003C3              #HTECON  DIOADR            CONVERT DIO-MI ADDRESS TO EBCDIC
            01 01AA7    000012E7
     3644   01 01AA8    B2A20006 A            LW,R10   *R6,X1
     3645   01 01AA9    22B04040 A            LI,R11   X'4040'
     3646   01 01AAA    55B0000A A            STH,R11  R10
     3647   01 01AAB    25A00208 A            SCS,R10  8                 SAVE IN PARAMETER LINE
     3648   01 01AAC    35A0332E              STW,R10  PLINE#OP+2
     3649   01 01AAD    32A012C6              LW,R10   CHANNELA          CONVERT CHANNEL 'A' OPTION
     3650   01 01AAE    20A000F0 A            AI,R10   X'F0'              BIT TO EBCDIC
     3651   01 01AAF    75A4332F              STB,R10  PLINE#OP+3,X2
     3652   01 01AB0    32A012C7              LW,R10   CHANNELB          CONVERT CHANNEL 'B' OPTION BIT TO
     3653   01 01AB1    20A000F0 A            AI,R10   X'F0'              EBCDIC
     3654   01 01AB2    75A03330              STB,R10  PLINE#OP+4        SAVE IN PARAMETER LINE
     3655   01 01AB3    32A013A7              LW,R10   SUBCHLN           CONVERT SUBCHANNEL INDICATOR
     3656   01 01AB4    20A000F0 A            AI,R10   X'F0'              TO EBCDIC
     3657   01 01AB5    75A03331              STB,R10  PLINE#OP+5        SAVE IN PARAMETER LINE
     3658   01 01AB6    32A012FB              LW,R10   FOURBYTA          CONVERT FOUR BYTE INDICATOR TO
     3659   01 01AB7    20A000F0 A            AI,R10   X'F0'              EBCDIC
     3660   01 01AB8    75A23332              STB,R10  PLINE#OP+6,X1     SAVE IN PARAMETER LINE
     3661   01 01AB9    32A012FC              LW,R10   FOURBYTB          CONVERT FOUR BYTE INDICATOR TO
     3662   01 01ABA    20A000F0 A            AI,R10   X'F0'              EBCDIC
     3663   01 01ABB    75A63332              STB,R10  PLINE#OP+6,X3     SAVE IN PARAMETER
     3664   01 01ABC    32A012C1              LW,R10   BURSTCHA          CONVERT BURST MODE, CHANNEL 'A'
     3665   01 01ABD    20A000F0 A            AI,R10   X'F0'              TO EBCDIC
     3666   01 01ABE    75A63333              STB,R10  PLINE#OP+7,X3     SAVE IN PARAMETER LINE
     3667   01 01ABF    32A012C2              LW,R10   BURSTCHB          CONVERT BURST MDOE, CHANNEL 'B'
     3668   01 01AC0    20A000F0 A            AI,R10   X'F0'              TO EBCDIC
     3669   01 01AC1    75A23334              STB,R10  PLINE#OP+8,X1     SAVE IN PARAMETER LINE
     3670   01 01AC2    32A01326              LW,R10   MOVEOPTA          CONVERT MEMORY TO MEMORY MOVE
     3671   01 01AC3    20A000F0 A            AI,R10   X'F0'              OPTION INDICATOR TO EBCDIC
     3672   01 01AC4    75A23335              STB,R10  PLINE#OP+9,X1
     3673   01 01AC5    E800000F A            B        *R15              RETURN
     3674                            *
     3675                            *                 COMPARE REGISTERS 8 & 9 FOR EQUALITITY
     3676         01 01AC6           CREQUAL  EQU      %
     3677   01 01AC6    31800009 A            CW,R8    R9
     3678                            *
     3679                            *                 EQUAL CONDITION, CC 3 & 4 = 0
     3680         01 01AC7           EQUAL    EQU      %                 RETURN HERE TO TEST FOR COMPARE
     3681   01 01AC7    69301411              BCS,3    BAD                CONDITION, CC 3 & 4 = 0
     3682   01 01AC8    680014D4              B        GOOD
     3683                            *
     3684                            *                                  DELAY  10 MICROSECONDS
     3685         01 01AC9           DLY10US  EQU      %
     3686   01 01AC9    222FFFFC A            LI,R2    -4
     3687   01 01ACA    65201ACA              BIR,R2   %
     3688   01 01ACB    E800000F A            B        *R15
     3689                            *
     3690                            *                                  DELAY 10 MILLISECONDS
     3691         01 01ACC           DLY10MS  EQU      %
     3692   01 01ACC    222FDECC A            LI,R2    -8500
     3693   01 01ACD    65201ACD              BIR,R2   %
     3694   01 01ACE    E800000F A            B        *R15              RETURN
     3695                            *
     3696                            *                 PRINT ERROR HEADER
     3697         01 01ACF           ERRORHDR EQU      %
     3698   01 01ACF    35F01361              STW,R15  R15PRTN           SAVE RETURN LINKAGE
     3699   01 01AD0    EA6003C3              #HTECON  NEXTEST           CONVERT TEST ADDRESS TO EBCDIC
            01 01AD1    00001330
     3700   01 01AD2    B2A00006 A            LW,R10   *LINK             HIGH ORDER NUMERIALS
     3701   01 01AD3    22100003 A            LI,R1    3
     3702   01 01AD4    75A233B6              STB,R10  ER010MG+7,X1      TO PRINT FIELD
     3703   01 01AD5    22100001 A            LI,R1    1                 FOUR LOW ORDER NUMERIALS
     3704   01 01AD6    B2A20006 A            LW,R10   *LINK,X1
     3705   01 01AD7    35A033B7              STW,R10  ER010MG+8         TO PRINT FIELD
     3706   01 01AD8    D2A01330              LH,R10   *NEXTEST          TEST NUMBER
     3707   01 01AD9    EA6003C3              #HTECON  R10               CONVERT TO EBCDIC
            01 01ADA    0000000A A
     3708   01 01ADB    B2A20006 A            LW,R10   *LINK,X1          GET CONVERTED WORD
     3709   01 01ADC    55A033B5              STH,R10  ER010MG+6         LOW ORDER NUMERIALS TO MESSAGE
     3710   01 01ADD    25A00210 A            SCS,R10  16                RE-POSITION
     3711   01 01ADE    55A233B4              STH,R10  ER010MG+5,X1      HIGH ORDER NUMERIALS TO MESSAGE
     3712   01 01ADF    22100000 A            LI,R1    0                 CANCEL SUCCESS HEADER MESSAGE
     3713   01 01AE0    351013A6              STW,R1   SUCSHD             INDICATOR
     3714   01 01AE1    72C033AF              LB,R12   ER010MG           MESSAGE COUNT
     3715   01 01AE2    32A012CA              LW,R10   CHLATEST          CCU TEST
     3716   01 01AE3    49A012CB              OR,R10   CHLBTEST
     3717   01 01AE4    68301AEA              BCR,3    ER20              YES
     3718   01 01AE5    22B0C100 A            LI,R11   X'C100'           NO
     3719   01 01AE6    330012C8              MTW,0    CHBCTRL           CHANNEL A TEST
     3720   01 01AE7    68201AED              BCR,2    ER30              YES
     3721   01 01AE8    22B0C200 A            LI,R11   X'C200'           NO-- CHANNEL B TEST
     3722   01 01AE9    68001AED              B        ER30
     3723   01 01AEA    32A03374     ER20     LW,R10   CCUMG             CCU PREFACE
     3724   01 01AEB    32B03375              LW,R11   CCUMG+1
     3725   01 01AEC    68001AEF              B        ER36
     3726   01 01AED    32A03376     ER30     LW,R10   CHANMG            CHANNEL PREFACE
     3727   01 01AEE    49B03377              OR,R11   CHANMG+1
     3728   01 01AEF    75C0000A A   ER36     STB,R12  R10               STORE BYTE COUNT IN PRINT FIELD
     3729   01 01AF0    35A033AF              STW,R10  ER010MG
     3730   01 01AF1    35B033B0              STW,R11  ER010MG+1
     3731   01 01AF2    EA6003CD              #PRINT   ER010MG,C2
            01 01AF3    C200CEBC A
     3732   01 01AF4    E8001361              B        *R15PRTN          RETURN
     3733                            *
     3734                            *                                  GENERATE DIO GROUP ADDRESS &
     3735                            *                                   CONTROL BITS
     3736         01 01AF5           GPCTRL   EQU      %
     3737   01 01AF5    221FFFF4 A            LI,R1    GP00-GP15-1       GENERATE ITERATION COUNT
     3738   01 01AF6    32A012E7              LW,R10   DIOADR            CURRENT DIO ADDRESS
     3739   01 01AF7    25A00005 A            SLS,R10  5                 FORMAT
     3740   01 01AF8    22C00008 A            LI,R12   8
     3741   01 01AF9    32B212A0     GPL20    LW,R11   GP15+1,X1         GET OLD GROUP OPERAND
     3742   01 01AFA    4BB03508              AND,R11  =X'200F'          MASK OUT OLD DIO ADDRESS
     3743   01 01AFB    49B0000A A            OR,R11   R10               INSERT NEW DIO ADDRESS
     3744   01 01AFC    211FFFF7 A            CI,R1    GP03-GP15-1       SKIP OVER IF GROUP 3 OR LESS
     3745   01 01AFD    68201B02              BCR,2    GPL40
     3746   01 01AFE    4BB03509              AND,R11  =X'2FE0'          MASK OUT OLD GROUP ADDRESS
     3747   01 01AFF    49B0000C A            OR,R11   R12
     3748   01 01B00    20C00001 A            AI,R12   1
     3749   01 01B01    30B012C8              AW,R11   CHBCTRL           IF CHANNEL B OPTION, ADD BIAS
     3750   01 01B02    35B212A0     GPL40    STW,R11  GP15+1,X1          FOR GROUP ADDRESS FOR B CHANNEL
     3751   01 01B03    65101AF9              BIR,R1   GPL20
     3752   01 01B04    330012C8              MTW,0    CHBCTRL           CHANNEL B SELECTED
     3753   01 01B05    69301B0D              BCS,3    GPL80             YES
     3754   01 01B06    32C0132D              LW,R12   MSADRA            NO
     3755   01 01B07    35C01314              STW,R12  IOPMSADR          UPDATE IOP MS ADDRESSES
     3756   01 01B08    32C01310              LW,R12   IOPA              IOP ADDRESS ONLY
     3757   01 01B09    35C01312              STW,R12  IOPNO
     3758   01 01B0A    32C0132B              LW,R12   MSADRAP           MS ADDRESS IN COMPLEMENT FORM
     3759   01 01B0B    35C01313              STW,R12  IOPMSAP
     3760   01 01B0C    E800000F A            B        *15
     3761   01 01B0D    32C0132E     GPL80    LW,R12   MSADRB            CHANNEL B IOP MS ADDRESSES
     3762   01 01B0E    35C01314              STW,R12  IOPMSADR
     3763   01 01B0F    32C01311              LW,R12   IOPB              IOP NUMBER ONLY
     3764   01 01B10    35C01312              STW,R12  IOPNO
     3765   01 01B11    32C0132C              LW,R12   MSADRBP
     3766   01 01B12    68001B0B              B        GPL80-2           RETURN
     3767   01 01B13    E800000F A            B        *R15
     3768                            *
     3769                            *                 SET FOUR BYTE MODE IN MS (A)
     3770         01 01B14           FOURBXA  EQU      %
     3771   01 01B14    32A01329              LW,R10   MSA               MS (A) DEVICE ADDRESS
     3772   01 01B15    25A00010 A            SLS,R10  16                MOVE TO ADDRESS FIELD
     3773   01 01B16    49A0350A              OR,R10   =X'400'           'DX4' CONTROL BIT
     3774   01 01B17    49A012E5              OR,R10   DATABYTE          MERGE DATA BYTE
     3775   01 01B18    EDA0129D              WD,R10   *GP13             SET FOUR BYTE CONTROL IN MS (A)
     3776   01 01B19    E800000F A            B        *R15              RETURN
     3777                            *
     3778                            *                                  LINKAGE ROUTINE FOR IDLE MODE
     3779         01 01B1A           IDLER    EQU      %
     3780   01 01B1A    15001396              STD,R0   SAVREG+14         SAVE
     3781   01 01B1B    22000000 A            LI,R0    0
     3782   01 01B1C    350003AF              STW,R0   #TRAPLNK          ZERO TRAP LINKAGE
     3783   01 01B1D    12001396              LD,R0    SAVREG+14         RESTORE REGISTERS
     3784   01 01B1E    02200010 A            LCI      1
     3785   01 01B1F    EA6003C9              BAL,LINK *#FIDLE%          TO IDLE STATE
     3786   01 01B20    00001302              DATA     IDLINK
     3787                            *
     3788                            *                 INITIALIZE TRAP-INTERRUPT CELLS
     3789         01 01B21           INITRS   EQU      %
     3790   01 01B21    322013B6              LW,R2    WDTXPSD           GET OLD WATCHDOG TIMER XPSD
     3791   01 01B22    46200046 A            XW,R2    X'46'             INSERT XPSD
     3792   01 01B23    3520136E              STW,R2   SAVEGWDT          SAVE OLD XPSD
     3793   01 01B24    32201349              LW,R2    PTYXPSD
     3794   01 01B25    4620004C A            XW,R2    X'4C'
     3795   01 01B26    3520136C              STW,R2   SAVEGPTY
     3796   01 01B27    32201305              LW,R2    IEXPSD
     3797   01 01B28    4620004D A            XW,R2    X'4D'
     3798   01 01B29    35201364              STW,R2   SAVEGIET
     3799   01 01B2A    32201338              LW,R2    PFXPSD
     3800   01 01B2B    46200056 A            XW,R2    X'56'
     3801   01 01B2C    3520136A              STW,R2   SAVEGPFI
     3802   01 01B2D    32201323              LW,R2    MFXPSD
     3803   01 01B2E    46200057 A            XW,R2    X'57'
     3804   01 01B2F    35201368              STW,R2   SAVEGMFI
     3805   01 01B30    32201316              LW,R2    IOXPSD            GET OLD I/O XPSD
     3806   01 01B31    4620005C A            XW,R2    X'5C'             INSET NEW XPSD
     3807   01 01B32    35201366              STW,R2   SAVEGIO           SAVE OLD XPSD
     3808   01 01B33    E800000F A            B        *R15              RETURN
     3809                            *
     3810                            *
     3811   01 01B34    22A00020 A   INTRESET LI,R10   X'20'
     3812   01 01B35    6DA01100 A            WD,R10   X'1100'           DISARM AND DISABLE
     3813   01 01B36    6DA01500 A            WD,R10   X'1500'            I/O GROUP INTERRUPTS
     3814   01 01B37    6D000022 A            WD,R0    X'22'             RESET II INHIBIT IN PSD
     3815   01 01B38    E800000F A            B        *R15              RETURN TO CALLING ROUTINE
     3816                            *
     3817                            *
     3818                            *                 THIS ROUTINE ASSURES THE MS IS SET ON-LINE, AND DEVICE
     3819                            *                  CONTROLLERS ARE SET OFF LINE.
     3820         01 01B39           ONLINECK EQU      %
     3821   01 01B39    330012E8              MTW,0    DIOPRET           IF DIO TEST,SKIP THIS CHECK
     3822   01 01B3A    E920000F A            BCS,2    *R15
     3823   01 01B3B    35A01374              STW,R10  SAVR10            SAVE R10
     3824   01 01B3C    330012CA              MTW,0    CHLATEST          CHANNEL 'A' TEST?
     3825   01 01B3D    69201B41              BCS,2    OL20              YES
     3826   01 01B3E    330012CB              MTW,0    CHLBTEST          NO-- CHANNEL 'B' TEST?
     3827   01 01B3F    69201B41              BCS,2    OL20              NO-- CCU, RETURN
     3828   01 01B40    E800000F A            B        *R15              NO-- CC,RETURN
     3829   01 01B41    32A0350B     OL20     LW,R10   =X'C0000000'      MS ON-LINE, DC OFF-LINE
     3830   01 01B42    EDA0129F              WD,R10   *GP15
     3831   01 01B43    32A01329              LW,R10   MSA               SET MS 'A' ADDRESS
     3832   01 01B44    25A00010 A            SLS,R10  16
     3833   01 01B45    EDA0129D              WD,R10   *GP13
     3834   01 01B46    330012E6              MTW,0    DCOFFA            ARE CHLN DEVICES OFF LINE?
     3835   01 01B47    69201B4D              BCS,2    OL30              YES- NO DELAY FOR RELAY
     3836   01 01B48    22A00001 A            LI,R10   1                 RE-ESTABLISH ON-LINE 0FF-LINE
     3837   01 01B49    35A012E6              STW,R10  DCOFFA             CONTROL FLAGS
     3838   01 01B4A    35A01332              STW,R10  NDCDLY
     3839   01 01B4B    22AFD8F0 A   OL26     LI,R10   -10000            DELAY ABOUT 10 MSEC.
     3840   01 01B4C    65A01B4C              BIR,R10  %
     3841   01 01B4D    32A01374     OL30     LW,R10   SAVR10            RESTORE R10
     3842   01 01B4E    E800000F A            B        *R15
     3843                            *
     3844                            *        THIS ROUTINE CONTROLS THE PROGRAM MODES
     3845         01 01B4F           MODECTRL EQU      %
     3846   01 01B4F    330012FE              MTW,0    FUNCTION          IS FUNCTIONAL SELECTED?
     3847   01 01B50    E920000F A            BCS,2    *R15              YES, RETURN
     3848   01 01B51    3300133C              MTW,0    PHASMODE          IS SINGLE PHASE SELECTED
     3849   01 01B52    68201B5B              BCR,2    MCT20             YES, RETURN
     3850   01 01B53    33001331              MTW,0    NOTMTL
     3851   01 01B54    69201B5B              BCS,2    MCT20
     3852   01 01B55    3300133B              MTW,0    PHASFLAG
     3853   01 01B56    E920000F A            BCS,2    *R15
     3854   01 01B57    3310133B              MTW,1    PHASFLAG          SET SINGLE PHASE COMPARE FLAG
     3855   01 01B58    331012D2              MTW,1    COMPFLAG
     3856   01 01B59    331012D1              MTW,1    COMPASS
     3857   01 01B5A    E800000F A            B        *R15
     3858   01 01B5B    EA6003CC     MCT20    #TYPE    MODEMG            OUTPUT MESSAGE
            01 01B5C    0000D030 A
     3859   01 01B5D    02200010 A            LCI      1                 SET CC
     3860   01 01B5E    E80003C9              B        *#FIDLE%
     3861                            *
     3862                            *                 THIS ROUTINE SET THE OUTPUT DEVICES ON-LINE, AS
     3863                            *                  REQUIRED.
     3864         01 01B5F           PUTDVCON EQU      %
     3865   01 01B5F    3300130C              MTW,0    INHOUT            HAS DEVICE INHIBIT BEEN SET?
     3866   01 01B60    E8300006 A            BCR,3    *R6               BRANCH IF NOT
     3867   01 01B61    330012E6              MTW,0    DCOFFA            DEVICES OFF-LINE
     3868   01 01B62    69301B66              BCS,3    OPN05              YES
     3869   01 01B63    33001332              MTW,0    NDCDLY            HOW ABOUT RELAY TIME
     3870   01 01B64    E9300006 A            BCS,3    *R6                NO
     3871   01 01B65    33101332              MTW,1    NDCDLY
     3872   01 01B66    35601362     OPN05    STW,R6   SAVE              SAVE IMPORTANT REGISTERS
     3873   01 01B67    35A01363              STW,R10  SAVE+1
     3874   01 01B68    22D40400 A            LI,R13   RESET             RESTORE
     3875   01 01B69    32E012CC              LW,R14   CM                CONTROL WORD FOR CLOCK MARGINS
     3876   01 01B6A    226FFFFD A            LI,R6    -3
     3877   01 01B6B    32AC0399     OPN10    LW,R10   #TOADDR+3,X6      OUTPUT ADDRESS
     3878   01 01B6C    4BA034FB              AND,R10  =X'1F00'          MASK
     3879   01 01B6D    31A01312              CW,R10   IOPNO             COMPARE TO TEST IOP NUMBER
     3880   01 01B6E    68301B75              BCR,3    OPN20             YES
     3881   01 01B6F    65601B6B              BIR,R6   OPN10             NO-- TRY ALL DEVICES
     3882   01 01B70    33000395              MTW,0    #MTLFLAG          NO-- ALSO CHECK MTL UNIT
     3883   01 01B71    68301B76              BCR,3    OPN40             NOT USED
     3884   01 01B72    32A012FF              LW,R10   GENADR            YES
     3885   01 01B73    31A01312              CW,R10   IOPNO             COMPARE MTL UNIT TO IOP
     3886   01 01B74    69301B76              BCS,3    OPN40              NUMBER-- YES
     3887   01 01B75    ED00129F     OPN20    WD,R0    *GP15             DEVICES ON-LINE, MS OFF-LINE
     3888   01 01B76    EDD01298     OPN40    WD,R13   *GP08             CHANNEL RESET
     3889   01 01B77    22AFD8F0 A            LI,R10   -10000            ON-LINE RELAY TIME AND/OR
     3890   01 01B78    65A01B78              BIR,R10  %                  CHARACTER TIME
     3891   01 01B79    35A012E6              STW,R10  DCOFFA            DC'S ON-LINE
     3892   01 01B7A    EDD01294     OPN60    WD,R13   *GP00             CCU RESET
     3893   01 01B7B    EA6003C7              BAL,R6   *#ARMUSER%        ACTIVATE GUIDE
     3894   01 01B7C    32A01363              LW,R10   SAVE+1
     3895   01 01B7D    22D40400 A            LI,R13   RESET             RESTORE REGISTERS
     3896   01 01B7E    22E012CC              LI,R14   CM
     3897   01 01B7F    E8001362              B        *SAVE             RETURN
     3898                            *
     3899                            *                 THIS ROUTINE CHECKS FOR MANUAL PCP OPERATIONS.
     3900                            *                  IF MANUAL OPERATIONS ARE NOT INVOKED, IT SENSES FOR
     3901                            *                  INPUT DATA FROM THE KEYBOARD INPUT DEVICE.
     3902         01 01B80           PCPCTRL  EQU      %
     3903   01 01B80    33001337              MTW,0    PCPMODE           PCP MANUAL MODE
     3904   01 01B81    69201B88              BCS,2    PCP10             YES
     3905   01 01B82    3300130C              MTW,0    INHOUT
     3906   01 01B83    69201B8D              BCS,2    PCP20
     3907   01 01B84    22A01000 A            LI,R10   X'1000'           ARM & ENABLE COUNTER FOUR
     3908   01 01B85    6DA01200 A            WD,R10   ARMABLE
     3909   01 01B86    8F0003AB              XPSD,0   *#SAMPLE          SAMPLE GUIDE INPUT
     3910   01 01B87    E800000F A            B        *R15              RETURN
     3911   01 01B88    6C000000 A   PCP10    RD,0     0                 READ PANEL SENSE SWITCHES
     3912   01 01B89    7400000C A            STCF     R12
     3913   01 01B8A    4BC0350C              AND,R12  =X'F0000000'
     3914   01 01B8B    35C00392              STW,R12  #SENSE            SAVE
     3915   01 01B8C    E800000F A            B        *R15
     3916   01 01B8D    70200392     PCP20    LC       #SENSE            CHECK FOR SHORT & LONG LOOP
     3917   01 01B8E    68C01B94              BCR,12   PCP30
     3918   01 01B8F    33101398              MTW,1    SHORTLP           YES-SKIP FOR 16000 ITERATIONS
     3919   01 01B90    E910000F A            BCS,1    *R15
     3920   01 01B91    22AFC180 A            LI,R10   -16000
     3921   01 01B92    35A01398              STW,R10  SHORTLP
     3922   01 01B93    68001B9C              B        PCP40
     3923                            *
     3924   01 01B94    22A0268D     PCP30    LI,R10   T6600             TEST 6600
     3925   01 01B95    31A01330              CW,R10   NEXTEST           MATCH
     3926   01 01B96    68301B9C              BCR,3    PCP40             YES
     3927   01 01B97    22A02FB0              LI,R10   LASTEST           LAST TEST
     3928   01 01B98    31A01330              CW,R10   NEXTEST           MATCH
     3929   01 01B99    68301B9C              BCR,3    PCP40             YES
     3930   01 01B9A    331013AA     PCP38    MTW,1    TESTCNT
     3931   01 01B9B    E910000F A            BCS,1    *R15
     3932   01 01B9C    EDD01294     PCP40    WD,R13   *GP00             CCU RESET
     3933   01 01B9D    32E012CC              LW,R14   CM                CLOCK MARGINS
     3934   01 01B9E    22000000 A            LI,R0    0
     3935   01 01B9F    22AFFCE0 A            LI,R10   -800
     3936   01 01BA0    35A013AA              STW,R10  TESTCNT
     3937   01 01BA1    32A00396              LW,R10   #TOADDR
     3938   01 01BA2    4BA034FB              AND,R10  =X'1F00'
     3939   01 01BA3    31A01312              CW,R10   IOPNO
     3940   01 01BA4    69301BA9              BCS,3    PCP60
     3941   01 01BA5    EDD01298              WD,R13   *GP08             RESET CHANNEL
     3942   01 01BA6    EDD0129C              WD,R13   *GP12             RESET MS SNAP, CHANNEL
     3943   01 01BA7    ED00129F              WD,R0    *GP15             DEVICES ON-LINE, MS OFF-LINE
     3944   01 01BA8    350012E6              STW,R0   DCOFFA            RESET DEVICE CONTROLLER OFF FLAG
     3945   01 01BA9    22AFD508 A   PCP60    LI,R10   -11000            DELAY 12 MS
     3946   01 01BAA    65A01BAA              BIR,R10  %
     3947   01 01BAB    EA6003C7              BAL,LINK *#ARMUSER%        RE-ACTIVATE KEYBOARD DEVICE
     3948   01 01BAC    22A01000 A            LI,R10   X'1000'
     3949   01 01BAD    6DA01200 A            WD,R10   ARMABLE
     3950   01 01BAE    22AFFC01 A            LI,R10   -X'3FF'           DELAY COUNT
     3951   01 01BAF    8F0003AB              XPSD,0   *#SAMPLE          SAMPLE GUID INPUT
     3952   01 01BB0    65A01BAF              BIR,R10  %-1
     3953   01 01BB1    22D40400 A            LI,R13   RESET             RESTORE REGISTER
     3954   01 01BB2    32E012CC              LW,R14   CM
     3955   01 01BB3    E800000F A            B        *R15
     3956                            *
     3957                            *        PURGE CERTAIN DRIVER CONTROL FLAGS OR CONSTANTS
     3958         01 01BB4           PRGCTL   EQU      %
     3959   01 01BB4    35C01362              STW,R12  SAVE              SAVE
     3960   01 01BB5    22C00000 A            LI,R12   0                 PURGE CONTROL WORD CONTROLS
     3961   01 01BB6    35C012E8              STW,R12  DIOPRET
     3962   01 01BB7    35C012EE              STW,R12  FAM2OPT
     3963   01 01BB8    35C012EF              STW,R12  FAM3OPT
     3964   01 01BB9    35C01325              STW,R12  MOVEOPT
     3965   01 01BBA    35C012C3              STW,R12  BURSTM
     3966   01 01BBB    35C012FD              STW,R12  FOURBYTE
     3967   01 01BBC    35C012ED              STW,R12  FAMBAD
     3968   01 01BBD    35C012E4              STW,R12  DATAPNT
     3969   01 01BBE    35C012CB              STW,R12  CHLBTEST
     3970   01 01BBF    35C012CA              STW,R12  CHLATEST
     3971   01 01BC0    35C012E5              STW,R12  DATABYTE
     3972   01 01BC1    35C012D3              STW,R12  COMPSRV3          CLEAR PHASING FLAG
     3973   01 01BC2    35C012D4              STW,R12  COMPSRV4          CLEAR PHASING FLAG
     3974   01 01BC3    35C0134A              STW,R12  PUTOUT
     3975   01 01BC4    35C012A1              STW,R12  AIOSKIP
     3976   01 01BC5    35C01345              STW,R12  PHASTEST
     3977   01 01BC6    35C01346              STW,R12  PNTDBL            PRINT DOUBLE ERROR WD IND
     3978   01 01BC7    22C014D4              LI,R12   GOOD              RESET I/O INTRPT RETURN
     3979   01 01BC8    35C01315              STW,R12  IORETURN
     3980   01 01BC9    32C01362              LW,R12   SAVE              RESTORE
     3981   01 01BCA    E800000F A            B        *R15              RETURN
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   15
A    3983                            *                 THIS ROUTINE  PRINTS SUCCESS FOR EACH TEST MODULE BY
     3984                            *                  INDICATING THE TEST NUMBER.
     3985         01 01BCB           PRNTSTNO EQU      %                PRINT SUCCESS MESSAGE
     3986   01 01BCB    3300130D              MTW,0    INHTSUC           IS SUCCESS INDICATION INHIBITED
     3987   01 01BCC    E920000F A            BCS,2    *R15
     3988   01 01BCD    70200392              LC       #SENSE            IS PRINT INHIBITED BY SENSE
     3989   01 01BCE    E910000F A            BCS,1    *R15               SWITCH 4
     3990   01 01BCF    33001337              MTW,0    PCPMODE           ALSO SKIP IF PCP MODE IS SET
     3991   01 01BD0    E920000F A            BCS,2    *R15
     3992   01 01BD1    35F01361              STW,R15  R15PRTN           SAVE LINKAGE

     3994   01 01BD2    330012E9              MTW,0    ENDSUC            SKIP IF THIS IS NOT
     3995   01 01BD3    69301BD8              BNEZ     PTNO03             THE FIRST SUCCESS DISPLAY

     3997   01 01BD4    6AF01BF8              BAL,R15  PTNO50            UPDATE CHANNEL IN HEADER
     3998   01 01BD5    331012E9              MTW,1    ENDSUC             AND SET SUCCESS FLAG

     4000   01 01BD6    32C012C8              LW,R12   CHBCTRL           SAVE HEADER STATE
     4001   01 01BD7    35C012C9              STW,R12  CHDRCTL

     4003   01 01BD8    B2C01330     PTNO03   LW,R12   *NEXTEST          TEST NUMBER
     4004   01 01BD9    4BC0350D              AND,R12  =X'FFFF0000'
     4005   01 01BDA    EA6003C3              #HTECON  R12               CONVERT TO PRINT CODE
            01 01BDB    0000000C A
     4006   01 01BDC    321013AC              LW,R1    TSTIDX1           CONTROL INDEX FOR MESSAGE FIELD
     4007   01 01BDD    22200000 A            LI,R2    0                 CHARACTER INDEX
     4008   01 01BDE    F2A40006 A   PTNO04   LB,R10   *LINK,X2          GET CONVERTED NUMERIAL
     4009   01 01BDF    75A2348B              STB,R10  SUCLNMG,X1        TO MESSAGE FIELD
     4010   01 01BE0    20100001 A            AI,R1    1
     4011   01 01BE1    20200001 A            AI,R2    1
     4012   01 01BE2    21200004 A            CI,R2    4                 FOUR NUMERIALS
     4013   01 01BE3    69101BDE              BCS,1    PTNO04

     4015   01 01BE4    33200001 A            MTW,2    R1                SKIP OVER COMMA & BLANK
     4016   01 01BE5    351013AC              STW,R1   TSTIDX1           SAVE CONTROL INDEX

     4018   01 01BE6    21100049 A            CI,R1    73                MAX LINE
     4019   01 01BE7    68101BE9              BGE      PTNO06
     4020   01 01BE8    68001BF5              B        PTNO10

     4022   01 01BE9    330013A6     PTNO06   MTW,0    SUCSHD            SHOULD HEADER BE PRINTED
     4023   01 01BEA    69301BEE              BCS,3    PTNO08            NO
     4024   01 01BEB    EA6003CD              #PRINT   SUCSMG,C2         YES
            01 01BEC    C200D20C A
     4025   01 01BED    331013A6              MTW,1    SUCSHD

     4027   01 01BEE    7510348B     PTNO08   STB,R1   SUCLNMG           PRINT A FULL LINE
     4028   01 01BEF    73F0348B              MTB,-1   SUCLNMG            OF SUCCESS NUMBERS
     4029   01 01BF0    EA6003CD              #PRINT   SUCLNMG
            01 01BF1    C000D22C A
     4030   01 01BF2    22100002 A   PTNO09   LI,R1    2                 RESET INDEX
     4031   01 01BF3    351013AC              STW,R1   TSTIDX1
     4032   01 01BF4    E8001361              B        *R15PRTN
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   16
A    4034   01 01BF5    330012FA     PTNO10   MTW,0    FORCEP1           TEST FOR FORCE PRINT CONDITION
     4035   01 01BF6    E8301361              BEZ      *R15PRTN           EXIT IF NOT SET
     4036   01 01BF7    68001BE9              B        PTNO06              ELSE DISPLAY PARTIAL LINE

     4038         01 01BF8           PTNO50   EQU      %                 SET CHAN TYPE IN HEADER
     4039   01 01BF8    22200003 A            LI,R2    3                 UPDATE HEADER
     4040   01 01BF9    22A000C1 A            LI,R10   'A'
     4041   01 01BFA    330012C8              MTW,0    CHBCTRL           CHANNEL B OPTION
     4042   01 01BFB    68301BFD              BCR,3    %+2               NO
     4043   01 01BFC    22A000C2 A            LI,R10   'B'               YES
     4044   01 01BFD    75A43489              STB,R10  SUCSMG+6,X2       INSERT A OR B CHARACTER
     4045   01 01BFE    E800000F A            B        *R15              RETURN

     4047         01 01BFF           PTNOFLSH EQU      %                 FLUSH SUCCESS BUFFER
     4048   01 01BFF    35F01361              STW,R15  R15PRTN
     4049   01 01C00    32F013AC              LW,R15   TSTIDX1           CHECK FOR NULL BUFFER
     4050   01 01C01    21F00002 A            CI,R15   2
     4051   01 01C02    E8301361              BE       *R15PRTN

     4053   01 01C03    75F0348B              STB,R15  SUCLNMG           SAVE AND MODIFY
     4054   01 01C04    73D0348B              MTB,-3   SUCLNMG            SUCCESS LINE BYTE COUNT

     4056   01 01C05    330013A6              MTW,0    SUCSHD            SKIP IF HEADER NOT NEEDED
     4057   01 01C06    69301C09              BNEZ     PTNO60
     4058   01 01C07    EA6003CD              #PRINT   SUCSMG,C2         SUCCESS HEADER
            01 01C08    C200D20C A

     4060         01 01C09           PTNO60   EQU      %
     4061   01 01C09    EA6003CD              #PRINT   SUCLNMG           SUCCESS TEST-NUMBERS
            01 01C0A    C000D22C A
     4062   01 01C0B    22F00002 A            LI,R15   2                  SET INITIAL BUFFER INDEX
     4063   01 01C0C    35F013AC              STW,R15  TSTIDX1

     4065   01 01C0D    22F00000 A            LI,R15   0                 RESET LAST SUCCESSFUL
     4066   01 01C0E    35F012E9              STW,R15  ENDSUC             AND HEADER INDICATORS
     4067   01 01C0F    35F013A6              STW,R15  SUCSHD

     4069   01 01C10    32C012C6              LW,R12   CHANNELA          SKIP IF TWO PASSES
     4070   01 01C11    4BC012C7              AND,R12  CHANNELB           ARE NOT REQUIRED
     4071   01 01C12    68301C19              BEZ      PTNO20
     4072   01 01C13    330013A8              MTW,0    SUCPASS2          SKIP IF CURRENTLY
     4073   01 01C14    69301C17              BNEZ     PTNO19             EXECUTING PASS 2
     4074   01 01C15    331013A8              MTW,1    SUCPASS2             SET PASS 2 STARTED
     4075   01 01C16    E8001361              B        *R15PRTN

     4077   01 01C17    22C00000 A   PTNO19   LI,R12   0                 CLEAR PASS 2 STARTED
     4078   01 01C18    35C013A8              STW,R12  SUCPASS2           INDICATOR

     4080   01 01C19    72C03328     PTNO20   LB,R12   PLINE#J+4         EXAMINE SI CHARACTER
     4081   01 01C1A    21C000F2 A            CI,R12   '2'                SKIP IF CONTINUOUS DISPLAY
     4082   01 01C1B    E8301361              BE       *R15PRTN            ELSE INHIBIT SUCCESS

     4084   01 01C1C    22C00001 A            LI,R12   1                    DISPLAY AND RESET
     4085   01 01C1D    35C0130D              STW,R12  INHTSUC               SI DISPLAY TO '0'
     4086   01 01C1E    22C000F0 A            LI,R12   X'F0'
     4087   01 01C1F    75C03328              STB,R12  PLINE#J+4
     4088   01 01C20    E8001361              B        *R15PRTN
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   17
A    4090                            *                 THIS ROUTINE CLEARS THE FIRST SIX WORDS OF THE
     4091                            *                  I/O BUFFER
     4092         01 01C21           PURGEBUF EQU      %
     4093   01 01C21    22000000 A            LI,R0    0
     4094   01 01C22    22100000 A            LI,R1    0
     4095   01 01C23    150012A4              STD,R0   BUFFER1
     4096   01 01C24    150012A6              STD,R0   BUFFER1+2         PURGE NEXT TWO BUFFER LOCS
     4097   01 01C25    150012A8              STD,R0   BUFFER1+4         PURGE NEXT TWO BUFFER LOCS
     4098   01 01C26    150012BE              STD,R0   BUFFER2
     4099   01 01C27    E800000F A            B        *R15
     4100                            *
     4101                            *                 RESET MEMORY PARITY
     4102         01 01C28           PURGEPTY EQU      %                                                 *G02
     4103   01 01C28    330013E2              MTW,0    SIGMA7            FIRST TEST 7-LIKE MIOP          *G02
     4104   01 01C29    E930000F A            BNEZ     *R15               AND RETURN (ASSUME NO LMS)     *G02

     4106   01 01C2A    22201FFC A            LI,R2    X'1FFC'           FIRST MEMORY BLOCK              *G02
     4107   01 01C2B    022000C0 A            LCI      12                RESET MEMORY PARITY
     4108   01 01C2C    2D340000 A            LMS,R3   0,X2
     4109   01 01C2D    2D340001 A            LMS,R3   1,X2              EXECUTE 4 TIMES IN CASE OF INTRL
     4110   01 01C2E    2D340002 A            LMS,R3   2,X2
     4111   01 01C2F    2D340003 A            LMS,R3   3,X2
     4112   01 01C30    20201000 A            AI,R2    X'1000'           INCREMENT BY 4K
     4113   01 01C31    21203690              CI,R2    ENDADDR           HAS ADDRESS EXCEEDED MAX
     4114   01 01C32    E920000F A            BCS,2    *R15              YES-- RETURN
     4115   01 01C33    68001C29              B        PURGEPTY+1        LOOP
     4116                            *
     4117                            *                                  CHANNEL & CCU RESET
     4118   01 01C34    EDD01298     RSTCHCCU WD,R13   *GP08             R13 CONTAINS BIT 13-- CHAN RESET
     4119   01 01C35    EDD01294              WD,R13   *GP00             R13 CONTAINS BIT 13-- CCU RESET
     4120   01 01C36    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN BIT 9-- CLK MRG
     4121   01 01C37    E800000F A            B        *R15              RETURN
     4122                            *
     4123                            *                 SET ADDRESS PARITY
     4124         01 01C38           SETADPTY EQU      %
     4125   01 01C38    75A0000B A            STB,R10  R11               MS ADDRESS TO R11
     4126   01 01C39    25B00008 A            SLS,R11  8                 LOOK FOR OVERFLOW
     4127   01 01C3A    69801C3C              BCS,8    %+2               ZERO OR ONE
     4128   01 01C3B    20A00100 A            AI,R10   X'100'            EVEN: SET PARITY
     4129   01 01C3C    35A0132F              STW,R10  MSADRPTY          SAVE SETTING
     4130   01 01C3D    E800000C A            B        *R12              RETURN
     4131                            *
     4132                            *                 SET MS 'A' IN SIMULATION MODE
     4133         01 01C3E           SIMA     EQU      %
     4134   01 01C3E    EDD01298              WD,R13   *GP08             RESET CHAN. A
     4135   01 01C3F    EDD0129C              WD,R13   *GP12             RESET SNAP IN MS
     4136   01 01C40    35801372              STW,R8   SAVR8             SAVE R8 & R9
     4137   01 01C41    35A01374              STW,R10  SAVR10
     4138   01 01C42    22801000 A            LI,R8    X'1000'           INHIBIT SERVICE CALL
     4139   01 01C43    ED80129D              WD,R8    *GP13              & SET MS ON LINE & DC OFF LINE
     4140   01 01C44    3280350B              LW,R8    =X'C0000000'
     4141   01 01C45    ED80129F              WD,R8    *GP15
     4142   01 01C46    32801372              LW,R8    SAVR8             RESTORE REGISTERS
     4143   01 01C47    32A01374              LW,R10   SAVR10
     4144   01 01C48    330012E6              MTW,0    DCOFFA            ARE PERIPHERAL DEVICES OFF-LINE?
     4145   01 01C49    E920000F A            BCS,2    *R15              YES, RETURN
     4146   01 01C4A    331012E6              MTW,1    DCOFFA            NO, DELAY FOR RELAY TO LATCH UP
     4147   01 01C4B    68001B4B              B        OL26
     4148                            *
     4149                            *
     4150         01 01C4C           STOPIODV EQU      %
     4151   01 01C4C    3300130C              MTW,0    INHOUT
     4152   01 01C4D    E830000C A            BCR,3    *R12
     4153   01 01C4E    CF000396              HIO,0    *#TOADDR
     4154   01 01C4F    22AE7960 A            LI,R10   -100000           DELAY 100 MSEC
     4155   01 01C50    65A01C50              BIR,R10  %                  FOR TELETYPE
     4156   01 01C51    E800000C A            B        *R12
     4157                            *
     4158                            *                 THIS ROUTINE PROCESS STATUS REQUESTS FROM GUIDE.
     4159         01 01C52           STATMSGS EQU      %
     4160   01 01C52    32A01330              LW,R10   NEXTEST           CURRENT TEST ADDRESS
     4161   01 01C53    EA6003C3              #HTECON  R10               CONVERT TO PRINT CODE
            01 01C54    0000000A A
     4162   01 01C55    22100001 A            LI,R1    1
     4163   01 01C56    B2A20006 A            LW,R10   *LINK,X1
     4164   01 01C57    55A0347E              STH,R10  STATUSMG+10       SAVE IN PRINT MESSAGE
     4165   01 01C58    25A00070 A            SLS,R10  -16               RIGHT JUSTIFY
     4166   01 01C59    55A2347D              STH,R10  STATUSMG+9,X1
     4167   01 01C5A    D2A01330              LH,R10   *NEXTEST          CURRENT TEST NUMBER
     4168   01 01C5B    EA6003C3              #HTECON  R10               CONVERT TO PRINT CODE
            01 01C5C    0000000A A
     4169   01 01C5D    B2A20006 A            LW,R10   *LINK,X1
     4170   01 01C5E    35A03479              STW,R10  STATUSMG+5
     4171   01 01C5F    22A040C1 A            LI,R10   ' A'              CHANNEL A OR B PASS
     4172   01 01C60    330012C8              MTW,0    CHBCTRL
     4173   01 01C61    68301C63              BCR,3    %+2               CHANNEL A
     4174   01 01C62    22A040C2 A            LI,R10   ' B'              NO, CHANNEL B
     4175   01 01C63    75A03481              STB,R10  STATUSMG+13       STORE IN STATUS MESSAGE
     4176   01 01C64    EA6003CC              #TYPE    STATUSMG
            01 01C65    0000D1D0 A
     4177   01 01C66    E80003C9              B        *#FIDLE%          RETURN TO IDLE STATE IN GUIDE
     4178                            *
     4179                            *                 THIS ROUTINE IS USED TO COMPUTE THE EQUIVALENT SUB-
     4180                            *                  CHANNEL ADDRESS FROM A GIVEN DEVICE ADDRESS.
     4181         01 01C67           SUBCHADR EQU      %
     4182   01 01C67    32A0000B A            LW,R10   R11               R11 CONTAINS THE DEV ADR
     4183   01 01C68    4BA03502              AND,R10  =X'80'
     4184   01 01C69    69201C6E              BCS,2    SUBC10            CHECK FOR MULTI-DEVICE UNIT
     4185   01 01C6A    32A0000B A            LW,R10   R11               NO-- USE FIVE LEAST SIGNIFICANT
     4186   01 01C6B    4BA0350E              AND,R10  =X'1F'             BITS
     4187   01 01C6C    25A0027A A            SCS,R10  -6                POSITION FOR WD ADDRESSING
     4188   01 01C6D    E800000F A            B        *R15
     4189   01 01C6E    32A0000B A   SUBC10   LW,R10   R11               MULTI-DEVICE TYPE
     4190   01 01C6F    4BA03503              AND,R10  =X'70'            DEVICE CONTROLLER FIELD
     4191   01 01C70    25A00276 A            SCS,R10  -10
     4192   01 01C71    E800000F A            B        *R15
     4193                            *
     4194                            *        SUPER RESET ROUTINE
     4195         01 01C72           SUPRESET EQU      %
     4196   01 01C72    3300133B              MTW,0    PHASFLAG          NO SUPER RESET IF SINGLE PHASE
     4197   01 01C73    E820000F A            BCR,2    *R15               MODE IS NOT INVOKED.
     4198   01 01C74    32A012CA              LW,R10   CHLATEST          TEST FOR CCU TEST MODULES
     4199   01 01C75    49A012CB              OR,R10   CHLBTEST
     4200   01 01C76    E830000F A            BCR,3    *R15              YES, RETURN
     4201   01 01C77    32A01330              LW,R10   NEXTEST
     4202   01 01C78    21A0268D              CI,R10   T6600             FIRST SINGLE PHASE TEST
     4203   01 01C79    E910000F A            BCS,1    *R15
     4204   01 01C7A    21A0280A              CI,R10   T6990             EXCLUDE THIS TEST
     4205   01 01C7B    E830000F A            BCR,3    *R15
     4206   01 01C7C    22A00200 A   SSTA8    LI,R10   X'200'
     4207   01 01C7D    EDA01294              WD,R10   *GP00             SET SNAP MODE IN CCU
     4208   01 01C7E    22A00400 A            LI,R10   X'400'
     4209   01 01C7F    49A012CC              OR,R10   CM                CLOCK MARGINS
     4210   01 01C80    EDA01294              WD,R10   *GP00             RELEASE SNAP MODE
     4211   01 01C81    32401312              LW,R4    IOPNO             YES, FETCH 'A' IOP ADDR.
     4212   01 01C82    32A0350B              LW,R10   =X'C0000000'      SET WRITE DIRECT DATA, MS
     4213   01 01C83    6A2013F7              BAL,R2   GENRIO4           ISSUE GENERAL RESET             *G02
     4214   01 01C84    EDA0129F              WD,R10   *GP15             QUICKLY SET MS ON, DC'S OFF
     4215   01 01C85    32A01329              LW,R10   MSA               FETCH CURRENT MS ADDRESS
     4216   01 01C86    25A00010 A            SLS,R10  16                POSITION FOR WRITE DIRECT-GRP '1101'
     4217   01 01C87    EDA0129D              WD,R10   *GP13             SET MS ADDR., DA0-7=0
     4218   01 01C88    222FFFF0 A            LI,R2    -16               ALWAYS USE 16 SUBCHANNELS
     4219   01 01C89    12A012F2              LD,R10   FAMPAT2           FETCH WRITE PATTERNS
     4220   01 01C8A    EDA01299              WD,R10   *GP09             PURGE SUBCHANNELS,BITS 48-95
     4221   01 01C8B    EDB01299              WD,R11   *GP09             PURGE SUBCHANNELS,BITS 0-47
     4222   01 01C8C    10A012F4              AD,R10   FAMPAT3           INCREMENT  NEXT ADDRESS
     4223   01 01C8D    65201C8A              BIR,R2   %-3               LOOP
     4224   01 01C8E    CF001314              HIO,R0   *IOPMSADR         HIO TO CHAN. A MS
     4225   01 01C8F    E800000F A            B        *R15              RETURN TO CALLER
     4226                            *
     4227                            *
     4228                            *                 WRITE-READ 'C' REGISTER, BITS 0-23, CHANNEL 'A'
     4229         01 01C90           WTRDC0   EQU      %
     4230   01 01C90    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     4231   01 01C91    ED801299              WD,R8    *GP09             WRITE 'C' REGISTER, C00-23 & 24-47
     4232   01 01C92    EC90129A              RD,R9    *GP10             READ 'C' REGISTER, C00-23
     4233   01 01C93    4B80350F     WC4      AND,R8   =X'FFFFFF'        MASK CONTROL & ADDRESS BITS
     4234   01 01C94    4B90350F              AND,R9   =X'FFFFFF'
     4235   01 01C95    68001AC6              B        CREQUAL           SHOULD BE EQUAL
     4236                            *
     4237                            *                 WRITE-READ 'C' REGISTER, BITS 24-47, CHANNEL 'A'
     4238         01 01C96           WTRDC1   EQU      %
     4239   01 01C96    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     4240   01 01C97    ED801299              WD,R8    *GP09             WRITE 'C' REGISTER, C00-23 & 24-47
     4241   01 01C98    EC90129B              RD,R9    *GP11             READ 'C' REGISTER, C24-47
     4242   01 01C99    68001C93              B        WC4               MASK CONTROL & ADDRESS BITS
     4243                            *
     4244                            *                 FAM WRITE-READ SUBROUTINE, BLOCK 0 OR 2, CHANNEL A
     4245         01 01C9A           WTRDF0   EQU      %
     4246   01 01C9A    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     4247   01 01C9B    ED801299              WD,R8    *GP09             WRITE FAM, CHANNEL A
     4248   01 01C9C    ED901299              WD,R9    *GP09             READ FAM TO 'C' REGISTER
     4249   01 01C9D    EC90129A              RD,R9    *GP10             READ 'C' REG, BLOCK 0 OR 2
     4250   01 01C9E    4B80350F     WF4      AND,R8   =X'FFFFFF'        MASK EXPECTED & ACTUAL DATA
     4251   01 01C9F    4B90350F              AND,R9   =X'FFFFFF'
     4252   01 01CA0    68001AC6              B        CREQUAL           VERIFY
     4253                            *
     4254                            *                 FAM WRITE-READ SUBROUTINE, BLOCK 1 OR  3, CHANNEL A
     4255         01 01CA1           WTRDF1   EQU      %
     4256   01 01CA1    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     4257   01 01CA2    ED801299              WD,R8    *GP09             WRITE FAM, CHANNEL A
     4258   01 01CA3    ED901299              WD,R9    *GP09             READ FAM TO 'C' REGISTER
     4259   01 01CA4    EC90129B              RD,R9    *GP11             READ 'C' REGISTER, BLOCK 1 OR 3
     4260   01 01CA5    68001C9E              B        WF4
     4261                            ***********************************************************************
     4262                            *                                                                     *
     4263                            *                 TEST MODULES                                        *
     4264                            *                                                                     *
     4265                            ***********************************************************************
     4266                            *
     4267                            *
     4268                            *                                  READ CCU GROUP 0. LOOK FOR HANG UP
     4269   01 01CA6    00104003 A   T0010    GEN,16,10,6    X'10',X'100',T0020-%  PRE-TEST
     4270   01 01CA7    EC001294              RD,R0    *GP00             READ DIRECT GROUP 0.  IF WDT OC-
     4271   01 01CA8    680014D4              B        GOOD               CURS,TCC3= MEM BUS,TCC4= DIO BUS
     4272                            *
     4273                            *                                  RESET & READ DIRECT GROUP 0. VER-
     4274                            *                                   IFY RESULTING DATA.
     4275   01 01CA9    00204108 A   T0020    GEN,16,10,6    X'20',X'104',T0030-%  PRE-TEST
     4276   01 01CAA    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13,  GP16 FOR B
     4277   01 01CAB    EDD01294              WD,R13   *GP00              DITTO FOR CCU
     4278   01 01CAC    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT-- BIT 9
     4279   01 01CAD    EC901294              RD,R9    *GP00             READ CCU GROUP 0
     4280   01 01CAE    4B903510              AND,R9   =X'F8000000'      MASK OFF P:LXX:D'S
     4281   01 01CAF    22800000 A            LI,R8    0                 R8 SHOULD EQUAL R9              *G02
     4282   01 01CB0    68001AC6              B        CREQUAL            AT THIS TIME                   *G02
     4283                            *
     4284                            *                                  RESET & READ DIRECT GROUP 1.  VER-
     4285                            *                                   IFY RESULTING DATA.
     4286   01 01CB1    00304108 A   T0030    GEN,16,10,6    X'30',X'104',T0040-%  PRE-TEST
     4287   01 01CB2    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- CHAN RESET
     4288   01 01CB3    EDD01294              WD,R13   *GP00              DITTO FOR CCU
     4289   01 01CB4    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT-- BIT 9
     4290   01 01CB5    32803511              LW,R8    =X'C0A21000'      COMPARE DATA
     4291   01 01CB6    EC901295              RD,R9    *GP01             READ CCU GROUP1.  SEE DISPLAY
     4292   01 01CB7    4B903512              AND,R9   =X'F9FF1800'       CHART: NRGA-1, NRGB-1, MAR, MDR,
     4293   01 01CB8    68001AC6              B        CREQUAL            DWATZ, & MI/GNDM31
     4294                            *
     4295                            *                                  RESET & READ DIRECT GROUP 2.  VER-
     4296                            *                                   IFY RESULTING DATA
     4297   01 01CB9    0040410A A   T0040    GEN,16,10,6    X'40',X'104',T0050-%  PRE-TEST
     4298   01 01CBA    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13
     4299   01 01CBB    EDD01294              WD,R13   *GP00              DITTO FOR CCU RESET
     4300   01 01CBC    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT
     4301   01 01CBD    328012CC              LW,R8    CM                CLOCK MARGIN CONTROL
     4302   01 01CBE    25800001 A            SLS,R8   1                 POSITION FOR DISPLAY FOR GP 2
     4303   01 01CBF    48803513              EOR,R8   =X'1800000'       MERGE DATA,INVERT NCLKMGHI
     4304   01 01CC0    EC901296              RD,R9    *GP02             READ CCU GROUP 2
     4305   01 01CC1    4B903514              AND,R9   =X'5FE7FFF'       MASK OFF CCUN1-3,NCPU0-1,CCUN0,
     4306   01 01CC2    68001AC6              B        CREQUAL            MATCH/IOP, & MATCH/CPU
     4307                            *
     4308                            *                                  RESET & READ DIRECT GROUP 8 OR 16.
     4309                            *                                   VERIFY RESULTING DATA.
     4310   01 01CC3    005041C8 A   T0050    GEN,16,10,6    X'50',X'107',T0060-%  PRE-TEST & DATA
     4311   01 01CC4    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13
     4312   01 01CC5    EDD01294              WD,R13   *GP00              DITTO FOR CCU RESET
     4313   01 01CC6    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT
     4314   01 01CC7    32803515              LW,R8    =X'80000000'      COMPARE IMAGE
     4315   01 01CC8    EC901298              RD,R9    *GP08             READ DISPLAY FOR GROUP 8 OR 16
     4316   01 01CC9    4B903516              AND,R9   =X'FFFC7FFB'      MASK
     4317   01 01CCA    68001AC6              B        CREQUAL           PHI ON
     4318                            *
     4319                            *                                  RESET & READ DIRECT GROUP 9 OR 17
     4320                            *                                   (DEC).  VERIFY RESULTING DISPLAY
     4321   01 01CCB    006041C8 A   T0060    GEN,16,10,6    X'60',X'107',T0070-%  PRE-TEST, & DATA
     4322   01 01CCC    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13.
     4323   01 01CCD    EDD01294              WD,R13   *GP00              DITTO FOR CCU
     4324   01 01CCE    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT
     4325   01 01CCF    32803517              LW,R8    =X'352000'        COMPARE IMAGE
     4326   01 01CD0    EC901299              RD,R9    *GP09             READ DISPLAY GROUP 9 OR 17 (DEC)
     4327   01 01CD1    4B903518              AND,R9   =X'FFFFF3FF'      MASK.  SEE DISPLAY CHART: NPR1-2
     4328   01 01CD2    68001AC6              B        CREQUAL            FIN,NWI,NIER, & DX2:R
     4329                            *
     4330                            *                                  RESET & READ DIRECT MS GROUP 14 OR
     4331                            *                                   22 (DEC).  VERIFY DISPLAY
     4332   01 01CD3    007041C8 A   T0070    GEN,16,10,6    X'70',X'107',T0080-%  PRE-TEST, & DATA
     4333   01 01CD4    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET
     4334   01 01CD5    EDD01294              WD,R13   *GP00              DITTO FOR CCU RESET
     4335   01 01CD6    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT
     4336   01 01CD7    22808000 A            LI,R8    X'8000'           COMPARE IMAGE
     4337   01 01CD8    EC90129E              RD,R9    *GP14             READ DISPLAY FOR GROUP 14 OR 22
     4338   01 01CD9    4B903519              AND,R9   =X'FFFFFB7B'      MASK. SEE DISPLAY CHART.
     4339   01 01CDA    68001AC6              B        CREQUAL           SHOULD GET MS/PHFS
     4340                            *
     4341                            *                                  RESET & READ DIRECT MS GROUP 15
     4342                            *                                   23 (DEC).  VERIFY DISPLAY.
     4343   01 01CDB    008041C8 A   T0080    GEN,16,10,6    X'80',X'107',T0090-%  PRE-TEST, & DATA
     4344   01 01CDC    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET
     4345   01 01CDD    EDD01294              WD,R13   *GP00              DITTO FOR CCU
     4346   01 01CDE    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT
     4347   01 01CDF    22800000 A            LI,R8    0                 COMPARE IMAGE
     4348   01 01CE0    EC90129F              RD,R9    *GP15             READ DISPLAY FOR GROUP 15 OR 23
     4349   01 01CE1    4B90351A              AND,R9   =X'FFFFFBFF'      MASK.  SEE DISPLAY CHART.
     4350   01 01CE2    68001AC6              B        CREQUAL           BITS SHOULD BE RESET
     4351                            *
     4352                            *                                  CLEAR MS DB'S & DA'S
     4353   01 01CE3    009041CE A   T0090    GEN,16,10,6    X'90',X'107',T0100-%  PRE-TEST, & DATA
     4354   01 01CE4    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET.  MS ADR & D0-
     4355   01 01CE5    ED80129D              WD,R8    *GP13              7=0.  WD GROUP 13 OR 21.
     4356   01 01CE6    22800000 A            LI,R8    0
     4357   01 01CE7    EC90129C              RD,R9    *GP12             READ MS DB'S & DA'S.  GROUP 12
     4358   01 01CE8    330012C8              MTW,0    CHBCTRL           CHANNEL 'A' OR 'B' PASS
     4359   01 01CE9    69301CED              BCS,3    T0090B            CHANNEL 'B' PASS
     4360   01 01CEA    330012FB              MTW,0    FOURBYTA          CHAN 'A'-- TEST 4 BYTE OPTION
     4361   01 01CEB    69301CF0              BCS,3    T0090C+1
     4362   01 01CEC    68001CEF              B        T0090C            NO
     4363   01 01CED    330012FC     T0090B   MTW,0    FOURBYTB          CHANNEL 'B'-- TEST FOUR BYTE
     4364   01 01CEE    69301CF0              BCS,3    %+2                OPTION.  NO
     4365   01 01CEF    4B9034F3     T0090C   AND,R9   =X'FF'            YES-- MASK DB0-7
     4366   01 01CF0    68001AC6              B        CREQUAL            OR 20. BITS SHOULD = 0
     4367                            *
     4368                            *                                  CLEAR MS DD'S & DC'S
     4369   01 01CF1    010043C6 A   T0100    GEN,16,10,6    X'100',X'10F',T0110-%  PRE-TEST
     4370   01 01CF2    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET.  SET MS ADR
     4371   01 01CF3    ED00129D              WD,R0    *GP13              & D0-7 = 0. WD GP 13 OR 21.
     4372   01 01CF4    22800000 A            LI,R8    0
     4373   01 01CF5    EC90129D              RD,R9    *GP13             READ MS DD'S & DC'S.  WD GROUP 13
     4374   01 01CF6    68001AC6              B        CREQUAL            OR 21.  R8 & R9 = 0
     4375                            *
     4376                            *                                  MS RESET VIA MS OFF-LINE CONTROL
     4377   01 01CF7    011041CB A   T0110    GEN,16,10,6    X'110',X'107',T0120-%  PRE-TEST
     4378   01 01CF8    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4379   01 01CF9    3280351B              LW,R8    =X'40000000'      SET MS & DC OFF-LINE
     4380   01 01CFA    ED80129F              WD,R8    *GP15
     4381   01 01CFB    22800001 A            LI,R8    1                 DC'S OFF-LINE
     4382   01 01CFC    358012E6              STW,R8   DCOFFA
     4383   01 01CFD    6AF01ACC              BAL,R15  DLY10MS           10 MILLISECONDS OF DELAY
     4384   01 01CFE    EC90129F              RD,R9    *GP15
     4385   01 01CFF    22800000 A            LI,R8    0                 COMPARE WORD--BITS 16 & 21
        1*  01 01D00    4B90351C              AND,R9   =X'FFFFFFFF'       MS/CDN NO LONGER MASKED        *H00
     4387   01 01D01    68001AC6              B        CREQUAL
     4388                            *
     4389                            *                                  MS RESET VIA MS OFF-LINE CONTROL
     4390   01 01D02    012041CB A   T0120    GEN,16,10,6    X'120',X'107',T0140-%  PRE-TEST
     4391   01 01D03    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4392   01 01D04    3280351B              LW,R8    =X'40000000'      SET MS & DC OFF LINE
     4393   01 01D05    ED80129F              WD,R8    *GP15
     4394   01 01D06    6AF01ACC              BAL,R15  DLY10MS           DELAY 10 MSEC
     4395   01 01D07    22800001 A            LI,R8    1                 DC'S OFF-LINE
     4396   01 01D08    358012E6              STW,R8   DCOFFA
     4397   01 01D09    EC90129E              RD,R9    *GP14
     4398   01 01D0A    22808400 A            LI,R8    X'8400'           COMPARE WORD
        1*  01 01D0B    4B90351D              AND,R9   =X'FFFFFF7F'       MS/CDN MASKED                  *H00
     4400   01 01D0C    68001AC6              B        CREQUAL
     4401                            *
     4402                            *                                  READ CCU GROUP 2
     4403   01 01D0D    0140410C A   T0140    GEN,16,10,6    X'140',X'104',T0150-%  PRE-TEST & DATA
     4404   01 01D0E    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4405   01 01D0F    32801312              LW,R8    IOPNO             CURRENT IOP ADDRESS
     4406   01 01D10    4B803501              AND,R8   =X'1E00'          MASK OFF LOW ORDER BITS
     4407   01 01D11    25800274 A            SCS,R8   -12               FORMAT TO CCU GROUP 2
     4408   01 01D12    75800009 A            STB,R8   R9                REPOSITION HIGH ORDER BIT
     4409   01 01D13    25900001 A            SLS,R9   1
     4410   01 01D14    49800009 A            OR,R8    R9                MERGE
     4411   01 01D15    4B80351E              AND,R8   =X'E2000000'      MASK COMPARE IMAGE
     4412   01 01D16    EC901296              RD,R9    *GP02             CCU GROUP 2
     4413   01 01D17    4B90351E              AND,R9   =X'E2000000'      MASK OUT ALL BUT CCUN1-3
     4414   01 01D18    68001AC6              B        CREQUAL           COMPARE
     4415                            *
     4416                            *                                  VERIFY HOMESPACE BIAS EQUAL TO ZERO
     4417   01 01D19    01504105 A   T0150    GEN,16,10,6    X'150',X'104',T0160-% PRE-TEST,DATA
     4418   01 01D1A    22800000 A            LI,R8    0
     4419   01 01D1B    6C900045 A            RD,R9    X'45'             READ CPU CONTROL GROUP
     4420   01 01D1C    4B90351F              AND,R9   =X'FC000'         MASK ALL BUT HOMESPACE BIAS
     4421   01 01D1D    68001AC6              B        CREQUAL           R9=0, COMPARE REG=R8=0
     4422                            *
     4423                            *                                  VERIFY IOP CPU NUMBER
     4424   01 01D1E    01604109 A   T0160    GEN,16,10,6    X'160',X'104',T0170-%  PRE-TEST,DATA
     4425   01 01D1F    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CPU RESET
     4426   01 01D20    6C800045 A            RD,R8    X'45'             READ CPU CONTROL WORD
     4427   01 01D21    25800003 A            SLS,R8   3                 POSITION CPU # WITH IOP GROUP 2
     4428   01 01D22    4B803520              AND,R8   =X'18000000'      MASK OFF ALL BUT CPU #
     4429   01 01D23    EC901296              RD,R9    *GP02             CCU GROUP 2-- NCPUNO & NCPUN1
     4430   01 01D24    4B903520              AND,R9   =X'18000000'
     4431   01 01D25    48903520              EOR,R9   =X'18000000'      COMPLEMENT RESULTS
     4432   01 01D26    68001AC6              B        CREQUAL           BIT
     4433                            *
     4434                            *                                  VERIFY MS/UNE SET
     4435   01 01D27    017041CE A   T0170    GEN,16,10,6    X'170',X'107',T0180-%  PRE-TEST
     4436   01 01D28    EDE01294              WD,R14   *GP00             MAY WANT OPTIONAL CM SET
     4437   01 01D29    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET
     4438   01 01D2A    3280350B              LW,R8    =X'C0000000'      MS ON-LINE, DC'S OFF-LINE
     4439   01 01D2B    ED80129F              WD,R8    *GP15             GROUP 23 FOR CHAN B
     4440   01 01D2C    6AF01ACC              BAL,R15  DLY10MS           DELAY 10 MILLISECONDS FOR RELAY
     4441   01 01D2D    22800001 A            LI,R8    1                 SET DC OFF INDICATOR
     4442   01 01D2E    358012E6              STW,R8   DCOFFA
     4443   01 01D2F    328034F8              LW,R8    =X'4000000'       MS/UNE
     4444   01 01D30    ED80129E              WD,R8    *GP14             MS SELF-TEST GROUP 14 OR 22
     4445   01 01D31    22800040 A            LI,R8    X'40'             COMPARE IMAGE
     4446   01 01D32    EC90129E              RD,R9    *GP14             READ MS DISPLAY, MS/UNE, GP14
     4447   01 01D33    4B903521              AND,R9   =X'40'            MASK ALL BUT MS/UNE
     4448   01 01D34    68001AC6              B        CREQUAL           R9 SHOULD CONTAIN MS/UNE, BIT 25
     4449                            *
     4450                            *                                  VERIFY MS/UNE RESET
     4451   01 01D35    018041CF A   T0180    GEN,16,10,6    X'180',X'107',T0190-%  PRE-TEST
     4452   01 01D36    EDE01294              WD,R14   *GP00             MAY WANT TO SET OPTIONAL CM
     4453   01 01D37    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET
     4454   01 01D38    3280350B              LW,R8    =X'C0000000'      MS ON-LINE, DC OFF-LINE
     4455   01 01D39    ED80129F              WD,R8    *GP15             GROUP 15 FOR A, 23 FOR B
     4456   01 01D3A    6AF01ACC              BAL,R15  DLY10MS           DELAY FOR RELAY TIME
     4457   01 01D3B    22800001 A            LI,R8    1                 SET DC OFF INDICATOR
     4458   01 01D3C    358012E6              STW,R8   DCOFFA
     4459   01 01D3D    328034F8              LW,R8    =X'4000000'       SET MS/UNE VIA SELF TEST IN MS
     4460   01 01D3E    ED80129E              WD,R8    *GP14             GROUP 14 FOR A, 22 FOR B
     4461   01 01D3F    EDD01298              WD,R13   *GP08             R13 CONTAINS RESET BIT
     4462   01 01D40    EC90129E              RD,R9    *GP14             READ MS DISPLAY
     4463   01 01D41    22800000 A            LI,R8    0                 R8  CONTAINS COMPARE IMAGE
     4464   01 01D42    4B903521              AND,R9   =X'40'            R9 CONTAINS ACTUAL
     4465   01 01D43    68001AC6              B        CREQUAL           SHOULD BE A ZERO
     4466                            *
     4467                            *                                  VERIFY MS/UNE RESET VIA MS OFF-LINE
     4468   01 01D44    019041CC A   T0190    GEN,16,10,6    X'190',X'107',T0200-%  PRE-TEST
     4469   01 01D45    6AF01B3B              BAL,R15  ONLINECK+2        ENSURE MS ON-LINE, DC OFF-LINE
     4470   01 01D46    EDE01294              WD,R14   *GP00             MAY WANT TO SET OPTIONAL CM BIT
     4471   01 01D47    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET
     4472   01 01D48    328034F8              LW,R8    =X'4000000'       SET MS/UNE VIA SELF TEST MS GROUP
     4473   01 01D49    ED80129E              WD,R8    *GP14             GROUP 14 OR 22 (DEC)
     4474   01 01D4A    3280351B              LW,R8    =X'40000000'
     4475   01 01D4B    ED80129F              WD,R8    *GP15             SET MS OFF-LINE, & DC OFF LINE
     4476   01 01D4C    22800000 A            LI,R8    0                 COMPARE IMAGE
     4477   01 01D4D    EC90129E              RD,R9    *GP14             READ GROUP 14 OR 22 (DEC)
     4478   01 01D4E    4B903521              AND,R9   =X'40'            MASK
     4479   01 01D4F    68001AC6              B        CREQUAL           COMPARE
     4480                            *
     4481                            *                                  VERIFY MS/ORD7 SET
     4482   01 01D50    020041C8 A   T0200    GEN,16,10,6    X'200',X'107',T0210-%  PRE-TEST
     4483   01 01D51    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4484   01 01D52    328034FC              LW,R8    =X'2000000'       SET MS/ORD7 VIA MS SELF TEST
     4485   01 01D53    ED80129E              WD,R8    *GP14              GROUP 14 OR 22 (DEC)
     4486   01 01D54    22800001 A            LI,R8    1                 MS/ORD7 = 1
     4487   01 01D55    EC90129E              RD,R9    *GP14             READ MS DISPLAY GROUP 14 OR 22
     4488   01 01D56    4B903507              AND,R9   =1                MASK ALL OFF EXCEPT MS/ORD7
     4489   01 01D57    68001AC6              B        CREQUAL
     4490                            *
     4491                            *                                  VERIFY MS/ORD7 RESET
     4492   01 01D58    021041C8 A   T0210    GEN,16,10,6    X'210',X'107',T0220-%  PRE-TEST
     4493   01 01D59    328034FC              LW,R8    =X'2000000'       SET MS/ORD7 VIA MS SELF TEST MODE
     4494   01 01D5A    ED80129E              WD,R8    *GP14             GROUP 14 OR 22 (DEC)
     4495   01 01D5B    EDD01298              WD,R13   *GP08             RESET BIT 13
     4496   01 01D5C    22800000 A            LI,R8    0                 COMPARE WORD
     4497   01 01D5D    EC90129E              RD,R9    *GP14             GROUP 14 OR 22 (DEC)
     4498   01 01D5E    4B903507              AND,R9   =1                MASK ALL EXCEPT MS/ORD7
     4499   01 01D5F    68001AC6              B        CREQUAL
     4500                            *
     4501                            *                                  SET MI/GNDM31 & MI/GNDCM37
     4502   01 01D60    0220410A A   T0220    GEN,16,10,6    X'220',X'104',T0230-%  PRE-TEST, DATA
     4503   01 01D61    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4504   01 01D62    32803522              LW,R8    =X'18000'         BIT 15 & 16-- GND M31 & FAM37
     4505   01 01D63    498012CC              OR,R8    CM                OPTIONAL CM BIT
     4506   01 01D64    ED801294              WD,R8    *GP00
     4507   01 01D65    22800800 A            LI,R8    X'800'            COMPARE WORD-- MI/GNDCFAM37
     4508   01 01D66    EC901295              RD,R9    *GP01             READ CCU DISPLAY
     4509   01 01D67    4B903523              AND,R9   =X'1800'          MASK
     4510   01 01D68    EDE01294              WD,R14   *GP00             CLEAR
     4511   01 01D69    68001AC6              B        CREQUAL           COMPARE-- BIT 20 SET IN GROUP 1
     4512                            *
     4513                            *                                  RESET MI/GNDM31 & MI/GNDCM37
     4514   01 01D6A    0230410B A   T0230    GEN,16,10,6    X'230',X'104',T0240-%  PRE-TEST, DATA
     4515   01 01D6B    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4516   01 01D6C    32803522              LW,R8    =X'18000'         BITS 15 & 16-- GND M31 & FAM 37
     4517   01 01D6D    498012CC              OR,R8    CM                OPTIONAL CM
     4518   01 01D6E    ED801294              WD,R8    *GP00             SET CONTROL BIT
     4519   01 01D6F    328012CC              LW,R8    CM                OPTIONAL CM AGAIN
     4520   01 01D70    ED801294              WD,R8    *GP00             RESET
     4521   01 01D71    22801000 A            LI,R8    X'1000'           COMPARE WORD-- MI/GNDM31
     4522   01 01D72    EC901295              RD,R9    *GP01             READ CCU DISPLAY
     4523   01 01D73    4B903523              AND,R9   =X'1800'          MASK
     4524   01 01D74    68001AC6              B        CREQUAL           COMPARE-- BIT 19 SET IN GROUP 1
     4525                            *
     4526                            *                                  SET CLOCK MARGIN BIT
     4527   01 01D75    02404109 A   T0240    GEN,16,10,6    X'240',X'104',T0250-%  PRE-TEST, DATA
     4528   01 01D76    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4529   01 01D77    328034ED              LW,R8    =X'400000'        CLOCK MARGIN BIT
     4530   01 01D78    ED801294              WD,R8    *GP00             SET CM
     4531   01 01D79    EC901296              RD,R9    *GP02             READ CCU DISPLAY GROUP
     4532   01 01D7A    EDE01294              WD,R14   *GP00             OPTIONAL CLOCK MARGIN
     4533   01 01D7B    4B903524              AND,R9   =X'800000'        MASK
     4534   01 01D7C    22800000 A            LI,R8    0                 R8 & R9 SHOULD = 0
     4535   01 01D7D    68001AC6              B        CREQUAL
     4536                            *
     4537                            *                                  RESET CLOCK MARGIN BIT
     4538   01 01D7E    0250410A A   T0250    GEN,16,10,6    X'250',X'104',T0260-%  PRE-TEST & DATA
     4539   01 01D7F    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4540   01 01D80    328034ED              LW,R8    =X'400000'        CLOCK MARGIN BIT
     4541   01 01D81    ED801294              WD,R8    *GP00             SET CLOCK MARGINS
     4542   01 01D82    ED001294              WD,R0    *GP00             RESET CLOCK MARGINS
     4543   01 01D83    EC901296              RD,R9    *GP02
     4544   01 01D84    32803524              LW,R8    =X'800000'        COMPARE IMAGE, BIT 8, CCU CM
     4545   01 01D85    EDE01294              WD,R14   *GP00             RESTORE OPTIONAL CM
     4546   01 01D86    4B903524              AND,R9   =X'800000'        MASK
     4547   01 01D87    68001AC6              B        CREQUAL           R8 = R9
     4548                            *
     4549                            *                                  SET CCU DLSTOP/1
     4550   01 01D88    0260410A A   T0260    GEN,16,10,6    X'260',X'104',T0270-%  PRE-TEST, DATA
     4551   01 01D89    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4552   01 01D8A    22801000 A            LI,R8    X'1000'           CCU GROUP 0 SINGLE STEP MODE
     4553   01 01D8B    498012CC              OR,R8    CM
     4554   01 01D8C    ED801294              WD,R8    *GP00
     4555   01 01D8D    EC901295              RD,R9    *GP01             READ DLSTOP/1, GROUP 1, BIT 7
     4556   01 01D8E    EDE01294              WD,R14   *GP00             CLEAR SINGLE STEP MODE
     4557   01 01D8F    4B903525              AND,R9   =X'1000000'       MASK
     4558   01 01D90    32803525              LW,R8    =X'1000000'       COMPARE WORD
     4559   01 01D91    68001AC6              B        CREQUAL           COMPARE R8 & R9
     4560                            *
     4561                            *                                  RESET CCU DLSTOP/1
     4562   01 01D92    0270410A A   T0270    GEN,16,10,6    X'270',X'104',T0280-%  PRE-TEST, DATA
     4563   01 01D93    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4564   01 01D94    22801000 A            LI,R8    X'1000'           CCU GROUP 0, SINGLE PHASE STEP MODE
     4565   01 01D95    498012CC              OR,R8    CM                OPTIONAL CM BIT
     4566   01 01D96    ED801294              WD,R8    *GP00             SET
     4567   01 01D97    EDE01294              WD,R14   *GP00             RESET OPTIONAL CM
     4568   01 01D98    22800000 A            LI,R8    0
     4569   01 01D99    EC901295              RD,R9    *GP01             READ DLSTOP/1, GROUP 1, BIT 7
     4570   01 01D9A    4B903525              AND,R9   =X'1000000'       MASK ALL OFF EXCEPT BIT 7
     4571   01 01D9B    68001AC6              B        CREQUAL           C(R8) & C(R9) = 0
     4572                            *
     4573                            *                                  VERIFY SNAP MODE
     4574   01 01D9C    0280410A A   T0280    GEN,16,10,6    X'280',X'104',T0290-%  PRE-TEST, DAT
     4575   01 01D9D    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4576   01 01D9E    22800601 A            LI,R8    X'601'            SET SNAP MODE, & MI/C0-3
     4577   01 01D9F    498012CC              OR,R8    CM                 SNAPGPA4, & MI/CNT/EN. OPT CM.
     4578   01 01DA0    ED801294              WD,R8    *GP00
     4579   01 01DA1    22800601 A            LI,R8    X'601'            SHOULD SEE MICNT/EN, SNAP
     4580   01 01DA2    EC901294              RD,R9    *GP00              MODE, & SNAPGPA4
     4581   01 01DA3    4B903526              AND,R9   =X'7FF'           MASK
     4582   01 01DA4    EDE01294              WD,R14   *GP00             RESTORE OPTIONAL CM
     4583   01 01DA5    68001AC6              B        CREQUAL
     4584                            *
     4585                            *                                  VERIFY SNAP COUNTER IN STATIC
     4586                            *                                   STATE
     4587   01 01DA6    0290410C A   T0290    GEN,16,10,6    X'290',X'104',T0300-%  PRE-TEST, & DATA
     4588   01 01DA7    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4589   01 01DA8    22800740 A            LI,R8    X'740'            RELEASE & SET SNAP MODE &
     4590   01 01DA9    498012CC              OR,R8    CM                 MI/CO-4 = A. OPTIONAL CM.
     4591   01 01DAA    ED801294              WD,R8    *GP00             CCU GROUP
     4592   01 01DAB    22800400 A            LI,R8    X'400'            RELEASE SNAP MODE
     4593   01 01DAC    498012CC              OR,R8    CM
     4594   01 01DAD    ED801294              WD,R8    *GP00             RESTORE OPTIONAL CM
     4595   01 01DAE    22800540 A            LI,R8    X'540'
     4596   01 01DAF    EC901295              RD,R9    *GP01             READ STATICLY GROUP 1
     4597   01 01DB0    4B903526              AND,R9   =X'7FF'           MASK OFF 0-20.  SHOULD SEE MI/CNT-
     4598   01 01DB1    68001AC6              B        CREQUAL            /EN, MICO, & MIC2
     4599                            *
     4600                            *                                  VERIFY SNAP COUNTER IN STATIC
     4601                            *                                    STATE
     4602   01 01DB2    0300410C A   T0300    GEN,16,10,6    X'300',X'104',T0310-%  PRE-TEST,DATA
     4603   01 01DB3    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     4604   01 01DB4    228006A0 A            LI,R8    X'6A0'            SET RELEASE SNAPSHOT MODE, SET
     4605   01 01DB5    498012CC              OR,R8    CM
     4606   01 01DB6    ED801294              WD,R8    *GP00              SNAPSHOT MODE, & MI/C0-4 = 5
     4607   01 01DB7    22800400 A            LI,R8    X'400'            RELEASE SNAP MODE
     4608   01 01DB8    498012CC              OR,R8    CM
     4609   01 01DB9    ED801294              WD,R8    *GP00
     4610   01 01DBA    EC901295              RD,R9    *GP01             READ STATIC GROUP 1
     4611   01 01DBB    4B903526              AND,R9   =X'7FF'           MASK OFF 0-20
     4612   01 01DBC    228004A0 A            LI,R8    X'4A0'            SHOULD SEE MI/CNT/EN, MIC1, &
     4613   01 01DBD    68001AC6              B        CREQUAL            MIC3
     4614                            *
     4615                            *                                  DECREMENT SNAP COUNT
     4616   01 01DBE    03104114 A   T0310    GEN,16,10,6    X'310',X'104',T0320-%   DIO PRE-TEST & DATA PRNT
     4617   01 01DBF    6AF01DC4              BAL,R15  T0310B            GO TO SNAP DECREMENT SUBROUTINE
     4618   01 01DC0    000007E0 A            DATA     X'7E0'            COUNT VALUE TO BE DECREMENTED
     4619   01 01DC1    000001C0 A            DATA     X'1C0'            EXPECTED DATA
     4620                            *
     4621   01 01DC2    3310000F A            MTW,1    R15               COMPARE IMAGE
     4622   01 01DC3    B250000F A            LW,R5    *R15
     4623         01 01DC4           T0310B   EQU      %
     4624   01 01DC4    B280000F A            LW,R8    *15               FETCH INITIALIZATION COUNT
     4625   01 01DC5    498012CC              OR,R8    CM                ADD CLOCK MARGIN SETTING
     4626   01 01DC6    ED801294              WD,R8    *GP00             SET SNAP MODE AND COUNT
     4627   01 01DC7    22900400 A            LI,R9    X'400'            SET BIT 21
     4628   01 01DC8    499012CC              OR,R9    CM                ADD CLOCK MARGIN SETTING
     4629   01 01DC9    ED901294              WD,R9    *GP00             RESET SNAPSHOT MODE
     4630   01 01DCA    32903527              LW,R9    =X'80000'         SET WRITE DIRECT DATA BIT 12
     4631   01 01DCB    499012CC              OR,R9    CM                ADD CLOCK MARGIN SETTING
     4632   01 01DCC    ED901294              WD,R9    *GP00             PULSE COUNTER TEST CLOCK
     4633   01 01DCD    3310000F A            MTW,1    R15
     4634   01 01DCE    B280000F A            LW,R8    *R15              EXPECTED DATA
     4635   01 01DCF    EC901295              RD,R9    *GP01             READ FOR MIC0 THRU 3
     4636   01 01DD0    4B903528              AND,R9   =X'1E0'           MASK DATA RECEIVED
     4637   01 01DD1    68001AC6              B        CREQUAL           COMPARE R8/R9
     4638                            *
     4639                            *                                  DECREMENT SNAP COUNT
     4640   01 01DD2    03204104 A   T0320    GEN,16,10,6    X'320',X'104',T0330-%   DIO PRE-TEST & DATA PRNT
     4641   01 01DD3    6AF01DC4              BAL,R15  T0310B            GO TO SNAP DECREMENT SUBROUTINE
     4642   01 01DD4    000007C0 A            DATA     X'7C0'            COUNT VALUE TO BE DECREMENTED
     4643   01 01DD5    00000180 A            DATA     X'180'            COMPARE WORD
     4644                            *
     4645                            *                                  DECREMENT SNAP COUNT
     4646   01 01DD6    03304104 A   T0330    GEN,16,10,6    X'330',X'104',T0340-%   DIO PRE-TEST & DATA PRNT
     4647   01 01DD7    6AF01DC4              BAL,R15  T0310B            GO TO SNAP DECREMENT SUBROUTINE
     4648   01 01DD8    00000780 A            DATA     X'780'            COUNT VALUE TO BE DECREMENTED
     4649   01 01DD9    00000100 A            DATA     X'100'            COMPARE WORD
     4650                            *
     4651                            *                                  DECREMENT SNAP COUNT
     4652   01 01DDA    03404104 A   T0340    GEN,16,10,6    X'340',X'104',T0350-%   DIO PRE-TEST & DATA PRNT
     4653   01 01DDB    6AF01DC4              BAL,R15  T0310B            GO TO SNAP DECREMENT SUBROUTINE
     4654   01 01DDC    00000700 A            DATA     X'700'            COUNT VALUE TO BE DECREMENTED
     4655   01 01DDD    00000000 A            DATA     0                 COMPARE WORD
     4656                            *
     4657                            *                                  DECREMENT SNAP COUNT
     4658   01 01DDE    0350410E A   T0350    GEN,16,10,6    X'350',X'104',T0360-%   DIO PRE-TEST & DATA PRNT
     4659   01 01DDF    22800600 A            LI,R8    X'600'            RELEASE AND SET SNAP BITS
     4660   01 01DE0    498012CC              OR,R8    CM                OPTIONAL CLOCK MARGINS
     4661   01 01DE1    ED801294              WD,R8    *GP00             CCU CONTROL
     4662   01 01DE2    32803527              LW,R8    =X'80000'         COUNTER TEST CLOCK
     4663   01 01DE3    498012CC              OR,R8    CM                OPTIONAL CLOCK MARGINS
     4664   01 01DE4    ED801294              WD,R8    *GP00             CCU CONTROL
     4665   01 01DE5    22800400 A            LI,R8    X'400'
     4666   01 01DE6    498012CC              OR,R8    CM
     4667   01 01DE7    ED801294              WD,R8    *GP00             RELEASE CCU
     4668   01 01DE8    228001E0 A            LI,R8    X'1E0'            COMPARE PATTERN
     4669   01 01DE9    EC901295              RD,R9    *GP01             READ GROUP 1 FOR MIC0-3 ETC.
     4670   01 01DEA    4B903526              AND,R9   =X'7FF'           MASK OFF 0-20
     4671   01 01DEB    68001AC6              B        CREQUAL           COMPARE R8 & R9
     4672                            *
     4673                            *                                  DECREMENT SNAP COUNT
     4674                            *                                   --CONDITION CODE SETTING
     4675   01 01DEC    03604110 A   T0360    GEN,16,10,6    X'360',X'104',T0370-%   DIO PRE-TEST & DATA PRNT
     4676   01 01DED    22900600 A            LI,R9    X'600'            WRITE DIRECT DATA BIT S 21 & 22
     4677   01 01DEE    499012CC              OR,R9    CM                ADD CLOCK MARGIN SETTING
     4678   01 01DEF    ED901294              WD,R9    *GP00             SET SNAP MODE; COUNT = 0
     4679   01 01DF0    32903527              LW,R9    =X'80000'         WRITE DIRECT COUNTER TEST
     4680   01 01DF1    499012CC              OR,R9    CM                ADD CLOCK MARGIN SETTING
     4681   01 01DF2    ED901294              WD,R9    *GP00             PULSE COUNTER TEST CLK
     4682   01 01DF3    22800400 A            LI,R8    X'400'            WRITE DIRECT DATA BIT 21
     4683   01 01DF4    EC001294              RD,R0    *DISPLAY          READ
     4684   01 01DF5    74000009 A            STCF     R9                SAVE CC'S
     4685   01 01DF6    25900204 A            SCS,R9   4                 FORMAT
     4686   01 01DF7    4B9034EB              AND,R9   =X'F'             MASK ALL BUT CC'S
     4687   01 01DF8    498012CC              OR,R8    CM                ADD CLOCK MARGIN SETTING
     4688   01 01DF9    ED801294              WD,R8    *GP00             RELEASE SNAP MODE
     4689   01 01DFA    22800002 A            LI,R8    2                 CC EXPECTED (CC 3)
     4690   01 01DFB    68001AC6              B        CREQUAL           COMPARE R8/R9
     4691                            *
     4692                            *                                  VERIFY SNAP GROUP ADDRESS 0
     4693   01 01DFC    0370410E A   T0370    GEN,16,10,6    X'370',X'104',T0374-%   DIO PRE-TEST & DATA PRNT
     4694   01 01DFD    22808600 A            LI,R8    X'8600'           OPEN WINDOW, RELEASE & SET SNAP
     4695   01 01DFE    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4696   01 01DFF    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4697   01 01E00    EC801294              RD,R8    *GP00             EXECUTIBLE INSTRUCTION-- COMPARE
     4698                            *
     4699         01 01E01           T0370B   EQU      %
     4700   01 01E01    498012CC              OR,R8    CM                OPTION CLOCK MARGIN
     4701   01 01E02    ED801294              WD,R8    *GP00             SNAP MODE & OPEN WINDOW
     4702   01 01E03    22800400 A            LI,R8    X'400'
     4703   01 01E04    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
     4704   01 01E05    4B90000A A            AND,R9   R10
     4705   01 01E06    498012CC              OR,R8    CM
     4706   01 01E07    ED801294              WD,R8    *GP00             RELEASE SNAP
     4707   01 01E08    E700000F A            EXU      *R15              READ DIRECT APPROPRIATE GROUP
     4708   01 01E09    68001AC6              B        CREQUAL
     4709                            *
     4710                            *                                  VERIFY SNAP GROUP ADDRESS 1
     4711   01 01E0A    03744105 A   T0374    GEN,16,10,6    X'374',X'104',T0378-%  PRE-TEST
     4712   01 01E0B    22800601 A            LI,R8    X'0601'           OPEN WINDOW, RELEASE & SET SNAP
     4713   01 01E0C    22AF3DFE A            LI,R10   X'F3DFE'          MASK
     4714   01 01E0D    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4715   01 01E0E    EC801295              RD,R8    *GP01             EXECUTIBLE INSTRUCTION-- COMPARE
     4716                            *
     4717                            *                                  VERIFY SNAP GROUP ADDRESS 8
     4718   01 01E0F    037841C6 A   T0378    GEN,16,10,6    X'378',X'107',T0382-%   DIO PRE-TEST & DATA PRNT
     4719   01 01E10    22808608 A            LI,R8    X'8608'           OPEN WINDOW, RELEASE & SET SNAP
     4720   01 01E11    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4721   01 01E12    308012C8              AW,R8    CHBCTRL
     4722   01 01E13    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4723   01 01E14    EC801298              RD,R8    *GP08             EXECUTIBLE INSTRUCTION-- COMPARE
     4724                            *
     4725                            *                                  VERIFY SNAP GROUP ADDRESS  9
     4726   01 01E15    038241C6 A   T0382    GEN,16,10,6    X'382',X'107',T0386-%   DIO PRE-TEST & DATA PRNT
     4727   01 01E16    22808609 A            LI,R8    X'8609'           OPEN WINDOW, RELEASE & SET SNAP
     4728   01 01E17    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4729   01 01E18    308012C8              AW,R8    CHBCTRL
     4730   01 01E19    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4731   01 01E1A    EC801299              RD,R8    *GP09
     4732                            *
     4733                            *                                  VERIFY SNAP GROUP ADDRESS 10
     4734   01 01E1B    038641C6 A   T0386    GEN,16,10,6    X'386',X'107',T0390-%
     4735   01 01E1C    2280860A A            LI,R8    X'860A'           OPEN WINDOW, RELEASE & SET SNAP
     4736   01 01E1D    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4737   01 01E1E    308012C8              AW,R8    CHBCTRL
     4738   01 01E1F    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4739   01 01E20    EC80129A              RD,R8    *GP10
     4740                            *
     4741                            *                                  VERIFY SNAP GROUP ADDRESS 11
     4742   01 01E21    039041C6 A   T0390    GEN,16,10,6    X'390',X'107',T0394-%
     4743   01 01E22    2280860B A            LI,R8    X'860B'           OPEN WINDOW, RELEASE & SET SNAP
     4744   01 01E23    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4745   01 01E24    308012C8              AW,R8    CHBCTRL
     4746   01 01E25    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4747   01 01E26    EC80129B              RD,R8    *GP11
     4748                            *
     4749                            *                                  VERIFY SNAP GROUP ADDRESS 12
     4750   01 01E27    039441C6 A   T0394    GEN,16,10,6    X'394',X'107',T0398-%
     4751   01 01E28    2280860C A            LI,R8    X'860C'           OPEN WINDOW, RELEASE & SET SNAP
     4752   01 01E29    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4753   01 01E2A    308012C8              AW,R8    CHBCTRL
     4754   01 01E2B    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4755   01 01E2C    EC80129C              RD,R8    *GP12
     4756                            *
     4757                            *                                  VERIFY SNAP GROUP ADDRESS 13
     4758   01 01E2D    039841C6 A   T0398    GEN,16,10,6    X'398',X'107',T0402-%
     4759   01 01E2E    2280860D A            LI,R8    X'860D'           OPEN WINDOW, RELEASE & SET SNAP
     4760   01 01E2F    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4761   01 01E30    308012C8              AW,R8    CHBCTRL
     4762   01 01E31    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4763   01 01E32    EC80129D              RD,R8    *GP13
     4764                            *
     4765                            *                                  VERIFY SNAP GROUP ADDRESS 14
     4766   01 01E33    040241C6 A   T0402    GEN,16,10,6    X'402',X'107',T0406-%
     4767   01 01E34    2280860E A            LI,R8    X'860E'           OPEN WINDOW, RELEASE & SET SNAP
     4768   01 01E35    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4769   01 01E36    308012C8              AW,R8    CHBCTRL
     4770   01 01E37    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4771   01 01E38    EC80129E              RD,R8    *GP14
     4772                            *
     4773                            *                                  VERIFY SNAP GROUP ADDRESS 15
     4774   01 01E39    040641C6 A   T0406    GEN,16,10,6    X'406',X'107',T0410-%
     4775   01 01E3A    2280860F A            LI,R8    X'860F'           OPEN WINDOW, RELEASE & SET SNAP
     4776   01 01E3B    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4777   01 01E3C    308012C8              AW,R8    CHBCTRL
     4778   01 01E3D    6AF01E01              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE
     4779   01 01E3E    EC80129F              RD,R8    *GP15
     4780                            *
     4781                            *
     4782                            *                                  VERIFY SNAP GROUP ADDRESS 0
     4783   01 01E3F    041041CC A   T0410    GEN,16,10,6    X'410',X'107',T0414-%  PRE-TEST
     4784   01 01E40    22808600 A            LI,R8    X'8600'           OPEN WINDOW, RELEASE & SET SNAP
     4785   01 01E41    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4786   01 01E42    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4787   01 01E43    EC801294              RD,R8    *GP00             EXECUTIBLE INSTRUCTION-- COMPARE
     4788                            *
     4789         01 01E44           T0410B   EQU      %
     4790   01 01E44    ED801298              WD,R8    *GP08             SNAP MODE & OPEN WINDOW, BASE
     4791   01 01E45    22800400 A            LI,R8    X'400'             GROUP 8 OR 16
     4792   01 01E46    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
     4793   01 01E47    4B90000A A            AND,R9   R10
     4794   01 01E48    ED801298              WD,R8    *GP08             RELEASE SNAP, BASE GROUP 8/16
     4795   01 01E49    E700000F A            EXU      *R15              READ DIRECT APPROPRIATE GROUP
     4796   01 01E4A    68001AC6              B        CREQUAL
     4797                            *
     4798                            *                                  VERIFY SNAP GROUP ADDRESS 1
     4799   01 01E4B    041441C5 A   T0414    GEN,16,10,6    X'414',X'107',T0418-%   DIO PRE-TEST & DATA PRNT
     4800   01 01E4C    22808601 A            LI,R8    X'8601'           OPEN WINDOW, RELEASE & SET SNAP
     4801   01 01E4D    22AF3DFE A            LI,R10   X'F3DFE'          MASK
     4802   01 01E4E    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4803   01 01E4F    EC801295              RD,R8    *GP01             EXECUTIBLE INSTRUCTION-- COMPARE
     4804                            *
     4805                            *                                  VERIFY SNAP GROUP ADDRESS 8
     4806   01 01E50    041841C6 A   T0418    GEN,16,10,6    X'418',X'107',T0422-%   DIO PRE-TEST & DATA PRNT
     4807   01 01E51    22808608 A            LI,R8    X'8608'           OPEN WINDOW, RELEASE & SET SNAP
     4808   01 01E52    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4809   01 01E53    308012C8              AW,R8    CHBCTRL
     4810   01 01E54    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4811   01 01E55    EC801298              RD,R8    *GP08             EXECUTIBLE INSTRUCTION-- COMPARE
     4812                            *
     4813                            *                                  VERIFY SNAP GROUP ADDRESS  9
     4814   01 01E56    042241C6 A   T0422    GEN,16,10,6    X'422',X'107',T0426-%   DIO PRE-TEST & DATA PRNT
     4815   01 01E57    22808609 A            LI,R8    X'8609'           OPEN WINDOW, RELEASE & SET SNAP
     4816   01 01E58    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4817   01 01E59    308012C8              AW,R8    CHBCTRL
     4818   01 01E5A    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4819   01 01E5B    EC801299              RD,R8    *GP09
     4820                            *
     4821                            *                                  VERIFY SNAP GROUP ADDRESS 10
     4822   01 01E5C    042641C6 A   T0426    GEN,16,10,6    X'426',X'107',T0430-%
     4823   01 01E5D    2280860A A            LI,R8    X'860A'           OPEN WINDOW, RELEASE & SET SNAP
     4824   01 01E5E    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4825   01 01E5F    308012C8              AW,R8    CHBCTRL
     4826   01 01E60    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4827   01 01E61    EC80129A              RD,R8    *GP10
     4828                            *
     4829                            *                                  VERIFY SNAP GROUP ADDRESS 11
     4830   01 01E62    043041C6 A   T0430    GEN,16,10,6    X'430',X'107',T0434-%
     4831   01 01E63    2280860B A            LI,R8    X'860B'           OPEN WINDOW, RELEASE & SET SNAP
     4832   01 01E64    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4833   01 01E65    308012C8              AW,R8    CHBCTRL
     4834   01 01E66    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4835   01 01E67    EC80129B              RD,R8    *GP11
     4836                            *
     4837                            *                                  VERIFY SNAP GROUP ADDRESS 12
     4838   01 01E68    043441C6 A   T0434    GEN,16,10,6    X'434',X'107',T0438-%
     4839   01 01E69    2280860C A            LI,R8    X'860C'           OPEN WINDOW, RELEASE & SET SNAP
     4840   01 01E6A    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4841   01 01E6B    308012C8              AW,R8    CHBCTRL
     4842   01 01E6C    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4843   01 01E6D    EC80129C              RD,R8    *GP12
     4844                            *
     4845                            *                                  VERIFY SNAP GROUP ADDRESS 13
     4846   01 01E6E    043841C6 A   T0438    GEN,16,10,6    X'438',X'107',T0442-%
     4847   01 01E6F    2280860D A            LI,R8    X'860D'           OPEN WINDOW, RELEASE & SET SNAP
     4848   01 01E70    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4849   01 01E71    308012C8              AW,R8    CHBCTRL
     4850   01 01E72    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4851   01 01E73    EC80129D              RD,R8    *GP13
     4852                            *
     4853                            *                                  VERIFY SNAP GROUP ADDRESS 14
     4854   01 01E74    044241C6 A   T0442    GEN,16,10,6    X'442',X'107',T0446-%
     4855   01 01E75    2280860E A            LI,R8    X'860E'           OPEN WINDOW, RELEASE & SET SNAP
     4856   01 01E76    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4857   01 01E77    308012C8              AW,R8    CHBCTRL
     4858   01 01E78    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4859   01 01E79    EC80129E              RD,R8    *GP14
     4860                            *
     4861                            *                                  VERIFY SNAP GROUP ADDRESS 15
     4862   01 01E7A    044641C6 A   T0446    GEN,16,10,6    X'446',X'107',T0450-%
     4863   01 01E7B    2280860F A            LI,R8    X'860F'           OPEN WINDOW, RELEASE & SET SNAP
     4864   01 01E7C    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4865   01 01E7D    308012C8              AW,R8    CHBCTRL
     4866   01 01E7E    6AF01E44              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE
     4867   01 01E7F    EC80129F              RD,R8    *GP15
     4868                            *
     4869                            *
     4870                            *                                  VERIFY SNAP GROUP ADDRESS 0
     4871   01 01E80    045041CC A   T0450    GEN,16,10,6    X'450',X'107',T0454-%  PRE-TEST
     4872   01 01E81    22804600 A            LI,R8    X'4600'           OPEN WINDOW, RELEASE & SET SNAP
     4873   01 01E82    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4874   01 01E83    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4875   01 01E84    EC801294              RD,R8    *GP00             EXECUTIBLE INSTRUCTION-- COMPARE
     4876                            *
     4877         01 01E85           T0450B   EQU      %
     4878   01 01E85    ED80129C              WD,R8    *GP12             SNAP MODE & OPEN WINDOW FOR MS GROUP
     4879   01 01E86    22800400 A            LI,R8    X'400'
     4880   01 01E87    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
     4881   01 01E88    4B90000A A            AND,R9   R10               MASK
     4882   01 01E89    ED80129C              WD,R8    *GP12             RELEASE SNAP
     4883   01 01E8A    E700000F A            EXU      *R15              READ DIRECT APPROPRIATE GROUP
     4884   01 01E8B    68001AC6              B        CREQUAL
     4885                            *
     4886                            *                                  VERIFY SNAP GROUP ADDRESS 1
     4887   01 01E8C    045441C5 A   T0454    GEN,16,10,6    X'454',X'107',T0458-%   DIO PRE-TEST & DATA PRNT
     4888   01 01E8D    22804601 A            LI,R8    X'4601'           OPEN WINDOW, RELEASE & SET SNAP
     4889   01 01E8E    22AF3DFE A            LI,R10   X'F3DFE'          MASK
     4890   01 01E8F    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4891   01 01E90    EC801295              RD,R8    *GP01             EXECUTIBLE INSTRUCTION-- COMPARE
     4892                            *
     4893                            *                                  VERIFY SNAP GROUP ADDRESS 8
     4894   01 01E91    045841C6 A   T0458    GEN,16,10,6    X'458',X'107',T0462-%   DIO PRE-TEST & DATA PRNT
     4895   01 01E92    22804608 A            LI,R8    X'4608'           OPEN WINDOW, RELEASE & SET SNAP
     4896   01 01E93    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4897   01 01E94    308012C8              AW,R8    CHBCTRL
     4898   01 01E95    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4899   01 01E96    EC801298              RD,R8    *GP08             EXECUTIBLE INSTRUCTION-- COMPARE
     4900                            *
     4901                            *                                  VERIFY SNAP GROUP ADDRESS  9
     4902   01 01E97    046241C6 A   T0462    GEN,16,10,6    X'462',X'107',T0466-%   DIO PRE-TEST & DATA PRNT
     4903   01 01E98    22804609 A            LI,R8    X'4609'           OPEN WINDOW, RELEASE & SET SNAP
     4904   01 01E99    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4905   01 01E9A    308012C8              AW,R8    CHBCTRL
     4906   01 01E9B    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4907   01 01E9C    EC801299              RD,R8    *GP09
     4908                            *
     4909                            *                                  VERIFY SNAP GROUP ADDRESS 10
     4910   01 01E9D    046641C6 A   T0466    GEN,16,10,6    X'466',X'107',T0470-%
     4911   01 01E9E    2280460A A            LI,R8    X'460A'           OPEN WINDOW, RELEASE & SET SNAP
     4912   01 01E9F    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4913   01 01EA0    308012C8              AW,R8    CHBCTRL
     4914   01 01EA1    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4915   01 01EA2    EC80129A              RD,R8    *GP10
     4916                            *
     4917                            *                                  VERIFY SNAP GROUP ADDRESS 11
     4918   01 01EA3    047041C6 A   T0470    GEN,16,10,6    X'470',X'107',T0474-%
     4919   01 01EA4    2280460B A            LI,R8    X'460B'           OPEN WINDOW, RELEASE & SET SNAP
     4920   01 01EA5    22AFFFFF A            LI,R10   X'FFFFF'          MASK
     4921   01 01EA6    308012C8              AW,R8    CHBCTRL
     4922   01 01EA7    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4923   01 01EA8    EC80129B              RD,R8    *GP11
     4924                            *
     4925                            *                                  VERIFY SNAP GROUP ADDRESS 12
     4926   01 01EA9    047441C6 A   T0474    GEN,16,10,6    X'474',X'107',T0478-%
     4927   01 01EAA    2280460C A            LI,R8    X'460C'           OPEN WINDOW, RELEASE & SET SNAP
     4928   01 01EAB    22A0FFFF A            LI,R10   X'0FFFF'          MASK
     4929   01 01EAC    308012C8              AW,R8    CHBCTRL
     4930   01 01EAD    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4931   01 01EAE    EC80129C              RD,R8    *GP12
     4932                            *
     4933                            *                                  VERIFY SNAP GROUP ADDRESS 13
     4934   01 01EAF    047841C6 A   T0478    GEN,16,10,6    X'478',X'107',T0482-%
     4935   01 01EB0    2280460D A            LI,R8    X'460D'           OPEN WINDOW, RELEASE & SET SNAP
     4936   01 01EB1    22A0FFFF A            LI,R10   X'0FFFF'          MASK
     4937   01 01EB2    308012C8              AW,R8    CHBCTRL
     4938   01 01EB3    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4939   01 01EB4    EC80129D              RD,R8    *GP13
     4940                            *
     4941                            *                                  VERIFY SNAP GROUP ADDRESS 14
     4942   01 01EB5    048241C6 A   T0482    GEN,16,10,6    X'482',X'107',T0486-%
     4943   01 01EB6    2280460E A            LI,R8    X'460E'           OPEN WINDOW, RELEASE & SET SNAP
     4944   01 01EB7    22A0FFFF A            LI,R10   X'0FFFF'          MASK
     4945   01 01EB8    308012C8              AW,R8    CHBCTRL
     4946   01 01EB9    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4947   01 01EBA    EC80129E              RD,R8    *GP14
     4948                            *
     4949                            *                                  VERIFY SNAP GROUP ADDRESS 15
     4950   01 01EBB    048641C6 A   T0486    GEN,16,10,6    X'486',X'107',T0490-%
     4951   01 01EBC    2280460F A            LI,R8    X'460F'           OPEN WINDOW, RELEASE & SET SNAP
     4952   01 01EBD    22A0FFFF A            LI,R10   X'0FFFF'          MASK
     4953   01 01EBE    308012C8              AW,R8    CHBCTRL
     4954   01 01EBF    6AF01E85              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE
     4955   01 01EC0    EC80129F              RD,R8    *GP15
     4956                            *
     4957                            *                                  SNAP TYPE DECODE TEST
     4958   01 01EC1    0490410B A   T0490    GEN,16,10,6    X'490',X'104',T0500-%   DIO PRE-TEST & DATA PRNT
     4959   01 01EC2    2281C601 A            LI,R8    X'1C601'          SET SNAP MODE: CCU
     4960   01 01EC3    498012CC              OR,R8    CM
     4961   01 01EC4    ED801294              WD,R8    *GP00             OPEN  WINDOW
     4962   01 01EC5    22800400 A            LI,R8    X'400'            SET WRITE DIRECT DATA BIT 21
     4963   01 01EC6    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTER
     4964   01 01EC7    498012CC              OR,R8    CM
     4965   01 01EC8    ED801294              WD,R8    *GP00             RELEASE SNAPSHOT MODE
     4966   01 01EC9    2280E601 A            LI,R8    X'E601'           R8=DISPLAY EXPECTED
     4967   01 01ECA    4B903529              AND,R9   =X'E7FF'          MASK
     4968   01 01ECB    68001AC6              B        CREQUAL           COMPARE R8/R9
     4969                            *
     4970                            *                                  SNAP RELEASE TEST
     4971   01 01ECC    050041C8 A   T0500    GEN,16,10,6    X'500',X'107',T0510-%  PRE-TEST
     4972   01 01ECD    2281C601 A            LI,R8    X'1C601'          SET CCU SNAP MODE
     4973   01 01ECE    ED801298              WD,R8    *GP08             OPEN WINDOW
     4974   01 01ECF    22800400 A            LI,R8    X'400'
     4975   01 01ED0    ED801298              WD,R8    *GP08             RELAESE SNAP MODE
     4976   01 01ED1    EC901295              RD,R9    *GP01             READ DISPLAY GROUP 1
     4977   01 01ED2    4B903529              AND,R9   =X'E7FF'
     4978   01 01ED3    68001AC6              B        CREQUAL           COMPARE R8/R9
     4979                            *
     4980                            *                                  SNAP TYPE DECODE TEST
     4981   01 01ED4    0510410F A   T0510    GEN,16,10,6    X'510',X'104',T0520-%   DIO PRE-TEST & DATA PRNT
     4982   01 01ED5    6AF01ED8              BAL,R15  T0510B            GO TO SNAP ADDR CHK SUBROUTINE
     4983   01 01ED6    00010601 A            DATA     X'10601'          SNAPSHOT SETUP DATA
     4984   01 01ED7    00002601 A            DATA     X'2601'           DISPLAY EXPECTED
     4985                            *
     4986         01 01ED8           T0510B   EQU      %
     4987   01 01ED8    B280000F A            LW,R8    *15               FETCH SNAP DATA SET UP
     4988   01 01ED9    498012CC              OR,R8    CM                ADD CLOCK MARGIN SETTING
     4989   01 01EDA    ED801294              WD,R8    *GP00             SET SNAP MODE
     4990   01 01EDB    22800400 A            LI,R8    X'400'            SET WRITE DIRECT DATA BIT 21
     4991   01 01EDC    498012CC              OR,R8    CM                ADD CLOCK MARGIN SETTING
     4992   01 01EDD    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
     4993   01 01EDE    4B903529              AND,R9   =X'E7FF'          MASK
     4994   01 01EDF    ED801294              WD,R8    *GP00             RELEASE SNAP MODE
     4995   01 01EE0    3310000F A            MTW,1    15                BUMP POINTER
     4996   01 01EE1    B280000F A            LW,R8    *15               FETCH DISPLAY EXPECTED
     4997   01 01EE2    68001AC6              B        CREQUAL           COMPARE R8/R9
     4998                            *
     4999                            *                                   SNAP TYPE DECODE TEST
     5000   01 01EE3    05204104 A   T0520    GEN,16,10,6    X'520',X'104',T0530-%   DIO PRE-TEST & DATA PRNT
     5001   01 01EE4    6AF01ED8              BAL,R15  T0510B            GO TO SNAP ADDR CHK SUBROUTINE
     5002   01 01EE5    00008601 A            DATA     X'8601'           SNAPSHOT SETUP DATA
     5003   01 01EE6    00004601 A            DATA     X'4601'           DISPLAY EXPECTED
     5004                            *
     5005                            *                                  SNAP TYPE DECODE TEST
     5006   01 01EE7    05304104 A   T0530    GEN,16,10,6    X'530',X'104',T0540-%   DIO PRE-TEST & DATA PRNT
     5007   01 01EE8    6AF01ED8              BAL,R15  T0510B            GO TO SNAP ADDR CHK SUBROUTINE
     5008   01 01EE9    00004601 A            DATA     X'4601'           SNAPSHOT SETUP DATA
     5009   01 01EEA    00008601 A            DATA     X'8601'           DISPLAY EXPECTED
     5010                            *
     5011                            *                                  PROCESSOR BUS--VERIFY  SNAP GROUP 2
     5012   01 01EEB    0540410B A   T0540    GEN,16,10,6    X'540',X'104',T0550-%   DIO PRE-TEST & DATA PRNT
     5013   01 01EEC    22800602 A            LI,R8    X'602'            CONTROL--SNAP GROUP 2
     5014   01 01EED    498012CC              OR,R8    CM                OPTIONAL CLOCK MARGIN
     5015   01 01EEE    ED801294              WD,R8    *GP00             SET SNAP MODE
     5016   01 01EEF    22800400 A            LI,R8    X'400'            RELEASE SNAP BIT
     5017   01 01EF0    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
     5018   01 01EF1    498012CC              OR,R8    CM                OPTIONAL CLOCK MARGIN
     5019   01 01EF2    ED801294              WD,R8    *GP00             RELEASE SNAP MODE
     5020   01 01EF3    4B90352A              AND,R9   =X'3E7FFF'        MASK SNAPPED DATA
     5021   01 01EF4    22800000 A            LI,R8    0                 COMPARE IMAGE
     5022   01 01EF5    68001AC6              B        CREQUAL           COMPARE R8 & R9
     5023                            *
     5024                            *                                  PROCESSOR BUS--BASIC  TIO
     5025   01 01EF6    05504003 A   T0550    GEN,16,10,6    X'550',X'100',T0560-%   DIO PRE-TEST
     5026   01 01EF7    4D001F00 A            TIO,R0   X'1F00'           I/O-- SHOULD NOT TAKE WDT
     5027   01 01EF8    680014D4              B        GOOD              NORMAL RETURN
     5028                            *
     5029                            *                                  PROCESSOR BUS TEST -TIO FUNCTION IND.
     5030   01 01EF9    0560410B A   T0560    GEN,16,10,6    X'560',X'104',T0570-%   DIO PRE-TEST & DATA PRNT
     5031   01 01EFA    22800602 A            LI,R8    X'602'
     5032   01 01EFB    498012CC              OR,R8    CM
     5033   01 01EFC    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5034   01 01EFD    4D001F00 A            TIO,R0   X'1F00'
     5035   01 01EFE    6AF01AC9              BAL,R15  DLY10US           DELAY
     5036   01 01EFF    3280352B              LW,R8    =X'3E1010'
     5037   01 01F00    6AF0140D              BAL,R15  SIGBIT20          TEST FOR SIGMA 7                *G02
     5038   01 01F01    EC901294              RD,R9    *DISPLAY
     5039   01 01F02    4B90352A              AND,R9   =X'3E7FFF'        MASK
     5040   01 01F03    68001AC6              B        CREQUAL           COMPARE R8/R9
     5041                            *
     5042                            *                                  PROCESSOR BUS TEST-- TDV FUNCTION
     5043                            *                                    INDICATOR
     5044   01 01F04    0570410B A   T0570    GEN,16,10,6    X'570',X'104',T0580-%   DIO PRE-TEST & DATA PRNT
     5045   01 01F05    22800602 A            LI,R8    X'602'
     5046   01 01F06    498012CC              OR,R8    CM
     5047   01 01F07    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5048   01 01F08    4E001F00 A            TDV,R0   X'1F00'
     5049   01 01F09    6AF01AC9              BAL,R15  DLY10US           DELAY
     5050   01 01F0A    3280352C              LW,R8    =X'3E2010'
     5051   01 01F0B    6AF0140D              BAL,R15  SIGBIT20          TEST FOR SIGMA 7                *G02
     5052   01 01F0C    EC901294              RD,R9    *DISPLAY
     5053   01 01F0D    4B90352A              AND,R9   =X'3E7FFF'        MASK
     5054   01 01F0E    68001AC6              B        CREQUAL           COMPARE R8/R9
     5055                            *
     5056                            *                                  PROCESSOR BUS TEST-- SIO FUNCTION
     5057                            *                                   INDICATOR
     5058   01 01F0F    0580410B A   T0580    GEN,16,10,6    X'580',X'104',T0590-%   DIO PRE-TEST & DATA PRNT
     5059   01 01F10    22800602 A            LI,R8    X'602'
     5060   01 01F11    498012CC              OR,R8    CM
     5061   01 01F12    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5062   01 01F13    4C001F00 A            SIO,R0   X'1F00'
     5063   01 01F14    6AF01AC9              BAL,R15  DLY10US           DELAY
     5064   01 01F15    3280352D              LW,R8    =X'3E0010'
     5065   01 01F16    6AF0140D              BAL,R15  SIGBIT20          TEST FOR SIGMA 7                *G02
     5066   01 01F17    EC901294              RD,R9    *DISPLAY
     5067   01 01F18    4B90352A              AND,R9   =X'3E7FFF'        MASK
     5068   01 01F19    68001AC6              B        CREQUAL           COMPARE R8/R9
     5069                            *
     5070                            *                                  PROCESSOR BUS TEST-- HIO FUNCTION
     5071                            *                                   INDICATOR
     5072   01 01F1A    0590410B A   T0590    GEN,16,10,6    X'590',X'104',T0600-%   DIO PRE-TEST & DATA PRNT
     5073   01 01F1B    22800602 A            LI,R8    X'602'
     5074   01 01F1C    498012CC              OR,R8    CM
     5075   01 01F1D    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5076   01 01F1E    4F001F00 A            HIO,R0   X'1F00'
     5077   01 01F1F    6AF01AC9              BAL,R15  DLY10US           DELAY
     5078   01 01F20    3280352E              LW,R8    =X'3E3010'
     5079   01 01F21    6AF0140D              BAL,R15  SIGBIT20          TEST FOR SIGMA 7                *G02
     5080   01 01F22    EC901294              RD,R9    *DISPLAY
     5081   01 01F23    4B90352A              AND,R9   =X'3E7FFF'        MASK
     5082   01 01F24    68001AC6              B        CREQUAL           COMPARE R8/R9
     5083                            *
     5084                            *                                  PROCESSOR BUS TEST--POLP FUNCTION
     5085                            *                                   INDICATOR
     5086   01 01F25    0600410B A   T0600    GEN,16,10,6    X'600',X'104',T0610-%   DIO PRE-TEST & DATA PRNT
     5087   01 01F26    22800602 A            LI,R8    X'602'
     5088   01 01F27    498012CC              OR,R8    CM
     5089   01 01F28    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5090   01 01F29    22201F00 A            LI,R2    X'1F00'           BUS ADDRESS
     5091   01 01F2A    4F048000 A            POLP,R0  0,X2
     5092   01 01F2B    6AF01AC9              BAL,R15  DLY10US           DELAY
     5093   01 01F2C    3280352F              LW,R8    =X'3E5010'
     5094   01 01F2D    EC901294              RD,R9    *DISPLAY
     5095   01 01F2E    4B90352A              AND,R9   =X'3E7FFF'        MASK
     5096   01 01F2F    68001AC6              B        CREQUAL           COMPARE R8/R9
     5097                            *
     5098                            *                                  PROCESSOR BUS TEST-- POLR FUNCTION
     5099                            *                                   INDICATOR
     5100   01 01F30    0610410B A   T0610    GEN,16,10,6    X'610',X'104',T0620-%   DIO PRE-TEST & DATA PRNT
     5101   01 01F31    22800602 A            LI,R8    X'602'
     5102   01 01F32    498012CC              OR,R8    CM
     5103   01 01F33    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5104   01 01F34    22201F00 A            LI,R2    X'1F00'           BUS ADDRESS
     5105   01 01F35    4F04C000 A            POLR,R0  0,X2
     5106   01 01F36    6AF01AC9              BAL,R15  DLY10US           DELAY
     5107   01 01F37    32803530              LW,R8    =X'3E7010'
     5108   01 01F38    EC901294              RD,R9    *DISPLAY
     5109   01 01F39    4B90352A              AND,R9   =X'3E7FFF'        MASK
     5110   01 01F3A    68001AC6              B        CREQUAL           COMPARE R8/R9
     5111                            *
     5112                            *                                  PROCESSOR BUS TEST-- RIO FUNCTION
     5113                            *                                   INDICATOR
     5114   01 01F3B    0620410E A   T0620    GEN,16,10,6    X'620',X'104',T0630-%   DIO PRE-TEST & DATA PRNT
     5115   01 01F3C    22800602 A            LI,R8    X'602'
     5116   01 01F3D    498012CC              OR,R8    CM
     5117   01 01F3E    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5118   01 01F3F    22800000 A            LI,R8    0                 OFF LINE INDICATORS
     5119   01 01F40    358012E6              STW,R8   DCOFFA
     5120   01 01F41    35801332              STW,R8   NDCDLY             AND DELAY IND
     5121   01 01F42    22201F00 A            LI,R2    X'1F00'           BUS ADDRESS
     5122   01 01F43    4F044000 A            RIO,R0   0,X2
     5123   01 01F44    6AF01AC9              BAL,R15  DLY10US           DELAY
     5124   01 01F45    32803531              LW,R8    =X'3E4010'
     5125   01 01F46    EC901294              RD,R9    *DISPLAY
     5126   01 01F47    4B90352A              AND,R9   =X'3E7FFF'        MASK
     5127   01 01F48    68001AC6              B        CREQUAL           COMPARE R8/R9
     5128                            *
     5129                            *                                  PROCESSOR BUS TEST-- AIO FUNCTION
     5130                            *                                   INDICATOR
     5131   01 01F49    0630410A A   T0630    GEN,16,10,6    X'630',X'104',T0640-%   DIO PRE-TEST & DATA PRNT
     5132   01 01F4A    22800602 A            LI,R8    X'602'
     5133   01 01F4B    498012CC              OR,R8    CM
     5134   01 01F4C    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5135   01 01F4D    6E000000 A            AIO,R0   0
     5136   01 01F4E    6AF01AC9              BAL,R15  DLY10US           DELAY
     5137   01 01F4F    32803532              LW,R8    =X'006010'
     5138   01 01F50    EC901294              RD,R9    *DISPLAY
     5139   01 01F51    4B903533              AND,R9   =X'7FFF'          MASK
     5140   01 01F52    68001AC6              B        CREQUAL           COMPARE R8/R9
     5141                            *
     5142                            *                                  PROCESSOR BUS TEST--RIO ADDRESSING
     5143   01 01F53    06404114 A   T0640    GEN,16,10,6    X'640',X'104',T0645-%
     5144   01 01F54    22800602 A            LI,R8    X'602'            OPEN WINDOW SNAP CONTROL, GROUP 2
     5145   01 01F55    498012CC              OR,R8    CM                CLOCK MARGIN OPTION
     5146   01 01F56    ED801294              WD,R8    *GP00             SET OPEN WINDOW SNAP VIA CCU
     5147   01 01F57    22800000 A            LI,R8    0                 OFF LINE INDICATORS
     5148   01 01F58    358012E6              STW,R8   DCOFFA
     5149   01 01F59    35801332              STW,R8   NDCDLY             AND DELAY IND
     5150   01 01F5A    22301400 A            LI,R3    X'1400'
     5151   01 01F5B    32803534              LW,R8    =X'2A4010'        COMPARE IMAGE--PB:ADRS0-4 & OTHER
     5152   01 01F5C    31301312              CW,R3    IOPNO             IF IOP NO. MATCHES, COMPARE
     5153   01 01F5D    68301F61              BCR,3    T0640B             IMAGE WILL BE ZERO
     5154   01 01F5E    22301500 A            LI,R3    X'1500'
     5155   01 01F5F    31301312              CW,R3    IOPNO
     5156   01 01F60    69301F62              BCS,3    T0640B+1
     5157   01 01F61    22800000 A   T0640B   LI,R8    0
     5158   01 01F62    22301500 A            LI,R3    X'1500'           RESET I/O
     5159   01 01F63    4F064000 A            RIO,R0   0,X3              RESET I/O
     5160   01 01F64    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA
     5161   01 01F65    4B903530              AND,R9   =X'3E7010'        MASK GROUP 2 DISPLAY
     5162   01 01F66    68001AC6              B        CREQUAL           C(R8)=C(R9)=X'2A4010'
     5163                            *
     5164                            *                                  PROCESSOR BUS TEST--RIO ADDRESSING
     5165   01 01F67    06454114 A   T0645    GEN,16,10,6    X'645',X'104',T0650-%
     5166   01 01F68    22800602 A            LI,R8    X'602'            OPEN WINDOW SNAP CONTROL,GROUP 2
     5167   01 01F69    498012CC              OR,R8    CM                CLOCK MARGIN OPTION
     5168   01 01F6A    ED801294              WD,R8    *GP00             SET OPEN WINDOW SNAP VIA CCU
     5169   01 01F6B    22800000 A            LI,R8    0                 OFF LINE INDICATORS
     5170   01 01F6C    358012E6              STW,R8   DCOFFA
     5171   01 01F6D    35801332              STW,R8   NDCDLY
     5172   01 01F6E    22400A00 A            LI,R4    X'A00'
     5173   01 01F6F    32803535              LW,R8    =X'144010'        COMPARE IMAGE--PB:ADRS0-4 &OTHER
     5174   01 01F70    31401312              CW,R4    IOPNO             IF IOP NO. MATCHES, COMPARE
     5175   01 01F71    68301F75              BCR,3    T0645B             IMAGE WILL BE ZERO
     5176   01 01F72    22400B00 A            LI,R4    X'B00'
     5177   01 01F73    31401312              CW,R4    IOPNO
     5178   01 01F74    69301F76              BCS,3    %+2
     5179   01 01F75    22800000 A   T0645B   LI,R8    0
     5180   01 01F76    22400A00 A            LI,R4    X'A00'
     5181   01 01F77    4F084000 A            RIO,R0   0,X4              RESET I/O
     5182   01 01F78    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA
     5183   01 01F79    4B903530              AND,R9   =X'3E7010'        MASK GROUP 2 DISPLAY
     5184   01 01F7A    68001AC6              B        CREQUAL           C(R8)=C(R9)= X'154010'
     5185                            *
     5186                            *                                  PROCESSOR BUS--  VERIFY CPU NO.
     5187   01 01F7B    06504110 A   T0650    GEN,16,10,6    X'650',X'104',T0660-%   DIO PRE-TEST & DATA PRNT
     5188   01 01F7C    6C800045 A            RD,R8    X'45'             READ CPU STATUS
     5189   01 01F7D    4B803536              AND,R8   =X'3000000'       MASK ALL BUT CPU NO.
     5190   01 01F7E    22908602 A            LI,R9    X'8602'           CONTROL WORD
     5191   01 01F7F    499012CC              OR,R9    CM                OPTIONAL CLOCK MARGINS
     5192   01 01F80    ED901294              WD,R9    *GP00             OPEN WINDOW SNAP, GROUP 2
     5193   01 01F81    6E200000 A            AIO,R2                     I/O
     5194   01 01F82    6AF01AC9              BAL,R15  DLY10US           DELAY
     5195   01 01F83    22A00400 A            LI,R10   X'400'            CONTROL WORD
     5196   01 01F84    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA
     5197   01 01F85    49A012CC              OR,R10   CM                OPTIONAL CLOCK MARGINS
     5198   01 01F86    EDA01294              WD,R10   *GP00             RELEASE SNAP MODE
     5199   01 01F87    4B903520              AND,R9   =X'18000000'      MASK OFF ALL BUT NCPUN0
     5200   01 01F88    48903520              EOR,R9   =X'18000000'      COMPLEMENT BITS,NCPUN0-1
     5201   01 01F89    25800003 A            SLS,R8   3                 ALIGN C(R8) FOR COMPARISON
     5202   01 01F8A    68001AC6              B        CREQUAL           COMPARE R8 & R9-- CPU NUMBERS
     5203                            *
     5204                            *                                  BASIC CPU I/O TEST
     5205   01 01F8B    06604107 A   T0660    GEN,16,10,6    X'660',X'104',T0670-%   DIO PRE-TEST & DATA PRNT
     5206   01 01F8C    22000000 A            LI,R0    0                 DEDICATE R0 TO CMND. ADDR.
     5207   01 01F8D    35000020 A            STW,R0   X'20'             STUFF CELL 20
     5208   01 01F8E    4C001C00 A            SIO,R0   X'1C00'
     5209   01 01F8F    32900020 A            LW,R9    X'20'             TEST CELL 20
     5210   01 01F90    22800000 A            LI,R8    0
     5211   01 01F91    68001AC6              B        CREQUAL
     5212                            *
     5213                            *                                  BASIC CPU I/O TEST
     5214   01 01F92    06704108 A   T0670    GEN,16,10,6    X'670',X'104',T0680-%   DIO PRE-TEST & DATA PRNT
     5215   01 01F93    32003537              LW,R0    =X'1FFFFF'        DEDICATE R0
     5216   01 01F94    35000020 A            STW,R0   X'20'             STUFF CELL 20
     5217   01 01F95    4C201CFF A            SIO,R2   X'1CFF'
     5218   01 01F96    32803538              LW,R8    =X'FFDFFFFF'
     5219   01 01F97    6AF01409              BAL,R15  SIGC20            TEST FOR SIGMA 7                *G02
     5220   01 01F98    32900020 A            LW,R9    X'20'             TEST CELL 20
     5221   01 01F99    68001AC6              B        CREQUAL
     5222                            *
     5223                            *                                  BASIC CPU I/O TEST
     5224   01 01F9A    06804108 A   T0680    GEN,16,10,6    X'680',X'104',T0690-%   DIO PRE-TEST & DATA PRNT
     5225   01 01F9B    32003537              LW,R0    =X'1FFFFF'        DEDICATE R0
     5226   01 01F9C    35000020 A            STW,R0   X'20'             STUFF CELL 20
     5227   01 01F9D    4C101CFF A            SIO,R1   X'1CFF'
     5228   01 01F9E    32803539              LW,R8    =X'FF5FFFFF'
     5229   01 01F9F    6AF01409              BAL,R15  SIGC20            TEST FOR SIGMA 7                *G02
     5230   01 01FA0    32900020 A            LW,R9    X'20'             TEST CELL 20
     5231   01 01FA1    68001AC6              B        CREQUAL
     5232                            *
     5233                            *                                  CC CHECK FOR CPU I/O VIA TIO
     5234   01 01FA2    06904007 A   T0690    GEN,16,10,6    X'690',X'100',T0700-%  PRE-TEST
     5235   01 01FA3    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     5236   01 01FA4    02200030 A            LCI      3                 CC 3 & 4 SET
     5237   01 01FA5    4D001C00 A            TIO,0    X'1C00'           TIO TO PROCESSOR BUS
     5238   01 01FA6    68801411              BCR,8    BAD               CC 1 & 2 SHOULD BE SET
     5239   01 01FA7    68401411              BCR,4    BAD
     5240   01 01FA8    680014D4              B        GOOD
     5241                            *
     5242                            *                                  POLP TO CPU
     5243   01 01FA9    0700410D A   T0700    GEN,16,10,6    X'700',X'104',T0710-%  PRE-TEST, DATA
     5244   01 01FAA    6AF01FAC              BAL,R15  T0700B            SUBROUTINE
     5245   01 01FAB    4F448000 A            POLP,R4  0,X2              EXECUTIBLE INSTRUCTION
     5246         01 01FAC           T0700B   EQU      %                 SUBROUTINE FOR POLP, POLR, & RIO
     5247   01 01FAC    35F0000A A            STW,R15  R10
     5248   01 01FAD    6AF01C34              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET
     5249   01 01FAE    6C200045 A            RD,R2    X'45'             READ CPU NUMBER
     5250   01 01FAF    25200270 A            SCS,R2   -16               ALIGN CPU NUMBER
     5251   01 01FB0    4920353A              OR,R2    =X'1C00'          CPU ADDRESS
     5252   01 01FB1    228FFFFF A            LI,R8    -1                ALL ONES TO COMMUNICATION CELLS
     5253   01 01FB2    35800020 A            STW,R8   X'20'
     5254   01 01FB3    E700000A A            EXU      *R10              EXECUTE
     5255   01 01FB4    32900020 A            LW,R9    X'20'             CELL 20 HEX SHOULD BE THE SAME
     5256   01 01FB5    68001AC6              B        CREQUAL           VERIFY R8 = R9
     5257                            *
     5258                            *                                  POLR TO CPU
     5259   01 01FB6    07104103 A   T0710    GEN,16,10,6    X'710',X'104',T0720-%  PRE-TEST,DATA
     5260   01 01FB7    6AF01FAC              BAL,R15  T0700B            SUBROUTINE
     5261   01 01FB8    4F44C000 A            POLR,R4  0,X2              EXECUTIBLE INSTRUCTION
     5262                            *
     5263                            *                                  RIO TO CPU
     5264   01 01FB9    07204106 A   T0720    GEN,16,10,6    X'720',X'104',T0730-%  PRE-TEST, DATA
     5265   01 01FBA    22800000 A            LI,R8    0                 RESET DC OFF-LINE INDICATORS
     5266   01 01FBB    358012E6              STW,R8   DCOFFA
     5267   01 01FBC    35801332              STW,R8   NDCDLY
     5268   01 01FBD    6AF01FAC              BAL,R15  T0700B            TO SUBROUTINE
     5269   01 01FBE    4F444000 A            RIO,R4   0,X2              EXECUTIBLE INSTRUCTION
     5270                            *
     5271                            *                                  MS SELF TEST-- BASIC HIO
     5272   01 01FBF    073041D4 A   T0730    GEN,16,10,6    X'730',X'107',T0740-%  PRE-TEST, DATA
     5273   01 01FC0    3280350B              LW,R8    =X'C0000000'
     5274   01 01FC1    ED80129F              WD,R8    *GP15             MS ON-LINE, DC OFF-LINE
     5275   01 01FC2    6AF01ACC              BAL,R15  DLY10MS           DELAY FOR DC OFF-LINE RELAY
     5276   01 01FC3    22800001 A            LI,R8    1                 SET DC OFF INDICATOR
     5277   01 01FC4    358012E6              STW,R8   DCOFFA
     5278   01 01FC5    EDD01298              WD,R13   *GP08              TIME-- AT83.  CHANNEL RESET
     5279   01 01FC6    2280460F A            LI,R8    X'460F'           SET OPEN WINDOW SNAP FOR GROUP 15
     5280   01 01FC7    22F01FD0              LI,R15   T0730D            LINKAGE
     5281   01 01FC8    35F01371     T0730B   STW,R15  SAVER15S          SAVE BETURN LINE
     5282   01 01FC9    308012C8              AW,R8    CHBCTRL           GROUP BIAS FOR CHANNEL B OPTION
     5283   01 01FCA    ED80129C              WD,R8    *GP12             MS CONTROL GROUP 12 OR 20 (DEC)
     5284   01 01FCB    3280353B              LW,R8    =X'60000000'      ISSUE BASIC HIOU & FS MS SELF
     5285   01 01FCC    ED80129E              WD,R8    *GP14              TEST.  GROUP 14 OR 22 (DEC)
     5286   01 01FCD    6AF01AC9              BAL,R15  DLY10US           DELAY 10 USEC
     5287   01 01FCE    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA
     5288   01 01FCF    E8001371              B        *SAVER15S         RETURN
     5289   01 01FD0    4B90353C     T0730D   AND,R9   =X'490'           MASK
     5290   01 01FD1    22800410 A            LI,R8    X'410'            COMPARE DATA-- MS/HIOU (BIT 27)
     5291   01 01FD2    68001AC6              B        CREQUAL           COMPARE
     5292                            *
     5293                            *                                  MS SELF TEST-- BASCI HIO
     5294   01 01FD3    074041C8 A   T0740    GEN,16,10,6    X'740',X'107',T0750-%  PRE-TEST, DATA
     5295   01 01FD4    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE
     5296   01 01FD5    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B
     5297   01 01FD6    2280460E A            LI,R8    X'460E'           SET OPEN WINDOW SNAP FOR GP 15/23
     5298   01 01FD7    6AF01FC8              BAL,R15  T0730B            TO SUBROUTINE
     5299   01 01FD8    2280A000 A            LI,R8    X'A000'           C(R9) = COMPARE IMAGE-- BITS 17 & 19
     5300   01 01FD9    4B90353D              AND,R9   =X'F800'          MASK OFF 22 THRU 31
     5301   01 01FDA    68001AC6              B        CREQUAL           SHOULD SE MS/PHRS & MS/PHSRV
     5302                            *
     5303                            *                                  MS SELF TEST-- HIOU & FSL
     5304   01 01FDB    075041C8 A   T0750    GEN,16,10,6    X'750',X'107',T0760-%  PRE-TEST,DATA,CHA/B
     5305   01 01FDC    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE
     5306   01 01FDD    EDD01298              WD,R13   *GP08             RESET CHANNEL
     5307   01 01FDE    22804609 A            LI,R8    X'4609'           SET OPEN WINDOW SNAP FOR GP 9/17
     5308   01 01FDF    6AF01FC8              BAL,R15  T0730B            TO SUBROUTINE
     5309   01 01FE0    4B90353E              AND,R9   =X'FFC00200'      MASK R9
     5310   01 01FE1    3280353F              LW,R8    =X'20000200'      COMPARE WORD, BIT 2-- FSL:R
     5311   01 01FE2    68001AC6              B        CREQUAL           COMPARE R8 & R9
     5312                            *
     5313                            *                                  MS SELF TEST-- HIOU RESET
     5314   01 01FE3    076041CD A   T0760    GEN,16,10,6    X'760',X'107',T0770-%  PRE-TEST,DATA,CHA/B
     5315   01 01FE4    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE
     5316   01 01FE5    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B
     5317   01 01FE6    22800400 A            LI,R8    X'400'            RELEASE SNAP SHOT
     5318   01 01FE7    22F01FED              LI,R15   T0760D
     5319   01 01FE8    ED80129C     T0760B   WD,R8    *GP12
     5320   01 01FE9    3280353B              LW,R8    =X'60000000'
     5321   01 01FEA    ED80129E              WD,R8    *GP14
     5322   01 01FEB    25900240 A            SCS,R9   -64
     5323   01 01FEC    E800000F A            B        *R15
     5324   01 01FED    EC90129F     T0760D   RD,R9    *GP15             READ MS DISPLAY, GROUP 15 OR 23
     5325   01 01FEE    22800400 A            LI,R8    X'400'            COMPARE IMAGE, BIT 27 = 0, MS/ONLINE
     5326   01 01FEF    68001AC6              B        CREQUAL            (DEC). R8 & R9,BIT 27=0,MS/HIOU
     5327                            *
     5328                            *                                  MS SELF TEST-- HIOU RESET
     5329   01 01FF0    077041C9 A   T0770    GEN,16,10,6    X'770',X'107',T0780-%  PRE-TEST,DATA,CHA/B
     5330   01 01FF1    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE
     5331   01 01FF2    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B
     5332   01 01FF3    22800400 A            LI,R8    X'400'            RELEASE SNAP SHOT
     5333   01 01FF4    6AF01FE8              BAL,R15  T0760B            TO SUBROUTINE
     5334   01 01FF5    EC90129E              RD,R9    *GP14             READ DISPLAY
     5335   01 01FF6    4B903540              AND,R9   =X'FD7F'          MASK OFF AVO:R & MS/CDN
     5336   01 01FF7    22808400 A            LI,R8    X'8400'           COMPARE IMAGE
     5337   01 01FF8    68001AC6              B        CREQUAL
     5338                            *
     5339                            *                                  MS SELF TEST-- HIOU RESET
     5340   01 01FF9    078041C9 A   T0780    GEN,16,10,6    X'780',X'107',T0790-%  PRE-TEST,DATA,CHA/B
     5341   01 01FFA    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE
     5342   01 01FFB    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B
     5343   01 01FFC    22800400 A            LI,R8    X'400'            RELEASE SNAP SHOT
     5344   01 01FFD    6AF01FE8              BAL,R15  T0760B            TO SUBROUTINE
     5345   01 01FFE    EC901299              RD,R9    *GP09             READ DISPLAY
     5346   01 01FFF    4B90353E              AND,R9   =X'FFC00200'      MASK
     5347   01 02000    22800000 A            LI,R8    0                 COMPARE IMAGE
     5348   01 02001    68001AC6              B        CREQUAL
     5349                            *
     5350                            *                                  HIOU SINGLE PHASE
     5351   01 02002    079041CC A   T0790    GEN,16,10,6    X'790',X'107',T0800-%  A/B DIO PRETST; DATA PRNT
     5352   01 02003    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5353   01 02004    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE
     5354   01 02005    22801400 A            LI,R8    X'1400'           MS SINGLE PHASE CONTROL BITS
     5355   01 02006    ED80129C              WD,R8    *GP12             SET SINGLE PHASE MODE
     5356   01 02007    3280353B              LW,R8    =X'60000000'      MS SELF TEST
     5357   01 02008    ED80129E              WD,R8    *GP14             THIO & TFS
     5358   01 02009    6AF01AC9              BAL,R15  DLY10US           DELAY 10 MICROSECONDS
     5359   01 0200A    EC90129E              RD,R9    *GP14             READ MS CONTROL PHASES
     5360   01 0200B    4B903541              AND,R9   =X'FF7F'          MASK OFF MS/CDN
     5361   01 0200C    22800400 A            LI,R8    X'400'            DISPLAY EXPECTED: AVO:R
     5362   01 0200D    68001AC6              B        CREQUAL           COMPARE R8:R9
     5363                            *
     5364                            *                                  MS SELF TEST--SINGLE PHASING
     5365   01 0200E    080041CE A   T0800    GEN,16,10,6    X'800',X'107',T0810-%  A/B DIO PRETST; DATA PRNT
     5366   01 0200F    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE
     5367   01 02010    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5368   01 02011    22801400 A            LI,R8    X'1400'           MS SINGLE PHASE CONTROL BITS
     5369   01 02012    ED80129C              WD,R8    *GP12             SET SINGLE PHASE MODE
     5370   01 02013    3280353B              LW,R8    =X'60000000'
     5371   01 02014    ED80129E              WD,R8    *GP14             THIO & TFS
     5372   01 02015    6AF01AC9              BAL,R15  DLY10US           DELAY 10 MICROSECONDS
     5373   01 02016    22801800 A            LI,R8    X'1800'            & FS
     5374   01 02017    ED80129C              WD,R8    *GP12             ADVANCE ONE HIO PHASE
     5375   01 02018    22802000 A            LI,R8    X'2000'           COMPARE IMAGE-- MS/PHFSL
     5376   01 02019    EC90129E              RD,R9    *GP14             READ GROUP 14 OR 22 FOR MS PHASES
     5377   01 0201A    4B90353D              AND,R9   =X'F800'          MASK
     5378   01 0201B    68001AC6              B        CREQUAL           COMPARE R8 & R9. BIT 16=0 & 18=1
     5379                            *
     5380                            *                                  MS SELF TEST-- RESET SINGLE
     5381                            *                                  PHASE MODE
     5382   01 0201C    081041CC A   T0810    GEN,16,10,6    X'810',X'107',T0820-%  A/B DIO PRETST; DATA PRNT
     5383   01 0201D    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE
     5384   01 0201E    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5385   01 0201F    22801000 A            LI,R8    X'1000'           SINGLE STEP MODE
     5386   01 02020    ED80129C              WD,R8    *GP12
     5387   01 02021    22800000 A            LI,R8    0                 ZERO TO HOPEFULLY CLEAR SINGLE
     5388   01 02022    ED80129C              WD,R8    *GP12             CLEAR SINGLE PHASE MODE
     5389   01 02023    3280353B              LW,R8    =X'60000000'
     5390   01 02024    ED80129E              WD,R8    *GP14             THIO & TFS
     5391   01 02025    22800400 A            LI,R8    X'400'             IALIZE HIOU & FS
     5392   01 02026    EC90129F              RD,R9    *GP15             READ GROUP 15 OR 23
     5393   01 02027    68001AC6              B        CREQUAL           COMPARE R8:R9
     5394                            *
     5395                            *                                  MS SELF TEST--RESET UNE VIA MS/HIO
     5396   01 02028    082041C9 A   T0820    GEN,16,10,6    X'820',X'107',T0830-%  PRE-TEST,DATA,CH A/B
     5397   01 02029    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE
     5398   01 0202A    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B
     5399   01 0202B    32803542              LW,R8    =X'64000000'      MS HIO, FS, & MS/UNE
     5400   01 0202C    ED80129E              WD,R8    *GP14             GROUP 14 OR 22 (DEC)
     5401   01 0202D    22808400 A            LI,R8    X'8400'           COMPARE IMAGE -- MS/UNE = 0
     5402   01 0202E    EC90129E              RD,R9    *GP14             READ GROUP 14 OR 22 (DEC)
     5403   01 0202F    4B903541              AND,R9   =X'FF7F'          MASK OFF MS/CDN
     5404   01 02030    68001AC6              B        CREQUAL           C(R8) = C(R9)
     5405                            *
     5406                            *                                  MS SELF TEST-- SET MS UNE
     5407   01 02031    083041C9 A   T0830    GEN,16,10,6    X'830',X'107',T0840-%  PRE-TEST,DATA,CH A/B
     5408   01 02032    EDD01298              WD,R13   *GP08             CHANNEL A OR B RESET
     5409   01 02033    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE
     5410   01 02034    328034F8              LW,R8    =X'4000000'       MS UNE
     5411   01 02035    ED80129E              WD,R8    *GP14             SET MS/UNE VIA GROUP 14 OR 22
     5412   01 02036    22808440 A            LI,R8    X'8440'           COMPARE IMAGE-- MS/UNE SET
     5413   01 02037    EC90129E              RD,R9    *GP14             READ DISPLAY GROUP 14 OR 22 (DEC)
     5414   01 02038    4B903541              AND,R9   =X'FF7F'          MASK OFF MS/CDN
     5415   01 02039    68001AC6              B        CREQUAL           COMPARE R8 AND R9
     5416                            *
     5417                            *                                  MS SELF TEST-- VERIFY SIOU
     5418   01 0203A    084041CE A   T0840    GEN,16,10,6    X'840',X'107',T0850-%  PRE-TEST,DATA,CH A/B
     5419   01 0203B    EDD01298              WD,R13   *GP08             CHANNEL A OR B RESET
     5420   01 0203C    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE
     5421   01 0203D    22801000 A            LI,R8    X'1000'           CONTROL BIT
     5422   01 0203E    ED801298              WD,R8    *GP08             STOP DELAY LINE VIA GROUP 8 OR 16
     5423   01 0203F    ED80129D              WD,R8    *GP13             INHIBIT SC
     5424   01 02040    2280460F A            LI,R8    X'460F'           SNAP CONTROL GROUP 15 OR 23
     5425   01 02041    308012C8              AW,R8    CHBCTRL           CHAN B OPTION GROUP BIAS
     5426   01 02042    ED80129C              WD,R8    *GP12             OPEN WINDOW, RELEASE & SET SNAP
     5427   01 02043    32803543              LW,R8    =X'A0000000'      MS SIO & MS FS CONTROL BITS
     5428   01 02044    ED80129E              WD,R8    *GP14             MS SELF TEST VIA GROUP 15 OR 23
     5429   01 02045    22802480 A            LI,R8    X'2480'           COMPARE IMAGE
     5430   01 02046    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA-- MS/SIOU
     5431   01 02047    68001AC6              B        CREQUAL           COMPARE R8 & R9, BIT 24 = 1
     5432                            *
     5433                            *                                  MS SELF TEST-- STEP MS/SIO PHASES
     5434   01 02048    085041D8 A   T0850    GEN,16,10,6    X'850',X'107',T0860-%  A/B DIO PRETST; DATA PRNT
     5435   01 02049    6AF0204D              BAL,R15  T0850B            GO TO PHASE CHK. SUBROUTINE
     5436   01 0204A    0000460E A            DATA     X'460E'           MS SET UP DATA
     5437   01 0204B    0000A000 A            DATA     X'A000'           DATA EXPECTED
     5438   01 0204C    0000F800 A            DATA     X'F800'           MASK
     5439                            *
     5440   01 0204D    35F0205F     T0850B   STW,R15  T0850R            SAVE R15 FOR POINTING
     5441   01 0204E    EDD01298              WD,R13   *GP08             CHANNEL A OR B RESET
     5442   01 0204F    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE
     5443   01 02050    22801000 A            LI,R8    X'1000'           SINGLE STEP MODE
     5444   01 02051    ED80129C              WD,R8    *GP12
     5445   01 02052    B280205F              LW,R8    *T0850R           FETCH MS SET UP DATA
     5446   01 02053    308012C8              AW,R8    CHBCTRL           CHAN B OPTION GROUP BIAS
     5447   01 02054    ED80129C              WD,R8    *GP12             OPEN WINDOW, RELEASE & SET SNAP
     5448   01 02055    22801000 A            LI,R8    X'1000'           INHIBIT SERVICE CALL VIA GROUP 13
     5449   01 02056    ED80129D              WD,R8    *GP13              OR 21
     5450   01 02057    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5451   01 02058    ED80129E              WD,R8    *GP14              22 (DEC)
     5452   01 02059    3310205F              MTW,1    T0850R            BUMP POINTER
     5453   01 0205A    B280205F              LW,R8    *T0850R           FETCH DATA EXPECTED
     5454   01 0205B    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA
     5455   01 0205C    3310205F              MTW,1    T0850R            BUMP POINTER
     5456   01 0205D    CB90205F              AND,R9   *T0850R           MASK
     5457   01 0205E    68001AC6              B        CREQUAL           COMPARE R8:R9
     5458   01 0205F    00000000 A   T0850R   DATA     0                 DATA POINTER
     5459                            *
     5460                            *                                  MS SELF TEST-- STEP MS/SIO PHASES
     5461   01 02060    086041C5 A   T0860    GEN,16,10,6    X'860',X'107',T0870-%  A/B DIO PRETST; DATA PRNT
     5462   01 02061    6AF0204D              BAL,R15  T0850B            GO TO PHASE CHK. SUBROUTINE
     5463   01 02062    0000460E A            DATA     X'460E'           MS SET UP DATA
     5464   01 02063    0000A008 A            DATA     X'A008'           DATA EXPECTED
     5465   01 02064    0000F808 A            DATA     X'F808'           MASK
     5466                            *
     5467                            *                                  MS SELF TEST-- STEP MS/SIO PHASES
     5468   01 02065    087041C5 A   T0870    GEN,16,10,6    X'870',X'107',T0880-%  A/B DIO PRETST; DATA PRNT
     5469   01 02066    6AF0204D              BAL,R15  T0850B            GO TO PHASE CHK. SUBROUTINE
     5470   01 02067    00004609 A            DATA     X'4609'           MS SET UP DATA
     5471   01 02068    20000200 A            DATA     X'20000200'       DATA EXPECTED
     5472   01 02069    24000200 A            DATA     X'24000200'       MASK
     5473                            *
     5474                            *                                  CHECK MS CALL FOR SERVICE
     5475   01 0206A    088040CC A   T0880    GEN,16,10,6    X'880',X'103',T0890-%  A/B DIO PRE-TEST
     5476   01 0206B    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5477   01 0206C    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE
     5478   01 0206D    22801000 A            LI,R8    X'1000'           CONTROL BIT
     5479   01 0206E    ED801298              WD,R8    *GP08             STOP DELAY LINE VIA GROUP 8 OR 16
     5480   01 0206F    ED80129D              WD,R8    *GP13             INHIBIT SC
     5481   01 02070    32803543              LW,R8    =X'A0000000'      MS SIO & MS FS CONTROL BITS
     5482   01 02071    ED80129F              WD,R8    *GP15             MS SELF TEST VIA GROUP 15 OR 23
     5483   01 02072    EC90129E              RD,R9    *GP14             READ UNE RE
     5484   01 02073    4B903544              AND,R9   =X'2000'          IS UNE RESET?
     5485   01 02074    682014D4              BCR,2    GOOD              YES
     5486   01 02075    68001411              B        BAD               NO
     5487                            *
     5488                            *                                  SIO RESET UNE
     5489   01 02076    089040CC A   T0890    GEN,16,10,6    X'890',X'103',T0900-%  A/B DIO PRE-TEST
     5490   01 02077    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5491   01 02078    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE
     5492   01 02079    22801000 A            LI,R8    X'1000'           CONTROL BIT
     5493   01 0207A    ED801298              WD,R8    *GP08             STOP DELAY LINE VIA GROUP 8 OR 16
     5494   01 0207B    ED80129D              WD,R8    *GP13             INHIBIT SC
     5495   01 0207C    32803545              LW,R8    =X'A4000000'      MS SIO & MS FS CONTROL BITS
     5496   01 0207D    ED80129F              WD,R8    *GP15             MS SELF TEST VIA GROUP 15 OR 23
     5497   01 0207E    EC90129E              RD,R9    *GP14             READ CSL
     5498   01 0207F    4B903521              AND,R9   =X'0040'          IS CSL SET?
     5499   01 02080    683014D4              BCR,3    GOOD              YES
     5500   01 02081    68001411              B        BAD               NO
     5501                            *
     5502                            *                                  CHECK SC:R IN IOP
     5503   01 02082    090040CC A   T0900    GEN,16,10,6    X'900',X'103',T0910-%  A/B DIO PRETST
     5504   01 02083    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5505   01 02084    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE
     5506   01 02085    ED00129D              WD,R0    *GP13             RESET SC INHIBIT
     5507   01 02086    22801000 A            LI,R8    X'1000'           CONTROL BIT
     5508   01 02087    ED801298              WD,R8    *GP08             STOP DELAY LINE VIA GROUP 8 OR 16
     5509   01 02088    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5510   01 02089    ED80129E              WD,R8    *GP14              22 (DEC)
     5511   01 0208A    EC901299              RD,R9    *GP09             READ FOR SC:R
     5512   01 0208B    4B9034F8              AND,R9   =X'4000000'       WAS SC SET?
     5513   01 0208C    692014D4              BCS,2    GOOD              YES
     5514   01 0208D    68001411              B        BAD               NO
     5515                            *
     5516                            *                                  TEST HIO RESETTING DC BUSY
     5517   01 0208E    091040CA A   T0910    GEN,16,10,6    X'910',X'103',T0920-%  A/B DIO PRETST
     5518   01 0208F    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5519   01 02090    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5520   01 02091    ED80129E              WD,R8    *GP14              22 (DEC), SIO & FS
     5521   01 02092    3280353B              LW,R8    =X'60000000'      THIO & TFS
     5522   01 02093    ED80129E              WD,R8    *GP14
     5523   01 02094    EC90129E              RD,R9    *GP14             READ FOR DC BUSY
     5524   01 02095    4B9034F6              AND,R9   =X'8'             IS DC BUSY SET?
     5525   01 02096    683014D4              BCR,3    GOOD              YES
     5526   01 02097    68001411              B        BAD               NO
     5527                            *
     5528                            *                                  TEST SETTING MS/CIL
     5529   01 02098    092040CD A   T0920    GEN,16,10,6    X'920',X'103',T0930-%  A/B DIO PRE-TEST
     5530   01 02099    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5531   01 0209A    6AF01B3B              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE
     5532   01 0209B    22800020 A            LI,R8    X'20'
     5533   01 0209C    6D801100 A            WD,R8    X'1100'           DISARM I/O GROUP INTRPTS
     5534   01 0209D    22803000 A            LI,R8    X'3000'
     5535   01 0209E    ED80129D              WD,R8    *GP13             SET I/C & INH SC IN MS
     5536   01 0209F    EC90129F              RD,R9    *GP15             READ FOR MS/CIL
     5537   01 020A0    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5538   01 020A1    ED001298              WD,R0    *GP08             RESET IC & INHIBIT SC
     5539   01 020A2    4B903504              AND,R9   =X'100'           WAS MS/CIL SET?
     5540   01 020A3    692014D4              BCS,2    GOOD              YES
     5541   01 020A4    68001411              B        BAD               NO
     5542                            *
     5543                            *                                  TEST SIO WITH IC SET
     5544   01 020A5    093040CF A   T0930    GEN,16,10,6    X'930',X'103',T0940-%  A/B DIO PRE-TEST
     5545   01 020A6    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5546   01 020A7    22800020 A            LI,R8    X'20'
     5547   01 020A8    6D801100 A            WD,R8    X'1100'           DISARM I/O GROUP INTRPTS
     5548   01 020A9    22803000 A            LI,R8    X'3000'
     5549   01 020AA    ED80129D              WD,R8    *GP13             SET MS IC & INHIBIT SC
     5550   01 020AB    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5551   01 020AC    ED80129E              WD,R8    *GP14              22 (DEC)
     5552   01 020AD    EC90129E              RD,R9    *GP14             READ FOR SIOU
     5553   01 020AE    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET
     5554   01 020AF    22801000 A            LI,R8    X'1000'
     5555   01 020B0    ED80129D              WD,R8    *GP13             RESET CI (CALL INT. LATCH)
     5556   01 020B1    4B9034F6              AND,R9   =8                WAS SIOU SET
     5557   01 020B2    69201411              BCS,2    BAD               YES
     5558   01 020B3    680014D4              B        GOOD              NO
     5559                            *
     5560                            *                                  TEST HIO RESETTING MS/UNE
     5561                            *                                  AND M/S DC BUSY
     5562   01 020B4    094041CC A   T0940    GEN,16,10,6    X'940',X'107',T0950-%  A/B DIO PRE-TEST
     5563   01 020B5    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5564   01 020B6    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5565   01 020B7    ED80129E              WD,R8    *GP14              22 (DEC)
     5566   01 020B8    328034F8              LW,R8    =X'4000000'
     5567   01 020B9    ED80129E              WD,R8    *GP14             SET MS/UNE
     5568   01 020BA    3280353B              LW,R8    =X'60000000'
     5569   01 020BB    ED80129E              WD,R8    *GP14             THIO & TFS
     5570   01 020BC    22808000 A            LI,R8    X'8000'           EXPECTED DISPLAY
     5571   01 020BD    EC90129E              RD,R9    *GP14             READ GROUP 14 OR 22 (DEC)
     5572   01 020BE    4B903546              AND,R9   =X'F978'          MASK
     5573   01 020BF    68001AC6              B        CREQUAL           COMPARE R8 AND R9
     5574                            *
     5575                            *                                  TEST HIO RESETTING MS/CSL
     5576                            *                                  AND MS/CIL
     5577   01 020C0    095040CC A   T0950    GEN,16,10,6    X'950',X'103',T0960-%  DIO PRE-TEST A OR B
     5578   01 020C1    6AF01C3E              BAL,R15  SIMA              SET MS ON-LIN & SET MS CONTROLS
     5579   01 020C2    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5580   01 020C3    ED80129E              WD,R8    *GP14              22 (DEC)
     5581   01 020C4    22803000 A            LI,R8    X'3000'
     5582   01 020C5    ED80129D              WD,R8    *GP13             SET MS/CIL
     5583   01 020C6    3280353B              LW,R8    =X'60000000'
     5584   01 020C7    ED80129E              WD,R8    *GP14             THIO & TFS
     5585   01 020C8    EC90129F              RD,R9    *GP15             READ GROUP 15 OR 23
     5586   01 020C9    4B903547              AND,R9   =X'2100'          MASK
     5587   01 020CA    22800000 A            LI,R8    0                 COMPARE IMAGE
     5588   01 020CB    68001AC6              B        CREQUAL           COMPARE R8 AND R9
     5589                            *
     5590                            *                                  TEST ORDER OUT PHASES
     5591   01 020CC    096041D1 A   T0960    GEN,16,10,6    X'960',X'107',T0970-%  A/B DIO PRETST; DATA PRNT
     5592   01 020CD    3280351B              LW,R8    =X'40000000'
     5593   01 020CE    ED80129F              WD,R8    *GP15             SET MS OFF LINE
     5594   01 020CF    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5595   01 020D0    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5596   01 020D1    ED80129E              WD,R8    *GP14              22 (DEC)
     5597   01 020D2    2280460E A            LI,R8    X'460E'
     5598   01 020D3    308012C8              AW,R8    CHBCTRL           CHANNEL B BIAS
     5599   01 020D4    ED80129C              WD,R8    *GP12             SET SNAP SHOT MODE; OPEN WINDOW
     5600   01 020D5    32803548              LW,R8    =X'28000000'
     5601   01 020D6    ED80129E              WD,R8    *GP14             SET TASC & TFS
     5602   01 020D7    ED00129E              WD,R0    *GP14             SIMULATE RSA
     5603   01 020D8    ED00129E              WD,R0    *GP14                " AGAIN
     5604   01 020D9    2280D900 A            LI,R8    X'D900'           EXPECTED DISPLAY
     5605   01 020DA    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA
     5606   01 020DB    4B903549              AND,R9   =X'F900'          MASK
     5607   01 020DC    68001AC6              B        CREQUAL           COMPARE R8 AND R9
     5608                            *
     5609                            *                                  TEST ORDER OUT PHASES
     5610   01 020DD    097041CE A   T0970    GEN,16,10,6    X'970',X'107',T0990-%  A/B DIO PRETST; DATA PRNT
     5611   01 020DE    3280351B              LW,R8    =X'40000000'
     5612   01 020DF    ED80129F              WD,R8    *GP15             SET MS OFF LINE
     5613   01 020E0    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5614   01 020E1    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5615   01 020E2    ED80129E              WD,R8    *GP14              22 (DEC)
     5616   01 020E3    32803548              LW,R8    =X'28000000'
     5617   01 020E4    ED80129E              WD,R8    *GP14             SET TASC & TFS
     5618   01 020E5    ED00129E              WD,R0    *GP14             SIMULATE RSA
     5619   01 020E6    ED00129E              WD,R0    *GP14                " AGAIN
     5620   01 020E7    22808000 A            LI,R8    X'8000'           EXPECTED DISPLAY
     5621   01 020E8    EC90129E              RD,R9    *GP14             READ SNAPPED DATA
     5622   01 020E9    4B90353D              AND,R9   =X'F800'          MASK
     5623   01 020EA    68001AC6              B        CREQUAL           COMPARE R8 AND R9
     5624                            *
     5625                            *                                  TEST ORDER IN PHASES
     5626   01 020EB    099041D8 A   T0990    GEN,16,10,6    X'990',X'107',T1000-%  A/B DIO PRETST; DATA PRNT
     5627   01 020EC    3280351B              LW,R8    =X'40000000'
     5628   01 020ED    ED80129F              WD,R8    *GP15             SET MS OFF-LINE, DC'S OFF-LINE
     5629   01 020EE    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5630   01 020EF    32803543              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5631   01 020F0    ED80129E              WD,R8    *GP14              22 (DEC)
     5632   01 020F1    32803548              LW,R8    =X'28000000'
     5633   01 020F2    ED80129E              WD,R8    *GP14             SET TASC & TFS
     5634   01 020F3    25800020 A            SLS,R8   32
     5635   01 020F4    ED00129E              WD,R0    *GP14             SIMULATE RSA
     5636   01 020F5    328034F8              LW,R8    =X'4000000'
     5637   01 020F6    ED80129E              WD,R8    *GP14             SET TORD WITH MS/UNE
     5638   01 020F7    2280460E A            LI,R8    X'460E'
     5639   01 020F8    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION
     5640   01 020F9    ED80129C              WD,R8    *GP12             SET SNAP MODE & SIMULATE RSA
     5641   01 020FA    32803548              LW,R8    =X'28000000'
     5642   01 020FB    ED80129E              WD,R8    *GP14             ORDER IN TASC & TFS
     5643   01 020FC    25800220 A            SCS,R8   32                DELAY
     5644   01 020FD    ED00129E              WD,R0    *GP14             RSA FOR ORDER IN
     5645   01 020FE    25800220 A            SCS,R8   32                DELAY
     5646   01 020FF    EC901294              RD,R9    *DISPLAY          READ SNAP GROUP
     5647   01 02100    4B90354A              AND,R9   =X'F9FF'          MASK
     5648   01 02101    2280D958 A            LI,R8    X'D958'           EXPECTED DISPLAY
     5649   01 02102    68001AC6              B        CREQUAL           COMPARE R8 AND R9
     5650                            *
     5651                            *                                  RETURN TO INITIAL PHASE FOLLOWING
     5652                            *                                   ORDER IN SERVICE VIA MS SELF TEST
     5653   01 02103    100041D6 A   T1000    GEN,16,10,6    X'1000',X'107',T1020-%
     5654   01 02104    3280351B              LW,R8    =X'40000000'      MS CONTROL
     5655   01 02105    ED80129F              WD,R8    *GP15             SET MS OFF-LINE, DC'S OFF-LINE
     5656   01 02106    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5657   01 02107    32803543              LW,R8    =X'A0000000'      MS SELF-TEST-CONTROL
     5658   01 02108    ED80129E              WD,R8    *GP14              MS SIO & MS FS
     5659   01 02109    32803548              LW,R8    =X'28000000'      MS SELF-TEST CONTROL
     5660   01 0210A    ED80129E              WD,R8    *GP14              MS FS & MS ASC
     5661   01 0210B    25800020 A            SLS,R8   32                DELAY
     5662   01 0210C    ED00129E              WD,R0    *GP14             MS SELF TEST-- RSA
     5663   01 0210D    328034F8              LW,R8    =X'4000000'       MS SELF TEST CONTROL
     5664   01 0210E    ED80129E              WD,R8    *GP14              TORD WITH MS/UNE
     5665   01 0210F    32803548              LW,R8    =X'28000000'      MS SELF TEST--
     5666   01 02110    ED80129E              WD,R8    *GP14              ORDER IN TASC & TFS FOR ORDER IN
     5667   01 02111    25800220 A            SCS,R8   32                DELAY
     5668   01 02112    ED00129E              WD,R0    *GP14             MS SELF TEST-- RSA ORDER IN
     5669   01 02113    25800220 A            SCS,R8   32                DELAY
     5670   01 02114    ED00129E              WD,R0    *GP14             MS SELF TEST-- ORDER IN TERM. ORD
     5671   01 02115    22808040 A            LI,R8    X'8040'           COMPARE IMAGE
     5672   01 02116    EC90129E              RD,R9    *GP14             READ MS DISPLAY
     5673   01 02117    4B90354B              AND,R9   =X'F958'          MASK
     5674   01 02118    68001AC6              B        CREQUAL           C(R8)= C(R9)
     5675                            *
     5676                            *                                  MS SELF TEST-- ORDER OUT CONTROL
     5677                            *                                   SIGNALS
     5678   01 02119    102041CF A   T1020    GEN,16,10,6    X'1020',X'107',T1030-%  PRE-TEST,DATA,CH A/B
     5679   01 0211A    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5680   01 0211B    32803543              LW,R8    =X'A0000000'      MS SIO & FS CONTROL BITS
     5681   01 0211C    ED80129E              WD,R8    *GP14             BASIC MS SIO
     5682   01 0211D    32903548              LW,R9    =X'28000000'      MS FS & ASC CONTROL BITS
     5683   01 0211E    ED90129E              WD,R9    *GP14             ADVANCE TO ORDER OUT SERVICE
     5684   01 0211F    22804609 A            LI,R8    X'4609'           SNAP MODE FOR GROUP 9, OPEN WINDOW
     5685   01 02120    308012C8              AW,R8    CHBCTRL           GROUP BIAS FOR CHANNEL B OPTION
     5686   01 02121    ED80129C              WD,R8    *GP12             CCU SNAP MODE
     5687   01 02122    329034FC              LW,R9    =X'2000000'       RSA & ORDER OUT CONTROL
     5688   01 02123    ED90129E              WD,R9    *GP14             ADVANCE THRU ORDER OUT
     5689   01 02124    3280354C              LW,R8    =X'88800000'      COMPARE MAGE-- ED, RS, & ED
     5690   01 02125    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA
     5691   01 02126    4B90354D              AND,R9   =X'D8C00000'      MASK
     5692   01 02127    68001AC6              B        CREQUAL           C(R8)=C(R9). ED, RS, & ED
     5693                            *
     5694                            *                                  MS SELF TEST-- ORDER IN CONTROL
     5695                            *                                   SIGNALS-- MS/DAP:D, MS/PC:R, &
     5696                            *                                   MS/ONLINE
     5697   01 02128    103041D8 A   T1030    GEN,16,10,6    X'1030',X'107',T1040-%  PRE-TEST,DATA,CH A/B
     5698   01 02129    22B01300 A            LI,R11   X'1300'           NMS/SC/EN, DAP, & PC
     5699   01 0212A    22A0460F A            LI,R10   X'460F'           SNAP CONTROL
     5700   01 0212B    2290DC00 A            LI,R9    X'DC00'           MASK
     5701   01 0212C    22809C00 A            LI,R8    X'9C00'           RESULTANT SNAP DATA
     5702   01 0212D    6AF01C3E     T1030C   BAL,R15  SIMA              MS ON-LINE & MS CONTROLS
     5703   01 0212E    EDB0129D              WD,R11   *GP13             SET MS CONTROL-- MS/DAP:D &
     5704   01 0212F    32B03543              LW,R11   =X'A0000000'       MS/PC:D.
     5705   01 02130    EDB0129E              WD,R11   *GP14             ISSUE MS TSIO & TFS FOR INITIAL
     5706   01 02131    32B03548              LW,R11   =X'28000000'       SIO.  TASC & TFS CONTROL
     5707   01 02132    EDB0129E              WD,R11   *GP14             ADVANCE TO ORDER OUT STATE
     5708   01 02133    ED00129E              WD,R0    *GP14             ADVANCE ORDER OUT
     5709   01 02134    32B034F8              LW,R11   =X'4000000'       MS/UNE CONTROL
     5710   01 02135    EDB0129E              WD,R11   *GP14             ISSUE RSA & TORD WITH UNE OF ORDER
     5711   01 02136    32B03548              LW,R11   =X'28000000'       OUT.  ORDER IN CONTROL-- TASC &
     5712   01 02137    EDB0129E              WD,R11   *GP14              TFS
     5713   01 02138    30A012C8              AW,R10   CHBCTRL           CHANNEL B OPTION
     5714   01 02139    EDA0129C              WD,R10   *GP12             SET SNAP MODE, OPEN WINDOW
     5715   01 0213A    25A00220 A            SCS,R10  32                DELAY
     5716   01 0213B    ED00129E              WD,R0    *GP14             RSA-- ORDER IN
     5717   01 0213C    25B00220 A            SCS,R11  32                DELAY
     5718   01 0213D    ECB01294              RD,R11   *DISPLAY          READ SNAPPED DATA
     5719   01 0213E    4B90000B A            AND,R9   R11               MASK IN R10
     5720   01 0213F    68001AC6              B        CREQUAL           COMPARE R8 & R9
     5721                            *
     5722                            *                                  MS SELF TEST-- ORDER IN CONTROL
     5723                            *                                   SIGNALS-- MS/ONLINE
     5724   01 02140    104041C6 A   T1040    GEN,16,10,6    X'1040',X'107',T1050-%
     5725   01 02141    22B01000 A            LI,R11   X'1000'           GROUP 13 CONTROL
     5726   01 02142    22A0460F A            LI,R10   X'460F'           SNAP CONTROL, GROUP 15 (DEC
     5727   01 02143    2290DC00 A            LI,R9    X'DC00'           MASK
     5728   01 02144    22808400 A            LI,R8    X'8400'           EXPECTED DATA
     5729   01 02145    6800212D              B        T1030C            TO SUBROUTINE
     5730                            *
     5731                            *                                  MS SELF TEST-- ORDER IN CONTROL
     5732                            *                                   SIGNALS-- MS/DA0:R-MS/DA7:R
     5733   01 02146    105041C6 A   T1050    GEN,16,10,6    X'1050',X'107',T1060-%
     5734   01 02147    22B013FF A            LI,R11   X'13FF'           GROUP 13/21 CONTROL
     5735   01 02148    22A0460C A            LI,R10   X'460C'           SNAP CONTROL, GROUP 12 (DEC)
     5736   01 02149    229000FF A            LI,R9    X'FF'             MASK
     5737   01 0214A    228000FF A            LI,R8    X'FF'             EXPECTED
     5738   01 0214B    6800212D              B        T1030C            TO SUBROUTINE
     5739                            *
     5740                            *                                  MS SELF TEST-- ORDER IN CONTROL
     5741                            *                                   SIGNALS-- MS/DA0:R-MS/DA7:R
     5742   01 0214C    106041C6 A   T1060    GEN,16,10,6    X'1060',X'107',T1070-%
     5743   01 0214D    22B01300 A            LI,R11   X'1300'           GROUP 13/21 CONTROL
     5744   01 0214E    22A0460C A            LI,R10   X'460C'           SNAP CONTROL, GROUP 12  (DEC)
     5745   01 0214F    229000FF A            LI,R9    X'FF'             MASK
     5746   01 02150    22800000 A            LI,R8    0                 EXPECTED
     5747   01 02151    6800212D              B        T1030C            TO SUBROUTINE
     5748                            *
     5749                            *                                  MS SELF TEST-- ORDER IN CONTROL
     5750                            *                                   SIGNALS-- MS/DA0:R-MS/DA7:R
     5751   01 02152    107041C6 A   T1070    GEN,16,10,6    X'1070',X'107',T1080-%
     5752   01 02153    22B013AA A            LI,R11   X'13AA'           GROUP 13/21 CONTROL
     5753   01 02154    22A0460C A            LI,R10   X'460C'           SNAP CONTROL, GROUP 12 (DEC)
     5754   01 02155    229000FF A            LI,R9    X'FF'             MASK
     5755   01 02156    228000AA A            LI,R8    X'AA'             EXPECTED
     5756   01 02157    6800212D              B        T1030C            TO SUBROUTINE
     5757                            *
     5758                            *                                  MS SELF TEST-- ORDER IN CONTROL
     5759                            *                                   SIGNALS-- MS/DA0:R-MS/DA7:R
     5760   01 02158    108041C6 A   T1080    GEN,16,10,6    X'1080',X'107',T1090-%
     5761   01 02159    22B01355 A            LI,R11   X'1355'           GROUP 13/21 CONTROL
     5762   01 0215A    22A0460C A            LI,R10   X'460C'           SNAP
     5763   01 0215B    229000FF A            LI,R9    X'FF'             MASK
     5764   01 0215C    22800055 A            LI,R8    X'55'             EXPECTED
     5765   01 0215D    6800212D              B        T1030C            TO SUBROUTINE
     5766                            *
     5767                            *                                  MS SELF TEST--VERIFY DATA IN STATE
     5768   01 0215E    109041D4 A   T1090    GEN,16,10,6    X'1090',X'107',T1100-%
     5769   01 0215F    6AF01C3E              BAL,R15  SIMA              MS O-LINE & MS CONTROLS
     5770   01 02160    32803543              LW,R8    =X'A0000000'      MS TSIO & TFS CONTROL
     5771   01 02161    ED80129E              WD,R8    *GP14             ISSUE INITIAL MS SIO
     5772   01 02162    32803548              LW,R8    =X'28000000'      MS TASC & TFS CONTROL
     5773   01 02163    ED80129E              WD,R8    *GP14             MS ADVANCE TO ORDER OUT STATE
     5774   01 02164    32800000 A            LW,R8    0                 MS RSA & ORD/7
     5775   01 02165    ED80129E              WD,R8    *GP14             MS ORDER OUT
     5776   01 02166    32800000 A            LW,R8    0
     5777   01 02167    ED80129E              WD,R8    *GP14             MS ORDER OUT TORD
     5778   01 02168    2280460E A            LI,R8    X'460E'           OPEN WINDOW SNAP GROUP
     5779   01 02169    308012C8              AW,R8    CHBCTRL           GROUP BIAS FOR CHANNEL B
     5780   01 0216A    ED80129C              WD,R8    *GP12             SET SNAP MODE
     5781   01 0216B    32803548              LW,R8    =X'28000000'      MS TASC & TFS
     5782   01 0216C    ED80129E              WD,R8    *GP14             MS DATA IN
     5783   01 0216D    25800220 A            SCS,R8   32                DELAY
     5784   01 0216E    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA FROM GROUP 14
     5785   01 0216F    4B90354A              AND,R9   =X'F9FF'          MASK
     5786   01 02170    2280D138 A            LI,R8    X'D138'           COMPARE IMAGE-- PHSRV, PHRS,
     5787   01 02171    68001AC6              B        CREQUAL            SERVICON, DATA IN, & DC BUSY
     5788                            *
     5789                            *                                  MS SELF TEST-- DATA OUT STATE
     5790   01 02172    110041D2 A   T1100    GEN,16,10,6    X'1100',X'107',T1110-%
     5791   01 02173    6AF01C3E              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS
     5792   01 02174    22F02181              LI,R15   T1100E
     5793   01 02175    32803543     T1100C   LW,R8    =X'A0000000'      MS TSIO & TFS CONTROL
     5794   01 02176    ED80129E              WD,R8    *GP14             ISSUE INITIAL MS SIO
     5795   01 02177    32803548              LW,R8    =X'28000000'
     5796   01 02178    ED80129E              WD,R8    *GP14             ADVANCE TO ORDER OUT SERVICE
     5797   01 02179    328034FC              LW,R8    =X'2000000'
     5798   01 0217A    ED80129E              WD,R8    *GP14             ADVANCE ORDER OUT SERVICE, WR
     5799   01 0217B    25800220 A            SCS,R8   32                DELAY
     5800   01 0217C    ED00129E              WD,R0    *GP14             TERMINAL ORDER
     5801   01 0217D    32803548              LW,R8    =X'28000000'      MS TASC & TFS
     5802   01 0217E    ED80129E              WD,R8    *GP14             DATA OUT STATE
     5803   01 0217F    22801129 A            LI,R8    X'1129'           COMPARE IMAGE
     5804   01 02180    E800000F A            B        *R15
     5805   01 02181    EC90129E     T1100E   RD,R9    *GP14             READ MS GROUP FOR DATA IN
     5806   01 02182    4B90354A              AND,R9   =X'F9FF'          MASK.  IMAGE: MS/PHSRV, MS/SERV-
     5807   01 02183    68001AC6              B        CREQUAL            ICON, MS/DATA, MS/DCBUSY, &
     5808                            *                                    MS/ORD7
     5809                            *
     5810                            *                                  MS SELF TEST-- DATA OUT STATE SUB-
     5811                            *                                   STAINED
     5812   01 02184    111041C8 A   T1110    GEN,16,10,6    X'1110',X'107',T1120-%
     5813   01 02185    6AF01C3E              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS
     5814   01 02186    6AF02175              BAL,R15  T1100C            TO SUBROUTINE
     5815   01 02187    ED00129E              WD,R0    *GP14             ONE MORE RSA
     5816   01 02188    22801129 A            LI,R8    X'1129'           COMPARE IMAGE
     5817   01 02189    EC90129E              RD,R9    *GP14             READ MS GROUP 14 OR 22
     5818   01 0218A    4B90354A              AND,R9   =X'F9FF'          MASK. IMAGE: MS/PHSRV, MS/SERV-
     5819   01 0218B    68001AC6              B        CREQUAL            ICON, MS/DATA, MS/DCBUSY &
     5820                            *                                    MS/ORD7
     5821                            *
     5822                            *                                  MS DATA IN (DA0-7)-- CHECKS DATA
     5823                            *                                  STROBE ENABLE
     5824   01 0218C    112041D2 A   T1120    GEN,16,10,6    X'1120',X'107',T1130-%
     5825   01 0218D    3280351B              LW,R8    =X'40000000'
     5826   01 0218E    ED80129F              WD,R8    *GP15             SET MS OFF LINE
     5827   01 0218F    6AF01C3E              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS
     5828   01 02190    32803543              LW,R8    =X'A0000000'
     5829   01 02191    ED80129E              WD,R8    *GP14             ISSUE TSIO & TFS
     5830   01 02192    22801300 A            LI,R8    X'1300'
     5831   01 02193    ED80129D              WD,R8    *GP13             SET DATA PATTERN DA0-7
     5832   01 02194    32803548              LW,R8    =X'28000000'
     5833   01 02195    ED80129E              WD,R8    *GP14             ISSUE TASC & TFS
     5834   01 02196    ED00129E              WD,R0    *GP14             ISSUE RSA FOR ORDER OUT
     5835   01 02197    ED00129E              WD,R0    *GP14             ISSUE RSA FOR TORD
     5836   01 02198    32803548              LW,R8    =X'28000000'      ISSUE TASC & TFS FOR DATA IN
     5837   01 02199    ED80129E              WD,R8    *GP14
     5838   01 0219A    EC90129C              RD,R9    *GP12             READ DA0-7
     5839   01 0219B    4B9034F3              AND,R9   =X'000000FF'      MASK
     5840   01 0219C    22800000 A            LI,R8    0                 EXPECTED DISPLAY
     5841   01 0219D    68001AC6              B        CREQUAL           COMPARE R8:R9
     5842                            *
     5843                            *                                  MS DATA IN (DA0-7)-- CHECKS DATA
     5844                            *                                  STROBE ENABLE
     5845   01 0219E    113041D2 A   T1130    GEN,16,10,6    X'1130',X'107',T1140-%
     5846   01 0219F    3280351B              LW,R8    =X'40000000'
     5847   01 021A0    ED80129F              WD,R8    *GP15             SET MS OFF LINE
     5848   01 021A1    6AF01C3E              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS
     5849   01 021A2    32803543              LW,R8    =X'A0000000'
     5850   01 021A3    ED80129E              WD,R8    *GP14             ISSUE TSIO & TFS
     5851   01 021A4    228013FF A            LI,R8    X'13FF'
     5852   01 021A5    ED80129D              WD,R8    *GP13             SET DATA PATTERN DA0-7
     5853   01 021A6    32803548              LW,R8    =X'28000000'
     5854   01 021A7    ED80129E              WD,R8    *GP14             ISSUE TASC & TFS
     5855   01 021A8    ED00129E              WD,R0    *GP14             ISSUE RSA FOR ORDER OUT
     5856   01 021A9    ED00129E              WD,R0    *GP14             ISSUE RSA FOR TORD
     5857   01 021AA    32803548              LW,R8    =X'28000000'      ISSUE TASC & TFS FOR DATA IN
     5858   01 021AB    ED80129E              WD,R8    *GP14
     5859   01 021AC    EC90129C              RD,R9    *GP12             READ DA0-7
     5860   01 021AD    4B9034F3              AND,R9   =X'000000FF'      MASK
     5861   01 021AE    228000FF A            LI,R8    X'FF'             EXPECTED DISPLAY
     5862   01 021AF    68001AC6              B        CREQUAL           COMPARE R8:R9
     5863                            *
     5864                            *                                  MS DX4 & MIOP DX4:R
     5865   01 021B0    114042D0 A   T1140    GEN,16,10,6    X'1140',X'10B',T1150-%
     5866   01 021B1    3280351B              LW,R8    =X'40000000'
     5867   01 021B2    ED80129F              WD,R8    *GP15             SET MS OFF LINE
     5868   01 021B3    6AF01C3E              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS
     5869   01 021B4    32803543              LW,R8    =X'A0000000'
     5870   01 021B5    ED80129E              WD,R8    *GP14             ISSUE TSIO & TFS
     5871   01 021B6    22801400 A            LI,R8    X'1400'
     5872   01 021B7    ED80129D              WD,R8    *GP13             DX4 & INHIBIT SC
     5873   01 021B8    32803543              LW,R8    =X'A0000000'
     5874   01 021B9    ED80129E              WD,R8    *GP14             TSIO & TFS
     5875   01 021BA    32803548              LW,R8    =X'28000000'
     5876   01 021BB    ED80129E              WD,R8    *GP14             TASC & TFS
     5877   01 021BC    EC901299              RD,R9    *GP09             READ FOR DX4
     5878   01 021BD    4B9034F9              AND,R9   =X'10000000'      WAS DX4:R SET IN THE MIOP
     5879   01 021BE    692014D4              BCS,2    GOOD              - YES
     5880   01 021BF    68001411              B        BAD               - NO
     5881                            *
     5882                            *                                  DATA IN - 4 BYTE DATA PATH
     5883                            *                                  DA0-7 AND DB0-7, PAT: X'00'
     5884   01 021C0    115043D3 A   T1150    GEN,16,10,6    X'1150',X'10F',T1160-%
     5885   01 021C1    22901700 A            LI,R9    X'1700'
     5886   01 021C2    22C021D0              LI,R12   T1150D
     5887   01 021C3    3280351B     T1150B   LW,R8    =X'40000000'
     5888   01 021C4    ED80129F              WD,R8    *GP15             SET MS OFF LINE
     5889   01 021C5    6AF01C3E              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS
     5890   01 021C6    ED90129D              WD,R9    *GP13
     5891   01 021C7    32803543              LW,R8    =X'A0000000'
     5892   01 021C8    ED80129E              WD,R8    *GP14             ISSUE TSIO & TFS
     5893   01 021C9    32803548              LW,R8    =X'28000000'
     5894   01 021CA    ED80129E              WD,R8    *GP14             ISSUE TASC & TFS
     5895   01 021CB    ED00129E              WD,R0    *GP14             ISSUE RSA FOR ORDER OUT
     5896   01 021CC    ED00129E              WD,R0    *GP14             ISSUE RSA FOR TORD
     5897   01 021CD    32803548              LW,R8    =X'28000000'      ISSUE TASC & TFS FOR DATA IN
     5898   01 021CE    ED80129E              WD,R8    *GP14
     5899   01 021CF    E800000C A            B        *R12              RETURN TO CALLER
     5900   01 021D0    EC90129C     T1150D   RD,R9    *GP12             READ DA0-7
     5901   01 021D1    22800000 A            LI,R8    0                 EXPECTED DISPLAY
     5902   01 021D2    68001AC6              B        CREQUAL           COMPARE R8:R9
     5903                            *
     5904                            *                                  DATA IN - 4 BYTE DATA PATH
     5905                            *                                  DA0-7 AND DB0-7, PAT: X'FF'
     5906   01 021D3    116043C6 A   T1160    GEN,16,10,6    X'1160',X'10F',T1170-%
     5907   01 021D4    229017FF A            LI,R9    X'17FF'
     5908   01 021D5    6AC021C3              BAL,R12  T1150B
     5909   01 021D6    EC90129C              RD,R9    *GP12             READ DA0-7 & DB0-7
     5910   01 021D7    2280FFFF A            LI,R8    X'FFFF'           EXPECTED DISPLAY
     5911   01 021D8    68001AC6              B        CREQUAL           COMPARE R8:R9
     5912                            *
     5913                            *                                  DATA IN - 4 BYTE DATA PATH
     5914                            *                                  DA0-7 AND DB0-7, PAT: X'AA'
     5915   01 021D9    117043C6 A   T1170    GEN,16,10,6    X'1170',X'10F',T1180-%
     5916   01 021DA    229017AA A            LI,R9    X'17AA'
     5917   01 021DB    6AC021C3              BAL,R12  T1150B
     5918   01 021DC    EC90129C              RD,R9    *GP12             READ DA0-7
     5919   01 021DD    2280AAAA A            LI,R8    X'AAAA'           EXPECTED DISPLAY
     5920   01 021DE    68001AC6              B        CREQUAL           COMPARE R8:R9
     5921                            *
     5922                            *                                  DATA IN - 4 BYTE DATA PATH
     5923                            *                                  DA0-7 AND DB0-7, PAT: X'55'
     5924   01 021DF    118043C6 A   T1180    GEN,16,10,6    X'1180',X'10F',T1190-%
     5925   01 021E0    22901755 A            LI,R9    X'1755'
     5926   01 021E1    6AC021C3              BAL,R12  T1150B
     5927   01 021E2    EC90129C              RD,R9    *GP12
     5928   01 021E3    22805555 A            LI,R8    X'5555'           EXPECTED DISPLAY
     5929   01 021E4    68001AC6              B        CREQUAL           COMPARE R8:R9
     5930                            *
     5931                            *                                  DATA IN - 4 BYTE DATA PATH
     5932                            *                                  DC0-7 AND DD0-7, PAT: X'00'
     5933   01 021E5    119043C6 A   T1190    GEN,16,10,6    X'1190',X'10F',T1200-%
     5934   01 021E6    22901700 A            LI,R9    X'1700'
     5935   01 021E7    6AC021C3              BAL,R12  T1150B
     5936   01 021E8    EC90129D              RD,R9    *GP13             READ DC0-7 & DD0-7
     5937   01 021E9    22800000 A            LI,R8    0                 EXPECTED DISPLAY
     5938   01 021EA    68001AC6              B        CREQUAL           COMPARE R8:R9
     5939                            *
     5940                            *                                  DATA IN - 4 BYTE DATA PATH
     5941                            *                                  DC0-7 AND DD0-7, PAT: X'FF'
     5942   01 021EB    120043C6 A   T1200    GEN,16,10,6    X'1200',X'10F',T1210-%
     5943   01 021EC    229017FF A            LI,R9    X'17FF'
     5944   01 021ED    6AC021C3              BAL,R12  T1150B
     5945   01 021EE    EC90129D              RD,R9    *GP13             READ DC0-7 & DD0-7
     5946   01 021EF    2280FFFF A            LI,R8    X'FFFF'           EXPECTED DISPLAY
     5947   01 021F0    68001AC6              B        CREQUAL           COMPARE R8:R9
     5948                            *
     5949                            *                                  DATA IN - 4 BYTE DATA PATH
     5950                            *                                  DC0-7 AND DD0-7, PAT: X'AA'
     5951   01 021F1    121043C6 A   T1210    GEN,16,10,6    X'1210',X'10F',T1220-%
     5952   01 021F2    229017AA A            LI,R9    X'17AA'
     5953   01 021F3    6AC021C3              BAL,R12  T1150B
     5954   01 021F4    EC90129D              RD,R9    *GP13             READ DC0-7 & DD0-7
     5955   01 021F5    2280AAAA A            LI,R8    X'AAAA'           EXPECTED DISPLAY
     5956   01 021F6    68001AC6              B        CREQUAL           COMPARE R8:R9
     5957                            *
     5958                            *                                  DATA IN - 4 BYTE DATA PATH
     5959                            *                                  DC0-7 AND DD0-7, PAT: X'55'
     5960   01 021F7    122043C6 A   T1220    GEN,16,10,6    X'1220',X'10F',T1230-%
     5961   01 021F8    22901755 A            LI,R9    X'1755'
     5962   01 021F9    6AC021C3              BAL,R12  T1150B
     5963   01 021FA    EC90129D              RD,R9    *GP13             READ DC0-7 & DD0-7
     5964   01 021FB    22805555 A            LI,R8    X'5555'           EXPECTED DISPLAY
     5965   01 021FC    68001AC6              B        CREQUAL           COMPARE R8:R9
     5966                            *
     5967                            *                                  MS BURST MODE INDICATOR
     5968   01 021FD    123047C7 A   T1230    GEN,16,10,6    X'1230',X'11F',T1240-%
     5969   01 021FE    22901C00 A            LI,R9    X'1C00'
     5970   01 021FF    6AC021C3              BAL,R12  T1150B            TO SUBROUTINE
     5971   01 02200    3280351B              LW,R8    =X'40000000'      EXPECTED DISPLAY BM SET
     5972   01 02201    EC901299              RD,R9    *GP09             READ GROUP FOR BM IND
     5973   01 02202    4B90351B              AND,R9   =X'40000000'      MASK
     5974   01 02203    68001AC6              B        CREQUAL
     5975                            *
     5976                            *                                  MS PHASE TEST- PHFS
     5977   01 02204    124041CC A   T1240    GEN,16,10,6    X'1240',X'107',T1250-%
     5978   01 02205    3280351B              LW,R8    =X'40000000'
     5979   01 02206    ED80129F              WD,R8    *GP15             SET MS OFF-LINE
     5980   01 02207    6AF01C3E              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS
     5981   01 02208    22801000 A            LI,R8    X'1000'
     5982   01 02209    ED80129C              WD,R8    *GP12             SET SINGLE STEP MODE
     5983   01 0220A    3280353B              LW,R8    =X'60000000'
     5984   01 0220B    ED80129E              WD,R8    *GP14             ISSUE THIO & TFS
     5985   01 0220C    22800000 A            LI,R8    0                 DISPLAY EXPECTED; PHFS
     5986   01 0220D    EC90129E              RD,R9    *GP14             READ MS CONTROL PHASES
     5987   01 0220E    4B90353D              AND,R9   =X'F800'          MASK
     5988   01 0220F    68001AC6              B        CREQUAL           COMPARE R8:R9
     5989                            *
     5990                            *                                  MS PHASE TEST- PHFSZ & PHFSL
     5991   01 02210    125041CE A   T1250    GEN,16,10,6    X'1250',X'107',T1260-%
     5992   01 02211    3280351B              LW,R8    =X'40000000'
     5993   01 02212    ED80129F              WD,R8    *GP15             MS OFF LINE
     5994   01 02213    6AF01C3E              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS
     5995   01 02214    22801000 A            LI,R8    X'1000'
     5996   01 02215    ED80129C              WD,R8    *GP12             SET SINGLE STEP MODE
     5997   01 02216    3280353B              LW,R8    =X'60000000'
     5998   01 02217    ED80129E              WD,R8    *GP14             ISSUE THIO & TFS
     5999   01 02218    22801800 A            LI,R8    X'1800'
     6000   01 02219    ED80129C              WD,R8    *GP12             ISSUE PHASE CLOCK
     6001   01 0221A    22802000 A            LI,R8    X'2000'           COMPARE IMAGE PHFSL
     6002   01 0221B    EC90129E              RD,R9    *GP14             READ MS CONTROL PHASES
     6003   01 0221C    4B90353D              AND,R9   =X'F800'          MASK
     6004   01 0221D    68001AC6              B        CREQUAL           COMPARE C(R8) TO C(R9) (PHFSL)
     6005                            *
     6006                            *                                  RIO-- CONDITION CODES
     6007   01 0221E    126001CB A   T1260    GEN,16,10,6    X'1260',7,T1270-%
     6008   01 0221F    6AC01C4C              BAL,R12  STOPIODV          PREVENT TST & COM CHAN CONFLICT
     6009   01 02220    32601312              LW,R6    IOPNO             CURRENT IOP NUMBER
     6010   01 02221    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON-LINE IN-
     6011   01 02222    358012E6              STW,R8   DCOFFA             DICATOR
     6012   01 02223    35801332              STW,R8   NDCDLY             ALSO DELAY INDICATOR
     6013   01 02224    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6014   01 02225    6AF013FE              BAL,R15  GENRIO6           DO GENERAL RESET                *G02
     6015   01 02226    74000009 A            STCF     R9                SAVE CONDITION CODES IN R9
     6016   01 02227    4B90350C              AND,R9   =X'F0000000'      MASK
     6017   01 02228    68001AC6              B        CREQUAL           C(R8) = C(R9) = CC1-4 = 0
     6018                            *
     6019                            *                                  RIO-- CLEAR GENERAL REGISTER
     6020   01 02229    127001C9 A   T1270    GEN,16,10,6    X'1270',7,T1280-%
     6021   01 0222A    6AC01C4C              BAL,R12  STOPIODV          PREVENT TST & COM CHAN CONFLICT
     6022   01 0222B    32301312              LW,R3    IOPNO             CURRENT IOP NUMBER
     6023   01 0222C    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON-LINE IN-
     6024   01 0222D    358012E6              STW,R8   DCOFFA             DICATOR
     6025   01 0222E    35801332              STW,R8   NDCDLY             ALSO DELAY INDICATOR
     6026   01 0222F    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6027   01 02230    4F964000 A            RIO,R9   0,X3              RESET I/O
     6028   01 02231    68001AC6              B        CREQUAL           C(R8) & C(R9) = 0
     6029                            *
     6030                            *                                  RIO TO CCU
     6031   01 02232    1280010E A   T1280    GEN,16,10,6    X'1280',4,T1290-%
     6032   01 02233    6AC01C4C              BAL,R12  STOPIODV          PREVENT TEST & COM CHAN CONFLICT
     6033   01 02234    22801000 A            LI,R8    X'1000'           SINGLE STEP BIT FOR CCU CONTROL
     6034   01 02235    498012CC              OR,R8    CM                CLOCK MARGIN
     6035   01 02236    ED801294              WD,R8    *GP00
     6036   01 02237    32601312              LW,R6    IOPNO             CURRENT IOP NUMBER              *G02
     6037   01 02238    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON-LINE INDI-
     6038   01 02239    358012E6              STW,R8   DCOFFA             CATOR
     6039   01 0223A    35801332              STW,R8   NDCDLY             ALSO DELAY INDICATOR
     6040   01 0223B    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6041   01 0223C    6AF013FE              BAL,R15  GENRIO6           DO GENERAL RESET                *G02
     6042   01 0223D    EC901295              RD,R9    *GP01             READ CCU STATUS
     6043   01 0223E    4B903525              AND,R9   =X'1000000'       MASK. DLSTOP/1 CLEARED
     6044   01 0223F    68001AC6              B        CREQUAL           C(R8) = C(R9)= 0
     6045                            *
     6046                            *                                  RIO TO MS
     6047   01 02240    129001CD A   T1290    GEN,16,10,6    X'1290',7,T1300-%
     6048   01 02241    6AC01C4C              BAL,R12  STOPIODV          PREVENT TEST & COM CHAN CONFLICT
     6049   01 02242    328034FC              LW,R8    =X'2000000'       MS/ORD7 BIT
     6050   01 02243    ED80129E              WD,R8    *GP14
     6051   01 02244    32601312              LW,R6    IOPNO             CURRENT IOP NUMBER              *G02
     6052   01 02245    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON-LINE IN-
     6053   01 02246    358012E6              STW,R8   DCOFFA             DICATORS
     6054   01 02247    35801332              STW,R8   NDCDLY             ALSO DELAY INDICATOR
     6055   01 02248    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6056   01 02249    6AF013FE              BAL,R15  GENRIO6           DO GENERAL RESET                *G02
     6057   01 0224A    EC90129E              RD,R9    *GP14             READ MS STATUS
     6058   01 0224B    4B903507              AND,R9   =1                MASK. MS/ORD7 SHOULD BE RESET
     6059   01 0224C    68001AC6              B        CREQUAL           C(R8) = C(R9) = 0
     6060                            *
     6061                            *                                  RIO TO CHANNEL
     6062   01 0224D    130001CF A   T1300    GEN,16,10,6    X'1300',7,T1310-%
     6063   01 0224E    6AC01C4C              BAL,R12  STOPIODV          PREVENT TEST & COM CHAN CONFLICT
     6064   01 0224F    22800755 A            LI,R8    X'755'            SINGLE STEP, SNAP GROUP 15/23
     6065   01 02250    498012CC              OR,R8    CM
     6066   01 02251    ED801294              WD,R8    *GP00
     6067   01 02252    32601312              LW,R6    IOPNO             CURRENT IOP NUMBER              *G02
     6068   01 02253    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON LINE INDI-
     6069   01 02254    358012E6              STW,R8   DCOFFA             CATOR
     6070   01 02255    35801332              STW,R8   NDCDLY             ALSO DELAY INDICATOR
     6071   01 02256    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6072   01 02257    6AF013FE              BAL,R15  GENRIO6           DO GENERAL RESET                *G02
     6073   01 02258    22800555 A            LI,R8    X'555'            COMPARE IMAGE-- MS/ONLINE,MS/HIOU
     6074   01 02259    EC901295              RD,R9    *GP01              MS/ASC:R, & MS/FS:R. READ DATA
     6075   01 0225A    4B903529              AND,R9   =X'E7FF'           MASK
     6076   01 0225B    68001AC6              B        CREQUAL           C(R8) = C(R9) = X'555'
     6077                            *
     6078                            *                                  RIO TO SUBCHANNEL
     6079   01 0225C    131001CF A   T1310    GEN,16,10,6    X'1310',7,T1320-%
     6080   01 0225D    6AC01C4C              BAL,R12  STOPIODV          PREVENT TEST & COM CHAN CONFLICT
     6081   01 0225E    228006AA A            LI,R8    X'6AA'            SNAP MODE, SUBCHANNEL DISPLAY
     6082   01 0225F    498012CC              OR,R8    CM                CLOCK MARGIN
     6083   01 02260    ED801294              WD,R8    *GP00
     6084   01 02261    32601312              LW,R6    IOPNO             CURRENT IOP NUMBER              *G02
     6085   01 02262    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON LINE INDI-
     6086   01 02263    358012E6              STW,R8   DCOFFA             CATOR
     6087   01 02264    35801332              STW,R8   NDCDLY             ALSO DELAY INDICATOR
     6088   01 02265    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6089   01 02266    6AF013FE              BAL,R15  GENRIO6           DO GENERAL RESET                *G02
     6090   01 02267    228004AA A            LI,R8    X'4AA'            COMPARE IMAGE
     6091   01 02268    EC901295              RD,R9    *GP01             READ DATA
     6092   01 02269    4B903529              AND,R9   =X'E7FF'          MASK
     6093   01 0226A    68001AC6              B        CREQUAL           C(R8) = C(R9) = X'40A'
     6094                            *
     6095                            *                                  RIO RESET MS ON-LINE
     6096   01 0226B    132001CB A   T1320    GEN,16,10,6    X'1320',7,T1330-%
     6097   01 0226C    32601312              LW,R6    IOPNO             CURRENT IOP NUMBER              *G02
     6098   01 0226D    22000000 A            LI,R0    0                 DC OFF-LINE INDICATORS
     6099   01 0226E    350012E6              STW,R0   DCOFFA
     6100   01 0226F    35001332              STW,R0   NDCDLY             ALSO DELAY INDICATOR
     6101   01 02270    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6102   01 02271    6AF013FE              BAL,R15  GENRIO6           DO GENERAL RESET                *G02
     6103   01 02272    22800000 A            LI,R8    0
     6104   01 02273    EC90129F              RD,R9    *GP15             READ DISPLAY REGISTER
     6105   01 02274    4B90350A              AND,R9   =X'400'           MS ON-LINE DISPLAY BIT
     6106   01 02275    68001AC6              B        CREQUAL           SHOULD BE OFF
     6107                            *
     6108                            *                                  POLP CONDITION CODE CHECK
     6109   01 02276    133000C6 A   T1330    GEN,16,10,6    X'1330',3,T1340-%
     6110   01 02277    32501312              LW,R5    IOPNO             CURRENT IOP NO.
     6111   01 02278    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6112   01 02279    4F0A8000 A            POLP,R0  0,X5              POLP
     6113   01 0227A    68E014D4              BCR,14   GOOD              CC 1-3 = 0
     6114   01 0227B    68001411              B        BAD               NO-- REPORT
     6115                            *
     6116                            *                                  POLR CONDITION CODES CHECK
     6117   01 0227C    134000C6 A   T1340    GEN,16,10,6    X'1340',3,T1350-%
     6118   01 0227D    32501312              LW,R5    IOPNO             CURRENT IOP NO.
     6119   01 0227E    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6120   01 0227F    4F0AC000 A            POLR,R0  0,X5              POLR
     6121   01 02280    68E014D4              BCR,14   GOOD              CC 1-3 = 0
     6122   01 02281    68001411              B        BAD               NO-- REPORT
     6123                            *
     6124                            *                                  POLP REGISTER TEST
     6125   01 02282    135001C7 A   T1350    GEN,16,10,6    X'1350',7,T1360-%
     6126   01 02283    32501312              LW,R5    IOPNO             CURRENT IOP NO
     6127   01 02284    229FFFFF A            LI,R9    -1                ALL ONES TO REGISTER
     6128   01 02285    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6129   01 02286    4F9A8000 A            POLP,R9  0,X5              POLP
     6130   01 02287    22800000 A            LI,R8    0                 COMPARE IMAGE
     6131   01 02288    68001AC6              B        CREQUAL           SHOULD BE EQUAL
     6132                            *
     6133                            *
     6134   01 02289    136001C8 A   T1360    GEN,16,10,6    X'1360',7,T1390-%
     6135   01 0228A    32501312              LW,R5    IOPNO             CURRENT IOP NO
     6136   01 0228B    228FFFFF A            LI,R8    -1                ALL ONES TO REGISTER
     6137   01 0228C    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6138   01 0228D    4F8AC000 A            POLR,R8  0,X5              POLR
     6139   01 0228E    22900000 A            LI,R9    0                 COMPARE IMAGE
     6140   01 0228F    46800009 A            XW,R8    R9                SWITCH C(R8)& C(R9)
     6141   01 02290    68001AC6              B        CREQUAL           SHOULD BE EQUAL
     6142                            *
     6143                            *                                  RD-WD SINGLE PHASING
     6144   01 02291    139040C8 A   T1390    GEN,16,10,6    X'1390',X'103',T1400-%
     6145   01 02292    22801800 A            LI,R8    X'1800'
     6146   01 02293    ED801298              WD,R8    *GP08             SET SINGLE STEP MODE
     6147   01 02294    ED001299              WD,R0    *GP09
     6148   01 02295    EC901298              RD,R9    *GP08             READ FOR PH00
     6149   01 02296    4B90351B              AND,R9   =X'40000000'      WAS PH00 SET?
     6150   01 02297    692014D4              BCS,2    GOOD              -YES
     6151   01 02298    68001411              B        BAD               -NO
     6152                            *
     6153                            *                                  SNAP COUNT DECREMENT - (SNAP TYPE 3)
     6154   01 02299    140001CD A   T1400    GEN,16,10,6    X'1400',7,T1410-%
     6155   01 0229A    EDD01298              WD,R13   *GP08             CHANNEL RESET
     6156   01 0229B    22811FE8 A            LI,R8    X'11FE8'
     6157   01 0229C    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION
     6158   01 0229D    ED801298              WD,R8    *GP08             SET SINGLE PHASE & SNAP TYPE 3
     6159   01 0229E    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6160   01 0229F    ED001299              WD,R0    *GP09             WRITE FAM
     6161   01 022A0    22800400 A            LI,R8    X'400'
     6162   01 022A1    ED801298              WD,R8    *GP08             RELEASE SNAP
     6163   01 022A2    EC901295              RD,R9    *GP01             READ SNAP CONTROL DISPLAY
     6164   01 022A3    4B90354E              AND,R9   =X'FFF'           MASK
     6165   01 022A4    228005C0 A            LI,R8    X'5C0'            EXPECTED DISPLAY
     6166   01 022A5    68001AC6              B        CREQUAL           COMPARE R8:R9
     6167                            *
     6168                            *                                  SNAP COUNT DECREMENT - (SNAP TYPE 3)
     6169   01 022A6    141001CD A   T1410    GEN,16,10,6    X'1410',7,T1420-%
     6170   01 022A7    EDD01298              WD,R13   *GP08             CHANNEL RESET
     6171   01 022A8    22805FE8 A            LI,R8    X'5FE8'
     6172   01 022A9    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION
     6173   01 022AA    ED801298              WD,R8    *GP08             SET SINGLE PHASE & SNAP TYPE 3
     6174   01 022AB    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6175   01 022AC    ED001299              WD,R0    *GP09             WRITE FAM
     6176   01 022AD    22800400 A            LI,R8    X'400'
     6177   01 022AE    ED801298              WD,R8    *GP08             RELEASE SNAP
     6178   01 022AF    EC901295              RD,R9    *GP01             READ SNAP CONTROL DISPLAY
     6179   01 022B0    4B90354E              AND,R9   =X'FFF'           MASK
     6180   01 022B1    228005C0 A            LI,R8    X'5C0'            EXPECTED DISPLAY
     6181   01 022B2    68001AC6              B        CREQUAL           COMPARE R8:R9
     6182                            *
     6183                            *
     6184   01 022B3    142001C4 A   T1420    GEN,16,10,6    X'1420',7,T1425-%
     6185   01 022B4    6AF022BB              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE
     6186   01 022B5    80FFFFFF A            DATA     X'80FFFFFF'       1ST WRITE TO C
     6187   01 022B6    80000000 A            DATA     X'80000000'       2ND WRITE TO C & DATA EXPECTED
     6188                            *
     6189                            *                                  C REGISTER TEST (LOWER)
     6190   01 022B7    142501D4 A   T1425    GEN,16,10,6     X'1425',7,T1430-%
     6191   01 022B8    6AF022BB              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE
     6192   01 022B9    82FFFFFF A            DATA     X'82FFFFFF'       1ST WRITE TO C
     6193   01 022BA    82000000 A            DATA     X'82000000'       2ND WRITE TO C & DATA EXPECTED
     6194         01 022BB           T1425B   EQU      %
     6195   01 022BB    EDD01298              WD,R13   *GP08             CHANNEL RESET
     6196   01 022BC    B280000F A            LW,R8    *15               FETCH DATA FOR 1ST WRITE TO C REG
     6197   01 022BD    ED801299              WD,R8    *GP09             WRITE C
     6198   01 022BE    3310000F A            MTW,1    15                BUMP POINTER
     6199   01 022BF    B280000F A            LW,R8    *15               FETCH DATA FOR SECOND WRITE TO C
     6200   01 022C0    ED801299              WD,R8    *GP09             WRITE C
     6201   01 022C1    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6202   01 022C2    4B8034FC              AND,R8   =X'02000000'      IS FAM UPPER OR LOWER UNDER TEST?
     6203   01 022C3    692022C6              BCS,2    %+3               BRANCH IF FAM LOWER
     6204   01 022C4    EC90129A              RD,R9    *GP10             READ FAM UPPER
     6205   01 022C5    680022C7              B        %+2
     6206   01 022C6    EC90129B              RD,R9    *GP11             READ FAM LOWER
     6207   01 022C7    4B90350F              AND,R9   =X'00FFFFFF'      MASK FOR DATA RECEIVED
     6208   01 022C8    B280000F A            LW,R8    *15               FETCH DATA EXPECTED
     6209   01 022C9    4B80350F              AND,R8   =X'00FFFFFF'      MASK
     6210   01 022CA    68001AC6              B        CREQUAL           COMPARE R8:R9
     6211                            *
     6212                            *                                  C REGISTER TEST (UPPER)
     6213   01 022CB    143001C4 A   T1430    GEN,16,10,6    X'1430',7,T1435-%
     6214   01 022CC    6AF022BB              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE
     6215   01 022CD    80000000 A            DATA     X'80000000'       1ST WRITE TO C
     6216   01 022CE    80FFFFFF A            DATA     X'80FFFFFF'       2ND WRITE TO C & DATA EXPECTED
     6217                            *                                  C REGISTER TEST (LOWER)
     6218   01 022CF    143501C4 A   T1435    GEN,16,10,6     X'1435',7,T1440-%
     6219   01 022D0    6AF022BB              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE
     6220   01 022D1    82000000 A            DATA     X'82000000'       1ST WRITE TO C
     6221   01 022D2    82FFFFFF A            DATA     X'82FFFFFF'       2ND WRITE TO C & DATA EXPECTED
     6222                            *
     6223                            *                                  C REGISTER TEST (UPPER)
     6224   01 022D3    144001C4 A   T1440    GEN,16,10,6    X'1440',7,T1445-%
     6225   01 022D4    6AF022BB              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE
     6226   01 022D5    80000000 A            DATA     X'80000000'       1ST WRITE TO C
     6227   01 022D6    80555555 A            DATA     X'80555555'       2ND WRITE TO C & DATA EXPECTED
     6228                            *                                  C REGISTER TEST (LOWER)
     6229   01 022D7    144501C4 A   T1445    GEN,16,10,6     X'1445',7,T1450-%
     6230   01 022D8    6AF022BB              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE
     6231   01 022D9    82000000 A            DATA     X'82000000'       1ST WRITE TO C
     6232   01 022DA    82555555 A            DATA     X'82555555'       2ND WRITE TO C & DATA EXPECTED
     6233                            *
     6234                            *                                  C REGISTER TEST (UPPER)
     6235   01 022DB    145001C4 A   T1450    GEN,16,10,6    X'1450',7,T1455-%
     6236   01 022DC    6AF022BB              BAL,R15  T1425B            TO SUBROUTINE
     6237   01 022DD    80000000 A            DATA     X'80000000'       1ST WRITE TO C
     6238   01 022DE    8AAAAAAA A            DATA     X'8AAAAAAA'       2ND WRITE TO C & DATA EXPECTED
     6239                            *                                  C REGISTER TEST (LOWER)
     6240   01 022DF    145501C4 A   T1455    GEN,16,10,6     X'1455',7,T1460-%
     6241   01 022E0    6AF022BB              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE
     6242   01 022E1    82000000 A            DATA     X'82000000'       1ST WRITE TO C
     6243   01 022E2    82AAAAAA A            DATA     X'82AAAAAA'       2ND WRITE TO C & DATA EXPECTED
     6244                            *
     6245                            *                                  A REGISTER TEST-- A3-A7 = 0
     6246   01 022E3    146001CB A   T1460    GEN,16,10,6    X'1460',7,T1470-%
     6247   01 022E4    6AF022E6              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE
     6248   01 022E5    82000000 A            DATA     X'82000000'       WRITE DIRECT DATA
     6249                            *
     6250   01 022E6    EDD01298     T1460B   WD,R13   *GP08             CHANNEL RESET
     6251   01 022E7    B280000F A            LW,R8    *15               FETCH WRITE DIRECT DATA
     6252   01 022E8    ED801299              WD,R8    *GP09             WRITE A REGISTER
     6253   01 022E9    EC90129A              RD,R9    *GP10             READ A REGISTER
     6254   01 022EA    4B90354F              AND,R9   =X'FF000000'      MASK
     6255   01 022EB    2580007E A            SLS,R8   -2                POSITION DATA EXPECTED
     6256   01 022EC    4B803550              AND,R8   =X'1F000000'      MASK
     6257   01 022ED    68001AC6              B        CREQUAL           COMPARE R8 & R9
     6258                            *
     6259                            *                                  A REGISTER TEST-- A3
     6260   01 022EE    147001C3 A   T1470    GEN,16,10,6    X'1470',7,T1480-%
     6261   01 022EF    6AF022E6              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE
     6262   01 022F0    C2000000 A            DATA     X'C2000000'       WRITE DIRECT DATA
     6263                            *
     6264                            *                                  A REGISTER TEST-- A4
     6265   01 022F1    148001C3 A   T1480    GEN,16,10,6    X'1480',7,T1490-%
     6266   01 022F2    6AF022E6              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE
     6267   01 022F3    A2000000 A            DATA     X'A2000000'       WRITE DIRECT DATA
     6268                            *
     6269                            *                                  A REGISTER TEST-- A5
     6270   01 022F4    149001C3 A   T1490    GEN,16,10,6    X'1490',7,T1500-%
     6271   01 022F5    6AF022E6              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE
     6272   01 022F6    92000000 A            DATA     X'92000000'       WRITE DIRECT DATA
     6273                            *
     6274                            *                                  A REGISTER TEST-- A6
     6275   01 022F7    150001C3 A   T1500    GEN,16,10,6    X'1500',7,T1510-%
     6276   01 022F8    6AF022E6              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE
     6277   01 022F9    8A000000 A            DATA     X'8A000000'       WRITE DIRECT DATA
     6278                            *
     6279                            *                                  A REGISTER TEST-- A7
     6280   01 022FA    151001C3 A   T1510    GEN,16,10,6    X'1510',7,T1520-%
     6281   01 022FB    6AF022E6              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE
     6282   01 022FC    86000000 A            DATA     X'86000000'       WRITE DIRECT DATA
     6283                            *
     6284                            *                                  C REG TO FAM SUBCHANNEL TRANSFER,
     6285                            *                                   C00-23 TO FAM 48-71,AL ZEROS TEST
     6286   01 022FD    152001CF A   T1520    GEN,16,10,6    X'1520',7,T1530-%
     6287   01 022FE    32803551              LW,R8    =X'80FFFFFF'      INITIALLY WRITE ALL 1'S
     6288   01 022FF    32903515              LW,R9    =X'80000000'      ALL ZEROS PATTERN FOR LOWER FAM
     6289   01 02300    6AF02302              BAL,R15  T1520B            SUBROUTINE RETURN LINKAGE
     6290   01 02301    EC90129A              RD,R9    *GP10             EXECUTIBLE INSTR-- RD C REG 0-23
     6291   01 02302    ED801299     T1520B   WD,R8    *GP09             INITIALIZE ERASE PATTERN (ALL 1'S)
     6292   01 02303    ED901299              WD,R9    *GP09             WRITE C00-47 TO FAM 48-95
     6293   01 02304    4B803552              AND,R8   =X'7E000000'      LOAD FAM BITS 48-95 TO C REG 0-
     6294   01 02305    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6295   01 02306    ED801299              WD,R8    *GP09              47 (LOWER FAM)
     6296   01 02307    32800009 A            LW,R8    R9                EXPECTED PATTERN
     6297   01 02308    4B80350F              AND,R8   =X'FFFFFF'        MASK OFF CONTROL BITS
     6298   01 02309    E700000F A            EXU      *R15              EXECUTE READ DIRECT, C TO GEN REG
     6299   01 0230A    4B90350F              AND,R9   =X'FFFFFF'        MASK OFF ADDRESS OR PARITY BITS
     6300   01 0230B    68001AC6              B        CREQUAL           C(R8) & C(R9), BITS 8-31 EQUAL
     6301                            *
     6302                            *                                  C REG TO FAM TRANSFER & RETURN,
     6303                            *                                   C24-47 & FAM 72-95, ALL ZEROS
     6304   01 0230C    153001C5 A   T1530    GEN,16,10,6    X'1530',7,T1540-%
     6305   01 0230D    32803551              LW,R8    =X'80FFFFFF'      INITIALLY WRITE 1'S PATTERN
     6306   01 0230E    32903515              LW,R9    =X'80000000'      ALL ZEROS FOR FAM 48-95
     6307   01 0230F    6AF02302              BAL,R15  T1520B            TO SUBROUTINE, ABOVE
     6308   01 02310    EC90129B              RD,R9    *GP11             EXECUTIBLE INSTR-- RD C REG 24-47
     6309                            *
     6310                            *                                  C REG TO FAM SUBCHANNEL TRANSFER,
     6311                            *                                   C00-23 TO FAM 48-71,ALL ONES TEST
     6312   01 02311    154001C5 A   T1540    GEN,16,10,6    X'1540',7,T1550-%
     6313   01 02312    32803515              LW,R8    =X'80000000'      INITIALLY WRITE ZEROS PATTERN
     6314   01 02313    32903551              LW,R9    =X'80FFFFFF'      ALL ONES FOR FAM 48-95
     6315   01 02314    6AF02302              BAL,R15  T1520B            TO SUBROUTINE
     6316   01 02315    EC90129A              RD,R9    *GP10             EXECUTIBLE INSTR-- RD C REG 0-23
     6317                            *
     6318                            *                                  C REG TO FAM SUBCHANNEL TRANSFER,
     6319                            *                                   C24-47 & FAM 48-71,ALL ONES TEST
     6320   01 02316    155001C5 A   T1550    GEN,16,10,6    X'1550',7,T1580-%
     6321   01 02317    32803515              LW,R8    =X'80000000'      INITIALLY WRITE ALL ZEROS
     6322   01 02318    32903551              LW,R9    =X'80FFFFFF'      ALL ONES FOR FAM 48-95
     6323   01 02319    6AF02302              BAL,R15  T1520B            TO SUBROUTINE
     6324   01 0231A    EC90129B              RD,R9    *GP11             EXECUTIBLE INSTR-- RD C REG 24-47
     6325                            *
     6326                            *                                  C REG TO FAM SUBCHANNEL TRANSFER,
     6327                            *                                   C00-23 TO FAM 0-23,ALL ZEROS TEST
     6328   01 0231B    158001C5 A   T1580    GEN,16,10,6    X'1580',7,T1590-%
     6329   01 0231C    32803553              LW,R8    =X'82FFFFFF'      INITIALLY WR ONES FOR FAM 0-47
     6330   01 0231D    32903554              LW,R9    =X'82000000'      ALL ZEROS FOR FAM 0-47
     6331   01 0231E    6AF02302              BAL,R15  T1520B            TO SUBROUTINE
     6332   01 0231F    EC90129A              RD,R9    *GP10             EXECUTIBLE INSTR--RD C REG 0-23
     6333                            *
     6334                            *                                  C REG TO FAM SUBROUTINE TRANSFER,
     6335                            *                                   C24-47 TO FAM 24-47, ALL ZEROS
     6336   01 02320    159001C5 A   T1590    GEN,16,10,6    X'1590',7,T1600-%
     6337   01 02321    32803553              LW,R8    =X'82FFFFFF'      INITIALLY WR 1'S FOR FAM 0-47
     6338   01 02322    32903554              LW,R9    =X'82000000'      ALL ZEROS FOR FAM 0-47
     6339   01 02323    6AF02302              BAL,R15  T1520B            TO SUBROUTINE
     6340   01 02324    EC90129B              RD,R9    *GP11             EXECUTIBLE INSTR-- RD C REG 24-47
     6341                            *
     6342                            *                                  C REG TO FAM SUBROUTINE TRANSFER,
     6343                            *                                   C00-23 TO FAM 0-23,ALL ONES TESTS
     6344   01 02325    160001C5 A   T1600    GEN,16,10,6    X'1600',7,T1610-%
     6345   01 02326    32803554              LW,R8    =X'82000000'      INITIALLY WR 0'S TO FAM 0-47
     6346   01 02327    32903553              LW,R9    =X'82FFFFFF'      ALL ONES FOR FAM 0-47
     6347   01 02328    6AF02302              BAL,R15  T1520B            TO SUBROUTINE
     6348   01 02329    EC90129A              RD,R9    *GP10             EXECUTIBLE INSTR-- RD C REG 0-23
     6349                            *
     6350                            *                                  C REG TO FAM SUBROUTINE TRANSFER,
     6351                            *                                   C24-47 TO FAM 24-47,ALL ONES TESTS
     6352   01 0232A    161001C5 A   T1610    GEN,16,10,6    X'1610',7,T1620-%
     6353   01 0232B    32803554              LW,R8    =X'82000000'      INITIALLY WR 1'S TO FAM 0-47
     6354   01 0232C    32903553              LW,R9    =X'82FFFFFF'      ALL ZEROS FOR FAM 0-47
     6355   01 0232D    6AF02302              BAL,R15  T1520B            TO SUBROUTINE
     6356   01 0232E    EC90129B              RD,R9    *GP11
     6357                            *
     6358                            *                                  FAM SUBCHANNEL PARITY,DATA=X'010001'
     6359   01 0232F    162001CB A   T1620    GEN,16,10,6    X'1620',7,T1630-%
     6360   01 02330    32803555              LW,R8    =X'82010001'      WRITE FAM DATA PATTERN
     6361   01 02331    32903556              LW,R9    =X'48000000'      EXPECT PARITY PATTERN,
     6362         01 02332           T1620B   EQU      %                FAM SUBCHANNEL PARITY CHECK
     6363   01 02332    ED801299              WD,R8    *GP09             WRITE UPPER FAM
     6364   01 02333    4B803552              AND,R8   =X'7E000000'
     6365   01 02334    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6366   01 02335    ED801299              WD,R8    *GP09             READ FAM SUBCHANNEL 0-47
     6367   01 02336    35900008 A            STW,R9   R8
     6368   01 02337    EC90129B              RD,R9    *GP11             PARITY: O-5, DATA: 24-47
     6369   01 02338    4B903557              AND,R9   =X'FC000000'      MASK OUT DATA
     6370   01 02339    68001AC6              B        CREQUAL           COMPARE R8 & R9. PARITY IN 0-5
     6371                            *
     6372                            *                                  FAM SUBCHANNEL PARITY,DATA=X'000100'
     6373   01 0233A    163001C4 A   T1630    GEN,16,10,6    X'1630',7,T1638-%
     6374   01 0233B    32803558              LW,R8    =X'82000100'      WRITE FAM CTRL & PARITY PAT.
     6375   01 0233C    32903559              LW,R9    =X'B4000000'      EXPECTED PARITY OUTPUT
     6376   01 0233D    68002332              B        T1620B
     6377                            *
     6378                            *                                  FAM SUBCHANNEL PARITY,DATA=0
     6379   01 0233E    163801C4 A   T1638    GEN,16,10,6    X'1638',7,T1640-%
     6380   01 0233F    32803554              LW,R8    =X'82000000'      WR FAM CONTROL & PARITY PATTERN
     6381   01 02340    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6382   01 02341    68002332              B        T1620B            TO SUBROUTINE
     6383                            *
     6384                            *                                  FAM SUBCHANNEL PARITY,DATA=X'030303'
     6385   01 02342    164001C4 A   T1640    GEN,16,10,6    X'1640',7,T1644-%
     6386   01 02343    3280355A              LW,R8    =X'82303030'      WRITE FAM & PARIT PAT.
     6387   01 02344    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6388   01 02345    68002332              B        T1620B            TO SUBROUTINE
     6389                            *
     6390                            *                                  FAM SUBCHANNEL PARITY,DATA=X'181818'
     6391   01 02346    164401C4 A   T1644    GEN,16,10,6    X'1644',7,T1648-%
     6392   01 02347    3280355B              LW,R8    =X'82181818'      WR FAM CONTROL & PARITY PARITY
     6393   01 02348    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6394   01 02349    68002332              B        T1620B            TO SUBROUTINE
     6395                            *
     6396                            *                                  FAM SUBCHANNEL PARITY,DATA=X'282828'
     6397   01 0234A    164801C4 A   T1648    GEN,16,10,6    X'1648',7,T1650-%
     6398   01 0234B    3280355C              LW,R8    =X'82282828'      WR FAM CONTROL & PARITY PATTERN
     6399   01 0234C    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6400   01 0234D    68002332              B        T1620B            TO SUBROUTINE
     6401                            *
     6402                            *                                  FAM SUBCHANNEL PARITY,DATA=X'050505'
     6403   01 0234E    165001C4 A   T1650    GEN,16,10,6    X'1650',7,T1654-%
     6404   01 0234F    3280355D              LW,R8    =X'82050505'      WRITE FAM & PARITY PAT.
     6405   01 02350    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6406   01 02351    68002332              B        T1620B            TO SUBROUTINE
     6407                            *
     6408                            *                                  FAM SUBCHANNEL PARITY,DATA=030303'
     6409   01 02352    165401C4 A   T1654    GEN,16,10,6    X'1654',7,T1658-%
     6410   01 02353    3280355E              LW,R8    =X'82030303'      WR FAM CONTROL & PARITY PATTERN
     6411   01 02354    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6412   01 02355    68002332              B        T1620B            TO SUBROUTINE
     6413                            *
     6414                            *                                  FAM SUBCHANNEL PARITY,DATA=X'060606'
     6415   01 02356    165801C4 A   T1658    GEN,16,10,6    X'1658',7,T1660-%
     6416   01 02357    3280355F              LW,R8    =X'82060606'      WR FAM CONTROL & PARITY PATTERN
     6417   01 02358    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6418   01 02359    68002332              B        T1620B            TO SUBROUTINE
     6419                            *
     6420                            *                                  FAM SUBCHANNEL PARITY,DATA=X'C0C0C0'
     6421   01 0235A    166001C4 A   T1660    GEN,16,10,6    X'1660',7,T1664-%
     6422   01 0235B    32803560              LW,R8    =X'82C0C0C0'      WRITE FAM & PARITY PATTTERN
     6423   01 0235C    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6424   01 0235D    68002332              B        T1620B            TO SUBROUTINE
     6425                            *
     6426                            *                                  FAM SUBCHANNEL PARITY,DATA=X'404040'
     6427   01 0235E    166401C4 A   T1664    GEN,16,10,6    X'1664',7,T1668-%
     6428   01 0235F    32803561              LW,R8    =X'82404040'      WR FAM CONTROL & PARITY PATTERN
     6429   01 02360    22900000 A            LI,R9    0                 EXPECTED DATA
     6430   01 02361    68002332              B        T1620B            TO SUBROUTINE
     6431                            *
     6432                            *                                   FAM SUBCHANNEL PARITY,DATA=X'808080'
     6433   01 02362    166801C4 A   T1668    GEN,16,10,6    X'1668',7,T1670-%
     6434   01 02363    32803562              LW,R8    =X'82808080'      WR FAM CONTROL & PARITY PATTERN
     6435   01 02364    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6436   01 02365    68002332              B        T1620B            TO SUBROUTINE
     6437                            *
     6438                            *                                  FAM SUBCHANNEL PARITY,DATA=X'080808'
     6439   01 02366    167001C4 A   T1670    GEN,16,10,6    X'1670',7,T1674-%
     6440   01 02367    32803563              LW,R8    =X'82080808'      WRIT FAM & PARITY PATTERN
     6441   01 02368    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6442   01 02369    68002332              B        T1620B            TO SUBROUTINE
     6443                            *
     6444                            *                                  FAM SUBCHANNEL PARITY,DATA=X'101010'
     6445   01 0236A    167401C4 A   T1674    GEN,16,10,6    X'1674',7,T1678-%
     6446   01 0236B    32803564              LW,R8    =X'82101010'      WR FAM CONTROL & PARITY PATTERN
     6447   01 0236C    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6448   01 0236D    68002332              B        T1620B            TO SUBROUTINE
     6449                            *
     6450                            *                                  FAM SUBCHANNEL PARITY,DATA=X'202020'
     6451   01 0236E    167801C4 A   T1678    GEN,16,10,6    X'1678',7,T1680-%
     6452   01 0236F    32803565              LW,R8    =X'82202020'      WR FAM CONTROL & PARITY PATTERN
     6453   01 02370    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6454   01 02371    68002332              B        T1620B            TO SUBROUTINE
     6455                            *
     6456                            *                                  FAM SUBCHANNEL PARITY,DATA=X'383838'
     6457   01 02372    168001C4 A   T1680    GEN,16,10,6    X'1680',7,T1684-%
     6458   01 02373    32803566              LW,R8    =X'82383838'      WRITE FAM & PARITY PATTERN
     6459   01 02374    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6460   01 02375    68002332              B        T1620B            TO SUBROUTINE
     6461                            *
     6462                            *                                  FAM SUBCHANNEL PARITY,DAT=X'010101'
     6463   01 02376    168401C4 A   T1684    GEN,16,10,6    X'1684',7,T1688-%
     6464   01 02377    32803567              LW,R8    =X'82010101'      WR FAM CONTROL & PARITY PATTERN
     6465   01 02378    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6466   01 02379    68002332              B        T1620B            TO SUBROUTINE
     6467                            *
     6468                            *                                  FAM SUBCHANNEL PARITY,DATA=X'020202'
     6469   01 0237A    168801C4 A   T1688    GEN,16,10,6    X'1688',7,T1690-%
     6470   01 0237B    32803568              LW,R8    =X'82020202'      WR FAM CONTROL & PARITY PATTERN
     6471   01 0237C    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6472   01 0237D    68002332              B        T1620B            TO SUBROUTINE
     6473                            *
     6474                            *                                  FAM SUBCHANNEL PARITY,DATA=X'040404'
     6475   01 0237E    169001C4 A   T1690    GEN,16,10,6    X'1690',7,T1694-%
     6476   01 0237F    32803569              LW,R8    =X'82040404'      WRITE FAM & PARITY PATTERN
     6477   01 02380    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6478   01 02381    68002332              B        T1620B            TO SUBROUTINE
     6479                            *
     6480                            *                                  FAM SUBCHANNEL PARITY,DATA=X'070707'
     6481   01 02382    169401C4 A   T1694    GEN,16,10,6    X'1694',7,T1698-%
     6482   01 02383    3280356A              LW,R8    =X'82070707'      WR FAM CONTROL & PARITY PATTERN
     6483   01 02384    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6484   01 02385    68002332              B        T1620B            TO SUBROUTINE
     6485                            *
     6486                            *                                  FAM SUBCHANNEL PARITY,DATA=X'3F3F3F'
     6487   01 02386    169801C4 A   T1698    GEN,16,10,6    X'1698',7,T1700-%
     6488   01 02387    3280356B              LW,R8    =X'823F3F3F'      WR FAM CONTROL & PARITY PATTERN
     6489   01 02388    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6490   01 02389    68002332              B        T1620B            TO SUBROUTINE
     6491                            *
     6492                            *                                  FAM SUBCHANNEL PARITY,DATA=X'878787'
     6493   01 0238A    170001C4 A   T1700    GEN,16,10,6    X'1700',7,T1704-%
     6494   01 0238B    3280356C              LW,R8    =X'82878787'      WRITE FAM & PARITY PATTERNS
     6495   01 0238C    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6496   01 0238D    68002332              B        T1620B            TO SUBROUTINE
     6497                            *
     6498                            *                                  FAM SUBCHANNEL PARITY,DATA=X'787878'
     6499   01 0238E    170401C4 A   T1704    GEN,16,10,6    X'1704',7,T1708-%
     6500   01 0238F    3280356D              LW,R8    =X'82787878'      WR FAM CONTROL & PARITY PATTERN
     6501   01 02390    32903557              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT
     6502   01 02391    68002332              B        T1620B            TO SUBROUTINE
     6503                            *
     6504                            *                                  FAM SUBCHANNEL PARITY,DATA=X'ADADAD'
     6505   01 02392    170801C4 A   T1708    GEN,16,10,6    X'1708',7,T1710-%
     6506   01 02393    3280356E              LW,R8    =X'82ADADAD'      WR FAM CONTROL & PARITY PATTERN
     6507   01 02394    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6508   01 02395    68002332              B        T1620B            TO SUBROUTINE
     6509                            *
     6510                            *                                  FAM SUBCHANNEL PARITY,DATA=X'D6D6D6'
     6511   01 02396    171001C4 A   T1710    GEN,16,10,6    X'1710',7,T1720-%
     6512   01 02397    3280356F              LW,R8    =X'82D6D6D6'      WRITE FAM & PARITY PATTERN
     6513   01 02398    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6514   01 02399    68002332              B        T1620B            TO SUBROUTINE
     6515                            *
     6516                            *                                  FAM SUBCHANNEL PARITY,DATA=X'DADADA'
     6517   01 0239A    172001C4 A   T1720    GEN,16,10,6    X'1720',7,T1730-%
     6518   01 0239B    32803570              LW,R8    =X'82DADADA'      WR FAM CONTROL & PARITY PATTERN
     6519   01 0239C    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6520   01 0239D    68002332              B        T1620B            TO SUBROUTINE
     6521                            *
     6522                            *                                  FAM SUBCHANNEL PARITY,DATA=X'929292'
     6523   01 0239E    173001C4 A   T1730    GEN,16,10,6    X'1730',7,T1740-%
     6524   01 0239F    32803571              LW,R8    =X'82929292'      WR FAM CONTROL & PARITY PATTERN
     6525   01 023A0    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT
     6526   01 023A1    68002332              B        T1620B            TO SUBROUTINE
     6527                            *
     6528                            *                                  WRITE 0'S TO SUBCHANNEL FAM 1,
     6529                            *                                   BITS 0-47 (UPPER)
     6530   01 023A2    174001CE A   T1740    GEN,16,10,6    X'1740',7,T1750-%
     6531   01 023A3    32803572              LW,R8    =X'86000000'      WRITE FAM UPPER CONTROL
     6532         01 023A4           T1740B   EQU      %
     6533   01 023A4    33101346              MTW,1    PNTDBL            SET DOUBLE PRINT INDICATOR (ERROR)
     6534   01 023A5    ED801299              WD,R8    *GP09             WRITE SUBCHANNEL (FAM)
     6535   01 023A6    4B803573              AND,R8   =X'7EFFFFFF'      MASK TO GENERATE CONTROL WORD
     6536   01 023A7    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     6537   01 023A8    ED801299              WD,R8    *GP09             LOAD C REG FROM SUBCHANNEL
     6538   01 023A9    EC90129A              RD,R9    *GP10             READ C REG 0-23 TO R9
     6539   01 023AA    4B90350F              AND,R9   =X'FFFFFF'        MASK OFF ADDRESS FIELD
     6540   01 023AB    ECB0129B              RD,R11   *GP11             READ C REG 24-47 TO R11
     6541   01 023AC    4BB0350F              AND,R11  =X'FFFFFF'        MASK OFF SUBCHANNEL PARITIES
     6542   01 023AD    4B80350F              AND,R8   =X'FFFFFF'        MASK OFF CONTROL & ADDRESS FIELD
     6543   01 023AE    3580000A A            STW,R8   R10                OF COMPARE IMAGE
     6544   01 023AF    68001A1D              B        CDREQUAL          C(R8)=C(R9) & C(R10)= C(R11)
     6545                            *
     6546                            *                                  WRITE 0'S TO SUBCHANNEL FAM 1,
     6547                            *                                   BITS 48-95 (LOWER)
     6548   01 023B0    175001C3 A   T1750    GEN,16,10,6    X'1750',7,T1760-%
     6549   01 023B1    32803574              LW,R8    =X'84000000'      WRITE FAM LOWER CONTROL
     6550   01 023B2    680023A4              B        T1740B
     6551                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 2,
     6552                            *                                   BITS 0-47 (UPPER)
     6553   01 023B3    176001C3 A   T1760    GEN,16,10,6    X'1760',7,T1770-%
     6554   01 023B4    32803575              LW,R8    =X'8A000000'      UPPER FAM CONTROL
     6555   01 023B5    680023A4              B        T1740B            TO SUBROUTINE
     6556                            *
     6557                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 2,
     6558                            *                                   BITS 48-95 (LOWER)
     6559   01 023B6    177001C3 A   T1770    GEN,16,10,6    X'1770',7,T1780-%
     6560   01 023B7    32803576              LW,R8    =X'88000000'      LOWER FAM CONTROL
     6561   01 023B8    680023A4              B        T1740B            TO SUBROUTINE
     6562                            *
     6563                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 3,
     6564                            *                                   BITS 0-47
     6565   01 023B9    178001C3 A   T1780    GEN,16,10,6    X'1780',7,T1790-%
     6566   01 023BA    32803577              LW,R8    =X'8E000000'      UPPER FAM CONTROL
     6567   01 023BB    680023A4              B        T1740B            TO SUBROUTINE
     6568                            *
     6569                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 3,
     6570                            *                                   BITS 48-95
     6571   01 023BC    179001C3 A   T1790    GEN,16,10,6    X'1790',7,T1800-%
     6572   01 023BD    32803578              LW,R8    =X'8C000000'      LOWER FAM CONTROL
     6573   01 023BE    680023A4              B        T1740B            TO SUBROUTINE
     6574                            *
     6575                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 4,
     6576                            *                                   BITS 0-47
     6577   01 023BF    180001C3 A   T1800    GEN,16,10,6    X'1800',7,T1810-%
     6578   01 023C0    32803579              LW,R8    =X'92000000'      UPPER FAM CONTROL
     6579   01 023C1    680023A4              B        T1740B            TO SUBROUTINE
     6580                            *
     6581                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 4,
     6582                            *                                   BITS 48-95
     6583   01 023C2    181001C3 A   T1810    GEN,16,10,6    X'1810',7,T1820-%
     6584   01 023C3    3280357A              LW,R8    =X'90000000'      LOWER FAM CONTROL
     6585   01 023C4    680023A4              B        T1740B            TO SUBROUTINE
     6586                            *
     6587                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 5,
     6588                            *                                   BITS 0-47
     6589   01 023C5    182001C3 A   T1820    GEN,16,10,6    X'1820',7,T1830-%
     6590   01 023C6    3280357B              LW,R8    =X'96000000'      UPPER  FAM CONTROL
     6591   01 023C7    680023A4              B        T1740B
     6592                            *
     6593                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 5,
     6594                            *                                   BITS 48-95
     6595   01 023C8    183001C3 A   T1830    GEN,16,10,6    X'1830',7,T1840-%
     6596   01 023C9    3280357C              LW,R8    =X'94000000'      LOWER FAM CONTROL
     6597   01 023CA    680023A4              B        T1740B            TO SUBROUTINE
     6598                            *
     6599                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 6,
     6600                            *                                   BITS 0-47
     6601   01 023CB    184001C3 A   T1840    GEN,16,10,6    X'1840',7,T1850-%
     6602   01 023CC    3280357D              LW,R8    =X'9A000000'      UPPER FAM CONTROL
     6603   01 023CD    680023A4              B        T1740B            TO SUBROUTINE
     6604                            *
     6605                            *                                  WRITE ZEROS TO SUBROUTINE FAM 6,
     6606                            *                                   BITS 48-95
     6607   01 023CE    185001C3 A   T1850    GEN,16,10,6    X'1850',7,T1860-%
     6608   01 023CF    3280357E              LW,R8    =X'98000000'      LOWER FAM CONTROL
     6609   01 023D0    680023A4              B        T1740B            TO SUBROUTINE
     6610                            *
     6611                            *                                  WRITE ZEROS TO SUBROUTINE FAM 7,
     6612                            *                                   BITS 0-47
     6613   01 023D1    186001C3 A   T1860    GEN,16,10,6    X'1860',7,T1870-%
     6614   01 023D2    3280357F              LW,R8    =X'9E000000'      UPPER FAM CONTROL
     6615   01 023D3    680023A4              B        T1740B            TO SUBROUTINE
     6616                            *
     6617                            *                                  WRITE ZEROS TO SUBROUTINE FAM 7,
     6618                            *                                   BITS 48-95
     6619   01 023D4    187001C3 A   T1870    GEN,16,10,6    X'1870',7,T1880-%
     6620   01 023D5    32803580              LW,R8    =X'9C000000'      LOWER FAM CONTROL
     6621   01 023D6    680023A4              B        T1740B
     6622                            *
     6623                            *                                  WRITE ZEROS TO SUBROUTINE FAM 8,
     6624                            *                                   BITS 0-47
     6625   01 023D7    18802143 A   T1880    GEN,16,10,6    X'1880',X'85',T1890-%
     6626   01 023D8    32803581              LW,R8    =X'A2000000'      UPPER FAM CONTROL
     6627   01 023D9    680023A4              B        T1740B            TO SUBROUTINE
     6628                            *
     6629                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 8,
     6630                            *                                   BITS 48-95
     6631   01 023DA    18902143 A   T1890    GEN,16,10,6    X'1890',X'85',T1900-%
     6632   01 023DB    32803543              LW,R8    =X'A0000000'      LOWER FAM CONTROL
     6633   01 023DC    680023A4              B        T1740B            TO SUBROUTINE
     6634                            *
     6635                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 9,
     6636                            *                                   BITS 0-47
     6637   01 023DD    19002143 A   T1900    GEN,16,10,6    X'1900',X'85',T1910-%
     6638   01 023DE    32803582              LW,R8    =X'A6000000'      UPPER FAM CONTROL
     6639   01 023DF    680023A4              B        T1740B            TO SUBROUTINE
     6640                            *
     6641                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 9,
     6642                            *                                   BITS 48-95
     6643   01 023E0    19102143 A   T1910    GEN,16,10,6    X'1910',X'85',T1920-%
     6644   01 023E1    32803545              LW,R8    =X'A4000000'      LOWER FAM CONTROL
     6645   01 023E2    680023A4              B        T1740B            TO SUBROUTINE
     6646                            *
     6647                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 10,
     6648                            *                                   BITS 0-47
     6649   01 023E3    19202143 A   T1920    GEN,16,10,6    X'1920',X'85',T1930-%
     6650   01 023E4    32803583              LW,R8    =X'AA000000'      UPPER FAM CONTROL
     6651   01 023E5    680023A4              B        T1740B            TO SUBROUTINE
     6652                            *
     6653                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 10,
     6654                            *                                   BITS 48-95
     6655   01 023E6    19302143 A   T1930    GEN,16,10,6    X'1930',X'85',T1940-%
     6656   01 023E7    32803584              LW,R8    =X'A8000000'      LOWER FAM CONTROL
     6657   01 023E8    680023A4              B        T1740B            TO SUBROUTINE
     6658                            *
     6659                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 11,
     6660                            *                                   BITS 0-47
     6661   01 023E9    19402143 A   T1940    GEN,16,10,6    X'1940',X'85',T1950-%
     6662   01 023EA    32803585              LW,R8    =X'AE000000'      UPPER FAM CONTROL
     6663   01 023EB    680023A4              B        T1740B            TO SUBROUTINE
     6664                            *
     6665                            *                                  WRITE ZEROS TO SUBROUTINE FAM 11,
     6666                            *                                   BITS 48-95
     6667   01 023EC    19502143 A   T1950    GEN,16,10,6    X'1950',X'85',T1960-%
     6668   01 023ED    32803586              LW,R8    =X'AC000000'      LOWER FAM CONTROL
     6669   01 023EE    680023A4              B        T1740B            TO SUBROUTINE
     6670                            *
     6671                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 12,
     6672                            *                                   BITS 0-47
     6673   01 023EF    19602143 A   T1960    GEN,16,10,6    X'1960',X'85',T1970-%
     6674   01 023F0    32803587              LW,R8    =X'B2000000'      UPPER FAM CONTROL
     6675   01 023F1    680023A4              B        T1740B            TO SUBROUTINE
     6676                            *
     6677                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 12,
     6678                            *                                   BITS 48-95
     6679   01 023F2    19702143 A   T1970    GEN,16,10,6    X'1970',X'85',T1980-%
     6680   01 023F3    32803588              LW,R8    =X'B0000000'      LOWER FAM CONTROL
     6681   01 023F4    680023A4              B        T1740B            TO SUBROUTINE
     6682                            *
     6683                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 13,
     6684                            *                                   BITS 0-47
     6685   01 023F5    19802143 A   T1980    GEN,16,10,6    X'1980',X'85',T1990-%
     6686   01 023F6    32803589              LW,R8    =X'B6000000'      UPPER FAM CONTROL
     6687   01 023F7    680023A4              B        T1740B            TO SUBROUTINE
     6688                            *
     6689                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 13,
     6690                            *                                   BITS 48-95
     6691   01 023F8    19902143 A   T1990    GEN,16,10,6    X'1990',X'85',T2000-%
     6692   01 023F9    32803559              LW,R8    =X'B4000000'      LOWER FAM CONTROL
     6693   01 023FA    680023A4              B        T1740B            TO SUBROUTINE
     6694                            *
     6695                            *                                  WRITE ZEROS TO SUBROUTINE FAM 14,
     6696   01 023FB    20002143 A   T2000    GEN,16,10,6    X'2000',X'85',T2010-%
     6697   01 023FC    3280358A              LW,R8    =X'BA000000'      UPPER FAM CONTROL
     6698   01 023FD    680023A4              B        T1740B            TO SUBROUTINE
     6699                            *
     6700                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 14,
     6701                            *                                   BITS 48-95
     6702   01 023FE    20102143 A   T2010    GEN,16,10,6    X'2010',X'85',T2020-%
     6703   01 023FF    3280358B              LW,R8    =X'B8000000'      LOWER FAM CONTROL
     6704   01 02400    680023A4              B        T1740B            TO SUBROUTINE
     6705                            *
     6706                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 15,
     6707                            *                                   BITS 0-47
     6708   01 02401    20202143 A   T2020    GEN,16,10,6    X'2020',X'85',T2030-%
     6709   01 02402    3280358C              LW,R8    =X'BE000000'      UPPER FAM CONTROL
     6710   01 02403    680023A4              B        T1740B            TO SUBROUTINE
     6711                            *
     6712                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 15,
     6713                            *                                   BITS 48-95
     6714   01 02404    20302143 A   T2030    GEN,16,10,6    X'2030',X'85',T2200-%
     6715   01 02405    3280358D              LW,R8    =X'BC000000'      LOWER FAM CONTROL
     6716   01 02406    680023A4              B        T1740B            TO SUBROUTINE
     6717                            *
     6718                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 0
     6719   01 02407    220001E8 A   T2200    GEN,16,10,6    X'2200',7,T2210-%
     6720   01 02408    328034FC              LW,R8    =X'2000000'       SUBCHANNEL 0, UPPER FAM
     6721         01 02409           T2200B   EQU      %                 TO SUBROUTINE
     6722   01 02409    226FFFF0 A            LI,R6    -16               ALWAYS USE 16 SUBCHANNELS
     6723   01 0240A    35600007 A   T2200D   STW,R6   R7                SAVE INDEX
     6724   01 0240B    12A012F0              LD,R10   FAMPAT1           ZEROS PATTERN
     6725   01 0240C    EDA01299              WD,R10   *GP09             WRITE ZEROS TO LOWER FAM
     6726   01 0240D    EDB01299              WD,R11   *GP09             WRITE ZEROS TO UPPER FAM
     6727   01 0240E    10A012F4              AD,R10   FAMPAT3           ONE BIT TO ADDRESS FIELDS
     6728   01 0240F    6570240C              BIR,R7   T2200D+2          WRITE IN ALL AVAILABLE SUBCHANNELS
     6729   01 02410    32903515              LW,R9    =X'80000000'
     6730   01 02411    49900008 A            OR,R9    R8
     6731   01 02412    ED901299              WD,R9    *GP09             WRITE TO TEST LOCATION,UPPER OR
     6732   01 02413    32700006 A            LW,R7    R6                 LOWER.  RESTORE FAM LOOP COUNT.
     6733   01 02414    32200008 A            LW,R2    R8
     6734   01 02415    3230358E              LW,R3    =X'3C000000'      ADDRESS COMPARE MASK
     6735   01 02416    22400000 A            LI,R4    0                 NO
     6736   01 02417    3250350F              LW,R5    =X'FFFFFF'        DATA COMPARE MASK
     6737   01 02418    22A00000 A            LI,R10   0
     6738   01 02419    32C034FC              LW,R12   =X'2000000'
     6739   01 0241A    4520000A A   T2200F   CS,R2    R10               COMPARE ADDRESS FIELD ONLY
     6740   01 0241B    68302425              BCR,3    T2200J
     6741   01 0241C    ED001297              WD,0     *SYNC             ITERATIVE SYNC INSTRUCTION
     6742   01 0241D    EDA01299              WD,R10   *GP09             LOAD FAM SUBCHANNEL TO C,BITS 0-23
     6743   01 0241E    EDC01299              WD,R12   *GP09              & BITS 24-47
     6744   01 0241F    EC90129A              RD,R9    *GP10             READ C REG, 0-23
     6745   01 02420    ECB0129B              RD,R11   *GP11             READ C REG, 24-47
     6746   01 02421    45400009 A            CS,R4    R9                BITS 0-7 = ADR, BITS 8-31 = 0
     6747   01 02422    69302432              BCS,3    T2210H
     6748   01 02423    4540000B A            CS,R4    R11               BITS 0-5 = PARITY, BITS 8-31 = 0
     6749   01 02424    69302432              BCS,3    T2210H
     6750   01 02425    30A034F8     T2200J   AW,R10   =X'4000000'
     6751   01 02426    30C034F8              AW,R12   =X'4000000'
     6752   01 02427    6570241A              BIR,R7   T2200F
     6753   01 02428    32900008 A            LW,R9    R8                FAM READ CONTROL BITS
     6754   01 02429    ED901299              WD,R9    *GP09             READ SUBCHANNEL FAM TO C REG
     6755   01 0242A    EC90129A              RD,R9    *GP10             READ C REG
     6756   01 0242B    72200008 A            LB,R2    R8                ALIGN  ADR FIELD TO READ FORMAT
     6757   01 0242C    2520007E A            SLS,R2   -2
     6758   01 0242D    75200008 A            STB,R2   R8
     6759   01 0242E    68001AC6              B        CREQUAL           SHOULD BE EQUAL
     6760                            *
     6761                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 0
     6762   01 0242F    221001D3 A   T2210    GEN,16,10,6    X'2210',7,T2220-%
     6763   01 02430    32800000 A            LW,R8    0                 SUBCHANNEL 0, LOWER FAM
     6764   01 02431    68002409              B        T2200B            TO SUBROUTINE
     6765   01 02432    331012ED     T2210H   MTW,1    FAMBAD            SET FAM FAULT INDICATOR
     6766   01 02433    33101346              MTW,1    PNTDBL
     6767   01 02434    52200008 A            LH,R2    R8
     6768   01 02435    2520007E A            SLS,R2   -2
     6769   01 02436    4B2034FB              AND,R2   =X'1F00'
     6770   01 02437    352012EA              STW,R2   FAMADR            SAVE CURRENT TEST ADDRESS
     6771   01 02438    3280000A A            LW,R8    R10               ADDRESS & DATA
     6772   01 02439    32200008 A            LW,R2    R8                TEST ADDRESS
     6773   01 0243A    7220000B A            LB,R2    R11               MAKE PARITY FIELDS EQUAL
     6774   01 0243B    7520000A A            STB,R2   R10
     6775   01 0243C    72200008 A            LB,R2    R8                ALIGN ADDRESS BITS TO FAM READ
     6776   01 0243D    2520007E A            SLS,R2   -2                 FORMAT
     6777   01 0243E    75200008 A            STB,R2   R8
     6778   01 0243F    492012EA              OR,R2    FAMADR
     6779   01 02440    552012EA              STH,R2   FAMADR
     6780   01 02441    68001411              B        BAD               REPORT ERROR
     6781                            *
     6782                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 1
     6783   01 02442    222001C3 A   T2220    GEN,16,10,6    X'2220',7,T2230-%
     6784   01 02443    3280358F              LW,R8    =X'6FFFFFF'       SUBCHANNEL 1, UPPER FAM
     6785   01 02444    68002409              B        T2200B            TO SUBROUTINE
     6786                            *
     6787                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 1
     6788   01 02445    223001C3 A   T2230    GEN,16,10,6    X'2230',7,T2240-%
     6789   01 02446    32803590              LW,R8    =X'4010101'       SUBCHANNEL 1, LOWER FAM
     6790   01 02447    68002409              B        T2200B            TO SUBROUTINE
     6791                            *
     6792                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 2
     6793   01 02448    224001C3 A   T2240    GEN,16,10,6    X'2240',7,T2250-%
     6794   01 02449    32803591              LW,R8    =X'AFEFEFE'       SUBCHANNEL 2, UPPER FAM
     6795   01 0244A    68002409              B        T2200B            TO SUBROUTINE
     6796                            *
     6797                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 2
     6798   01 0244B    225001C3 A   T2250    GEN,16,10,6    X'2250',7,T2260-%
     6799   01 0244C    32803592              LW,R8    =X'8020202'       SUBCHANNEL 2, LOWER FAM
     6800   01 0244D    68002409              B        T2200B            TO SUBROUTINE
     6801                            *
     6802                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 3
     6803   01 0244E    226001C3 A   T2260    GEN,16,10,6    X'2260',7,T2270-%
     6804   01 0244F    32803593              LW,R8    =X'EFDFDFD'       SUBCHANNEL 3, UPPER FAM
     6805   01 02450    68002409              B        T2200B            TO SUBROUTINE
     6806                            *
     6807                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 3
     6808   01 02451    227001C3 A   T2270    GEN,16,10,6    X'2270',7,T2280-%
     6809   01 02452    32803594              LW,R8    =X'C030303'       SUBCHANNEL 3, LOWER FAM
     6810   01 02453    68002409              B        T2200B            TO SUBROUTINE
     6811                            *
     6812                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 4
     6813   01 02454    228001C3 A   T2280    GEN,16,10,6    X'2280',7,T2290-%
     6814   01 02455    32803595              LW,R8    =X'12FCFCFC'      SUBCHANNEL 4, UPPER FAM
     6815   01 02456    68002409              B        T2200B            TO SUBROUTINE
     6816                            *
     6817                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 4
     6818   01 02457    229001C3 A   T2290    GEN,16,10,6    X'2290',7,T2300-%
     6819   01 02458    32803596              LW,R8    =X'10040404'      SUBCHANNEL 4, LOWER FAM
     6820   01 02459    68002409              B        T2200B            TO SUBROUTINE
     6821                            *
     6822                            *
     6823                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 5
     6824   01 0245A    230001C3 A   T2300    GEN,16,10,6    X'2300',7,T2310-%
     6825   01 0245B    32803597              LW,R8    =X'16FBFBFB'      SUBCHANNEL 5, UPPER FAM
     6826   01 0245C    68002409              B        T2200B            TO SUBROUTINE
     6827                            *
     6828                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 5
     6829   01 0245D    231001C3 A   T2310    GEN,16,10,6    X'2310',7,T2320-%
     6830   01 0245E    32803598              LW,R8    =X'14050505'      SUBCHANNEL 5, LOWER FAM
     6831   01 0245F    68002409              B        T2200B            TO SUBROUTINE
     6832                            *
     6833                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 6
     6834   01 02460    232001C3 A   T2320    GEN,16,10,6    X'2320',7,T2330-%
     6835   01 02461    32803599              LW,R8    =X'1AFAFAFA'      SUBCHANNEL 6, UPPER FAM
     6836   01 02462    68002409              B        T2200B            TO SUBROUTINE
     6837                            *
     6838                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 6
     6839   01 02463    233001C3 A   T2330    GEN,16,10,6    X'2330',7,T2340-%
     6840   01 02464    3280359A              LW,R8    =X'18060606'      SUBCHANNEL 6, LOWER FAM
     6841   01 02465    68002409              B        T2200B            TO SUBROUTINE
     6842                            *
     6843                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 7
     6844   01 02466    234001C3 A   T2340    GEN,16,10,6    X'2340',7,T2350-%
     6845   01 02467    3280359B              LW,R8    =X'1EF9F9F9'      SUBCHANNEL 7, UPPER FAM
     6846   01 02468    68002409              B        T2200B            TO SUBROUTINE
     6847                            *
     6848                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 7
     6849   01 02469    235001C3 A   T2350    GEN,16,10,6    X'2350',7,T2360-%
     6850   01 0246A    3280359C              LW,R8    =X'1C070707'      SUBCHANNEL 7, LOWER FAM
     6851   01 0246B    68002409              B        T2200B            TO SUBROUTINE
     6852                            *
     6853                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 8
     6854   01 0246C    23602143 A   T2360    GEN,16,10,6    X'2360',X'85',T2370-%
     6855   01 0246D    3280359D              LW,R8    =X'22F8F8F8'      SUBCHANNEL 8, UPPER FAM
     6856   01 0246E    68002409              B        T2200B            TO SUBROUTINE
     6857                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 8
     6858   01 0246F    23702143 A   T2370    GEN,16,10,6    X'2370',X'85',T2380-%
     6859   01 02470    3280359E              LW,R8    =X'20080808'      SUBCHANNEL 8, LOWER FAM
     6860   01 02471    68002409              B        T2200B            TO SUBROUTINE
     6861                            *
     6862                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 9
     6863   01 02472    23802143 A   T2380    GEN,16,10,6    X'2380',X'85',T2390-%
     6864   01 02473    3280359F              LW,R8    =X'26F7F7F7'      SUBCHANNEL 9, UPPER FAM
     6865   01 02474    68002409              B        T2200B            TO SUBROUTINE
     6866                            *
     6867                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 9
     6868   01 02475    23902143 A   T2390    GEN,16,10,6    X'2390',X'85',T2400-%
     6869   01 02476    328035A0              LW,R8    =X'24090909'      SUBCHANNEL 9, LOWER FAM
     6870   01 02477    68002409              B        T2200B            TO SUBROUTINE
     6871                            *
     6872                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 10
     6873   01 02478    24002143 A   T2400    GEN,16,10,6    X'2400',X'85',T2410-%
     6874   01 02479    328035A1              LW,R8    =X'2AF6F6F6'      SUBCHANNEL 10, UPPER FAM
     6875   01 0247A    68002409              B        T2200B            TO SUBROUTINE
     6876                            *
     6877                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 10
     6878   01 0247B    24102142 A   T2410    GEN,16,10,6    X'2410',X'85',T2420-%
     6879   01 0247C    328035A2              LW,R8    =X'280A0A0A'      SUBCHANNEL 10, FAM LOWER
     6880                            *
     6881                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 11
     6882   01 0247D    24202143 A   T2420    GEN,16,10,6    X'2420',X'85',T2430-%
     6883   01 0247E    328035A3              LW,R8    =X'2EF5F5F5'      SUBCHANNEL 11, UPPER FAM
     6884   01 0247F    68002409              B        T2200B            TO SUBROUTINE
     6885                            *
     6886                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 11
     6887   01 02480    24302143 A   T2430    GEN,16,10,6    X'2430',X'85',T2440-%
     6888   01 02481    328035A4              LW,R8    =X'2C0B0B0B'      SUBCHANNEL 11, LOWER FAM
     6889   01 02482    68002409              B        T2200B            TO SUBROUTINE
     6890                            *
     6891                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 12
     6892   01 02483    24402143 A   T2440    GEN,16,10,6    X'2440',X'85',T2450-%
     6893   01 02484    328035A5              LW,R8    =X'32F4F4F4'      SUBCHANNEL 12, UPPER FAM
     6894   01 02485    68002409              B        T2200B            TO SUBROUTINE
     6895                            *
     6896                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 12
     6897   01 02486    24502143 A   T2450    GEN,16,10,6    X'2450',X'85',T2460-%
     6898   01 02487    328035A6              LW,R8    =X'300C0C0C'      SUBCHANNEL 12, LOWER FAM
     6899   01 02488    68002409              B        T2200B            TO SUBROUTINE
     6900                            *
     6901                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 13
     6902   01 02489    24602143 A   T2460    GEN,16,10,6    X'2460',X'85',T2470-%
     6903   01 0248A    328035A7              LW,R8    =X'36F3F3F3'      SUBCHANNEL 13, UPPER FAM
     6904   01 0248B    68002409              B        T2200B            TO SUBROUTINE
     6905                            *
     6906                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 13
     6907   01 0248C    24702143 A   T2470    GEN,16,10,6    X'2470',X'85',T2480-%
     6908   01 0248D    328035A8              LW,R8    =X'340D0D0D'      SUBCHANNEL 13, LOWER FAM
     6909   01 0248E    68002409              B        T2200B            TO SUBROUTINE
     6910                            *
     6911                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 14
     6912   01 0248F    24802143 A   T2480    GEN,16,10,6    X'2480',X'85',T2490-%
     6913   01 02490    328035A9              LW,R8    =X'3AF2F2F2'      SUBCHANNEL 14, UPPER FAM
     6914   01 02491    68002409              B        T2200B            TO SUBROUTINE
     6915                            *
     6916                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 14
     6917   01 02492    24902143 A   T2490    GEN,16,10,6    X'2490',X'85',T2500-%
     6918   01 02493    328035AA              LW,R8    =X'380E0E0E'      SUBCHANNEL 14, LOWER FAM
     6919   01 02494    68002409              B        T2200B            TO SUBROUTINE
     6920                            *
     6921                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 15
     6922   01 02495    25002143 A   T2500    GEN,16,10,6    X'2500',X'85',T2510-%
     6923   01 02496    328035AB              LW,R8    =X'3EF1F1F1'      SUBCHANNEL 15, UPPER FAM
     6924   01 02497    68002409              B        T2200B            TO SUBROUTINE
     6925                            *
     6926                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 15
     6927   01 02498    25102143 A   T2510    GEN,16,10,6    X'2510',X'85',T2700-%
     6928   01 02499    328035AC              LW,R8    =X'3C0F0F0F'      SUBCHANNEL 15, LOWER FAM
     6929   01 0249A    68002409              B        T2200B            TO SUBROUTINE
     6930                            *
     6931                            *                                  WRITE ALL F'S TO SUBCHANNEL 0,
     6932                            *                                   BITS 0-47 (UPPER)
     6933   01 0249B    270001C3 A   T2700    GEN,16,10,6    X'2700',7,T2710-%
     6934   01 0249C    32803553              LW,R8    =X'82FFFFFF'      UPPER FAM CONTROL
     6935   01 0249D    680023A4              B        T1740B            TO SUBROUTINE
     6936                            *
     6937                            *                                  WRITE ALL F'S TO SUBCHANNEL 0,
     6938                            *                                   BITS 48-95 (LOWER)
     6939   01 0249E    271001C3 A   T2710    GEN,16,10,6    X'2710',7,T2720-%
     6940   01 0249F    32803551              LW,R8    =X'80FFFFFF'      LOWER FAM CONTROL
     6941   01 024A0    680023A4              B        T1740B            TO SUBROUTINE
     6942                            *
     6943                            *                                  WRITE ALL F'S TO SUBCHANNEL 1,
     6944                            *                                   BITS 0-47 (UPPER)
     6945   01 024A1    272001C3 A   T2720    GEN,16,10,6    X'2720',7,T2730-%
     6946   01 024A2    328035AD              LW,R8    =X'86FFFFFF'      WRITE FAM UPPER CONTROL
     6947   01 024A3    680023A4              B        T1740B            TO SUBROUTINE
     6948                            *
     6949                            *                                  WRITE ALL F'S TO SUBCHANNEL 1,
     6950                            *                                   BITS 48-95 (LOWER)
     6951   01 024A4    273001C3 A   T2730    GEN,16,10,6    X'2730',7,T2740-%
     6952   01 024A5    328035AE              LW,R8    =X'84FFFFFF'      WRITE FAM LOWER CONTROL
     6953   01 024A6    680023A4              B        T1740B
     6954                            *                                  WRITE ALL F'S TO SUBCHANNEL 2,
     6955                            *                                   BITS 0-47 (UPPER)
     6956   01 024A7    274001C3 A   T2740    GEN,16,10,6    X'2740',7,T2750-%
     6957   01 024A8    328035AF              LW,R8    =X'8AFFFFFF'      UPPER FAM CONTROL
     6958   01 024A9    680023A4              B        T1740B            TO SUBROUTINE
     6959                            *
     6960                            *                                  WRITE ALL F'S TO SUBCHANNEL 2,
     6961                            *                                   BITS 48-95 (LOWER)
     6962   01 024AA    275001C3 A   T2750    GEN,16,10,6    X'2750',7,T2760-%
     6963   01 024AB    328035B0              LW,R8    =X'88FFFFFF'      LOWER FAM CONTROL
     6964   01 024AC    680023A4              B        T1740B            TO SUBROUTINE
     6965                            *
     6966                            *                                  WRITE ALL F'S TO SUBCHANNEL 3,
     6967                            *                                   BITS 0-47
     6968   01 024AD    276001C3 A   T2760    GEN,16,10,6    X'2760',7,T2770-%
     6969   01 024AE    328035B1              LW,R8    =X'8EFFFFFF'      UPPER FAM CONTROL
     6970   01 024AF    680023A4              B        T1740B            TO SUBROUTINE
     6971                            *
     6972                            *                                  WRITE ALL F'S TO SUBCHANNEL 3,
     6973                            *                                   BITS 48-95
     6974   01 024B0    277001C3 A   T2770    GEN,16,10,6    X'2770',7,T2780-%
     6975   01 024B1    328035B2              LW,R8    =X'8CFFFFFF'      LOWER FAM CONTROL
     6976   01 024B2    680023A4              B        T1740B            TO SUBROUTINE
     6977                            *
     6978                            *                                  WRITE ALL F'S TO SUBCHANNEL 4,
     6979                            *                                   BITS 0-47
     6980   01 024B3    278001C3 A   T2780    GEN,16,10,6    X'2780',7,T2790-%
     6981   01 024B4    328035B3              LW,R8    =X'92FFFFFF'      UPPER FAM CONTROL
     6982   01 024B5    680023A4              B        T1740B            TO SUBROUTINE
     6983                            *
     6984                            *                                  WRITE ALL F'S TO SUBCHANNEL 4,
     6985                            *                                   BITS 48-95
     6986   01 024B6    279001C3 A   T2790    GEN,16,10,6    X'2790',7,T2800-%
     6987   01 024B7    328035B4              LW,R8    =X'90FFFFFF'      LOWER FAM CONTROL
     6988   01 024B8    680023A4              B        T1740B            TO SUBROUTINE
     6989                            *
     6990                            *                                  WRITE ALL F'S TO SUBCHANNEL 5,
     6991                            *                                   BITS 0-47
     6992   01 024B9    280001C3 A   T2800    GEN,16,10,6    X'2800',7,T2810-%
     6993   01 024BA    328035B5              LW,R8    =X'96FFFFFF'      UPPER  FAM CONTROL
     6994   01 024BB    680023A4              B        T1740B
     6995                            *
     6996                            *                                  WRITE ALL F'S TO SUBCHANNEL 5,
     6997                            *                                   BITS 48-95
     6998   01 024BC    281001C3 A   T2810    GEN,16,10,6    X'2810',7,T2820-%
     6999   01 024BD    328035B6              LW,R8    =X'94FFFFFF'      LOWER FAM CONTROL
     7000   01 024BE    680023A4              B        T1740B            TO SUBROUTINE
     7001                            *
     7002                            *                                  WRITE ALL F'S TO SUBCHANNEL 6,
     7003                            *                                   BITS 0-47
     7004   01 024BF    282001C3 A   T2820    GEN,16,10,6    X'2820',7,T2830-%
     7005   01 024C0    328035B7              LW,R8    =X'9AFFFFFF'      UPPER FAM CONTROL
     7006   01 024C1    680023A4              B        T1740B            TO SUBROUTINE
     7007                            *
     7008                            *                                  WRITE ALL F'S TO SUBROUTINE 6,
     7009                            *                                   BITS 48-95
     7010   01 024C2    283001C3 A   T2830    GEN,16,10,6    X'2830',7,T2840-%
     7011   01 024C3    328035B8              LW,R8    =X'98FFFFFF'      LOWER FAM CONTROL
     7012   01 024C4    680023A4              B        T1740B            TO SUBROUTINE
     7013                            *
     7014                            *                                  WRITE ALL F'S TO SUBROUTINE 7,
     7015                            *                                   BITS 0-47
     7016   01 024C5    284001C3 A   T2840    GEN,16,10,6    X'2840',7,T2850-%
     7017   01 024C6    328035B9              LW,R8    =X'9EFFFFFF'      UPPER FAM CONTROL
     7018   01 024C7    680023A4              B        T1740B            TO SUBROUTINE
     7019                            *
     7020                            *                                  WRITE ALL F'S TO SUBROUTINE 7,
     7021                            *                                   BITS 48-95
     7022   01 024C8    285001C3 A   T2850    GEN,16,10,6    X'2850',7,T2860-%
     7023   01 024C9    328035BA              LW,R8    =X'9CFFFFFF'      LOWER FAM CONTROL
     7024   01 024CA    680023A4              B        T1740B
     7025                            *
     7026                            *                                  WRITE ALL F'S TO SUBROUTINE 8,
     7027                            *                                   BITS 0-47
     7028   01 024CB    28602143 A   T2860    GEN,16,10,6    X'2860',X'85',T2870-%
     7029   01 024CC    328035BB              LW,R8    =X'A2FFFFFF'      UPPER FAM CONTROL
     7030   01 024CD    680023A4              B        T1740B            TO SUBROUTINE
     7031                            *
     7032                            *                                  WRITE ALL F'S TO SUBCHANNEL 8,
     7033                            *                                   BITS 48-95
     7034   01 024CE    28702143 A   T2870    GEN,16,10,6    X'2870',X'85',T2880-%
     7035   01 024CF    328035BC              LW,R8    =X'A0FFFFFF'      LOWER FAM CONTROL
     7036   01 024D0    680023A4              B        T1740B            TO SUBROUTINE
     7037                            *
     7038                            *                                  WRITE ALL F'S TO SUBCHANNEL 9,
     7039                            *                                   BITS 0-47
     7040   01 024D1    28802143 A   T2880    GEN,16,10,6    X'2880',X'85',T2890-%
     7041   01 024D2    328035BD              LW,R8    =X'A6FFFFFF'      UPPER FAM CONTROL
     7042   01 024D3    680023A4              B        T1740B            TO SUBROUTINE
     7043                            *
     7044                            *                                  WRITE ALL F'S TO SUBCHANNEL 9,
     7045                            *                                   BITS 48-95
     7046   01 024D4    28902143 A   T2890    GEN,16,10,6    X'2890',X'85',T2900-%
     7047   01 024D5    328035BE              LW,R8    =X'A4FFFFFF'      LOWER FAM CONTROL
     7048   01 024D6    680023A4              B        T1740B            TO SUBROUTINE
     7049                            *
     7050                            *                                  WRITE ALL F'S TO SUBCHANNEL 10,
     7051                            *                                   BITS 0-47
     7052   01 024D7    29002143 A   T2900    GEN,16,10,6    X'2900',X'85',T2910-%
     7053   01 024D8    328035BF              LW,R8    =X'AAFFFFFF'      UPPER FAM CONTROL
     7054   01 024D9    680023A4              B        T1740B            TO SUBROUTINE
     7055                            *
     7056                            *                                  WRITE ALL F'S TO SUBCHANNEL 10,
     7057                            *                                   BITS 48-95
     7058   01 024DA    29102143 A   T2910    GEN,16,10,6    X'2910',X'85',T2920-%
     7059   01 024DB    328035C0              LW,R8    =X'A8FFFFFF'      LOWER FAM CONTROL
     7060   01 024DC    680023A4              B        T1740B            TO SUBROUTINE
     7061                            *
     7062                            *                                  WRITE ALL F'S TO SUBCHANNEL 11,
     7063                            *                                   BITS 0-47
     7064   01 024DD    29202143 A   T2920    GEN,16,10,6    X'2920',X'85',T2930-%
     7065   01 024DE    328035C1              LW,R8    =X'AEFFFFFF'      UPPER FAM CONTROL
     7066   01 024DF    680023A4              B        T1740B            TO SUBROUTINE
     7067                            *
     7068                            *                                  WRITE ALL F'S TO SUBROUTINE 11,
     7069                            *                                   BITS 48-95
     7070   01 024E0    29302143 A   T2930    GEN,16,10,6    X'2930',X'85',T2940-%
     7071   01 024E1    328035C2              LW,R8    =X'ACFFFFFF'      LOWER FAM CONTROL
     7072   01 024E2    680023A4              B        T1740B            TO SUBROUTINE
     7073                            *
     7074                            *                                  WRITE ALL F'S TO SUBCHANNEL 12,
     7075                            *                                   BITS 0-47
     7076   01 024E3    29402143 A   T2940    GEN,16,10,6    X'2940',X'85',T2950-%
     7077   01 024E4    328035C3              LW,R8    =X'B2FFFFFF'      UPPER FAM CONTROL
     7078   01 024E5    680023A4              B        T1740B            TO SUBROUTINE
     7079                            *
     7080                            *                                  WRITE ALL F'S TO SUBCHANNEL 12,
     7081                            *                                   BITS 48-95
     7082   01 024E6    29502143 A   T2950    GEN,16,10,6    X'2950',X'85',T2960-%
     7083   01 024E7    328035C4              LW,R8    =X'B0FFFFFF'      LOWER FAM CONTROL
     7084   01 024E8    680023A4              B        T1740B            TO SUBROUTINE
     7085                            *
     7086                            *                                  WRITE ALL F'S TO SUBCHANNEL 13,
     7087                            *                                   BITS 0-47
     7088   01 024E9    29602143 A   T2960    GEN,16,10,6    X'2960',X'85',T2970-%
     7089   01 024EA    328035C5              LW,R8    =X'B6FFFFFF'      UPPER FAM CONTROL
     7090   01 024EB    680023A4              B        T1740B            TO SUBROUTINE
     7091                            *
     7092                            *                                  WRITE ALL F'S TO SUBCHANNEL 13,
     7093                            *                                   BITS 48-95
     7094   01 024EC    29702143 A   T2970    GEN,16,10,6    X'2970',X'85',T2980-%
     7095   01 024ED    328035C6              LW,R8    =X'B4FFFFFF'      LOWER FAM CONTROL
     7096   01 024EE    680023A4              B        T1740B            TO SUBROUTINE
     7097                            *
     7098                            *                                  WRITE ALL F'S TO SUBROUTINE 14,
     7099   01 024EF    29802143 A   T2980    GEN,16,10,6    X'2980',X'85',T2990-%
     7100   01 024F0    328035C7              LW,R8    =X'BAFFFFFF'      UPPER FAM CONTROL
     7101   01 024F1    680023A4              B        T1740B            TO SUBROUTINE
     7102                            *
     7103                            *                                  WRITE ALL F'S TO SUBCHANNEL 14,
     7104                            *                                   BITS 48-95
     7105   01 024F2    29902143 A   T2990    GEN,16,10,6    X'2990',X'85',T3000-%
     7106   01 024F3    328035C8              LW,R8    =X'B8FFFFFF'      LOWER FAM CONTROL
     7107   01 024F4    680023A4              B        T1740B            TO SUBROUTINE
     7108                            *
     7109                            *                                  WRITE ALL F'S TO SUBCHANNEL 15,
     7110                            *                                   BITS 0-47
     7111   01 024F5    30002143 A   T3000    GEN,16,10,6    X'3000',X'85',T3010-%
     7112   01 024F6    328035C9              LW,R8    =X'BEFFFFFF'      UPPER FAM CONTROL
     7113   01 024F7    680023A4              B        T1740B            TO SUBROUTINE
     7114                            *
     7115                            *                                  WRITE ALL F'S TO SUBCHANNEL 15,
     7116                            *                                   BITS 48-95
     7117   01 024F8    30102143 A   T3010    GEN,16,10,6    X'3010',X'85',T3180-%
     7118   01 024F9    328035CA              LW,R8    =X'BCFFFFFF'      LOWER FAM CONTROL
     7119   01 024FA    680023A4              B        T1740B            TO SUBROUTINE
     7120                            *
     7121                            *                                  WRITE ALL A'S TO SUBCHANNEL 0,
     7122                            *                                   BITS 0-47 (UPPER)
     7123   01 024FB    318001C3 A   T3180    GEN,16,10,6    X'3180',7,T3190-%
     7124   01 024FC    328035CB              LW,R8    =X'82AAAAAA'      UPPER FAM CONTROL
     7125   01 024FD    680023A4              B        T1740B            TO SUBROUTINE
     7126                            *
     7127                            *                                  WRITE ALL A'S TO SUBCHANNEL 0,
     7128                            *                                   BITS 48-95 (LOWER)
     7129   01 024FE    319001C3 A   T3190    GEN,16,10,6    X'3190',7,T3200-%
     7130   01 024FF    328035CC              LW,R8    =X'80AAAAAA'      LOWER FAM CONTROL
     7131   01 02500    680023A4              B        T1740B            TO SUBROUTINE
     7132                            *
     7133                            *                                  WRITE ALL A'S TO SUBCHANNEL 1,
     7134                            *                                   BITS 0-47 (UPPER)
     7135   01 02501    320001C3 A   T3200    GEN,16,10,6    X'3200',7,T3210-%
     7136   01 02502    328035CD              LW,R8    =X'86AAAAAA'      WRITE FAM UPPER CONTROL
     7137   01 02503    680023A4              B        T1740B            TO SUBROUTINE
     7138                            *
     7139                            *                                  WRITE ALL A'S TO SUBCHANNEL 1,
     7140                            *                                   BITS 48-95 (LOWER)
     7141   01 02504    321001C3 A   T3210    GEN,16,10,6    X'3210',7,T3220-%
     7142   01 02505    328035CE              LW,R8    =X'84AAAAAA'      WRITE FAM LOWER CONTROL
     7143   01 02506    680023A4              B        T1740B
     7144                            *                                  WRITE ALL A'S TO SUBCHANNEL 2,
     7145                            *                                   BITS 0-47 (UPPER)
     7146   01 02507    322001C3 A   T3220    GEN,16,10,6    X'3220',7,T3230-%
     7147   01 02508    328035CF              LW,R8    =X'8AAAAAAA'      UPPER FAM CONTROL
     7148   01 02509    680023A4              B        T1740B            TO SUBROUTINE
     7149                            *
     7150                            *                                  WRITE ALL A'S TO SUBCHANNEL 2,
     7151                            *                                   BITS 48-95 (LOWER)
     7152   01 0250A    323001C3 A   T3230    GEN,16,10,6    X'3230',7,T3240-%
     7153   01 0250B    328035D0              LW,R8    =X'88AAAAAA'      LOWER FAM CONTROL
     7154   01 0250C    680023A4              B        T1740B            TO SUBROUTINE
     7155                            *
     7156                            *                                  WRITE ALL A'S TO SUBCHANNEL 3,
     7157                            *                                   BITS 0-47
     7158   01 0250D    324001C3 A   T3240    GEN,16,10,6    X'3240',7,T3250-%
     7159   01 0250E    328035D1              LW,R8    =X'8EAAAAAA'      UPPER FAM CONTROL
     7160   01 0250F    680023A4              B        T1740B            TO SUBROUTINE
     7161                            *
     7162                            *                                  WRITE ALL A'S TO SUBCHANNEL 3,
     7163                            *                                   BITS 48-95
     7164   01 02510    325001C3 A   T3250    GEN,16,10,6    X'3250',7,T3260-%
     7165   01 02511    328035D2              LW,R8    =X'8CAAAAAA'      LOWER FAM CONTROL
     7166   01 02512    680023A4              B        T1740B            TO SUBROUTINE
     7167                            *
     7168                            *                                  WRITE ALL A'S TO SUBCHANNEL 4,
     7169                            *                                   BITS 0-47
     7170   01 02513    326001C3 A   T3260    GEN,16,10,6    X'3260',7,T3270-%
     7171   01 02514    328035D3              LW,R8    =X'92AAAAAA'      UPPER FAM CONTROL
     7172   01 02515    680023A4              B        T1740B            TO SUBROUTINE
     7173                            *
     7174                            *                                  WRITE ALL A'S TO SUBCHANNEL 4,
     7175                            *                                   BITS 48-95
     7176   01 02516    327001C3 A   T3270    GEN,16,10,6    X'3270',7,T3280-%
     7177   01 02517    328035D4              LW,R8    =X'90AAAAAA'      LOWER FAM CONTROL
     7178   01 02518    680023A4              B        T1740B            TO SUBROUTINE
     7179                            *
     7180                            *                                  WRITE ALL A'S TO SUBCHANNEL 5,
     7181                            *                                   BITS 0-47
     7182   01 02519    328001C3 A   T3280    GEN,16,10,6    X'3280',7,T3290-%
     7183   01 0251A    328035D5              LW,R8    =X'96AAAAAA'      UPPER  FAM CONTROL
     7184   01 0251B    680023A4              B        T1740B
     7185                            *
     7186                            *                                  WRITE ALL A'S TO SUBCHANNEL 5,
     7187                            *                                   BITS 48-95
     7188   01 0251C    329001C3 A   T3290    GEN,16,10,6    X'3290',7,T3300-%
     7189   01 0251D    328035D6              LW,R8    =X'94AAAAAA'      LOWER FAM CONTROL
     7190   01 0251E    680023A4              B        T1740B            TO SUBROUTINE
     7191                            *
     7192                            *                                  WRITE ALL A'S TO SUBCHANNEL 6,
     7193                            *                                   BITS 0-47
     7194   01 0251F    330001C3 A   T3300    GEN,16,10,6    X'3300',7,T3310-%
     7195   01 02520    328035D7              LW,R8    =X'9AAAAAAA'      UPPER FAM CONTROL
     7196   01 02521    680023A4              B        T1740B            TO SUBROUTINE
     7197                            *
     7198                            *                                  WRITE ALL A'S TO SUBROUTINE 6,
     7199                            *                                   BITS 48-95
     7200   01 02522    331001C3 A   T3310    GEN,16,10,6    X'3310',7,T3320-%
     7201   01 02523    328035D8              LW,R8    =X'98AAAAAA'      LOWER FAM CONTROL
     7202   01 02524    680023A4              B        T1740B            TO SUBROUTINE
     7203                            *
     7204                            *                                  WRITE ALL A'S TO SUBROUTINE 7,
     7205                            *                                   BITS 0-47
     7206   01 02525    332001C3 A   T3320    GEN,16,10,6    X'3320',7,T3330-%
     7207   01 02526    328035D9              LW,R8    =X'9EAAAAAA'      UPPER FAM CONTROL
     7208   01 02527    680023A4              B        T1740B            TO SUBROUTINE
     7209                            *
     7210                            *                                  WRITE ALL A'S TO SUBROUTINE 7,
     7211                            *                                   BITS 48-95
     7212   01 02528    333001C3 A   T3330    GEN,16,10,6    X'3330',7,T3340-%
     7213   01 02529    328035DA              LW,R8    =X'9CAAAAAA'      LOWER FAM CONTROL
     7214   01 0252A    680023A4              B        T1740B
     7215                            *
     7216                            *                                  WRITE ALL A'S TO SUBROUTINE 8,
     7217                            *                                   BITS 0-47
     7218   01 0252B    33402143 A   T3340    GEN,16,10,6    X'3340',X'85',T3350-%
     7219   01 0252C    328035DB              LW,R8    =X'A2AAAAAA'      UPPER FAM CONTROL
     7220   01 0252D    680023A4              B        T1740B            TO SUBROUTINE
     7221                            *
     7222                            *                                  WRITE ALL A'S TO SUBCHANNEL 8,
     7223                            *                                   BITS 48-95
     7224   01 0252E    33502143 A   T3350    GEN,16,10,6    X'3350',X'85',T3360-%
     7225   01 0252F    328035DC              LW,R8    =X'A0AAAAAA'      LOWER FAM CONTROL
     7226   01 02530    680023A4              B        T1740B            TO SUBROUTINE
     7227                            *
     7228                            *                                  WRITE ALL A'S TO SUBCHANNEL 9,
     7229                            *                                   BITS 0-47
     7230   01 02531    33602143 A   T3360    GEN,16,10,6    X'3360',X'85',T3370-%
     7231   01 02532    328035DD              LW,R8    =X'A6AAAAAA'      UPPER FAM CONTROL
     7232   01 02533    680023A4              B        T1740B            TO SUBROUTINE
     7233                            *
     7234                            *                                  WRITE ALL A'S TO SUBCHANNEL 9,
     7235                            *                                   BITS 48-95
     7236   01 02534    33702143 A   T3370    GEN,16,10,6    X'3370',X'85',T3380-%
     7237   01 02535    328035DE              LW,R8    =X'A4AAAAAA'      LOWER FAM CONTROL
     7238   01 02536    680023A4              B        T1740B            TO SUBROUTINE
     7239                            *
     7240                            *                                  WRITE ALL A'S TO SUBCHANNEL 10,
     7241                            *                                   BITS 0-47
     7242   01 02537    33802143 A   T3380    GEN,16,10,6    X'3380',X'85',T3390-%
     7243   01 02538    328035DF              LW,R8    =X'AAAAAAAA'      UPPER FAM CONTROL
     7244   01 02539    680023A4              B        T1740B            TO SUBROUTINE
     7245                            *
     7246                            *                                  WRITE ALL A'S TO SUBCHANNEL 10,
     7247                            *                                   BITS 48-95
     7248   01 0253A    33902143 A   T3390    GEN,16,10,6    X'3390',X'85',T3400-%
     7249   01 0253B    328035E0              LW,R8    =X'A8AAAAAA'      LOWER FAM CONTROL
     7250   01 0253C    680023A4              B        T1740B            TO SUBROUTINE
     7251                            *
     7252                            *                                  WRITE ALL A'S TO SUBCHANNEL 11,
     7253                            *                                   BITS 0-47
     7254   01 0253D    34002143 A   T3400    GEN,16,10,6    X'3400',X'85',T3410-%
     7255   01 0253E    328035E1              LW,R8    =X'AEAAAAAA'      UPPER FAM CONTROL
     7256   01 0253F    680023A4              B        T1740B            TO SUBROUTINE
     7257                            *
     7258                            *                                  WRITE ALL A'S TO SUBROUTINE 11,
     7259                            *                                   BITS 48-95
     7260   01 02540    34102143 A   T3410    GEN,16,10,6    X'3410',X'85',T3420-%
     7261   01 02541    328035E2              LW,R8    =X'ACAAAAAA'      LOWER FAM CONTROL
     7262   01 02542    680023A4              B        T1740B            TO SUBROUTINE
     7263                            *
     7264                            *                                  WRITE ALL A'S TO SUBCHANNEL 12,
     7265                            *                                   BITS 0-47
     7266   01 02543    34202143 A   T3420    GEN,16,10,6    X'3420',X'85',T3430-%
     7267   01 02544    328035E3              LW,R8    =X'B2AAAAAA'      UPPER FAM CONTROL
     7268   01 02545    680023A4              B        T1740B            TO SUBROUTINE
     7269                            *
     7270                            *                                  WRITE ALL A'S TO SUBCHANNEL 12,
     7271                            *                                   BITS 48-95
     7272   01 02546    34302143 A   T3430    GEN,16,10,6    X'3430',X'85',T3440-%
     7273   01 02547    328035E4              LW,R8    =X'B0AAAAAA'      LOWER FAM CONTROL
     7274   01 02548    680023A4              B        T1740B            TO SUBROUTINE
     7275                            *
     7276                            *                                  WRITE ALL A'S TO SUBCHANNEL 13,
     7277                            *                                   BITS 0-47
     7278   01 02549    34402143 A   T3440    GEN,16,10,6    X'3440',X'85',T3450-%
     7279   01 0254A    328035E5              LW,R8    =X'B6AAAAAA'      UPPER FAM CONTROL
     7280   01 0254B    680023A4              B        T1740B            TO SUBROUTINE
     7281                            *
     7282                            *                                  WRITE ALL A'S TO SUBCHANNEL 13,
     7283                            *                                   BITS 48-95
     7284   01 0254C    34502143 A   T3450    GEN,16,10,6    X'3450',X'85',T3460-%
     7285   01 0254D    328035E6              LW,R8    =X'B4AAAAAA'      LOWER FAM CONTROL
     7286   01 0254E    680023A4              B        T1740B            TO SUBROUTINE
     7287                            *
     7288                            *                                  WRITE ALL A'S TO SUBROUTINE 14,
     7289   01 0254F    34602143 A   T3460    GEN,16,10,6    X'3460',X'85',T3470-%
     7290   01 02550    328035E7              LW,R8    =X'BAAAAAAA'      UPPER FAM CONTROL
     7291   01 02551    680023A4              B        T1740B            TO SUBROUTINE
     7292                            *
     7293                            *                                  WRITE ALL A'S TO SUBCHANNEL 14,
     7294                            *                                   BITS 48-95
     7295   01 02552    34702143 A   T3470    GEN,16,10,6    X'3470',X'85',T3480-%
     7296   01 02553    328035E8              LW,R8    =X'B8AAAAAA'      LOWER FAM CONTROL
     7297   01 02554    680023A4              B        T1740B            TO SUBROUTINE
     7298                            *
     7299                            *                                  WRITE ALL A'S TO SUBCHANNEL 15,
     7300                            *                                   BITS 0-47
     7301   01 02555    34802143 A   T3480    GEN,16,10,6    X'3480',X'85',T3490-%
     7302   01 02556    328035E9              LW,R8    =X'BEAAAAAA'      UPPER FAM CONTROL
     7303   01 02557    680023A4              B        T1740B            TO SUBROUTINE
     7304                            *
     7305                            *                                  WRITE ALL A'S TO SUBCHANNEL 15,
     7306                            *                                   BITS 48-95
     7307   01 02558    34902143 A   T3490    GEN,16,10,6    X'3490',X'85',T3660-%
     7308   01 02559    328035EA              LW,R8    =X'BCAAAAAA'      LOWER FAM CONTROL
     7309   01 0255A    680023A4              B        T1740B            TO SUBROUTINE
     7310                            *
     7311                            *                                  WRITE ALL 5'S TO SUBCHANNEL 0,
     7312                            *                                   BITS 0-47 (UPPER)
     7313   01 0255B    366001C3 A   T3660    GEN,16,10,6    X'3660',7,T3670-%
     7314   01 0255C    328035EB              LW,R8    =X'82555555'      UPPER FAM CONTROL
     7315   01 0255D    680023A4              B        T1740B            TO SUBROUTINE
     7316                            *
     7317                            *                                  WRITE ALL 5'S TO SUBCHANNEL 0,
     7318                            *                                   BITS 48-95 (LOWER)
     7319   01 0255E    367001C3 A   T3670    GEN,16,10,6    X'3670',7,T3680-%
     7320   01 0255F    328035EC              LW,R8    =X'80555555'      LOWER FAM CONTROL
     7321   01 02560    680023A4              B        T1740B            TO SUBROUTINE
     7322                            *
     7323                            *                                  WRITE 0'S TO SUBCHANNEL FAM 1,
     7324                            *                                   BITS 0-47 (UPPER)
     7325   01 02561    368001C3 A   T3680    GEN,16,10,6    X'3680',7,T3690-%
     7326   01 02562    328035ED              LW,R8    =X'86555555'      WRITE FAM UPPER CONTROL
     7327   01 02563    680023A4              B        T1740B            TO SUBROUTINE
     7328                            *
     7329                            *                                  WRITE 0'S TO SUBCHANNEL FAM 1,
     7330                            *                                   BITS 48-95 (LOWER)
     7331   01 02564    369001C3 A   T3690    GEN,16,10,6    X'3690',7,T3700-%
     7332   01 02565    328035EE              LW,R8    =X'84555555'      WRITE FAM LOWER CONTROL
     7333   01 02566    680023A4              B        T1740B
     7334                            *                                  WRITE ALL 5'S TO SUBCHANNEL 2,T
     7335                            *                                   BITS 0-47 (UPPER)
     7336   01 02567    370001C3 A   T3700    GEN,16,10,6    X'3700',7,T3710-%
     7337   01 02568    328035EF              LW,R8    =X'8A555555'      UPPER FAM CONTROL
     7338   01 02569    680023A4              B        T1740B            TO SUBROUTINE
     7339                            *
     7340                            *                                  WRITE ALL 5'S TO SUBCHANNEL 2,U
     7341                            *                                   BITS 48-95 (LOWER)
     7342   01 0256A    371001C3 A   T3710    GEN,16,10,6    X'3710',7,T3720-%
     7343   01 0256B    328035F0              LW,R8    =X'88555555'      LOWER FAM CONTROL
     7344   01 0256C    680023A4              B        T1740B            TO SUBROUTINE
     7345                            *
     7346                            *                                  WRITE ALL 5'S TO SUBCHANNEL 3,U
     7347                            *                                   BITS 0-47
     7348   01 0256D    372001C3 A   T3720    GEN,16,10,6    X'3720',7,T3730-%
     7349   01 0256E    328035F1              LW,R8    =X'8E555555'      UPPER FAM CONTROL
     7350   01 0256F    680023A4              B        T1740B            TO SUBROUTINE
     7351                            *
     7352                            *                                  WRITE ALL 5'S TO SUBCHANNEL 3,E
     7353                            *                                   BITS 48-95
     7354   01 02570    373001C3 A   T3730    GEN,16,10,6    X'3730',7,T3740-%
     7355   01 02571    328035F2              LW,R8    =X'8C555555'      LOWER FAM CONTROL
     7356   01 02572    680023A4              B        T1740B            TO SUBROUTINE
     7357                            *
     7358                            *                                  WRITE ALL 5'S TO SUBCHANNEL 4,
     7359                            *                                   BITS 0-47
     7360   01 02573    374001C3 A   T3740    GEN,16,10,6    X'3740',7,T3750-%
     7361   01 02574    328035F3              LW,R8    =X'92555555'      UPPER FAM CONTROL
     7362   01 02575    680023A4              B        T1740B            TO SUBROUTINE
     7363                            *
     7364                            *                                  WRITE ALL 5'S TO SUBCHANNEL 4,
     7365                            *                                   BITS 48-95
     7366   01 02576    375001C3 A   T3750    GEN,16,10,6    X'3750',7,T3760-%
     7367   01 02577    328035F4              LW,R8    =X'90555555'      LOWER FAM CONTROL
     7368   01 02578    680023A4              B        T1740B            TO SUBROUTINE
     7369                            *
     7370                            *                                  WRITE ALL 5'S TO SUBCHANNEL 5,
     7371                            *                                   BITS 0-47
     7372   01 02579    376001C3 A   T3760    GEN,16,10,6    X'3760',7,T3770-%
     7373   01 0257A    328035F5              LW,R8    =X'96555555'      UPPER  FAM CONTROL
     7374   01 0257B    680023A4              B        T1740B
     7375                            *
     7376                            *                                  WRITE ALL 5'S TO SUBCHANNEL 5,
     7377                            *                                   BITS 48-95
     7378   01 0257C    377001C3 A   T3770    GEN,16,10,6    X'3770',7,T3780-%
     7379   01 0257D    328035F6              LW,R8    =X'94555555'      LOWER FAM CONTROL
     7380   01 0257E    680023A4              B        T1740B            TO SUBROUTINE
     7381                            *
     7382                            *                                  WRITE ALL 5'S TO SUBCHANNEL 6,
     7383                            *                                   BITS 0-47
     7384   01 0257F    378001C3 A   T3780    GEN,16,10,6    X'3780',7,T3790-%
     7385   01 02580    328035F7              LW,R8    =X'9A555555'      UPPER FAM CONTROL
     7386   01 02581    680023A4              B        T1740B            TO SUBROUTINE
     7387                            *
     7388                            *                                  WRITE ALL 5'S TO SUBROUTINE 6,
     7389                            *                                   BITS 48-95
     7390   01 02582    379001C3 A   T3790    GEN,16,10,6    X'3790',7,T3800-%
     7391   01 02583    328035F8              LW,R8    =X'98555555'      LOWER FAM CONTROL
     7392   01 02584    680023A4              B        T1740B            TO SUBROUTINE
     7393                            *
     7394                            *                                  WRITE ALL 5'S TO SUBROUTINE 7,
     7395                            *                                   BITS 0-47
     7396   01 02585    380001C3 A   T3800    GEN,16,10,6    X'3800',7,T3810-%
     7397   01 02586    328035F9              LW,R8    =X'9E555555'      UPPER FAM CONTROL
     7398   01 02587    680023A4              B        T1740B            TO SUBROUTINE
     7399                            *
     7400                            *                                  WRITE ALL 5'S TO SUBROUTINE 7,
     7401                            *                                   BITS 48-95
     7402   01 02588    381001C3 A   T3810    GEN,16,10,6    X'3810',7,T3820-%
     7403   01 02589    328035FA              LW,R8    =X'9C555555'      LOWER FAM CONTROL
     7404   01 0258A    680023A4              B        T1740B
     7405                            *
     7406                            *                                  WRITE ALL 5'S TO SUBROUTINE 8,
     7407                            *                                   BITS 0-47
     7408   01 0258B    38202143 A   T3820    GEN,16,10,6    X'3820',X'85',T3830-%
     7409   01 0258C    328035FB              LW,R8    =X'A2555555'      UPPER FAM CONTROL
     7410   01 0258D    680023A4              B        T1740B            TO SUBROUTINE
     7411                            *
     7412                            *                                  WRITE ALL 5'S TO SUBCHANNEL 8,
     7413                            *                                   BITS 48-95
     7414   01 0258E    38302143 A   T3830    GEN,16,10,6    X'3830',X'85',T3840-%
     7415   01 0258F    328035FC              LW,R8    =X'A0555555'      LOWER FAM CONTROL
     7416   01 02590    680023A4              B        T1740B            TO SUBROUTINE
     7417                            *
     7418                            *                                  WRITE ALL 5'S TO SUBCHANNEL 9,
     7419                            *                                   BITS 0-47
     7420   01 02591    38402143 A   T3840    GEN,16,10,6    X'3840',X'85',T3850-%
     7421   01 02592    328035FD              LW,R8    =X'A6555555'      UPPER FAM CONTROL
     7422   01 02593    680023A4              B        T1740B            TO SUBROUTINE
     7423                            *
     7424                            *                                  WRITE ALL 5'S TO SUBCHANNEL 9,
     7425                            *                                   BITS 48-95
     7426   01 02594    38502143 A   T3850    GEN,16,10,6    X'3850',X'85',T3860-%
     7427   01 02595    328035FE              LW,R8    =X'A4555555'      LOWER FAM CONTROL
     7428   01 02596    680023A4              B        T1740B            TO SUBROUTINE
     7429                            *
     7430                            *                                  WRITE ALL 5'S TO SUBCHANNEL 10,
     7431                            *                                   BITS 0-47
     7432   01 02597    38602143 A   T3860    GEN,16,10,6    X'3860',X'85',T3870-%
     7433   01 02598    328035FF              LW,R8    =X'AA555555'      UPPER FAM CONTROL
     7434   01 02599    680023A4              B        T1740B            TO SUBROUTINE
     7435                            *
     7436                            *                                  WRITE ALL 5'S TO SUBCHANNEL 10,
     7437                            *                                   BITS 48-95
     7438   01 0259A    38702143 A   T3870    GEN,16,10,6    X'3870',X'85',T3880-%
     7439   01 0259B    32803600              LW,R8    =X'A8555555'      LOWER FAM CONTROL
     7440   01 0259C    680023A4              B        T1740B            TO SUBROUTINE
     7441                            *
     7442                            *                                  WRITE ALL 5'S TO SUBCHANNEL 11,
     7443                            *                                   BITS 0-47
     7444   01 0259D    38802143 A   T3880    GEN,16,10,6    X'3880',X'85',T3890-%
     7445   01 0259E    32803601              LW,R8    =X'AE555555'      UPPER FAM CONTROL
     7446   01 0259F    680023A4              B        T1740B            TO SUBROUTINE
     7447                            *
     7448                            *                                  WRITE ALL 5'S TO SUBROUTINE 11,
     7449                            *                                   BITS 48-95
     7450   01 025A0    38902143 A   T3890    GEN,16,10,6    X'3890',X'85',T3900-%
     7451   01 025A1    32803602              LW,R8    =X'AC555555'      LOWER FAM CONTROL
     7452   01 025A2    680023A4              B        T1740B            TO SUBROUTINE
     7453                            *
     7454                            *                                  WRITE ALL 5'S TO SUBCHANNEL 12,
     7455                            *                                   BITS 0-47
     7456   01 025A3    39002143 A   T3900    GEN,16,10,6    X'3900',X'85',T3910-%
     7457   01 025A4    32803603              LW,R8    =X'B2555555'      UPPER FAM CONTROL
     7458   01 025A5    680023A4              B        T1740B            TO SUBROUTINE
     7459                            *
     7460                            *                                  WRITE ALL 5'S TO SUBCHANNEL 12,
     7461                            *                                   BITS 48-95
     7462   01 025A6    39102143 A   T3910    GEN,16,10,6    X'3910',X'85',T3920-%
     7463   01 025A7    32803604              LW,R8    =X'B0555555'      LOWER FAM CONTROL
     7464   01 025A8    680023A4              B        T1740B            TO SUBROUTINE
     7465                            *
     7466                            *                                  WRITE ALL 5'S TO SUBCHANNEL 13,
     7467                            *                                   BITS 0-47
     7468   01 025A9    39202143 A   T3920    GEN,16,10,6    X'3920',X'85',T3930-%
     7469   01 025AA    32803605              LW,R8    =X'B6555555'      UPPER FAM CONTROL
     7470   01 025AB    680023A4              B        T1740B            TO SUBROUTINE
     7471                            *
     7472                            *                                  WRITE ALL 5'S TO SUBCHANNEL 13,
     7473                            *                                   BITS 48-95
     7474   01 025AC    39302143 A   T3930    GEN,16,10,6    X'3930',X'85',T3940-%
     7475   01 025AD    32803606              LW,R8    =X'B4555555'      LOWER FAM CONTROL
     7476   01 025AE    680023A4              B        T1740B            TO SUBROUTINE
     7477                            *
     7478                            *                                  WRITE ALL 5'S TO SUBROUTINE 14,
     7479   01 025AF    39402143 A   T3940    GEN,16,10,6    X'3940',X'85',T3950-%
     7480   01 025B0    32803607              LW,R8    =X'BA555555'      UPPER FAM CONTROL
     7481   01 025B1    680023A4              B        T1740B            TO SUBROUTINE
     7482                            *
     7483                            *                                  WRITE ALL 5'S TO SUBCHANNEL 14,
     7484                            *                                   BITS 48-95
     7485   01 025B2    39502143 A   T3950    GEN,16,10,6    X'3950',X'85',T3960-%
     7486   01 025B3    32803608              LW,R8    =X'B8555555'      LOWER FAM CONTROL
     7487   01 025B4    680023A4              B        T1740B            TO SUBROUTINE
     7488                            *
     7489                            *                                  WRITE ALL 5'S TO SUBCHANNEL 15,
     7490                            *                                   BITS 0-47
     7491   01 025B5    39602143 A   T3960    GEN,16,10,6    X'3960',X'85',T3970-%
     7492   01 025B6    32803609              LW,R8    =X'BE555555'      UPPER FAM CONTROL
     7493   01 025B7    680023A4              B        T1740B            TO SUBROUTINE
     7494                            *
     7495                            *                                  WRITE ALL 5'S TO SUBCHANNEL 15,
     7496                            *                                   BITS 48-95
     7497   01 025B8    39702143 A   T3970    GEN,16,10,6    X'3970',X'85',T4140-%
     7498   01 025B9    3280360A              LW,R8    =X'BC555555'      LOWER FAM CONTROL
     7499   01 025BA    680023A4              B        T1740B            TO SUBROUTINE
     7500                            *
     7501                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 0,
     7502                            *                                   BITS 0-47 (UPPER)
     7503   01 025BB    414001C3 A   T4140    GEN,16,10,6    X'4140',7,T4150-%
     7504   01 025BC    3280360B              LW,R8    =X'825B5B5B'      UPPER FAM CONTROL
     7505   01 025BD    680023A4              B        T1740B            TO SUBROUTINE
     7506                            *
     7507                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 0,
     7508                            *                                   BITS 48-95 (LOWER)
     7509   01 025BE    415001C3 A   T4150    GEN,16,10,6    X'4150',7,T4160-%
     7510   01 025BF    3280360C              LW,R8    =X'805B5B5B'      LOWER FAM CONTROL
     7511   01 025C0    680023A4              B        T1740B            TO SUBROUTINE
     7512                            *
     7513                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 1,
     7514                            *                                   BITS 0-47 (UPPER)
     7515   01 025C1    416001C3 A   T4160    GEN,16,10,6    X'4160',7,T4170-%
     7516   01 025C2    3280360D              LW,R8    =X'865B5B5B'      WRITE FAM UPPER CONTROL
     7517   01 025C3    680023A4              B        T1740B            TO SUBROUTINE
     7518                            *
     7519                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 1,
     7520                            *                                   BITS 48-95 (LOWER)
     7521   01 025C4    417001C3 A   T4170    GEN,16,10,6    X'4170',7,T4180-%
     7522   01 025C5    3280360E              LW,R8    =X'845B5B5B'      WRITE FAM LOWER CONTROL
     7523   01 025C6    680023A4              B        T1740B
     7524                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 2,
     7525                            *                                   BITS 0-47 (UPPER)
     7526   01 025C7    418001C3 A   T4180    GEN,16,10,6    X'4180',7,T4190-%
     7527   01 025C8    3280360F              LW,R8    =X'8A5B5B5B'      UPPER FAM CONTROL
     7528   01 025C9    680023A4              B        T1740B            TO SUBROUTINE
     7529                            *
     7530                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 2,
     7531                            *                                   BITS 48-95 (LOWER)
     7532   01 025CA    419001C3 A   T4190    GEN,16,10,6    X'4190',7,T4200-%
     7533   01 025CB    32803610              LW,R8    =X'885B5B5B'      LOWER FAM CONTROL
     7534   01 025CC    680023A4              B        T1740B            TO SUBROUTINE
     7535                            *
     7536                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 3,
     7537                            *                                   BITS 0-47
     7538   01 025CD    420001C3 A   T4200    GEN,16,10,6    X'4200',7,T4210-%
     7539   01 025CE    32803611              LW,R8    =X'8E5B5B5B'      UPPER FAM CONTROL
     7540   01 025CF    680023A4              B        T1740B            TO SUBROUTINE
     7541                            *
     7542                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 3,
     7543                            *                                   BITS 48-95
     7544   01 025D0    421001C3 A   T4210    GEN,16,10,6    X'4210',7,T4220-%
     7545   01 025D1    32803612              LW,R8    =X'8C5B5B5B'      LOWER FAM CONTROL
     7546   01 025D2    680023A4              B        T1740B            TO SUBROUTINE
     7547                            *
     7548                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 4,
     7549                            *                                   BITS 0-47
     7550   01 025D3    422001C3 A   T4220    GEN,16,10,6    X'4220',7,T4230-%
     7551   01 025D4    32803613              LW,R8    =X'925B5B5B'      UPPER FAM CONTROL
     7552   01 025D5    680023A4              B        T1740B            TO SUBROUTINE
     7553                            *
     7554                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 4,
     7555                            *                                   BITS 48-95
     7556   01 025D6    423001C3 A   T4230    GEN,16,10,6    X'4230',7,T4240-%
     7557   01 025D7    32803614              LW,R8    =X'905B5B5B'      LOWER FAM CONTROL
     7558   01 025D8    680023A4              B        T1740B            TO SUBROUTINE
     7559                            *
     7560                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 5,
     7561                            *                                   BITS 0-47
     7562   01 025D9    424001C3 A   T4240    GEN,16,10,6    X'4240',7,T4250-%
     7563   01 025DA    32803615              LW,R8    =X'965B5B5B'      UPPER  FAM CONTROL
     7564   01 025DB    680023A4              B        T1740B
     7565                            *
     7566                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 5,
     7567                            *                                   BITS 48-95
     7568   01 025DC    425001C3 A   T4250    GEN,16,10,6    X'4250',7,T4260-%
     7569   01 025DD    32803616              LW,R8    =X'945B5B5B'      LOWER FAM CONTROL
     7570   01 025DE    680023A4              B        T1740B            TO SUBROUTINE
     7571                            *
     7572                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 6,
     7573                            *                                   BITS 0-47
     7574   01 025DF    426001C3 A   T4260    GEN,16,10,6    X'4260',7,T4270-%
     7575   01 025E0    32803617              LW,R8    =X'9A5B5B5B'      UPPER FAM CONTROL
     7576   01 025E1    680023A4              B        T1740B            TO SUBROUTINE
     7577                            *
     7578                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 6,
     7579                            *                                   BITS 48-95
     7580   01 025E2    427001C3 A   T4270    GEN,16,10,6    X'4270',7,T4280-%
     7581   01 025E3    32803618              LW,R8    =X'985B5B5B'      LOWER FAM CONTROL
     7582   01 025E4    680023A4              B        T1740B            TO SUBROUTINE
     7583                            *
     7584                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 7,
     7585                            *                                   BITS 0-47
     7586   01 025E5    428001C3 A   T4280    GEN,16,10,6    X'4280',7,T4290-%
     7587   01 025E6    32803619              LW,R8    =X'9E5B5B5B'      UPPER FAM CONTROL
     7588   01 025E7    680023A4              B        T1740B            TO SUBROUTINE
     7589                            *
     7590                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 7,
     7591                            *                                   BITS 48-95
     7592   01 025E8    429001C3 A   T4290    GEN,16,10,6    X'4290',7,T4300-%
     7593   01 025E9    3280361A              LW,R8    =X'9C5B5B5B'      LOWER FAM CONTROL
     7594   01 025EA    680023A4              B        T1740B
     7595                            *
     7596                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 8,
     7597                            *                                   BITS 0-47
     7598   01 025EB    43002143 A   T4300    GEN,16,10,6    X'4300',X'85',T4310-%
     7599   01 025EC    3280361B              LW,R8    =X'A25B5B5B'      UPPER FAM CONTROL
     7600   01 025ED    680023A4              B        T1740B            TO SUBROUTINE
     7601                            *
     7602                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 8,
     7603                            *                                   BITS 48-95
     7604   01 025EE    43102143 A   T4310    GEN,16,10,6    X'4310',X'85',T4320-%
     7605   01 025EF    3280361C              LW,R8    =X'A05B5B5B'      LOWER FAM CONTROL
     7606   01 025F0    680023A4              B        T1740B            TO SUBROUTINE
     7607                            *
     7608                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 9,
     7609                            *                                   BITS 0-47
     7610   01 025F1    43202143 A   T4320    GEN,16,10,6    X'4320',X'85',T4330-%
     7611   01 025F2    3280361D              LW,R8    =X'A65B5B5B'      UPPER FAM CONTROL
     7612   01 025F3    680023A4              B        T1740B            TO SUBROUTINE
     7613                            *
     7614                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 9,
     7615                            *                                   BITS 48-95
     7616   01 025F4    43302143 A   T4330    GEN,16,10,6    X'4330',X'85',T4340-%
     7617   01 025F5    3280361E              LW,R8    =X'A45B5B5B'      LOWER FAM CONTROL
     7618   01 025F6    680023A4              B        T1740B            TO SUBROUTINE
     7619                            *
     7620                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 10,
     7621                            *                                   BITS 0-47
     7622   01 025F7    43402143 A   T4340    GEN,16,10,6    X'4340',X'85',T4350-%
     7623   01 025F8    3280361F              LW,R8    =X'AA5B5B5B'      UPPER FAM CONTROL
     7624   01 025F9    680023A4              B        T1740B            TO SUBROUTINE
     7625                            *
     7626                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 10,
     7627                            *                                   BITS 48-95
     7628   01 025FA    43502143 A   T4350    GEN,16,10,6    X'4350',X'85',T4360-%
     7629   01 025FB    32803620              LW,R8    =X'A85B5B5B'      LOWER FAM CONTROL
     7630   01 025FC    680023A4              B        T1740B            TO SUBROUTINE
     7631                            *
     7632                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 11,
     7633                            *                                   BITS 0-47
     7634   01 025FD    43602143 A   T4360    GEN,16,10,6    X'4360',X'85',T4370-%
     7635   01 025FE    32803621              LW,R8    =X'AE5B5B5B'      UPPER FAM CONTROL
     7636   01 025FF    680023A4              B        T1740B            TO SUBROUTINE
     7637                            *
     7638                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 11,
     7639                            *                                   BITS 48-95
     7640   01 02600    43702143 A   T4370    GEN,16,10,6    X'4370',X'85',T4380-%
     7641   01 02601    32803622              LW,R8    =X'AC5B5B5B'      LOWER FAM CONTROL
     7642   01 02602    680023A4              B        T1740B            TO SUBROUTINE
     7643                            *
     7644                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 12,
     7645                            *                                   BITS 0-47
     7646   01 02603    43802143 A   T4380    GEN,16,10,6    X'4380',X'85',T4390-%
     7647   01 02604    32803623              LW,R8    =X'B25B5B5B'      UPPER FAM CONTROL
     7648   01 02605    680023A4              B        T1740B            TO SUBROUTINE
     7649                            *
     7650                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 12,
     7651                            *                                   BITS 48-95
     7652   01 02606    43902143 A   T4390    GEN,16,10,6    X'4390',X'85',T4400-%
     7653   01 02607    32803624              LW,R8    =X'B05B5B5B'      LOWER FAM CONTROL
     7654   01 02608    680023A4              B        T1740B            TO SUBROUTINE
     7655                            *
     7656                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 13,
     7657                            *                                   BITS 0-47
     7658   01 02609    44002143 A   T4400    GEN,16,10,6    X'4400',X'85',T4410-%
     7659   01 0260A    32803625              LW,R8    =X'B65B5B5B'      UPPER FAM CONTROL
     7660   01 0260B    680023A4              B        T1740B            TO SUBROUTINE
     7661                            *
     7662                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 13,
     7663                            *                                   BITS 48-95
     7664   01 0260C    44102143 A   T4410    GEN,16,10,6    X'4410',X'85',T4420-%
     7665   01 0260D    32803626              LW,R8    =X'B45B5B5B'      LOWER FAM CONTROL
     7666   01 0260E    680023A4              B        T1740B            TO SUBROUTINE
     7667                            *
     7668                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 14,
     7669   01 0260F    44202143 A   T4420    GEN,16,10,6    X'4420',X'85',T4430-%
     7670   01 02610    32803627              LW,R8    =X'BA5B5B5B'      UPPER FAM CONTROL
     7671   01 02611    680023A4              B        T1740B            TO SUBROUTINE
     7672                            *
     7673                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 14,
     7674                            *                                   BITS 48-95
     7675   01 02612    44302143 A   T4430    GEN,16,10,6    X'4430',X'85',T4440-%
     7676   01 02613    32803628              LW,R8    =X'B85B5B5B'      LOWER FAM CONTROL
     7677   01 02614    680023A4              B        T1740B            TO SUBROUTINE
     7678                            *
     7679                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 15,
     7680                            *                                   BITS 0-47
     7681   01 02615    44402143 A   T4440    GEN,16,10,6    X'4440',X'85',T4450-%
     7682   01 02616    32803629              LW,R8    =X'BE5B5B5B'      UPPER FAM CONTROL
     7683   01 02617    680023A4              B        T1740B            TO SUBROUTINE
     7684                            *
     7685                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 15,
     7686                            *                                   BITS 48-95
     7687   01 02618    44502143 A   T4450    GEN,16,10,6    X'4450',X'85',T4620-%
     7688   01 02619    3280362A              LW,R8    =X'BC5B5B5B'      LOWER FAM CONTROL
     7689   01 0261A    680023A4              B        T1740B            TO SUBROUTINE
     7690         01 0261B           T4620    EQU      %
     7691                            *
     7692                            *                                  TIO PHASING - PHASE I
     7693   01 0261B    549001C5 A   T5490    GEN,16,10,6    X'5490',7,T5500-%
     7694   01 0261C    6AF02625              BAL,R15  T5500B            GO TO TIO PHASE CHECK SUBROUTINE
     7695   01 0261D    EC901298              RD,R9    *GP08             UNIT READ
     7696   01 0261E    FFFC0020 A            DATA     X'FFFC0020'       UNIT MASK
     7697   01 0261F    40040000 A            DATA     X'40040000'       DATA EXPECTED
     7698                            *
     7699                            *
     7700                            *
     7701                            *                                  TIO PHASING - PHASE I
     7702   01 02620    550001D0 A   T5500    GEN,16,10,6    X'5500',7,T5510-%
     7703   01 02621    6AF02625              BAL,R15  T5500B            GO TO TIO PHASE CHECK SUBROUTINE
     7704   01 02622    EC901296              RD,R9    *GP02             UNIT READ
     7705   01 02623    00000000 A            DATA     0                 MASK
     7706   01 02624    00000000 A            DATA     0                 EXPECTED
     7707         01 02625           T5500B   EQU      %
     7708   01 02625    331013B4              MTW,1    WDTIND            SET WATCHDOG TIMEOUT EXPECTED FLAG
     7709   01 02626    22801800 A            LI,R8    X'1800'
     7710   01 02627    ED801298              WD,R8    *GP08             SET SINGLE PHASE MODE
     7711   01 02628    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     7712   01 02629    CD001312              TIO,R0   *IOPNO            ISSUE TIO
     7713   01 0262A    E700000F A            EXU      *R15              EXECUTE UNIT RD
     7714   01 0262B    3310000F A            MTW,1    R15               BUMP POINTER
     7715   01 0262C    CB90000F A            AND,R9   *R15              UNIT MASK
     7716   01 0262D    3310000F A            MTW,1    R15
     7717   01 0262E    B280000F A            LW,R8    *R15              R8= DATA EXPECTED
     7718   01 0262F    68001AC6              B        CREQUAL           COMPARE R8:R9
     7719                            *
     7720                            *                                  TIO PHASING - PHASE I
     7721   01 02630    551001C5 A   T5510    GEN,16,10,6    X'5510',7,T5520-%
     7722   01 02631    6AF02625              BAL,R15  T5500B            GO TO TIO PHASE CHECK SUBROUTINE
     7723   01 02632    EC90129F              RD,R9    *GP15             UNIT READ
     7724   01 02633    000000FF A            DATA     X'000000FF'       UNIT MASK
     7725   01 02634    00000040 A            DATA     X'00000040'       DATA EXPECTED
     7726                            *
     7727                            *                                  TIO PHASING - PHASE 0
     7728   01 02635    552001D9 A   T5520    GEN,16,10,6    X'5520',7,T5560-%
     7729   01 02636    6AF0263A              BAL,R15  T5520B            GO TO PHASE CHECK SUBROUTINE
     7730   01 02637    00009608 A            DATA     X'9608'           SNAP SET UP
     7731   01 02638    FFFC3F80 A            DATA     X'FFFC3F80'       UNIT MASK
     7732   01 02639    40240180 A            DATA     X'40240180'       DATA EXPECTED
     7733                            *
     7734         01 0263A           T5520B   EQU      %
     7735   01 0263A    22C02643              LI,R12   T5520F
     7736   01 0263B    331013B4     T5520D   MTW,1    WDTIND            EXPECTED WDT INDICATOR
     7737   01 0263C    22801800 A            LI,R8    X'1800'
     7738   01 0263D    ED801298              WD,R8    *GP08             SINGLE PHASE MODE
     7739   01 0263E    22800000 A            LI,R8    0
     7740   01 0263F    ED80129D              WD,R8    *GP13             MS ADDRESS = 0
     7741   01 02640    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     7742   01 02641    CD001312              TIO,R0   *IOPNO
     7743   01 02642    E800000C A            B        *R12
     7744   01 02643    B280000F A   T5520F   LW,R8    *R15              FETCH SNAP SET UP
     7745   01 02644    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION
     7746   01 02645    ED801298              WD,R8    *GP08             SET UP SINGLE PHASE MODE & SNAP
     7747   01 02646    22801800 A            LI,R8    X'1800'           ADVANCE ONE MORE PHASE
     7748   01 02647    ED801298              WD,R8    *GP08
     7749   01 02648    3310000F A            MTW,1    R15               BUMP POINTER
     7750   01 02649    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA
     7751   01 0264A    CB90000F A            AND,R9   *R15              UNIT MASK
     7752   01 0264B    3310000F A            MTW,1    R15               BUMP POINTER
     7753   01 0264C    B280000F A            LW,R8    *R15              FETCH DATA EXPECTED
     7754   01 0264D    68001AC6              B        CREQUAL           COMPARE EXPECTED/RECEIVED
     7755                            *
     7756                            *                                  TIO PHASING - PHASE 10
     7757   01 0264E    556001C9 A   T5560    GEN,16,10,6    X'5560',7,T5570-%
     7758   01 0264F    6AF02653              BAL,R15  T5560B            GO TO PHASE CHECK SUBROUTINE
     7759   01 02650    00009608 A            DATA     X'9608'           SNAP SET UP
     7760   01 02651    FFFC0F00 A            DATA     X'FFFC0F00'       UNIT MASK
     7761   01 02652    00340100 A            DATA     X'340100'         DATA EXPECTED
     7762                            *
     7763   01 02653    6AC0263B     T5560B   BAL,R12  T5520D            SET SINGLE PHASE & ISSUE TIO
     7764   01 02654    22801800 A            LI,R8    X'1800'
     7765   01 02655    ED801298              WD,R8    *GP08             GIVE SINGLE PHASE CLOCK
     7766   01 02656    68002643              B        T5520F            RD DISPLAY & COMPARE WITH EXPECTED
     7767                            *
     7768                            *                                  TIO PHASING - PHASE 10
     7769   01 02657    557001C5 A   T5570    GEN,16,10,6    X'5570',7,T5580-%
     7770   01 02658    6AF02653              BAL,R15  T5560B            GO TO PHASE CHECK SUBROUTINE
     7771   01 02659    00009609 A            DATA     X'9609'           SNAP SET UP
     7772   01 0265A    22300020 A            DATA     X'22300020'       UNIT MASK
     7773   01 0265B    22200000 A            DATA     X'22200000'       DATA EXPECTED
     7774                            *
     7775                            *                                  TIO PHASING - PHASE 10
     7776   01 0265C    558001C5 A   T5580    GEN,16,10,6    X'5580',7,T5590-%
     7777   01 0265D    6AF02653              BAL,R15  T5560B            GO TO PHASE CHECK SUBROUTINE
     7778   01 0265E    0000960F A            DATA     X'960F'           SNAP SET UP
     7779   01 0265F    000000FF A            DATA     X'000000FF'       UNIT MASK
     7780   01 02660    00000041 A            DATA     X'00000041'       DATA EXPECTED
     7781                            *
     7782                            *                                  TIO PHASING - PHASE 11
     7783   01 02661    559001CE A   T5590    GEN,16,10,6    X'5590',7,T5600-%
     7784   01 02662    6AF02666              BAL,R15  T5590B            GO TO PHASE CHECK SUBROUTINE
     7785   01 02663    00009608 A            DATA     X'9608'           SNAP SET UP
     7786   01 02664    FFFC0F00 A            DATA     X'FFFC0F00'       UNIT MASK
     7787   01 02665    001C0000 A            DATA     X'1C0000'         DATA EXPECTED
     7788                            *
     7789   01 02666    331013B4     T5590B   MTW,1    WDTIND            EXPECTED WDT
     7790   01 02667    22801800 A            LI,R8    X'1800'
     7791   01 02668    ED801298              WD,R8    *GP08
     7792   01 02669    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     7793   01 0266A    CD001314              TIO,R0   *IOPMSADR
     7794   01 0266B    ED801298              WD,R8    *GP08             SINGLE PHASE CLOCK
     7795   01 0266C    25900220 A            SCS,R9   32                DELAY
     7796   01 0266D    ED801298              WD,R8    *GP08             SINGLE PHASE CLOCK
     7797   01 0266E    68002643              B        T5520F            RD DISPLAY AND COMPARE WITH EXPECT.
     7798                            *
     7799                            *                                  TIO PHASING - PHASE 11
     7800   01 0266F    560001C5 A   T5600    GEN,16,10,6    X'5600',7,T5610-%
     7801   01 02670    6AF02666              BAL,R15  T5590B            GO TO PHASE CHECK SUBROUTINE
     7802   01 02671    00005609 A            DATA     X'5609'           SNAP SET UP
     7803   01 02672    00000000 A            DATA     0                 UNIT MASK
     7804   01 02673    00000000 A            DATA     0                 CC
     7805                            *
     7806                            *                                  TIO PHASING - PHASE 11
     7807   01 02674    561001CF A   T5610    GEN,16,10,6    X'5610',7,T5620-%
     7808   01 02675    331013B4              MTW,1    WDTIND            SET EXPECTED WDT INDICATOR
     7809   01 02676    22801800 A            LI,R8    X'1800'
     7810   01 02677    ED801298              WD,R8    *GP08             STEP PHASE
     7811   01 02678    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     7812   01 02679    CD001314              TIO,R0   *IOPMSADR         TIO
     7813   01 0267A    ED801298              WD,R8    *GP08             SET PHASE AGAIN
     7814   01 0267B    25900220 A            SCS,R9   32                DELAY
     7815   01 0267C    ED801298              WD,R8    *GP08             STEP PHASE
     7816   01 0267D    25900220 A            SCS,R9   32                DELAY
     7817   01 0267E    ED801298              WD,R8    *GP08             STEP PHASE
     7818   01 0267F    22800000 A            LI,R8    0                 COMPARE IMAGE
     7819   01 02680    EC901299              RD,R9    *GP09             READ DISPLAY GROUP
     7820   01 02681    4B90362B              AND,R9   =X'2200002E'      MASK
     7821   01 02682    68001AC6              B        CREQUAL
     7822         01 02683           T5620    EQU      %
     7823                            *
     7824                            *                                  PHASE TEST VIA RIO INSTRUCTION
     7825   01 02683    659001CA A   T6590    GEN,16,10,6    X'6590',7,T6600-%   CONTROL WORD
     7826   01 02684    6AC01C4C              BAL,R12  STOPIODV          PREVENT TST & COM CHAN. CONFLICT
     7827   01 02685    32601312              LW,R6    IOPNO             IOP NUMBER
     7828   01 02686    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     7829   01 02687    6AF013FE              BAL,R15  GENRIO6           ISSUE GENERAL RESET             *G02
     7830   01 02688    228FFFF6 A            LI,R8    -10               DELAY ABOUT 10 USEC
     7831   01 02689    65802689              BIR,R8   %
     7832   01 0268A    358012E6              STW,R8   DCOFFA            RESET DC OFF INDICATOR
     7833   01 0268B    35801332              STW,R8   NDCDLY            ALSO RESET DC DELAY
     7834   01 0268C    680014D4              B        GOOD              NO WATCHDOG TIME OUT
     7835                            *
     7836                            *                                  FUNCTION TEST, HIO
     7837   01 0268D    660001CA A   T6600    GEN,16,10,6    X'6600',7,T6610-%   CONTROL WORD
     7838   01 0268E    2280466F A            LI,R8    X'466F'           MS SNAP & COUNT BIT
     7839   01 0268F    308012C8              AW,R8    CHBCTRL           CHANNEL B GROUP CONTROL
     7840   01 02690    ED801298              WD,R8    *GP08             SET SNAP FOR 4TH PHASE
     7841   01 02691    6AF016D0              BAL,15   PREPHS02          SINGLE PHASE OR GIVE SYNC
     7842   01 02692    CF001314              HIO,R0   *IOPMSADR         HIO
     7843   01 02693    EC901294              RD,R9    *DISPLAY          READ MS INDICATORS
     7844   01 02694    4B90362C              AND,R9   =X'F8'            MASK
     7845   01 02695    22800010 A            LI,R8    X'10'             GOOD DATA
     7846   01 02696    68001AC6              B        CREQUAL           VERIFY
     7847                            *
     7848                            *                                  FUNCTION TEST, TIO
     7849   01 02697    661001CA A   T6610    GEN,16,10,6    X'6610',7,T6614-%   CONTROL WORD
     7850   01 02698    2280466F A            LI,R8    X'466F'           MS SNAP & COUNT BIT
     7851   01 02699    308012C8              AW,R8    CHBCTRL           CHANNEL B GROUP CONTROL
     7852   01 0269A    ED801298              WD,R8    *GP08             SET SNAP FOR 4TH PHASE
     7853   01 0269B    6AF016CB              BAL,15   PREPHS01          SINGLE PHASE OR GIVE SYNC
     7854   01 0269C    CD001314              TIO,R0   *IOPMSADR         TIO
     7855   01 0269D    EC901294              RD,R9    *DISPLAY
     7856   01 0269E    22800040 A            LI,R8    X'40'
     7857   01 0269F    4B90362C              AND,R9   =X'F8'            MASK
     7858   01 026A0    68001AC6              B        CREQUAL           VERIFY TIO INDICATOR BIT
     7859                            *
     7860                            *                                  FUNCTION TEST, TDV
     7861   01 026A1    661401CA A   T6614    GEN,16,10,6    X'6614',7,T6616-%   CONTROL WORD
     7862   01 026A2    2280466F A            LI,R8    X'466F'           MS SNAP & COUNT BIT
     7863   01 026A3    308012C8              AW,R8    CHBCTRL           CHANNEL B GROUP CONTROL
     7864   01 026A4    ED801298              WD,R8    *GP08             SET SNAP FOR 4TH PHASE
     7865   01 026A5    6AF016F4              BAL,15   PREPHS06          SINGLE PHASE OR GIVE SYNC
     7866   01 026A6    CE001314              TDV,R0   *IOPMSADR         TDV
     7867   01 026A7    EC901294              RD,R9    *DISPLAY          READ MS INDICATORS
     7868   01 026A8    4B90362C              AND,R9   =X'F8'            MASK
     7869   01 026A9    22800020 A            LI,R8    X'20'             GOOD DATA
     7870   01 026AA    68001AC6              B        CREQUAL           VERIFY
     7871                            *
     7872                            *                                  FUNCTION TEST, SIO
     7873   01 026AB    661601CB A   T6616    GEN,16,10,6    X'6616',7,T6620-%   CONTROL WORD
     7874   01 026AC    2280768F A            LI,R8    X'768F'           MS SNAP & COUNT BIT,SINGLE SERVICE
     7875   01 026AD    308012C8              AW,R8    CHBCTRL           CHANNEL B GROUP CONTROL
     7876   01 026AE    ED801298              WD,R8    *GP08             SET SNAP FOR 4TH PHASE
     7877   01 026AF    22000900              LI,R0    DA(CMDT1)         COMMAND ADDRESS
     7878   01 026B0    6AF016C2              BAL,15   PREPHS00          SINGLE PHASE OR GIVE SYNC
     7879   01 026B1    CC001314              SIO,R0   *IOPMSADR         SIO
     7880   01 026B2    EC901294              RD,R9    *DISPLAY
     7881   01 026B3    22800080 A            LI,R8    X'80'
     7882   01 026B4    4B90362C              AND,R9   =X'F8'            MASK
     7883   01 026B5    68001AC6              B        CREQUAL           VERIFY TIO INDICATOR BIT
     7884                            *
     7885                            *                                  HIO TEST
     7886   01 026B6    662001C9 A   T6620    GEN,16,10,6    X'6620',7,T6630-%   CONTROL WORD
     7887   01 026B7    32B01314              LW,R11   IOPMSADR          SUBCHANNEL ADDRESS
     7888   01 026B8    6AF01C67              BAL,R15  SUBCHADR
     7889   01 026B9    49A03515              OR,R10   =X'80000000'
     7890   01 026BA    EDA01299              WD,R10   *GP09             WRITE SUBCHANNEL
     7891   01 026BB    228FFFFF A            LI,R8    -1
     7892   01 026BC    6AF016D0              BAL,15   PREPHS02          SINGLE PHASE OR GIVE SYNC
     7893   01 026BD    CF201314              HIO,R2   *IOPMSADR         HIO
     7894   01 026BE    680026C8              B        T6630B                                            *G02
     7895                            *
     7896                            *                                  TIO TEST
     7897   01 026BF    663001CD A   T6630    GEN,16,10,6    X'6630',7,T6635-%   CONTROL WORD
     7898   01 026C0    32B01314              LW,R11   IOPMSADR          SUBCHANNEL ADDRESS
     7899   01 026C1    6AF01C67              BAL,R15  SUBCHADR
     7900   01 026C2    49A03515              OR,R10   =X'80000000'
     7901   01 026C3    EDA01299              WD,R10   *GP09             WRITE SUBCHANNEL
     7902   01 026C4    228FFFFF A            LI,R8    -1
     7903   01 026C5    35800020 A            STW,R8   X'20'
     7904   01 026C6    6AF016CB              BAL,15   PREPHS01          SINGLE PHASE OR GIVE SYNC
     7905   01 026C7    CD201314              TIO,R2   *IOPMSADR         TEST

     7907   01 026C8    22800000 A   T6630B   LI,R8    0                 SET COMPARISON DATA             *G02

     7909   01 026C9    32900020 A   T6630C   LW,R9    X'20'             FETCH LOCATION 20               *G02
     7910   01 026CA    4B90362D              AND,R9   =X'FFE00000'       AND MASK STATUS                *G02
     7911   01 026CB    68001AC6              B        CREQUAL                                           *G02
     7912                            *
     7913                            *                                  TDV TEST
     7914   01 026CC    663501CA A   T6635    GEN,16,10,6    X'6635',7,T6640-%   CONTROL WORD
     7915   01 026CD    32B01314              LW,R11   IOPMSADR          SUBCHANNEL ADDRESS
     7916   01 026CE    6AF01C67              BAL,R15  SUBCHADR
     7917   01 026CF    49A03515              OR,R10   =X'80000000'
     7918   01 026D0    EDA01299              WD,R10   *GP09             WRITE SUBCHANNEL
     7919   01 026D1    228FFFFF A            LI,R8    -1
     7920   01 026D2    35800020 A            STW,R8   X'20'
     7921   01 026D3    6AF016F4              BAL,R15  PREPHS06          SINGLE PHASE OR GIVE SYNC
     7922   01 026D4    CE201314              TDV,R2   *IOPMSADR         TEST DEVICE
     7923   01 026D5    680026C8              B        T6630B                                            *G02
     7924                            *
     7925                            *                                  SIO TEST
     7926   01 026D6    664001D0 A   T6640    GEN,16,10,6    X'6640',7,T6650-%   CONTROL WORD
     7927   01 026D7    32801329              LW,R8    MSA               MS ADDRESS
     7928   01 026D8    25800010 A            SLS,R8   16                POSITION ADDRESS BITS
     7929   01 026D9    4980362E              OR,R8    =X'1000'          INHIBIT SERVICE CALL BIT
     7930   01 026DA    ED80129D              WD,R8    *GP13
     7931   01 026DB    32B01314              LW,R11   IOPMSADR          FORCE CCF BIT ON IN
     7932   01 026DC    6AF01C67              BAL,R15  SUBCHADR           THE APPROPRIATE SUBCHANNEL
     7933   01 026DD    49A0362F              OR,R10   =X'80000002'
     7934   01 026DE    EDA01299              WD,R10   *GP09             WRITE BITS INTO SUBCHANNEL
     7935   01 026DF    228FFFFF A            LI,R8    -1
     7936   01 026E0    35800020 A            STW,R8   X'20'             CLEAR STATUS REGISTER
     7937   01 026E1    2200090A              LI,R0    DA(CMDT11)        COMMAND DOUBLE WORD-- ONE BYTE
     7938   01 026E2    6AF016C2              BAL,15   PREPHS00          SINGLE PHASE OR GIVE SYNC
     7939   01 026E3    CC201314              SIO,R2   *IOPMSADR         RESPONSE TO ODD REGISTER
     7940   01 026E4    32803630              LW,R8    =X'20000000'      COMPARE IMAGE
     7941   01 026E5    680026C9              B        T6630C                                            *G02
     7942                            *
     7943                            *                                  FUNCTION RESPONSE, FR0-7 = 0
     7944   01 026E6    665001C8 A   T6650    GEN,16,10,6    X'6650',7,T6660-%   CONTROL WORD
     7945   01 026E7    32803525              LW,R8    =X'1000000'       MS ADR PARITY, DATA 0-7 = 0
     7946   01 026E8    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA 0-7)
     7947   01 026E9    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     7948   01 026EA    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     7949   01 026EB    4B8034F3              AND,R8   =X'FF'
     7950   01 026EC    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     7951   01 026ED    68001AC6              B        CREQUAL
     7952                            *
     7953                            *                                  FUNCTION RESPONSE, FR 0
     7954   01 026EE    666001C8 A   T6660    GEN,16,10,6    X'6660',7,T6670-%   CONTROL WORD
     7955   01 026EF    32803631              LW,R8    =X'1000080'       MS ADR PARITY, DATA BIT 0
     7956   01 026F0    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     7957   01 026F1    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     7958   01 026F2    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     7959   01 026F3    4B8034F3              AND,R8   =X'FF'
     7960   01 026F4    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     7961   01 026F5    68001AC6              B        CREQUAL
     7962                            *
     7963                            *                                  FUNCTION RESPONSE, FR1
     7964   01 026F6    667001C8 A   T6670    GEN,16,10,6    X'6670',7,T6680-%   CONTROL WORD
     7965   01 026F7    32803632              LW,R8    =X'1000040'       MS ADR PARITY, DATA BIT 1
     7966   01 026F8    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     7967   01 026F9    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     7968   01 026FA    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     7969   01 026FB    4B8034F3              AND,R8   =X'FF'
     7970   01 026FC    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     7971   01 026FD    68001AC6              B        CREQUAL
     7972                            *
     7973                            *                                  FUNCTION RESPONSE, FR 2
     7974   01 026FE    668001C8 A   T6680    GEN,16,10,6    X'6680',7,T6690-%   CONTROL WORD
     7975   01 026FF    32803633              LW,R8    =X'1000020'       MS ADR PARITY, DATA BIT 2
     7976   01 02700    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     7977   01 02701    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     7978   01 02702    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     7979   01 02703    4B8034F3              AND,R8   =X'FF'
     7980   01 02704    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     7981   01 02705    68001AC6              B        CREQUAL
     7982                            *
     7983                            *                                  FUNCTION RESPONSE, FR 3
     7984   01 02706    669001C8 A   T6690    GEN,16,10,6    X'6690',7,T6700-%   CONTROL WORD
     7985   01 02707    32803634              LW,R8    =X'1000010'       MS ADR PARITY, DATA BIT 3
     7986   01 02708    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     7987   01 02709    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     7988   01 0270A    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     7989   01 0270B    4B8034F3              AND,R8   =X'FF'
     7990   01 0270C    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     7991   01 0270D    68001AC6              B        CREQUAL
     7992                            *
     7993                            *                                  FUNCTION RESPONSE, FR 4
     7994   01 0270E    670001C8 A   T6700    GEN,16,10,6    X'6700',7,T6710-%   CONTROL WORD
     7995   01 0270F    32803635              LW,R8    =X'1000008'       MS ADR PARITY, DATA BIT 4
     7996   01 02710    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A)
     7997   01 02711    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     7998   01 02712    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     7999   01 02713    4B8034F3              AND,R8   =X'FF'
     8000   01 02714    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8001   01 02715    68001AC6              B        CREQUAL
     8002                            *
     8003                            *                                  FUNCTION RESPONSE, FR 5
     8004   01 02716    671001C8 A   T6710    GEN,16,10,6    X'6710',7,T6720-%   CONTROL WORD
     8005   01 02717    32803636              LW,R8    =X'1000004'       MS ADR PARITY, DATA BIT 5
     8006   01 02718    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     8007   01 02719    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8008   01 0271A    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     8009   01 0271B    4B8034F3              AND,R8   =X'FF'
     8010   01 0271C    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8011   01 0271D    68001AC6              B        CREQUAL
     8012                            *
     8013                            *                                  FUNCTION RESPONSE, FR 6
     8014   01 0271E    672001C8 A   T6720    GEN,16,10,6    X'6720',7,T6730-%   CONTROL WORD
     8015   01 0271F    32803637              LW,R8    =X'1000002'       MS ADR PARITY, DATA BIT 6
     8016   01 02720    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A)
     8017   01 02721    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8018   01 02722    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     8019   01 02723    4B8034F3              AND,R8   =X'FF'
     8020   01 02724    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8021   01 02725    68001AC6              B        CREQUAL
     8022                            *
     8023                            *                                  FUNCTION RESPONSE, FR 7
     8024   01 02726    673001C8 A   T6730    GEN,16,10,6    X'6730',7,T6740-%   CONTROL WORD
     8025   01 02727    32803638              LW,R8    =X'1000001'       MS ADR PARITY, DATA BIT 7
     8026   01 02728    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A)
     8027   01 02729    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8028   01 0272A    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     8029   01 0272B    4B8034F3              AND,R8   =X'FF'
     8030   01 0272C    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8031   01 0272D    68001AC6              B        CREQUAL
     8032                            *
     8033                            *                                  FUNCTION RESPONSE, FR0-7 = X'FF'
     8034   01 0272E    674001C8 A   T6740    GEN,16,10,6    X'6740',7,T6742-%   CONTROL WORD
     8035   01 0272F    32803639              LW,R8    =X'10000FF'       MS ADR PARITY, DATA BITS 0-7 = X'FF'
     8036   01 02730    ED80129D              WD,R8    *GP13             SET DA0-7 VIA MS CONTROL GROUP
     8037   01 02731    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8038   01 02732    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     8039   01 02733    4B8034F3              AND,R8   =X'FF'
     8040   01 02734    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS RESPONSE
     8041   01 02735    68001AC6              B        CREQUAL           NO
     8042                            *
     8043                            *                                  FUNCTION RESPONSE, FR0-7 = X'55'
     8044   01 02736    674201C8 A   T6742    GEN,16,10,6    X'6742',7,T6744-%   CONTROL WORD
     8045   01 02737    3280363A              LW,R8    =X'1000055'       MS ADR PARITY, DATA BITS 0-7 = X'55'
     8046   01 02738    ED80129D              WD,R8    *GP13             SET DA0-7 VIA MS CONTROL GROUP
     8047   01 02739    6AF016CB              BAL,R15  PREPHS01
     8048   01 0273A    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     8049   01 0273B    4B8034F3              AND,R8   =X'FF'
     8050   01 0273C    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS RESPONSE
     8051   01 0273D    68001AC6              B        CREQUAL           NO
     8052                            *
     8053                            *                                  FUNCTION RESPONSE, FR0-7 = X'AA'
     8054   01 0273E    674401C8 A   T6744    GEN,16,10,6    X'6744',7,T6748-%   CONTROL WORD
     8055   01 0273F    3280363B              LW,R8    =X'10000AA'       MS ADR PARITY, DATA BITS 0-7 = X'AA'
     8056   01 02740    ED80129D              WD,R8    *GP13             SET DA0-7 VIA MS CONTROL GROUP
     8057   01 02741    6AF016CB              BAL,R15  PREPHS01          SYNC
     8058   01 02742    CD201312              TIO,R2   *IOPNO            CURRENT IOP, MS = 0
     8059   01 02743    4B8034F3              AND,R8   =X'FF'            MASK
     8060   01 02744    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS RESPONSE
     8061   01 02745    68001AC6              B        CREQUAL           NO
     8062                            *
     8063                            *                                  DEVICE ADDRESS RECOGNITION, BITS 0-7
     8064   01 02746    674800C7 A   T6748    GEN,16,10,6    X'6748',3,T6750-%   CONTROL WORD
     8065   01 02747    32803525              LW,R8    =X'1000000'       DEVICE ADR WITH PARITY
     8066   01 02748    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8067   01 02749    49801312              OR,R8    IOPNO
     8068   01 0274A    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8069   01 0274B    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8070   01 0274C    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2 = 0
     8071                            *
     8072                            *                                  DEVICE ADDRESS RECOGNITION, BIT 0
     8073   01 0274D    675000C8 A   T6750    GEN,16,10,6    X'6750',3,T6760-%   CONTROL WORD
     8074   01 0274E    32803524              LW,R8    =X'800000'        DEVICE ADDRESS
     8075   01 0274F    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8076   01 02750    25800070 A            SLS,R8   -16
     8077   01 02751    49801312              OR,R8    IOPNO
     8078   01 02752    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8079   01 02753    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8080   01 02754    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8081                            *
     8082                            *                                  DEVICE ADDRESS RECOGNITION, BIT 1
     8083                            *                                    (CHANNEL A ONLY)
     8084   01 02755    67600048 A   T6760    GEN,16,10,6    X'6760',1,T6770-%   CONTROL WORD
     8085   01 02756    328034ED              LW,R8    =X'400000'        DEVICE RECOGNITION
     8086   01 02757    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8087   01 02758    25800070 A            SLS,R8   -16
     8088   01 02759    49801312              OR,R8    IOPNO
     8089   01 0275A    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8090   01 0275B    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8091   01 0275C    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8092                            *
     8093                            *                                  DEVICE ADDRESS RECOGNITION, BIT 2
     8094                            *                                    (CHANNEL A ONLY)
     8095   01 0275D    67700048 A   T6770    GEN,16,10,6    X'6770',1,T6780-%   CONTROL WORD
     8096   01 0275E    3280363C              LW,R8    =X'200000'        DEVICE ADDRESS
     8097   01 0275F    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8098   01 02760    25800070 A            SLS,R8   -16
     8099   01 02761    49801312              OR,R8    IOPNO
     8100   01 02762    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8101   01 02763    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8102   01 02764    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8103                            *
     8104                            *                                  DEVICE ADDRESS RECOGNITION, BIT 3
     8105                            *                                    (CHANNEL A ONLY)
     8106   01 02765    67800048 A   T6780    GEN,16,10,6    X'6780',1,T6790-%   CONTROL WORD
     8107   01 02766    328034EC              LW,R8    =X'100000'        DEVICE ADDRESS
     8108   01 02767    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8109   01 02768    25800070 A            SLS,R8   -16
     8110   01 02769    49801312              OR,R8    IOPNO
     8111   01 0276A    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8112   01 0276B    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8113   01 0276C    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8114                            *
     8115                            *                                  DEVICE ADDRESS RECOGNITION, BIT 4
     8116                            *                                    (CHANNEL A ONLY)
     8117   01 0276D    67900048 A   T6790    GEN,16,10,6    X'6790',1,T6800-%   CONTROL WORD
     8118   01 0276E    32803527              LW,R8    =X'80000'         DEVICE ADDRESS
     8119   01 0276F    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8120   01 02770    25800070 A            SLS,R8   -16
     8121   01 02771    49801312              OR,R8    IOPNO
     8122   01 02772    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8123   01 02773    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8124   01 02774    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8125                            *
     8126                            *                                  DEVICE ADDRESS RECOGNITION, BIT 5
     8127   01 02775    680000C8 A   T6800    GEN,16,10,6    X'6800',3,T6810-%   CONTROL WORD
     8128   01 02776    3280363D              LW,R8    =X'40000'         DEVICE ADDRESS
     8129   01 02777    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8130   01 02778    25800070 A            SLS,R8   -16
     8131   01 02779    49801312              OR,R8    IOPNO
     8132   01 0277A    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8133   01 0277B    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8134   01 0277C    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8135                            *
     8136                            *                                  DEVICE ADDRESS RECOGNITION, BIT 6
     8137   01 0277D    681000C8 A   T6810    GEN,16,10,6    X'6810',3,T6820-%   CONTROL WORD
     8138   01 0277E    22820000 A            LI,R8    X'20000'          DEVICE ADDRESS
     8139   01 0277F    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8140   01 02780    25800070 A            SLS,R8   -16
     8141   01 02781    49801312              OR,R8    IOPNO
     8142   01 02782    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8143   01 02783    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8144   01 02784    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8145                            *
     8146                            *                                  DEVICE ADDRESS RECOGNITION, BIT 7
     8147   01 02785    682000C8 A   T6820    GEN,16,10,6    X'6820',3,T6830-%   CONTROL WORD
     8148   01 02786    22810000 A            LI,R8    X'10000'          DEVICE ADDRESS
     8149   01 02787    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8150   01 02788    25800070 A            SLS,R8   -16
     8151   01 02789    49801312              OR,R8    IOPNO
     8152   01 0278A    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8153   01 0278B    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8154   01 0278C    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8155                            *
     8156                            *                                  DEVICE ADDRESS RECOGNITION, X'55' PAT.
     8157   01 0278D    683000C8 A   T6830    GEN,16,10,6    X'6830',3,T6834-%   CONTROL WORD
     8158   01 0278E    3280363E              LW,R8    =X'1550000'       DEVICE ADR WITH PARITY
     8159   01 0278F    ED80129D              WD,R8    *GP13
     8160   01 02790    22800055 A            LI,R8    X'55'             COMPARE ADDRESS
     8161   01 02791    49801312              OR,R8    IOPNO
     8162   01 02792    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8163   01 02793    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8164   01 02794    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8165                            *
     8166                            *                                   DEVICE ADDRESS RECOGNITION,X'AA' PAT.
     8167   01 02795    683400C8 A   T6834    GEN,16,10,6    X'6834',3,T6840-%   CONTROL WORD
     8168   01 02796    3280363F              LW,R8    =X'1AA0000'       DEVICE ADR WITH PARITY
     8169   01 02797    ED80129D              WD,R8    *GP13
     8170   01 02798    228000AA A            LI,R8    X'AA'             COMPARE ADDRESS
     8171   01 02799    49801312              OR,R8    IOPNO
     8172   01 0279A    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8173   01 0279B    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8174   01 0279C    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2=0
     8175                            *
     8176                            *                                  DEVICE ADDRESS RECOGNITION, ALL 1'S
     8177   01 0279D    684000C8 A   T6840    GEN,16,10,6    X'6840',3,T6850-%   CONTROL WORD
     8178   01 0279E    32803640              LW,R8    =X'FF0000'        DEVICE ADR WITH PARITY
     8179   01 0279F    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8180   01 027A0    228000FF A            LI,R8    X'FF'             COMPARE ADDRESS
     8181   01 027A1    49801312              OR,R8    IOPNO
     8182   01 027A2    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8183   01 027A3    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8184   01 027A4    68001A15              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8185                            *
     8186                            *                                  DEVICE ADDRESS NOT RECOGNITIZED (0'S)
     8187   01 027A5    685000C8 A   T6850    GEN,16,10,6    X'6850',3,T6860-%   CONTROL WORD
     8188   01 027A6    32803525              LW,R8    =X'1000000'       DEVICE ADDRESS WITH PARITY
     8189   01 027A7    ED80129D              WD,R8    *GP13             SET ADDRESS
     8190   01 027A8    2280007F A            LI,R8    X'7F'
     8191   01 027A9    49801312              OR,R8    IOPNO
     8192   01 027AA    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8193   01 027AB    CD000008 A            TIO,R0   *R8               TEST
     8194   01 027AC    68001A13              B        CC2
     8195                            *
     8196                            *                                  RIO TEST,
     8197   01 027AD    686001CB A   T6860    GEN,16,10,6    X'6860',7,T6870-%   CONTROL WORD
     8198   01 027AE    6AC01C4C              BAL,R12  STOPIODV          PREVENT TST & COM CHAN. CONFLICT
     8199   01 027AF    32601314              LW,R6    IOPMSADR
     8200   01 027B0    6AF013FE              BAL,R15  GENRIO6           ISSUE GENERAL RESET             *G02
     8201   01 027B1    22000000 A            LI,R0    0
     8202   01 027B2    350012E6              STW,R0   DCOFFA
     8203   01 027B3    35001332              STW,R0   NDCDLY                                            *G02
     8204   01 027B4    32803641              LW,R8    =X'C0A20000'      MASK
     8205   01 027B5    EC901295              RD,R9    *GP01             READ GROUP
     8206   01 027B6    4B90350D              AND,R9   =X'FFFF0000'      SHOULD BE ALL ZEROS
     8207   01 027B7    68001AC6              B        CREQUAL
     8208                            *
     8209                            *                                  POLP TEST, CONDITION CODES
     8210   01 027B8    687000C5 A   T6870    GEN,16,10,6    X'6870',3,T6880-%   CONTROL WORD
     8211   01 027B9    32601312              LW,R6    IOPNO
     8212   01 027BA    4F8C8000 A            POLP,R8  0,X6              POLL PROCESSOR
     8213   01 027BB    69C01411              BCS,12   BAD               CC 1 & 2 =0
     8214   01 027BC    680014D4              B        GOOD              YES
     8215                            *
     8216                            *                                  POLP TEST,STATUS RESPONSE
     8217   01 027BD    688001C6 A   T6880    GEN,16,10,6    X'6880',7,T6890-%   CONTROL WORD
     8218   01 027BE    32601312              LW,R6    IOPNO
     8219   01 027BF    4F9C8000 A            POLP,R9  0,X6              POLL PROCESSOR
     8220   01 027C0    22800000 A            LI,R8    0
     8221   01 027C1    21900000 A            CI,R9    0                 STATUS BITS 24-29 SHOULD BE OFF
     8222   01 027C2    68001AC7              B        EQUAL
     8223                            *
     8224                            *                                  POLR TEST, CONDITION CODES
     8225   01 027C3    689000C5 A   T6890    GEN,16,10,6    X'6890',3,T6900-%   CONTROL WORD
     8226   01 027C4    32601312              LW,R6    IOPNO
     8227   01 027C5    4F8CC000 A            POLR,R8  0,X6              POLL PROCESSOR & RESET
     8228   01 027C6    69C01411              BCS,12   BAD               CC 1 & 2 =0
     8229   01 027C7    680014D4              B        GOOD              YES
     8230                            *
     8231                            *                                  POLR TEST, STATUS RESPONSE
     8232   01 027C8    690001C6 A   T6900    GEN,16,10,6    X'6900',7,T6910-%   CONTROL WORD
     8233   01 027C9    32601312              LW,R6    IOPNO
     8234   01 027CA    4F9CC000 A            POLR,R9  0,X6              POLL PROCESSOR & RESET
     8235   01 027CB    22800000 A            LI,R8    0
     8236   01 027CC    21900000 A            CI,R9    0                 STATUS BITS 24-29 SHOULD BE OFF
     8237   01 027CD    68001AC7              B        EQUAL
     8238                            *
     8239                            *                                  POLR TEST, RESET CONDITION
     8240   01 027CE    691001C7 A   T6910    GEN,16,10,6    X'6910',7,T6920-%   CONTROL WORD
     8241   01 027CF    32601312              LW,R6    IOPNO
     8242   01 027D0    4F0CC000 A            POLR,R0  0,X6              POLL PROCESSOR & RESET
     8243   01 027D1    EC901296              RD,R9    *GP02             READ MPXC DISPLAY GROUP
     8244   01 027D2    22800000 A            LI,R8    0                 COMPARE IMAGE
     8245   01 027D3    4B903502              AND,R9   =X'80'            IGNORE DON'T CARES
     8246   01 027D4    68001AC7              B        EQUAL             VERIFY
     8247                            *
     8248                            *                                  SERVICE CALL
     8249   01 027D5    692001CE A   T6920    GEN,16,10,6    X'6920',7,T6930-%   CONTROL WORD
     8250   01 027D6    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     8251   01 027D7    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8252   01 027D8    ED801298              WD,R8    *GP08             SET SNAP
     8253   01 027D9    22000900              LI,R0    DA(CMDT1)         COMMAND ADDRESS
     8254   01 027DA    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8255   01 027DB    CC001314              SIO,R0   *IOPMSADR         START
     8256   01 027DC    22809E09 A            LI,R8    X'9E09'           SINGLE PHASE & ORDER
     8257   01 027DD    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8258   01 027DE    ED801298              WD,R8    *GP08
     8259   01 027DF    328034F8              LW,R8    =X'4000000'
     8260   01 027E0    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY, GROUP 9
     8261   01 027E1    4B9034F8              AND,R9   =X'4000000'       SAVE "SC" BIT
     8262   01 027E2    68001A17              B        CC3
     8263                            *
     8264                            *                                  ACKNOWLEDGE SERVICE CALL
     8265   01 027E3    693001CE A   T6930    GEN,16,10,6    X'6930',7,T6940-%   CONTROL WORD
     8266   01 027E4    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     8267   01 027E5    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8268   01 027E6    ED801298              WD,R8    *GP08             SET SNAP
     8269   01 027E7    22000900              LI,R0    DA(CMDT1)         COMMAND WORD,READ,BC=1
     8270   01 027E8    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8271   01 027E9    CC001314              SIO,R0   *IOPMSADR         START
     8272   01 027EA    22809E0F A            LI,R8    X'9E0F'           SNAP AT T100B IN PHI FOR ASC
     8273   01 027EB    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8274   01 027EC    ED801298              WD,R8    *GP08
     8275   01 027ED    22800004 A            LI,R8    4
     8276   01 027EE    EC901294              RD,R9    *DISPLAY          MS DISPLAY GROUP 15 FOR ASC
     8277   01 027EF    4B9034F5              AND,R9   =4
     8278   01 027F0    68001A17              B        CC3               VERIFY
     8279                            *
     8280                            *                                  CONDITION CODE 1 SET
     8281   01 027F1    694000C5 A   T6940    GEN,16,10,6    X'6940',3,T6950-%   CONTROL WORD
     8282   01 027F2    32801313              LW,R8    IOPMSAP           NOT ADDRESS RECOGNITION
     8283   01 027F3    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8284   01 027F4    CD000008 A            TIO,R0   *R8               TEST CC 1
     8285   01 027F5    68001A0F              B        CC1               SHOULD BE SET
     8286                            *
     8287                            *                                  CONDITION CODE 1 RESET
     8288   01 027F6    695000C4 A   T6950    GEN,16,10,6    X'6950',3,T6960-%   CONTROL WORD
     8289   01 027F7    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8290   01 027F8    CD001314              TIO,R0   *IOPMSADR         TEST CC 1
     8291   01 027F9    68001A11              B        NCC1              SHOULD BE RESET
     8292                            *
     8293                            *                                  CONDITION CODE 2 SET
     8294   01 027FA    696000C5 A   T6960    GEN,16,10,6    X'6960',3,T6970-%   CONTROL WORD
     8295   01 027FB    32801313              LW,R8    IOPMSAP           NOT ADDRESS RECOGNITION
     8296   01 027FC    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR SYNC
     8297   01 027FD    CD000008 A            TIO,R0   *R8               TEST
     8298   01 027FE    68001A13              B        CC2               CC 2 SET
     8299                            *
     8300                            *                                  CONDITION CODE 2 RESET
     8301   01 027FF    697000C4 A   T6970    GEN,16,10,6    X'6970',3,T6980-%   CONTROL WORD
     8302   01 02800    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8303   01 02801    CD001314              TIO,R0   *IOPMSADR         TEST
     8304   01 02802    68001A15              B        NCC2              SHOULD NOT SET
     8305                            *
     8306                            *                                  NOT CONDITION CODE 3
     8307   01 02803    698000C7 A   T6980    GEN,16,10,6    X'6980',3,T6990-%   CONTROL WORD
     8308   01 02804    6AF016CB              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8309   01 02805    CD001313              TIO,R0   *IOPMSAP          TEST

     8311   01 02806    682014D4              BCR,2    GOOD              SKIP IF CC3 RESET               *G02

     8313   01 02807    330013E2              MTW,0    SIGMA7            ELSE CHECK 7-LIKE MIOP          *G02
     8314   01 02808    693014D4              BNEZ     GOOD               RESULT IS GOOD IF 7-LIKE       *G02
     8315   01 02809    68001411              B        BAD                 ELSE RESULT IS REALLY BAD     *G02
     8316                            *
     8317                            *                                  CONDITION CODE 3
     8318   01 0280A    699000D4 A   T6990    GEN,16,10,6    X'6990',3,T7000-%   CONTROL WORD
     8319   01 0280B    22800400 A            LI,R8    X'400'            DISARM MEMORY FAULT
     8320   01 0280C    6D801100 A            WD,R8    DISARM             INTERRUPT
     8321   01 0280D    22901800 A            LI,R9    X'1800'           SINGLE PHASE CONTROL
     8322   01 0280E    ED901298              WD,R9    *GP08
     8323   01 0280F    331013B4              MTW,1    WDTIND            SET WATCHDOG TIMER FOR
     8324   01 02810    CD101314              TIO,R1   *IOPMSADR          LOCAL RETURN
     8325   01 02811    02200020 A            LCI      2                 WDT
     8326   01 02812    2D900020 A            LMS,R9   CELL20            READ AND SET PARITY
     8327   01 02813    22909A09 A            LI,R9    X'9A09'           SNAP TIO PHASE ZERO
     8328   01 02814    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     8329   01 02815    ED901298              WD,R9    *GP08             PH0 OF TIO
     8330   01 02816    ED901298              WD,R9    *GP08             PH10 OF TIO
     8331   01 02817    EC901294              RD,R9    *DISPLAY          READ CHANNEL DISPLAY
     8332   01 02818    4B903642              AND,R9   =X'E'             MASK FOR CC BIT
     8333   01 02819    022000C0 A            LCI      12                RESET MEMORY PARITY
     8334   01 0281A    2D000020 A            LMS,R0   CELL20
     8335   01 0281B    6D801200 A            WD,R8    ARMABLE           ARM MEMORY FAULT
     8336   01 0281C    22800002 A            LI,R8    2
     8337   01 0281D    68001AC6              B        CREQUAL
     8338                            *
     8339                            *                                  FAM DATA PATH VIA INTERNAL IOP REG'S
     8340                            *                                   WRITE FAM DURING INITIAL SIO SERVICE
     8341   01 0281E    700001CD A   T7000    GEN,16,10,6    X'7000',7,T7010-%   CONTROL WORD
     8342   01 0281F    32803643              LW,R8    =X'1001000'       ADR PARITY = 1, MS ADR = 0, INHIBIT SC
     8343   01 02820    ED80129D              WD,R8    *GP13             SERVICE CALL
     8344   01 02821    32903551              LW,R9    =X'80FFFFFF'      ALL ONES TO FAM LOCATION ZERO
     8345   01 02822    ED901299              WD,R9    *GP09             WRITE FAM 0
     8346   01 02823    22000000 A            LI,R0    0                 COMMAND ADDRESS
     8347   01 02824    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8348   01 02825    CC001312              SIO,R0   *IOPNO            I/O.  SERVICE CALL INHIBITED
     8349   01 02826    22800000 A            LI,R8    0                 FAM ADDRESS CONFIGURATION
     8350   01 02827    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8351   01 02828    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8352   01 02829    4B903644              AND,R9   =X'FFFFF8'        MASK HIGH ORDER BITS
     8353   01 0282A    68001AC6              B        CREQUAL           VERIFY
     8354                            *
     8355                            *                                  FAM DATA PATH VIA INTERNAL IOP REG
     8356                            *                                   WRITE FAM DURING INITIAL SIO SERVICE
     8357   01 0282B    701081D1 A   T7010    GEN,16,10,6   X'7010',X'207',T7015-%                       *G02
     8358   01 0282C    32803643              LW,R8    =X'1001000'       ADR PARITY = 1, ADR = 0, INHIBIT SC
     8359   01 0282D    ED80129D              WD,R8    *GP13
     8360   01 0282E    221FFFFE A            LI,R1    -2
     8361   01 0282F    32903551              LW,R9    =X'80FFFFFF'      ALL ONES TO FAM LOCATION ZERO
     8362   01 02830    ED901299              WD,R9    *GP09             WRITE FAM 0
     8363   01 02831    32003645              LW,R0    =X'155555'        COMMAND ADDRESS
     8364   01 02832    6AF01405              BAL,R15  SIGBIT16          TEST FOR SIGMA 7                *G02
     8365   01 02833    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8366   01 02834    CC001312              SIO,R0   *IOPNO            I/O.  SERVICE CALL INHIBITED
     8367   01 02835    22800000 A            LI,R8    0                 FAM ADDRESS CONFIGURATION
     8368   01 02836    ED801299              WD,R8    *GP09             SELECT FAM ADDRESS 0
     8369   01 02837    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8370   01 02838    4B903644              AND,R9   =X'FFFFF8'        MASK HIGH ORDER BITS
     8371   01 02839    32800000 A            LW,R8    R0
     8372   01 0283A    2590007D A            SLS,R9   -3                FORMAT
     8373   01 0283B    68001AC6              B        CREQUAL           VERIFY
     8374                            *
     8375                            *                                   FAM DATA PATH VIA INTERNAL IOP REG
     8376   01 0283C    701581D3 A   T7015    GEN,16,10,6   X'7015',X'207',T7020-%                       *G02
     8377   01 0283D    32803643              LW,R8    =X'1001000'       ADR PARITY = 1, ADR = 0, INHIBIT SC
     8378   01 0283E    ED80129D              WD,R8    *GP13
     8379   01 0283F    221FFFFE A            LI,R1    -2
     8380   01 02840    32903551              LW,R9    =X'80FFFFFF'      ALL ONES TO FAM LOCATION ZERO
     8381   01 02841    ED901299              WD,R9    *GP09             WRITE FAM 0
     8382   01 02842    32003646              LW,R0    =X'AAAAA'         COMMAND ADDRESS
     8383   01 02843    6AF01405              BAL,R15  SIGBIT16          TEST FOR SIGMA 7                *G02
     8384   01 02844    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8385   01 02845    CC001312              SIO,R0   *IOPNO            I/O.  SERVICE CALL INHIBITED
     8386   01 02846    65102846              BIR,R1   %                 DELAY TWO CYCLES
     8387   01 02847    22800000 A            LI,R8    0                 FAM ADDRESS CONFIGURATION
     8388   01 02848    ED801299              WD,R8    *GP09             SELECT FAM ADDRESS
     8389   01 02849    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8390   01 0284A    4B903644              AND,R9   =X'FFFFF8'        MASK HIGH ORDER BITS
     8391   01 0284B    32800000 A            LW,R8    R0
     8392   01 0284C    2590007D A            SLS,R9   -3                FORMAT COMMAND ADDRESS
     8393   01 0284D    68001AC6              B        CREQUAL           VERIFY
     8394   01 0284E    22800002 A            LI,R8    2
     8395                            *
     8396                            *                                  FAM ADDRESS 1 VIA I/O
     8397   01 0284F    702001D3 A   T7020    GEN,16,10,6    X'7020',7,T7030-%   CONTROL WORD
     8398   01 02850    22811000 A            LI,R8    X'11000'          MS ADR=1, INHIBIT SERVICE CALL
     8399   01 02851    ED80129D              WD,R8    *GP13
     8400   01 02852    221FFFFB A            LI,R1    -5                DELAY COUNT
     8401   01 02853    32903574              LW,R9    =X'84000000'      ALL ZEROS TO FAM LOCATION
     8402   01 02854    ED901299              WD,R9    *GP09             WRITE FAM 1
     8403   01 02855    22000001 A            LI,R0    1
     8404   01 02856    22800001 A            LI,R8    1                 ADDRESS OF DEVICE & FAM
     8405   01 02857    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8406   01 02858    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8407   01 02859    CC000008 A            SIO,R0   *R8               I/O
     8408   01 0285A    6510285A              BIR,R1   %                 DELAY 5 CYCLES
     8409   01 0285B    328034F8              LW,R8    =X'4000000'       FAM ADDRESS CONFIGURATION
     8410   01 0285C    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8411   01 0285D    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8412   01 0285E    4B903644              AND,R9   =X'FFFFF8'        READ FAM 1
     8413   01 0285F    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     8414   01 02860    22800001 A            LI,R8    X'1'
     8415   01 02861    68001AC6              B        CREQUAL           VERIFY
     8416                            *
     8417                            *                                  FAM ADDRESS 2 VIA I/O
     8418   01 02862    703001D3 A   T7030    GEN,16,10,6    X'7030',7,T7040-%   CONTROL WORD
     8419   01 02863    22821000 A            LI,R8    X'21000'          MS ADR=2, INHIBIT SERVICE CALL
     8420   01 02864    ED80129D              WD,R8    *GP13
     8421   01 02865    221FFFFB A            LI,R1    -5                DELAY COUNT
     8422   01 02866    32903576              LW,R9    =X'88000000'      ALL ZEROS TO FAM LOCATION
     8423   01 02867    ED901299              WD,R9    *GP09             WRITE FAM 2
     8424   01 02868    22000002 A            LI,R0    2
     8425   01 02869    22800002 A            LI,R8    2                 ADDRESS OF DEVICE & FAM
     8426   01 0286A    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8427   01 0286B    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8428   01 0286C    CC000008 A            SIO,R0   *R8               I/O
     8429   01 0286D    6510286D              BIR,R1   %                 DELAY 5 CYCLES
     8430   01 0286E    32803647              LW,R8    =X'8000000'       FAM ADDRESS CONFIGURATION
     8431   01 0286F    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8432   01 02870    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     8433   01 02871    4B903644              AND,R9   =X'FFFFF8'        READ FAM ZERO
     8434   01 02872    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     8435   01 02873    22800002 A            LI,R8    X'2'
     8436   01 02874    68001AC6              B        CREQUAL           VERIFY
     8437                            *
     8438                            *                                  FAM ADDRESS 4 VIA I/O
     8439   01 02875    704001D3 A   T7040    GEN,16,10,6    X'7040',7,T7050-%   CONTROL WORD
     8440   01 02876    22841000 A            LI,R8    X'41000'          MS ADR=4, INHIBIT SERVICE CALL
     8441   01 02877    ED80129D              WD,R8    *GP13
     8442   01 02878    221FFFFB A            LI,R1    -5                DELAY COUNT
     8443   01 02879    3290357A              LW,R9    =X'90000000'      ALL ZEROS TO FAM LOCATION
     8444   01 0287A    ED901299              WD,R9    *GP09             WRITE FAM4
     8445   01 0287B    22000004 A            LI,R0    4
     8446   01 0287C    22800004 A            LI,R8    4                 ADDRESS OF DEVICE & FAM
     8447   01 0287D    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8448   01 0287E    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8449   01 0287F    CC000008 A            SIO,R0   *R8               I/O
     8450   01 02880    65102880              BIR,R1   %                 DELAY 5 CYCLES
     8451   01 02881    328034F9              LW,R8    =X'10000000'      FAM ADDRESS CONFIGURATION
     8452   01 02882    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8453   01 02883    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     8454   01 02884    4B903644              AND,R9   =X'FFFFF8'        READ FAM ZERO
     8455   01 02885    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     8456   01 02886    22800004 A            LI,R8    4
     8457   01 02887    68001AC6              B        CREQUAL           VERIFY
     8458                            *
     8459                            *                                  FAM ADDRESS 8 VIA I/O
     8460   01 02888    70502153 A   T7050    GEN,16,10,6    X'7050',X'85',T7060-% CONTROL WORD
     8461   01 02889    32803648              LW,R8    =X'81000'         MS ADDRESS = 8, INHIBIT SC
     8462   01 0288A    ED80129D              WD,R8    *GP13
     8463   01 0288B    221FFFFB A            LI,R1    -5                DELAY COUNT
     8464   01 0288C    32903543              LW,R9    =X'A0000000'      ALL ZEROS TO FAM LOCATION
     8465   01 0288D    ED901299              WD,R9    *GP09             WRITE FAM 8
     8466   01 0288E    22000008 A            LI,R0    8
     8467   01 0288F    22800008 A            LI,R8    8                 ADDRESS OF DEVICE & FAM
     8468   01 02890    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8469   01 02891    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8470   01 02892    CC000008 A            SIO,R0   *R8               I/O
     8471   01 02893    65102893              BIR,R1   %                 DELAY 5 CYCLES
     8472   01 02894    32803630              LW,R8    =X'20000000'      FAM ADDRESS CONFIGURATION
     8473   01 02895    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8474   01 02896    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     8475   01 02897    4B903644              AND,R9   =X'FFFFF8'        READ FAM ZERO
     8476   01 02898    2590007D A            SLS,R9   -3                FORMAT
     8477   01 02899    22800008 A            LI,R8    X'8'
     8478   01 0289A    68001AC6              B        CREQUAL           VERIFY
     8479                            *
     8480                            *                                  FAM ADDRESS 10 VIA I/O
     8481   01 0289B    70601153 A   T7060    GEN,16,10,6    X'7060',X'45',T7070-% CONTROL WORD
     8482   01 0289C    32803649              LW,R8    =X'101000'        MS ADR=10 HEX, INHIBIT SC
     8483   01 0289D    ED80129D              WD,R8    *GP13
     8484   01 0289E    221FFFFB A            LI,R1    -5                DELAY COUNT
     8485   01 0289F    3290350B              LW,R9    =X'C0000000'      ALL ZEROS TO FAM LOCATION
     8486   01 028A0    ED901299              WD,R9    *GP09             WRITE FAM 1
     8487   01 028A1    22000010 A            LI,R0    X'10'
     8488   01 028A2    22800010 A            LI,R8    X'10'             ADDRESS OF DEVICE & FAM
     8489   01 028A3    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8490   01 028A4    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8491   01 028A5    CC000008 A            SIO,R0   *R8               I/O
     8492   01 028A6    651028A6              BIR,R1   %                 DELAY 5 CYCLES
     8493   01 028A7    3280351B              LW,R8    =X'40000000'      FAM ADDRESS CONFIGURATION
     8494   01 028A8    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8495   01 028A9    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     8496   01 028AA    4B903644              AND,R9   =X'FFFFF8'        READ FAM ZERO
     8497   01 028AB    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     8498   01 028AC    22800010 A            LI,R8    X'10'
     8499   01 028AD    68001AC6              B        CREQUAL           VERIFY
     8500                            *
     8501                            *                                  FAM ADDRESS 0 VIA MULTI-DEV. I/O
     8502   01 028AE    707001D3 A   T7070    GEN,16,10,6    X'7070',7,T7080-%   CONTROL WORD
     8503   01 028AF    3280364A              LW,R8    =X'801000'        MS ADR=80 HEX, INHIBIT SC
     8504   01 028B0    ED80129D              WD,R8    *GP13
     8505   01 028B1    221FFFFB A            LI,R1    -5                DELAY COUNT
     8506   01 028B2    32903515              LW,R9    =X'80000000'      ALL ZEROS TO FAM LOCATION
     8507   01 028B3    ED901299              WD,R9    *GP09             WRITE FAM 0
     8508   01 028B4    22000080 A            LI,R0    X'80'
     8509   01 028B5    22800080 A            LI,R8    X'80'             ADDRESS OF DEVICE & SUBCHANNEL
     8510   01 028B6    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8511   01 028B7    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8512   01 028B8    CC000008 A            SIO,R0   *R8               I/O
     8513   01 028B9    651028B9              BIR,R1   %                 DELAY 5 CYCLES
     8514   01 028BA    22800000 A            LI,R8    0                 FAM ADDRESS CONFIGURATION
     8515   01 028BB    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8516   01 028BC    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     8517   01 028BD    4B903644              AND,R9   =X'FFFFF8'        READ FAM ZERO
     8518   01 028BE    2590007D A            SLS,R9   -3
     8519   01 028BF    22800080 A            LI,R8    X'80'
     8520   01 028C0    68001AC6              B        CREQUAL           VERIFY
     8521                            *
     8522                            *                                  FAM ADDRESS 1 VIA MULTI-DEV I/O
     8523   01 028C1    708001D3 A   T7080    GEN,16,10,6    X'7080',7,T7090-%   CONTROL WORD
     8524   01 028C2    3280364B              LW,R8    =X'1901000'       MS ADR = X'90', INHIBIT SC, PARITY=1
     8525   01 028C3    ED80129D              WD,R8    *GP13
     8526   01 028C4    221FFFFB A            LI,R1    -5                DELAY COUNT
     8527   01 028C5    32903574              LW,R9    =X'84000000'      ALL ZEROS TO FAM LOCATION
     8528   01 028C6    ED901299              WD,R9    *GP09             WRITE FAM 1
     8529   01 028C7    22000090 A            LI,R0    X'90'
     8530   01 028C8    22800090 A            LI,R8    X'90'             ADDRESS OF DEVICE & FAM
     8531   01 028C9    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8532   01 028CA    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8533   01 028CB    CC000008 A            SIO,R0   *R8               I/O
     8534   01 028CC    651028CC              BIR,R1   %                 DELAY 5 CYCLES
     8535   01 028CD    328034F8              LW,R8    =X'4000000'       FAM ADDRESS CONFIGURATION
     8536   01 028CE    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8537   01 028CF    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     8538   01 028D0    4B903644              AND,R9   =X'FFFFF8'        READ FAM ONE
     8539   01 028D1    2590007D A            SLS,R9   -3
     8540   01 028D2    22800090 A            LI,R8    X'90'
     8541   01 028D3    68001AC6              B        CREQUAL           VERIFY
     8542                            *
     8543                            *                                  FAM ADDRESS 2 VIA MULTI-DEV I/O
     8544   01 028D4    709001D3 A   T7090    GEN,16,10,6    X'7090',7,T7095-%   CONTROL WORD
     8545   01 028D5    3280364C              LW,R8    =X'1A01000'       ADR = X'A0', PARITY = 1, INHIBIT SC
     8546   01 028D6    ED80129D              WD,R8    *GP13
     8547   01 028D7    221FFFFB A            LI,R1    -5                DELAY COUNT
     8548   01 028D8    32903576              LW,R9    =X'88000000'      ALL ZEROS TO FAM LOCATION
     8549   01 028D9    ED901299              WD,R9    *GP09             WRITE FAM 2
     8550   01 028DA    220000A0 A            LI,R0    X'A0'
     8551   01 028DB    228000A0 A            LI,R8    X'A0'             ADDRESS OF DEVICE & FAM
     8552   01 028DC    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8553   01 028DD    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8554   01 028DE    CC000008 A            SIO,R0   *R8               I/O
     8555   01 028DF    651028DF              BIR,R1   %                 DELAY 5 CYCLES
     8556   01 028E0    32803647              LW,R8    =X'8000000'       FAM ADDRESS CONFIGURATION
     8557   01 028E1    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8558   01 028E2    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8559   01 028E3    4B903644              AND,R9   =X'FFFFF8'
     8560   01 028E4    2590007D A            SLS,R9   -3                READ FAM 2
     8561   01 028E5    228000A0 A            LI,R8    X'A0'
     8562   01 028E6    68001AC6              B        CREQUAL           VERIFY
     8563                            *
     8564                            *                                  FAM ADDRESS 4 VIA MULTI-DEV I/O
     8565   01 028E7    709501D3 A   T7095    GEN,16,10,6    X'7095',7,T7100-%   CONTROL WORD
     8566   01 028E8    3280364D              LW,R8    =X'1C01000'       ADR = X'C0', PARITY = 1, INHIBIT SC
     8567   01 028E9    ED80129D              WD,R8    *GP13
     8568   01 028EA    221FFFFB A            LI,R1    -5                DELAY COUNT
     8569   01 028EB    3290357A              LW,R9    =X'90000000'      ALL ZEROS TO FAM LOCATION
     8570   01 028EC    ED901299              WD,R9    *GP09             WRITE FAM 4
     8571   01 028ED    220000C0 A            LI,R0    X'C0'
     8572   01 028EE    228000C0 A            LI,R8    X'C0'             ADDRESS OF DEVICE & FAM
     8573   01 028EF    49801312              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8574   01 028F0    6AF016C2              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8575   01 028F1    CC000008 A            SIO,R0   *R8               I/O
     8576   01 028F2    651028F2              BIR,R1   %                 DELAY 5 CYCLES
     8577   01 028F3    328034F9              LW,R8    =X'10000000'      FAM ADDRESS CONFIGURATION
     8578   01 028F4    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8579   01 028F5    EC90129A              RD,R9    *GP10             READ 'C' REG
     8580   01 028F6    4B903644              AND,R9   =X'FFFFF8'        READ FAM 4
     8581   01 028F7    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     8582   01 028F8    228000C0 A            LI,R8    X'C0'
     8583   01 028F9    68001AC6              B        CREQUAL           VERIFY
     8584                            *
     8585                            *                                  ORDER OUT SERVICE--PHASES & CONTROL
     8586   01 028FA    710001CD A   T7100    GEN,16,10,6    X'7100',7,T7110-%   CONTROL WORD
     8587   01 028FB    2280B608 A            LI,R8    X'B608'           CHANNEL-- SNAPSHOT 2,SINGLE SER-
     8588   01 028FC    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8589   01 028FD    ED801298              WD,R8    *GP08              VICE & STEP, SNAP
     8590   01 028FE    22000901              LI,R0    DA(CMDT2)          GROUP 8
     8591   01 028FF    6AF016F9              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     8592   01 02900    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8593   01 02901    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     8594   01 02902    25900240 A            SCS,R9   -64               DELAY FOR SERVICE
     8595   01 02903    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     8596   01 02904    3280364E              LW,R8    =X'6F01DFF2'      COMPARE WORD-- PHI,PH0,PH1,PH4-7,
     8597   01 02905    4B90131D              AND,R9   MASK8             MASK DON'T CARES
     8598   01 02906    68001AC6              B        CREQUAL           VERIFY
     8599                            *
     8600                            *                                  ORDER OUT SERVICE--CONTROL SIGNALS
     8601   01 02907    711001CD A   T7110    GEN,16,10,6    X'7110',7,T7120-%   CONTROL WORD
     8602   01 02908    2280B609 A            LI,R8    X'B609'           CHANNEL-- SNAPSHOT 2,SINGLE SER-
     8603   01 02909    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8604   01 0290A    ED801298              WD,R8    *GP08              VICE & STEP,SNAP
     8605   01 0290B    22000901              LI,R0    DA(CMDT2)          GROUP 9
     8606   01 0290C    6AF016F9              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     8607   01 0290D    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8608   01 0290E    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8609   01 0290F    3280364F              LW,R8    =X'AFFDEC00'      COMPARE WORD
     8610   01 02910    25900240 A            SCS,R9   -64               DELAY FOR SERVICE
     8611   01 02911    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     8612   01 02912    4B90131E              AND,R9   MASK9             MASK DON'T CARES
     8613   01 02913    68001AC6              B        CREQUAL           VERIFY
     8614                            *
     8615                            *                                  ORDER OUT SERVICE, CONTROL SIGNALS
     8616   01 02914    712001CD A   T7120    GEN,16,10,6    X'7120',7,T7130-%   CONTROL WORD
     8617   01 02915    2280B60E A            LI,R8    X'B60E'           MS(A)-- SNAPSHOT 2, SINGLE SER-
     8618   01 02916    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8619   01 02917    ED801298              WD,R8    *GP08             VICE & STEP, SNAP
     8620   01 02918    22000901              LI,R0    DA(CMDT2)          GROUP 14
     8621   01 02919    6AF016F9              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     8622   01 0291A    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8623   01 0291B    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     8624   01 0291C    2280DD29 A            LI,R8    X'DD29'           COMPARE WORD-- PHFS,PHRS,PHFSL,
     8625   01 0291D    25900240 A            SCS,R9   -64
     8626   01 0291E    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     8627   01 0291F    4B901321              AND,R9   MASK14            MASK OUT DON'T CARES
     8628   01 02920    68001AC6              B        CREQUAL           VERIFY
     8629                            *
     8630                            *                                  ORDER OUT SERVICE,MS CONTROL SIGNAL
     8631   01 02921    713001CD A   T7130    GEN,16,10,6    X'7130',7,T7140-%   CONTROL WORD
     8632   01 02922    2280B60F A            LI,R8    X'B60F'           MS(A)-- SNAPSHOT 2, SINGLE SER-
     8633   01 02923    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8634   01 02924    ED801298              WD,R8    *GP08              VICE & STEP, SNAP
     8635   01 02925    22000901              LI,R0    DA(CMDT2)          GROUP 15
     8636   01 02926    6AF016F9              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     8637   01 02927    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8638   01 02928    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     8639   01 02929    2280EE07 A            LI,R8    X'EE07'           COMPARE WORD FOR MS(A) GROUP 15.
     8640   01 0292A    25900240 A            SCS,R9   -64               DELAY
     8641   01 0292B    EC901294              RD,R9    *DISPLAY          READ
     8642   01 0292C    4B903650              AND,R9   =X'EFFF'          MASK
     8643   01 0292D    68001AC6              B        CREQUAL           VERIFY
     8644                            *
     8645                            *                                  ORDER OUT SERVICE, UPDATE C.A.
     8646   01 0292E    714001CF A   T7140    GEN,16,10,6    X'7140',7,T7150-%   CONTROL WORD
     8647   01 0292F    22803000 A            LI,R8    X'3000'           MPXC(A)-- SNAPSHOT 2,SINGLE SER-
     8648   01 02930    ED801298              WD,R8    *GP08              VICE & STEP, SNAP
     8649   01 02931    22000901              LI,R0    DA(CMDT2)          GROUP 8
     8650   01 02932    6AF016F9              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     8651   01 02933    CC001314              SIO,R0   *IOPMSADR         SIO. STEP TO ORDER OUT.
     8652   01 02934    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8653   01 02935    32B01314              LW,R11   IOPMSADR          DEVICE ADDRESS
     8654   01 02936    6AF01C67              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL (FAM) ADDRESS
     8655   01 02937    EDA01299              WD,R10   *GP09             SELECT FAM, BLOCK 2
     8656   01 02938    EC90129A              RD,R9    *GP10             READ CONTENTS OF 'C' REGISTER
     8657   01 02939    4B903644              AND,R9   =X'FFFFF8'
     8658   01 0293A    22800902              LI,R8    DA(CMDT2)+1       UPDATED COMMAND ADDRESS
     8659   01 0293B    2590007D A            SLS,R9   -3                CONVERT TO FAM FORMAT
     8660   01 0293C    68001AC6              B        CREQUAL           VERIFY
     8661                            *
     8662                            *                                  DATA OUT SERVICE, PHASES & CONTROL
     8663   01 0293D    715001CF A   T7150    GEN,16,10,6    X'7150',7,T7155-%   CONTROL WORD
     8664   01 0293E    2280B608 A            LI,R8    X'B608'           MPXC(A)-- SNAPSHOT 2, SINGLE SER
     8665   01 0293F    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8666   01 02940    ED801298              WD,R8    *GP08              VICE & STEP, SNAP
     8667   01 02941    22000901              LI,R0    DA(CMDT2)          GROUP 8
     8668   01 02942    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8669   01 02943    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8670   01 02944    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8671   01 02945    25900240 A            SCS,R9   -64
     8672   01 02946    ED801298              WD,R8    *GP08
     8673   01 02947    32803651              LW,R8    =X'7101DDB2'      COMPARE WORD
     8674   01 02948    25900240 A            SCS,R9   -64               DELAY
     8675   01 02949    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     8676   01 0294A    4B90131D              AND,R9   MASK8             MASK DON'T CARES
     8677   01 0294B    68001AC6              B        CREQUAL           VERIFY
     8678                            *
     8679                            *                                  HALT OUTPUT (HIO)
     8680   01 0294C    715500CB A   T7155    GEN,16,10,6    X'7155',3,T7160-%   CONTROL WORD
     8681   01 0294D    22000930              LI,R0    DA(CMDT36)
     8682   01 0294E    CC001314              SIO,R0   *IOPMSADR         START OUTPUT
     8683   01 0294F    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     8684   01 02950    CF001314              HIO,R0   *IOPMSADR         HALT OUTPUT
     8685   01 02951    CD001314              TIO,R0   *IOPMSADR         CHECK CONDITION CODE
     8686   01 02952    69C01411              BCS,12   BAD               BAD IF I/O NOT HALTED           *G02

     8688   01 02953    682014D4              BCR,2    GOOD              GOOD IF NO CC3                  *G02

     8690   01 02954    330013E2              MTW,0    SIGMA7            ELSE LOOK FOR 7-LIKE MIOP       *G02
     8691   01 02955    693014D4              BNEZ     GOOD               GOOD IF 7-LIKE                 *G02
     8692   01 02956    68001411              B        BAD                 ELSE RESULT IS REALLY BAD     *G02
     8693                            *
     8694                            *                                  DATA OUT SERVICE, CONTROL SIGNALS
     8695   01 02957    716001CE A   T7160    GEN,16,10,6    X'7160',7,T7170-%   CONTROL WORD
     8696   01 02958    2280B609 A            LI,R8    X'B609'           MPXC(A)-- SNAPSHOT 2, SINGLE SRV
     8697   01 02959    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8698   01 0295A    ED801298              WD,R8    *GP08              & STEP, SNAP GROUP 9
     8699   01 0295B    22000901              LI,R0    DA(CMDT2)
     8700   01 0295C    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8701   01 0295D    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8702   01 0295E    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     8703   01 0295F    25900240 A            SCS,R9   -64               DELAY
     8704   01 02960    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT PHASE
     8705   01 02961    32803652              LW,R8    =X'AFFDEC80'      COMPARE WORD
     8706   01 02962    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     8707   01 02963    4B90131E              AND,R9   MASK9             MASK DON'T CARES
     8708   01 02964    68001AC6              B        CREQUAL           VERIFY
     8709                            *
     8710                            *                                  DATA OUT SERVICE, CONTROL SIGNALS
     8711   01 02965    717001CF A   T7170    GEN,16,10,6    X'7170',7,T7180-%   CONTROL WORD
     8712   01 02966    2280B60E A            LI,R8    X'B60E'           MS(A)-- SNAPSHOT 2, SINGLE SRV
     8713   01 02967    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8714   01 02968    ED801298              WD,R8    *GP08              & STEP, SNAP GROUP
     8715   01 02969    22000901              LI,R0    DA(CMDT2)          14
     8716   01 0296A    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8717   01 0296B    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8718   01 0296C    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8719   01 0296D    25900240 A            SCS,R9   -64               DELAY
     8720   01 0296E    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     8721   01 0296F    2280DDB9 A            LI,R8    X'DDB9'
     8722   01 02970    25900240 A            SCS,R9   -64               DELAY
     8723   01 02971    EC901294              RD,R9    *DISPLAY          READ MS(A) DISPLAY GROUP
     8724   01 02972    4B901321              AND,R9   MASK14            MASK DON'T CARES
     8725   01 02973    68001AC6              B        CREQUAL           VERIFY
     8726                            *
     8727                            *                                  DATA OUT SERVICE, DATA BYTE
     8728   01 02974    718001D1 A   T7180    GEN,16,10,6    X'7180',7,T7190-%   CONTROL WORD
     8729   01 02975    2280B60C A            LI,R8    X'B60C'           MS(A)-- SNAPSHOT 2, SINGLE SERVICE
     8730   01 02976    308012C8              AW,R8    CHBCTRL            & STEP, SNAP GROUP 12 OR 20
     8731   01 02977    ED801298              WD,R8    *GP08              CHANNEL B OPTION CONTROL
     8732   01 02978    22000901              LI,R0    DA(CMDT2)
     8733   01 02979    229FFFFF A            LI,R9    -1                ALL ONES TO FIRST FOUR BYTES
     8734   01 0297A    759012A4              STB,R9   BUFFER1
     8735   01 0297B    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8736   01 0297C    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8737   01 0297D    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8738   01 0297E    25900240 A            SCS,R9   -64               DELAY
     8739   01 0297F    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT PHASE
     8740   01 02980    228000FF A            LI,R8    X'FF'
     8741   01 02981    25900240 A            SCS,R9   -64               DELAY
     8742   01 02982    EC901294              RD,R9    *DISPLAY          READ DATA BYTE IN MS DISPLAY
     8743   01 02983    4B9034F3              AND,R9   =X'FF'            DA0-7 ONLY
     8744   01 02984    68001AC6              B        CREQUAL           VERIFY
     8745                            *
     8746                            *                                  ORDER IN--PHASES & CONTROL SIGNALS
     8747   01 02985    719001D1 A   T7190    GEN,16,10,6    X'7190',7,T7200-%   CONTROL WORD
     8748   01 02986    2280B608 A            LI,R8    X'B608'           MPXC(A)--SNAPSHOT 2,SINGLE SERVI
     8749   01 02987    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8750   01 02988    ED801298              WD,R8    *GP08              STEP, & SNAP GROUP
     8751   01 02989    22000901              LI,R0    DA(CMDT2)          8
     8752   01 0298A    6AF0170F              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     8753   01 0298B    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8754   01 0298C    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT
     8755   01 0298D    25900240 A            SCS,R9   -64               DELAY
     8756   01 0298E    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT
     8757   01 0298F    25900240 A            SCS,R9   -64               DELAY
     8758   01 02990    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN
     8759   01 02991    32803653              LW,R8    =X'6101C022'      COMPARE WORD FOR ORDER IN SERVICE
     8760   01 02992    25900240 A            SCS,R9   -64               DELAY
     8761   01 02993    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY GROUP 8
     8762   01 02994    4B90131D              AND,R9   MASK8             MASK DON'T CARES
     8763   01 02995    68001AC6              B        CREQUAL           VERIFY
     8764                            *
     8765                            *                                  ORDER IN-- CONTROL SIGNALS
     8766   01 02996    720001D1 A   T7200    GEN,16,10,6    X'7200',7,T7210-%   CONTROL WORD
     8767   01 02997    2280B609 A            LI,R8    X'B609'           MPXC(A)--SNAPSHOT 2, SINGLE SERV
     8768   01 02998    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8769   01 02999    ED801298              WD,R8    *GP08              STEP, & SNAP GROUP
     8770   01 0299A    22000901              LI,R0    DA(CMDT2)          GROUP 9
     8771   01 0299B    6AF0170F              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     8772   01 0299C    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8773   01 0299D    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT
     8774   01 0299E    25900240 A            SCS,R9   -64               DELAY
     8775   01 0299F    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT
     8776   01 029A0    25900240 A            SCS,R9   -64               DELAY
     8777   01 029A1    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN
     8778   01 029A2    32803652              LW,R8    =X'AFFDEC80'      COMPARE WORD
     8779   01 029A3    25900240 A            SCS,R9   -64               DELAY
     8780   01 029A4    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY GROUP
     8781   01 029A5    4B90131E              AND,R9   MASK9             MASK OUT DON'T CARES
     8782   01 029A6    68001AC6              B        CREQUAL           VERIFY
     8783                            *
     8784                            *                                  ORDER IN-- MS CONTROL SIGNALS
     8785   01 029A7    721001D1 A   T7210    GEN,16,10,6    X'7210',7,T7220-%    CONTROL WORD
     8786   01 029A8    2280B60E A            LI,R8    X'B60E'           MS-- SNAPSHOT 2, SINGLE SERVICE
     8787   01 029A9    308012C8              AW,R8    CHBCTRL           STEP, & SNAP GROUP 14.
     8788   01 029AA    ED801298              WD,R8    *GP08              CHAN B OPTION CONTROL
     8789   01 029AB    22000901              LI,R0    DA(CMDT2)          14
     8790   01 029AC    6AF0170F              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     8791   01 029AD    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8792   01 029AE    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8793   01 029AF    25900240 A            SCS,R9   -64               DELAY
     8794   01 029B0    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     8795   01 029B1    25900240 A            SCS,R9   -64               DELAY
     8796   01 029B2    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN
     8797   01 029B3    2280DD99 A            LI,R8    X'DD99'           COMPARE WORD
     8798   01 029B4    25900240 A            SCS,R9   -64               DELAY
     8799   01 029B5    EC901294              RD,R9    *DISPLAY          READ MS   DISPLAY GROUP
     8800   01 029B6    4B901321              AND,R9   MASK14            MASK DON'T CARES
     8801   01 029B7    68001AC6              B        CREQUAL           VERIFY
     8802                            *
     8803                            *                                  ORDER IN-- MS CONTROL SIGNALS
     8804   01 029B8    722001D0 A   T7220    GEN,16,10,6    X'7220',7,T7230-%   CONTROL WORD
     8805   01 029B9    2280B60F A            LI,R8    X'B60F'           MS-- SNAPSHOT2, SINGLE SERVICE &
     8806   01 029BA    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8807   01 029BB    ED801298              WD,R8    *GP08              STEP, SNAP GROUP 15
     8808   01 029BC    22000901              LI,R0    DA(CMDT2)
     8809   01 029BD    6AF0170F              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     8810   01 029BE    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8811   01 029BF    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8812   01 029C0    25900240 A            SCS,R9   -64               DELAY
     8813   01 029C1    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     8814   01 029C2    25900240 A            SCS,R9   -64               DELAY
     8815   01 029C3    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN SERVICE
     8816   01 029C4    2280EE07 A            LI,R8    X'EE07'           COMPARE WORD
     8817   01 029C5    25900240 A            SCS,R9   -64               DELAY
     8818   01 029C6    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP
     8819   01 029C7    68001AC6              B        CREQUAL           VERIFY
     8820                            *
     8821                            *                                  DATA IN SERVICE-- CONTROL SIGNALS
     8822   01 029C8    723001CF A   T7230    GEN,16,10,6    X'7230',7,T7240-%   CONTROL WORD
     8823   01 029C9    2280B608 A            LI,R8    X'B608'           MPXC(A)-- SNAPSHOT 2, SINGLE SER
     8824   01 029CA    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8825   01 029CB    ED801298              WD,R8    *GP08              VICE & STEP, & SNAP
     8826   01 029CC    22000902              LI,R0    DA(CMDT3)          GROUP 8
     8827   01 029CD    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8828   01 029CE    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8829   01 029CF    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8830   01 029D0    25900240 A            SCS,R9   -64               DELAY
     8831   01 029D1    ED801298              WD,R8    *GP08             STEP THROUGH DATA IN SERVICE
     8832   01 029D2    25900240 A            SCS,R9   -64               DELAY
     8833   01 029D3    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY,GROUP 8,MAP,DI
     8834   01 029D4    32803654              LW,R8    =X'6101DDA2'      COMPARE WORD
     8835   01 029D5    4B90131D              AND,R9   MASK8             MASK DON'T CARES
     8836   01 029D6    68001AC6              B        CREQUAL           VERIFY
     8837                            *
     8838                            *                                  DATA IN SERVICE-- CONTROL SIGNALS
     8839   01 029D7    724001CF A   T7240    GEN,16,10,6    X'7240',7,T7250-%   CONTROL WORD
     8840   01 029D8    2280B609 A            LI,R8    X'B609'           MPXC-SNAPSHOT 2, SINGLE SERVICE
     8841   01 029D9    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8842   01 029DA    ED801298              WD,R8    *GP08              & STEP, SNAP GROUP
     8843   01 029DB    22000902              LI,R0    DA(CMDT3)          14
     8844   01 029DC    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8845   01 029DD    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8846   01 029DE    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8847   01 029DF    25900240 A            SCS,R9   -64               DELAY
     8848   01 029E0    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     8849   01 029E1    25900240 A            SCS,R9   -64               DELAY
     8850   01 029E2    32803652              LW,R8    =X'AFFDEC80'      COMPARE WORD
     8851   01 029E3    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY GROUP
     8852   01 029E4    4B90131E              AND,R9   MASK9             MASK OUT DON'T CARES
     8853   01 029E5    68001AC6              B        CREQUAL           VERIFY
     8854                            *
     8855                            *                                  DATA IN SERVICE PHASES & CONTROL
     8856   01 029E6    725001CF A   T7250    GEN,16,10,6    X'7250',7,T7260-%   CONTROL WORD
     8857   01 029E7    2280B60E A            LI,R8    X'B60E'           MS-- SNAPSHOT 2, SINGLE SERVICE
     8858   01 029E8    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8859   01 029E9    ED801298              WD,R8    *GP08              & STEP, SNAP
     8860   01 029EA    22000902              LI,R0    DA(CMDT3)          GROUP 14
     8861   01 029EB    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8862   01 029EC    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8863   01 029ED    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT
     8864   01 029EE    25900240 A            SCS,R9   -64               DELAY
     8865   01 029EF    ED801298              WD,R8    *GP08             STEP THROUGH DATA IN PHASE
     8866   01 029F0    25900240 A            SCS,R9   -64               DELAY
     8867   01 029F1    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY GROUP
     8868   01 029F2    2280DDB8 A            LI,R8    X'DDB8'           COMPARE WORD
     8869   01 029F3    4B901321              AND,R9   MASK14            MASK OUT DON'T CARES
     8870   01 029F4    68001AC6              B        CREQUAL           VERIFY
     8871                            *
     8872                            *                                  DATA IN SERVICE, CONTROL SIGNALS
     8873   01 029F5    726001CE A   T7260    GEN,16,10,6    X'7260',7,T7270-%   CONTROL WORD
     8874   01 029F6    2280B60F A            LI,R8    X'B60F'           MS-- SNAPSHOT 2, SINGLE SERVICE
     8875   01 029F7    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8876   01 029F8    ED801298              WD,R8    *GP08              & STEP, SNAP
     8877   01 029F9    22000902              LI,R0    DA(CMDT3)          GROUP 15
     8878   01 029FA    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8879   01 029FB    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8880   01 029FC    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8881   01 029FD    25900240 A            SCS,R9   -64               DELAY
     8882   01 029FE    ED801298              WD,R8    *GP08
     8883   01 029FF    25900240 A            SCS,R9   -64               DELAY
     8884   01 02A00    EC901294              RD,R9    *DISPLAY          READ
     8885   01 02A01    2280EE07 A            LI,R8    X'EE07'           COMPARE WORD
     8886   01 02A02    68001AC6              B        CREQUAL           VERIFY
     8887                            *
     8888                            *                                  DATA IN SERVICE-- DATA BYTE
     8889   01 02A03    727001CD A   T7270    GEN,16,10,6    X'7270',7,T7280-%   CONTROL WORD
     8890   01 02A04    32801329              LW,R8    MSA               MS DEVICE ADDRESS
     8891   01 02A05    25800010 A            SLS,R8   16                FORMAT FOR MS CONTROL
     8892   01 02A06    498034F3              OR,R8    =X'FF'            ALL ONES FOR DATA BYTE
     8893   01 02A07    ED80129D              WD,R8    *GP13             MS CONTROL GROUP
     8894   01 02A08    22000900              LI,R0    DA(CMDT1)          GROUP 8
     8895   01 02A09    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8896   01 02A0A    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8897   01 02A0B    3280354F              LW,R8    =X'FF000000'      COMPARE WORD
     8898   01 02A0C    221FFFF1 A            LI,R1    -15               DELAY FOR DATA IN
     8899   01 02A0D    65102A0D              BIR,R1   %
     8900   01 02A0E    329012A4              LW,R9    BUFFER1           GET DATA BYTE FROM INPUT BUFFER
     8901   01 02A0F    68001AC6              B        CREQUAL           VERIFY
     8902                            *
     8903                            *                                  BYTE ADDRESS COUNTER
     8904   01 02A10    728001D3 A   T7280    GEN,16,10,6    X'7280',7,T7290-%   CONTROL WORD
     8905   01 02A11    2280B608 A            LI,R8    X'B608'           MPXC-- SNAPSHOT 2, SINGLE SERVIC
     8906   01 02A12    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8907   01 02A13    ED801298              WD,R8    *GP08              & STEP, & SNAP
     8908   01 02A14    22000903              LI,R0    DA(CMDT4)          GROUP 8
     8909   01 02A15    6AF016EB              BAL,R15  PREPHS05          SINGLE PHASE OR GIVE SYNC
     8910   01 02A16    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER SERVICE
     8911   01 02A17    32B01314              LW,R11   IOPMSADR          MS DEVICE ADDRESS
     8912   01 02A18    6AF01C67              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
     8913   01 02A19    3290000A A            LW,R9    R10
     8914   01 02A1A    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8915   01 02A1B    25000240 A            SCS,R0   -64
     8916   01 02A1C    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     8917   01 02A1D    22800000 A            LI,R8    0                  PLED TO ALL ZEROS
     8918   01 02A1E    EDD01298              WD,R13   *GP08             RESET CHANNEL A
     8919   01 02A1F    ED901299              WD,R9    *GP09             BYTE ADDRESS TO 'C' REGISTER
     8920   01 02A20    ED90129A              WD,R9    *GP10             READ BYTE COUNT,SHOULD HAVE RIP-
     8921   01 02A21    4B90350F              AND,R9   =X'FFFFFF'        MASK OFF ADDRESS BITS
     8922   01 02A22    68001AC6              B        CREQUAL           VERIFY
     8923                            *
     8924                            *                                  BYTE COUNTER
     8925   01 02A23    729001D3 A   T7290    GEN,16,10,6    X'7290',7,T7300-%   CONTROL WORD
     8926   01 02A24    2280B608 A            LI,R8    X'B608'           MPXC-- SNAPSHOT 2, SINGLE SERVIC
     8927   01 02A25    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     8928   01 02A26    ED801298              WD,R8    *GP08              & STEP, & SNAP
     8929   01 02A27    22000903              LI,R0    DA(CMDT4)          GROUP 8
     8930   01 02A28    6AF016EB              BAL,R15  PREPHS05          SINGLE PHASE OR SYNC
     8931   01 02A29    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER SERVICE
     8932   01 02A2A    32B01329              LW,R11   MSA               MS DEVICE ADDRESS
     8933   01 02A2B    6AF01C67              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
     8934   01 02A2C    3290000A A            LW,R9    R10
     8935   01 02A2D    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     8936   01 02A2E    25000240 A            SCS,R0   -64               DELAY
     8937   01 02A2F    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     8938   01 02A30    22800000 A            LI,R8    0                  PLED FROM ALL ZEROS TO ALL ONES
     8939   01 02A31    25000240 A            SCS,R0   -64               DELAY
     8940   01 02A32    ED901299              WD,R9    *GP09             BYTE ADDRESS TO 'C' REGISTER
     8941   01 02A33    ED90129B              WD,R9    *GP11             READ BYTE COUNT.  SHOULD HAVE RIP-
     8942   01 02A34    4B9034E6              AND,R9   =X'FFFF'          MASK OFF FLAG BITS
     8943   01 02A35    68001AC6              B        CREQUAL           VERIFY
     8944                            *
     8945                            *                                  DATA OUT, BYTE 1, DATA PATTERN= 5'S
     8946   01 02A36    730001D1 A   T7300    GEN,16,10,6    X'7300',7,T7310-%   CONTROL WORD
     8947   01 02A37    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE
     8948   01 02A38    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     8949   01 02A39    ED901298              WD,R9    *GP08              & SNAP, SNAP GROUP 12
     8950   01 02A3A    32803655              LW,R8    =X'550000'
     8951   01 02A3B    358012A4              STW,R8   BUFFER1           DATA PATTERN
     8952   01 02A3C    22000904              LI,R0    DA(CMDT5)         CMD
     8953   01 02A3D    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8954   01 02A3E    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8955   01 02A3F    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     8956   01 02A40    25000240 A            SCS,R0   -64               DELAY
     8957   01 02A41    ED901298              WD,R9    *GP08
     8958   01 02A42    22800055 A            LI,R8    X'55'             FORMAT FOR COMPARE
     8959   01 02A43    25900240 A            SCS,R9   -64               DELAY
     8960   01 02A44    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP,BYTES 0 & 1
     8961   01 02A45    4B9034F3              AND,R9   =X'FF'
     8962   01 02A46    68001AC6              B        CREQUAL           VERIFY
     8963                            *
     8964                            *                                  DATA OUT, BYTE 1, DATA PATTERN=A'S
     8965   01 02A47    731001D1 A   T7310    GEN,16,10,6    X'7310',7,T7320-%   CONTROL WORD
     8966   01 02A48    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE
     8967   01 02A49    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     8968   01 02A4A    ED901298              WD,R9    *GP08              STEP, SNAP GROUP 14
     8969   01 02A4B    32803656              LW,R8    =X'AA0000'
     8970   01 02A4C    358012A4              STW,R8   BUFFER1           DATA PATTERN
     8971   01 02A4D    22000904              LI,R0    DA(CMDT5)         COMMAND DOUBLE WORD
     8972   01 02A4E    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8973   01 02A4F    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8974   01 02A50    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     8975   01 02A51    25800240 A            SCS,R8   -64               DELAY
     8976   01 02A52    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     8977   01 02A53    25800240 A            SCS,R8   -64               DELAY
     8978   01 02A54    228000AA A            LI,R8    X'AA'
     8979   01 02A55    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 0 & 1
     8980   01 02A56    4B9034F3              AND,R9   =X'FF'
     8981   01 02A57    68001AC6              B        CREQUAL           VERIFY
     8982                            *
     8983                            *                                  DATA OUT, BYTE 2, DATA PATTERN= 5'S
     8984   01 02A58    732001D0 A   T7320    GEN,16,10,6    X'7320',7,T7330-%   CONTROL WORD
     8985   01 02A59    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE
     8986   01 02A5A    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     8987   01 02A5B    ED901298              WD,R9    *GP08              & SNAP, SNAP GROUP 12
     8988   01 02A5C    22805500 A            LI,R8    X'5500'
     8989   01 02A5D    358012A4              STW,R8   BUFFER1
     8990   01 02A5E    22000905              LI,R0    DA(CMDT6)         BYTE BOUNDARY 2, BYTE COUNT=1
     8991   01 02A5F    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     8992   01 02A60    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     8993   01 02A61    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     8994   01 02A62    25000240 A            SCS,R0   -64               DELAY
     8995   01 02A63    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     8996   01 02A64    25800258 A            SCS,R8   -40               DELAY & FORMAT
     8997   01 02A65    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 2 & 3
     8998   01 02A66    4B9034F3              AND,R9   =X'FF'
     8999   01 02A67    68001AC6              B        CREQUAL           VERIFY
     9000                            *
     9001                            *                                  DATA OUT, BYTE 2, DATA PATTERN= A'S
     9002   01 02A68    733001D0 A   T7330    GEN,16,10,6    X'7330',7,T7340-%   CONTROL WORD
     9003   01 02A69    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE
     9004   01 02A6A    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     9005   01 02A6B    ED901298              WD,R9    *GP08              SNAP, SNAP GROUP 12
     9006   01 02A6C    2280AA00 A            LI,R8    X'AA00'
     9007   01 02A6D    358012A4              STW,R8   BUFFER1
     9008   01 02A6E    22000905              LI,R0    DA(CMDT6)         BYTE BOUNDARY 2, BYTE COUNT=1
     9009   01 02A6F    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9010   01 02A70    CC001314              SIO,R0   *IOPMSADR
     9011   01 02A71    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9012   01 02A72    25000240 A            SCS,R0   -64               DELAY
     9013   01 02A73    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     9014   01 02A74    25800258 A            SCS,R8   -40               DELAY & FORMAT
     9015   01 02A75    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 0 & 2
     9016   01 02A76    4B9034F3              AND,R9   =X'FF'
     9017   01 02A77    68001AC6              B        CREQUAL           VERIFY
     9018                            *
     9019                            *                                  DATA OUT, BYTE 3, DATA PATTERN= 5'S
     9020   01 02A78    734001D0 A   T7340    GEN,16,10,6    X'7340',7,T7350-%   CONTROL WORD
     9021   01 02A79    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE
     9022   01 02A7A    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     9023   01 02A7B    ED901298              WD,R9    *GP08              SNAP, SNAP GROUP 12
     9024   01 02A7C    22800055 A            LI,R8    X'55'
     9025   01 02A7D    358012A4              STW,R8   BUFFER1
     9026   01 02A7E    22000906              LI,R0    DA(CMDT7)         BYTE BOUNDARY 3, BYTE COUNT=1
     9027   01 02A7F    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9028   01 02A80    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9029   01 02A81    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9030   01 02A82    25000240 A            SCS,R0   -64               DELAY
     9031   01 02A83    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     9032   01 02A84    25000240 A            SCS,R0   -64               DELAY
     9033   01 02A85    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 2 &3
     9034   01 02A86    4B9034F3              AND,R9   =X'FF'
     9035   01 02A87    68001AC6              B        CREQUAL           VERIFY
     9036                            *
     9037                            *                                  DATA OUT, BYTE 3, DATA PATTERN= A'S
     9038   01 02A88    735001D0 A   T7350    GEN,16,10,6    X'7350',7,T7360-%   CONTROL WORD
     9039   01 02A89    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE
     9040   01 02A8A    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     9041   01 02A8B    ED901298              WD,R9    *GP08              SNAP, SNAP GROUP 12
     9042   01 02A8C    228000AA A            LI,R8    X'AA'
     9043   01 02A8D    358012A4              STW,R8   BUFFER1
     9044   01 02A8E    22000906              LI,R0    DA(CMDT7)         BYTE BOUNDARY 3, BYTE COUNT=1
     9045   01 02A8F    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9046   01 02A90    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9047   01 02A91    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9048   01 02A92    25000240 A            SCS,R0   -64               DELAY
     9049   01 02A93    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     9050   01 02A94    25000240 A            SCS,R0   -64               DELAY
     9051   01 02A95    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 2 & 3
     9052   01 02A96    4B9034F3              AND,R9   =X'FF'
     9053   01 02A97    68001AC6              B        CREQUAL           VERIFY
     9054                            *
     9055                            *                                  DATA IN,  BYTE 1, MW1:R CONTROL
     9056   01 02A98    736001CE A   T7360    GEN,16,10,6    X'7360',7,T7370-%   CONTROL WORD
     9057   01 02A99    2280B600 A            LI,R8    X'B600'           CCU--SNAPSHOT 2, SINGLE SERVICE
     9058   01 02A9A    ED801298              WD,R8    *GP08              & STEP, SNAP
     9059   01 02A9B    22000907              LI,R0    DA(CMDT8)          GROUP 0
     9060   01 02A9C    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9061   01 02A9D    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9062   01 02A9E    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9063   01 02A9F    25000240 A            SCS,R0   -64               DELAY
     9064   01 02AA0    ED801298              WD,R8    *GP08             STEP THROUGH DATA IN  SERVICE
     9065   01 02AA1    25000240 A            SCS,R0   -64               DELAY
     9066   01 02AA2    328034FC              LW,R8    =X'2000000'       COMPARE WORD-- SHOULD SEE MW1:R,
     9067   01 02AA3    EC901294              RD,R9    *DISPLAY          READ CCU DISPLAY FOR MWX:R BITS
     9068   01 02AA4    4B903657              AND,R9   =X'7800000'       PURGE
     9069   01 02AA5    68001AC6              B        CREQUAL           VERIFY
     9070                            *
     9071                            *                                  DATA IN,BYTE 2,MW2:R CONTROL
     9072   01 02AA6    737001CE A   T7370    GEN,16,10,6    X'7370',7,T7380-%   CONTROL WORD
     9073   01 02AA7    2280B600 A            LI,R8    X'B600'           CCU--SNAPSHOT 2, SINGLE SERVICE
     9074   01 02AA8    ED801298              WD,R8    *GP08              & STEP, SNAP
     9075   01 02AA9    22000908              LI,R0    DA(CMDT9)         BYTE BOUNDARY 2, BYTE COUNT=1
     9076   01 02AAA    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9077   01 02AAB    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9078   01 02AAC    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9079   01 02AAD    25000240 A            SCS,R0   -64               DELAY
     9080   01 02AAE    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN  SERVICE
     9081   01 02AAF    25000240 A            SCS,R0   -64               DELAY
     9082   01 02AB0    32803525              LW,R8    =X'1000000'       COMPARE WORD-- SHOULD SEE MW2:R
     9083   01 02AB1    EC901294              RD,R9    *DISPLAY
     9084   01 02AB2    4B903657              AND,R9   =X'7800000'       PURGE
     9085   01 02AB3    68001AC6              B        CREQUAL           VERIFY
     9086                            *
     9087                            *                                  DATA IN, BYTE 3, MW3:R CONTROL
     9088   01 02AB4    738001CE A   T7380    GEN,16,10,6    X'7380',7,T7390-%   CONTROL WORD
     9089   01 02AB5    2280B600 A            LI,R8    X'B600'           CCU--SNAPSHOT 2, SINGLE SERVICE
     9090   01 02AB6    ED801298              WD,R8    *GP08              & STEP, SNAP
     9091   01 02AB7    22000909              LI,R0    DA(CMDT10)        BYTE BOUNDARY 3, BYTE COUNT=1
     9092   01 02AB8    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9093   01 02AB9    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9094   01 02ABA    ED801298              WD,R8    *GP08             READ CCU DISPLAY FOR MWX:R BITS
     9095   01 02ABB    25900240 A            SCS,R9   -64               DELAY
     9096   01 02ABC    ED801298              WD,R8    *GP08
     9097   01 02ABD    25900240 A            SCS,R9   -64               DELAY
     9098   01 02ABE    32803524              LW,R8    =X'800000'        COMPARE WORD-- SHOULD SEE MW3:R
     9099   01 02ABF    EC901294              RD,R9    *DISPLAY          READ CCU DISPLAY FOR MWX:R BITS
     9100   01 02AC0    4B903657              AND,R9   =X'7800000'       PURGE
     9101   01 02AC1    68001AC6              B        CREQUAL           VERIFY
     9102                            *
     9103                            *                                  DATA IN, BYTE 1, DATA PATTERN = 5'S
     9104   01 02AC2    739001CD A   T7390    GEN,16,10,6    X'7390',7,T7400-%   CONTROL WORD
     9105   01 02AC3    32801329              LW,R8    MSA                SNAP, SNAP GROUP 14
     9106   01 02AC4    25800010 A            SLS,R8   16                FORMAT
     9107   01 02AC5    49803658              OR,R8    =X'55'            BYTE = ALL 5'S
     9108   01 02AC6    ED80129D              WD,R8    *GP13             SET UP INPUT DATA BYTE VIA MS
     9109   01 02AC7    22000907              LI,R0    DA(CMDT8)         BYTE BOUNDARY=1
     9110   01 02AC8    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9111   01 02AC9    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9112   01 02ACA    32803655              LW,R8    =X'550000'        COMPARE BYTE
     9113   01 02ACB    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9114   01 02ACC    65102ACC              BIR,R1   %
     9115   01 02ACD    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9116   01 02ACE    68001AC6              B        CREQUAL           VERIFY
     9117                            *
     9118                            *                                  DATA IN, BYTE 1, DATA PATTERN= A'S
     9119   01 02ACF    740001CD A   T7400    GEN,16,10,6    X'7400',7,T7410-%   CONTROL WORD
     9120   01 02AD0    32801329              LW,R8    MSA                SNAP, SNAP GROUP 14
     9121   01 02AD1    25800010 A            SLS,R8   16                FORMAT
     9122   01 02AD2    49803659              OR,R8    =X'AA'            BYTE = ALL A'S
     9123   01 02AD3    ED80129D              WD,R8    *GP13             SET UP INPUT DATA PATH
     9124   01 02AD4    22000907              LI,R0    DA(CMDT8)         BYTE BOUNDARY=1
     9125   01 02AD5    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9126   01 02AD6    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9127   01 02AD7    32803656              LW,R8    =X'AA0000'        COMPARE BYTE
     9128   01 02AD8    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9129   01 02AD9    65102AD9              BIR,R1   %
     9130   01 02ADA    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9131   01 02ADB    68001AC6              B        CREQUAL           VERIFY
     9132                            *
     9133                            *                                  DATA IN, BYTE 2, DATA PATTERN = 5'S
     9134   01 02ADC    741001CD A   T7410    GEN,16,10,6    X'7410',7,T7420-%    CONTROL WORD
     9135   01 02ADD    32801329              LW,R8    MSA
     9136   01 02ADE    25800010 A            SLS,R8   16                FORMAT
     9137   01 02ADF    49803658              OR,R8    =X'55'            BYTE = ALL 5'S
     9138   01 02AE0    ED80129D              WD,R8    *GP13             SET UP INPUT DATA BYTE VIA MS
     9139   01 02AE1    22000908              LI,R0    DA(CMDT9)         BYTE BOUNDARY = 1
     9140   01 02AE2    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9141   01 02AE3    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9142   01 02AE4    22805500 A            LI,R8    X'5500'           COMPRE BYTE
     9143   01 02AE5    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9144   01 02AE6    65102AE6              BIR,R1   %
     9145   01 02AE7    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9146   01 02AE8    68001AC6              B        CREQUAL           VERIFY
     9147                            *
     9148                            *                                  DATA IN, BYTE 2, DATA PATTERN = A'S
     9149   01 02AE9    742001CD A   T7420    GEN,16,10,6    X'7420',7,T7430-%   CONTROL WORD
     9150   01 02AEA    32801329              LW,R8    MSA
     9151   01 02AEB    25800010 A            SLS,R8   16                FORMAT
     9152   01 02AEC    49803659              OR,R8    =X'AA'            BYTE = ALL 5'S
     9153   01 02AED    ED80129D              WD,R8    *GP13             SET UP INPUT DATA PATH
     9154   01 02AEE    22000908              LI,R0    DA(CMDT9)         BYTE BOUNDARY = 1
     9155   01 02AEF    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9156   01 02AF0    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9157   01 02AF1    3280365A              LW,R8    =X'AA00'          COMPARE BYTE
     9158   01 02AF2    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9159   01 02AF3    65102AF3              BIR,R1   %
     9160   01 02AF4    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9161   01 02AF5    68001AC6              B        CREQUAL           VERIFY
     9162                            *
     9163                            *                                  DATA IN, BYTE 3, DATA PATTERN = 5'S
     9164   01 02AF6    743001CD A   T7430    GEN,16,10,6    X'7430',7,T7440-%   CONTROL WORD
     9165   01 02AF7    32801329              LW,R8    MSA
     9166   01 02AF8    25800010 A            SLS,R8   16                FORMAT
     9167   01 02AF9    49803658              OR,R8    =X'55'            BYTE = ALL 5'S
     9168   01 02AFA    ED80129D              WD,R8    *GP13             SET UP INPUT DATA BYTE VIA MS
     9169   01 02AFB    22000909              LI,R0    DA(CMDT10)        BYTE BOUNDARY = 3
     9170   01 02AFC    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9171   01 02AFD    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9172   01 02AFE    22800055 A            LI,R8    X'55'             COMPARE BYTE
     9173   01 02AFF    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9174   01 02B00    65102B00              BIR,R1   %
     9175   01 02B01    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9176   01 02B02    68001AC6              B        CREQUAL           VERIFY
     9177                            *
     9178                            *                                  DATA IN, BYTE 3, DATA PATTERN = A'S
     9179   01 02B03    744001CD A   T7440    GEN,16,10,6    X'7440',7,T7450-%   CONTROL WORD
     9180   01 02B04    32801329              LW,R8    MSA
     9181   01 02B05    25800010 A            SLS,R8   16                FORMAT
     9182   01 02B06    49803659              OR,R8    =X'AA'            BYTE = ALL 5'S
     9183   01 02B07    ED80129D              WD,R8    *GP13             SET UP INPUT DATA VIA MS
     9184   01 02B08    22000909              LI,R0    DA(CMDT10)        BYTE BOUNDARY = 3
     9185   01 02B09    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9186   01 02B0A    CC001314              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9187   01 02B0B    228000AA A            LI,R8    X'AA'             COMPARE BYTE
     9188   01 02B0C    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9189   01 02B0D    65102B0D              BIR,R1   %
     9190   01 02B0E    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9191   01 02B0F    68001AC6              B        CREQUAL           VERIFY
     9192                            *
     9193                            *                                  DATA OUT, TWO BYTE TRANSFER
     9194   01 02B10    745001D3 A   T7450    GEN,16,10,6    X'7450',7,T7460-%   CONTROL WORD
     9195   01 02B11    3280365B              LW,R8    =X'11223344'      BYTE PATTERNS TO BUFFER
     9196   01 02B12    358012A4              STW,R8   BUFFER1
     9197   01 02B13    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     9198   01 02B14    ED801298              WD,R8    *GP08
     9199   01 02B15    2200090A              LI,R0    DA(CMDT11)        BYTE COUNT = 2
     9200   01 02B16    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR SYNC
     9201   01 02B17    CC001314              SIO,R0   *IOPMSADR         TWO BYTE I/O TRANSFER
     9202   01 02B18    2291076C A            LI,R9    X'1076C'          FREE RUN, SNAP GROUP 12  LI,R0    DA(
     9203   01 02B19    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     9204   01 02B1A    ED901298              WD,R9    *GP08
     9205   01 02B1B    322034FE              LW,R2    =X'80000018'
     9206   01 02B1C    EC901294              RD,R9    *DISPLAY
     9207   01 02B1D    64202B1F              BDR,R2   %+2
     9208   01 02B1E    68202B1C              BCR,2    %-2
     9209   01 02B1F    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY
     9210   01 02B20    22800022 A            LI,R8    X'22'             VERIFY SECOND BYTE TRANSFER
     9211   01 02B21    4B9034F3              AND,R9   =X'FF'            MASK
     9212   01 02B22    68001AC6              B        CREQUAL           VERIFY
     9213                            *
     9214                            *                                  DATA OUT, THREE BYTE TRANSFER
     9215   01 02B23    746001D4 A   T7460    GEN,16,10,6    X'7460',7,T7470-%   CONTROL WORD
     9216   01 02B24    3280365B              LW,R8    =X'11223344'      BYTE PATTERN TO BUFFER
     9217   01 02B25    358012A4              STW,R8   BUFFER1
     9218   01 02B26    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     9219   01 02B27    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     9220   01 02B28    ED801298              WD,R8    *GP08
     9221   01 02B29    2200090B              LI,R0    DA(CMDT12)        BYTE COUNT = 3
     9222   01 02B2A    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9223   01 02B2B    CC001314              SIO,R0   *IOPMSADR         THREE BYTE DATA OUT
     9224   01 02B2C    2291078C A            LI,R9    X'1078C'          FREE RUN, SNAP GROUP 12, DATA
     9225   01 02B2D    309012C8              AW,R9    CHBCTRL
     9226   01 02B2E    ED901298              WD,R9    *GP08
     9227   01 02B2F    322034FE              LW,R2    =X'80000018'
     9228   01 02B30    EC901294              RD,R9    *DISPLAY
     9229   01 02B31    64202B33              BDR,R2   %+2
     9230   01 02B32    68202B30              BCR,2    %-2               WAIT FOR SNAP
     9231   01 02B33    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY
     9232   01 02B34    22800033 A            LI,R8    X'33'             VERIFY THIRD  BYTE
     9233   01 02B35    4B9034F3              AND,R9   =X'FF'            MASK
     9234   01 02B36    68001AC6              B        CREQUAL           VERIFY
     9235                            *
     9236                            *                                  DATA OUT, FOUR BYTE TRANSFER
     9237   01 02B37    747001D4 A   T7470    GEN,16,10,6    X'7470',7,T7480-%   CONTROL WORD
     9238   01 02B38    3280365B              LW,R8    =X'11223344'      BYTE PATTERN TO BUFFER
     9239   01 02B39    358012A4              STW,R8   BUFFER1
     9240   01 02B3A    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     9241   01 02B3B    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
     9242   01 02B3C    ED801298              WD,R8    *GP08
     9243   01 02B3D    2200090C              LI,R0    DA(CMDT13)        BYTE COUNT = 4
     9244   01 02B3E    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9245   01 02B3F    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE DATA OUT
     9246   01 02B40    229107AC A            LI,R9    X'107AC'          FREE RUN, SNAP GROUP 12, DATA
     9247   01 02B41    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA/B
     9248   01 02B42    ED901298              WD,R9    *GP08
     9249   01 02B43    322034FE              LW,R2    =X'80000018'
     9250   01 02B44    EC901294              RD,R9    *DISPLAY
     9251   01 02B45    64202B47              BDR,R2   %+2
     9252   01 02B46    68202B44              BCR,2    %-2               WAIT FOR SNAP
     9253   01 02B47    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY
     9254   01 02B48    22800044 A            LI,R8    X'44'             VERIFY FOURTH BYTE
     9255   01 02B49    4B9034F3              AND,R9   =X'FF'
     9256   01 02B4A    68001AC6              B        CREQUAL           VERIFY
     9257                            *
     9258                            *                                  DATA OUT, FIVE BYTE TRANSFER
     9259   01 02B4B    748001D8 A   T7480    GEN,16,10,6    X'7480',7,T7490-%   CONTROL WORD
     9260   01 02B4C    3280365B              LW,R8    =X'11223344'      BYTE PATTER TO BUFFER AREA
     9261   01 02B4D    3290365C              LW,R9    =X'55667788'
     9262   01 02B4E    158012A5              STD,R8   BUFFER1+1
     9263   01 02B4F    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     9264   01 02B50    ED801298              WD,R8    *GP08
     9265   01 02B51    2200090D              LI,R0    DA(CMDT14)        BYTE COUNT = 5
     9266   01 02B52    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9267   01 02B53    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE DATA OUT
     9268   01 02B54    ED801298              WD,R8    *GP08             FIRST SERVICE
     9269   01 02B55    25000240 A            SCS,R0   -64
     9270   01 02B56    ED801298              WD,R8    *GP08             SECOND SERVICE
     9271   01 02B57    25000240 A            SCS,R0   -64               DELAY
     9272   01 02B58    2291366C A            LI,R9    X'1366C'          CONTROL
     9273   01 02B59    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B
     9274   01 02B5A    ED901298              WD,R9    *GP08             SERVICE
     9275   01 02B5B    322034FE              LW,R2    =X'80000018'
     9276   01 02B5C    EC901294              RD,R9    *DISPLAY
     9277   01 02B5D    64202B5F              BDR,R2   %+2
     9278   01 02B5E    68202B5C              BCR,2    %-2
     9279   01 02B5F    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY
     9280   01 02B60    22800055 A            LI,R8    X'55'
     9281   01 02B61    4B9034F3              AND,R9   =X'FF'
     9282   01 02B62    68001AC6              B        CREQUAL           VERIFY
     9283                            *
     9284                            *                                  DATA IN TWO BYTE TRANSFER
     9285   01 02B63    749001CF A   T7490    GEN,16,10,6    X'7490',7,T7500-%   CONTROL WORD
     9286   01 02B64    228FFFFF A            LI,R8    -1                WRITE ALL ONES TO INPUT BUFFER
     9287   01 02B65    358012A4              STW,R8   BUFFER1
     9288   01 02B66    32801329              LW,R8    MSA               SET UP BYTE FOR INPUT TRANSFER
     9289   01 02B67    25800010 A            SLS,R8   16
     9290   01 02B68    4980365D              OR,R8    =X'12'
     9291   01 02B69    ED80129D              WD,R8    *GP13             WRITE INPUT DATA TO MS
     9292   01 02B6A    2200090E              LI,R0    DA(CMDT15)        BYTE COUNT = 2
     9293   01 02B6B    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9294   01 02B6C    CC001314              SIO,R0   *IOPMSADR         TWO BYTE DATA IN
     9295   01 02B6D    229FFFE2 A            LI,R9    -30
     9296   01 02B6E    65902B6E              BIR,R9   %                 30 MICROSECOND DELAY
     9297   01 02B6F    329012A4              LW,R9    BUFFER1           GET INPUT DATA
     9298   01 02B70    3280365E              LW,R8    =X'FF1212FF'      COMPARE DATA
     9299   01 02B71    68001AC6              B        CREQUAL           VERIFY
     9300                            *
     9301                            *                                  DATA IN, THREE BYTE TRANSFER
     9302   01 02B72    750001CF A   T7500    GEN,16,10,6    X'7500',7,T7510-%   CONTROL WORD
     9303   01 02B73    228FFFFF A            LI,R8    -1                ALL ONES TO INPUT BUFFER
     9304   01 02B74    358012A4              STW,R8   BUFFER1
     9305   01 02B75    32801329              LW,R8    MSA               SET UP BYTE FOR INPUT DATA
     9306   01 02B76    25800010 A            SLS,R8   16
     9307   01 02B77    4980365F              OR,R8    =X'13'
     9308   01 02B78    ED80129D              WD,R8    *GP13             WRITE INPUT DATA TO MS
     9309   01 02B79    2200090F              LI,R0    DA(CMDT16)        BYTE COUNT = 3
     9310   01 02B7A    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9311   01 02B7B    CC001314              SIO,R0   *IOPMSADR         THREE BYTE DATA IN OPERATION
     9312   01 02B7C    229FFFE2 A            LI,R9    -30
     9313   01 02B7D    65902B7D              BIR,R9   %                 30 MICROSECOND DELAY
     9314   01 02B7E    329012A4              LW,R9    BUFFER1           GET INPUT DATA
     9315   01 02B7F    32803660              LW,R8    =X'FF131313'      COMPARE DATA
     9316   01 02B80    68001AC6              B        CREQUAL           VERIFY
     9317                            *
     9318                            *                                  DATA IN, FOUR BYTE TRANSFER
     9319   01 02B81    751001CF A   T7510    GEN,16,10,6    X'7510',7,T7540-%   CONTROL WORD
     9320   01 02B82    228FFFFF A            LI,R8    -1                ALL ONES
     9321   01 02B83    358012A4              STW,R8   BUFFER1
     9322   01 02B84    32801329              LW,R8    MSA               SET UP BYTE FOR INPUT DATA
     9323   01 02B85    25800010 A            SLS,R8   16
     9324   01 02B86    49803661              OR,R8    =X'14'
     9325   01 02B87    ED80129D              WD,R8    *GP13             WRITE INPUT DATA TO MS
     9326   01 02B88    22000910              LI,R0    DA(CMDT17)        BYTE COUNT = 4
     9327   01 02B89    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9328   01 02B8A    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE DATA IN OPERATION
     9329   01 02B8B    229FFFE2 A            LI,R9    -30
     9330   01 02B8C    65902B8C              BIR,R9   %                 30 MICROSECOND DELAY
     9331   01 02B8D    329012A4              LW,R9    BUFFER1           GET INPUT DATA
     9332   01 02B8E    32803662              LW,R8    =X'14141414'      COMPARE DATA
     9333   01 02B8F    68001AC6              B        CREQUAL           VERIFY
     9334                            *                                  DATA CHAINING, ORDER CONTROL VIA
     9335                            *                                   READ FOLLOWED BY A WRITE.
     9336   01 02B90    754001CF A   T7540    GEN,16,10,6    X'7540',7,T7550-%   CONTROL WORD
     9337   01 02B91    32801329              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9338   01 02B92    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9339   01 02B93    49803663              OR,R8    =X'96'            DATA PATTERN
     9340   01 02B94    ED80129D              WD,R8    *GP13             MS CONTROL
     9341   01 02B95    228FFF3C A            LI,R8    X'FFF3C'          OUTPUT BYTE PATTERN TO BUFFER
     9342   01 02B96    358012A4              STW,R8   BUFFER1
     9343   01 02B97    2200091F              LI,R0    DA(CMDT26A)       1ST COMMAND=1 BYTE, 2ND=TWO BYTES.
     9344   01 02B98    6AF01831              BAL,R15  PREPHS11          SINGLE PHASE OR GIVE SYNC
     9345   01 02B99    CC001314              SIO,R0   *IOPMSADR         DOUBLE DATA CHAIN
     9346   01 02B9A    229FFFE2 A            LI,R9    -30
     9347   01 02B9B    65902B9B              BIR,R9   %                 30 MICROSECOND DELAY
     9348   01 02B9C    329012A4              LW,R9    BUFFER1           RECEIVED DATA
     9349   01 02B9D    32803664              LW,R8    =X'9696963C'      COMPARE DATA
     9350   01 02B9E    68001AC6              B        CREQUAL
     9351                            *
     9352                            *                                  DATA CHAINING, ORDER CONTROL VIA
     9353                            *                                   WRITE FOLLOWED BY A READ
     9354   01 02B9F    755001CB A   T7550    GEN,16,10,6    X'7550',7,T7560-%   CONTROL WORD
     9355   01 02BA0    32803665              LW,R8    =X'ABCDEF01'      DATA PATTERN TO OUTPUT BUFFER
     9356   01 02BA1    358012A4              STW,R8   BUFFER1
     9357   01 02BA2    22000921              LI,R0    DA(CMDT27A)       DATA CHAIN, WRITE, READ
     9358   01 02BA3    221FFFFD A            LI,R1    -3                THREE SERVICES
     9359   01 02BA4    2281366C A            LI,R8    X'1366C'          CONTROL
     9360   01 02BA5    6AF019E1              BAL,R15  ADVSCA            ADVANCE FOUR  SERVICES
     9361   01 02BA6    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTER
     9362   01 02BA7    4B9034F3              AND,R9   =X'FF'            MASK OFF LOW ORDER BITS
     9363   01 02BA8    228000AB A            LI,R8    X'AB'             COMPARE WORD
     9364   01 02BA9    68001AC6              B        CREQUAL
     9365                            *
     9366                            *                                  COMMAND CHAINING, ORDER CONTROL,
     9367                            *                                   READ FOLLOWED BY A WRITE
     9368   01 02BAA    756001CD A   T7560    GEN,16,10,6    X'7560',7,T7570-%   CONTROL WORD
     9369   01 02BAB    32801329              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9370   01 02BAC    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9371   01 02BAD    49803666              OR,R8    =7
     9372   01 02BAE    ED80129D              WD,R8    *GP13             SET UP INPUT DATA
     9373   01 02BAF    221FFFFB A            LI,R1    -5                FIVE ITERATIONS
     9374   01 02BB0    22000923              LI,R0    DA(CMDT28A)       COMMAND CHAIN, READ & WRITE
     9375   01 02BB1    2280766C A            LI,R8    X'766C'           CONTROL
     9376   01 02BB2    6AF019E1              BAL,R15  ADVSCA            ADVANCE FOUR SERVICES
     9377   01 02BB3    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTERS
     9378   01 02BB4    4B9034F3              AND,R9   =X'FF'            MASK LOW ORDER BITS
     9379   01 02BB5    22800007 A            LI,R8    7
     9380   01 02BB6    68001AC6              B        CREQUAL
     9381                            *
     9382                            *                                  COMMAND CHAINING, ORDER CONTROL,
     9383                            *                                   WRITE FOLLOWED BY A READ
     9384   01 02BB7    757001CD A   T7570    GEN,16,10,6    X'7570',7,T7580-%   CONTROL WORD
     9385   01 02BB8    32801329              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9386   01 02BB9    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9387   01 02BBA    49803658              OR,R8    =X'55'
     9388   01 02BBB    ED80129D              WD,R8    *GP13             SET UP INPUT DATA IN MS DA0-7
     9389   01 02BBC    22000925              LI,R0    DA(CMDT29A)       COMMAND CHAIN, WRITE & READ
     9390   01 02BBD    6AF01847              BAL,R15  PREPHS13          SINGLE PHASE OR GIVE SYNC
     9391   01 02BBE    CC001314              SIO,R0   *IOPMSADR
     9392   01 02BBF    229FFFE2 A            LI,R9    -30               DELAY
     9393   01 02BC0    65902BC0              BIR,R9   %
     9394   01 02BC1    329012A4              LW,R9    BUFFER1           GET INPUT DATA
     9395   01 02BC2    32803667              LW,R8    =X'55555555'      COMPARE DATA
     9396   01 02BC3    68001AC6              B        CREQUAL
     9397                            *
     9398                            *                                  DATA CHAINING OVERRIDE COMMAND
     9399                            *                                   CHAINING
     9400   01 02BC4    758001CD A   T7580    GEN,16,10,6    X'7580',7,T7590-%   CONTROL WORD
     9401   01 02BC5    32801329              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9402   01 02BC6    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9403   01 02BC7    49803668              OR,R8    =X'C7'            SET UP INPUT DATA
     9404   01 02BC8    ED80129D              WD,R8    *GP13             DATA TO MS DA0-7
     9405   01 02BC9    22000927              LI,R0    DA(CMDT30A)       DATA & COMMAND CHAINING
     9406   01 02BCA    6AF01831              BAL,R15  PREPHS11          SINGLE PHASE OR GIVE SYNC
     9407   01 02BCB    CC001314              SIO,R0   *IOPMSADR
     9408   01 02BCC    229FFFE2 A            LI,R9    -30               DELAY
     9409   01 02BCD    65902BCD              BIR,R9   %
     9410   01 02BCE    329012A4              LW,R9    BUFFER1           GET INPUT BUFFER DATA
     9411   01 02BCF    32803669              LW,R8    =X'C7C7C7'        COMPARE
     9412   01 02BD0    68001AC6              B        CREQUAL
     9413                            *
     9414                            *                                  TRANSFER IN CHANNEL
     9415   01 02BD1    759001CD A   T7590    GEN,16,10,6    X'7590',7,T7600-%   CONTROL WORD
     9416   01 02BD2    32801329              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9417   01 02BD3    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9418   01 02BD4    4980366A              OR,R8    =X'D5'            BYTE CONFIGURATION
     9419   01 02BD5    ED80129D              WD,R8    *GP13             DATA TO MS DA0-7
     9420   01 02BD6    22000929              LI,R0    DA(CMDT31A)       COMMAND CHAIN FOLLOWED BY TRANSFER-
     9421   01 02BD7    6AF0184E              BAL,R15  PREPHS14           IN CHANNEL
     9422   01 02BD8    CC001314              SIO,R0   *IOPMSADR
     9423   01 02BD9    229FFFE2 A            LI,R9    -30               DELAY
     9424   01 02BDA    65902BDA              BIR,R9   %
     9425   01 02BDB    3280366B              LW,R8    =X'D5D5D5D5'      COMPARE WORD
     9426   01 02BDC    329012A4              LW,R9    BUFFER1           BUFFER CONTENTS
     9427   01 02BDD    68001AC6              B        CREQUAL
     9428                            *
     9429                            *                                  ILLEGAL DOUBLE TRANSFER-IN-CHANNEL
     9430   01 02BDE    760001CD A   T7600    GEN,16,10,6    X'7600',7,T7610-%   CONTROL WORD
     9431   01 02BDF    32801329              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9432   01 02BE0    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9433   01 02BE1    4980366C              OR,R8    =X'5A'            INPUT BYTE CONFIGURATION
     9434   01 02BE2    ED80129D              WD,R8    *GP13             DATA TO MS DA0-7
     9435   01 02BE3    2200092B              LI,R0    DA(CMDT32A)       COMMAND CHAINING FOLLOWED BY
     9436   01 02BE4    6AF0185B              BAL,R15  PREPHS15           DOUBLE TRANSFER-IN-CHANNEL
     9437   01 02BE5    CC001314              SIO,R0   *IOPMSADR
     9438   01 02BE6    229FFFE2 A            LI,R9    -30               DELAY
     9439   01 02BE7    65902BE7              BIR,R9   %
     9440   01 02BE8    22800000 A            LI,R8    0                 EXPECTED BUFFER CONTENTS
     9441   01 02BE9    329012A4              LW,R9    BUFFER1           BUFFER CONTENTS
     9442   01 02BEA    68001AC6              B        CREQUAL           SHOULD BE EQUAL
     9443                            *
     9444                            *                                  INCORRECT LENGTH, IOP HALT CONDITION
     9445   01 02BEB    761000CF A   T7610    GEN,16,10,6    X'7610',3,T7620-%   CONTROL WORD
     9446   01 02BEC    32601329              LW,R6    MSA               DEVICE ADDRESS
     9447   01 02BED    25600010 A            SLS,R6   16
     9448   01 02BEE    49603521              OR,R6    =X'40'            INCORRECT LENGTH BIT
     9449   01 02BEF    ED60129D              WD,R6    *GP13             SET INCORRECT LENGTH BIT
     9450   01 02BF0    22000932              LI,R0    DA(CMDT38)        HALT-ON-TRANSMISSION ERROR
     9451   01 02BF1    6AF0170F              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     9452   01 02BF2    CC901314              SIO,R9   *IOPMSADR         WRITE, BYTE COUNT = 10
     9453   01 02BF3    229FFFE2 A            LI,R9    -30               DELAY
     9454   01 02BF4    65902BF4              BIR,R9   %
     9455   01 02BF5    CD901314              TIO,R9   *IOPMSADR
     9456   01 02BF6    22820000 A            LI,R8    X'20000'
     9457   01 02BF7    4B900008 A            AND,R9   R8                IOP HALT BIT IN OPERATIONAL STATUS
     9458   01 02BF8    693014D4              BCS,3    GOOD              YES
     9459   01 02BF9    68001411              B        BAD               NO
     9460                            *
     9461                            *                                  SUPPRESS INCORRECT LENGTH
     9462   01 02BFA    762000CE A   T7620    GEN,16,10,6    X'7620',3,T7630-%   CONTROL WORD
     9463   01 02BFB    32601329              LW,R6    MSA               DEVICE ADDRESS
     9464   01 02BFC    25600010 A            SLS,R6   16
     9465   01 02BFD    49603521              OR,R6    =X'40'            INCORRECT LENGTH BIT
     9466   01 02BFE    22000933              LI,R0    DA(CMDT39)        HTL &SIL SET
     9467   01 02BFF    ED60129D              WD,R6    *GP13             SET HTE & SIL
     9468   01 02C00    6AF0170F              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     9469   01 02C01    CC901314              SIO,R9   *IOPMSADR         WRITE, BYTE COUNT = 10
     9470   01 02C02    229FFFE2 A            LI,R9    -30               DELAY
     9471   01 02C03    65902C03              BIR,R9   %
     9472   01 02C04    CD901314              TIO,R9   *IOPMSADR
     9473   01 02C05    4B90366D              AND,R9   =X'20000'         IOP HALT STATUS BIT SHOULD BE OFF
     9474   01 02C06    683014D4              BCR,3    GOOD              YES
     9475   01 02C07    68001411              B        BAD               NO
     9476                            *
     9477                            *                                  SKIP FLAG, NOT CCURQ DURING DATA
     9478                            *                                    OUT
     9479   01 02C08    763000C9 A   T7630    GEN,16,10,6    X'7630',3,T7640-%   CONTROL WORD
     9480   01 02C09    22000934              LI,R0    DA(CMDT40)        BYTE COUNT = 2, SKIP BIT SET
     9481   01 02C0A    221FFFFE A            LI,R1    -2                TWO SERVICES
     9482   01 02C0B    22807668 A            LI,R8    X'7668'           SNAP 'PH1' OF DATA OUT
     9483   01 02C0C    6AF019E1              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
     9484   01 02C0D    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
     9485   01 02C0E    4B90350A              AND,R9   =X'400'           SHOULD NOT SEE 'CCURQ'
     9486   01 02C0F    69301411              BCS,3    BAD               YES
     9487   01 02C10    680014D4              B        GOOD              NO
     9488                            *
     9489                            *                                  SKIP FLAG, NOT 'CCURQ' DURING DATA
     9490                            *                                    IN
     9491   01 02C11    764000C9 A   T7640    GEN,16,10,6    X'7640',3,T7650-%   CONTROL WORD
     9492   01 02C12    22000935              LI,R0    DA(CMDT41)        BYTE COUNT=3, SKIP BIT SET
     9493   01 02C13    221FFFFE A            LI,R1    -2                TWO SERVICES
     9494   01 02C14    22807668 A            LI,R8    X'7668'           SNAP 'PH1' OF DATA OUT
     9495   01 02C15    6AF019E1              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
     9496   01 02C16    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
     9497   01 02C17    4B90350A              AND,R9   =X'400'           SHOULD NO SEE 'CCURQ'
     9498   01 02C18    69301411              BCS,3    BAD               YES
     9499   01 02C19    680014D4              B        GOOD              NO
     9500                            *
     9501                            *                                  SKIP FLAG SET, NO DATA TRANSFER
     9502   01 02C1A    765001CD A   T7650    GEN,16,10,6    X'7650',7,T7652-%   CONTROL WORD
     9503   01 02C1B    32601329              LW,R6    MSA               MS DEVICE ADDRESS
     9504   01 02C1C    25600010 A            SLS,R6   16
     9505   01 02C1D    4960366E              OR,R6    =X'BD'            DATA BYTE CONFIGURATION
     9506   01 02C1E    ED60129D              WD,R6    *GP13             TO DA0-7 IN MS
     9507   01 02C1F    22000935              LI,R0    DA(CMDT41)        READ, SKIP FLAG, BYTE COUNT=3
     9508   01 02C20    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9509   01 02C21    CC001314              SIO,R0   *IOPMSADR         SKIP READ
     9510   01 02C22    229FFFE2 A            LI,R9    -30               DELAY
     9511   01 02C23    65902C23              BIR,R9   %
     9512   01 02C24    22800000 A            LI,R8    0                 COMPARE DATA
     9513   01 02C25    329012A4              LW,R9    BUFFER1           RECEIVED DATA
     9514   01 02C26    68001AC6              B        CREQUAL
     9515                            *
     9516                            *                                  VERIFY MEMORY ADDRESS ERROR
     9517   01 02C27    765201CD A   T7652    GEN,16,10,6    X'7652',7,T7654-%   CONTROL WORD
     9518   01 02C28    32001318              LW,R0    LASTMEM           VERIFY ADDRESSING LIMITS
     9519   01 02C29    2101FFFF A            CI,R0    X'1FFFF'          EQUAL OR GREATER THAN 128K
     9520   01 02C2A    681014D4              BCR,1    GOOD               YES
     9521   01 02C2B    20000002 A            AI,R0    2                 LAST LOC + 2
     9522   01 02C2C    2500007F A            SLS,R0   -1                CONVERT TO DBLE WD ADDRESSING
     9523   01 02C2D    328034EC     T7652B   LW,R8    =X'100000'        COMPARE WORD
     9524   01 02C2E    CC001314              SIO,R0   *IOPMSADR         I/O
     9525   01 02C2F    6AF01AC9              BAL,R15  DLY10US           DELAY 20 USEC
     9526   01 02C30    6AF01AC9              BAL,R15  DLY10US
     9527   01 02C31    CD901314              TIO,R9   *IOPMSADR         STATUS REPORT
     9528   01 02C32    4B90366F              AND,R9   =X'FD0000'        OP STATUS ONLY FOR MAE
     9529   01 02C33    68001AC6              B        CREQUAL           VERIFY R8 & R9
     9530                            *
     9531                            *                                  SET MAE VIA COMMAND CHAINING
     9532   01 02C34    765401C9 A   T7654    GEN,16,10,6    X'7654',7,T7656-%   CONTROL WORD
     9533   01 02C35    32A01318              LW,R10   LASTMEM           VERIFY ADDRESSING LIMIT
     9534   01 02C36    21A1FFFF A            CI,R10   X'1FFFF'          EQUAL OR GREATER THAN 128K
     9535   01 02C37    681014D4              BCR,1    GOOD               YES
     9536   01 02C38    4BA03670              AND,R10  =X'1FFFE'         DOUBLE WORD ADDRESS
     9537   01 02C39    1280124A              LD,R8    CMDT29A           COMMAND DOUBLE WORD
     9538   01 02C3A    9580000A A            STD,R8   *R10              TO LAST DOUBLE WORD
     9539   01 02C3B    3200000A A            LW,R0    R10
     9540   01 02C3C    68002C2C              B        T7652B-1           LOCATION
     9541                            *
     9542                            *                                  SET MAE VIA MAXIMUM ADR
     9543   01 02C3D    765601C3 A   T7656    GEN,16,10,6    X'7656',7,T7658-%   CONTROL WORD
     9544   01 02C3E    32003527              LW,R0    =X'80000'         MAX MEMORY
     9545   01 02C3F    68002C2D              B        T7652B            TO SUBROUTINE
     9546                            *
     9547                            *                                  SET MAE VIA TRANSFER IN CHANNEL
     9548   01 02C40    765801C3 A   T7658    GEN,16,10,6    X'7658',7,T7660-%   CONTROL WORD
     9549   01 02C41    22000941              LI,R0    DA(CMDT52A)       COMMAND CHAIN
     9550   01 02C42    68002C2D              B        T7652B
     9551                            *
     9552                            *                                  READ BACKWARDS, THREE BYTE TRANSFER
     9553   01 02C43    766001CD A   T7660    GEN,16,10,6    X'7660',7,T7670-%   CONTROL WORD
     9554   01 02C44    32601329              LW,R6    MSA               DEVICE ADDRESS
     9555   01 02C45    25600010 A            SLS,R6   16
     9556   01 02C46    49603671              OR,R6    =X'DB'            DATA BYTE CONFIGURATION
     9557   01 02C47    ED60129D              WD,R6    *GP13             LOAD IN DA0-7 IN MS
     9558   01 02C48    22000936              LI,R0    DA(CMDT42)        READ BACKWARDS, COUNT = 4
     9559   01 02C49    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9560   01 02C4A    CC001314              SIO,R0   *IOPMSADR         READ BACKWARDS
     9561   01 02C4B    229FFFE2 A            LI,R9    -30
     9562   01 02C4C    65902C4C              BIR,R9   %                 30 MICROSECOND DELAY
     9563   01 02C4D    329012A4              LW,R9    BUFFER1           RECEIVED DATA
     9564   01 02C4E    32803672              LW,R8    =X'DBDBDB'        COMPARE DATA
     9565   01 02C4F    68001AC6              B        CREQUAL
     9566                            *
     9567                            *                                  READ BACKWARDS, DECREMENT BYTE
     9568                            *                                   ADDRESS
     9569   01 02C50    767001CF A   T7670    GEN,16,10,6    X'7670',7,T7680-%   CONTROL WORD
     9570   01 02C51    22000936              LI,R0    DA(CMDT42)        READ BACKWARDS, COUNT = 4
     9571   01 02C52    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9572   01 02C53    CC001314              SIO,R0   *IOPMSADR         READ BACKWARDS
     9573   01 02C54    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
     9574   01 02C55    65902C55              BIR,R9   %
     9575   01 02C56    32B01329              LW,R11   MSA               SUBCHANNEL (FAM) ADDRESS
     9576   01 02C57    6AF01C67              BAL,R15  SUBCHADR
     9577   01 02C58    3290000A A            LW,R9    R10
     9578   01 02C59    499034FC              OR,R9    =X'2000000'       UPPER FAM CONTROL BIT
     9579   01 02C5A    ED901299              WD,R9    *GP09             FILL 'C' REGISTER FROM FAM
     9580   01 02C5B    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     9581   01 02C5C    4B90131F              AND,R9   MASK10            MASK HIGH ORDER POSITIONS
     9582   01 02C5D    22804A90              LI,R8    BA(BUFFER1)       COMPARE ADDRESS
     9583   01 02C5E    68001AC6              B        CREQUAL           SHOULD COMPARE
     9584                            *
     9585                            *                                  SPURIOUS INTERRUPT CHECK
     9586   01 02C5F    768000CB A   T7680    GEN,16,10,6    X'7680',3,T7690-%   CONTROL WORD
     9587   01 02C60    22802C69              LI,R8    T7680B
     9588   01 02C61    35801315              STW,R8   IORETURN          SET LOCAL INTR. RETURN
     9589   01 02C62    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
     9590   01 02C63    68002C64              B        %+1
     9591   01 02C64    68002C65              B        %+1               TWO INSTRUCION DELAY
     9592   01 02C65    22800020 A            LI,R8    X'20'
     9593   01 02C66    6D801100 A            WD,R8    X'1100'           DISARM I/O INTERRUPTS
     9594   01 02C67    6D801500 A            WD,R8    X'1500'           DISABLE I/O INTERRUPTS
     9595   01 02C68    680014D4              B        GOOD              RETURN GOOD - NO SPURIOUS INTRPTS.
     9596   01 02C69    68001411     T7680B   B        BAD               SPURIOUS INTR. PRESENT
     9597                            *
     9598                            *                                  TEST INTERRUPT PATH
     9599   01 02C6A    769001CF A   T7690    GEN,16,10,6    X'7690',7,T7700-%   CONTROL WORD
     9600   01 02C6B    22802C76              LI,R8    T7690B
     9601   01 02C6C    35801315              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
     9602   01 02C6D    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTRPTS.
     9603   01 02C6E    32801314              LW,R8    IOPMSADR          R8 = STATUS EXPECTED
     9604   01 02C6F    32A01329              LW,R10   MSA               FETCH DEVICE ADDRESS
     9605   01 02C70    25A00010 A            SLS,R10  16                FORMAT DEVICE ADDRESS
     9606   01 02C71    49A03544              OR,R10   =X'2000'          SET PROGRAM ADDRESS
     9607   01 02C72    EDA0129D              WD,R10   *GP13             SET INTERRUPT CALL FROM MS
     9608   01 02C73    229FFFE2 A            LI,R9    -30
     9609   01 02C74    65902C74              BIR,R9   %                 THIRTY MICRO-SECOND DELAY
     9610   01 02C75    68001411              B        BAD               RETURN BAD - NO INTERRUPT
     9611   01 02C76    329012A2     T7690B   LW,R9    AIOSTATS          FETCH STATUS
     9612   01 02C77    4B903500              AND,R9   =X'1FFF'          MASK
     9613   01 02C78    68001AC6              B        CREQUAL           COMPARE WITH R8
     9614                            *
     9615                            *                                  TEST AIO - RESETING FAM I/S
     9616   01 02C79    770001D7 A   T7700    GEN,16,10,6    X'7700',7,T7710-%   CONTROL WORD
     9617   01 02C7A    331012A1              MTW,1    AIOSKIP           INHIBIT AIO IN HANFLER
     9618   01 02C7B    22802C85              LI,R8    T7700B
     9619   01 02C7C    35801315              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
     9620   01 02C7D    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
     9621   01 02C7E    32A01329              LW,R10   MSA               FETCH DEVICE ADDRESS
     9622   01 02C7F    25A00010 A            SLS,R10  16                FORMAT
     9623   01 02C80    49A03544              OR,R10    =X'2000'
     9624   01 02C81    EDA0129D              WD,R10    *GP13             SET INTERRUPT CALL
     9625   01 02C82    229FFFE2 A            LI,R9    -30
     9626   01 02C83    65902C83              BIR,R9   %                 THIRTY MICROSECOND DELAY
     9627   01 02C84    68001411              B        BAD               RETURN BAD - NO INTERRUPT
     9628   01 02C85    6E000000 A   T7700B   AIO,R0   0                 ISSUE AIO
     9629   01 02C86    32B01329              LW,R11   MSA               DEVICE ADDRESS
     9630   01 02C87    6AF01C67              BAL,R15  SUBCHADR          DETERMINE SUBCHANNEL ADDRESS
     9631   01 02C88    49A03554              OR,R10   =X'82000000'      MERGE IN BIT 0 AND 7
     9632   01 02C89    EDA01299              WD,R10   *GP09             LOAD UPPER FAM INTO C-REG.
     9633   01 02C8A    22800000 A            LI,R8    0
     9634   01 02C8B    EC90129A              RD,R9    *GP10             READ FOR C CONTENTS
     9635   01 02C8C    4B903673              AND,R9   =X'FF00'          MASK FOR I/S BITS
     9636   01 02C8D    32800000 A            LW,R8    0                 I/S EXPECTED
     9637   01 02C8E    6AF01B34              BAL,R15  INTRESET          RESET I/O INTERRUPT
     9638   01 02C8F    68001AC6              B        CREQUAL           COMPARE
     9639                            *
     9640                            *                                  AIO ADDRESS PARITY RESPONSE
     9641                            *                                   -- CONDITION CODE SETTING
     9642   01 02C90    771001D6 A   T7710    GEN,16,10,6    X'7710',7,T7720-%   CONTROL WORD
     9643   01 02C91    331012A1              MTW,1    AIOSKIP           INHIBIT AIO IN HANDLER
     9644   01 02C92    22802CA1              LI,R8    T7710B
     9645   01 02C93    35801315              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
     9646   01 02C94    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
     9647   01 02C95    32B01329              LW,R11   MSA               FETCH DEVICE ADDRESS
     9648   01 02C96    6AF01C67              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
     9649   01 02C97    49A03674              OR,R10   =X'80004000'      FAM BIT 33
     9650   01 02C98    EDA01299              WD,R10   *GP09             SET IZBC IN UPPER FAM
     9651   01 02C99    32801329              LW,R8    MSA               FETCH CURRENT SUBCHANNEL ADDR.
     9652   01 02C9A    48803504              EOR,R8   =X'100'           INSERT PARITY
     9653   01 02C9B    25800010 A            SLS,R8   16                POSITION ADDRESS AND COUNT
     9654   01 02C9C    49803544              OR,R8    =X'2000'          SET INTRPT. CONTROL BIT
     9655   01 02C9D    ED80129D              WD,R8    *GP13             SET INTERRUPT CALL FROM MS
     9656   01 02C9E    224FFFE2 A            LI,R4    -30
     9657   01 02C9F    65402C9F              BIR,R4   %                 THIRTY MICROSECOND DELAY
     9658   01 02CA0    68001411              B        BAD               RETURN BAD - NO INTERRUPT
     9659   01 02CA1    6E200000 A   T7710B   AIO,R2   0                 ISSUE AIO
     9660   01 02CA2    74000009 A            STCF     R9                SAVE CONDITION CODES
     9661   01 02CA3    32803515              LW,R8    =X'80000000'      CC EXPECTED
     9662   01 02CA4    6AF01B34              BAL,R15  INTRESET          RESET I/O INTERRUPT
     9663   01 02CA5    68001AC6              B        CREQUAL           COMPARE
     9664                            *
     9665                            *                                  AIO ADDRESS PARITY RESPONSE
     9666                            *                                   --STATUS
     9667   01 02CA6    772001D7 A   T7720    GEN,16,10,6    X'7720',7,T7730-%   CONTROL WORD
     9668   01 02CA7    331012A1              MTW,1    AIOSKIP           INHIBIT AIO IN HANDLER
     9669   01 02CA8    22802CB8              LI,R8    T7720B
     9670   01 02CA9    35801315              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
     9671   01 02CAA    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
     9672   01 02CAB    32B01329              LW,R11   MSA               CURRENT DEVICE ADDRESS
     9673   01 02CAC    6AF01C67              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
     9674   01 02CAD    49A03674              OR,R10   =X'80004000'      SUBCHANNEL BIT 33
     9675   01 02CAE    EDA01299              WD,R10   *GP09             SET IZBC IN UPPER FAM
     9676   01 02CAF    22200000 A            LI,R2    0                 CLEAR STATUS REGISTER
     9677   01 02CB0    32801329              LW,R8    MSA               FETCH CURRENT SUBCHANNEL ADDR.
     9678   01 02CB1    48803504              EOR,R8   =X'100'           INSERT BAD PARITY
     9679   01 02CB2    25800010 A            SLS,R8   16                POSITION ADDRESS AND COUNT
     9680   01 02CB3    49803544              OR,R8    =X'2000'          SET INTRPT. CONTROL BIT
     9681   01 02CB4    ED80129D              WD,R8    *GP13             SET INTERRUPT CALL FROM MS
     9682   01 02CB5    224FFFE2 A            LI,R4    -30
     9683   01 02CB6    65402CB6              BIR,R4   %                 THIRTY MICROSECOND DELAY
     9684   01 02CB7    68001411              B        BAD               RETURN BAD - NO INTERRUPT
     9685   01 02CB8    6E200000 A   T7720B   AIO,R2   0                 ISSUE AIO
     9686   01 02CB9    22800000 A            LI,R8    0                 STATUS EXPECTED
     9687   01 02CBA    32900002 A            LW,R9    R2                STATUS RECEIVED
     9688   01 02CBB    6AF01B34              BAL,R15  INTRESET          RESET I/O INTERRUPT
     9689   01 02CBC    68001AC6              B        CREQUAL           COMPARE
     9690                            *
     9691                            *                                  AIO ADDRESS PARITY RESPONSE
     9692                            *                                   -- FAST ACCESS MEMORY
     9693   01 02CBD    773001DC A   T7730    GEN,16,10,6    X'7730',7,T7740-%   CONTROL WORD
     9694   01 02CBE    331012A1              MTW,1    AIOSKIP           INHIBIT AIO IN HANDLER
     9695   01 02CBF    22802CCE              LI,R8    T7730B
     9696   01 02CC0    35801315              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
     9697   01 02CC1    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
     9698   01 02CC2    32B01329              LW,R11   MSA               CURRENT MS DEVICE ADDRESS
     9699   01 02CC3    6AF01C67              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
     9700   01 02CC4    49A03674              OR,R10   =X'80004000'      FAM BIT 33
     9701   01 02CC5    EDA01299              WD,R10   *GP09             SET IZBC IN FAM UPPER
     9702   01 02CC6    32B01329              LW,R11   MSA               CURRENT MS DEVICE ADDRESS
     9703   01 02CC7    48A03504              EOR,R10  =X'100'           INSERT BAD PARITY
     9704   01 02CC8    25A00010 A            SLS,R10  16                FORMAT
     9705   01 02CC9    49A03544              OR,R10   =X'2000'          SET INTERRUPT CALL BIT
     9706   01 02CCA    ED80129D              WD,R8    *GP13             SET INTERRUPT CALL FROM MS
     9707   01 02CCB    224FFFE2 A            LI,R4    -30
     9708   01 02CCC    65402CCC              BIR,R4   %                 THIRTY MICROSECOND DELAY
     9709   01 02CCD    68001411              B        BAD               ERR RETURN - NO INTERRUPT
     9710   01 02CCE    6E200000 A   T7730B   AIO,R2   0                 ISSUE AIO
     9711   01 02CCF    32B01329              LW,R11   MSA               CURRENT MS DEVICE ADDRESS
     9712   01 02CD0    6AF01C67              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
     9713   01 02CD1    49A03554              OR,R10   =X'82000000'      MERGE IN BIT 0 AND 7
     9714   01 02CD2    EDA01299              WD,R10   *GP09             LOAD UPPER FAM INTO C-REG.
     9715   01 02CD3    22800040 A            LI,R8    X'40'
     9716   01 02CD4    EC90129A              RD,R9    *GP10             READ FOR C CONTENTS
     9717   01 02CD5    4B903673              AND,R9   =X'FF00'          MASK FOR I/S BITS
     9718   01 02CD6    32800000 A            LW,R8    0                 I/S EXPECTED
     9719   01 02CD7    6AF01B34              BAL,R15  INTRESET          RESET I/O INTERRUPT
     9720   01 02CD8    68001AC6              B        CREQUAL           COMPARE
     9721         01 02CD9           T7740    EQU      %
     9722                            *
     9723                            *                                  INTERRUPT ON BYTE COUNT EQUALS ZERO
     9724   01 02CD9    777000C8 A   T7770    GEN,16,10,6    X'7770',3,T7780-%   CONTROL WORD
     9725   01 02CDA    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
     9726   01 02CDB    2200092E              LI,R0    DA(CMDT34)        INTERRUPT ON BYTE COUNT = 0
     9727   01 02CDC    6AF01713              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
     9728   01 02CDD    CC001314              SIO,R0   *IOPMSADR         READ THREE BYTES
     9729   01 02CDE    226FFFE2 A            LI,R6    -30               DELAY 30 USEC
     9730   01 02CDF    65602CDF              BIR,R6   %                 SHOULD INTERRUPT OUT
     9731   01 02CE0    68001411              B        BAD               NO GOOD. NO I/O INTERRUPT
     9732                            *
     9733                            *                                  INTERRUPT ON BYTE COUNT EQUALS ZERO--
     9734                            *                                   VERIFY STATUS RESPONSE.
     9735   01 02CE1    778001CF A   T7780    GEN,16,10,6    X'7780',7,T7790-%   CONTROL WORD
     9736   01 02CE2    22C02CEC              LI,R12   T7780B             ROUTINE, COMMAND ADDRESS.
     9737   01 02CE3    35C01315              STW,R12  IORETURN          LOCAL AIO RETURN
     9738   01 02CE4    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT VIA SUB-
     9739   01 02CE5    2200092E              LI,R0    DA(CMDT34)
     9740   01 02CE6    6AF01713              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
     9741   01 02CE7    CC001314              SIO,R0   *IOPMSADR         I/O
     9742   01 02CE8    3280363C              LW,R8    =X'200000'
     9743   01 02CE9    229FFFE2 A            LI,R9    -30               DELAY FOR ZBC INTERRUPT
     9744   01 02CEA    65902CEA              BIR,R9   %
     9745   01 02CEB    68001411              B        BAD               NO-- REPORT ERROR
     9746   01 02CEC    3280363C     T7780B   LW,R8    =X'200000'        YES, INTERRUPT OCCURRED-- COMPOSE
     9747   01 02CED    49801314              OR,R8    IOPMSADR           STATUS WORD. SET ZBC (BIT 10) &
     9748   01 02CEE    329012A2              LW,R9    AIOSTATS           IOP-MS ADDRESS. FETCH AIO STATUS
     9749   01 02CEF    68001AC6              B        CREQUAL           VERIFY RESPONSE FROM I/O INTERRUPT
     9750                            *
     9751                            *                                  INTERRUPT ON BYTE COUNT EQUALS ZERO.
     9752                            *                                   VERIFY CONDITION CODES.
     9753   01 02CF0    779001CE A   T7790    GEN,16,10,6    X'7790',7,T7800-%   CONTROL WORD
     9754   01 02CF1    22C02CFB              LI,R12   T7790B             ROUTINE.
     9755   01 02CF2    35C01315              STW,R12  IORETURN
     9756   01 02CF3    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT VIA SUB-
     9757   01 02CF4    2200092E              LI,R0    DA(CMDT34)        COMMAND ADDRESS
     9758   01 02CF5    6AF01713              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
     9759   01 02CF6    CC001314              SIO,R0   *IOPMSADR         I/O
     9760   01 02CF7    22800000 A            LI,R8    0
     9761   01 02CF8    229FFFE2 A            LI,R9    -30
     9762   01 02CF9    65902CF9              BIR,R9   %
     9763   01 02CFA    68001411              B        BAD               NO-- REPORT ERROR
     9764   01 02CFB    22800000 A   T7790B   LI,R8    0                 YES-- INTERRUPT OCCURED
     9765   01 02CFC    329012A0              LW,R9    AIOCC             CC STATUS RESPONSE (BITS 0-3)
     9766   01 02CFD    68001AC6              B        CREQUAL           VERIFY CC STATUS
     9767                            *
     9768                            *                                  INTERRUPT ON CHANNEL END
     9769   01 02CFE    780000CC A   T7800    GEN,16,10,6    X'7800',3,T7810-%   CONTROL WORD
     9770   01 02CFF    32801329              LW,R8    MSA               SET CHANNEL END BIT IN MS
     9771   01 02D00    25800010 A            SLS,R8   16
     9772   01 02D01    49803675              OR,R8    =X'10'
     9773   01 02D02    ED80129D              WD,R8    *GP13
     9774   01 02D03    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
     9775   01 02D04    2200092F              LI,R0    DA(CMDT35)        INTERRUPT ON CHANNEL END
     9776   01 02D05    6AF01713              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
     9777   01 02D06    CC001314              SIO,R0   *IOPMSADR         READ THREE BYTES
     9778   01 02D07    226FFFE2 A            LI,R6    -30               DELAY 30 USEC
     9779   01 02D08    65602D08              BIR,R6   %                 SHOULD INTERRUPT OUT
     9780   01 02D09    68001411              B        BAD               NO GOOD.  NO I/O INTERRUPT
     9781                            *
     9782                            *                                  INTERRUPT ON CHANNEL END-- VERIFY
     9783                            *                                   AIO STATUS RESPONSE
     9784   01 02D0A    781001D3 A   T7810    GEN,16,10,6    X'7810',7,T7820-%   CONTROL WORD
     9785   01 02D0B    32801329              LW,R8    MSA               SET CHANNEL END BIT VIA DA-03
     9786   01 02D0C    25800010 A            SLS,R8   16
     9787   01 02D0D    49803675              OR,R8    =X'10'
     9788   01 02D0E    ED80129D              WD,R8    *GP13
     9789   01 02D0F    22C02D19              LI,R12   T7810B            SET AIO SUBROUTINE FOR LOCAL RETURN
     9790   01 02D10    35C01315              STW,R12  IORETURN
     9791   01 02D11    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
     9792   01 02D12    2200092F              LI,R0    DA(CMDT35)        COMMAND DOUBLEWORD-- D.O.,BC=12,CE=1
     9793   01 02D13    6AF01713              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
     9794   01 02D14    CC001314              SIO,R0   *IOPMSADR
     9795   01 02D15    32803676              LW,R8    =X'10100000'
     9796   01 02D16    229FFFE2 A            LI,R9    -30               WAIT FOR CHANNEL END INTERRUPT
     9797   01 02D17    65902D17              BIR,R9   %
     9798   01 02D18    68001411              B        BAD               NO-- REPORT ERROR
     9799   01 02D19    32803676     T7810B   LW,R8    =X'10100000'      YES INTERRUPT OCCURED. STATUS
     9800   01 02D1A    49801314              OR,R8    IOPMSADR           WORD-- DA03, CE, & IOP-MS ADR
     9801   01 02D1B    329012A2              LW,R9    AIOSTATS          FETCH AIO STATUS WORD
     9802   01 02D1C    68001AC6              B        CREQUAL           VERIFY STATUS FROM I/O INTERRUPT
     9803                            *
     9804                            *                                  INTERRUPT ON CHANNEL END-- VERIFY
     9805                            *                                   CONDITION CODES
     9806   01 02D1D    782001D2 A   T7820    GEN,16,10,6    X'7820',7,T7830-%   CONTROL WORD
     9807   01 02D1E    32801329              LW,R8    MSA               SET CHANNEL END BIT VIA DA-03
     9808   01 02D1F    25800010 A            SLS,R8   16
     9809   01 02D20    49803675              OR,R8    =X'10'
     9810   01 02D21    ED80129D              WD,R8    *GP13
     9811   01 02D22    22C02D2C              LI,R12   T7820B            SET AIO SUBROUTINE FOR LOCAL RETURN
     9812   01 02D23    35C01315              STW,R12  IORETURN
     9813   01 02D24    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
     9814   01 02D25    2200092F              LI,R0    DA(CMDT35)        CMD ADDRESS-- D.O.,BC=2, CE=1
     9815   01 02D26    6AF01713              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
     9816   01 02D27    CC001314              SIO,R0   *IOPMSADR         I/O
     9817   01 02D28    22800000 A            LI,R8    0
     9818   01 02D29    229FFFE2 A            LI,R9    -30               WAIT FOR UE INTERRUPT
     9819   01 02D2A    65902D2A              BIR,R9   %
     9820   01 02D2B    68001411              B        BAD               NO-- REPORT ERROR
     9821   01 02D2C    22800000 A   T7820B   LI,R8    0                 YES-- INTERRUPT OCCURRED.
     9822   01 02D2D    329012A0              LW,R9    AIOCC             CC STATUS RESPONSE (BITS 0-3 = 0)
     9823   01 02D2E    68001AC6              B        CREQUAL           VERIFY CC STATUS
     9824                            *
     9825                            *                                  INTERRUPT ON UNUSUAL END
     9826   01 02D2F    783000D1 A   T7830    GEN,16,10,6    X'7830',3,T7840-%   CONTROL WORD
     9827   01 02D30    32801329              LW,R8    MSA               SET UP UNUSUAL END BIT VIA DIO
     9828   01 02D31    25800010 A            SLS,R8   16
     9829   01 02D32    498034F6              OR,R8    =X'8'
     9830   01 02D33    ED80129D              WD,R8    *GP13
     9831   01 02D34    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
     9832   01 02D35    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     9833   01 02D36    ED801298              WD,R8    *GP08
     9834   01 02D37    22000930              LI,R0    DA(CMDT36)
     9835   01 02D38    6AF01865              BAL,R15  PREPHS16          SINGLE PHASE OR GIVE SYNC
     9836   01 02D39    CC001314              SIO,R0   *IOPMSADR         I/O
     9837   01 02D3A    328034F8              LW,R8    =X'4000000'       UNUSUAL END CONTROL BIT
     9838   01 02D3B    ED80129E              WD,R8    *GP14             FORCE UNUSUAL END VIA MS
     9839   01 02D3C    ED001298              WD,R0    *GP08             BACK TO FREE RUN-- COMPLETE I/O
     9840   01 02D3D    226FFFE7 A            LI,R6    -25
     9841   01 02D3E    65602D3E              BIR,R6   %                 SHOULD INTERRUPT OUT
     9842   01 02D3F    68001411              B        BAD               NO GOOD.  NO I/O INTERRUPT
     9843                            *
     9844                            *                                  INTERRUPT ON UNUSUAL END-- VERIFY
     9845                            *                                   AIO STATUS RESPONSE
     9846   01 02D40    784001D8 A   T7840    GEN,16,10,6    X'7840',7,T7850-%   CONTROL WORD
     9847   01 02D41    32801329              LW,R8    MSA               SET UP UNUSUAL END BIT VIA DA-04
     9848   01 02D42    25800010 A            SLS,R8   16
     9849   01 02D43    498034F6              OR,R8    =8
     9850   01 02D44    ED80129D              WD,R8    *GP13
     9851   01 02D45    22C02D54              LI,R12   T7840B
     9852   01 02D46    35C01315              STW,R12  IORETURN
     9853   01 02D47    6AF01A02              BAL,R15  ARMIO             ARM I/O INTERRUPT
     9854   01 02D48    22000930              LI,R0    DA(CMDT36)        CMD ADDRESS-- DO,CE FLAG,BC=2
     9855   01 02D49    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     9856   01 02D4A    ED801298              WD,R8    *GP08
     9857   01 02D4B    6AF01865              BAL,R15  PREPHS16          SINGLE PHASE OR GIVE SYNC
     9858   01 02D4C    CC001314              SIO,R0   *IOPMSADR         I/O
     9859   01 02D4D    328034F8              LW,R8    =X'4000000'       UNUSUAL END CONTROL BIT
     9860   01 02D4E    ED80129E              WD,R8    *GP14             FORCE UNUSUAL END VIA MS CONTROL
     9861   01 02D4F    ED001298              WD,R0    *GP08             BACK TO FREE RUN-- COMPLETE I/O
     9862   01 02D50    32803677              LW,R8    =X'8080000'
     9863   01 02D51    229FFFE7 A            LI,R9    -25               WAIT FOR UE INTERRUPT
     9864   01 02D52    65902D52              BIR,R9   %
     9865   01 02D53    68001411              B        BAD               NO INTERRUPT, REPORT ERROR
     9866   01 02D54    32803677     T7840B   LW,R8    =X'8080000'       INTERRUPT OCCURRED. STATUS WORD--
     9867   01 02D55    49801314              OR,R8    IOPMSADR           DA04, UE, & IOP-MS ADDRESS
     9868   01 02D56    329012A2              LW,R9    AIOSTATS          FETCH AIO STATUS WORD
     9869   01 02D57    68001AC6              B        CREQUAL           VERIFY RESPONSE FROM I/O INTERRUPT
     9870                            *
     9871                            *                                  INTERRUPT ON UNUSUAL END-- VERIFY
     9872                            *                                   AIO CONDITION CODE STATUS
     9873   01 02D58    785001D7 A   T7850    GEN,16,10,6    X'7850',7,T7860-%   CONTROL WORD
     9874   01 02D59    32801329              LW,R8    MSA               SET UP UNUSUAL END BIT VIA DA-04
     9875   01 02D5A    25800010 A            SLS,R8   16
     9876   01 02D5B    498034F6              OR,R8    =8
     9877   01 02D5C    ED80129D              WD,R8    *GP13
     9878   01 02D5D    22C02D6C              LI,R12   T7850B
     9879   01 02D5E    35C01315              STW,R12  IORETURN          LOCAL I/O INTERRUPT RETURN
     9880   01 02D5F    6AF01A02              BAL,R15  ARMIO             ARM I/O INTERRUPTS
     9881   01 02D60    22000930              LI,R0    DA(CMDT36)        CMD ADDRESS-- DO,CE FLAG,BC=2
     9882   01 02D61    22803000 A            LI,R8    X'3000'
     9883   01 02D62    ED801298              WD,R8    *GP08
     9884   01 02D63    6AF01865              BAL,R15  PREPHS16          SINGLE PHASE OR GIVE SYNC
     9885   01 02D64    CC001314              SIO,R0   *IOPMSADR         I/O
     9886   01 02D65    328034F8              LW,R8    =X'4000000'       UNUSUAL END CONTROL BIT
     9887   01 02D66    ED80129E              WD,R8    *GP14             FORCE UNUSUAL END VIA MS CONTROL
     9888   01 02D67    ED001298              WD,R0    *GP08
     9889   01 02D68    3280351B              LW,R8    =X'40000000'
     9890   01 02D69    229FFFE7 A            LI,R9    -25               WAIT FOR UNUSUAL END INTERRUPT
     9891   01 02D6A    65902D6A              BIR,R9   %
     9892   01 02D6B    68001411              B        BAD               NO INTERRUPT, REPORT ERROR

     9894   01 02D6C    3280351B     T7850B   LW,R8    =X'40000000'      INTERRUPT OCCURRED. (CC = 2)
     9895   01 02D6D    329012A0              LW,R9    AIOCC             CC STATUS RESPONSE (BITS 0-3 = 4)
     9896   01 02D6E    68001AC6              B        CREQUAL           VERIFY CC STATUS
     9897                            *
     9898                            *                                  HALT-ON-TRANSMISSION ERROR
     9899   01 02D6F    786001CF A   T7860    GEN,16,10,6    X'7860',7,T7870-%   CONTROL WORD
     9900   01 02D70    32901329              LW,R9    MSA
     9901   01 02D71    25900010 A            SLS,R9   16
     9902   01 02D72    22800301 A            LI,R8    X'301'            DAP, PC, & ONE DATA BIT
     9903   01 02D73    49800009 A            OR,R8    R9                MS DEVICE ADDRESS
     9904   01 02D74    22000931              LI,R0    DA(CMDT37)        HTE SET
     9905   01 02D75    6AF01870              BAL,R15  PREPHS17          SINGLE PHASE OR GIVE SYNC
     9906   01 02D76    CC001314              SIO,R0   *IOPMSADR         READ
     9907   01 02D77    ED80129D              WD,R8    *GP13             SET BAD PARITY
     9908   01 02D78    226FFFE7 A            LI,R6    -25               WAIT
     9909   01 02D79    65602D79              BIR,R6   %
     9910   01 02D7A    EC901298              RD,R9    *GP08             LOOK FOR 'EH' BIT SET IN MPXC DIS-
     9911   01 02D7B    4B903544              AND,R9   =X'2000'           PLAY GROUP
     9912   01 02D7C    32803544              LW,R8    =X'2000'          COMPARE
     9913   01 02D7D    68001AC6              B        CREQUAL
     9914                            *
     9915                            *                                  HALT-ON-TRANSMISSION ERROR
     9916   01 02D7E    787000D3 A   T7870    GEN,16,10,6    X'7870',3,T7880-%   CONTROL WORD
     9917   01 02D7F    32901329              LW,R9    MSA               DEVICE ADDRESS
     9918   01 02D80    25900010 A            SLS,R9   16
     9919   01 02D81    22800301 A            LI,R8    X'301'            DAP, PC, & ONE DATA BIT
     9920   01 02D82    224FFFE2 A            LI,R4    -30
     9921   01 02D83    65402D83              BIR,R4   %                 DELAY
     9922   01 02D84    49800009 A            OR,R8    R9                MS DEVICE ADDRESS
     9923   01 02D85    22000931              LI,R0    DA(CMDT37)        HTE SET
     9924   01 02D86    6AF01870              BAL,R15  PREPHS17          SINGLE PHASE OR GIVE SYNC
     9925   01 02D87    CC901314              SIO,R9   *IOPMSADR         READ
     9926   01 02D88    ED80129D              WD,R8    *GP13
     9927   01 02D89    224FFFE2 A            LI,R4    -30
     9928   01 02D8A    65402D8A              BIR,R4   %                 DELAY
     9929   01 02D8B    CD901314              TIO,R9   *IOPMSADR
     9930   01 02D8C    EDD01298              WD,R13   *GP08             CHANNEL A RESET
     9931   01 02D8D    4B9034E6              AND,R9   =X'FFFF'          MASK OFF HIGH ORDER BITS
     9932   01 02D8E    21900000 A            CI,R9    0                 SHOULD BE GREATER THAN 0
     9933   01 02D8F    692014D4              BCS,2    GOOD              YES
     9934   01 02D90    68001411              B        BAD               NO
     9935                            *
     9936                            *                                  INTERRUPT ON UNUSUAL END
     9937                            *                                   HALT ON T.E.
     9938   01 02D91    788001D2 A   T7880    GEN,16,10,6    X'7880',7,T8000-%   CONTROL WORD
     9939   01 02D92    22C02DA1              LI,R12   T7880B
     9940   01 02D93    35C01315              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
     9941   01 02D94    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
     9942   01 02D95    32803678              LW,R8    =X'90480000'      INDUCE T.E. VIA PARITY ERR
     9943   01 02D96    49801314              OR,R8    IOPMSADR          FORM STATUS EXPECTED
     9944   01 02D97    32501329              LW,R5    MSA               FETCH DEVICE ADDRESS
     9945   01 02D98    25500010 A            SLS,R5   16                POSITION FOR WRITE DIRECT
     9946   01 02D99    22400090 A            LI,R4    X'90'             ORDER IN TO = T.E.
     9947   01 02D9A    49400005 A            OR,R4    R5                SET WRITE DIRECT DATA
     9948   01 02D9B    ED40129D              WD,R4    *GP13             INITIATE T.E. VIA DIO
     9949   01 02D9C    2200093F              LI,R0    DA(CMDT50)        DEDICATE R0 TO CMND. ADDR.
     9950   01 02D9D    CC201314              SIO,R2   *IOPMSADR         START I/O
     9951   01 02D9E    229FFFE2 A            LI,R9    -30
     9952   01 02D9F    65902D9F              BIR,R9   %                 30 MICROSECOND DELAY
     9953   01 02DA0    68001411              B        BAD               RETURN BAD - NO INTERRUPT
     9954   01 02DA1    329012A2     T7880B   LW,R9    AIOSTATS          FETCH AIO STATUS
     9955   01 02DA2    68001AC6              B        CREQUAL           COMPARE
     9956                            *
     9957                            *                                  FOUR BYTE MODE, DATA OUT TRANSFER,
     9958                            *                                   MPXC CONTROL SIGNALS
     9959   01 02DA3    800003CE A   T8000    GEN,16,10,6    X'8000',X'F',T8010-% CONTROL WORD
     9960   01 02DA4    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
     9961   01 02DA5    228107E9 A            LI,R8    X'107E9'          SNAP SHOT 1,SNAP MODE,DELAY=15,
     9962   01 02DA6    308012C8              AW,R8    CHBCTRL           CHAN B OPTION CONTROL
     9963   01 02DA7    ED801298              WD,R8    *GP08
     9964   01 02DA8    2200090C              LI,R0    DA(CMDT13)        FOUR BYTE TRANSFER
     9965   01 02DA9    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9966   01 02DAA    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE
     9967   01 02DAB    221FFFF1 A            LI,R1    -15               WAIT FOR COMPLETION
     9968   01 02DAC    65102DAC              BIR,R1   %
     9969   01 02DAD    EC901294              RD,R9    *DISPLAY          READ SNAP GROUP FOR DATA OUT
     9970   01 02DAE    4B903679              AND,R9   =X'FEFDE0EE'      MASK OUT DON'T CARES
     9971   01 02DAF    3280367A              LW,R8    =X'98B04080'      LOOK ESPECIAL FOR 'NBM:R' (BIT 01),
     9972   01 02DB0    68001AC6              B        CREQUAL            'DX4-1' (BIT 04), 'NONEBYTE'
     9973                            *                                    (BIT 15), NIER, & OTHER
     9974                            *
     9975                            *                                  FOUR BYTE MODE, UPDATE BYTE ADDRESS
     9976   01 02DB1    801003CA A   T8010    GEN,16,10,6    X'8010',X'F',T8020-% CONTROL WORD
     9977   01 02DB2    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
     9978   01 02DB3    2200090C              LI,R0    DA(CMDT13)        WRITE ORDER, BYTE COUNT = 4
     9979   01 02DB4    221FFFFE A            LI,R1    -2                SERVICE COUNT
     9980   01 02DB5    2281366A A            LI,R8    X'1366A'          CONTROL
     9981   01 02DB6    6AF019E1              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
     9982   01 02DB7    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTER CONTENTS
     9983   01 02DB8    4B90350F              AND,R9   =X'FFFFFF'        PURGE
     9984   01 02DB9    22804A94              LI,R8    BA(BUFFER1)+4     COMPARE BYTE ADDRESS
     9985   01 02DBA    68001AC6              B        CREQUAL
     9986                            *
     9987                            *                                  FOUR BYTE MODE, UPDATE BYTE ADDRESS
     9988   01 02DBB    802003CF A   T8020    GEN,16,10,6    X'8020',X'F',T8030-% CONTROL WORD
     9989   01 02DBC    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
     9990   01 02DBD    2200090C              LI,R0    DA(CMDT13)        WRITE ORDER, BYTE COUNT = 4
     9991   01 02DBE    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9992   01 02DBF    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE, DATA OUT
     9993   01 02DC0    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
     9994                            *        BIR,R9   %
     9995   01 02DC1    32B01314              LW,R11   IOPMSADR          DEVICE ADDRESS
     9996   01 02DC2    6AF01C67              BAL,R15  SUBCHADR          DETERMINE SUBCHANNEL (FAM) ADDRESS
     9997   01 02DC3    3280000A A            LW,R8    R10
     9998   01 02DC4    498034FC              OR,R8    =X'2000000'       MERGE CONTROL FOR BLOCKS 0 & 1
     9999   01 02DC5    ED801299              WD,R8    *GP09             SELECT FAM, FILL 'C' REGISTER
    10000   01 02DC6    EC90129A              RD,R9    *GP10             BLOCK 0 FROM 'C' REGISTER
    10001   01 02DC7    4B90350F              AND,R9   =X'FFFFFF'        MASK
    10002   01 02DC8    22804A94              LI,R8    BA(BUFFER1)+4     COMPARE BYTE ADDRESS
    10003   01 02DC9    68001AC6              B        CREQUAL
    10004                            *
    10005                            *                                  FOUR BYTE MODE, UPDATE BYTE COUNT
    10006   01 02DCA    803003CA A   T8030    GEN,16,10,6    X'8030',X'F',T8040-% CONTROL WORD
    10007   01 02DCB    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10008   01 02DCC    2200090C              LI,R0    DA(CMDT13)        WRITE ORDER,BYTE COUNT=4,WRITE
    10009   01 02DCD    221FFFFE A            LI,R1    -2                SERVICE COUNT
    10010   01 02DCE    2281366B A            LI,R8    X'1366B'          CONTROL
    10011   01 02DCF    6AF019E1              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
    10012   01 02DD0    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTER CONTENTS
    10013   01 02DD1    4B9034E6              AND,R9   =X'FFFF'          PURGE
    10014   01 02DD2    22800000 A            LI,R8    0                 SHOULD BE ZERO
    10015   01 02DD3    68001AC6              B        CREQUAL
    10016                            *
    10017                            *
    10018                            *                                  FOUR BYTE MODE, UPDATE BYTE COUNT
    10019   01 02DD4    804003D0 A   T8040    GEN,16,10,6    X'8040',X'F',T8050-% CONTROL WORD
    10020   01 02DD5    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10021   01 02DD6    2200090C              LI,R0    DA(CMDT13)        WRITE ORDER, BYTE COUNT = 4
    10022   01 02DD7    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10023   01 02DD8    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE I/O
    10024   01 02DD9    229FFFE2 A            LI,R9    -30
    10025   01 02DDA    65902DDA              BIR,R9   %                 30 MICROSECOND DELAY
    10026   01 02DDB    32B01314              LW,R11   IOPMSADR          DEVICE ADDRESS
    10027   01 02DDC    6AF01C67              BAL,R15  SUBCHADR
    10028   01 02DDD    3280000A A            LW,R8    R10               CONVERTED ADDRESS
    10029   01 02DDE    498034FC              OR,R8    =X'2000000'       MERGE CONTROL FOR BLOCKS 0 & 1
    10030   01 02DDF    ED801299              WD,R8    *GP09             READ FAM (SUBCHANNEL) TO 'C' REG.
    10031   01 02DE0    EC90129B              RD,R9    *GP11             READ BLOCK 1 FROM 'C' REGISTER
    10032   01 02DE1    4B9034E6              AND,R9   =X'FFFF'          MASK OFF FLAGS ETC
    10033   01 02DE2    22800000 A            LI,R8    0                 COMPARE WORD
    10034   01 02DE3    68001AC6              B        CREQUAL
    10035                            *
    10036                            *                                  FOUR BYTE MODE, DATA OUT, THREE
    10037                            *                                   BYTE TRANSFER
    10038   01 02DE4    805003CC A   T8050    GEN,16,10,6    X'8050',X'F',T8060-% CONTROL WORD
    10039   01 02DE5    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10040   01 02DE6    3280367B              LW,R8    =X'89ABCD00'      BYTE PATTERNS TO BUFFER
    10041   01 02DE7    358012A4              STW,R8   BUFFER1
    10042   01 02DE8    2200090B              LI,R0    DA(CMDT12)        COMMAND ADDRESS
    10043   01 02DE9    221FFFFE A            LI,R1    -2                SERVICE CYCLE COUNT
    10044   01 02DEA    2281366C A            LI,R8    X'1366C'          MPXC (A) CONTROL
    10045   01 02DEB    6AF019E1              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10046   01 02DEC    EC901294              RD,R9    *DISPLAY           SERVICE.  SNAP DATA
    10047   01 02DED    22800089 A            LI,R8    X'89'             COMPARE PATTERN
    10048   01 02DEE    4B9034F3              AND,R9   =X'FF'            MASK OFF ANY RESIDUE
    10049   01 02DEF    68001AC6              B        CREQUAL           SHOULD BE EQUAL
    10050                            *
    10051                            *                                  FOUR BYTE MODE, DATA OUT, FOUR BYTE
    10052                            *                                   TRANSFER, WORD BOUNDARY
    10053   01 02DF0    806003CB A   T8060    GEN,16,10,6    X'8060',X'F',T8070-% CONTROL WORD
    10054   01 02DF1    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10055   01 02DF2    3280367C              LW,R8    =X'456789AB'      BYTE PATTERNS TO BUFFER
    10056   01 02DF3    358012A4              STW,R8   BUFFER1
    10057   01 02DF4    2200090C              LI,R0    DA(CMDT13)        COMMAND ADDRESS
    10058   01 02DF5    221FFFFE A            LI,R1    -2                SERVICE CYCLE COUNT
    10059   01 02DF6    2281366D A            LI,R8    X'1366D'          MPXC (A) CONTROL
    10060   01 02DF7    6AF019E1              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10061   01 02DF8    EC901294              RD,R9    *DISPLAY           SERVICE.  READ SNAP DATA
    10062   01 02DF9    2280AB89 A            LI,R8    X'AB89'           COMPARE HALF WORD
    10063   01 02DFA    68001AC6              B        CREQUAL
    10064                            *
    10065                            *                                  FOUR BYTE MODE, DATA OUT, FIVE BYTE
    10066                            *                                   TRANSFER, WORD BOUNDARY
    10067   01 02DFB    807003CB A   T8070    GEN,16,10,6    X'8070',X'F',T8080-% CONTROL WORD
    10068   01 02DFC    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10069   01 02DFD    1280139A              LD,R8    STG123            BYTE PATTERN TO BUFFER
    10070   01 02DFE    158012A4              STD,R8   BUFFER1
    10071   01 02DFF    2200090D              LI,R0    DA(CMDT14)        COMMAND ADDRESS
    10072   01 02E00    221FFFFD A            LI,R1    -3                SERVICE CYCLE COUNT
    10073   01 02E01    2281366C A            LI,R8    X'1366C'          MPXC (A) CONTROL
    10074   01 02E02    6AF019E1              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10075   01 02E03    EC901294              RD,R9    *DISPLAY           SERVICE.  SNAP DATA
    10076   01 02E04    2280BC9A A            LI,R8    X'BC9A'           COMPARE HALF WORD
    10077   01 02E05    68001AC6              B        CREQUAL           SHOULD BE EQUAL
    10078                            *
    10079                            *                                  FOUR BYTE MODE, DATA OUT, SIX BYTE
    10080                            *                                   TRANSFER, BYTE 3 BOUNDARY
    10081   01 02E06    808003CE A   T8080    GEN,16,10,6    X'8080',X'F',T8090-% CONTROL WORD
    10082   01 02E07    6AF01B14              BAL,R15  FOURBXA           SET FOURBYTE MODE
    10083   01 02E08    1280139E              LD,R8    STGFED            BYTE PATTERN TO BUFFER
    10084   01 02E09    158012A4              STD,R8   BUFFER1
    10085   01 02E0A    3280367D              LW,R8    =X'54000000'
    10086   01 02E0B    358012A6              STW,R8   BUFFER1+2
    10087   01 02E0C    22000911              LI,R0    DA(CMDT19)        COMMAND ADDRESS
    10088   01 02E0D    221FFFFC A            LI,R1    -4                SERVICE CYCLE COUNT
    10089   01 02E0E    2281366C A            LI,R8    X'1366C'          MPXC (A) CONTROL
    10090   01 02E0F    6AF019E1              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10091   01 02E10    EC901294              RD,R9    *DISPLAY           SERVICE.  SNAP DATA
    10092   01 02E11    4B9034F3              AND,R9   =X'FF'
    10093   01 02E12    22800054 A            LI,R8    X'54'
    10094   01 02E13    68001AC6              B        CREQUAL
    10095                            *
    10096                            *                                  FOUR BYTE MODE, DATA OUT
    10097                            *                                   EIGHT BYTE TRANSFER, BYTE 3
    10098                            *                                   BOUNDRY
    10099   01 02E14    809003CE A   T8090    GEN,16,10,6    X'8090',X'F',T8100-%   CONTROL WORD
    10100   01 02E15    6AF01B14              BAL,R15  FOURBXA           SET 4-BYTE MODE
    10101   01 02E16    1280139E              LD,R8    STGFED            BYTE PATTERN TO BUFFER
    10102   01 02E17    158012A4              STD,R8   BUFFER1
    10103   01 02E18    3280367E              LW,R8    =X'54321200'
    10104   01 02E19    358012A6              STW,R8   BUFFER1+2
    10105   01 02E1A    22000912              LI,R0    DA(CMDT19A)       COMMAND ADDRESS TO R0
    10106   01 02E1B    221FFFFC A            LI,R1    -4                SERVICE CYCLE COUNT
    10107   01 02E1C    2281366C A            LI,R8    X'1366C'          MPXC A CONTROL
    10108   01 02E1D    6AF019E1              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO D.O.
    10109   01 02E1E    EC901294              RD,R9    *DISPLAY           SERVICE AND SNAP DATA
    10110   01 02E1F    4B9034F3              AND,R9   =X'FF'            MASK
    10111   01 02E20    22800054 A            LI,R8    X'54'
    10112   01 02E21    68001AC6              B        CREQUAL           COMPARE
    10113                            *
    10114                            *                                  FOUR BYTE MODE, DATA OUT, EIGHT
    10115                            *                                   BYTE TRANSFER, WORD BOUNDARY
    10116   01 02E22    810003CB A   T8100    GEN,16,10,6    X'8100',X'F',T8104-% CONTROL WORD
    10117   01 02E23    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10118   01 02E24    1280139C              LD,R8    STG234
    10119   01 02E25    158012A4              STD,R8   BUFFER1           LOAD OUTPUT BUFFER
    10120   01 02E26    22000913              LI,R0    DA(CMDT20)        COMMAND ADDRESS
    10121   01 02E27    221FFFFD A            LI,R1    -3                SERVICE CYCLE COUNT
    10122   01 02E28    2281366D A            LI,R8    X'1366D'          MPXC (A) CONTROL
    10123   01 02E29    6AF019E1              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10124   01 02E2A    EC901294              RD,R9    *DISPLAY           SERVICE.   SNAP DATA
    10125   01 02E2B    228001EF A            LI,R8    X'01EF'           VERIFY THE LAST TWO BYTES
    10126   01 02E2C    68001AC6              B        CREQUAL           CHECK CONTENTS OF R8 & R9
    10127                            *
    10128                            *                                  FOUR BYTE MODE, DATA OUT, EIGHT
    10129                            *                                   BYTE TRANSFER, BYTE 2 BOUNDARY
    10130   01 02E2D    810403CD A   T8104    GEN,16,10,6    X'8104',X'F',T8110-%   CONTROL WORD
    10131   01 02E2E    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10132   01 02E2F    128013A4              LD,R8    STG607            OUTPUT DATA
    10133   01 02E30    158012A4              STD,R8   BUFFER1
    10134   01 02E31    3280139A              LW,R8    STG123
    10135   01 02E32    358012A6              STW,R8   BUFFER1+2
    10136   01 02E33    22000940              LI,R0    DA(CMDT51)        CMD = WR, BYTE 2, BC = 8
    10137   01 02E34    221FFFFD A            LI,R1    -3                SERVICE CYCLES
    10138   01 02E35    2281366C A            LI,R8    X'1366C'          CONTROL FOR SINGLE SERVICE
    10139   01 02E36    6AF019E1              BAL,R15  ADVSCA            TO SERVICE ADVANCE ROUTINE
    10140   01 02E37    EC901294              RD,R9    *DISPLAY          READ DA0-7 & DB0-7 @ 4 BYTE SC
    10141   01 02E38    2280A090 A            LI,R8    X'A090'           COMPARE DATA
    10142   01 02E39    68001AC6              B        CREQUAL           VERIFY R8 & R9
    10143                            *
    10144                            *                                  FOUR BYTE MODE, DATA IN, MPXC
    10145                            *                                   CONTROL SIGNALS
    10146   01 02E3A    811003CE A   T8110    GEN,16,10,6    X'8110',X'F',T8120-% CONTROL WORD
    10147   01 02E3B    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10148   01 02E3C    228107C9 A            LI,R8    X'107C9'          SNAPSHOT 1, SNAPSHOT MODE, DELAY=
    10149   01 02E3D    308012C8              AW,R8    CHBCTRL            15, DISPLAY GROUP 9. CHAN
    10150   01 02E3E    ED801298              WD,R8    *GP08              B OPTION.
    10151   01 02E3F    22000910              LI,R0    DA(CMDT17)        READ ORDER, FOUR BYTE TRANSFER
    10152   01 02E40    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10153   01 02E41    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE
    10154   01 02E42    221FFFF1 A            LI,R1    -15
    10155   01 02E43    65102E43              BIR,R1   %                 WAIT FOR COMPLETION
    10156   01 02E44    EC901294              RD,R9    *DISPLAY          READ MPXC (A) SNAP DISPLAY
    10157   01 02E45    4B90367F              AND,R9   =X'FEFDC0EE'      MASK
    10158   01 02E46    32803680              LW,R8    =X'98B00080'      LOOK ESPECIAL FOR: 'NBM:R' (BIT
    10159   01 02E47    68001AC6              B        CREQUAL            01), 'DX4-1' (BIT 04), 'NONEBYTE'
    10160                            *                                    (BIT 15), NIER (BIT 18), & OTHER
    10161                            *
    10162                            *                                  FOUR BYTE MODE, DATA IN, THREE BYTE
    10163                            *                                   TRANSFER
    10164   01 02E48    812003CC A   T8120    GEN,16,10,6    X'8120',X'F',T8130-% CONTROL WORD
    10165   01 02E49    2280007E A            LI,R8    X'7E'             INPUT DATA BYTE
    10166   01 02E4A    358012E5              STW,R8   DATABYTE
    10167   01 02E4B    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10168   01 02E4C    2200090F              LI,R0    DA(CMDT16)        READ ORDER, THREE BYTE
    10169   01 02E4D    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10170   01 02E4E    CC001314              SIO,R0   *IOPMSADR         THREE BYTE DATA IN
    10171   01 02E4F    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
    10172   01 02E50    65902E50              BIR,R9   %
    10173   01 02E51    329012A4              LW,R9    BUFFER1           RECEIVED DATA PATTERN
    10174   01 02E52    32803681              LW,R8    =X'7E7E7E'        COMPARE PATTERN
    10175   01 02E53    68001AC6              B        CREQUAL           VERIFY
    10176                            *
    10177                            *                                  FOUR BYTE MODE, DATA IN, FOUR BYTE
    10178                            *                                   TRANSFER, WORD BOUNDARY
    10179   01 02E54    813003CC A   T8130    GEN,16,10,6    X'8130',X'F',T8140-% CONTROL WORD
    10180   01 02E55    228000E7 A            LI,R8    X'E7'             INPUT DATA BYTE
    10181   01 02E56    358012E5              STW,R8   INDATA
    10182   01 02E57    6AF01B14              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10183   01 02E58    22000910              LI,R0    DA(CMDT17)        READ ORDER, FOUR BYTE TRANSFER
    10184   01 02E59    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10185   01 02E5A    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE
    10186   01 02E5B    229FFFE2 A            LI,R9    -30               WAIT FOR COMPLETION
    10187   01 02E5C    65902E5C              BIR,R9   %
    10188   01 02E5D    329012A4              LW,R9    BUFFER1           RECEIVED DATA BYTES
    10189   01 02E5E    32803682              LW,R8    =X'E7E7E7E7'      COMPARE DATA BYTES
    10190   01 02E5F    68001AC6              B        CREQUAL           VERIFY
    10191                            *
    10192                            *                                  FOUR BYTE MODE, DATA IN, EIGHT
    10193                            *                                   BYTE TRANSFER, BYTE 3 BOUNDRY
    10194   01 02E60    814003CC A   T8140    GEN,16,10,6    X'8140',X'F',T8150-%   CONTROL WORD
    10195   01 02E61    228000E7 A            LI,R8    X'E7'             DATA INPUT BYTE PATTERN
    10196   01 02E62    358012E5              STW,R8   INDATA
    10197   01 02E63    6AF01B14              BAL,R15  FOURBXA           SET 4-BYTE MODE
    10198   01 02E64    22000915              LI,R0    DA(CMDT21A)       READ ORDER, 4 BYTE TRANSFER
    10199   01 02E65    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10200   01 02E66    CC001314              SIO,R0   *IOPMSADR         ISSUE SIO
    10201   01 02E67    229FFFE2 A            LI,R9    -30               WAIT FOR COMPLETION
    10202   01 02E68    65902E68              BIR,R9   %
    10203   01 02E69    329012A6              LW,R9    BUFFER1+2         FETCH RECEIVED DATA
    10204   01 02E6A    32803683              LW,R8    =X'E7E7E700'      DATA EXPECTED
    10205   01 02E6B    68001AC6              B        CREQUAL           COMPARE
    10206                            *
    10207                            *                                  FOUR BYTE MODE, DATA IN, SIX BYTE
    10208                            *                                   TRANSFER, BYTE 3 BOUNDARY
    10209   01 02E6C    815003CC A   T8150    GEN,16,10,6    X'8150',X'F',T8160-% CONTROL WORD
    10210   01 02E6D    2280003C A            LI,R8    X'3C'             INPUT DATA BYTE
    10211   01 02E6E    358012E5              STW,R8   INDATA
    10212   01 02E6F    6AF01B14              BAL,R15  FOURBXA           SET INPUT BYTE MODE
    10213   01 02E70    22000914              LI,R0    DA(CMDT21)        READ ORDER, SIX  BYTE TRANSFER
    10214   01 02E71    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10215   01 02E72    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE
    10216   01 02E73    229FFFE2 A            LI,R9    -30               WAIT FOR COMPLETION
    10217   01 02E74    65902E74              BIR,R9   %
    10218   01 02E75    329012A5              LW,R9    BUFFER1+1         PARTIAL RECEIVED DATA BYTES
    10219   01 02E76    32803684              LW,R8    =X'3C3C3C3C'      COMPARE DATA BYTES
    10220   01 02E77    68001AC6              B        CREQUAL
    10221                            *
    10222                            *                                  FOUR BYTE MODE, DATA IN, EIGHT BYTE
    10223                            *                                   TRANSFER, WORD BOUNDARY
    10224   01 02E78    816003CC A   T8160    GEN,16,10,6  X'8160',X'F',T8162-%  CONTROL WORD
    10225   01 02E79    228000C3 A            LI,R8    X'C3'             INPUT DATA BYTE
    10226   01 02E7A    358012E5              STW,R8   INDATA
    10227   01 02E7B    6AF01B14              BAL,R15  FOURBXA           SET INPUT BYTE MODE
    10228   01 02E7C    22000916              LI,R0    DA(CMDT22)        READ ORDER, EIGHT BYTE TRANSFER
    10229   01 02E7D    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10230   01 02E7E    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE, DATA IN
    10231   01 02E7F    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
    10232   01 02E80    65902E80              BIR,R9   %
    10233   01 02E81    329012A4              LW,R9    BUFFER1           PARTIAL RECEIVED DATA BYTES
    10234   01 02E82    32803685              LW,R8    =X'C3C3C3C3'      COMPARE DATA BYTES
    10235   01 02E83    68001AC6              B        CREQUAL           VERIFY
    10236                            *
    10237                            *
    10238                            *                                   FOUR BYTE READ REVERSE,DATA IN
    10239                            *                                   ELEVEN BYTE TRANSFER,WORD BOUND
    10240   01 02E84    816203CC A   T8162    GEN,16,10,6 X'8162',X'F',T8164-%  CONTROL WORD
    10241   01 02E85    228000BF A            LI,R8    X'BF'             INPUT DATA BYTE
    10242   01 02E86    358012E5              STW,R8   INDATA
    10243   01 02E87    6AF01B14              BAL,R15  FOURBXA           SET INPUT BYTE MODE
    10244   01 02E88    220008FE              LI,R0    DA(CMDTB)         READ REV,11BYTE WORD BOUNDRY
    10245   01 02E89    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10246   01 02E8A    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE,DATA IN
    10247   01 02E8B    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
    10248   01 02E8C    65902E8C              BIR,R9   %
    10249   01 02E8D    329012A4              LW,R9    BUFFER1           PARTIAL RECEIVED DATA BYTES
    10250   01 02E8E    32803686              LW,R8    =X'00BFBFBF'      COMPARE DATA BYTES
    10251   01 02E8F    68001AC6              B        CREQUAL           VERIFY
    10252                            *
    10253                            *
    10254                            *                                   FOUR BYTE,READ REVERSE,DATA IN
    10255                            *                                   EIGHT BYTE TRANSFER,WORD BOUND
    10256   01 02E90    816403CC A   T8164    GEN,16,10,6  X'8164',X'F',T8166-%  CONTROL WORD
    10257   01 02E91    2280005A A            LI,R8    X'5A'             INPUT DATA BYTE
    10258   01 02E92    358012E5              STW,R8   INDATA
    10259   01 02E93    6AF01B14              BAL,R15  FOURBXA           SET INPUT BYTE MODE
    10260   01 02E94    220008FD              LI,R0    DA(CMDTA)         READ REV ORDER, 8 BYTE XFER
    10261   01 02E95    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10262   01 02E96    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE,DATA IN
    10263   01 02E97    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
    10264   01 02E98    65902E98              BIR,R9   %
    10265   01 02E99    329012A4              LW,R9    BUFFER1           PARTIAL RECEIVED DATA BYTES
    10266   01 02E9A    32803687              LW,R8    =X'5A5A5A5A'      COMPARE DATA BYTES
    10267   01 02E9B    68001AC6              B        CREQUAL           VERIFY
    10268                            *
    10269                            *
    10270                            *                                   FOUR BYTE READ REVERSE,DATA IN
    10271                            *                                   ELEVEN BYTE XFER,NON-WORD BOUND
    10272   01 02E9C    816603CC A   T8166    GEN,16,10,6  X'8166',X'F',T8170-%  CONTROL WORD
    10273   01 02E9D    228000F3 A            LI,R8    X'F3'             INPUT DATA BYTE
    10274   01 02E9E    358012E5              STW,R8   INDATA
    10275   01 02E9F    6AF01B14              BAL,R15  FOURBXA           SET INPUT BYTE MODE
    10276   01 02EA0    220008FF              LI,R0    DA(CMDTC)         READ REV,11 BYTE ODD BYTE BOUND
    10277   01 02EA1    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10278   01 02EA2    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE,DATA IN
    10279   01 02EA3    229FFF9C A            LI,R9    -100              WAIT FOR I/O COMPLETION
    10280   01 02EA4    65902EA4              BIR,R9   %
    10281   01 02EA5    329012A4              LW,R9    BUFFER1           PARTIAL RECEIVED DATA BYTES
    10282   01 02EA6    32803688              LW,R8    =X'F3F3F3F3'      COMPARE DATA BYTES
    10283   01 02EA7    68001AC6              B        CREQUAL           VERIFY
    10284                            *
    10285                            *                                  BURST MODE, DATA OUT, BURST MODE
    10286                            *                                   INDICATOR SET
    10287   01 02EA8    817005CE A   T8170    GEN,16,10,6    X'8170',X'17',T8180-% CONTROL WORD
    10288   01 02EA9    6AF01A09              BAL,R15  BURSTA            SET BURST MODE VIA MS CONTROLS
    10289   01 02EAA    228107E9 A            LI,R8    X'107E9'          SNAPSHOT 3, SNAPSHOT MODE, DELAY
    10290   01 02EAB    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
    10291   01 02EAC    ED801298              WD,R8    *GP08              15, DISPLAY GROUP 9
    10292   01 02EAD    22000913              LI,R0    DA(CMDT20)        WRITE ORDER, EIGHT BYTE TRANSFER
    10293   01 02EAE    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10294   01 02EAF    CC001314              SIO,R0   *IOPMSADR         BURST MODE, TWO WORD TRANSFER
    10295   01 02EB0    228FFFF1 A            LI,R8    -15               WAIT FOR I/O COMPLETION
    10296   01 02EB1    65802EB1              BIR,R8   %
    10297   01 02EB2    EC901294              RD,R9    *DISPLAY
    10298   01 02EB3    4B90131E              AND,R9   MASK9             LOOK AT SNAPSHOT DISPLAY, 'PH1' OF
    10299   01 02EB4    32803689              LW,R8    =X'59306C00'       DATA OUT, BURST.  SHOULD SEE
    10300   01 02EB5    68001AC6              B        CREQUAL            'BM:R' (BIT 1),'DX4-1' (BIT 3),
    10301                            *                                    'NIER' (BIT 18), & OTHER
    10302                            *
    10303                            *                                  BURST MODE, DATA OUT, EIGHT BYTE
    10304                            *                                   TRANSFER,DOUBLE WORD BOUNDARY
    10305   01 02EB6    818005CB A   T8180    GEN,16,10,6    X'8180',X'17',T8190-% CONTROL WORD
    10306   01 02EB7    6AF01A09              BAL,R15  BURSTA            SET BURST MODE
    10307   01 02EB8    1280139A              LD,R8    STG123
    10308   01 02EB9    158012A4              STD,R8   BUFFER1           OUTPUT DATA
    10309   01 02EBA    22000913              LI,R0    DA(CMDT20)        WRITE ORDER, COUNT = 8
    10310   01 02EBB    221FFFFE A            LI,R1    -2                TWO SERVICES
    10311   01 02EBC    228136AD A            LI,R8    X'136AD'          SNAP 6TH PHASE OF BURST, GROUP 13
    10312   01 02EBD    6AF019E1              BAL,R15  ADVSCA             DECIMAL.  CYCLE THROUGH TWO SER-
    10313   01 02EBE    EC901294              RD,R9    *DISPLAY           VICES.  READ SECOND HALF WORD OF
    10314   01 02EBF    2280F0DE A            LI,R8    X'F0DE'            DISPLAY DATA
    10315   01 02EC0    68001AC6              B        CREQUAL           VERIFY
    10316                            *
    10317                            *                                  BURST MODE, DATA OUT,14   BYTE DATA
    10318                            *                                   TRANSFER,INITIAL BYTE BOUNDARY
    10319   01 02EC1    819005D1 A   T8190    GEN,16,10,6    X'8190',X'17',T8200-% CONTROL WORD
    10320   01 02EC2    6AF01A09              BAL,R15  BURSTA            SET BURST MODE
    10321   01 02EC3    128013A0              LD,R8    STG0F1            OUTPUT DATA, BYTE BOUNDARY
    10322   01 02EC4    158012A4              STD,R8   BUFFER1
    10323   01 02EC5    3280368A              LW,R8    =X'5A697887'      OUTPUT DATA, SECOND FULL WORD
    10324   01 02EC6    358012A6              STW,R8   BUFFER1+2
    10325   01 02EC7    3280368B              LW,R8    =X'96A5B4C3'      OUTPUT DATA THIRD FULL WRD
    10326   01 02EC8    358012A7              STW,R8   BUFFER1+3
    10327   01 02EC9    228000D2 A            LI,R8    X'D2'             OUTPUT DATA, LAST BYTE
    10328   01 02ECA    758012A8              STB,R8   BUFFER1+4
    10329   01 02ECB    22000918              LI,R0    DA(CMDT23)        WRITE ORDER, BYTE COUNT=12
    10330   01 02ECC    221FFFFC A            LI,R1    -4                ITERATION COUNT
    10331   01 02ECD    2281366C A            LI,R8    X'1366C'          SNAP 3RD PHASE OF THE LAST BYTE
    10332   01 02ECE    6AF019E1              BAL,R15  ADVSCA             TRANSFER.  ADVANCE TWO SERVICES
    10333   01 02ECF    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
    10334   01 02ED0    228000D2 A            LI,R8    X'D2'             COMPARE BYTE
    10335   01 02ED1    68001AC6              B        CREQUAL
    10336                            *
    10337                            *                                  BURST MODE, DATA OUT, 12 BYTE TRANS-
    10338                            *                                   FER, BYTE BOUNDARIES
    10339   01 02ED2    820005CD A   T8200    GEN,16,10,6    X'8200',X'17',T8210-% CONTROL WORD
    10340   01 02ED3    6AF01A09              BAL,R15  BURSTA            SET BURST MODE VIA MS
    10341   01 02ED4    128013A2              LD,R8    STG102            OUTPUT DATA TO BUFFER. BYTE ZERO
    10342   01 02ED5    158012A4              STD,R8   BUFFER1            INITIAL BOUNDARY.  THIRD BYTE
    10343   01 02ED6    128013A4              LD,R8    STG607             TERMINAL BOUNDARY.
    10344   01 02ED7    158012A6              STD,R8   BUFFER1+2
    10345   01 02ED8    22000919              LI,R0    DA(CMDT24)        WRITE ORD, BC = 12, WRD BOUND
    10346   01 02ED9    221FFFFE A            LI,R1    -2                THREE SERVICE ITERATIONS
    10347   01 02EDA    228076CD A            LI,R8    X'76CD'           ADVANCE FOUR SERVICES.  SNAP PH2
    10348   01 02EDB    6AF019E1              BAL,R15  ADVSCA            OF THE LAST 4 BYTE OPERATION
    10349   01 02EDC    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA BYTE
    10350   01 02EDD    22808070 A            LI,R8    X'8070'             COMPARE BYTE
    10351   01 02EDE    68001AC6              B        CREQUAL           SHOULD BE EQUAL
    10352         01 02EDF           T8210    EQU      %
    10353                            *
    10354                            *                                  BURST MODE, DATA IN, BURST MODE IN-
    10355                            *                                   DICATOR SET
    10356   01 02EDF    822005CE A   T8220    GEN,16,10,6    X'8220',X'17',T8230-% CONTROL WORD
    10357   01 02EE0    6AF01A09              BAL,R15  BURSTA            SET BURST MODE VIA MS CONTROL
    10358   01 02EE1    228107C9 A            LI,R8    X'107C9'          SNAPSHOT 1, SNAPSHOT MODE, DELAY
    10359   01 02EE2    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B
    10360   01 02EE3    ED801298              WD,R8    *GP08              14, DISPLAY GROUP 9
    10361   01 02EE4    22000916              LI,R0    DA(CMDT22)        READ ORDER, EIGHT BYTE TRANSFER
    10362   01 02EE5    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10363   01 02EE6    CC001314              SIO,R0   *IOPMSADR         FOUR BYTE MODE
    10364   01 02EE7    228FFFF1 A            LI,R8    -15               WAIT FOR I/O COMPLETION
    10365   01 02EE8    65802EE8              BIR,8    %
    10366   01 02EE9    EC901294              RD,R9    *DISPLAY          LOOK AT SNAPSHOT DISPLAY IN MPXC,
    10367   01 02EEA    4B90131E              AND,R9   MASK9              'PH1' OF DATA IN SERVICE.  SHOULD
    10368   01 02EEB    3280368C              LW,R8    =X'58302C00'       SEE 'BM' (BIT 1),'DX4-1' (BIT 3),
    10369   01 02EEC    68001AC6              B        CREQUAL            'RS:R' (BIT 4), 'NIER' (BIT 18)
    10370                            *                                    & OTHER
    10371                            *
    10372                            *                                  BURST MODE, DATA IN, SECOND PHASE
    10373                            *                                   EIGHT SET
    10374   01 02EED    823005CA A   T8230    GEN,16,10,6    X'8230',X'17',T8240-% CONTROL WORD
    10375   01 02EEE    6AF01A09              BAL,R15  BURSTA            SET BURST MODE VIA MS
    10376   01 02EEF    22000917              LI,R0    DA(CMDT22A)       READ ORDER, EIGHT BYTE TRANSFER
    10377   01 02EF0    221FFFFE A            LI,R1    -2
    10378   01 02EF1    228076A8 A            LI,R8    X'76A8'           CONTROL
    10379   01 02EF2    6AF019E1              BAL,R15  ADVSCA            SINGLE SERVICE THROUGH BURST &
    10380   01 02EF3    EC901294              RD,R9    *DISPLAY              SNAP SECOND 'PH8'
    10381   01 02EF4    32803524              LW,R8    =X'800000'        LOOK FOR 'PH8'
    10382   01 02EF5    4B900008 A            AND,R9   R8
    10383   01 02EF6    68001AC6              B        CREQUAL
    10384                            *
    10385                            *                                  BURST MODE, DATA IN, SECOND PHASE
    10386                            *                                   NINE SET
    10387   01 02EF7    824005CA A   T8240    GEN,16,10,6    X'8240',X'17',T8250-% CONTROL WORD
    10388   01 02EF8    6AF01A09              BAL,R15  BURSTA            SET BURST MODE VIA MS
    10389   01 02EF9    22000917              LI,R0    DA(CMDT22A)        READ ORDER, EIGHT BYTE TRANSFER
    10390   01 02EFA    221FFFFE A            LI,R1    -2                COUNT FOR TWO SERVICES
    10391   01 02EFB    228076C8 A            LI,R8    X'76C8'           CONTROL
    10392   01 02EFC    6AF019E1              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
    10393   01 02EFD    EC901294              RD,R9    *DISPLAY             READ SNAP DATA, SECOND PHASE 9
    10394   01 02EFE    328034ED              LW,R8    =X'400000'        LOOK FOR 'PH9'
    10395   01 02EFF    4B900008 A            AND,R9   R8
    10396   01 02F00    68001AC6              B        CREQUAL
    10397                            *
    10398                            *                                  BURST MODE, DATA IN, EIGHT BYTE
    10399                            *                                   TRANSFER, DOUBLE WORD BOUNDARIES
    10400   01 02F01    825005CC A   T8250    GEN,16,10,6    X'8250',X'17',T8260-%   CONROL WORD
    10401   01 02F02    22800055 A            LI,R8    X'55'             INPUT DATA PATTERN
    10402   01 02F03    358012E5              STW,R8   INDATA
    10403   01 02F04    6AF01A09              BAL,R15  BURSTA            SET BURST MODE
    10404   01 02F05    22000916              LI,R0    DA(CMDT22)        READ ORDER, EIGHT BYTE TRANSFER
    10405   01 02F06    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10406   01 02F07    CC001314              SIO,R0   *IOPMSADR         BURST MODE
    10407   01 02F08    229FFFE2 A            LI,R9    -30
    10408   01 02F09    65902F09              BIR,R9   %                 30 MICROSECOND DELAY
    10409   01 02F0A    329012A5              LW,R9    BUFFER1+1         RECEIVED DATA, SECOND WORD
    10410   01 02F0B    32803667              LW,R8    =X'55555555'      COMPARE DATE
    10411   01 02F0C    68001AC6              B        CREQUAL
    10412                            *
    10413                            *                                  BURST MODE, DATA IN, 19 BYTE DATA
    10414                            *                                   TRANSFER
    10415   01 02F0D    826005CC A   T8260    GEN,16,10,6    X'8260',X'17',T8270-%   CONROL WORD
    10416   01 02F0E    228000AA A            LI,R8    X'AA'             INPUT DATA PATTERN
    10417   01 02F0F    358012E5              STW,R8   INDATA
    10418   01 02F10    6AF01A09              BAL,R15  BURSTA            SET BURST MODE
    10419   01 02F11    2200091A              LI,R0    DA(CMDT25)        READ ORDER, 19 BYTE TRANSFER
    10420   01 02F12    6AF0170B              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10421   01 02F13    CC001314              SIO,R0   *IOPMSADR         BURST MODE
    10422   01 02F14    229FFFE2 A            LI,R9    -30
    10423   01 02F15    65902F15              BIR,R9   %                 30 MICROSECOND DELAY
    10424   01 02F16    329012A9              LW,R9    BUFFER1+5         RECEIVED DATA, 17TH THRU 19TH BYTES
    10425   01 02F17    32803583              LW,R8    =X'AA000000'
    10426   01 02F18    68001AC6              B        CREQUAL
    10427                            *
    10428                            *                                  BURST MODE, DATA IN, DATA
    10429                            *                                   CHAIN AFTER EIGHT BYTES--
    10430                            *                                   VERIFY DATA
    10431   01 02F19    827005CC A   T8270    GEN,16,10,6    X'8270',X'17',T8280-%   CONROL WORD
    10432   01 02F1A    22800069 A            LI,R8    X'69'             FETCH DATA PATTERN FOR INPUT
    10433   01 02F1B    358012E5              STW,R8   INDATA            SET IN PATTERN STORAGE
    10434   01 02F1C    6AF01A09              BAL,R15  BURSTA            SET BURST MODE AND DA0-7
    10435   01 02F1D    2200091B              LI,R0    DA(CMDT25A)       1ST CMND: BC=8; 2ND CMND: BC=4
    10436   01 02F1E    6AF016D5              BAL,R15  PREPHS03          SINGLE PHASE OR GIVE SYNC
    10437   01 02F1F    CC001314              SIO,R0   *IOPMSADR         BEGIN BURST INPUT
    10438   01 02F20    229FFFE2 A            LI,R9    -30
    10439   01 02F21    65902F21              BIR,R9   %                 30 MICROSECOND DELAY
    10440   01 02F22    329012A6              LW,R9    BUFFER1+2         FETCH DATA RECEIVED, 3RD WRD
    10441   01 02F23    3280368D              LW,R8    =X'69696969'      FETCH DATA PATTERN EXPECTED
    10442   01 02F24    68001AC6              B        CREQUAL           VERIFY DATA
    10443                            *
    10444                            *                                  BURST MODE, DATA IN, DATA
    10445                            *                                   CHAIN AFTER FOUR BYTES--
    10446                            *                                   VERIFY DATA
    10447   01 02F25    828005CC A   T8280    GEN,16,10,6    X'8280',X'17',T8300-%   CONTROL WORD
    10448   01 02F26    22800069 A            LI,R8    X'69'             FETCH DATA PATTERN FOR INPUT
    10449   01 02F27    358012E5              STW,R8   INDATA            SET IN PATTERN STORAGE
    10450   01 02F28    6AF01A09              BAL,R15  BURSTA            SET BURST MODE AND DA0-7
    10451   01 02F29    2200091D              LI,R0    DA(CMDT25C)       1ST CMND: BC=4; 2ND CMND: BC=8
    10452   01 02F2A    6AF016E0              BAL,R15  PREPHS04          SINGLE PHASE OR GIVE SYNC
    10453   01 02F2B    CC001314              SIO,R0   *IOPMSADR         BEGIN BURST INPUT
    10454   01 02F2C    229FFFE2 A            LI,R9    -30
    10455   01 02F2D    65902F2D              BIR,R9   %                 30 MICROSECOND DELAY
    10456   01 02F2E    329012A6              LW,R9    BUFFER1+2         FETCH DATA RECEIVED, 3RD WRD
    10457   01 02F2F    3280368D              LW,R8    =X'69696969'      FETCH DATA PATTERN EXPECTED
    10458   01 02F30    68001AC6              B        CREQUAL           VERIFY DATA
    10459                            *
    10460                            *                                  MEMORY TO MEMORY MOVE
    10461   01 02F31    8300094E A   T8300    GEN,16,10,6    X'8300',X'25',T8310-%   CONROL WORD
    10462   01 02F32    3280368E              LW,R8    =X'1F2E3D4E'      FILL BUFFER
    10463   01 02F33    358012A4              STW,R8   BUFFER1
    10464   01 02F34    ED001297              WD,R0    *SYNC             SYNC INSTRUCTION
    10465   01 02F35    22000938              LI,R0    DA(CMDT45)
    10466   01 02F36    CC201328              SIO,R2   *MM9              WRITE
    10467   01 02F37    68C02F39              BCR,12   %+2               ASSURE DEVICE RECOGNITION
    10468   01 02F38    68001411              B        BAD
    10469   01 02F39    22000937              LI,R0    DA(CMDT44)
    10470   01 02F3A    CC401327              SIO,R4   *MM8              READ
    10471   01 02F3B    229FFFE2 A            LI,R9    -30
    10472   01 02F3C    65902F3C              BIR,R9   %                 30 MICROSECOND DELAY
    10473   01 02F3D    329012BE              LW,R9    BUFFER2           SHOULD CONTAIN MOVED DATA
    10474   01 02F3E    68001AC6              B        CREQUAL
    10475                            *
    10476                            *                                  MEM TO MEM MOVE - DATA CHAIN
    10477   01 02F3F    83100953 A   T8310    GEN,16,10,6    X'8310',X'25',T8320-%   CONROL WORD
    10478   01 02F40    3280365B              LW,R8    =X'11223344'      STUFF BUFFER WITH DATA TO
    10479   01 02F41    358012A4              STW,R8   BUFFER1            BE MOVED. (TWO WORDS)
    10480   01 02F42    3280365C              LW,R8    =X'55667788'
    10481   01 02F43    358012A5              STW,R8   BUFFER1+1
    10482   01 02F44    ED001297              WD,R0    *SYNC
    10483   01 02F45    22000939              LI,R0    DA(CMDT46A)       DEDICATE R0 TO CMND DBWRD ADDR.
    10484   01 02F46    CC201328              SIO,R2   *MM9              START SOURCE (DC9)
    10485   01 02F47    2200093B              LI,R0    DA(CMDT47A)       DEDICATE R0 TO CMND ADDR
    10486   01 02F48    CC401327              SIO,R4   *MM8              START DESTINATION (DC8)
    10487   01 02F49    229FFFE2 A            LI,R9    -30
    10488   01 02F4A    65902F4A              BIR,R9   %                 30 MICROSECOND DELAY
    10489   01 02F4B    329012BE              LW,R9    BUFFER2           FETCH RELOCATED DATA 1ST WRD.
    10490   01 02F4C    319012A4              CW,R9    BUFFER1           WAS 1ST WRD MOVED CORRECTLY?
    10491   01 02F4D    69301411              BCS,3    BAD               BRANCH IF NOT
    10492   01 02F4E    329012BF              LW,R9    BUFFER2+1         FETCH 2ND RLOCATED WRD
    10493   01 02F4F    319012A5              CW,R9    BUFFER1+1         IS SECOND WRD CORRECT?
    10494   01 02F50    69301411              BCS,3    BAD               BRANCH IF NOT
    10495   01 02F51    680014D4              B        GOOD
    10496                            *
    10497                            *                                  MEM TO MEM MOVE-DATA CHAIN
    10498                            *                                   SIL OVER-RIDE
    10499   01 02F52    8320094C A   T8320    GEN,16,10,6    X'8320',X'25',T8330-%   CONROL WORD
    10500   01 02F53    22000939              LI,R0    DA(CMDT46A)       DEDICATE R0 TO CMND ADDR
    10501   01 02F54    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
    10502   01 02F55    CC201328              SIO,R2   *MM9              START SOURCE
    10503   01 02F56    22000937              LI,R0    DA(CMDT44)        DEDICATE R0 TO CMND ADDR
    10504   01 02F57    CC401327              SIO,R4   *MM8              START DESTINATION I/O
    10505   01 02F58    229FFFE2 A            LI,R9    -30
    10506   01 02F59    65902F59              BIR,R9   %                 30 MICROSECOND DELAY
    10507   01 02F5A    CD601327              TIO,R6   *MM8
    10508   01 02F5B    3280368F              LW,R8    =X'18820000'      STATUS EXPECTED
    10509   01 02F5C    32900007 A            LW,R9    R7
    10510   01 02F5D    68001AC6              B        CREQUAL           COMPARE WITH ACTUAL
    10511                            *
    10512                            *                                  MEM TO MEM MOVE
    10513                            *                                   INTERRUPT ON CHANNEL END
    10514   01 02F5E    8330084A A   T8330    GEN,16,10,6    X'8330',X'21',T8340-%   CONROL WORD
    10515   01 02F5F    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10516   01 02F60    2200093D              LI,R0    DA(CMDT48)        DEDICATE R0 TO CMND ADDR
    10517   01 02F61    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
    10518   01 02F62    CC201328              SIO,R2   *MM9              START SOURCE I/O
    10519   01 02F63    2200093E              LI,R0    DA(CMDT49)        DEDICATE R0 TO DESTINATION
    10520   01 02F64    CC401327              SIO,R4   *MM8              START DESTINATION I/O
    10521   01 02F65    229FFFF6 A            LI,R9    -10
    10522   01 02F66    65902F66              BIR,R9   %                 NINETY MICROSECOND DELAY
    10523   01 02F67    68001411              B        BAD               RETURN BAD - NO INTERRUPT
    10524                            *
    10525                            *                                  MEM TO MEM MOVE
    10526                            *                                   INTERRUPT ON CHANNEL END
    10527                            *                                   VERIFY CONDITION CODES
    10528   01 02F68    8340094F A   T8340    GEN,16,10,6    X'8340',X'25',T8350-%   CONROL WORD
    10529   01 02F69    22800000 A            LI,R8    0                 CONDITION CODE EXPECTED
    10530   01 02F6A    22C02F75              LI,R12   T8340B
    10531   01 02F6B    35C01315              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    10532   01 02F6C    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
    10533   01 02F6D    2200093D              LI,R0    DA(CMDT48)
    10534   01 02F6E    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
    10535   01 02F6F    CC201328              SIO,R2   *MM9              START SOURCE
    10536   01 02F70    2200093E              LI,R0    DA(CMDT49)
    10537   01 02F71    CC401327              SIO,R4   *MM8              START DESTINATION
    10538   01 02F72    229FFFA6 A            LI,R9    -90
    10539   01 02F73    65902F73              BIR,R9   %                 90 MICROSECOND DELAY
    10540   01 02F74    68001411              B        BAD               RETURN BAD - NO INTRPT.
    10541   01 02F75    329012A0     T8340B   LW,R9    AIOCC             FETCH C.C. RECEIVED
    10542   01 02F76    68001AC6              B        CREQUAL           COMPARE WITH R8
    10543                            *
    10544                            *                                  MEM TO MEM MOVE
    10545                            *                                   INTERRUPT ON CHANNEL END
    10546                            *                                   VERIFY STATUS
    10547   01 02F77    83500950 A   T8350    GEN,16,10,6    X'8350',X'25',T8360-%   CONROL WORD
    10548   01 02F78    22C02F85              LI,R12   T8350B
    10549   01 02F79    35C01315              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    10550   01 02F7A    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTRPT
    10551   01 02F7B    328034EC              LW,R8    =X'100000'        FORM STATUS EXPECTED
    10552   01 02F7C    49801328              OR,R8    MM9
    10553   01 02F7D    2200093D              LI,R0    DA(CMDT48)
    10554   01 02F7E    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
    10555   01 02F7F    CC201328              SIO,R2   *MM9              START SOURCE
    10556   01 02F80    2200093E              LI,R0    DA(CMDT49)
    10557   01 02F81    CC401327              SIO,R4   *MM8              START DESTINATION
    10558   01 02F82    229FFFA6 A            LI,R9    -90
    10559   01 02F83    65902F83              BIR,R9   %                 90 MICROSECOND DELAY
    10560   01 02F84    68001411              B        BAD               RETURN BAD - NO INTRPT.
    10561   01 02F85    329012A2     T8350B   LW,R9    AIOSTATS          FETCH RECEIVED RESPONSE
    10562   01 02F86    68001AC6              B        CREQUAL           COMPARE
    10563                            *
    10564                            *                                  MEM TO MEM MOVE
    10565                            *                                   INTERRUPT ON UNE
    10566   01 02F87    8360084A A   T8360    GEN,16,10,6    X'8360',X'21',T8370-%   CONROL WORD
    10567   01 02F88    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10568   01 02F89    2200093D              LI,R0    DA(CMDT48)
    10569   01 02F8A    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
    10570   01 02F8B    CC201328              SIO,R2   *MM9              SEND WRONG ORDER TO SOURCE
    10571   01 02F8C    2200093D              LI,R0    DA(CMDT48)
    10572   01 02F8D    CC401327              SIO,R4   *MM8              SEND WRONG ORDER TO DEST.
    10573   01 02F8E    229FFFA6 A            LI,R9    -90
    10574   01 02F8F    65902F8F              BIR,R9   %                 90 MICROSECOND DELAY
    10575   01 02F90    68001411              B        BAD               RETURN BAD - NO INTRPT.
    10576                            *
    10577                            *                                 MEM TO MEM MOVE
    10578                            *                                   INTERRUPT ON UNE
    10579                            *
    10580                            *                                   VERIFY COND. CODES
    10581   01 02F91    8370094F A   T8370    GEN,16,10,6    X'8370',X'25',T8380-%   CONROL WORD
    10582   01 02F92    22C02F9E              LI,R12   T8370B
    10583   01 02F93    35C01315              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    10584   01 02F94    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10585   01 02F95    22800000 A            LI,R8    0                 C.C. EXPECTED
    10586   01 02F96    2200093D              LI,R0    DA(CMDT48)
    10587   01 02F97    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
    10588   01 02F98    CC201328              SIO,R2   *MM9              START SOURCE
    10589   01 02F99    2200093E              LI,R0    DA(CMDT49)
    10590   01 02F9A    CC401327              SIO,R4   *MM8              START DESTINATION
    10591   01 02F9B    229FFFA6 A            LI,R9    -90
    10592   01 02F9C    65902F9C              BIR,R9   %                 90 MICROSECOND DELAY
    10593   01 02F9D    68001411              B        BAD               RETURN BAD - NO INTRPT.
    10594   01 02F9E    329012A0     T8370B   LW,R9    AIOCC             FETCH C.C. RECEIVED
    10595   01 02F9F    68001AC6              B        CREQUAL           COMPARE
    10596                            *
    10597                            *                                 MEM TO MEM MOVE
    10598                            *                                   INTERRUPT ON UNE
    10599                            *                                   VERIFY STATUS
    10600   01 02FA0    83800950 A   T8380    GEN,16,10,6    X'8380',X'25',T8390-%   CONROL WORD
    10601   01 02FA1    22C02FAE              LI,R12   T8380B
    10602   01 02FA2    35C01315              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    10603   01 02FA3    6AF01A02              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10604   01 02FA4    32803527              LW,R8    =X'80000'         FORM STATUS EXPECTED
    10605   01 02FA5    49801327              OR,R8    MM8
    10606   01 02FA6    2200093D              LI,R0    DA(CMDT48)
    10607   01 02FA7    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
    10608   01 02FA8    CC201328              SIO,R2   *MM9              START SOURCE
    10609   01 02FA9    2200093D              LI,R0    DA(CMDT48)
    10610   01 02FAA    CC401327              SIO,R4   *MM8              START DESTINATION
    10611   01 02FAB    229FFFA6 A            LI,R9    -90
    10612   01 02FAC    65902FAC              BIR,R9   %                 90 MICROSECOND DELAY
    10613   01 02FAD    68001411              B        BAD               RETURN BAD - NO INTRPT.
    10614   01 02FAE    329012A2     T8380B   LW,R9    AIOSTATS          FETCH AIO STATUS
    10615   01 02FAF    68001AC6              B        CREQUAL           COMPARE
    10616                            *
    10617                            *                                  MEM TO MEM MOVE
    10618                            *                                   TDV -- COND. CODES
    10619         01 02FB0           LASTEST  EQU      %                  (LAST TEST MODULE)
    10620   01 02FB0    83900846 A   T8390    GEN,16,10,6    X'8390',X'21',LAST-%    CONROL WORD
    10621   01 02FB1    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
    10622   01 02FB2    CE201328              TDV,R2   *MM9              TEST SOURCE DEVICE
    10623   01 02FB3    68801411              BCR,8    BAD               CHECK FOR COND. CODE
    10624   01 02FB4    68401411              BCR,4    BAD               11--
    10625   01 02FB5    680014D4              B        GOOD
    10626                            **********************************************************************
    10627   01 02FB6    99990000 A   LAST     GEN,16,10,6    X'9999',0,0  DUMMY MODULE
    10628                            *
    10629                            *
    10630                            *
    10631                                     CLOSE    POLP,POLR,RIO
    10632                            *
    10633                            *
    10634                            *
    10635                            *
    10636                            *
    10637                            *
    10638                            *
    10639                            *
    10640                            *
    10641                            *
    10642                            *
    10643         01 02FB7           SYNTAX%EXPL EQU         %
    10644         01 02FB7                    TEXTCS   '  '
    10645         01 02FB8                    TEXTCS   ' '
    10646                                     TEXTCS   ;
    10647                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
    10648         01 02FB9            ' EXPLANATION,'
    10649                                     TEXTCS   ;
    10650         01 02FCB            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
    10651                                     TEXTCS   ;
    10652         01 02FD7            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
    10653                                     TEXTCS   ;
    10654         01 02FE7            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
    10655                                     TEXTCS   ;
    10656         01 02FF6            'THE SPECIFIED ACTION.'
    10657         01 02FFC                    TEXTCS   '  '
    10658                                     TEXTCS   ;
    10659         01 02FFD            '  - ''@'' INITIATES ABSOLUTE RECOVERY SAME AS ''SYSTEM RESET'''
    10660         01 0300C                    TEXTCS   '  '
    10661                                     TEXTCS   ;
    10662         01 0300D            '  - ''%'' FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING CONSOLE'
    10663                                     TEXTCS   ;
    10664         01 0301E            '     ''COMPUTE'' SWITCH TO ''IDLE''. WHEN OUTPUT TO KSR, IT MEANS'
    10665                                     TEXTCS   ;
    10666         01 0302E            '     THE PROGRAM IS WAITING FOR INPUT.'
    10667         01 03038                    TEXTCS   '  '
    10668                                     TEXTCS   ;
    10669         01 03039            '  - ''#'' FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
    10670                                     TEXTCS   ;
    10671         01 03049            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
    10672         01 03054                    TEXTCS   '  '
    10673                                     TEXTCS   ;
    10674         01 03055            '  - ''QUEST. MARK'' OUTPUTS A) SYNTAX GLOSS.  (AFTER ''@'' PROMPT),'
    10675                                     TEXTCS   ;
    10676         01 03065            '      OR  B) CURRENT DIRECTIVE EXPL. (AFTER DIRECT. KEYIN),'
    10677                                     TEXTCS   ;
    10678         01 03074            '      OR  C) ERROR MSG EXPL. (AFTER ERROR MSG OUTPUT)'
    10679         01 03082                    TEXTCS   '  '
    10680                                     TEXTCS   ;
    10681         01 03083            '  - '','' TERMINATES PARAMETER FIELD'
    10682                                     TEXTCS   ;
    10683         01 0308C            '  - ''NEW LINE'' TERMINATES PARAMETER LINE'
    10684         01 03097           DM%EXPL  EQU      %
    10685         01 03097                    TEXTCS   '  '
    10686                                     TEXTCS   ;
    10687         01 03098            '  - ''DM>X,Y''-DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
    10688         01 030A9           RM%EXPL  EQU      %
    10689         01 030A9                    TEXTCS   '  '
    10690                                     TEXTCS   ;
    10691         01 030AA            '  - ''RM>X,Y'' DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
    10692                                     TEXTCS   ;
    10693         01 030B8             '      REPLACEMENT OF WORD DISPLAYED.'
    10694         01 030C2           SS%EXPL  EQU      %
    10695         01 030C2                    TEXTCS   '  '
    10696                                     TEXTCS   ;
    10697         01 030C3            '  - ''SS'' SENSE SWITCH OPTION. DISPLAY TO MSG. DVC. THE CURRENT'
    10698                                     TEXTCS   ;
    10699         01 030D3            '     SENSE SWITCH STATUS (SOFTWARE IF ''M''=0, CONSOLE IF ''M''=1).'
    10700                                     TEXTCS   ;
    10701         01 030E3            '     ALSO ALLOWS THE ALTERATION OF STATUS FROM THE TERMINAL IF'
    10702                                     TEXTCS   ;
    10703         01 030F3            '     THE  ''M'' FIELD IS SET TO ONE.'
    10704                                     TEXTCS   ;
    10705         01 030FC            '      SW1=1 SHORT LOOP'
    10706                                     TEXTCS   ;
    10707         01 03102            '      SW1=0 NO SHORT LOOP'
    10708                                     TEXTCS   ;
    10709         01 03109            '      SW2=1 LONG LOOP'
    10710                                     TEXTCS   ;
    10711         01 0310F            '      SW2=0 NO LONG LOOP'
    10712                                     TEXTCS   ;
    10713         01 03116            '      SW3=1 NO HALT ON ERROR'
    10714                                     TEXTCS   ;
    10715         01 0311E            '      SW3=0 HALT ON ERROR'
    10716                                     TEXTCS   ;
    10717         01 03125            '      SW4=1 SUPPRESS ERROR MSG.'
    10718                                     TEXTCS   ;
    10719         01 0312D            '      SW4=0 PRINT ERROR MSGS.'
    10720         01 03135           STAT%EXPL  EQU    %
    10721         01 03135                    TEXTCS   '  '
    10722                                     TEXTCS   ;
    10723         01 03136            '   - ''&'' CAUSES THE DISPLAY OF THE CURRENT TEST NUMBER'
    10724                                     TEXTCS   ;
    10725         01 03144            '    AND MODULE LOCATION.'
    10726         01 0314B           J#EXPL   EQU      %
    10727         01 0314B                    TEXTCS   '  '
    10728                                     TEXTCS   ;
    10729         01 0314C            '   - ''J''  ALLOWS THE OPERATOR TO ASSIGN THE COMMUNICATION '
    10730                                     TEXTCS   ;
    10731         01 0315B            '    DEVICES, CONTROL THE SUCCESS INDICATION, AND CONTROL THE'
    10732                                     TEXTCS   ;
    10733         01 0316B            '    IOP CLOCK MARGINS:'
    10734                                     TEXTCS   ;
    10735         01 03171            '    -MSGDVC-- IOP-DEVICE ADDRESS FOR THE MESSAGE DEVICE.'
    10736                                     TEXTCS   ;
    10737         01 03180            '    -COMDEV-- IOP-DEVICE ADDRESS FOR THE COMMUNICATION DEVICE.'
    10738                                     TEXTCS   ;
    10739         01 03190            '    -SI-- 1=> SUCCESS DISPLAY FOR ONE PASS ONLY'
    10740                                     TEXTCS   ;
    10741         01 0319C            '          2=> SUCCESS DISPLAY FOR ALL PASSES'
    10742                                     TEXTCS   ;
    10743         01 031A8            '    -CM-- A ONE INVOKES THE IOP CLOCK MARGINS'
    10744                            *
    10745         01 031B4           OP%EXPL  EQU      %
    10746         01 031B4                    TEXTCS   '  '
    10747                                     TEXTCS   ;
    10748         01 031B5            '   - ''OP'' ALLOWS THE OPERATOR TO EXERCISE THE VARIOUS IOP'
    10749                                     TEXTCS   ;
    10750         01 031C4            '    HARDWARE FEATURES:'
    10751                                     TEXTCS   ;
    10752         01 031CA            '    -IOP-MS ADR-- IOP # (TWO LEFT DIGITS) & MS DEVICE'
    10753                                     TEXTCS   ;
    10754         01 031D8            '     ADDRESS (TWO RIGHT DIGITS)'
    10755                                     TEXTCS   ;
    10756         01 031E0            '    -IOP DIO/MI-- DIO ADDRESS DEDICATED TO THE TEST IOP,'
    10757                                     TEXTCS   ;
    10758         01 031EF            '    RIGHT JUSTIFIED.'
    10759                                     TEXTCS   ;
    10760         01 031F5            '    -CH A/B-- A ONE SELECTS CHANNEL ''A'' AND/OR ''B'','
    10761                                     TEXTCS   ;
    10762         01 03202            '     RESPECTIVELY (SEPARATED BY A COMMA).'
    10763                                     TEXTCS   ;
    10764         01 0320D            '    -SUB-CHLNS-- NUMBER OF SUBCHANNELS IN CHANNEL ''A''.'
    10765                                     TEXTCS   ;
    10766         01 0321B            '     VALUES: 1=>0-15 SUBCHANNELS'
    10767                                     TEXTCS   ;
    10768         01 03224            '    -FOUR BYTE-- A ONE SELECTS FOUR BYTE MODE IN CHANNEL(S)'
    10769                                     TEXTCS   ;
    10770         01 03233            '     ''A'' AND/OR ''B'', RESPECTIVELY (SEPARATED BY A COMMA).'
    10771                                     TEXTCS   ;
    10772         01 03242            '    -BURST MODE-- A ONE SELECTS BURST MODE IN CHANNEL(S)'
    10773                                     TEXTCS   ;
    10774         01 03251            '     ''A'' AND/OR ''B'', RESPECTIVELY (SEPARATED BY A COMMA).'
    10775                                     TEXTCS   ;
    10776         01 03260            '    -MEM-MEM-- A ONE SELECTS MEMORY TO MEMORY MOVE OPTION,'
    10777                            *
    10778         01 0326F           OM%EXPL  EQU      %
    10779         01 0326F                    TEXTCS   '  '
    10780                                     TEXTCS   ;
    10781         01 03270            '   - ''OM'' CONTROLS THE PROGRAM MODES:'
    10782                                     TEXTCS   ;
    10783         01 0327A            '    -FUNCTIONAL-- A ONE CAUSES THE PROGRAM TO EXECUTE THE '
    10784                                     TEXTCS   ;
    10785         01 03289            '     FUNCTIONAL TEST MODULES.'
    10786                                     TEXTCS   ;
    10787         01 03291            '    -COMPARE-- A ONE CAUSES THE SINGLE PHASE OPERATION AFTER ERROR'
    10788                                     TEXTCS   ;
    10789         01 032A2            '     DETECTION, OR AFTER FUNCTIONAL TESTING, SINGLE PHASING OF'
    10790                                     TEXTCS   ;
    10791         01 032B2            '     APPROPRIATE TEST MODULES.  IF THE PROGRAM HAS BEEN LOADED'
    10792                                     TEXTCS   ;
    10793         01 032C2            '     FROM THE MAG TAPE LIBRARY, COMPARE DATA WILL BE READ FROM THE'
    10794                                     TEXTCS   ;
    10795         01 032D3            '     TAPE FILE AND COMPARED WITH SINGLE PHASE DISPLAY DATA.'
    10796         01 032E2           T%EXPL   EQU      %
    10797         01 032E2                    TEXTCS       '  '
    10798                                     TEXTCS       ;
    10799         01 032E3            '   - T>X,Y PERMITS THE OPERATOR TO SELECT A RANGE OF TEST MODULES.'
    10800                                     TEXTCS   ;
    10801         01 032F4            '       THE ''X'' REFLECTS A STARTING TEST # AND ''Y'' REFLECTS THE'
    10802                                     TEXTCS   ;
    10803         01 03304            '       ENDING TEST #.  THE STARTING TEST # MUST BE LESS THAN THE'
    10804                                     TEXTCS   ;
    10805         01 03315            '       ENDING TEST #.  A SINGLE TEST # CAN BE SPECIFIED.'
    10806         01 03324           PLINE#J  TEXTCS   ' 0002   0001   0  0'
    10807         01 03329           PLINE#OM TEXTCS   '  1     0'
    10808         01 0332C           PLINE#OP TEXTCS   ' 0000   00   1 0   1    1 0   1 0   0'
    10809                            *
    10810                            *
    10811   01 03336                 PLINEIN  RES      19
    10812                            *
    10813                            *
    10814                            *
    10815                            *************
    10816                            *
    10817         00000004           H        COM,8,8,8,8 AF
    10818         00000004           E        COM,8,8,16 AF
    10819         00000004           L        COM,3,2,3,5,3,1,3,3,3,3,3 AF
    10820                            *
    10821         00000004           P        COM,8,2,6,16 AF
    10822                            **********************
    10823                            *        TABLE 3
    10824                            **********************
    10825                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
    10826                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
    10827                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
    10828                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
    10829                            *
    10830                            *  FORMAT
    10831                            *        WORD 1 = DIRECTIVE POINTER
    10832                            *         ***********
    10833                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
    10834                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
    10835                            *            AF(3)   BYTE 2 = SECOND CHAR.
    10836                            *            AF(4)   BYTE 3 = THIRD CHAR.
    10837                            *
    10838                            *
    10839                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
    10840                            *         ***********
    10841                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
    10842                            *            AF(2)   BYTE 1 = FIFTH CHAR.
    10843                            *            AF(3)   BYTES 2&3 = ADDRESS OF
    10844                            *                                       DIRECTIVE ROUTINE
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   18
A   10846                            *
    10847                            *        WORD 3 = CONTROL WORD
    10848                            *         ***********
    10849                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
    10850                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
    10851                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
    10852                            *             AF(4)   BITS 8-12= NOT USED
    10853                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
    10854                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
    10855                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
    10856                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
    10857                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
    10858                            *                    OR INDEX PARAM #1 (MODE 6)
    10859                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
    10860                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
    10861                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
    10862                            *
    10863                            *                 MODE:  0= UNCONDITIONAL (&)
    10864                            *                        1= IMMEDIATE     (DM)
    10865                            *                        2= PARAMETER LINE (S)
    10866                            *                        6= INDEXED PARAMETER LINE
    10867                            *                 VALIDATION = POSITION IN VALTYPE TABLE
    10868                            *                            0 = HEX, 1 = BIN, AND
    10869                            *                            4-7 = DESIGNER DEFINED
    10870                            *
    10871                            *         WORD 4 = EXPLANATION POINTER
    10872                            *         ***********
    10873                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
    10874                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
    10875                            *                             = 1 IF TEXT IS COMPRESSED
    10876                            *                             = 2,3   ** NOT ALLOWED **
    10877                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
    10878                            *                   TO CHARACTER #1 (REQUEST)
    10879                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
    10880                            *
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   19
A   10882         01 03349           TABLE3            EQU      %
    10883                            *
    10884   01 03349    017C0000 A            H        1,'@'
    10885   01 0334A    00000000 A            E        0
    10886   01 0334B    00000000 A            L        0
    10887   01 0334C    5200BEDC N            P        82,,0,BA(SYNTAX%EXPL)
    10888                            *
    10889   01 0334D    01500000 A            H        1,'&'
    10890   01 0334E    000011DB N            E        ,,READSTAT
    10891   01 0334F    00000000 A            L        0
    10892   01 03350    0400C4D4 N            P        4,,,BA(STAT%EXPL)
    10893                            *
    10894   01 03351    02C4D400 A            H        2,'D','M'
    10895   01 03352    00000000 A            E        0
    10896   01 03353    00000000 A            L        0
    10897   01 03354    0201C25C N            P        2,,1,BA(DM%EXPL)
    10898                            *
    10899   01 03355    02D9D400 A            H        2,'R','M'
    10900   01 03356    00000000 A            E        0
    10901   01 03357    00000000 A            L        0
    10902   01 03358    0201C2A4 N            P        2,,1,BA(RM%EXPL)
    10903                            *
    10904   01 03359    01E30000 A            H        1,'T'
    10905   01 0335A    00001063 N            E        ,,TESTNO
    10906   01 0335B    22000000 A            L        1,,2,,,,,0,
    10907   01 0335C    0500CB88 N            P        5,,,BA(T%EXPL)
    10908                            *
    10909   01 0335D    02D6D700 A            H        2,'O','P'
    10910   01 0335E    000010DE N            E        ,,PARAMOP
    10911   01 0335F    48000000 A            L        2,1,,,,,0,,,,
    10912   01 03360    1000C6D0 N            P        16,,,BA(OP%EXPL)
    10913                            *
    10914   01 03361    02D6D400 A            H        2,'O','M'
    10915   01 03362    0000115A N            E        ,,PARAMOM
    10916   01 03363    48000000 A            L        2,1,,,,,0,,,,
    10917   01 03364    0900C9BC N            P        9,,,BA(OM%EXPL)
    10918                            *
    10919   01 03365    01D10000 A            H        1,'J'
    10920   01 03366    00001181 N            E        ,,PARAJ
    10921   01 03367    40000000 A            L        2
    10922   01 03368    0800C52C N            P        8,,,BA(J#EXPL)
    10923                            *
    10924   01 03369    02E2E200 A            H        2,'S','S'
    10925   01 0336A    00000000 A            E        0
    10926   01 0336B    00000000 A            L        0
    10927   01 0336C    0D00C308 N            P        13,,,BA(SS%EXPL)
    10928                            *
    10929                            *
    10930   01 0336D    FF000000 A   TABLE3END DATA  X'FF000000'
    10931                            *
    10932                            ************
    10933                            *
    10934                            *
    10935                            *
    10936   01 0336E    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
    10937   01 0336F    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
    10938   01 03370    6A601010              BAL,LINK #IOPINIT
    10939   01 03371    EA6003C8              BAL,X6   *#GUIDE%
    10940   01 03372    0100D144              GEN,8,24 1,BA(PROGHDR)
    10941   01 03373    00000000 A            DATA     0                 NO FURTHER MESSAGES             *G02
    10942                            ***********************************************************************
    10943                            *                                                                     *
    10944                            *       THE FOLLOWING AREA IS DEVOTED TO TEXT MESSAGES.               *
    10945                            *                                                                     *
    10946                            ***********************************************************************
    10947         01 03374           CCUMG    TEXTCS   '  CCU  '
    10948         01 03376           CHANMG   TEXTCS   'CHAN   '
    10949                            DISPERR  TEXTCS   'ACTUAL---->    XXXXXXXX    XXXXXXXX    XXXXXXXX';
    10950         01 03378                             ,'    XXXXXXXX    XXXX'
    10951         01 03389                    TEXTCS   ' '
    10952   01 0338A                          RES      1
    10953                            DISPFORM TEXTCS   '   XX  PHXX    XXXXXXXX    XXXXXXXX    XXXXXXXX';
    10954         01 0338B                             ,'    XXXXXXXX    XXXX'
    10955   01 0339C                          RES      1
    10956         01 0339D           ERDATAMG TEXTCS   ' STATUS/DATA,  EXP:XXXXXXXX'
    10957   01 033A4    00000000 A            DATA     0,0               EXTENDED PRINT FIELD
            01 033A5    00000000 A
    10958         01 033A6           ERDTAMG2 TEXTCS   '               ACT:XXXXXXXX'
    10959   01 033AD    00000000 A            DATA     0,0               EXTENDED PRINT FIELD
            01 033AE    00000000 A
    10960         01 033AF           ER010MG  TEXTCS   'CHAN X FAULT, TEST # XXXX,LOC XXXXX.'
    10961                            FAMADRMG TEXTCS   ' SUBCHLN ADR FAULT, TEST ADR=XX, AFFECTED ADR=';
    10962         01 033B9                             ,'XX, CONTENTS='
    10963                            GRPHEAD1 TEXTCS   '       PHASE   GROUP 08    GROUP 09    GROUP 10';
    10964         01 033C8                             ,'    GROUP 11    GP14'
    10965                            GRPHEAD2 TEXTCS   '       PHASE   GROUP 00    GROUP 01    GROUP 02';
    10966         01 033D9                             ,'    GP 13&12    GP15'
    10967                            GRPHEAD3 TEXTCS   '       PHASE   GROUP 16    GROUP 17    GROUP 18';
    10968         01 033EA                             ,'    GROUP 19    GP22'
    10969                            GRPHEAD4 TEXTCS   '       PHASE   GROUP 00    GROUP 01    GROUP 02';
    10970         01 033FB                             ,'    GP 21&20    GP23'
    10971         01 0340C           MODEMG   TEXTCS   'PROGRAM MODES COMPLETED.'
    10972         01 03413           NOCREGMG TEXTCS   ' *NO COM DVC RECOGNITION.'
    10973         01 0341A           NOMREGMG TEXTCS   ' *NO MSG DVC RECOGNITION'
    10974         01 03421           JHDR     TEXTCS   'MSGDEV COMDEV SI CM'
    10975         01 03426           OMHDR1   TEXTCS   'FUNCT- COM-'
    10976         01 03429           OMHDR2   TEXTCS   'IONAL  PARE'
    10977         01 0342C           OPHDR1   TEXTCS   'IOP-MS  IOP   CH  SUB  FOUR BURST MEM-'
    10978         01 03436           OPHDR2   TEXTCS   ' ADR  DIO/MI A/B CHLNS BYTE  MODE MEM'
    10979         01 03440           OPMG1    TEXTCS   'PX-PY  OUT OF RANGE.  RE-ENTER.'
    10980         01 03448           PASSMG   TEXTCS   '         HEX PASSES'
    10981         01 0344D           PASS1MG  TEXTCS   'PASS COMPLETED'
    10982         01 03451           PROGHDR  TEXTCS   TITLE

    10984         01 0345B           SERCYHD1 TEXTCS   '   SIO'
    10985         01 0345D           SERCYHD2 TEXTCS   '   TIO'
    10986         01 0345F           SERCYHD3 TEXTCS   '   TDV'
    10987         01 03461           SERCYHD4 TEXTCS   '   HIO'
    10988         01 03463           SERCYHD5 TEXTCS   '   AIO'
    10989         01 03465           SERCYHD9 TEXTCS   '   ORDER OUT'
    10990         01 03469           SERCYHDA TEXTCS   '   DATA OUT'
    10991         01 0346C           SERCYHDB TEXTCS   '   DATA IN'
    10992         01 0346F           SERCYHDC TEXTCS   '   ORDER IN'
    10993                                     BOUND    8
    10994   01 03472    00001573 N   STADDR   GEN,15,17,4,4,16,4,4      0,INIT054,0,5,0,0,0  PSD START
                        05000000
    10995                            STATUSMG TEXTCS   'CURRENT TEST NO. = XXXX, TEST LOC. = XXXX,';
    10996         01 03474                             ,' CHANNEL X PASS.'
    10997         01 03483           SUCSMG   TEXTCS   'SUCCESS TEST(S), CCU-CHAN X:'
    10998                            SUCLNMG  TEXTCS   '     ,     ,     ,     ,     ,     ,     ,     ,';
    10999         01 0348B                             ,'     ,     ,     ,     ,'
    11000         01 0349E           TSELTMG1 TEXTCS   'TEST # > RANGE. HIGHEST TEST # = 8390. RE-ENTER.'
    11001                            TSELTMG2 TEXTCS   'P1 OR P2 NON-EXISTENT TEST #S.  CLOSEST #S ARE';
    11002         01 034AB                             ,' XXXX & YYYY. RE-ENTER.'
    11003                            *
    11004         01 034BD           TSELTMG3 TEXTCS   'P1>P2.  RE-ENTER.'
    11005         01 034C2           TSELTMG5 TEXTCS   'P1 OR P2 NOT = TO TEST #. CLOSEST # = XXXX'
    11006         01 034CD           TSELTMG6 TEXTCS   'TOO MANY DIGITS. RE-ENTER.'
    11007         01 034D4           TSELTMG7 TEXTCS   'P1 MUST BE GREATER THAN 0'
    11008         01 034DB           VMMG     TEXTCS   'VOLTAGE MARGINS INVOKED WITH CLOCK MARGINS.'
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   20
A   11010         01 0336F           ENDADDR  END      GUIDE             GO TO GUIDE
            01 034E6    0000FFFF A
            01 034E7    0000003F A
            01 034E8    00001EFF A
            01 034E9    0A000000 A
            01 034EA    0FF00000 A
            01 034EB    0000000F A
            01 034EC    00100000 A
            01 034ED    00400000 A
            01 034EE    FFE0FFFF A
            01 034EF    000FFFFF A
            01 034F0    7FFFFFFE A
            01 034F1    FFFFFB7F A
            01 034F2    0038709F A
            01 034F3    000000FF A
            01 034F4    0000000A A
            01 034F5    00000004 A
            01 034F6    00000008 A
            01 034F7    0C000000 A
            01 034F8    04000000 A
            01 034F9    10000000 A
            01 034FA    DECA6600 A
            01 034FB    00001F00 A
            01 034FC    02000000 A
            01 034FD    000000B0 A
            01 034FE    80000018 A
            01 034FF    00000C00 A
            01 03500    00001FFF A
            01 03501    00001E00 A
            01 03502    00000080 A
            01 03503    00000070 A
            01 03504    00000100 A
            01 03505    0000007F A
            01 03506    00000003 A
            01 03507    00000001 A
            01 03508    0000200F A
            01 03509    00002FE0 A
            01 0350A    00000400 A
            01 0350B    C0000000 A
            01 0350C    F0000000 A
            01 0350D    FFFF0000 A
            01 0350E    0000001F A
            01 0350F    00FFFFFF A
            01 03510    F8000000 A
            01 03511    C0A21000 A
            01 03512    F9FF1800 A
            01 03513    01800000 A
            01 03514    05FE7FFF A
            01 03515    80000000 A
            01 03516    FFFC7FFB A
            01 03517    00352000 A
            01 03518    FFFFF3FF A
            01 03519    FFFFFB7B A
            01 0351A    FFFFFBFF A
            01 0351B    40000000 A
            01 0351C    FFFFFFFF A
            01 0351D    FFFFFF7F A
            01 0351E    E2000000 A
            01 0351F    000FC000 A
            01 03520    18000000 A
            01 03521    00000040 A
            01 03522    00018000 A
            01 03523    00001800 A
            01 03524    00800000 A
            01 03525    01000000 A
            01 03526    000007FF A
            01 03527    00080000 A
            01 03528    000001E0 A
            01 03529    0000E7FF A
            01 0352A    003E7FFF A
            01 0352B    003E1010 A
            01 0352C    003E2010 A
            01 0352D    003E0010 A
            01 0352E    003E3010 A
            01 0352F    003E5010 A
            01 03530    003E7010 A
            01 03531    003E4010 A
            01 03532    00006010 A
            01 03533    00007FFF A
            01 03534    002A4010 A
            01 03535    00144010 A
            01 03536    03000000 A
            01 03537    001FFFFF A
            01 03538    FFDFFFFF A
            01 03539    FF5FFFFF A
            01 0353A    00001C00 A
            01 0353B    60000000 A
            01 0353C    00000490 A
            01 0353D    0000F800 A
            01 0353E    FFC00200 A
            01 0353F    20000200 A
            01 03540    0000FD7F A
            01 03541    0000FF7F A
            01 03542    64000000 A
            01 03543    A0000000 A
            01 03544    00002000 A
            01 03545    A4000000 A
            01 03546    0000F978 A
            01 03547    00002100 A
            01 03548    28000000 A
            01 03549    0000F900 A
            01 0354A    0000F9FF A
            01 0354B    0000F958 A
            01 0354C    88800000 A
            01 0354D    D8C00000 A
            01 0354E    00000FFF A
            01 0354F    FF000000 A
            01 03550    1F000000 A
            01 03551    80FFFFFF A
            01 03552    7E000000 A
            01 03553    82FFFFFF A
            01 03554    82000000 A
            01 03555    82010001 A
            01 03556    48000000 A
            01 03557    FC000000 A
            01 03558    82000100 A
            01 03559    B4000000 A
            01 0355A    82303030 A
            01 0355B    82181818 A
            01 0355C    82282828 A
            01 0355D    82050505 A
            01 0355E    82030303 A
            01 0355F    82060606 A
            01 03560    82C0C0C0 A
            01 03561    82404040 A
            01 03562    82808080 A
            01 03563    82080808 A
            01 03564    82101010 A
            01 03565    82202020 A
            01 03566    82383838 A
            01 03567    82010101 A
            01 03568    82020202 A
            01 03569    82040404 A
            01 0356A    82070707 A
            01 0356B    823F3F3F A
            01 0356C    82878787 A
            01 0356D    82787878 A
            01 0356E    82ADADAD A
            01 0356F    82D6D6D6 A
            01 03570    82DADADA A
            01 03571    82929292 A
            01 03572    86000000 A
            01 03573    7EFFFFFF A
            01 03574    84000000 A
            01 03575    8A000000 A
            01 03576    88000000 A
            01 03577    8E000000 A
            01 03578    8C000000 A
            01 03579    92000000 A
            01 0357A    90000000 A
            01 0357B    96000000 A
            01 0357C    94000000 A
            01 0357D    9A000000 A
            01 0357E    98000000 A
            01 0357F    9E000000 A
            01 03580    9C000000 A
            01 03581    A2000000 A
            01 03582    A6000000 A
            01 03583    AA000000 A
            01 03584    A8000000 A
            01 03585    AE000000 A
            01 03586    AC000000 A
            01 03587    B2000000 A
            01 03588    B0000000 A
            01 03589    B6000000 A
            01 0358A    BA000000 A
            01 0358B    B8000000 A
            01 0358C    BE000000 A
            01 0358D    BC000000 A
            01 0358E    3C000000 A
            01 0358F    06FFFFFF A
            01 03590    04010101 A
            01 03591    0AFEFEFE A
            01 03592    08020202 A
            01 03593    0EFDFDFD A
            01 03594    0C030303 A
            01 03595    12FCFCFC A
            01 03596    10040404 A
            01 03597    16FBFBFB A
            01 03598    14050505 A
            01 03599    1AFAFAFA A
            01 0359A    18060606 A
            01 0359B    1EF9F9F9 A
            01 0359C    1C070707 A
            01 0359D    22F8F8F8 A
            01 0359E    20080808 A
            01 0359F    26F7F7F7 A
            01 035A0    24090909 A
            01 035A1    2AF6F6F6 A
            01 035A2    280A0A0A A
            01 035A3    2EF5F5F5 A
            01 035A4    2C0B0B0B A
            01 035A5    32F4F4F4 A
            01 035A6    300C0C0C A
            01 035A7    36F3F3F3 A
            01 035A8    340D0D0D A
            01 035A9    3AF2F2F2 A
            01 035AA    380E0E0E A
            01 035AB    3EF1F1F1 A
            01 035AC    3C0F0F0F A
            01 035AD    86FFFFFF A
            01 035AE    84FFFFFF A
            01 035AF    8AFFFFFF A
            01 035B0    88FFFFFF A
            01 035B1    8EFFFFFF A
            01 035B2    8CFFFFFF A
            01 035B3    92FFFFFF A
            01 035B4    90FFFFFF A
            01 035B5    96FFFFFF A
            01 035B6    94FFFFFF A
            01 035B7    9AFFFFFF A
            01 035B8    98FFFFFF A
            01 035B9    9EFFFFFF A
            01 035BA    9CFFFFFF A
            01 035BB    A2FFFFFF A
            01 035BC    A0FFFFFF A
            01 035BD    A6FFFFFF A
            01 035BE    A4FFFFFF A
            01 035BF    AAFFFFFF A
            01 035C0    A8FFFFFF A
            01 035C1    AEFFFFFF A
            01 035C2    ACFFFFFF A
            01 035C3    B2FFFFFF A
            01 035C4    B0FFFFFF A
            01 035C5    B6FFFFFF A
            01 035C6    B4FFFFFF A
            01 035C7    BAFFFFFF A
            01 035C8    B8FFFFFF A
            01 035C9    BEFFFFFF A
            01 035CA    BCFFFFFF A
            01 035CB    82AAAAAA A
            01 035CC    80AAAAAA A
            01 035CD    86AAAAAA A
            01 035CE    84AAAAAA A
            01 035CF    8AAAAAAA A
            01 035D0    88AAAAAA A
            01 035D1    8EAAAAAA A
            01 035D2    8CAAAAAA A
            01 035D3    92AAAAAA A
            01 035D4    90AAAAAA A
            01 035D5    96AAAAAA A
            01 035D6    94AAAAAA A
            01 035D7    9AAAAAAA A
            01 035D8    98AAAAAA A
            01 035D9    9EAAAAAA A
            01 035DA    9CAAAAAA A
            01 035DB    A2AAAAAA A
            01 035DC    A0AAAAAA A
            01 035DD    A6AAAAAA A
            01 035DE    A4AAAAAA A
            01 035DF    AAAAAAAA A
            01 035E0    A8AAAAAA A
            01 035E1    AEAAAAAA A
            01 035E2    ACAAAAAA A
            01 035E3    B2AAAAAA A
            01 035E4    B0AAAAAA A
            01 035E5    B6AAAAAA A
            01 035E6    B4AAAAAA A
            01 035E7    BAAAAAAA A
            01 035E8    B8AAAAAA A
            01 035E9    BEAAAAAA A
            01 035EA    BCAAAAAA A
            01 035EB    82555555 A
            01 035EC    80555555 A
            01 035ED    86555555 A
            01 035EE    84555555 A
            01 035EF    8A555555 A
            01 035F0    88555555 A
            01 035F1    8E555555 A
            01 035F2    8C555555 A
            01 035F3    92555555 A
            01 035F4    90555555 A
            01 035F5    96555555 A
            01 035F6    94555555 A
            01 035F7    9A555555 A
            01 035F8    98555555 A
            01 035F9    9E555555 A
            01 035FA    9C555555 A
            01 035FB    A2555555 A
            01 035FC    A0555555 A
            01 035FD    A6555555 A
            01 035FE    A4555555 A
            01 035FF    AA555555 A
            01 03600    A8555555 A
            01 03601    AE555555 A
            01 03602    AC555555 A
            01 03603    B2555555 A
            01 03604    B0555555 A
            01 03605    B6555555 A
            01 03606    B4555555 A
            01 03607    BA555555 A
            01 03608    B8555555 A
            01 03609    BE555555 A
            01 0360A    BC555555 A
            01 0360B    825B5B5B A
            01 0360C    805B5B5B A
            01 0360D    865B5B5B A
            01 0360E    845B5B5B A
            01 0360F    8A5B5B5B A
            01 03610    885B5B5B A
            01 03611    8E5B5B5B A
            01 03612    8C5B5B5B A
            01 03613    925B5B5B A
            01 03614    905B5B5B A
            01 03615    965B5B5B A
            01 03616    945B5B5B A
            01 03617    9A5B5B5B A
            01 03618    985B5B5B A
            01 03619    9E5B5B5B A
            01 0361A    9C5B5B5B A
            01 0361B    A25B5B5B A
            01 0361C    A05B5B5B A
            01 0361D    A65B5B5B A
            01 0361E    A45B5B5B A
            01 0361F    AA5B5B5B A
            01 03620    A85B5B5B A
            01 03621    AE5B5B5B A
            01 03622    AC5B5B5B A
            01 03623    B25B5B5B A
            01 03624    B05B5B5B A
            01 03625    B65B5B5B A
            01 03626    B45B5B5B A
            01 03627    BA5B5B5B A
            01 03628    B85B5B5B A
            01 03629    BE5B5B5B A
            01 0362A    BC5B5B5B A
            01 0362B    2200002E A
            01 0362C    000000F8 A
            01 0362D    FFE00000 A
            01 0362E    00001000 A
            01 0362F    80000002 A
            01 03630    20000000 A
            01 03631    01000080 A
            01 03632    01000040 A
            01 03633    01000020 A
            01 03634    01000010 A
            01 03635    01000008 A
            01 03636    01000004 A
            01 03637    01000002 A
            01 03638    01000001 A
            01 03639    010000FF A
            01 0363A    01000055 A
            01 0363B    010000AA A
            01 0363C    00200000 A
            01 0363D    00040000 A
            01 0363E    01550000 A
            01 0363F    01AA0000 A
            01 03640    00FF0000 A
            01 03641    C0A20000 A
            01 03642    0000000E A
            01 03643    01001000 A
            01 03644    00FFFFF8 A
            01 03645    00155555 A
            01 03646    000AAAAA A
            01 03647    08000000 A
            01 03648    00081000 A
            01 03649    00101000 A
            01 0364A    00801000 A
            01 0364B    01901000 A
            01 0364C    01A01000 A
            01 0364D    01C01000 A
            01 0364E    6F01DFF2 A
            01 0364F    AFFDEC00 A
            01 03650    0000EFFF A
            01 03651    7101DDB2 A
            01 03652    AFFDEC80 A
            01 03653    6101C022 A
            01 03654    6101DDA2 A
            01 03655    00550000 A
            01 03656    00AA0000 A
            01 03657    07800000 A
            01 03658    00000055 A
            01 03659    000000AA A
            01 0365A    0000AA00 A
            01 0365B    11223344 A
            01 0365C    55667788 A
            01 0365D    00000012 A
            01 0365E    FF1212FF A
            01 0365F    00000013 A
            01 03660    FF131313 A
            01 03661    00000014 A
            01 03662    14141414 A
            01 03663    00000096 A
            01 03664    9696963C A
            01 03665    ABCDEF01 A
            01 03666    00000007 A
            01 03667    55555555 A
            01 03668    000000C7 A
            01 03669    00C7C7C7 A
            01 0366A    000000D5 A
            01 0366B    D5D5D5D5 A
            01 0366C    0000005A A
            01 0366D    00020000 A
            01 0366E    000000BD A
            01 0366F    00FD0000 A
            01 03670    0001FFFE A
            01 03671    000000DB A
            01 03672    00DBDBDB A
            01 03673    0000FF00 A
            01 03674    80004000 A
            01 03675    00000010 A
            01 03676    10100000 A
            01 03677    08080000 A
            01 03678    90480000 A
            01 03679    FEFDE0EE A
            01 0367A    98B04080 A
            01 0367B    89ABCD00 A
            01 0367C    456789AB A
            01 0367D    54000000 A
            01 0367E    54321200 A
            01 0367F    FEFDC0EE A
            01 03680    98B00080 A
            01 03681    007E7E7E A
            01 03682    E7E7E7E7 A
            01 03683    E7E7E700 A
            01 03684    3C3C3C3C A
            01 03685    C3C3C3C3 A
            01 03686    00BFBFBF A
            01 03687    5A5A5A5A A
            01 03688    F3F3F3F3 A
            01 03689    59306C00 A
            01 0368A    5A697887 A
            01 0368B    96A5B4C3 A
            01 0368C    58302C00 A
            01 0368D    69696969 A
            01 0368E    1F2E3D4E A
            01 0368F    18820000 A

  CONTROL SECTION SUMMARY: 01 03690   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   22:55 JUN 20,'83    TELEFILE MIOP DIAGNOSTIC 960-0500-H02                                 PAGE   21
A  ACTDVC          1809/BAL     2162/BAL     3388-EQU
   ACT40           3393/BCR     3395/BCR     3396/BCR     3399-MTW
   ADA02           3416/B       3421/B       3428/B       3431-EQU     3439/BIR
   ADVSCA          3406-EQU     9360/BAL     9376/BAL     9483/BAL     9495/BAL     9981/BAL    10011/BAL
     10045/BAL    10060/BAL    10074/BAL    10090/BAL    10108/BAL    10123/BAL    10139/BAL    10312/BAL
     10332/BAL    10348/BAL    10379/BAL    10392/BAL
   AIOCC           1445-DATA    3235/STCF    3249/STCF    9765/LW      9822/LW      9895/LW     10541/LW
     10594/LW
   AIOSKIP         1446-DATA    3217/MTW     3975/STW     9617/MTW     9643/MTW     9668/MTW     9694/MTW
   AIOSTATS        1447-DATA    3236/STW     3250/STW     9611/LW      9748/LW      9801/LW      9868/LW
      9954/LW     10561/LW     10614/LW
   ARM             1448-EQU     1880/WD
   ARMABLE         1449-EQU     3338/WD      3446/WD      3908/WD      3949/WD      8335/WD
   ARMIO           3442-EQU     9589/BAL     9602/BAL     9620/BAL     9646/BAL     9671/BAL     9697/BAL
      9725/BAL     9738/BAL     9756/BAL     9774/BAL     9791/BAL     9813/BAL     9831/BAL     9853/BAL
      9880/BAL     9941/BAL    10515/BAL    10532/BAL    10550/BAL    10567/BAL    10584/BAL    10603/BAL
   BAD             1551/DATA    1780-EQU     3462/BCR     3467/BCS     3472/BCR     3477/BCS     3482/BCR
      3487/BCS     3492/BCS     3503/B       3681/BCS     5238/BCR     5239/BCR     5486/B       5500/B
      5514/B       5526/B       5541/B       5557/BCS     5880/B       6114/B       6122/B       6151/B
      6780/B       8213/BCS     8228/BCS     8315/B       8686/BCS     8692/B       9459/B       9475/B
      9486/BCS     9498/BCS     9596/B       9610/B       9627/B       9658/B       9684/B       9709/B
      9731/B       9745/B       9763/B       9780/B       9798/B       9820/B       9842/B       9865/B
      9892/B       9934/B       9953/B      10468/B      10491/BCS    10494/BCS    10523/B      10540/B
     10560/B      10575/B      10593/B      10613/B      10623/BCR    10624/BCR
   BCRINTL          795/LW      1450-B
   BD10            1788-EQU     1810/B       1859/BCR     1861/BCR     2758/LI      2764/LI
   BD15            1791/BCS     1795/LI      1799/B       1806-LC
   BD20            1787/BCR     1809-BAL
   BD24            1813/BCR     1824-MTW
   BD28            1838/BCR     1853-#PRINT
   BD30            1825/BCR     1858-MTW
   BD40            1860-MTW
   BD50            1865/BCS     1868-LW
   BEGINTST        1874-EQU     1971/B       1988/B       1992/BCR     2028/BCS
   BG04            1785/BCS     1881-LI      2005/BCS
   BG12            1883/BCS     1891-WD
   BRSTBYTE        2731-CI      2744/B
   BRSTBYTI        2879-BAL     2890/B
   BRSTODDI        2869/BCS     2892-BAL
   BUFFER1         1076/STM     1081/LM      1271/GEN     1273/GEN     1275/GEN     1277/GEN     1279/GEN
      1281/GEN     1285/GEN     1287/GEN     1289/GEN     1291/GEN     1293/GEN     1295/GEN     1297/GEN
      1299/GEN     1301/GEN     1303/GEN     1305/GEN     1307/GEN     1309/GEN     1311/GEN     1313/GEN
      1315/GEN     1317/GEN     1319/GEN     1321/GEN     1323/GEN     1325/GEN     1327/GEN     1329/GEN
      1331/GEN     1333/GEN     1335/GEN     1337/GEN     1339/GEN     1341/GEN     1343/GEN     1345/GEN
      1347/GEN     1349/GEN     1351/GEN     1353/GEN     1355/GEN     1357/GEN     1359/GEN     1363/GEN
      1367/GEN     1369/GEN     1371/GEN     1373/GEN     1375/GEN     1377/GEN     1379/GEN     1381/GEN
      1383/GEN     1385/GEN     1389/GEN     1391/GEN     1393/GEN     1399/GEN     1403/GEN     1405/GEN
      1407/GEN     1452-TEXTCS  4095/STD     4096/STD     4097/STD     8734/STB     8900/LW      8951/STW
      8970/STW     8989/STW     9007/STW     9025/STW     9043/STW     9115/LW      9130/LW      9145/LW
      9160/LW      9175/LW      9190/LW      9196/STW     9217/STW     9239/STW     9262/STD     9287/STW
      9297/LW      9304/STW     9314/LW      9321/STW     9331/LW      9342/STW     9348/LW      9356/STW
      9394/LW      9410/LW      9426/LW      9441/LW      9513/LW      9563/LW      9582/LI      9984/LI
     10002/LI     10041/STW    10056/STW    10070/STD    10084/STD    10086/STW    10102/STD    10104/STW
     10119/STD    10133/STD    10135/STW    10173/LW     10188/LW     10203/LW     10218/LW     10233/LW
     10249/LW     10265/LW     10281/LW     10308/STD    10322/STD    10324/STW    10326/STW    10328/STB
     10342/STD    10344/STD    10409/LW     10424/LW     10440/LW     10456/LW     10463/STW    10479/STW
     10481/STW    10490/CW     10493/CW
   BUFFER2         1387/GEN     1395/GEN     1397/GEN     1401/GEN     1457-TEXTCS  4098/STD    10473/LW
     10489/LW     10492/LW
   BURST           2678/BCS     2715-LI
   BURSTA          3452-EQU    10288/BAL    10306/BAL    10320/BAL    10340/BAL    10357/BAL    10375/BAL
     10388/BAL    10403/BAL    10418/BAL    10434/BAL    10450/BAL
   BURSTCHA        1458-DATA    1982/LW      3589/STW     3594/STW     3664/LW
   BURSTCHB        1459-DATA    1969/LW      3602/STW     3605/STW     3667/LW
   BURSTIN         2830/BCS     2863-BAL     2897/B
   BURSTM          1460-DATA    1943/MTW     1967/LW      1980/LW      2238/MTW     3965/STW
   BURSTODD        2717/BCS     2746-BAL
   BURST8          2724-BAL     2728/BDR     2754/B
   BURST8IN        2872-BAL     2876/BDR
   CA               581/SET      638-EQU
   CATALOG          0.2-EQU      0.4/EQU
   CB               581/SET      639-EQU
   CBGEN           1461-DATA    2015/MTW     2040/MTW     2084/MTW     2092/MTW     2193/MTW     2345/MTW
      2766/MTW
   CC               581/SET      640-EQU
   CCUMG           3723/LW      3724/LW     10947-TEXTCS
   CCUTEST         1462-DATA
   CC1             3461-EQU     8285/B
   CC2             3471-EQU     8194/B       8298/B
   CC3             3481-EQU     8262/B       8278/B
   CD               581/SET      641-EQU
   CDE10           3498/BCS     3500/BCS     3502-MTW
   CDREQUAL        3496-EQU     6544/B
   CE               581/SET      642-EQU
   CELL20          1463-EQU     8326/LMS     8334/LMS
   CELL21          1464-EQU
   CHANMG          3726/LW      3727/OR     10948-TEXTCS
   CHANNELA        1465-DATA    1974/LW      2043/LW      2053/MTW     3584/STW     3611/MTW     3649/LW
      4069/LW
   CHANNELB        1466-DATA    1961/LW      2044/AND     3597/STW     3613/MTW     3652/LW      4070/AND
   CHBCTRL         1467-DATA    1931/MTW     1938/MTW     1957/MTW     2046/MTW     2049/STW     2056/STW
      3408/AW      3616/STW     3719/MTW     3749/AW      3752/MTW     4000/LW      4041/MTW     4172/MTW
      4358/MTW     4721/AW      4729/AW      4737/AW      4745/AW      4753/AW      4761/AW      4769/AW
      4777/AW      4809/AW      4817/AW      4825/AW      4833/AW      4841/AW      4849/AW      4857/AW
      4865/AW      4897/AW      4905/AW      4913/AW      4921/AW      4929/AW      4937/AW      4945/AW
      4953/AW      5282/AW      5425/AW      5446/AW      5598/AW      5639/AW      5685/AW      5713/AW
      5779/AW      6157/AW      6172/AW      7745/AW      7839/AW      7851/AW      7863/AW      7875/AW
      8251/AW      8257/AW      8267/AW      8273/AW      8328/AW      8588/AW      8603/AW      8618/AW
      8633/AW      8665/AW      8697/AW      8713/AW      8730/AW      8749/AW      8768/AW      8787/AW
      8806/AW      8824/AW      8841/AW      8858/AW      8875/AW      8906/AW      8927/AW      8948/AW
      8967/AW      8986/AW      9004/AW      9022/AW      9040/AW      9203/AW      9219/AW      9225/AW
      9241/AW      9247/AW      9273/AW      9962/AW     10149/AW     10290/AW     10359/AW
   CHDRCTL         1468-DATA    4001/STW
   CHLATEST        1469-DATA    1956/MTW     1972/LW      1990/LW      3715/LW      3824/MTW     3970/STW
      4198/LW
   CHLBTEST        1470-DATA    1953/MTW     1959/LW      1991/OR      3716/OR      3826/MTW     3969/STW
      4199/OR
   CKDVCON         1079/BAL     1254/BAL     2161/BAL     3507-EQU
   CKT10           3510-LW
   CKT60           3513/BCR     3515/BCR     3519/BCR     3521/BCR     3527/BCR     3530-LI
   CM               851/STW     1246/STW     1471-DATA    1876/LW      2252/LW      3875/LW      3896/LI
      3933/LW      3954/LW      4209/OR      4301/LW      4505/OR      4517/OR      4519/LW      4553/OR
      4565/OR      4577/OR      4590/OR      4593/OR      4605/OR      4608/OR      4625/OR      4628/OR
      4631/OR      4660/OR      4663/OR      4666/OR      4677/OR      4680/OR      4687/OR      4700/OR
      4705/OR      4960/OR      4964/OR      4988/OR      4991/OR      5014/OR      5018/OR      5032/OR
      5046/OR      5060/OR      5074/OR      5088/OR      5102/OR      5116/OR      5133/OR      5145/OR
      5167/OR      5191/OR      5197/OR      6034/OR      6065/OR      6082/OR
   CMCTRL          1235/CW      1244/STW     1472-DATA
   CMDTA           1271-GEN    10260/LI
   CMDTB           1273-GEN    10244/LI
   CMDTC           1275-GEN    10276/LI
   CMDT1           1277-GEN     7877/LI      8253/LI      8269/LI      8894/LI
   CMDT10          1295-GEN     9091/LI      9169/LI      9184/LI
   CMDT11          1297-GEN     7937/LI      9199/LI
   CMDT12          1299-GEN     9221/LI     10042/LI
   CMDT13          1301-GEN     9243/LI      9964/LI      9978/LI      9990/LI     10008/LI     10021/LI
     10057/LI
   CMDT14          1303-GEN     9265/LI     10071/LI
   CMDT15          1305-GEN     9292/LI
   CMDT16          1307-GEN     9309/LI     10168/LI
   CMDT17          1309-GEN     9326/LI     10151/LI     10183/LI
   CMDT19          1311-GEN    10087/LI
   CMDT19A         1313-GEN    10105/LI
   CMDT2           1279-GEN     8590/LI      8605/LI      8620/LI      8635/LI      8649/LI      8658/LI
      8667/LI      8699/LI      8715/LI      8732/LI      8751/LI      8770/LI      8789/LI      8808/LI
   CMDT20          1315-GEN    10120/LI     10292/LI     10309/LI
   CMDT21          1317-GEN    10213/LI
   CMDT21A         1319-GEN    10198/LI
   CMDT22          1321-GEN    10228/LI     10361/LI     10404/LI
   CMDT22A         1323-GEN    10376/LI     10389/LI
   CMDT23          1325-GEN    10329/LI
   CMDT24          1327-GEN    10345/LI
   CMDT25          1329-GEN    10419/LI
   CMDT25A         1331-GEN    10435/LI
   CMDT25B         1333-GEN
   CMDT25C         1335-GEN    10451/LI
   CMDT25D         1337-GEN
   CMDT26A         1339-GEN     9343/LI
   CMDT26B         1341-GEN
   CMDT27A         1343-GEN     9357/LI
   CMDT27B         1345-GEN
   CMDT28A         1347-GEN     9374/LI
   CMDT28B         1349-GEN
   CMDT29A         1351-GEN     9389/LI      9537/LD
   CMDT29B         1353-GEN     1361/GEN     2951/LI
   CMDT3           1281-GEN     8826/LI      8843/LI      8860/LI      8877/LI
   CMDT30A         1355-GEN     9405/LI
   CMDT30B         1357-GEN
   CMDT31A         1359-GEN     9420/LI
   CMDT32A         1363-GEN     9435/LI
   CMDT33A         1367-GEN
   CMDT34          1369-GEN     9726/LI      9739/LI      9757/LI
   CMDT35          1371-GEN     9775/LI      9792/LI      9814/LI
   CMDT36          1373-GEN     8681/LI      9834/LI      9854/LI      9881/LI
   CMDT37          1375-GEN     9904/LI      9923/LI
   CMDT38          1377-GEN     9450/LI
   CMDT39          1379-GEN     9466/LI
   CMDT4           1283-GEN     8908/LI      8929/LI
   CMDT40          1381-GEN     9480/LI
   CMDT41          1383-GEN     9492/LI      9507/LI
   CMDT42          1385-GEN     9558/LI      9570/LI
   CMDT44          1387-GEN    10469/LI     10503/LI
   CMDT45          1389-GEN    10465/LI
   CMDT46A         1391-GEN    10483/LI     10500/LI
   CMDT46B         1393-GEN
   CMDT47A         1395-GEN    10485/LI
   CMDT47B         1397-GEN
   CMDT48          1399-GEN    10516/LI     10533/LI     10553/LI     10568/LI     10571/LI     10586/LI
     10606/LI     10609/LI
   CMDT49          1401-GEN    10519/LI     10536/LI     10556/LI     10589/LI
   CMDT5           1285-GEN     8952/LI      8971/LI
   CMDT50          1403-GEN     9949/LI
   CMDT51          1405-GEN    10136/LI
   CMDT52A         1407-GEN     9549/LI
   CMDT52B         1409-GEN
   CMDT6           1287-GEN     8990/LI      9008/LI
   CMDT7           1289-GEN     9026/LI      9044/LI
   CMDT8           1291-GEN     9059/LI      9109/LI      9124/LI
   CMDT9           1293-GEN     9075/LI      9139/LI      9154/LI
   CMPCNT           868/STW     1223/STW     1473-DATA    2105/LW      2110/STW
   CMPCNT0          867/STW     1221/STW     1474-DATA    2109/AW
   COMDVC           802/STW     1475-DATA    3544/LW
   COMPARE         2344/BCS     2996-MTW
   COMPASS          850/STW     1476-DATA    1912/MTW     2011/MTW     2059/MTW     2067/MTW     2077/MTW
      2083/MTW     2091/STW     2759/MTW     3856/MTW
   COMPFILL        3073-LW      3082/BDR
   COMPFLAG         849/STW     1153/STW     1477-DATA    1866/STW     2082/MTW     2090/STW     2343/MTW
      2394/MTW     2401/MTW     2408/MTW     2415/MTW     2424/MTW     2433/MTW     2442/MTW     2451/MTW
      2460/MTW     2465/MTW     2471/MTW     2487/MTW     2493/MTW     3855/MTW
   COMPLINE        3058-LB      3125/B
   COMPSRV3        1478-DATA    2586/MTW     2588/STW     2936/MTW     2971/MTW     2984/MTW     3972/STW
   COMPSRV4        1479-DATA    2628/MTW     2630/STW     2950/MTW     3973/STW
   COMPSTRT        1480-DATA    3070/STW     3087/LW
   COMPTAG         2274-LW      2309/BAL
   CONTCOMP        3035/BEZ     3039/BL      3041/BG      3051-EQU
   COUNTER         1481-DATA
   CREQUAL         3676-EQU     4235/B       4252/B       4282/B       4293/B       4306/B       4317/B
      4328/B       4339/B       4350/B       4366/B       4374/B       4387/B       4400/B       4414/B
      4421/B       4432/B       4448/B       4465/B       4479/B       4489/B       4499/B       4511/B
      4524/B       4535/B       4547/B       4559/B       4571/B       4583/B       4598/B       4613/B
      4637/B       4671/B       4690/B       4708/B       4796/B       4884/B       4968/B       4978/B
      4997/B       5022/B       5040/B       5054/B       5068/B       5082/B       5096/B       5110/B
      5127/B       5140/B       5162/B       5184/B       5202/B       5211/B       5221/B       5231/B
      5256/B       5291/B       5301/B       5311/B       5326/B       5337/B       5348/B       5362/B
      5378/B       5393/B       5404/B       5415/B       5431/B       5457/B       5573/B       5588/B
      5607/B       5623/B       5649/B       5674/B       5692/B       5720/B       5787/B       5807/B
      5819/B       5841/B       5862/B       5902/B       5911/B       5920/B       5929/B       5938/B
      5947/B       5956/B       5965/B       5974/B       5988/B       6004/B       6017/B       6028/B
      6044/B       6059/B       6076/B       6093/B       6106/B       6131/B       6141/B       6166/B
      6181/B       6210/B       6257/B       6300/B       6370/B       6759/B       7718/B       7754/B
      7821/B       7846/B       7858/B       7870/B       7883/B       7911/B       7951/B       7961/B
      7971/B       7981/B       7991/B       8001/B       8011/B       8021/B       8031/B       8041/B
      8051/B       8061/B       8207/B       8337/B       8353/B       8373/B       8393/B       8415/B
      8436/B       8457/B       8478/B       8499/B       8520/B       8541/B       8562/B       8583/B
      8598/B       8613/B       8628/B       8643/B       8660/B       8677/B       8708/B       8725/B
      8744/B       8763/B       8782/B       8801/B       8819/B       8836/B       8853/B       8870/B
      8886/B       8901/B       8922/B       8943/B       8962/B       8981/B       8999/B       9017/B
      9035/B       9053/B       9069/B       9085/B       9101/B       9116/B       9131/B       9146/B
      9161/B       9176/B       9191/B       9212/B       9234/B       9256/B       9282/B       9299/B
      9316/B       9333/B       9350/B       9364/B       9380/B       9396/B       9412/B       9427/B
      9442/B       9514/B       9529/B       9565/B       9583/B       9613/B       9638/B       9663/B
      9689/B       9720/B       9749/B       9766/B       9802/B       9823/B       9869/B       9896/B
      9913/B       9955/B       9972/B       9985/B      10003/B      10015/B      10034/B      10049/B
     10063/B      10077/B      10094/B      10112/B      10126/B      10142/B      10159/B      10175/B
     10190/B      10205/B      10220/B      10235/B      10251/B      10267/B      10283/B      10300/B
     10315/B      10335/B      10351/B      10369/B      10383/B      10396/B      10411/B      10426/B
     10442/B      10458/B      10474/B      10510/B      10542/B      10562/B      10595/B      10615/B
   CTLP             831/BAL     1078/BAL     3536-EQU
   CTLPTM1          804/STW      805/STW      818/LD       830/STM     1022/STW     1031/STW     1038/STW
      1046/STW     1053/STW     1062/STW     1070/STW     1077/LM      1188/STW     1201/STW     1251/LW
      1483-DATA    1685/TIO*
   CTLP02          3566/BCR     3571-LCW
   CTLP03          3570/B       3574-OR
   CTLP04          3585/BEZ     3593-STW
   CTLP08          3592/B       3596-AND
   CTLP12          3598/BCR     3604-STW
   CTLP16          3603/B       3606-EQU
   CTLWD           1893-EQU     2039/BCR     2129/B
   CTL03           1907/BAZ     1910/BEZ     1915-EQU
   CTL04           1921/BCR     1926-SLS
   CTL08           1927/BCR     1936-SLS
   CTL12           1937/BCR     1941-SLS
   CTL20           1958/BCR     1972-LW
   CTL40           1960/BCR     1973/BCR     1989-EQU
   CTL90           1913/BNEZ    1924/BCS     1930/BCS     1932/BCS     1939/BCS     1962/BCR     1966/BCR
      1970/BCR     1975/BCR     1979/BCR     1983/BCR     1987/BCR     1994-EQU
   CVTPRAM         3618/BAL     3622-EQU
   C0               606/GEN      628-EQU
   C1               581/SET      629-EQU     2469/#PRINT  2475/#PRINT  2491/#PRINT  2497/#PRINT
   C2               581/SET      630-EQU     2398/#PRINT  2405/#PRINT  2412/#PRINT  2419/#PRINT
      2428/#PRINT  2437/#PRINT  2446/#PRINT  2455/#PRINT  2464/#PRINT  3731/#PRINT  4024/#PRINT
      4058/#PRINT
   C3               581/SET      631-EQU
   C4               581/SET      632-EQU
   C5               581/SET      633-EQU
   C6               581/SET      634-EQU
   C7               581/SET      635-EQU
   C8               581/SET      636-EQU
   C9               581/SET      637-EQU
   DATA            2601/BAL     2627-STW     2901/BAL     2938/BAL     2952/BAL
   DATABYTE        1502-DATA    1539/EQU     3774/OR      3971/STW    10166/STW
   DATAIN          2639/BCR     2778-BAL
   DATAPNT         1501-DATA    1824/MTW     1949/MTW     3968/STW
   DATASAVE        2626-DATA    2627/STW     2675/BCR*    2705/B*      2827/BCR*    2843/BCR*
   DCA              737-ORG      837/STW      930/STW     2035/STW
   DCOFFA           852/STW      998/STW     1503-DATA    2066/STW     3144/STW     3834/MTW     3837/STW
      3867/MTW     3891/STW     3944/STW     4144/MTW     4146/MTW     4382/STW     4396/STW     4442/STW
      4458/STW     5119/STW     5148/STW     5170/STW     5266/STW     5277/STW     6011/STW     6024/STW
      6038/STW     6053/STW     6069/STW     6086/STW     6099/STW     7832/STW     8202/STW
   DIOADR          1504-DATA    3580/STW     3643/#HTECON 3738/LW
   DIOPRET         1505-DATA    1882/MTW     1919/MTW     3821/MTW     3961/STW
   DISARM           817/WD      1506-EQU     1878/WD      2010/WD      3316/WD      8320/WD
   DISPERR         3105/STW     3109/STW     3112/STW     3122/#PRINT 10949-TEXTCS
   DISPFORM        2356/STH     2363/STW     2366/STW     2371/#PRINT  2513/STH     3066/STH     3076/STW
      3079/STW     3085/#PRINT 10953-TEXTCS
   DISPLAY         1507-EQU     3437/RD*     4683/RD*     4703/RD*     4792/RD*     4880/RD*     4963/RD*
      4992/RD*     5017/RD*     5038/RD*     5052/RD*     5066/RD*     5080/RD*     5094/RD*     5108/RD*
      5125/RD*     5138/RD*     5160/RD*     5182/RD*     5196/RD*     5287/RD*     5430/RD*     5454/RD*
      5605/RD*     5646/RD*     5690/RD*     5718/RD*     5784/RD*     7750/RD*     7843/RD*     7855/RD*
      7867/RD*     7880/RD*     8260/RD*     8276/RD*     8331/RD*     8595/RD*     8611/RD*     8626/RD*
      8641/RD*     8675/RD*     8706/RD*     8723/RD*     8742/RD*     8761/RD*     8780/RD*     8799/RD*
      8818/RD*     8833/RD*     8851/RD*     8867/RD*     8884/RD*     8960/RD*     8979/RD*     8997/RD*
      9015/RD*     9033/RD*     9051/RD*     9067/RD*     9083/RD*     9099/RD*     9206/RD*     9209/RD*
      9228/RD*     9231/RD*     9250/RD*     9253/RD*     9276/RD*     9279/RD*     9361/RD*     9377/RD*
      9484/RD*     9496/RD*     9969/RD*     9982/RD*    10012/RD*    10046/RD*    10061/RD*    10075/RD*
     10091/RD*    10109/RD*    10124/RD*    10140/RD*    10156/RD*    10297/RD*    10313/RD*    10333/RD*
     10349/RD*    10366/RD*    10380/RD*    10393/RD*
   DISPLAYX        2336-LC      2519/B       2531/B       2537/B       2549/B       2561/B       2571/B
      2577/B       2582/B       2602/B       2607/B       2624/B       2919/B       2931/B       2939/B
      2953/B       2964/B       2994/B
   DLY10MS         2064/BAL     3691-EQU     4383/BAL     4394/BAL     4440/BAL     4456/BAL     5275/BAL
   DLY10US         3685-EQU     5035/BAL     5049/BAL     5063/BAL     5077/BAL     5092/BAL     5106/BAL
      5123/BAL     5136/BAL     5194/BAL     5286/BAL     5358/BAL     5372/BAL     9525/BAL     9526/BAL
   DM%EXPL        10684-EQU    10897/P
   DRIVER          2337/BCS     2377/B       2756-EQU     3138/B
   DR1             2760/BCR     2766-MTW
   DR2             2763/BCR     2765/B       2769/B       2771-STW
   DR3             2772/STW     2775/B*      2776-DATA
   DX4             2683/BCS     2707-BAL
   DX4IN           2835/BCS     2855-BAL
   E              10818-COM
   ENABLE          1508-EQU     2007/WD
   ENDADDR         1417/GEN     1421/GEN     2207/STW     2211/STW     2214/STW     2217/STW     2221/STW
      2224/STW     2227/STW     2231/STW     2241/STW     2245/STW     2278/STW     2302/STW     2360/LW
      3014/CW      3030/LW      3031/CW      3043/LW      3045/STW     3047/LW      3049/STW     3073/LW
      3091/LW      3092/LW      4113/CI     11010-END
   ENDPSUC1        1511-DATA
   ENDSUC          1211/STW     1225/STW     1509-DATA    2167/STW     3994/MTW     3998/MTW     4066/STW
   ENDTEST          839/STW      933/STW     1512-DATA    1868/LW      2037/LW
   EQUAL           3680-EQU     8222/B       8237/B       8246/B
   ERDATAMG        1828/STW     1831/STW     1834/STW     1836/STW     1842/STW     1844/STW     1847/STW
      1849/STW     1851/STB     1853/#PRINT  1856/STB    10956-TEXTCS
   ERDTAMG2        1852/STB     1854/#PRINT  1857/STB    10958-TEXTCS
   ERRORHDR        1811/BAL     2022/BAL     3697-EQU
   ER010MG         3702/STB     3705/STW     3709/STH     3711/STH     3714/LB      3729/STW     3730/STW
      3731/#PRINT 10960-TEXTCS
   ER20            3717/BCR     3723-LW
   ER30            3720/BCR     3722/B       3726-LW
   ER36            3725/B       3728-STB
   FAMADR          1510-DATA    1814/#HTECON 6770/STW     6778/OR      6779/STH
   FAMADRMG        1817/STH     1819/STB     1822/STB     1823/#PRINT 10961-TEXTCS
   FAMBAD          1513-DATA    1812/MTW     3967/STW     6765/MTW
   FAMPAT1         1517-DATA    6724/LD
   FAMPAT2         1518-DATA    4219/LD
   FAMPAT3         1519-DATA    4222/AD      6727/AD
   FAM2OPT         1514-DATA    1925/STW     1935/STW     3962/STW
   FAM3OPT         1515-DATA    1933/STW     3963/STW
   FILEBACK        1419-GEN     3023/LI      3025/LI
   FILEFWD         1415-GEN     2094/LI      3001/LI      3027/LI
   FILL            2360-LW      2369/BDR
   FINDATA         3001-LI      3015/BNE
   FINDCOOK         861/STW      997/STW     1155/STW     1520-DATA    2996/MTW     2999/STW
   FIRSTIME         842/AND     1521-DATA    2134/MTW     2143/MTW     2173/MTW     2175/MTW
   FOLDEX          1522-DATA    2480/STW     2500/LW
   FOLDEXC         1523-DATA    2483/STW     2501/LW
   FOLDOUT         2391/BCS     2487-MTW
   FORCEP1          854/STW     1524-DATA    4034/MTW
   FOURBXA         3770-EQU     9960/BAL     9977/BAL     9989/BAL    10007/BAL    10020/BAL    10039/BAL
     10054/BAL    10068/BAL    10082/BAL    10100/BAL    10117/BAL    10131/BAL    10147/BAL    10167/BAL
     10182/BAL    10197/BAL    10212/BAL    10227/BAL    10243/BAL    10259/BAL    10275/BAL
   FOURBYTA        1525-DATA    1978/LW      3587/STW     3593/STW     3658/LW      4360/MTW
   FOURBYTB        1526-DATA    1965/LW      3600/STW     3604/STW     3661/LW      4363/MTW
   FOURBYTE        1527-DATA    1946/MTW     1963/LW      1976/LW      2236/MTW     3966/STW
   FUNCTION         848/STW      863/STW     1141/STW     1528-DATA    3846/MTW
   F0               581/SET      644-EQU
   F1               581/SET      645-EQU
   GENADR           999/MTW     1529-DATA    2086/MTW     2182/STW     3006/TDV*    3020/TDV*    3140/LW
      3148/TIO*    3157/SIO*    3160/TIO*    3170/SIO*    3173/TIO*    3524/LW      3884/LW
   GENCOKBK         992-EQU     2194/BNEZ
   GENRIO4         1730-MTW     4213/BAL
   GENRIO40        1731/BEZ     1737-RIO
   GENRIO6         1001/BAL     1740-MTW     2063/BAL     6014/BAL     6041/BAL     6056/BAL     6072/BAL
      6089/BAL     6102/BAL     7829/BAL     8200/BAL
   GENRIO60        1741/BEZ     1747-RIO
   GOOD            2000-EQU     2761/LI      3463/B       3468/B       3473/B       3478/B       3483/B
      3488/B       3493/B       3501/B       3682/B       3978/LI      4271/B       5027/B       5240/B
      5485/BCR     5499/BCR     5513/BCS     5525/BCR     5540/BCS     5558/B       5879/BCS     6113/BCR
      6121/BCR     6150/BCS     7834/B       8214/B       8229/B       8311/BCR     8314/BNEZ    8688/BCR
      8691/BNEZ    9458/BCS     9474/BCR     9487/B       9499/B       9520/BCR     9535/BCR     9595/B
      9933/BCS    10495/B      10625/B
   GO01            2012/BCR     2014/BCR     2018/B       2024-LC
   GO02            1532/GEN     1808/B       1995/LI      2029-EQU     2768/LI
   GO03            1611/DATA    1807/BCS     2036-BAL
   GO032           1870/BCS     2040-MTW
   GO034           2045/BCR     2053-MTW
   GO036           2047/BCS     2054/BCS     2056-STW
   GO040           2041/BCS     2062-LW
   GO045           2061/B       2071/LI      2075-MTW
   GO048           2060/BCS     2068/BCS     2076/BCR     2078/BCS     2080/BCS     2088-LI
   GO05            2098/BCS     2104-MTW
   GO06            2108/BE      2112-#HTECON
   GO07            2107/BG      2111/B       2121-LW
   GO08            2052/B       2085/BCR     2087/B       2103/B       2123/BCS     2126-LW      2197/B
   GPCTRL          2051/BAL     2058/BAL     3617/BAL     3736-EQU
   GPL20           3741-LW      3751/BIR
   GPL40           3745/BCR     3750-STW
   GPL80           3753/BCS     3761-LW      3766/B
   GP00            1245/WD*     1431-GEN     1507/EQU     1884/WD*     1885/WD*     2223/RD*     2251/WD*
      2253/WD*     3737/LI      3892/WD*     3932/WD*     4119/WD*     4120/WD*     4207/WD*     4210/WD*
      4270/RD*     4277/WD*     4278/WD*     4279/RD*     4288/WD*     4289/WD*     4299/WD*     4300/WD*
      4312/WD*     4313/WD*     4323/WD*     4324/WD*     4334/WD*     4335/WD*     4345/WD*     4346/WD*
      4436/WD*     4452/WD*     4470/WD*     4506/WD*     4510/WD*     4518/WD*     4520/WD*     4530/WD*
      4532/WD*     4541/WD*     4542/WD*     4545/WD*     4554/WD*     4556/WD*     4566/WD*     4567/WD*
      4578/WD*     4580/RD*     4582/WD*     4591/WD*     4594/WD*     4606/WD*     4609/WD*     4626/WD*
      4629/WD*     4632/WD*     4661/WD*     4664/WD*     4667/WD*     4678/WD*     4681/WD*     4688/WD*
      4697/RD*     4701/WD*     4706/WD*     4787/RD*     4875/RD*     4961/WD*     4965/WD*     4989/WD*
      4994/WD*     5015/WD*     5019/WD*     5033/WD*     5047/WD*     5061/WD*     5075/WD*     5089/WD*
      5103/WD*     5117/WD*     5134/WD*     5146/WD*     5168/WD*     5192/WD*     5198/WD*     6035/WD*
      6066/WD*     6083/WD*
   GP01            1432-GEN     2226/RD*     4291/RD*     4508/RD*     4522/RD*     4555/RD*     4569/RD*
      4596/RD*     4610/RD*     4635/RD*     4669/RD*     4715/RD*     4803/RD*     4891/RD*     4976/RD*
      6042/RD*     6074/RD*     6091/RD*     6163/RD*     6178/RD*     8205/RD*
   GP02            1433-GEN     2229/RD*     4304/RD*     4412/RD*     4429/RD*     4531/RD*     4543/RD*
      7704/RD*     8243/RD*
   GP03            1434-GEN     1644/EQU     3744/CI
   GP08            1435-GEN     1886/WD*     2204/WD*     2206/RD*     2254/WD*     2319/WD*     2614/WD*
      3409/WD*     3435/WD*     3888/WD*     3941/WD*     4118/WD*     4134/WD*     4276/WD*     4287/WD*
      4298/WD*     4311/WD*     4315/RD*     4322/WD*     4333/WD*     4344/WD*     4437/WD*     4453/WD*
      4461/WD*     4471/WD*     4495/WD*     4723/RD*     4790/WD*     4794/WD*     4811/RD*     4899/RD*
      4973/WD*     4975/WD*     5278/WD*     5296/WD*     5306/WD*     5316/WD*     5331/WD*     5342/WD*
      5352/WD*     5367/WD*     5384/WD*     5398/WD*     5408/WD*     5419/WD*     5422/WD*     5441/WD*
      5476/WD*     5479/WD*     5490/WD*     5493/WD*     5504/WD*     5508/WD*     5530/WD*     5537/WD*
      5538/WD*     5553/WD*     6146/WD*     6148/RD*     6155/WD*     6158/WD*     6162/WD*     6170/WD*
      6173/WD*     6177/WD*     6195/WD*     6250/WD*     7695/RD*     7710/WD*     7738/WD*     7746/WD*
      7748/WD*     7765/WD*     7791/WD*     7794/WD*     7796/WD*     7810/WD*     7813/WD*     7815/WD*
      7817/WD*     7840/WD*     7852/WD*     7864/WD*     7876/WD*     8252/WD*     8258/WD*     8268/WD*
      8274/WD*     8322/WD*     8329/WD*     8330/WD*     8589/WD*     8593/WD*     8604/WD*     8608/WD*
      8619/WD*     8623/WD*     8634/WD*     8638/WD*     8648/WD*     8652/WD*     8666/WD*     8670/WD*
      8672/WD*     8698/WD*     8702/WD*     8704/WD*     8714/WD*     8718/WD*     8720/WD*     8731/WD*
      8737/WD*     8739/WD*     8750/WD*     8754/WD*     8756/WD*     8758/WD*     8769/WD*     8773/WD*
      8775/WD*     8777/WD*     8788/WD*     8792/WD*     8794/WD*     8796/WD*     8807/WD*     8811/WD*
      8813/WD*     8815/WD*     8825/WD*     8829/WD*     8831/WD*     8842/WD*     8846/WD*     8848/WD*
      8859/WD*     8863/WD*     8865/WD*     8876/WD*     8880/WD*     8882/WD*     8907/WD*     8914/WD*
      8916/WD*     8918/WD*     8928/WD*     8935/WD*     8937/WD*     8949/WD*     8955/WD*     8957/WD*
      8968/WD*     8974/WD*     8976/WD*     8987/WD*     8993/WD*     8995/WD*     9005/WD*     9011/WD*
      9013/WD*     9023/WD*     9029/WD*     9031/WD*     9041/WD*     9047/WD*     9049/WD*     9058/WD*
      9062/WD*     9064/WD*     9074/WD*     9078/WD*     9080/WD*     9090/WD*     9094/WD*     9096/WD*
      9198/WD*     9204/WD*     9220/WD*     9226/WD*     9242/WD*     9248/WD*     9264/WD*     9268/WD*
      9270/WD*     9274/WD*     9833/WD*     9839/WD*     9856/WD*     9861/WD*     9883/WD*     9888/WD*
      9910/RD*     9930/WD*     9963/WD*    10150/WD*    10291/WD*    10360/WD*
   GP09            1436-GEN     2209/RD*     4220/WD*     4221/WD*     4231/WD*     4240/WD*     4247/WD*
      4248/WD*     4257/WD*     4258/WD*     4326/RD*     4731/RD*     4819/RD*     4907/RD*     5345/RD*
      5511/RD*     5877/RD*     5972/RD*     6147/WD*     6160/WD*     6175/WD*     6197/WD*     6200/WD*
      6252/WD*     6291/WD*     6292/WD*     6295/WD*     6363/WD*     6366/WD*     6534/WD*     6537/WD*
      6725/WD*     6726/WD*     6731/WD*     6742/WD*     6743/WD*     6754/WD*     7819/RD*     7890/WD*
      7901/WD*     7918/WD*     7934/WD*     8345/WD*     8350/WD*     8362/WD*     8368/WD*     8381/WD*
      8388/WD*     8402/WD*     8410/WD*     8423/WD*     8431/WD*     8444/WD*     8452/WD*     8465/WD*
      8473/WD*     8486/WD*     8494/WD*     8507/WD*     8515/WD*     8528/WD*     8536/WD*     8549/WD*
      8557/WD*     8570/WD*     8578/WD*     8655/WD*     8919/WD*     8940/WD*     9579/WD*     9632/WD*
      9650/WD*     9675/WD*     9701/WD*     9714/WD*     9999/WD*    10030/WD*
   GP10            1437-GEN     2213/RD*     4232/RD*     4249/RD*     4739/RD*     4827/RD*     4915/RD*
      6204/RD*     6253/RD*     6290/RD*     6316/RD*     6332/RD*     6348/RD*     6538/RD*     6744/RD*
      6755/RD*     8351/RD*     8369/RD*     8389/RD*     8411/RD*     8432/RD*     8453/RD*     8474/RD*
      8495/RD*     8516/RD*     8537/RD*     8558/RD*     8579/RD*     8656/RD*     8920/WD*     9580/RD*
      9634/RD*     9716/RD*    10000/RD*
   GP11            1438-GEN     2216/RD*     4241/RD*     4259/RD*     4747/RD*     4835/RD*     4923/RD*
      6206/RD*     6308/RD*     6324/RD*     6340/RD*     6356/RD*     6368/RD*     6540/RD*     6745/RD*
      8941/WD*    10031/RD*
   GP12            1439-GEN     1887/WD*     2234/RD*     2255/WD*     3942/WD*     4135/WD*     4357/RD*
      4755/RD*     4843/RD*     4878/WD*     4882/WD*     4931/RD*     5283/WD*     5319/WD*     5355/WD*
      5369/WD*     5374/WD*     5386/WD*     5388/WD*     5426/WD*     5444/WD*     5447/WD*     5599/WD*
      5640/WD*     5686/WD*     5714/WD*     5780/WD*     5838/RD*     5859/RD*     5900/RD*     5909/RD*
      5918/RD*     5927/RD*     5982/WD*     5996/WD*     6000/WD*
   GP13            1440-GEN     2233/RD*     2983/WD*     3457/WD*     3775/WD*     3833/WD*     4139/WD*
      4217/WD*     4355/WD*     4371/WD*     4373/RD*     4763/RD*     4851/RD*     4939/RD*     5423/WD*
      5449/WD*     5480/WD*     5494/WD*     5506/WD*     5535/WD*     5549/WD*     5555/WD*     5582/WD*
      5703/WD*     5831/WD*     5852/WD*     5872/WD*     5890/WD*     5936/RD*     5945/RD*     5954/RD*
      5963/RD*     7740/WD*     7930/WD*     7946/WD*     7956/WD*     7966/WD*     7976/WD*     7986/WD*
      7996/WD*     8006/WD*     8016/WD*     8026/WD*     8036/WD*     8046/WD*     8056/WD*     8066/WD*
      8075/WD*     8086/WD*     8097/WD*     8108/WD*     8119/WD*     8129/WD*     8139/WD*     8149/WD*
      8159/WD*     8169/WD*     8179/WD*     8189/WD*     8343/WD*     8359/WD*     8378/WD*     8399/WD*
      8420/WD*     8441/WD*     8462/WD*     8483/WD*     8504/WD*     8525/WD*     8546/WD*     8567/WD*
      8893/WD*     9108/WD*     9123/WD*     9138/WD*     9153/WD*     9168/WD*     9183/WD*     9291/WD*
      9308/WD*     9325/WD*     9340/WD*     9372/WD*     9388/WD*     9404/WD*     9419/WD*     9434/WD*
      9449/WD*     9467/WD*     9506/WD*     9557/WD*     9607/WD*     9624/WD*     9655/WD*     9681/WD*
      9706/WD*     9773/WD*     9788/WD*     9810/WD*     9830/WD*     9850/WD*     9877/WD*     9907/WD*
      9926/WD*     9948/WD*
   GP14            1441-GEN     2219/RD*     2970/WD*     4337/RD*     4397/RD*     4444/WD*     4446/RD*
      4460/WD*     4462/RD*     4473/WD*     4477/RD*     4485/WD*     4487/RD*     4494/WD*     4497/RD*
      4771/RD*     4859/RD*     4947/RD*     5285/WD*     5321/WD*     5334/RD*     5357/WD*     5359/RD*
      5371/WD*     5376/RD*     5390/WD*     5400/WD*     5402/RD*     5411/WD*     5413/RD*     5428/WD*
      5451/WD*     5483/RD*     5497/RD*     5510/WD*     5520/WD*     5522/WD*     5523/RD*     5551/WD*
      5552/RD*     5565/WD*     5567/WD*     5569/WD*     5571/RD*     5580/WD*     5584/WD*     5596/WD*
      5601/WD*     5602/WD*     5603/WD*     5615/WD*     5617/WD*     5618/WD*     5619/WD*     5621/RD*
      5631/WD*     5633/WD*     5635/WD*     5637/WD*     5642/WD*     5644/WD*     5658/WD*     5660/WD*
      5662/WD*     5664/WD*     5666/WD*     5668/WD*     5670/WD*     5672/RD*     5681/WD*     5683/WD*
      5688/WD*     5705/WD*     5707/WD*     5708/WD*     5710/WD*     5712/WD*     5716/WD*     5771/WD*
      5773/WD*     5775/WD*     5777/WD*     5782/WD*     5794/WD*     5796/WD*     5798/WD*     5800/WD*
      5802/WD*     5805/RD*     5815/WD*     5817/RD*     5829/WD*     5833/WD*     5834/WD*     5835/WD*
      5837/WD*     5850/WD*     5854/WD*     5855/WD*     5856/WD*     5858/WD*     5870/WD*     5874/WD*
      5876/WD*     5892/WD*     5894/WD*     5895/WD*     5896/WD*     5898/WD*     5984/WD*     5986/RD*
      5998/WD*     6002/RD*     6050/WD*     6057/RD*     9838/WD*     9860/WD*     9887/WD*
   GP15            1442-GEN     2243/RD*     3145/WD*     3737/LI      3741/LW      3744/CI      3750/STW
      3830/WD*     3887/WD*     3943/WD*     4141/WD*     4214/WD*     4348/RD*     4380/WD*     4384/RD*
      4393/WD*     4439/WD*     4455/WD*     4475/WD*     4779/RD*     4867/RD*     4955/RD*     5274/WD*
      5324/RD*     5392/RD*     5482/WD*     5496/WD*     5536/RD*     5585/RD*     5593/WD*     5612/WD*
      5628/WD*     5655/WD*     5826/WD*     5847/WD*     5867/WD*     5888/WD*     5979/WD*     5993/WD*
      6104/RD*     7723/RD*
   GRPHEAD1        2469/#PRINT 10963-TEXTCS
   GRPHEAD2        2491/#PRINT 10965-TEXTCS
   GRPHEAD3        2475/#PRINT 10967-TEXTCS
   GRPHEAD4        2497/#PRINT 10969-TEXTCS
   GUIDE          10937-STW    11010/END
   GUIDLINK         793/STW     1530-DATA    2136/B*      2139/STW     2170/BAL*
   H              10817-COM
   HD1             2393/BCS     2397/BCR     2399-CI
   HD10            2471-MTW
   HD11            2468/BCR     2470/B       2474/BCR     2476-AI
   HD12            2493-MTW
   HD13            2490/BCR     2492/B       2496/BCR     2498-LW
   HD2             2400/BCS     2404/BCR     2406-CI
   HD3             2407/BCS     2411/BCR     2413-CI
   HD4             2414/BCS     2418/BCR     2420-CI
   HD5             2421/BCS     2427/BCR     2429-CI
   HD6             2430/BCS     2436/BCR     2438-CI
   HD7             2439/BCS     2445/BCR     2447-CI
   HD8             2448/BCS     2454/BCR     2456-CI
   HD9             2457/BCS     2463/BCR     2465-MTW
   HEADOUT         2353/BAL     2384-STW     3063/BAL
   HEADSAVE        2383-DATA    2384/STW     2485/B*      2503/B*
   IDLER           1610/GEN     3779-EQU
   IDLINK          1532-GEN     3205/STW     3255/STW     3275/STW     3302/STW     3333/STW     3371/STW
      3786/DATA
   IET             1667/GEN     3187-EQU
   IETT            1534/XPSD    1666-DATA    3195/LD      3208/MTW     3212/LPSD
   IETTCC04        1533-DATA    3188/STCF    3198/LB
   IET60           3192/BCS     3193/LI      3202-LC
   IET70           3191/BCS     3203/BCS     3204/LI      3208-MTW
   IEXPSD          1534-XPSD    3796/LW
   IMTLT0          1005/STW*    1535-DATA    2072/STW*    2184/STW
   IMTLT1          1006/B*      1536-DATA    2186/STW
   IMTLT2          1537-DATA    2073/B*      2096/B*      2188/STW
   IMTLT3          1538-DATA    2190/STW
   INDATA          1539-EQU     3455/OR     10181/STW    10196/STW    10211/STW    10226/STW    10242/STW
     10258/STW    10274/STW    10402/STW    10417/STW    10433/STW    10449/STW
   INHBTIT          794/LPSD    1541-GEN
   INHOUT           853/STW     1542-DATA    3509/STW     3531/STW     3865/MTW     3905/MTW     4151/MTW
   INHTSUC          862/STW     1209/MTW     1227/STW     1543-DATA    3986/MTW     4085/STW
   INITIAL          743/DATA    2138-EQU
   INITRS           815/BAL     2147/BAL     2177/BAL     3789-EQU
   INIT04           877/B       2133-EQU
   INIT042         2141/BLZ     2147-BAL
   INIT045         2135/BGZ     2144/BLEZ    2148-EQU
   INIT05          2149-EQU
   INIT052         2152/BCR     2161-BAL
   INIT054         2173-MTW    10994/GEN
   INIT055         2174/BGZ     2192-EQU
   INIT90          1004/LI      2179/BCR     2196-EQU
   INTL02           795-LW      1450/B       1541/GEN
   INTL08           815-BAL     2145/B
   INTL20           844/BCR      847-LI
   INTRESET        2623/BAL     3811-LI      9637/BAL     9662/BAL     9688/BAL     9719/BAL
   INTRTN          1544-DATA    3237/LW      3444/STW
   IOI             1552/XPSD    1668-DATA    3228/LD      3238/STW     3239/LW      3241/STW     3247/LPSD
   IOINTR          1669/GEN     3215-EQU
   IOINTRSW        1545-DATA    3221/MTW     3233/STW     3245/STW     3447/MTW
   IOPA            1000/LW      1546-DATA    2062/LW      3287/LW      3297/LW      3512/CW      3518/CW
      3526/CW      3556/STW     3560/OR      3574/OR      3756/LW
   IOPB            1547-DATA    3514/CW      3520/CW      3528/CW      3558/STW     3763/LW
   IOPMSADR        1550-DATA    3415/SIO*    3420/SIO*    3427/SIO*    3430/SIO*    3548/STW     3755/STW
      3762/STW     4224/HIO*    7793/TIO*    7812/TIO*    7842/HIO*    7854/TIO*    7866/TDV*    7879/SIO*
      7887/LW      7893/HIO*    7898/LW      7905/TIO*    7915/LW      7922/TDV*    7931/LW      7939/SIO*
      8199/LW      8255/SIO*    8271/SIO*    8290/TIO*    8303/TIO*    8324/TIO*    8592/SIO*    8607/SIO*
      8622/SIO*    8637/SIO*    8651/SIO*    8653/LW      8669/SIO*    8682/SIO*    8684/HIO*    8685/TIO*
      8701/SIO*    8717/SIO*    8736/SIO*    8753/SIO*    8772/SIO*    8791/SIO*    8810/SIO*    8828/SIO*
      8845/SIO*    8862/SIO*    8879/SIO*    8896/SIO*    8910/SIO*    8911/LW      8931/SIO*    8954/SIO*
      8973/SIO*    8992/SIO*    9010/SIO*    9028/SIO*    9046/SIO*    9061/SIO*    9077/SIO*    9093/SIO*
      9111/SIO*    9126/SIO*    9141/SIO*    9156/SIO*    9171/SIO*    9186/SIO*    9201/SIO*    9223/SIO*
      9245/SIO*    9267/SIO*    9294/SIO*    9311/SIO*    9328/SIO*    9345/SIO*    9391/SIO*    9407/SIO*
      9422/SIO*    9437/SIO*    9452/SIO*    9455/TIO*    9469/SIO*    9472/TIO*    9509/SIO*    9524/SIO*
      9527/TIO*    9560/SIO*    9572/SIO*    9603/LW      9728/SIO*    9741/SIO*    9747/OR      9759/SIO*
      9777/SIO*    9794/SIO*    9800/OR      9816/SIO*    9836/SIO*    9858/SIO*    9867/OR      9885/SIO*
      9906/SIO*    9925/SIO*    9929/TIO*    9943/OR      9950/SIO*    9966/SIO*    9992/SIO*    9995/LW
     10023/SIO*   10026/LW     10153/SIO*   10170/SIO*   10185/SIO*   10200/SIO*   10215/SIO*   10230/SIO*
     10246/SIO*   10262/SIO*   10278/SIO*   10294/SIO*   10363/SIO*   10406/SIO*   10421/SIO*   10437/SIO*
     10453/SIO*
   IOPMSAP         1549-DATA    3576/STW     3759/STW     8282/LW      8295/LW      8309/TIO*
   IOPNO           1548-DATA    3142/CW      3757/STW     3764/STW     3879/CW      3885/CW      3939/CW
      4211/LW      4405/LW      5152/CW      5155/CW      5174/CW      5177/CW      6009/LW      6022/LW
      6036/LW      6051/LW      6067/LW      6084/LW      6097/LW      6110/LW      6118/LW      6126/LW
      6135/LW      7712/TIO*    7742/TIO*    7827/LW      7948/TIO*    7958/TIO*    7968/TIO*    7978/TIO*
      7988/TIO*    7998/TIO*    8008/TIO*    8018/TIO*    8028/TIO*    8038/TIO*    8048/TIO*    8058/TIO*
      8067/OR      8077/OR      8088/OR      8099/OR      8110/OR      8121/OR      8131/OR      8141/OR
      8151/OR      8161/OR      8171/OR      8181/OR      8191/OR      8211/LW      8218/LW      8226/LW
      8233/LW      8241/LW      8348/SIO*    8366/SIO*    8385/SIO*    8405/OR      8426/OR      8447/OR
      8468/OR      8489/OR      8510/OR      8531/OR      8552/OR      8573/OR
   IORETURN        1551-DATA    3443/LW      3979/STW     9588/STW     9601/STW     9619/STW     9645/STW
      9670/STW     9696/STW     9737/STW     9755/STW     9790/STW     9812/STW     9852/STW     9879/STW
      9940/STW    10531/STW    10549/STW    10583/STW    10602/STW
   IOT60           3222/BCS     3224/BCS     3232-LI
   IOT70           3218/BCS     3220/BCS     3239-LW
   IOT75           3225/BCS     3248-AIO     3253/BCS     3254/LI
   IOT80           3226/LI      3251-EQU
   IOXPSD          1552-XPSD    3805/LW
   J#EXPL         10726-EQU    10922/P
   JHDR            1169/DATA   10974-TEXTCS
   KBDVC           1252/STW     1553-DATA    3392/TIO*    3510/LW      3539/STW     3631/#HTECON
   L              10819-COM
   LAST           10620/GEN    10627-GEN
   LASTBRST        2730/BCS     2739-BAL
   LASTEST          838/LI       985/CI       988/LI      1512/DATA    3927/LI     10619-EQU
   LASTMEM          799/STW     1554-DATA    9518/LW      9533/LW
   LINE            2348-LB      2373/B
   LINECNT         1555-DATA    2020/STW     2341/STW     2505/MTW     2506/LW
   LINEFILL        3091-LW      3116/BDR
   LINEFOLD        1557-DATA    2342/STW     2375/MTW     2378/LW      2390/MTW     2477/STW     2498/LW
      2502/STW
   LINEF0          3094/BE      3102-EQU
   LINEF1          3096-EQU
   LINERR          1556-DATA    3071/STW     3098/MTW     3118/MTW
   LINESET         2357/BAL     2505-MTW     3067/BAL
   LINK             771-EQU      793/STW      891/STW      892/BAL      898/CH       900/STW      901/BAL
       907/CH       909/STW      942/LB*      952/LW*      957/LB*     1013/LC      1017/STW     1019/CI
      1123/LB      1131/LC      1135/STW     1173/LC      1179/CI      1183/TIO*    1188/STW     1189/STW
      1190/STW     1192/CI      1196/TIO*    1201/STW     1261/BAL     1816/LH*     1818/LW*     1827/LW*
      1830/LW*     1833/LW*     1835/LW*     1841/LW*     1843/LW*     1846/LW*     1848/LW*     2114/LB*
      2139/STW     2170/BAL     3700/LW*     3704/LW*     3708/LW*     3785/BAL     3947/BAL     4008/LB*
      4163/LW*     4169/LW*    10938/BAL
   LNFL20          3119/BCR     3121/BCR     3123-AI
   LPDVC           1189/STW     1558-DATA    2151/CW      2153/STW     3394/TIO*    3516/LW      3542/STW
      3626/#HTECON
   LSTBRSTI        2878/BCS     2885-BAL
   LUKDATA         3004-LI      3011/B
   MASKSIM         1564-DATA
   MASK10          1561-DATA    9581/AND
   MASK11          1562-DATA
   MASK14          1563-DATA    8627/AND     8724/AND     8800/AND     8869/AND
   MASK8           1559-DATA    8597/AND     8676/AND     8762/AND     8835/AND
   MASK9           1560-DATA    8612/AND     8707/AND     8781/AND     8852/AND    10298/AND    10367/AND
   MCHKSAVE        2292-DATA    2293/STW     2311/EXU*    2328/MTW     2329/B*
   MCT20           3849/BCR     3851/BCS     3858-#TYPE
   MFII            1565/XPSD    1671-DATA    3267/LD      3282/LPSD
   MFITR           1672/GEN     3260-EQU
   MFI50           3264/BCS     3265/LI      3271-BAL
   MFI70           3263/BCS     3273/BCS     3274/LI      3278-BAL
   MFXPSD          1565-XPSD    3802/LW
   MISCOMP         1566-DATA    2013/MTW     2771/STW     3056/STW     3097/MTW
   MM8             1569-DATA    3561/STW    10470/SIO*   10486/SIO*   10504/SIO*   10507/TIO*   10520/SIO*
     10537/SIO*   10557/SIO*   10572/SIO*   10590/SIO*   10605/OR     10610/SIO*
   MM9             1570-DATA    3563/STW    10466/SIO*   10484/SIO*   10502/SIO*   10518/SIO*   10535/SIO*
     10552/OR     10555/SIO*   10570/SIO*   10588/SIO*   10608/SIO*   10622/TDV*
   MODECHK         2293-STW     2523/BAL     2529/BAL     2535/BAL     2575/BAL
   MODECTRL        1782/BAL     2002/BAL     3845-EQU
   MODEMG          3858/#TYPE  10971-TEXTCS
   MOVEOPT         1567-DATA    1940/MTW     1984/LW      3964/STW
   MOVEOPTA        1568-DATA    1986/LW      3591/STW     3595/STW     3670/LW
   MSA             1571-DATA    3453/LW      3552/STW     3564/LW      3567/LCW     3571/LCW     3607/LW
      3609/STW     3771/LW      3831/LW      4215/LW      7927/LW      8890/LW      8932/LW      9105/LW
      9120/LW      9135/LW      9150/LW      9165/LW      9180/LW      9288/LW      9305/LW      9322/LW
      9337/LW      9369/LW      9385/LW      9401/LW      9416/LW      9431/LW      9446/LW      9463/LW
      9503/LW      9554/LW      9575/LW      9604/LW      9621/LW      9629/LW      9647/LW      9651/LW
      9672/LW      9677/LW      9698/LW      9702/LW      9711/LW      9770/LW      9785/LW      9807/LW
      9827/LW      9847/LW      9874/LW      9900/LW      9917/LW      9944/LW
   MSADRA          1575-DATA    3547/STW     3554/LW      3638/#HTECON 3754/LW
   MSADRAP         1573-DATA    3575/STW     3758/LW
   MSADRB          1576-DATA    3550/STW     3761/LW
   MSADRBP         1574-DATA    3578/STW     3765/LW
   MSADRPTY        1577-DATA    4129/STW
   MSB             1572-DATA    3553/STW
   NCC1            3466-EQU     8291/B
   NCC2            3476-EQU     8070/B       8080/B       8091/B       8102/B       8113/B       8124/B
      8134/B       8144/B       8154/B       8164/B       8174/B       8184/B       8304/B
   NCC3            3486-EQU
   NCC34           3491-EQU
   NDCDLY          1580-DATA    3838/STW     3869/MTW     3871/MTW     5120/STW     5149/STW     5171/STW
      5267/STW     6012/STW     6025/STW     6039/STW     6054/STW     6070/STW     6087/STW     6100/STW
      7833/STW     8203/STW
   NEXTEST          834/STW      835/LH*      926/STW      928/LH*     1578-DATA    1792/LW      1793/LH*
      1869/CW      1890/B*      1892/B*      1905/LW*     2030/LW*     2032/AWM     2033/LH*     2038/CW
      2127/STW     2296/LW*     2662/AND*    2677/AND*    2682/AND*    2806/AND*    2829/AND*    2834/AND*
      3037/LW      3410/LW*     3699/#HTECON 3706/LH*     3925/CW      3928/CW      4003/LW*     4160/LW
      4167/LH*     4201/LW
   NOCREGMG        1198/#TYPE  10972-TEXTCS
   NOMREGMG        1185/#TYPE  10973-TEXTCS
   NOTHEAD         2386/BCS     2390-MTW
   NOTMTL           811/STW      841/EOR     1579-DATA    1864/MTW     2079/MTW     3850/MTW
   NOWORD          2672/B       2680/BCR     2690-LW      2713/B       2737/B
   NOWORDIN        2820/B       2832/BCR     2842-LW      2861/B       2883/B
   ODDLOOP         2649-BAL     2660/BCS
   ODDLOOPI        2787-BAL     2804/BCS
   OL20            3825/BCS     3827/BCS     3829-LW
   OL26            3839-LI      4147/B
   OL30            3835/BCS     3841-LW
   OM%EXPL        10778-EQU    10917/P
   OMHDR1          1127/DATA   10975-TEXTCS
   OMHDR2          1127/DATA   10976-TEXTCS
   ONLINECK        1889/BAL     3820-EQU     4469/BAL     5295/BAL     5305/BAL     5315/BAL     5330/BAL
      5341/BAL     5353/BAL     5366/BAL     5383/BAL     5397/BAL     5409/BAL     5420/BAL     5442/BAL
      5477/BAL     5491/BAL     5505/BAL     5531/BAL
   OP%EXPL        10745-EQU    10912/P
   OPHDR1          1009/DATA   10977-TEXTCS
   OPHDR2          1009/DATA   10978-TEXTCS
   OPMG1           1090/STB     1093/STB     1097/STB     1100/STB     1103/STB     1104/LI      1108/STB
      1112/STB     1114/STB     1117/STB     1118/LI     10979-TEXTCS
   OPN05           3868/BCS     3872-STW
   OPN10           3877-LW      3881/BIR
   OPN20           3880/BCR     3887-WD
   OPN40           3883/BCR     3886/BCS     3888-WD
   OPN60           3892-WD
   ORDIN           2606/BAL     2612/BAL     2900-STW     2935/BAL     2943/BAL     2957/BAL     2976/B
      2993/B
   ORDINSV         2899-DATA    2900/STW     2907/B*      2974/STW     2992/STW
   ORDOSAVE        2584-DATA    2585/STW     2597/B*
   ORDOUT          2541/BAL     2553/BAL     2565/BAL     2581/BAL     2585-STW     2632/BAL     2911/BAL
      2923/BAL     2972/BAL     2985/BAL
   OUTDEX          1581-DATA    2205/LW      2247/STW     2274/LW      2279/MTW     2307/STW
   P              10821-COM
   PAJ10           1184/BCR     1188-STW
   PAJ20           1197/BCR     1201-STW
   PAJ25           1205/BLZ     1208/BG      1213-LB
   PAJ30           1206/BEZ     1225-STW
   PAJ40           1210/BCR     1212/B       1228-LI
   PAJ50           1238/BCR     1241/BCS     1243-LW
   PAJ60           1236/BCR     1247-LI
   PAJ90           1182/B       1195/B       1234/B       1257-EQU
   PARAJ           1170-EQU    10920/E
   PARAMOM         1128-EQU    10915/E
   PARAMOP         1010-EQU    10910/E
   PARAMRTN        1017/STW     1124/B*      1135/STW     1177/STW     1187/B*      1200/B*      1582-DATA
   PASSCNT          855/STW     1222/AW      1584-DATA    2102/MTW     2104/MTW     2106/CW
      2112/#HTECON 2121/LW      2125/STW
   PASSMG          2116/STB     2120/#TYPE  10980-TEXTCS
   PASS1            856/STW     1583-DATA    2097/MTW     2101/MTW     2166/STW
   PASS1MG         2100/#TYPE  10981-TEXTCS
   PCPCTRL         1783/BAL     1789/BAL     1996/B       2003/BAL     3902-EQU
   PCPMODE          857/STW     1585-DATA    1796/MTW     3389/MTW     3397/MTW     3903/MTW     3990/MTW
   PCP10           3904/BCS     3911-RD
   PCP20           3906/BCS     3916-LC
   PCP30           3917/BCR     3924-LI
   PCP38           3930-MTW
   PCP40           3922/B       3926/BCR     3929/BCR     3932-WD
   PCP60           3940/BCS     3945-LI
   PFII            1586/XPSD    1674-DATA    3293/LD      3309/LPSD
   PFITR           1675/GEN     3285-EQU
   PFI60           3290/BCS     3291/LI      3297-LW
   PFI70           3289/BCS     3300/BCS     3301/LI      3305-POLR
   PFXPSD          1586-XPSD    3799/LW
   PHASAVE         1587-DATA    2323/EXU*    2517/STW     2528/STW     2534/STW     2540/STW     2552/STW
      2564/STW     2574/STW     2580/STW     2600/STW     2605/STW     2610/STW     2910/STW     2922/STW
      2934/STW     2942/STW     2956/STW     2967/STW     2979/STW
   PHASEAIO        1588-DATA    2611/MTW     2975/MTW     3219/MTW     3243/STW
   PHASFLAG         858/STW      994/STW     1152/STW     1589-DATA    1863/STW     2081/MTW     2089/STW
      2287/MTW     2770/STW     3354/MTW     3852/MTW     3854/MTW     4196/MTW
   PHASMODE         843/AND      859/STW      995/STW     1147/CW      1149/STW     1590-DATA    1858/MTW
      2075/MTW     3848/MTW
   PHASNUMB        1591-DATA    2354/LH      3064/LH
   PHASTEP         2203-LI      2248/BDR     2327/BAL     2548/BAL     2560/BAL     2570/BAL     2596/BAL
      2622/BAL     2648/BAL     2652/BAL     2688/BAL     2695/BAL     2699/BAL     2704/BAL     2711/BAL
      2723/BAL     2727/BAL     2736/BAL     2742/BAL     2750/BAL     2786/BAL     2790/BAL     2815/BAL
      2824/BAL     2840/BAL     2847/BAL     2851/BAL     2859/BAL     2866/BAL     2875/BAL     2882/BAL
      2888/BAL     2895/BAL     2906/BAL     2918/BAL     2930/BAL     2949/BAL     2963/BAL     2990/BAL
   PHASTEPX        2205-LW      2321/BAL     2325/BAL     2620/BAL
   PHASTEST        1599-DATA    1860/MTW     2286/MTW     3976/STW
   PHASTORE        2259-LW      2270/BCS     2272/B       2314/BAL     2542/BAL     2554/BAL     2566/BAL
      2591/BAL     2616/BAL     2640/BAL     2645/BAL     2649/BAL     2684/BAL     2692/BAL     2696/BAL
      2701/BAL     2707/BAL     2720/BAL     2724/BAL     2733/BAL     2739/BAL     2746/BAL     2778/BAL
      2783/BAL     2787/BAL     2812/BAL     2821/BAL     2836/BAL     2844/BAL     2848/BAL     2855/BAL
      2863/BAL     2872/BAL     2879/BAL     2885/BAL     2892/BAL     2902/BAL     2912/BAL     2924/BAL
      2944/BAL     2958/BAL     2986/BAL
   PLINE#J          875/STB      876/STB     1169/DATA    1249/STW     2157/STH     2159/STH     3628/STH
      3630/STH     3633/STB     3637/STW     4080/LB      4087/STB    10806-TEXTCS
   PLINE#OM         872/STB      874/STB     1127/DATA    1160/STB    10807-TEXTCS
   PLINE#OP        1009/DATA    1073/STB     3640/STH     3642/STH     3648/STW     3651/STB     3654/STB
      3657/STB     3660/STB     3663/STB     3666/STB     3669/STB     3672/STB    10808-TEXTCS
   PLINEIN          745/DATA    1018/#ETHCON 1026/#ETHCON 1033/#ETHCON 1039/#ETHCON 1041/#ETHCON
      1048/#ETHCON 1054/#ETHCON 1057/#ETHCON 1063/#ETHCON 1065/#ETHCON 1072/LB      1136/#ETHCON
      1142/#ETHCON 1159/LB      1178/#ETHCON 1191/#ETHCON 1203/LB      1213/LB      1229/LW      1248/LW
     10811-RES
   PNTDBL          1600-DATA    1837/MTW     3502/MTW     3977/STW     6533/MTW     6766/MTW
   POLP             658/OPEN     659-COM    10631/CLOSE
   POLR             658/OPEN     660-COM    10631/CLOSE
   PREDRIVE        2350/BAL     2375-MTW     3060/BAL
   PREPHSXX        2286-MTW     2516/BAL     2527/BAL     2533/BAL     2539/BAL     2551/BAL     2563/BAL
      2573/BAL     2579/BAL     2599/BAL     2604/BAL     2609/BAL     2909/BAL     2921/BAL     2933/BAL
      2941/BAL     2955/BAL     2966/BAL     2978/BAL
   PREPHS00        2516-BAL     7878/BAL     7938/BAL     8254/BAL     8270/BAL     8347/BAL     8365/BAL
      8384/BAL     8406/BAL     8427/BAL     8448/BAL     8469/BAL     8490/BAL     8511/BAL     8532/BAL
      8553/BAL     8574/BAL
   PREPHS01        2527-BAL     7853/BAL     7904/BAL     7947/BAL     7957/BAL     7967/BAL     7977/BAL
      7987/BAL     7997/BAL     8007/BAL     8017/BAL     8027/BAL     8037/BAL     8047/BAL     8057/BAL
      8068/BAL     8078/BAL     8089/BAL     8100/BAL     8111/BAL     8122/BAL     8132/BAL     8142/BAL
      8152/BAL     8162/BAL     8172/BAL     8182/BAL     8192/BAL     8283/BAL     8289/BAL     8296/BAL
      8302/BAL     8308/BAL
   PREPHS02        2533-BAL     7841/BAL     7892/BAL
   PREPHS03        2539-BAL    10436/BAL
   PREPHS04        2551-BAL    10452/BAL
   PREPHS05        2563-BAL     8909/BAL     8930/BAL
   PREPHS06        2573-BAL     7865/BAL     7921/BAL
   PREPHS07        2579-BAL     8591/BAL     8606/BAL     8621/BAL     8636/BAL     8650/BAL
   PREPHS08        2599-BAL     3429/BAL     8668/BAL     8700/BAL     8716/BAL     8735/BAL     8827/BAL
      8844/BAL     8861/BAL     8878/BAL     8895/BAL     8953/BAL     8972/BAL     8991/BAL     9009/BAL
      9027/BAL     9045/BAL     9060/BAL     9076/BAL     9092/BAL     9110/BAL     9125/BAL     9140/BAL
      9155/BAL     9170/BAL     9185/BAL     9200/BAL     9222/BAL     9244/BAL     9266/BAL     9293/BAL
      9310/BAL     9327/BAL     9508/BAL     9559/BAL     9571/BAL     9965/BAL     9991/BAL    10022/BAL
     10152/BAL    10169/BAL    10184/BAL    10199/BAL    10214/BAL    10229/BAL    10245/BAL    10261/BAL
     10277/BAL    10293/BAL    10362/BAL    10405/BAL    10420/BAL
   PREPHS09        2604-BAL     3426/BAL     8752/BAL     8771/BAL     8790/BAL     8809/BAL     9451/BAL
      9468/BAL
   PREPHS10        2609-BAL     2973/LI      9727/BAL     9740/BAL     9758/BAL     9776/BAL     9793/BAL
      9815/BAL
   PREPHS11        2909-BAL     9344/BAL     9406/BAL
   PREPHS12        2921-BAL     3414/BAL
   PREPHS13        2933-BAL     3419/BAL     9390/BAL
   PREPHS14        2941-BAL     9421/BAL
   PREPHS15        2955-BAL     9436/BAL
   PREPHS16        2966-BAL     9835/BAL     9857/BAL     9884/BAL
   PREPHS17        2978-BAL     9905/BAL     9924/BAL
   PRGCTL          2036/BAL     3958-EQU
   PRNTSTNO        2026/BAL     3985-EQU
   PROGHDR        10940/GEN    10982-TEXTCS
   PROM20          1138/BCR     1141-STW
   PROM26          1144/BCR     1147-CW
   PROM30          1148/BE      1151/BNEZ    1158-LI
   PROM90          1140/B       1164-EQU
   PROP10          1020/BCS     1024-LI
   PROP11          1028/BCR     1031-STW
   PROP12          1034-CI      1040/BIR
   PROP28          1043/BE      1046-STW
   PROP30          1049-CI      1055/BIR
   PROP38          1050/BCR     1053-STW
   PROP40          1058-CI      1064/BIR
   PROP48          1059/BCR     1062-STW
   PROP58          1067/BCR     1070-STW
   PROP90          1025/B       1030/B       1045/B       1069/B       1085-EQU     1146/B       1164/EQU
      1257/EQU
   PROP91          1087/BCS     1095-LW
   PROP92          1094/B       1100-STB
   PROP94          1037/B       1052/B       1061/B       1106-EQU
   PROP98          1105/B       1119-EQU
   PT              1678/GEN     3312-EQU
   PTNOFLSH        2099/BAL     2119/BAL     2128/BAL     4047-EQU
   PTNO03          3995/BNEZ    4003-LW
   PTNO04          4008-LB      4013/BCS
   PTNO06          4019/BGE     4022-MTW     4036/B
   PTNO08          4023/BCS     4027-STB
   PTNO09          4030-LI
   PTNO10          4020/B       4034-MTW
   PTNO19          4073/BNEZ    4077-LI
   PTNO20          4071/BEZ     4080-LB
   PTNO50          3997/BAL     4038-EQU
   PTNO60          4057/BNEZ    4060-EQU
   PTT             1603/XPSD    1677-DATA    3322/LD      3341/MTW     3343/LPSD
   PTTCC04         1601-DATA    3313/STCF    3325/LB
   PTYCTR          1602-DATA
   PTYXPSD         1603-XPSD    3793/LW
   PT60            3319/BCS     3320/LI      3329-BAL
   PT70            3318/BCS     3331/BCS     3332/LI      3336-BAL
   PURGEBUF        1950/BAL     4092-EQU
   PURGEPTY        3271/BAL     3278/BAL     3329/BAL     3336/BAL     4102-EQU     4115/B
   PUTDVCON         749/DATA    2050/BAL     2057/BAL     3391/BAL     3864-EQU
   PUTOUT          1604-DATA    1867/STW     2021/MTW     2396/MTW     2403/MTW     2410/MTW     2417/MTW
      2426/MTW     2435/MTW     2444/MTW     2453/MTW     2462/MTW     2467/MTW     2473/MTW     2489/MTW
      2495/MTW     2762/MTW     3083/MTW     3120/MTW     3974/STW
   READONE         2997/BEZ     3018-LI      3032/BNE
   READREC         1417-GEN     3004/LI      3018/LI
   READSTAT        1261-BAL    10890/E
   READTWO         3008/BEZ     3013-LW
   RECBACK         1411-GEN     3169/LI
   RECOUT           846/BAL     1157/BAL     2070/BAL     2095/BAL     3002/BAL     3005/BAL     3010/BAL
      3019/BAL     3024/BAL     3026/BAL     3028/BAL     3137/BAL     3140-LW
   REC10           3143/BNE     3148-TIO
   REC11           3157-SIO     3176/BDR     3178/B
   REGISTER        1605-RES     2322/LW      2332/STM     2774/LM
   REGSAVE         2294/BAL     2331-LCI
   RESET           1606-EQU     1875/LI      3874/LI      3895/LI      3953/LI
   RESETIO         1607-EQU     3448/WD
   RETURN          2001-EQU
   RIO              658/OPEN     661-COM    10631/CLOSE
   RM%EXPL        10688-EQU    10902/P
   RSTCHCCU        4118-WD      4354/BAL     4370/BAL     4378/BAL     4391/BAL     4404/BAL     4425/BAL
      4483/BAL     4503/BAL     4515/BAL     4528/BAL     4539/BAL     4551/BAL     4563/BAL     4575/BAL
      4588/BAL     4603/BAL     5235/BAL     5248/BAL
   RTIDLE          1610-GEN     3207/LPSD    3257/LPSD    3277/LPSD    3304/LPSD    3335/LPSD    3373/LPSD
   RTNFIELD         891/STW     1608-DATA
   RTNGO03         1611-DATA
   R15CTLP         1613-DATA    3537/STW     3619/B*
   R15PRTN         1614-DATA    3698/STW     3732/B*      3992/STW     4032/B*      4035/BEZ*    4048/STW
      4051/BE*     4075/B*      4082/BE*     4088/B*
   S:INT            398/ERROR    449/ERROR    504/SET      513/SET      523/ERROR    527/SET      529/SET
       537/DO
   S:PT             0.4/EQU
   S:RAD            527/SET      576/ERROR
   S:UFV            576/ERROR
   SAVE            1615-DATA    3872/STW     3873/STW     3894/LW      3897/B*      3959/STW     3980/LW
   SAVEGIET        1617-DATA    3196/STD*    3199/STB*    3201/LPSD*   3798/STW
   SAVEGIO         1618-DATA    3229/STD*    3231/LPSD*   3807/STW
   SAVEGMFI        1619-DATA    3268/STD*    3270/LPSD*   3804/STW
   SAVEGPFI        1620-DATA    3294/STD*    3296/LPSD*   3801/STW
   SAVEGPTY        1621-DATA    3323/STD*    3326/STB*    3328/LPSD*   3795/STW
   SAVEGWDT        1622-DATA    3362/STD*    3365/STB*    3367/LPSD*   3792/STW
   SAVERTN         1623-DATA    3407/STW     3433/BCR*    3440/B*
   SAVER15S        1624-DATA    5281/STW     5288/B*
   SAVREG          1631-DATA    3189/STD     3206/LD      3211/LD      3216/STD     3246/LD      3256/LD
      3261/STD     3276/LD      3281/LD      3286/STD     3303/LD      3308/LD      3314/STD     3334/LD
      3342/LD      3348/STD     3372/LD      3378/LD      3780/STD     3783/LD
   SAVR10          1627-DATA    1781/STD     1839/LD      3823/STW     3841/LW      4137/STW     4143/LW
   SAVR8           1626-DATA    4136/STW     4142/LW
   SEQBUFF         1628-RES     2266/STB     2282/STB     2305/STW     2312/STB     2348/LB      2379/LB
      2389/LB      2484/LB      2499/LB      3058/LB      3127/LB
   SEQDEX          1629-DATA    2259/LW      2264/STW     2280/LW      2283/MTW     2308/STW     2310/LW
      2313/MTW
   SERCYHDA        2446/#PRINT 10990-TEXTCS
   SERCYHDB        2455/#PRINT 10991-TEXTCS
   SERCYHDC        2464/#PRINT 10992-TEXTCS
   SERCYHD1        2398/#PRINT 10984-TEXTCS
   SERCYHD2        2405/#PRINT 10985-TEXTCS
   SERCYHD3        2412/#PRINT 10986-TEXTCS
   SERCYHD4        2419/#PRINT 10987-TEXTCS
   SERCYHD5        2428/#PRINT 10988-TEXTCS
   SERCYHD9        2437/#PRINT 10989-TEXTCS
   SETADPTY        3608/BAL     4124-EQU
   SHORTLP         1633-DATA    3918/MTW     3921/STW
   SIGBIT16        1750-MTW     8364/BAL     8383/BAL
   SIGBIT20        1762-MTW     5037/BAL     5051/BAL     5065/BAL     5079/BAL
   SIGC20          1756-MTW     5219/BAL     5229/BAL
   SIGMA            813/BAL     1683-EQU
   SIGMA7          1703/MTW     1706-DATA    1730/MTW     1740/MTW     1750/MTW     1756/MTW     1762/MTW
      1909/MTW     3034/MTW     4103/MTW     8313/MTW     8690/MTW
   SIGMSK          1695/AND     1707-DATA
   SIGTAB0         1688/LI      1709-DATA
   SIGTAB1         1689/LI      1720-DATA
   SIG00           1691-LW      1701/B
   SIG01           1692/BEZ     1703-MTW
   SIMA            4133-EQU     5518/BAL     5545/BAL     5563/BAL     5578/BAL     5594/BAL     5613/BAL
      5629/BAL     5656/BAL     5679/BAL     5702/BAL     5769/BAL     5791/BAL     5813/BAL     5827/BAL
      5848/BAL     5868/BAL     5889/BAL     5980/BAL     5994/BAL
   SIO             2518/BAL     2522-STW     2590/BAL     2968/BAL     2981/BAL
   SIOSAVE         2521-DATA    2522/STW     2525/B*
   SS%EXPL        10694-EQU    10927/P
   SSTA8           4206-LI
   STADDR          2171/DATA   10994-GEN
   STAT%EXPL      10720-EQU    10892/P
   STATMSGS        1261/BAL     4159-EQU
   STATUSMG        4164/STH     4166/STH     4170/STW     4175/STB     4176/#TYPE  10995-TEXTCS
   STGFED          1637-DATA   10083/LD     10101/LD
   STG0F1          1638-DATA   10321/LD
   STG102          1639-DATA   10341/LD
   STG123          1635-DATA   10069/LD     10134/LW     10307/LD
   STG234          1636-DATA   10118/LD
   STG607          1640-DATA   10132/LD     10343/LD
   STOPIODV        4150-EQU     6008/BAL     6021/BAL     6032/BAL     6048/BAL     6063/BAL     6080/BAL
      7826/BAL     8198/BAL
   STRTCOMP        2023/B       3016/B       3022/BEZ     3030-LW
   SUBCHADR        4181-EQU     7888/BAL     7899/BAL     7916/BAL     7932/BAL     8654/BAL     8912/BAL
      8933/BAL     9576/BAL     9630/BAL     9648/BAL     9673/BAL     9699/BAL     9712/BAL     9996/BAL
     10027/BAL
   SUBCHLN         1642-DATA    1923/CW      1929/CW      3582/STW     3655/LW
   SUBC10          4184/BCS     4189-LW
   SUCLNMG         4009/STB     4027/STB     4028/MTB     4029/#PRINT  4053/STB     4054/MTB
      4061/#PRINT 10998-TEXTCS
   SUCPASS2        1643-DATA    4072/MTW     4074/MTW     4078/STW
   SUCSHD           890/STW     1012/STW     1130/STW     1172/STW     1641-DATA    3713/STW     4022/MTW
      4025/MTW     4056/MTW     4067/STW
   SUCSMG          4024/#PRINT  4044/STB     4058/#PRINT 10997-TEXTCS
   SUPRESET        1888/BAL     4195-EQU
   SYNC            1644-EQU     1891/WD*     2289/WD*     4230/WD*     4239/WD*     4246/WD*     4256/WD*
      6013/WD*     6026/WD*     6040/WD*     6055/WD*     6071/WD*     6088/WD*     6101/WD*     6111/WD*
      6119/WD*     6128/WD*     6137/WD*     6159/WD*     6174/WD*     6201/WD*     6294/WD*     6365/WD*
      6536/WD*     6741/WD*     7711/WD*     7741/WD*     7792/WD*     7811/WD*     7828/WD*     8683/WD*
     10464/WD*    10482/WD*    10501/WD*    10517/WD*    10534/WD*    10554/WD*    10569/WD*    10587/WD*
     10607/WD*    10621/WD*
   SYNTAX%EXPL    10643-EQU    10887/P
   T%EXPL         10796-EQU    10907/P
   TABLE3           744/DATA   10882-EQU
   TABLE3END      10930-DATA
   TAPECMND        1421-GEN     3135/STW     3136/LI
   TAPEGEN         2346/BCS     3127-LB      3133/B
   TAPEND          1413-GEN     2069/LI
   TAPEREW          845/LI      1156/LI      1423-GEN     3009/LI
   TERMPHS         2657/BCR     2691/BCR     2701-BAL     2732/BCR     2795/BCR     2853/B
   TEST             833/STW      927/STW     1645-DATA    2126/LW
   TESTCNT         1646-DATA    3930/MTW     3936/STW
   TESTNO           886-EQU    10905/E
   TEXTCS           650-CNAME
   TFCH01          1361-GEN     1365/GEN
   TFCH02          1365-GEN
   TITLE            0.4-EQU       53/TITLE  10982/TEXTCS
   TSELTMG1         987/#TYPE  11000-TEXTCS
   TSELTMG2         953/STW      958/STB      963/#TYPE  11001-TEXTCS
   TSELTMG3         920/#TYPE  11004-TEXTCS
   TSELTMG5         943/STB      948/#TYPE  11005-TEXTCS
   TSELTMG6         967/#TYPE  11006-TEXTCS
   TSELTMG7         913/#TYPE  11007-TEXTCS
   TSLFLAG         1647-DATA
   TSL04            894/B        901-BAL
   TSL05            903/B        911-LW
   TSL09            912/BNEZ     917-EQU
   TSL10            919/BCR      924-EQU
   TSL30            937-MTW      978/BCS
   TSL35            942-LB       947/BCS
   TSL40            938/BCS      950-#HTECON
   TSL50            949/B        964-LCI
   TSL60            899/BCS      908/BCS      966-EQU
   TSL90            925/BAL      932/BAL      970-EQU
   TSL92            974-LW       986/BCR
   TSTIDX1          865/STW     1648-DATA    4006/LW      4016/STW     4031/STW     4049/LW      4063/STW
   TSTNMBER        1649-DATA    2277/AW      2299/STW
   TSTPRAM1         888/STW      900/STW      911/LW      1650-DATA
   TSTPRAM2         889/STW      909/STW      918/CW       931/LW      1651-DATA
   T0010            832/LI       972/LI       974/LW       980/LW       984/AI      1578/DATA    1645/DATA
      4269-GEN
   T0020           4269/GEN     4275-GEN
   T0030           4275/GEN     4286-GEN
   T0040           4286/GEN     4297-GEN
   T0050           4297/GEN     4310-GEN
   T0060           4310/GEN     4321-GEN
   T0070           4321/GEN     4332-GEN
   T0080           4332/GEN     4343-GEN
   T0090           4343/GEN     4353-GEN
   T0090B          4359/BCS     4363-MTW
   T0090C          4361/BCS     4362/B       4365-AND
   T0100           4353/GEN     4369-GEN
   T0110           4369/GEN     4377-GEN
   T0120           4377/GEN     4390-GEN
   T0140           4390/GEN     4403-GEN
   T0150           4403/GEN     4417-GEN
   T0160           4417/GEN     4424-GEN
   T0170           4424/GEN     4435-GEN
   T0180           4435/GEN     4451-GEN
   T0190           4451/GEN     4468-GEN
   T0200           4468/GEN     4482-GEN
   T0210           4482/GEN     4492-GEN
   T0220           4492/GEN     4502-GEN
   T0230           4502/GEN     4514-GEN
   T0240           4514/GEN     4527-GEN
   T0250           4527/GEN     4538-GEN
   T0260           4538/GEN     4550-GEN
   T0270           4550/GEN     4562-GEN
   T0280           4562/GEN     4574-GEN
   T0290           4574/GEN     4587-GEN
   T0300           4587/GEN     4602-GEN
   T0310           4602/GEN     4616-GEN
   T0310B          4617/BAL     4623-EQU     4641/BAL     4647/BAL     4653/BAL
   T0320           4616/GEN     4640-GEN
   T0330           4640/GEN     4646-GEN
   T0340           4646/GEN     4652-GEN
   T0350           4652/GEN     4658-GEN
   T0360           4658/GEN     4675-GEN
   T0370           4675/GEN     4693-GEN
   T0370B          4696/BAL     4699-EQU     4714/BAL     4722/BAL     4730/BAL     4738/BAL     4746/BAL
      4754/BAL     4762/BAL     4770/BAL     4778/BAL
   T0374           4693/GEN     4711-GEN
   T0378           4711/GEN     4718-GEN
   T0382           4718/GEN     4726-GEN
   T0386           4726/GEN     4734-GEN
   T0390           4734/GEN     4742-GEN
   T0394           4742/GEN     4750-GEN
   T0398           4750/GEN     4758-GEN
   T0402           4758/GEN     4766-GEN
   T0406           4766/GEN     4774-GEN
   T0410           4774/GEN     4783-GEN
   T0410B          4786/BAL     4789-EQU     4802/BAL     4810/BAL     4818/BAL     4826/BAL     4834/BAL
      4842/BAL     4850/BAL     4858/BAL     4866/BAL
   T0414           4783/GEN     4799-GEN
   T0418           4799/GEN     4806-GEN
   T0422           4806/GEN     4814-GEN
   T0426           4814/GEN     4822-GEN
   T0430           4822/GEN     4830-GEN
   T0434           4830/GEN     4838-GEN
   T0438           4838/GEN     4846-GEN
   T0442           4846/GEN     4854-GEN
   T0446           4854/GEN     4862-GEN
   T0450           4862/GEN     4871-GEN
   T0450B          4874/BAL     4877-EQU     4890/BAL     4898/BAL     4906/BAL     4914/BAL     4922/BAL
      4930/BAL     4938/BAL     4946/BAL     4954/BAL
   T0454           4871/GEN     4887-GEN
   T0458           4887/GEN     4894-GEN
   T0462           4894/GEN     4902-GEN
   T0466           4902/GEN     4910-GEN
   T0470           4910/GEN     4918-GEN
   T0474           4918/GEN     4926-GEN
   T0478           4926/GEN     4934-GEN
   T0482           4934/GEN     4942-GEN
   T0486           4942/GEN     4950-GEN
   T0490           4950/GEN     4958-GEN
   T0500           4958/GEN     4971-GEN
   T0510           4971/GEN     4981-GEN
   T0510B          4982/BAL     4986-EQU     5001/BAL     5007/BAL
   T0520           4981/GEN     5000-GEN
   T0530           5000/GEN     5006-GEN
   T0540           5006/GEN     5012-GEN
   T0550           5012/GEN     5025-GEN
   T0560           5025/GEN     5030-GEN
   T0570           5030/GEN     5044-GEN
   T0580           5044/GEN     5058-GEN
   T0590           1709/DATA    1720/DATA    5058/GEN     5072-GEN
   T0600           5072/GEN     5086-GEN
   T0610           5086/GEN     5100-GEN
   T0620           5100/GEN     5114-GEN
   T0630           1710/DATA    1720/DATA    1721/DATA    5114/GEN     5131-GEN
   T0640           5131/GEN     5143-GEN
   T0640B          5153/BCR     5156/BCS     5157-LI
   T0645           5143/GEN     5165-GEN
   T0645B          5175/BCR     5179-LI
   T0650           1721/DATA    5165/GEN     5187-GEN
   T0660           5187/GEN     5205-GEN
   T0670           5205/GEN     5214-GEN
   T0680           5214/GEN     5224-GEN
   T0690           1711/DATA    1722/DATA    5224/GEN     5234-GEN
   T0700           5234/GEN     5243-GEN
   T0700B          5244/BAL     5246-EQU     5260/BAL     5268/BAL
   T0710           5243/GEN     5259-GEN
   T0720           5259/GEN     5264-GEN
   T0730           1722/DATA    5264/GEN     5272-GEN
   T0730B          5281-STW     5298/BAL     5308/BAL
   T0730D          5280/LI      5289-AND
   T0740           5272/GEN     5294-GEN
   T0750           5294/GEN     5304-GEN
   T0760           5304/GEN     5314-GEN
   T0760B          5319-WD      5333/BAL     5344/BAL
   T0760D          5318/LI      5324-RD
   T0770           5314/GEN     5329-GEN
   T0780           5329/GEN     5340-GEN
   T0790           5340/GEN     5351-GEN
   T0800           5351/GEN     5365-GEN
   T0810           5365/GEN     5382-GEN
   T0820           5382/GEN     5396-GEN
   T0830           5396/GEN     5407-GEN
   T0840           5407/GEN     5418-GEN
   T0850           5418/GEN     5434-GEN
   T0850B          5435/BAL     5440-STW     5462/BAL     5469/BAL
   T0850R          5440/STW     5445/LW*     5452/MTW     5453/LW*     5455/MTW     5456/AND*    5458-DATA
   T0860           5434/GEN     5461-GEN
   T0870           5461/GEN     5468-GEN
   T0880           5468/GEN     5475-GEN
   T0890           5475/GEN     5489-GEN
   T0900           5489/GEN     5503-GEN
   T0910           5503/GEN     5517-GEN
   T0920           5517/GEN     5529-GEN
   T0930           5529/GEN     5544-GEN
   T0940           5544/GEN     5562-GEN
   T0950           5562/GEN     5577-GEN
   T0960           5577/GEN     5591-GEN
   T0970           5591/GEN     5610-GEN
   T0990           5610/GEN     5626-GEN
   T1000           5626/GEN     5653-GEN
   T1020           5653/GEN     5678-GEN
   T1030           5678/GEN     5697-GEN
   T1030C          5702-BAL     5729/B       5738/B       5747/B       5756/B       5765/B
   T1040           5697/GEN     5724-GEN
   T1050           5724/GEN     5733-GEN
   T1060           5733/GEN     5742-GEN
   T1070           5742/GEN     5751-GEN
   T1080           5751/GEN     5760-GEN
   T1090           5760/GEN     5768-GEN
   T1100           5768/GEN     5790-GEN
   T1100C          5793-LW      5814/BAL
   T1100E          5792/LI      5805-RD
   T1110           5790/GEN     5812-GEN
   T1120           5812/GEN     5824-GEN
   T1130           5824/GEN     5845-GEN
   T1140           5845/GEN     5865-GEN
   T1150           5865/GEN     5884-GEN
   T1150B          5887-LW      5908/BAL     5917/BAL     5926/BAL     5935/BAL     5944/BAL     5953/BAL
      5962/BAL     5970/BAL
   T1150D          5886/LI      5900-RD
   T1160           5884/GEN     5906-GEN
   T1170           5906/GEN     5915-GEN
   T1180           5915/GEN     5924-GEN
   T1190           5924/GEN     5933-GEN
   T1200           5933/GEN     5942-GEN
   T1210           5942/GEN     5951-GEN
   T1220           5951/GEN     5960-GEN
   T1230           5960/GEN     5968-GEN
   T1240           5968/GEN     5977-GEN
   T1250           1712/DATA    1723/DATA    5977/GEN     5991-GEN
   T1260           5991/GEN     6007-GEN
   T1270           6007/GEN     6020-GEN
   T1280           1723/DATA    6020/GEN     6031-GEN
   T1290           6031/GEN     6047-GEN
   T1300           6047/GEN     6062-GEN
   T1310           6062/GEN     6079-GEN
   T1320           1713/DATA    1724/DATA    6079/GEN     6096-GEN
   T1330           6096/GEN     6109-GEN
   T1340           6109/GEN     6117-GEN
   T1350           6117/GEN     6125-GEN
   T1360           6125/GEN     6134-GEN
   T1390           1724/DATA    6134/GEN     6144-GEN
   T1400           6144/GEN     6154-GEN
   T1410           6154/GEN     6169-GEN
   T1420           6169/GEN     6184-GEN
   T1425           6184/GEN     6190-GEN
   T1425B          6185/BAL     6191/BAL     6194-EQU     6214/BAL     6219/BAL     6225/BAL     6230/BAL
      6236/BAL     6241/BAL
   T1430           6190/GEN     6213-GEN
   T1435           6213/GEN     6218-GEN
   T1440           6218/GEN     6224-GEN
   T1445           6224/GEN     6229-GEN
   T1450           6229/GEN     6235-GEN
   T1455           6235/GEN     6240-GEN
   T1460           6240/GEN     6246-GEN
   T1460B          6247/BAL     6250-WD      6261/BAL     6266/BAL     6271/BAL     6276/BAL     6281/BAL
   T1470           6246/GEN     6260-GEN
   T1480           6260/GEN     6265-GEN
   T1490           6265/GEN     6270-GEN
   T1500           6270/GEN     6275-GEN
   T1510           6275/GEN     6280-GEN
   T1520           6280/GEN     6286-GEN
   T1520B          6289/BAL     6291-WD      6307/BAL     6315/BAL     6323/BAL     6331/BAL     6339/BAL
      6347/BAL     6355/BAL
   T1530           6286/GEN     6304-GEN
   T1540           6304/GEN     6312-GEN
   T1550           6312/GEN     6320-GEN
   T1580           6320/GEN     6328-GEN
   T1590           6328/GEN     6336-GEN
   T1600           6336/GEN     6344-GEN
   T1610           6344/GEN     6352-GEN
   T1620           6352/GEN     6359-GEN
   T1620B          6362-EQU     6376/B       6382/B       6388/B       6394/B       6400/B       6406/B
      6412/B       6418/B       6424/B       6430/B       6436/B       6442/B       6448/B       6454/B
      6460/B       6466/B       6472/B       6478/B       6484/B       6490/B       6496/B       6502/B
      6508/B       6514/B       6520/B       6526/B
   T1630           6359/GEN     6373-GEN
   T1638           6373/GEN     6379-GEN
   T1640           6379/GEN     6385-GEN
   T1644           6385/GEN     6391-GEN
   T1648           6391/GEN     6397-GEN
   T1650           6397/GEN     6403-GEN
   T1654           6403/GEN     6409-GEN
   T1658           6409/GEN     6415-GEN
   T1660           6415/GEN     6421-GEN
   T1664           6421/GEN     6427-GEN
   T1668           6427/GEN     6433-GEN
   T1670           6433/GEN     6439-GEN
   T1674           6439/GEN     6445-GEN
   T1678           6445/GEN     6451-GEN
   T1680           6451/GEN     6457-GEN
   T1684           6457/GEN     6463-GEN
   T1688           6463/GEN     6469-GEN
   T1690           6469/GEN     6475-GEN
   T1694           6475/GEN     6481-GEN
   T1698           6481/GEN     6487-GEN
   T1700           6487/GEN     6493-GEN
   T1704           6493/GEN     6499-GEN
   T1708           6499/GEN     6505-GEN
   T1710           6505/GEN     6511-GEN
   T1720           6511/GEN     6517-GEN
   T1730           6517/GEN     6523-GEN
   T1740           6523/GEN     6530-GEN
   T1740B          6532-EQU     6550/B       6555/B       6561/B       6567/B       6573/B       6579/B
      6585/B       6591/B       6597/B       6603/B       6609/B       6615/B       6621/B       6627/B
      6633/B       6639/B       6645/B       6651/B       6657/B       6663/B       6669/B       6675/B
      6681/B       6687/B       6693/B       6698/B       6704/B       6710/B       6716/B       6935/B
      6941/B       6947/B       6953/B       6958/B       6964/B       6970/B       6976/B       6982/B
      6988/B       6994/B       7000/B       7006/B       7012/B       7018/B       7024/B       7030/B
      7036/B       7042/B       7048/B       7054/B       7060/B       7066/B       7072/B       7078/B
      7084/B       7090/B       7096/B       7101/B       7107/B       7113/B       7119/B       7125/B
      7131/B       7137/B       7143/B       7148/B       7154/B       7160/B       7166/B       7172/B
      7178/B       7184/B       7190/B       7196/B       7202/B       7208/B       7214/B       7220/B
      7226/B       7232/B       7238/B       7244/B       7250/B       7256/B       7262/B       7268/B
      7274/B       7280/B       7286/B       7291/B       7297/B       7303/B       7309/B       7315/B
      7321/B       7327/B       7333/B       7338/B       7344/B       7350/B       7356/B       7362/B
      7368/B       7374/B       7380/B       7386/B       7392/B       7398/B       7404/B       7410/B
      7416/B       7422/B       7428/B       7434/B       7440/B       7446/B       7452/B       7458/B
      7464/B       7470/B       7476/B       7481/B       7487/B       7493/B       7499/B       7505/B
      7511/B       7517/B       7523/B       7528/B       7534/B       7540/B       7546/B       7552/B
      7558/B       7564/B       7570/B       7576/B       7582/B       7588/B       7594/B       7600/B
      7606/B       7612/B       7618/B       7624/B       7630/B       7636/B       7642/B       7648/B
      7654/B       7660/B       7666/B       7671/B       7677/B       7683/B       7689/B
   T1750           6530/GEN     6548-GEN
   T1760           6548/GEN     6553-GEN
   T1770           6553/GEN     6559-GEN
   T1780           6559/GEN     6565-GEN
   T1790           6565/GEN     6571-GEN
   T1800           6571/GEN     6577-GEN
   T1810           6577/GEN     6583-GEN
   T1820           6583/GEN     6589-GEN
   T1830           6589/GEN     6595-GEN
   T1840           6595/GEN     6601-GEN
   T1850           6601/GEN     6607-GEN
   T1860           6607/GEN     6613-GEN
   T1870           6613/GEN     6619-GEN
   T1880           6619/GEN     6625-GEN
   T1890           6625/GEN     6631-GEN
   T1900           6631/GEN     6637-GEN
   T1910           6637/GEN     6643-GEN
   T1920           6643/GEN     6649-GEN
   T1930           6649/GEN     6655-GEN
   T1940           6655/GEN     6661-GEN
   T1950           6661/GEN     6667-GEN
   T1960           6667/GEN     6673-GEN
   T1970           6673/GEN     6679-GEN
   T1980           6679/GEN     6685-GEN
   T1990           6685/GEN     6691-GEN
   T2000           6691/GEN     6696-GEN
   T2010           6696/GEN     6702-GEN
   T2020           6702/GEN     6708-GEN
   T2030           6708/GEN     6714-GEN
   T2200           6714/GEN     6719-GEN
   T2200B          6721-EQU     6764/B       6785/B       6790/B       6795/B       6800/B       6805/B
      6810/B       6815/B       6820/B       6826/B       6831/B       6836/B       6841/B       6846/B
      6851/B       6856/B       6860/B       6865/B       6870/B       6875/B       6884/B       6889/B
      6894/B       6899/B       6904/B       6909/B       6914/B       6919/B       6924/B       6929/B
   T2200D          6723-STW     6728/BIR
   T2200F          6739-CS      6752/BIR
   T2200J          6740/BCR     6750-AW
   T2210           6719/GEN     6762-GEN
   T2210H          6747/BCS     6749/BCS     6765-MTW
   T2220           6762/GEN     6783-GEN
   T2230           6783/GEN     6788-GEN
   T2240           6788/GEN     6793-GEN
   T2250           6793/GEN     6798-GEN
   T2260           6798/GEN     6803-GEN
   T2270           6803/GEN     6808-GEN
   T2280           6808/GEN     6813-GEN
   T2290           6813/GEN     6818-GEN
   T2300           6818/GEN     6824-GEN
   T2310           6824/GEN     6829-GEN
   T2320           6829/GEN     6834-GEN
   T2330           6834/GEN     6839-GEN
   T2340           6839/GEN     6844-GEN
   T2350           6844/GEN     6849-GEN
   T2360           6849/GEN     6854-GEN
   T2370           6854/GEN     6858-GEN
   T2380           6858/GEN     6863-GEN
   T2390           6863/GEN     6868-GEN
   T2400           6868/GEN     6873-GEN
   T2410           6873/GEN     6878-GEN
   T2420           6878/GEN     6882-GEN
   T2430           6882/GEN     6887-GEN
   T2440           6887/GEN     6892-GEN
   T2450           6892/GEN     6897-GEN
   T2460           6897/GEN     6902-GEN
   T2470           6902/GEN     6907-GEN
   T2480           6907/GEN     6912-GEN
   T2490           6912/GEN     6917-GEN
   T2500           6917/GEN     6922-GEN
   T2510           6922/GEN     6927-GEN
   T2700           6927/GEN     6933-GEN
   T2710           6933/GEN     6939-GEN
   T2720           6939/GEN     6945-GEN
   T2730           6945/GEN     6951-GEN
   T2740           6951/GEN     6956-GEN
   T2750           6956/GEN     6962-GEN
   T2760           6962/GEN     6968-GEN
   T2770           6968/GEN     6974-GEN
   T2780           6974/GEN     6980-GEN
   T2790           6980/GEN     6986-GEN
   T2800           6986/GEN     6992-GEN
   T2810           6992/GEN     6998-GEN
   T2820           6998/GEN     7004-GEN
   T2830           7004/GEN     7010-GEN
   T2840           7010/GEN     7016-GEN
   T2850           7016/GEN     7022-GEN
   T2860           7022/GEN     7028-GEN
   T2870           7028/GEN     7034-GEN
   T2880           7034/GEN     7040-GEN
   T2890           7040/GEN     7046-GEN
   T2900           7046/GEN     7052-GEN
   T2910           7052/GEN     7058-GEN
   T2920           7058/GEN     7064-GEN
   T2930           7064/GEN     7070-GEN
   T2940           7070/GEN     7076-GEN
   T2950           7076/GEN     7082-GEN
   T2960           7082/GEN     7088-GEN
   T2970           7088/GEN     7094-GEN
   T2980           7094/GEN     7099-GEN
   T2990           7099/GEN     7105-GEN
   T3000           7105/GEN     7111-GEN
   T3010           7111/GEN     7117-GEN
   T3180           7117/GEN     7123-GEN
   T3190           7123/GEN     7129-GEN
   T3200           7129/GEN     7135-GEN
   T3210           7135/GEN     7141-GEN
   T3220           7141/GEN     7146-GEN
   T3230           7146/GEN     7152-GEN
   T3240           7152/GEN     7158-GEN
   T3250           7158/GEN     7164-GEN
   T3260           7164/GEN     7170-GEN
   T3270           7170/GEN     7176-GEN
   T3280           7176/GEN     7182-GEN
   T3290           7182/GEN     7188-GEN
   T3300           7188/GEN     7194-GEN
   T3310           7194/GEN     7200-GEN
   T3320           7200/GEN     7206-GEN
   T3330           7206/GEN     7212-GEN
   T3340           7212/GEN     7218-GEN
   T3350           7218/GEN     7224-GEN
   T3360           7224/GEN     7230-GEN
   T3370           7230/GEN     7236-GEN
   T3380           7236/GEN     7242-GEN
   T3390           7242/GEN     7248-GEN
   T3400           7248/GEN     7254-GEN
   T3410           7254/GEN     7260-GEN
   T3420           7260/GEN     7266-GEN
   T3430           7266/GEN     7272-GEN
   T3440           7272/GEN     7278-GEN
   T3450           7278/GEN     7284-GEN
   T3460           7284/GEN     7289-GEN
   T3470           7289/GEN     7295-GEN
   T3480           7295/GEN     7301-GEN
   T3490           7301/GEN     7307-GEN
   T3660           7307/GEN     7313-GEN
   T3670           7313/GEN     7319-GEN
   T3680           7319/GEN     7325-GEN
   T3690           7325/GEN     7331-GEN
   T3700           7331/GEN     7336-GEN
   T3710           7336/GEN     7342-GEN
   T3720           7342/GEN     7348-GEN
   T3730           7348/GEN     7354-GEN
   T3740           7354/GEN     7360-GEN
   T3750           7360/GEN     7366-GEN
   T3760           7366/GEN     7372-GEN
   T3770           7372/GEN     7378-GEN
   T3780           7378/GEN     7384-GEN
   T3790           7384/GEN     7390-GEN
   T3800           7390/GEN     7396-GEN
   T3810           7396/GEN     7402-GEN
   T3820           7402/GEN     7408-GEN
   T3830           7408/GEN     7414-GEN
   T3840           7414/GEN     7420-GEN
   T3850           7420/GEN     7426-GEN
   T3860           7426/GEN     7432-GEN
   T3870           7432/GEN     7438-GEN
   T3880           7438/GEN     7444-GEN
   T3890           7444/GEN     7450-GEN
   T3900           7450/GEN     7456-GEN
   T3910           7456/GEN     7462-GEN
   T3920           7462/GEN     7468-GEN
   T3930           7468/GEN     7474-GEN
   T3940           7474/GEN     7479-GEN
   T3950           7479/GEN     7485-GEN
   T3960           7485/GEN     7491-GEN
   T3970           7491/GEN     7497-GEN
   T4140           7497/GEN     7503-GEN
   T4150           7503/GEN     7509-GEN
   T4160           7509/GEN     7515-GEN
   T4170           7515/GEN     7521-GEN
   T4180           7521/GEN     7526-GEN
   T4190           7526/GEN     7532-GEN
   T4200           7532/GEN     7538-GEN
   T4210           7538/GEN     7544-GEN
   T4220           7544/GEN     7550-GEN
   T4230           7550/GEN     7556-GEN
   T4240           7556/GEN     7562-GEN
   T4250           7562/GEN     7568-GEN
   T4260           7568/GEN     7574-GEN
   T4270           7574/GEN     7580-GEN
   T4280           7580/GEN     7586-GEN
   T4290           7586/GEN     7592-GEN
   T4300           7592/GEN     7598-GEN
   T4310           7598/GEN     7604-GEN
   T4320           7604/GEN     7610-GEN
   T4330           7610/GEN     7616-GEN
   T4340           7616/GEN     7622-GEN
   T4350           7622/GEN     7628-GEN
   T4360           7628/GEN     7634-GEN
   T4370           7634/GEN     7640-GEN
   T4380           7640/GEN     7646-GEN
   T4390           7646/GEN     7652-GEN
   T4400           7652/GEN     7658-GEN
   T4410           7658/GEN     7664-GEN
   T4420           7664/GEN     7669-GEN
   T4430           7669/GEN     7675-GEN
   T4440           7675/GEN     7681-GEN
   T4450           7681/GEN     7687-GEN
   T4620           7687/GEN     7690-EQU
   T5490           7693-GEN
   T5500           7693/GEN     7702-GEN
   T5500B          7694/BAL     7703/BAL     7707-EQU     7722/BAL
   T5510           7702/GEN     7721-GEN
   T5520           7721/GEN     7728-GEN
   T5520B          7729/BAL     7734-EQU
   T5520D          7736-MTW     7763/BAL
   T5520F          7735/LI      7744-LW      7766/B       7797/B
   T5560           7728/GEN     7757-GEN
   T5560B          7758/BAL     7763-BAL     7770/BAL     7777/BAL
   T5570           7757/GEN     7769-GEN
   T5580           7769/GEN     7776-GEN
   T5590           7776/GEN     7783-GEN
   T5590B          7784/BAL     7789-MTW     7801/BAL
   T5600           7783/GEN     7800-GEN
   T5610           7800/GEN     7807-GEN
   T5620           7807/GEN     7822-EQU
   T6590           7825-GEN
   T6600           3924/LI      4202/CI      7825/GEN     7837-GEN
   T6610           7837/GEN     7849-GEN
   T6614           7849/GEN     7861-GEN
   T6616           1714/DATA    1725/DATA    7861/GEN     7873-GEN
   T6620           7873/GEN     7886-GEN
   T6630           7886/GEN     7897-GEN
   T6630B          7894/B       7907-LI      7923/B
   T6630C          7909-LW      7941/B
   T6635           7897/GEN     7914-GEN
   T6640           7914/GEN     7926-GEN
   T6650           1725/DATA    7926/GEN     7944-GEN
   T6660           7944/GEN     7954-GEN
   T6670           7954/GEN     7964-GEN
   T6680           7964/GEN     7974-GEN
   T6690           7974/GEN     7984-GEN
   T6700           7984/GEN     7994-GEN
   T6710           7994/GEN     8004-GEN
   T6720           8004/GEN     8014-GEN
   T6730           8014/GEN     8024-GEN
   T6740           8024/GEN     8034-GEN
   T6742           8034/GEN     8044-GEN
   T6744           8044/GEN     8054-GEN
   T6748           8054/GEN     8064-GEN
   T6750           8064/GEN     8073-GEN
   T6760           8073/GEN     8084-GEN
   T6770           8084/GEN     8095-GEN
   T6780           8095/GEN     8106-GEN
   T6790           8106/GEN     8117-GEN
   T6800           8117/GEN     8127-GEN
   T6810           8127/GEN     8137-GEN
   T6820           8137/GEN     8147-GEN
   T6830           8147/GEN     8157-GEN
   T6834           8157/GEN     8167-GEN
   T6840           8167/GEN     8177-GEN
   T6850           8177/GEN     8187-GEN
   T6860           1715/DATA    1726/DATA    8187/GEN     8197-GEN
   T6870           8197/GEN     8210-GEN
   T6880           8210/GEN     8217-GEN
   T6890           8217/GEN     8225-GEN
   T6900           8225/GEN     8232-GEN
   T6910           8232/GEN     8240-GEN
   T6920           1726/DATA    8240/GEN     8249-GEN
   T6930           8249/GEN     8265-GEN
   T6940           8265/GEN     8281-GEN
   T6950           8281/GEN     8288-GEN
   T6960           8288/GEN     8294-GEN
   T6970           8294/GEN     8301-GEN
   T6980           1716/DATA    1727/DATA    8301/GEN     8307-GEN
   T6990           4204/CI      8307/GEN     8318-GEN
   T7000           1727/DATA    8318/GEN     8341-GEN
   T7010           8341/GEN     8357-GEN
   T7015           8357/GEN     8376-GEN
   T7020           8376/GEN     8397-GEN
   T7030           8397/GEN     8418-GEN
   T7040           8418/GEN     8439-GEN
   T7050           8439/GEN     8460-GEN
   T7060           8460/GEN     8481-GEN
   T7070           8481/GEN     8502-GEN
   T7080           8502/GEN     8523-GEN
   T7090           8523/GEN     8544-GEN
   T7095           8544/GEN     8565-GEN
   T7100           8565/GEN     8586-GEN
   T7110           8586/GEN     8601-GEN
   T7120           8601/GEN     8616-GEN
   T7130           8616/GEN     8631-GEN
   T7140           8631/GEN     8646-GEN
   T7150           8646/GEN     8663-GEN
   T7155           8663/GEN     8680-GEN
   T7160           8680/GEN     8695-GEN
   T7170           8695/GEN     8711-GEN
   T7180           8711/GEN     8728-GEN
   T7190           8728/GEN     8747-GEN
   T7200           8747/GEN     8766-GEN
   T7210           8766/GEN     8785-GEN
   T7220           8785/GEN     8804-GEN
   T7230           8804/GEN     8822-GEN
   T7240           8822/GEN     8839-GEN
   T7250           8839/GEN     8856-GEN
   T7260           8856/GEN     8873-GEN
   T7270           8873/GEN     8889-GEN
   T7280           8889/GEN     8904-GEN
   T7290           8904/GEN     8925-GEN
   T7300           8925/GEN     8946-GEN
   T7310           8946/GEN     8965-GEN
   T7320           8965/GEN     8984-GEN
   T7330           8984/GEN     9002-GEN
   T7340           9002/GEN     9020-GEN
   T7350           9020/GEN     9038-GEN
   T7360           9038/GEN     9056-GEN
   T7370           9056/GEN     9072-GEN
   T7380           9072/GEN     9088-GEN
   T7390           9088/GEN     9104-GEN
   T7400           9104/GEN     9119-GEN
   T7410           9119/GEN     9134-GEN
   T7420           9134/GEN     9149-GEN
   T7430           9149/GEN     9164-GEN
   T7440           9164/GEN     9179-GEN
   T7450           9179/GEN     9194-GEN
   T7460           9194/GEN     9215-GEN
   T7470           9215/GEN     9237-GEN
   T7480           9237/GEN     9259-GEN
   T7490           9259/GEN     9285-GEN
   T7500           9285/GEN     9302-GEN
   T7510           9302/GEN     9319-GEN
   T7540           9319/GEN     9336-GEN
   T7550           9336/GEN     9354-GEN
   T7560           9354/GEN     9368-GEN
   T7570           9368/GEN     9384-GEN
   T7580           9384/GEN     9400-GEN
   T7590           9400/GEN     9415-GEN
   T7600           9415/GEN     9430-GEN
   T7610           9430/GEN     9445-GEN
   T7620           9445/GEN     9462-GEN
   T7630           9462/GEN     9479-GEN
   T7640           9479/GEN     9491-GEN
   T7650           9491/GEN     9502-GEN
   T7652           9502/GEN     9517-GEN
   T7652B          9523-LW      9540/B       9545/B       9550/B
   T7654           1717/DATA    1728/DATA    9517/GEN     9532-GEN
   T7656           9532/GEN     9543-GEN
   T7658           9543/GEN     9548-GEN
   T7660           1728/DATA    9548/GEN     9553-GEN
   T7670           9553/GEN     9569-GEN
   T7680           9569/GEN     9586-GEN
   T7680B          9587/LI      9596-B
   T7690           9586/GEN     9599-GEN
   T7690B          9600/LI      9611-LW
   T7700           9599/GEN     9616-GEN
   T7700B          9618/LI      9628-AIO
   T7710           9616/GEN     9642-GEN
   T7710B          9644/LI      9659-AIO
   T7720           9642/GEN     9667-GEN
   T7720B          9669/LI      9685-AIO
   T7730           9667/GEN     9693-GEN
   T7730B          9695/LI      9710-AIO
   T7740           9693/GEN     9721-EQU
   T7770           9724-GEN
   T7780           9724/GEN     9735-GEN
   T7780B          9736/LI      9746-LW
   T7790           9735/GEN     9753-GEN
   T7790B          9754/LI      9764-LI
   T7800           9753/GEN     9769-GEN
   T7810           9769/GEN     9784-GEN
   T7810B          9789/LI      9799-LW
   T7820           9784/GEN     9806-GEN
   T7820B          9811/LI      9821-LI
   T7830           9806/GEN     9826-GEN
   T7840           9826/GEN     9846-GEN
   T7840B          9851/LI      9866-LW
   T7850           9846/GEN     9873-GEN
   T7850B          9878/LI      9894-LW
   T7860           9873/GEN     9899-GEN
   T7870           9899/GEN     9916-GEN
   T7880           9916/GEN     9938-GEN
   T7880B          9939/LI      9954-LW
   T8000           3038/CI      9938/GEN     9959-GEN
   T8010           9959/GEN     9976-GEN
   T8020           9976/GEN     9988-GEN
   T8030           9988/GEN    10006-GEN
   T8040          10006/GEN    10019-GEN
   T8050          10019/GEN    10038-GEN
   T8060          10038/GEN    10053-GEN
   T8070          10053/GEN    10067-GEN
   T8080          10067/GEN    10081-GEN
   T8090          10081/GEN    10099-GEN
   T8100          10099/GEN    10116-GEN
   T8104          10116/GEN    10130-GEN
   T8110          10130/GEN    10146-GEN
   T8120          10146/GEN    10164-GEN
   T8130          10164/GEN    10179-GEN
   T8140          10179/GEN    10194-GEN
   T8150          10194/GEN    10209-GEN
   T8160          10209/GEN    10224-GEN
   T8162          10224/GEN    10240-GEN
   T8164          10240/GEN    10256-GEN
   T8166           3040/CI     10256/GEN    10272-GEN
   T8170          10272/GEN    10287-GEN
   T8180          10287/GEN    10305-GEN
   T8190          10305/GEN    10319-GEN
   T8200          10319/GEN    10339-GEN
   T8210          10339/GEN    10352-EQU
   T8220          10356-GEN
   T8230          10356/GEN    10374-GEN
   T8240          10374/GEN    10387-GEN
   T8250          10387/GEN    10400-GEN
   T8260          10400/GEN    10415-GEN
   T8270          10415/GEN    10431-GEN
   T8280          10431/GEN    10447-GEN
   T8300          10447/GEN    10461-GEN
   T8310          10461/GEN    10477-GEN
   T8320          10477/GEN    10499-GEN
   T8330          10499/GEN    10514-GEN
   T8340          10514/GEN    10528-GEN
   T8340B         10530/LI     10541-LW
   T8350          10528/GEN    10547-GEN
   T8350B         10548/LI     10561-LW
   T8360          10547/GEN    10566-GEN
   T8370          10566/GEN    10581-GEN
   T8370B         10582/LI     10594-LW
   T8380          10581/GEN    10600-GEN
   T8380B         10601/LI     10614-LW
   T8390          10600/GEN    10620-GEN
   VALBIT           722-DATA
   VALDEX           726-EQU
   VALTAB           732/GEN     1652-TEXT
   VALTYPE          730-EQU
   VERSION          0.3-EQU      0.4/EQU
   VMMG            1242/#TYPE  11008-TEXTCS
   WC4             4233-AND     4242/B
   WDSAVE          1653-DATA    2980/STW     2982/LW
   WDTIND          1654-DATA    3352/MTW     3375/STW     7708/MTW     7736/MTW     7789/MTW     7808/MTW
      8323/MTW
   WDTRAP          1681/GEN     3346-EQU
   WDTT            1656/XPSD    1680-DATA    3361/LD      3377/MTW     3379/LPSD
   WDTTCC04        1655-DATA    3347/STCF    3349/LB      3364/LB
   WDTXPSD         1656-XPSD    3790/LW
   WDT20           3351/BCS     3356-LC
   WDT30           3358/BCS     3359/LI      3368-LC
   WDT40           3353/BCS     3369/BCS     3374-LI
   WDT60           3355/BCS     3357/BCS     3370/LI      3377-MTW
   WF4             4250-AND     4260/B
   WTRDC0          4229-EQU
   WTRDC1          4238-EQU
   WTRDF0          4245-EQU
   WTRDF1          4255-EQU
   4START          2644/BCR     2663/BCR     2667/BCR     2673-LI
   4STARTIN        2782/BCR     2800/BCR     2807/BCR     2811/BCR     2825-LI
   %ERRFLAG        1657-DATA    3099/LW
   %RESET          2251-WD      2317/BAL     2338/BAL     2757/BAL
   %SPACES         1658-DATA    3103/LW
   #ABSZERO         664-EQU
   #ARMUSER%        700-EQU     3893/BAL*    3947/BAL*
   #BRKOUT          689-EQU
   #BTE%            456/BAL*     697-EQU
   #BTECON          445-CNAME
   #DIAG@           746-DATA
   #DISUSER%        698-EQU
   #DM%END          691-EQU
   #DM%START        690-EQU
   #DMENTRY%        711-EQU
   #ENUSER%         699-EQU
   #ERRTEXT%        708-EQU
   #ERR1PTR%        709-EQU
   #ETH%            536/BAL*     695-EQU
   #ETHCON          501-CNAME
   #FIDLE%          703-EQU      915/B*       922/B*       935/B*       965/B*       969/B*      1016/B*
      1083/B*      1134/B*      1163/B*      1176/B*      1256/B*      3785/BAL*    3860/B*      4177/B*
   #GUIDE%          702-EQU    10939/BAL*
   #GUIDEBUF        713-EQU
   #HDRFLG          668-EQU
   #HTE%            405/BAL*     696-EQU
   #HTECON          395-CNAME
   #INDEX           675-EQU
   #INITIAL@        743-DATA
   #IOPINIT         792-EQU    10938/BAL
   #LOADER@         747-DATA     798/LW*      800/LW*      803/LW*      806/LW*      807/AW      3545/STW*
     10937/STW
   #LOADFLAG        669-EQU     2140/MTW
   #MAXMEM          687-EQU
   #MTLFLAG         670-EQU     2178/LW      2183/LW      3522/MTW     3882/MTW
   #ONLINE          749-DATA
   #OUTBUF@         748-DATA
   #OUTPTR          673-EQU
   #P%MODE%         712-EQU
   #PAKDEX          674-EQU
   #PARAM%H1        676-EQU
   #PARAM%H2        677-EQU
   #PARAM%H3        678-EQU
   #PARAM%H4        679-EQU
   #PARAM1          683-EQU      893/DATA
   #PARAM2          684-EQU      902/DATA     905/#ETHCON
   #PARAM3          685-EQU
   #PARAM4          686-EQU
   #PLINEIN@        745-DATA
   #PRINT           560-CNAME
   #PRINTER%        560/CNAME    707-EQU
   #PRTADDR         672-EQU     1190/STW     2150/LW      2154/#HTECON 3543/STW
   #RETURN%         705-EQU     1262/B*
   #RUNADDR%        704-EQU     1798/XPSD*
   #SAMPLE          688-EQU     3909/XPSD*   3951/XPSD*
   #SCANPARAM       714-EQU      892/BAL*     901/BAL*
   #SENSE           667-EQU     1784/LC      1786/LC      1790/LC      1806/LC      2004/LC      2024/LC
      2027/LC      2336/LC      3190/LC      3202/LC      3223/LC      3252/LC      3262/LC      3272/LC
      3288/LC      3299/LC      3317/LC      3330/LC      3356/LC      3368/LC      3914/STW     3916/LC
      3988/LC
   #STATUS          681-EQU
   #TABLE1A         666-ORG
   #TABLE1B         694-ORG
   #TABLE2@         742-ORG
   #TABLE3@         744-DATA
   #TESTINIT        680-EQU
   #TOADDR          671-EQU     1253/STW     3540/STW     3877/LW      3937/LW      4153/HIO*
   #TRAPLNK         692-EQU     3194/STW     3210/STW     3227/STW     3244/STW     3266/STW     3280/STW
      3292/STW     3307/STW     3321/STW     3340/STW     3360/STW     3376/STW     3782/STW
   #TYPE            561-CNAME
   #TYPER%          561/CNAME    706-EQU
   #VALTAB%         710-EQU
