1 C00   00:26 JUN 21,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   00:26 JUN 21,'83    SIGMA 8-9 IOP TEST 706139-11/51A06  1-15-73                           PAGE    2
A       1                                     PCC
        2         01 03945           COOKDATA EQU      S:UFV(ENDADDR+401) COMPARE DATA INPUT BUFFER
        3         01 037B5           OUTBUFF  EQU      S:UFV(ENDADDR+1)   SINGLE PHASE OUTPUT BUFFER
        4         01 0148F           RETURN   EQU      S:UFV(GOOD)
        5                            *        S I G M A   8 - 9   I O P   T E S T                        *A01
        6                            *
        7                            *           TABLE OF CONTENTS
        8                            *
        9                            *             SECTION                       PAGE(S)
       10                            *             -------                       -------
       11                            *   -MODIFICATION TABLE                       2-4                   *A05
       12                            *   -PROGRAM DESCRIPTION                      4-14                  *A05
       13                            *   -GUIDE INTERFACE                         14-24                  *A05
       14                            *   -INITIALIZATION ROUTINE                  25-28                  *A05
       15                            *   -PARAMETER CONTROL                       28-39                  *A05
       16                            *   -COMMAND WORD TABLE                      39-43                  *A05
       17                            *   -TABLE OF EQUATES,CONSTANTS & VARIABLES  43-50                  *A05
       18                            *   -TRAP/INTERRUPT QUAD WORD TABLE          51-52                  *A05
       19                            *   -DRIVER/EXECUTIVE ROUTINES               52-63                  *A05
       20                            *   -SINGLE PHASING CONTROL ROUTINES         63-92                  *A05
       21                            *   -TRAP/INTERRUPT HANDLERS                 92-97                  *A05
       22                            *   -UTILITY SUBROUTINES                     97-121                 *A05
       23                            *   -CCU & CHANNEL TEST MODULES             121-307                 *A05
       24                            *   -PARAMETER EXPLANATION TEXT             307-309                 *A05
       25                            *   -PARAMETER TEXT                         309-312                 *A05
       26                            *   -PARAMETER CONTROL TABLES               312-316                 *A05
       27                            *   -PROGRAM/ERROR TEXT                     316-318                 *A05
       28                            *   -REVISION LEVEL TEXT                    318-321                 *A05
       29                            *   -CONSTANTS & LITERALS                   321-335                 *A05
       30                            *   -SYMBOL VALUES                          336-345                 *A05
       31                            *
       32                            *
1 C00   00:26 JUN 21,'83    SIGMA 8-9 IOP TEST 706139-11/51A06  1-15-73                           PAGE    3
A      35                            *
       36                            * PROGRAM OBJECTIVE:
       37                            *
       38                            * THE OBJECTIVE OF THIS PROGRAM IS TO DETECT AND TO REPORT ANY FAULTS
       39                            * IN THE SIGMA 8-9 IOP, AND/OR TO ENSURE THE INTEGRITY OF THAT IOP.
       40                            *
       41                            *
       42                            * PROGRAM MODIFICATIONS:
       43                            * THIS IS REVISION LEVEL A06  (1-15-73)                             *A06
       44                            *  TAR#13019                                                        *A06
       45                            *    1.  ADD TEST 8162. FOUR BYTE, READ REVERSE,DATA IN,11 BYTE    *A06
       46                            *        TRANSFER,WORD BOUNDRY                                      *A06
       47                            *    2.  ADD TEST 8164. FOUR BYTE,READ REVERSE,DATA IN 8 BYTE       *A06
       48                            *        TRANSFER,WORD BOUNDRY                                      *A06
       49                            *    3.  ADD TEST 8166. FOUR BYTE,READ REVERSE,DATA IN,11 BYTE      *A06
       50                            *        TRANSFER,ODD BYTE BOUNDRY.                                 *A06
       51                            *     4. DISABLED THE CHECKING OF ZBC BIT DURING SNAP               *A06
       52                            *        THIS WAS DONE BECAUSE OF THE VARIATIONS OF THE ZBC SIGNAL  *A06
       53                            *         FROM PROCESSOR TO PROCESSOR.                              *A06
       54                            * THIS IS REVISION LEVEL A05 (8-9-72).  THE FOLLOWING MODIFICATIONS *A05
       55                            * WERE MADE TOCORRECT PROGRAM PROBLEMS OR TO AFFECT IMPROVEMENTS.   *A05
       56                            *   1. INHIBIT COUNTER FOUR FROM RUNNING DURING TEST PERIODS.       *A05
       57                            *   2. RESTORE REGISTERS 13 AND 14 AFTER LINKING TO 'ARMUSER'.      *A05
       58                            *   3. UPDATE "J" PARAMETER FOR MSG DEVICE ADDRESS DURING PROGRAM'  *A05
       59                            *      INITIALIZATION (TAR 11416).                                  *A05
       60                            *   4. DOCUMENT FAILURE EXCEPTION WITH ZBC SIGNAL IN PROGRAM LIST-  *A05
       61                            *      ING (TAR 11780).                                             *A05
       62                            *   5. FORCE TAPE REWIND UNDER ABS RECOVERY AFTER SNAP FAULT.       *A05
       63                            *   6. CORRECTED EOF WRITE DURING SNAP VERIFY                       *A05
       64                            * THIS IS REVISION LEVEL A04 (04-14-72).  THE FOLLOWING CODING WAS  *A04
       65                            * MODIFIED TO CORRECT PROGRAM PROBLEMS OR TO AFFECT IMPROVEMENTS.   *A04
       66                            *   1. MAKE THE INPUT SAMPLE ROUTINE (PCPCTRL) COMPATIBLE WITH THE  *A04
       67                            *      NEW REQUIREMENT FOR 'B00' GUIDE.  NOTE: THIS PROGRAM CAN     *A04
       68                            *      NOT BE USED WITH EARLIER VERSION OF GUIDE.                   *A04
       69                            *   2. REMOVE CONDITION CODE TESTING AFTER LINKAGE TO #PRINT OR     *A04
       70                            *      #TYPE, AND REMOVE CONDITION CODE BREAK ANALYZER (BKCTRL)     *A04
       71                            *      ROUTINE.  THIS FUNCTION IS NOW PERFORMED IN 'B00' GUIDE.     *A04
       72                            *   3. CORRECT RUN AWAY TAPE PROBLEM WHEN 'CM' IS INVOKED WITH      *A04
       73                            *      COOKBOOK.                                                    *A04
       74                            *   4. MAKE PROGRAM COMPATIBLE WITH 'B00' REMOTE PACKAGE.           *A04
       75                            *   5. ADD THREE NEW TEST MODULES TO VERIFY MEMORY ADDRESS ERROR    *A04
       76                            *      (TAR 11777).
       77                            *   6. ADD NEW TEST MODULE TO VERIFY FOUR BYTE MODE IN DATA OUT     *A04
       78                            *      SERVICE FOR BYTE TWO BOUNDARY CONDITION (TAR 11712).         *A04
       79                            *   7. ADD REMOTE CAPABILITY.                                       *A04
       80                            *   8. CORRECT A TIMING PROBLEM IN TEST 7480 (TAR 10842).           *A04
       81                            * THIS IS REVISION LEVEL A03 (01-31-72).  THE FOLLOWING CODING WAS  *A03
       82                            * MODIFIED TO CORRECT PROGRAM PROBLEMS OR TO AFFECT IMPROVEMENTS.   *A03
       83                            *   1. REPLACE ORIGINAL TEST MODULES 10-3500 WITH                   *A03
       84                            *      NEW TEST MODULES FOR MI DIO PRETESTS,                        *A03
       85                            *      MS SELF-TESTS (PRE-TESTS), PROCESSOR BUS TESTS (NEW),        *A03
       86                            *      SUBCHANNEL DATA AND ADDRESSING, AND MISCELLANEOUS TESTS.     *A03
       87                            *   2. REMOVE CHANNEL B TEST MODULES, AND SUBSTITUTE THE USE        *A03
       88                            *      OF CHANNEL A MODULES IN THEIR PLACE.                         *A03
       89                            *   3. MODIFY THE DRIVER EXECUTIVE TO OPERATE ON TEST MODULES       *A03
       90                            *      TO EFFECTIVELY TEST CHANNELS A AND B. THIS INCLUDES          *A03
       91                            *      MODIFICATIONS TO THE COOKBOOK COMPARE CONTROLS.              *A03
       92                            *   4. RE-SEQUENCE ALL TEST MODULES.                                *A03
       93                            *   5. CORRECT OUTSTANDING PROBLEMS ON PREVIOUS A02 VISIONS,        *A03
       94                            *      INCLUDING CODING ERRORS IN PF INTERRUPT HANDLERS,            *A03
       95                            *      ERROR IN 'T' PARAMETER CONTROL, AND VOLTAGE MARGIN           *A03
       96                            *      DETECTION WHILE RUNNING IN FAST CLOCK MARGINS.               *A03
       97                            * THIS IS REVISION LEVEL A02 (10-20-71). THE FOLLOWING CODING WAS   *A02
       98                            * MODIFIED TO CORRECT PROGRAM PROBLEMS OR TO AFFECT IMPROVEMENTS.   *A02
       99                            *   1. THE INITIAL WAIT IN THE INITIALIZER                          *A02
      100                            *   2. RESET IN CERTAIN PARAMETER LINE ROUTINES                     *A02
      101                            *   3. REWIND FOR THE 'OM' PARAMETER CONTROL                        *A02
      102                            *   4. TAPE ADDRESS SELECTION IN SINGLE PHASE COOKBOOK              *A02
      103                            *   5. CLOCK MARGIN SELECTION PRIOR TO TEST MODULE ENTRY            *A02
      104                            *   6. CONTROL FOR THE SUCCESS INDICATION SEQUENCE                  *A02
      105                            *   7. MASK FOR GROUPS 1,12,13,20, AND 21 FOR SINGLE PHASE COMPARE  *A02
      106                            *      (TARS 11501 & 11565)                                         *A03
      107                            *   8. MEMORY PARITY RESET                                          *A02
      108                            *   9. 'S' EXPLANATION TEXT (TAR 11550)                             *A02
      109                            *   10. TCC 0-4 IN TRAP HANDLERS X'46', X'4C', AND X'4D'            *A02
      110                            *
      111                            * THIS IS REVISION LEVEL A01 (9-9-71).  THE FOLLOWING CODING        *A01
      112                            * WAS MODIFIED TO CORRECT PROGRAM PROBLEMS OR TO AFFECT             *A01
      113                            * IMPROVEMENTS:                                                     *A01
      114                            *   1. RANGE SELECTION IN THE NEW 'T' PARAMETER CONTROL             *A01
      115                            *   2. CHANNEL 'B' SELECT OF THE 'OP' PARAMETER CONTROL             *A01
      116                            *   3. 'S' PARAMETER EXPLANATION                                    *A01
      117                            *   4. CLOCK MARGIN SET CONTROL                                     *A01
      118                            *   5. 'OM' PARAMETER LINE CONTROL                                  *A01
      119                            *   6. SUPER RESET ROUTINE                                          *A01
      120                            *   7. RE-START INITIALIZATION                                      *A01
      121                            *   8. AUTOMATIC COMPARE CONTROL                                    *A01
      122                            *
      123                            *
      124                            * OPERATING REQUIREMENTS AND SPECIFICATIONS:
      125                            *
      126                            *  REQUIRED EQUIPMENT--
      127                            *   1. SIGMA 8-9 CPU
      128                            *   2. 16K (DEC.) OF CORE MEMORY, ASSEMBLY NUMBERS 159882,159920
      129                            *       AND 155283
      130                            *   3. SIGMA 8-9 IOP, CHANNEL A, MODEL NUMBER 8670, ASSEMBLY NUMBER
      131                            *       156502
      132                            *   4. TELETYPE KEYBOARD DEVICE AND CONTROLLER, MODEL NUMBER 7012, OR
      133                            *       ALTERNATE FACILITY
      134                            *   5. LOAD DEVICE; E.G., MODEL 7140 CARD READER, MODEL 7323 MAG. TAPE
      135                            *
      136                            *  OPTIONAL EQUIPMENT--
      137                            *   1. SIGMA 8-9 IOP CHANNEL B,MODEL NUMBER 8675,ASSEMBLY NUMBER 159982
      138                            *   2. FOUR BYTE INTERFACE, MODEL NUMBER 8671, ASSEMBLY NUMBER 159990
      139                            *      (CHANNELS A OR B)
      140                            *   3. ADDITIONAL EIGHT I/O SUBCHANNELS, MODEL NUMBER 8672, ASSEMBLY
      141                            *      NUMBER 159989 (CHANNEL A ONLY, MAX OF 24)
      142                            *   4. MEMORY TO MEMORY MOVE OPTION, MODEL NUMBER 8673, ASSEMBLY NUMBER
      143                            *      159991 (CHANNEL A ONLY)
      144                            *   5. ADDITIONAL IOPS, CHANNEL A, MODEL NUMBER 8670, ASSEMBLY NUMBER
      145                            *      156502
      146                            *   6. IOP ALTERNATE PROCESSOR BUS, MODEL NUMBER 8674, ASSEMBLY NUMBER
      147                            *      156502
      148                            *   7. LINE PRINTER, MODEL NUMBER 7445 OR ALTERNATE FACILITY
      149                            *   8. ALTERNATE LOAD FACILITY SUCH AS RAD, PAPER TAPE, ETC.
      150                            *   9. ALTERNATE KEYBOARD DEVICE SUCH AS A TYPEWRITER OR TELETYPE ASR.
      151                            *   10. SIGMA 8-9 COC WITH ASSOCIATED REMOTE TERMINALS.             *A04
      152                            *
      153                            *  PROGRAM PRE-REQUISITES--
      154                            *   1. AUTO, CATALOG NUMBER 706133, MANUAL NUMBER 901793
      155                            *   2. MEMORY TEST (COMET), CATALOG NUMBER 706140, MANUAL NUMBER
      156                            *      901800
      157                            *   3. (THIS PROGRAM INTERFACES WITH THE GUIDE PROGRAM, CATALOG NUMBER
      158                            *      706131, MANUAL NUMBER 901791)
      159                            *
      160                            *  CORE STORAGE--
      161                            *   THIS PROGRAM DISPLACES CORE MEMORY FROM APPROXIMATELY 0 TO 3B00,*A03
      162                            *    HEXIDECIMAL, INCLUDING GUIDE REQUIREMENTS.
      163                            *
      164                            *  RUN TIME--
      165                            *   ON SINGLE IOP SYSTEMS, PASS TIME WILL BE  APPROXIMATELY 7       *A03
      166                            *   SECONDS PER PASS FOR RUNING ALL FUNCTIONAL TEST CASES ON BOTH   *A03
      167                            *   CHANNELS.  FOR MUTILPLE IOP SYSTEMS, PASS TIME CAN BE LESS, CON-*A03
      168                            *   TIGENT ON THE COMMUNICATION AND MESSAGE DEVICE ARRANGEMENTS.    *A03
      169                            *
      170                            *  PROGRAM MEDIA--
      171                            *   THIS PROGRAM IS SUPPLIED IN CARD FORM AND AS A RESIDENT PROGRAM
      172                            *   FILE ON THE DIAGNOSTIC MAG TAPE LIBRARY (CATALOG NO. 706144).
      173                            *   FOR RUNNING SINGLE PHASE COMPARE MODE, THIS PROGRAM MUST BE
      174                            *   LOADED FROM THE DIAGNOSTIC MAG TAPE LIBRARY. THE PROGRAM REQUIRES
      175                            *   THE STANDARD DIAGNOSTIC PROGRAM LOADER, CATALOG NUMBER 704356.
      176                            *
      177                            *  SOURCE LANGUAGE--
      178                            *   THIS PROGRAM WAS WRITTEN IN XDS METASYMBOL ASSEMBLY LANGUAGE.  FOR A
      179                            *   DESCRIPTION OF THIS LANGUAGE, REFER TO XDS PUBLICATION, SYMBOL/META-
      180                            *   SYMBOL REFERENCE MANUAL FOR SIGMA 5/7 COMPUTERS, PUBLICATIONS
      181                            *   NUMBER 900952.
      182                            *
      183                            *
      184                            * LOAD PROCEDURE:
      185                            *
      186                            *  1. THE PREFERRED METHOD OF LOADING IS THROUGH AN IOP THAT IS
      187                            *     NOT BEING TESTED BY THE PROGRAM.  HOWEVER, IF ONLY ONE IOP
      188                            *     IS AVAILABLE, LOADING, OF COURSE, MIGHT BE ACHIEVED THROUGH THE
      189                            *     TEST IOP.  THIS LATTER LOADING CONDITION WILL DEPEND ON THE
      190                            *     PERFORMANCE LEVEL OF THE IOP.
      191                            *
      192                            *  2. PCP SWITCHES SHOULD BE PLACED IN THEIR NORMAL SETTING.
      193                            *
      194                            *  3. PCP SENSE SWITCHES SHOULD BE SET OFF.
      195                            *
      196                            *  4. PERFORM A STANDARD LOAD AS PER PROCEDURES IN THE LOADER DOCUMENT,
      197                            *     PUBLICATIONS NUMBER 900972.  IF LOADING IS BEING ATTEMPTED
      198                            *     THROUGH THE DIAGNOSTIC MAG TAPE LIBRARY, AND/OR IF THE DEVICE *A03
      199                            *     ADDRESS IS NOT 001, THE COMMUNICATION IOP-DEVICE ADDRESS      *A03
      200                            *     WILL HAVE TO BE MODIFIED.  THIS ADDRESS VALUE MUST BE ENTERED *A03
      201                            *     THROUGH THE GENERAL REGISTERS AT LOAD TIME.                   *A03
      202                            *
      203                            *  5. IF THE OBJECT PROGRAM CAN NOT BE LOADED, THEN AN ALTERNATE DEVICE
      204                            *     AND/OR IOP CHANNEL SHOULD BE USED TO ATTEMPT A SUCCESSFUL LOAD.
      205                            *     IF THIS FAILS, THEN REFER TO THE DEBUG PROCEDURE.             *A03
      206                            *
      207                            *  6. IF LOADING IS SUCCESSFUL, PROGRAM CONTROL REVERTS TO THE GUIDE*A03
      208                            *     CONTROL TO OUTPUT THE PROGRAM TITLE, TO OUTPUT CURRENT MOD-   *A03
      209                            *     IFICATIONS, AND THEN TO IDLE STATE.                           *A03
      210                            *                                                                   *A03
      211                            *  7. AT THIS TIME THE OPERATOR IS EXPECTED TO KEY IN PARAMETER     *A03
      212                            *     CHARACTERS TO DESCRIBE THE OPERATING ENVIROMENT.              *A03
      213                            *
      214                            *  8. IF NO INPUT IS MADE,GUIDE CONTROL WILL TIME OUT AND BEGIN PRO-*A03
      215                            *     GRAM EXECUTION.                                               *A03
      216                            *
      217                            *
      218                            * OPERATING PROCEDURES:
      219                            *
      220                            *  GENERAL--
      221                            *   TWO OPERATING MODES ARE PROVIDED IN THE PROGRAM.  THE FIRST
      222                            *   MODE IS CALLED THE FUNCTIONAL MODE, AND THE SECOND IS CALLED THE
      223                            *   ANALYSIS OR SINGLE PHASE COMPARE MODE.  IN THE FUNCTIONAL MODE,
      224                            *   THE IOP IS FUNCTIONALLY TESTED.  IN THE ANALYSIS OR SINGLE PHASE
      225                            *   MODE, CERTAIN FUNCTIONAL TEST MODULES ARE SINGLE PHASED AND
      226                            *   RESULTING IOP STATES ARE READ AND SAVED IN A BUFFER.  THIS RE-  *A03
      227                            *   SULTING DATA IS EITHER LISTED OR COMPARED AND LISTED.  BOTH OF  *A03
      228                            *   THESE OPERATING MODES ARE CONTROLLABLE WITH THE 'OM' PARAMETER. *A03
      229                            *
      230                            *   IN FUNCTIONAL MODE, EACH FUNCTIONAL ERROR IS IDENTIFIED BY A
      231                            *   MESSAGE INDICATING THE TEST NUMBER, TEST LOCATION, AND AN OPTIONAL
      232                            *   ACTUAL-EXPECTED DATA OR STATUS.  FUNCTIONAL MODE IS INITIALLY   *A03
      233                            *   SET ON IN THE ''OM'' PARAMETER CONTROL LINE.                    *A03
      234                            *
      235                            *   IN ANALYSIS OR SINGLE PHASE COMPARE MODE, AN ERROR IS REPORTED
      236                            *   AS LIST OF THE APPLICABLE PHASES OF A SERVICE.  ALL DISPLAY
      237                            *   GROUPS ARE INCLUDED IN THE DISPLAY AND MORE THAN ONE SERVICE
      238                            *   MAY BE DISPLAYED FOR EACH DETECTED ERROR.  THIS MODE IS         *A03
      239                            *   INITIALLY SET OFF IN THE ''OM'' PARAMETER CONTROL LINE.         *A03
      240                            *
      241                            *   FOR CERTAIN TEST MODULES, A DETECTED FUNCTIONAL ERROR WILL AUTO-*A03
      242                            *   MATICLY FORCE SINGLE-PHASE DISPLAY (ANALYSIS MODE) OR SINGLE-   *A03
      243                            *   PHASE COMPARE DISPLAY PROVIDED THE PROPER BIT HAS PREVIOUSILY   *A03
      244                            *   BEEN SET ON IN THE ''OM'' PARAMETER.  THE FIRST OCCURS          *A03
      245                            *   IF THE PROGRAM HAS BEEN LOADED FROM                             *A03
      246                            *   A CARD DECK, WHILE THE SECOND OCCURS IF THE PROGRAM HAS BEEN
      247                            *   LOADED FROM THE DIAGNOSTIC TAPE LIBRARY.   THE REASON FOR THIS
      248                            *   DIFFERENCE IS DUE TO THE REQUIRED COMPARE DATA,WHICH IS ONLY RESI-
      249                            *   DENT ON THE DIAGNOSTIC TAPE LIBRARY.  SINGLE PHASING DISPLAY WILL BE
      250                            *   PRECEDED  BY FUNCTIONAL ERROR INDICATION AND WILL BE IN A FORM
      251                            *   OF SIGMA 8-9 IOP DISPLAY GROUPS.  EACH MAJOR PHASE WILL BE
      252                            *   INDICATED WITH EACH DISPLAY GROUP.
      253                            *
      254                            *   IN THE SITUATION WHERE THE PROGRAM IS LOADED FROM THE DIAG-     *A03
      255                            *   NOSTIC MAG TAPE LIBRARY, AND ASSUMING THE PROPER CONTROL BIT HAS*A03
      256                            *   BEEN SET IN THE ''OM'' PARAMETER CONTROL LINE, UPON COMPLETION  *A03
      257                            *   OF FUNCTIONAL TESTING, CONTROL IS ALSO DIRECTED TO AN EXCLUSIVE
      258                            *   SINGLE PHASE COMPARE OPERATION MODE.  IN THIS MODE, ALL         *A03
      259                            *   APPROPRIATE TEST MODULES ARE EXECUTED UNDER                     *A03
      260                            *   SINGLE PHASE CONTROL. NOT UNLIKE FUNCTIONAL TEST FAILURES, ANY  *A03
      261                            *   DETECTED SINGLE PHASE ERRORS WILL BE INDICATED BY A LISTING
      262                            *   OF THE DISPLAY GROUPS ON A PER PHASE BASIS.  THIS LISTING IS    *A03
      263                            *   PRINTED SUCH THAT THE OPERATOR CAN COMPARE IT AGAINST THE       *A03
      264                            *   DISPLAY CHART FOR THE MIOP, ENGINEERING TECHNICAL DATA, DRAWING *A03
      265                            *   NUMBER 156503, SHEET 40. THE OPERATOR MUST ALSO BE AWARE THAT   *A03
      266                            *   CERTAIN DISPLAY GROUP BITS ARE TO BE IGNORED DUE TO VARIATIONS  *A03
      267                            *   IN THE SYSTEM AND SYSTEM CONFIGURATIONS.  THESE GROUP BITS ARE  *A03
      268                            *   GROUP 2, BITS 0-9, 13-16, 20-23, 25, AND 26; AND GROUP 9 OR 17, *A03
      269                            *   BIT 21.  ALSO GROUP 12 OR 20, BITS 16-23, AND GROUP 13 OR 21,   *A03
      270                            *   BITS 16-31 ARE MASKED OFF UNLESS FOUR BYTE OR BURST MODE IS     *A03
      271                            *   INVOKED BY THE CURRENT TEST MODULE.                             *A03
      272                            *                                                                   *A03
      273                            *  MISCELLANEOUS--                                                  *A03
      274                            *   IN VIEW THAT THE IOP IS AN ASYNCHRONOUS SYSTEMS ELEMENT,        *A03
      275                            *   SPECIAL SYNC INSTRUCTIONS ARE PROVIDED FOR EACH TEST            *A03
      276                            *   MODULE.  THESE INSTRUCTIONS ARE IN THE FORM OF A WRITE DIRECT   *A03
      277                            *   GROUP 3 AND PROVIDE A SIGNAL ON PIN 3B46 ON CHANNEL 'A' AND     *A03
      278                            *   PIN 1F40 ON CHANNEL 'B'.  THEY WILL APPEAR VERY NEAR THE KEY    *A03
      279                            *   EVENT OF EACH TEST.  ONE EXCEPTION TO THIS RULE, HOWEVER, IS    *A03
      280                            *   SHORT LOOP OPERATION OF SINGLE PHASE (ANALYSIS) MODE.  SYNC-    *A03
      281                            *   ING FOR THIS SITUATION MUST BE ACHIEVE BY USING THE APPROPRIATE *A03
      282                            *   READ DIRECT GROUPS OF A PARTICULAR PHASE.                       *A03
      283                            *                                                                   *A03
      284                            *
      285                            *  CONTROL OPTIONS--
      286                            *   THE PROGRAM IS MAINLY CONTROLLED BY KEYBOARD I/O VIA THE GUIDE
      287                            *   PROGRAM, OR CONTROLS REQUIRING SPECIAL INTERPRETATION ARE DECUSSED
      288                            *   HEREIN.  GENERALLY, GUIDE  CONTROLS ARE DESCRIBED IN A SEPARATE
      289                            *   DOCUMENT (MANUAL # 901791)
      290                            *
      291                            *   DUE TO THE RESTRICTED OPERATING ENVIRONMENT, THE OPERATOR MUST  *A03
      292                            *   BE AWARE OF THE IMPOSED LIMITATION ON THE KEYBOARD READ MODE.   *A03
      293                            *   SINCE THE TEST IOP AND THE KEYBOARD DEVICE ARE LIKELY AN ASSO-  *A03
      294                            *   CIATED FACILITY,THE ACTUAL TESTING WILL OCCUR WITH THE KEYBOARD *A03
      295                            *   CONTROLLER PROGRAMMED OFF-LINE.  THIS MEANS THAT ONLY IN CERTAIN*A03
      296                            *   TIME INTERVALS CAN THE KEYBOARD BE MADE ON-LINE AND ACTIVE.     *A03
      297                            *   HENCE, THE OPERATOR MUST LOOK FOR THE READ LIGHT LITE ON THE    *A03
      298                            *   KEYBOARD TO MAKE HIS INPUT REQUEST.                             *A03
      299                            *
      300                            *   DUE TO THIS INPUT LIMITATION AN ADDITIONAL                      *A03
      301                            *   FEATURE IS PROVIDED ON THE KEYBOARD. THIS IS,WHENEVER AN OUTPUT *A03
      302                            *   MESSAGE IS BEING TYPED, DEPRESSING THE BREAK KEY WILL           *A03
      303                            *   INDUCE A BRIEF INPUT READ.  THIS ALLOWS THE OPERATOR            *A03
      304                            *   TO MAKE INPUT REQUEST BEYOND WHAT MIGHT BE AVAILABLE IN THIS
      305                            *   RESTRICTED ENVIRONMENT.                                         *A03
      306                            *
      307                            *
      308                            *  TEST DIRECTIVES AND PARAMETERS--
      309                            *   THE FOLLOWING LIST REFLECTS THE UNIQUE OR SPECIAL PARAMETER
      310                            *   CONTROLS.
      311                            *
      312                            *    PARAMETER                FUNCTIONAL/DESCRIPTION
      313                            *    -----------------------------------------------------------------
      314                            *
      315                            *     J        COMMUNICATION DEVICES AND MISCELLANEOUS CONTROLS--
      316                            *     -        -MSG DVC-- SPECIFIES IOP-DEVICE ADDRESS FOR THE
      317                            *               MESSAGE DEVICE; E.G., LINE PRINTER.
      318                            *              -COM DVC-- SPECIFIES IOP-DEVICE ADDRESS FOR THE
      319                            *               COMMUNICATION DEVICE; E.G., TELETYPE.
      320                            *              -SI-- SPECIFIES SUCCESS INDICATION BY TEST NUMBER.
      321                            *               0 INDICATES NO OUTPUT, 1 INDICATES SUCCESS OUTPUT.  *A03
      322                            *               THIS OUTPUT WILL OCCUR FOR ONE PROGRAM              *A03
      323                            *               PASS, AND NORMALLY INCLUDES BOTH CHANNELS, CON-     *A03
      324                            *               TIGENT ON THE PARAMETER SETTINGS.                   *A03
      325                            *              -CM-- SPECIFIES NORMAL OR FAST CLOCK MARGINS IN THE  *A03
      326                            *               TEST IOP. 0 INDICATES NORMAL,1 INDICATES FAST CLOCKS*A03
      327                            *
      328                            *
      329                            *     OM       OPERATING MODES--
      330                            *     --       -FUNCTIONAL-- THIS IS THE NORMAL OPERATING MODE OF THE
      331                            *               PROGRAM AND WILL NORMALLY BE A ONE.  IN THIS OPERATING
      332                            *               MODE, ALL FUNCTIONAL TEST MODULES ARE EXECUTED
      333                            *               AND ERRORS ARE REPORTED ON A PER TEST BASIS.
      334                            *
      335                            *              -SINGLE PHASE-- IF THIS VALUE IS SET TO A ONE, SINGLE
      336                            *               PHASE OPERATION WILL OCCUR FOR CERTAIN TEST MODULES.
      337                            *               IF SINGLE PHASE COMPARE DATA IS AVAILABLE; THAT IS, IF
      338                            *               THE IOP PROGRAM HAS BEEN LOADED FROM THE DIAGNOSTIC MAG
      339                            *               TAPE LIBRARY, THE SINGLE PHASE OUTPUT DATA IS COMPARED
      340                            *               TO EXPECTED DATA DERIVED FROM A GOOD IOP.  ANY RESULTING
      341                            *               DISCREPANCIES ARE FLAGED ON A PRINTER LISTING.
      342                            *
      343                            *               SINGLE PHASING IS INVOKED DURING TWO DIFFERENT OPERAT-
      344                            *               ING PERIODS. FIRST IT IS INVOKED  AFTER A FAULT IS DE-
      345                            *               TECTED VIA A FUNCTIONAL TEST MODULE.  IN THIS       *A03
      346                            *               SITUATION, THE SINGLE PHASE DATA IS COMPARED IF     *A03
      347                            *               COMPARE DATA IS AVAILABLE FROM THE AFOREMENTIONED   *A03
      348                            *               MAG TAPE LIBRARY.                                   *A03
      349                            *
      350                            *               SINGLE PHASE OPERATION IS ALSO INVOKED AFTER ALL
      351                            *               FUNCTIONAL TEST MODULES HAVE BEEN EXECUTED, PROVIDED
      352                            *               AGAIN, THAT COMPARE DATA IS AVAILABLE FROM THE MAG
      353                            *               TAPE LIBRARY.  A FURTHER REQUIREMENT IS THAT THE SINGLE
      354                            *               PHASE PARAMETER VALUE HAS BEEN PREVIOUSILY SET TO A ONE.
      355                            *
      356                            *     OP       IOP HARDWARE OPTIONS--
      357                            *     --       -IOP-MS ADR-- SPECIFIES THE TEST IOP AND THE M.S.
      358                            *               ADDRESS. THE MS ADDRESS MUST BE APPROPRIATE FOR     *A03
      359                            *               THE SPECIFIED NUMBER OF SUBCHANNELS.  IF THE ADDRESS*A03
      360                            *               IS GREATER THAN SEVEN, THEN CHANNEL 'B' MUST BE     *A03
      361                            *               EXCLUDED FROM THE TEST.  IF MEMORY TO MEMORY MOVE   *A03
      362                            *               OPTION IS AVAILABLE, ADDRESSES EIGHT AND NINE       *A03
      363                            *               MUST BE EXCLUDED.  MS ADDRESS FIVE MUST BE SPECIFIED*A03
      364                            *               WHEN OPERATING COMPARE (ANALYSIS) COOKBOOK MODE.    *A03
      365                            *               MULTI-DEVICE ADDRESSES CAN BE SPECIFIED IF ENTERED  *A03
      366                            *               IN THE APPROPRIATE FORMAT.                          *A03
      367                            *              -IOP DIO/MI-- SPECIFIES THE DIO ADDRESS DEDICATED TO THE
      368                            *               TEST IOP, RIGHT JUSTIFIED.                          *A03
      369                            *              -CH A/B-- SPECIFIES WHICH CHANNEL(S) IS/ARE TO BE TESTED.
      370                            *               A 1 INDICATES THE CHANNEL IS TO BE TESTED.          *A03
      371                            *              -SUB-CHLNS-- SPECIFIES SUBCHANNEL NUMBERS ASSOCIATED WITH
      372                            *               CHANNEL A:  0-- 0-7 SUBCHANNELS, 1-- 0-15 SUB-      *A03
      373                            *               CHANNELS, AND 2-- 0-23 SUBCHANNELS.                 *A03
      374                            *              -FOUR BYTE-- SPECIFIES FOUR BYTE OPTION ON THE RESPECTIVE
      375                            *               CHANNELS.  A 1 INDICATES FOUR BYTE MODE.            *A03
      376                            *              -BURST MODE-- SPECIFIES BURST MODE OPTION ON RESPECTIVE
      377                            *               CHANNELS. A 1 INDICATES BURST MODE. THIS OPTION RE- *A03
      378                            *               QUIRES THE FOUR BYTE OPTION TO BE INVOKED.          *A03
      379                            *              -MEM-MEM-- SPECIFIES MEMORY TO MEMORY MOVE OPTION ON
      380                            *               CHANNEL A.  A 1 INDICATES THE OPTION PRESENT.       *A03
      381                            *
      382                            *     S        SENSE SWITCHES-- 1-4
      383                            *     -        -SENSE SWITCH 1-- SHORT LOOP--
      384                            *               THIS IS THE SHORTEST PROGRAM PATH THROUGH A TEST MODULE.
      385                            *               THIS OPTION IS INDEPENDENT OF OTHER SENSE SWITCH
      386                            *               OPTIONS AND IS INTENDED FOR SCOPING PURPOSES.
      387                            *
      388                            *
      389                            *              -SENSE SWITCH 2-- LONG LOOP--
      390                            *               THIS OPTION LOCKS THE PROGRAM CONTROL ON A PARTICULAR
      391                            *               TEST MODULE AND IS AFFECTED BY SENSE SWITCHES 3 AND 4.
      392                            *
      393                            *               TO ENTER SUCH A PROGRAM LOOP WHILE THE PROGRAM IS IN
      394                            *               A NORMAL RUN STATE, ONE OF TWO  METHODS CAN BE USED.
      395                            *               THE FIRST METHOD IS TO RUN THE PROGRAM WITHOUT SENSE
      396                            *               3 ON (HALT ON ERROR).  WHENEVER AN ERROR IS DETECTED,
      397                            *               THE PROGRAM GOES TO IDLE WITH THE READ LIGHT ON.
      398                            *               THE  SECOND METHOD IS DESCRIBED UNDER THE T PARAMETE*A03
      399                            *               FOLLOWING, AND IS THE PERFERRED METHOD.             *A03
      400                            *
      401                            *               THE OPERATOR IS CAUTIONED IN USING EITHER OF THESE  *A03
      402                            *               SENSE SWITCH OPTIONS, HOWEVER.  SINCE A             *A03
      403                            *               COMMOM SET OF TEST MODULES ARE UTILIZED FOR         *A03
      404                            *               FOR BOTH CHANNELS, TO LOOP ON A SPECIFIC TEST,      *A03
      405                            *               THE CHANNEL SHOULD BE SELECTED, AS WELL.            *A03
      406                            *               THIS CAN BE ACCOMPLISHED BY THE 'OP' PARAMETER.     *A03
      407                            *
      408                            *              -SENSE SWITCH 3-- CONTINUE ON ERROR--
      409                            *               THIS OPTION, WHEN SET, PREVENTS THE PROGRAM FROM GOING
      410                            *               TO AN IDLE STATE AFTER AN ERROR HAS BEEN DETECTED.
      411                            *
      412                            *              -SENSE SWITCH 4-- INHIBIT PRINT-- WHEN SET TO A ONE
      413                            *               THIS OPTION INHIBITS THE PRINT DEVICE(S).
      414                            *
      415                            *     T>X,Y,   TEST SELECT--
      416                            *     ------   THIS PARAMETER LINE PERMITS THE OPERATOR
      417                            *              TO SELECT A RANGE OF TEST MODULES.  THE 'X' REFLECTS A
      418                            *              STARTING TEST MODULE NUMBER,  AND 'Y' REFLECTS AN ENDING
      419                            *              TEST MODULE NUMBER.   THE STARTING TEST NUMBER MUST
      420                            *              BE LESS THAN THE ENDING TEST NUMBER.  A SINGLE MODULE
      421                            *              NUMBER CAN BE SPECIFIED.
      422                            *
      423                            *              ONCE THIS PARAMETER IS ENTERED, THE GUIDE CONTROL
      424                            *              PROGRAM GOES TO AN IDLE STATE.  TO EXECUTE THE TEST, THE
      425                            *              OPERATOR MUST ENTER A # TO EXIT FROM THE IDLE STATE.
      426                            *
      427                            *              IN SOME SITUATIONS, THIS PARAMETER WILL BE USEFUL IN
      428                            *              LOOPING ON A SPECIFIC TEST.  THIS WILL REQUIRE THE
      429                            *              OPERATOR TO SPECIFY ONLY ONE TEST NUMBER IN THE PARAMETER
      430                            *              LINE AND TO SET SENSE SWITCH 1 OR 2 BEFORE RETURN-
      431                            *              ING TO RUN MODE.
      432                            *
      433                            *     &        STATUS REPORT-- THIS PARAMETER FORCES THE DRIVER
      434                            *     -        TO REPORT THE CURRENT TEST NUMBER, AND MODULE        *A03
      435                            *              LOCATION, AND OPERATING CHANNEL.                     *A03
      436                            *
      437                            *  START-RESTART PROCEDURE--
      438                            *   STARTING PROCEDURE IS EXPLAINED IN ITEMS SIX THROUGH EIGHT UNDER*A03
      439                            *   LOAD PROCEDURES.
      440                            *
      441                            *   FOR RESTARTING, TWO METHODS ARE PROVIDED.  THE FIRST METHOD
      442                            *   IS FOR THE OPERATOR TO DEPRESS THE SYSTEMS OR CPU RESET BUTTON
      443                            *   ON THE CONSOLE WHILE THE CPU IS IN IDLE STATE.  THE SECOND
      444                            *   METHOD IS TO DEPRESS THE '@' KEY ON THE KEYBOARD DEVICE WHILE THE
      445                            *   DEVICE IS IN READ MODE.
      446                            *
      447                            *   WHICHEVER METHOD IS USED WILL FORCE THE PROGRAM TO GO INTO AN
      448                            *   AN INITIALIZER SEQUENCE AND, THEREAFTER, TO OUTPUT THE FOLLOWING
      449                            *   GUIDE MESSAGE:  ''ABSOLUTE RECOVERY.  CLEAR PARAMETERS %= ''
      450                            *   THE KEYBOARD IS THEN PLACED IN A READ STATE AWAITING AN INPUT CHAR-
      451                            *   ACTER.  IF THE OPERATOR KEYS IN A 'Y' (YES), PROGRAM CONTROL GOES
      452                            *   TO ABSOLUTE RECOVERY, WHICH IS SIMILAR TO THE SITUATION THAT OCCURS
      453                            *   DURING INITIAL LOAD.  IF A 'N' (NO) IS KEYED IN, PROGRAM CONTROL
      454                            *   GOES TO SIMPLE RESTART PROCEDURE, STARTING WITH THE FIRST TEST
      455                            *   MODULE OR THE FIRST TEST MODULE PREVIOUSILY SPECIFIED BY THE    *A03
      456                            *   'T' PARAMETER CONTROL.                                          *A03
      457                            *
      458                            *   IT IS IMPORTANT TO NOTE THAT THE 'Y' RECOVERY STATE RESETS      *A03
      459                            *   RESETS ALL THE PARAMETER LINES TO THE ORIGINAL CONDITION.  THIS *A03
      460                            *   MEANS CONTROL MODES MAY HAVE TO BE RE-ENTERED VIA THE PARA-     *A03
      461                            *   METER LINES.  IT ALSO FORCES THE MTL TO REWIND,WHEN APPROPRIATE.*A03
      462                            *
      463                            *  TERMINATION PROCEDURES--
      464                            *   NO SPECIAL TERMINATIONS PROCEDURES ARE REQUIRED FOR THIS TEST WITH
      465                            *   THE EXCEPTION THAT SYSTEMS OR I/O RESET BUTTON MUST BE DEPRESSED
      466                            *   ON THE PCP TO RETURN THE DEVICE AND MAINTENANCE SUBCONTROLLERS
      467                            *   TO THEIR NORMAL ON-LINE OFF-LINE STATE.  THIS IS, HOWEVER,
      468                            *   A NORMAL FUNCTION BEFORE LOADING ANY SUBSEQUENT PROGRAMS.
      469                            *
      470                            *
      471                            * SUCCESS/FAILURE INDICATIONS:
      472                            *
      473                            *  GENERAL--
      474                            *   DURING THE FIRST NORMAL PASS OF THIS PROGRAM, THE TEST NUMBER
      475                            *   OF EACH SUCCESSFUL TEST CAN BE PRINTED BY SPECIFYING THE APPROPRIATE
      476                            *   'SI' BIT IN THE 'J' PARAMETER LINE.
      477                            *
      478                            *   ANY DETECTED FAILURES WILL BE INDICATED BY A STANDARD ERROR MESSAGE
      479                            *   AS PREVIOUILY DISCUSSED.
      480                            *
      481                            *  WAITS--
      482                            *   FOR NORMAL OPERATION, PROGRAM WAITS SHOULD NEVER OCCUR.         *A03
      483                            *   WHENEVER THIS PROGRAM IS NOT IN EXECUTION, PROGRAM CONTROL      *A03
      484                            *   IS DIRECTED TO THE IDLE STATE OF GUIDE WITH THE COMMUNICATION   *A03
      485                            *   (TELETYPE) DEVICE IN READ MODE.  IF A WAIT DOES OCCUR, IT       *A03
      486                            *   IT DENOTES A CERTAIN MALFUNCTION, AND THE OPERATOR SHOULD RE-   *A03
      487                            *   FER TO THE LISTING FOR FURTHER INSTRUCTIONS.                    *A03
      488                            *
      489                            *  MESSAGE PRINTOUTS--
      490                            *   MESSAGE PRINTOUTS ARE SELF EXPLANATORY OR ARE SUPPLEMENTED BY
      491                            *   TEXT IN THE LISTING VIA THE TEST NUMBERS, ETC.
      492                            *
      493                            *  FAILURE EXCEPTION--                                              *A05
      494                            *   ON SOME PROCESSORS, THE ZBC SIGNAL VARIES IN TIMING.  THIS      *A05
      495                            *   CAN ESPECIALLY HAPPEN WHEN OPERATING UNDER VOLTAGE MARGINS.     *A05
      496                            *  BECAUSE OF THIS VARIATION, THE ZBC BIT WILL NOT BE CHECKED       *A06
      497                            *
      498                            ***************************************************************************
      499                            *************************************************************************
      500                            *                                                                       *
      501                            *                 GUIDE INTERFACE                                       *
      502                            *                                                                       *
      503                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      504                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      505                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      506                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      507                            *        IN THE MACHINE WORD.
      508                            *
      509                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      510                            *
      511                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      512                            *
      513                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      514                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      515                            *                  EXECUTION LOCATION COUNTER;
      516                            *
      517                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      518                            *
      519                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      520                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      521                            *                  'EBCDIC'.
      522                            *************************************************************************
      523         00000000           #HTECON  CNAME
      524                                     PROC
      525                            *
      526                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      527                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      528                            *
      529                                     ERROR,0,NUM(AF)~=1 ;
      530                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      531                            *
      532                            *
      533                            LF       BAL,X6     *#HTE%
      534                                     GEN,10,22  0,AF(1)
      535                            *
      536                                     PEND
      537                            *
      538                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      539                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      540                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      541                            *
      542                            *        RETURN IS TO THE PROCEDURE REFERENCE
      543                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      544                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      545                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      546                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      547                            *        OF THE LOAD MULTIPLE INSTRUCTION.  TO FETCH ONLY
      548                            *        ONE WORD, USE OF  LW,REG  0,LINK  OR  LW,REG  1,LINK
      549                            *        AS APPROPRIATE, IS SUGGESTED.
      550                            *
      551                            *
      552                            *
      553                            *
      554                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      555                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#BTE',
      556                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      557                            *        'EBCDIC' FOR THE 32 BIT POSITIONS IN THE WORD.
      558                            *
      559                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      560                            *
      561                            * LABELOPT  #BTECON  LABELADDR       OPTIONAL COMMENTS
      562                            *
      563                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      564                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      565                            *                  EXECUTION LOCATION COUNTER;
      566                            *
      567                            *                  #BTECON IS THE PROCEDURE REFERENCE;
      568                            *
      569                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      570                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      571                            *                  'EBCDIC'.
      572                            *
      573                        *S* #BTECON  CNAME
      574                        *S*          PROC
      575                        *S* *
      576                        *S* *
      577                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      578                        *S*  '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      579                        *S* *
      580                                     ERROR,0,NUM(AF)~=1 ;
      581                        *S*  '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      582                        *S* *
      583                        *S* *
      584                        *S* LF       BAL,X6     *#BTE%
      585                        *S*          GEN,10,22  0,AF(1)
      586                        *S* *
      587                        *S*          PEND
      588                            *
      589                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      590                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      591                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      592                            *
      593                            *        RETURN IS TO THE PROCEDURE REFERENCE
      594                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      595                            *        POINTS TO THE FIRST OF EIGHT MEMORY LOCATIONS
      596                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      597                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      598                            *        OF THE LOAD MULTIPLE INSTRUCTION WHEN THE
      599                            *        VALUE FOR ONE BYTE POSITION IS DESIRED.  THE USE
      600                            *        OF LOCATION 0-6 INDEX BY #LINK AS THE ARGUMENT OF A 'LOAD'
      601                            *        INSTRUCTION IS RECOMMENDED.
      602                            *
      603                            *
      604                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      605                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      606                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      607                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      608                            *        IF THE CHARACTER STRING TO BE CONVERTED
      609                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      610                            *        THE REGISTERS USED MUST NOT
      611                            *        INCLUDE THE LINK REGISTER.
      612                            *
      613                            *
      614                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      615                            *
      616                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      617                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      618                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      619                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      620                            *                          ( MUST BE BETWEEN 0 AND 3 )
      621                            *                 ERRETN=  ADDRESS UPON WHICH 'GUIDE' WILL BRANCH
      622                            *                           INDIRECTLY IF ANY 'EBCDIC' CHARACTER IS
      623                            *                           NOT IN THE HEXADECIMAL CONVERSION TABLE.
      624                            *
      625                            *                           IF AF(3) IS NOT ENTERED, OR IS NOT AN
      626                            *                           ADDRESS, A RETURN TO THE PROGRAM ERROR
      627                            *                           REPORTER WILL BE GENERATED.
      628                            *
      629         00000000           #ETHCON  CNAME
      630                                     PROC
      631                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      632                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      633                            *
      634                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      635                            A        SET      0
      636                            *
      637                            *
      638                                     ERROR,0,A~=CF(2) ;
      639                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      640                            *
      641                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      642                            *
      643                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      644                            B        SET      0
      645                            *
      646                            *
      647                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      648                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      649                            *
      650                            *
      651                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      652                             (AF(1)=X3))     ;
      653                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      654                            *
      655                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      656                            *
      657                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      658                             |(AF(3)=X3))&NUM(AF)>2
      659                            *
      660                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      661                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      662                            *
      663                            E        SET      C|D               'OR' THE RESULTS
      664                            LF       BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      665                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      666                            *
      667                                     GEN,8,22,2  A,AF(1),B
      668                            *
      669                                     ELSE                       RELOCATABLE ADDRESS
      670                            *
      671                                     GEN,8,24     A,BA(AF(1))+B
      672                            *
      673                                     FIN
      674                            *
      675                                     PEND
      676                            *
      677                            *
      678                            *
      679                            *
      680                            *
      681                            *
      682                            *
      683                            *
      684                            *
      685                            *
      686                            *

      688         00000002           #PRINT   CNAME    2,#PRINTER%
      689         00000001           #TYPE    CNAME    1,#TYPER%
      690                                     PROC
      691                            *
      692                            *
      693                                     LOCAL    A
      694                            *
      695                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      696                             '**CF(2) MUST BE POSITIVE INTEGER**'
      697                            *
      698                                     ERROR,0,NUM(CF)>3 ;
      699                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      700                            *
      701                                     ERROR,0,NUM(AF)>NAME(1) ;
      702                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      703                            *
      704                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      705                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      706                            *
      707                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      708                            *
      709                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      710                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      711                            *
      712                                     ERROR,0,A=0  ;
      713                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      714                            *
      715                                     ELSE
      716                            *
      717                            A        SET      0
      718                            *
      719                                     FIN
      720                            *
      721                            *
      722                            *
      723                            *
      724                            LF       BAL,X6   *NAME(2)
      725                            *
      726                            *
      727                                     DO       NUM(CF)=1&NAME(1)=1
      728                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      729                                     ELSE
      730                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      731                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      732                                     ELSE
      733                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      734                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      735                                     ELSE
      736                                     DO       NUM(CF)=2&CF(2)>0
      737                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      738                                     ELSE
      739                                     DO       NUM(CF)=2&CF(2)=0
      740                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      741                                     ELSE
      742                                     DO       NUM(CF)>2&CF(2)>0
      743                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      744                                     ELSE
      745                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      746                                     FIN
      747                                     FIN
      748                                     FIN
      749                                     FIN
      750                                     FIN
      751                                     FIN
      752                            *
      753                            *
      754                                     PEND
      755                            *
      756         000000C0           C0       EQU      X'C0'
      757         000000C1           C1       EQU      X'C1'
      758         000000C2           C2       EQU      X'C2'
      759         000000C3           C3       EQU      X'C3'
      760         000000C4           C4       EQU      X'C4'
      761         000000C5           C5       EQU      X'C5'
      762         000000C6           C6       EQU      X'C6'
      763         000000C7           C7       EQU      X'C7'
      764         000000C8           C8       EQU      X'C8'
      765         000000C9           C9       EQU      X'C9'
      766         000000CA           CA       EQU      X'CA'
      767         000000CB           CB       EQU      X'CB'
      768         000000CC           CC       EQU      X'CC'
      769         000000CD           CD       EQU      X'CD'
      770         000000CE           CE       EQU      X'CE'
      771         000000CF           CF       EQU      X'CF'
      772         000000F0           F0       EQU      X'F0'
      773         000000F1           F1       EQU      X'F1'
      774                            *
      775                            *
      776                            *
      777                            *
      778         00000000           TEXTCS   CNAME
      779                                     PROC
      780                                     DISP     %
      781                                     LIST     0
      782                            LF       TEXTC    AF
      783                                     LIST     1
      784                                     PEND
      785                            *
      786                            *********************************************
      787                                     SYSTEM   SIG9P
      788                            *********************************************
      789                            *
      790                                     OPEN     POLP,POLR,RIO
      791         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
      792         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
      793         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
      794                            *
      795                            *
      796         00000000           #ABSZERO EQU      0
      797                            *
      798   01 00392                 #TABLE1A   ORG    X'392'          THIS TABLE IS USED BY THE USER
            01 00392
      799         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      800         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      801         01 00394           #LOADFLAG  EQU    %+2
      802         01 00395           #MTLFLAG   EQU    %+3
      803         01 00396           #TOADDR    EQU    %+4
      804         01 00397           #PRTADDR   EQU    %+5
      805         01 00399           #OUTPTR    EQU    %+7
      806         01 0039A           #PAKDEX    EQU    %+8
      807         01 0039B           #INDEX     EQU    %+9
      808         01 0039C           #PARAM%H1 EQU     %+10
      809         01 0039D           #PARAM%H2 EQU     %+11
      810         01 0039E           #PARAM%H3 EQU     %+12
      811         01 0039F           #PARAM%H4 EQU     %+13
      812         01 003A0           #TESTINIT EQU     %+14
      813         01 003A1           #STATUS   EQU     %+15
      814                            *
      815         01 003A2           #PARAM1  EQU      %+16
      816         01 003A4           #PARAM2  EQU      %+18
      817         01 003A6           #PARAM3  EQU      %+20
      818         01 003A8           #PARAM4  EQU      %+22
      819         01 003AA           #MAXMEM   EQU     %+24
      820         01 003AB           #SAMPLE  EQU      %+25                                              *A04
      821         01 003AC           #BRKOUT  EQU      %+26
      822         01 003AD           #DM%START EQU     %+27
      823         01 003AE           #DM%END  EQU      %+28
      824         01 003AF           #TRAPLNK EQU      %+29
      825                            *
      826                            ************
      827                            *
      828                            *
      829   01 003C2                 #TABLE1B   ORG    X'3C2'            THIS TABLE IS USED BY USER
            01 003C2
      830         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      831         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      832         01 003C4           #BTE%      EQU    %+2
      833         01 003C5           #DISUSER%  EQU    %+3
      834         01 003C6           #ENUSER%   EQU    %+4
      835         01 003C7           #ARMUSER%  EQU    %+5               TO RE-ARM USER
      836                            *
      837         01 003C8           #GUIDE%    EQU    %+6
      838         01 003C9           #FIDLE%    EQU    %+7
      839         01 003CA           #RUNADDR%  EQU    %+8
      840         01 003CB           #RETURN%   EQU    %+9
      841         01 003CC           #TYPER%    EQU    %+10
      842         01 003CD           #PRINTER%  EQU    %+11
      843         01 003CE           #ERRTEXT%  EQU    %+12
      844         01 003D0           #ERR1PTR%  EQU    %+14
      845         01 003D2           #VALTAB% EQU      %+16
      846         01 003D3           #DMENTRY% EQU     %+17
      847         01 003D4           #P%MODE% EQU      %+18
      848         01 003D5           #GUIDEBUF  EQU    %+19              BYTE ADR OF GUIDE OUTPUT BUFFER
      849         01 003D6           #SCANPARAM  EQU   %+20
      850                            *
      851                            **************:
      852                            *
      853                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      854                            *
      855   01 003E5                          ORG      X'3E5'
            01 003E5
      856                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      857   01 003E5    04       A   VALBIT   DATA,1   4                      (1 BYTE EACH)
      858                            *
      859   01 003E7                          ORG      X'3E7'
            01 003E7
      860                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      861         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      862   01 003E7    F6       A            DATA,1   -10
      863                            *
      864   01 003EC                          ORG      X'3EC'
            01 003EC
      865         01 003EC           VALTYPE  EQU      %
      866                            *
      867   01 003EC    0A004EB8              GEN,8,24 10,BA(VALTAB)
      868                            *
      869                            *
      870                            ************
      871                            *
      872   01 003F0                 DCA        ORG    X'3F0'
            01 003F0
      873                            *
      874                            *
      875                            *
      876                            *
      877   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      878   01 01000    00001510     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      879   01 01001    00003411     #TABLE3@   DATA   TABLE3
      880   01 01002    000033FE     #PLINEIN@  DATA   PLINEIN
      881   01 01003    80000000 A   #DIAG@   DATA     X'80000000'
      882   01 01004    00000000 A   #LOADER@ DATA     0
      883   01 01005    00000000 A   #OUTBUF@ DATA     0
      884   01 01006    00001AF9     #ONLINE  DATA     PUTDVCON          ADR OF SEQUENCE TO VERIFY IOPON LINE
      885                            *
      886                            *
      887                            *
      888                            *
      889                            ************
      890                            *
      891                            *
      892                            *                **********
      893         00000000           R0         EQU    0
      894         00000001           R1         EQU    1
      895         00000001           X1         EQU    1
      896         00000002           R2         EQU    2
      897         00000002           X2         EQU    2
      898         00000003           R3         EQU    3
      899         00000003           X3         EQU    3
      900         00000004           R4         EQU    4
      901         00000004           X4         EQU    4
      902         00000005           R5         EQU    5
      903         00000005           X5         EQU    5
      904         00000006           R6         EQU    6
      905         00000006           X6         EQU    6
      906         00000006           LINK       EQU    6
      907         00000007           R7         EQU    7
      908         00000007           X7         EQU    7
      909         00000008           R8         EQU    8
      910         00000009           R9         EQU    9
      911         0000000A           R10        EQU    10
      912         0000000B           R11        EQU    11
      913         0000000C           R12        EQU    12
      914         0000000D           R13        EQU    13
      915         0000000E           R14        EQU    14
      916         0000000F           R15        EQU    15
      917                            *
      918                            *
      919                            *
      920                            *
      921                            **********************************************************************
      922                            *                                                                    *
      923                            *                        INITIALIZATION                              *
      924                            *                                                                    *
      925                            **********************************************************************
      926   01 01010                          ORG      X'1010'
            01 01010
      927         01 01010           #IOPINIT EQU      %                 A RETURN FROM GUIDE
      928   01 01010    356012FE              STW,LINK  GUIDLINK         SAVE GUID LINK REGISTER
      929   01 01011    0E001308              LPSD,0   INHBTIT           SET ALL POSSIBLE INTERRUPT INHIBITS
      930   01 01012    32C012A3     INTL02   LW,R12   BCRINTL           STUFF RESET CELL
      931   01 01013    35C00026 A            STW,R12  X'26'
      932   01 01014    22300006 A            LI,R3    6
      933   01 01015    B2A61004              LW,R10   *#LOADER@,X3      GET MAX MEMORY ADR
      934   01 01016    35A01316              STW,R10  LASTMEM
      935   01 01017    B2301004              LW,R3    *#LOADER@         TABLE DISPLACEMENT
      936   01 01018    20300004 A            AI,R3    4                 COMMUNICATION DEVICE ADR
      937   01 01019    353012CF              STW,R3   COMDVC                                            *A04
      938   01 0101A    B2A61004              LW,R10   *#LOADER@,X3
      939   01 0101B    35A012D6              STW,R10  CTLPTM1           SAVE COMMUNICATION DEVICE ADR
      940   01 0101C    20A00001 A            AI,R10   1
      941   01 0101D    35A012D7              STW,R10  CTLPTM1+1         SAVE ALSO MESSAGE DEVICE ADDRESS
      942   01 0101E    B2A01004              LW,R10   *#LOADER@
      943   01 0101F    30A01004              AW,R10   #LOADER@
      944   01 01020    B2A0000A A            LW,R10   *R10              WAS PROGRAM LOADED FROM M.T.L. ?
      945   01 01021    68301024              BCR,3    %+3               NO
      946   01 01022    22000000 A            LI,R0    0                 YES
      947   01 01023    3500132F              STW,R0   NOTMTL            CLEAR FLAG
      948   01 01024    6AF01ABB     INTL08   BAL,R15  INITRS            SET XPSDS FOR I/O & WDT
      949   01 01025    2220EFFC A            LI,R2    X'EFFC'           DISARM IMPORTANT INTERRUPTS     *A04
      950   01 01026    6D201100 A            WD,R2    DISARM             (EXCLUDE COUNTER 4)            *A04
      951   01 01027    120012D6              LD,R0    CTLPTM1           MSG & COM DEV                   *A02
      952   01 01028    222FFFF9 A            LI,R2    -7                INDEX                           *A02
      953   01 01029    22300000 A            LI,R3    0                                                 *A02
      954   01 0102A    22400001 A            LI,R4    1                 ALL ONES TO R4 THRU R11         *A02
      955   01 0102B    3544000C A            STW,R4   R12,X2                                            *A02
      956   01 0102C    6520102A              BIR,R2   %-2                                               *A02
      957   01 0102D    22200005 A            LI,R2    5                 IOP MS DVC ADR                  *A02
      958   01 0102E    22600002 A            LI,R6    2                 SUBCHANNELS                     *A02
      959   01 0102F    02200090 A            LCI      9                                                 *A02
      960   01 01030    2B2012D8              STM,R2   CTLPTM1+2         SAVE                            *A02
      961   01 01031    6AF019D6              BAL,R15  CTLP              SET UP FOR OPTION CONTROLS
      962   01 01032    22C01C4F              LI,R12   T0010
      963   01 01033    35C013A7              STW,R12  TEST
      964   01 01034    35C0132E              STW,R12  NEXTEST
      965   01 01035    D2C0132E              LH,R12   *NEXTEST          GET CURRENT TEST NUMBER         *A04
      966   01 01036    4BC035AE              AND,R12  =X'FFFF'          MASK                            *A04
      967   01 01037    35C003F2              STW,R12  DCA+2                                             *A04
      968   01 01038    22C03079              LI,R12   LASTEST                                           *A03
      969   01 01039    35C012EA              STW,R12  ENDTEST
      970   01 0103A    22C00001 A            LI,R12   1                 SHOULD MTL BE REWOUND           *A05
      971   01 0103B    48C0132F              EOR,R12  NOTMTL                                            *A05
      972   01 0103C    4BC012F5              AND,R12  FIRSTIME                                          *A05
      973   01 0103D    4BC0133A              AND,R12  PHASMODE                                          *A05
      974   01 0103E    68301041              BCR,3    INTL20            NO                              *A02
      975   01 0103F    22000949              LI,R0    DA(TAPEREW)       YES                             *A02
      976   01 01040    6AF018A3              BAL,R15  RECOUT            TO I/O SUBROUTINE               *A02
      977   01 01041    22000000 A   INTL20   LI,R0    0                 PURGE ERROR & MISC CONTROL IND  *A02
      978   01 01042    351012FC              STW,R1   FUNCTION          FUNCTION INDICATOR              *A02
      979   01 01043    350012D1              STW,R0   COMPFLAG
      980   01 01044    350012D0              STW,R0   COMPASS
      981   01 01045    350012CC              STW,R0   CM                CLEAR CLOCK MARGIN CONTROL      *A02
      982   01 01046    350012E4              STW,R0   DCOFFA
      983   01 01047    3500130A              STW,R0   INHOUT                                            *A02
      984   01 01048    350012F8              STW,R0   FORCEP1                                           *A02
      985   01 01049    35001334              STW,R0   PASSCNT
      986   01 0104A    35001333              STW,R0   PASS1
      987   01 0104B    35001335              STW,R0   PCPMODE                                           *A02
      988   01 0104C    35001339              STW,R0   PHASFLAG
      989   01 0104D    3500133A              STW,R0   PHASMODE          PHASE MODE INDICATOR            *A02
      990   01 0104E    331012F4              MTW,1    FINDCOOK
      991   01 0104F    22100001 A            LI,R1    1                 INHIBIT SUCCESS TYPE OUT
      992   01 01050    351012F4              STW,R1   FINDCOOK                                          *A02
      993   01 01051    3510130B              STW,R1   INHTSUC
      994   01 01052    351012FC              STW,R1   FUNCTION          FUNCTION INDICATOR              *A02
      995   01 01053    22000002 A            LI,R0    2
      996   01 01054    350013AA              STW,R0   TSTIDX1
      997   01 01055    22000064 A            LI,R0    100
      998   01 01056    350012CE              STW,R0   CMPCNT
      999   01 01057    22300003 A            LI,R3    3                 UPDATE PARAMETERS               *A02
     1000   01 01058    228000F1 A            LI,R8    X'F1'             'OM'                            *A02
     1001   01 01059    758633F1              STB,R8   PLINE#OM,X3       FUNCTIONAL CONTROL              *A02
     1002   01 0105A    229000F0 A            LI,R9    X'F0'                                             *A02
     1003   01 0105B    759233F3              STB,R9   PLINE#OM+2,X1     PHASE MODE CONTROL              *A02
     1004   01 0105C    759033F0              STB,R9   PLINE#J+4         SUCCESS IND OF 'J' PARAMETER    *A02
     1005   01 0105D    759633F0              STB,R9   PLINE#J+4,X3      CLOCK MARGIN CONTROL            *A02
     1006   01 0105E    6800150D              B        INIT04
     1007                            *************************************************************************
     1008                            *                                                                      *
     1009                            *                 PARAMETER SEQUENCE                                   *
     1010                            *  THE FOLLOWING ROUTINES PROCESS THE PARAMETER ENTRIES ASSOCIATED     *
     1011                            *  WITH THE OBJECT TEST PROGRAM.                                       *
     1012                            *                                                                      *
     1013                            ************************************************************************
     1014         01 0105F           TESTNO   EQU      %
     1015   01 0105F    22200000 A            LI,R2    0                 RESET SUCCESS MSG HEADER FLAG   *A04
     1016   01 01060    352013A4              STW,R2   SUCSHD                                            *A04
     1017   01 01061    35601359              STW,LINK RTNFIELD
     1018   01 01062    EA6003D6              BAL,LINK *#SCANPARAM
     1019   01 01063    00000E88              DATA     BA(#PARAM1)
     1020   01 01064    680010BA              B        TSL70             NO ENTRY
     1021   01 01065    68001066              B        %+1               PADDING
     1022   01 01066    EA6003C2              #ETHCON  %+1
            01 01067    000041A0
     1023   01 01068    22200000 A            LI,R2    0                 CHECK THE NUMBER OF INPUT DIGITS
     1024   01 01069    51200006 A            CH,R2    LINK              TOO MANY
     1025   01 0106A    693010B6              BCS,3    TSL60             OUTPUT ERROR MESSAGE
     1026   01 0106B    356013AC     TSL04    STW,LINK TSTPRAM1
     1027   01 0106C    EA6003D6              BAL,LINK *#SCANPARAM
     1028   01 0106D    00000E90              DATA     BA(#PARAM2)
     1029   01 0106E    680010BD              B        TSL74
     1030   01 0106F    68001070              B        %+1
     1031   01 01070    EA6003C2              #ETHCON  #PARAM2           CONVERT P2
            01 01071    00000E90
     1032   01 01072    22200000 A            LI,R2    0                 CHECK THE NUMBER OF
     1033   01 01073    51200006 A            CH,R2    LINK               INPUT DIGITS
     1034   01 01074    693010B6              BCS,3    TSL60             BRANCH IF TOO MANY
     1035   01 01075    356013AD              STW,LINK TSTPRAM2          SAVE P2
     1036   01 01076    32B013AC     TSL08    LW,R11   TSTPRAM1         CHECK P1 FOR ZERO ENTRY
     1037   01 01077    6920107A              BCS,2    %+3
     1038   01 01078    B2B013A7              LW,R11   *TEST
     1039   01 01079    25B00070 A            SLS,R11  -16
     1040   01 0107A    31B013AD              CW,R11   TSTPRAM2          DOES P1 EXCEED P2
     1041   01 0107B    68201080              BCR,2    TSL10             NO
     1042   01 0107C    EA6003CC              #TYPE    TSELTMG3          YES.  INDICATE ERROR
            01 0107D    0000D624 A
     1043   01 0107E    02200010 A            LCI      1
     1044   01 0107F    E80003C9              B        *#FIDLE%          RE-ENTER
     1045         01 01080           TSL10    EQU      %
     1046   01 01080    6AF010C7              BAL,R15  TSL90             VALIDATE P1
     1047   01 01081    3550132E              STW,R5   NEXTEST           UPDATE STARTING TEST
     1048   01 01082    355013A7              STW,R5   TEST
     1049   01 01083    D2A0132E              LH,R10   *NEXTEST          UPDATE CURRENT TEST NUMBER      *A04
     1050   01 01084    4BA035AE              AND,R10  =X'FFFF'          MASK                            *A04
     1051   01 01085    35A003F2              STW,R10  DCA+2                                             *A04
     1052   01 01086    32B013AD              LW,R11   TSTPRAM2                                          *A02
     1053   01 01087    68201091              BCR,2    TSL24               P2 EQUALS ZERO-- SKIP OUT     *A04
     1054   01 01088    6AF010C7              BAL,R15  TSL90             VALIDATE P2
     1055   01 01089    355012EA              STW,R5   ENDTEST           UPDATE LAST TEST.
     1056   01 0108A    02200010 A            LCI      1
     1057   01 0108B    E80003C9              B        *#FIDLE%          BACK TO GUIDE
     1058   01 0108C    3550132E     TSL20    STW,R5   NEXTEST           NEW TEST NUMBER
     1059   01 0108D    355013A7              STW,R5   TEST
     1060   01 0108E    D2A0132E              LH,R10   *NEXTEST          UPDATE CURRENT TEST NUMBER      *A04
     1061   01 0108F    4BA035AE              AND,R10  =X'FFFF'          MASK                            *A04
     1062   01 01090    35A003F2              STW,R10  DCA+2                                             *A04
     1063   01 01091    02200000 A   TSL24    LCI      0                                                 *A04
     1064   01 01092    EA6003C9              BAL,LINK  *#FIDLE%         RETURN VIA GUIDE
     1065   01 01093    0000135C              DATA     RTNGO03
     1066   01 01094    33000009 A   TSL30    MTW,0    R9
     1067   01 01095    693010A3              BCS,3    TSL40
     1068   01 01096    EA6003C3              #HTECON  R10               USE ALTERNATE MESSAGE
            01 01097    0000000A A
     1069   01 01098    22100004 A            LI,R1    4                 CONVERT TO PRINT CODE
     1070   01 01099    22200003 A            LI,R2    3
     1071   01 0109A    F2920006 A   TSL35    LB,R9    *LINK,X1
     1072   01 0109B    7594359A              STB,R9   TSELTMG5+9,X2
     1073   01 0109C    33100001 A            MTW,1    R1
     1074   01 0109D    33100002 A            MTW,1    R2
     1075   01 0109E    21100008 A            CI,R1    8
     1076   01 0109F    6930109A              BCS,3    TSL35
     1077   01 010A0    EA6003CC              #TYPE    TSELTMG5         PRINT ALTERNATE MESSAGE
            01 010A1    0000D644 A
     1078   01 010A2    680010B4              B        TSL50
     1079   01 010A3    EA6003C3     TSL40    #HTECON  R9                CONVERT PRECEEDING TEST NUMBER TO
            01 010A4    00000009 A
     1080   01 010A5    22100001 A            LI,R1    1                 PRINT CODE
     1081   01 010A6    B2920006 A            LW,R9    *LINK,X1          STORE CONVERTED NUMBER IN PRINT
     1082   01 010A7    35903583              STW,R9   TSELTMG2+12        MESSAGE
     1083   01 010A8    EA6003C3              #HTECON  R10               CONVERT PROCEEDING TEST NUMBER TO
            01 010A9    0000000A A
     1084   01 010AA    22100004 A            LI,R1    4                  PRINT CODE
     1085   01 010AB    22200003 A            LI,R2    3
     1086   01 010AC    F2920006 A            LB,R9    *LINK,X1
     1087   01 010AD    75943584              STB,R9   TSELTMG2+13,X2
     1088   01 010AE    33100001 A            MTW,1    R1
     1089   01 010AF    33100002 A            MTW,1    R2
     1090   01 010B0    21100008 A            CI,R1    8
     1091   01 010B1    693010AC              BCS,3    %-5
     1092   01 010B2    EA6003CC              #TYPE    TSELTMG2          TYPE CLOSEST TEST NUMBER
            01 010B3    0000D5DC A
     1093   01 010B4    02200010 A   TSL50    LCI      1
     1094   01 010B5    E80003C9              B        *#FIDLE%
     1095         01 010B6           TSL60    EQU      %
     1096   01 010B6    EA6003CC              #TYPE    TSELTMG6          TYPE TOO MANY DIGITS
            01 010B7    0000D670 A
     1097   01 010B8    02200010 A            LCI      1
     1098   01 010B9    E80003C9              B        *#FIDLE%
     1099         01 010BA           TSL70    EQU      %
     1100   01 010BA    D260132E              LH,R6    *NEXTEST          TEST NUMBER
     1101   01 010BB    331013A9              MTW,1    TSLFLAG           NULL FLAG
     1102   01 010BC    6800106B              B        TSL04
     1103   01 010BD    330013A9     TSL74    MTW,0    TSLFLAG
     1104   01 010BE    692010C2              BCS,2    TSL76
     1105   01 010BF    D26012EA              LH,R6    *ENDTEST
     1106   01 010C0    4B6035AE              AND,R6   =X'FFFF'
     1107   01 010C1    68001075              B        TSL08-1
     1108   01 010C2    33F013A9     TSL76    MTW,-1   TSLFLAG
     1109   01 010C3    EA6003CC              #TYPE    TSELTMG4          NO ENTRY
            01 010C4    0000D638 A
     1110   01 010C5    02200010 A            LCI      1
     1111   01 010C6    E80003C9              B        *#FIDLE%
     1112         01 010C7           TSL90    EQU      %
     1113   01 010C7    22200000 A            LI,R2    0
     1114   01 010C8    22501C4F              LI,R5    T0010             FIRST TEST NUMBER               *A01
     1115   01 010C9    22900000 A            LI,R9    0
     1116   01 010CA    32A41C4F     TSL92    LW,R10   T0010,X2          SEARCH FOR MATCHING TEST NUMBERS *A03
     1117   01 010CB    25A00070 A            SLS,R10  -16
     1118   01 010CC    31A0000B A            CW,R10   R11               R11 CONTAINS THE ENTRY TEST NO.
     1119   01 010CD    E830000F A            BCR,3    *R15              TEST NUMBER COMPARES TO ENTRY VALUE
     1120   01 010CE    69201094              BCS,2    TSL30             TEST NUMBER > ENTRY VALUE
     1121   01 010CF    35A00009 A            STW,R10  R9                SAVE OLD TEST NUMBER
     1122   01 010D0    32541C4F              LW,R5    T0010,X2
     1123   01 010D1    4B5035AF              AND,R5   =X'3F'            DISPLACEMENT
     1124   01 010D2    30200005 A            AW,R2    R5                COMPUTE NEXT TEST MOD DISPLACEMENT
     1125   01 010D3    35200005 A            STW,R2   R5
     1126   01 010D4    20501C4F              AI,R5    T0010             CHECK FOR MAXIMUM TEST LIMIT
     1127   01 010D5    21503079              CI,R5    LASTEST                                           *A03
     1128   01 010D6    682010CA              BCR,2    TSL92             NO                              *A03
     1129   01 010D7    EA6003CC              #TYPE    TSELTMG1          TEST # EXCEEDS RANGE, PRINT STATUS.
            01 010D8    0000D5A8 A
     1130   01 010D9    22503079              LI,R5    LASTEST           DEFAULT VALUE                   *A03
     1131   01 010DA    E800000F A            B        *R15              RETURN
     1132                            *
     1133                            *                 COOKBOOK GENERATE ROUTINE
     1134         01 010DB           GENCOKBK EQU      %
     1135   01 010DB    22A00001 A            LI,R10   1                 CONTROL FLAGS
     1136   01 010DC    35A01339              STW,R10  PHASFLAG
     1137   01 010DD    35A0133A              STW,R10  PHASMODE                                          *A02
     1138   01 010DE    22000000 A            LI,R0    0
     1139   01 010DF    350012F4              STW,R0   FINDCOOK          INHIBIT SEARCH FOR COOKDATA
     1140   01 010E0    350012E4              STW,R0   DCOFFA            DEVICE ON INDICATION            *A03
     1141   01 010E1    331012FD              MTW,1    GENADR            M.T.U. TO BE WRITTEN TO
     1142   01 010E2    3260130E              LW,R6    IOPA
     1143   01 010E3    4F0C4000 A            RIO,0    0,X6              RESET
     1144   01 010E4    226FD8F0 A            LI,R6    -10000
     1145   01 010E5    656010E5              BIR,R6   %                 WAIT FOR DEVICE ON-LINE STATE
     1146   01 010E6    22A0153E              LI,R10   INIT90            BEGINNING ADDRESS               *A02
     1147   01 010E7    B5A01304              STW,R10  *IMTLT0
     1148   01 010E8    E8001305              B        *IMTLT1
     1149                            *
     1150                            *                 'OP' PARAMETER ROUTINE
     1151   01 010E9    0000CFD0              DATA     BA(PLINE#OP),BA(OPHDR2),BA(OPHDR1)
            01 010EA    0000D3F8
            01 010EB    0000D3D0
     1152         01 010EC           PARAMOP  EQU      %
     1153   01 010EC    22200000 A            LI,R2    0                 RESET SUCCESS MSG HEADER FLAG   *A04
     1154   01 010ED    352013A4              STW,R2   SUCSHD                                            *A04
     1155   01 010EE    70200006 A            LC       LINK
     1156   01 010EF    693010F2              BCS,3    %+3               ANY CHANGE
     1157   01 010F0    02200010 A            LCI      1                 NO
     1158   01 010F1    E80003C9              B        *#FIDLE%
     1159   01 010F2    35601332              STW,LINK PARAMRTN          SAVE RETURN LINKAGE
     1160   01 010F3    EA6003C2              #ETHCON,4 PLINEIN,2        CONVERT IOP-DEVICE PARAMETER TO
            01 010F4    0400CFFA
     1161   01 010F5    21601AFF A            CI,LINK  X'1AFF'           VERIFY IOP NUMBER
     1162   01 010F6    692010FA              BCS,2    PROP10            >10
     1163   01 010F7    4B6035B0              AND,R6   =X'1EFF'          MASK
     1164   01 010F8    356012D8              STW,R6   CTLPTM1+2         SAVE IOP-DEVICE ADDRESS
     1165   01 010F9    680010FC              B        %+3
     1166   01 010FA    22A000F1 A   PROP10   LI,R10   '1'              PARAMETER ONE ERROR
     1167   01 010FB    6800113F              B        PROP90            REPORT ERROR
     1168   01 010FC    EA6003C2              #ETHCON,2 PLINEIN+2,1      CONVERT DIO/MI PARAMETER TO HEX
            01 010FD    0200D001
     1169   01 010FE    2160007F A            CI,R6    127               >127
     1170   01 010FF    68201102              BCR,2    PROP11            NO
     1171   01 01100    22A000F2 A            LI,R10   '2'              YES-- PRINT PARAMETER P2
     1172   01 01101    6800113F              B        PROP90            REPORT ERROR
     1173   01 01102    356012D9     PROP11   STW,R6  CTLPTM1+3         SAVE DIO/MI ADDRESS
     1174   01 01103    222FFFFE A            LI,R2    -2
     1175   01 01104    EA6003C2              #ETHCON,1 PLINEIN+3,2      CONVERT CHANNEL A SELECT BIT
            01 01105    0100D006
     1176   01 01106    21600001 A   PROP12   CI,R6    1                 >1
     1177   01 01107    6820110A              BCR,2    %+3
     1178   01 01108    22A0F3F4 A            LI,R10   '34'              PARAMETER THREE AND/OR FOUR     *A02
     1179   01 01109    68001153              B        PROP94             ERROR
     1180   01 0110A    356412DC              STW,R6   CTLPTM1+6,X2                                      *A02
     1181   01 0110B    EA6003C2              #ETHCON,1 PLINEIN+4        CONVERT CHANNEL B SELECT BIT
            01 0110C    0100D008
     1182   01 0110D    65201106              BIR,R2   PROP12
     1183   01 0110E    EA6003C2              #ETHCON,1 PLINEIN+5        CONVERT SUBCHANNEL OPTION
            01 0110F    0100D00C
     1184   01 01110    21600002 A            CI,R6    2                 >2
     1185   01 01111    68201114              BCR,2    PROP28            NO
     1186   01 01112    22A000F5 A            LI,R10   '5'               PARAMETER FIVE ERROR
     1187   01 01113    6800113F              B        PROP90
     1188   01 01114    356012DC     PROP28   STW,R6   CTLPTM1+6         SAVE
     1189   01 01115    222FFFFE A            LI,R2    -2
     1190   01 01116    EA6003C2              #ETHCON,1 PLINEIN+6,1      CHANNEL A FOUR BYTE OPTION
            01 01117    0100D011
     1191   01 01118    21600001 A   PROP30   CI,R6    1                 >1
     1192   01 01119    6820111C              BCR,2    PROP38            PARAMETERS SIX AND/OR SEVEN ERROR
     1193   01 0111A    22A0F6F7 A            LI,R10   '67'              PARAMETER FOUR ERROR
     1194   01 0111B    68001153              B        PROP94
     1195   01 0111C    356412DF     PROP38   STW,R6   CTLPTM1+9,X2      SAVE CHANNEL A FOUR BYTE OPTION
     1196   01 0111D    EA6003C2              #ETHCON,1 PLINEIN+6,3      CHANNEL B FOUR BYTE OPTION
            01 0111E    0100D013
     1197   01 0111F    65201118              BIR,R2   PROP30
     1198   01 01120    222FFFFE A            LI,R2    -2
     1199   01 01121    EA6003C2              #ETHCON,1 PLINEIN+7,3      BURST MODE
            01 01122    0100D017
     1200   01 01123    21600001 A   PROP40   CI,R6    1                 >1
     1201   01 01124    68201127              BCR,2    PROP48            YES
     1202   01 01125    22A0F8F9 A            LI,R10   '89'              NO-- PARAMETERS EIGHT AND/OR NINE
     1203   01 01126    68001153              B        PROP94             ERROR
     1204   01 01127    356412E1     PROP48   STW,R6   CTLPTM1+11,X2     SAVE PARAMETER BIT
     1205   01 01128    EA6003C2              #ETHCON,1 PLINEIN+8,1
            01 01129    0100D019
     1206   01 0112A    65201123              BIR,R2   PROP40
     1207   01 0112B    EA6003C2              #ETHCON,1 PLINEIN+9,1      MEMORY TO MEMORY MOVE           *A02
            01 0112C    0100D01D
     1208   01 0112D    21600001 A            CI,R6    1                  OPTION BIT
     1209   01 0112E    68201131              BCR,2    PROP58
     1210   01 0112F    22A0F1F0 A            LI,R10   '10'              PARAMETER TEN ERROR
     1211   01 01130    6800113F              B        PROP90
     1212   01 01131    356012E1     PROP58   STW,R6   CTLPTM1+11
     1213   01 01132    221FFFD9 A            LI,R1    -39               COPY PARAMETER LINE INTO
     1214   01 01133    72A23408              LB,R10   PLINEIN+10,X1      PRINT FIELD
     1215   01 01134    75A233FE              STB,R10  PLINE#OP+10,X1
     1216   01 01135    65101133              BIR,R1   %-2
     1217   01 01136    02200000 A            LCI      0
     1218   01 01137    2B0012A4              STM,R0   BUFFER1           SAVE
     1219   01 01138    2A0012D6              LM,R0    CTLPTM1           PARAMETERS
     1220   01 01139    6AF019D6              BAL,R15  CTLP              UPDATE CONTROLS
     1221   01 0113A    6AF019BD              BAL,R15  CKDVCON           RE-ESTABLISH ON-LINE OFF-LINE   *A02
     1222   01 0113B    02200000 A            LCI      0
     1223   01 0113C    2A0012A4              LM,R0    BUFFER1
     1224   01 0113D    02200010 A            LCI      1                 SET CC
     1225   01 0113E    E80003C9              B        *#FIDLE%
     1226                            *
     1227         01 0113F           PROP90   EQU      %
     1228   01 0113F    21A00100 A            CI,R10   X'100'            SINGLE OR DOUBLE DIGIT
     1229   01 01140    69201148              BCS,2    PROP91            DOUBLE
     1230   01 01141    75A0000B A            STB,R10  R11               SINGLE
     1231   01 01142    22100001 A            LI,R1    1
     1232   01 01143    75A23509              STB,R10  OPMG1+1,X1        DIGIT TO MESSAGE FIELD
     1233   01 01144    20100001 A            AI,R1    1
     1234   01 01145    22A00040 A            LI,R10   ' '               BLANK UNUSED FIELD
     1235   01 01146    75A23509              STB,R10  OPMG1+1,X1
     1236   01 01147    6800114E              B        PROP92+1          SAVE FIELD NUMBER
     1237   01 01148    32B035B1     PROP91   LW,R11   =X'0A000000'
     1238   01 01149    22100002 A            LI,R1    2
     1239   01 0114A    75A23509              STB,R10  OPMG1+1,X1        SECOND DIGIT TO PRINT FIELD
     1240   01 0114B    33F00001 A            MTW,-1   R1
     1241   01 0114C    25A00078 A            SLS,R10  -8
     1242   01 0114D    75A23509     PROP92   STB,R10  OPMG1+1,X1        FIRST DIGIT TO PRINT FIELD
     1243   01 0114E    22A0001C A            LI,R10   28                BYTE COUNT
     1244   01 0114F    22100003 A            LI,R1    3
     1245   01 01150    75A23508              STB,R10  OPMG1,X1
     1246   01 01151    22A0D423              LI,R10   BA(OPMG1)+3       PARTIAL MESSAGE
     1247   01 01152    6800115F              B        PROP98            BYTE ADDRESS
     1248         01 01153           PROP94   EQU      %
     1249   01 01153    22100001 A            LI,R1    1                 DOUBLE PARAMETER ERROR
     1250   01 01154    75A23509              STB,R10  OPMG1+1,X1
     1251   01 01155    25A00078 A            SLS,R10  -8
     1252   01 01156    75A0000B A            STB,R10  R11               SAVE FIELD NUMBER
     1253   01 01157    22100002 A            LI,R1    2
     1254   01 01158    75A23508              STB,R10  OPMG1,X1
     1255   01 01159    22A00040 A            LI,R10   X'40'
     1256   01 0115A    75A23509              STB,R10  OPMG1+1,X1
     1257   01 0115B    22A00060 A            LI,R10   '-'               RESTORE
     1258   01 0115C    22100003 A            LI,R1    3
     1259   01 0115D    75A23508              STB,R10  OPMG1,X1
     1260   01 0115E    22A0D420              LI,R10   BA(OPMG1)         FULL MESSAGE
     1261         01 0115F           PROP98   EQU      %
     1262   01 0115F    35A01161              STW,R10  %+2               MESSAGE BYTE ADDRESS
     1263   01 01160    EA6003CC              #TYPE    %                 TYPE MESSAGE
            01 01161    00004584 A
     1264   01 01162    4BB035B2              AND,R11  =X'FF00000'
     1265   01 01163    7260000B A            LB,LINK  R11
     1266   01 01164    E8001332              B        *PARAMRTN
     1267                            *
     1268                            *                 'OM' PARAMETER LINE ROUTINE
     1269   01 01165    0000CFC4              DATA     BA(PLINE#OM),BA(OMHDR2),BA(OMHDR1)
            01 01166    0000D3C4
            01 01167    0000D3B8
     1270         01 01168           PARAMOM  EQU      %
     1271   01 01168    22100000 A            LI,R1    0                 RESET SUCCESS MSG HEADER FLAG   *A04
     1272   01 01169    351013A4              STW,R1   SUCSHD                                            *A04
     1273   01 0116A    70200006 A            LC       LINK
     1274   01 0116B    6930116E              BCS,3    %+3               ANY CHANGE
     1275   01 0116C    02200010 A            LCI      1                 NO
     1276   01 0116D    E80003C9              B        *#FIDLE%
     1277   01 0116E    35601332              STW,LINK PARAMRTN          SAVE RETURN LINKAGE
     1278   01 0116F    EA6003C2              #ETHCON,1 PLINEIN,3       FUNCTIONAL CONTROL
            01 01170    0100CFFB
     1279   01 01171    21600001 A            CI,R6    1
     1280   01 01172    68201175              BCR,2    PROM20
     1281   01 01173    22A000F1 A            LI,R10   '1'
     1282   01 01174    6800113F              B        PROM90
     1283   01 01175    356012FC     PROM20   STW,R6   FUNCTION
     1284   01 01176    EA6003C2              #ETHCON,1 PLINEIN+2,1     COMPARE CONTROL
            01 01177    0100D001
     1285   01 01178    21600001 A            CI,R6    1
     1286   01 01179    6820117C              BCR,2    PROM26                                            *A02
     1287   01 0117A    22A000F2 A            LI,R10   '2'
     1288   01 0117B    6800113F              B        PROP90
     1289   01 0117C    3160133A     PROM26   CW,R6    PHASMODE          ANY CHANGES IN PHASE MODE       *A02
     1290   01 0117D    68301185              BCR,3    PROM30            NO                              *A02
     1291   01 0117E    3560133A              STW,R6   PHASMODE          SAVE                            *A02
     1292   01 0117F    33000006 A            MTW,0    R6                IS NEW PHASE MODE OFF           *A02
     1293   01 01180    69201185              BCS,2    PROM30            NO                              *A02
     1294   01 01181    330012D1              MTW,0    COMPFLAG          WAS COMPARE FLAG OFF            *A02
     1295   01 01182    68301185              BCR,3    PROM30            YES                             *A02
     1296   01 01183    22000949              LI,R0    DA(TAPEREW)       NO-- REWIND TAPE FOR COOKBOOK   *A02
     1297   01 01184    6AF018A3              BAL,R15  RECOUT                                            *A02
     1298   01 01185    221FFFF5 A   PROM30   LI,R1    -11               UPDATE PARAMETER LINE           *A02
     1299   01 01186    72A23401              LB,R10   PLINEIN+3,X1
     1300   01 01187    75A233F4              STB,R10  PLINE#OM+3,X1
     1301   01 01188    65101186              BIR,R1   %-2               LOOP
     1302   01 01189    02200010 A            LCI      1                 SET CC
     1303   01 0118A    E80003C9              B        *#FIDLE%
     1304         01 0113F           PROM90   EQU      PROP90
     1305                            *
     1306                            *
     1307                            *
     1308                            *                 'J' PARAMETER LINE ROUTINE
     1309   01 0118B    0000CFB0              DATA     BA(PLINE#J),BA(JHDR)
            01 0118C    0000D3A4
     1310         01 0118D           PARAJ    EQU      %
     1311   01 0118D    22000000 A            LI,R0    0                 RESET SUCCESS MSG HEADER FLAG   *A04
     1312   01 0118E    350013A4              STW,R0   SUCSHD                                            *A04
     1313   01 0118F    70200006 A            LC       LINK                                              *A04
     1314   01 01190    69301193              BCS,3    %+3               ANY CHANGES
     1315   01 01191    02200010 A            LCI      1                 NO
     1316   01 01192    E80003C9              B        *#FIDLE%
     1317   01 01193    35601332              STW,R6   PARAMRTN
     1318   01 01194    EA6003C2              #ETHCON,4 PLINEIN,2        CONVERT TO HEX
            01 01195    0400CFFA
     1319   01 01196    21601AFF A            CI,LINK  X'1AFF'           VERIFY PARAMETER ONE RANGE
     1320   01 01197    6820119A              BCR,2    %+3               YES
     1321   01 01198    22A000F1 A            LI,R10   '1'
     1322   01 01199    6800113F              B        PAJ90
     1323   01 0119A    CD000006 A            TIO,R0   *LINK
     1324   01 0119B    688011A0              BCR,8    PAJ10
     1325   01 0119C    EA6003CC              #TYPE    NOMREGMG
            01 0119D    0000D388 A
     1326   01 0119E    22600001 A            LI,R6    1
     1327   01 0119F    E8001332              B        *PARAMRTN
     1328   01 011A0    356012D7     PAJ10    STW,LINK CTLPTM1+1         MESSAGE DEVICE
     1329   01 011A1    3560131A              STW,LINK LPDVC              DEVICE ADDRESS
     1330   01 011A2    35600397              STW,LINK #PRTADDR
     1331   01 011A3    EA6003C2              #ETHCON,4 PLINEIN+2,1
            01 011A4    0400D001
     1332   01 011A5    21601AFF A            CI,LINK  X'1AFF'
     1333   01 011A6    682011A9              BCR,2    %+3
     1334   01 011A7    22A000F2 A            LI,R10   '2'
     1335   01 011A8    6800113F              B        PAJ90
     1336   01 011A9    CD000006 A            TIO,R0   *LINK
     1337   01 011AA    688011AF              BCR,8    PAJ20
     1338   01 011AB    EA6003CC              #TYPE    NOCREGMG
            01 011AC    0000D36C A
     1339   01 011AD    22600002 A            LI,R6    2
     1340   01 011AE    E8001332              B        *PARAMRTN
     1341   01 011AF    356012D6     PAJ20    STW,LINK CTLPTM1           COMMUNICATION DEVICE ADDRESS
     1342   01 011B0    22000000 A            LI,R0    0
     1343   01 011B1    72A03402              LB,R10   PLINEIN+4         IS SUCCESS INDICATION REQUESTED
     1344   01 011B2    4BA035B3              AND,R10  =X'F'
     1345   01 011B3    682011BC              BCR,2    PAJ30             NO                              *A02
     1346   01 011B4    21A00001 A            CI,R10   1
     1347   01 011B5    692011BA              BCS,2    PAJ25             YES                             *A03
     1348   01 011B6    3300130B              MTW,0    INHTSUC           WAS INHIBIT INDICATOR OFF       *A03
     1349   01 011B7    683011BF              BCR,3    PAJ40             YES-- DON'T MODIFY CONTROLS     *A03
     1350   01 011B8    350012E7              STW,R0   ENDSUC                                            *A03
     1351   01 011B9    680011BE              B        PAJ40-1           RESTART SUCCESS PRINT           *A03
     1352   01 011BA    22A000F3 A   PAJ25    LI,R10   '3'                                               *A03
     1353   01 011BB    6800113F              B        PAJ90
     1354   01 011BC    350012E7     PAJ30    STW,R0   ENDSUC                                            *A02
     1355   01 011BD    22000001 A            LI,R0    1                 NO-- INHIBIT SUCCESS INDICATION
     1356   01 011BE    3500130B              STW,R0   INHTSUC
     1357   01 011BF    22B00000 A   PAJ40    LI,R11   0
     1358   01 011C0    32A03402              LW,R10   PLINEIN+4
     1359   01 011C1    4BA035B3              AND,R10  =X'F'
     1360   01 011C2    21A00001 A            CI,R10   1
     1361   01 011C3    682011C6              BCR,2    %+3
     1362   01 011C4    22A000F4 A            LI,R10   '4'               GREATER THAN 1                  *A03
     1363   01 011C5    6800113F              B        PAJ90
     1364   01 011C6    31A012CD              CW,R10   CMCTRL            ANY CHANGES
     1365   01 011C7    683011D3              BCR,3    PAJ60             NO
     1366   01 011C8    3300000A A            MTW,0    R10
     1367   01 011C9    682011D0              BCR,2    PAJ50+1           NOT SET,SET CM OFF              *A03
     1368   01 011CA    6CB00045 A            RD,R11   X'45'             SET,TEST VOLTAGE MARGIN STATE   *A03
     1369   01 011CB    4BB035B4              AND,R11  =X'100000'        BIT 11
     1370   01 011CC    693011CF              BCS,3    PAJ50             YES                             *A03
     1371   01 011CD    EA6003CC              #TYPE    VMMG
            01 011CE    0000D68C A
     1372   01 011CF    32B035B5     PAJ50    LW,R11   =X'400000'
     1373   01 011D0    35A012CD              STW,R10  CMCTRL            SAVE CM CONTROLS
     1374   01 011D1    EDB01294              WD,R11   *GP00             SET CM
     1375   01 011D2    35B012CC              STW,R11  CM                SAVE CLOCK MARGIN CONTROL BIT   *A02
     1376   01 011D3    221FFFFB A   PAJ60    LI,R1    -5
     1377   01 011D4    32A23403              LW,R10   PLINEIN+5,X1
     1378   01 011D5    35A233F1              STW,R10  PLINE#J+5,X1
     1379   01 011D6    651011D4              BIR,R1   %-2
     1380   01 011D7    32A012D6              LW,R10   CTLPTM1
     1381   01 011D8    35A01315              STW,R10  KBDVC
     1382   01 011D9    35A00396              STW,R10  #TOADDR
     1383   01 011DA    6AF019BD              BAL,R15  CKDVCON           RE-ESTABLISH ON-LINE OFF-LINE   *A02
     1384   01 011DB    02200010 A            LCI      1
     1385   01 011DC    E80003C9              B        *#FIDLE%
     1386         01 0113F           PAJ90    EQU      PROP90
     1387                            *                                                                   *A03
     1388                            *                 '&' PARAMETER LINE ROUTINE                        *A03
     1389                            *                 REPORT CURRENT TEST NO. & LOCATION.               *A03
     1390   01 011DD    6A601BF2     READSTAT BAL,LINK STATMSGS          OUTPUT STATUS MESSAGE ON & KEYIN*A03
     1391   01 011DE    E80003CB              B        *#RETURN%         RETURN TO POINT OF INTERRUPT    *A03
     1392                            ***********************************************************************
     1393                            *                                                                     *
     1394                            *                 COMMAND DOUBLE WORD TABLE                           *
     1395                            *                                                                     *
     1396                            ***********************************************************************
     1397   01 011FA                          ORG      X'11FA'                                           *A06
            01 011FA
     1398   01 011FA    0C004A97     CMDTA    GEN,8,24 12,BA(BUFFER1)+7   READ REVERSE                   *A06
     1399   01 011FB    00000008 A            GEN,8,8,16  0,0,8          BYTE COUNT = 8                  *A06
     1400   01 011FC    0C004A9B     CMDTB    GEN,8,24  12,BA(BUFFER1)+11   READ REVERSE                 *A06
     1401   01 011FD    0000000B A            GEN,8,8,16  0,0,11         BYTE COUNT = 11                 *A06
     1402   01 011FE    0C004A9A     CMDTC    GEN,8,24  12,BA(BUFFER1)+10  READ REVERSE                  *A06
     1403   01 011FF    0000000B A            GEN,8,8,16 0,0,11          BYTE COUNT = 11                 *A06
     1404   01 01200    02004A90     CMDT1    GEN,8,24       2,BA(BUFFER1)   READ
     1405   01 01201    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT = 1
     1406   01 01202    01004A90     CMDT2    GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1407   01 01203    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1408   01 01204    02004A90     CMDT3    GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1409   01 01205    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT=2
     1410   01 01206    01FFFFFF A   CMDT4    GEN,8,24       1,X'FFFFFF'     WRITE, MAXIMUM BYTE ADDRESS
     1411   01 01207    01000000 A            GEN,8,8,16     1,0,0           SKIP FLAG,BYTE COUNT=MAX
     1412   01 01208    01004A91     CMDT5    GEN,8,24       1,BA(BUFFER1)+1 WRITE, BUFFER+1
     1413   01 01209    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1414   01 0120A    01004A92     CMDT6    GEN,8,24       1,BA(BUFFER1)+2 WRITE, BUFFER+2
     1415   01 0120B    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1416   01 0120C    01004A93     CMDT7    GEN,8,24       1,BA(BUFFER1)+3 WRITE, BUFFER+3
     1417   01 0120D    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1418   01 0120E    02004A91     CMDT8    GEN,8,24       2,BA(BUFFER1)+1 READ, BUFFER+1
     1419   01 0120F    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1420   01 01210    02004A92     CMDT9    GEN,8,24       2,BA(BUFFER1)+2 READ, BUFFER+2
     1421   01 01211    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT=1
     1422   01 01212    02004A93     CMDT10   GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER+3
     1423   01 01213    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT = 1
     1424   01 01214    01004A90     CMDT11   GEN,8,24       1,BA(BUFFER1)   WRITE,BUFFER
     1425   01 01215    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT = 2
     1426   01 01216    01004A90     CMDT12   GEN,8,24       1,BA(BUFFER1)   WRITE,BUFFER
     1427   01 01217    00000003 A            GEN,8,8,16     0,0,3           BYTE COUNT = 3
     1428   01 01218    01004A90     CMDT13   GEN,8,24       1,BA(BUFFER1)   WRITE,BUFFER
     1429   01 01219    00000004 A            GEN,8,8,16     0,0,4           BYTE COUNT = 4
     1430   01 0121A    01004A90     CMDT14   GEN,8,24       1,BA(BUFFER1)   WRITE,BUFFER
     1431   01 0121B    00000005 A            GEN,8,8,16     0,0,5           BYTE COUNT = 5
     1432   01 0121C    02004A91     CMDT15   GEN,8,24       2,BA(BUFFER1)+1 READ, BUFFER+1
     1433   01 0121D    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT = 2
     1434   01 0121E    02004A91     CMDT16   GEN,8,24       2,BA(BUFFER1)+1 READ, BUFFER+1
     1435   01 0121F    00000003 A            GEN,8,8,16     0,0,3           BYTE COUNT = 3
     1436   01 01220    02004A90     CMDT17   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1437   01 01221    00000004 A            GEN,8,8,16     0,0,4           BYTE COUNT = 4
     1438   01 01222    01004A93     CMDT19   GEN,8,24       1,BA(BUFFER1)+3 WRITE, BUFFER+3
     1439   01 01223    00000006 A            GEN,8,8,16     0,0,6           BYTE COUNT=6
     1440   01 01224    01004A93     CMDT19A  GEN,8,24       1,BA(BUFFER1)+3 WRITE, BUFFER+3
     1441   01 01225    00000008 A            GEN,8,24       0,8             BYTE COUND = 8
     1442   01 01226    01004A90     CMDT20   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1443   01 01227    00000008 A            GEN,8,8,16     0,0,8           BYTE COUNT=8
     1444   01 01228    02004A93     CMDT21   GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER+3
     1445   01 01229    00000006 A            GEN,8,8,16     0,0,6           BYTE COUNT=6
     1446   01 0122A    02004A93     CMDT21A  GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER+3
     1447   01 0122B    00000008 A            GEN,8,24       0,8             BYTE COUNT = 8
     1448   01 0122C    02004A90     CMDT22   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1449   01 0122D    00000008 A            GEN,8,8,16     0,0,8           BYTE COUNT=8
     1450   01 0122E    00004A90     CMDT22A  GEN,8,24       0,BA(BUFFER1)   READ, BUFFER
     1451   01 0122F    00000010 A            GEN,8,8,16     0,0,16          BYTE COUNT = 16
     1452   01 01230    01004A93     CMDT23   GEN,8,24       1,BA(BUFFER1)+3 WRITE,BUFFER
     1453   01 01231    0000000E A            GEN,8,8,16     0,0,14          BYTE COUNT= 14
     1454   01 01232    01004A90     CMDT24   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1455   01 01233    0000000C A            GEN,8,8,16     0,0,12          BYTE COUNT = 12
     1456   01 01234    02004A92     CMDT25   GEN,8,24       2,BA(BUFFER1)+2 READ, BUFFER
     1457   01 01235    00000013 A            GEN,8,8,16     0,0,19          BYTE COUNT = 19
     1458   01 01236    00004A90     CMDT25A  GEN,8,24       0,BA(BUFFER1)   READ, BUFFER
     1459   01 01237    80000008 A            GEN,8,8,16     X'80',0,8       DATA CHAIN SET, BC = 8
     1460   01 01238    01004A98     CMDT25B  GEN,8,24       1,BA(BUFFER1+2) WRITE,BUFFER+2
     1461   01 01239    00000004 A            GEN,8,8,16     0,0,4           BYTE COUNT=4
     1462   01 0123A    00004A90     CMDT25C  GEN,8,24       0,BA(BUFFER1)   READ, BUFFER
     1463   01 0123B    80000004 A            GEN,8,8,16     X'80',0,4       DATA CHAIN SET, BC = 4
     1464   01 0123C    01004A98     CMDT25D  GEN,8,24       1,BA(BUFFER1+2) WRITE,BUFFER+2
     1465   01 0123D    00000008 A            GEN,8,8,16     0,0,8           BYTE COUNT=8
     1466   01 0123E    02004A92     CMDT26A  GEN,8,24       2,BA(BUFFER1)+2 READ, BUFFER
     1467   01 0123F    80000001 A            GEN,8,8,16     X'80',0,1       DATA CHAIN SET, BYTE COUNT=1
     1468   01 01240    01004A90     CMDT26B  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1469   01 01241    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT = 2
     1470   01 01242    01004A91     CMDT27A  GEN,8,24       1,BA(BUFFER1)+1 WRITE, BUFFER
     1471   01 01243    80000002 A            GEN,8,8,16     X'80',0,2       DATA CHAIN SET, BYTE COUNT=2
     1472   01 01244    02004A90     CMDT27B  GEN,8,24       2,BA(BUFFER1)   READ,  BUFFER
     1473   01 01245    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT = 1
     1474   01 01246    02004A92     CMDT28A  GEN,8,24       2,BA(BUFFER1)+2 READ, BUFFER+2
     1475   01 01247    20000002 A            GEN,8,8,16     X'20',0,2       COMMAND CHAIN, BYTE COUNT= 2
     1476   01 01248    01004A93     CMDT28B  GEN,8,24       1,BA(BUFFER1)+3 WRITE, BUFFER+3
     1477   01 01249    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT =2
     1478   01 0124A    01004A92     CMDT29A  GEN,8,24       1,BA(BUFFER1)+2 WRITE, BUFFER
     1479   01 0124B    20000002 A            GEN,8,8,16     X'20',0,2       COMMAND CHAIN, BYTE COUNT =2
     1480   01 0124C    02004A90     CMDT29B  GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1481   01 0124D    00000004 A            GEN,8,8,16     0,0,4           BYTE COUNT = 4
     1482   01 0124E    02004A93     CMDT30A  GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER
     1483   01 0124F    A0000001 A            GEN,8,8,16     X'A0',0,1       DATA & COMMAND CHAINING, CNT=1
     1484   01 01250    01004A91     CMDT30B  GEN,8,24       1,BA(BUFFER1)+1 WRITE, BUFFER
     1485   01 01251    00000002 A            GEN,8,8,16     0,0,2           BYTE COUNT=2
     1486   01 01252    01004A90     CMDT31A  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1487   01 01253    20000002 A            GEN,8,8,16     X'20',0,2       COMMAND CHAIN, BYTE COUNT= 2
     1488   01 01254    08000926     TFCH01   GEN,8,3,21     8,0,DA(CMDT29B) TRANSFER IN CHANNEL
     1489   01 01255    00000001 A            GEN,8,8,16     0,0,1           DUMMY, PARTIAL COMMAND
     1490   01 01256    01004A90     CMDT32A  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1491   01 01257    20000001 A            GEN,8,8,16     X'20',0,1       COMMAND CHAIN, BYTE COUNT = 1
     1492   01 01258    0800092A     TFCH02   GEN,8,3,21     8,0,DA(TFCH01)  TRANSFER IN CHANNEL
     1493   01 01259    00000001 A            GEN,8,8,16     0,0,1           PARTIAL DUMMY COMMAND
     1494   01 0125A    02004A93     CMDT33A  GEN,8,24       2,BA(BUFFER1)+3 READ, BUFFER
     1495   01 0125B    00000001 A            GEN,8,8,16     0,0,1           BYTE COUNT = 1
     1496   01 0125C    02004A90     CMDT34   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1497   01 0125D    40000003 A            GEN,8,8,16     X'40',0,3       INTERRUPT ON BYTE COUNT = 0
     1498   01 0125E    01004A90     CMDT35   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1499   01 0125F    10000002 A            GEN,8,8,16     X'10',0,2       INTERRUPT ON CHANNEL END
     1500   01 01260    01004A90     CMDT36   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1501   01 01261    04000004 A            GEN,8,8,16     4,0,4           INTERRUPT ON UNUSUAL END
     1502   01 01262    02004A90     CMDT37   GEN,8,24       2,BA(BUFFER1)   READ,  BUFFER
     1503   01 01263    08000008 A            GEN,8,8,16     8,0,8           HALT ON TRANSMISSION ERROR
     1504   01 01264    01004A90     CMDT38   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1505   01 01265    0800000A A            GEN,8,8,16     8,0,10          HTE, BYTE COUNT = 10
     1506   01 01266    01004A90     CMDT39   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1507   01 01267    0A00000A A            GEN,8,8,16     X'A',0,10       HTE & SIL, BYTE CNT = 10
     1508   01 01268    01004A90     CMDT40   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER
     1509   01 01269    01000002 A            GEN,8,8,16     1,0,2           SKIP,BYTE COUNT = 2
     1510   01 0126A    02004A90     CMDT41   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER
     1511   01 0126B    01000003 A            GEN,8,8,16     1,0,3           SKIP, BYTE COUNT = 3
     1512   01 0126C    0C004A93     CMDT42   GEN,8,24       12,BA(BUFFER1)+3 READ BACKWARDS, BUFFER+3
     1513   01 0126D    00000003 A            GEN,8,24       0,3             BYTE COUNT = 3
     1514   01 0126E    02004AF8 N   CMDT44   GEN,8,22,2     2,BUFFER2,0     READ,BUFFER 2
     1515   01 0126F    00000004 A            GEN,8,8,14,2   0,0,1,0         WORD CONT = 1
     1516   01 01270    01004A90 N   CMDT45   GEN,8,22,2     1,BUFFER1,0     WRITE, BUFFER 1
     1517   01 01271    00000004 A            GEN,8,8,14,2   0,0,1,0         WORD COUNT = 2
     1518   01 01272    01004A90     CMDT46A  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER1
     1519   01 01273    80000004 A            GEN,8,24       X'80',4         DATA CHAIN, B.C. = 4
     1520   01 01274    02004A94     CMDT46B  GEN,8,24       2,BA(BUFFER1+1)  READ, BUFFER1+1
     1521   01 01275    00000004 A            GEN,8,24       0,4             BYTE COUNT = 4
     1522   01 01276    02004AF8     CMDT47A  GEN,8,24       2,BA(BUFFER2)   READ, BUFFER2
     1523   01 01277    80000004 A            GEN,8,24       X'80',4         DATA CHAIN, B.C. = 4
     1524   01 01278    02004AFC     CMDT47B  GEN,8,24       2,BA(BUFFER2+1)  READ, BUFFER2 + 1
     1525   01 01279    00000004 A            GEN,8,24       0,4             BYTE COUNT = 4
     1526   01 0127A    01004A90     CMDT48   GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER1
     1527   01 0127B    1400000C A            GEN,8,24       X'14',12        ICE,IUE  B.C. = 12
     1528   01 0127C    02004AF8     CMDT49   GEN,8,24       2,BA(BUFFER2)   READ, BUFFER2
     1529   01 0127D    0000000C A            GEN,8,24       0,12            B.C. = 12
     1530   01 0127E    02004A90     CMDT50   GEN,8,24       2,BA(BUFFER1)   READ, BUFFER1
     1531   01 0127F    0C000008 A            GEN,8,24       X'C',8          HTE,IUE  B.C. = 8
     1532   01 01280    01004A92     CMDT51   GEN,8,24       1,BA(BUFFER1)+2  WRITE, BUFFER+2            *A04
     1533   01 01281    00000008 A            GEN,8,24       0,8             B.C.=8                      *A04
     1534   01 01282    01004A90     CMDT52A  GEN,8,24       1,BA(BUFFER1)   WRITE, BUFFER 1             *A04
     1535   01 01283    20000001 A            GEN,8,24       X'20',1         COMMAND CHAINNING, BC=1     *A04
     1536   01 01284    08080000 A   CMDT52B  GEN,8,3,21     8,0,X'80000'    TRANSFER IN CHANNEL,MAX ADR *A04
     1537   01 01285    00000000 A            GEN,8,24       0,0                                         *A04
     1538   01 01286    4B000000 A   RECBACK  GEN,8,24       X'4B',0
     1539   01 01287    00000000 A            GEN,8,24       0,0
     1540   01 01288    73000000 A   TAPEND   GEN,8,24       X'73',0
     1541   01 01289    00000000 A            GEN,8,24       0,0
     1542   01 0128A    53000000 A   FILEFWD  GEN,8,24       X'53',0
     1543   01 0128B    00000000 A            DATA           0
     1544   01 0128C    0200E514     READREC  GEN,8,24 2,BA(ENDADDR+401)  COMPARE INPUT BUFFER
     1545   01 0128D    020007D0 A            GEN,8,24       2,2000
     1546   01 0128E    5B000000 A   FILEBACK GEN,8,24       X'5B',0
     1547   01 0128F    00000000 A            DATA           0
     1548   01 01290    0100DED4     TAPECMND GEN,8,24 1,BA(ENDADDR+1)    SINGLE PHASE OUTPUT BUFFER
     1549   01 01291    00000000 A            DATA           0


     1551   01 01292    33000000 A   TAPEREW  GEN,8,24       X'33',0     TAPE REWIND COMMAND             *A02
     1552   01 01293    00000000 A            DATA           0                                           *A02
     1553                            ***********************************************************************
     1554                            *                                                                     *
     1555                            *                 GENERAL CONSTANTS                                   *
     1556                            ***********************************************************************
     1557                            *
     1558                            *                 DIO GROUP CODES
     1559   01 01294    00002000 A   GP00     GEN,16,4,7,5   0,2,0,0
     1560   01 01295    00002001 A   GP01     GEN,16,4,7,5   0,2,0,1
     1561   01 01296    00002002 A   GP02     GEN,16,4,7,5   0,2,0,2
     1562   01 01297    00002003 A   GP03     GEN,16,4,7,5   0,2,0,3
     1563   01 01298    00002008 A   GP08     GEN,16,4,7,5   0,2,0,8
     1564   01 01299    00002009 A   GP09     GEN,16,4,7,5   0,2,0,9
     1565   01 0129A    0000200A A   GP10     GEN,16,4,7,5   0,2,0,10
     1566   01 0129B    0000200B A   GP11     GEN,16,4,7,5   0,2,0,11
     1567   01 0129C    0000200C A   GP12     GEN,16,4,7,5   0,2,0,12
     1568   01 0129D    0000200D A   GP13     GEN,16,4,7,5   0,2,0,13
     1569   01 0129E    0000200E A   GP14     GEN,16,4,7,5   0,2,0,14
     1570   01 0129F    0000200F A   GP15     GEN,16,4,7,5   0,2,0,15
     1571                            *
     1572                            *                 PROGRAM DATA CONSTANTS AND VARIABLES
     1573   01 012A0    00000000 A   AIOCC    DATA     0                 AIO CONDITION CODES
     1574   01 012A1    00000000 A   AIOSKIP  DATA     0                 INHIBITS AIO IN HANDLER, WHEN SET
     1575   01 012A2    00000000 A   AIOSTATS DATA     0                 AIO STATUS (R)
     1576         00001300           ARM      EQU      X'1300'           ARM GROUP 0                     *A03
     1577         00001200           ARMABLE  EQU      X'1200'           ARM AND ENABLE GROUP 0
     1578   01 012A3    68001012     BCRINTL  B        INTL02            RECOVERY INSTRUCTION
     1579                                     BOUND    8
     1580                            BUFFER1  TEXTCS   '                             ';
     1581                                              ,'                              ';
     1582                                              ,'                              ';
     1583         01 012A4                             ,'         '
     1584                                     BOUND    8
     1585         01 012BE           BUFFER2  TEXTCS   '         '
     1586   01 012C1    00000000 A   BURSTCHA DATA     0                 BURST MODE, CHANNEL A
     1587   01 012C2    00000000 A   BURSTCHB DATA     0                 BURST MODE, CHANNEL B
     1588   01 012C3    00000000 A   BURSTM   DATA     0                 BURST MODE REQUIRED
     1589   01 012C4    00000000 A   CBGEN    DATA     0                 CAUSES COOKBOOK GENERATION WHEN SET
     1590   01 012C5    00000000 A   CCUTEST  DATA     0                 CCU INDICATOR
     1591         00000020           CELL20   EQU      X'20'
     1592         00000021           CELL21   EQU      X'21'
     1593   01 012C6    00000000 A   CHANNELA DATA     0                 SET IF CHAN. A IS TO BE TESTED
     1594   01 012C7    00000000 A   CHANNELB DATA     0                 SET IF CHAN. B OPTION TO BE TESTED
     1595   01 012C8    00000000 A   CHBCTRL  DATA     0                 GROUP BIAS FOR CHANNEL B        *A03
     1596   01 012C9    00000000 A   CHDRCTL  DATA     0                 SUCCESS HEADER CONTROL FLAG     *A04
     1597   01 012CA    00000000 A   CHLATEST DATA     0                 CHANNEL 'A' INDICATOR
     1598   01 012CB    00000000 A   CHLBTEST DATA     0                 CHANNEL 'B' INDICATOR
     1599   01 012CC    00000000 A   CM       DATA     0                 CLOCK MARGIN CONTROL WORD       *A01
     1600   01 012CD    00000000 A   CMCTRL   DATA     0                 IOP CLOCK MARGIN CONTROL
     1601   01 012CE    00000064 A   CMPCNT   DATA     100
     1602   01 012CF    00000001 A   COMDVC   DATA     1                 TEMPORARY SAVE FOR COM DVC ADR  *A04
     1603   01 012D0    00000000 A   COMPASS  DATA     0                 SET = COMPARE-FOR-ERR-DETECTION PASS
     1604   01 012D1    00000000 A   COMPFLAG DATA     0                 SET WHEN COMPARE IS TO BE MADE
     1605   01 012D2    00000000 A   COMPSRV3 DATA     0                 NO SIO IF SET: PHASEING ALGORITHYM
     1606   01 012D3    00000000 A   COMPSRV4 DATA     0                 INHIBITS ORDER OUT WHEN SET:  "  "
     1607   01 012D4    00000000 A   COMPSTRT DATA     0                 START ADDRESS OF COMPARE DATA
     1608   01 012D5    00000000 A   COUNTER  DATA     0
     1609                                     BOUND    8                                                 *A02
     1610   01 012D6    00000001 A   CTLPTM1  DATA     1    C(R0)        KEYBOARD PRINTER ADR (IOP & DVC #)
     1611   01 012D7    00000202 A            DATA     514  C(R1)        LINE PRINTER ADR (IOP & DVC #)
     1612   01 012D8    00000005 A            DATA     5    C(R2)        IOP-MS ADR (IOP & MS DVC #)
     1613   01 012D9    00000000 A            DATA     0    C(R3)        IOP DIO/MI ADDRESS
     1614   01 012DA    00000001 A            DATA     1    C(R4)        A ONE IF CHANNEL'A' IS AVAILABLE
     1615   01 012DB    00000001 A            DATA     1    C(R5)        A ONE IF CHANNEL'B'IS AVAILABLE
     1616   01 012DC    00000002 A            DATA     2    C(R6)        CHANNEL A SUBCHANNEL CONFIGU-
     1617                            *                                    RATION:  ZERO-- 0-7, ONE-- 8-15,
     1618                            *                                    TWO-- 16-23
     1619   01 012DD    00000001 A            DATA     1    C(R7)        A ONE IF THE FOUR BYTEOPTION IS
     1620                            *                                    AVAILABLE ON CHANNEL A
     1621   01 012DE    00000001 A            DATA     1    C(R8)        A ONE IF THE FOUR BYTE OPTION IS
     1622                            *                                    AVAILABLE ON CHANNEL B
     1623   01 012DF    00000001 A            DATA     1    C(R9)        A ONE IF THE BURST MODE OPTION IS
     1624                            *                                    AVAILABLE ON CHANNEL A
     1625   01 012E0    00000001 A            DATA     1    C(R10)       A ONE IF THE BURST MODE OPTION IS
     1626                            *                                    AVAILABLE ON CHANNEL B
     1627   01 012E1    00000001 A            DATA     1    C(R11)       A ONE IF MEMORY-TO-MEMORY MOVE
     1628                            *                                    OPTION IS AVAILABLE
     1629   01 012E2    00000000 A   DATAPNT  DATA     0                 DATA PRINT INDICATOR            *A02
     1630   01 012E3    00000000 A   DATABYTE DATA     0
     1631   01 012E4    00000000 A   DCOFFA   DATA     0                 DC OFF LINE IND., CHAN A
     1632   01 012E5    00000000 A   DIOADR   DATA     0
     1633   01 012E6    00000000 A   DIOPRET  DATA     0                 DIO PRE-TEST INDICATOR
     1634         00001100           DISARM   EQU      X'1100'           DISARM GROUP 0
     1635         01 01294           DISPLAY  EQU      GP00
     1636         00001600           ENABLE   EQU      X'1600'           ENABLE GROUP 0                  *A05
     1637   01 012E7    00000000 A   ENDSUC   DATA     0                 SUCCESS INDICATION CONTROL      *A02
     1638   01 012E8    00000000 A   FAMADR   DATA     0                 FAM ADDRESS FOR FAULT CONSIDERATION
     1639   01 012E9    00000000 A   ENDPSUC1 DATA     0                 END SUCCESS IND FOR SUCCESS PRINT *A03
     1640   01 012EA    00003079     ENDTEST  DATA     LASTEST
     1641   01 012EB    00000000 A   FAMBAD   DATA     0                 FAM FAULT INDICATOR             *A03
     1642   01 012EC    00000000 A   FAM2OPT  DATA     0                 FAM (SUBCHANNELS) 0-15
     1643   01 012ED    00000000 A   FAM3OPT  DATA     0                 FAM (SUBCHANNELS) 0-23
     1644                                     BOUND    8
     1645   01 012EE    80000000 A   FAMPAT1  DATA,8   X'8000000082000000'  ZEROS PATTERN FOR FAM        *A03
                        82000000
     1646   01 012F0    80FFFFFF A   FAMPAT2  DATA,8   X'80FFFFFF82FFFFFF'                               *A01
                        82FFFFFF
     1647   01 012F2    04000000 A   FAMPAT3  DATA,8   X'400000004000000'
                        04000000
     1648   01 012F4    00000001 A   FINDCOOK DATA     1                 SET FOR MTL COMPDATA SEARCH
     1649   01 012F5    00000000 A   FIRSTIME DATA     0                 FIRST TIME INDICATOR FOR INITIAL
     1650   01 012F6    00000000 A   FOLDEX   DATA     0                 DISPLAY FOLDOVER INDEX KEY
     1651   01 012F7    00000000 A   FOLDEXC  DATA     0                 COMPARE FOLDOVER INDEX KEY
     1652   01 012F8    00000000 A   FORCEP1  DATA     0
     1653   01 012F9    00000000 A   FOURBYTA DATA     0                 FOUR BYTE OPTION, CHANNEL A
     1654   01 012FA    00000000 A   FOURBYTB DATA     0                 FOUR BYTE OPTION, CHANNEL B
     1655   01 012FB    00000000 A   FOURBYTE DATA     0                 FOUR BYTE OPTION
     1656   01 012FC    00000001 A   FUNCTION DATA     1                 FUNCTION TEST MODE FLAG
     1657   01 012FD    00000000 A   GENADR   DATA     0                 M.T.U. ADDRESS FOR CBGEN
     1658   01 012FE    00000000 A   GUIDLINK DATA     0                 SAVE FOR GUIDE LINK REG.
     1659                                     BOUND    8                                                 *A02
     1660   01 01300    000014AA N   IDLINK   GEN,15,17,4,4,16,4,4   0,GO02,,,,,   IDLE LINKAGE PSD      *A02
                        00000000
     1661   01 01302    00000000 A   IETTCC04 DATA     0                 IE TRAP TCC 0-4                 *A02
     1662   01 01303    0F0013B8     IEXPSD   XPSD,0   IETT              INSTRUCTION EXCEPTION TRAP XPSD
     1663   01 01304    00000000 A   IMTLT0   DATA     0                 LINKS TO THE
     1664   01 01305    00000000 A   IMTLT1   DATA     0                  M.T.L.
     1665   01 01306    00000000 A   IMTLT2   DATA     0                   WHEN
     1666   01 01307    00000000 A   IMTLT3   DATA     0                    RUNNING CBGEN
     1667         01 012E3           INDATA   EQU      DATABYTE          INPUT DATA BYTE
     1668                                     BOUND    8
     1669   01 01308    00001012 N   INHBTIT  GEN,15,17,4,4,16,4,4   0,INTL02,0,7,0,0,0 INITIALIZE,INHBTS SET
                        07000000
     1670   01 0130A    00000000 A   INHOUT   DATA     0                 INHIBIT OUTPUT
     1671   01 0130B    00000001 A   INHTSUC  DATA     1                 INHIBIT SUCCESS MESSAGE  PRINT
     1672   01 0130C    00000000 A   INTRTN   DATA     0                 I/O INTERRUPT RETURN
     1673   01 0130D    00000000 A   IOINTRSW DATA     0                 INTERRUPT SWITCH
     1674   01 0130E    00000000 A   IOPA     DATA     0                 IOP, CHANNEL A ADDRESS
     1675   01 0130F    00000000 A   IOPB     DATA     0                 IOP, CHANNEL B ADDRESS
     1676   01 01310    00000000 A   IOPNO    DATA     0                 CURRENT IOP NUMBER              *A03
     1677   01 01311    00000000 A   IOPMSAP  DATA     0                 MS ADDRESS IN COMPLEMENT FORM
     1678   01 01312    00000000 A   IOPMSADR DATA     0                 DEDICATED IOP & MS ADDREESSES   *A03
     1679   01 01313    000013D0     IORETURN DATA     BAD               I/O INTERRUPT RETURN (MODIFIABLE)
     1680   01 01314    0F0013BC     IOXPSD   XPSD,0   IOI               XPSD FOR I/O
     1681   01 01315    00000000 A   KBDVC    DATA     0
     1682   01 01316    00003FFF A   LASTMEM  DATA     X'3FFF'           MAX MEMORY
     1683   01 01317    00000000 A   LINECNT  DATA     0                 DISPLAY CODE LINE COUNT STORAGE
     1684   01 01318    00000000 A   LINERR   DATA     0                 INDICATES MISCOMPARE LINE       *A04
     1685   01 01319    00000000 A   LINEFOLD DATA     0                 DISPLAY FOLDOVER INDICATOR
     1686   01 0131A    00000000 A   LPDVC    DATA     0
     1687   01 0131B    7FFDFFF2 A   MASK8    DATA     X'7FFDFFF2'       MASK FOR DISPLAY GROUP8
     1688   01 0131C    FFFDECEE A   MASK9    DATA     X'FFFDECEE'       MASK FOR DISPLAY GROUP 9
     1689   01 0131D    00FFFFFF A   MASK10   DATA     X'FFFFFF'         MASK FOR DISPLAY GROUP 10
     1690   01 0131E    00FFFFFF A   MASK11   DATA     X'FFFFFF'         MASK FOR DISPLAY GROUP 11
     1691   01 0131F    0000FFFD A   MASK14   DATA     X'FFFD'           MASK FOR DISPLAY GROUP 14
     1692   01 01320    0000FF7B A   MASKSIM  DATA     X'FF7B'           MASK FOR GROUP 8 DISPLAY FOR MS SIM.
     1693   01 01321    0F0013C0     MFXPSD   XPSD,0   MFII              MEMORY FAULT INTERRUPT XPSD
     1694   01 01322    00000000 A   MISCOMP  DATA     0                 INDICATES MISCOMPARE HAS OCCURRED
     1695   01 01323    00000000 A   MOVEOPT  DATA     0
     1696   01 01324    00000000 A   MOVEOPTA DATA     0
     1697   01 01325    00000008 A   MM8      DATA     8                 DEVICE ADDRESS FOR MM MOVE, 8
     1698   01 01326    00000009 A   MM9      DATA     9                 DEVICE ADDRESS FOR MM MOVE, 9
     1699   01 01327    00000000 A   MSA      DATA     0                 MS(A) ADDRESS
     1700   01 01328    00000000 A   MSB      DATA     0                 MS(B) ADDRESS
     1701   01 01329    00000000 A   MSADRAP  DATA     0                 MS ADR IN COMPLEMENT FORM
     1702   01 0132A    00000000 A   MSADRBP  DATA     0                 MS ADR IN COMPLEMENT FORM
     1703   01 0132B    00000000 A   MSADRA   DATA     0
     1704   01 0132C    00000000 A   MSADRB   DATA     0
     1705   01 0132D    00000000 A   MSADRPTY DATA     0
     1706   01 0132E    00001C4F     NEXTEST  DATA     T0010             NEXT TEST MODULE ADDRESS WORD   *A04
     1707   01 0132F    00000001 A   NOTMTL   DATA     1                 INDICATES LOAD WAS NOT FROM MTL
     1708   01 01330    00000001 A   NDCDLY   DATA     1                 NO DEVICE DELAY                 *A04
     1709   01 01331    00000000 A   OUTDEX   DATA     0                 SINGLE PHASE OUTPUT INDEX
     1710   01 01332    00000000 A   PARAMRTN DATA     0
     1711   01 01333    00000000 A   PASS1    DATA     0
     1712   01 01334    00000000 A   PASSCNT  DATA     0
     1713   01 01335    00000000 A   PCPMODE  DATA     0
     1714   01 01336    0F0013C4     PFXPSD   XPSD,0   PFII              PROCESSOR FAULT INTERRUPT XPSD
     1715   01 01337    00000000 A   PHASAVE  DATA     0                 POINTER & RETURN FOR PREPHS ROUTINES
     1716   01 01338    00000000 A   PHASEAIO DATA     0                 INDICATES THAT AIO WILL BE PHASED.
     1717   01 01339    00000000 A   PHASFLAG DATA     0
     1718   01 0133A    00000000 A   PHASMODE DATA     0                 FLAG FOR SINGLE PHASE CONTROL
     1719   01 0133B    0000F0F1 A   PHASNUMB DATA     X'0000F0F1'       DICTIONARY OF PHASE TYPES
     1720   01 0133C    F0F2F0F3 A            DATA     X'F0F2F0F3'
     1721   01 0133D    F0F4F0F5 A            DATA     X'F0F4F0F5'
     1722   01 0133E    F0F6F0F7 A            DATA     X'F0F6F0F7'
     1723   01 0133F    F0F8F0F9 A            DATA     X'F0F8F0F9'
     1724   01 01340    F1F0F1F1 A            DATA     X'F1F0F1F1'
     1725   01 01341    F1F2E2E7 A            DATA     X'F1F2E2E7'
     1726   01 01342    C940F0F0 A            DATA     X'C940F0F0'
     1727   01 01343    00000000 A   PHASTEST DATA     0                 INDICATES TEST IS PHASEABLE
     1728   01 01344    00000000 A   PNTDBL   DATA     0                 PRINT DOUBLE REGISTERS IND      *A03
     1729   01 01345    00000000 A   PTTCC04  DATA     0                 PARITY TRAP TCC 0-4             *A02
     1730   01 01346    00000000 A   PTYCTR   DATA     0
     1731   01 01347    0F0013C8     PTYXPSD  XPSD,0   PTT               PARITY TRAP XPSD
     1732   01 01348    00000000 A   PUTOUT   DATA     0                 OUTPUT ENABLE DURING COMPARE
     1733   01 01349                 REGISTER RES      16                REG. STORE DURING SINGLE PHASE
     1734         00040400           RESET    EQU      X'40400'          BIT 13 & 21-- RESET AND RELEASE
     1735         00000022           RESETIO  EQU      X'22'             RESET I/O INTERRUPT INHIBIT BIT
     1736   01 01359    00000000 A   RTNFIELD DATA     0
     1737                                     BOUND    8
     1738   01 0135A    10001AB4 N   RTIDLE   GEN,4,11,17,4,4,16,4,4  1,0,IDLER,0,0,0,0,0
                        00000000
     1739   01 0135C    000014B0     RTNGO03  DATA     GO03
     1740   01 0135D    00000000 A            DATA     0
     1741   01 0135E    00000000 A   R15CTLP  DATA     0                 SAVE LINK R15
     1742   01 0135F    00000000 A   R15PRTN  DATA     0                 R15 SAVE                        *A02
     1743   01 01360    00000000 A   SAVE     DATA     0,0               GENERAL PURPOSE SAVE WORD
            01 01361    00000000 A
     1744                                     BOUND    8
     1745   01 01362    00000000 A   SAVEGIET DATA     0,0
            01 01363    00000000 A
     1746   01 01364    00000000 A   SAVEGIO  DATA     0,0               XPSD SAVE FOR GUIDE I/O
            01 01365    00000000 A
     1747   01 01366    00000000 A   SAVEGMFI DATA     0,0
            01 01367    00000000 A
     1748   01 01368    00000000 A   SAVEGPFI DATA     0,0
            01 01369    00000000 A
     1749   01 0136A    00000000 A   SAVEGPTY DATA     0,0
            01 0136B    00000000 A
     1750   01 0136C    00000000 A   SAVEGWDT DATA     0,0               SAVE FOR OLD WATCHDOG TIMER TRAP
            01 0136D    00000000 A
     1751   01 0136E    00000000 A   SAVERTN  DATA     0
     1752   01 0136F    00000000 A   SAVER15S DATA     0                 RTRN SAVE FOR SUPER RESET
     1753                                     BOUND    8                                                 *A03
     1754   01 01370    00000000 A   SAVR8    DATA     0,0               REGISTERS 8 & 9 SAVE            *A03
            01 01371    00000000 A
     1755   01 01372    00000000 A   SAVR10   DATA     0,0               REGISTERS 10 & 11 SAVE          *A03
            01 01373    00000000 A
     1756   01 01374                 SEQBUFF  RES      16                SINGLE PHASE ALGORITHYM SEQUENCE
     1757   01 01384    00000000 A   SEQDEX   DATA     0                 SINGLE PHASE ALGORITHYM INDEX
     1758                                     BOUND    8                                                 *A02
     1759   01 01386    00000000 A   SAVREG   DATA     0,0,0,0,0,0,0,0   REGISTER TWO SAVE               *A02
            01 01387    00000000 A
            01 01388    00000000 A
            01 01389    00000000 A
            01 0138A    00000000 A
            01 0138B    00000000 A
            01 0138C    00000000 A
            01 0138D    00000000 A
     1760   01 0138E    00000000 A            DATA     0,0,0,0,0,0,0,0                                   *A02
            01 0138F    00000000 A
            01 01390    00000000 A
            01 01391    00000000 A
            01 01392    00000000 A
            01 01393    00000000 A
            01 01394    00000000 A
            01 01395    00000000 A
     1761   01 01396    00000000 A   SHORTLP  DATA     0                 SHORT LOOP COUNTER
     1762                                     BOUND    8
     1763   01 01398    12345678 A   STG123   DATA,8   X'123456789ABCDEF0'    D A T A
                        9ABCDEF0
     1764   01 0139A    23456789 A   STG234   DATA,8   X'23456789ABCDEF01'             P A T T E R N S
                        ABCDEF01
     1765   01 0139C    000000FE A   STGFED   DATA,8   X'FEDCBA9876'                            FOR
                        DCBA9876
     1766   01 0139E    0000000F A   STG0F1   DATA,8   X'0F1E2D3C4B'          D A T A   O U T
                        1E2D3C4B
     1767   01 013A0    00000010 A   STG102   DATA,8   X'1020304050'                            T E S T S
                        20304050
     1768   01 013A2    00607080 A   STG607   DATA,8   X'60708090A0B0C0'
                        90A0B0C0
     1769   01 013A4    00000000 A   SUCSHD   DATA     0                 MESSAGE HEADER INDICATOR
     1770   01 013A5    00000000 A   SUBCHLN  DATA     0                 SUBCHANNEL OPTION-- 0--FAM 0-7,
     1771                            *                                    1-- FAM 0-15, 2-- FAM 0-23.
     1772   01 013A6    00000000 A   SUCPASS2 DATA     0                 SUCCESS PASS TWO CONTROL
     1773         01 01297           SYNC     EQU      GP03              SYNC GROUP
     1774   01 013A7    00001C4F     TEST     DATA     T0010
     1775   01 013A8    FFFFFCE0 A   TESTCNT  DATA     -800              COUNT FOR ON-LINE & OFF-LINE    *A03
     1776   01 013A9    00000000 A   TSLFLAG  DATA     0                 TEST SELECT FLAG-- IND 0 ENTRIES
     1777   01 013AA    00000002 A   TSTIDX1  DATA     2                 INDEX FOR SUCCESS LINE MSG
     1778   01 013AB    00000000 A   TSTNMBER DATA     0                 DISP.ALGO. TEST # STORE
     1779   01 013AC    00000000 A   TSTPRAM1 DATA     0                 SAVE TEST # 1 PARAMETER
     1780   01 013AD    00000000 A   TSTPRAM2 DATA     0                 SAVE TEST # 2 PARAMETER
     1781   01 013AE    F0F1F2F3 A   VALTAB   TEXT     '0123456789'      PARAMETER VALIDATION TABLE
            01 013AF    F4F5F6F7 A
            01 013B0    F8F94040 A
     1782   01 013B1    00000000 A   WDSAVE   DATA     0                 TEMP STR FOR W.D. DATA IN PREPHS17
     1783   01 013B2    00000000 A   WDTIND   DATA     0                 WATCHDOG TIMER TRAP IND.
     1784   01 013B3    00000000 A   WDTTCC04 DATA     0                 WATCHDOG TIMER TRAP TCC 0-4     *A02
     1785   01 013B4    0F0013CC     WDTXPSD  XPSD,0   WDTT              WDT XPSD                        *A02
     1786   01 013B5    4040405C A   %ERRFLAG DATA     X'4040405C'       CODES FOR
     1787   01 013B6    40404040 A   %SPACES  DATA     X'40404040'        FORMATTING COMPARE OUTPUT
     1788                            ***********************************************************************
     1789                            *                                                                     *
     1790                            *                 INTERRUPT-TRAP PSD QUADWORDS                        *
     1791                            *                                                                     *
     1792                            ***********************************************************************
     1793                                     BOUND    8
     1794                            *                                   INSTRUCTION EXCEPTION
     1795   01 013B8    00000000 A   IETT     DATA     0,0               OLD PSD
            01 013B9    00000000 A
     1796   01 013BA    000018BE N            GEN,15,17,4,4,16,4,4       0,IET,0,0,0,0,0   OLD PSD
                        00000000
     1797   01 013BC    00000000 A   IOI      DATA     0,0
            01 013BD    00000000 A
     1798   01 013BE    000018D7 N            GEN,15,17,4,4,16,4,4       0,IOINTR,0,2,0,0,0 I/O INHIBIT SET
                        02000000
     1799                            *                                   MEMORY FAULT
     1800   01 013C0    00000000 A   MFII     DATA     0,0               OLD PSD
            01 013C1    00000000 A
     1801   01 013C2    00001900 N            GEN,15,17,4,4,16,4,4       0,MFITR,0,0,0,0,0   NEW PSD
                        00000000
     1802                            *                                   PROCESSOR FAULT
     1803   01 013C4    00000000 A   PFII     DATA     0,0               OLD PSD
            01 013C5    00000000 A
     1804   01 013C6    00001916 N            GEN,15,17,4,4,16,4,4       0,PFITR,0,0,0,0,0   NEW PSD
                        00000000
     1805                            *                                   PARITY TRAP
     1806   01 013C8    00000000 A   PTT      DATA     0,0               OLD PSD
            01 013C9    00000000 A
     1807   01 013CA    0000192E N            GEN,15,17,4,4,16,4,4       0,PT,0,0,0,0,0   OLD PSD
                        00000000
     1808                            *                                   WATCHDOG TIMER TRAP DOUBLE WORDS
     1809   01 013CC    00000000 A   WDTT     DATA     0,0               OLD PSD
            01 013CD    00000000 A
     1810   01 013CE    0000194D N            GEN,15,17,4,4,16,4,4       0,WDTRAP,0,0,0,0,0  NEW PSD
                        00000000
     1811                            ************************************************************************
     1812                            *                                                                      *
     1813                            *                           DRIVER/EXECUTIVE                           *
     1814                            *  THIS SECTION OF CODING PERFORMS THE VARIOUS CONTROL FUNCTIONS       *
     1815                            *  FOR EXECUTING THE VARIOUS TEST MODULES.  THIS SECTION PROVIDES      *
     1816                            *  LINKAGES TO THE GUIDE PROGRAM, AND IT INTERFACES TO THE SINGLE-     *
     1817                            *  PHASE COMPARE ROUTINES.                                             *
     1818                            *                                                                      *
     1819                            ************************************************************************
     1820                            *
     1821                            *
     1822                            *                 THIS ROUTINE PROCESSES ANY DETECTED FAULTS.
     1823         01 013D0           BAD      EQU      %
     1824   01 013D0    15A01372              STD,R10  SAVR10            SAVE R10                        *A03
     1825   01 013D1    6AF01AE9              BAL,R15  MODECTRL
     1826   01 013D2    6AF01B1A              BAL,R15  PCPCTRL           CHECK FOR PCP MODE & FOR TTY INPUT
     1827   01 013D3    70200392              LC       #SENSE            TEST FOR SHORT LOOP-- SS1
     1828   01 013D4    69801432              BCS,8    BG04              YES
     1829   01 013D5    70200392              LC       #SENSE            TEST FOR PRINT OPTION
     1830   01 013D6    681013E6              BCR,1    BD20              YES
     1831         01 013D7           BD10     EQU      %
     1832   01 013D7    6AF01B1A              BAL,R15  PCPCTRL           CHECK FOR TELETYPE INPUT
     1833   01 013D8    70200392              LC       #SENSE
     1834   01 013D9    692013E3              BCS,2    BD15              HALT AFTER ERROR
     1835   01 013DA    3200132E              LW,R0    NEXTEST           LOCATION OF FAILING TEST MODULE *A04
     1836   01 013DB    D210132E              LH,R1    *NEXTEST          TEST MODULE NUMBER
     1837   01 013DC    4B1035AE              AND,R1   =X'FFFF'          PURGE ANY CARRIES
     1838   01 013DD    226013E3              LI,R6    BD15
     1839   01 013DE    33001335              MTW,0    PCPMODE
     1840   01 013DF    693013E2              BCS,3    %+3                                               *A01
     1841   01 013E0    8F0003CA              XPSD,0   *#RUNADDR%        TO IDLE CONDITION
     1842   01 013E1    680013E3              B        BD15              GUIDE RETURN                    *A01
     1843   01 013E2    2E000000 A            WAIT
     1844                            *
     1845                            *                                   C(R0)= LOCATION OF FAILING TEST MOD.
     1846                            *                                   C(R1)= TEST MODULE NUMBER
     1847                            *                                   C(R8)= EXPECTED DATA, IF APPLICABLE
     1848                            *                                   C(R9)= ACTUAL DATA, IF APPLICABLE
     1849   01 013E3    70200392     BD15     LC       #SENSE
     1850   01 013E4    69C014B0              BCS,12   GO03              LONG LOOP OR SHORT LOOP
     1851   01 013E5    680014AA              B        GO02
     1852   01 013E6    6AF0196E     BD20     BAL,R15  ACTDVC            FIRST ASSURE THERE IS AN ACTIVE
     1853   01 013E7    680013D7              B        BD10              PRINT DEVICE
     1854   01 013E8    6AF01A69              BAL,R15  ERRORHDR          PRINT ERROR HEADER
     1855   01 013E9    330012EB              MTW,0    FAMBAD            CHECK FOR SPECIAL MESSAGE OPTION
     1856   01 013EA    683013F7              BCR,3    BD24              NO
     1857   01 013EB    EA6003C3              #HTECON  FAMADR            YES-- CONVERT TEST ADR OF FAM
            01 013EC    000012E8
     1858   01 013ED    22100001 A            LI,R1    1
     1859   01 013EE    D2C00006 A            LH,R12   *LINK             STORE ADDRESSES IN APPROPRIATE
     1860   01 013EF    55C23488              STH,R12  FAMADRMG+7,X1      MESSAGE
     1861   01 013F0    B2C00006 A            LW,R12   *LINK
     1862   01 013F1    75C0348D              STB,R12  FAMADRMG+12                                       *A03
     1863   01 013F2    22100003 A            LI,R1    3
     1864   01 013F3    25C00078 A            SLS,R12  -8
     1865   01 013F4    75C2348C              STB,R12  FAMADRMG+11,X1
     1866   01 013F5    EA6003CD              #PRINT   FAMADRMG          PRINT SPECIAL MESSAGE
            01 013F6    C000D204 A
     1867   01 013F7    330012E2     BD24     MTW,0    DATAPNT           DATA PRINT OPTION
     1868   01 013F8    6830141F              BCR,3    BD30                                              *A03
     1869   01 013F9    EA6003C3              #HTECON  R8                CONVERT EXPECTED DATA
            01 013FA    00000008 A
     1870   01 013FB    B2A00006 A            LW,R10   *LINK
     1871   01 013FC    35A0346A              STW,R10  ERDATAMG+5        TO DATA PRINT FIELD
     1872   01 013FD    22100001 A            LI,R1    1
     1873   01 013FE    B2A20006 A            LW,R10   *LINK,X1
     1874   01 013FF    35A0346B              STW,R10  ERDATAMG+6        TO PRINT FIELD
     1875   01 01400    EA6003C3              #HTECON  R9                CONVERT BAD DATA
            01 01401    00000009 A
     1876   01 01402    B2A00006 A            LW,R10   *LINK                                             *A03
     1877   01 01403    35A03473              STW,R10  ERDATAMG+14        TO PRINT FIELD
     1878   01 01404    B2A20006 A            LW,R10   *LINK,X1
     1879   01 01405    35A03474              STW,R10  ERDATAMG+15        TO PRINT FIELD                 *A03
     1880   01 01406    33001344              MTW,0    PNTDBL            IS DOUBLE REGISTER PRINT REQUEST*A03
     1881   01 01407    68301418              BCR,3    BD28               ED                             *A03
     1882   01 01408    12A01372              LD,R10   SAVR10            RESTORE R10. C(R10) =  EXPECTED *A03
     1883   01 01409    EA6003C3              #HTECON  R10               CONVERT TO PRINT CODE           *A03
            01 0140A    0000000A A
     1884   01 0140B    B2C00006 A            LW,R12   *LINK             FIRST HALF                      *A03
     1885   01 0140C    35C0346C              STW,R12  ERDATAMG+7        STORE IN EXTENDED PRINT FIELD   *A03
     1886   01 0140D    B2C20006 A            LW,R12   *LINK,X1          SECOND HALF                     *A03
     1887   01 0140E    35C0346D              STW,R12  ERDATAMG+8        STORE IN EXTENDED PRINT FIELD   *A03
     1888   01 0140F    EA6003C3              #HTECON  R11               CONVERT ACTUAL TO PRINT CODE    *A03
            01 01410    0000000B A
     1889   01 01411    B2C00006 A            LW,R12   *LINK             FIRST HALF                      *A03
     1890   01 01412    35C03475              STW,R12  ERDATAMG+16       STORE IN EXTENDED PRINT FIELD   *A03
     1891   01 01413    B2C20006 A            LW,R12   *LINK,X1          SECOND HALF                     *A03
     1892   01 01414    35C03476              STW,R12  ERDATAMG+17       STORE IN EXTENDED PRINT FIELD   *A03
     1893   01 01415    22C00023 A            LI,R12   35                                                *A03
     1894   01 01416    75C03465              STB,R12  ERDATAMG                                          *A03
     1895   01 01417    75C0346E              STB,R12  ERDTAMG2                                          *A03
     1896   01 01418    EA6003CD     BD28     #PRINT   ERDATAMG
            01 01419    C000D194 A
     1897   01 0141A    EA6003CD              #PRINT   ERDTAMG2
            01 0141B    C000D1B8 A
     1898   01 0141C    22C0001B A            LI,R12   27                RESTORE MESSAGE BYTE COUNT      *A03
     1899   01 0141D    75C03465              STB,R12  ERDATAMG                                          *A03
     1900   01 0141E    75C0346E              STB,R12  ERDTAMG2                                          *A03
     1901   01 0141F    3300133A     BD30     MTW,0    PHASMODE          DID USER SELECT SINGLE PHASE?   *A02
     1902   01 01420    683013D7              BCR,3    BD10              BRANCH IF NOT
     1903   01 01421    33001343     BD40     MTW,0    PHASTEST          PHASE TEST
     1904   01 01422    682013D7              BCR,2    BD10              NO
     1905   01 01423    22C00001 A            LI,R12   1
     1906   01 01424    35C01339              STW,R12  PHASFLAG          SET SINGLE PHASING  INDICATOR
     1907   01 01425    3300132F              MTW,0    NOTMTL            IF MTL FLAG IS SET, SET SINGLE  *A01
     1908   01 01426    69301429              BCS,3    BD50               PHASE COMPARE FLAG             *A04
     1909   01 01427    35C012D1              STW,R12  COMPFLAG                                          *A01
     1910   01 01428    35C01348              STW,R12  PUTOUT            ACTIVATE DISPLAY OUTPUT         *A03
     1911   01 01429    32B012EA     BD50     LW,R11   ENDTEST           MAY EXECUTE TEST IN SINGLE PHASE *A04
     1912   01 0142A    31B0132E              CW,R11   NEXTEST                                           *A04
     1913   01 0142B    691014B4              BCS,1    GO032              YES                            *A04
     1914                            *
     1915                            *                 THIS ROUTINE FORCES AN APPROPRIATE RESET CONDITION AND
     1916                            *                  THEN DIRECTS CONTROL TO A SELECTED TEST MODULE.  *A03
     1917         01 0142C           BEGINTST EQU      %
     1918   01 0142C    22D40400 A            LI,R13   RESET             CONTROL BITS 13 & 21 (RESET,RELEASE)
     1919   01 0142D    32E012CC              LW,R14   CM                CLOCK MARGIN CONTROL            *A03
     1920   01 0142E    22801C00 A            LI,R8    X'1C00'           DISARM COUNTER 4, PFI, & MFI    *A05
     1921   01 0142F    6D801100 A            WD,R8    DISARM                                            *A05
     1922   01 01430    22800C00 A            LI,R8    X'C00'            ARM PFI & MFI                   *A03
     1923   01 01431    6D801300 A            WD,R8    ARM                                               *A03
     1924   01 01432    22100001 A   BG04     LI,R1    1
     1925   01 01433    330012E6              MTW,0    DIOPRET           PRE-TEST
     1926   01 01434    6920143C              BCS,2    BG12              YES-- NO MI RESETS
     1927   01 01435    EDD01294              WD,R13   *GP00             CCU RESET
     1928   01 01436    EDE01294              WD,R14   *GP00             CLOCK MARGINS                   *A02
     1929   01 01437    EDD01298              WD,R13   *GP08             CHANNEL RESET & RELEASE         *A03
     1930   01 01438    EDD0129C              WD,R13   *GP12              MS SNAP RELEASE                *A03
     1931   01 01439    6AF01C12              BAL,R15  SUPRESET
     1932   01 0143A    6AF01AD3              BAL,R15  ONLINECK          ASSURE MS ON-LINE
     1933   01 0143B    E802132E              B        *NEXTEST,X1       TO NEXT TEST MODULE
     1934   01 0143C    ED001297     BG12     WD,0     *SYNC
     1935   01 0143D    E802132E              B        *NEXTEST,X1       TO NEXT TEST MODULE
     1936         01 0143E           CTLWD    EQU      %                PROCESS CONTROL FIELD
     1937                            *                                   BIT      FUNCTION
     1938                            *                                    17  DIO/MI PRE-TESTS
     1939                            *                                    18  FAM, 7-15
     1940                            *                                    19  FAM, 16-23                 *A02
     1941                            *                                    20  MEMORY TO MEMORY MOVE
     1942                            *                                    21  BURST MODE
     1943                            *                                    22  FOUR BYTE
     1944                            *                                    23  DATA PRINT
     1945                            *                                    24  CHANNEL 'B'
     1946                            *                                    25  CHANNEL 'A'
     1947   01 0143E    B2C0132E              LW,R12   *NEXTEST          CONTROL WORD
     1948   01 0143F    25C00011 A            SLS,R12  17
     1949   01 01440    25C00001 A            SLS,R12  1                 IS DIO/MI PRE-TEST INVOKED
     1950   01 01441    68801443              BCR,8    %+2               NO
     1951   01 01442    331012E6              MTW,1    DIOPRET           YES, SET PRE-TEST SWITCH
     1952   01 01443    25C00001 A            SLS,R12  1                 BIT 18, FAM 8-15  OPTION
     1953   01 01444    6880144B              BCR,8    CTL04             NO
     1954   01 01445    330012C8              MTW,0    CHBCTRL           TEST FOR CHANNEL B BEING        *A03
     1955   01 01446    6930148D              BCS,3    CTL90              INVOKED                        *A03
     1956   01 01447    22A00001 A            LI,R10   1                 YES
     1957   01 01448    31A013A5              CW,R10   SUBCHLN           TEST SPECIFIED PARAMETER OPTION *A03
     1958   01 01449    6920148D              BCS,2    CTL90             SKIP TEST
     1959   01 0144A    35A012EC              STW,R10  FAM2OPT
     1960   01 0144B    25C00001 A   CTL04    SLS,R12  1                 BIT 19, FAM 16-23 OPTION
     1961   01 0144C    68801455              BCR,8    CTL08             NO
     1962   01 0144D    22A00002 A            LI,R10   2                 YES
     1963   01 0144E    31A013A5              CW,R10   SUBCHLN           TEST OPTION
     1964   01 0144F    6920148D              BCS,2    CTL90             SKIP TEST
     1965   01 01450    330012C8              MTW,0    CHBCTRL           TEST FOR CHANNEL B BEING        *A03
     1966   01 01451    6930148D              BCS,3    CTL90              INVOKED                        *A03
     1967   01 01452    35A012ED              STW,R10  FAM3OPT
     1968   01 01453    22000000 A            LI,R0    0
     1969   01 01454    350012EC              STW,R0   FAM2OPT
     1970   01 01455    25C00001 A   CTL08    SLS,R12  1                 BIT 20-- M TO M MOVE OPTION
     1971   01 01456    6880145A              BCR,8    CTL12             NO                              *A03
     1972   01 01457    330012C8              MTW,0    CHBCTRL           NOT AVAILABLE IN CHANNEL 'B'    *A03
     1973   01 01458    6930148D              BCS,3    CTL90                                             *A03
     1974   01 01459    33101323              MTW,1    MOVEOPT
     1975   01 0145A    25C00001 A   CTL12    SLS,R12  1                 BIT 21, BURST MODE              *A03
     1976   01 0145B    6880145D              BCR,8    %+2               NO
     1977   01 0145C    331012C3              MTW,1    BURSTM            YES, SET BURST INDICATOR
     1978   01 0145D    25C00001 A            SLS,R12  1                 BIT 22, FOUR BYTE OPTION
     1979   01 0145E    68801460              BCR,8    %+2               NO
     1980   01 0145F    331012FB              MTW,1    FOURBYTE          YES, SET FOUR BYTE OPTION
     1981   01 01460    25C00001 A            SLS,R12  1                 BIT 23, DATA PRINT MODE
     1982   01 01461    68801463              BCR,8    %+2               NO
     1983   01 01462    331012E2              MTW,1    DATAPNT           YES, SET DATA PRINT INDICATOR
     1984   01 01463    6AF01BC3              BAL,R15  PURGEBUF          ALSO PURGE BUFFER
     1985   01 01464    25C00001 A            SLS,R12  1                 BIT 24, CHANNEL 'B' TEST
     1986   01 01465    68801467              BCR,8    %+2               NO
     1987   01 01466    331012CB              MTW,1    CHLBTEST          YES, SET CHANNEL 'B' INDICATOR
     1988   01 01467    25C00001 A            SLS,R12  1                 BIT 25, CHANNEL 'A' TEST
     1989   01 01468    6880146A              BCR,8    %+2               NO
     1990   01 01469    331012CA              MTW,1    CHLATEST          YES, SET CHANNEL 'A' INDICATOR
     1991   01 0146A    330012C8              MTW,0    CHBCTRL           TEST FOR CHANNEL 'B' PASS       *A03
     1992   01 0146B    68301479              BCR,3    CTL20             NO, CHANNEL A PASS              *A03
     1993   01 0146C    32A012CB              LW,R10   CHLBTEST          CHANNEL 'B' TEST
     1994   01 0146D    6830148A              BCR,3    CTL40             NO, SKIP OUT                    *A03
     1995   01 0146E    32A012C7              LW,R10   CHANNELB
     1996   01 0146F    6830148D              BCR,3    CTL90
     1997   01 01470    32A012FB              LW,R10   FOURBYTE          FOUR BYTE TEST
     1998   01 01471    68301474              BCR,3    %+3               NO
     1999   01 01472    32A012FA              LW,R10   FOURBYTB          YES, CHECK OPTION
     2000   01 01473    6830148D              BCR,3    CTL90             DON'T EXECUTE THIS TEST
     2001   01 01474    32A012C3              LW,R10   BURSTM            BURST MODE TEST
     2002   01 01475    68301478              BCR,3    %+3               NO
     2003   01 01476    32A012C2              LW,R10   BURSTCHB          YES, CHECK OPTION
     2004   01 01477    6830148D              BCR,3    CTL90             DON'T EXECUTE THIS TEST
     2005   01 01478    6800142C              B        BEGINTST
     2006   01 01479    32A012CA     CTL20    LW,R10   CHLATEST          CHANNEL 'A' TEST
     2007   01 0147A    6830148A              BCR,3    CTL40             NO, SKIP OUT
     2008   01 0147B    32A012C6              LW,R10   CHANNELA
     2009   01 0147C    6830148D              BCR,3    CTL90
     2010   01 0147D    32A012FB              LW,R10   FOURBYTE          FOUR BYTE TEST
     2011   01 0147E    68301481              BCR,3    %+3               NO
     2012   01 0147F    32A012F9              LW,R10   FOURBYTA          YES, CHECK OPTION
     2013   01 01480    6830148D              BCR,3    CTL90
     2014   01 01481    32A012C3              LW,R10   BURSTM            BURST MODE TEST
     2015   01 01482    68301485              BCR,3    %+3               NO
     2016   01 01483    32A012C1              LW,R10   BURSTCHA          YES, CHECK OPTION
     2017   01 01484    6830148D              BCR,3    CTL90             SKIP
     2018   01 01485    32A01323              LW,R10   MOVEOPT
     2019   01 01486    68301489              BCR,3    %+3
     2020   01 01487    32A01324              LW,R10   MOVEOPTA
     2021   01 01488    6830148D              BCR,3    CTL90
     2022   01 01489    6800142C              B        BEGINTST
     2023         01 0148A           CTL40    EQU      %                 CHECK FOR CCU TEST
     2024   01 0148A    32A012CA              LW,R10   CHLATEST                                          *A03
     2025   01 0148B    49A012CB              OR,R10   CHLBTEST
     2026   01 0148C    6830142C              BCR,3    BEGINTST          YES                             *A03
     2027                            *
     2028         01 0148D           CTL90    EQU      %                 SKIP CURRENT TEST
     2029   01 0148D    22F014AA              LI,R15   GO02              CHECK FOR INPUT
     2030   01 0148E    68001B1A              B        PCPCTRL
     2031                            *
     2032                            *
     2033                            *                 THIS ROUTINE PROCESSES A NORMAL RETURN FROM A TEST MODULE.
     2034         01 0148F           GOOD     EQU      %                NORMAL RETURN
     2035   01 0148F    6AF01AE9              BAL,R15  MODECTRL
     2036   01 01490    6AF01B1A              BAL,R15  PCPCTRL           CHECK FOR PCP MODE & FOR TTY INPUT
     2037   01 01491    70200392              LC       #SENSE            SHORT LOOP
     2038   01 01492    69801432              BCS,8    BG04              YES
     2039   01 01493    22C00C00 A            LI,R12   X'C00'            ENABLE PFI & MFI                *A03
     2040   01 01494    6DC01600 A            WD,R12   ENABLE                                            *A03
     2041   01 01495    02200000 A            LCI      0                 NOP                             *A05
     2042   01 01496    22C01C00 A            LI,R12   X'1C00'           DISARM COUNTER 4, PFI, & MFI    *A05
     2043   01 01497    6DC01100 A            WD,R12   DISARM                                            *A05
     2044   01 01498    330012D0              MTW,0    COMPASS           IS THIS COMPARE FOR ERROR DETECTION?
     2045   01 01499    683014A5              BCR,3    GO01              BRANCH IF NOT
     2046   01 0149A    33001322              MTW,0    MISCOMP           DID A MISCOMPARE OCCUR?
     2047   01 0149B    683014A5              BCR,3    GO01              BRANCH IF NOT
     2048   01 0149C    330012C4              MTW,0    CBGEN             IS THIS COOKBOOK GENERATION?
     2049   01 0149D    683014A0              BCR,3    %+3               BRANCH IF NOT
     2050   01 0149E    2E000000 A            WAIT
     2051   01 0149F    680014A5              B        GO01              STEP TO IGNORE MISCOMPARE
     2052   01 014A0    22000000 A            LI,R0    0
     2053   01 014A1    35001317              STW,R0   LINECNT           RESET LINE COUNTER FOR COMPARE
     2054   01 014A2    33101348              MTW,1    PUTOUT            ENABLE DISPLAY OUTPUT
     2055   01 014A3    6AF01A69              BAL,R15  ERRORHDR
     2056   01 014A4    6800184E              B        STRTCOMP          OUTPUT MISCOMPARING DISPLAY
     2057   01 014A5    70200392     GO01     LC       #SENSE
     2058   01 014A6    691014A9              BCS,1    %+3               SUPPRESS PRINT
     2059   01 014A7    6AF01B65              BAL,R15  PRNTSTNO          PRINT MODE
     2060   01 014A8    70200392              LC       #SENSE            SENSE SWITCHES
     2061   01 014A9    6940142C              BCS,4    BEGINTST          LONG LOOP
     2062         01 014AA           GO02     EQU      %
     2063   01 014AA    B2C0132E              LW,R12   *NEXTEST          NO. OF INSTRUCTIONS IN CURRENT  *A04
     2064   01 014AB    4BC035AF              AND,R12  =X'3F'             TEST MODULE.  COUNT FIELD ONLY
     2065   01 014AC    66C0132E              AWM,R12  NEXTEST           UPDATE ADDRESS                  *A04
     2066   01 014AD    D2C0132E              LH,R12   *NEXTEST          STORE CURRENT TEST NUMBER       *A04
     2067   01 014AE    4BC035AE              AND,R12  =X'FFFF'          MASK                            *A04
     2068   01 014AF    35C003F2              STW,R12  DCA+2                                             *A04
     2069   01 014B0    6AF01B4E     GO03     BAL,R15  PRGCTL            PURGE WORD CONTROL
     2070   01 014B1    32B012EA              LW,R11   ENDTEST           HAS ADDRESS REACHED MAX
     2071   01 014B2    31B0132E              CW,R11   NEXTEST
     2072   01 014B3    6810143E              BCR,1    CTLWD             NO                              *A03
     2073   01 014B4    330012C4     GO032    MTW,0    CBGEN             IS COOKTAPE BEING GENERATED?    *A04
     2074   01 014B5    693014CA              BCS,3    GO040             YES                             *A03
     2075   01 014B6    22C00000 A            LI,R12   0                                                 *A03
     2076   01 014B7    32A012C6              LW,R10   CHANNELA          TEST FOR SINGLE CHANNEL OPERATIO*A03
     2077   01 014B8    4BA012C7              AND,R10  CHANNELB                                          *A03
     2078   01 014B9    683014C1              BCR,3    GO034             YES                             *A03
     2079   01 014BA    330012C8              MTW,0    CHBCTRL           REVERSE CHANNEL CONTROL         *A03
     2080   01 014BB    693014C4              BCS,3    GO036             YES                             *A03
     2081   01 014BC    22C00008 A            LI,R12   8                                                 *A03
     2082   01 014BD    35C012C8              STW,R12  CHBCTRL                                           *A03
     2083   01 014BE    6A601AF9              BAL,R6   PUTDVCON          ASSURE DEVICE ON-LINE           *A03
     2084   01 014BF    6AF01A8F              BAL,R15  GPCTRL            UPDATE GROUP ADDRESSES          *A03
     2085   01 014C0    6800150A              B        GO08              SECOND TIME                     *A03
     2086   01 014C1    330012C6     GO034    MTW,0    CHANNELA          CHANNEL A                       *A03
     2087   01 014C2    693014C4              BCS,3    GO036                                             *A03
     2088   01 014C3    22C00008 A            LI,R12   8                                                 *A03
     2089   01 014C4    35C012C8     GO036    STW,R12  CHBCTRL                                           *A03
     2090   01 014C5    6A601AF9              BAL,R6   PUTDVCON          MAY WANT OLD CHANNEL ON         *A03
     2091   01 014C6    6AF01A8F              BAL,R15  GPCTRL                                            *A03
     2092   01 014C7    330012D0              MTW,0    COMPASS           HAS COMPARE PASS BEEN EXECUTED?
     2093   01 014C8    693014E3              BCS,3    GO048             IF SO, TYPE PASS COMPLETED
     2094   01 014C9    680014D6              B        GO045             NO                              *A03
     2095   01 014CA    3260130E     GO040    LW,R6    IOPA              RESET TO FORCE DEVICES ON-LINE  *A03
     2096   01 014CB    4F0C4000 A            RIO,R0   0,X6                                              *A03
     2097   01 014CC    6AF01A66              BAL,R15  DLY10MS           10 MSEC FOR DEVICE CONTROLLER   *A03
     2098   01 014CD    22000000 A            LI,R0    0                 INDICATE DEVICES ON-LINE        *A03
     2099   01 014CE    350012E4              STW,R0   DCOFFA                                            *A03
     2100   01 014CF    330012D0              MTW,0    COMPASS                                           *A05
     2101   01 014D0    693014E3              BCS,3    GO048                                             *A05
     2102   01 014D1    22000944              LI,R0    DA(TAPEND)        EOF IF IN GENERATE MODE         *A05
     2103   01 014D2    6AF018A3              BAL,R15  RECOUT
     2104   01 014D3    22A014D6              LI,R10   GO045
     2105   01 014D4    B5A01304              STW,R10  *IMTLT0
     2106   01 014D5    E8001306              B        *IMTLT2           RETURN CONTROL TO M.T.L.



     2108   01 014D6    3300133A     GO045    MTW,0    PHASMODE          HAS USER SELECTED TO RUN S.PHS?
     2109   01 014D7    683014E3              BCR,3    GO048             BRANCH IF NOT
     2110   01 014D8    330012D0              MTW,0    COMPASS
     2111   01 014D9    692014E3              BCS,2    GO048
     2112   01 014DA    3300132F              MTW,0    NOTMTL
     2113   01 014DB    693014E3              BCS,3    GO048
     2114   01 014DC    33101339              MTW,1    PHASFLAG
     2115   01 014DD    331012D1              MTW,1    COMPFLAG
     2116   01 014DE    331012D0              MTW,1    COMPASS
     2117   01 014DF    330012C4              MTW,0    CBGEN             IS THIS COOKBOOK GENERATION?
     2118   01 014E0    6830150A              BCR,3    GO08              BRANCH IF NOT                   *A03
     2119   01 014E1    331012FD              MTW,1    GENADR
     2120   01 014E2    6800150A              B        GO08                                              *A03
     2121   01 014E3    22000000 A   GO048    LI,R0    0
     2122   01 014E4    35001339              STW,R0   PHASFLAG
     2123   01 014E5    350012D1              STW,R0   COMPFLAG
     2124   01 014E6    350012D0              STW,R0   COMPASS
     2125   01 014E7    330012C4              MTW,0    CBGEN
     2126   01 014E8    683014EC              BCR,3    %+4               NOT CBGEN
     2127   01 014E9    22000945              LI,R0    DA(FILEFWD)
     2128   01 014EA    6AF018A3              BAL,R15  RECOUT            SPACE FILE FORWARD
     2129   01 014EB    E8001306              B        *IMTLT2           CONTROL TO M.T.L.
     2130   01 014EC    33001333              MTW,0    PASS1             IS THIS THE FIRST PASS?
     2131   01 014ED    693014F3              BCS,3    GO05              NO
     2132   01 014EE    EA6003CC              #TYPE    PASS1MG           YES-- PRINT PASS 1 MESSAGE
            01 014EF    0000D454 A
     2133   01 014F0    33101333              MTW,1    PASS1             SET PASS ONE INHIBIT
     2134   01 014F1    33101334              MTW,1    PASSCNT           PASS COUNT
     2135   01 014F2    6800150A              B        GO08
     2136   01 014F3    33101334     GO05     MTW,1    PASSCNT           STEP PASS COUNT
     2137   01 014F4    32A012CE              LW,R10   CMPCNT            COMPARE DIGIT
     2138   01 014F5    31A01334              CW,R10   PASSCNT           CHECK FOR EVERY 100 DEC PASSES
     2139   01 014F6    69201505              BCS,2    GO07              NO
     2140   01 014F7    683014FB              BCR,3    GO06              EQUAL, THEN PRINT
     2141   01 014F8    20A00064 A            AI,R10   100               UPDATE COMPARE COUNT
     2142   01 014F9    35A012CE              STW,R10  CMPCNT
     2143   01 014FA    680014F5              B        GO05+2            TRY AGAIN
     2144   01 014FB    EA6003C3     GO06     #HTECON  PASSCNT           CONVERT PASS COUNT
            01 014FC    00001334
     2145   01 014FD    22100000 A            LI,R1    0
     2146   01 014FE    F2A20006 A            LB,R10   *LINK,X1          GET CONVERTED CHARACTER
     2147   01 014FF    20100001 A            AI,R1    1
     2148   01 01500    75A23510              STB,R10  PASSMG,X1         STORE IN PRINT MESSAGE
     2149   01 01501    21100008 A            CI,R1    8
     2150   01 01502    691014FE              BCS,1    %-4
     2151   01 01503    EA6003CC              #TYPE    PASSMG            TYPE PASS COUNT
            01 01504    0000D440 A
     2152   01 01505    32A01334     GO07     LW,R10   PASSCNT           HAS COUNT REACHED MAX
     2153   01 01506    31A035B6              CW,R10   =X'7FFFFFFE'
     2154   01 01507    6910150A              BCS,1    GO08              NO
     2155   01 01508    22A00000 A            LI,R10   0                 YES-- RESET
     2156   01 01509    35A01334              STW,R10  PASSCNT
     2157   01 0150A    32C013A7     GO08     LW,R12   TEST              FIRST TEST ADDRESS
     2158   01 0150B    35C0132E              STW,R12  NEXTEST
     2159   01 0150C    6800143E              B        CTLWD
     2160                            *
     2161                            *                 INITIALIZER SEQUENCE                                  *
     2162                            *        THIS ROUTINE IS USED TO PROCESS THE INITIAL TEST MODE.
     2163         01 0150D           INIT04   EQU      %                PROCESS INITIAL MODE
     2164   01 0150D    330012F5              MTW,0    FIRSTIME          DON'T INITIALIZE GUIDE IF
     2165   01 0150E    69201517              BCS,2    INIT045            PROCESSING ABSOLUTE RECOVERY
     2166   01 0150F    E80012FE              B        *GUIDLINK         BACK TO GUIDE TO PRE-INITIALIZE
     2167         01 01510           INITIAL  EQU      %                 RETURN FROM GUIDE
     2168   01 01510    356012FE              STW,LINK  GUIDLINK
     2169   01 01511    33000394              MTW,0    #LOADFLAG         TEST LOAD FLAG
     2170   01 01512    69101516              BCS,1    INIT042           THE 'NO' STATE,NORMAL RECOVERY  *A01
     2171   01 01513    330012F5              MTW,0    FIRSTIME          THE 'YES' STATE OR INITIAL LOAD
     2172   01 01514    68201517              BCR,2    INIT045
     2173   01 01515    68001024              B        INTL08            BACK TO THE FIRST INITIAL SEQ   *A02
     2174   01 01516    6AF01ABB     INIT042  BAL,R15  INITRS            RE-INITIALIZE INTR-TRAP CELLS   *A01
     2175         01 01517           INIT045  EQU      %                                                 *A05
     2176         01 01517           INIT05   EQU      %
     2177   01 01517    32C00397              LW,R12   #PRTADDR          HAS MSG DEV ADR BEEN UPDATED    *A02
     2178   01 01518    31C0131A              CW,R12   LPDVC              BY GUIDE INITIALIZER           *A02
     2179   01 01519    68301522              BCR,3    INIT052           NO
     2180   01 0151A    35C0131A              STW,R12  LPDVC             YES-- UPDATE DEVICE ADDRESSES
     2181   01 0151B    EA6003C3              #HTECON  #PRTADDR          CONVERT TO PRINT CODE
            01 0151C    00000397
     2182   01 0151D    22100001 A            LI,R1    1
     2183   01 0151E    B2A20006 A            LW,R10   *R6,X1
     2184   01 0151F    55A033ED              STH,R10  PLINE#J+1
     2185   01 01520    25A00270 A            SCS,R10  -16
     2186   01 01521    55A233EC              STH,R10  PLINE#J,X1
     2187   01 01522    6AF019BD     INIT052  BAL,R15  CKDVCON           CHECK FOR COM CHANNEL CONFLICT  *A02
     2188   01 01523    6AF0196E              BAL,R15  ACTDVC            IS OUTPUT DEVICE AVAILABLE      *A02
     2189   01 01524    68001524              B        %                 NO OUTPUT DEVICE
     2190   01 01525    22C00000 A            LI,R12   0                 ACTIVATE SUCCESS PRINT          *A05
     2191   01 01526    35C01333              STW,R12  PASS1             INITIALIZE FIRST PASS AGAIN     *A05
     2192   01 01527    35C012E7              STW,R12  ENDSUC                                            *A05
     2193   01 01528    703003A0              LCF      #TESTINIT         BACK TO GUIDE TO START PROG     *A05
     2194   01 01529    EA6012FE              BAL,LINK *GUIDLINK                                         *A05
     2195   01 0152A    0000353E              DATA     STADDR                                            *A05
     2196   01 0152B    330012F5     INIT054  MTW,0    FIRSTIME                                          *A05
     2197   01 0152C    6920153C              BCS,2    INIT055
     2198   01 0152D    331012F5              MTW,1    FIRSTIME
     2199   01 0152E    6AF01ABB              BAL,R15  INITRS            INITIALIZE TRAP/INTERRUPT CELLS
     2200   01 0152F    32400395              LW,R4    #MTLFLAG
     2201   01 01530    6830153E              BCR,3    INIT90            SKIP IF ZERO                    *A03
     2202   01 01531    20400004 A            AI,R4    4
     2203   01 01532    B2500004 A            LW,R5    *4
     2204   01 01533    355012FD              STW,R5   GENADR
     2205   01 01534    32100395              LW,R1    #MTLFLAG
     2206   01 01535    35101304              STW,R1   IMTLT0
     2207   01 01536    20100001 A            AI,R1    1
     2208   01 01537    35101305              STW,R1   IMTLT1
     2209   01 01538    20100001 A            AI,R1    1
     2210   01 01539    35101306              STW,R1   IMTLT2
     2211   01 0153A    20100001 A            AI,R1    1
     2212   01 0153B    35101307              STW,R1   IMTLT3
     2213         01 0153C           INIT055  EQU      %                                                 *A03
     2214   01 0153C    330012C4              MTW,0    CBGEN             IS THIS COOKBOOK GENERATION
     2215   01 0153D    693010DB              BCS,3    GENCOKBK          IF SO, GO TO GENERATE ROUTINE
     2216         01 0153E           INIT90   EQU      %
     2217   01 0153E    6800150A              B        GO08              GO TO NEXT TEST MODE
     2218                            ***********************************************************************
     2219                            *                                                                     *
     2220                            *        SINGLE PHASE AND COMPARE ROUTINES                            *
     2221                            *                                                                     *
     2222                            ***********************************************************************
     2223   01 0153F    22401800 A   PHASTEP  LI,4     X'1800'           SET SINGLE PHASE CLOCK BIT
     2224   01 01540    ED401298              WD,4     *GP08             GIVE MPXC PHASE CLK TO CH.A
     2225   01 01541    32701331     PHASTEPX LW,7     OUTDEX            FETCH OUTDEX STORE INDEX
     2226   01 01542    EC401298              RD,4     *GP08             READ MPXC GROUP EIGHT
     2227   01 01543    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2228   01 01544    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2229   01 01545    EC401299              RD,4     *GP09             READ MPXC GROUP NINE
     2230   01 01546    4B4035B7              AND,4    =X'FFFFFB7F'      MSK BITS 21,24.JEVEN AND ZBC    *A06
     2231   01 01547    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2232   01 01548    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2233   01 01549    EC40129A              RD,4     *GP10             READ MPXC GROUP TEN
     2234   01 0154A    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTBUFF BUFFER
     2235   01 0154B    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2236   01 0154C    EC40129B              RD,4     *GP11             READ MPXC GROUP ELEVEN
     2237   01 0154D    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2238   01 0154E    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2239   01 0154F    EC40129E              RD,4     *GP14             READ MS GROUP FOURTEEN
     2240   01 01550    25400010 A            SLS,4    16                POSITION FOR OUTPUT FORMAT
     2241   01 01551    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2242   01 01552    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2243   01 01553    EC401294              RD,4     *GP00             READ CCU GROUP ZERO
     2244   01 01554    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2245   01 01555    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2246   01 01556    EC401295              RD,4     *GP01             READ CCU GROUP ONE
     2247   01 01557    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2248   01 01558    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2249   01 01559    EC401296              RD,4     *GP02             READ CCU GROUP TWO
     2250   01 0155A    4B4035B8              AND,4    =X'38709F'        MASK 0-9,13-16,20-23,25,&26     *A03
     2251   01 0155B    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2252   01 0155C    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2253   01 0155D    EC50129D              RD,R5    *GP13             READ MS DC'S & DD'S             *A02
     2254   01 0155E    EC40129C              RD,R4    *GP12             READ MS DB'S & DA'S             *A02
     2255   01 0155F    55500004 A            STH,R5   R4                MERGE                           *A02
     2256   01 01560    330012FB              MTW,0    FOURBYTE          IS FOUR BYTE ON                 *A02
     2257   01 01561    69301565              BCS,3    %+4               YES                             *A02
     2258   01 01562    330012C3              MTW,0    BURSTM            BURST MODE ON                   *A02
     2259   01 01563    69301565              BCS,3    %+2               YES                             *A02
     2260   01 01564    4B4035B9              AND,R4   =X'FF'            NEITHER-- ONLY SAVE DA'S        *A02
     2261   01 01565    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2262   01 01566    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2263   01 01567    EC40129F              RD,4     *GP15             READ MS GROUP FIFTEEN
     2264   01 01568    25400010 A            SLS,4    16                POSITION FOR OUTPUT FORMAT
     2265   01 01569    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2266   01 0156A    20700001 A            AI,7     1                 INCREMENT STORE INDEX
     2267   01 0156B    35701331              STW,7    OUTDEX            STORE FINAL INDEX VALUE
     2268   01 0156C    6480153F              BDR,8    PHASTEP           LOOP FOR PRESCRIBED NUMBER OF PHASES
     2269   01 0156D    E800000F A            B        *15               RETURN TO CALLER




     2271   01 0156E    EDD01294     %RESET   WD,13    *GP00             RESET CCU
     2272   01 0156F    32E012CC              LW,R14   CM                CLOCK MARGINS                   *A02
     2273   01 01570    EDE01294              WD,R14   *GP00                                             *A02
     2274   01 01571    EDD01298              WD,13    *GP08             RESET MPXC, CHANNEL A
     2275   01 01572    EDD0129C              WD,13    *GP12             RESET MS, CHANNEL A
     2276   01 01573    22E00000 A            LI,R14   0                 CLEAR R14                       *A04
     2277   01 01574    E800000F A            B        *15               RETURN TO CALLER


     2279   01 01575    32701384     PHASTORE LW,7     SEQDEX            FETCH SEQUENCE BUFFER INDEX
     2280   01 01576    22600000 A            LI,6     0                 CLEAR BYTE INDEX
     2281   01 01577    F24C000F A            LB,4     *15,6             FETCH BYTE TO BE STORED
     2282   01 01578    6920157C              BCS,2    %+4               BRANCH IF NOT END OF DATA
     2283   01 01579    3310000F A            MTW,1    15                INCREMENT POINTER FOR RETURN
     2284   01 0157A    35701384              STW,7    SEQDEX            STORE FINAL INDEX VALUE
     2285   01 0157B    E800000F A            B        *15               RETURN TO CALLER
     2286   01 0157C    754E1374              STB,4    SEQBUFF,7         STORE DATA BYTE INDEXED
     2287   01 0157D    33100007 A            MTW,1    7                 INCREMENT SEQUENCE BUFFER INDEX
     2288   01 0157E    33100006 A            MTW,1    6                 INCREMENT BYTE INDEX
     2289   01 0157F    21600004 A            CI,6     4                 WILL NEXT BYTE BE A NEW WORD?
     2290   01 01580    69301577              BCS,3    PHASTORE+2        BRANCH IF NOT
     2291   01 01581    3310000F A            MTW,1    15                INCREMENT WORD POINTER
     2292   01 01582    68001576              B        PHASTORE+1        LOOP FOR NEXT WORD


     2294   01 01583    32701331     COMPTAG  LW,7     OUTDEX            FETCH OUTPUT BUFFER INDEX
     2295   01 01584    2240DECA A            LI,4     X'DECA'           LOAD COMPARE DATA PREFIX
     2296   01 01585    25400010 A            SLS,4    16                POSITION AS PREFIX
     2297   01 01586    304013AB              AW,4     TSTNMBER          ADD CURRENT TEST NUMBER
     2298   01 01587    354E37B5              STW,4    OUTBUFF,7         STORE IN OUTPUT BUFFER
     2299   01 01588    33101331              MTW,1    OUTDEX            INCREMENT OUTPUT BUFFER INDEX
     2300   01 01589    32701384              LW,7     SEQDEX            FETCH SEQUENCE BUFFER INDEX
     2301   01 0158A    224000FF A            LI,4     X'FF'             LOAD COMPARE CONTROL PREFIX
     2302   01 0158B    754E1374              STB,4    SEQBUFF,7         STORE IN SEQUENCE BUFFER
     2303   01 0158C    33101384              MTW,1    SEQDEX            INCREMENT SEQUENCE BUFFER INDEX
     2304   01 0158D    E800000F A            B        *15               RETURN TO CALLER
     2305   01 0158E    33101343     PREPHSXX MTW,1    PHASTEST          FLAG THIS TEST AS PHASEABLE
     2306   01 0158F    33001339              MTW,0    PHASFLAG          IS THIS A SINGLE PHASING PASS?
     2307   01 01590    E930000C A            BCS,3    *R12              IF SO, BRANCH
     2308   01 01591    ED001297              WD,0     *SYNC             GENERATE SYNC SIGNAL
     2309   01 01592    E800000F A            B        *15               RETURN TO CALLER


     2311   01 01593    00000000 A   MCHKSAVE DATA     0
     2312   01 01594    35F01593     MODECHK  STW,15   MCHKSAVE          SAVE R15 FOR POINTING AND RETURN
     2313   01 01595    6AF015B9              BAL,R15  REGSAVE           SAVE REGISTER VALUES
     2314   01 01596    2290FFFF A            LI,9     X'FFFF'           LOAD MASK
     2315   01 01597    B280132E              LW,8     *NEXTEST          FETCH CONTROL WORD
     2316   01 01598    25800070 A            SLS,8    -16               RIGHT JUSTIFY TEST NUMBER
     2317   01 01599    4B800009 A            AND,8    9                 MASK FOR TEST NUMBER
     2318   01 0159A    358013AB              STW,8    TSTNMBER          STORE TEST NUMBER
     2319   01 0159B    22900040 A            LI,9     X'40'             LOAD MASK
     2320   01 0159C    2270018F A            LI,7     399               SET LOOP COUNT FOR CLEARING OUTBUFF
     2321   01 0159D    35EE37B5              STW,14   OUTBUFF,7         CLEAR BUFFER LOCATION,INDEXED
     2322   01 0159E    6470159D              BDR,7    %-1               LOOP FOR 399 BUFFER LOCATIONS
     2323   01 0159F    2270000F A            LI,7     15                SET SEQBUFF CLEARING LOOP COUNT
     2324   01 015A0    35EE1374              STW,14   SEQBUFF,7         CLEAR SEQUENCE BUFFER LOC.
     2325   01 015A1    647015A0              BDR,7    %-1               LOOP FOR 15 BUFFER LOCATIONS
     2326   01 015A2    35E01331              STW,14   OUTDEX            CLEAR OUTPUT BUFFER INDEX
     2327   01 015A3    35E01384              STW,14   SEQDEX            CLEAR SEQUENCE BUFFER INDEX
     2328   01 015A4    6AF01583              BAL,15   COMPTAG           TAG BUFFERS FOR COMPARE
     2329   01 015A5    32701384              LW,7     SEQDEX            FETCH SEQUENCE BUFFER INDEX
     2330   01 015A6    E7001593              EXU      *MCHKSAVE         LOAD R4 WITH INDICATOR
     2331   01 015A7    754E1374              STB,4    SEQBUFF,7         SET SERVICE CYCLE DESCRIPTOR
     2332   01 015A8    33101384              MTW,1    SEQDEX            INCREMENT SEQUENCE BUFFER INDEX
     2333   01 015A9    6AF01575              BAL,15   PHASTORE          SET PHASE SEQUENCE:
     2334   01 015AA    0D0E0F0A A            DATA     X'0D0E0F0A'
     2335   01 015AB    0B0C0000 A            DATA     X'0B0C0000'
     2336   01 015AC    6AF0156E              BAL,15   %RESET            RESET CCU, MPXC AND MS
     2337   01 015AD    22401800 A            LI,4     X'1800'           SET BITS 19&20 IN R4
     2338   01 015AE    ED401298              WD,4     *GP08             SET SINGLE PHASE MODE, CH.A
     2339   01 015AF    22800001 A            LI,8     1                 SET NO-PHASE-CLK LOOP CNT.
     2340   01 015B0    6AF01541              BAL,15   PHASTEPX          READ STATIC, RESIDUAL DISPLAY
     2341   01 015B1    32801351              LW,R8    REGISTER+8        RESTORE R8
     2342   01 015B2    E7001337              EXU      *PHASAVE          EXECUTE MODULE I/O INST.
     2343   01 015B3    22800001 A            LI,8     1                 SET NO-PHASE-CLK LOOP CNT.
     2344   01 015B4    6AF01541              BAL,15   PHASTEPX          READ DISPLAY CONSEQUENT - PHI
     2345   01 015B5    22800004 A            LI,8     4                 SET PHASE CLK-READ COUNT TO 4
     2346   01 015B6    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2347   01 015B7    33101593              MTW,1    MCHKSAVE          INCREMENT POINTER FOR RETURN
     2348   01 015B8    E8001593              B        *MCHKSAVE         RETURN TO CALLER




     2350   01 015B9    02200000 A   REGSAVE  LCI      0
     2351   01 015BA    2B001349              STM,0    REGISTER          SAVE REGISTER 0 THRU 15
     2352   01 015BB    22E00000 A            LI,14    0                 DEDICATE R14 TO ZERO
     2353   01 015BC    E800000F A            B        *15               RETURN TO CALLER


     2355   01 015BD    70200392     DISPLAYX LC       #SENSE            INHIBIT DISPLAY OUTPUT
     2356   01 015BE    69901758              BCS,9    DRIVER             IF SENSE SWITCH 1 IS SET
     2357   01 015BF    6AF0156E              BAL,15   %RESET            RESET I/O
     2358   01 015C0    22700000 A            LI,7     0                 CLR R7 FOR INDEXING
     2359   01 015C1    35700002 A            STW,7    2                 CLR R2 FOR DATA BUFFER INDEX
     2360   01 015C2    35701317              STW,7    LINECNT           CLEAR LINE COUNTER
     2361   01 015C3    35701319              STW,7    LINEFOLD          CLEAR LINE FOLD-OVER FLAG
     2362   01 015C4    330012D1              MTW,0    COMPFLAG          IS COMPARE TO BE MADE?
     2363   01 015C5    69301839              BCS,3    COMPARE           IF SO, GO TO COMPARE ROUTINE
     2364   01 015C6    330012C4              MTW,0    CBGEN             IS COOKBOOK TAPE TO BE GENERATED?
     2365   01 015C7    69301897              BCS,3    TAPEGEN           IF SO, BRANCH


     2367   01 015C8    724E1374     LINE     LB,4     SEQBUFF,7         FETCH SEQUENCE BUFFER CNTRL. BYTE
     2368   01 015C9    692015CB              BCS,2    %+2
     2369   01 015CA    6AF015E4              BAL,15   PREDRIVE          CHECK FOR LINE FOLDOVER
     2370   01 015CB    21400010 A            CI,4     X'10'             DOES BYTE = HEADING DESCRIPTOR
     2371   01 015CC    691015CE              BCS,1    %+2               BRANCH IF NOT
     2372   01 015CD    6AF015EC              BAL,15   HEADOUT           OUTPUT HEADING                  *A02
     2373   01 015CE    5288133B              LH,8     PHASNUMB,4        FETCH PHASE NUMBER, INDEXED
     2374   01 015CF    22500005 A            LI,5     5                 SET STORE HALF-WORD INDEX
     2375   01 015D0    558A3453              STH,8    DISPFORM,5        STORE IN FORMATTED LINE BUFFER
     2376   01 015D1    6AF01670              BAL,15   LINESET           SET LINE NUMBER IN DISPFORM
     2377   01 015D2    22900005 A            LI,9     5                 SET DATA STORE LOOP COUNT
     2378   01 015D3    22500004 A            LI,5     4                 INITIALIZE DATA STORE INDEX
     2379   01 015D4    328437B5     FILL     LW,8     OUTBUFF,2         FETCH DISPLAY DATA, INDEXED
     2380   01 015D5    EA6003C3              #HTECON  8                 CONVERT TO EBCDIC
            01 015D6    00000008 A
     2381   01 015D7    32AC0000 A            LW,10    0,6               FETCH EBCDIC FOR BITS 0-15
     2382   01 015D8    35AA3453              STW,10   DISPFORM,5        STR. IN FORMATTED LINE BUFFER
     2383   01 015D9    20500001 A            AI,5     1                 INCREMENT DATA STORE INDEX
     2384   01 015DA    32AC0001 A            LW,10    1,6               FETCH EBCDIC FOR BITS 12-31
     2385   01 015DB    35AA3453              STW,10   DISPFORM,5        STR. IN FORMATTED LINE BUFF
     2386   01 015DC    20500002 A            AI,5     2                 INCREMENT DATA STORE INDEX
     2387   01 015DD    20200001 A            AI,2     1                 INCREMENT DATA FETCH INDEX
     2388   01 015DE    649015D4              BDR,9    FILL              LOOPFOR 5 WORDS OF DATA
     2389   01 015DF    33100007 A            MTW,1    7                 INCREMENT SEQUENCER INDEX
     2390   01 015E0    EA6003CD              #PRINT   DISPFORM          OUTPUT FORMATTED LINE BUFFER
            01 015E1    C000D14C A
     2391   01 015E2    20200005 A            AI,2     5                 INDEX OVER FOLDOVER GROUP
     2392   01 015E3    680015C8              B        LINE              LOOP FOR NEXT LINE, IF ANY.


     2394   01 015E4    33001319     PREDRIVE MTW,0    LINEFOLD          WAS FOLDED OUTPUT OUTPUT?
     2395   01 015E5    693015E7              BCS,3    %+2               BRANCH IF NOT
     2396   01 015E6    68001758              B        DRIVER            RETURN TO DRIVER OUTPUT COMPLETE
     2397   01 015E7    32701319              LW,7     LINEFOLD          FETCH SEQUENCER INDEX REPEAT VALUE
     2398   01 015E8    724E1374              LB,4     SEQBUFF,7         FETCH SEQUENCER CODE
     2399   01 015E9    3320000F A            MTW,2    15                INCREMENT RETURN ADDRESS
     2400   01 015EA    E800000F A            B        *15               RETURN AND OUTPUT GRP HEAD FOR  *A03




     2402   01 015EB    00000000 A   HEADSAVE DATA     0
     2403   01 015EC    35F015EB     HEADOUT  STW,15   HEADSAVE          SAVE R15 FOR RETURN
     2404   01 015ED    214000FF A            CI,4     X'FF'             DOES BYTE = COMPARE PREFIX?
     2405   01 015EE    693015F2              BCS,3    NOTHEAD           BRANCH IF NOT
     2406   01 015EF    20200001 A            AI,2     1                 INCREMENT DATA FETCH INDEX
     2407   01 015F0    20700001 A            AI,7     1                 INCREMENT CONTROL SEQUENCER INDEX
     2408   01 015F1    724E1374              LB,4     SEQBUFF,7         FETCH NEXT CONTROL BYTE
     2409   01 015F2    33001319     NOTHEAD  MTW,0    LINEFOLD          IS THIS PRINTOUT FOLD-OVER?
     2410   01 015F3    6930165D              BCS,3    FOLDOUT           IF SO, BRANCH
     2411   01 015F4    214000E1 A            CI,4     X'E1'             DOES BYTE = SIO DESCRIPTOR?
     2412   01 015F5    693015FC              BCS,3    HD1               BRANCH IF NOT
     2413   01 015F6    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2414   01 015F7    683015FA              BCR,3    %+3               BRANCH IF NOT
     2415   01 015F8    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2416   01 015F9    683015FC              BCR,3    HD1               BRANCH IF NOT                   *A02
     2417   01 015FA    EA6003CD              #PRINT   SERCYHD1,C2       OUTPUT SIO HEADER
            01 015FB    C200D49C A
     2418   01 015FC    214000E2 A   HD1      CI,4     X'E2'             DOES BYTE = TIO DESCRIPTOR?
     2419   01 015FD    69301604              BCS,3    HD2               BRANCH IF NOT
     2420   01 015FE    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2421   01 015FF    68301602              BCR,3    %+3               BRANCH IF NOT
     2422   01 01600    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2423   01 01601    68301604              BCR,3    HD2               BRANCH IF NOT                   *A02
     2424   01 01602    EA6003CD              #PRINT   SERCYHD2,C2       OUTPUT TIO HEADER
            01 01603    C200D4A4 A
     2425   01 01604    214000E3 A   HD2      CI,4     X'E3'             DOES BYTE = TDV DESCRIPTOR?
     2426   01 01605    6930160C              BCS,3    HD3               BRANCH IF NOT
     2427   01 01606    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2428   01 01607    6830160A              BCR,3    %+3               BRANCH IF NOT
     2429   01 01608    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2430   01 01609    6830160C              BCR,3    HD3               BRANCH IF NOT                   *A02
     2431   01 0160A    EA6003CD              #PRINT   SERCYHD3,C2       OUTPUT TDV HEADER
            01 0160B    C200D4AC A
     2432   01 0160C    214000E4 A   HD3      CI,4     X'E4'             DOES BYTE = HIO DESCRIPTOR?
     2433   01 0160D    69301614              BCS,3    HD4               BRANCH IF NOT
     2434   01 0160E    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2435   01 0160F    68301612              BCR,3    %+3               BRANCH IF NOT
     2436   01 01610    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2437   01 01611    68301614              BCR,3    HD4               BRANCH IF NOT                   *A02
     2438   01 01612    EA6003CD              #PRINT   SERCYHD4,C2       OUTPUT HIO HEADER
            01 01613    C200D4B4 A
     2439   01 01614    214000E5 A   HD4      CI,4     X'E5'             DOES BYTE = AIO DESCRIPTOR?
     2440   01 01615    6930161E              BCS,3    HD5               BRANCH IF NOT
     2441   01 01616    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2442   01 01617    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2443   01 01618    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2444   01 01619    6830161C              BCR,3    %+3               BRANCH IF NOT
     2445   01 0161A    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2446   01 0161B    6830161E              BCR,3    HD5               BRANCH IF NOT                   *A02
     2447   01 0161C    EA6003CD              #PRINT   SERCYHD5,C2       OUTPUT AIO HEADER
            01 0161D    C200D4BC A
     2448   01 0161E    214000E9 A   HD5      CI,4     X'E9'             DOES BYTE = ORDOUT DESCRIPTOR?
     2449   01 0161F    69301628              BCS,3    HD6               BRANCH IF NOT
     2450   01 01620    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2451   01 01621    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2452   01 01622    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2453   01 01623    68301626              BCR,3    %+3               BRANCH IF NOT
     2454   01 01624    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2455   01 01625    68301628              BCR,3    HD6               BRANCH IF NOT                   *A02
     2456   01 01626    EA6003CD              #PRINT   SERCYHD9,C2       OUTPUT ORDOUT HEADER
            01 01627    C200D4C4 A
     2457   01 01628    214000EA A   HD6      CI,4     X'EA'             DOES BYTE = DATA OUT DESCRPTR?
     2458   01 01629    69301632              BCS,3    HD7               BRANCH IF NOT
     2459   01 0162A    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2460   01 0162B    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2461   01 0162C    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2462   01 0162D    68301630              BCR,3    %+3               BRANCH IF NOT
     2463   01 0162E    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2464   01 0162F    68301632              BCR,3    HD7               BRANCH IF NOT                   *A02
     2465   01 01630    EA6003CD              #PRINT   SERCYHDA,C2       OUTPUT DATA OUT HEADER
            01 01631    C200D4D4 A
     2466   01 01632    214000EB A   HD7      CI,4     X'EB'             DOES BYTE = DATA IN DESCRPTR?
     2467   01 01633    6930163C              BCS,3    HD8               BRANCH IF NOT
     2468   01 01634    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2469   01 01635    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2470   01 01636    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2471   01 01637    6830163A              BCR,3    %+3               BRANCH IF NOT
     2472   01 01638    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2473   01 01639    6830163C              BCR,3    HD8               BRANCH IF NOT                   *A02
     2474   01 0163A    EA6003CD              #PRINT   SERCYHDB,C2       OUTPUT DATA IN HEADER
            01 0163B    C200D4E0 A
     2475   01 0163C    214000EC A   HD8      CI,4     X'EC'             DOES BYTE = ORDIN DESCRIPTOR?
     2476   01 0163D    69301646              BCS,3    HD9               BRANCH IF NOT
     2477   01 0163E    33B00002 A            MTW,-5   R2                ADJUST DATA INDEXER
     2478   01 0163F    33B00003 A            MTW,-5   R3                ADJUST COOKBOOK INDEXER
     2479   01 01640    330012D1              MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2480   01 01641    68301644              BCR,3    %+3               BRANCH IF NOT
     2481   01 01642    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2482   01 01643    68301646              BCR,3    HD9               BRANCH IF NOT                   *A02
     2483   01 01644    EA6003CD              #PRINT   SERCYHDC,C2       OUTPUT ORDIN HEADER
            01 01645    C200D4EC A
     2484   01 01646    330012D1     HD9      MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2485   01 01647    6830164A              BCR,3    %+3               BRANCH IF NOT
     2486   01 01648    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2487   01 01649    68301653              BCR,3    HD11              BRANCH IF NOT                   *A02
     2488   01 0164A    EA6003CD              #PRINT   GRPHEAD1,C1       OUTPUT CH.A GROUP HEADING
            01 0164B    C100D240 A
     2489   01 0164C    68001653              B        HD11
     2490   01 0164D    330012D1     HD10     MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2491   01 0164E    68301651              BCR,3    %+3               BRANCH IF NOT
     2492   01 0164F    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2493   01 01650    68301653              BCR,3    HD11              BRANCH IF NOT                   *A02
     2494   01 01651    EA6003CD              #PRINT   GRPHEAD3,C1       OUTPUT CH.B GROUP HEADING
            01 01652    C100D2C8 A
     2495   01 01653    20700001 A   HD11     AI,7     1                 INCREMENT SEQUENCE CNTRL. INDEX
     2496   01 01654    35701319              STW,7    LINEFOLD          STORE PHASE REPEAT START ADDR.
     2497   01 01655    32400002 A            LW,4     R2                FETCH STARTING OUTBUFF INDEX
     2498   01 01656    20400005 A            AI,4     5                 SET INDEX FOR ALTERNATE GROUPS
     2499   01 01657    354012F6              STW,4    FOLDEX            STORE VALUE FOR FOLDOVER
     2500   01 01658    32400003 A            LW,4     3                 FETCH COOKBOOK INDEX
     2501   01 01659    20400005 A            AI,4     5                 SET ALTERNATE GRP INDEX
     2502   01 0165A    354012F7              STW,4    FOLDEXC           SAVE FOR FOLDOVER
     2503   01 0165B    724E1374              LB,4     SEQBUFF,7         FETCH SEQUENCER CODE
     2504   01 0165C    E80015EB              B        *HEADSAVE         RETURN TO CALLER


     2506   01 0165D    330012D1     FOLDOUT  MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2507   01 0165E    68301661              BCR,3    %+3               BRANCH IF NOT
     2508   01 0165F    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2509   01 01660    6830166A              BCR,3    HD13              BRANCH IF NOT                   *A02
     2510   01 01661    EA6003CD              #PRINT   GRPHEAD2,C1       OUTPUT CH.A GROUP HEADING
            01 01662    C100D284 A
     2511   01 01663    6800166A              B        HD13
     2512   01 01664    330012D1     HD12     MTW,0    COMPFLAG          IS THIS COMPARE MODE?
     2513   01 01665    68301668              BCR,3    %+3               BRANCH IF NOT
     2514   01 01666    33001348              MTW,0    PUTOUT            IS DISPLAY TO BE OUTPUT?
     2515   01 01667    6830166A              BCR,3    HD13              BRANCH IF NOT                   *A02
     2516   01 01668    EA6003CD              #PRINT   GRPHEAD4,C1       OUTPUT CH.B GROUP HEADING
            01 01669    C100D30C A
     2517   01 0166A    32701319     HD13     LW,7     LINEFOLD          FETCH PHASE REPEAT VALUE
     2518   01 0166B    724E1374              LB,4     SEQBUFF,7         FETCH CONTROL BYTE
     2519   01 0166C    322012F6              LW,2     FOLDEX            FETCH FOLDOVER DATA INDEX
     2520   01 0166D    323012F7              LW,3     FOLDEXC           FETCH DATA FOLDOVER COMPARE INDEX
     2521   01 0166E    35E01319              STW,14   LINEFOLD          CLEAR LINE FOLD-OVER FLAG
     2522   01 0166F    E80015EB              B        *HEADSAVE         RETURN TO CALLER


     2524   01 01670    33101317     LINESET  MTW,1    LINECNT           INCREMENT LINE COUNT
     2525   01 01671    32501317              LW,5     LINECNT           FETCH LINE COUNT
     2526   01 01672    22400000 A            LI,4     0                 CLEAR UPPER MSD'S OF DIVIDEND
     2527   01 01673    364035BA              DW,4     =X'A'             DIVIDE HEX TO DECIMAL
     2528   01 01674    25500008 A            SLS,5    8                 POSITION QUOTIENT
     2529   01 01675    30500004 A            AW,5     4                 COMBINE WITH UNITS (REMAINDER)
     2530   01 01676    2240F0F0 A            LI,4     X'F0F0'           LOAD ZONE CONVERSION CONSTANT
     2531   01 01677    30500004 A            AW,5     4                 CONVERT TO EBCDIC
     2532   01 01678    55503454              STH,5    DISPFORM+1        SET LINE NUMBER IN BUFFER
     2533   01 01679    E800000F A            B        *15               RETURN TO CALLER




     2535   01 0167A    6AC0158E     PREPHS00 BAL,R12  PREPHSXX          CHECK FOR SINGLE PHASE
     2536   01 0167B    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2537   01 0167C    6AF0167F              BAL,15   SIO               SINGLE PHASE THRU SIO
     2538   01 0167D    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2540   01 0167E    00000000 A   SIOSAVE  DATA     0
     2541   01 0167F    35F0167E     SIO      STW,15   SIOSAVE           SAVE R15 FOR RETURN
     2542   01 01680    6AF01594              BAL,15   MODECHK           INITIALIZE AND SINGLE PHASE
     2543   01 01681    224000E1 A            LI,4     X'E1'             SET SIO DESCRIPTOR
     2544   01 01682    E800167E              B        *SIOSAVE          RETURN TO CALLER


     2546   01 01683    6AC0158E     PREPHS01 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2547   01 01684    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2548   01 01685    6AF01594              BAL,15   MODECHK           INITIALIZE AND SINGLE PHASE
     2549   01 01686    224000E2 A            LI,4     X'E2'             SET TIO DESCRIPTOR
     2550   01 01687    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2552   01 01688    6AC0158E     PREPHS02 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2553   01 01689    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2554   01 0168A    6AF01594              BAL,15   MODECHK           INITIALIZE AND SINGLE PHASE
     2555   01 0168B    224000E4 A            LI,4     X'E4'             SET HIO DESCRIPTOR
     2556   01 0168C    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2558   01 0168D    6AC0158E     PREPHS03 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2559   01 0168E    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2560   01 0168F    6AF016B6              BAL,R15  ORDOUT            STEP THRU SIO AND ORDER OUT
     2561   01 01690    6AF01575              BAL,R15  PHASTORE          STORE PHASE SEQUENCE:
     2562   01 01691    EB0E0F01 A            DATA     X'EB0E0F01'
     2563   01 01692    08090405 A            DATA     X'08090405'
     2564   01 01693    06070E0F A            DATA     X'06070E0F'
     2565   01 01694    01080700 A            DATA     X'01080700'
     2566   01 01695    2280000E A            LI,R8    14                SET PHASTEP LOOP COUNT
     2567   01 01696    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2568   01 01697    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2570   01 01698    6AC0158E     PREPHS04 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2571   01 01699    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2572   01 0169A    6AF016B6              BAL,R15  ORDOUT            STEP THRU SIO AND ORDER OUT
     2573   01 0169B    6AF01575              BAL,R15  PHASTORE          STORE PHASE SEQUENCE:
     2574   01 0169C    EB0E0F01 A            DATA     X'EB0E0F01'
     2575   01 0169D    08040506 A            DATA     X'08040506'
     2576   01 0169E    070E0F01 A            DATA     X'070E0F01'
     2577   01 0169F    08090700 A            DATA     X'08090700'
     2578   01 016A0    2280000E A            LI,R8    14                SET PHASTEP LOOP COUNT
     2579   01 016A1    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2580   01 016A2    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2582   01 016A3    6AC0158E     PREPHS05 BAL,R12  PREPHSXX          CHECK FOR SINGLE PHASE
     2583   01 016A4    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2584   01 016A5    6AF016B6              BAL,R15  ORDOUT            STEP THRU ORDOUT AND SIO
     2585   01 016A6    6AF01575              BAL,R15  PHASTORE          STORE PHASE SEQUENCE:
     2586   01 016A7    EA0E0F01 A            DATA     X'EA0E0F01'
     2587   01 016A8    00000000 A            DATA     X'00000000'
     2588   01 016A9    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2589   01 016AA    6AF0153F              BAL,R15  PHASTEP           SINGLE PHASE AND READ DISPLAY
     2590   01 016AB    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2592   01 016AC    6AC0158E     PREPHS06 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2593   01 016AD    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2594   01 016AE    6AF01594              BAL,15   MODECHK           INITIALIZE AND SINGLE PHASE
     2595   01 016AF    224000E3 A            LI,4     X'E3'             SET TDV DESCRIPTOR
     2596   01 016B0    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTNES


     2598   01 016B1    6AC0158E     PREPHS07 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2599   01 016B2    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2600   01 016B3    6AF016B6              BAL,15   ORDOUT            STEP THRU SIO AND ORDER OUT
     2601   01 016B4    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2603   01 016B5    00000000 A   ORDOSAVE DATA     0
     2604   01 016B6    35F016B5     ORDOUT   STW,15   ORDOSAVE          SAVE R15 FOR RETURN
     2605   01 016B7    330012D2              MTW,0    COMPSRV3          IS SIO SERVICE REQUIRED?
     2606   01 016B8    683016BB              BCR,3    %+3               IF SO, BRANCH
     2607   01 016B9    35E012D2              STW,14   COMPSRV3          CLEAR COMPSERVE FLAG
     2608   01 016BA    680016BC              B        %+2               BRANCH AROUND SIO SERVICE
     2609   01 016BB    6AF0167F              BAL,15   SIO               INITIALIZE AND STEP THRU SIO
     2610   01 016BC    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2611   01 016BD    E90E0F01 A            DATA     X'E90E0F01'
     2612   01 016BE    04050607 A            DATA     X'04050607'
     2613   01 016BF    00000000 A            DATA     X'00000000'
     2614   01 016C0    22800007 A            LI,8     7                 SET ORDER OUT PHASE COUNT
     2615   01 016C1    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2616   01 016C2    E80016B5              B        *ORDOSAVE         RETURN TO CALLER


     2618   01 016C3    6AC0158E     PREPHS08 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2619   01 016C4    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2620   01 016C5    6AF016DC              BAL,15   DATA              STEP THRU SIO, ORDOUT AND DATA OP.
     2621   01 016C6    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2623   01 016C7    6AC0158E     PREPHS09 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2624   01 016C8    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2625   01 016C9    6AF017E1              BAL,15   ORDIN             STEP THRU SIO,ORDOUT,DATA AND ORDIN
     2626   01 016CA    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2628   01 016CB    6AC0158E     PREPHS10 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2629   01 016CC    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2630   01 016CD    33101338              MTW,1    PHASEAIO          INHIBIT AIO IN HANDLER
     2631   01 016CE    6AF017E1              BAL,15   ORDIN             SINGLE PHASE THRU ORDIN
     2632   01 016CF    22401800 A            LI,4     X'1800'           SET BITS 19&20 IN R4
     2633   01 016D0    ED401298              WD,4     *GP08             SET SINGLE PHASE MODE, CH.A
     2634   01 016D1    6E200000 A            AIO,R2   0                 I/O
     2635   01 016D2    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2636   01 016D3    E50E0F0B A            DATA     X'E50E0F0B'
     2637   01 016D4    0C000000 A            DATA     X'0C000000'
     2638   01 016D5    22800001 A            LI,R8    1                 SET PHASTEP LOOP COUNT
     2639   01 016D6    6AF01541              BAL,R15  PHASTEPX          READ STATIC DISPLAY
     2640   01 016D7    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2641   01 016D8    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2642   01 016D9    6AF01ACE              BAL,R15  INTRESET          DISARM & DISABLE I/O INTRPT.
     2643   01 016DA    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES




     2645   01 016DB    00000000 A   DATASAVE DATA     0
     2646   01 016DC    35F016DB     DATA     STW,15   DATASAVE          SAVE R15 FOR RETURN
     2647   01 016DD    330012D3              MTW,0    COMPSRV4          IS ORD OUT NEEDED?
     2648   01 016DE    683016E1              BCR,3    %+3               IF SO, BRANCH
     2649   01 016DF    35E012D3              STW,14   COMPSRV4          CLEAR COMPARE SERVICE FLAG
     2650   01 016E0    680016E2              B        %+2               BRANCH AROUND ORDOUT
     2651   01 016E1    6AF016B6              BAL,15   ORDOUT            STEP THRU SIO AND ORDOUT
     2652   01 016E2    32400000 A            LW,4     R0
     2653   01 016E3    25400001 A            SLS,4    1                 FORM WRD ADR FROM DBWRD ADR
     2654   01 016E4    92C00004 A            LD,12    *4                FETCH COMMAND DOUBLEWORD
     2655   01 016E5    22900001 A            LI,9     1                 LOAD ORDER MASK
     2656   01 016E6    72A0000C A            LB,10    12                FETCH ORDER BYTE FROM CDW
     2657   01 016E7    4BA00009 A            AND,10   9                 DOES ORDER = WRITE?
     2658   01 016E8    6830176C              BCR,3    DATAIN            BRANCH IF NOT
     2659   01 016E9    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2660   01 016EA    EA000000 A            DATA     X'EA000000'
     2661   01 016EB    22900003 A            LI,9     3                 LOAD BYTE ADDRESS MASK
     2662   01 016EC    4B90000C A            AND,9    12                DOES BYTE ADDR. = WRD. BOUND?
     2663   01 016ED    6830170A              BCR,3    4START            IF SO, BRANCH
     2664   01 016EE    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2665   01 016EF    0E0F0100 A            DATA     X'0E0F0100'
     2666   01 016F0    22800003 A            LI,8     3                 SET SINGLE PHS. LOOP CNT TO 3
     2667   01 016F1    6AF0153F              BAL,15   PHASTEP           SINGLE STEP AND READ DISPLAY
     2668   01 016F2    6AF01575     ODDLOOP  BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2669   01 016F3    02000000 A            DATA     X'02000000'
     2670   01 016F4    22800001 A            LI,8     1                 SET PHASE STEP LOOP COUNT
     2671   01 016F5    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2672   01 016F6    3310000C A            MTW,1    R12               INCREMENT BYTE ADDRESS
     2673   01 016F7    33F0000D A            MTW,15   13                DECREMENT BYTE COUNT BY 1
     2674   01 016F8    22100001 A            LI,R1    1
     2675   01 016F9    5242000D A            LH,R4    R13,1             FETCH NEW BYTE COUNT
     2676   01 016FA    68301726              BCR,3    TERMPHS
     2677   01 016FB    33100009 A            MTW,1    9                 HAS WORD BOUND BEEN REACHED?
     2678   01 016FC    21900004 A            CI,R9    4                 BC<4?
     2679   01 016FD    693016F2              BCS,3    ODDLOOP           IF SO, BRANCH
     2680   01 016FE    22400200 A            LI,R4    X'200'
     2681   01 016FF    CB40132E              AND,R4   *NEXTEST          IS TEST DX4?
     2682   01 01700    6820170A              BCR,2    4START            NO
     2683   01 01701    22100001 A            LI,R1    1
     2684   01 01702    5242000D A            LH,R4    R13,1             FETCH REMAINING BYTE COUNT
     2685   01 01703    21400007 A            CI,R4    7                 IS BYTE COUNT < 7?
     2686   01 01704    6810170A              BCR,1    4START            BRANCH IF NOT
     2687   01 01705    22B0FFFF A            LI,R11   X'FFFF'           BYTE COUNT MASK
     2688   01 01706    4BB0000D A            AND,R11  R13               FETCH B.C. TO R11
     2689   01 01707    22A00000 A            LI,R10   0                 CLR UPPER MSD OF DIVIDEND
     2690   01 01708    36A035BB              DW,R10   =X'4'             COMPUT WRD ITERATIONS
     2691   01 01709    68001715              B        NOWORD-6          REMAIN ON ONEBYTE
     2692   01 0170A    22B0FFFF A   4START   LI,11    X'FFFF'           LOAD BYTE COUNT MASK
     2693   01 0170B    4BB0000D A            AND,11   13                MASK BYTE COUNT
     2694   01 0170C    E83016DB              BCR,3    *DATASAVE         BRANCH IF BYTE COUNT = ZERO
     2695   01 0170D    22A00400 A            LI,10    X'400'            LOAD BURST INDICATOR MASK
     2696   01 0170E    CBA0132E              AND,10   *NEXTEST          IS BURST MODE SET IN CNTRL WRD?
     2697   01 0170F    69301732              BCS,3    BURST             IF SO, BRANCH
     2698   01 01710    36A035BB              DW,10    =X'4'             COMPUTE NUMBER OF WRD. ITERATIONS
     2699   01 01711    6830171B              BCR,3    NOWORD            BRANCH IF NO WORD ITERATIONS
     2700   01 01712    22900200 A            LI,9     X'200'            LOAD FOUR BYTE MODE MASKER
     2701   01 01713    CB90132E              AND,9    *NEXTEST          IS DX4 SET IN CNTRL WORD?
     2702   01 01714    6930172B              BCS,3    DX4               IF SO, BRANCH
     2703   01 01715    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2704   01 01716    0E0F0102 A            DATA     X'0E0F0102'
     2705   01 01717    02020200 A            DATA     X'02020200'
     2706   01 01718    22800007 A            LI,8     7                 SET PHASTEP LOOP COUNT
     2707   01 01719    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2708   01 0171A    64B01715              BDR,11   %-5               LOOP FOR ALL WORD ITERATIONS
     2709   01 0171B    3290000A A   NOWORD   LW,9     10                FETCH REMAINING BYTE CNT., IF ANY
     2710   01 0171C    68301726              BCR,3    TERMPHS           TERMINATE IF NO REMAINING BYTES
     2711   01 0171D    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2712   01 0171E    0E0F0100 A            DATA     X'0E0F0100'
     2713   01 0171F    22800003 A            LI,8     3                 SET PHASTEP LOOP COUNT
     2714   01 01720    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2715   01 01721    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2716   01 01722    02000000 A            DATA     X'02000000'
     2717   01 01723    22800001 A            LI,8     1                 SETSINGLE PHASE LOOP COUNT
     2718   01 01724    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2719   01 01725    64901721              BDR,9    %-4               LOOP FOR REMAINING BYTES
     2720   01 01726    6AF01575     TERMPHS  BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2721   01 01727    07000000 A            DATA     X'07000000'
     2722   01 01728    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2723   01 01729    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2724   01 0172A    E80016DB              B        *DATASAVE         RETURN TO CALLER


     2726   01 0172B    6AF01575     DX4      BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2727   01 0172C    0E0F0102 A            DATA     X'0E0F0102'
     2728   01 0172D    00000000 A            DATA     X'00000000'
     2729   01 0172E    22800004 A            LI,8     4                 SET LOOP COUNT FOR PHASTEP
     2730   01 0172F    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2731   01 01730    64B0172B              BDR,11   %-5               LOOP FOR ALL WORD ITERATIONS
     2732   01 01731    6800171B              B        NOWORD            CHECK FOR REMAINING BYTES


     2734   01 01732    22900004 A   BURST    LI,9     4                 LOAD ODD WORD MASKER
     2735   01 01733    4B90000C A            AND,9    12                MASK BYTE FOR WORD BOUND
     2736   01 01734    6920174F              BCS,2    BURSTODD          BRANCH IF ODD WORD BOUNDRY
     2737   01 01735    22A00000 A            LI,10    0                 CLEAR REMAINDER REGISTER
     2738   01 01736    36A035BC              DW,10    =X'8'             COMPUTE DOUBLEWORD ITERATIONS
     2739   01 01737    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2740   01 01738    0E0F0000 A            DATA     X'0E0F0000'
     2741   01 01739    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2742   01 0173A    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2743   01 0173B    6AF01575     BURST8   BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2744   01 0173C    01020200 A            DATA     X'01020200'
     2745   01 0173D    22800003 A            LI,8     3                 SET PHASTEP LOOP COUNT
     2746   01 0173E    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2747   01 0173F    64B0173B              BDR,11   BURST8            LOOP FOR ALL DBWRD. ITERATIONS
     2748   01 01740    21A00003 A            CI,10    3                 IS REMAINING BYTE CNT. >3?      *A02
     2749   01 01741    69201749              BCS,2    LASTBRST          IF SO, BRANCH
     2750   01 01742    21A00000 A   BRSTBYTE CI,10    0                 DOES BYTE CNT. = ZERO?
     2751   01 01743    68301726              BCR,3    TERMPHS           IF SO, GIVE TERMINATION PHASE
     2752   01 01744    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2753   01 01745    07000000 A            DATA     X'07000000'
     2754   01 01746    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2755   01 01747    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2756   01 01748    6800171B              B        NOWORD            STEP THRU REMAINING BYTE XFERS

     2758   01 01749    6AF01575     LASTBRST BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2759   01 0174A    01020000 A            DATA     X'01020000'
     2760   01 0174B    22800002 A            LI,8     2                 SET PHASTEP LOOP CNT TO 2
     2761   01 0174C    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2762   01 0174D    33C0000A A            MTW,-4   R10               DECREMENT BYTE REMAINDER
     2763   01 0174E    68001742              B        BRSTBYTE          CHECK FOR REMAINING BYTES

     2765   01 0174F    6AF01575     BURSTODD BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2766   01 01750    0E0F0102 A            DATA     X'0E0F0102'
     2767   01 01751    00000000 A            DATA     X'00000000'
     2768   01 01752    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2769   01 01753    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2770   01 01754    33C0000B A            MTW,-4   R11               DECREMENT BC BY 4
     2771   01 01755    22A00000 A            LI,R10   0
     2772   01 01756    36A035BC              DW,R10   =X'8'
     2773   01 01757    6800173B              B        BURST8            LOOP FOR ALL DBWRD ITERATIONS



     2775         01 01758           DRIVER   EQU      %                 NORMAL RETURN                   *A04
     2776   01 01758    6AF0156E              BAL,R15  %RESET                                            *A04
     2777   01 01759    224013D8              LI,R4    BD10+1            LOAD NORMAL RETURN              *A04
     2778   01 0175A    330012D0              MTW,0    COMPASS           IS THIS COMPARE PASS?
     2779   01 0175B    68301761              BCR,3    DR1               NO, CHECK FOR CBGEN
     2780   01 0175C    2240148F              LI,R4    GOOD              LOAD COMPASS RETURN
     2781   01 0175D    33001348              MTW,0    PUTOUT            WAS A MISCOMPARE OUTPUT?
     2782   01 0175E    68301767              BCR,3    DR2+1             NO, RETURN TO GOOD              *A04
     2783   01 0175F    224013D8              LI,R4    BD10+1            LOAD HALT RETURN                *A04
     2784   01 01760    68001766              B        DR2               RETURN TO BAD
     2785   01 01761    330012C4     DR1      MTW,0    CBGEN             IS THIS COOKBOOK GENERATION?
     2786   01 01762    68301765              BCR,3    %+3                NO                             *A04
     2787   01 01763    224014AA              LI,R4    GO02               YES-- RETURN LINKAGE           *A04
     2788   01 01764    68001767              B        DR2+1              AND DO NOT RESET PHASFLAG      *A04
     2789   01 01765    35E01339              STW,R14  PHASFLAG          RESET PHASE ENABLE
     2790   01 01766    35E01322     DR2      STW,R14  MISCOMP                                           *A04
     2791   01 01767    3540176B              STW,R4   DR3               SAVE R4 FOR RETURN              *A04
     2792   01 01768    02200000 A            LCI      0                 RESTORE REGISTER CONTENTS
     2793   01 01769    2A001349              LM,0     REGISTER           TO PRE-SINGLE PHASE VALUES
     2794   01 0176A    E800176B              B        *DR3              RETURN TO DRIVER
     2795   01 0176B    00000000 A   DR3      DATA     0                 RETURN POINTER




     2797   01 0176C    6AF01575     DATAIN   BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2798   01 0176D    EB000000 A            DATA     X'EB000000'
     2799   01 0176E    22900003 A            LI,9     3                 LOAD BYTE ADDRESS MASKER
     2800   01 0176F    4B90000C A            AND,9    12                DOES BYTE ADDR. = WRD BOUND?
     2801   01 01770    6830179B              BCR,3    4STARTIN          IF SO, BRANCH
     2802   01 01771    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2803   01 01772    0E0F0000 A            DATA     X'0E0F0000'
     2804   01 01773    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2805   01 01774    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2806   01 01775    6AF01575     ODDLOOPI BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2807   01 01776    01000000 A            DATA     X'01000000'
     2808   01 01777    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2809   01 01778    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2810   01 01779    3310000C A            MTW,1    R12
     2811   01 0177A    33F0000D A            MTW,15   13                DECREMENT BYTE COUNT BY ONE
     2812   01 0177B    22100001 A            LI,R1    1
     2813   01 0177C    5242000D A            LH,R4    R13,1             FETCH NEW BYTE COUNT
     2814   01 0177D    68301726              BCR,3    TERMPHS           TERMINATE IF ZBC
     2815   01 0177E    324035BD              LW,R4    =X'C000000'
     2816   01 0177F    4B40000C A            AND,R4   R12               DOES ORDER = READ BACKWARD?
     2817   01 01780    68301784              BCR,3    %+4               BRANCH IF NOT
     2818   01 01781    33F00009 A            MTW,15   R9                DECREMENT BYTE ADDRESS BITS
     2819   01 01782    6830179B              BCR,3    4STARTIN          CONTINUE ON WRD BOUND
     2820   01 01783    68001785              B        %+2
     2821   01 01784    33100009 A            MTW,1    9                 HAS WRD BOUND BEEN REACHED?
     2822   01 01785    21900004 A            CI,R9    4                 BC<4?
     2823   01 01786    69301775              BCS,3    ODDLOOPI          IF SO, BRANCH
     2824   01 01787    22400200 A            LI,R4    X'200'
     2825   01 01788    CB40132E              AND,R4   *NEXTEST          IS TEST DX4?
     2826   01 01789    68201797              BCR,2    4STARTIN-4        NO
     2827   01 0178A    22100001 A            LI,R1    1
     2828   01 0178B    5242000D A            LH,R4    R13,1             FETCH REMAINING BYTE COUNT
     2829   01 0178C    21400007 A            CI,R4    7                 IS BYTE COUNT < 7?
     2830   01 0178D    68101797              BCR,1    4STARTIN-4        BRANCH IF NOT
     2831   01 0178E    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2832   01 0178F    07000000 A            DATA     X'07000000'
     2833   01 01790    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2834   01 01791    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2835   01 01792    22B0FFFF A            LI,R11   X'FFFF'           BYTE COUNT MASK
     2836   01 01793    4BB0000D A            AND,R11  R13               FETCH BYTE COUNT
     2837   01 01794    22A00000 A            LI,R10   0                 CLR UPPER MSD'S OF DIVIDEND
     2838   01 01795    36A035BB              DW,R10   =X'4'             COMPUT WRD ITERATIONS
     2839   01 01796    680017A6              B        NOWORDIN-6        REMAIN ON ONEBYTE
     2840   01 01797    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2841   01 01798    07000000 A            DATA     X'07000000'
     2842   01 01799    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2843   01 0179A    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2844   01 0179B    22B0FFFF A   4STARTIN LI,11    X'FFFF'           LOAD BYTE COUNT MASK
     2845   01 0179C    4BB0000D A            AND,11   13                MASK BYTE COUNT
     2846   01 0179D    E83016DB              BCR,3    *DATASAVE         BYTE CNT = 0, RETURN TO CALLER
     2847   01 0179E    22A00400 A            LI,10    X'400'            LOAD BURST INDICATOR MASK
     2848   01 0179F    CBA0132E              AND,10   *NEXTEST          IS BURST MODE SET IN CNTRL WORD?
     2849   01 017A0    693017BF              BCS,3    BURSTIN           IF SO, BRANCH
     2850   01 017A1    36A035BB              DW,10    =X'4'             COMPUTE NUMBER OF WORD ITERATIONS
     2851   01 017A2    683017AC              BCR,3    NOWORDIN          BRANCH IF NO WORD ITERATIONS
     2852   01 017A3    22900200 A            LI,9     X'200'            LOAD FOUR BYTE MODE INDICATOR MASK
     2853   01 017A4    CB90132E              AND,9    *NEXTEST          IS DX4 SET IN CNTRL WORD?
     2854   01 017A5    693017B8              BCS,3    DX4IN             IF SO, BRANCH
     2855   01 017A6    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2856   01 017A7    0E0F0101 A            DATA     X'0E0F0101'
     2857   01 017A8    01010700 A            DATA     X'01010700'
     2858   01 017A9    22800007 A            LI,8     7                 SET PHASTEP LOOP COUNT
     2859   01 017AA    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2860   01 017AB    64B017A6              BDR,11   %-5               LOOP FOR ALL WORD ITERATIONS
     2861   01 017AC    3290000A A   NOWORDIN LW,9     10                FETCH REMAINING BYTE COUNT, IF ANY
     2862   01 017AD    E83016DB              BCR,3    *DATASAVE         RETURN TO CALLER
     2863   01 017AE    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2864   01 017AF    0E0F0000 A            DATA     X'0E0F0000'
     2865   01 017B0    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2866   01 017B1    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2867   01 017B2    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2868   01 017B3    01000000 A            DATA     X'01000000'
     2869   01 017B4    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2870   01 017B5    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLA
     2871   01 017B6    649017B2              BDR,9    %-4               LOOP FOR REMAINING BYTES
     2872   01 017B7    68001726              B        TERMPHS           RETURN TO CALLER


     2874   01 017B8    6AF01575     DX4IN    BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2875   01 017B9    0E0F0107 A            DATA     X'0E0F0107'
     2876   01 017BA    00000000 A            DATA     X'00000000'
     2877   01 017BB    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2878   01 017BC    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2879   01 017BD    64B017B8              BDR,11   %-5               LOOP FOR ALL WRD ITERATIONS
     2880   01 017BE    680017AC              B        NOWORDIN          CHECK FOR REMAINING BYTES


     2882   01 017BF    6AF01575     BURSTIN  BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2883   01 017C0    0E0F0100 A            DATA     X'0E0F0100'
     2884   01 017C1    22800003 A            LI,8     3                 SET PHASTEP LOOP COUNT
     2885   01 017C2    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2886   01 017C3    22900004 A            LI,9     4                 LOAD ODD WORD MASKER
     2887   01 017C4    4B90000C A            AND,9    12                MASK BYTE ADDR. FOR WRD BOUND
     2888   01 017C5    692017DA              BCS,2    BRSTODDI          BRANCH IF ODD WORD BOUNDRY
     2889   01 017C6    22A00000 A            LI,10    0                 CLEAR REMAINDER REGISTER
     2890   01 017C7    36A035BC              DW,10    =8                COMPUTE DBWRD ITERATIONS
     2891   01 017C8    6AF01575     BURST8IN BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2892   01 017C9    08090000 A            DATA     X'08090000'
     2893   01 017CA    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2894   01 017CB    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2895   01 017CC    64B017C8              BDR,11   BURST8IN          LOOP FOR ALL DBWRD ITERATIONS
     2896   01 017CD    21A00003 A            CI,10    3                 IS BYTE COUNT > 3?              *A02
     2897   01 017CE    692017D4              BCS,2    LSTBRSTI          IF SO, BRANCH
     2898   01 017CF    6AF01575     BRSTBYTI BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2899   01 017D0    07000000 A            DATA     X'07000000'
     2900   01 017D1    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2901   01 017D2    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2902   01 017D3    680017AC              B        NOWORDIN          CHECK FOR REMAINING BYTES


     2904   01 017D4    6AF01575     LSTBRSTI BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2905   01 017D5    08080000 A            DATA     X'08080000'
     2906   01 017D6    22800002 A            LI,8     2                 SET PHASTEP LOOP COUNT
     2907   01 017D7    6AF0153F              BAL,15   PHASTEP           SINGLE STEP AND READ DISPLAY
     2908   01 017D8    33C0000A A            MTW,-4   R10               DECREMENT REMAINING BYTE COUNT
     2909   01 017D9    680017CF              B        BRSTBYTI          CHECK FOR REMAINING BYTES


     2911   01 017DA    6AF01575     BRSTODDI BAL,15   PHASTORE         STORE PHASE SEQUENCE:
     2912   01 017DB    08000000 A            DATA     X'08000000'
     2913   01 017DC    22800001 A            LI,8     1                 SET PHASTEP LOOP COUNT
     2914   01 017DD    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2915   01 017DE    33C0000B A            MTW,-4   R11               DECREMENT BC BY 4
     2916   01 017DF    680017C6              B        BURSTIN+7         BEGIN DBWRD TRANSFER




     2918   01 017E0    00000000 A   ORDINSV  DATA     0
     2919   01 017E1    35F017E0     ORDIN    STW,15   ORDINSV           SAVE R15 FOR RETURN
     2920   01 017E2    6AF016DC              BAL,15   DATA              STEP THRU SIO,ORDOUT,&DATA
     2921   01 017E3    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2922   01 017E4    EC0E0F01 A            DATA     X'EC0E0F01'
     2923   01 017E5    07000000 A            DATA     X'07000000'
     2924   01 017E6    22800004 A            LI,8     4                 SET PHASTEP LOOP COUNT
     2925   01 017E7    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2926   01 017E8    E80017E0              B        *ORDINSV          RETURN TO CALLER




     2928   01 017E9    6AC0158E     PREPHS11 BAL,R12  PREPHSXX          SAVE R15 FOR RETURN
     2929   01 017EA    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2930   01 017EB    6AF016B6              BAL,15   ORDOUT            STEP THRU ORDOUT
     2931   01 017EC    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2932   01 017ED    EB0E0F01 A            DATA     X'EB0E0F01'
     2933   01 017EE    04050607 A            DATA     X'04050607'
     2934   01 017EF    0E0F0101 A            DATA     X'0E0F0101'
     2935   01 017F0    07000000 A            DATA     X'07000000'
     2936   01 017F1    2280000C A            LI,8     12                SET PHASTEP LOOP COUNT
     2937   01 017F2    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2938   01 017F3    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2940   01 017F4    6AC0158E     PREPHS12 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2941   01 017F5    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2942   01 017F6    6AF016B6              BAL,15   ORDOUT            STEP THRU ORDOUT AND SIO
     2943   01 017F7    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2944   01 017F8    EA0E0F01 A            DATA     X'EA0E0F01'
     2945   01 017F9    02020405 A            DATA     X'02020405'
     2946   01 017FA    06070E0F A            DATA     X'06070E0F'
     2947   01 017FB    01020700 A            DATA     X'01020700'
     2948   01 017FC    2280000E A            LI,8     14                SET PHASTEP LOOP COUNT
     2949   01 017FD    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2950   01 017FE    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2952   01 017FF    6AC0158E     PREPHS13 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2953   01 01800    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2954   01 01801    6AF017E1              BAL,15   ORDIN             STEP THRU SIO,ORDOUT,DATA & ORDIN
     2955   01 01802    331012D2              MTW,1    COMPSRV3          INHIBIT SIO PHASEING
     2956   01 01803    33100000 A            MTW,1    R0                BUMP CMND DBWRD ADDR
     2957   01 01804    6AF016DC              BAL,15   DATA              STEP THRU ORDOUT AND DATA
     2958   01 01805    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2960   01 01806    6AC0158E     PREPHS14 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2961   01 01807    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2962   01 01808    6AF017E1              BAL,15   ORDIN             STEP THRU SIO,ORDOUT,DATA & ORDIN
     2963   01 01809    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2964   01 0180A    E90E0F01 A            DATA     X'E90E0F01'
     2965   01 0180B    04050405 A            DATA     X'04050405'
     2966   01 0180C    06070000 A            DATA     X'06070000'
     2967   01 0180D    22800009 A            LI,8     9                 SET PHASTEP LOOP COUNT
     2968   01 0180E    6AF0153F              BAL,15   PHASTEP           SINGLE STEP AND READ DISPLAY
     2969   01 0180F    331012D3              MTW,1    COMPSRV4          INHIBIT ORDOUT PHASEING
     2970   01 01810    22000926              LI,R0    DA(CMDT29B)       FETCH NEW DA OF CHAINED CMND
     2971   01 01811    6AF016DC              BAL,15   DATA              STEP THRU DATA IN
     2972   01 01812    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2974   01 01813    6AC0158E     PREPHS15 BAL,R12  PREPHSXX          SAVE R15 FOR POINTING AND RETURN
     2975   01 01814    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2976   01 01815    6AF017E1              BAL,15   ORDIN             STEP THRU SIO,ORDOUT,DATA &ORDIN
     2977   01 01816    6AF01575              BAL,15   PHASTORE          STORE PHASE SEQUENCE:
     2978   01 01817    E90E0F01 A            DATA     X'E90E0F01'
     2979   01 01818    04050405 A            DATA     X'04050405'
     2980   01 01819    07000000 A            DATA     X'07000000'
     2981   01 0181A    22800008 A            LI,8     8                 SET PHASTEP LOOP COUNT
     2982   01 0181B    6AF0153F              BAL,15   PHASTEP           SINGLE PHASE AND READ DISPLAY
     2983   01 0181C    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     2985   01 0181D    6AC0158E     PREPHS16 BAL,R12  PREPHSXX          CHECK FOR SINGLE PHASE
     2986   01 0181E    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2987   01 0181F    6AF0167F              BAL,R15  SIO               STEP THRU SIO
     2988   01 01820    328035BE              LW,R8    =X'4000000'       UNUSUAL END CONTROL BIT
     2989   01 01821    ED80129E              WD,R8    *GP14             INVOKE UNE - CHA. A
     2990   01 01822    331012D2              MTW,1    COMPSRV3          INHIBIT SIO PHASEING
     2991   01 01823    6AF016B6              BAL,R15  ORDOUT            STEP THRU ORDER OUT
     2992   01 01824    224016CF              LI,R4    PREPHS10+4        SET ORDIN RETURN TO
     2993   01 01825    354017E0              STW,R4   ORDINSV            AIO PROCESSOR
     2994   01 01826    33101338              MTW,1    PHASEAIO          INHIBIT AIO IN HANDLER
     2995   01 01827    680017E3              B        ORDIN+2           STEP THRU ORDER IN AND AIO


     2997   01 01828    6AC0158E     PREPHS17 BAL,R12  PREPHSXX          CHECK FOR SINGLE PHASE
     2998   01 01829    35F01337              STW,R15  PHASAVE           SAVE R15 FOR POINTING
     2999   01 0182A    358013B1              STW,R8   WDSAVE            SAVE WRITE DIRECT DATA
     3000   01 0182B    6AF0167F              BAL,R15  SIO               STEP THRU SIO
     3001   01 0182C    328013B1              LW,R8    WDSAVE            FETCH WRITE DIRECT DATA
     3002   01 0182D    ED80129D              WD,R8    *GP13             SET BAD PARITY - CHA. A
     3003   01 0182E    331012D2              MTW,1    COMPSRV3          INHIBIT SIO PHASEING
     3004   01 0182F    6AF016B6              BAL,R15  ORDOUT            STEP THRU ORDOUT, DATA AND ORDIN
     3005   01 01830    6AF01575              BAL,R15  PHASTORE          STORE PHASE SEQUENCE:
     3006   01 01831    EB0E0F01 A            DATA     X'EB0E0F01'
     3007   01 01832    01070000 A            DATA     X'01070000'
     3008   01 01833    22800005 A            LI,R8    5                 SET PHASE STEP LOOP COUNT
     3009   01 01834    6AF0153F              BAL,R15  PHASTEP           SINGLE PHASE AND READ DISPLAY
     3010   01 01835    22401838              LI,R4    %+3
     3011   01 01836    354017E0              STW,R4   ORDINSV           SET LOCAL RETURN
     3012   01 01837    680017E3              B        ORDIN+2           STEP THRU ORDER IN
     3013   01 01838    680015BD              B        DISPLAYX          GO TO OUTPUT ROUTINES


     3015   01 01839    330012F4     COMPARE  MTW,0    FINDCOOK          HAS COOKBOOK FILE BEEN
     3016                            *                                    LOCATED ON THE MTL?
     3017   01 0183A    68301844              BCR,3    READONE           IF SO, BRANCH
     3018   01 0183B    35E012F4              STW,R14  FINDCOOK          CLEAR TAPE SEARCH FLAG
     3019   01 0183C    22000945     FINDATA  LI,R0    DA(FILEFWD)
     3020   01 0183D    6AF018A3              BAL,R15  RECOUT            SPACE FILE FWD.
     3021   01 0183E    22000946              LI,R0    DA(READREC)
     3022   01 0183F    6AF018A3              BAL,R15  RECOUT            READ A RECORD
     3023   01 01840    324035BF              LW,R4    =X'DECA6600'      = FIRST WORD OF 1ST RECORD      *A03
     3024   01 01841    31403945              CW,R4    COOKDATA          IS THIS COOKDATA START?
     3025   01 01842    6930183C              BCS,3    FINDATA           NO-- TRY AGAIN
     3026   01 01843    6800184E              B        STRTCOMP          BEGIN COMPARE
     3027   01 01844    22000946     READONE  LI,R0    DA(READREC)
     3028   01 01845    6AF018A3              BAL,R15  RECOUT            READ A RECORD
     3029   01 01846    CE1012FD              TDV,R1   *GENADR           TEST FOR E.O.F.
     3030   01 01847    4B1035C0              AND,R1   =X'10000000'      WAS E.O.F. SET?
     3031   01 01848    6820184E              BCR,2    STRTCOMP          BRANCH IF NOT
     3032   01 01849    22000947              LI,R0    DA(FILEBACK)
     3033   01 0184A    6AF018A3              BAL,R15  RECOUT            BACK SPACE ONE FILE
     3034   01 0184B    6AF018A3              BAL,R15  RECOUT            BACK SPACE ONE FILE
     3035   01 0184C    22000945              LI,R0    DA(FILEFWD)       SPACE FWD ONE FILE
     3036   01 0184D    6AF018A3              BAL,R15  RECOUT
     3037   01 0184E    324037B5     STRTCOMP LW,R4    OUTBUFF           FETCH RECORD LABEL
     3038   01 0184F    31403945              CW,R4    COOKDATA          IS THIS DATA FOR CURRENT TEST?
     3039   01 01850    69301844              BCS,3    READONE           BRANCH IF NOT
     3040   01 01851    22200000 A            LI,R2    0                 CLEAR INDEX REGISTERS
     3041   01 01852    22300001 A            LI,R3    1
     3042   01 01853    22700000 A            LI,R7    0
     3043   01 01854    22E00000 A            LI,R14   0                                                 *A04
     3044   01 01855    35E01322              STW,R14  MISCOMP           CLEAR MISCOMPARE INDICATER
     3045   01 01856    724E1374     COMPLINE LB,4     SEQBUFF,7         FETCH SEQUENCE CONTROL BYTE
     3046   01 01857    69301859              BCS,3    %+2
     3047   01 01858    6AF015E4              BAL,15   PREDRIVE          CHECK FOR FOLDOVER
     3048   01 01859    21400010 A            CI,4     X'10'             DOES BYTE = HEADING DESCRIPTOR?
     3049   01 0185A    6910185C              BCS,1    %+2               BRANCH IF NOT
     3050   01 0185B    6AF015EC              BAL,15   HEADOUT           OUTPUT APPROPRIATE HEADING
     3051   01 0185C    5288133B              LH,8     PHASNUMB,4        FETCH PHASE NUMBER, INDEXED
     3052   01 0185D    22500005 A            LI,5     5                 SET STORE HALFWORD INDEX
     3053   01 0185E    558A3453              STH,8    DISPFORM,5        STR PHS NO. IN DISP LINE FORMAT
     3054   01 0185F    6AF01670              BAL,15   LINESET           STORE LINE NO. IN DISP FORMAT
     3055   01 01860    22900005 A            LI,9     5                 SET DATA STORE LOOP COUNT
     3056   01 01861    22500004 A            LI,5     4                 INITIALIZE DATA STORE INDEX
     3057   01 01862    353012D4              STW,3    COMPSTRT          SAVE LINESTART INDEX FOR COMPARE
     3058   01 01863    35E01318              STW,14   LINERR            CLEAR MISCOMPARE FLAG
     3059   01 01864    32863945     COMPFILL LW,8     COOKDATA,3        FETCH COOKBOOK WORD, INDEXED
     3060   01 01865    EA6003C3              #HTECON  8                 CONVERT TO EBCDIC
            01 01866    00000008 A
     3061   01 01867    32AC0000 A            LW,10    0,6               FETCH EBCDIC FOR BITS 0-15
     3062   01 01868    35AA3453              STW,10   DISPFORM,5        STORE IN LINE BUFFER
     3063   01 01869    20500001 A            AI,5     1                 INCREMENT DATA STORE INDEX
     3064   01 0186A    32AC0001 A            LW,10    1,6               FETCH EBCDIC FOR BITS 12-31
     3065   01 0186B    35AA3453              STW,10   DISPFORM,5        STORE IN DISPLAY LINE FORMAT
     3066   01 0186C    20500002 A            AI,5     2                 INCREMENT DATA STORE INDEX
     3067   01 0186D    20300001 A            AI,3     1                 INCREMENT DATA FETCH INDEX
     3068   01 0186E    64901864              BDR,9    COMPFILL          LOOP FOR FIVE DISPLAY GROUPS
     3069   01 0186F    33001348              MTW,0    PUTOUT            SHOULD DISPLAY BE OUTPUT?
     3070   01 01870    68301873              BCR,3    %+3               BRANCH IF NOT
     3071   01 01871    EA6003CD              #PRINT   DISPFORM          OUTPUT FORMATTED LINE
            01 01872    C000D14C A


     3073   01 01873    323012D4              LW,3     COMPSTRT          FETCH STARTING ADDR. OF COOKBOOK*A02
     3074   01 01874    22900005 A            LI,9     5                 SET DATA STORE LOOP COUNT
     3075   01 01875    22500004 A            LI,5     4                 INITAILIZE DATA STORE INDEX


     3077   01 01876    328437B5     LINEFILL LW,8     OUTBUFF,2         FETCH "ACTUAL" READING
     3078   01 01877    32463945              LW,4     COOKDATA,3        FETCH COOKBOOK READING
     3079   01 01878    31800004 A            CW,8     4                 DOES ACTUAL = COOKBOOK
     3080   01 01879    6830187E              BCR,3    %+5               IF SO, BRANCH
     3081   01 0187A    33101322              MTW,1    MISCOMP           SET MISCOMPARE FLAG
     3082   01 0187B    33101318              MTW,1    LINERR            FLAG THIS LINE FOR COMPARE ERR
     3083   01 0187C    324013B5              LW,4     %ERRFLAG          FETCH ERROR INDICATOR
     3084   01 0187D    6800187F              B        %+2
     3085   01 0187E    324013B6              LW,4     %SPACES           FETCH SPACE CODEING
     3086   01 0187F    33F00005 A            MTW,15   5                 DECREMENT STORE INDEX
     3087   01 01880    354A3440              STW,4    DISPERR,5         STORE IN ERR DISPLAY BUFFER
     3088   01 01881    33100005 A            MTW,1    5                 RESTORE DAT STORE INDEX
     3089   01 01882    EA6003C3              #HTECON  8                 CONVERT TO EBCDIC
            01 01883    00000008 A
     3090   01 01884    32AC0000 A            LW,10    0,6               FETCH EBCDIC FOR BITS 0-15
     3091   01 01885    35AA3440              STW,10   DISPERR,5         STORE IN ERR DISPLAY BUFFER
     3092   01 01886    20500001 A            AI,5     1                 INCREMENT DATA STORE INDEX
     3093   01 01887    32AC0001 A            LW,10    1,6               FETCH EBCDIC FOR BITS 12-31
     3094   01 01888    35AA3440              STW,10   DISPERR,5         STORE IN ERR DISPLAY BUFFER
     3095   01 01889    20500002 A            AI,5     2                 INCREMENT DATA STORE INDEX
     3096   01 0188A    20300001 A            AI,3     1                 INCREMENT COOKBOOK DATA INDEX
     3097   01 0188B    20200001 A            AI,2     1                 INCREMENT OUTBUFF DATA INDEX
     3098   01 0188C    64901876              BDR,9    LINEFILL          LOOP FOR FIVE DATA GROUPS
     3099   01 0188D    33100007 A            MTW,1    7                 INCREMENT SEQUENCER INDEX
     3100   01 0188E    33001318              MTW,0    LINERR            DID MISCOMPARISON OCCUR?
     3101   01 0188F    68301894              BCR,3    LNFL20            BRANCH IF NOT                   *A02
     3102   01 01890    33001348              MTW,0    PUTOUT            SHOULD DISPLAY BE OUTPUT?
     3103   01 01891    68301894              BCR,3    LNFL20            BRANCH IF NOT                   *A02
     3104   01 01892    EA6003CD              #PRINT   DISPERR           OUTPUT ERR LINE
            01 01893    C000D100 A
     3105   01 01894    20200005 A   LNFL20   AI,2     5                 SET ALTERNATE GRP INDEX         *A02
     3106   01 01895    20300005 A            AI,3     5                 SET ALTERNATE COMPARE INDEX
     3107   01 01896    68001856              B        COMPLINE          LOOP FOR NEXT LINE
     3108   01 01897    724E1374     TAPEGEN  LB,R4    SEQBUFF,7         FETCH CONTROL BYTE
     3109   01 01898    6830189E              BCR,3    %+6               EXIT IF = ZERO
     3110   01 01899    21400010 A            CI,R4    X'10'             DOES BYTE = PHASE DESCRIPTOR?
     3111   01 0189A    6920189C              BCS,2    %+2               BRANCH IF NOT
     3112   01 0189B    20200028 A            AI,R2    40                40 BYTES/PHASE
     3113   01 0189C    20700001 A            AI,R7    1                 INCREMENT CONTROL BYTE INDEX
     3114   01 0189D    68001897              B        TAPEGEN           LOOP TILL CONTROL BYTE  = 0.
     3115   01 0189E    20200004 A            AI,R2    4                 4 BYTES FOR RECORD LABEL
     3116   01 0189F    35201291              STW,R2   TAPECMND+1        SET BYTE COUNT
     3117   01 018A0    22000948              LI,R0    DA(TAPECMND)      DEDICATE R0 TO CMND ADDR.
     3118   01 018A1    6AF018A3              BAL,R15  RECOUT            OUTPUT RECORD
     3119   01 018A2    68001758              B        DRIVER            RETURN TO DRIVER.


     3121   01 018A3    32D012FD     RECOUT   LW,R13   GENADR            DOES OUTPUT ADDR. = TEST ADDR.
     3122   01 018A4    4BD035C1              AND,R13  =X'1F00'
     3123   01 018A5    31D01310              CW,R13   IOPNO                                             *A03
     3124   01 018A6    692018AB              BCS,2    REC10                                             *A03
     3125   01 018A7    35E012E4              STW,R14  DCOFFA
     3126   01 018A8    EDE0129F              WD,R14   *GP15
     3127   01 018A9    22CFD8F0 A            LI,R12   -10000
     3128   01 018AA    65C018AA              BIR,R12  %                 DELAY
     3129   01 018AB    CD1012FD     REC10    TIO,1    *GENADR           TEST I/O                        *A03
     3130   01 018AC    68C018AE              BCR,12   %+2
     3131   01 018AD    2E000000 A            WAIT                       I/O ADDRESS NOT RECOGNIZED
     3132                            *                                   NOT ACCEPTED:  TAPE UNIT BUSY
     3133                            *                                   OR DEVICE INTRPT PENDING.
     3134   01 018AE    4B1035C0              AND,1    =X'10000000'
     3135   01 018AF    693018B1              BCS,3    %+2
     3136   01 018B0    2E000000 A            WAIT                       TAPE UNIT IS IN MANUAL
     3137   01 018B1    2240000A A            LI,4     10                SET WRITE REPEAT COUNT
     3138   01 018B2    CC8012FD              SIO,8    *GENADR           START I/O                       *A02
     3139   01 018B3    CDC012FD              TIO,R12  *GENADR           TEST I/O FOR TDE
     3140   01 018B4    69C018B3              BCS,12   %-1               LOOP UNTIL ACCEPTED
     3141   01 018B5    4BD035B5              AND,R13  =X'00400000'      WAS TDE SET?
     3142   01 018B6    E830000F A            BCR,3    *15               IF NOT, RETURN TO CALLER
     3143   01 018B7    22000943              LI,0     DA(RECBACK)       FETCH CMND DOUBLEWORD
     3144   01 018B8    CC8012FD              SIO,8    *GENADR           SPACE BACKWARD ONE RECORD
     3145   01 018B9    69C018B8              BCS,12   %-1               LOOP UNTIL ACCEPTED
     3146   01 018BA    33E0000F A            MTW,14   15                DECREMENT RETURN
     3147   01 018BB    E440000F A            BDR,4    *15               REPEAT WRITE X TIMES
     3148   01 018BC    2E000000 A            WAIT                       NON-WRITEABLE TAPE, OR ??
     3149   01 018BD    E800000F A            B        *R15              LOOP                            *A02
     3150                            **********************************************************************
     3151                            *                                                                     *
     3152                            *        INTERRUPT-TRAP HANDLER ROUTINES                              *
     3153                            *                                                                     *
     3154                            **********************************************************************
     3155                            *
     3156                            *                 INSTRUCTION EXCEPTION TRAP HANDLER/PRE-HANDLER (4D)
     3157         01 018BE           IET      EQU      %
     3158   01 018BE    74001302              STCF     IETTCC04          SAVE TCC 0-4                    *A02
     3159   01 018BF    1520138A              STD,R2   SAVREG+4          SAVE
     3160   01 018C0    70200392              LC       #SENSE            CHECK FOR SHORT LOOP OPTION
     3161   01 018C1    698018D2              BCS,8    IET70              YES
     3162   01 018C2    691018CC              BCS,1    IET60             SUPPRESS PRINT
     3163   01 018C3    222018CC              LI,R2    IET60
     3164   01 018C4    352003AF              STW,R2   #TRAPLNK
     3165   01 018C5    122013B8              LD,R2    IETT              RESTORE ORIGINAL PSD
     3166   01 018C6    95201362              STD,R2   *SAVEGIET
     3167   01 018C7    22300008 A            LI,R3    8                 STORE TCC 0-4 IN GUIDE PSD      *A02
     3168   01 018C8    72201302              LB,R2    IETTCC04                                          *A02
     3169   01 018C9    F5261362              STB,R2   *SAVEGIET,X3                                      *A02
     3170   01 018CA    22200001 A            LI,R2    1                 RETURN TO GUIDE PARITY TRAP HANDLER
     3171   01 018CB    8E041362              LPSD,0   *SAVEGIET,X2
     3172   01 018CC    70200392     IET60    LC       #SENSE            HALT ON ERROR CONDITION
     3173   01 018CD    692018D2              BCS,2    IET70                                             *A02
     3174   01 018CE    222018D2              LI,R2    IET70                                             *A02
     3175   01 018CF    35201300              STW,R2   IDLINK                                            *A02
     3176   01 018D0    1220138A              LD,R2    SAVREG+4          RESTORE REGISTERS               *A02
     3177   01 018D1    0E10135A              LPSD,1   RTIDLE            RETURN TO IDLE STATE
     3178   01 018D2    331013B8     IET70    MTW,1    IETT              RETURN+1
     3179   01 018D3    22200000 A            LI,R2    0                                                 *A04
     3180   01 018D4    352003AF              STW,R2   #TRAPLNK          CANCEL TRAP LINK FOR GUIDE      *A02
     3181   01 018D5    1220138A              LD,R2    SAVREG+4          RESTORE REGISTERS               *A02
     3182   01 018D6    0E1013B8              LPSD,1   IETT              CLEAR PDF AND RETURN
     3183                            *
     3184                            *                 I/O INTERRUPT HANDLER/PRE-HANDLER (5C)
     3185         01 018D7           IOINTR   EQU      %
     3186   01 018D7    15201390              STD,R2   SAVREG+10         SAVE REGISTERS                  *A02
     3187   01 018D8    330012A1              MTW,0    AIOSKIP           IS AIO TO BE EXECUTED BY IOINTR
     3188   01 018D9    693018EC              BCS,3    IOT70-2           NO,SKIP AIO EXECUTION
     3189   01 018DA    33001338              MTW,0    PHASEAIO          IS THIS A SINGLE PHASE PASS
     3190   01 018DB    693018EE              BCS,3    IOT70
     3191   01 018DC    3300130D              MTW,0    IOINTRSW          EXPECTED IO INTERRUPT
     3192   01 018DD    692018E7              BCS,2    IOT60             YES
     3193   01 018DE    70200392              LC       #SENSE
     3194   01 018DF    698018E7              BCS,8    IOT60             CHECK FOR SHORT LOOP OPTION
     3195   01 018E0    691018F7              BCS,1    IOT75             SUPPRESS PRINT
     3196   01 018E1    222018FA              LI,R2    IOT80             NO-- GO TO GUIDE
     3197   01 018E2    352003AF              STW,R2   #TRAPLNK
     3198   01 018E3    122013BC              LD,R2    IOI               RETURN TO GUIDE I/O
     3199   01 018E4    95201364              STD,R2   *SAVEGIO           INTERRUPT HANDLER
     3200   01 018E5    22200001 A            LI,R2    1                                                 *A02
     3201   01 018E6    8E041364              LPSD,0   *SAVEGIO,X2
     3202   01 018E7    22200000 A   IOT60    LI,R2    0                 CLEAR I/O INTERRUPT SWITCH
     3203   01 018E8    3520130D              STW,R2   IOINTRSW
     3204   01 018E9    6E200000 A            AIO,R2   0                 ACKNOWLEDGE INTERRUPT
     3205   01 018EA    740012A0              STCF     AIOCC             SAVE CONDITION CODES
     3206   01 018EB    352012A2              STW,R2   AIOSTATS          SAVE STATUS
     3207   01 018EC    3220130C              LW,R2    INTRTN            DETERMINE INTERRUPT RETURN
     3208   01 018ED    352013BC              STW,R2   IOI               OLD PSD
     3209   01 018EE    322013BD     IOT70    LW,R2    IOI+1             ASSURE I/O INTERRUPT BIT IS SET
     3210   01 018EF    492035C2              OR,R2    =X'2000000'
     3211   01 018F0    352013BD              STW,R2   IOI+1             RESTORE
     3212   01 018F1    22200000 A            LI,R2    0
     3213   01 018F2    35201338              STW,R2   PHASEAIO          CLEAR SINGLE PHASE AIO FLAG
     3214   01 018F3    352003AF              STW,R2   #TRAPLNK          CANCEL TRAP LINK FOR GUIDE      *A02
     3215   01 018F4    3520130D              STW,R2   IOINTRSW          RESET INT. EXPECTED SWITCH
     3216   01 018F5    12201390              LD,R2    SAVREG+10         RESTORE REGISTERS               *A02
     3217   01 018F6    0E2013BC              LPSD,2   IOI               CLEAR AND DISARM INTR. & RETURN
     3218   01 018F7    6E200000 A   IOT75    AIO,R2   0
     3219   01 018F8    740012A0              STCF     AIOCC
     3220   01 018F9    352012A2              STW,R2   AIOSTATS
     3221         01 018FA           IOT80    EQU      %
     3222   01 018FA    70200392              LC       #SENSE
     3223   01 018FB    692018F5              BCS,2    IOT75-2
     3224   01 018FC    222018F5              LI,R2    IOT75-2           IDLE LINKAGE                    *A02
     3225   01 018FD    35201300              STW,R2   IDLINK                                            *A02
     3226   01 018FE    12201390              LD,R2    SAVREG+10         RESTORE REGISTERS               *A02
     3227   01 018FF    0E20135A              LPSD,2   RTIDLE            RETURN TO IDLE STATE
     3228                            *
     3229                            *                 MEMORY FAULT INTERRUPT HANDLER/PRE-HANDLER (57)
     3230         01 01900           MFITR    EQU      %
     3231   01 01900    1520138E              STD,R2   SAVREG+8          SAVE REGISTERS                  *A02
     3232   01 01901    70200392              LC       #SENSE            CHECK FOR SHORT LOOP
     3233   01 01902    69801911              BCS,8    MFI70
     3234   01 01903    6910190A              BCS,1    MFI50             TEST FOR HALT ON ERROR CONDITION*A02
     3235   01 01904    2220190A              LI,R2    MFI50             NO-- TO GUIDE                   *A02
     3236   01 01905    352003AF              STW,R2   #TRAPLNK
     3237   01 01906    122013C0              LD,R2    MFII              RESTORE ORIGINAL PSD
     3238   01 01907    95201366              STD,R2   *SAVEGMFI
     3239   01 01908    22200001 A            LI,R2    1                 RETURN TO GUIDE MFI
     3240   01 01909    8E041366              LPSD,0   *SAVEGMFI,X2
     3241   01 0190A    6AF01BCA     MFI50    BAL,R15  PURGEPTY          PURGE PARITY                    *A02
     3242   01 0190B    70200392              LC       #SENSE            TEST FOR HALT ON ERROR CONDITION*A02
     3243   01 0190C    69201912              BCS,2    MFI70+1                                           *A02
     3244   01 0190D    22201912              LI,R2    MFI70+1           IDLE LINKAGE                    *A02
     3245   01 0190E    35201300              STW,R2   IDLINK
     3246   01 0190F    1220138E              LD,R2    SAVREG+8          RESTORE REGISTERS               *A02
     3247   01 01910    0E30135A              LPSD,3   RTIDLE            RETURN TO IDLE STATE
     3248   01 01911    6AF01BCA     MFI70    BAL,R15  PURGEPTY
     3249   01 01912    22200000 A            LI,R2    0                 CANCEL GUIDE TRAP LINKAGE       *A02
     3250   01 01913    352003AF              STW,R2   #TRAPLNK                                          *A02
     3251   01 01914    1220138E              LD,R2    SAVREG+8          RESTORE REGISTERS               *A02
     3252   01 01915    0E3013C0              LPSD,3   MFII              CLEAR, ARM & RETURN
     3253                            *
     3254                            *                 PROCESSOR FAULT INTERRUPT HANDLER/PRE-HANDLER (56)
     3255         01 01916           PFITR    EQU      %
     3256   01 01916    1520138C              STD,R2   SAVREG+6          SAVE REGISTERS                  *A02
     3257   01 01917    3220130E              LW,R2    IOPA              IOP ADDRESS                     *A03
     3258   01 01918    70200392              LC       #SENSE            CHECK FOR SHORT LOOP OPTION
     3259   01 01919    69801929              BCS,8    PFI70              YES
     3260   01 0191A    69101921              BCS,1    PFI60             SUPPRESS PRINT                  *A02
     3261   01 0191B    22201921              LI,R2    PFI60             NO-- GO TO GUIDE
     3262   01 0191C    352003AF              STW,R2   #TRAPLNK
     3263   01 0191D    122013C4              LD,R2    PFII              RESTORE ORIGINAL PSD
     3264   01 0191E    95201368              STD,R2   *SAVEGPFI
     3265   01 0191F    22200001 A            LI,R2    1                 RETURN TO GUIDE PFI
     3266   01 01920    8E041368              LPSD,0   *SAVEGPFI,X2
     3267   01 01921    3220130E     PFI60    LW,R2    IOPA                                              *A03
     3268   01 01922    4F34C000 A            POLR,R3  0,X2              RESET PFI                       *A02
     3269   01 01923    70200392              LC       #SENSE            TEST FOR HALT ON ERROR CONDITION*A02
     3270   01 01924    6920192A              BCS,2    PFI70+1                                           *A02
     3271   01 01925    2220192A              LI,R2    PFI70+1           IDLE LINKAGE                    *A02
     3272   01 01926    35201300              STW,R2   IDLINK                                            *A02
     3273   01 01927    1220138C              LD,R2    SAVREG+6          RESTORE REGISTERS               *A02
     3274   01 01928    0E30135A              LPSD,3   RTIDLE            RETURN TO IDLE STATE
     3275   01 01929    4F34C000 A   PFI70    POLR,R3  0,X2              RESET PFI                       *A02
     3276   01 0192A    22200000 A            LI,R2    0                 CANCEL GUIDE TRAP LINKAGE       *A02
     3277   01 0192B    352003AF              STW,R2   #TRAPLNK                                          *A02
     3278   01 0192C    1220138C              LD,R2    SAVREG+6          RESTORE REGISTERS               *A02
     3279   01 0192D    0E3013C4              LPSD,3   PFII              CLEAR INTERRUPT, REARM & RETURN
     3280                            *
     3281                            *                 PARITY TRAP HANDLER/PRE-HANDLER (4C)
     3282         01 0192E           PT       EQU      %
     3283   01 0192E    74001345              STCF     PTTCC04           SAVE TCC 0-4                    *A02
     3284   01 0192F    15201388              STD,R2   SAVREG+2          SAVE REGISTERS                  *A02
     3285   01 01930    22200400 A            LI,R2    X'400'            DISARM MFI
     3286   01 01931    6D201100 A            WD,R2    DISARM
     3287   01 01932    70200392              LC       #SENSE            CHECK FOR SHORT LOOP OPTION
     3288   01 01933    69801945              BCS,8    PT70               YES
     3289   01 01934    6910193E              BCS,1    PT60              SUPPRESS PRINT                  *A02
     3290   01 01935    2220193E              LI,R2    PT60              NO-- GO TO GUIDE
     3291   01 01936    352003AF              STW,R2   #TRAPLNK
     3292   01 01937    122013C8              LD,R2    PTT               RESTORE ORIGINAL PSD
     3293   01 01938    9520136A              STD,R2   *SAVEGPTY
     3294   01 01939    22300008 A            LI,R3    8                 SAVE TCC 0-4 IN GUIDE PSD       *A02
     3295   01 0193A    72201345              LB,R2    PTTCC04                                           *A02
     3296   01 0193B    F526136A              STB,R2   *SAVEGPTY,X3                                      *A02
     3297   01 0193C    22200001 A            LI,R2    1                 RETURN TO GUIDE PARITY TRAP HANDLER
     3298   01 0193D    8E04136A              LPSD,0   *SAVEGPTY,X2
     3299   01 0193E    6AF01BCA     PT60     BAL,R15  PURGEPTY                                          *A02
     3300   01 0193F    70200392              LC       #SENSE            TEST FOR HALT ON ERROR CONDITION*A02
     3301   01 01940    69201946              BCS,2    PT70+1                                            *A02
     3302   01 01941    22201946              LI,R2    PT70+1            GUIDE IDLE LINKAGE              *A02
     3303   01 01942    35201300              STW,R2   IDLINK                                            *A02
     3304   01 01943    12201388              LD,R2    SAVREG+2          RESTORE REGISTERS               *A02
     3305   01 01944    0E10135A              LPSD,1   RTIDLE            RETURN TO IDLE STATE
     3306   01 01945    6AF01BCA     PT70     BAL,R15  PURGEPTY
     3307   01 01946    22200400 A            LI,R2    X'400'            REARM MFI
     3308   01 01947    6D201200 A            WD,R2    ARMABLE
     3309   01 01948    22200000 A            LI,R2    0                 CANCEL GUIDE TRAP LINKAGE       *A02
     3310   01 01949    352003AF              STW,R2   #TRAPLNK                                          *A02
     3311   01 0194A    331013C8              MTW,1    PTT               BUMP RETURN ADDRESS ONCE
     3312   01 0194B    12201388              LD,R2    SAVREG+2          RESTORE REGISTERS               *A02
     3313   01 0194C    0E1013C8              LPSD,1   PTT               CLEAR PDF AND RETURN
     3314                            *
     3315                            *                 WATCHDOG TIMER TRAP HANDLER/PRE-HANDLER (46)
     3316         01 0194D           WDTRAP   EQU      %
     3317   01 0194D    740013B3              STCF     WDTTCC04          SAVE TCC 0-4                    *A02
     3318   01 0194E    15201386              STD,R2   SAVREG            SAVE REGISTERS                  *A02
     3319   01 0194F    722013B3              LB,R2    WDTTCC04          VERIFY TCC 0-4 TYPE             *A02
     3320   01 01950    4B2035C3              AND,R2   =X'B0'            IF NOT PROCESSOR BUS, REPORT    *A02
     3321   01 01951    69201956              BCS,2    WDT20                                             *A02
     3322   01 01952    330013B2              MTW,0    WDTIND            WAS TRAP EXPECTED
     3323   01 01953    69201968              BCS,2    WDT40             YES
     3324   01 01954    33001339              MTW,0    PHASFLAG          IS THIS SINGLE PHASE PASS?
     3325   01 01955    6930196B              BCS,3    WDT60             IF SO, BRANCH AROUND WAIT.
     3326   01 01956    70200392     WDT20    LC       #SENSE            CHECK FOR SHORT LOOP OPTION     *A02
     3327   01 01957    6980196B              BCS,8    WDT60
     3328   01 01958    69101962              BCS,1    WDT30             SUPPRESS PRINTOPTION            *A02
     3329   01 01959    22201962              LI,R2    WDT30
     3330   01 0195A    352003AF              STW,R2   #TRAPLNK
     3331   01 0195B    122013CC              LD,R2    WDTT              STORE OLD PSD IN GUIDE
     3332   01 0195C    9520136C              STD,R2   *SAVEGWDT
     3333   01 0195D    22300008 A            LI,R3    8                 RESTORE TCC 0-4 IN GUIDE PSD    *A02
     3334   01 0195E    722013B3              LB,R2    WDTTCC04                                          *A02
     3335   01 0195F    F526136C              STB,R2   *SAVEGWDT,X3                                      *A02
     3336   01 01960    22200001 A            LI,R2    1
     3337   01 01961    8E04136C              LPSD,0   *SAVEGWDT,X2      GO TO GUIDE TRAP HANDLER
     3338   01 01962    70200392     WDT30    LC       #SENSE            HALT ON ERROR CONDITION
     3339   01 01963    69201968              BCS,2    WDT40                                             *A02
     3340   01 01964    2220196B              LI,R2    WDT60             RETURN LINKAGE FROM GUIDE IDLE  *A02
     3341   01 01965    35201300              STW,R2   IDLINK                                            *A02
     3342   01 01966    12201386              LD,R2    SAVREG            RESTORE REGISTERS               *A02
     3343   01 01967    0E10135A              LPSD,1   RTIDLE            RETURN TO IDLE STATE
     3344   01 01968    22200000 A   WDT40    LI,R2    0                 EXPECTED TRAP HANDLER
     3345   01 01969    352013B2              STW,R2   WDTIND
     3346   01 0196A    352003AF              STW,R2   #TRAPLNK          CANCEL GUIDE TRAP LINKAGE       *A02
     3347   01 0196B    331013CC     WDT60    MTW,1    WDTT
     3348   01 0196C    12201386              LD,R2    SAVREG            RESTORE REGISTERS               *A02
     3349   01 0196D    0E1013CC              LPSD,1   WDTT              CLEAR PDF & RETURN
     3350                            **********************************************************************
     3351                            *                                                                     *
     3352                            *                 UTILITY SUBROUTINES                                 *
     3353                            *                                                                     *
     3354                            ***********************************************************************
     3355                            *
     3356                            *                 TEST FOR AN ACTIVE OUTPUT DEVICE.  IF NOT ACTIVE
     3357                            *                  RETURN DIRECT; IF ACTIVE, RETURN PLUS ONE.
     3358         01 0196E           ACTDVC   EQU      %
     3359   01 0196E    33001335              MTW,0    PCPMODE
     3360   01 0196F    E920000F A            BCS,2    *R15
     3361   01 01970    6A601AF9              BAL,R6   PUTDVCON
     3362   01 01971    CD001315              TIO,0    *KBDVC            KEYBOARD DEVICE
     3363   01 01972    68801978              BCR,8    ACT40             YES
     3364   01 01973    CD00131A              TIO,0    *LPDVC            NO-- TRY LINE PRINTER DEVICE    *A03
     3365   01 01974    68801978              BCR,8    ACT40             YES
     3366   01 01975    68401978              BCR,4    ACT40             COULD BE A SELECTOR TYPE IOP
     3367   01 01976    33101335              MTW,1    PCPMODE           YES
     3368   01 01977    E800000F A            B        *R15
     3369   01 01978    3310000F A   ACT40    MTW,1    R15               ACTIVE-- BUMP ONCE
     3370   01 01979    E800000F A            B        *R15              RETURN
     3371                            *
     3372                            *
     3373                            *                 ADVANCE SERVICE PHASE
     3374                            * C(R0)= DOUBLE WORD ADDRESS OF THE COMMAND DOUBLE WORD; C(R1)= NUMBER
     3375                            * OF SERVICE CYCLES; C(R8)= MI CONTROL CONFIGURATION
     3376         01 0197A           ADVSCA   EQU      %
     3377   01 0197A    35F0136E              STW,R15  SAVERTN           SAVE RETURN
     3378   01 0197B    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION CONTROL        *A03
     3379   01 0197C    ED801298              WD,R8    *GP08             SET SINGLE SERVICE
     3380   01 0197D    B240132E              LW,4     *NEXTEST          FETCH MODULE CONTROL WORD
     3381   01 0197E    25400070 A            SLS,4    -16               RIGHT JUSTIFY HEX TEST NUMBER
     3382   01 0197F    21407550 A            CI,4     X'7550'           IS THIS TEST #7550?             *A03
     3383   01 01980    69301984              BCS,3    %+4               BRANCH IF NOT
     3384   01 01981    6AF017F4              BAL,R15  PREPHS12          SINGLE PHASE OR GIVE SYNC
     3385   01 01982    CC001312              SIO,R0   *IOPMSADR         I/O                             *A03
     3386   01 01983    68001992              B        ADA02             PROCEED WITH ADVANCE SERVICE
     3387   01 01984    21407560 A            CI,4     X'7560'                                           *A03
     3388   01 01985    69301989              BCS,3    %+4
     3389   01 01986    6AF017FF              BAL,R15  PREPHS13
     3390   01 01987    CC001312              SIO,R0   *IOPMSADR                                         *A03
     3391   01 01988    68001992              B        ADA02
     3392   01 01989    21407630 A            CI,4     X'7630'           IS THIS TEST #7630?             *A03
     3393   01 0198A    6830198D              BCR,3    %+3               IF SO, BRANCH
     3394   01 0198B    21407640 A            CI,4     X'7640'           IS THIS TEST #7640?             *A03
     3395   01 0198C    69301990              BCS,3    %+4               BRANCH IF NOT
     3396   01 0198D    6AF016C7              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     3397   01 0198E    CC001312              SIO,R0   *IOPMSADR         I/O                             *A03
     3398   01 0198F    68001992              B        ADA02             PROCEED WITH SERVICE ADVANCE
     3399   01 01990    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     3400   01 01991    CC001312              SIO,R0   *IOPMSADR         INITIAL SERVICE                 *A03
     3401         01 01992           ADA02    EQU      %
     3402   01 01992    33000001 A            MTW,0    R1                TEST FOR ADDITIONAL SERVICES
     3403   01 01993    E810136E              BCR,1    *SAVERTN          ZERO, SKIP OUT
     3404   01 01994    322035C4              LW,R2    =X'80000018'      NEG VALUE LESS 18
     3405   01 01995    ED801298              WD,R8    *GP08             ADVANCE ONE SERVICE
     3406   01 01996    64201999              BDR,R2   %+3
     3407   01 01997    EC001294              RD,R0    *DISPLAY
     3408   01 01998    68201996              BCR,2    %-2               WAIT FOR SNAP
     3409   01 01999    65101994              BIR,R1   ADA02+2           LOOP FOR INDICATED SERVICES
     3410   01 0199A    E800136E              B        *SAVERTN          RETURN                          *A02
     3411                            *                 ARM I/O INTERRUPT
     3412         01 0199B           ARMIO    EQU      %
     3413   01 0199B    32C01313              LW,R12   IORETURN          NEW XPSD
     3414   01 0199C    35C0130C              STW,R12  INTRTN            RETURN CONTROL
     3415   01 0199D    22C00020 A            LI,R12   X'20'
     3416   01 0199E    6DC01200 A            WD,R12   ARMABLE
     3417   01 0199F    3310130D              MTW,1    IOINTRSW          SET INTERRUPT SWITCH
     3418   01 019A0    6D000022 A            WD,0     RESETIO           RESET I/O INHIBIT BIT
     3419   01 019A1    E800000F A            B        *R15              RETURN
     3420                            *
     3421                            *                 SET BURST & FOUR BYTE MODE IN MS (A)
     3422         01 019A2           BURSTA   EQU      %
     3423   01 019A2    32A01327              LW,R10   MSA               MS (A) DEVICE ADDRESS
     3424   01 019A3    25A00010 A            SLS,R10  16                MOVE TO ADDRESS FIELD
     3425   01 019A4    49A012E3              OR,R10   INDATA            MERGE DATA BYTE
     3426   01 019A5    49A035C5              OR,R10   =X'C00'           'BM' & 'DX4' CONTROL BITS
     3427   01 019A6    EDA0129D              WD,R10   *GP13             SET CONTROLS IN MS (A)
     3428   01 019A7    E800000F A            B        *R15              RETURN
     3429                            *
     3430                            *                 CONDITION CODE 1 SET
     3431         01 019A8           CC1      EQU      %
     3432   01 019A8    688013D0              BCR,8    BAD
     3433   01 019A9    6800148F              B        GOOD
     3434                            *
     3435                            *                 CONDITION CODE 1 NOT SET
     3436         01 019AA           NCC1     EQU      %
     3437   01 019AA    698013D0              BCS,8    BAD
     3438   01 019AB    6800148F              B        GOOD
     3439                            *
     3440                            *                 CONDITION CODE 2 SET
     3441         01 019AC           CC2      EQU      %
     3442   01 019AC    684013D0              BCR,4    BAD
     3443   01 019AD    6800148F              B        GOOD
     3444                            *
     3445                            *                 CONDITION CODE 2 NOT SET
     3446         01 019AE           NCC2     EQU      %
     3447   01 019AE    694013D0              BCS,4    BAD
     3448   01 019AF    6800148F              B        GOOD
     3449                            *
     3450                            *                 CONDITION CODE 3 SET
     3451         01 019B0           CC3      EQU      %
     3452   01 019B0    682013D0              BCR,2    BAD
     3453   01 019B1    6800148F              B        GOOD
     3454                            *
     3455                            *                 NOT CONDITION CODE 3
     3456         01 019B2           NCC3     EQU      %
     3457   01 019B2    692013D0              BCS,2    BAD
     3458   01 019B3    6800148F              B        GOOD
     3459                            *                                                                   *A03
     3460                            *                                  NOT CONDITION CODES 3 & 4        *A03
     3461         01 019B4           NCC34    EQU      %                                                 *A03
     3462   01 019B4    693013D0              BCS,3    BAD                                               *A03
     3463   01 019B5    6800148F              B        GOOD                                              *A03
     3464                            *                                                                   *A03
     3465                            *                                  COMPARE C(R8) TO C(R9) & C(R10)  *A03
     3466         01 019B6           CDREQUAL EQU      %                 TO C(R11)                       *A03
     3467   01 019B6    31800009 A            CW,R8    R9                C(R8)= EXPECTED, C(R9)= ACTUAL  *A03
     3468   01 019B7    693019BB              BCS,3    CDE10             NOT EQUAL                       *A03
     3469   01 019B8    31A0000B A            CW,R10   R11               C(R10)= EXPECTED,C(R11)= ACTUAL *A03
     3470   01 019B9    693019BB              BCS,3    CDE10             NOT EQUAL                       *A03
     3471   01 019BA    6800148F              B        GOOD              OKAY--TO DRIVER                 *A03
     3472   01 019BB    33101344     CDE10    MTW,1    PNTDBL            SET PRINT DOUBLE SWITCH         *A03
     3473   01 019BC    680013D0              B        BAD               REPORT ERRORS                   *A03
     3474                            *
     3475                            *        THIS ROUTINE DETERMINES IF ON-LINE OFF-LINE SWITCHING
     3476                            *        MUST BE INVOKED FOR OPERATOR COMMUNICATIONS.
     3477         01 019BD           CKDVCON  EQU      %
     3478   01 019BD    22C00000 A            LI,R12   0                 ZERO CONTROL FLAG               *A02
     3479   01 019BE    35C0130A              STW,R12  INHOUT                                            *A02
     3480   01 019BF    32C01315     CKT10    LW,R12   KBDVC             KEYBOARD?
     3481   01 019C0    4BC035C1              AND,R12  =X'1F00'
     3482   01 019C1    31C0130E              CW,R12   IOPA              COMPARE IOP NUMBER              *A03
     3483   01 019C2    683019D3              BCR,3    CKT60
     3484   01 019C3    31C0130F              CW,R12   IOPB                                              *A03
     3485   01 019C4    683019D3              BCR,3    CKT60                                             *A03
     3486   01 019C5    32C0131A              LW,R12   LPDVC             NOT KEYBOARD, LINEPRINTER?
     3487   01 019C6    4BC035C1              AND,R12  =X'1F00'
     3488   01 019C7    31C0130E              CW,R12   IOPA              COMPARE                         *A03
     3489   01 019C8    683019D3              BCR,3    CKT60
     3490   01 019C9    31C0130F              CW,R12   IOPB                                              *A03
     3491   01 019CA    683019D3              BCR,3    CKT60                                             *A03
     3492   01 019CB    33000395              MTW,0    #MTLFLAG          IS MTL ON                       *A03
     3493   01 019CC    E830000F A            BCR,3    *R15              NO                              *A03
     3494   01 019CD    32C012FD              LW,R12   GENADR            YES-- CHECK TAPE ADDRESS        *A03
     3495   01 019CE    4BC035C1              AND,R12  =X'1F00'          MASK                            *A03
     3496   01 019CF    31C0130E              CW,R12   IOPA              CHANNEL A                       *A03
     3497   01 019D0    683019D3              BCR,3    CKT60             YES                             *A03
     3498   01 019D1    31C0130F              CW,R12   IOPB              CHANNEL B                       *A03
     3499   01 019D2    E930000F A            BCS,3    *R15              NO                              *A03
     3500   01 019D3    22C00001 A   CKT60    LI,R12   1
     3501   01 019D4    35C0130A              STW,R12  INHOUT            SET INHIBIT BIT
     3502   01 019D5    E800000F A            B        *R15
     3503                            *
     3504                            *        THIS ROUTINE CONDITIONS THE VARIOUS IOP HARDWARE OPTION
     3505                            *        CONTROLS FROM THE CONTENTS OF THE GENERAL REGISTERS.
     3506         01 019D6           CTLP     EQU      %
     3507   01 019D6    35F0135E              STW,R15  R15CTLP
     3508   01 019D7    4B0035C6              AND,R0   =X'1FFF'
     3509   01 019D8    35001315              STW,R0   KBDVC             COMMUNICATIONS IOP-DEVICE ADDRESS
     3510   01 019D9    35000396              STW,R0   #TOADDR           OUTPUT
     3511   01 019DA    4B1035C6              AND,R1   =X'1FFF'
     3512   01 019DB    3510131A              STW,R1   LPDVC             MESSAGE IOP-DEVICE ADDRESS
     3513   01 019DC    35100397              STW,R1   #PRTADDR          GUIDE PRINTER ADDRESS
     3514   01 019DD    321012CF              LW,R1    COMDVC            UPDATE LOADER MESSAGE           *A04
     3515   01 019DE    B5021004              STW,R0   *#LOADER@,X1       DEVICE ADDRESS
     3516   01 019DF    4B2035B0              AND,R2   =X'1EFF'          ASSURE CHANNEL 'A' ONLY
     3517   01 019E0    3520132B              STW,R2   MSADRA            COMPOSITE IOP & MS ADDRESS,CHL'A'
     3518   01 019E1    35201312              STW,R2   IOPMSADR
     3519   01 019E2    20200100 A            AI,R2    X'100'            INCREMENT FOR CHANNEL 'B'
     3520   01 019E3    3520132C              STW,R2   MSADRB            COMPOSITE IOP & MS ADDRESS, CHL' B
     3521   01 019E4    4B2035B9              AND,R2   =X'FF'
     3522   01 019E5    35201327              STW,R2   MSA               MS DEVICE ADDRESS, CHANNEL 'A'
     3523   01 019E6    35201328              STW,R2   MSB
     3524   01 019E7    3220132B              LW,R2    MSADRA            DETERMINE EXCLUSIVE IOP ADDRESS
     3525   01 019E8    4B2035C7              AND,R2   =X'1E00'
     3526   01 019E9    3520130E              STW,R2   IOPA              CHANNEL A IOP
     3527   01 019EA    20200100 A            AI,R2    X'100'
     3528   01 019EB    3520130F              STW,R2   IOPB              CHANNEL B IOP
     3529   01 019EC    22200008 A            LI,R2    8                 GENERATE IOP-DEVICE ADDRESS
     3530   01 019ED    4920130E              OR,R2    IOPA               FOR MEMORY TO MEMORY MOVE
     3531   01 019EE    35201325              STW,R2   MM8                OPTION
     3532   01 019EF    20200001 A            AI,R2    1
     3533   01 019F0    35201326              STW,R2   MM9
     3534   01 019F1    32201327              LW,R2    MSA
     3535   01 019F2    4B2035C8              AND,R2   =X'80'            CHECK FOR MULTI-DEVICE TYPE ADR
     3536   01 019F3    682019F8              BCR,2    CTLP02            NO
     3537   01 019F4    3A201327              LCW,R2   MSA               YES-- 2'S COMPLEMENT
     3538   01 019F5    202FFFFF A            AI,R2    -1                ONES COMPLEMENT
     3539   01 019F6    4B2035C9              AND,R2   =X'70'            CONTROLLER ADR
     3540   01 019F7    680019FB              B        CTLP03
     3541   01 019F8    3A201327     CTLP02   LCW,R2   MSA               NO-- 2'S COMPLEMENT
     3542   01 019F9    202FFFFF A            AI,R2    -1                ONES COMPLEMENT
     3543   01 019FA    4B2035AF              AND,R2   =X'3F'            DC ADDRESS FIELD
     3544   01 019FB    4920130E     CTLP03   OR,R2    IOPA              MERGE CURRENT IOP
     3545   01 019FC    35201329              STW,R2   MSADRAP            ADDRESS & SAVE RESULTS
     3546   01 019FD    35201311              STW,R2   IOPMSAP
     3547   01 019FE    492035CA              OR,R2    =X'100'           FOR BOTH CHANNELS A & B
     3548   01 019FF    3520132A              STW,R2   MSADRBP
     3549   01 01A00    4B3035CB              AND,R3   =X'7F'            MASK
     3550   01 01A01    353012E5              STW,R3   DIOADR            IOP DIO/MI ADDRESS
     3551   01 01A02    4B4035CC              AND,R4   =1                IS CHANNEL 'A' OFF
     3552   01 01A03    354012C6              STW,R4   CHANNELA          CHANNEL 'A' OPTION
     3553   01 01A04    68301A0E              BCR,3    CTLP04            NO
     3554   01 01A05    4B6035CD              AND,R6   =3
     3555   01 01A06    356013A5              STW,R6   SUBCHLN           YES, SUBCHANNEL OPTIONS, CHANNEL 'A'
     3556   01 01A07    4B7035CC              AND,R7   =1
     3557   01 01A08    357012F9              STW,R7   FOURBYTA          FOUR BYTE OPTION, CHANNEL 'A'
     3558   01 01A09    4B900007 A            AND,R9   R7                SPECIFY 4-BYTE IF BURST IS SPECIFIED
     3559   01 01A0A    359012C1              STW,R9   BURSTCHA          BURST MODE, CHANNEL 'A'
     3560   01 01A0B    4BB035CC              AND,R11  =1
     3561   01 01A0C    35B01324              STW,R11  MOVEOPTA          MOVE OPTION, CHANNEL 'A'
     3562   01 01A0D    68001A12              B        CTLP08
     3563   01 01A0E    354013A5     CTLP04   STW,R4   SUBCHLN           NO-ZERO SUBCHANNEL OPTION, CHNL. 'A'
     3564   01 01A0F    354012F9              STW,R4   FOURBYTA          ZERO FOUR BYTE OPTION, CHANNEL 'A'
     3565   01 01A10    354012C1              STW,R4   BURSTCHA          ZERO BURST MODE, CHANNEL 'A'
     3566   01 01A11    35401324              STW,R4   MOVEOPTA          ZERO MOVE OPTION, CHANNEL 'A'
     3567   01 01A12    4B5035CC     CTLP08   AND,R5   =1                IS CHANNEL 'B' OFF
     3568   01 01A13    355012C7              STW,R5   CHANNELB          CHANNEL 'B' OPTION
     3569   01 01A14    68301A1A              BCR,3    CTLP12            NO
     3570   01 01A15    4B8035CC              AND,R8   =1
     3571   01 01A16    358012FA              STW,R8   FOURBYTB          FOUR BYTE OPTION, CHANNEL 'B'
     3572   01 01A17    4BA00008 A            AND,R10  R8                SPECIFY 4-BYTE IF BURST IS SPECIFIED
     3573   01 01A18    35A012C2              STW,R10  BURSTCHB          BURST MODE, CHANNEL 'B'
     3574   01 01A19    68001A1C              B        CTLP16
     3575   01 01A1A    355012FA     CTLP12   STW,R5   FOURBYTB          ZERO FOUR BYTE OPTION, CHANNEL 'B'
     3576   01 01A1B    355012C2              STW,R5   BURSTCHB          ZERO BURST MODE, CHANNEL 'B'
     3577         01 01A1C           CTLP16   EQU      %
     3578   01 01A1C    32A01327              LW,R10   MSA               MAINTENANCE SUBCONTROLLER ADDRESS
     3579   01 01A1D    6AC01BD8              BAL,R12  SETADPTY          GENERATE PARITY
     3580   01 01A1E    35A01327              STW,R10  MSA               ADD PARITY
     3581   01 01A1F    22C00000 A            LI,R12   0                                                 *A03
     3582   01 01A20    330012C6              MTW,0    CHANNELA          TEST FOR CHANNEL B OPTION       *A03
     3583   01 01A21    69301A25              BCS,3    %+4                                               *A03
     3584   01 01A22    330012C7              MTW,0    CHANNELB                                          *A03
     3585   01 01A23    68301A25              BCR,3    %+2                                               *A03
     3586   01 01A24    22C00008 A            LI,R12   8                                                 *A03
     3587   01 01A25    35C012C8              STW,R12  CHBCTRL           CHANNEL B GROUP BIAS CONTROL    *A03
     3588   01 01A26    6AF01A8F              BAL,R15  GPCTRL            UPDATE CURRENT GROUP ADDRESS    *A03
     3589   01 01A27    6AF01A29              BAL,R15  CVTPRAM           UPDATE PARAMETER LINES
     3590   01 01A28    E800135E              B        *R15CTLP
     3591                            *
     3592                            *        CONVERT MANUAL ENTRIES TO EBCDIC AND INSERT IN PARAMETER FIELD
     3593         01 01A29           CVTPRAM  EQU      %
     3594   01 01A29    22100001 A            LI,R1    1                 BYTE POSITIONS
     3595   01 01A2A    22200002 A            LI,R2    2
     3596   01 01A2B    22300003 A            LI,R3    3
     3597   01 01A2C    EA6003C3              #HTECON  LPDVC             CONVERT MESSAGE  IOP-DEVICE NUMBER
            01 01A2D    0000131A
     3598   01 01A2E    B2A20006 A            LW,R10   *R6,X1            SAVE IN PRINT PARAMETER LINE
     3599   01 01A2F    55A033ED              STH,R10  PLINE#J+1
     3600   01 01A30    25A00270 A            SCS,R10  -16
     3601   01 01A31    55A233EC              STH,R10  PLINE#J,X1
     3602   01 01A32    EA6003C3              #HTECON  KBDVC             CONVERT COMMUNICATION IOP-DEVICE
            01 01A33    00001315
     3603   01 01A34    B2A20006 A            LW,R10   *R6,X1             NUMBER
     3604   01 01A35    75A033EF              STB,R10  PLINE#J+3         SAVE IN PARAMETER LINE
     3605   01 01A36    25A00278 A            SCS,R10  -8
     3606   01 01A37    22B00040 A            LI,R11   X'40'
     3607   01 01A38    75B0000A A            STB,R11  R10
     3608   01 01A39    35A033EE              STW,R10  PLINE#J+2
     3609   01 01A3A    EA6003C3              #HTECON  MSADRA            CONVERT IOP-MS ADDRESS TO EBCDIC
            01 01A3B    0000132B
     3610   01 01A3C    B2A20006 A            LW,R10   *R6,X1
     3611   01 01A3D    55A033F5              STH,R10  PLINE#OP+1        SAVE IN PARAMETER LINE
     3612   01 01A3E    25A00270 A            SCS,R10  -16
     3613   01 01A3F    55A233F4              STH,R10  PLINE#OP,X1
     3614   01 01A40    EA6003C3              #HTECON  DIOADR            CONVERT DIO-MI ADDRESS TO EBCDIC
            01 01A41    000012E5
     3615   01 01A42    B2A20006 A            LW,R10   *R6,X1
     3616   01 01A43    22B04040 A            LI,R11   X'4040'
     3617   01 01A44    55B0000A A            STH,R11  R10
     3618   01 01A45    25A00208 A            SCS,R10  8                 SAVE IN PARAMETER LINE
     3619   01 01A46    35A033F6              STW,R10  PLINE#OP+2
     3620   01 01A47    32A012C6              LW,R10   CHANNELA          CONVERT CHANNEL 'A' OPTION
     3621   01 01A48    20A000F0 A            AI,R10   X'F0'              BIT TO EBCDIC
     3622   01 01A49    75A433F7              STB,R10  PLINE#OP+3,X2
     3623   01 01A4A    32A012C7              LW,R10   CHANNELB          CONVERT CHANNEL 'B' OPTION BIT TO
     3624   01 01A4B    20A000F0 A            AI,R10   X'F0'              EBCDIC
     3625   01 01A4C    75A033F8              STB,R10  PLINE#OP+4        SAVE IN PARAMETER LINE
     3626   01 01A4D    32A013A5              LW,R10   SUBCHLN           CONVERT SUBCHANNEL INDICATOR
     3627   01 01A4E    20A000F0 A            AI,R10   X'F0'              TO EBCDIC
     3628   01 01A4F    75A033F9              STB,R10  PLINE#OP+5        SAVE IN PARAMETER LINE
     3629   01 01A50    32A012F9              LW,R10   FOURBYTA          CONVERT FOUR BYTE INDICATOR TO
     3630   01 01A51    20A000F0 A            AI,R10   X'F0'              EBCDIC
     3631   01 01A52    75A233FA              STB,R10  PLINE#OP+6,X1     SAVE IN PARAMETER LINE
     3632   01 01A53    32A012FA              LW,R10   FOURBYTB          CONVERT FOUR BYTE INDICATOR TO
     3633   01 01A54    20A000F0 A            AI,R10   X'F0'              EBCDIC
     3634   01 01A55    75A633FA              STB,R10  PLINE#OP+6,X3     SAVE IN PARAMETER
     3635   01 01A56    32A012C1              LW,R10   BURSTCHA          CONVERT BURST MODE, CHANNEL 'A'
     3636   01 01A57    20A000F0 A            AI,R10   X'F0'              TO EBCDIC
     3637   01 01A58    75A633FB              STB,R10  PLINE#OP+7,X3     SAVE IN PARAMETER LINE
     3638   01 01A59    32A012C2              LW,R10   BURSTCHB          CONVERT BURST MDOE, CHANNEL 'B'
     3639   01 01A5A    20A000F0 A            AI,R10   X'F0'              TO EBCDIC
     3640   01 01A5B    75A233FC              STB,R10  PLINE#OP+8,X1     SAVE IN PARAMETER LINE
     3641   01 01A5C    32A01324              LW,R10   MOVEOPTA          CONVERT MEMORY TO MEMORY MOVE
     3642   01 01A5D    20A000F0 A            AI,R10   X'F0'              OPTION INDICATOR TO EBCDIC
     3643   01 01A5E    75A233FD              STB,R10  PLINE#OP+9,X1
     3644   01 01A5F    E800000F A            B        *R15              RETURN
     3645                            *
     3646                            *                 COMPARE REGISTERS 8 & 9 FOR EQUALITITY
     3647         01 01A60           CREQUAL  EQU      %
     3648   01 01A60    31800009 A            CW,R8    R9
     3649                            *
     3650                            *                 EQUAL CONDITION, CC 3 & 4 = 0
     3651         01 01A61           EQUAL    EQU      %                 RETURN HERE TO TEST FOR COMPARE
     3652   01 01A61    693013D0              BCS,3    BAD                CONDITION, CC 3 & 4 = 0
     3653   01 01A62    6800148F              B        GOOD
     3654                            *                                                                   *A03
     3655                            *                                  DELAY  10 MICROSECONDS           *A03
     3656         01 01A63           DLY10US  EQU      %                                                 *A03
     3657   01 01A63    222FFFFC A            LI,R2    -4                                                *A03
     3658   01 01A64    65201A64              BIR,R2   %                                                 *A03
     3659   01 01A65    E800000F A            B        *R15                                              *A03
     3660                            *                                                                   *A03
     3661                            *                                  DELAY 10 MILLISECONDS            *A03
     3662         01 01A66           DLY10MS  EQU      %                                                 *A03
     3663   01 01A66    222FDC7D A            LI,R2    -9091                                             *A03
     3664   01 01A67    65201A67              BIR,R2   %                                                 *A03
     3665   01 01A68    E800000F A            B        *R15              RETURN                          *A03
     3666                            *
     3667                            *                 PRINT ERROR HEADER
     3668         01 01A69           ERRORHDR EQU      %
     3669   01 01A69    35F0135F              STW,R15  R15PRTN           SAVE RETURN LINKAGE             *A02
     3670   01 01A6A    EA6003C3              #HTECON  NEXTEST           CONVERT TEST ADDRESS TO EBCDIC
            01 01A6B    0000132E
     3671   01 01A6C    B2A00006 A            LW,R10   *LINK             HIGH ORDER NUMERIALS
     3672   01 01A6D    22100003 A            LI,R1    3
     3673   01 01A6E    75A2347E              STB,R10  ER010MG+7,X1      TO PRINT FIELD
     3674   01 01A6F    22100001 A            LI,R1    1                 FOUR LOW ORDER NUMERIALS
     3675   01 01A70    B2A20006 A            LW,R10   *LINK,X1
     3676   01 01A71    35A0347F              STW,R10  ER010MG+8         TO PRINT FIELD
     3677   01 01A72    D2A0132E              LH,R10   *NEXTEST          TEST NUMBER
     3678   01 01A73    EA6003C3              #HTECON  R10               CONVERT TO EBCDIC
            01 01A74    0000000A A
     3679   01 01A75    B2A20006 A            LW,R10   *LINK,X1          GET CONVERTED WORD
     3680   01 01A76    55A0347D              STH,R10  ER010MG+6         LOW ORDER NUMERIALS TO MESSAGE
     3681   01 01A77    25A00210 A            SCS,R10  16                RE-POSITION
     3682   01 01A78    55A2347C              STH,R10  ER010MG+5,X1      HIGH ORDER NUMERIALS TO MESSAGE
     3683   01 01A79    22100000 A            LI,R1    0                 CANCEL SUCCESS HEADER MESSAGE
     3684   01 01A7A    351013A4              STW,R1   SUCSHD             INDICATOR
     3685   01 01A7B    72C03477              LB,R12   ER010MG           MESSAGE COUNT
     3686   01 01A7C    32A012CA              LW,R10   CHLATEST          CCU TEST                        *A03
     3687   01 01A7D    49A012CB              OR,R10   CHLBTEST                                          *A03
     3688   01 01A7E    68301A84              BCR,3    ER20              YES                             *A03
     3689   01 01A7F    22B0C100 A            LI,R11   X'C100'           NO                              *A03
     3690   01 01A80    330012C8              MTW,0    CHBCTRL           CHANNEL A TEST                  *A03
     3691   01 01A81    68201A87              BCR,2    ER30              YES                             *A03
     3692   01 01A82    22B0C200 A            LI,R11   X'C200'           NO-- CHANNEL B TEST             *A03
     3693   01 01A83    68001A87              B        ER30                                              *A03
     3694   01 01A84    32A0343C     ER20     LW,R10   CCUMG             CCU PREFACE
     3695   01 01A85    32B0343D              LW,R11   CCUMG+1
     3696   01 01A86    68001A89              B        ER36
     3697   01 01A87    32A0343E     ER30     LW,R10   CHANMG            CHANNEL PREFACE
     3698   01 01A88    49B0343F              OR,R11   CHANMG+1
     3699   01 01A89    75C0000A A   ER36     STB,R12  R10               STORE BYTE COUNT IN PRINT FIELD
     3700   01 01A8A    35A03477              STW,R10  ER010MG
     3701   01 01A8B    35B03478              STW,R11  ER010MG+1
     3702   01 01A8C    EA6003CD              #PRINT   ER010MG,C2
            01 01A8D    C200D1DC A
     3703   01 01A8E    E800135F              B        *R15PRTN          RETURN                          *A02
     3704                            *                                                                   *A03
     3705                            *                                  GENERATE DIO GROUP ADDRESS &     *A03
     3706                            *                                   CONTROL BITS                    *A03
     3707         01 01A8F           GPCTRL   EQU      %                                                 *A03
     3708   01 01A8F    221FFFF4 A            LI,R1    GP00-GP15-1       GENERATE ITERATION COUNT        *A03
     3709   01 01A90    32A012E5              LW,R10   DIOADR            CURRENT DIO ADDRESS             *A03
     3710   01 01A91    25A00005 A            SLS,R10  5                 FORMAT                          *A03
     3711   01 01A92    22C00008 A            LI,R12   8                                                 *A03
     3712   01 01A93    32B212A0     GPL20    LW,R11   GP15+1,X1         GET OLD GROUP OPERAND           *A03
     3713   01 01A94    4BB035CE              AND,R11  =X'200F'          MASK OUT OLD DIO ADDRESS        *A03
     3714   01 01A95    49B0000A A            OR,R11   R10               INSERT NEW DIO ADDRESS          *A03
     3715   01 01A96    211FFFF7 A            CI,R1    GP03-GP15-1       SKIP OVER IF GROUP 3 OR LESS    *A03
     3716   01 01A97    68201A9C              BCR,2    GPL40                                             *A03
     3717   01 01A98    4BB035CF              AND,R11  =X'2FE0'          MASK OUT OLD GROUP ADDRESS      *A03
     3718   01 01A99    49B0000C A            OR,R11   R12                                               *A03
     3719   01 01A9A    20C00001 A            AI,R12   1                                                 *A03
     3720   01 01A9B    30B012C8              AW,R11   CHBCTRL           IF CHANNEL B OPTION, ADD BIAS   *A03
     3721   01 01A9C    35B212A0     GPL40    STW,R11  GP15+1,X1          FOR GROUP ADDRESS FOR B CHANNEL*A03
     3722   01 01A9D    65101A93              BIR,R1   GPL20                                             *A03
     3723   01 01A9E    330012C8              MTW,0    CHBCTRL           CHANNEL B SELECTED
     3724   01 01A9F    69301AA7              BCS,3    GPL80             YES
     3725   01 01AA0    32C0132B              LW,R12   MSADRA            NO
     3726   01 01AA1    35C01312              STW,R12  IOPMSADR          UPDATE IOP MS ADDRESSES
     3727   01 01AA2    32C0130E              LW,R12   IOPA              IOP ADDRESS ONLY
     3728   01 01AA3    35C01310              STW,R12  IOPNO
     3729   01 01AA4    32C01329              LW,R12   MSADRAP           MS ADDRESS IN COMPLEMENT FORM
     3730   01 01AA5    35C01311              STW,R12  IOPMSAP
     3731   01 01AA6    E800000F A            B        *15
     3732   01 01AA7    32C0132C     GPL80    LW,R12   MSADRB            CHANNEL B IOP MS ADDRESSES
     3733   01 01AA8    35C01312              STW,R12  IOPMSADR
     3734   01 01AA9    32C0130F              LW,R12   IOPB              IOP NUMBER ONLY
     3735   01 01AAA    35C01310              STW,R12  IOPNO
     3736   01 01AAB    32C0132A              LW,R12   MSADRBP
     3737   01 01AAC    68001AA5              B        GPL80-2           RETURN
     3738   01 01AAD    E800000F A            B        *R15                                              *A03
     3739                            *
     3740                            *                 SET FOUR BYTE MODE IN MS (A)
     3741         01 01AAE           FOURBXA  EQU      %
     3742   01 01AAE    32A01327              LW,R10   MSA               MS (A) DEVICE ADDRESS
     3743   01 01AAF    25A00010 A            SLS,R10  16                MOVE TO ADDRESS FIELD
     3744   01 01AB0    49A035D0              OR,R10   =X'400'           'DX4' CONTROL BIT
     3745   01 01AB1    49A012E3              OR,R10   DATABYTE          MERGE DATA BYTE
     3746   01 01AB2    EDA0129D              WD,R10   *GP13             SET FOUR BYTE CONTROL IN MS (A)
     3747   01 01AB3    E800000F A            B        *R15              RETURN
     3748                            *                                                                   *A02
     3749                            *                                  LINKAGE ROUTINE FOR IDLE MODE    *A02
     3750         01 01AB4           IDLER    EQU      %                                                 *A02
     3751   01 01AB4    15001394              STD,R0   SAVREG+14         SAVE                            *A02
     3752   01 01AB5    22000000 A            LI,R0    0                                                 *A02
     3753   01 01AB6    350003AF              STW,R0   #TRAPLNK          ZERO TRAP LINKAGE               *A02
     3754   01 01AB7    12001394              LD,R0    SAVREG+14         RESTORE REGISTERS               *A02
     3755   01 01AB8    02200010 A            LCI      1                                                 *A02
     3756   01 01AB9    EA6003C9              BAL,LINK *#FIDLE%          TO IDLE STATE                   *A02
     3757   01 01ABA    00001300              DATA     IDLINK                                            *A02
     3758                            *
     3759                            *                 INITIALIZE TRAP-INTERRUPT CELLS
     3760         01 01ABB           INITRS   EQU      %
     3761   01 01ABB    322013B4              LW,R2    WDTXPSD           GET OLD WATCHDOG TIMER XPSD
     3762   01 01ABC    46200046 A            XW,R2    X'46'             INSERT XPSD
     3763   01 01ABD    3520136C              STW,R2   SAVEGWDT          SAVE OLD XPSD
     3764   01 01ABE    32201347              LW,R2    PTYXPSD
     3765   01 01ABF    4620004C A            XW,R2    X'4C'
     3766   01 01AC0    3520136A              STW,R2   SAVEGPTY
     3767   01 01AC1    32201303              LW,R2    IEXPSD
     3768   01 01AC2    4620004D A            XW,R2    X'4D'
     3769   01 01AC3    35201362              STW,R2   SAVEGIET
     3770   01 01AC4    32201336              LW,R2    PFXPSD
     3771   01 01AC5    46200056 A            XW,R2    X'56'
     3772   01 01AC6    35201368              STW,R2   SAVEGPFI
     3773   01 01AC7    32201321              LW,R2    MFXPSD
     3774   01 01AC8    46200057 A            XW,R2    X'57'
     3775   01 01AC9    35201366              STW,R2   SAVEGMFI
     3776   01 01ACA    32201314              LW,R2    IOXPSD            GET OLD I/O XPSD
     3777   01 01ACB    4620005C A            XW,R2    X'5C'             INSET NEW XPSD
     3778   01 01ACC    35201364              STW,R2   SAVEGIO           SAVE OLD XPSD
     3779   01 01ACD    E800000F A            B        *R15              RETURN
     3780                            *
     3781                            *
     3782   01 01ACE    22A00020 A   INTRESET LI,R10   X'20'
     3783   01 01ACF    6DA01100 A            WD,R10   X'1100'           DISARM AND DISABLE
     3784   01 01AD0    6DA01500 A            WD,R10   X'1500'            I/O GROUP INTERRUPTS
     3785   01 01AD1    6D000022 A            WD,R0    X'22'             RESET II INHIBIT IN PSD
     3786   01 01AD2    E800000F A            B        *R15              RETURN TO CALLING ROUTINE
     3787                            *
     3788                            *
     3789                            *                 THIS ROUTINE ASSURES THE MS IS SET ON-LINE, AND DEVICE
     3790                            *                  CONTROLLERS ARE SET OFF LINE.
     3791         01 01AD3           ONLINECK EQU      %
     3792   01 01AD3    330012E6              MTW,0    DIOPRET           IF DIO TEST,SKIP THIS CHECK
     3793   01 01AD4    E920000F A            BCS,2    *R15
     3794   01 01AD5    35A01372              STW,R10  SAVR10            SAVE R10                        *A03
     3795   01 01AD6    330012CA              MTW,0    CHLATEST          CHANNEL 'A' TEST?
     3796   01 01AD7    69201ADB              BCS,2    OL20              YES
     3797   01 01AD8    330012CB              MTW,0    CHLBTEST          NO-- CHANNEL 'B' TEST?
     3798   01 01AD9    69201ADB              BCS,2    OL20              NO-- CCU, RETURN
     3799   01 01ADA    E800000F A            B        *R15              NO-- CC,RETURN
     3800   01 01ADB    32A035D1     OL20     LW,R10   =X'C0000000'      MS ON-LINE, DC OFF-LINE         *A04
     3801   01 01ADC    EDA0129F              WD,R10   *GP15
     3802   01 01ADD    32A01327              LW,R10   MSA               SET MS 'A' ADDRESS
     3803   01 01ADE    25A00010 A            SLS,R10  16
     3804   01 01ADF    EDA0129D              WD,R10   *GP13
     3805   01 01AE0    330012E4              MTW,0    DCOFFA            ARE CHLN DEVICES OFF LINE?      *A04
     3806   01 01AE1    69201AE7              BCS,2    OL30              YES- NO DELAY FOR RELAY         *A03
     3807   01 01AE2    22A00001 A            LI,R10   1                 RE-ESTABLISH ON-LINE 0FF-LINE   *A04
     3808   01 01AE3    35A012E4              STW,R10  DCOFFA             CONTROL FLAGS                  *A04
     3809   01 01AE4    35A01330              STW,R10  NDCDLY                                            *A04
     3810   01 01AE5    22AFD8F0 A   OL26     LI,R10   -10000            DELAY ABOUT 10 MSEC.
     3811   01 01AE6    65A01AE6              BIR,R10  %
     3812   01 01AE7    32A01372     OL30     LW,R10   SAVR10            RESTORE R10                     *A03
     3813   01 01AE8    E800000F A            B        *R15
     3814                            *
     3815                            *        THIS ROUTINE CONTROLS THE PROGRAM MODES
     3816         01 01AE9           MODECTRL EQU      %
     3817   01 01AE9    330012FC              MTW,0    FUNCTION          IS FUNCTIONAL SELECTED?
     3818   01 01AEA    E920000F A            BCS,2    *R15              YES, RETURN
     3819   01 01AEB    3300133A              MTW,0    PHASMODE          IS SINGLE PHASE SELECTED
     3820   01 01AEC    68201AF5              BCR,2    MCT20             YES, RETURN                     *A01
     3821   01 01AED    3300132F              MTW,0    NOTMTL                                            *A01
     3822   01 01AEE    69201AF5              BCS,2    MCT20                                             *A01
     3823   01 01AEF    33001339              MTW,0    PHASFLAG                                          *A01
     3824   01 01AF0    E920000F A            BCS,2    *R15                                              *A01
     3825   01 01AF1    33101339              MTW,1    PHASFLAG          SET SINGLE PHASE COMPARE FLAG   *A01
     3826   01 01AF2    331012D1              MTW,1    COMPFLAG                                          *A01
     3827   01 01AF3    331012D0              MTW,1    COMPASS                                           *A01
     3828   01 01AF4    E800000F A            B        *R15                                              *A01
     3829   01 01AF5    EA6003CC     MCT20    #TYPE    MODEMG            OUTPUT MESSAGE                  *A01
            01 01AF6    0000D350 A
     3830   01 01AF7    02200010 A            LCI      1                 SET CC
     3831   01 01AF8    E80003C9              B        *#FIDLE%
     3832                            *
     3833                            *                 THIS ROUTINE SET THE OUTPUT DEVICES ON-LINE, AS   *A02
     3834                            *                  REQUIRED.
     3835         01 01AF9           PUTDVCON EQU      %
     3836   01 01AF9    3300130A              MTW,0    INHOUT            HAS DEVICE INHIBIT BEEN SET?
     3837   01 01AFA    E8300006 A            BCR,3    *R6               BRANCH IF NOT
     3838   01 01AFB    330012E4              MTW,0    DCOFFA            DEVICES OFF-LINE                *A04
     3839   01 01AFC    69301B00              BCS,3    OPN05              YES                            *A04
     3840   01 01AFD    33001330              MTW,0    NDCDLY            HOW ABOUT RELAY TIME            *A04
     3841   01 01AFE    E9300006 A            BCS,3    *R6                NO                             *A04
     3842   01 01AFF    33101330              MTW,1    NDCDLY                                            *A04
     3843   01 01B00    35601360     OPN05    STW,R6   SAVE              SAVE IMPORTANT REGISTERS        *A04
     3844   01 01B01    35A01361              STW,R10  SAVE+1                                            *A04
     3845   01 01B02    22D40400 A            LI,R13   RESET             RESTORE                         *A04
     3846   01 01B03    32E012CC              LW,R14   CM                CONTROL WORD FOR CLOCK MARGINS  *A02
     3847   01 01B04    226FFFFD A            LI,R6    -3                                                *A04
     3848   01 01B05    32AC0399     OPN10    LW,R10   #TOADDR+3,X6      OUTPUT ADDRESS                  *A04
     3849   01 01B06    4BA035C1              AND,R10  =X'1F00'          MASK                            *A04
     3850   01 01B07    31A01310              CW,R10   IOPNO             COMPARE TO TEST IOP NUMBER      *A04
     3851   01 01B08    68301B0F              BCR,3    OPN20             YES                             *A04
     3852   01 01B09    65601B05              BIR,R6   OPN10             NO-- TRY ALL DEVICES            *A04
     3853   01 01B0A    33000395              MTW,0    #MTLFLAG          NO-- ALSO CHECK MTL UNIT        *A04
     3854   01 01B0B    68301B10              BCR,3    OPN40             NOT USED                        *A04
     3855   01 01B0C    32A012FD              LW,R10   GENADR            YES                             *A04
     3856   01 01B0D    31A01310              CW,R10   IOPNO             COMPARE MTL UNIT TO IOP         *A04
     3857   01 01B0E    69301B10              BCS,3    OPN40              NUMBER-- YES                   *A04
     3858   01 01B0F    ED00129F     OPN20    WD,R0    *GP15             DEVICES ON-LINE, MS OFF-LINE    *A04
     3859   01 01B10    EDD01298     OPN40    WD,R13   *GP08             CHANNEL RESET                   *A04
     3860   01 01B11    22AFD8F0 A            LI,R10   -10000            ON-LINE RELAY TIME AND/OR       *A04
     3861   01 01B12    65A01B12              BIR,R10  %                  CHARACTER TIME                 *A04
     3862   01 01B13    35A012E4              STW,R10  DCOFFA            DC'S ON-LINE                    *A04
     3863   01 01B14    EDD01294     OPN60    WD,R13   *GP00             CCU RESET                       *A03
     3864   01 01B15    EA6003C7              BAL,R6   *#ARMUSER%        ACTIVATE GUIDE                  *A04
     3865   01 01B16    32A01361              LW,R10   SAVE+1                                            *A04
     3866   01 01B17    22D40400 A            LI,R13   RESET             RESTORE REGISTERS               *A05
     3867   01 01B18    22E012CC              LI,R14   CM                                                *A05
     3868   01 01B19    E8001360              B        *SAVE             RETURN                          *A04
     3869                            *
     3870                            *                 THIS ROUTINE CHECKS FOR MANUAL PCP OPERATIONS.
     3871                            *                  IF MANUAL OPERATIONS ARE NOT INVOKED, IT SENSES FOR
     3872                            *                  INPUT DATA FROM THE KEYBOARD INPUT DEVICE.
     3873         01 01B1A           PCPCTRL  EQU      %
     3874   01 01B1A    33001335              MTW,0    PCPMODE           PCP MANUAL MODE
     3875   01 01B1B    69201B22              BCS,2    PCP10             YES
     3876   01 01B1C    3300130A              MTW,0    INHOUT
     3877   01 01B1D    69201B27              BCS,2    PCP20
     3878   01 01B1E    22A01000 A            LI,R10   X'1000'           ARM & ENABLE COUNTER FOUR       *A05
     3879   01 01B1F    6DA01200 A            WD,R10   ARMABLE                                           *A05
     3880   01 01B20    8F0003AB              XPSD,0   *#SAMPLE          SAMPLE GUIDE INPUT              *A04
     3881   01 01B21    E800000F A            B        *R15              RETURN                          *A04
     3882   01 01B22    6C000000 A   PCP10    RD,0     0                 READ PANEL SENSE SWITCHES
     3883   01 01B23    7400000C A            STCF     R12
     3884   01 01B24    4BC035D2              AND,R12  =X'F0000000'
     3885   01 01B25    35C00392              STW,R12  #SENSE            SAVE
     3886   01 01B26    E800000F A            B        *R15
     3887   01 01B27    70200392     PCP20    LC       #SENSE            CHECK FOR SHORT & LONG LOOP     *A04
     3888   01 01B28    68C01B2E              BCR,12   PCP30                                             *A03
     3889   01 01B29    33101396              MTW,1    SHORTLP           YES-SKIP FOR 16000 ITERATIONS
     3890   01 01B2A    E910000F A            BCS,1    *R15
     3891   01 01B2B    22AFC180 A            LI,R10   -16000
     3892   01 01B2C    35A01396              STW,R10  SHORTLP
     3893   01 01B2D    68001B36              B        PCP40
     3894                            *
     3895   01 01B2E    22A02757     PCP30    LI,R10   T6600             TEST 6600                       *A03
     3896   01 01B2F    31A0132E              CW,R10   NEXTEST           MATCH
     3897   01 01B30    68301B36              BCR,3    PCP40             YES
     3898   01 01B31    22A03079              LI,R10   LASTEST           LAST TEST                       *A03
     3899   01 01B32    31A0132E              CW,R10   NEXTEST           MATCH
     3900   01 01B33    68301B36              BCR,3    PCP40             YES
     3901   01 01B34    331013A8     PCP38    MTW,1    TESTCNT
     3902   01 01B35    E910000F A            BCS,1    *R15
     3903   01 01B36    EDD01294     PCP40    WD,R13   *GP00             CCU RESET
     3904   01 01B37    32E012CC              LW,R14   CM                CLOCK MARGINS                   *A02
     3905   01 01B38    22000000 A            LI,R0    0
     3906   01 01B39    22AFFCE0 A            LI,R10   -800
     3907   01 01B3A    35A013A8              STW,R10  TESTCNT
     3908   01 01B3B    32A00396              LW,R10   #TOADDR
     3909   01 01B3C    4BA035C1              AND,R10  =X'1F00'                                          *A03
     3910   01 01B3D    31A01310              CW,R10   IOPNO                                             *A03
     3911   01 01B3E    69301B43              BCS,3    PCP60                                             *A03
     3912   01 01B3F    EDD01298              WD,R13   *GP08             RESET CHANNEL                   *A03
     3913   01 01B40    EDD0129C              WD,R13   *GP12             RESET MS SNAP, CHANNEL          *A03
     3914   01 01B41    ED00129F              WD,R0    *GP15             DEVICES ON-LINE, MS OFF-LINE
     3915   01 01B42    350012E4              STW,R0   DCOFFA            RESET DEVICE CONTROLLER OFF FLAG
     3916   01 01B43    22AFD508 A   PCP60    LI,R10   -11000            DELAY 12 MS
     3917   01 01B44    65A01B44              BIR,R10  %
     3918   01 01B45    EA6003C7              BAL,LINK *#ARMUSER%        RE-ACTIVATE KEYBOARD DEVICE
     3919   01 01B46    22A01000 A            LI,R10   X'1000'                                           *A05
     3920   01 01B47    6DA01200 A            WD,R10   ARMABLE                                           *A05
     3921   01 01B48    22AFFC01 A            LI,R10   -X'3FF'           DELAY COUNT                     *A04
     3922   01 01B49    8F0003AB              XPSD,0   *#SAMPLE          SAMPLE GUID INPUT               *A04
     3923   01 01B4A    65A01B49              BIR,R10  %-1                                               *A04
     3924   01 01B4B    22D40400 A            LI,R13   RESET             RESTORE REGISTER                *A05
     3925   01 01B4C    32E012CC              LW,R14   CM                                                *A05
     3926   01 01B4D    E800000F A            B        *R15
     3927                            *
     3928                            *        PURGE CERTAIN DRIVER CONTROL FLAGS OR CONSTANTS
     3929         01 01B4E           PRGCTL   EQU      %
     3930   01 01B4E    35C01360              STW,R12  SAVE              SAVE
     3931   01 01B4F    22C00000 A            LI,R12   0                 PURGE CONTROL WORD CONTROLS
     3932   01 01B50    35C012E6              STW,R12  DIOPRET
     3933   01 01B51    35C012EC              STW,R12  FAM2OPT
     3934   01 01B52    35C012ED              STW,R12  FAM3OPT
     3935   01 01B53    35C01323              STW,R12  MOVEOPT
     3936   01 01B54    35C012C3              STW,R12  BURSTM
     3937   01 01B55    35C012FB              STW,R12  FOURBYTE
     3938   01 01B56    35C012EB              STW,R12  FAMBAD
     3939   01 01B57    35C012E2              STW,R12  DATAPNT
     3940   01 01B58    35C012CB              STW,R12  CHLBTEST
     3941   01 01B59    35C012CA              STW,R12  CHLATEST
     3942   01 01B5A    35C012E3              STW,R12  DATABYTE
     3943   01 01B5B    35C012D2              STW,R12  COMPSRV3          CLEAR PHASING FLAG
     3944   01 01B5C    35C012D3              STW,R12  COMPSRV4          CLEAR PHASING FLAG
     3945   01 01B5D    35C01348              STW,R12  PUTOUT
     3946   01 01B5E    35C012A1              STW,R12  AIOSKIP
     3947   01 01B5F    35C01343              STW,R12  PHASTEST
     3948   01 01B60    35C01344              STW,R12  PNTDBL            PRINT DOUBLE ERROR WD IND
     3949   01 01B61    22C0148F              LI,R12   GOOD              RESET I/O INTRPT RETURN
     3950   01 01B62    35C01313              STW,R12  IORETURN
     3951   01 01B63    32C01360              LW,R12   SAVE              RESTORE
     3952   01 01B64    E800000F A            B        *R15              RETURN
     3953                            *
     3954                            *                 THIS ROUTINE  PRINTS SUCCESS FOR EACH TEST MODULE BY
     3955                            *                  INDICATING THE TEST NUMBER.
     3956         01 01B65           PRNTSTNO EQU      %                PRINT SUCCESS MESSAGE
     3957   01 01B65    3300130B              MTW,0    INHTSUC           IS SUCCESS INDICATION INHIBITED
     3958   01 01B66    E920000F A            BCS,2    *R15
     3959   01 01B67    70200392              LC       #SENSE            IS PRINT INHIBITED BY SENSE
     3960   01 01B68    E910000F A            BCS,1    *R15               SWITCH 4
     3961   01 01B69    33001335              MTW,0    PCPMODE           ALSO SKIP IF PCP MODE IS SET
     3962   01 01B6A    E920000F A            BCS,2    *R15
     3963   01 01B6B    35F0135F              STW,R15  R15PRTN           SAVE LINKAGE                    *A02
     3964   01 01B6C    330012E7              MTW,0    ENDSUC            IS THIS THE FIRST SUCCESS IND   *A02
     3965   01 01B6D    69301B76              BCS,3    PTNO02            NO                              *A02
     3966   01 01B6E    22C00000 A            LI,R12   0                 RESET SUCCESS HEADER IND        *A04
     3967   01 01B6F    35C013A4              STW,R12  SUCSHD                                            *A04
     3968   01 01B70    6AF01BBC              BAL,R15  PTNO50            SET CHAN TYPE IN HEADER MSG     *A04
     3969   01 01B71    32C0132E              LW,R12   NEXTEST           YES-- SAVE TEST NUMBER          *A02
     3970   01 01B72    35C012E7              STW,R12  ENDSUC                                            *A02
     3971   01 01B73    32C012C8              LW,R12   CHBCTRL           SAVE HEADER STATE               *A04
     3972   01 01B74    35C012C9              STW,R12  CHDRCTL                                           *A04
     3973   01 01B75    68001B83              B        PTNO03                                            *A02
     3974   01 01B76    32C012E7     PTNO02   LW,R12   ENDSUC            HAVE ALL SUCCESS NO. BEEN       *A02
     3975   01 01B77    31C0132E              CW,R12   NEXTEST            PRINTED                        *A02
     3976   01 01B78    68301BA8              BCR,3    PTNO18            YES                             *A03
     3977   01 01B79    68201B83              BCR,2    PTNO03            LESS THAN                       *A04
     3978   01 01B7A    32C012C6              LW,R12   CHANNELA          IF SINGLE CHANNEL OPERATION,    *A04
     3979   01 01B7B    4BC012C7              AND,R12  CHANNELB           SKIP THE FOLLOWING CONDITIONS  *A04
     3980   01 01B7C    68301B83              BCR,3    PTNO03                                            *A04
     3981   01 01B7D    32C012C8              LW,R12   CHBCTRL           ANY CHANGE IN CHAN A TO B       *A04
     3982   01 01B7E    31C012C9              CW,R12   CHDRCTL                                           *A04
     3983   01 01B7F    68301B83              BCR,3    PTNO03            NO CHANGE                       *A04
     3984   01 01B80    35C012C9              STW,R12  CHDRCTL           REVERSE CONTROL FLAG            *A04
     3985   01 01B81    331012E9              MTW,1    ENDPSUC1          FORCE PSEUDO END                *A04
     3986   01 01B82    68001BB7              B        PTNO30                                            *A04
     3987   01 01B83    B2C0132E     PTNO03   LW,R12   *NEXTEST          TEST NUMBER                     *A02
     3988   01 01B84    4BC035D3              AND,R12  =X'FFFF0000'
     3989   01 01B85    EA6003C3              #HTECON  R12               CONVERT TO PRINT CODE
            01 01B86    0000000C A
     3990   01 01B87    321013AA              LW,R1    TSTIDX1           CONTROL INDEX FOR MESSAGE FIELD
     3991   01 01B88    22200000 A            LI,R2    0                 CHARACTER INDEX
     3992   01 01B89    F2A40006 A   PTNO04   LB,R10   *LINK,X2          GET CONVERTED NUMERIAL
     3993   01 01B8A    75A23557              STB,R10  SUCLNMG,X1        TO MESSAGE FIELD
     3994   01 01B8B    20100001 A            AI,R1    1
     3995   01 01B8C    20200001 A            AI,R2    1
     3996   01 01B8D    21200004 A            CI,R2    4                 FOUR NUMERIALS
     3997   01 01B8E    69101B89              BCS,1    PTNO04
     3998   01 01B8F    33200001 A            MTW,2    R1                SKIP OVER COMMA & BLANK
     3999   01 01B90    351013AA              STW,R1   TSTIDX1           SAVE CONTROL INDEX              *A04
     4000   01 01B91    21100049 A            CI,R1    73                MAX LINE                        *A04
     4001   01 01B92    68101BB7              BCR,1    PTNO30                                            *A03
     4002   01 01B93    68001BA3              B        PTNO10
     4003   01 01B94    330013A4     PTNO06   MTW,0    SUCSHD            SHOULD HEADER BE PRINTED
     4004   01 01B95    69301B99              BCS,3    PTNO08            NO
     4005   01 01B96    EA6003CD              #PRINT   SUCSMG,C2         YES
            01 01B97    C200D53C A
     4006   01 01B98    331013A4              MTW,1    SUCSHD
     4007   01 01B99    EA6003CD     PTNO08   #PRINT   SUCLNMG           YES, PRINT SUCCESS NUMBERS
            01 01B9A    C000D55C A
     4008   01 01B9B    22100002 A   PTNO09   LI,R1    2                 RESET INDEX                     *A03
     4009   01 01B9C    351013AA              STW,R1   TSTIDX1
     4010   01 01B9D    330012E9              MTW,0    ENDPSUC1          IS THIS THE END OF FIRST PASS   *A03
     4011   01 01B9E    E830135F              BCR,3    *R15PRTN          NO                              *A03
     4012   01 01B9F    33F012E9              MTW,-1   ENDPSUC1          YES                             *A03
     4013   01 01BA0    33F013A4              MTW,-1   SUCSHD            CLEAR CONTROLS                  *A03
     4014   01 01BA1    6AF01BBC              BAL,R15  PTNO50            UPDATE CHAN TYPE IN MSG HEADER  *A04
     4015   01 01BA2    68001B83              B        PTNO03            PART TWO                        *A03
     4016   01 01BA3    330012F8     PTNO10   MTW,0    FORCEP1           TEST FOR FORCE PRINT CONDITION
     4017   01 01BA4    E830135F              BCR,3    *R15PRTN                                          *A02
     4018   01 01BA5    75103557              STB,R1   SUCLNMG           TO MESSAGE, FIRST BYTE
     4019   01 01BA6    73D03557     PTNO14   MTB,-3   SUCLNMG           ADJUST MESSAGE BYTE COUNT       *A02
     4020   01 01BA7    68001B94              B        PTNO06            TO PRINT
     4021   01 01BA8    32C012C6     PTNO18   LW,R12   CHANNELA          ARE TWO PASSES REQUIRED         *A03
     4022   01 01BA9    4BC012C7              AND,R12  CHANNELB                                          *A03
     4023   01 01BAA    68301BB2              BCR,3    PTNO20             NO
     4024   01 01BAB    330013A6              MTW,0    SUCPASS2          YES-- WHICH PASS
     4025   01 01BAC    69301BB1              BCS,3    PTNO20-1          SECOND PASS                     *A03
     4026   01 01BAD    6AF01BBC              BAL,R15  PTNO50            UPDATE CHAN TYPE IN MSG HEADER  *A04
     4027   01 01BAE    331012E9              MTW,1    ENDPSUC1          END PASS 1 INDICATOR            *A03
     4028   01 01BAF    331013A6              MTW,1    SUCPASS2          NO-- FIRST PASS                 *A03
     4029   01 01BB0    68001BB7              B        PTNO30                                            *A03
     4030   01 01BB1    33F013A6              MTW,-1   SUCPASS2          TWO PASSES COMPLETED            *A03
     4031   01 01BB2    3310130B     PTNO20   MTW,1    INHTSUC           INHIBIT SUCCESS INDICATION      *A02
     4032   01 01BB3    22C000F0 A            LI,R12   X'F0'                                             *A02
     4033   01 01BB4    75C033F0              STB,R12  PLINE#J+4         RESTORE PARAMETER LINE 'J', SI  *A02
     4034   01 01BB5    22000000 A            LI,R0    0                                                 *A02
     4035   01 01BB6    350012E7              STW,R0   ENDSUC            RESET LAST TEST NUMBER          *A02
     4036   01 01BB7    32C013AA     PTNO30   LW,R12   TSTIDX1           WAS THE LAST LINE PRINTED       *A03
     4037   01 01BB8    21C00002 A            CI,R12   2                                                 *A02
     4038   01 01BB9    68301B9B              BCR,3    PTNO09            YES                             *A02
     4039   01 01BBA    75C03557     PTNO40   STB,R12  SUCLNMG           NO-- STORE BYTE COUNT IN MSG    *A03
     4040   01 01BBB    68001BA6              B        PTNO14                                            *A02
     4041         01 01BBC           PTNO50   EQU      %                 SET CHAN TYPE IN HEADER         *A04
     4042   01 01BBC    22200003 A            LI,R2    3                 UPDATE HEADER                   *A04
     4043   01 01BBD    22A000C1 A            LI,R10   'A'                                               *A04
     4044   01 01BBE    330012C8              MTW,0    CHBCTRL           CHANNEL B OPTION                *A04
     4045   01 01BBF    68301BC1              BCR,3    %+2               NO                              *A04
     4046   01 01BC0    22A000C2 A            LI,R10   'B'               YES                             *A04
     4047   01 01BC1    75A43555              STB,R10  SUCSMG+6,X2       INSERT A OR B CHARACTER         *A04
     4048   01 01BC2    E800000F A            B        *R15              RETURN                          *A04
     4049                            *
     4050                            *                 THIS ROUTINE CLEARS THE FIRST SIX WORDS OF THE    *A03
     4051                            *                  I/O BUFFER
     4052         01 01BC3           PURGEBUF EQU      %
     4053   01 01BC3    22000000 A            LI,R0    0
     4054   01 01BC4    22100000 A            LI,R1    0
     4055   01 01BC5    150012A4              STD,R0   BUFFER1
     4056   01 01BC6    150012A6              STD,R0   BUFFER1+2         PURGE NEXT TWO BUFFER LOCS
     4057   01 01BC7    150012A8              STD,R0   BUFFER1+4         PURGE NEXT TWO BUFFER LOCS
     4058   01 01BC8    150012BE              STD,R0   BUFFER2
     4059   01 01BC9    E800000F A            B        *R15
     4060                            *
     4061                            *                 RESET MEMORY PARITY
     4062   01 01BCA    22201FFC A   PURGEPTY LI,R2    X'1FFC'           FIRST MEMORY BLOCK              *A02
     4063   01 01BCB    022000C0 A            LCI      12                RESET MEMORY PARITY
     4064   01 01BCC    2D340000 A            LMS,R3   0,X2                                              *A02
     4065   01 01BCD    2D340001 A            LMS,R3   1,X2              EXECUTE 4 TIMES IN CASE OF INTRL*A02
     4066   01 01BCE    2D340002 A            LMS,R3   2,X2                                              *A02
     4067   01 01BCF    2D340003 A            LMS,R3   3,X2                                              *A02
     4068   01 01BD0    20201000 A            AI,R2    X'1000'           INCREMENT BY 4K                 *A02
     4069   01 01BD1    212037B4              CI,R2    ENDADDR           HAS ADDRESS EXCEEDED MAX        *A02
     4070   01 01BD2    E920000F A            BCS,2    *R15              YES-- RETURN
     4071   01 01BD3    68001BCB              B        PURGEPTY+1        LOOP                            *A02
     4072                            *
     4073                            *                                  CHANNEL & CCU RESET              *A03
     4074   01 01BD4    EDD01298     RSTCHCCU WD,R13   *GP08             R13 CONTAINS BIT 13-- CHAN RESET
     4075   01 01BD5    EDD01294              WD,R13   *GP00             R13 CONTAINS BIT 13-- CCU RESET *A03
     4076   01 01BD6    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN BIT 9-- CLK MRG *A03
     4077   01 01BD7    E800000F A            B        *R15              RETURN                          *A03
     4078                            *
     4079                            *                 SET ADDRESS PARITY
     4080         01 01BD8           SETADPTY EQU      %
     4081   01 01BD8    75A0000B A            STB,R10  R11               MS ADDRESS TO R11
     4082   01 01BD9    25B00008 A            SLS,R11  8                 LOOK FOR OVERFLOW
     4083   01 01BDA    69801BDC              BCS,8    %+2               ZERO OR ONE
     4084   01 01BDB    20A00100 A            AI,R10   X'100'            EVEN: SET PARITY
     4085   01 01BDC    35A0132D              STW,R10  MSADRPTY          SAVE SETTING
     4086   01 01BDD    E800000C A            B        *R12              RETURN
     4087                            *
     4088                            *                 SET MS 'A' IN SIMULATION MODE
     4089         01 01BDE           SIMA     EQU      %
     4090   01 01BDE    EDD01298              WD,R13   *GP08             RESET CHAN. A
     4091   01 01BDF    EDD0129C              WD,R13   *GP12             RESET SNAP IN MS
     4092   01 01BE0    35801370              STW,R8   SAVR8             SAVE R8 & R9                    *A03
     4093   01 01BE1    35A01372              STW,R10  SAVR10                                            *A03
     4094   01 01BE2    22801000 A            LI,R8    X'1000'           INHIBIT SERVICE CALL
     4095   01 01BE3    ED80129D              WD,R8    *GP13              & SET MS ON LINE & DC OFF LINE
     4096   01 01BE4    328035D1              LW,R8    =X'C0000000'
     4097   01 01BE5    ED80129F              WD,R8    *GP15
     4098   01 01BE6    32801370              LW,R8    SAVR8             RESTORE REGISTERS               *A03
     4099   01 01BE7    32A01372              LW,R10   SAVR10                                            *A03
     4100   01 01BE8    330012E4              MTW,0    DCOFFA            ARE PERIPHERAL DEVICES OFF-LINE?
     4101   01 01BE9    E920000F A            BCS,2    *R15              YES, RETURN
     4102   01 01BEA    331012E4              MTW,1    DCOFFA            NO, DELAY FOR RELAY TO LATCH UP
     4103   01 01BEB    68001AE5              B        OL26
     4104                            *
     4105                            *
     4106         01 01BEC           STOPIODV EQU      %
     4107   01 01BEC    3300130A              MTW,0    INHOUT
     4108   01 01BED    E830000C A            BCR,3    *R12
     4109   01 01BEE    CF000396              HIO,0    *#TOADDR
     4110   01 01BEF    22AE7960 A            LI,R10   -100000           DELAY 100 MSEC
     4111   01 01BF0    65A01BF0              BIR,R10  %                  FOR TELETYPE
     4112   01 01BF1    E800000C A            B        *R12
     4113                            *
     4114                            *                 THIS ROUTINE PROCESS STATUS REQUESTS FROM GUIDE.
     4115         01 01BF2           STATMSGS EQU      %
     4116   01 01BF2    32A0132E              LW,R10   NEXTEST           CURRENT TEST ADDRESS
     4117   01 01BF3    EA6003C3              #HTECON  R10               CONVERT TO PRINT CODE
            01 01BF4    0000000A A
     4118   01 01BF5    22100001 A            LI,R1    1
     4119   01 01BF6    B2A20006 A            LW,R10   *LINK,X1
     4120   01 01BF7    55A0354A              STH,R10  STATUSMG+10       SAVE IN PRINT MESSAGE
     4121   01 01BF8    25A00070 A            SLS,R10  -16               RIGHT JUSTIFY
     4122   01 01BF9    55A23549              STH,R10  STATUSMG+9,X1
     4123   01 01BFA    D2A0132E              LH,R10   *NEXTEST          CURRENT TEST NUMBER
     4124   01 01BFB    EA6003C3              #HTECON  R10               CONVERT TO PRINT CODE
            01 01BFC    0000000A A
     4125   01 01BFD    B2A20006 A            LW,R10   *LINK,X1
     4126   01 01BFE    35A03545              STW,R10  STATUSMG+5
     4127   01 01BFF    22A040C1 A            LI,R10   ' A'              CHANNEL A OR B PASS             *A03
     4128   01 01C00    330012C8              MTW,0    CHBCTRL                                           *A03
     4129   01 01C01    68301C03              BCR,3    %+2               CHANNEL A                       *A03
     4130   01 01C02    22A040C2 A            LI,R10   ' B'              NO, CHANNEL B                   *A03
     4131   01 01C03    75A0354D              STB,R10  STATUSMG+13       STORE IN STATUS MESSAGE
     4132   01 01C04    EA6003CC              #TYPE    STATUSMG
            01 01C05    0000D500 A
     4133   01 01C06    E80003C9              B        *#FIDLE%          RETURN TO IDLE STATE IN GUIDE
     4134                            *                                                                   *A03
     4135                            *                 THIS ROUTINE IS USED TO COMPUTE THE EQUIVALENT SUB-
     4136                            *                  CHANNEL ADDRESS FROM A GIVEN DEVICE ADDRESS.
     4137         01 01C07           SUBCHADR EQU      %
     4138   01 01C07    32A0000B A            LW,R10   R11               R11 CONTAINS THE DEV ADR
     4139   01 01C08    4BA035C8              AND,R10  =X'80'
     4140   01 01C09    69201C0E              BCS,2    SUBC10            CHECK FOR MULTI-DEVICE UNIT
     4141   01 01C0A    32A0000B A            LW,R10   R11               NO-- USE FIVE LEAST SIGNIFICANT
     4142   01 01C0B    4BA035D4              AND,R10  =X'1F'             BITS
     4143   01 01C0C    25A0027A A            SCS,R10  -6                POSITION FOR WD ADDRESSING
     4144   01 01C0D    E800000F A            B        *R15
     4145   01 01C0E    32A0000B A   SUBC10   LW,R10   R11               MULTI-DEVICE TYPE
     4146   01 01C0F    4BA035C9              AND,R10  =X'70'            DEVICE CONTROLLER FIELD
     4147   01 01C10    25A00276 A            SCS,R10  -10
     4148   01 01C11    E800000F A            B        *R15
     4149                            *
     4150                            *        SUPER RESET ROUTINE
     4151         01 01C12           SUPRESET EQU      %
     4152   01 01C12    33001339              MTW,0    PHASFLAG          NO SUPER RESET IF SINGLE PHASE  *A02
     4153   01 01C13    E820000F A            BCR,2    *R15               MODE IS NOT INVOKED.           *A02
     4154   01 01C14    32A012CA              LW,R10   CHLATEST          TEST FOR CCU TEST MODULES       *A03
     4155   01 01C15    49A012CB              OR,R10   CHLBTEST                                          *A03
     4156   01 01C16    E830000F A            BCR,3    *R15              YES, RETURN                     *A03
     4157   01 01C17    32A0132E              LW,R10   NEXTEST                                           *A02
     4158   01 01C18    21A02757              CI,R10   T6600             FIRST SINGLE PHASE TEST         *A03
     4159   01 01C19    E910000F A            BCS,1    *R15                                              *A02
     4160   01 01C1A    21A028D8              CI,R10   T6990             EXCLUDE THIS TEST               *A03
     4161   01 01C1B    E830000F A            BCR,3    *R15                                              *A02
     4162   01 01C1C    22A00200 A   SSTA8    LI,R10   X'200'                                            *A02
     4163   01 01C1D    EDA01294              WD,R10   *GP00             SET SNAP MODE IN CCU            *A02
     4164   01 01C1E    22A00400 A            LI,R10   X'400'                                            *A02
     4165   01 01C1F    49A012CC              OR,R10   CM                CLOCK MARGINS                   *A02
     4166   01 01C20    EDA01294              WD,R10   *GP00             RELEASE SNAP MODE               *A02
     4167   01 01C21    32401310              LW,R4    IOPNO             YES, FETCH 'A' IOP ADDR.        *A03
     4168   01 01C22    32A035D1              LW,R10   =X'C0000000'      SET WRITE DIRECT DATA, MS       *A03
     4169   01 01C23    4F084000 A            RIO,R0   0,X4              ISSUE MASTER RESET
     4170   01 01C24    EDA0129F              WD,R10   *GP15             QUICKLY SET MS ON, DC'S OFF     *A03
     4171   01 01C25    32A01327              LW,R10   MSA               FETCH CURRENT MS ADDRESS        *A01
     4172   01 01C26    25A00010 A            SLS,R10  16                POSITION FOR WRITE DIRECT-GRP '1101'
     4173   01 01C27    EDA0129D              WD,R10   *GP13             SET MS ADDR., DA0-7=0
     4174   01 01C28    330012C8              MTW,0    CHBCTRL                                           *A03
     4175   01 01C29    69301C31              BCS,3    SSTA10-1                                          *A03
     4176   01 01C2A    222FFFE8 A            LI,R2    -24               SELECT 24, 16, OR 8 SUBCHANNELS
     4177   01 01C2B    22A00001 A            LI,R10   1                                                 *A01
     4178   01 01C2C    31A013A5              CW,R10   SUBCHLN                                           *A01
     4179   01 01C2D    69201C31              BCS,2    SSTA10-1          24 SUBCHANNELS                  *A01
     4180   01 01C2E    69101C32              BCS,1    SSTA10            16 SUBCHANNELS                  *A01
     4181   01 01C2F    22AFFFF0 A            LI,R10   -16                                               *A01
     4182   01 01C30    68001C32              B        SSTA10                                            *A01
     4183   01 01C31    222FFFF8 A            LI,R2    -8                8 SUBCHANNELS                   *A01
     4184   01 01C32    12A012F0     SSTA10   LD,R10   FAMPAT2           WRITE PATTERNS
     4185   01 01C33    EDA01299              WD,R10   *GP09             PURGE SUBCHANNELS,BITS 48-95
     4186   01 01C34    EDB01299              WD,R11   *GP09             PURGE SUBCHANNELS,BITS 0-47
     4187   01 01C35    10A012F2              AD,R10   FAMPAT3           INCREMENT  NEXT ADDRESS
     4188   01 01C36    65201C33              BIR,R2   %-3               LOOP
     4189   01 01C37    CF001312              HIO,R0   *IOPMSADR         HIO TO CHAN. A MS               *A03
     4190   01 01C38    E800000F A            B        *R15              RETURN TO CALLER                *A02
     4191                            *
     4192                            *
     4193                            *                 WRITE-READ 'C' REGISTER, BITS 0-23, CHANNEL 'A'
     4194         01 01C39           WTRDC0   EQU      %
     4195   01 01C39    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     4196   01 01C3A    ED801299              WD,R8    *GP09             WRITE 'C' REGISTER, C00-23 & 24-47
     4197   01 01C3B    EC90129A              RD,R9    *GP10             READ 'C' REGISTER, C00-23
     4198   01 01C3C    4B8035D5     WC4      AND,R8   =X'FFFFFF'        MASK CONTROL & ADDRESS BITS
     4199   01 01C3D    4B9035D5              AND,R9   =X'FFFFFF'
     4200   01 01C3E    68001A60              B        CREQUAL           SHOULD BE EQUAL
     4201                            *
     4202                            *                 WRITE-READ 'C' REGISTER, BITS 24-47, CHANNEL 'A'
     4203         01 01C3F           WTRDC1   EQU      %
     4204   01 01C3F    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     4205   01 01C40    ED801299              WD,R8    *GP09             WRITE 'C' REGISTER, C00-23 & 24-47
     4206   01 01C41    EC90129B              RD,R9    *GP11             READ 'C' REGISTER, C24-47
     4207   01 01C42    68001C3C              B        WC4               MASK CONTROL & ADDRESS BITS
     4208                            *
     4209                            *                 FAM WRITE-READ SUBROUTINE, BLOCK 0 OR 2, CHANNEL A
     4210         01 01C43           WTRDF0   EQU      %
     4211   01 01C43    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     4212   01 01C44    ED801299              WD,R8    *GP09             WRITE FAM, CHANNEL A
     4213   01 01C45    ED901299              WD,R9    *GP09             READ FAM TO 'C' REGISTER
     4214   01 01C46    EC90129A              RD,R9    *GP10             READ 'C' REG, BLOCK 0 OR 2
     4215   01 01C47    4B8035D5     WF4      AND,R8   =X'FFFFFF'        MASK EXPECTED & ACTUAL DATA
     4216   01 01C48    4B9035D5              AND,R9   =X'FFFFFF'
     4217   01 01C49    68001A60              B        CREQUAL           VERIFY
     4218                            *
     4219                            *                 FAM WRITE-READ SUBROUTINE, BLOCK 1 OR  3, CHANNEL A
     4220         01 01C4A           WTRDF1   EQU      %
     4221   01 01C4A    ED001297              WD,0     *SYNC             SYNC INSTRUCTION
     4222   01 01C4B    ED801299              WD,R8    *GP09             WRITE FAM, CHANNEL A
     4223   01 01C4C    ED901299              WD,R9    *GP09             READ FAM TO 'C' REGISTER
     4224   01 01C4D    EC90129B              RD,R9    *GP11             READ 'C' REGISTER, BLOCK 1 OR 3
     4225   01 01C4E    68001C47              B        WF4
     4226                            ***********************************************************************
     4227                            *                                                                     *
     4228                            *                 TEST MODULES                                        *
     4229                            *                                                                     *
     4230                            ***********************************************************************
     4231                            *
     4232                            *
     4233                            *                                  READ CCU GROUP 0. LOOK FOR HANG UP
     4234   01 01C4F    00104003 A   T0010    GEN,16,10,6    X'10',X'100',T0020-%  PRE-TEST              *A03
     4235   01 01C50    EC001294              RD,R0    *GP00             READ DIRECT GROUP 0.  IF WDT OC-*A03
     4236   01 01C51    6800148F              B        GOOD               CURS,TCC3= MEM BUS,TCC4= DIO BUS
     4237                            *                                                                   *A03
     4238                            *                                  RESET & READ DIRECT GROUP 0. VER-*A03
     4239                            *                                   IFY RESULTING DATA.             *A03
     4240   01 01C52    00204107 A   T0020    GEN,16,10,6    X'20',X'104',T0030-%  PRE-TEST              *A03
     4241   01 01C53    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13,  GP16 FOR B*A03
     4242   01 01C54    EDD01294              WD,R13   *GP00              DITTO FOR CCU                  *A03
     4243   01 01C55    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT-- BIT 9  *A03
     4244   01 01C56    EC901294              RD,R9    *GP00             READ CCU GROUP 0                *A03
     4245   01 01C57    4B9035D6              AND,R9   =X'F8000000'      MASK OFF P:LXX:D'S              *A03
     4246   01 01C58    68001A61              B        EQUAL             R8 & R9 = 0                     *A03
     4247                            *                                                                   *A03
     4248                            *                                  RESET & READ DIRECT GROUP 1.  VER-
     4249                            *                                   IFY RESULTING DATA.             *A03
     4250   01 01C59    00304108 A   T0030    GEN,16,10,6    X'30',X'104',T0040-%  PRE-TEST              *A03
     4251   01 01C5A    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- CHAN RESET*A03
     4252   01 01C5B    EDD01294              WD,R13   *GP00              DITTO FOR CCU                  *A03
     4253   01 01C5C    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT-- BIT 9  *A03
     4254   01 01C5D    328035D7              LW,R8    =X'C0A21000'      COMPARE DATA                    *A03
     4255   01 01C5E    EC901295              RD,R9    *GP01             READ CCU GROUP1.  SEE DISPLAY   *A03
     4256   01 01C5F    4B9035D8              AND,R9   =X'F9FF1800'       CHART: NRGA-1, NRGB-1, MAR, MDR,
     4257   01 01C60    68001A60              B        CREQUAL            DWATZ, & MI/GNDM31             *A03
     4258                            *                                                                   *A03
     4259                            *                                  RESET & READ DIRECT GROUP 2.  VER-
     4260                            *                                   IFY RESULTING DATA              *A03
     4261   01 01C61    0040410A A   T0040    GEN,16,10,6    X'40',X'104',T0050-%  PRE-TEST              *A03
     4262   01 01C62    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13             *A03
     4263   01 01C63    EDD01294              WD,R13   *GP00              DITTO FOR CCU RESET            *A03
     4264   01 01C64    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT          *A03
     4265   01 01C65    328012CC              LW,R8    CM                CLOCK MARGIN CONTROL            *A03
     4266   01 01C66    25800001 A            SLS,R8   1                 POSITION FOR DISPLAY FOR GP 2   *A03
     4267   01 01C67    488035D9              EOR,R8   =X'1800000'       MERGE DATA,INVERT NCLKMGHI      *A03
     4268   01 01C68    EC901296              RD,R9    *GP02             READ CCU GROUP 2                *A03
     4269   01 01C69    4B9035DA              AND,R9   =X'5FE7FFF'       MASK OFF CCUN1-3,NCPU0-1,CCUN0,*A03
     4270   01 01C6A    68001A60              B        CREQUAL            MATCH/IOP, & MATCH/CPU         *A03
     4271                            *                                                                   *A03
     4272                            *                                  RESET & READ DIRECT GROUP 8 OR 16.
     4273                            *                                   VERIFY RESULTING DATA.          *A03
     4274   01 01C6B    005041C8 A   T0050    GEN,16,10,6    X'50',X'107',T0060-%  PRE-TEST & DATA       *A03
     4275   01 01C6C    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13             *A03
     4276   01 01C6D    EDD01294              WD,R13   *GP00              DITTO FOR CCU RESET            *A03
     4277   01 01C6E    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT          *A03
     4278   01 01C6F    328035DB              LW,R8    =X'80000000'      COMPARE IMAGE                   *A03
     4279   01 01C70    EC901298              RD,R9    *GP08             READ DISPLAY FOR GROUP 8 OR 16  *A03
     4280   01 01C71    4B9035DC              AND,R9   =X'FFFC7FFB'      MASK                            *A03
     4281   01 01C72    68001A60              B        CREQUAL           PHI ON                          *A03
     4282                            *                                                                   *A03
     4283                            *                                  RESET & READ DIRECT GROUP 9 OR 17*A03
     4284                            *                                   (DEC).  VERIFY RESULTING DISPLAY*A03
     4285   01 01C73    006041C8 A   T0060    GEN,16,10,6    X'60',X'107',T0070-%  PRE-TEST, & DATA      *A03
     4286   01 01C74    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13.            *A03
     4287   01 01C75    EDD01294              WD,R13   *GP00              DITTO FOR CCU                  *A03
     4288   01 01C76    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT          *A03
     4289   01 01C77    328035DD              LW,R8    =X'352000'        COMPARE IMAGE                   *A03
     4290   01 01C78    EC901299              RD,R9    *GP09             READ DISPLAY GROUP 9 OR 17 (DEC)*A03
     4291   01 01C79    4B9035DE              AND,R9   =X'FFFFF3FF'      MASK.  SEE DISPLAY CHART: NPR1-2*A03
     4292   01 01C7A    68001A60              B        CREQUAL            FIN,NWI,NIER, & DX2:R          *A03
     4293                            *                                                                   *A03
     4294                            *                                  RESET & READ DIRECT MS GROUP 14 OR
     4295                            *                                   22 (DEC).  VERIFY DISPLAY       *A03
     4296   01 01C7B    007041C8 A   T0070    GEN,16,10,6    X'70',X'107',T0080-%  PRE-TEST, & DATA      *A03
     4297   01 01C7C    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET     *A03
     4298   01 01C7D    EDD01294              WD,R13   *GP00              DITTO FOR CCU RESET            *A03
     4299   01 01C7E    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT          *A03
     4300   01 01C7F    22808000 A            LI,R8    X'8000'           COMPARE IMAGE                   *A03
     4301   01 01C80    EC90129E              RD,R9    *GP14             READ DISPLAY FOR GROUP 14 OR 22 *A03
     4302   01 01C81    4B9035DF              AND,R9   =X'FFFFFB7B'      MASK. SEE DISPLAY CHART.        *A03
     4303   01 01C82    68001A60              B        CREQUAL           SHOULD GET MS/PHFS              *A03
     4304                            *                                                                   *A03
     4305                            *                                  RESET & READ DIRECT MS GROUP 15  *A03
     4306                            *                                   23 (DEC).  VERIFY DISPLAY.      *A03
     4307   01 01C83    008041C8 A   T0080    GEN,16,10,6    X'80',X'107',T0090-%  PRE-TEST, & DATA      *A03
     4308   01 01C84    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET     *A03
     4309   01 01C85    EDD01294              WD,R13   *GP00              DITTO FOR CCU                  *A03
     4310   01 01C86    EDE01294              WD,R14   *GP00             R14 MAY CONTAIN CM BIT          *A03
     4311   01 01C87    22800000 A            LI,R8    0                 COMPARE IMAGE                   *A03
     4312   01 01C88    EC90129F              RD,R9    *GP15             READ DISPLAY FOR GROUP 15 OR 23 *A03
     4313   01 01C89    4B9035E0              AND,R9   =X'FFFFFBFF'      MASK.  SEE DISPLAY CHART.       *A03
     4314   01 01C8A    68001A60              B        CREQUAL           BITS SHOULD BE RESET            *A03
     4315                            *                                                                   *A03
     4316                            *                                  CLEAR MS DB'S & DA'S             *A03
     4317   01 01C8B    009041CE A   T0090    GEN,16,10,6    X'90',X'107',T0100-%  PRE-TEST, & DATA      *A03
     4318   01 01C8C    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET.  MS ADR & D0-
     4319   01 01C8D    ED80129D              WD,R8    *GP13              7=0.  WD GROUP 13 OR 21.       *A03
     4320   01 01C8E    22800000 A            LI,R8    0                                                 *A03
     4321   01 01C8F    EC90129C              RD,R9    *GP12             READ MS DB'S & DA'S.  GROUP 12  *A03
     4322   01 01C90    330012C8              MTW,0    CHBCTRL           CHANNEL 'A' OR 'B' PASS         *A03
     4323   01 01C91    69301C95              BCS,3    T0090B            CHANNEL 'B' PASS                *A03
     4324   01 01C92    330012F9              MTW,0    FOURBYTA          CHAN 'A'-- TEST 4 BYTE OPTION   *A03
     4325   01 01C93    69301C98              BCS,3    T0090C+1                                          *A03
     4326   01 01C94    68001C97              B        T0090C            NO                              *A03
     4327   01 01C95    330012FA     T0090B   MTW,0    FOURBYTB          CHANNEL 'B'-- TEST FOUR BYTE    *A03
     4328   01 01C96    69301C98              BCS,3    %+2                OPTION.  NO                    *A03
     4329   01 01C97    4B9035B9     T0090C   AND,R9   =X'FF'            YES-- MASK DB0-7                *A03
     4330   01 01C98    68001A60              B        CREQUAL            OR 20. BITS SHOULD = 0         *A03
     4331                            *                                                                   *A03
     4332                            *                                  CLEAR MS DD'S & DC'S             *A03
     4333   01 01C99    010043C6 A   T0100    GEN,16,10,6    X'100',X'10F',T0110-%  PRE-TEST             *A03
     4334   01 01C9A    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET.  SET MS ADR*A03
     4335   01 01C9B    ED00129D              WD,R0    *GP13              & D0-7 = 0. WD GP 13 OR 21.    *A03
     4336   01 01C9C    22800000 A            LI,R8    0                                                 *A03
     4337   01 01C9D    EC90129D              RD,R9    *GP13             READ MS DD'S & DC'S.  WD GROUP 13
     4338   01 01C9E    68001A60              B        CREQUAL            OR 21.  R8 & R9 = 0            *A03
     4339                            *                                                                   *A03
     4340                            *                                  MS RESET VIA MS OFF-LINE CONTROL *A03
     4341   01 01C9F    011041CB A   T0110    GEN,16,10,6    X'110',X'107',T0120-%  PRE-TEST             *A03
     4342   01 01CA0    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4343   01 01CA1    328035E1              LW,R8    =X'40000000'      SET MS & DC OFF-LINE            *A03
     4344   01 01CA2    ED80129F              WD,R8    *GP15                                             *A03
     4345   01 01CA3    22800001 A            LI,R8    1                 DC'S OFF-LINE                   *A04
     4346   01 01CA4    358012E4              STW,R8   DCOFFA                                            *A04
     4347   01 01CA5    6AF01A66              BAL,R15  DLY10MS           10 MILLISECONDS OF DELAY        *A03
     4348   01 01CA6    EC90129F              RD,R9    *GP15                                             *A03
     4349   01 01CA7    22800000 A            LI,R8    0                 COMPARE WORD--BITS 16 & 21      *A03
     4350   01 01CA8    4B9035E2              AND,R9   =X'FFFFFF7F'      MASK OFF MS/CDN                 *A03
     4351   01 01CA9    68001A60              B        CREQUAL                                           *A03
     4352                            *                                                                   *A03
     4353                            *                                  MS RESET VIA MS OFF-LINE CONTROL *A03
     4354   01 01CAA    012041CB A   T0120    GEN,16,10,6    X'120',X'107',T0140-%  PRE-TEST             *A03
     4355   01 01CAB    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4356   01 01CAC    328035E1              LW,R8    =X'40000000'      SET MS & DC OFF LINE            *A03
     4357   01 01CAD    ED80129F              WD,R8    *GP15                                             *A03
     4358   01 01CAE    6AF01A66              BAL,R15  DLY10MS           DELAY 10 MSEC                   *A03
     4359   01 01CAF    22800001 A            LI,R8    1                 DC'S OFF-LINE                   *A04
     4360   01 01CB0    358012E4              STW,R8   DCOFFA                                            *A04
     4361   01 01CB1    EC90129E              RD,R9    *GP14                                             *A03
     4362   01 01CB2    22808400 A            LI,R8    X'8400'           COMPARE WORD                    *A03
     4363   01 01CB3    4B9035E3              AND,R9   =X'FF7F'          MASK                            *A03
     4364   01 01CB4    68001A60              B        CREQUAL                                           *A03
     4365                            *                                                                   *A03
     4366                            *                                  READ CCU GROUP 2                 *A03
     4367   01 01CB5    0140410C A   T0140    GEN,16,10,6    X'140',X'104',T0150-%  PRE-TEST & DATA      *A03
     4368   01 01CB6    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4369   01 01CB7    32801310              LW,R8    IOPNO             CURRENT IOP ADDRESS             *A03
     4370   01 01CB8    4B8035C7              AND,R8   =X'1E00'          MASK OFF LOW ORDER BITS         *A03
     4371   01 01CB9    25800274 A            SCS,R8   -12               FORMAT TO CCU GROUP 2           *A03
     4372   01 01CBA    75800009 A            STB,R8   R9                REPOSITION HIGH ORDER BIT       *A03
     4373   01 01CBB    25900001 A            SLS,R9   1                                                 *A03
     4374   01 01CBC    49800009 A            OR,R8    R9                MERGE                           *A03
     4375   01 01CBD    4B8035E4              AND,R8   =X'E2000000'      MASK COMPARE IMAGE              *A03
     4376   01 01CBE    EC901296              RD,R9    *GP02             CCU GROUP 2                     *A03
     4377   01 01CBF    4B9035E4              AND,R9   =X'E2000000'      MASK OUT ALL BUT CCUN1-3        *A03
     4378   01 01CC0    68001A60              B        CREQUAL           COMPARE                         *A03
     4379                            *                                                                   *A03
     4380                            *                                  VERIFY HOMESPACE BIAS EQUAL TO ZERO
     4381   01 01CC1    01504105 A   T0150    GEN,16,10,6    X'150',X'104',T0160-% PRE-TEST,DATA         *A03
     4382   01 01CC2    22800000 A            LI,R8    0                                                 *A03
     4383   01 01CC3    6C900045 A            RD,R9    X'45'             READ CPU CONTROL GROUP          *A03
     4384   01 01CC4    4B9035E5              AND,R9   =X'FC000'         MASK ALL BUT HOMESPACE BIAS     *A03
     4385   01 01CC5    68001A60              B        CREQUAL           R9=0, COMPARE REG=R8=0          *A03
     4386                            *                                                                   *A03
     4387                            *                                  VERIFY IOP CPU NUMBER            *A03
     4388   01 01CC6    01604109 A   T0160    GEN,16,10,6    X'160',X'104',T0170-%  PRE-TEST,DATA        *A03
     4389   01 01CC7    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CPU RESET             *A03
     4390   01 01CC8    6C800045 A            RD,R8    X'45'             READ CPU CONTROL WORD           *A03
     4391   01 01CC9    25800003 A            SLS,R8   3                 POSITION CPU # WITH IOP GROUP 2 *A03
     4392   01 01CCA    4B8035E6              AND,R8   =X'18000000'      MASK OFF ALL BUT CPU #          *A03
     4393   01 01CCB    EC901296              RD,R9    *GP02             CCU GROUP 2-- NCPUNO & NCPUN1   *A03
     4394   01 01CCC    4B9035E6              AND,R9   =X'18000000'                                      *A03
     4395   01 01CCD    489035E6              EOR,R9   =X'18000000'      COMPLEMENT RESULTS              *A03
     4396   01 01CCE    68001A60              B        CREQUAL           BIT                             *A03
     4397                            *                                                                   *A03
     4398                            *                                  VERIFY MS/UNE SET                *A03
     4399   01 01CCF    017041CE A   T0170    GEN,16,10,6    X'170',X'107',T0180-%  PRE-TEST             *A03
     4400   01 01CD0    EDE01294              WD,R14   *GP00             MAY WANT OPTIONAL CM SET        *A03
     4401   01 01CD1    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET     *A03
     4402   01 01CD2    328035D1              LW,R8    =X'C0000000'      MS ON-LINE, DC'S OFF-LINE       *A03
     4403   01 01CD3    ED80129F              WD,R8    *GP15             GROUP 23 FOR CHAN B             *A03
     4404   01 01CD4    6AF01A66              BAL,R15  DLY10MS           DELAY 10 MILLISECONDS FOR RELAY *A03
     4405   01 01CD5    22800001 A            LI,R8    1                 SET DC OFF INDICATOR            *A04
     4406   01 01CD6    358012E4              STW,R8   DCOFFA                                            *A04
     4407   01 01CD7    328035BE              LW,R8    =X'4000000'       MS/UNE                          *A03
     4408   01 01CD8    ED80129E              WD,R8    *GP14             MS SELF-TEST GROUP 14 OR 22     *A03
     4409   01 01CD9    22800040 A            LI,R8    X'40'             COMPARE IMAGE                   *A03
     4410   01 01CDA    EC90129E              RD,R9    *GP14             READ MS DISPLAY, MS/UNE, GP14   *A03
     4411   01 01CDB    4B9035E7              AND,R9   =X'40'            MASK ALL BUT MS/UNE             *A03
     4412   01 01CDC    68001A60              B        CREQUAL           R9 SHOULD CONTAIN MS/UNE, BIT 25*A03
     4413                            *                                                                   *A03
     4414                            *                                  VERIFY MS/UNE RESET              *A03
     4415   01 01CDD    018041CF A   T0180    GEN,16,10,6    X'180',X'107',T0190-%  PRE-TEST             *A03
     4416   01 01CDE    EDE01294              WD,R14   *GP00             MAY WANT TO SET OPTIONAL CM     *A03
     4417   01 01CDF    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET     *A03
     4418   01 01CE0    328035D1              LW,R8    =X'C0000000'      MS ON-LINE, DC OFF-LINE         *A03
     4419   01 01CE1    ED80129F              WD,R8    *GP15             GROUP 15 FOR A, 23 FOR B        *A03
     4420   01 01CE2    6AF01A66              BAL,R15  DLY10MS           DELAY FOR RELAY TIME            *A03
     4421   01 01CE3    22800001 A            LI,R8    1                 SET DC OFF INDICATOR            *A04
     4422   01 01CE4    358012E4              STW,R8   DCOFFA                                            *A04
     4423   01 01CE5    328035BE              LW,R8    =X'4000000'       SET MS/UNE VIA SELF TEST IN MS  *A03
     4424   01 01CE6    ED80129E              WD,R8    *GP14             GROUP 14 FOR A, 22 FOR B        *A03
     4425   01 01CE7    EDD01298              WD,R13   *GP08             R13 CONTAINS RESET BIT          *A03
     4426   01 01CE8    EC90129E              RD,R9    *GP14             READ MS DISPLAY                 *A03
     4427   01 01CE9    22800000 A            LI,R8    0                 R8  CONTAINS COMPARE IMAGE      *A03
     4428   01 01CEA    4B9035E7              AND,R9   =X'40'            R9 CONTAINS ACTUAL              *A03
     4429   01 01CEB    68001A60              B        CREQUAL           SHOULD BE A ZERO                *A03
     4430                            *                                                                   *A03
     4431                            *                                  VERIFY MS/UNE RESET VIA MS OFF-LINE
     4432   01 01CEC    019041CC A   T0190    GEN,16,10,6    X'190',X'107',T0200-%  PRE-TEST
     4433   01 01CED    6AF01AD5              BAL,R15  ONLINECK+2        ENSURE MS ON-LINE, DC OFF-LINE  *A03
     4434   01 01CEE    EDE01294              WD,R14   *GP00             MAY WANT TO SET OPTIONAL CM BIT *A03
     4435   01 01CEF    EDD01298              WD,R13   *GP08             R13 CONTAINS BIT 13-- RESET     *A03
     4436   01 01CF0    328035BE              LW,R8    =X'4000000'       SET MS/UNE VIA SELF TEST MS GROUP
     4437   01 01CF1    ED80129E              WD,R8    *GP14             GROUP 14 OR 22 (DEC)            *A03
     4438   01 01CF2    328035E1              LW,R8    =X'40000000'                                      *A03
     4439   01 01CF3    ED80129F              WD,R8    *GP15             SET MS OFF-LINE, & DC OFF LINE  *A03
     4440   01 01CF4    22800000 A            LI,R8    0                 COMPARE IMAGE                   *A03
     4441   01 01CF5    EC90129E              RD,R9    *GP14             READ GROUP 14 OR 22 (DEC)       *A03
     4442   01 01CF6    4B9035E7              AND,R9   =X'40'            MASK                            *A03
     4443   01 01CF7    68001A60              B        CREQUAL           COMPARE                         *A03
     4444                            *                                                                   *A03
     4445                            *                                  VERIFY MS/ORD7 SET               *A03
     4446   01 01CF8    020041C8 A   T0200    GEN,16,10,6    X'200',X'107',T0210-%  PRE-TEST             *A03
     4447   01 01CF9    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4448   01 01CFA    328035C2              LW,R8    =X'2000000'       SET MS/ORD7 VIA MS SELF TEST    *A03
     4449   01 01CFB    ED80129E              WD,R8    *GP14              GROUP 14 OR 22 (DEC)           *A03
     4450   01 01CFC    22800001 A            LI,R8    1                 MS/ORD7 = 1                     *A03
     4451   01 01CFD    EC90129E              RD,R9    *GP14             READ MS DISPLAY GROUP 14 OR 22  *A03
     4452   01 01CFE    4B9035CC              AND,R9   =1                MASK ALL OFF EXCEPT MS/ORD7     *A03
     4453   01 01CFF    68001A60              B        CREQUAL                                           *A03
     4454                            *                                                                   *A03
     4455                            *                                  VERIFY MS/ORD7 RESET             *A03
     4456   01 01D00    021041C8 A   T0210    GEN,16,10,6    X'210',X'107',T0220-%  PRE-TEST             *A03
     4457   01 01D01    328035C2              LW,R8    =X'2000000'       SET MS/ORD7 VIA MS SELF TEST MODE
     4458   01 01D02    ED80129E              WD,R8    *GP14             GROUP 14 OR 22 (DEC)            *A03
     4459   01 01D03    EDD01298              WD,R13   *GP08             RESET BIT 13                    *A03
     4460   01 01D04    22800000 A            LI,R8    0                 COMPARE WORD                    *A03
     4461   01 01D05    EC90129E              RD,R9    *GP14             GROUP 14 OR 22 (DEC)            *A03
     4462   01 01D06    4B9035CC              AND,R9   =1                MASK ALL EXCEPT MS/ORD7         *A03
     4463   01 01D07    68001A60              B        CREQUAL                                           *A03
     4464                            *                                                                   *A03
     4465                            *                                  SET MI/GNDM31 & MI/GNDCM37       *A03
     4466   01 01D08    0220410A A   T0220    GEN,16,10,6    X'220',X'104',T0230-%  PRE-TEST, DATA       *A03
     4467   01 01D09    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4468   01 01D0A    328035E8              LW,R8    =X'18000'         BIT 15 & 16-- GND M31 & FAM37   *A03
     4469   01 01D0B    498012CC              OR,R8    CM                OPTIONAL CM BIT                 *A03
     4470   01 01D0C    ED801294              WD,R8    *GP00                                             *A03
     4471   01 01D0D    22800800 A            LI,R8    X'800'            COMPARE WORD-- MI/GNDCFAM37     *A03
     4472   01 01D0E    EC901295              RD,R9    *GP01             READ CCU DISPLAY                *A03
     4473   01 01D0F    4B9035E9              AND,R9   =X'1800'          MASK                            *A03
     4474   01 01D10    EDE01294              WD,R14   *GP00             CLEAR                           *A03
     4475   01 01D11    68001A60              B        CREQUAL           COMPARE-- BIT 20 SET IN GROUP 1 *A03
     4476                            *                                                                   *A03
     4477                            *                                  RESET MI/GNDM31 & MI/GNDCM37     *A03
     4478   01 01D12    0230410B A   T0230    GEN,16,10,6    X'230',X'104',T0240-%  PRE-TEST, DATA       *A03
     4479   01 01D13    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4480   01 01D14    328035E8              LW,R8    =X'18000'         BITS 15 & 16-- GND M31 & FAM 37 *A03
     4481   01 01D15    498012CC              OR,R8    CM                OPTIONAL CM                     *A03
     4482   01 01D16    ED801294              WD,R8    *GP00             SET CONTROL BIT                 *A03
     4483   01 01D17    328012CC              LW,R8    CM                OPTIONAL CM AGAIN               *A03
     4484   01 01D18    ED801294              WD,R8    *GP00             RESET                           *A03
     4485   01 01D19    22801000 A            LI,R8    X'1000'           COMPARE WORD-- MI/GNDM31        *A03
     4486   01 01D1A    EC901295              RD,R9    *GP01             READ CCU DISPLAY                *A03
     4487   01 01D1B    4B9035E9              AND,R9   =X'1800'          MASK                            *A03
     4488   01 01D1C    68001A60              B        CREQUAL           COMPARE-- BIT 19 SET IN GROUP 1 *A03
     4489                            *                                                                   *A03
     4490                            *                                  SET CLOCK MARGIN BIT             *A03
     4491   01 01D1D    02404109 A   T0240    GEN,16,10,6    X'240',X'104',T0250-%  PRE-TEST, DATA       *A03
     4492   01 01D1E    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4493   01 01D1F    328035B5              LW,R8    =X'400000'        CLOCK MARGIN BIT                *A03
     4494   01 01D20    ED801294              WD,R8    *GP00             SET CM                          *A03
     4495   01 01D21    EC901296              RD,R9    *GP02             READ CCU DISPLAY GROUP          *A03
     4496   01 01D22    EDE01294              WD,R14   *GP00             OPTIONAL CLOCK MARGIN           *A03
     4497   01 01D23    4B9035EA              AND,R9   =X'800000'        MASK                            *A03
     4498   01 01D24    22800000 A            LI,R8    0                 R8 & R9 SHOULD = 0              *A03
     4499   01 01D25    68001A60              B        CREQUAL                                           *A03
     4500                            *                                                                   *A03
     4501                            *                                  RESET CLOCK MARGIN BIT           *A03
     4502   01 01D26    0250410A A   T0250    GEN,16,10,6    X'250',X'104',T0260-%  PRE-TEST & DATA      *A03
     4503   01 01D27    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4504   01 01D28    328035B5              LW,R8    =X'400000'        CLOCK MARGIN BIT                *A03
     4505   01 01D29    ED801294              WD,R8    *GP00             SET CLOCK MARGINS               *A03
     4506   01 01D2A    ED001294              WD,R0    *GP00             RESET CLOCK MARGINS             *A03
     4507   01 01D2B    EC901296              RD,R9    *GP02                                             *A03
     4508   01 01D2C    328035EA              LW,R8    =X'800000'        COMPARE IMAGE, BIT 8, CCU CM    *A03
     4509   01 01D2D    EDE01294              WD,R14   *GP00             RESTORE OPTIONAL CM             *A03
     4510   01 01D2E    4B9035EA              AND,R9   =X'800000'        MASK                            *A03
     4511   01 01D2F    68001A60              B        CREQUAL           R8 = R9                         *A03
     4512                            *                                                                   *A03
     4513                            *                                  SET CCU DLSTOP/1                 *A03
     4514   01 01D30    0260410A A   T0260    GEN,16,10,6    X'260',X'104',T0270-%  PRE-TEST, DATA       *A03
     4515   01 01D31    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4516   01 01D32    22801000 A            LI,R8    X'1000'           CCU GROUP 0 SINGLE STEP MODE    *A03
     4517   01 01D33    498012CC              OR,R8    CM                                                *A03
     4518   01 01D34    ED801294              WD,R8    *GP00                                             *A03
     4519   01 01D35    EC901295              RD,R9    *GP01             READ DLSTOP/1, GROUP 1, BIT 7   *A03
     4520   01 01D36    EDE01294              WD,R14   *GP00             CLEAR SINGLE STEP MODE          *A03
     4521   01 01D37    4B9035EB              AND,R9   =X'1000000'       MASK                            *A03
     4522   01 01D38    328035EB              LW,R8    =X'1000000'       COMPARE WORD                    *A03
     4523   01 01D39    68001A60              B        CREQUAL           COMPARE R8 & R9                 *A03
     4524                            *                                                                   *A03
     4525                            *                                  RESET CCU DLSTOP/1               *A03
     4526   01 01D3A    0270410A A   T0270    GEN,16,10,6    X'270',X'104',T0280-%  PRE-TEST, DATA       *A03
     4527   01 01D3B    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4528   01 01D3C    22801000 A            LI,R8    X'1000'           CCU GROUP 0, SINGLE PHASE STEP MODE
     4529   01 01D3D    498012CC              OR,R8    CM                OPTIONAL CM BIT                 *A03
     4530   01 01D3E    ED801294              WD,R8    *GP00             SET                             *A03
     4531   01 01D3F    EDE01294              WD,R14   *GP00             RESET OPTIONAL CM               *A03
     4532   01 01D40    22800000 A            LI,R8    0                                                 *A03
     4533   01 01D41    EC901295              RD,R9    *GP01             READ DLSTOP/1, GROUP 1, BIT 7   *A03
     4534   01 01D42    4B9035EB              AND,R9   =X'1000000'       MASK ALL OFF EXCEPT BIT 7       *A03
     4535   01 01D43    68001A60              B        CREQUAL           C(R8) & C(R9) = 0               *A03
     4536                            *                                                                   *A03
     4537                            *                                  VERIFY SNAP MODE                 *A03
     4538   01 01D44    0280410A A   T0280    GEN,16,10,6    X'280',X'104',T0290-%  PRE-TEST, DAT        *A03
     4539   01 01D45    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4540   01 01D46    22800601 A            LI,R8    X'601'            SET SNAP MODE, & MI/C0-3        *A03
     4541   01 01D47    498012CC              OR,R8    CM                 SNAPGPA4, & MI/CNT/EN. OPT CM. *A03
     4542   01 01D48    ED801294              WD,R8    *GP00                                             *A03
     4543   01 01D49    22800601 A            LI,R8    X'601'            SHOULD SEE MICNT/EN, SNAP       *A03
     4544   01 01D4A    EC901294              RD,R9    *GP00              MODE, & SNAPGPA4               *A03
     4545   01 01D4B    4B9035EC              AND,R9   =X'7FF'           MASK                            *A03
     4546   01 01D4C    EDE01294              WD,R14   *GP00             RESTORE OPTIONAL CM             *A03
     4547   01 01D4D    68001A60              B        CREQUAL                                           *A03
     4548                            *                                                                   *A03
     4549                            *                                  VERIFY SNAP COUNTER IN STATIC    *A03
     4550                            *                                   STATE                           *A03
     4551   01 01D4E    0290410C A   T0290    GEN,16,10,6    X'290',X'104',T0300-%  PRE-TEST, & DATA     *A03
     4552   01 01D4F    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4553   01 01D50    22800740 A            LI,R8    X'740'            RELEASE & SET SNAP MODE &       *A03
     4554   01 01D51    498012CC              OR,R8    CM                 MI/CO-4 = A. OPTIONAL CM.      *A03
     4555   01 01D52    ED801294              WD,R8    *GP00             CCU GROUP                       *A03
     4556   01 01D53    22800400 A            LI,R8    X'400'            RELEASE SNAP MODE               *A03
     4557   01 01D54    498012CC              OR,R8    CM                                                *A03
     4558   01 01D55    ED801294              WD,R8    *GP00             RESTORE OPTIONAL CM             *A03
     4559   01 01D56    22800540 A            LI,R8    X'540'                                            *A03
     4560   01 01D57    EC901295              RD,R9    *GP01             READ STATICLY GROUP 1           *A03
     4561   01 01D58    4B9035EC              AND,R9   =X'7FF'           MASK OFF 0-20.  SHOULD SEE MI/CNT-
     4562   01 01D59    68001A60              B        CREQUAL            /EN, MICO, & MIC2              *A03
     4563                            *                                                                   *A03
     4564                            *                                  VERIFY SNAP COUNTER IN STATIC    *A03
     4565                            *                                    STATE                          *A03
     4566   01 01D5A    0300410C A   T0300    GEN,16,10,6    X'300',X'104',T0310-%  PRE-TEST,DATA        *A03
     4567   01 01D5B    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     4568   01 01D5C    228006A0 A            LI,R8    X'6A0'            SET RELEASE SNAPSHOT MODE, SET  *A03
     4569   01 01D5D    498012CC              OR,R8    CM                                                *A03
     4570   01 01D5E    ED801294              WD,R8    *GP00              SNAPSHOT MODE, & MI/C0-4 = 5   *A03
     4571   01 01D5F    22800400 A            LI,R8    X'400'            RELEASE SNAP MODE               *A03
     4572   01 01D60    498012CC              OR,R8    CM                                                *A03
     4573   01 01D61    ED801294              WD,R8    *GP00                                             *A03
     4574   01 01D62    EC901295              RD,R9    *GP01             READ STATIC GROUP 1             *A03
     4575   01 01D63    4B9035EC              AND,R9   =X'7FF'           MASK OFF 0-20                   *A03
     4576   01 01D64    228004A0 A            LI,R8    X'4A0'            SHOULD SEE MI/CNT/EN, MIC1, &   *A03
     4577   01 01D65    68001A60              B        CREQUAL            MIC3                           *A03
     4578                            *                                                                   *A03
     4579                            *                                  DECREMENT SNAP COUNT             *A03
     4580   01 01D66    03104114 A   T0310    GEN,16,10,6    X'310',X'104',T0320-%   DIO PRE-TEST & DATA PRNT
     4581   01 01D67    6AF01D6C              BAL,R15  T0310B            GO TO SNAP DECREMENT SUBROUTINE *A03
     4582   01 01D68    000007E0 A            DATA     X'7E0'            COUNT VALUE TO BE DECREMENTED   *A03
     4583   01 01D69    000001C0 A            DATA     X'1C0'            EXPECTED DATA                   *A03
     4584                            *                                                                   *A03
     4585   01 01D6A    3310000F A            MTW,1    R15               COMPARE IMAGE                   *A03
     4586   01 01D6B    B250000F A            LW,R5    *R15                                              *A03
     4587         01 01D6C           T0310B   EQU      %                                                 *A03
     4588   01 01D6C    B280000F A            LW,R8    *15               FETCH INITIALIZATION COUNT      *A03
     4589   01 01D6D    498012CC              OR,R8    CM                ADD CLOCK MARGIN SETTING        *A03
     4590   01 01D6E    ED801294              WD,R8    *GP00             SET SNAP MODE AND COUNT         *A03
     4591   01 01D6F    22900400 A            LI,R9    X'400'            SET BIT 21                      *A03
     4592   01 01D70    499012CC              OR,R9    CM                ADD CLOCK MARGIN SETTING        *A03
     4593   01 01D71    ED901294              WD,R9    *GP00             RESET SNAPSHOT MODE             *A03
     4594   01 01D72    329035ED              LW,R9    =X'80000'         SET WRITE DIRECT DATA BIT 12    *A03
     4595   01 01D73    499012CC              OR,R9    CM                ADD CLOCK MARGIN SETTING        *A03
     4596   01 01D74    ED901294              WD,R9    *GP00             PULSE COUNTER TEST CLOCK        *A03
     4597   01 01D75    3310000F A            MTW,1    R15                                               *A03
     4598   01 01D76    B280000F A            LW,R8    *R15              EXPECTED DATA                   *A03
     4599   01 01D77    EC901295              RD,R9    *GP01             READ FOR MIC0 THRU 3            *A03
     4600   01 01D78    4B9035EE              AND,R9   =X'1E0'           MASK DATA RECEIVED              *A03
     4601   01 01D79    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     4602                            *                                                                   *A03
     4603                            *                                  DECREMENT SNAP COUNT             *A03
     4604   01 01D7A    03204104 A   T0320    GEN,16,10,6    X'320',X'104',T0330-%   DIO PRE-TEST & DATA PRNT
     4605   01 01D7B    6AF01D6C              BAL,R15  T0310B            GO TO SNAP DECREMENT SUBROUTINE *A03
     4606   01 01D7C    000007C0 A            DATA     X'7C0'            COUNT VALUE TO BE DECREMENTED   *A03
     4607   01 01D7D    00000180 A            DATA     X'180'            COMPARE WORD                    *A03
     4608                            *                                                                   *A03
     4609                            *                                  DECREMENT SNAP COUNT             *A03
     4610   01 01D7E    03304104 A   T0330    GEN,16,10,6    X'330',X'104',T0340-%   DIO PRE-TEST & DATA PRNT
     4611   01 01D7F    6AF01D6C              BAL,R15  T0310B            GO TO SNAP DECREMENT SUBROUTINE *A03
     4612   01 01D80    00000780 A            DATA     X'780'            COUNT VALUE TO BE DECREMENTED   *A03
     4613   01 01D81    00000100 A            DATA     X'100'            COMPARE WORD                    *A03
     4614                            *                                                                   *A03
     4615                            *                                  DECREMENT SNAP COUNT             *A03
     4616   01 01D82    03404104 A   T0340    GEN,16,10,6    X'340',X'104',T0350-%   DIO PRE-TEST & DATA PRNT
     4617   01 01D83    6AF01D6C              BAL,R15  T0310B            GO TO SNAP DECREMENT SUBROUTINE *A03
     4618   01 01D84    00000700 A            DATA     X'700'            COUNT VALUE TO BE DECREMENTED   *A03
     4619   01 01D85    00000000 A            DATA     0                 COMPARE WORD                    *A03
     4620                            *                                                                   *A03
     4621                            *                                  DECREMENT SNAP COUNT             *A03
     4622   01 01D86    0350410E A   T0350    GEN,16,10,6    X'350',X'104',T0360-%   DIO PRE-TEST & DATA PRNT
     4623   01 01D87    22800600 A            LI,R8    X'600'            RELEASE AND SET SNAP BITS       *A03
     4624   01 01D88    498012CC              OR,R8    CM                OPTIONAL CLOCK MARGINS          *A03
     4625   01 01D89    ED801294              WD,R8    *GP00             CCU CONTROL                     *A03
     4626   01 01D8A    328035ED              LW,R8    =X'80000'         COUNTER TEST CLOCK              *A03
     4627   01 01D8B    498012CC              OR,R8    CM                OPTIONAL CLOCK MARGINS          *A03
     4628   01 01D8C    ED801294              WD,R8    *GP00             CCU CONTROL                     *A03
     4629   01 01D8D    22800400 A            LI,R8    X'400'                                            *A03
     4630   01 01D8E    498012CC              OR,R8    CM                                                *A03
     4631   01 01D8F    ED801294              WD,R8    *GP00             RELEASE CCU                     *A03
     4632   01 01D90    228001E0 A            LI,R8    X'1E0'            COMPARE PATTERN                 *A03
     4633   01 01D91    EC901295              RD,R9    *GP01             READ GROUP 1 FOR MIC0-3 ETC.    *A03
     4634   01 01D92    4B9035EC              AND,R9   =X'7FF'           MASK OFF 0-20                   *A03
     4635   01 01D93    68001A60              B        CREQUAL           COMPARE R8 & R9                 *A03
     4636                            *                                                                   *A03
     4637                            *                                  DECREMENT SNAP COUNT             *A03
     4638                            *                                   --CONDITION CODE SETTING        *A03
     4639   01 01D94    03604110 A   T0360    GEN,16,10,6    X'360',X'104',T0370-%   DIO PRE-TEST & DATA PRNT
     4640   01 01D95    22900600 A            LI,R9    X'600'            WRITE DIRECT DATA BIT S 21 & 22 *A03
     4641   01 01D96    499012CC              OR,R9    CM                ADD CLOCK MARGIN SETTING        *A03
     4642   01 01D97    ED901294              WD,R9    *GP00             SET SNAP MODE; COUNT = 0        *A03
     4643   01 01D98    329035ED              LW,R9    =X'80000'         WRITE DIRECT COUNTER TEST       *A03
     4644   01 01D99    499012CC              OR,R9    CM                ADD CLOCK MARGIN SETTING        *A03
     4645   01 01D9A    ED901294              WD,R9    *GP00             PULSE COUNTER TEST CLK          *A03
     4646   01 01D9B    22800400 A            LI,R8    X'400'            WRITE DIRECT DATA BIT 21        *A03
     4647   01 01D9C    EC001294              RD,R0    *DISPLAY          READ                            *A03
     4648   01 01D9D    74000009 A            STCF     R9                SAVE CC'S                       *A03
     4649   01 01D9E    25900204 A            SCS,R9   4                 FORMAT                          *A03
     4650   01 01D9F    4B9035B3              AND,R9   =X'F'             MASK ALL BUT CC'S               *A03
     4651   01 01DA0    498012CC              OR,R8    CM                ADD CLOCK MARGIN SETTING        *A03
     4652   01 01DA1    ED801294              WD,R8    *GP00             RELEASE SNAP MODE               *A03
     4653   01 01DA2    22800002 A            LI,R8    2                 CC EXPECTED (CC 3)              *A03
     4654   01 01DA3    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     4655                            *                                                                   *A03
     4656                            *                                  VERIFY SNAP GROUP ADDRESS 0      *A03
     4657   01 01DA4    0370410E A   T0370    GEN,16,10,6    X'370',X'104',T0374-%   DIO PRE-TEST & DATA PRNT
     4658   01 01DA5    22808600 A            LI,R8    X'8600'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4659   01 01DA6    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4660   01 01DA7    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4661   01 01DA8    EC801294              RD,R8    *GP00             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4662                            *                                                                   *A03
     4663         01 01DA9           T0370B   EQU      %                                                 *A03
     4664   01 01DA9    498012CC              OR,R8    CM                OPTION CLOCK MARGIN             *A03
     4665   01 01DAA    ED801294              WD,R8    *GP00             SNAP MODE & OPEN WINDOW         *A03
     4666   01 01DAB    22800400 A            LI,R8    X'400'                                            *A03
     4667   01 01DAC    EC901294              RD,R9    *DISPLAY          READ SNAP DATA                  *A03
     4668   01 01DAD    4B90000A A            AND,R9   R10                                               *A03
     4669   01 01DAE    498012CC              OR,R8    CM                                                *A03
     4670   01 01DAF    ED801294              WD,R8    *GP00             RELEASE SNAP                    *A03
     4671   01 01DB0    E700000F A            EXU      *R15              READ DIRECT APPROPRIATE GROUP   *A03
     4672   01 01DB1    68001A60              B        CREQUAL                                           *A03
     4673                            *                                                                   *A03
     4674                            *                                  VERIFY SNAP GROUP ADDRESS 1      *A03
     4675   01 01DB2    03744105 A   T0374    GEN,16,10,6    X'374',X'104',T0378-%  PRE-TEST             *A03
     4676   01 01DB3    22800601 A            LI,R8    X'0601'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4677   01 01DB4    22AF3DFE A            LI,R10   X'F3DFE'          MASK                            *A03
     4678   01 01DB5    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4679   01 01DB6    EC801295              RD,R8    *GP01             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4680                            *                                                                   *A03
     4681                            *                                  VERIFY SNAP GROUP ADDRESS 8      *A03
     4682   01 01DB7    037841C6 A   T0378    GEN,16,10,6    X'378',X'107',T0382-%   DIO PRE-TEST & DATA PRNT
     4683   01 01DB8    22808608 A            LI,R8    X'8608'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4684   01 01DB9    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4685   01 01DBA    308012C8              AW,R8    CHBCTRL                                           *A03
     4686   01 01DBB    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4687   01 01DBC    EC801298              RD,R8    *GP08             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4688                            *                                                                   *A03
     4689                            *                                  VERIFY SNAP GROUP ADDRESS  9     *A03
     4690   01 01DBD    038241C6 A   T0382    GEN,16,10,6    X'382',X'107',T0386-%   DIO PRE-TEST & DATA PRNT
     4691   01 01DBE    22808609 A            LI,R8    X'8609'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4692   01 01DBF    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4693   01 01DC0    308012C8              AW,R8    CHBCTRL                                           *A03
     4694   01 01DC1    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4695   01 01DC2    EC801299              RD,R8    *GP09                                             *A03
     4696                            *                                                                   *A03
     4697                            *                                  VERIFY SNAP GROUP ADDRESS 10     *A03
     4698   01 01DC3    038641C6 A   T0386    GEN,16,10,6    X'386',X'107',T0390-%                       *A03
     4699   01 01DC4    2280860A A            LI,R8    X'860A'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4700   01 01DC5    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4701   01 01DC6    308012C8              AW,R8    CHBCTRL                                           *A03
     4702   01 01DC7    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4703   01 01DC8    EC80129A              RD,R8    *GP10                                             *A03
     4704                            *                                                                   *A03
     4705                            *                                  VERIFY SNAP GROUP ADDRESS 11     *A03
     4706   01 01DC9    039041C6 A   T0390    GEN,16,10,6    X'390',X'107',T0394-%                       *A03
     4707   01 01DCA    2280860B A            LI,R8    X'860B'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4708   01 01DCB    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4709   01 01DCC    308012C8              AW,R8    CHBCTRL                                           *A03
     4710   01 01DCD    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4711   01 01DCE    EC80129B              RD,R8    *GP11                                             *A03
     4712                            *                                                                   *A03
     4713                            *                                  VERIFY SNAP GROUP ADDRESS 12     *A03
     4714   01 01DCF    039441C6 A   T0394    GEN,16,10,6    X'394',X'107',T0398-%                       *A03
     4715   01 01DD0    2280860C A            LI,R8    X'860C'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4716   01 01DD1    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4717   01 01DD2    308012C8              AW,R8    CHBCTRL                                           *A03
     4718   01 01DD3    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4719   01 01DD4    EC80129C              RD,R8    *GP12                                             *A03
     4720                            *                                                                   *A03
     4721                            *                                  VERIFY SNAP GROUP ADDRESS 13     *A03
     4722   01 01DD5    039841C6 A   T0398    GEN,16,10,6    X'398',X'107',T0402-%                       *A03
     4723   01 01DD6    2280860D A            LI,R8    X'860D'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4724   01 01DD7    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4725   01 01DD8    308012C8              AW,R8    CHBCTRL                                           *A03
     4726   01 01DD9    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4727   01 01DDA    EC80129D              RD,R8    *GP13                                             *A03
     4728                            *                                                                   *A03
     4729                            *                                  VERIFY SNAP GROUP ADDRESS 14     *A03
     4730   01 01DDB    040241C6 A   T0402    GEN,16,10,6    X'402',X'107',T0406-%                       *A03
     4731   01 01DDC    2280860E A            LI,R8    X'860E'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4732   01 01DDD    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4733   01 01DDE    308012C8              AW,R8    CHBCTRL                                           *A03
     4734   01 01DDF    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4735   01 01DE0    EC80129E              RD,R8    *GP14                                             *A03
     4736                            *                                                                   *A03
     4737                            *                                  VERIFY SNAP GROUP ADDRESS 15     *A03
     4738   01 01DE1    040641C6 A   T0406    GEN,16,10,6    X'406',X'107',T0410-%                       *A03
     4739   01 01DE2    2280860F A            LI,R8    X'860F'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4740   01 01DE3    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4741   01 01DE4    308012C8              AW,R8    CHBCTRL                                           *A03
     4742   01 01DE5    6AF01DA9              BAL,R15  T0370B            TO SNAP GROUP SUBROUTINE        *A03
     4743   01 01DE6    EC80129F              RD,R8    *GP15                                             *A03
     4744                            *                                                                   *A03
     4745                            *                                                                   *A03
     4746                            *                                  VERIFY SNAP GROUP ADDRESS 0      *A03
     4747   01 01DE7    041041CC A   T0410    GEN,16,10,6    X'410',X'107',T0414-%  PRE-TEST             *A03
     4748   01 01DE8    22808600 A            LI,R8    X'8600'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4749   01 01DE9    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4750   01 01DEA    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4751   01 01DEB    EC801294              RD,R8    *GP00             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4752                            *                                                                   *A03
     4753         01 01DEC           T0410B   EQU      %                                                 *A03
     4754   01 01DEC    ED801298              WD,R8    *GP08             SNAP MODE & OPEN WINDOW, BASE   *A03
     4755   01 01DED    22800400 A            LI,R8    X'400'             GROUP 8 OR 16                  *A03
     4756   01 01DEE    EC901294              RD,R9    *DISPLAY          READ SNAP DATA                  *A03
     4757   01 01DEF    4B90000A A            AND,R9   R10                                               *A03
     4758   01 01DF0    ED801298              WD,R8    *GP08             RELEASE SNAP, BASE GROUP 8/16   *A03
     4759   01 01DF1    E700000F A            EXU      *R15              READ DIRECT APPROPRIATE GROUP   *A03
     4760   01 01DF2    68001A60              B        CREQUAL                                           *A03
     4761                            *                                                                   *A03
     4762                            *                                  VERIFY SNAP GROUP ADDRESS 1      *A03
     4763   01 01DF3    041441C5 A   T0414    GEN,16,10,6    X'414',X'107',T0418-%   DIO PRE-TEST & DATA PRNT
     4764   01 01DF4    22808601 A            LI,R8    X'8601'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4765   01 01DF5    22AF3DFE A            LI,R10   X'F3DFE'          MASK                            *A03
     4766   01 01DF6    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4767   01 01DF7    EC801295              RD,R8    *GP01             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4768                            *                                                                   *A03
     4769                            *                                  VERIFY SNAP GROUP ADDRESS 8      *A03
     4770   01 01DF8    041841C6 A   T0418    GEN,16,10,6    X'418',X'107',T0422-%   DIO PRE-TEST & DATA PRNT
     4771   01 01DF9    22808608 A            LI,R8    X'8608'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4772   01 01DFA    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4773   01 01DFB    308012C8              AW,R8    CHBCTRL                                           *A03
     4774   01 01DFC    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4775   01 01DFD    EC801298              RD,R8    *GP08             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4776                            *                                                                   *A03
     4777                            *                                  VERIFY SNAP GROUP ADDRESS  9     *A03
     4778   01 01DFE    042241C6 A   T0422    GEN,16,10,6    X'422',X'107',T0426-%   DIO PRE-TEST & DATA PRNT
     4779   01 01DFF    22808609 A            LI,R8    X'8609'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4780   01 01E00    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4781   01 01E01    308012C8              AW,R8    CHBCTRL                                           *A03
     4782   01 01E02    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4783   01 01E03    EC801299              RD,R8    *GP09                                             *A03
     4784                            *                                                                   *A03
     4785                            *                                  VERIFY SNAP GROUP ADDRESS 10     *A03
     4786   01 01E04    042641C6 A   T0426    GEN,16,10,6    X'426',X'107',T0430-%                       *A03
     4787   01 01E05    2280860A A            LI,R8    X'860A'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4788   01 01E06    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4789   01 01E07    308012C8              AW,R8    CHBCTRL                                           *A03
     4790   01 01E08    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4791   01 01E09    EC80129A              RD,R8    *GP10                                             *A03
     4792                            *                                                                   *A03
     4793                            *                                  VERIFY SNAP GROUP ADDRESS 11     *A03
     4794   01 01E0A    043041C6 A   T0430    GEN,16,10,6    X'430',X'107',T0434-%                       *A03
     4795   01 01E0B    2280860B A            LI,R8    X'860B'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4796   01 01E0C    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4797   01 01E0D    308012C8              AW,R8    CHBCTRL                                           *A03
     4798   01 01E0E    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4799   01 01E0F    EC80129B              RD,R8    *GP11                                             *A03
     4800                            *                                                                   *A03
     4801                            *                                  VERIFY SNAP GROUP ADDRESS 12     *A03
     4802   01 01E10    043441C6 A   T0434    GEN,16,10,6    X'434',X'107',T0438-%                       *A03
     4803   01 01E11    2280860C A            LI,R8    X'860C'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4804   01 01E12    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4805   01 01E13    308012C8              AW,R8    CHBCTRL                                           *A03
     4806   01 01E14    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4807   01 01E15    EC80129C              RD,R8    *GP12                                             *A03
     4808                            *                                                                   *A03
     4809                            *                                  VERIFY SNAP GROUP ADDRESS 13     *A03
     4810   01 01E16    043841C6 A   T0438    GEN,16,10,6    X'438',X'107',T0442-%                       *A03
     4811   01 01E17    2280860D A            LI,R8    X'860D'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4812   01 01E18    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4813   01 01E19    308012C8              AW,R8    CHBCTRL                                           *A03
     4814   01 01E1A    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4815   01 01E1B    EC80129D              RD,R8    *GP13                                             *A03
     4816                            *                                                                   *A03
     4817                            *                                  VERIFY SNAP GROUP ADDRESS 14     *A03
     4818   01 01E1C    044241C6 A   T0442    GEN,16,10,6    X'442',X'107',T0446-%                       *A03
     4819   01 01E1D    2280860E A            LI,R8    X'860E'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4820   01 01E1E    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4821   01 01E1F    308012C8              AW,R8    CHBCTRL                                           *A03
     4822   01 01E20    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4823   01 01E21    EC80129E              RD,R8    *GP14                                             *A03
     4824                            *                                                                   *A03
     4825                            *                                  VERIFY SNAP GROUP ADDRESS 15     *A03
     4826   01 01E22    044641C6 A   T0446    GEN,16,10,6    X'446',X'107',T0450-%                       *A03
     4827   01 01E23    2280860F A            LI,R8    X'860F'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4828   01 01E24    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4829   01 01E25    308012C8              AW,R8    CHBCTRL                                           *A03
     4830   01 01E26    6AF01DEC              BAL,R15  T0410B            TO SNAP GROUP SUBROUTINE        *A03
     4831   01 01E27    EC80129F              RD,R8    *GP15                                             *A03
     4832                            *                                                                   *A03
     4833                            *                                                                   *A03
     4834                            *                                  VERIFY SNAP GROUP ADDRESS 0      *A03
     4835   01 01E28    045041CC A   T0450    GEN,16,10,6    X'450',X'107',T0454-%  PRE-TEST             *A03
     4836   01 01E29    22804600 A            LI,R8    X'4600'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4837   01 01E2A    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4838   01 01E2B    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4839   01 01E2C    EC801294              RD,R8    *GP00             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4840                            *                                                                   *A03
     4841         01 01E2D           T0450B   EQU      %                                                 *A03
     4842   01 01E2D    ED80129C              WD,R8    *GP12             SNAP MODE & OPEN WINDOW FOR MS GROUP
     4843   01 01E2E    22800400 A            LI,R8    X'400'                                            *A03
     4844   01 01E2F    EC901294              RD,R9    *DISPLAY          READ SNAP DATA                  *A03
     4845   01 01E30    4B90000A A            AND,R9   R10               MASK                            *A03
     4846   01 01E31    ED80129C              WD,R8    *GP12             RELEASE SNAP                    *A03
     4847   01 01E32    E700000F A            EXU      *R15              READ DIRECT APPROPRIATE GROUP   *A03
     4848   01 01E33    68001A60              B        CREQUAL                                           *A03
     4849                            *                                                                   *A03
     4850                            *                                  VERIFY SNAP GROUP ADDRESS 1      *A03
     4851   01 01E34    045441C5 A   T0454    GEN,16,10,6    X'454',X'107',T0458-%   DIO PRE-TEST & DATA PRNT
     4852   01 01E35    22804601 A            LI,R8    X'4601'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4853   01 01E36    22AF3DFE A            LI,R10   X'F3DFE'          MASK                            *A03
     4854   01 01E37    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4855   01 01E38    EC801295              RD,R8    *GP01             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4856                            *                                                                   *A03
     4857                            *                                  VERIFY SNAP GROUP ADDRESS 8      *A03
     4858   01 01E39    045841C6 A   T0458    GEN,16,10,6    X'458',X'107',T0462-%   DIO PRE-TEST & DATA PRNT
     4859   01 01E3A    22804608 A            LI,R8    X'4608'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4860   01 01E3B    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4861   01 01E3C    308012C8              AW,R8    CHBCTRL                                           *A03
     4862   01 01E3D    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4863   01 01E3E    EC801298              RD,R8    *GP08             EXECUTIBLE INSTRUCTION-- COMPARE*A03
     4864                            *                                                                   *A03
     4865                            *                                  VERIFY SNAP GROUP ADDRESS  9     *A03
     4866   01 01E3F    046241C6 A   T0462    GEN,16,10,6    X'462',X'107',T0466-%   DIO PRE-TEST & DATA PRNT
     4867   01 01E40    22804609 A            LI,R8    X'4609'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4868   01 01E41    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4869   01 01E42    308012C8              AW,R8    CHBCTRL                                           *A03
     4870   01 01E43    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4871   01 01E44    EC801299              RD,R8    *GP09                                             *A03
     4872                            *                                                                   *A03
     4873                            *                                  VERIFY SNAP GROUP ADDRESS 10     *A03
     4874   01 01E45    046641C6 A   T0466    GEN,16,10,6    X'466',X'107',T0470-%                       *A03
     4875   01 01E46    2280460A A            LI,R8    X'460A'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4876   01 01E47    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4877   01 01E48    308012C8              AW,R8    CHBCTRL                                           *A03
     4878   01 01E49    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4879   01 01E4A    EC80129A              RD,R8    *GP10                                             *A03
     4880                            *                                                                   *A03
     4881                            *                                  VERIFY SNAP GROUP ADDRESS 11     *A03
     4882   01 01E4B    047041C6 A   T0470    GEN,16,10,6    X'470',X'107',T0474-%                       *A03
     4883   01 01E4C    2280460B A            LI,R8    X'460B'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4884   01 01E4D    22AFFFFF A            LI,R10   X'FFFFF'          MASK                            *A03
     4885   01 01E4E    308012C8              AW,R8    CHBCTRL                                           *A03
     4886   01 01E4F    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4887   01 01E50    EC80129B              RD,R8    *GP11                                             *A03
     4888                            *                                                                   *A03
     4889                            *                                  VERIFY SNAP GROUP ADDRESS 12     *A03
     4890   01 01E51    047441C6 A   T0474    GEN,16,10,6    X'474',X'107',T0478-%                       *A03
     4891   01 01E52    2280460C A            LI,R8    X'460C'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4892   01 01E53    22A0FFFF A            LI,R10   X'0FFFF'          MASK                            *A03
     4893   01 01E54    308012C8              AW,R8    CHBCTRL                                           *A03
     4894   01 01E55    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4895   01 01E56    EC80129C              RD,R8    *GP12                                             *A03
     4896                            *                                                                   *A03
     4897                            *                                  VERIFY SNAP GROUP ADDRESS 13     *A03
     4898   01 01E57    047841C6 A   T0478    GEN,16,10,6    X'478',X'107',T0482-%                       *A03
     4899   01 01E58    2280460D A            LI,R8    X'460D'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4900   01 01E59    22A0FFFF A            LI,R10   X'0FFFF'          MASK                            *A03
     4901   01 01E5A    308012C8              AW,R8    CHBCTRL                                           *A03
     4902   01 01E5B    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4903   01 01E5C    EC80129D              RD,R8    *GP13                                             *A03
     4904                            *                                                                   *A03
     4905                            *                                  VERIFY SNAP GROUP ADDRESS 14     *A03
     4906   01 01E5D    048241C6 A   T0482    GEN,16,10,6    X'482',X'107',T0486-%                       *A03
     4907   01 01E5E    2280460E A            LI,R8    X'460E'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4908   01 01E5F    22A0FFFF A            LI,R10   X'0FFFF'          MASK                            *A03
     4909   01 01E60    308012C8              AW,R8    CHBCTRL                                           *A03
     4910   01 01E61    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4911   01 01E62    EC80129E              RD,R8    *GP14                                             *A03
     4912                            *                                                                   *A03
     4913                            *                                  VERIFY SNAP GROUP ADDRESS 15     *A03
     4914   01 01E63    048641C6 A   T0486    GEN,16,10,6    X'486',X'107',T0490-%                       *A03
     4915   01 01E64    2280460F A            LI,R8    X'460F'           OPEN WINDOW, RELEASE & SET SNAP *A03
     4916   01 01E65    22A0FFFF A            LI,R10   X'0FFFF'          MASK                            *A03
     4917   01 01E66    308012C8              AW,R8    CHBCTRL                                           *A03
     4918   01 01E67    6AF01E2D              BAL,R15  T0450B            TO SNAP GROUP SUBROUTINE        *A03
     4919   01 01E68    EC80129F              RD,R8    *GP15                                             *A03
     4920                            *                                                                   *A03
     4921                            *                                  SNAP TYPE DECODE TEST            *A03
     4922   01 01E69    0490410B A   T0490    GEN,16,10,6    X'490',X'104',T0500-%   DIO PRE-TEST & DATA PRNT
     4923   01 01E6A    2281C601 A            LI,R8    X'1C601'          SET SNAP MODE: CCU              *A03
     4924   01 01E6B    498012CC              OR,R8    CM                                                *A03
     4925   01 01E6C    ED801294              WD,R8    *GP00             OPEN  WINDOW                    *A03
     4926   01 01E6D    22800400 A            LI,R8    X'400'            SET WRITE DIRECT DATA BIT 21    *A03
     4927   01 01E6E    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTER           *A03
     4928   01 01E6F    498012CC              OR,R8    CM                                                *A03
     4929   01 01E70    ED801294              WD,R8    *GP00             RELEASE SNAPSHOT MODE           *A03
     4930   01 01E71    2280E601 A            LI,R8    X'E601'           R8=DISPLAY EXPECTED             *A03
     4931   01 01E72    4B9035EF              AND,R9   =X'E7FF'          MASK                            *A03
     4932   01 01E73    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     4933                            *                                                                   *A03
     4934                            *                                  SNAP RELEASE TEST                *A03
     4935   01 01E74    050041C8 A   T0500    GEN,16,10,6    X'500',X'107',T0510-%  PRE-TEST             *A03
     4936   01 01E75    2281C601 A            LI,R8    X'1C601'          SET CCU SNAP MODE               *A03
     4937   01 01E76    ED801298              WD,R8    *GP08             OPEN WINDOW                     *A03
     4938   01 01E77    22800400 A            LI,R8    X'400'                                            *A03
     4939   01 01E78    ED801298              WD,R8    *GP08             RELAESE SNAP MODE               *A03
     4940   01 01E79    EC901295              RD,R9    *GP01             READ DISPLAY GROUP 1            *A03
     4941   01 01E7A    4B9035EF              AND,R9   =X'E7FF'                                          *A03
     4942   01 01E7B    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     4943                            *                                                                   *A03
     4944                            *                                  SNAP TYPE DECODE TEST            *A03
     4945   01 01E7C    0510410F A   T0510    GEN,16,10,6    X'510',X'104',T0520-%   DIO PRE-TEST & DATA PRNT
     4946   01 01E7D    6AF01E80              BAL,R15  T0510B            GO TO SNAP ADDR CHK SUBROUTINE  *A03
     4947   01 01E7E    00010601 A            DATA     X'10601'          SNAPSHOT SETUP DATA             *A03
     4948   01 01E7F    00002601 A            DATA     X'2601'           DISPLAY EXPECTED                *A03
     4949                            *                                                                   *A03
     4950         01 01E80           T0510B   EQU      %                                                 *A03
     4951   01 01E80    B280000F A            LW,R8    *15               FETCH SNAP DATA SET UP          *A03
     4952   01 01E81    498012CC              OR,R8    CM                ADD CLOCK MARGIN SETTING        *A03
     4953   01 01E82    ED801294              WD,R8    *GP00             SET SNAP MODE                   *A03
     4954   01 01E83    22800400 A            LI,R8    X'400'            SET WRITE DIRECT DATA BIT 21    *A03
     4955   01 01E84    498012CC              OR,R8    CM                ADD CLOCK MARGIN SETTING        *A03
     4956   01 01E85    EC901294              RD,R9    *DISPLAY          READ SNAP DATA                  *A03
     4957   01 01E86    4B9035EF              AND,R9   =X'E7FF'          MASK                            *A03
     4958   01 01E87    ED801294              WD,R8    *GP00             RELEASE SNAP MODE               *A03
     4959   01 01E88    3310000F A            MTW,1    15                BUMP POINTER                    *A03
     4960   01 01E89    B280000F A            LW,R8    *15               FETCH DISPLAY EXPECTED          *A03
     4961   01 01E8A    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     4962                            *                                                                   *A03
     4963                            *                                   SNAP TYPE DECODE TEST           *A03
     4964   01 01E8B    05204104 A   T0520    GEN,16,10,6    X'520',X'104',T0530-%   DIO PRE-TEST & DATA PRNT
     4965   01 01E8C    6AF01E80              BAL,R15  T0510B            GO TO SNAP ADDR CHK SUBROUTINE  *A03
     4966   01 01E8D    00008601 A            DATA     X'8601'           SNAPSHOT SETUP DATA             *A03
     4967   01 01E8E    00004601 A            DATA     X'4601'           DISPLAY EXPECTED                *A03
     4968                            *                                                                   *A03
     4969                            *                                  SNAP TYPE DECODE TEST            *A03
     4970   01 01E8F    05304104 A   T0530    GEN,16,10,6    X'530',X'104',T0540-%   DIO PRE-TEST & DATA PRNT
     4971   01 01E90    6AF01E80              BAL,R15  T0510B            GO TO SNAP ADDR CHK SUBROUTINE  *A03
     4972   01 01E91    00004601 A            DATA     X'4601'           SNAPSHOT SETUP DATA             *A03
     4973   01 01E92    00008601 A            DATA     X'8601'           DISPLAY EXPECTED                *A03
     4974                            *                                                                   *A03
     4975                            *                                  PROCESSOR BUS--VERIFY  SNAP GROUP 2
     4976   01 01E93    0540410B A   T0540    GEN,16,10,6    X'540',X'104',T0550-%   DIO PRE-TEST & DATA PRNT
     4977   01 01E94    22800602 A            LI,R8    X'602'            CONTROL--SNAP GROUP 2           *A03
     4978   01 01E95    498012CC              OR,R8    CM                OPTIONAL CLOCK MARGIN           *A03
     4979   01 01E96    ED801294              WD,R8    *GP00             SET SNAP MODE                   *A03
     4980   01 01E97    22800400 A            LI,R8    X'400'            RELEASE SNAP BIT                *A03
     4981   01 01E98    EC901294              RD,R9    *DISPLAY          READ SNAP DATA                  *A03
     4982   01 01E99    498012CC              OR,R8    CM                OPTIONAL CLOCK MARGIN           *A03
     4983   01 01E9A    ED801294              WD,R8    *GP00             RELEASE SNAP MODE               *A03
     4984   01 01E9B    4B9035F0              AND,R9   =X'3E7FFF'        MASK SNAPPED DATA               *A03
     4985   01 01E9C    22800000 A            LI,R8    0                 COMPARE IMAGE                   *A03
     4986   01 01E9D    68001A60              B        CREQUAL           COMPARE R8 & R9                 *A03
     4987                            *                                                                   *A03
     4988                            *                                  PROCESSOR BUS--BASIC  TIO        *A03
     4989   01 01E9E    05504003 A   T0550    GEN,16,10,6    X'550',X'100',T0560-%   DIO PRE-TEST        *A03
     4990   01 01E9F    4D001F00 A            TIO,R0   X'1F00'           I/O-- SHOULD NOT TAKE WDT       *A03
     4991   01 01EA0    6800148F              B        GOOD              NORMAL RETURN                   *A03
     4992                            *                                                                   *A03
     4993                            *                                  PROCESSOR BUS TEST -TIO FUNCTION IND.
     4994   01 01EA1    0560410A A   T0560    GEN,16,10,6    X'560',X'104',T0570-%   DIO PRE-TEST & DATA PRNT
     4995   01 01EA2    22800602 A            LI,R8    X'602'                                            *A03
     4996   01 01EA3    498012CC              OR,R8    CM                                                *A03
     4997   01 01EA4    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     4998   01 01EA5    4D001F00 A            TIO,R0   X'1F00'                                           *A03
     4999   01 01EA6    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5000   01 01EA7    328035F1              LW,R8    =X'3E1010'                                        *A03
     5001   01 01EA8    EC901294              RD,R9    *DISPLAY                                          *A03
     5002   01 01EA9    4B9035F0              AND,R9   =X'3E7FFF'        MASK                            *A03
     5003   01 01EAA    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     5004                            *                                                                   *A03
     5005                            *                                  PROCESSOR BUS TEST-- TDV FUNCTION*A03
     5006                            *                                    INDICATOR                      *A03
     5007   01 01EAB    0570410A A   T0570    GEN,16,10,6    X'570',X'104',T0580-%   DIO PRE-TEST & DATA PRNT
     5008   01 01EAC    22800602 A            LI,R8    X'602'                                            *A03
     5009   01 01EAD    498012CC              OR,R8    CM                                                *A03
     5010   01 01EAE    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5011   01 01EAF    4E001F00 A            TDV,R0   X'1F00'                                           *A03
     5012   01 01EB0    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5013   01 01EB1    328035F2              LW,R8    =X'3E2010'                                        *A03
     5014   01 01EB2    EC901294              RD,R9    *DISPLAY                                          *A03
     5015   01 01EB3    4B9035F0              AND,R9   =X'3E7FFF'        MASK                            *A03
     5016   01 01EB4    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     5017                            *                                                                   *A03
     5018                            *                                  PROCESSOR BUS TEST-- SIO FUNCTION*A03
     5019                            *                                   INDICATOR                       *A03
     5020   01 01EB5    0580410A A   T0580    GEN,16,10,6    X'580',X'104',T0590-%   DIO PRE-TEST & DATA PRNT
     5021   01 01EB6    22800602 A            LI,R8    X'602'                                            *A03
     5022   01 01EB7    498012CC              OR,R8    CM                                                *A03
     5023   01 01EB8    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5024   01 01EB9    4C001F00 A            SIO,R0   X'1F00'                                           *A03
     5025   01 01EBA    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5026   01 01EBB    328035F3              LW,R8    =X'3E0010'                                        *A03
     5027   01 01EBC    EC901294              RD,R9    *DISPLAY                                          *A03
     5028   01 01EBD    4B9035F0              AND,R9   =X'3E7FFF'        MASK                            *A03
     5029   01 01EBE    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     5030                            *                                                                   *A03
     5031                            *                                  PROCESSOR BUS TEST-- HIO FUNCTION*A03
     5032                            *                                   INDICATOR                       *A03
     5033   01 01EBF    0590410A A   T0590    GEN,16,10,6    X'590',X'104',T0600-%   DIO PRE-TEST & DATA PRNT
     5034   01 01EC0    22800602 A            LI,R8    X'602'                                            *A03
     5035   01 01EC1    498012CC              OR,R8    CM                                                *A03
     5036   01 01EC2    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5037   01 01EC3    4F001F00 A            HIO,R0   X'1F00'                                           *A03
     5038   01 01EC4    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5039   01 01EC5    328035F4              LW,R8    =X'3E3010'                                        *A03
     5040   01 01EC6    EC901294              RD,R9    *DISPLAY                                          *A03
     5041   01 01EC7    4B9035F0              AND,R9   =X'3E7FFF'        MASK                            *A03
     5042   01 01EC8    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     5043                            *                                                                   *A03
     5044                            *                                  PROCESSOR BUS TEST--POLP FUNCTION*A03
     5045                            *                                   INDICATOR                       *A03
     5046   01 01EC9    0600410B A   T0600    GEN,16,10,6    X'600',X'104',T0610-%   DIO PRE-TEST & DATA PRNT
     5047   01 01ECA    22800602 A            LI,R8    X'602'                                            *A03
     5048   01 01ECB    498012CC              OR,R8    CM                                                *A03
     5049   01 01ECC    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5050   01 01ECD    22201F00 A            LI,R2    X'1F00'           BUS ADDRESS                     *A03
     5051   01 01ECE    4F048000 A            POLP,R0  0,X2                                              *A03
     5052   01 01ECF    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5053   01 01ED0    328035F5              LW,R8    =X'3E5010'                                        *A03
     5054   01 01ED1    EC901294              RD,R9    *DISPLAY                                          *A03
     5055   01 01ED2    4B9035F0              AND,R9   =X'3E7FFF'        MASK                            *A03
     5056   01 01ED3    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     5057                            *                                                                   *A03
     5058                            *                                  PROCESSOR BUS TEST-- POLR FUNCTION
     5059                            *                                   INDICATOR                       *A03
     5060   01 01ED4    0610410B A   T0610    GEN,16,10,6    X'610',X'104',T0620-%   DIO PRE-TEST & DATA PRNT
     5061   01 01ED5    22800602 A            LI,R8    X'602'                                            *A03
     5062   01 01ED6    498012CC              OR,R8    CM                                                *A03
     5063   01 01ED7    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5064   01 01ED8    22201F00 A            LI,R2    X'1F00'           BUS ADDRESS                     *A03
     5065   01 01ED9    4F04C000 A            POLR,R0  0,X2                                              *A03
     5066   01 01EDA    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5067   01 01EDB    328035F6              LW,R8    =X'3E7010'                                        *A03
     5068   01 01EDC    EC901294              RD,R9    *DISPLAY                                          *A03
     5069   01 01EDD    4B9035F0              AND,R9   =X'3E7FFF'        MASK                            *A03
     5070   01 01EDE    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     5071                            *                                                                   *A03
     5072                            *                                  PROCESSOR BUS TEST-- RIO FUNCTION*A03
     5073                            *                                   INDICATOR                       *A03
     5074   01 01EDF    0620410E A   T0620    GEN,16,10,6    X'620',X'104',T0630-%   DIO PRE-TEST & DATA PRNT
     5075   01 01EE0    22800602 A            LI,R8    X'602'                                            *A03
     5076   01 01EE1    498012CC              OR,R8    CM                                                *A03
     5077   01 01EE2    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5078   01 01EE3    22800000 A            LI,R8    0                 OFF LINE INDICATORS             *A04
     5079   01 01EE4    358012E4              STW,R8   DCOFFA                                            *A04
     5080   01 01EE5    35801330              STW,R8   NDCDLY             AND DELAY IND                  *A04
     5081   01 01EE6    22201F00 A            LI,R2    X'1F00'           BUS ADDRESS                     *A03
     5082   01 01EE7    4F044000 A            RIO,R0   0,X2                                              *A03
     5083   01 01EE8    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5084   01 01EE9    328035F7              LW,R8    =X'3E4010'                                        *A03
     5085   01 01EEA    EC901294              RD,R9    *DISPLAY                                          *A03
     5086   01 01EEB    4B9035F0              AND,R9   =X'3E7FFF'        MASK                            *A03
     5087   01 01EEC    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     5088                            *                                                                   *A03
     5089                            *                                  PROCESSOR BUS TEST-- AIO FUNCTION*A03
     5090                            *                                   INDICATOR                       *A03
     5091   01 01EED    0630410A A   T0630    GEN,16,10,6    X'630',X'104',T0640-%   DIO PRE-TEST & DATA PRNT
     5092   01 01EEE    22800602 A            LI,R8    X'602'                                            *A03
     5093   01 01EEF    498012CC              OR,R8    CM                                                *A03
     5094   01 01EF0    ED801294              WD,R8    *GP00             SET OPEN WINDOW CCU, GROUP 2 SNAP
     5095   01 01EF1    6E000000 A            AIO,R0   0                                                 *A03
     5096   01 01EF2    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5097   01 01EF3    328035F8              LW,R8    =X'006010'                                        *A03
     5098   01 01EF4    EC901294              RD,R9    *DISPLAY                                          *A03
     5099   01 01EF5    4B9035F9              AND,R9   =X'7FFF'          MASK                            *A03
     5100   01 01EF6    68001A60              B        CREQUAL           COMPARE R8/R9                   *A03
     5101                            *                                                                   *A03
     5102                            *                                  PROCESSOR BUS TEST--RIO ADDRESSING
     5103   01 01EF7    06404114 A   T0640    GEN,16,10,6    X'640',X'104',T0645-%                       *A03
     5104   01 01EF8    22800602 A            LI,R8    X'602'            OPEN WINDOW SNAP CONTROL, GROUP 2
     5105   01 01EF9    498012CC              OR,R8    CM                CLOCK MARGIN OPTION             *A03
     5106   01 01EFA    ED801294              WD,R8    *GP00             SET OPEN WINDOW SNAP VIA CCU    *A03
     5107   01 01EFB    22800000 A            LI,R8    0                 OFF LINE INDICATORS             *A04
     5108   01 01EFC    358012E4              STW,R8   DCOFFA                                            *A04
     5109   01 01EFD    35801330              STW,R8   NDCDLY             AND DELAY IND                  *A04
     5110   01 01EFE    22301400 A            LI,R3    X'1400'                                           *A03
     5111   01 01EFF    328035FA              LW,R8    =X'2A4010'        COMPARE IMAGE--PB:ADRS0-4 & OTHER*A03
     5112   01 01F00    31301310              CW,R3    IOPNO             IF IOP NO. MATCHES, COMPARE     *A03
     5113   01 01F01    68301F05              BCR,3    T0640B             IMAGE WILL BE ZERO             *A03
     5114   01 01F02    22301500 A            LI,R3    X'1500'                                           *A03
     5115   01 01F03    31301310              CW,R3    IOPNO                                             *A03
     5116   01 01F04    69301F06              BCS,3    T0640B+1                                          *A03
     5117   01 01F05    22800000 A   T0640B   LI,R8    0                                                 *A03
     5118   01 01F06    22301500 A            LI,R3    X'1500'           RESET I/O                       *A03
     5119   01 01F07    4F064000 A            RIO,R0   0,X3              RESET I/O                       *A03
     5120   01 01F08    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA               *A03
     5121   01 01F09    4B9035F6              AND,R9   =X'3E7010'        MASK GROUP 2 DISPLAY            *A03
     5122   01 01F0A    68001A60              B        CREQUAL           C(R8)=C(R9)=X'2A4010'           *A03
     5123                            *                                                                   *A03
     5124                            *                                  PROCESSOR BUS TEST--RIO ADDRESSING
     5125   01 01F0B    06454114 A   T0645    GEN,16,10,6    X'645',X'104',T0650-%                       *A03
     5126   01 01F0C    22800602 A            LI,R8    X'602'            OPEN WINDOW SNAP CONTROL,GROUP 2*A03
     5127   01 01F0D    498012CC              OR,R8    CM                CLOCK MARGIN OPTION             *A03
     5128   01 01F0E    ED801294              WD,R8    *GP00             SET OPEN WINDOW SNAP VIA CCU    *A03
     5129   01 01F0F    22800000 A            LI,R8    0                 OFF LINE INDICATORS             *A04
     5130   01 01F10    358012E4              STW,R8   DCOFFA                                            *A04
     5131   01 01F11    35801330              STW,R8   NDCDLY                                            *A04
     5132   01 01F12    22400A00 A            LI,R4    X'A00'                                            *A03
     5133   01 01F13    328035FB              LW,R8    =X'144010'        COMPARE IMAGE--PB:ADRS0-4 &OTHER*A03
     5134   01 01F14    31401310              CW,R4    IOPNO             IF IOP NO. MATCHES, COMPARE     *A03
     5135   01 01F15    68301F19              BCR,3    T0645B             IMAGE WILL BE ZERO             *A03
     5136   01 01F16    22400B00 A            LI,R4    X'B00'                                            *A03
     5137   01 01F17    31401310              CW,R4    IOPNO                                             *A03
     5138   01 01F18    69301F1A              BCS,3    %+2                                               *A03
     5139   01 01F19    22800000 A   T0645B   LI,R8    0                                                 *A03
     5140   01 01F1A    22400A00 A            LI,R4    X'A00'                                            *A03
     5141   01 01F1B    4F084000 A            RIO,R0   0,X4              RESET I/O                       *A03
     5142   01 01F1C    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA               *A03
     5143   01 01F1D    4B9035F6              AND,R9   =X'3E7010'        MASK GROUP 2 DISPLAY            *A03
     5144   01 01F1E    68001A60              B        CREQUAL           C(R8)=C(R9)= X'154010'          *A03
     5145                            *                                                                   *A03
     5146                            *                                  PROCESSOR BUS--  VERIFY CPU NO.  *A03
     5147   01 01F1F    06504110 A   T0650    GEN,16,10,6    X'650',X'104',T0660-%   DIO PRE-TEST & DATA PRNT
     5148   01 01F20    6C800045 A            RD,R8    X'45'             READ CPU STATUS                 *A03
     5149   01 01F21    4B8035FC              AND,R8   =X'3000000'       MASK ALL BUT CPU NO.            *A03
     5150   01 01F22    22908602 A            LI,R9    X'8602'           CONTROL WORD                    *A03
     5151   01 01F23    499012CC              OR,R9    CM                OPTIONAL CLOCK MARGINS          *A03
     5152   01 01F24    ED901294              WD,R9    *GP00             OPEN WINDOW SNAP, GROUP 2       *A03
     5153   01 01F25    6E200000 A            AIO,R2                     I/O                             *A03
     5154   01 01F26    6AF01A63              BAL,R15  DLY10US           DELAY                           *A03
     5155   01 01F27    22A00400 A            LI,R10   X'400'            CONTROL WORD                    *A03
     5156   01 01F28    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA               *A03
     5157   01 01F29    49A012CC              OR,R10   CM                OPTIONAL CLOCK MARGINS          *A03
     5158   01 01F2A    EDA01294              WD,R10   *GP00             RELEASE SNAP MODE               *A03
     5159   01 01F2B    4B9035E6              AND,R9   =X'18000000'      MASK OFF ALL BUT NCPUN0         *A03
     5160   01 01F2C    489035E6              EOR,R9   =X'18000000'      COMPLEMENT BITS,NCPUN0-1        *A03
     5161   01 01F2D    25800003 A            SLS,R8   3                 ALIGN C(R8) FOR COMPARISON      *A03
     5162   01 01F2E    68001A60              B        CREQUAL           COMPARE R8 & R9-- CPU NUMBERS   *A03
     5163                            *                                                                   *A03
     5164                            *                                  BASIC CPU I/O TEST               *A03
     5165   01 01F2F    06604107 A   T0660    GEN,16,10,6    X'660',X'104',T0670-%   DIO PRE-TEST & DATA PRNT
     5166   01 01F30    22000000 A            LI,R0    0                 DEDICATE R0 TO CMND. ADDR.      *A03
     5167   01 01F31    35000020 A            STW,R0   X'20'             STUFF CELL 20                   *A03
     5168   01 01F32    4C001C00 A            SIO,R0   X'1C00'                                           *A03
     5169   01 01F33    32900020 A            LW,R9    X'20'             TEST CELL 20                    *A03
     5170   01 01F34    22800000 A            LI,R8    0                                                 *A03
     5171   01 01F35    68001A60              B        CREQUAL                                           *A03
     5172                            *                                                                   *A03
     5173                            *                                  BASIC CPU I/O TEST               *A03
     5174   01 01F36    06704107 A   T0670    GEN,16,10,6    X'670',X'104',T0680-%   DIO PRE-TEST & DATA PRNT
     5175   01 01F37    320035FD              LW,R0    =X'1FFFFF'        DEDICATE R0                     *A03
     5176   01 01F38    35000020 A            STW,R0   X'20'             STUFF CELL 20                   *A03
     5177   01 01F39    4C201CFF A            SIO,R2   X'1CFF'                                           *A03
     5178   01 01F3A    328035FE              LW,R8    =X'FFDFFFFF'                                      *A03
     5179   01 01F3B    32900020 A            LW,R9    X'20'             TEST CELL 20                    *A03
     5180   01 01F3C    68001A60              B        CREQUAL                                           *A03
     5181                            *                                                                   *A03
     5182                            *                                  BASIC CPU I/O TEST               *A03
     5183   01 01F3D    06804107 A   T0680    GEN,16,10,6    X'680',X'104',T0690-%   DIO PRE-TEST & DATA PRNT
     5184   01 01F3E    320035FD              LW,R0    =X'1FFFFF'        DEDICATE R0                     *A03
     5185   01 01F3F    35000020 A            STW,R0   X'20'             STUFF CELL 20                   *A03
     5186   01 01F40    4C101CFF A            SIO,R1   X'1CFF'                                           *A03
     5187   01 01F41    328035FF              LW,R8    =X'FF5FFFFF'                                      *A03
     5188   01 01F42    32900020 A            LW,R9    X'20'             TEST CELL 20                    *A03
     5189   01 01F43    68001A60              B        CREQUAL                                           *A03
     5190                            *                                                                   *A03
     5191                            *                                  CC CHECK FOR CPU I/O VIA TIO     *A03
     5192   01 01F44    06904007 A   T0690    GEN,16,10,6    X'690',X'100',T0700-%  PRE-TEST             *A03
     5193   01 01F45    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A03
     5194   01 01F46    02200030 A            LCI      3                 CC 3 & 4 SET                    *A03
     5195   01 01F47    4D001C00 A            TIO,0    X'1C00'           TIO TO PROCESSOR BUS            *A03
     5196   01 01F48    688013D0              BCR,8    BAD               CC 1 & 2 SHOULD BE SET          *A03
     5197   01 01F49    684013D0              BCR,4    BAD                                               *A03
     5198   01 01F4A    6800148F              B        GOOD                                              *A03
     5199                            *                                                                   *A03
     5200                            *                                  POLP TO CPU                      *A03
     5201   01 01F4B    0700410D A   T0700    GEN,16,10,6    X'700',X'104',T0710-%  PRE-TEST, DATA       *A03
     5202   01 01F4C    6AF01F4E              BAL,R15  T0700B            SUBROUTINE                      *A03
     5203   01 01F4D    4F448000 A            POLP,R4  0,X2              EXECUTIBLE INSTRUCTION          *A03
     5204         01 01F4E           T0700B   EQU      %                 SUBROUTINE FOR POLP, POLR, & RIO*A03
     5205   01 01F4E    35F0000A A            STW,R15  R10                                               *A04
     5206   01 01F4F    6AF01BD4              BAL,R15  RSTCHCCU          CHANNEL & CCU RESET             *A04
     5207   01 01F50    6C200045 A            RD,R2    X'45'             READ CPU NUMBER                 *A04
     5208   01 01F51    25200270 A            SCS,R2   -16               ALIGN CPU NUMBER                *A04
     5209   01 01F52    49203600              OR,R2    =X'1C00'          CPU ADDRESS                     *A04
     5210   01 01F53    228FFFFF A            LI,R8    -1                ALL ONES TO COMMUNICATION CELLS *A04
     5211   01 01F54    35800020 A            STW,R8   X'20'                                             *A04
     5212   01 01F55    E700000A A            EXU      *R10              EXECUTE                         *A04
     5213   01 01F56    32900020 A            LW,R9    X'20'             CELL 20 HEX SHOULD BE THE SAME  *A04
     5214   01 01F57    68001A60              B        CREQUAL           VERIFY R8 = R9                  *A04
     5215                            *                                                                   *A03
     5216                            *                                  POLR TO CPU                      *A03
     5217   01 01F58    07104103 A   T0710    GEN,16,10,6    X'710',X'104',T0720-%  PRE-TEST,DATA        *A03
     5218   01 01F59    6AF01F4E              BAL,R15  T0700B            SUBROUTINE                      *A03
     5219   01 01F5A    4F44C000 A            POLR,R4  0,X2              EXECUTIBLE INSTRUCTION          *A03
     5220                            *                                                                   *A03
     5221                            *                                  RIO TO CPU                       *A03
     5222   01 01F5B    07204106 A   T0720    GEN,16,10,6    X'720',X'104',T0730-%  PRE-TEST, DATA       *A03
     5223   01 01F5C    22800000 A            LI,R8    0                 RESET DC OFF-LINE INDICATORS    *A04
     5224   01 01F5D    358012E4              STW,R8   DCOFFA                                            *A04
     5225   01 01F5E    35801330              STW,R8   NDCDLY                                            *A04
     5226   01 01F5F    6AF01F4E              BAL,R15  T0700B            TO SUBROUTINE                   *A03
     5227   01 01F60    4F444000 A            RIO,R4   0,X2              EXECUTIBLE INSTRUCTION          *A03
     5228                            *                                                                   *A03
     5229                            *                                  MS SELF TEST-- BASIC HIO         *A03
     5230   01 01F61    073041D4 A   T0730    GEN,16,10,6    X'730',X'107',T0740-%  PRE-TEST, DATA       *A03
     5231   01 01F62    328035D1              LW,R8    =X'C0000000'                                      *A03
     5232   01 01F63    ED80129F              WD,R8    *GP15             MS ON-LINE, DC OFF-LINE         *A03
     5233   01 01F64    6AF01A66              BAL,R15  DLY10MS           DELAY FOR DC OFF-LINE RELAY     *A03
     5234   01 01F65    22800001 A            LI,R8    1                 SET DC OFF INDICATOR            *A04
     5235   01 01F66    358012E4              STW,R8   DCOFFA                                            *A04
     5236   01 01F67    EDD01298              WD,R13   *GP08              TIME-- AT83.  CHANNEL RESET    *A03
     5237   01 01F68    2280460F A            LI,R8    X'460F'           SET OPEN WINDOW SNAP FOR GROUP 15
     5238   01 01F69    22F01F72              LI,R15   T0730D            LINKAGE                         *A03
     5239   01 01F6A    35F0136F     T0730B   STW,R15  SAVER15S          SAVE BETURN LINE                *A03
     5240   01 01F6B    308012C8              AW,R8    CHBCTRL           GROUP BIAS FOR CHANNEL B OPTION *A03
     5241   01 01F6C    ED80129C              WD,R8    *GP12             MS CONTROL GROUP 12 OR 20 (DEC) *A03
     5242   01 01F6D    32803601              LW,R8    =X'60000000'      ISSUE BASIC HIOU & FS MS SELF   *A03
     5243   01 01F6E    ED80129E              WD,R8    *GP14              TEST.  GROUP 14 OR 22 (DEC)    *A03
     5244   01 01F6F    6AF01A63              BAL,R15  DLY10US           DELAY 10 USEC                   *A03
     5245   01 01F70    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA               *A03
     5246   01 01F71    E800136F              B        *SAVER15S         RETURN                          *A03
     5247   01 01F72    4B903602     T0730D   AND,R9   =X'490'           MASK                            *A03
     5248   01 01F73    22800410 A            LI,R8    X'410'            COMPARE DATA-- MS/HIOU (BIT 27) *A03
     5249   01 01F74    68001A60              B        CREQUAL           COMPARE                         *A03
     5250                            *                                                                   *A03
     5251                            *                                  MS SELF TEST-- BASCI HIO         *A03
     5252   01 01F75    074041C8 A   T0740    GEN,16,10,6    X'740',X'107',T0750-%  PRE-TEST, DATA       *A03
     5253   01 01F76    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE    *A03
     5254   01 01F77    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B            *A03
     5255   01 01F78    2280460E A            LI,R8    X'460E'           SET OPEN WINDOW SNAP FOR GP 15/23
     5256   01 01F79    6AF01F6A              BAL,R15  T0730B            TO SUBROUTINE                   *A03
     5257   01 01F7A    2280A000 A            LI,R8    X'A000'           C(R9) = COMPARE IMAGE-- BITS 17 & 19
     5258   01 01F7B    4B903603              AND,R9   =X'F800'          MASK OFF 22 THRU 31             *A03
     5259   01 01F7C    68001A60              B        CREQUAL           SHOULD SE MS/PHRS & MS/PHSRV    *A03
     5260                            *                                                                   *A03
     5261                            *                                  MS SELF TEST-- HIOU & FSL        *A03
     5262   01 01F7D    075041C8 A   T0750    GEN,16,10,6    X'750',X'107',T0760-%  PRE-TEST,DATA,CHA/B  *A03
     5263   01 01F7E    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE    *A03
     5264   01 01F7F    EDD01298              WD,R13   *GP08             RESET CHANNEL                   *A03
     5265   01 01F80    22804609 A            LI,R8    X'4609'           SET OPEN WINDOW SNAP FOR GP 9/17*A03
     5266   01 01F81    6AF01F6A              BAL,R15  T0730B            TO SUBROUTINE                   *A03
     5267   01 01F82    4B903604              AND,R9   =X'FFC00200'      MASK R9                         *A03
     5268   01 01F83    32803605              LW,R8    =X'20000200'      COMPARE WORD, BIT 2-- FSL:R     *A03
     5269   01 01F84    68001A60              B        CREQUAL           COMPARE R8 & R9                 *A03
     5270                            *                                                                   *A03
     5271                            *                                  MS SELF TEST-- HIOU RESET        *A03
     5272   01 01F85    076041CD A   T0760    GEN,16,10,6    X'760',X'107',T0770-%  PRE-TEST,DATA,CHA/B  *A03
     5273   01 01F86    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE    *A03
     5274   01 01F87    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B            *A03
     5275   01 01F88    22800400 A            LI,R8    X'400'            RELEASE SNAP SHOT               *A03
     5276   01 01F89    22F01F8F              LI,R15   T0760D                                            *A03
     5277   01 01F8A    ED80129C     T0760B   WD,R8    *GP12                                             *A03
     5278   01 01F8B    32803601              LW,R8    =X'60000000'                                      *A03
     5279   01 01F8C    ED80129E              WD,R8    *GP14                                             *A03
     5280   01 01F8D    25900240 A            SCS,R9   -64                                               *A03
     5281   01 01F8E    E800000F A            B        *R15                                              *A03
     5282   01 01F8F    EC90129F     T0760D   RD,R9    *GP15             READ MS DISPLAY, GROUP 15 OR 23 *A03
     5283   01 01F90    22800400 A            LI,R8    X'400'            COMPARE IMAGE, BIT 27 = 0, MS/ONLINE
     5284   01 01F91    68001A60              B        CREQUAL            (DEC). R8 & R9,BIT 27=0,MS/HIOU*A03
     5285                            *                                                                   *A03
     5286                            *                                  MS SELF TEST-- HIOU RESET        *A03
     5287   01 01F92    077041C9 A   T0770    GEN,16,10,6    X'770',X'107',T0780-%  PRE-TEST,DATA,CHA/B  *A03
     5288   01 01F93    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE    *A03
     5289   01 01F94    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B            *A03
     5290   01 01F95    22800400 A            LI,R8    X'400'            RELEASE SNAP SHOT               *A03
     5291   01 01F96    6AF01F8A              BAL,R15  T0760B            TO SUBROUTINE                   *A03
     5292   01 01F97    EC90129E              RD,R9    *GP14             READ DISPLAY                    *A03
     5293   01 01F98    4B903606              AND,R9   =X'FD7F'          MASK OFF AVO:R & MS/CDN         *A03
     5294   01 01F99    22808400 A            LI,R8    X'8400'           COMPARE IMAGE                   *A03
     5295   01 01F9A    68001A60              B        CREQUAL                                           *A03
     5296                            *                                                                   *A03
     5297                            *                                  MS SELF TEST-- HIOU RESET        *A03
     5298   01 01F9B    078041C9 A   T0780    GEN,16,10,6    X'780',X'107',T0790-%  PRE-TEST,DATA,CHA/B  *A03
     5299   01 01F9C    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE    *A03
     5300   01 01F9D    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B            *A03
     5301   01 01F9E    22800400 A            LI,R8    X'400'            RELEASE SNAP SHOT               *A03
     5302   01 01F9F    6AF01F8A              BAL,R15  T0760B            TO SUBROUTINE                   *A03
     5303   01 01FA0    EC901299              RD,R9    *GP09             READ DISPLAY                    *A03
     5304   01 01FA1    4B903604              AND,R9   =X'FFC00200'      MASK                            *A03
     5305   01 01FA2    22800000 A            LI,R8    0                 COMPARE IMAGE                   *A03
     5306   01 01FA3    68001A60              B        CREQUAL                                           *A03
     5307                            *                                                                   *A03
     5308                            *                                  HIOU SINGLE PHASE                *A03
     5309   01 01FA4    079041CC A   T0790    GEN,16,10,6    X'790',X'107',T0800-%  A/B DIO PRETST; DATA PRNT
     5310   01 01FA5    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5311   01 01FA6    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE *A03
     5312   01 01FA7    22801400 A            LI,R8    X'1400'           MS SINGLE PHASE CONTROL BITS    *A03
     5313   01 01FA8    ED80129C              WD,R8    *GP12             SET SINGLE PHASE MODE           *A03
     5314   01 01FA9    32803601              LW,R8    =X'60000000'      MS SELF TEST                    *A03
     5315   01 01FAA    ED80129E              WD,R8    *GP14             THIO & TFS                      *A03
     5316   01 01FAB    6AF01A63              BAL,R15  DLY10US           DELAY 10 MICROSECONDS           *A03
     5317   01 01FAC    EC90129E              RD,R9    *GP14             READ MS CONTROL PHASES          *A03
     5318   01 01FAD    4B9035E3              AND,R9   =X'FF7F'          MASK OFF MS/CDN                 *A03
     5319   01 01FAE    22800400 A            LI,R8    X'400'            DISPLAY EXPECTED: AVO:R         *A03
     5320   01 01FAF    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5321                            *                                                                   *A03
     5322                            *                                  MS SELF TEST--SINGLE PHASING     *A03
     5323   01 01FB0    080041CE A   T0800    GEN,16,10,6    X'800',X'107',T0810-%  A/B DIO PRETST; DATA PRNT
     5324   01 01FB1    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE *A03
     5325   01 01FB2    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5326   01 01FB3    22801400 A            LI,R8    X'1400'           MS SINGLE PHASE CONTROL BITS    *A03
     5327   01 01FB4    ED80129C              WD,R8    *GP12             SET SINGLE PHASE MODE           *A03
     5328   01 01FB5    32803601              LW,R8    =X'60000000'                                      *A03
     5329   01 01FB6    ED80129E              WD,R8    *GP14             THIO & TFS                      *A03
     5330   01 01FB7    6AF01A63              BAL,R15  DLY10US           DELAY 10 MICROSECONDS           *A03
     5331   01 01FB8    22801800 A            LI,R8    X'1800'            & FS                           *A03
     5332   01 01FB9    ED80129C              WD,R8    *GP12             ADVANCE ONE HIO PHASE           *A03
     5333   01 01FBA    22802000 A            LI,R8    X'2000'           COMPARE IMAGE-- MS/PHFSL        *A03
     5334   01 01FBB    EC90129E              RD,R9    *GP14             READ GROUP 14 OR 22 FOR MS PHASES
     5335   01 01FBC    4B903603              AND,R9   =X'F800'          MASK                            *A03
     5336   01 01FBD    68001A60              B        CREQUAL           COMPARE R8 & R9. BIT 16=0 & 18=1*A03
     5337                            *                                                                   *A03
     5338                            *                                  MS SELF TEST-- RESET SINGLE      *A03
     5339                            *                                  PHASE MODE                       *A03
     5340   01 01FBE    081041CC A   T0810    GEN,16,10,6    X'810',X'107',T0820-%  A/B DIO PRETST; DATA PRNT
     5341   01 01FBF    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE *A03
     5342   01 01FC0    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5343   01 01FC1    22801000 A            LI,R8    X'1000'           SINGLE STEP MODE                *A03
     5344   01 01FC2    ED80129C              WD,R8    *GP12                                             *A03
     5345   01 01FC3    22800000 A            LI,R8    0                 ZERO TO HOPEFULLY CLEAR SINGLE  *A03
     5346   01 01FC4    ED80129C              WD,R8    *GP12             CLEAR SINGLE PHASE MODE         *A03
     5347   01 01FC5    32803601              LW,R8    =X'60000000'                                      *A03
     5348   01 01FC6    ED80129E              WD,R8    *GP14             THIO & TFS                      *A03
     5349   01 01FC7    22800400 A            LI,R8    X'400'             IALIZE HIOU & FS               *A03
     5350   01 01FC8    EC90129F              RD,R9    *GP15             READ GROUP 15 OR 23             *A03
     5351   01 01FC9    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5352                            *                                                                   *A03
     5353                            *                                  MS SELF TEST--RESET UNE VIA MS/HIO
     5354   01 01FCA    082041C9 A   T0820    GEN,16,10,6    X'820',X'107',T0830-%  PRE-TEST,DATA,CH A/B *A03
     5355   01 01FCB    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE    *A03
     5356   01 01FCC    EDD01298              WD,R13   *GP08             RESET CHANNEL A OR B            *A03
     5357   01 01FCD    32803607              LW,R8    =X'64000000'      MS HIO, FS, & MS/UNE            *A03
     5358   01 01FCE    ED80129E              WD,R8    *GP14             GROUP 14 OR 22 (DEC)            *A03
     5359   01 01FCF    22808400 A            LI,R8    X'8400'           COMPARE IMAGE -- MS/UNE = 0     *A03
     5360   01 01FD0    EC90129E              RD,R9    *GP14             READ GROUP 14 OR 22 (DEC)       *A03
     5361   01 01FD1    4B9035E3              AND,R9   =X'FF7F'          MASK OFF MS/CDN                 *A03
     5362   01 01FD2    68001A60              B        CREQUAL           C(R8) = C(R9)                   *A03
     5363                            *                                                                   *A03
     5364                            *                                  MS SELF TEST-- SET MS UNE        *A03
     5365   01 01FD3    083041C9 A   T0830    GEN,16,10,6    X'830',X'107',T0840-%  PRE-TEST,DATA,CH A/B *A03
     5366   01 01FD4    EDD01298              WD,R13   *GP08             CHANNEL A OR B RESET            *A03
     5367   01 01FD5    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE    *A03
     5368   01 01FD6    328035BE              LW,R8    =X'4000000'       MS UNE                          *A03
     5369   01 01FD7    ED80129E              WD,R8    *GP14             SET MS/UNE VIA GROUP 14 OR 22   *A03
     5370   01 01FD8    22808440 A            LI,R8    X'8440'           COMPARE IMAGE-- MS/UNE SET      *A03
     5371   01 01FD9    EC90129E              RD,R9    *GP14             READ DISPLAY GROUP 14 OR 22 (DEC)
     5372   01 01FDA    4B9035E3              AND,R9   =X'FF7F'          MASK OFF MS/CDN                 *A03
     5373   01 01FDB    68001A60              B        CREQUAL           COMPARE R8 AND R9               *A03
     5374                            *                                                                   *A03
     5375                            *                                  MS SELF TEST-- VERIFY SIOU       *A03
     5376   01 01FDC    084041CE A   T0840    GEN,16,10,6    X'840',X'107',T0850-%  PRE-TEST,DATA,CH A/B *A03
     5377   01 01FDD    EDD01298              WD,R13   *GP08             CHANNEL A OR B RESET            *A03
     5378   01 01FDE    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON-LINE & DC OFF-LINE    *A03
     5379   01 01FDF    22801000 A            LI,R8    X'1000'           CONTROL BIT                     *A03
     5380   01 01FE0    ED801298              WD,R8    *GP08             STOP DELAY LINE VIA GROUP 8 OR 16
     5381   01 01FE1    ED80129D              WD,R8    *GP13             INHIBIT SC                      *A03
     5382   01 01FE2    2280460F A            LI,R8    X'460F'           SNAP CONTROL GROUP 15 OR 23     *A03
     5383   01 01FE3    308012C8              AW,R8    CHBCTRL           CHAN B OPTION GROUP BIAS        *A03
     5384   01 01FE4    ED80129C              WD,R8    *GP12             OPEN WINDOW, RELEASE & SET SNAP *A03
     5385   01 01FE5    32803608              LW,R8    =X'A0000000'      MS SIO & MS FS CONTROL BITS     *A03
     5386   01 01FE6    ED80129E              WD,R8    *GP14             MS SELF TEST VIA GROUP 15 OR 23 *A03
     5387   01 01FE7    22802480 A            LI,R8    X'2480'           COMPARE IMAGE                   *A03
     5388   01 01FE8    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA-- MS/SIOU     *A03
     5389   01 01FE9    68001A60              B        CREQUAL           COMPARE R8 & R9, BIT 24 = 1     *A03
     5390                            *                                                                   *A03
     5391                            *                                  MS SELF TEST-- STEP MS/SIO PHASES*A03
     5392   01 01FEA    085041D8 A   T0850    GEN,16,10,6    X'850',X'107',T0860-%  A/B DIO PRETST; DATA PRNT
     5393   01 01FEB    6AF01FEF              BAL,R15  T0850B            GO TO PHASE CHK. SUBROUTINE     *A03
     5394   01 01FEC    0000460E A            DATA     X'460E'           MS SET UP DATA                  *A03
     5395   01 01FED    0000A000 A            DATA     X'A000'           DATA EXPECTED                   *A03
     5396   01 01FEE    0000F800 A            DATA     X'F800'           MASK                            *A03
     5397                            *                                                                   *A03
     5398   01 01FEF    35F02001     T0850B   STW,R15  T0850R            SAVE R15 FOR POINTING           *A03
     5399   01 01FF0    EDD01298              WD,R13   *GP08             CHANNEL A OR B RESET            *A03
     5400   01 01FF1    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE *A03
     5401   01 01FF2    22801000 A            LI,R8    X'1000'           SINGLE STEP MODE                *A03
     5402   01 01FF3    ED80129C              WD,R8    *GP12                                             *A03
     5403   01 01FF4    B2802001              LW,R8    *T0850R           FETCH MS SET UP DATA            *A03
     5404   01 01FF5    308012C8              AW,R8    CHBCTRL           CHAN B OPTION GROUP BIAS        *A03
     5405   01 01FF6    ED80129C              WD,R8    *GP12             OPEN WINDOW, RELEASE & SET SNAP *A03
     5406   01 01FF7    22801000 A            LI,R8    X'1000'           INHIBIT SERVICE CALL VIA GROUP 13
     5407   01 01FF8    ED80129D              WD,R8    *GP13              OR 21                          *A03
     5408   01 01FF9    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5409   01 01FFA    ED80129E              WD,R8    *GP14              22 (DEC)                       *A03
     5410   01 01FFB    33102001              MTW,1    T0850R            BUMP POINTER                    *A03
     5411   01 01FFC    B2802001              LW,R8    *T0850R           FETCH DATA EXPECTED             *A03
     5412   01 01FFD    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA               *A03
     5413   01 01FFE    33102001              MTW,1    T0850R            BUMP POINTER                    *A03
     5414   01 01FFF    CB902001              AND,R9   *T0850R           MASK                            *A03
     5415   01 02000    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5416   01 02001    00000000 A   T0850R   DATA     0                 DATA POINTER                    *A03
     5417                            *                                                                   *A03
     5418                            *                                  MS SELF TEST-- STEP MS/SIO PHASES*A03
     5419   01 02002    086041C5 A   T0860    GEN,16,10,6    X'860',X'107',T0870-%  A/B DIO PRETST; DATA PRNT
     5420   01 02003    6AF01FEF              BAL,R15  T0850B            GO TO PHASE CHK. SUBROUTINE     *A03
     5421   01 02004    0000460E A            DATA     X'460E'           MS SET UP DATA                  *A03
     5422   01 02005    0000A008 A            DATA     X'A008'           DATA EXPECTED                   *A03
     5423   01 02006    0000F808 A            DATA     X'F808'           MASK                            *A03
     5424                            *                                                                   *A03
     5425                            *                                  MS SELF TEST-- STEP MS/SIO PHASES*A03
     5426   01 02007    087041C5 A   T0870    GEN,16,10,6    X'870',X'107',T0880-%  A/B DIO PRETST; DATA PRNT
     5427   01 02008    6AF01FEF              BAL,R15  T0850B            GO TO PHASE CHK. SUBROUTINE     *A03
     5428   01 02009    00004609 A            DATA     X'4609'           MS SET UP DATA                  *A03
     5429   01 0200A    20000200 A            DATA     X'20000200'       DATA EXPECTED                   *A03
     5430   01 0200B    24000200 A            DATA     X'24000200'       MASK                            *A03
     5431                            *                                                                   *A03
     5432                            *                                  CHECK MS CALL FOR SERVICE        *A03
     5433   01 0200C    088040CC A   T0880    GEN,16,10,6    X'880',X'103',T0890-%  A/B DIO PRE-TEST     *A03
     5434   01 0200D    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5435   01 0200E    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE *A03
     5436   01 0200F    22801000 A            LI,R8    X'1000'           CONTROL BIT                     *A03
     5437   01 02010    ED801298              WD,R8    *GP08             STOP DELAY LINE VIA GROUP 8 OR 16
     5438   01 02011    ED80129D              WD,R8    *GP13             INHIBIT SC                      *A03
     5439   01 02012    32803608              LW,R8    =X'A0000000'      MS SIO & MS FS CONTROL BITS     *A03
     5440   01 02013    ED80129F              WD,R8    *GP15             MS SELF TEST VIA GROUP 15 OR 23 *A03
     5441   01 02014    EC90129E              RD,R9    *GP14             READ UNE RE                     *A03
     5442   01 02015    4B903609              AND,R9   =X'2000'          IS UNE RESET?                   *A03
     5443   01 02016    6820148F              BCR,2    GOOD              YES                             *A03
     5444   01 02017    680013D0              B        BAD               NO                              *A03
     5445                            *                                                                   *A03
     5446                            *                                  SIO RESET UNE                    *A03
     5447   01 02018    089040CC A   T0890    GEN,16,10,6    X'890',X'103',T0900-%  A/B DIO PRE-TEST     *A03
     5448   01 02019    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5449   01 0201A    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE *A03
     5450   01 0201B    22801000 A            LI,R8    X'1000'           CONTROL BIT                     *A03
     5451   01 0201C    ED801298              WD,R8    *GP08             STOP DELAY LINE VIA GROUP 8 OR 16
     5452   01 0201D    ED80129D              WD,R8    *GP13             INHIBIT SC                      *A03
     5453   01 0201E    3280360A              LW,R8    =X'A4000000'      MS SIO & MS FS CONTROL BITS     *A03
     5454   01 0201F    ED80129F              WD,R8    *GP15             MS SELF TEST VIA GROUP 15 OR 23 *A03
     5455   01 02020    EC90129E              RD,R9    *GP14             READ CSL                        *A03
     5456   01 02021    4B9035E7              AND,R9   =X'0040'          IS CSL SET?                     *A03
     5457   01 02022    6830148F              BCR,3    GOOD              YES                             *A03
     5458   01 02023    680013D0              B        BAD               NO                              *A03
     5459                            *                                                                   *A03
     5460                            *                                  CHECK SC:R IN IOP                *A03
     5461   01 02024    090040CC A   T0900    GEN,16,10,6    X'900',X'103',T0910-%  A/B DIO PRETST       *A03
     5462   01 02025    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5463   01 02026    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE *A03
     5464   01 02027    ED00129D              WD,R0    *GP13             RESET SC INHIBIT                *A03
     5465   01 02028    22801000 A            LI,R8    X'1000'           CONTROL BIT                     *A03
     5466   01 02029    ED801298              WD,R8    *GP08             STOP DELAY LINE VIA GROUP 8 OR 16
     5467   01 0202A    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5468   01 0202B    ED80129E              WD,R8    *GP14              22 (DEC)                       *A03
     5469   01 0202C    EC901299              RD,R9    *GP09             READ FOR SC:R                   *A03
     5470   01 0202D    4B9035BE              AND,R9   =X'4000000'       WAS SC SET?                     *A03
     5471   01 0202E    6920148F              BCS,2    GOOD              YES                             *A03
     5472   01 0202F    680013D0              B        BAD               NO                              *A03
     5473                            *                                                                   *A03
     5474                            *                                  TEST HIO RESETTING DC BUSY       *A03
     5475   01 02030    091040CA A   T0910    GEN,16,10,6    X'910',X'103',T0920-%  A/B DIO PRETST       *A03
     5476   01 02031    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5477   01 02032    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5478   01 02033    ED80129E              WD,R8    *GP14              22 (DEC), SIO & FS             *A03
     5479   01 02034    32803601              LW,R8    =X'60000000'      THIO & TFS                      *A03
     5480   01 02035    ED80129E              WD,R8    *GP14                                             *A03
     5481   01 02036    EC90129E              RD,R9    *GP14             READ FOR DC BUSY                *A03
     5482   01 02037    4B9035BC              AND,R9   =X'8'             IS DC BUSY SET?                 *A03
     5483   01 02038    6830148F              BCR,3    GOOD              YES                             *A03
     5484   01 02039    680013D0              B        BAD               NO                              *A03
     5485                            *                                                                   *A03
     5486                            *                                  TEST SETTING MS/CIL              *A03
     5487   01 0203A    092040CD A   T0920    GEN,16,10,6    X'920',X'103',T0930-%  A/B DIO PRE-TEST     *A03
     5488   01 0203B    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5489   01 0203C    6AF01AD5              BAL,R15  ONLINECK+2        SET MS ON LINE; D.C.'S OFF LINE *A03
     5490   01 0203D    22800020 A            LI,R8    X'20'                                             *A03
     5491   01 0203E    6D801100 A            WD,R8    X'1100'           DISARM I/O GROUP INTRPTS        *A03
     5492   01 0203F    22803000 A            LI,R8    X'3000'                                           *A03
     5493   01 02040    ED80129D              WD,R8    *GP13             SET I/C & INH SC IN MS          *A03
     5494   01 02041    EC90129F              RD,R9    *GP15             READ FOR MS/CIL                 *A03
     5495   01 02042    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5496   01 02043    ED001298              WD,R0    *GP08             RESET IC & INHIBIT SC           *A03
     5497   01 02044    4B9035CA              AND,R9   =X'100'           WAS MS/CIL SET?                 *A03
     5498   01 02045    6920148F              BCS,2    GOOD              YES                             *A03
     5499   01 02046    680013D0              B        BAD               NO                              *A03
     5500                            *                                                                   *A03
     5501                            *                                  TEST SIO WITH IC SET             *A03
     5502   01 02047    093040CF A   T0930    GEN,16,10,6    X'930',X'103',T0940-%  A/B DIO PRE-TEST     *A03
     5503   01 02048    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5504   01 02049    22800020 A            LI,R8    X'20'                                             *A03
     5505   01 0204A    6D801100 A            WD,R8    X'1100'           DISARM I/O GROUP INTRPTS        *A03
     5506   01 0204B    22803000 A            LI,R8    X'3000'                                           *A03
     5507   01 0204C    ED80129D              WD,R8    *GP13             SET MS IC & INHIBIT SC          *A03
     5508   01 0204D    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5509   01 0204E    ED80129E              WD,R8    *GP14              22 (DEC)                       *A03
     5510   01 0204F    EC90129E              RD,R9    *GP14             READ FOR SIOU                   *A03
     5511   01 02050    EDD01298              WD,R13   *GP08             CHANNEL A/B RESET               *A03
     5512   01 02051    22801000 A            LI,R8    X'1000'                                           *A03
     5513   01 02052    ED80129D              WD,R8    *GP13             RESET CI (CALL INT. LATCH)      *A03
     5514   01 02053    4B9035BC              AND,R9   =8                WAS SIOU SET                    *A03
     5515   01 02054    692013D0              BCS,2    BAD               YES                             *A03
     5516   01 02055    6800148F              B        GOOD              NO                              *A03
     5517                            *                                                                   *A03
     5518                            *                                  TEST HIO RESETTING MS/UNE        *A03
     5519                            *                                  AND M/S DC BUSY                  *A03
     5520   01 02056    094041CC A   T0940    GEN,16,10,6    X'940',X'107',T0950-%  A/B DIO PRE-TEST     *A03
     5521   01 02057    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5522   01 02058    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5523   01 02059    ED80129E              WD,R8    *GP14              22 (DEC)                       *A03
     5524   01 0205A    328035BE              LW,R8    =X'4000000'                                       *A03
     5525   01 0205B    ED80129E              WD,R8    *GP14             SET MS/UNE                      *A03
     5526   01 0205C    32803601              LW,R8    =X'60000000'                                      *A03
     5527   01 0205D    ED80129E              WD,R8    *GP14             THIO & TFS                      *A03
     5528   01 0205E    22808000 A            LI,R8    X'8000'           EXPECTED DISPLAY                *A03
     5529   01 0205F    EC90129E              RD,R9    *GP14             READ GROUP 14 OR 22 (DEC)       *A03
     5530   01 02060    4B90360B              AND,R9   =X'F978'          MASK                            *A03
     5531   01 02061    68001A60              B        CREQUAL           COMPARE R8 AND R9               *A03
     5532                            *                                                                   *A03
     5533                            *                                  TEST HIO RESETTING MS/CSL        *A03
     5534                            *                                  AND MS/CIL                       *A03
     5535   01 02062    095040CC A   T0950    GEN,16,10,6    X'950',X'103',T0960-%  DIO PRE-TEST A OR B  *A03
     5536   01 02063    6AF01BDE              BAL,R15  SIMA              SET MS ON-LIN & SET MS CONTROLS *A03
     5537   01 02064    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5538   01 02065    ED80129E              WD,R8    *GP14              22 (DEC)                       *A03
     5539   01 02066    22803000 A            LI,R8    X'3000'                                           *A03
     5540   01 02067    ED80129D              WD,R8    *GP13             SET MS/CIL                      *A03
     5541   01 02068    32803601              LW,R8    =X'60000000'                                      *A03
     5542   01 02069    ED80129E              WD,R8    *GP14             THIO & TFS                      *A03
     5543   01 0206A    EC90129F              RD,R9    *GP15             READ GROUP 15 OR 23             *A03
     5544   01 0206B    4B90360C              AND,R9   =X'2100'          MASK                            *A03
     5545   01 0206C    22800000 A            LI,R8    0                 COMPARE IMAGE                   *A03
     5546   01 0206D    68001A60              B        CREQUAL           COMPARE R8 AND R9               *A03
     5547                            *                                                                   *A03
     5548                            *                                  TEST ORDER OUT PHASES            *A03
     5549   01 0206E    096041D1 A   T0960    GEN,16,10,6    X'960',X'107',T0970-%  A/B DIO PRETST; DATA PRNT
     5550   01 0206F    328035E1              LW,R8    =X'40000000'                                      *A03
     5551   01 02070    ED80129F              WD,R8    *GP15             SET MS OFF LINE                 *A03
     5552   01 02071    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5553   01 02072    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5554   01 02073    ED80129E              WD,R8    *GP14              22 (DEC)                       *A03
     5555   01 02074    2280460E A            LI,R8    X'460E'                                           *A03
     5556   01 02075    308012C8              AW,R8    CHBCTRL           CHANNEL B BIAS                  *A03
     5557   01 02076    ED80129C              WD,R8    *GP12             SET SNAP SHOT MODE; OPEN WINDOW *A03
     5558   01 02077    3280360D              LW,R8    =X'28000000'                                      *A03
     5559   01 02078    ED80129E              WD,R8    *GP14             SET TASC & TFS                  *A03
     5560   01 02079    ED00129E              WD,R0    *GP14             SIMULATE RSA                    *A03
     5561   01 0207A    ED00129E              WD,R0    *GP14                " AGAIN                      *A03
     5562   01 0207B    2280D900 A            LI,R8    X'D900'           EXPECTED DISPLAY                *A03
     5563   01 0207C    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA               *A03
     5564   01 0207D    4B90360E              AND,R9   =X'F900'          MASK                            *A03
     5565   01 0207E    68001A60              B        CREQUAL           COMPARE R8 AND R9               *A03
     5566                            *                                                                   *A03
     5567                            *                                  TEST ORDER OUT PHASES            *A03
     5568   01 0207F    097041CE A   T0970    GEN,16,10,6    X'970',X'107',T0990-%  A/B DIO PRETST; DATA PRNT
     5569   01 02080    328035E1              LW,R8    =X'40000000'                                      *A03
     5570   01 02081    ED80129F              WD,R8    *GP15             SET MS OFF LINE                 *A03
     5571   01 02082    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5572   01 02083    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5573   01 02084    ED80129E              WD,R8    *GP14              22 (DEC)                       *A03
     5574   01 02085    3280360D              LW,R8    =X'28000000'                                      *A03
     5575   01 02086    ED80129E              WD,R8    *GP14             SET TASC & TFS                  *A03
     5576   01 02087    ED00129E              WD,R0    *GP14             SIMULATE RSA                    *A03
     5577   01 02088    ED00129E              WD,R0    *GP14                " AGAIN                      *A03
     5578   01 02089    22808000 A            LI,R8    X'8000'           EXPECTED DISPLAY                *A03
     5579   01 0208A    EC90129E              RD,R9    *GP14             READ SNAPPED DATA               *A03
     5580   01 0208B    4B903603              AND,R9   =X'F800'          MASK                            *A03
     5581   01 0208C    68001A60              B        CREQUAL           COMPARE R8 AND R9               *A03
     5582                            *                                                                   *A03
     5583                            *                                  TEST ORDER IN PHASES             *A03
     5584   01 0208D    099041D8 A   T0990    GEN,16,10,6    X'990',X'107',T1000-%  A/B DIO PRETST; DATA PRNT
     5585   01 0208E    328035E1              LW,R8    =X'40000000'                                      *A03
     5586   01 0208F    ED80129F              WD,R8    *GP15             SET MS OFF-LINE, DC'S OFF-LINE  *A03
     5587   01 02090    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5588   01 02091    32803608              LW,R8    =X'A0000000'      MS SELF TEST CONTROL, GROUP 14 OR
     5589   01 02092    ED80129E              WD,R8    *GP14              22 (DEC)                       *A03
     5590   01 02093    3280360D              LW,R8    =X'28000000'                                      *A03
     5591   01 02094    ED80129E              WD,R8    *GP14             SET TASC & TFS                  *A03
     5592   01 02095    25800020 A            SLS,R8   32                                                *A03
     5593   01 02096    ED00129E              WD,R0    *GP14             SIMULATE RSA                    *A03
     5594   01 02097    328035BE              LW,R8    =X'4000000'                                       *A03
     5595   01 02098    ED80129E              WD,R8    *GP14             SET TORD WITH MS/UNE            *A03
     5596   01 02099    2280460E A            LI,R8    X'460E'                                           *A03
     5597   01 0209A    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION                *A03
     5598   01 0209B    ED80129C              WD,R8    *GP12             SET SNAP MODE & SIMULATE RSA    *A03
     5599   01 0209C    3280360D              LW,R8    =X'28000000'                                      *A03
     5600   01 0209D    ED80129E              WD,R8    *GP14             ORDER IN TASC & TFS             *A03
     5601   01 0209E    25800220 A            SCS,R8   32                DELAY                           *A03
     5602   01 0209F    ED00129E              WD,R0    *GP14             RSA FOR ORDER IN                *A03
     5603   01 020A0    25800220 A            SCS,R8   32                DELAY                           *A03
     5604   01 020A1    EC901294              RD,R9    *DISPLAY          READ SNAP GROUP                 *A03
     5605   01 020A2    4B90360F              AND,R9   =X'F9FF'          MASK                            *A03
     5606   01 020A3    2280D958 A            LI,R8    X'D958'           EXPECTED DISPLAY                *A03
     5607   01 020A4    68001A60              B        CREQUAL           COMPARE R8 AND R9               *A03
     5608                            *                                                                   *A03
     5609                            *                                  RETURN TO INITIAL PHASE FOLLOWING*A03
     5610                            *                                   ORDER IN SERVICE VIA MS SELF TEST
     5611   01 020A5    100041D6 A   T1000    GEN,16,10,6    X'1000',X'107',T1020-%                      *A03
     5612   01 020A6    328035E1              LW,R8    =X'40000000'      MS CONTROL                      *A03
     5613   01 020A7    ED80129F              WD,R8    *GP15             SET MS OFF-LINE, DC'S OFF-LINE  *A03
     5614   01 020A8    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5615   01 020A9    32803608              LW,R8    =X'A0000000'      MS SELF-TEST-CONTROL            *A03
     5616   01 020AA    ED80129E              WD,R8    *GP14              MS SIO & MS FS                 *A03
     5617   01 020AB    3280360D              LW,R8    =X'28000000'      MS SELF-TEST CONTROL            *A03
     5618   01 020AC    ED80129E              WD,R8    *GP14              MS FS & MS ASC                 *A03
     5619   01 020AD    25800020 A            SLS,R8   32                DELAY                           *A03
     5620   01 020AE    ED00129E              WD,R0    *GP14             MS SELF TEST-- RSA              *A03
     5621   01 020AF    328035BE              LW,R8    =X'4000000'       MS SELF TEST CONTROL            *A03
     5622   01 020B0    ED80129E              WD,R8    *GP14              TORD WITH MS/UNE               *A03
     5623   01 020B1    3280360D              LW,R8    =X'28000000'      MS SELF TEST--                  *A03
     5624   01 020B2    ED80129E              WD,R8    *GP14              ORDER IN TASC & TFS FOR ORDER IN
     5625   01 020B3    25800220 A            SCS,R8   32                DELAY                           *A03
     5626   01 020B4    ED00129E              WD,R0    *GP14             MS SELF TEST-- RSA ORDER IN     *A03
     5627   01 020B5    25800220 A            SCS,R8   32                DELAY                           *A03
     5628   01 020B6    ED00129E              WD,R0    *GP14             MS SELF TEST-- ORDER IN TERM. ORD
     5629   01 020B7    22808040 A            LI,R8    X'8040'           COMPARE IMAGE                   *A03
     5630   01 020B8    EC90129E              RD,R9    *GP14             READ MS DISPLAY                 *A03
     5631   01 020B9    4B903610              AND,R9   =X'F958'          MASK                            *A03
     5632   01 020BA    68001A60              B        CREQUAL           C(R8)= C(R9)                    *A03
     5633                            *                                                                   *A03
     5634                            *                                  MS SELF TEST-- ORDER OUT CONTROL *A03
     5635                            *                                   SIGNALS                         *A03
     5636   01 020BB    102041CF A   T1020    GEN,16,10,6    X'1020',X'107',T1030-%  PRE-TEST,DATA,CH A/B*A03
     5637   01 020BC    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5638   01 020BD    32803608              LW,R8    =X'A0000000'      MS SIO & FS CONTROL BITS        *A03
     5639   01 020BE    ED80129E              WD,R8    *GP14             BASIC MS SIO                    *A03
     5640   01 020BF    3290360D              LW,R9    =X'28000000'      MS FS & ASC CONTROL BITS        *A03
     5641   01 020C0    ED90129E              WD,R9    *GP14             ADVANCE TO ORDER OUT SERVICE    *A03
     5642   01 020C1    22804609 A            LI,R8    X'4609'           SNAP MODE FOR GROUP 9, OPEN WINDOW
     5643   01 020C2    308012C8              AW,R8    CHBCTRL           GROUP BIAS FOR CHANNEL B OPTION *A03
     5644   01 020C3    ED80129C              WD,R8    *GP12             CCU SNAP MODE                   *A03
     5645   01 020C4    329035C2              LW,R9    =X'2000000'       RSA & ORDER OUT CONTROL         *A03
     5646   01 020C5    ED90129E              WD,R9    *GP14             ADVANCE THRU ORDER OUT          *A03
     5647   01 020C6    32803611              LW,R8    =X'88800000'      COMPARE MAGE-- ED, RS, & ED     *A03
     5648   01 020C7    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA               *A03
     5649   01 020C8    4B903612              AND,R9   =X'D8C00000'      MASK                            *A03
     5650   01 020C9    68001A60              B        CREQUAL           C(R8)=C(R9). ED, RS, & ED       *A03
     5651                            *
     5652                            *                                  MS SELF TEST-- ORDER IN CONTROL  *A03
     5653                            *                                   SIGNALS-- MS/DAP:D, MS/PC:R, &  *A03
     5654                            *                                   MS/ONLINE                       *A03
     5655   01 020CA    103041D8 A   T1030    GEN,16,10,6    X'1030',X'107',T1040-%  PRE-TEST,DATA,CH A/B*A03
     5656   01 020CB    22B01300 A            LI,R11   X'1300'           NMS/SC/EN, DAP, & PC            *A03
     5657   01 020CC    22A0460F A            LI,R10   X'460F'           SNAP CONTROL                    *A03
     5658   01 020CD    2290DC00 A            LI,R9    X'DC00'           MASK                            *A03
     5659   01 020CE    22809C00 A            LI,R8    X'9C00'           RESULTANT SNAP DATA             *A03
     5660   01 020CF    6AF01BDE     T1030C   BAL,R15  SIMA              MS ON-LINE & MS CONTROLS        *A03
     5661   01 020D0    EDB0129D              WD,R11   *GP13             SET MS CONTROL-- MS/DAP:D &     *A03
     5662   01 020D1    32B03608              LW,R11   =X'A0000000'       MS/PC:D.                       *A03
     5663   01 020D2    EDB0129E              WD,R11   *GP14             ISSUE MS TSIO & TFS FOR INITIAL *A03
     5664   01 020D3    32B0360D              LW,R11   =X'28000000'       SIO.  TASC & TFS CONTROL       *A03
     5665   01 020D4    EDB0129E              WD,R11   *GP14             ADVANCE TO ORDER OUT STATE      *A03
     5666   01 020D5    ED00129E              WD,R0    *GP14             ADVANCE ORDER OUT               *A03
     5667   01 020D6    32B035BE              LW,R11   =X'4000000'       MS/UNE CONTROL                  *A03
     5668   01 020D7    EDB0129E              WD,R11   *GP14             ISSUE RSA & TORD WITH UNE OF ORDER
     5669   01 020D8    32B0360D              LW,R11   =X'28000000'       OUT.  ORDER IN CONTROL-- TASC &*A03
     5670   01 020D9    EDB0129E              WD,R11   *GP14              TFS                            *A03
     5671   01 020DA    30A012C8              AW,R10   CHBCTRL           CHANNEL B OPTION                *A03
     5672   01 020DB    EDA0129C              WD,R10   *GP12             SET SNAP MODE, OPEN WINDOW      *A03
     5673   01 020DC    25A00220 A            SCS,R10  32                DELAY                           *A03
     5674   01 020DD    ED00129E              WD,R0    *GP14             RSA-- ORDER IN                  *A03
     5675   01 020DE    25B00220 A            SCS,R11  32                DELAY                           *A03
     5676   01 020DF    ECB01294              RD,R11   *DISPLAY          READ SNAPPED DATA               *A03
     5677   01 020E0    4B90000B A            AND,R9   R11               MASK IN R10                     *A03
     5678   01 020E1    68001A60              B        CREQUAL           COMPARE R8 & R9                 *A03
     5679                            *                                                                   *A03
     5680                            *                                  MS SELF TEST-- ORDER IN CONTROL  *A03
     5681                            *                                   SIGNALS-- MS/ONLINE             *A03
     5682   01 020E2    104041C6 A   T1040    GEN,16,10,6    X'1040',X'107',T1050-%                      *A03
     5683   01 020E3    22B01000 A            LI,R11   X'1000'           GROUP 13 CONTROL                *A03
     5684   01 020E4    22A0460F A            LI,R10   X'460F'           SNAP CONTROL, GROUP 15 (DEC     *A03
     5685   01 020E5    2290DC00 A            LI,R9    X'DC00'           MASK                            *A03
     5686   01 020E6    22808400 A            LI,R8    X'8400'           EXPECTED DATA                   *A03
     5687   01 020E7    680020CF              B        T1030C            TO SUBROUTINE                   *A03
     5688                            *                                                                   *A03
     5689                            *                                  MS SELF TEST-- ORDER IN CONTROL  *A03
     5690                            *                                   SIGNALS-- MS/DA0:R-MS/DA7:R     *A03
     5691   01 020E8    105041C6 A   T1050    GEN,16,10,6    X'1050',X'107',T1060-%                      *A03
     5692   01 020E9    22B013FF A            LI,R11   X'13FF'           GROUP 13/21 CONTROL             *A03
     5693   01 020EA    22A0460C A            LI,R10   X'460C'           SNAP CONTROL, GROUP 12 (DEC)    *A03
     5694   01 020EB    229000FF A            LI,R9    X'FF'             MASK                            *A03
     5695   01 020EC    228000FF A            LI,R8    X'FF'             EXPECTED                        *A03
     5696   01 020ED    680020CF              B        T1030C            TO SUBROUTINE                   *A03
     5697                            *                                                                   *A03
     5698                            *                                  MS SELF TEST-- ORDER IN CONTROL  *A03
     5699                            *                                   SIGNALS-- MS/DA0:R-MS/DA7:R     *A03
     5700   01 020EE    106041C6 A   T1060    GEN,16,10,6    X'1060',X'107',T1070-%                      *A03
     5701   01 020EF    22B01300 A            LI,R11   X'1300'           GROUP 13/21 CONTROL             *A03
     5702   01 020F0    22A0460C A            LI,R10   X'460C'           SNAP CONTROL, GROUP 12  (DEC)   *A03
     5703   01 020F1    229000FF A            LI,R9    X'FF'             MASK                            *A03
     5704   01 020F2    22800000 A            LI,R8    0                 EXPECTED                        *A03
     5705   01 020F3    680020CF              B        T1030C            TO SUBROUTINE                   *A03
     5706                            *                                                                   *A03
     5707                            *                                  MS SELF TEST-- ORDER IN CONTROL  *A03
     5708                            *                                   SIGNALS-- MS/DA0:R-MS/DA7:R     *A03
     5709   01 020F4    107041C6 A   T1070    GEN,16,10,6    X'1070',X'107',T1080-%                      *A03
     5710   01 020F5    22B013AA A            LI,R11   X'13AA'           GROUP 13/21 CONTROL             *A03
     5711   01 020F6    22A0460C A            LI,R10   X'460C'           SNAP CONTROL, GROUP 12 (DEC)    *A03
     5712   01 020F7    229000FF A            LI,R9    X'FF'             MASK                            *A03
     5713   01 020F8    228000AA A            LI,R8    X'AA'             EXPECTED                        *A03
     5714   01 020F9    680020CF              B        T1030C            TO SUBROUTINE                   *A03
     5715                            *                                                                   *A03
     5716                            *                                  MS SELF TEST-- ORDER IN CONTROL  *A03
     5717                            *                                   SIGNALS-- MS/DA0:R-MS/DA7:R     *A03
     5718   01 020FA    108041C6 A   T1080    GEN,16,10,6    X'1080',X'107',T1090-%                      *A03
     5719   01 020FB    22B01355 A            LI,R11   X'1355'           GROUP 13/21 CONTROL             *A03
     5720   01 020FC    22A0460C A            LI,R10   X'460C'           SNAP                            *A03
     5721   01 020FD    229000FF A            LI,R9    X'FF'             MASK                            *A03
     5722   01 020FE    22800055 A            LI,R8    X'55'             EXPECTED                        *A03
     5723   01 020FF    680020CF              B        T1030C            TO SUBROUTINE                   *A03
     5724                            *                                                                   *A03
     5725                            *                                  MS SELF TEST--VERIFY DATA IN STATE
     5726   01 02100    109041D4 A   T1090    GEN,16,10,6    X'1090',X'107',T1100-%                      *A03
     5727   01 02101    6AF01BDE              BAL,R15  SIMA              MS O-LINE & MS CONTROLS         *A03
     5728   01 02102    32803608              LW,R8    =X'A0000000'      MS TSIO & TFS CONTROL           *A03
     5729   01 02103    ED80129E              WD,R8    *GP14             ISSUE INITIAL MS SIO            *A03
     5730   01 02104    3280360D              LW,R8    =X'28000000'      MS TASC & TFS CONTROL           *A03
     5731   01 02105    ED80129E              WD,R8    *GP14             MS ADVANCE TO ORDER OUT STATE   *A03
     5732   01 02106    32800000 A            LW,R8    0                 MS RSA & ORD/7                  *A03
     5733   01 02107    ED80129E              WD,R8    *GP14             MS ORDER OUT                    *A03
     5734   01 02108    32800000 A            LW,R8    0                                                 *A03
     5735   01 02109    ED80129E              WD,R8    *GP14             MS ORDER OUT TORD               *A03
     5736   01 0210A    2280460E A            LI,R8    X'460E'           OPEN WINDOW SNAP GROUP          *A03
     5737   01 0210B    308012C8              AW,R8    CHBCTRL           GROUP BIAS FOR CHANNEL B        *A03
     5738   01 0210C    ED80129C              WD,R8    *GP12             SET SNAP MODE                   *A03
     5739   01 0210D    3280360D              LW,R8    =X'28000000'      MS TASC & TFS                   *A03
     5740   01 0210E    ED80129E              WD,R8    *GP14             MS DATA IN                      *A03
     5741   01 0210F    25800220 A            SCS,R8   32                DELAY                           *A03
     5742   01 02110    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA FROM GROUP 14 *A03
     5743   01 02111    4B90360F              AND,R9   =X'F9FF'          MASK                            *A03
     5744   01 02112    2280D138 A            LI,R8    X'D138'           COMPARE IMAGE-- PHSRV, PHRS,    *A03
     5745   01 02113    68001A60              B        CREQUAL            SERVICON, DATA IN, & DC BUSY   *A03
     5746                            *                                                                   *A03
     5747                            *                                  MS SELF TEST-- DATA OUT STATE    *A03
     5748   01 02114    110041D2 A   T1100    GEN,16,10,6    X'1100',X'107',T1110-%                      *A03
     5749   01 02115    6AF01BDE              BAL,R15  SIMA              SET MS ON-LINE & SET MS CONTROLS*A03
     5750   01 02116    22F02123              LI,R15   T1100E                                            *A03
     5751   01 02117    32803608     T1100C   LW,R8    =X'A0000000'      MS TSIO & TFS CONTROL           *A03
     5752   01 02118    ED80129E              WD,R8    *GP14             ISSUE INITIAL MS SIO            *A03
     5753   01 02119    3280360D              LW,R8    =X'28000000'                                      *A03
     5754   01 0211A    ED80129E              WD,R8    *GP14             ADVANCE TO ORDER OUT SERVICE    *A03
     5755   01 0211B    328035C2              LW,R8    =X'2000000'                                       *A03
     5756   01 0211C    ED80129E              WD,R8    *GP14             ADVANCE ORDER OUT SERVICE, WR   *A03
     5757   01 0211D    25800220 A            SCS,R8   32                DELAY                           *A03
     5758   01 0211E    ED00129E              WD,R0    *GP14             TERMINAL ORDER                  *A03
     5759   01 0211F    3280360D              LW,R8    =X'28000000'      MS TASC & TFS                   *A03
     5760   01 02120    ED80129E              WD,R8    *GP14             DATA OUT STATE                  *A03
     5761   01 02121    22801129 A            LI,R8    X'1129'           COMPARE IMAGE                   *A03
     5762   01 02122    E800000F A            B        *R15                                              *A03
     5763   01 02123    EC90129E     T1100E   RD,R9    *GP14             READ MS GROUP FOR DATA IN       *A03
     5764   01 02124    4B90360F              AND,R9   =X'F9FF'          MASK.  IMAGE: MS/PHSRV, MS/SERV-*A03
     5765   01 02125    68001A60              B        CREQUAL            ICON, MS/DATA, MS/DCBUSY, &    *A03
     5766                            *                                    MS/ORD7                        *A03
     5767                            *                                                                   *A03
     5768                            *                                  MS SELF TEST-- DATA OUT STATE SUB-
     5769                            *                                   STAINED                         *A03
     5770   01 02126    111041C8 A   T1110    GEN,16,10,6    X'1110',X'107',T1120-%                      *A03
     5771   01 02127    6AF01BDE              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS        *A03
     5772   01 02128    6AF02117              BAL,R15  T1100C            TO SUBROUTINE                   *A03
     5773   01 02129    ED00129E              WD,R0    *GP14             ONE MORE RSA                    *A03
     5774   01 0212A    22801129 A            LI,R8    X'1129'           COMPARE IMAGE                   *A03
     5775   01 0212B    EC90129E              RD,R9    *GP14             READ MS GROUP 14 OR 22          *A03
     5776   01 0212C    4B90360F              AND,R9   =X'F9FF'          MASK. IMAGE: MS/PHSRV, MS/SERV- *A03
     5777   01 0212D    68001A60              B        CREQUAL            ICON, MS/DATA, MS/DCBUSY &     *A03
     5778                            *                                    MS/ORD7                        *A03
     5779                            *                                                                   *A03
     5780                            *                                  MS DATA IN (DA0-7)-- CHECKS DATA *A03
     5781                            *                                  STROBE ENABLE                    *A03
     5782   01 0212E    112041D2 A   T1120    GEN,16,10,6    X'1120',X'107',T1130-%                      *A03
     5783   01 0212F    328035E1              LW,R8    =X'40000000'                                      *A03
     5784   01 02130    ED80129F              WD,R8    *GP15             SET MS OFF LINE                 *A03
     5785   01 02131    6AF01BDE              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS        *A03
     5786   01 02132    32803608              LW,R8    =X'A0000000'                                      *A03
     5787   01 02133    ED80129E              WD,R8    *GP14             ISSUE TSIO & TFS                *A03
     5788   01 02134    22801300 A            LI,R8    X'1300'                                           *A03
     5789   01 02135    ED80129D              WD,R8    *GP13             SET DATA PATTERN DA0-7          *A03
     5790   01 02136    3280360D              LW,R8    =X'28000000'                                      *A03
     5791   01 02137    ED80129E              WD,R8    *GP14             ISSUE TASC & TFS                *A03
     5792   01 02138    ED00129E              WD,R0    *GP14             ISSUE RSA FOR ORDER OUT         *A03
     5793   01 02139    ED00129E              WD,R0    *GP14             ISSUE RSA FOR TORD              *A03
     5794   01 0213A    3280360D              LW,R8    =X'28000000'      ISSUE TASC & TFS FOR DATA IN    *A03
     5795   01 0213B    ED80129E              WD,R8    *GP14                                             *A03
     5796   01 0213C    EC90129C              RD,R9    *GP12             READ DA0-7                      *A03
     5797   01 0213D    4B9035B9              AND,R9   =X'000000FF'      MASK                            *A03
     5798   01 0213E    22800000 A            LI,R8    0                 EXPECTED DISPLAY                *A03
     5799   01 0213F    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5800                            *                                                                   *A03
     5801                            *                                  MS DATA IN (DA0-7)-- CHECKS DATA *A03
     5802                            *                                  STROBE ENABLE                    *A03
     5803   01 02140    113041D2 A   T1130    GEN,16,10,6    X'1130',X'107',T1140-%                      *A03
     5804   01 02141    328035E1              LW,R8    =X'40000000'                                      *A03
     5805   01 02142    ED80129F              WD,R8    *GP15             SET MS OFF LINE                 *A03
     5806   01 02143    6AF01BDE              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS        *A03
     5807   01 02144    32803608              LW,R8    =X'A0000000'                                      *A03
     5808   01 02145    ED80129E              WD,R8    *GP14             ISSUE TSIO & TFS                *A03
     5809   01 02146    228013FF A            LI,R8    X'13FF'                                           *A03
     5810   01 02147    ED80129D              WD,R8    *GP13             SET DATA PATTERN DA0-7          *A03
     5811   01 02148    3280360D              LW,R8    =X'28000000'                                      *A03
     5812   01 02149    ED80129E              WD,R8    *GP14             ISSUE TASC & TFS                *A03
     5813   01 0214A    ED00129E              WD,R0    *GP14             ISSUE RSA FOR ORDER OUT         *A03
     5814   01 0214B    ED00129E              WD,R0    *GP14             ISSUE RSA FOR TORD              *A03
     5815   01 0214C    3280360D              LW,R8    =X'28000000'      ISSUE TASC & TFS FOR DATA IN    *A03
     5816   01 0214D    ED80129E              WD,R8    *GP14                                             *A03
     5817   01 0214E    EC90129C              RD,R9    *GP12             READ DA0-7                      *A03
     5818   01 0214F    4B9035B9              AND,R9   =X'000000FF'      MASK                            *A03
     5819   01 02150    228000FF A            LI,R8    X'FF'             EXPECTED DISPLAY                *A03
     5820   01 02151    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5821                            *                                                                   *A03
     5822                            *                                  MS DX4 & MIOP DX4:R              *A03
     5823   01 02152    114042D0 A   T1140    GEN,16,10,6    X'1140',X'10B',T1150-%                      *A03
     5824   01 02153    328035E1              LW,R8    =X'40000000'                                      *A03
     5825   01 02154    ED80129F              WD,R8    *GP15             SET MS OFF LINE                 *A03
     5826   01 02155    6AF01BDE              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS        *A03
     5827   01 02156    32803608              LW,R8    =X'A0000000'                                      *A03
     5828   01 02157    ED80129E              WD,R8    *GP14             ISSUE TSIO & TFS                *A03
     5829   01 02158    22801400 A            LI,R8    X'1400'                                           *A03
     5830   01 02159    ED80129D              WD,R8    *GP13             DX4 & INHIBIT SC                *A03
     5831   01 0215A    32803608              LW,R8    =X'A0000000'                                      *A03
     5832   01 0215B    ED80129E              WD,R8    *GP14             TSIO & TFS                      *A03
     5833   01 0215C    3280360D              LW,R8    =X'28000000'                                      *A03
     5834   01 0215D    ED80129E              WD,R8    *GP14             TASC & TFS                      *A03
     5835   01 0215E    EC901299              RD,R9    *GP09             READ FOR DX4                    *A03
     5836   01 0215F    4B9035C0              AND,R9   =X'10000000'      WAS DX4:R SET IN THE MIOP       *A03
     5837   01 02160    6920148F              BCS,2    GOOD              - YES                           *A03
     5838   01 02161    680013D0              B        BAD               - NO                            *A03
     5839                            *                                                                   *A03
     5840                            *                                  DATA IN - 4 BYTE DATA PATH       *A03
     5841                            *                                  DA0-7 AND DB0-7, PAT: X'00'      *A03
     5842   01 02162    115043D3 A   T1150    GEN,16,10,6    X'1150',X'10F',T1160-%                      *A03
     5843   01 02163    22901700 A            LI,R9    X'1700'                                           *A03
     5844   01 02164    22C02172              LI,R12   T1150D                                            *A03
     5845   01 02165    328035E1     T1150B   LW,R8    =X'40000000'                                      *A03
     5846   01 02166    ED80129F              WD,R8    *GP15             SET MS OFF LINE                 *A03
     5847   01 02167    6AF01BDE              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS        *A03
     5848   01 02168    ED90129D              WD,R9    *GP13                                             *A03
     5849   01 02169    32803608              LW,R8    =X'A0000000'                                      *A03
     5850   01 0216A    ED80129E              WD,R8    *GP14             ISSUE TSIO & TFS                *A03
     5851   01 0216B    3280360D              LW,R8    =X'28000000'                                      *A03
     5852   01 0216C    ED80129E              WD,R8    *GP14             ISSUE TASC & TFS                *A03
     5853   01 0216D    ED00129E              WD,R0    *GP14             ISSUE RSA FOR ORDER OUT         *A03
     5854   01 0216E    ED00129E              WD,R0    *GP14             ISSUE RSA FOR TORD              *A03
     5855   01 0216F    3280360D              LW,R8    =X'28000000'      ISSUE TASC & TFS FOR DATA IN    *A03
     5856   01 02170    ED80129E              WD,R8    *GP14                                             *A03
     5857   01 02171    E800000C A            B        *R12              RETURN TO CALLER                *A03
     5858   01 02172    EC90129C     T1150D   RD,R9    *GP12             READ DA0-7                      *A03
     5859   01 02173    22800000 A            LI,R8    0                 EXPECTED DISPLAY                *A03
     5860   01 02174    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5861                            *                                                                   *A03
     5862                            *                                  DATA IN - 4 BYTE DATA PATH       *A03
     5863                            *                                  DA0-7 AND DB0-7, PAT: X'FF'      *A03
     5864   01 02175    116043C6 A   T1160    GEN,16,10,6    X'1160',X'10F',T1170-%                      *A03
     5865   01 02176    229017FF A            LI,R9    X'17FF'                                           *A03
     5866   01 02177    6AC02165              BAL,R12  T1150B                                            *A03
     5867   01 02178    EC90129C              RD,R9    *GP12             READ DA0-7 & DB0-7              *A03
     5868   01 02179    2280FFFF A            LI,R8    X'FFFF'           EXPECTED DISPLAY                *A03
     5869   01 0217A    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5870                            *                                                                   *A03
     5871                            *                                  DATA IN - 4 BYTE DATA PATH       *A03
     5872                            *                                  DA0-7 AND DB0-7, PAT: X'AA'      *A03
     5873   01 0217B    117043C6 A   T1170    GEN,16,10,6    X'1170',X'10F',T1180-%                      *A03
     5874   01 0217C    229017AA A            LI,R9    X'17AA'                                           *A03
     5875   01 0217D    6AC02165              BAL,R12  T1150B                                            *A03
     5876   01 0217E    EC90129C              RD,R9    *GP12             READ DA0-7                      *A03
     5877   01 0217F    2280AAAA A            LI,R8    X'AAAA'           EXPECTED DISPLAY                *A03
     5878   01 02180    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5879                            *                                                                   *A03
     5880                            *                                  DATA IN - 4 BYTE DATA PATH       *A03
     5881                            *                                  DA0-7 AND DB0-7, PAT: X'55'      *A03
     5882   01 02181    118043C6 A   T1180    GEN,16,10,6    X'1180',X'10F',T1190-%                      *A03
     5883   01 02182    22901755 A            LI,R9    X'1755'                                           *A03
     5884   01 02183    6AC02165              BAL,R12  T1150B                                            *A03
     5885   01 02184    EC90129C              RD,R9    *GP12                                             *A03
     5886   01 02185    22805555 A            LI,R8    X'5555'           EXPECTED DISPLAY                *A03
     5887   01 02186    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5888                            *                                                                   *A03
     5889                            *                                  DATA IN - 4 BYTE DATA PATH       *A03
     5890                            *                                  DC0-7 AND DD0-7, PAT: X'00'      *A03
     5891   01 02187    119043C6 A   T1190    GEN,16,10,6    X'1190',X'10F',T1200-%                      *A03
     5892   01 02188    22901700 A            LI,R9    X'1700'                                           *A03
     5893   01 02189    6AC02165              BAL,R12  T1150B                                            *A03
     5894   01 0218A    EC90129D              RD,R9    *GP13             READ DC0-7 & DD0-7              *A03
     5895   01 0218B    22800000 A            LI,R8    0                 EXPECTED DISPLAY                *A03
     5896   01 0218C    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5897                            *                                                                   *A03
     5898                            *                                  DATA IN - 4 BYTE DATA PATH       *A03
     5899                            *                                  DC0-7 AND DD0-7, PAT: X'FF'      *A03
     5900   01 0218D    120043C6 A   T1200    GEN,16,10,6    X'1200',X'10F',T1210-%                      *A03
     5901   01 0218E    229017FF A            LI,R9    X'17FF'                                           *A03
     5902   01 0218F    6AC02165              BAL,R12  T1150B                                            *A03
     5903   01 02190    EC90129D              RD,R9    *GP13             READ DC0-7 & DD0-7              *A03
     5904   01 02191    2280FFFF A            LI,R8    X'FFFF'           EXPECTED DISPLAY                *A03
     5905   01 02192    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5906                            *                                                                   *A03
     5907                            *                                  DATA IN - 4 BYTE DATA PATH       *A03
     5908                            *                                  DC0-7 AND DD0-7, PAT: X'AA'      *A03
     5909   01 02193    121043C6 A   T1210    GEN,16,10,6    X'1210',X'10F',T1220-%                      *A03
     5910   01 02194    229017AA A            LI,R9    X'17AA'                                           *A03
     5911   01 02195    6AC02165              BAL,R12  T1150B                                            *A03
     5912   01 02196    EC90129D              RD,R9    *GP13             READ DC0-7 & DD0-7              *A03
     5913   01 02197    2280AAAA A            LI,R8    X'AAAA'           EXPECTED DISPLAY                *A03
     5914   01 02198    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5915                            *                                                                   *A03
     5916                            *                                  DATA IN - 4 BYTE DATA PATH       *A03
     5917                            *                                  DC0-7 AND DD0-7, PAT: X'55'      *A03
     5918   01 02199    122043C6 A   T1220    GEN,16,10,6    X'1220',X'10F',T1230-%                      *A03
     5919   01 0219A    22901755 A            LI,R9    X'1755'                                           *A03
     5920   01 0219B    6AC02165              BAL,R12  T1150B                                            *A03
     5921   01 0219C    EC90129D              RD,R9    *GP13             READ DC0-7 & DD0-7              *A03
     5922   01 0219D    22805555 A            LI,R8    X'5555'           EXPECTED DISPLAY                *A03
     5923   01 0219E    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5924                            *                                                                   *A03
     5925                            *                                  MS BURST MODE INDICATOR          *A03
     5926   01 0219F    123047C7 A   T1230    GEN,16,10,6    X'1230',X'11F',T1240-%                      *A03
     5927   01 021A0    22901C00 A            LI,R9    X'1C00'                                           *A03
     5928   01 021A1    6AC02165              BAL,R12  T1150B            TO SUBROUTINE                   *A03
     5929   01 021A2    328035E1              LW,R8    =X'40000000'      EXPECTED DISPLAY BM SET         *A03
     5930   01 021A3    EC901299              RD,R9    *GP09             READ GROUP FOR BM IND           *A03
     5931   01 021A4    4B9035E1              AND,R9   =X'40000000'      MASK                            *A03
     5932   01 021A5    68001A60              B        CREQUAL                                           *A03
     5933                            *                                                                   *A03
     5934                            *                                  MS PHASE TEST- PHFS              *A03
     5935   01 021A6    124041CC A   T1240    GEN,16,10,6    X'1240',X'107',T1250-%                      *A03
     5936   01 021A7    328035E1              LW,R8    =X'40000000'                                      *A03
     5937   01 021A8    ED80129F              WD,R8    *GP15             SET MS OFF-LINE                 *A03
     5938   01 021A9    6AF01BDE              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS        *A03
     5939   01 021AA    22801000 A            LI,R8    X'1000'                                           *A03
     5940   01 021AB    ED80129C              WD,R8    *GP12             SET SINGLE STEP MODE            *A03
     5941   01 021AC    32803601              LW,R8    =X'60000000'                                      *A03
     5942   01 021AD    ED80129E              WD,R8    *GP14             ISSUE THIO & TFS                *A03
     5943   01 021AE    22800000 A            LI,R8    0                 DISPLAY EXPECTED; PHFS          *A03
     5944   01 021AF    EC90129E              RD,R9    *GP14             READ MS CONTROL PHASES          *A03
     5945   01 021B0    4B903603              AND,R9   =X'F800'          MASK                            *A03
     5946   01 021B1    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     5947                            *                                                                   *A03
     5948                            *                                  MS PHASE TEST- PHFSZ & PHFSL     *A03
     5949   01 021B2    125041CE A   T1250    GEN,16,10,6    X'1250',X'107',T1260-%                      *A03
     5950   01 021B3    328035E1              LW,R8    =X'40000000'                                      *A03
     5951   01 021B4    ED80129F              WD,R8    *GP15             MS OFF LINE                     *A03
     5952   01 021B5    6AF01BDE              BAL,R15  SIMA              MS ON-LINE & MS CONTROLS        *A03
     5953   01 021B6    22801000 A            LI,R8    X'1000'                                           *A03
     5954   01 021B7    ED80129C              WD,R8    *GP12             SET SINGLE STEP MODE            *A03
     5955   01 021B8    32803601              LW,R8    =X'60000000'                                      *A03
     5956   01 021B9    ED80129E              WD,R8    *GP14             ISSUE THIO & TFS                *A03
     5957   01 021BA    22801800 A            LI,R8    X'1800'                                           *A03
     5958   01 021BB    ED80129C              WD,R8    *GP12             ISSUE PHASE CLOCK               *A03
     5959   01 021BC    22802000 A            LI,R8    X'2000'           COMPARE IMAGE PHFSL             *A03
     5960   01 021BD    EC90129E              RD,R9    *GP14             READ MS CONTROL PHASES          *A03
     5961   01 021BE    4B903603              AND,R9   =X'F800'          MASK                            *A03
     5962   01 021BF    68001A60              B        CREQUAL           COMPARE C(R8) TO C(R9) (PHFSL)  *A03
     5963                            *                                                                   *A03
     5964                            *                                  RIO-- CONDITION CODES            *A03
     5965   01 021C0    126001CB A   T1260    GEN,16,10,6    X'1260',7,T1270-%                           *A03
     5966   01 021C1    6AC01BEC              BAL,R12  STOPIODV          PREVENT TST & COM CHAN CONFLICT *A03
     5967   01 021C2    32601310              LW,R6    IOPNO             CURRENT IOP NUMBER              *A03
     5968   01 021C3    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON-LINE IN-  *A03
     5969   01 021C4    358012E4              STW,R8   DCOFFA             DICATOR                        *A03
     5970   01 021C5    35801330              STW,R8   NDCDLY             ALSO DELAY INDICATOR           *A04
     5971   01 021C6    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     5972   01 021C7    4F0C4000 A            RIO,R0   0,X6              RESET I/O                       *A03
     5973   01 021C8    74000009 A            STCF     R9                SAVE CONDITION CODES IN R9      *A03
     5974   01 021C9    4B9035D2              AND,R9   =X'F0000000'      MASK                            *A03
     5975   01 021CA    68001A60              B        CREQUAL           C(R8) = C(R9) = CC1-4 = 0       *A03
     5976                            *                                                                   *A03
     5977                            *                                  RIO-- CLEAR GENERAL REGISTER     *A03
     5978   01 021CB    127001C9 A   T1270    GEN,16,10,6    X'1270',7,T1280-%                           *A03
     5979   01 021CC    6AC01BEC              BAL,R12  STOPIODV          PREVENT TST & COM CHAN CONFLICT *A03
     5980   01 021CD    32301310              LW,R3    IOPNO             CURRENT IOP NUMBER              *A03
     5981   01 021CE    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON-LINE IN-  *A03
     5982   01 021CF    358012E4              STW,R8   DCOFFA             DICATOR                        *A03
     5983   01 021D0    35801330              STW,R8   NDCDLY             ALSO DELAY INDICATOR           *A04
     5984   01 021D1    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     5985   01 021D2    4F964000 A            RIO,R9   0,X3              RESET I/O                       *A03
     5986   01 021D3    68001A60              B        CREQUAL           C(R8) & C(R9) = 0               *A03
     5987                            *                                                                   *A03
     5988                            *                                  RIO TO CCU                       *A03
     5989   01 021D4    1280010E A   T1280    GEN,16,10,6    X'1280',4,T1290-%                           *A03
     5990   01 021D5    6AC01BEC              BAL,R12  STOPIODV          PREVENT TEST & COM CHAN CONFLICT*A03
     5991   01 021D6    22801000 A            LI,R8    X'1000'           SINGLE STEP BIT FOR CCU CONTROL *A03
     5992   01 021D7    498012CC              OR,R8    CM                CLOCK MARGIN                    *A03
     5993   01 021D8    ED801294              WD,R8    *GP00                                             *A03
     5994   01 021D9    32501310              LW,R5    IOPNO             CURRENT IOP NUMBER              *A03
     5995   01 021DA    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON-LINE INDI-*A03
     5996   01 021DB    358012E4              STW,R8   DCOFFA             CATOR                          *A03
     5997   01 021DC    35801330              STW,R8   NDCDLY             ALSO DELAY INDICATOR           *A04
     5998   01 021DD    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     5999   01 021DE    4F0A4000 A            RIO,R0   0,X5              RESET I/O                       *A03
     6000   01 021DF    EC901295              RD,R9    *GP01             READ CCU STATUS                 *A03
     6001   01 021E0    4B9035EB              AND,R9   =X'1000000'       MASK. DLSTOP/1 CLEARED          *A03
     6002   01 021E1    68001A60              B        CREQUAL           C(R8) = C(R9)= 0                *A03
     6003                            *                                                                   *A03
     6004                            *                                  RIO TO MS                        *A03
     6005   01 021E2    129001CD A   T1290    GEN,16,10,6    X'1290',7,T1300-%                           *A03
     6006   01 021E3    6AC01BEC              BAL,R12  STOPIODV          PREVENT TEST & COM CHAN CONFLICT*A03
     6007   01 021E4    328035C2              LW,R8    =X'2000000'       MS/ORD7 BIT                     *A03
     6008   01 021E5    ED80129E              WD,R8    *GP14                                             *A03
     6009   01 021E6    32301310              LW,R3    IOPNO             IOP ADDRESS                     *A03
     6010   01 021E7    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON-LINE IN-  *A03
     6011   01 021E8    358012E4              STW,R8   DCOFFA             DICATORS                       *A03
     6012   01 021E9    35801330              STW,R8   NDCDLY             ALSO DELAY INDICATOR            *A04
     6013   01 021EA    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6014   01 021EB    4F064000 A            RIO,R0   0,X3                                              *A03
     6015   01 021EC    EC90129E              RD,R9    *GP14             READ MS STATUS                  *A03
     6016   01 021ED    4B9035CC              AND,R9   =1                MASK. MS/ORD7 SHOULD BE RESET   *A03
     6017   01 021EE    68001A60              B        CREQUAL           C(R8) = C(R9) = 0               *A03
     6018                            *                                                                   *A03
     6019                            *                                  RIO TO CHANNEL                   *A03
     6020   01 021EF    130001CF A   T1300    GEN,16,10,6    X'1300',7,T1310-%                           *A03
     6021   01 021F0    6AC01BEC              BAL,R12  STOPIODV          PREVENT TEST & COM CHAN CONFLICT*A03
     6022   01 021F1    22800755 A            LI,R8    X'755'            SINGLE STEP, SNAP GROUP 15/23   *A03
     6023   01 021F2    498012CC              OR,R8    CM                                                *A03
     6024   01 021F3    ED801294              WD,R8    *GP00                                             *A03
     6025   01 021F4    32101310              LW,R1    IOPNO             IOP ADDRESS                     *A03
     6026   01 021F5    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON LINE INDI-*A03
     6027   01 021F6    358012E4              STW,R8   DCOFFA             CATOR                          *A03
     6028   01 021F7    35801330              STW,R8   NDCDLY             ALSO DELAY INDICATOR           *A04
     6029   01 021F8    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6030   01 021F9    4F024000 A            RIO,R0   0,X1              RESET I/O                       *A03
     6031   01 021FA    22800555 A            LI,R8    X'555'            COMPARE IMAGE-- MS/ONLINE,MS/HIOU
     6032   01 021FB    EC901295              RD,R9    *GP01              MS/ASC:R, & MS/FS:R. READ DATA *A03
     6033   01 021FC    4B9035EF              AND,R9   =X'E7FF'           MASK                           *A03
     6034   01 021FD    68001A60              B        CREQUAL           C(R8) = C(R9) = X'555'          *A03
     6035                            *                                                                   *A03
     6036                            *                                  RIO TO SUBCHANNEL                *A03
     6037   01 021FE    131001CF A   T1310    GEN,16,10,6    X'1310',7,T1320-%                           *A03
     6038   01 021FF    6AC01BEC              BAL,R12  STOPIODV          PREVENT TEST & COM CHAN CONFLICT*A03
     6039   01 02200    228006AA A            LI,R8    X'6AA'            SNAP MODE, SUBCHANNEL DISPLAY   *A03
     6040   01 02201    498012CC              OR,R8    CM                CLOCK MARGIN                    *A03
     6041   01 02202    ED801294              WD,R8    *GP00                                             *A03
     6042   01 02203    32101310              LW,R1    IOPNO             IOP NUMBER                      *A03
     6043   01 02204    22800000 A            LI,R8    0                 MS OFF-LINE & DC'S ON LINE INDI-*A03
     6044   01 02205    358012E4              STW,R8   DCOFFA             CATOR                          *A03
     6045   01 02206    35801330              STW,R8   NDCDLY             ALSO DELAY INDICATOR           *A04
     6046   01 02207    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6047   01 02208    4F024000 A            RIO,R0   0,X1              RESET I/O                       *A03
     6048   01 02209    228004AA A            LI,R8    X'4AA'            COMPARE IMAGE                   *A03
     6049   01 0220A    EC901295              RD,R9    *GP01             READ DATA                       *A03
     6050   01 0220B    4B9035EF              AND,R9   =X'E7FF'          MASK                            *A03
     6051   01 0220C    68001A60              B        CREQUAL           C(R8) = C(R9) = X'40A'          *A03
     6052                            *                                                                   *A03
     6053                            *                                  RIO RESET MS ON-LINE             *A03
     6054   01 0220D    132001CB A   T1320    GEN,16,10,6    X'1320',7,T1330-%                           *A03
     6055   01 0220E    32501310              LW,R5    IOPNO             CURRENT IOP                     *A03
     6056   01 0220F    22000000 A            LI,R0    0                 DC OFF-LINE INDICATORS          *A03
     6057   01 02210    350012E4              STW,R0   DCOFFA                                            *A03
     6058   01 02211    35001330              STW,R0   NDCDLY             ALSO DELAY INDICATOR           *A04
     6059   01 02212    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6060   01 02213    4F0A4000 A            RIO,R0   0,X5              RESET                           *A03
     6061   01 02214    22800000 A            LI,R8    0                                                 *A03
     6062   01 02215    EC90129F              RD,R9    *GP15             READ DISPLAY REGISTER           *A03
     6063   01 02216    4B9035D0              AND,R9   =X'400'           MS ON-LINE DISPLAY BIT          *A03
     6064   01 02217    68001A60              B        CREQUAL           SHOULD BE OFF                   *A03
     6065                            *                                                                   *A03
     6066                            *                                  POLP CONDITION CODE CHECK        *A03
     6067   01 02218    133000C6 A   T1330    GEN,16,10,6    X'1330',3,T1340-%                           *A03
     6068   01 02219    32501310              LW,R5    IOPNO             CURRENT IOP NO.                 *A03
     6069   01 0221A    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6070   01 0221B    4F0A8000 A            POLP,R0  0,X5              POLP                            *A03
     6071   01 0221C    68E0148F              BCR,14   GOOD              CC 1-3 = 0                      *A03
     6072   01 0221D    680013D0              B        BAD               NO-- REPORT                     *A03
     6073                            *                                                                   *A03
     6074                            *                                  POLR CONDITION CODES CHECK       *A03
     6075   01 0221E    134000C6 A   T1340    GEN,16,10,6    X'1340',3,T1350-%                           *A03
     6076   01 0221F    32501310              LW,R5    IOPNO             CURRENT IOP NO.                 *A03
     6077   01 02220    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6078   01 02221    4F0AC000 A            POLR,R0  0,X5              POLR                            *A03
     6079   01 02222    68E0148F              BCR,14   GOOD              CC 1-3 = 0                      *A03
     6080   01 02223    680013D0              B        BAD               NO-- REPORT                     *A03
     6081                            *                                                                   *A03
     6082                            *                                  POLP REGISTER TEST               *A03
     6083   01 02224    135001C7 A   T1350    GEN,16,10,6    X'1350',7,T1360-%                           *A03
     6084   01 02225    32501310              LW,R5    IOPNO             CURRENT IOP NO                  *A03
     6085   01 02226    229FFFFF A            LI,R9    -1                ALL ONES TO REGISTER            *A03
     6086   01 02227    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6087   01 02228    4F9A8000 A            POLP,R9  0,X5              POLP                            *A03
     6088   01 02229    22800000 A            LI,R8    0                 COMPARE IMAGE                   *A03
     6089   01 0222A    68001A60              B        CREQUAL           SHOULD BE EQUAL                 *A03
     6090                            *                                                                   *A03
     6091                            *                                                                   *A03
     6092   01 0222B    136001C8 A   T1360    GEN,16,10,6    X'1360',7,T1390-%                           *A03
     6093   01 0222C    32501310              LW,R5    IOPNO             CURRENT IOP NO                  *A03
     6094   01 0222D    228FFFFF A            LI,R8    -1                ALL ONES TO REGISTER            *A03
     6095   01 0222E    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6096   01 0222F    4F8AC000 A            POLR,R8  0,X5              POLR                            *A03
     6097   01 02230    22900000 A            LI,R9    0                 COMPARE IMAGE                   *A03
     6098   01 02231    46800009 A            XW,R8    R9                SWITCH C(R8)& C(R9)             *A03
     6099   01 02232    68001A60              B        CREQUAL           SHOULD BE EQUAL                 *A03
     6100                            *                                                                   *A03
     6101                            *                                  RD-WD SINGLE PHASING             *A03
     6102   01 02233    139040C8 A   T1390    GEN,16,10,6    X'1390',X'103',T1400-%                      *A03
     6103   01 02234    22801800 A            LI,R8    X'1800'                                           *A03
     6104   01 02235    ED801298              WD,R8    *GP08             SET SINGLE STEP MODE            *A03
     6105   01 02236    ED001299              WD,R0    *GP09                                             *A03
     6106   01 02237    EC901298              RD,R9    *GP08             READ FOR PH00                   *A03
     6107   01 02238    4B9035E1              AND,R9   =X'40000000'      WAS PH00 SET?                   *A03
     6108   01 02239    6920148F              BCS,2    GOOD              -YES                            *A03
     6109   01 0223A    680013D0              B        BAD               -NO                             *A03
     6110                            *                                                                   *A03
     6111                            *                                  SNAP COUNT DECREMENT - (SNAP TYPE 3)
     6112   01 0223B    140001CD A   T1400    GEN,16,10,6    X'1400',7,T1410-%                           *A03
     6113   01 0223C    EDD01298              WD,R13   *GP08             CHANNEL RESET                   *A03
     6114   01 0223D    22811FE8 A            LI,R8    X'11FE8'                                          *A03
     6115   01 0223E    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION                *A03
     6116   01 0223F    ED801298              WD,R8    *GP08             SET SINGLE PHASE & SNAP TYPE 3  *A03
     6117   01 02240    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6118   01 02241    ED001299              WD,R0    *GP09             WRITE FAM                       *A03
     6119   01 02242    22800400 A            LI,R8    X'400'                                            *A03
     6120   01 02243    ED801298              WD,R8    *GP08             RELEASE SNAP                    *A03
     6121   01 02244    EC901295              RD,R9    *GP01             READ SNAP CONTROL DISPLAY       *A03
     6122   01 02245    4B903613              AND,R9   =X'FFF'           MASK                            *A03
     6123   01 02246    228005C0 A            LI,R8    X'5C0'            EXPECTED DISPLAY                *A03
     6124   01 02247    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     6125                            *                                                                   *A03
     6126                            *                                  SNAP COUNT DECREMENT - (SNAP TYPE 3)
     6127   01 02248    141001CD A   T1410    GEN,16,10,6    X'1410',7,T1420-%                           *A03
     6128   01 02249    EDD01298              WD,R13   *GP08             CHANNEL RESET                   *A03
     6129   01 0224A    22805FE8 A            LI,R8    X'5FE8'                                           *A03
     6130   01 0224B    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION                *A03
     6131   01 0224C    ED801298              WD,R8    *GP08             SET SINGLE PHASE & SNAP TYPE 3  *A03
     6132   01 0224D    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6133   01 0224E    ED001299              WD,R0    *GP09             WRITE FAM                       *A03
     6134   01 0224F    22800400 A            LI,R8    X'400'                                            *A03
     6135   01 02250    ED801298              WD,R8    *GP08             RELEASE SNAP                    *A03
     6136   01 02251    EC901295              RD,R9    *GP01             READ SNAP CONTROL DISPLAY       *A03
     6137   01 02252    4B903613              AND,R9   =X'FFF'           MASK                            *A03
     6138   01 02253    228005C0 A            LI,R8    X'5C0'            EXPECTED DISPLAY                *A03
     6139   01 02254    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     6140                            *                                                                   *A03
     6141                            *                                                                   *A03
     6142   01 02255    142001C4 A   T1420    GEN,16,10,6    X'1420',7,T1425-%                           *A03
     6143   01 02256    6AF0225D              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE    *A03
     6144   01 02257    80FFFFFF A            DATA     X'80FFFFFF'       1ST WRITE TO C                  *A03
     6145   01 02258    80000000 A            DATA     X'80000000'       2ND WRITE TO C & DATA EXPECTED  *A03
     6146                            *                                                                   *A03
     6147                            *                                  C REGISTER TEST (LOWER)          *A03
     6148   01 02259    142501D4 A   T1425    GEN,16,10,6     X'1425',7,T1430-%                          *A03
     6149   01 0225A    6AF0225D              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE    *A03
     6150   01 0225B    82FFFFFF A            DATA     X'82FFFFFF'       1ST WRITE TO C                  *A03
     6151   01 0225C    82000000 A            DATA     X'82000000'       2ND WRITE TO C & DATA EXPECTED  *A03
     6152         01 0225D           T1425B   EQU      %                                                 *A03
     6153   01 0225D    EDD01298              WD,R13   *GP08             CHANNEL RESET                   *A03
     6154   01 0225E    B280000F A            LW,R8    *15               FETCH DATA FOR 1ST WRITE TO C REG
     6155   01 0225F    ED801299              WD,R8    *GP09             WRITE C                         *A03
     6156   01 02260    3310000F A            MTW,1    15                BUMP POINTER                    *A03
     6157   01 02261    B280000F A            LW,R8    *15               FETCH DATA FOR SECOND WRITE TO C*A03
     6158   01 02262    ED801299              WD,R8    *GP09             WRITE C                         *A03
     6159   01 02263    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6160   01 02264    4B8035C2              AND,R8   =X'02000000'      IS FAM UPPER OR LOWER UNDER TEST?
     6161   01 02265    69202268              BCS,2    %+3               BRANCH IF FAM LOWER             *A03
     6162   01 02266    EC90129A              RD,R9    *GP10             READ FAM UPPER                  *A03
     6163   01 02267    68002269              B        %+2                                               *A03
     6164   01 02268    EC90129B              RD,R9    *GP11             READ FAM LOWER                  *A03
     6165   01 02269    4B9035D5              AND,R9   =X'00FFFFFF'      MASK FOR DATA RECEIVED          *A03
     6166   01 0226A    B280000F A            LW,R8    *15               FETCH DATA EXPECTED             *A03
     6167   01 0226B    4B8035D5              AND,R8   =X'00FFFFFF'      MASK                            *A03
     6168   01 0226C    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     6169                            *                                                                   *A03
     6170                            *                                  C REGISTER TEST (UPPER)          *A03
     6171   01 0226D    143001C4 A   T1430    GEN,16,10,6    X'1430',7,T1435-%                           *A03
     6172   01 0226E    6AF0225D              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE    *A03
     6173   01 0226F    80000000 A            DATA     X'80000000'       1ST WRITE TO C                  *A03
     6174   01 02270    80FFFFFF A            DATA     X'80FFFFFF'       2ND WRITE TO C & DATA EXPECTED  *A03
     6175                            *                                  C REGISTER TEST (LOWER)          *A03
     6176   01 02271    143501C4 A   T1435    GEN,16,10,6     X'1435',7,T1440-%                          *A03
     6177   01 02272    6AF0225D              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE    *A03
     6178   01 02273    82000000 A            DATA     X'82000000'       1ST WRITE TO C                  *A03
     6179   01 02274    82FFFFFF A            DATA     X'82FFFFFF'       2ND WRITE TO C & DATA EXPECTED  *A03
     6180                            *                                                                   *A03
     6181                            *                                  C REGISTER TEST (UPPER)          *A03
     6182   01 02275    144001C4 A   T1440    GEN,16,10,6    X'1440',7,T1445-%                           *A03
     6183   01 02276    6AF0225D              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE    *A03
     6184   01 02277    80000000 A            DATA     X'80000000'       1ST WRITE TO C                  *A03
     6185   01 02278    80555555 A            DATA     X'80555555'       2ND WRITE TO C & DATA EXPECTED  *A03
     6186                            *                                  C REGISTER TEST (LOWER)          *A03
     6187   01 02279    144501C4 A   T1445    GEN,16,10,6     X'1445',7,T1450-%                          *A03
     6188   01 0227A    6AF0225D              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE    *A03
     6189   01 0227B    82000000 A            DATA     X'82000000'       1ST WRITE TO C                  *A03
     6190   01 0227C    82555555 A            DATA     X'82555555'       2ND WRITE TO C & DATA EXPECTED  *A03
     6191                            *                                                                   *A03
     6192                            *                                  C REGISTER TEST (UPPER)          *A03
     6193   01 0227D    145001C4 A   T1450    GEN,16,10,6    X'1450',7,T1455-%                           *A03
     6194   01 0227E    6AF0225D              BAL,R15  T1425B            TO SUBROUTINE                   *A03
     6195   01 0227F    80000000 A            DATA     X'80000000'       1ST WRITE TO C                  *A03
     6196   01 02280    8AAAAAAA A            DATA     X'8AAAAAAA'       2ND WRITE TO C & DATA EXPECTED  *A03
     6197                            *                                  C REGISTER TEST (LOWER)          *A03
     6198   01 02281    145501C4 A   T1455    GEN,16,10,6     X'1455',7,T1460-%                          *A03
     6199   01 02282    6AF0225D              BAL,R15  T1425B            GO TO C REG CHECK SUBROUTINE    *A03
     6200   01 02283    82000000 A            DATA     X'82000000'       1ST WRITE TO C                  *A03
     6201   01 02284    82AAAAAA A            DATA     X'82AAAAAA'       2ND WRITE TO C & DATA EXPECTED  *A03
     6202                            *                                                                   *A03
     6203                            *                                  A REGISTER TEST-- A3-A7 = 0      *A03
     6204   01 02285    146001CB A   T1460    GEN,16,10,6    X'1460',7,T1470-%                           *A03
     6205   01 02286    6AF02288              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE    *A03
     6206   01 02287    82000000 A            DATA     X'82000000'       WRITE DIRECT DATA               *A03
     6207                            *                                                                   *A03
     6208   01 02288    EDD01298     T1460B   WD,R13   *GP08             CHANNEL RESET                   *A03
     6209   01 02289    B280000F A            LW,R8    *15               FETCH WRITE DIRECT DATA         *A03
     6210   01 0228A    ED801299              WD,R8    *GP09             WRITE A REGISTER                *A03
     6211   01 0228B    EC90129A              RD,R9    *GP10             READ A REGISTER                 *A03
     6212   01 0228C    4B903614              AND,R9   =X'FF000000'      MASK                            *A03
     6213   01 0228D    2580007E A            SLS,R8   -2                POSITION DATA EXPECTED          *A03
     6214   01 0228E    4B803615              AND,R8   =X'1F000000'      MASK                            *A03
     6215   01 0228F    68001A60              B        CREQUAL           COMPARE R8 & R9                 *A03
     6216                            *                                                                   *A03
     6217                            *                                  A REGISTER TEST-- A3             *A03
     6218   01 02290    147001C3 A   T1470    GEN,16,10,6    X'1470',7,T1480-%                           *A03
     6219   01 02291    6AF02288              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE    *A03
     6220   01 02292    C2000000 A            DATA     X'C2000000'       WRITE DIRECT DATA               *A03
     6221                            *                                                                   *A03
     6222                            *                                  A REGISTER TEST-- A4             *A03
     6223   01 02293    148001C3 A   T1480    GEN,16,10,6    X'1480',7,T1490-%                           *A03
     6224   01 02294    6AF02288              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE    *A03
     6225   01 02295    A2000000 A            DATA     X'A2000000'       WRITE DIRECT DATA               *A03
     6226                            *                                                                   *A03
     6227                            *                                  A REGISTER TEST-- A5             *A03
     6228   01 02296    149001C3 A   T1490    GEN,16,10,6    X'1490',7,T1500-%                           *A03
     6229   01 02297    6AF02288              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE    *A03
     6230   01 02298    92000000 A            DATA     X'92000000'       WRITE DIRECT DATA               *A03
     6231                            *                                                                   *A03
     6232                            *                                  A REGISTER TEST-- A6             *A03
     6233   01 02299    150001C3 A   T1500    GEN,16,10,6    X'1500',7,T1510-%                           *A03
     6234   01 0229A    6AF02288              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE    *A03
     6235   01 0229B    8A000000 A            DATA     X'8A000000'       WRITE DIRECT DATA               *A03
     6236                            *                                                                   *A03
     6237                            *                                  A REGISTER TEST-- A7             *A03
     6238   01 0229C    151001C3 A   T1510    GEN,16,10,6    X'1510',7,T1520-%                           *A03
     6239   01 0229D    6AF02288              BAL,R15  T1460B            GO TO A REG CHECK SUBROUTINE    *A03
     6240   01 0229E    86000000 A            DATA     X'86000000'       WRITE DIRECT DATA               *A03
     6241                            *                                                                   *A03
     6242                            *                                  C REG TO FAM SUBCHANNEL TRANSFER,*A03
     6243                            *                                   C00-23 TO FAM 48-71,AL ZEROS TEST
     6244   01 0229F    152001CF A   T1520    GEN,16,10,6    X'1520',7,T1530-%                           *A03
     6245   01 022A0    32803616              LW,R8    =X'80FFFFFF'      INITIALLY WRITE ALL 1'S         *A03
     6246   01 022A1    329035DB              LW,R9    =X'80000000'      ALL ZEROS PATTERN FOR LOWER FAM *A03
     6247   01 022A2    6AF022A4              BAL,R15  T1520B            SUBROUTINE RETURN LINKAGE       *A03
     6248   01 022A3    EC90129A              RD,R9    *GP10             EXECUTIBLE INSTR-- RD C REG 0-23*A03
     6249   01 022A4    ED801299     T1520B   WD,R8    *GP09             INITIALIZE ERASE PATTERN (ALL 1'S)
     6250   01 022A5    ED901299              WD,R9    *GP09             WRITE C00-47 TO FAM 48-95       *A03
     6251   01 022A6    4B803617              AND,R8   =X'7E000000'      LOAD FAM BITS 48-95 TO C REG 0- *A03
     6252   01 022A7    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6253   01 022A8    ED801299              WD,R8    *GP09              47 (LOWER FAM)                 *A03
     6254   01 022A9    32800009 A            LW,R8    R9                EXPECTED PATTERN                *A03
     6255   01 022AA    4B8035D5              AND,R8   =X'FFFFFF'        MASK OFF CONTROL BITS           *A03
     6256   01 022AB    E700000F A            EXU      *R15              EXECUTE READ DIRECT, C TO GEN REG
     6257   01 022AC    4B9035D5              AND,R9   =X'FFFFFF'        MASK OFF ADDRESS OR PARITY BITS *A03
     6258   01 022AD    68001A60              B        CREQUAL           C(R8) & C(R9), BITS 8-31 EQUAL  *A03
     6259                            *                                                                   *A03
     6260                            *                                  C REG TO FAM TRANSFER & RETURN,  *A03
     6261                            *                                   C24-47 & FAM 72-95, ALL ZEROS   *A03
     6262   01 022AE    153001C5 A   T1530    GEN,16,10,6    X'1530',7,T1540-%                           *A03
     6263   01 022AF    32803616              LW,R8    =X'80FFFFFF'      INITIALLY WRITE 1'S PATTERN     *A03
     6264   01 022B0    329035DB              LW,R9    =X'80000000'      ALL ZEROS FOR FAM 48-95         *A03
     6265   01 022B1    6AF022A4              BAL,R15  T1520B            TO SUBROUTINE, ABOVE            *A03
     6266   01 022B2    EC90129B              RD,R9    *GP11             EXECUTIBLE INSTR-- RD C REG 24-47
     6267                            *                                                                   *A03
     6268                            *                                  C REG TO FAM SUBCHANNEL TRANSFER,*A03
     6269                            *                                   C00-23 TO FAM 48-71,ALL ONES TEST
     6270   01 022B3    154001C5 A   T1540    GEN,16,10,6    X'1540',7,T1550-%                           *A03
     6271   01 022B4    328035DB              LW,R8    =X'80000000'      INITIALLY WRITE ZEROS PATTERN   *A03
     6272   01 022B5    32903616              LW,R9    =X'80FFFFFF'      ALL ONES FOR FAM 48-95          *A03
     6273   01 022B6    6AF022A4              BAL,R15  T1520B            TO SUBROUTINE                   *A03
     6274   01 022B7    EC90129A              RD,R9    *GP10             EXECUTIBLE INSTR-- RD C REG 0-23*A03
     6275                            *                                                                   *A03
     6276                            *                                  C REG TO FAM SUBCHANNEL TRANSFER,*A03
     6277                            *                                   C24-47 & FAM 48-71,ALL ONES TEST*A03
     6278   01 022B8    155001C5 A   T1550    GEN,16,10,6    X'1550',7,T1580-%                           *A03
     6279   01 022B9    328035DB              LW,R8    =X'80000000'      INITIALLY WRITE ALL ZEROS       *A03
     6280   01 022BA    32903616              LW,R9    =X'80FFFFFF'      ALL ONES FOR FAM 48-95          *A03
     6281   01 022BB    6AF022A4              BAL,R15  T1520B            TO SUBROUTINE                   *A03
     6282   01 022BC    EC90129B              RD,R9    *GP11             EXECUTIBLE INSTR-- RD C REG 24-47
     6283                            *                                                                   *A03
     6284                            *                                  C REG TO FAM SUBCHANNEL TRANSFER,*A03
     6285                            *                                   C00-23 TO FAM 0-23,ALL ZEROS TEST
     6286   01 022BD    158001C5 A   T1580    GEN,16,10,6    X'1580',7,T1590-%                           *A03
     6287   01 022BE    32803618              LW,R8    =X'82FFFFFF'      INITIALLY WR ONES FOR FAM 0-47  *A03
     6288   01 022BF    32903619              LW,R9    =X'82000000'      ALL ZEROS FOR FAM 0-47          *A03
     6289   01 022C0    6AF022A4              BAL,R15  T1520B            TO SUBROUTINE                   *A03
     6290   01 022C1    EC90129A              RD,R9    *GP10             EXECUTIBLE INSTR--RD C REG 0-23 *A03
     6291                            *                                                                   *A03
     6292                            *                                  C REG TO FAM SUBROUTINE TRANSFER,*A03
     6293                            *                                   C24-47 TO FAM 24-47, ALL ZEROS  *A03
     6294   01 022C2    159001C5 A   T1590    GEN,16,10,6    X'1590',7,T1600-%                           *A03
     6295   01 022C3    32803618              LW,R8    =X'82FFFFFF'      INITIALLY WR 1'S FOR FAM 0-47   *A03
     6296   01 022C4    32903619              LW,R9    =X'82000000'      ALL ZEROS FOR FAM 0-47          *A03
     6297   01 022C5    6AF022A4              BAL,R15  T1520B            TO SUBROUTINE                   *A03
     6298   01 022C6    EC90129B              RD,R9    *GP11             EXECUTIBLE INSTR-- RD C REG 24-47
     6299                            *                                                                   *A03
     6300                            *                                  C REG TO FAM SUBROUTINE TRANSFER,*A03
     6301                            *                                   C00-23 TO FAM 0-23,ALL ONES TESTS
     6302   01 022C7    160001C5 A   T1600    GEN,16,10,6    X'1600',7,T1610-%                           *A03
     6303   01 022C8    32803619              LW,R8    =X'82000000'      INITIALLY WR 0'S TO FAM 0-47    *A03
     6304   01 022C9    32903618              LW,R9    =X'82FFFFFF'      ALL ONES FOR FAM 0-47           *A03
     6305   01 022CA    6AF022A4              BAL,R15  T1520B            TO SUBROUTINE                   *A03
     6306   01 022CB    EC90129A              RD,R9    *GP10             EXECUTIBLE INSTR-- RD C REG 0-23*A03
     6307                            *                                                                   *A03
     6308                            *                                  C REG TO FAM SUBROUTINE TRANSFER,*A03
     6309                            *                                   C24-47 TO FAM 24-47,ALL ONES TESTS
     6310   01 022CC    161001C5 A   T1610    GEN,16,10,6    X'1610',7,T1620-%                           *A03
     6311   01 022CD    32803619              LW,R8    =X'82000000'      INITIALLY WR 1'S TO FAM 0-47    *A03
     6312   01 022CE    32903618              LW,R9    =X'82FFFFFF'      ALL ZEROS FOR FAM 0-47          *A03
     6313   01 022CF    6AF022A4              BAL,R15  T1520B            TO SUBROUTINE                   *A03
     6314   01 022D0    EC90129B              RD,R9    *GP11                                             *A03
     6315                            *                                                                   *A03
     6316                            *                                  FAM SUBCHANNEL PARITY,DATA=X'010001'
     6317   01 022D1    162001CB A   T1620    GEN,16,10,6    X'1620',7,T1630-%                           *A03
     6318   01 022D2    3280361A              LW,R8    =X'82010001'      WRITE FAM DATA PATTERN          *A03
     6319   01 022D3    3290361B              LW,R9    =X'48000000'      EXPECT PARITY PATTERN,          *A03
     6320         01 022D4           T1620B   EQU      %                FAM SUBCHANNEL PARITY CHECK      *A03
     6321   01 022D4    ED801299              WD,R8    *GP09             WRITE UPPER FAM
     6322   01 022D5    4B803617              AND,R8   =X'7E000000'
     6323   01 022D6    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6324   01 022D7    ED801299              WD,R8    *GP09             READ FAM SUBCHANNEL 0-47        *A03
     6325   01 022D8    35900008 A            STW,R9   R8                                                *A03
     6326   01 022D9    EC90129B              RD,R9    *GP11             PARITY: O-5, DATA: 24-47        *A03
     6327   01 022DA    4B90361C              AND,R9   =X'FC000000'      MASK OUT DATA                   *A03
     6328   01 022DB    68001A60              B        CREQUAL           COMPARE R8 & R9. PARITY IN 0-5  *A03
     6329                            *                                                                   *A03
     6330                            *                                  FAM SUBCHANNEL PARITY,DATA=X'000100'
     6331   01 022DC    163001C4 A   T1630    GEN,16,10,6    X'1630',7,T1638-%                           *A03
     6332   01 022DD    3280361D              LW,R8    =X'82000100'      WRITE FAM CTRL & PARITY PAT.    *A03
     6333   01 022DE    3290361E              LW,R9    =X'B4000000'      EXPECTED PARITY OUTPUT          *A03
     6334   01 022DF    680022D4              B        T1620B                                            *A03
     6335                            *                                                                   *A03
     6336                            *                                  FAM SUBCHANNEL PARITY,DATA=0     *A03
     6337   01 022E0    163801C4 A   T1638    GEN,16,10,6    X'1638',7,T1640-%                           *A03
     6338   01 022E1    32803619              LW,R8    =X'82000000'      WR FAM CONTROL & PARITY PATTERN *A03
     6339   01 022E2    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6340   01 022E3    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6341                            *                                                                   *A03
     6342                            *                                  FAM SUBCHANNEL PARITY,DATA=X'030303'
     6343   01 022E4    164001C4 A   T1640    GEN,16,10,6    X'1640',7,T1644-%                           *A03
     6344   01 022E5    3280361F              LW,R8    =X'82303030'      WRITE FAM & PARIT PAT.          *A03
     6345   01 022E6    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6346   01 022E7    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6347                            *                                                                   *A03
     6348                            *                                  FAM SUBCHANNEL PARITY,DATA=X'181818'
     6349   01 022E8    164401C4 A   T1644    GEN,16,10,6    X'1644',7,T1648-%                           *A03
     6350   01 022E9    32803620              LW,R8    =X'82181818'      WR FAM CONTROL & PARITY PARITY  *A03
     6351   01 022EA    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6352   01 022EB    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6353                            *                                                                   *A03
     6354                            *                                  FAM SUBCHANNEL PARITY,DATA=X'282828'
     6355   01 022EC    164801C4 A   T1648    GEN,16,10,6    X'1648',7,T1650-%                           *A03
     6356   01 022ED    32803621              LW,R8    =X'82282828'      WR FAM CONTROL & PARITY PATTERN *A03
     6357   01 022EE    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6358   01 022EF    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6359                            *                                                                   *A03
     6360                            *                                  FAM SUBCHANNEL PARITY,DATA=X'050505'
     6361   01 022F0    165001C4 A   T1650    GEN,16,10,6    X'1650',7,T1654-%                           *A03
     6362   01 022F1    32803622              LW,R8    =X'82050505'      WRITE FAM & PARITY PAT.         *A03
     6363   01 022F2    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6364   01 022F3    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6365                            *                                                                   *A03
     6366                            *                                  FAM SUBCHANNEL PARITY,DATA=030303'
     6367   01 022F4    165401C4 A   T1654    GEN,16,10,6    X'1654',7,T1658-%                           *A03
     6368   01 022F5    32803623              LW,R8    =X'82030303'      WR FAM CONTROL & PARITY PATTERN *A03
     6369   01 022F6    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6370   01 022F7    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6371                            *                                                                   *A03
     6372                            *                                  FAM SUBCHANNEL PARITY,DATA=X'060606'
     6373   01 022F8    165801C4 A   T1658    GEN,16,10,6    X'1658',7,T1660-%                           *A03
     6374   01 022F9    32803624              LW,R8    =X'82060606'      WR FAM CONTROL & PARITY PATTERN *A03
     6375   01 022FA    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6376   01 022FB    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6377                            *                                                                   *A03
     6378                            *                                  FAM SUBCHANNEL PARITY,DATA=X'C0C0C0'
     6379   01 022FC    166001C4 A   T1660    GEN,16,10,6    X'1660',7,T1664-%                           *A03
     6380   01 022FD    32803625              LW,R8    =X'82C0C0C0'      WRITE FAM & PARITY PATTTERN     *A03
     6381   01 022FE    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6382   01 022FF    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6383                            *                                                                   *A03
     6384                            *                                  FAM SUBCHANNEL PARITY,DATA=X'404040'
     6385   01 02300    166401C4 A   T1664    GEN,16,10,6    X'1664',7,T1668-%                           *A03
     6386   01 02301    32803626              LW,R8    =X'82404040'      WR FAM CONTROL & PARITY PATTERN *A03
     6387   01 02302    22900000 A            LI,R9    0                 EXPECTED DATA                   *A03
     6388   01 02303    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6389                            *                                                                   *A03
     6390                            *                                   FAM SUBCHANNEL PARITY,DATA=X'808080'
     6391   01 02304    166801C4 A   T1668    GEN,16,10,6    X'1668',7,T1670-%                           *A03
     6392   01 02305    32803627              LW,R8    =X'82808080'      WR FAM CONTROL & PARITY PATTERN *A03
     6393   01 02306    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6394   01 02307    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6395                            *                                                                   *A03
     6396                            *                                  FAM SUBCHANNEL PARITY,DATA=X'080808'
     6397   01 02308    167001C4 A   T1670    GEN,16,10,6    X'1670',7,T1674-%                           *A03
     6398   01 02309    32803628              LW,R8    =X'82080808'      WRIT FAM & PARITY PATTERN       *A03
     6399   01 0230A    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6400   01 0230B    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6401                            *                                                                   *A03
     6402                            *                                  FAM SUBCHANNEL PARITY,DATA=X'101010'
     6403   01 0230C    167401C4 A   T1674    GEN,16,10,6    X'1674',7,T1678-%                           *A03
     6404   01 0230D    32803629              LW,R8    =X'82101010'      WR FAM CONTROL & PARITY PATTERN *A03
     6405   01 0230E    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6406   01 0230F    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6407                            *                                                                   *A03
     6408                            *                                  FAM SUBCHANNEL PARITY,DATA=X'202020'
     6409   01 02310    167801C4 A   T1678    GEN,16,10,6    X'1678',7,T1680-%                           *A03
     6410   01 02311    3280362A              LW,R8    =X'82202020'      WR FAM CONTROL & PARITY PATTERN *A03
     6411   01 02312    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6412   01 02313    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6413                            *                                                                   *A03
     6414                            *                                  FAM SUBCHANNEL PARITY,DATA=X'383838'
     6415   01 02314    168001C4 A   T1680    GEN,16,10,6    X'1680',7,T1684-%                           *A03
     6416   01 02315    3280362B              LW,R8    =X'82383838'      WRITE FAM & PARITY PATTERN      *A03
     6417   01 02316    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6418   01 02317    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6419                            *                                                                   *A03
     6420                            *                                  FAM SUBCHANNEL PARITY,DAT=X'010101'
     6421   01 02318    168401C4 A   T1684    GEN,16,10,6    X'1684',7,T1688-%                           *A03
     6422   01 02319    3280362C              LW,R8    =X'82010101'      WR FAM CONTROL & PARITY PATTERN *A03
     6423   01 0231A    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6424   01 0231B    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6425                            *                                                                   *A03
     6426                            *                                  FAM SUBCHANNEL PARITY,DATA=X'020202'
     6427   01 0231C    168801C4 A   T1688    GEN,16,10,6    X'1688',7,T1690-%                           *A03
     6428   01 0231D    3280362D              LW,R8    =X'82020202'      WR FAM CONTROL & PARITY PATTERN *A03
     6429   01 0231E    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6430   01 0231F    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6431                            *                                                                   *A03
     6432                            *                                  FAM SUBCHANNEL PARITY,DATA=X'040404'
     6433   01 02320    169001C4 A   T1690    GEN,16,10,6    X'1690',7,T1694-%                           *A03
     6434   01 02321    3280362E              LW,R8    =X'82040404'      WRITE FAM & PARITY PATTERN      *A03
     6435   01 02322    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6436   01 02323    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6437                            *                                                                   *A03
     6438                            *                                  FAM SUBCHANNEL PARITY,DATA=X'070707'
     6439   01 02324    169401C4 A   T1694    GEN,16,10,6    X'1694',7,T1698-%                           *A03
     6440   01 02325    3280362F              LW,R8    =X'82070707'      WR FAM CONTROL & PARITY PATTERN *A03
     6441   01 02326    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6442   01 02327    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6443                            *                                                                   *A03
     6444                            *                                  FAM SUBCHANNEL PARITY,DATA=X'3F3F3F'
     6445   01 02328    169801C4 A   T1698    GEN,16,10,6    X'1698',7,T1700-%                           *A03
     6446   01 02329    32803630              LW,R8    =X'823F3F3F'      WR FAM CONTROL & PARITY PATTERN *A03
     6447   01 0232A    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6448   01 0232B    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6449                            *                                                                   *A03
     6450                            *                                  FAM SUBCHANNEL PARITY,DATA=X'878787'
     6451   01 0232C    170001C4 A   T1700    GEN,16,10,6    X'1700',7,T1704-%                           *A03
     6452   01 0232D    32803631              LW,R8    =X'82878787'      WRITE FAM & PARITY PATTERNS     *A03
     6453   01 0232E    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6454   01 0232F    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6455                            *                                                                   *A03
     6456                            *                                  FAM SUBCHANNEL PARITY,DATA=X'787878'
     6457   01 02330    170401C4 A   T1704    GEN,16,10,6    X'1704',7,T1708-%                           *A03
     6458   01 02331    32803632              LW,R8    =X'82787878'      WR FAM CONTROL & PARITY PATTERN *A03
     6459   01 02332    3290361C              LW,R9    =X'FC000000'      EXPECTED PARITY OUTPUT          *A03
     6460   01 02333    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6461                            *                                                                   *A03
     6462                            *                                  FAM SUBCHANNEL PARITY,DATA=X'ADADAD'
     6463   01 02334    170801C4 A   T1708    GEN,16,10,6    X'1708',7,T1710-%                           *A03
     6464   01 02335    32803633              LW,R8    =X'82ADADAD'      WR FAM CONTROL & PARITY PATTERN *A03
     6465   01 02336    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6466   01 02337    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6467                            *                                                                   *A03
     6468                            *                                  FAM SUBCHANNEL PARITY,DATA=X'D6D6D6'
     6469   01 02338    171001C4 A   T1710    GEN,16,10,6    X'1710',7,T1720-%                           *A03
     6470   01 02339    32803634              LW,R8    =X'82D6D6D6'      WRITE FAM & PARITY PATTERN      *A03
     6471   01 0233A    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6472   01 0233B    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6473                            *                                                                   *A03
     6474                            *                                  FAM SUBCHANNEL PARITY,DATA=X'DADADA'
     6475   01 0233C    172001C4 A   T1720    GEN,16,10,6    X'1720',7,T1730-%                           *A03
     6476   01 0233D    32803635              LW,R8    =X'82DADADA'      WR FAM CONTROL & PARITY PATTERN *A03
     6477   01 0233E    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6478   01 0233F    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6479                            *                                                                   *A03
     6480                            *                                  FAM SUBCHANNEL PARITY,DATA=X'929292'
     6481   01 02340    173001C4 A   T1730    GEN,16,10,6    X'1730',7,T1740-%                           *A03
     6482   01 02341    32803636              LW,R8    =X'82929292'      WR FAM CONTROL & PARITY PATTERN *A03
     6483   01 02342    22900000 A            LI,R9    0                 EXPECTED PARITY OUTPUT          *A03
     6484   01 02343    680022D4              B        T1620B            TO SUBROUTINE                   *A03
     6485                            *                                                                   *A03
     6486                            *                                  WRITE 0'S TO SUBCHANNEL FAM 1,   *A03
     6487                            *                                   BITS 0-47 (UPPER)               *A03
     6488   01 02344    174001CE A   T1740    GEN,16,10,6    X'1740',7,T1750-%                           *A03
     6489   01 02345    32803637              LW,R8    =X'86000000'      WRITE FAM UPPER CONTROL         *A03
     6490         01 02346           T1740B   EQU      %                                                 *A03
     6491   01 02346    33101344              MTW,1    PNTDBL            SET DOUBLE PRINT INDICATOR (ERROR)
     6492   01 02347    ED801299              WD,R8    *GP09             WRITE SUBCHANNEL (FAM)          *A03
     6493   01 02348    4B803638              AND,R8   =X'7EFFFFFF'      MASK TO GENERATE CONTROL WORD   *A03
     6494   01 02349    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     6495   01 0234A    ED801299              WD,R8    *GP09             LOAD C REG FROM SUBCHANNEL      *A03
     6496   01 0234B    EC90129A              RD,R9    *GP10             READ C REG 0-23 TO R9           *A03
     6497   01 0234C    4B9035D5              AND,R9   =X'FFFFFF'        MASK OFF ADDRESS FIELD          *A03
     6498   01 0234D    ECB0129B              RD,R11   *GP11             READ C REG 24-47 TO R11         *A03
     6499   01 0234E    4BB035D5              AND,R11  =X'FFFFFF'        MASK OFF SUBCHANNEL PARITIES    *A03
     6500   01 0234F    4B8035D5              AND,R8   =X'FFFFFF'        MASK OFF CONTROL & ADDRESS FIELD*A03
     6501   01 02350    3580000A A            STW,R8   R10                OF COMPARE IMAGE               *A03
     6502   01 02351    680019B6              B        CDREQUAL          C(R8)=C(R9) & C(R10)= C(R11)    *A03
     6503                            *                                                                   *A03
     6504                            *                                  WRITE 0'S TO SUBCHANNEL FAM 1,   *A03
     6505                            *                                   BITS 48-95 (LOWER)              *A03
     6506   01 02352    175001C3 A   T1750    GEN,16,10,6    X'1750',7,T1760-%                           *A03
     6507   01 02353    32803639              LW,R8    =X'84000000'      WRITE FAM LOWER CONTROL         *A03
     6508   01 02354    68002346              B        T1740B                                            *A03
     6509                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 2, *A03
     6510                            *                                   BITS 0-47 (UPPER)               *A03
     6511   01 02355    176001C3 A   T1760    GEN,16,10,6    X'1760',7,T1770-%                           *A03
     6512   01 02356    3280363A              LW,R8    =X'8A000000'      UPPER FAM CONTROL               *A03
     6513   01 02357    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6514                            *                                                                   *A03
     6515                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 2, *A03
     6516                            *                                   BITS 48-95 (LOWER)              *A03
     6517   01 02358    177001C3 A   T1770    GEN,16,10,6    X'1770',7,T1780-%                           *A03
     6518   01 02359    3280363B              LW,R8    =X'88000000'      LOWER FAM CONTROL               *A03
     6519   01 0235A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6520                            *                                                                   *A03
     6521                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 3, *A03
     6522                            *                                   BITS 0-47                       *A03
     6523   01 0235B    178001C3 A   T1780    GEN,16,10,6    X'1780',7,T1790-%                           *A03
     6524   01 0235C    3280363C              LW,R8    =X'8E000000'      UPPER FAM CONTROL               *A03
     6525   01 0235D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6526                            *                                                                   *A03
     6527                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 3, *A03
     6528                            *                                   BITS 48-95                      *A03
     6529   01 0235E    179001C3 A   T1790    GEN,16,10,6    X'1790',7,T1800-%                           *A03
     6530   01 0235F    3280363D              LW,R8    =X'8C000000'      LOWER FAM CONTROL               *A03
     6531   01 02360    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6532                            *                                                                   *A03
     6533                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 4, *A03
     6534                            *                                   BITS 0-47                       *A03
     6535   01 02361    180001C3 A   T1800    GEN,16,10,6    X'1800',7,T1810-%                           *A03
     6536   01 02362    3280363E              LW,R8    =X'92000000'      UPPER FAM CONTROL               *A03
     6537   01 02363    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6538                            *                                                                   *A03
     6539                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 4, *A03
     6540                            *                                   BITS 48-95                      *A03
     6541   01 02364    181001C3 A   T1810    GEN,16,10,6    X'1810',7,T1820-%                           *A03
     6542   01 02365    3280363F              LW,R8    =X'90000000'      LOWER FAM CONTROL               *A03
     6543   01 02366    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6544                            *                                                                   *A03
     6545                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 5, *A03
     6546                            *                                   BITS 0-47                       *A03
     6547   01 02367    182001C3 A   T1820    GEN,16,10,6    X'1820',7,T1830-%                           *A03
     6548   01 02368    32803640              LW,R8    =X'96000000'      UPPER  FAM CONTROL              *A03
     6549   01 02369    68002346              B        T1740B                                            *A03
     6550                            *                                                                   *A03
     6551                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 5, *A03
     6552                            *                                   BITS 48-95                      *A03
     6553   01 0236A    183001C3 A   T1830    GEN,16,10,6    X'1830',7,T1840-%                           *A03
     6554   01 0236B    32803641              LW,R8    =X'94000000'      LOWER FAM CONTROL               *A03
     6555   01 0236C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6556                            *                                                                   *A03
     6557                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 6, *A03
     6558                            *                                   BITS 0-47                       *A03
     6559   01 0236D    184001C3 A   T1840    GEN,16,10,6    X'1840',7,T1850-%                           *A03
     6560   01 0236E    32803642              LW,R8    =X'9A000000'      UPPER FAM CONTROL               *A03
     6561   01 0236F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6562                            *                                                                   *A03
     6563                            *                                  WRITE ZEROS TO SUBROUTINE FAM 6, *A03
     6564                            *                                   BITS 48-95                      *A03
     6565   01 02370    185001C3 A   T1850    GEN,16,10,6    X'1850',7,T1860-%                           *A03
     6566   01 02371    32803643              LW,R8    =X'98000000'      LOWER FAM CONTROL               *A03
     6567   01 02372    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6568                            *                                                                   *A03
     6569                            *                                  WRITE ZEROS TO SUBROUTINE FAM 7, *A03
     6570                            *                                   BITS 0-47                       *A03
     6571   01 02373    186001C3 A   T1860    GEN,16,10,6    X'1860',7,T1870-%                           *A03
     6572   01 02374    32803644              LW,R8    =X'9E000000'      UPPER FAM CONTROL               *A03
     6573   01 02375    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6574                            *                                                                   *A03
     6575                            *                                  WRITE ZEROS TO SUBROUTINE FAM 7, *A03
     6576                            *                                   BITS 48-95                      *A03
     6577   01 02376    187001C3 A   T1870    GEN,16,10,6    X'1870',7,T1880-%                           *A03
     6578   01 02377    32803645              LW,R8    =X'9C000000'      LOWER FAM CONTROL               *A03
     6579   01 02378    68002346              B        T1740B                                            *A03
     6580                            *                                                                   *A03
     6581                            *                                  WRITE ZEROS TO SUBROUTINE FAM 8, *A03
     6582                            *                                   BITS 0-47                       *A03
     6583   01 02379    18802143 A   T1880    GEN,16,10,6    X'1880',X'85',T1890-%                       *A03
     6584   01 0237A    32803646              LW,R8    =X'A2000000'      UPPER FAM CONTROL               *A03
     6585   01 0237B    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6586                            *                                                                   *A03
     6587                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 8, *A03
     6588                            *                                   BITS 48-95                      *A03
     6589   01 0237C    18902143 A   T1890    GEN,16,10,6    X'1890',X'85',T1900-%                       *A03
     6590   01 0237D    32803608              LW,R8    =X'A0000000'      LOWER FAM CONTROL               *A03
     6591   01 0237E    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6592                            *                                                                   *A03
     6593                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 9, *A03
     6594                            *                                   BITS 0-47                       *A03
     6595   01 0237F    19002143 A   T1900    GEN,16,10,6    X'1900',X'85',T1910-%                       *A03
     6596   01 02380    32803647              LW,R8    =X'A6000000'      UPPER FAM CONTROL               *A03
     6597   01 02381    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6598                            *                                                                   *A03
     6599                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 9, *A03
     6600                            *                                   BITS 48-95                      *A03
     6601   01 02382    19102143 A   T1910    GEN,16,10,6    X'1910',X'85',T1920-%                       *A03
     6602   01 02383    3280360A              LW,R8    =X'A4000000'      LOWER FAM CONTROL               *A03
     6603   01 02384    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6604                            *                                                                   *A03
     6605                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 10,*A03
     6606                            *                                   BITS 0-47                       *A03
     6607   01 02385    19202143 A   T1920    GEN,16,10,6    X'1920',X'85',T1930-%                       *A03
     6608   01 02386    32803648              LW,R8    =X'AA000000'      UPPER FAM CONTROL               *A03
     6609   01 02387    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6610                            *                                                                   *A03
     6611                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 10,*A03
     6612                            *                                   BITS 48-95                      *A03
     6613   01 02388    19302143 A   T1930    GEN,16,10,6    X'1930',X'85',T1940-%                       *A03
     6614   01 02389    32803649              LW,R8    =X'A8000000'      LOWER FAM CONTROL               *A03
     6615   01 0238A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6616                            *                                                                   *A03
     6617                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 11,*A03
     6618                            *                                   BITS 0-47                       *A03
     6619   01 0238B    19402143 A   T1940    GEN,16,10,6    X'1940',X'85',T1950-%                       *A03
     6620   01 0238C    3280364A              LW,R8    =X'AE000000'      UPPER FAM CONTROL               *A03
     6621   01 0238D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6622                            *                                                                   *A03
     6623                            *                                  WRITE ZEROS TO SUBROUTINE FAM 11,*A03
     6624                            *                                   BITS 48-95                      *A03
     6625   01 0238E    19502143 A   T1950    GEN,16,10,6    X'1950',X'85',T1960-%                       *A03
     6626   01 0238F    3280364B              LW,R8    =X'AC000000'      LOWER FAM CONTROL               *A03
     6627   01 02390    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6628                            *                                                                   *A03
     6629                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 12,*A03
     6630                            *                                   BITS 0-47                       *A03
     6631   01 02391    19602143 A   T1960    GEN,16,10,6    X'1960',X'85',T1970-%                       *A03
     6632   01 02392    3280364C              LW,R8    =X'B2000000'      UPPER FAM CONTROL               *A03
     6633   01 02393    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6634                            *                                                                   *A03
     6635                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 12,*A03
     6636                            *                                   BITS 48-95                      *A03
     6637   01 02394    19702143 A   T1970    GEN,16,10,6    X'1970',X'85',T1980-%                       *A03
     6638   01 02395    3280364D              LW,R8    =X'B0000000'      LOWER FAM CONTROL               *A03
     6639   01 02396    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6640                            *                                                                   *A03
     6641                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 13,*A03
     6642                            *                                   BITS 0-47                       *A03
     6643   01 02397    19802143 A   T1980    GEN,16,10,6    X'1980',X'85',T1990-%                       *A03
     6644   01 02398    3280364E              LW,R8    =X'B6000000'      UPPER FAM CONTROL               *A03
     6645   01 02399    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6646                            *                                                                   *A03
     6647                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 13,*A03
     6648                            *                                   BITS 48-95                      *A03
     6649   01 0239A    19902143 A   T1990    GEN,16,10,6    X'1990',X'85',T2000-%                       *A03
     6650   01 0239B    3280361E              LW,R8    =X'B4000000'      LOWER FAM CONTROL               *A03
     6651   01 0239C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6652                            *                                                                   *A03
     6653                            *                                  WRITE ZEROS TO SUBROUTINE FAM 14,*A03
     6654   01 0239D    20002143 A   T2000    GEN,16,10,6    X'2000',X'85',T2010-%                       *A03
     6655   01 0239E    3280364F              LW,R8    =X'BA000000'      UPPER FAM CONTROL               *A03
     6656   01 0239F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6657                            *                                                                   *A03
     6658                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 14,*A03
     6659                            *                                   BITS 48-95                      *A03
     6660   01 023A0    20102143 A   T2010    GEN,16,10,6    X'2010',X'85',T2020-%                       *A03
     6661   01 023A1    32803650              LW,R8    =X'B8000000'      LOWER FAM CONTROL               *A03
     6662   01 023A2    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6663                            *                                                                   *A03
     6664                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 15,*A03
     6665                            *                                   BITS 0-47                       *A03
     6666   01 023A3    20202143 A   T2020    GEN,16,10,6    X'2020',X'85',T2030-%                       *A03
     6667   01 023A4    32803651              LW,R8    =X'BE000000'      UPPER FAM CONTROL               *A03
     6668   01 023A5    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6669                            *                                                                   *A03
     6670                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 15,*A03
     6671                            *                                   BITS 48-95                      *A03
     6672   01 023A6    20302143 A   T2030    GEN,16,10,6    X'2030',X'85',T2040-%                       *A03
     6673   01 023A7    32803652              LW,R8    =X'BC000000'      LOWER FAM CONTROL               *A03
     6674   01 023A8    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6675                            *                                                                   *A03
     6676                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 16,*A03
     6677                            *                                   BITS 0-47                       *A03
     6678   01 023A9    20401143 A   T2040    GEN,16,10,6    X'2040',X'45',T2050-%                       *A03
     6679   01 023AA    32803653              LW,R8    =X'C2000000'      UPPER FAM CONTROL               *A03
     6680   01 023AB    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6681                            *                                                                   *A03
     6682                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 16,*A03
     6683                            *                                   BITS 48-95                      *A03
     6684   01 023AC    20501143 A   T2050    GEN,16,10,6    X'2050',X'45',T2060-%                       *A03
     6685   01 023AD    328035D1              LW,R8    =X'C0000000'      LOWER FAM CONTROL               *A03
     6686   01 023AE    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6687                            *                                                                   *A03
     6688                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 17,*A03
     6689                            *                                   BITS 0-47                       *A03
     6690   01 023AF    20601143 A   T2060    GEN,16,10,6    X'2060',X'45',T2070-%                       *A03
     6691   01 023B0    32803654              LW,R8    =X'C6000000'      UPPER FAM CONTROL               *A03
     6692   01 023B1    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6693                            *                                                                   *A03
     6694                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 17,*A03
     6695                            *                                   BITS 48-95                      *A03
     6696   01 023B2    20701143 A   T2070    GEN,16,10,6    X'2070',X'45',T2080-%                       *A03
     6697   01 023B3    32803655              LW,R8    =X'C4000000'      LOWER FAM CONTROL               *A03
     6698   01 023B4    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6699                            *                                                                   *A03
     6700                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 18,*A03
     6701                            *                                   BITS 0-47                       *A03
     6702   01 023B5    20801143 A   T2080    GEN,16,10,6    X'2080',X'45',T2090-%                       *A03
     6703   01 023B6    32803656              LW,R8    =X'CA000000'      UPPER FAM CONTROL               *A03
     6704   01 023B7    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6705                            *                                                                   *A03
     6706                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 18,*A03
     6707                            *                                   BITS 48-95                      *A03
     6708   01 023B8    20901143 A   T2090    GEN,16,10,6    X'2090',X'45',T2100-%                       *A03
     6709   01 023B9    32803657              LW,R8    =X'C8000000'      LOWER FAM CONTROL               *A03
     6710   01 023BA    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6711                            *                                                                   *A03
     6712                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 19,*A03
     6713                            *                                   BITS 0-47                       *A03
     6714   01 023BB    21001143 A   T2100    GEN,16,10,6    X'2100',X'45',T2110-%                       *A03
     6715   01 023BC    32803658              LW,R8    =X'CE000000'      UPPER FAM CONTROL               *A03
     6716   01 023BD    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6717                            *                                                                   *A03
     6718                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 19,*A03
     6719                            *                                   BITS 48-95                      *A03
     6720   01 023BE    21101143 A   T2110    GEN,16,10,6    X'2110',X'45',T2120-%                       *A03
     6721   01 023BF    32803659              LW,R8    =X'CC000000'      LOWER FAM CONTROL               *A03
     6722   01 023C0    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6723                            *                                                                   *A03
     6724                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 20,*A03
     6725                            *                                   BITS 0-47                       *A03
     6726   01 023C1    21201143 A   T2120    GEN,16,10,6    X'2120',X'45',T2130-%                       *A03
     6727   01 023C2    3280365A              LW,R8    =X'D2000000'      UPPER FAM CONTROL               *A03
     6728   01 023C3    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6729                            *                                                                   *A03
     6730                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 20,*A03
     6731                            *                                   BITS 48-95                      *A03
     6732   01 023C4    21301143 A   T2130    GEN,16,10,6    X'2130',X'45',T2140-%                       *A03
     6733   01 023C5    3280365B              LW,R8    =X'D0000000'      LOWER FAM CONTROL               *A03
     6734   01 023C6    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6735                            *                                                                   *A03
     6736                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 21,*A03
     6737                            *                                   BITS 0-47                       *A03
     6738   01 023C7    21401143 A   T2140    GEN,16,10,6    X'2140',X'45',T2150-%                       *A03
     6739   01 023C8    3280365C              LW,R8    =X'D6000000'      UPPER FAM CONTROL               *A03
     6740   01 023C9    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6741                            *                                                                   *A03
     6742                            *                                   WRITE ZEROS TO SUBCHANNEL FAM 21,
     6743                            *                                   BITS 48-95                      *A03
     6744   01 023CA    21501143 A   T2150    GEN,16,10,6    X'2150',X'45',T2160-%                       *A03
     6745   01 023CB    3280365D              LW,R8    =X'D4000000'      LOWER FAM CONTROL               *A03
     6746   01 023CC    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6747                            *                                                                   *A03
     6748                            *                                   WRITE ZEROS TO SUBCHANNEL FAM 22,
     6749                            *                                   BITS 0-47                       *A03
     6750   01 023CD    21601143 A   T2160    GEN,16,10,6    X'2160',X'45',T2170-%                       *A03
     6751   01 023CE    3280365E              LW,R8    =X'DA000000'      UPPER FAM CONTROL               *A03
     6752   01 023CF    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6753                            *                                                                   *A03
     6754                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 22,*A03
     6755                            *                                   BITS 48-95                      *A03
     6756   01 023D0    21701143 A   T2170    GEN,16,10,6    X'2170',X'45',T2180-%                       *A03
     6757   01 023D1    3280365F              LW,R8    =X'D8000000'      LOWER FAM CONTROL               *A03
     6758   01 023D2    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6759                            *                                                                   *A03
     6760                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 23 *A03
     6761                            *                                   BITS 0-47                       *A03
     6762   01 023D3    21801143 A   T2180    GEN,16,10,6    X'2180',X'45',T2190-%                       *A03
     6763   01 023D4    32803660              LW,R8    =X'DE000000'      UPPER FAM CONTROL               *A03
     6764   01 023D5    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6765                            *                                                                   *A03
     6766                            *                                  WRITE ZEROS TO SUBCHANNEL FAM 23,*A03
     6767                            *                                   BITS 48-95                      *A03
     6768   01 023D6    21901143 A   T2190    GEN,16,10,6    X'2190',X'45',T2200-%                       *A03
     6769   01 023D7    32803661              LW,R8    =X'DC000000'      LOWER FAM CONTROL               *A03
     6770   01 023D8    68002346              B        T1740B            TO SUBROUTINE                   *A03
     6771                            *                                                                   *A03
     6772                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 0 *A03
     6773   01 023D9    220001F0 A   T2200    GEN,16,10,6    X'2200',7,T2210-%                           *A03
     6774   01 023DA    328035C2              LW,R8    =X'2000000'       SUBCHANNEL 0, UPPER FAM         *A03
     6775         01 023DB           T2200B   EQU      %                 TO SUBROUTINE                   *A03
     6776   01 023DB    330012C8              MTW,0    CHBCTRL           SKIP OPTIONAL SUBCHANNELS WHEN  *A03
     6777   01 023DC    693023E3              BCS,3    T2200D-1           EXERCISING CHANNEL B           *A03
     6778   01 023DD    226FFFE8 A            LI,R6    -24                                               *A03
     6779   01 023DE    330012ED              MTW,0    FAM3OPT           24 SUBCHANNELS (OPTIONAL)       *A03
     6780   01 023DF    693023E4              BCS,3    T2200D                                            *A03
     6781   01 023E0    226FFFF0 A            LI,R6    -16               16 SUBCHANNELS (OPTIONAL)       *A03
     6782   01 023E1    330012EC              MTW,0    FAM2OPT                                           *A03
     6783   01 023E2    693023E4              BCS,3    T2200D                                            *A03
     6784   01 023E3    226FFFF8 A            LI,R6    -8                8 SUBCHANNELS                   *A03
     6785   01 023E4    35600007 A   T2200D   STW,R6   R7                SAVE INDEX                      *A03
     6786   01 023E5    12A012EE              LD,R10   FAMPAT1           ZEROS PATTERN                   *A03
     6787   01 023E6    EDA01299              WD,R10   *GP09             WRITE ZEROS TO LOWER FAM        *A03
     6788   01 023E7    EDB01299              WD,R11   *GP09             WRITE ZEROS TO UPPER FAM        *A03
     6789   01 023E8    10A012F2              AD,R10   FAMPAT3           ONE BIT TO ADDRESS FIELDS       A03
     6790   01 023E9    657023E6              BIR,R7   T2200D+2          WRITE IN ALL AVAILABLE SUBCHANNELS
     6791   01 023EA    329035DB              LW,R9    =X'80000000'                                      *A03
     6792   01 023EB    49900008 A            OR,R9    R8                                                *A03
     6793   01 023EC    ED901299              WD,R9    *GP09             WRITE TO TEST LOCATION,UPPER OR *A03
     6794   01 023ED    32700006 A            LW,R7    R6                 LOWER.  RESTORE FAM LOOP COUNT.*A03
     6795   01 023EE    32200008 A            LW,R2    R8                                                *A03
     6796   01 023EF    32303662              LW,R3    =X'3C000000'      ADDRESS COMPARE MASK
     6797   01 023F0    22400000 A            LI,R4    0                 NO
     6798   01 023F1    325035D5              LW,R5    =X'FFFFFF'        DATA COMPARE MASK
     6799   01 023F2    22A00000 A            LI,R10   0                                                 *A03
     6800   01 023F3    32C035C2              LW,R12   =X'2000000'                                       *A03
     6801   01 023F4    4520000A A   T2200F   CS,R2    R10               COMPARE ADDRESS FIELD ONLY      *A03
     6802   01 023F5    683023FF              BCR,3    T2200J                                            *A03
     6803   01 023F6    ED001297              WD,0     *SYNC             ITERATIVE SYNC INSTRUCTION      *A03
     6804   01 023F7    EDA01299              WD,R10   *GP09             LOAD FAM SUBCHANNEL TO C,BITS 0-23
     6805   01 023F8    EDC01299              WD,R12   *GP09              & BITS 24-47                   *A03
     6806   01 023F9    EC90129A              RD,R9    *GP10             READ C REG, 0-23                *A03
     6807   01 023FA    ECB0129B              RD,R11   *GP11             READ C REG, 24-47               *A03
     6808   01 023FB    45400009 A            CS,R4    R9                BITS 0-7 = ADR, BITS 8-31 = 0   *A03
     6809   01 023FC    6930240C              BCS,3    T2210H                                            *A03
     6810   01 023FD    4540000B A            CS,R4    R11               BITS 0-5 = PARITY, BITS 8-31 = 0*A03
     6811   01 023FE    6930240C              BCS,3    T2210H                                            *A03
     6812   01 023FF    30A035BE     T2200J   AW,R10   =X'4000000'                                       *A03
     6813   01 02400    30C035BE              AW,R12   =X'4000000'                                       *A03
     6814   01 02401    657023F4              BIR,R7   T2200F                                            *A03
     6815   01 02402    32900008 A            LW,R9    R8                FAM READ CONTROL BITS           *A03
     6816   01 02403    ED901299              WD,R9    *GP09             READ SUBCHANNEL FAM TO C REG    *A03
     6817   01 02404    EC90129A              RD,R9    *GP10             READ C REG                      *A03
     6818   01 02405    72200008 A            LB,R2    R8                ALIGN  ADR FIELD TO READ FORMAT *A03
     6819   01 02406    2520007E A            SLS,R2   -2                                                *A03
     6820   01 02407    75200008 A            STB,R2   R8                                                *A03
     6821   01 02408    68001A60              B        CREQUAL           SHOULD BE EQUAL                 *A03
     6822                            *                                                                   *A03
     6823                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 0 *A03
     6824   01 02409    221001D3 A   T2210    GEN,16,10,6    X'2210',7,T2220-%                           *A03
     6825   01 0240A    32800000 A            LW,R8    0                 SUBCHANNEL 0, LOWER FAM         *A03
     6826   01 0240B    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6827   01 0240C    331012EB     T2210H   MTW,1    FAMBAD            SET FAM FAULT INDICATOR         *A03
     6828   01 0240D    33101344              MTW,1    PNTDBL                                            *A03
     6829   01 0240E    52200008 A            LH,R2    R8
     6830   01 0240F    2520007E A            SLS,R2   -2
     6831   01 02410    4B2035C1              AND,R2   =X'1F00'
     6832   01 02411    352012E8              STW,R2   FAMADR            SAVE CURRENT TEST ADDRESS
     6833   01 02412    3280000A A            LW,R8    R10               ADDRESS & DATA                  *A03
     6834   01 02413    32200008 A            LW,R2    R8                TEST ADDRESS
     6835   01 02414    7220000B A            LB,R2    R11               MAKE PARITY FIELDS EQUAL        *A03
     6836   01 02415    7520000A A            STB,R2   R10                                               *A03
     6837   01 02416    72200008 A            LB,R2    R8                ALIGN ADDRESS BITS TO FAM READ  *A03
     6838   01 02417    2520007E A            SLS,R2   -2                 FORMAT                         *A03
     6839   01 02418    75200008 A            STB,R2   R8                                                *A03
     6840   01 02419    492012E8              OR,R2    FAMADR
     6841   01 0241A    552012E8              STH,R2   FAMADR
     6842   01 0241B    680013D0              B        BAD               REPORT ERROR                    *A03
     6843                            *                                                                   *A03
     6844                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 1 *A03
     6845   01 0241C    222001C3 A   T2220    GEN,16,10,6    X'2220',7,T2230-%                           *A03
     6846   01 0241D    32803663              LW,R8    =X'6FFFFFF'       SUBCHANNEL 1, UPPER FAM         *A03
     6847   01 0241E    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6848                            *                                                                   *A03
     6849                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 1 *A03
     6850   01 0241F    223001C3 A   T2230    GEN,16,10,6    X'2230',7,T2240-%                           *A03
     6851   01 02420    32803664              LW,R8    =X'4010101'       SUBCHANNEL 1, LOWER FAM         *A03
     6852   01 02421    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6853                            *                                                                   *A03
     6854                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 2 *A03
     6855   01 02422    224001C3 A   T2240    GEN,16,10,6    X'2240',7,T2250-%                           *A03
     6856   01 02423    32803665              LW,R8    =X'AFEFEFE'       SUBCHANNEL 2, UPPER FAM         *A03
     6857   01 02424    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6858                            *                                                                   *A03
     6859                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 2 *A03
     6860   01 02425    225001C3 A   T2250    GEN,16,10,6    X'2250',7,T2260-%                           *A03
     6861   01 02426    32803666              LW,R8    =X'8020202'       SUBCHANNEL 2, LOWER FAM         *A03
     6862   01 02427    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6863                            *                                                                   *A03
     6864                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 3 *A03
     6865   01 02428    226001C3 A   T2260    GEN,16,10,6    X'2260',7,T2270-%                           *A03
     6866   01 02429    32803667              LW,R8    =X'EFDFDFD'       SUBCHANNEL 3, UPPER FAM         *A03
     6867   01 0242A    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6868                            *                                                                   *A03
     6869                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 3 *A03
     6870   01 0242B    227001C3 A   T2270    GEN,16,10,6    X'2270',7,T2280-%                           *A03
     6871   01 0242C    32803668              LW,R8    =X'C030303'       SUBCHANNEL 3, LOWER FAM         *A03
     6872   01 0242D    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6873                            *                                                                   *A03
     6874                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 4 *A03
     6875   01 0242E    228001C3 A   T2280    GEN,16,10,6    X'2280',7,T2290-%                           *A03
     6876   01 0242F    32803669              LW,R8    =X'12FCFCFC'      SUBCHANNEL 4, UPPER FAM         *A03
     6877   01 02430    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6878                            *                                                                   *A03
     6879                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 4 *A03
     6880   01 02431    229001C3 A   T2290    GEN,16,10,6    X'2290',7,T2300-%                           *A03
     6881   01 02432    3280366A              LW,R8    =X'10040404'      SUBCHANNEL 4, LOWER FAM         *A03
     6882   01 02433    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6883                            *                                                                   *A03
     6884                            *                                                                   *A03
     6885                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 5 *A03
     6886   01 02434    230001C3 A   T2300    GEN,16,10,6    X'2300',7,T2310-%                           *A03
     6887   01 02435    3280366B              LW,R8    =X'16FBFBFB'      SUBCHANNEL 5, UPPER FAM         *A03
     6888   01 02436    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6889                            *                                                                   *A03
     6890                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 5 *A03
     6891   01 02437    231001C3 A   T2310    GEN,16,10,6    X'2310',7,T2320-%                           *A03
     6892   01 02438    3280366C              LW,R8    =X'14050505'      SUBCHANNEL 5, LOWER FAM         *A03
     6893   01 02439    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6894                            *                                                                   *A03
     6895                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 6 *A03
     6896   01 0243A    232001C3 A   T2320    GEN,16,10,6    X'2320',7,T2330-%                           *A03
     6897   01 0243B    3280366D              LW,R8    =X'1AFAFAFA'      SUBCHANNEL 6, UPPER FAM         *A03
     6898   01 0243C    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6899                            *                                                                   *A03
     6900                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 6 *A03
     6901   01 0243D    233001C3 A   T2330    GEN,16,10,6    X'2330',7,T2340-%                           *A03
     6902   01 0243E    3280366E              LW,R8    =X'18060606'      SUBCHANNEL 6, LOWER FAM         *A03
     6903   01 0243F    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6904                            *                                                                   *A03
     6905                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 7 *A03
     6906   01 02440    234001C3 A   T2340    GEN,16,10,6    X'2340',7,T2350-%                           *A03
     6907   01 02441    3280366F              LW,R8    =X'1EF9F9F9'      SUBCHANNEL 7, UPPER FAM         *A03
     6908   01 02442    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6909                            *                                                                   *A03
     6910                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 7 *A03
     6911   01 02443    235001C3 A   T2350    GEN,16,10,6    X'2350',7,T2360-%                           *A03
     6912   01 02444    32803670              LW,R8    =X'1C070707'      SUBCHANNEL 7, LOWER FAM         *A03
     6913   01 02445    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6914                            *                                                                   *A03
     6915                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 8 *A03
     6916   01 02446    23602143 A   T2360    GEN,16,10,6    X'2360',X'85',T2370-%                       *A03
     6917   01 02447    32803671              LW,R8    =X'22F8F8F8'      SUBCHANNEL 8, UPPER FAM         *A03
     6918   01 02448    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6919                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 8 *A03
     6920   01 02449    23702143 A   T2370    GEN,16,10,6    X'2370',X'85',T2380-%                       *A03
     6921   01 0244A    32803672              LW,R8    =X'20080808'      SUBCHANNEL 8, LOWER FAM         *A03
     6922   01 0244B    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6923                            *                                                                   *A03
     6924                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 9 *A03
     6925   01 0244C    23802143 A   T2380    GEN,16,10,6    X'2380',X'85',T2390-%                       *A03
     6926   01 0244D    32803673              LW,R8    =X'26F7F7F7'      SUBCHANNEL 9, UPPER FAM         *A03
     6927   01 0244E    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6928                            *                                                                   *A03
     6929                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 9 *A03
     6930   01 0244F    23902143 A   T2390    GEN,16,10,6    X'2390',X'85',T2400-%                       *A03
     6931   01 02450    32803674              LW,R8    =X'24090909'      SUBCHANNEL 9, LOWER FAM         *A03
     6932   01 02451    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6933                            *                                                                   *A03
     6934                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 10*A03
     6935   01 02452    24002143 A   T2400    GEN,16,10,6    X'2400',X'85',T2410-%                       *A03
     6936   01 02453    32803675              LW,R8    =X'2AF6F6F6'      SUBCHANNEL 10, UPPER FAM        *A03
     6937   01 02454    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6938                            *                                                                   *A03
     6939                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 10*A03
     6940   01 02455    24102142 A   T2410    GEN,16,10,6    X'2410',X'85',T2420-%                       *A03
     6941   01 02456    32803676              LW,R8    =X'280A0A0A'      SUBCHANNEL 10, FAM LOWER        *A03
     6942                            *                                                                   *A03
     6943                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 11*A03
     6944   01 02457    24202143 A   T2420    GEN,16,10,6    X'2420',X'85',T2430-%                       *A03
     6945   01 02458    32803677              LW,R8    =X'2EF5F5F5'      SUBCHANNEL 11, UPPER FAM        *A03
     6946   01 02459    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6947                            *                                                                   *A03
     6948                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 11*A03
     6949   01 0245A    24302143 A   T2430    GEN,16,10,6    X'2430',X'85',T2440-%                       *A03
     6950   01 0245B    32803678              LW,R8    =X'2C0B0B0B'      SUBCHANNEL 11, LOWER FAM        *A03
     6951   01 0245C    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6952                            *                                                                   *A03
     6953                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 12*A03
     6954   01 0245D    24402143 A   T2440    GEN,16,10,6    X'2440',X'85',T2450-%                       *A03
     6955   01 0245E    32803679              LW,R8    =X'32F4F4F4'      SUBCHANNEL 12, UPPER FAM        *A03
     6956   01 0245F    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6957                            *                                                                   *A03
     6958                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 12*A03
     6959   01 02460    24502143 A   T2450    GEN,16,10,6    X'2450',X'85',T2460-%                       *A03
     6960   01 02461    3280367A              LW,R8    =X'300C0C0C'      SUBCHANNEL 12, LOWER FAM        *A03
     6961   01 02462    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6962                            *                                                                   *A03
     6963                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 13*A03
     6964   01 02463    24602143 A   T2460    GEN,16,10,6    X'2460',X'85',T2470-%                       *A03
     6965   01 02464    3280367B              LW,R8    =X'36F3F3F3'      SUBCHANNEL 13, UPPER FAM        *A03
     6966   01 02465    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6967                            *                                                                   *A03
     6968                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 13*A03
     6969   01 02466    24702143 A   T2470    GEN,16,10,6    X'2470',X'85',T2480-%                       *A03
     6970   01 02467    3280367C              LW,R8    =X'340D0D0D'      SUBCHANNEL 13, LOWER FAM        *A03
     6971   01 02468    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6972                            *                                                                   *A03
     6973                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 14*A03
     6974   01 02469    24802143 A   T2480    GEN,16,10,6    X'2480',X'85',T2490-%                       *A03
     6975   01 0246A    3280367D              LW,R8    =X'3AF2F2F2'      SUBCHANNEL 14, UPPER FAM        *A03
     6976   01 0246B    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6977                            *                                                                   *A03
     6978                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 14*A03
     6979   01 0246C    24902143 A   T2490    GEN,16,10,6    X'2490',X'85',T2500-%                       *A03
     6980   01 0246D    3280367E              LW,R8    =X'380E0E0E'      SUBCHANNEL 14, LOWER FAM        *A03
     6981   01 0246E    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6982                            *                                                                   *A03
     6983                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 15*A03
     6984   01 0246F    25002143 A   T2500    GEN,16,10,6    X'2500',X'85',T2510-%                       *A03
     6985   01 02470    3280367F              LW,R8    =X'3EF1F1F1'      SUBCHANNEL 15, UPPER FAM        *A03
     6986   01 02471    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6987                            *                                                                   *A03
     6988                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 15*A03
     6989   01 02472    25102143 A   T2510    GEN,16,10,6    X'2510',X'85',T2520-%                       *A03
     6990   01 02473    32803680              LW,R8    =X'3C0F0F0F'      SUBCHANNEL 15, LOWER FAM        *A03
     6991   01 02474    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6992                            *                                                                   *A03
     6993                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 16*A03
     6994   01 02475    25201143 A   T2520    GEN,16,10,6    X'2520',X'45',T2530-%                       *A03
     6995   01 02476    32803681              LW,R8    =X'42F0F0F0'      SUBCHANNEL 16, UPPER FAM        *A03
     6996   01 02477    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     6997                            *                                                                   *A03
     6998                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 16*A03
     6999   01 02478    25301143 A   T2530    GEN,16,10,6    X'2530',X'45',T2540-%                       *A03
     7000   01 02479    32803682              LW,R8    =X'40101010'      SUBCHANNEL 16, LOWER FAM        *A03
     7001   01 0247A    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7002                            *                                                                   *A03
     7003                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 17*A03
     7004   01 0247B    25401143 A   T2540    GEN,16,10,6    X'2540',X'45',T2550-%                       *A03
     7005   01 0247C    32803683              LW,R8    =X'46EFEFEF'      SUBCHANNEL 17, UPPER FAM        *A03
     7006   01 0247D    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7007                            *                                                                   *A03
     7008                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 17*A03
     7009   01 0247E    25501143 A   T2550    GEN,16,10,6    X'2550',X'45',T2560-%                       *A03
     7010   01 0247F    32803684              LW,R8    =X'44111111'      SUBCHANNEL 17, LOWER FAM        *A03
     7011   01 02480    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7012                            *                                                                   *A03
     7013                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 18*A03
     7014   01 02481    25601143 A   T2560    GEN,16,10,6    X'2560',X'45',T2570-%                       *A03
     7015   01 02482    32803685              LW,R8    =X'4AEEEEEE'      SUBCHANNEL 18, UPPER            *A03
     7016   01 02483    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7017                            *                                                                   *A03
     7018                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 18*A03
     7019   01 02484    25701143 A   T2570    GEN,16,10,6    X'2570',X'45',T2580-%                       *A03
     7020   01 02485    32803686              LW,R8    =X'48121212'      SUBCHANNEL 18, LOWER FAM        *A03
     7021   01 02486    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7022                            *                                                                   *A03
     7023                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 19*A03
     7024   01 02487    25801143 A   T2580    GEN,16,10,6    X'2580',X'45',T2590-%                       *A03
     7025   01 02488    32803687              LW,R8    =X'4EEDEDED'      SUBCHANNEL 19, UPPER FAM        *A03
     7026   01 02489    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7027                            *                                                                   *A03
     7028                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 19*A03
     7029   01 0248A    25901143 A   T2590    GEN,16,10,6    X'2590',X'45',T2600-%                       *A03
     7030   01 0248B    32803688              LW,R8    =X'4C131313'      SUBCHANNEL 19, LOWER FAM        *A03
     7031   01 0248C    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7032                            *                                                                   *A03
     7033                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 20*A03
     7034   01 0248D    26001143 A   T2600    GEN,16,10,6    X'2600',X'45',T2610-%                       *A03
     7035   01 0248E    32803689              LW,R8    =X'52ECECEC'      SUBCHANNEL 20, UPPER FAM        *A03
     7036   01 0248F    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7037                            *                                                                   *A03
     7038                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 20*A03
     7039   01 02490    26101143 A   T2610    GEN,16,10,6    X'2610',X'45',T2620-%                       *A03
     7040   01 02491    3280368A              LW,R8    =X'50141414'      SUBCHANNEL 20, LOWER FAM        *A03
     7041   01 02492    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7042                            *                                                                   *A03
     7043                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 21*A03
     7044   01 02493    26201143 A   T2620    GEN,16,10,6    X'2620',X'45',T2630-%                       *A03
     7045   01 02494    3280368B              LW,R8    =X'56EBEBEB'      SUBCHANNEL 21, UPPER FAM        *A03
     7046   01 02495    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7047                            *                                                                   *A03
     7048                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 21*A03
     7049   01 02496    26301143 A   T2630    GEN,16,10,6    X'2630',X'45',T2640-%                       *A03
     7050   01 02497    3280368C              LW,R8    =X'54151515'      SUBCHANNEL 21, LOWER FAM        *A03
     7051   01 02498    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7052                            *                                                                   *A03
     7053                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 22*A03
     7054   01 02499    26401143 A   T2640    GEN,16,10,6    X'2640',X'45',T2650-%                       *A03
     7055   01 0249A    3280368D              LW,R8    =X'5AEAEAEA'      SUBCHANNEL 22, UPPER FAM        *A03
     7056   01 0249B    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7057                            *                                                                   *A03
     7058                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 22*A03
     7059   01 0249C    26501143 A   T2650    GEN,16,10,6    X'2650',X'45',T2660-%                       *A03
     7060   01 0249D    3280368E              LW,R8    =X'58161616'      SUBCHANNEL 22, LOWER FAM        *A03
     7061   01 0249E    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7062                            *                                                                   *A03
     7063                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 23*A03
     7064   01 0249F    26601143 A   T2660    GEN,16,10,6    X'2660',X'45',T2670-%                       *A03
     7065   01 024A0    3280368F              LW,R8    =X'5EE9E9E9'      SUBCHANNEL 23, UPPER FAM        *A03
     7066   01 024A1    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7067                            *                                                                   *A03
     7068                            *                                  SUBCHANNEL FAM ADDRESSING, LOC 23*A03
     7069   01 024A2    26701143 A   T2670    GEN,16,10,6    X'2670',X'45',T2700-%                       *A03
     7070   01 024A3    32803690              LW,R8    =X'5C171717'      SUBCHANNEL 23, LOWER FAM        *A03
     7071   01 024A4    680023DB              B        T2200B            TO SUBROUTINE                   *A03
     7072                            *                                                                   *A03
     7073                            *                                                                   *A03
     7074                            *                                  WRITE ALL F'S TO SUBCHANNEL 0,   *A03
     7075                            *                                   BITS 0-47 (UPPER)               *A03
     7076   01 024A5    270001C3 A   T2700    GEN,16,10,6    X'2700',7,T2710-%                           *A03
     7077   01 024A6    32803618              LW,R8    =X'82FFFFFF'      UPPER FAM CONTROL               *A03
     7078   01 024A7    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7079                            *                                                                   *A03
     7080                            *                                  WRITE ALL F'S TO SUBCHANNEL 0,   *A03
     7081                            *                                   BITS 48-95 (LOWER)              *A03
     7082   01 024A8    271001C3 A   T2710    GEN,16,10,6    X'2710',7,T2720-%                           *A03
     7083   01 024A9    32803616              LW,R8    =X'80FFFFFF'      LOWER FAM CONTROL               *A03
     7084   01 024AA    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7085                            *                                                                   *A03
     7086                            *                                  WRITE ALL F'S TO SUBCHANNEL 1,   *A03
     7087                            *                                   BITS 0-47 (UPPER)               *A03
     7088   01 024AB    272001C3 A   T2720    GEN,16,10,6    X'2720',7,T2730-%                           *A03
     7089   01 024AC    32803691              LW,R8    =X'86FFFFFF'      WRITE FAM UPPER CONTROL         *A03
     7090   01 024AD    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7091                            *                                                                   *A03
     7092                            *                                  WRITE ALL F'S TO SUBCHANNEL 1,   *A03
     7093                            *                                   BITS 48-95 (LOWER)              *A03
     7094   01 024AE    273001C3 A   T2730    GEN,16,10,6    X'2730',7,T2740-%                           *A03
     7095   01 024AF    32803692              LW,R8    =X'84FFFFFF'      WRITE FAM LOWER CONTROL         *A03
     7096   01 024B0    68002346              B        T1740B                                            *A03
     7097                            *                                  WRITE ALL F'S TO SUBCHANNEL 2,   *A03
     7098                            *                                   BITS 0-47 (UPPER)               *A03
     7099   01 024B1    274001C3 A   T2740    GEN,16,10,6    X'2740',7,T2750-%                           *A03
     7100   01 024B2    32803693              LW,R8    =X'8AFFFFFF'      UPPER FAM CONTROL               *A03
     7101   01 024B3    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7102                            *                                                                   *A03
     7103                            *                                  WRITE ALL F'S TO SUBCHANNEL 2,   *A03
     7104                            *                                   BITS 48-95 (LOWER)              *A03
     7105   01 024B4    275001C3 A   T2750    GEN,16,10,6    X'2750',7,T2760-%                           *A03
     7106   01 024B5    32803694              LW,R8    =X'88FFFFFF'      LOWER FAM CONTROL               *A03
     7107   01 024B6    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7108                            *                                                                   *A03
     7109                            *                                  WRITE ALL F'S TO SUBCHANNEL 3,   *A03
     7110                            *                                   BITS 0-47                       *A03
     7111   01 024B7    276001C3 A   T2760    GEN,16,10,6    X'2760',7,T2770-%                           *A03
     7112   01 024B8    32803695              LW,R8    =X'8EFFFFFF'      UPPER FAM CONTROL               *A03
     7113   01 024B9    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7114                            *                                                                   *A03
     7115                            *                                  WRITE ALL F'S TO SUBCHANNEL 3,   *A03
     7116                            *                                   BITS 48-95                      *A03
     7117   01 024BA    277001C3 A   T2770    GEN,16,10,6    X'2770',7,T2780-%                           *A03
     7118   01 024BB    32803696              LW,R8    =X'8CFFFFFF'      LOWER FAM CONTROL               *A03
     7119   01 024BC    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7120                            *                                                                   *A03
     7121                            *                                  WRITE ALL F'S TO SUBCHANNEL 4,   *A03
     7122                            *                                   BITS 0-47                       *A03
     7123   01 024BD    278001C3 A   T2780    GEN,16,10,6    X'2780',7,T2790-%                           *A03
     7124   01 024BE    32803697              LW,R8    =X'92FFFFFF'      UPPER FAM CONTROL               *A03
     7125   01 024BF    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7126                            *                                                                   *A03
     7127                            *                                  WRITE ALL F'S TO SUBCHANNEL 4,   *A03
     7128                            *                                   BITS 48-95                      *A03
     7129   01 024C0    279001C3 A   T2790    GEN,16,10,6    X'2790',7,T2800-%                           *A03
     7130   01 024C1    32803698              LW,R8    =X'90FFFFFF'      LOWER FAM CONTROL               *A03
     7131   01 024C2    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7132                            *                                                                   *A03
     7133                            *                                  WRITE ALL F'S TO SUBCHANNEL 5,   *A03
     7134                            *                                   BITS 0-47                       *A03
     7135   01 024C3    280001C3 A   T2800    GEN,16,10,6    X'2800',7,T2810-%                           *A03
     7136   01 024C4    32803699              LW,R8    =X'96FFFFFF'      UPPER  FAM CONTROL              *A03
     7137   01 024C5    68002346              B        T1740B                                            *A03
     7138                            *                                                                   *A03
     7139                            *                                  WRITE ALL F'S TO SUBCHANNEL 5,   *A03
     7140                            *                                   BITS 48-95                      *A03
     7141   01 024C6    281001C3 A   T2810    GEN,16,10,6    X'2810',7,T2820-%                           *A03
     7142   01 024C7    3280369A              LW,R8    =X'94FFFFFF'      LOWER FAM CONTROL               *A03
     7143   01 024C8    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7144                            *                                                                   *A03
     7145                            *                                  WRITE ALL F'S TO SUBCHANNEL 6,   *A03
     7146                            *                                   BITS 0-47                       *A03
     7147   01 024C9    282001C3 A   T2820    GEN,16,10,6    X'2820',7,T2830-%                           *A03
     7148   01 024CA    3280369B              LW,R8    =X'9AFFFFFF'      UPPER FAM CONTROL               *A03
     7149   01 024CB    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7150                            *                                                                   *A03
     7151                            *                                  WRITE ALL F'S TO SUBROUTINE 6,   *A03
     7152                            *                                   BITS 48-95                      *A03
     7153   01 024CC    283001C3 A   T2830    GEN,16,10,6    X'2830',7,T2840-%                           *A03
     7154   01 024CD    3280369C              LW,R8    =X'98FFFFFF'      LOWER FAM CONTROL               *A03
     7155   01 024CE    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7156                            *                                                                   *A03
     7157                            *                                  WRITE ALL F'S TO SUBROUTINE 7,   *A03
     7158                            *                                   BITS 0-47                       *A03
     7159   01 024CF    284001C3 A   T2840    GEN,16,10,6    X'2840',7,T2850-%                           *A03
     7160   01 024D0    3280369D              LW,R8    =X'9EFFFFFF'      UPPER FAM CONTROL               *A03
     7161   01 024D1    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7162                            *                                                                   *A03
     7163                            *                                  WRITE ALL F'S TO SUBROUTINE 7,   *A03
     7164                            *                                   BITS 48-95                      *A03
     7165   01 024D2    285001C3 A   T2850    GEN,16,10,6    X'2850',7,T2860-%                           *A03
     7166   01 024D3    3280369E              LW,R8    =X'9CFFFFFF'      LOWER FAM CONTROL               *A03
     7167   01 024D4    68002346              B        T1740B                                            *A03
     7168                            *                                                                   *A03
     7169                            *                                  WRITE ALL F'S TO SUBROUTINE 8,   *A03
     7170                            *                                   BITS 0-47                       *A03
     7171   01 024D5    28602143 A   T2860    GEN,16,10,6    X'2860',X'85',T2870-%                       *A03
     7172   01 024D6    3280369F              LW,R8    =X'A2FFFFFF'      UPPER FAM CONTROL               *A03
     7173   01 024D7    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7174                            *                                                                   *A03
     7175                            *                                  WRITE ALL F'S TO SUBCHANNEL 8,   *A03
     7176                            *                                   BITS 48-95                      *A03
     7177   01 024D8    28702143 A   T2870    GEN,16,10,6    X'2870',X'85',T2880-%                       *A03
     7178   01 024D9    328036A0              LW,R8    =X'A0FFFFFF'      LOWER FAM CONTROL               *A03
     7179   01 024DA    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7180                            *                                                                   *A03
     7181                            *                                  WRITE ALL F'S TO SUBCHANNEL 9,   *A03
     7182                            *                                   BITS 0-47                       *A03
     7183   01 024DB    28802143 A   T2880    GEN,16,10,6    X'2880',X'85',T2890-%                       *A03
     7184   01 024DC    328036A1              LW,R8    =X'A6FFFFFF'      UPPER FAM CONTROL               *A03
     7185   01 024DD    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7186                            *                                                                   *A03
     7187                            *                                  WRITE ALL F'S TO SUBCHANNEL 9,   *A03
     7188                            *                                   BITS 48-95                      *A03
     7189   01 024DE    28902143 A   T2890    GEN,16,10,6    X'2890',X'85',T2900-%                       *A03
     7190   01 024DF    328036A2              LW,R8    =X'A4FFFFFF'      LOWER FAM CONTROL               *A03
     7191   01 024E0    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7192                            *                                                                   *A03
     7193                            *                                  WRITE ALL F'S TO SUBCHANNEL 10,  *A03
     7194                            *                                   BITS 0-47                       *A03
     7195   01 024E1    29002143 A   T2900    GEN,16,10,6    X'2900',X'85',T2910-%                       *A03
     7196   01 024E2    328036A3              LW,R8    =X'AAFFFFFF'      UPPER FAM CONTROL               *A03
     7197   01 024E3    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7198                            *                                                                   *A03
     7199                            *                                  WRITE ALL F'S TO SUBCHANNEL 10,  *A03
     7200                            *                                   BITS 48-95                      *A03
     7201   01 024E4    29102143 A   T2910    GEN,16,10,6    X'2910',X'85',T2920-%                       *A03
     7202   01 024E5    328036A4              LW,R8    =X'A8FFFFFF'      LOWER FAM CONTROL               *A03
     7203   01 024E6    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7204                            *                                                                   *A03
     7205                            *                                  WRITE ALL F'S TO SUBCHANNEL 11,  *A03
     7206                            *                                   BITS 0-47                       *A03
     7207   01 024E7    29202143 A   T2920    GEN,16,10,6    X'2920',X'85',T2930-%                       *A03
     7208   01 024E8    328036A5              LW,R8    =X'AEFFFFFF'      UPPER FAM CONTROL               *A03
     7209   01 024E9    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7210                            *                                                                   *A03
     7211                            *                                  WRITE ALL F'S TO SUBROUTINE 11,  *A03
     7212                            *                                   BITS 48-95                      *A03
     7213   01 024EA    29302143 A   T2930    GEN,16,10,6    X'2930',X'85',T2940-%                       *A03
     7214   01 024EB    328036A6              LW,R8    =X'ACFFFFFF'      LOWER FAM CONTROL               *A03
     7215   01 024EC    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7216                            *                                                                   *A03
     7217                            *                                  WRITE ALL F'S TO SUBCHANNEL 12,  *A03
     7218                            *                                   BITS 0-47                       *A03
     7219   01 024ED    29402143 A   T2940    GEN,16,10,6    X'2940',X'85',T2950-%                       *A03
     7220   01 024EE    328036A7              LW,R8    =X'B2FFFFFF'      UPPER FAM CONTROL               *A03
     7221   01 024EF    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7222                            *                                                                   *A03
     7223                            *                                  WRITE ALL F'S TO SUBCHANNEL 12,  *A03
     7224                            *                                   BITS 48-95                      *A03
     7225   01 024F0    29502143 A   T2950    GEN,16,10,6    X'2950',X'85',T2960-%                       *A03
     7226   01 024F1    328036A8              LW,R8    =X'B0FFFFFF'      LOWER FAM CONTROL               *A03
     7227   01 024F2    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7228                            *                                                                   *A03
     7229                            *                                  WRITE ALL F'S TO SUBCHANNEL 13,  *A03
     7230                            *                                   BITS 0-47                       *A03
     7231   01 024F3    29602143 A   T2960    GEN,16,10,6    X'2960',X'85',T2970-%                       *A03
     7232   01 024F4    328036A9              LW,R8    =X'B6FFFFFF'      UPPER FAM CONTROL               *A03
     7233   01 024F5    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7234                            *                                                                   *A03
     7235                            *                                  WRITE ALL F'S TO SUBCHANNEL 13,  *A03
     7236                            *                                   BITS 48-95                      *A03
     7237   01 024F6    29702143 A   T2970    GEN,16,10,6    X'2970',X'85',T2980-%                       *A03
     7238   01 024F7    328036AA              LW,R8    =X'B4FFFFFF'      LOWER FAM CONTROL               *A03
     7239   01 024F8    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7240                            *                                                                   *A03
     7241                            *                                  WRITE ALL F'S TO SUBROUTINE 14,  *A03
     7242   01 024F9    29802143 A   T2980    GEN,16,10,6    X'2980',X'85',T2990-%                       *A03
     7243   01 024FA    328036AB              LW,R8    =X'BAFFFFFF'      UPPER FAM CONTROL               *A03
     7244   01 024FB    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7245                            *                                                                   *A03
     7246                            *                                  WRITE ALL F'S TO SUBCHANNEL 14,  *A03
     7247                            *                                   BITS 48-95                      *A03
     7248   01 024FC    29902143 A   T2990    GEN,16,10,6    X'2990',X'85',T3000-%                       *A03
     7249   01 024FD    328036AC              LW,R8    =X'B8FFFFFF'      LOWER FAM CONTROL               *A03
     7250   01 024FE    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7251                            *                                                                   *A03
     7252                            *                                  WRITE ALL F'S TO SUBCHANNEL 15,  *A03
     7253                            *                                   BITS 0-47                       *A03
     7254   01 024FF    30002143 A   T3000    GEN,16,10,6    X'3000',X'85',T3010-%                       *A03
     7255   01 02500    328036AD              LW,R8    =X'BEFFFFFF'      UPPER FAM CONTROL               *A03
     7256   01 02501    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7257                            *                                                                   *A03
     7258                            *                                  WRITE ALL F'S TO SUBCHANNEL 15,  *A03
     7259                            *                                   BITS 48-95                      *A03
     7260   01 02502    30102143 A   T3010    GEN,16,10,6    X'3010',X'85',T3020-%                       *A03
     7261   01 02503    328036AE              LW,R8    =X'BCFFFFFF'      LOWER FAM CONTROL               *A03
     7262   01 02504    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7263                            *                                                                   *A03
     7264                            *                                  WRITE ALL F'S TO SUBCHANNEL 16,  *A03
     7265                            *                                   BITS 0-47                       *A03
     7266   01 02505    30201143 A   T3020    GEN,16,10,6    X'3020',X'45',T3030-%                       *A03
     7267   01 02506    328036AF              LW,R8    =X'C2FFFFFF'      UPPER FAM CONTROL               *A03
     7268   01 02507    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7269                            *                                                                   *A03
     7270                            *                                  WRITE ALL F'S TO SUBCHANNEL 16,  *A03
     7271                            *                                   BITS 48-95                      *A03
     7272   01 02508    30301143 A   T3030    GEN,16,10,6    X'3030',X'45',T3040-%                       *A03
     7273   01 02509    328036B0              LW,R8    =X'C0FFFFFF'      LOWER FAM CONTROL               *A03
     7274   01 0250A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7275                            *                                                                   *A03
     7276                            *                                  WRITE ALL F'S TO SUBCHANNEL 17,  *A03
     7277                            *                                   BITS 0-47                       *A03
     7278   01 0250B    30401143 A   T3040    GEN,16,10,6    X'3040',X'45',T3050-%                       *A03
     7279   01 0250C    328036B1              LW,R8    =X'C6FFFFFF'      UPPER FAM CONTROL               *A03
     7280   01 0250D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7281                            *                                                                   *A03
     7282                            *                                  WRITE ALL F'S TO SUBCHANNEL 17,  *A03
     7283                            *                                   BITS 48-95                      *A03
     7284   01 0250E    30501143 A   T3050    GEN,16,10,6    X'3050',X'45',T3060-%                       *A03
     7285   01 0250F    328036B2              LW,R8    =X'C4FFFFFF'      LOWER FAM CONTROL               *A03
     7286   01 02510    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7287                            *                                                                   *A03
     7288                            *                                  WRITE ALL F'S TO SUBCHANNEL 18,  *A03
     7289                            *                                   BITS 0-47                       *A03
     7290   01 02511    30601143 A   T3060    GEN,16,10,6    X'3060',X'45',T3070-%                       *A03
     7291   01 02512    328036B3              LW,R8    =X'CAFFFFFF'      UPPER FAM CONTROL               *A03
     7292   01 02513    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7293                            *                                                                   *A03
     7294                            *                                  WRITE ALL F'S TO SUBCHANNEL 18,  *A03
     7295                            *                                   BITS 48-95                      *A03
     7296   01 02514    30701143 A   T3070    GEN,16,10,6    X'3070',X'45',T3080-%                       *A03
     7297   01 02515    328036B4              LW,R8    =X'C8FFFFFF'      LOWER FAM CONTROL               *A03
     7298   01 02516    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7299                            *                                                                   *A03
     7300                            *                                  WRITE ALL F'S TO SUBCHANNEL 19,  *A03
     7301                            *                                   BITS 0-47                       *A03
     7302   01 02517    30801143 A   T3080    GEN,16,10,6    X'3080',X'45',T3090-%                       *A03
     7303   01 02518    328036B5              LW,R8    =X'CEFFFFFF'      UPPER FAM CONTROL               *A03
     7304   01 02519    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7305                            *                                                                   *A03
     7306                            *                                  WRITE ALL F'S TO SUBCHANNEL 19,  *A03
     7307                            *                                   BITS 48-95                      *A03
     7308   01 0251A    30901143 A   T3090    GEN,16,10,6    X'3090',X'45',T3100-%                       *A03
     7309   01 0251B    328036B6              LW,R8    =X'CCFFFFFF'      LOWER FAM CONTROL               *A03
     7310   01 0251C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7311                            *                                                                   *A03
     7312                            *                                  WRITE ALL F'S TO SUBCHANNEL 20,  *A03
     7313                            *                                   BITS 0-47                       *A03
     7314   01 0251D    31001143 A   T3100    GEN,16,10,6    X'3100',X'45',T3110-%                       *A03
     7315   01 0251E    328036B7              LW,R8    =X'D2FFFFFF'      UPPER FAM CONTROL               *A03
     7316   01 0251F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7317                            *                                                                   *A03
     7318                            *                                  WRITE ALL F'S TO SUBCHANNEL 20,  *A03
     7319                            *                                   BITS 48-95                      *A03
     7320   01 02520    31101143 A   T3110    GEN,16,10,6    X'3110',X'45',T3120-%                       *A03
     7321   01 02521    328036B8              LW,R8    =X'D0FFFFFF'      LOWER FAM CONTROL               *A03
     7322   01 02522    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7323                            *                                                                   *A03
     7324                            *                                  WRITE ALL F'S TO SUBCHANNEL 21,  *A03
     7325                            *                                   BITS 0-47                       *A03
     7326   01 02523    31201143 A   T3120    GEN,16,10,6    X'3120',X'45',T3130-%                       *A03
     7327   01 02524    328036B9              LW,R8    =X'D6FFFFFF'      UPPER FAM CONTROL               *A03
     7328   01 02525    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7329                            *                                                                   *A03
     7330                            *                                   WRITE ALL F'S TO SUBCHANNEL 21, *A03
     7331                            *                                   BITS 48-95                      *A03
     7332   01 02526    31301143 A   T3130    GEN,16,10,6    X'3130',X'45',T3140-%                       *A03
     7333   01 02527    328036BA              LW,R8    =X'D4FFFFFF'      LOWER FAM CONTROL               *A03
     7334   01 02528    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7335                            *                                                                   *A03
     7336                            *                                   WRITE ALL F'S TO SUBCHANNEL 22, *A03
     7337                            *                                   BITS 0-47                       *A03
     7338   01 02529    31401143 A   T3140    GEN,16,10,6    X'3140',X'45',T3150-%                       *A03
     7339   01 0252A    328036BB              LW,R8    =X'DAFFFFFF'      UPPER FAM CONTROL               *A03
     7340   01 0252B    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7341                            *                                                                   *A03
     7342                            *                                  WRITE ALL F'S TO SUBCHANNEL 22,  *A03
     7343                            *                                   BITS 48-95                      *A03
     7344   01 0252C    31501143 A   T3150    GEN,16,10,6    X'3150',X'45',T3160-%                       *A03
     7345   01 0252D    328036BC              LW,R8    =X'D8FFFFFF'      LOWER FAM CONTROL               *A03
     7346   01 0252E    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7347                            *                                                                   *A03
     7348                            *                                  WRITE ALL F'S TO SUBCHANNEL 23   *A03
     7349                            *                                   BITS 0-47                       *A03
     7350   01 0252F    31601143 A   T3160    GEN,16,10,6    X'3160',X'45',T3170-%                       *A03
     7351   01 02530    328036BD              LW,R8    =X'DEFFFFFF'      UPPER FAM CONTROL               *A03
     7352   01 02531    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7353                            *                                                                   *A03
     7354                            *                                  WRITE ALL F'S TO SUBCHANNEL 23,  *A03
     7355                            *                                   BITS 48-95                      *A03
     7356   01 02532    31701143 A   T3170    GEN,16,10,6    X'3170',X'45',T3180-%                       *A03
     7357   01 02533    328036BE              LW,R8    =X'DCFFFFFF'      LOWER FAM CONTROL               *A03
     7358   01 02534    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7359                            *                                                                   *A03
     7360                            *                                  WRITE ALL A'S TO SUBCHANNEL 0,   *A03
     7361                            *                                   BITS 0-47 (UPPER)               *A03
     7362   01 02535    318001C3 A   T3180    GEN,16,10,6    X'3180',7,T3190-%                           *A03
     7363   01 02536    328036BF              LW,R8    =X'82AAAAAA'      UPPER FAM CONTROL               *A03
     7364   01 02537    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7365                            *                                                                   *A03
     7366                            *                                  WRITE ALL A'S TO SUBCHANNEL 0,   *A03
     7367                            *                                   BITS 48-95 (LOWER)              *A03
     7368   01 02538    319001C3 A   T3190    GEN,16,10,6    X'3190',7,T3200-%                           *A03
     7369   01 02539    328036C0              LW,R8    =X'80AAAAAA'      LOWER FAM CONTROL               *A03
     7370   01 0253A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7371                            *                                                                   *A03
     7372                            *                                  WRITE ALL A'S TO SUBCHANNEL 1,   *A03
     7373                            *                                   BITS 0-47 (UPPER)               *A03
     7374   01 0253B    320001C3 A   T3200    GEN,16,10,6    X'3200',7,T3210-%                           *A03
     7375   01 0253C    328036C1              LW,R8    =X'86AAAAAA'      WRITE FAM UPPER CONTROL         *A03
     7376   01 0253D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7377                            *                                                                   *A03
     7378                            *                                  WRITE ALL A'S TO SUBCHANNEL 1,   *A03
     7379                            *                                   BITS 48-95 (LOWER)              *A03
     7380   01 0253E    321001C3 A   T3210    GEN,16,10,6    X'3210',7,T3220-%                           *A03
     7381   01 0253F    328036C2              LW,R8    =X'84AAAAAA'      WRITE FAM LOWER CONTROL         *A03
     7382   01 02540    68002346              B        T1740B                                            *A03
     7383                            *                                  WRITE ALL A'S TO SUBCHANNEL 2,   *A03
     7384                            *                                   BITS 0-47 (UPPER)               *A03
     7385   01 02541    322001C3 A   T3220    GEN,16,10,6    X'3220',7,T3230-%                           *A03
     7386   01 02542    328036C3              LW,R8    =X'8AAAAAAA'      UPPER FAM CONTROL               *A03
     7387   01 02543    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7388                            *                                                                   *A03
     7389                            *                                  WRITE ALL A'S TO SUBCHANNEL 2,   *A03
     7390                            *                                   BITS 48-95 (LOWER)              *A03
     7391   01 02544    323001C3 A   T3230    GEN,16,10,6    X'3230',7,T3240-%                           *A03
     7392   01 02545    328036C4              LW,R8    =X'88AAAAAA'      LOWER FAM CONTROL               *A03
     7393   01 02546    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7394                            *                                                                   *A03
     7395                            *                                  WRITE ALL A'S TO SUBCHANNEL 3,   *A03
     7396                            *                                   BITS 0-47                       *A03
     7397   01 02547    324001C3 A   T3240    GEN,16,10,6    X'3240',7,T3250-%                           *A03
     7398   01 02548    328036C5              LW,R8    =X'8EAAAAAA'      UPPER FAM CONTROL               *A03
     7399   01 02549    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7400                            *                                                                   *A03
     7401                            *                                  WRITE ALL A'S TO SUBCHANNEL 3,   *A03
     7402                            *                                   BITS 48-95                      *A03
     7403   01 0254A    325001C3 A   T3250    GEN,16,10,6    X'3250',7,T3260-%                           *A03
     7404   01 0254B    328036C6              LW,R8    =X'8CAAAAAA'      LOWER FAM CONTROL               *A03
     7405   01 0254C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7406                            *                                                                   *A03
     7407                            *                                  WRITE ALL A'S TO SUBCHANNEL 4,   *A03
     7408                            *                                   BITS 0-47                       *A03
     7409   01 0254D    326001C3 A   T3260    GEN,16,10,6    X'3260',7,T3270-%                           *A03
     7410   01 0254E    328036C7              LW,R8    =X'92AAAAAA'      UPPER FAM CONTROL               *A03
     7411   01 0254F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7412                            *                                                                   *A03
     7413                            *                                  WRITE ALL A'S TO SUBCHANNEL 4,   *A03
     7414                            *                                   BITS 48-95                      *A03
     7415   01 02550    327001C3 A   T3270    GEN,16,10,6    X'3270',7,T3280-%                           *A03
     7416   01 02551    328036C8              LW,R8    =X'90AAAAAA'      LOWER FAM CONTROL               *A03
     7417   01 02552    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7418                            *                                                                   *A03
     7419                            *                                  WRITE ALL A'S TO SUBCHANNEL 5,   *A03
     7420                            *                                   BITS 0-47                       *A03
     7421   01 02553    328001C3 A   T3280    GEN,16,10,6    X'3280',7,T3290-%                           *A03
     7422   01 02554    328036C9              LW,R8    =X'96AAAAAA'      UPPER  FAM CONTROL              *A03
     7423   01 02555    68002346              B        T1740B                                            *A03
     7424                            *                                                                   *A03
     7425                            *                                  WRITE ALL A'S TO SUBCHANNEL 5,   *A03
     7426                            *                                   BITS 48-95                      *A03
     7427   01 02556    329001C3 A   T3290    GEN,16,10,6    X'3290',7,T3300-%                           *A03
     7428   01 02557    328036CA              LW,R8    =X'94AAAAAA'      LOWER FAM CONTROL               *A03
     7429   01 02558    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7430                            *                                                                   *A03
     7431                            *                                  WRITE ALL A'S TO SUBCHANNEL 6,   *A03
     7432                            *                                   BITS 0-47                       *A03
     7433   01 02559    330001C3 A   T3300    GEN,16,10,6    X'3300',7,T3310-%                           *A03
     7434   01 0255A    328036CB              LW,R8    =X'9AAAAAAA'      UPPER FAM CONTROL               *A03
     7435   01 0255B    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7436                            *                                                                   *A03
     7437                            *                                  WRITE ALL A'S TO SUBROUTINE 6,   *A03
     7438                            *                                   BITS 48-95                      *A03
     7439   01 0255C    331001C3 A   T3310    GEN,16,10,6    X'3310',7,T3320-%                           *A03
     7440   01 0255D    328036CC              LW,R8    =X'98AAAAAA'      LOWER FAM CONTROL               *A03
     7441   01 0255E    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7442                            *                                                                   *A03
     7443                            *                                  WRITE ALL A'S TO SUBROUTINE 7,   *A03
     7444                            *                                   BITS 0-47                       *A03
     7445   01 0255F    332001C3 A   T3320    GEN,16,10,6    X'3320',7,T3330-%                           *A03
     7446   01 02560    328036CD              LW,R8    =X'9EAAAAAA'      UPPER FAM CONTROL               *A03
     7447   01 02561    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7448                            *                                                                   *A03
     7449                            *                                  WRITE ALL A'S TO SUBROUTINE 7,   *A03
     7450                            *                                   BITS 48-95                      *A03
     7451   01 02562    333001C3 A   T3330    GEN,16,10,6    X'3330',7,T3340-%                           *A03
     7452   01 02563    328036CE              LW,R8    =X'9CAAAAAA'      LOWER FAM CONTROL               *A03
     7453   01 02564    68002346              B        T1740B                                            *A03
     7454                            *                                                                   *A03
     7455                            *                                  WRITE ALL A'S TO SUBROUTINE 8,   *A03
     7456                            *                                   BITS 0-47                       *A03
     7457   01 02565    33402143 A   T3340    GEN,16,10,6    X'3340',X'85',T3350-%                       *A03
     7458   01 02566    328036CF              LW,R8    =X'A2AAAAAA'      UPPER FAM CONTROL               *A03
     7459   01 02567    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7460                            *                                                                   *A03
     7461                            *                                  WRITE ALL A'S TO SUBCHANNEL 8,   *A03
     7462                            *                                   BITS 48-95                      *A03
     7463   01 02568    33502143 A   T3350    GEN,16,10,6    X'3350',X'85',T3360-%                       *A03
     7464   01 02569    328036D0              LW,R8    =X'A0AAAAAA'      LOWER FAM CONTROL               *A03
     7465   01 0256A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7466                            *                                                                   *A03
     7467                            *                                  WRITE ALL A'S TO SUBCHANNEL 9,   *A03
     7468                            *                                   BITS 0-47                       *A03
     7469   01 0256B    33602143 A   T3360    GEN,16,10,6    X'3360',X'85',T3370-%                       *A03
     7470   01 0256C    328036D1              LW,R8    =X'A6AAAAAA'      UPPER FAM CONTROL               *A03
     7471   01 0256D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7472                            *                                                                   *A03
     7473                            *                                  WRITE ALL A'S TO SUBCHANNEL 9,   *A03
     7474                            *                                   BITS 48-95                      *A03
     7475   01 0256E    33702143 A   T3370    GEN,16,10,6    X'3370',X'85',T3380-%                       *A03
     7476   01 0256F    328036D2              LW,R8    =X'A4AAAAAA'      LOWER FAM CONTROL               *A03
     7477   01 02570    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7478                            *                                                                   *A03
     7479                            *                                  WRITE ALL A'S TO SUBCHANNEL 10,  *A03
     7480                            *                                   BITS 0-47                       *A03
     7481   01 02571    33802143 A   T3380    GEN,16,10,6    X'3380',X'85',T3390-%                       *A03
     7482   01 02572    328036D3              LW,R8    =X'AAAAAAAA'      UPPER FAM CONTROL               *A03
     7483   01 02573    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7484                            *                                                                   *A03
     7485                            *                                  WRITE ALL A'S TO SUBCHANNEL 10,  *A03
     7486                            *                                   BITS 48-95                      *A03
     7487   01 02574    33902143 A   T3390    GEN,16,10,6    X'3390',X'85',T3400-%                       *A03
     7488   01 02575    328036D4              LW,R8    =X'A8AAAAAA'      LOWER FAM CONTROL               *A03
     7489   01 02576    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7490                            *                                                                   *A03
     7491                            *                                  WRITE ALL A'S TO SUBCHANNEL 11,  *A03
     7492                            *                                   BITS 0-47                       *A03
     7493   01 02577    34002143 A   T3400    GEN,16,10,6    X'3400',X'85',T3410-%                       *A03
     7494   01 02578    328036D5              LW,R8    =X'AEAAAAAA'      UPPER FAM CONTROL               *A03
     7495   01 02579    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7496                            *                                                                   *A03
     7497                            *                                  WRITE ALL A'S TO SUBROUTINE 11,  *A03
     7498                            *                                   BITS 48-95                      *A03
     7499   01 0257A    34102143 A   T3410    GEN,16,10,6    X'3410',X'85',T3420-%                       *A03
     7500   01 0257B    328036D6              LW,R8    =X'ACAAAAAA'      LOWER FAM CONTROL               *A03
     7501   01 0257C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7502                            *                                                                   *A03
     7503                            *                                  WRITE ALL A'S TO SUBCHANNEL 12,  *A03
     7504                            *                                   BITS 0-47                       *A03
     7505   01 0257D    34202143 A   T3420    GEN,16,10,6    X'3420',X'85',T3430-%                       *A03
     7506   01 0257E    328036D7              LW,R8    =X'B2AAAAAA'      UPPER FAM CONTROL               *A03
     7507   01 0257F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7508                            *                                                                   *A03
     7509                            *                                  WRITE ALL A'S TO SUBCHANNEL 12,  *A03
     7510                            *                                   BITS 48-95                      *A03
     7511   01 02580    34302143 A   T3430    GEN,16,10,6    X'3430',X'85',T3440-%                       *A03
     7512   01 02581    328036D8              LW,R8    =X'B0AAAAAA'      LOWER FAM CONTROL               *A03
     7513   01 02582    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7514                            *                                                                   *A03
     7515                            *                                  WRITE ALL A'S TO SUBCHANNEL 13,  *A03
     7516                            *                                   BITS 0-47                       *A03
     7517   01 02583    34402143 A   T3440    GEN,16,10,6    X'3440',X'85',T3450-%                       *A03
     7518   01 02584    328036D9              LW,R8    =X'B6AAAAAA'      UPPER FAM CONTROL               *A03
     7519   01 02585    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7520                            *                                                                   *A03
     7521                            *                                  WRITE ALL A'S TO SUBCHANNEL 13,  *A03
     7522                            *                                   BITS 48-95                      *A03
     7523   01 02586    34502143 A   T3450    GEN,16,10,6    X'3450',X'85',T3460-%                       *A03
     7524   01 02587    328036DA              LW,R8    =X'B4AAAAAA'      LOWER FAM CONTROL               *A03
     7525   01 02588    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7526                            *                                                                   *A03
     7527                            *                                  WRITE ALL A'S TO SUBROUTINE 14,  *A03
     7528   01 02589    34602143 A   T3460    GEN,16,10,6    X'3460',X'85',T3470-%                       *A03
     7529   01 0258A    328036DB              LW,R8    =X'BAAAAAAA'      UPPER FAM CONTROL               *A03
     7530   01 0258B    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7531                            *                                                                   *A03
     7532                            *                                  WRITE ALL A'S TO SUBCHANNEL 14,  *A03
     7533                            *                                   BITS 48-95                      *A03
     7534   01 0258C    34702143 A   T3470    GEN,16,10,6    X'3470',X'85',T3480-%                       *A03
     7535   01 0258D    328036DC              LW,R8    =X'B8AAAAAA'      LOWER FAM CONTROL               *A03
     7536   01 0258E    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7537                            *                                                                   *A03
     7538                            *                                  WRITE ALL A'S TO SUBCHANNEL 15,  *A03
     7539                            *                                   BITS 0-47                       *A03
     7540   01 0258F    34802143 A   T3480    GEN,16,10,6    X'3480',X'85',T3490-%                       *A03
     7541   01 02590    328036DD              LW,R8    =X'BEAAAAAA'      UPPER FAM CONTROL               *A03
     7542   01 02591    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7543                            *                                                                   *A03
     7544                            *                                  WRITE ALL A'S TO SUBCHANNEL 15,  *A03
     7545                            *                                   BITS 48-95                      *A03
     7546   01 02592    34902143 A   T3490    GEN,16,10,6    X'3490',X'85',T3500-%                       *A03
     7547   01 02593    328036DE              LW,R8    =X'BCAAAAAA'      LOWER FAM CONTROL               *A03
     7548   01 02594    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7549                            *                                                                   *A03
     7550                            *                                  WRITE ALL A'S TO SUBCHANNEL 16,  *A03
     7551                            *                                   BITS 0-47                       *A03
     7552   01 02595    35001143 A   T3500    GEN,16,10,6    X'3500',X'45',T3510-%                       *A03
     7553   01 02596    328036DF              LW,R8    =X'C2AAAAAA'      UPPER FAM CONTROL               *A03
     7554   01 02597    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7555                            *                                                                   *A03
     7556                            *                                  WRITE ALL A'S TO SUBCHANNEL 16,  *A03
     7557                            *                                   BITS 48-95                      *A03
     7558   01 02598    35101143 A   T3510    GEN,16,10,6    X'3510',X'45',T3520-%                       *A03
     7559   01 02599    328036E0              LW,R8    =X'C0AAAAAA'      LOWER FAM CONTROL               *A03
     7560   01 0259A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7561                            *                                                                   *A03
     7562                            *                                  WRITE ALL A'S TO SUBCHANNEL 17,  *A03
     7563                            *                                   BITS 0-47                       *A03
     7564   01 0259B    35201143 A   T3520    GEN,16,10,6    X'3520',X'45',T3530-%                       *A03
     7565   01 0259C    328036E1              LW,R8    =X'C6AAAAAA'      UPPER FAM CONTROL               *A03
     7566   01 0259D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7567                            *                                                                   *A03
     7568                            *                                  WRITE ALL A'S TO SUBCHANNEL 17,  *A03
     7569                            *                                   BITS 48-95                      *A03
     7570   01 0259E    35301143 A   T3530    GEN,16,10,6    X'3530',X'45',T3540-%                       *A03
     7571   01 0259F    328036E2              LW,R8    =X'C4AAAAAA'      LOWER FAM CONTROL               *A03
     7572   01 025A0    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7573                            *                                                                   *A03
     7574                            *                                  WRITE ALL A'S TO SUBCHANNEL 18,  *A03
     7575                            *                                   BITS 0-47                       *A03
     7576   01 025A1    35401143 A   T3540    GEN,16,10,6    X'3540',X'45',T3550-%                       *A03
     7577   01 025A2    328036E3              LW,R8    =X'CAAAAAAA'      UPPER FAM CONTROL               *A03
     7578   01 025A3    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7579                            *                                                                   *A03
     7580                            *                                  WRITE ALL A'S TO SUBCHANNEL 18,  *A03
     7581                            *                                   BITS 48-95                      *A03
     7582   01 025A4    35501143 A   T3550    GEN,16,10,6    X'3550',X'45',T3560-%                       *A03
     7583   01 025A5    328036E4              LW,R8    =X'C8AAAAAA'      LOWER FAM CONTROL               *A03
     7584   01 025A6    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7585                            *                                                                   *A03
     7586                            *                                  WRITE ALL A'S TO SUBCHANNEL 19,  *A03
     7587                            *                                   BITS 0-47                       *A03
     7588   01 025A7    35601143 A   T3560    GEN,16,10,6    X'3560',X'45',T3570-%                       *A03
     7589   01 025A8    328036E5              LW,R8    =X'CEAAAAAA'      UPPER FAM CONTROL               *A03
     7590   01 025A9    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7591                            *                                                                   *A03
     7592                            *                                  WRITE ALL A'S TO SUBCHANNEL 19,  *A03
     7593                            *                                   BITS 48-95                      *A03
     7594   01 025AA    35701143 A   T3570    GEN,16,10,6    X'3570',X'45',T3580-%                       *A03
     7595   01 025AB    328036E6              LW,R8    =X'CCAAAAAA'      LOWER FAM CONTROL               *A03
     7596   01 025AC    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7597                            *                                                                   *A03
     7598                            *                                  WRITE ALL A'S TO SUBCHANNEL 20,  *A03
     7599                            *                                   BITS 0-47                       *A03
     7600   01 025AD    35801143 A   T3580    GEN,16,10,6    X'3580',X'45',T3590-%                       *A03
     7601   01 025AE    328036E7              LW,R8    =X'D2AAAAAA'      UPPER FAM CONTROL               *A03
     7602   01 025AF    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7603                            *                                                                   *A03
     7604                            *                                  WRITE ALL A'S TO SUBCHANNEL 20,  *A03
     7605                            *                                   BITS 48-95                      *A03
     7606   01 025B0    35901143 A   T3590    GEN,16,10,6    X'3590',X'45',T3600-%                       *A03
     7607   01 025B1    328036E8              LW,R8    =X'D0AAAAAA'      LOWER FAM CONTROL               *A03
     7608   01 025B2    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7609                            *                                                                   *A03
     7610                            *                                  WRITE ALL A'S TO SUBCHANNEL 21,  *A03
     7611                            *                                   BITS 0-47                       *A03
     7612   01 025B3    36001143 A   T3600    GEN,16,10,6    X'3600',X'45',T3610-%                       *A03
     7613   01 025B4    328036E9              LW,R8    =X'D6AAAAAA'      UPPER FAM CONTROL               *A03
     7614   01 025B5    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7615                            *                                                                   *A03
     7616                            *                                   WRITE ALL A'S TO SUBCHANNEL 21, *A03
     7617                            *                                   BITS 48-95                      *A03
     7618   01 025B6    36101143 A   T3610    GEN,16,10,6    X'3610',X'45',T3620-%                       *A03
     7619   01 025B7    328036EA              LW,R8    =X'D4AAAAAA'      LOWER FAM CONTROL               *A03
     7620   01 025B8    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7621                            *                                                                   *A03
     7622                            *                                   WRITE ALL A'S TO SUBCHANNEL 22, *A03
     7623                            *                                   BITS 0-47                       *A03
     7624   01 025B9    36201143 A   T3620    GEN,16,10,6    X'3620',X'45',T3630-%                       *A03
     7625   01 025BA    328036EB              LW,R8    =X'DAAAAAAA'      UPPER FAM CONTROL               *A03
     7626   01 025BB    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7627                            *                                                                   *A03
     7628                            *                                  WRITE ALL A'S TO SUBCHANNEL 22,  *A03
     7629                            *                                   BITS 48-95                      *A03
     7630   01 025BC    36301143 A   T3630    GEN,16,10,6    X'3630',X'45',T3640-%                       *A03
     7631   01 025BD    328036EC              LW,R8    =X'D8AAAAAA'      LOWER FAM CONTROL               *A03
     7632   01 025BE    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7633                            *                                                                   *A03
     7634                            *                                  WRITE ALL A'S TO SUBCHANNEL 23   *A03
     7635                            *                                   BITS 0-47                       *A03
     7636   01 025BF    36401143 A   T3640    GEN,16,10,6    X'3640',X'45',T3650-%                       *A03
     7637   01 025C0    328036ED              LW,R8    =X'DEAAAAAA'      UPPER FAM CONTROL               *A03
     7638   01 025C1    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7639                            *                                                                   *A03
     7640                            *                                  WRITE ALL A'S TO SUBCHANNEL 23,  *A03
     7641                            *                                   BITS 48-95                      *A03
     7642   01 025C2    36501143 A   T3650    GEN,16,10,6    X'3650',X'45',T3660-%                       *A03
     7643   01 025C3    328036EE              LW,R8    =X'DCAAAAAA'      LOWER FAM CONTROL               *A03
     7644   01 025C4    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7645                            *                                                                   *A03
     7646                            *                                  WRITE ALL 5'S TO SUBCHANNEL 0,   *A03
     7647                            *                                   BITS 0-47 (UPPER)               *A03
     7648   01 025C5    366001C3 A   T3660    GEN,16,10,6    X'3660',7,T3670-%                           *A03
     7649   01 025C6    328036EF              LW,R8    =X'82555555'      UPPER FAM CONTROL               *A03
     7650   01 025C7    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7651                            *                                                                   *A03
     7652                            *                                  WRITE ALL 5'S TO SUBCHANNEL 0,   *A03
     7653                            *                                   BITS 48-95 (LOWER)              *A03
     7654   01 025C8    367001C3 A   T3670    GEN,16,10,6    X'3670',7,T3680-%                           *A03
     7655   01 025C9    328036F0              LW,R8    =X'80555555'      LOWER FAM CONTROL               *A03
     7656   01 025CA    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7657                            *                                                                   *A03
     7658                            *                                  WRITE 0'S TO SUBCHANNEL FAM 1,   *A03
     7659                            *                                   BITS 0-47 (UPPER)               *A03
     7660   01 025CB    368001C3 A   T3680    GEN,16,10,6    X'3680',7,T3690-%                           *A03
     7661   01 025CC    328036F1              LW,R8    =X'86555555'      WRITE FAM UPPER CONTROL         *A03
     7662   01 025CD    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7663                            *                                                                   *A03
     7664                            *                                  WRITE 0'S TO SUBCHANNEL FAM 1,   *A03
     7665                            *                                   BITS 48-95 (LOWER)              *A03
     7666   01 025CE    369001C3 A   T3690    GEN,16,10,6    X'3690',7,T3700-%                           *A03
     7667   01 025CF    328036F2              LW,R8    =X'84555555'      WRITE FAM LOWER CONTROL         *A03
     7668   01 025D0    68002346              B        T1740B                                            *A03
     7669                            *                                  WRITE ALL 5'S TO SUBCHANNEL 2,T  *A03
     7670                            *                                   BITS 0-47 (UPPER)               *A03
     7671   01 025D1    370001C3 A   T3700    GEN,16,10,6    X'3700',7,T3710-%                           *A03
     7672   01 025D2    328036F3              LW,R8    =X'8A555555'      UPPER FAM CONTROL               *A03
     7673   01 025D3    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7674                            *                                                                   *A03
     7675                            *                                  WRITE ALL 5'S TO SUBCHANNEL 2,U  *A03
     7676                            *                                   BITS 48-95 (LOWER)              *A03
     7677   01 025D4    371001C3 A   T3710    GEN,16,10,6    X'3710',7,T3720-%                           *A03
     7678   01 025D5    328036F4              LW,R8    =X'88555555'      LOWER FAM CONTROL               *A03
     7679   01 025D6    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7680                            *                                                                   *A03
     7681                            *                                  WRITE ALL 5'S TO SUBCHANNEL 3,U  *A03
     7682                            *                                   BITS 0-47                       *A03
     7683   01 025D7    372001C3 A   T3720    GEN,16,10,6    X'3720',7,T3730-%                           *A03
     7684   01 025D8    328036F5              LW,R8    =X'8E555555'      UPPER FAM CONTROL               *A03
     7685   01 025D9    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7686                            *                                                                   *A03
     7687                            *                                  WRITE ALL 5'S TO SUBCHANNEL 3,E  *A03
     7688                            *                                   BITS 48-95                      *A03
     7689   01 025DA    373001C3 A   T3730    GEN,16,10,6    X'3730',7,T3740-%                           *A03
     7690   01 025DB    328036F6              LW,R8    =X'8C555555'      LOWER FAM CONTROL               *A03
     7691   01 025DC    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7692                            *                                                                   *A03
     7693                            *                                  WRITE ALL 5'S TO SUBCHANNEL 4,   *A03
     7694                            *                                   BITS 0-47                       *A03
     7695   01 025DD    374001C3 A   T3740    GEN,16,10,6    X'3740',7,T3750-%                           *A03
     7696   01 025DE    328036F7              LW,R8    =X'92555555'      UPPER FAM CONTROL               *A03
     7697   01 025DF    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7698                            *                                                                   *A03
     7699                            *                                  WRITE ALL 5'S TO SUBCHANNEL 4,   *A03
     7700                            *                                   BITS 48-95                      *A03
     7701   01 025E0    375001C3 A   T3750    GEN,16,10,6    X'3750',7,T3760-%                           *A03
     7702   01 025E1    328036F8              LW,R8    =X'90555555'      LOWER FAM CONTROL               *A03
     7703   01 025E2    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7704                            *                                                                   *A03
     7705                            *                                  WRITE ALL 5'S TO SUBCHANNEL 5,   *A03
     7706                            *                                   BITS 0-47                       *A03
     7707   01 025E3    376001C3 A   T3760    GEN,16,10,6    X'3760',7,T3770-%                           *A03
     7708   01 025E4    328036F9              LW,R8    =X'96555555'      UPPER  FAM CONTROL              *A03
     7709   01 025E5    68002346              B        T1740B                                            *A03
     7710                            *                                                                   *A03
     7711                            *                                  WRITE ALL 5'S TO SUBCHANNEL 5,   *A03
     7712                            *                                   BITS 48-95                      *A03
     7713   01 025E6    377001C3 A   T3770    GEN,16,10,6    X'3770',7,T3780-%                           *A03
     7714   01 025E7    328036FA              LW,R8    =X'94555555'      LOWER FAM CONTROL               *A03
     7715   01 025E8    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7716                            *                                                                   *A03
     7717                            *                                  WRITE ALL 5'S TO SUBCHANNEL 6,   *A03
     7718                            *                                   BITS 0-47                       *A03
     7719   01 025E9    378001C3 A   T3780    GEN,16,10,6    X'3780',7,T3790-%                           *A03
     7720   01 025EA    328036FB              LW,R8    =X'9A555555'      UPPER FAM CONTROL               *A03
     7721   01 025EB    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7722                            *                                                                   *A03
     7723                            *                                  WRITE ALL 5'S TO SUBROUTINE 6,   *A03
     7724                            *                                   BITS 48-95                      *A03
     7725   01 025EC    379001C3 A   T3790    GEN,16,10,6    X'3790',7,T3800-%                           *A03
     7726   01 025ED    328036FC              LW,R8    =X'98555555'      LOWER FAM CONTROL               *A03
     7727   01 025EE    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7728                            *                                                                   *A03
     7729                            *                                  WRITE ALL 5'S TO SUBROUTINE 7,   *A03
     7730                            *                                   BITS 0-47                       *A03
     7731   01 025EF    380001C3 A   T3800    GEN,16,10,6    X'3800',7,T3810-%                           *A03
     7732   01 025F0    328036FD              LW,R8    =X'9E555555'      UPPER FAM CONTROL               *A03
     7733   01 025F1    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7734                            *                                                                   *A03
     7735                            *                                  WRITE ALL 5'S TO SUBROUTINE 7,   *A03
     7736                            *                                   BITS 48-95                      *A03
     7737   01 025F2    381001C3 A   T3810    GEN,16,10,6    X'3810',7,T3820-%                           *A03
     7738   01 025F3    328036FE              LW,R8    =X'9C555555'      LOWER FAM CONTROL               *A03
     7739   01 025F4    68002346              B        T1740B                                            *A03
     7740                            *                                                                   *A03
     7741                            *                                  WRITE ALL 5'S TO SUBROUTINE 8,   *A03
     7742                            *                                   BITS 0-47                       *A03
     7743   01 025F5    38202143 A   T3820    GEN,16,10,6    X'3820',X'85',T3830-%                       *A03
     7744   01 025F6    328036FF              LW,R8    =X'A2555555'      UPPER FAM CONTROL               *A03
     7745   01 025F7    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7746                            *                                                                   *A03
     7747                            *                                  WRITE ALL 5'S TO SUBCHANNEL 8,   *A03
     7748                            *                                   BITS 48-95                      *A03
     7749   01 025F8    38302143 A   T3830    GEN,16,10,6    X'3830',X'85',T3840-%                       *A03
     7750   01 025F9    32803700              LW,R8    =X'A0555555'      LOWER FAM CONTROL               *A03
     7751   01 025FA    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7752                            *                                                                   *A03
     7753                            *                                  WRITE ALL 5'S TO SUBCHANNEL 9,   *A03
     7754                            *                                   BITS 0-47                       *A03
     7755   01 025FB    38402143 A   T3840    GEN,16,10,6    X'3840',X'85',T3850-%                       *A03
     7756   01 025FC    32803701              LW,R8    =X'A6555555'      UPPER FAM CONTROL               *A03
     7757   01 025FD    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7758                            *                                                                   *A03
     7759                            *                                  WRITE ALL 5'S TO SUBCHANNEL 9,   *A03
     7760                            *                                   BITS 48-95                      *A03
     7761   01 025FE    38502143 A   T3850    GEN,16,10,6    X'3850',X'85',T3860-%                       *A03
     7762   01 025FF    32803702              LW,R8    =X'A4555555'      LOWER FAM CONTROL               *A03
     7763   01 02600    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7764                            *                                                                   *A03
     7765                            *                                  WRITE ALL 5'S TO SUBCHANNEL 10,  *A03
     7766                            *                                   BITS 0-47                       *A03
     7767   01 02601    38602143 A   T3860    GEN,16,10,6    X'3860',X'85',T3870-%                       *A03
     7768   01 02602    32803703              LW,R8    =X'AA555555'      UPPER FAM CONTROL               *A03
     7769   01 02603    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7770                            *                                                                   *A03
     7771                            *                                  WRITE ALL 5'S TO SUBCHANNEL 10,  *A03
     7772                            *                                   BITS 48-95                      *A03
     7773   01 02604    38702143 A   T3870    GEN,16,10,6    X'3870',X'85',T3880-%                       *A03
     7774   01 02605    32803704              LW,R8    =X'A8555555'      LOWER FAM CONTROL               *A03
     7775   01 02606    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7776                            *                                                                   *A03
     7777                            *                                  WRITE ALL 5'S TO SUBCHANNEL 11,  *A03
     7778                            *                                   BITS 0-47                       *A03
     7779   01 02607    38802143 A   T3880    GEN,16,10,6    X'3880',X'85',T3890-%                       *A03
     7780   01 02608    32803705              LW,R8    =X'AE555555'      UPPER FAM CONTROL               *A03
     7781   01 02609    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7782                            *                                                                   *A03
     7783                            *                                  WRITE ALL 5'S TO SUBROUTINE 11,  *A03
     7784                            *                                   BITS 48-95                      *A03
     7785   01 0260A    38902143 A   T3890    GEN,16,10,6    X'3890',X'85',T3900-%                       *A03
     7786   01 0260B    32803706              LW,R8    =X'AC555555'      LOWER FAM CONTROL               *A03
     7787   01 0260C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7788                            *                                                                   *A03
     7789                            *                                  WRITE ALL 5'S TO SUBCHANNEL 12,  *A03
     7790                            *                                   BITS 0-47                       *A03
     7791   01 0260D    39002143 A   T3900    GEN,16,10,6    X'3900',X'85',T3910-%                       *A03
     7792   01 0260E    32803707              LW,R8    =X'B2555555'      UPPER FAM CONTROL               *A03
     7793   01 0260F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7794                            *                                                                   *A03
     7795                            *                                  WRITE ALL 5'S TO SUBCHANNEL 12,  *A03
     7796                            *                                   BITS 48-95                      *A03
     7797   01 02610    39102143 A   T3910    GEN,16,10,6    X'3910',X'85',T3920-%                       *A03
     7798   01 02611    32803708              LW,R8    =X'B0555555'      LOWER FAM CONTROL               *A03
     7799   01 02612    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7800                            *                                                                   *A03
     7801                            *                                  WRITE ALL 5'S TO SUBCHANNEL 13,  *A03
     7802                            *                                   BITS 0-47                       *A03
     7803   01 02613    39202143 A   T3920    GEN,16,10,6    X'3920',X'85',T3930-%                       *A03
     7804   01 02614    32803709              LW,R8    =X'B6555555'      UPPER FAM CONTROL               *A03
     7805   01 02615    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7806                            *                                                                   *A03
     7807                            *                                  WRITE ALL 5'S TO SUBCHANNEL 13,  *A03
     7808                            *                                   BITS 48-95                      *A03
     7809   01 02616    39302143 A   T3930    GEN,16,10,6    X'3930',X'85',T3940-%                       *A03
     7810   01 02617    3280370A              LW,R8    =X'B4555555'      LOWER FAM CONTROL               *A03
     7811   01 02618    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7812                            *                                                                   *A03
     7813                            *                                  WRITE ALL 5'S TO SUBROUTINE 14,  *A03
     7814   01 02619    39402143 A   T3940    GEN,16,10,6    X'3940',X'85',T3950-%                       *A03
     7815   01 0261A    3280370B              LW,R8    =X'BA555555'      UPPER FAM CONTROL               *A03
     7816   01 0261B    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7817                            *                                                                   *A03
     7818                            *                                  WRITE ALL 5'S TO SUBCHANNEL 14,  *A03
     7819                            *                                   BITS 48-95                      *A03
     7820   01 0261C    39502143 A   T3950    GEN,16,10,6    X'3950',X'85',T3960-%                       *A03
     7821   01 0261D    3280370C              LW,R8    =X'B8555555'      LOWER FAM CONTROL               *A03
     7822   01 0261E    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7823                            *                                                                   *A03
     7824                            *                                  WRITE ALL 5'S TO SUBCHANNEL 15,  *A03
     7825                            *                                   BITS 0-47                       *A03
     7826   01 0261F    39602143 A   T3960    GEN,16,10,6    X'3960',X'85',T3970-%                       *A03
     7827   01 02620    3280370D              LW,R8    =X'BE555555'      UPPER FAM CONTROL               *A03
     7828   01 02621    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7829                            *                                                                   *A03
     7830                            *                                  WRITE ALL 5'S TO SUBCHANNEL 15,  *A03
     7831                            *                                   BITS 48-95                      *A03
     7832   01 02622    39702143 A   T3970    GEN,16,10,6    X'3970',X'85',T3980-%                       *A03
     7833   01 02623    3280370E              LW,R8    =X'BC555555'      LOWER FAM CONTROL               *A03
     7834   01 02624    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7835                            *                                                                   *A03
     7836                            *                                  WRITE ALL 5'S TO SUBCHANNEL 16,  *A03
     7837                            *                                   BITS 0-47                       *A03
     7838   01 02625    39801143 A   T3980    GEN,16,10,6    X'3980',X'45',T3990-%                       *A03
     7839   01 02626    3280370F              LW,R8    =X'C2555555'      UPPER FAM CONTROL               *A03
     7840   01 02627    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7841                            *                                                                   *A03
     7842                            *                                  WRITE ALL 5'S TO SUBCHANNEL 16,  *A03
     7843                            *                                   BITS 48-95                      *A03
     7844   01 02628    39901143 A   T3990    GEN,16,10,6    X'3990',X'45',T4000-%                       *A03
     7845   01 02629    32803710              LW,R8    =X'C0555555'      LOWER FAM CONTROL               *A03
     7846   01 0262A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7847                            *                                                                   *A03
     7848                            *                                  WRITE ALL 5'S TO SUBCHANNEL 17,  *A03
     7849                            *                                   BITS 0-47                       *A03
     7850   01 0262B    40001143 A   T4000    GEN,16,10,6    X'4000',X'45',T4010-%                       *A03
     7851   01 0262C    32803711              LW,R8    =X'C6555555'      UPPER FAM CONTROL               *A03
     7852   01 0262D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7853                            *                                                                   *A03
     7854                            *                                  WRITE ALL 5'S TO SUBCHANNEL 17,  *A03
     7855                            *                                   BITS 48-95                      *A03
     7856   01 0262E    40101143 A   T4010    GEN,16,10,6    X'4010',X'45',T4020-%                       *A03
     7857   01 0262F    32803712              LW,R8    =X'C4555555'      LOWER FAM CONTROL               *A03
     7858   01 02630    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7859                            *                                                                   *A03
     7860                            *                                  WRITE ALL 5'S TO SUBCHANNEL 18,  *A03
     7861                            *                                   BITS 0-47                       *A03
     7862   01 02631    40201143 A   T4020    GEN,16,10,6    X'4020',X'45',T4030-%                       *A03
     7863   01 02632    32803713              LW,R8    =X'CA555555'      UPPER FAM CONTROL               *A03
     7864   01 02633    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7865                            *                                                                   *A03
     7866                            *                                  WRITE ALL 5'S TO SUBCHANNEL 18,  *A03
     7867                            *                                   BITS 48-95                      *A03
     7868   01 02634    40301143 A   T4030    GEN,16,10,6    X'4030',X'45',T4040-%                       *A03
     7869   01 02635    32803714              LW,R8    =X'C8555555'      LOWER FAM CONTROL               *A03
     7870   01 02636    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7871                            *                                                                   *A03
     7872                            *                                  WRITE ALL 5'S TO SUBCHANNEL 19,  *A03
     7873                            *                                   BITS 0-47                       *A03
     7874   01 02637    40401143 A   T4040    GEN,16,10,6    X'4040',X'45',T4050-%                       *A03
     7875   01 02638    32803715              LW,R8    =X'CE555555'      UPPER FAM CONTROL               *A03
     7876   01 02639    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7877                            *                                                                   *A03
     7878                            *                                  WRITE ALL 5'S TO SUBCHANNEL 19,  *A03
     7879                            *                                   BITS 48-95                      *A03
     7880   01 0263A    40501143 A   T4050    GEN,16,10,6    X'4050',X'45',T4060-%                       *A03
     7881   01 0263B    32803716              LW,R8    =X'CC555555'      LOWER FAM CONTROL               *A03
     7882   01 0263C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7883                            *                                                                   *A03
     7884                            *                                  WRITE ALL 5'S TO SUBCHANNEL 20,  *A03
     7885                            *                                   BITS 0-47                       *A03
     7886   01 0263D    40601143 A   T4060    GEN,16,10,6    X'4060',X'45',T4070-%                       *A03
     7887   01 0263E    32803717              LW,R8    =X'D2555555'      UPPER FAM CONTROL               *A03
     7888   01 0263F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7889                            *                                                                   *A03
     7890                            *                                  WRITE ALL 5'S TO SUBCHANNEL 20,  *A03
     7891                            *                                   BITS 48-95                      *A03
     7892   01 02640    40701143 A   T4070    GEN,16,10,6    X'4070',X'45',T4080-%                       *A03
     7893   01 02641    32803718              LW,R8    =X'D0555555'      LOWER FAM CONTROL               *A03
     7894   01 02642    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7895                            *                                                                   *A03
     7896                            *                                  WRITE ALL 5'S TO SUBCHANNEL 21,  *A03
     7897                            *                                   BITS 0-47                       *A03
     7898   01 02643    40801143 A   T4080    GEN,16,10,6    X'4080',X'45',T4090-%                       *A03
     7899   01 02644    32803719              LW,R8    =X'D6555555'      UPPER FAM CONTROL               *A03
     7900   01 02645    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7901                            *                                                                   *A03
     7902                            *                                   WRITE ALL 5'S TO SUBCHANNEL 21, *A03
     7903                            *                                   BITS 48-95                      *A03
     7904   01 02646    40901143 A   T4090    GEN,16,10,6    X'4090',X'45',T4100-%                       *A03
     7905   01 02647    3280371A              LW,R8    =X'D4555555'      LOWER FAM CONTROL               *A03
     7906   01 02648    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7907                            *                                                                   *A03
     7908                            *                                   WRITE ALL 5'S TO SUBCHANNEL 22, *A03
     7909                            *                                   BITS 0-47                       *A03
     7910   01 02649    41001143 A   T4100    GEN,16,10,6    X'4100',X'45',T4110-%                       *A03
     7911   01 0264A    3280371B              LW,R8    =X'DA555555'      UPPER FAM CONTROL               *A03
     7912   01 0264B    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7913                            *                                                                   *A03
     7914                            *                                  WRITE ALL 5'S TO SUBCHANNEL 22,  *A03
     7915                            *                                   BITS 48-95                      *A03
     7916   01 0264C    41101143 A   T4110    GEN,16,10,6    X'4110',X'45',T4120-%                       *A03
     7917   01 0264D    3280371C              LW,R8    =X'D8555555'      LOWER FAM CONTROL               *A03
     7918   01 0264E    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7919                            *                                                                   *A03
     7920                            *                                  WRITE ALL 5'S TO SUBCHANNEL 23   *A03
     7921                            *                                   BITS 0-47                       *A03
     7922   01 0264F    41201143 A   T4120    GEN,16,10,6    X'4120',X'45',T4130-%                       *A03
     7923   01 02650    3280371D              LW,R8    =X'DE555555'      UPPER FAM CONTROL               *A03
     7924   01 02651    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7925                            *                                                                   *A03
     7926                            *                                  WRITE ALL 5'S TO SUBCHANNEL 23,  *A03
     7927                            *                                   BITS 48-95                      *A03
     7928   01 02652    41301143 A   T4130    GEN,16,10,6    X'4130',X'45',T4140-%                       *A03
     7929   01 02653    3280371E              LW,R8    =X'DC555555'      LOWER FAM CONTROL               *A03
     7930   01 02654    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7931                            *                                                                   *A03
     7932                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 0,  *A03
     7933                            *                                   BITS 0-47 (UPPER)               *A03
     7934   01 02655    414001C3 A   T4140    GEN,16,10,6    X'4140',7,T4150-%                           *A03
     7935   01 02656    3280371F              LW,R8    =X'825B5B5B'      UPPER FAM CONTROL               *A03
     7936   01 02657    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7937                            *                                                                   *A03
     7938                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 0,  *A03
     7939                            *                                   BITS 48-95 (LOWER)              *A03
     7940   01 02658    415001C3 A   T4150    GEN,16,10,6    X'4150',7,T4160-%                           *A03
     7941   01 02659    32803720              LW,R8    =X'805B5B5B'      LOWER FAM CONTROL               *A03
     7942   01 0265A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7943                            *                                                                   *A03
     7944                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 1,  *A03
     7945                            *                                   BITS 0-47 (UPPER)               *A03
     7946   01 0265B    416001C3 A   T4160    GEN,16,10,6    X'4160',7,T4170-%                           *A03
     7947   01 0265C    32803721              LW,R8    =X'865B5B5B'      WRITE FAM UPPER CONTROL         *A03
     7948   01 0265D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7949                            *                                                                   *A03
     7950                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 1,  *A03
     7951                            *                                   BITS 48-95 (LOWER)              *A03
     7952   01 0265E    417001C3 A   T4170    GEN,16,10,6    X'4170',7,T4180-%                           *A03
     7953   01 0265F    32803722              LW,R8    =X'845B5B5B'      WRITE FAM LOWER CONTROL         *A03
     7954   01 02660    68002346              B        T1740B                                            *A03
     7955                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 2,  *A03
     7956                            *                                   BITS 0-47 (UPPER)               *A03
     7957   01 02661    418001C3 A   T4180    GEN,16,10,6    X'4180',7,T4190-%                           *A03
     7958   01 02662    32803723              LW,R8    =X'8A5B5B5B'      UPPER FAM CONTROL               *A03
     7959   01 02663    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7960                            *                                                                   *A03
     7961                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 2,  *A03
     7962                            *                                   BITS 48-95 (LOWER)              *A03
     7963   01 02664    419001C3 A   T4190    GEN,16,10,6    X'4190',7,T4200-%                           *A03
     7964   01 02665    32803724              LW,R8    =X'885B5B5B'      LOWER FAM CONTROL               *A03
     7965   01 02666    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7966                            *                                                                   *A03
     7967                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 3,  *A03
     7968                            *                                   BITS 0-47                       *A03
     7969   01 02667    420001C3 A   T4200    GEN,16,10,6    X'4200',7,T4210-%                           *A03
     7970   01 02668    32803725              LW,R8    =X'8E5B5B5B'      UPPER FAM CONTROL               *A03
     7971   01 02669    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7972                            *                                                                   *A03
     7973                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 3,  *A03
     7974                            *                                   BITS 48-95                      *A03
     7975   01 0266A    421001C3 A   T4210    GEN,16,10,6    X'4210',7,T4220-%                           *A03
     7976   01 0266B    32803726              LW,R8    =X'8C5B5B5B'      LOWER FAM CONTROL               *A03
     7977   01 0266C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7978                            *                                                                   *A03
     7979                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 4,  *A03
     7980                            *                                   BITS 0-47                       *A03
     7981   01 0266D    422001C3 A   T4220    GEN,16,10,6    X'4220',7,T4230-%                           *A03
     7982   01 0266E    32803727              LW,R8    =X'925B5B5B'      UPPER FAM CONTROL               *A03
     7983   01 0266F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7984                            *                                                                   *A03
     7985                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 4,  *A03
     7986                            *                                   BITS 48-95                      *A03
     7987   01 02670    423001C3 A   T4230    GEN,16,10,6    X'4230',7,T4240-%                           *A03
     7988   01 02671    32803728              LW,R8    =X'905B5B5B'      LOWER FAM CONTROL               *A03
     7989   01 02672    68002346              B        T1740B            TO SUBROUTINE                   *A03
     7990                            *                                                                   *A03
     7991                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 5,  *A03
     7992                            *                                   BITS 0-47                       *A03
     7993   01 02673    424001C3 A   T4240    GEN,16,10,6    X'4240',7,T4250-%                           *A03
     7994   01 02674    32803729              LW,R8    =X'965B5B5B'      UPPER  FAM CONTROL              *A03
     7995   01 02675    68002346              B        T1740B                                            *A03
     7996                            *                                                                   *A03
     7997                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 5,  *A03
     7998                            *                                   BITS 48-95                      *A03
     7999   01 02676    425001C3 A   T4250    GEN,16,10,6    X'4250',7,T4260-%                           *A03
     8000   01 02677    3280372A              LW,R8    =X'945B5B5B'      LOWER FAM CONTROL               *A03
     8001   01 02678    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8002                            *                                                                   *A03
     8003                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 6,  *A03
     8004                            *                                   BITS 0-47                       *A03
     8005   01 02679    426001C3 A   T4260    GEN,16,10,6    X'4260',7,T4270-%                           *A03
     8006   01 0267A    3280372B              LW,R8    =X'9A5B5B5B'      UPPER FAM CONTROL               *A03
     8007   01 0267B    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8008                            *                                                                   *A03
     8009                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 6,*A03
     8010                            *                                   BITS 48-95                      *A03
     8011   01 0267C    427001C3 A   T4270    GEN,16,10,6    X'4270',7,T4280-%                           *A03
     8012   01 0267D    3280372C              LW,R8    =X'985B5B5B'      LOWER FAM CONTROL               *A03
     8013   01 0267E    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8014                            *                                                                   *A03
     8015                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 7,*A03
     8016                            *                                   BITS 0-47                       *A03
     8017   01 0267F    428001C3 A   T4280    GEN,16,10,6    X'4280',7,T4290-%                           *A03
     8018   01 02680    3280372D              LW,R8    =X'9E5B5B5B'      UPPER FAM CONTROL               *A03
     8019   01 02681    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8020                            *                                                                   *A03
     8021                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 7,*A03
     8022                            *                                   BITS 48-95                      *A03
     8023   01 02682    429001C3 A   T4290    GEN,16,10,6    X'4290',7,T4300-%                           *A03
     8024   01 02683    3280372E              LW,R8    =X'9C5B5B5B'      LOWER FAM CONTROL               *A03
     8025   01 02684    68002346              B        T1740B                                            *A03
     8026                            *                                                                   *A03
     8027                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 8,*A03
     8028                            *                                   BITS 0-47                       *A03
     8029   01 02685    43002143 A   T4300    GEN,16,10,6    X'4300',X'85',T4310-%                       *A03
     8030   01 02686    3280372F              LW,R8    =X'A25B5B5B'      UPPER FAM CONTROL               *A03
     8031   01 02687    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8032                            *                                                                   *A03
     8033                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 8,  *A03
     8034                            *                                   BITS 48-95                      *A03
     8035   01 02688    43102143 A   T4310    GEN,16,10,6    X'4310',X'85',T4320-%                       *A03
     8036   01 02689    32803730              LW,R8    =X'A05B5B5B'      LOWER FAM CONTROL               *A03
     8037   01 0268A    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8038                            *                                                                   *A03
     8039                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 9,  *A03
     8040                            *                                   BITS 0-47                       *A03
     8041   01 0268B    43202143 A   T4320    GEN,16,10,6    X'4320',X'85',T4330-%                       *A03
     8042   01 0268C    32803731              LW,R8    =X'A65B5B5B'      UPPER FAM CONTROL               *A03
     8043   01 0268D    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8044                            *                                                                   *A03
     8045                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 9,  *A03
     8046                            *                                   BITS 48-95                      *A03
     8047   01 0268E    43302143 A   T4330    GEN,16,10,6    X'4330',X'85',T4340-%                       *A03
     8048   01 0268F    32803732              LW,R8    =X'A45B5B5B'      LOWER FAM CONTROL               *A03
     8049   01 02690    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8050                            *                                                                   *A03
     8051                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 10, *A03
     8052                            *                                   BITS 0-47                       *A03
     8053   01 02691    43402143 A   T4340    GEN,16,10,6    X'4340',X'85',T4350-%                       *A03
     8054   01 02692    32803733              LW,R8    =X'AA5B5B5B'      UPPER FAM CONTROL               *A03
     8055   01 02693    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8056                            *                                                                   *A03
     8057                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 10, *A03
     8058                            *                                   BITS 48-95                      *A03
     8059   01 02694    43502143 A   T4350    GEN,16,10,6    X'4350',X'85',T4360-%                       *A03
     8060   01 02695    32803734              LW,R8    =X'A85B5B5B'      LOWER FAM CONTROL               *A03
     8061   01 02696    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8062                            *                                                                   *A03
     8063                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 11, *A03
     8064                            *                                   BITS 0-47                       *A03
     8065   01 02697    43602143 A   T4360    GEN,16,10,6    X'4360',X'85',T4370-%                       *A03
     8066   01 02698    32803735              LW,R8    =X'AE5B5B5B'      UPPER FAM CONTROL               *A03
     8067   01 02699    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8068                            *                                                                   *A03
     8069                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 11,
     8070                            *                                   BITS 48-95                      *A03
     8071   01 0269A    43702143 A   T4370    GEN,16,10,6    X'4370',X'85',T4380-%                       *A03
     8072   01 0269B    32803736              LW,R8    =X'AC5B5B5B'      LOWER FAM CONTROL               *A03
     8073   01 0269C    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8074                            *                                                                   *A03
     8075                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 12, *A03
     8076                            *                                   BITS 0-47                       *A03
     8077   01 0269D    43802143 A   T4380    GEN,16,10,6    X'4380',X'85',T4390-%                       *A03
     8078   01 0269E    32803737              LW,R8    =X'B25B5B5B'      UPPER FAM CONTROL               *A03
     8079   01 0269F    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8080                            *                                                                   *A03
     8081                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 12, *A03
     8082                            *                                   BITS 48-95                      *A03
     8083   01 026A0    43902143 A   T4390    GEN,16,10,6    X'4390',X'85',T4400-%                       *A03
     8084   01 026A1    32803738              LW,R8    =X'B05B5B5B'      LOWER FAM CONTROL               *A03
     8085   01 026A2    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8086                            *                                                                   *A03
     8087                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 13, *A03
     8088                            *                                   BITS 0-47                       *A03
     8089   01 026A3    44002143 A   T4400    GEN,16,10,6    X'4400',X'85',T4410-%                       *A03
     8090   01 026A4    32803739              LW,R8    =X'B65B5B5B'      UPPER FAM CONTROL               *A03
     8091   01 026A5    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8092                            *                                                                   *A03
     8093                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 13, *A03
     8094                            *                                   BITS 48-95                      *A03
     8095   01 026A6    44102143 A   T4410    GEN,16,10,6    X'4410',X'85',T4420-%                       *A03
     8096   01 026A7    3280373A              LW,R8    =X'B45B5B5B'      LOWER FAM CONTROL               *A03
     8097   01 026A8    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8098                            *                                                                   *A03
     8099                            *                                  WRITE ALL 5B'S TO   SUBROUTINE 14,
     8100   01 026A9    44202143 A   T4420    GEN,16,10,6    X'4420',X'85',T4430-%                       *A03
     8101   01 026AA    3280373B              LW,R8    =X'BA5B5B5B'      UPPER FAM CONTROL               *A03
     8102   01 026AB    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8103                            *                                                                   *A03
     8104                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 14, *A03
     8105                            *                                   BITS 48-95                      *A03
     8106   01 026AC    44302143 A   T4430    GEN,16,10,6    X'4430',X'85',T4440-%                       *A03
     8107   01 026AD    3280373C              LW,R8    =X'B85B5B5B'      LOWER FAM CONTROL               *A03
     8108   01 026AE    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8109                            *                                                                   *A03
     8110                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 15, *A03
     8111                            *                                   BITS 0-47                       *A03
     8112   01 026AF    44402143 A   T4440    GEN,16,10,6    X'4440',X'85',T4450-%                       *A03
     8113   01 026B0    3280373D              LW,R8    =X'BE5B5B5B'      UPPER FAM CONTROL               *A03
     8114   01 026B1    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8115                            *                                                                   *A03
     8116                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 15, *A03
     8117                            *                                   BITS 48-95                      *A03
     8118   01 026B2    44502143 A   T4450    GEN,16,10,6    X'4450',X'85',T4460-%                       *A03
     8119   01 026B3    3280373E              LW,R8    =X'BC5B5B5B'      LOWER FAM CONTROL               *A03
     8120   01 026B4    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8121                            *                                                                   *A03
     8122                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 16, *A03
     8123                            *                                   BITS 0-47                       *A03
     8124   01 026B5    44601143 A   T4460    GEN,16,10,6    X'4460',X'45',T4470-%                       *A03
     8125   01 026B6    3280373F              LW,R8    =X'C25B5B5B'      UPPER FAM CONTROL               *A03
     8126   01 026B7    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8127                            *                                                                   *A03
     8128                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 16, *A03
     8129                            *                                   BITS 48-95                      *A03
     8130   01 026B8    44701143 A   T4470    GEN,16,10,6    X'4470',X'45',T4480-%                       *A03
     8131   01 026B9    32803740              LW,R8    =X'C05B5B5B'      LOWER FAM CONTROL               *A03
     8132   01 026BA    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8133                            *                                                                   *A03
     8134                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 17, *A03
     8135                            *                                   BITS 0-47                       *A03
     8136   01 026BB    44801143 A   T4480    GEN,16,10,6    X'4480',X'45',T4490-%                       *A03
     8137   01 026BC    32803741              LW,R8    =X'C65B5B5B'      UPPER FAM CONTROL               *A03
     8138   01 026BD    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8139                            *                                                                   *A03
     8140                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 17, *A03
     8141                            *                                   BITS 48-95                      *A03
     8142   01 026BE    44901143 A   T4490    GEN,16,10,6    X'4490',X'45',T4500-%                       *A03
     8143   01 026BF    32803742              LW,R8    =X'C45B5B5B'      LOWER FAM CONTROL               *A03
     8144   01 026C0    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8145                            *                                                                   *A03
     8146                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 18, *A03
     8147                            *                                   BITS 0-47                       *A03
     8148   01 026C1    45001143 A   T4500    GEN,16,10,6    X'4500',X'45',T4510-%                       *A03
     8149   01 026C2    32803743              LW,R8    =X'CA5B5B5B'      UPPER FAM CONTROL               *A03
     8150   01 026C3    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8151                            *                                                                   *A03
     8152                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 18, *A03
     8153                            *                                   BITS 48-95                      *A03
     8154   01 026C4    45101143 A   T4510    GEN,16,10,6    X'4510',X'45',T4520-%                       *A03
     8155   01 026C5    32803744              LW,R8    =X'C85B5B5B'      LOWER FAM CONTROL               *A03
     8156   01 026C6    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8157                            *                                                                   *A03
     8158                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 19, *A03
     8159                            *                                   BITS 0-47                       *A03
     8160   01 026C7    45201143 A   T4520    GEN,16,10,6    X'4520',X'45',T4530-%                       *A03
     8161   01 026C8    32803745              LW,R8    =X'CE5B5B5B'      UPPER FAM CONTROL               *A03
     8162   01 026C9    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8163                            *                                                                   *A03
     8164                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 19, *A03
     8165                            *                                   BITS 48-95                      *A03
     8166   01 026CA    45301143 A   T4530    GEN,16,10,6    X'4530',X'45',T4540-%                       *A03
     8167   01 026CB    32803746              LW,R8    =X'CC5B5B5B'      LOWER FAM CONTROL               *A03
     8168   01 026CC    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8169                            *                                                                   *A03
     8170                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 20, *A03
     8171                            *                                   BITS 0-47                       *A03
     8172   01 026CD    45401143 A   T4540    GEN,16,10,6    X'4540',X'45',T4550-%                       *A03
     8173   01 026CE    32803747              LW,R8    =X'D25B5B5B'      UPPER FAM CONTROL               *A03
     8174   01 026CF    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8175                            *                                                                   *A03
     8176                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 20, *A03
     8177                            *                                   BITS 48-95                      *A03
     8178   01 026D0    45501143 A   T4550    GEN,16,10,6    X'4550',X'45',T4560-%                       *A03
     8179   01 026D1    32803748              LW,R8    =X'D05B5B5B'      LOWER FAM CONTROL               *A03
     8180   01 026D2    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8181                            *                                                                   *A03
     8182                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 21, *A03
     8183                            *                                   BITS 0-47                       *A03
     8184   01 026D3    45601143 A   T4560    GEN,16,10,6    X'4560',X'45',T4570-%                       *A03
     8185   01 026D4    32803749              LW,R8    =X'D65B5B5B'      UPPER FAM CONTROL               *A03
     8186   01 026D5    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8187                            *                                                                   *A03
     8188                            *                                   WRITE ALL 5B'S TO SUBCHANNEL 21,*A03
     8189                            *                                   BITS 48-95                      *A03
     8190   01 026D6    45701143 A   T4570    GEN,16,10,6    X'4570',X'45',T4580-%                       *A03
     8191   01 026D7    3280374A              LW,R8    =X'D45B5B5B'      LOWER FAM CONTROL               *A03
     8192   01 026D8    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8193                            *                                                                   *A03
     8194                            *                                   WRITE ALL 5B'S TO SUBCHANNEL 22,*A03
     8195                            *                                   BITS 0-47                       *A03
     8196   01 026D9    45801143 A   T4580    GEN,16,10,6    X'4580',X'45',T4590-%                       *A03
     8197   01 026DA    3280374B              LW,R8    =X'DA5B5B5B'      UPPER FAM CONTROL               *A03
     8198   01 026DB    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8199                            *                                                                   *A03
     8200                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 22, *A03
     8201                            *                                   BITS 48-95                      *A03
     8202   01 026DC    45901143 A   T4590    GEN,16,10,6    X'4590',X'45',T4600-%                       *A03
     8203   01 026DD    3280374C              LW,R8    =X'D85B5B5B'      LOWER FAM CONTROL               *A03
     8204   01 026DE    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8205                            *                                                                   *A03
     8206                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 23  *A03
     8207                            *                                   BITS 0-47                       *A03
     8208   01 026DF    46001143 A   T4600    GEN,16,10,6    X'4600',X'45',T4610-%                       *A03
     8209   01 026E0    3280374D              LW,R8    =X'DE5B5B5B'      UPPER FAM CONTROL               *A03
     8210   01 026E1    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8211                            *                                                                   *A03
     8212                            *                                  WRITE ALL 5B'S TO SUBCHANNEL 23, *A03
     8213                            *                                   BITS 48-95                      *A03
     8214   01 026E2    46101143 A   T4610    GEN,16,10,6    X'4610',X'45',T4620-%                       *A03
     8215   01 026E3    3280374E              LW,R8    =X'DC5B5B5B'      LOWER FAM CONTROL               *A03
     8216   01 026E4    68002346              B        T1740B            TO SUBROUTINE                   *A03
     8217         01 026E5           T4620    EQU      %                                                 *A03
     8218                            *                                                                   *A03
     8219                            *                                  TIO PHASING - PHASE I            *A03
     8220   01 026E5    549001C5 A   T5490    GEN,16,10,6    X'5490',7,T5500-%                           *A03
     8221   01 026E6    6AF026EF              BAL,R15  T5500B            GO TO TIO PHASE CHECK SUBROUTINE*A03
     8222   01 026E7    EC901298              RD,R9    *GP08             UNIT READ                       *A03
     8223   01 026E8    FFFC0020 A            DATA     X'FFFC0020'       UNIT MASK                       *A03
     8224   01 026E9    40040000 A            DATA     X'40040000'       DATA EXPECTED                   *A03
     8225                            *                                                                   *A03
     8226                            *                                                                   *A03
     8227                            *                                                                   *A03
     8228                            *                                  TIO PHASING - PHASE I            *A03
     8229   01 026EA    550001D0 A   T5500    GEN,16,10,6    X'5500',7,T5510-%                           *A03
     8230   01 026EB    6AF026EF              BAL,R15  T5500B            GO TO TIO PHASE CHECK SUBROUTINE*A03
     8231   01 026EC    EC901296              RD,R9    *GP02             UNIT READ                       *A03
     8232   01 026ED    00000000 A            DATA     0                 MASK                            *A03
     8233   01 026EE    00000000 A            DATA     0                 EXPECTED                        *A03
     8234         01 026EF           T5500B   EQU      %                                                 *A03
     8235   01 026EF    331013B2              MTW,1    WDTIND            SET WATCHDOG TIMEOUT EXPECTED FLAG
     8236   01 026F0    22801800 A            LI,R8    X'1800'                                           *A03
     8237   01 026F1    ED801298              WD,R8    *GP08             SET SINGLE PHASE MODE           *A03
     8238   01 026F2    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     8239   01 026F3    CD001310              TIO,R0   *IOPNO            ISSUE TIO                       *A03
     8240   01 026F4    E700000F A            EXU      *R15              EXECUTE UNIT RD                 *A03
     8241   01 026F5    3310000F A            MTW,1    R15               BUMP POINTER                    *A03
     8242   01 026F6    CB90000F A            AND,R9   *R15              UNIT MASK                       *A03
     8243   01 026F7    3310000F A            MTW,1    R15                                               *A03
     8244   01 026F8    B280000F A            LW,R8    *R15              R8= DATA EXPECTED               *A03
     8245   01 026F9    68001A60              B        CREQUAL           COMPARE R8:R9                   *A03
     8246                            *                                                                   *A03
     8247                            *                                  TIO PHASING - PHASE I            *A03
     8248   01 026FA    551001C5 A   T5510    GEN,16,10,6    X'5510',7,T5520-%                           *A03
     8249   01 026FB    6AF026EF              BAL,R15  T5500B            GO TO TIO PHASE CHECK SUBROUTINE*A03
     8250   01 026FC    EC90129F              RD,R9    *GP15             UNIT READ                       *A03
     8251   01 026FD    000000FF A            DATA     X'000000FF'       UNIT MASK                       *A03
     8252   01 026FE    00000040 A            DATA     X'00000040'       DATA EXPECTED                   *A03
     8253                            *                                                                   *A03
     8254                            *                                  TIO PHASING - PHASE 0            *A03
     8255   01 026FF    552001D9 A   T5520    GEN,16,10,6    X'5520',7,T5560-%                           *A03
     8256   01 02700    6AF02704              BAL,R15  T5520B            GO TO PHASE CHECK SUBROUTINE    *A03
     8257   01 02701    00009608 A            DATA     X'9608'           SNAP SET UP                     *A03
     8258   01 02702    FFFC3F80 A            DATA     X'FFFC3F80'       UNIT MASK                       *A03
     8259   01 02703    40240180 A            DATA     X'40240180'       DATA EXPECTED                   *A03
     8260                            *                                                                   *A03
     8261         01 02704           T5520B   EQU      %                                                 *A03
     8262   01 02704    22C0270D              LI,R12   T5520F                                            *A03
     8263   01 02705    331013B2     T5520D   MTW,1    WDTIND            EXPECTED WDT INDICATOR          *A03
     8264   01 02706    22801800 A            LI,R8    X'1800'                                           *A03
     8265   01 02707    ED801298              WD,R8    *GP08             SINGLE PHASE MODE               *A03
     8266   01 02708    22800000 A            LI,R8    0                                                 *A03
     8267   01 02709    ED80129D              WD,R8    *GP13             MS ADDRESS = 0                  *A03
     8268   01 0270A    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     8269   01 0270B    CD001310              TIO,R0   *IOPNO                                            *A03
     8270   01 0270C    E800000C A            B        *R12                                              *A03
     8271   01 0270D    B280000F A   T5520F   LW,R8    *R15              FETCH SNAP SET UP               *A03
     8272   01 0270E    308012C8              AW,R8    CHBCTRL           CHANNEL B OPTION                *A03
     8273   01 0270F    ED801298              WD,R8    *GP08             SET UP SINGLE PHASE MODE & SNAP *A03
     8274   01 02710    22801800 A            LI,R8    X'1800'           ADVANCE ONE MORE PHASE          *A03
     8275   01 02711    ED801298              WD,R8    *GP08                                             *A03
     8276   01 02712    3310000F A            MTW,1    R15               BUMP POINTER                    *A03
     8277   01 02713    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA               *A03
     8278   01 02714    CB90000F A            AND,R9   *R15              UNIT MASK                       *A03
     8279   01 02715    3310000F A            MTW,1    R15               BUMP POINTER                    *A03
     8280   01 02716    B280000F A            LW,R8    *R15              FETCH DATA EXPECTED             *A03
     8281   01 02717    68001A60              B        CREQUAL           COMPARE EXPECTED/RECEIVED       *A03
     8282                            *                                                                   *A03
     8283                            *                                  TIO PHASING - PHASE 10           *A03
     8284   01 02718    556001C9 A   T5560    GEN,16,10,6    X'5560',7,T5570-%                           *A03
     8285   01 02719    6AF0271D              BAL,R15  T5560B            GO TO PHASE CHECK SUBROUTINE    *A03
     8286   01 0271A    00009608 A            DATA     X'9608'           SNAP SET UP                     *A03
     8287   01 0271B    FFFC0F00 A            DATA     X'FFFC0F00'       UNIT MASK                       *A03
     8288   01 0271C    00340100 A            DATA     X'340100'         DATA EXPECTED                   *A03
     8289                            *                                                                   *A03
     8290   01 0271D    6AC02705     T5560B   BAL,R12  T5520D            SET SINGLE PHASE & ISSUE TIO    *A03
     8291   01 0271E    22801800 A            LI,R8    X'1800'                                           *A03
     8292   01 0271F    ED801298              WD,R8    *GP08             GIVE SINGLE PHASE CLOCK         *A03
     8293   01 02720    6800270D              B        T5520F            RD DISPLAY & COMPARE WITH EXPECTED
     8294                            *                                                                   *A03
     8295                            *                                  TIO PHASING - PHASE 10           *A03
     8296   01 02721    557001C5 A   T5570    GEN,16,10,6    X'5570',7,T5580-%                           *A03
     8297   01 02722    6AF0271D              BAL,R15  T5560B            GO TO PHASE CHECK SUBROUTINE    *A03
     8298   01 02723    00009609 A            DATA     X'9609'           SNAP SET UP                     *A03
     8299   01 02724    22300020 A            DATA     X'22300020'       UNIT MASK                       *A03
     8300   01 02725    22200000 A            DATA     X'22200000'       DATA EXPECTED                   *A03
     8301                            *                                                                   *A03
     8302                            *                                  TIO PHASING - PHASE 10           *A03
     8303   01 02726    558001C5 A   T5580    GEN,16,10,6    X'5580',7,T5590-%                           *A03
     8304   01 02727    6AF0271D              BAL,R15  T5560B            GO TO PHASE CHECK SUBROUTINE    *A03
     8305   01 02728    0000960F A            DATA     X'960F'           SNAP SET UP                     *A03
     8306   01 02729    000000FF A            DATA     X'000000FF'       UNIT MASK                       *A03
     8307   01 0272A    00000041 A            DATA     X'00000041'       DATA EXPECTED                   *A03
     8308                            *                                                                   *A03
     8309                            *                                  TIO PHASING - PHASE 11           *A03
     8310   01 0272B    559001CE A   T5590    GEN,16,10,6    X'5590',7,T5600-%                           *A03
     8311   01 0272C    6AF02730              BAL,R15  T5590B            GO TO PHASE CHECK SUBROUTINE    *A03
     8312   01 0272D    00009608 A            DATA     X'9608'           SNAP SET UP                     *A03
     8313   01 0272E    FFFC0F00 A            DATA     X'FFFC0F00'       UNIT MASK                       *A03
     8314   01 0272F    001C0000 A            DATA     X'1C0000'         DATA EXPECTED                   *A03
     8315                            *                                                                   *A03
     8316   01 02730    331013B2     T5590B   MTW,1    WDTIND            EXPECTED WDT                    *A03
     8317   01 02731    22801800 A            LI,R8    X'1800'                                           *A03
     8318   01 02732    ED801298              WD,R8    *GP08                                             *A03
     8319   01 02733    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     8320   01 02734    CD001312              TIO,R0   *IOPMSADR                                         *A03
     8321   01 02735    ED801298              WD,R8    *GP08             SINGLE PHASE CLOCK              *A03
     8322   01 02736    25900220 A            SCS,R9   32                DELAY
     8323   01 02737    ED801298              WD,R8    *GP08             SINGLE PHASE CLOCK              *A03
     8324   01 02738    6800270D              B        T5520F            RD DISPLAY AND COMPARE WITH EXPECT.
     8325                            *                                                                   *A03
     8326                            *                                  TIO PHASING - PHASE 11           *A03
     8327   01 02739    560001C5 A   T5600    GEN,16,10,6    X'5600',7,T5610-%                           *A03
     8328   01 0273A    6AF02730              BAL,R15  T5590B            GO TO PHASE CHECK SUBROUTINE    *A03
     8329   01 0273B    00005609 A            DATA     X'5609'           SNAP SET UP                     *A03
     8330   01 0273C    00000000 A            DATA     0                 UNIT MASK                       *A03
     8331   01 0273D    00000000 A            DATA     0                 CC                              *A03
     8332                            *                                                                   *A03
     8333                            *                                  TIO PHASING - PHASE 11           *A03
     8334   01 0273E    561001CF A   T5610    GEN,16,10,6    X'5610',7,T5620-%                           *A03
     8335   01 0273F    331013B2              MTW,1    WDTIND            SET EXPECTED WDT INDICATOR      *A03
     8336   01 02740    22801800 A            LI,R8    X'1800'                                           *A03
     8337   01 02741    ED801298              WD,R8    *GP08             STEP PHASE                      *A03
     8338   01 02742    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     8339   01 02743    CD001312              TIO,R0   *IOPMSADR         TIO                             *A03
     8340   01 02744    ED801298              WD,R8    *GP08             SET PHASE AGAIN                 *A03
     8341   01 02745    25900220 A            SCS,R9   32                DELAY                           *A03
     8342   01 02746    ED801298              WD,R8    *GP08             STEP PHASE                      *A03
     8343   01 02747    25900220 A            SCS,R9   32                DELAY                           *A03
     8344   01 02748    ED801298              WD,R8    *GP08             STEP PHASE                      *A03
     8345   01 02749    22800000 A            LI,R8    0                 COMPARE IMAGE                   *A03
     8346   01 0274A    EC901299              RD,R9    *GP09             READ DISPLAY GROUP              *A03
     8347   01 0274B    4B90374F              AND,R9   =X'2200002E'      MASK                            *A03
     8348   01 0274C    68001A60              B        CREQUAL                                           *A03
     8349         01 0274D           T5620    EQU      %                                                 *A03
     8350                            *                                                                   *A03
     8351                            *                                  PHASE TEST VIA RIO INSTRUCTION
     8352   01 0274D    659001CA A   T6590    GEN,16,10,6    X'6590',7,T6600-%   CONTROL WORD            *A03
     8353   01 0274E    6AC01BEC              BAL,R12  STOPIODV          PREVENT TST & COM CHAN. CONFLICT
     8354   01 0274F    32601310              LW,R6    IOPNO             IOP NUMBER                      *A03
     8355   01 02750    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     8356   01 02751    4F0C4000 A            RIO,R0   0,X6              RESET I/O
     8357   01 02752    228FFFF6 A            LI,R8    -10               DELAY ABOUT 10 USEC
     8358   01 02753    65802753              BIR,R8   %
     8359   01 02754    358012E4              STW,R8   DCOFFA            RESET DC OFF INDICATOR          *A04
     8360   01 02755    35801330              STW,R8   NDCDLY            ALSO RESET DC DELAY             *A04
     8361   01 02756    6800148F              B        GOOD              NO WATCHDOG TIME OUT
     8362                            *
     8363                            *                                  FUNCTION TEST, HIO
     8364   01 02757    660001CA A   T6600    GEN,16,10,6    X'6600',7,T6610-%   CONTROL WORD            *A03
     8365   01 02758    2280466F A            LI,R8    X'466F'           MS SNAP & COUNT BIT
     8366   01 02759    308012C8              AW,R8    CHBCTRL           CHANNEL B GROUP CONTROL         *A03
     8367   01 0275A    ED801298              WD,R8    *GP08             SET SNAP FOR 4TH PHASE
     8368   01 0275B    6AF01688              BAL,15   PREPHS02          SINGLE PHASE OR GIVE SYNC
     8369   01 0275C    CF001312              HIO,R0   *IOPMSADR         HIO                             *A03
     8370   01 0275D    EC901294              RD,R9    *DISPLAY          READ MS INDICATORS
     8371   01 0275E    4B903750              AND,R9   =X'F8'            MASK
     8372   01 0275F    22800010 A            LI,R8    X'10'             GOOD DATA
     8373   01 02760    68001A60              B        CREQUAL           VERIFY
     8374                            *
     8375                            *                                  FUNCTION TEST, TIO
     8376   01 02761    661001CA A   T6610    GEN,16,10,6    X'6610',7,T6614-%   CONTROL WORD            *A03
     8377   01 02762    2280466F A            LI,R8    X'466F'           MS SNAP & COUNT BIT
     8378   01 02763    308012C8              AW,R8    CHBCTRL           CHANNEL B GROUP CONTROL         *A03
     8379   01 02764    ED801298              WD,R8    *GP08             SET SNAP FOR 4TH PHASE
     8380   01 02765    6AF01683              BAL,15   PREPHS01          SINGLE PHASE OR GIVE SYNC
     8381   01 02766    CD001312              TIO,R0   *IOPMSADR         TIO                             *A03
     8382   01 02767    EC901294              RD,R9    *DISPLAY
     8383   01 02768    22800040 A            LI,R8    X'40'
     8384   01 02769    4B903750              AND,R9   =X'F8'            MASK
     8385   01 0276A    68001A60              B        CREQUAL           VERIFY TIO INDICATOR BIT
     8386                            *
     8387                            *                                  FUNCTION TEST, TDV
     8388   01 0276B    661401CA A   T6614    GEN,16,10,6    X'6614',7,T6616-%   CONTROL WORD            *A03
     8389   01 0276C    2280466F A            LI,R8    X'466F'           MS SNAP & COUNT BIT
     8390   01 0276D    308012C8              AW,R8    CHBCTRL           CHANNEL B GROUP CONTROL         *A03
     8391   01 0276E    ED801298              WD,R8    *GP08             SET SNAP FOR 4TH PHASE
     8392   01 0276F    6AF016AC              BAL,15   PREPHS06          SINGLE PHASE OR GIVE SYNC
     8393   01 02770    CE001312              TDV,R0   *IOPMSADR         TDV                             *A03
     8394   01 02771    EC901294              RD,R9    *DISPLAY          READ MS INDICATORS
     8395   01 02772    4B903750              AND,R9   =X'F8'            MASK
     8396   01 02773    22800020 A            LI,R8    X'20'             GOOD DATA
     8397   01 02774    68001A60              B        CREQUAL           VERIFY
     8398                            *
     8399                            *                                  FUNCTION TEST, SIO
     8400   01 02775    661601CB A   T6616    GEN,16,10,6    X'6616',7,T6620-%   CONTROL WORD            *A03
     8401   01 02776    2280768F A            LI,R8    X'768F'           MS SNAP & COUNT BIT,SINGLE SERVICE
     8402   01 02777    308012C8              AW,R8    CHBCTRL           CHANNEL B GROUP CONTROL         *A03
     8403   01 02778    ED801298              WD,R8    *GP08             SET SNAP FOR 4TH PHASE
     8404   01 02779    22000900              LI,R0    DA(CMDT1)         COMMAND ADDRESS
     8405   01 0277A    6AF0167A              BAL,15   PREPHS00          SINGLE PHASE OR GIVE SYNC
     8406   01 0277B    CC001312              SIO,R0   *IOPMSADR         SIO                             *A03
     8407   01 0277C    EC901294              RD,R9    *DISPLAY
     8408   01 0277D    22800080 A            LI,R8    X'80'
     8409   01 0277E    4B903750              AND,R9   =X'F8'            MASK
     8410   01 0277F    68001A60              B        CREQUAL           VERIFY TIO INDICATOR BIT
     8411                            *
     8412                            *                                  HIO TEST
     8413   01 02780    662001CC A   T6620    GEN,16,10,6    X'6620',7,T6630-%   CONTROL WORD            *A03
     8414   01 02781    32B01312              LW,R11   IOPMSADR          SUBCHANNEL ADDRESS              *A03
     8415   01 02782    6AF01C07              BAL,R15  SUBCHADR
     8416   01 02783    49A035DB              OR,R10   =X'80000000'
     8417   01 02784    EDA01299              WD,R10   *GP09             WRITE SUBCHANNEL
     8418   01 02785    228FFFFF A            LI,R8    -1
     8419   01 02786    6AF01688              BAL,15   PREPHS02          SINGLE PHASE OR GIVE SYNC
     8420   01 02787    CF201312              HIO,R2   *IOPMSADR         HIO                             *A03
     8421   01 02788    22800000 A            LI,R8    0                 COMPARE TO ZERO
     8422   01 02789    32900020 A            LW,R9    X'20'             READ COMMUNICATION CELL 20
     8423   01 0278A    4B903751              AND,R9   =X'FFE00000'      MASK
     8424   01 0278B    68001A60              B        CREQUAL           SHOULD BE ZERO
     8425                            *
     8426                            *                                  TIO TEST
     8427   01 0278C    663001CD A   T6630    GEN,16,10,6    X'6630',7,T6635-%   CONTROL WORD            *A03
     8428   01 0278D    32B01312              LW,R11   IOPMSADR          SUBCHANNEL ADDRESS              *A03
     8429   01 0278E    6AF01C07              BAL,R15  SUBCHADR
     8430   01 0278F    49A035DB              OR,R10   =X'80000000'
     8431   01 02790    EDA01299              WD,R10   *GP09             WRITE SUBCHANNEL
     8432   01 02791    228FFFFF A            LI,R8    -1
     8433   01 02792    35800020 A            STW,R8   X'20'
     8434   01 02793    6AF01683              BAL,15   PREPHS01          SINGLE PHASE OR GIVE SYNC
     8435   01 02794    CD201312              TIO,R2   *IOPMSADR         TEST                            *A03
     8436   01 02795    32900020 A            LW,R9    X'20'             ANY BITS
     8437   01 02796    4B903751              AND,R9   =X'FFE00000'      MASK
     8438   01 02797    22800000 A            LI,R8    0
     8439   01 02798    68001A60              B        CREQUAL           CC 3 OR 4
     8440                            *
     8441                            *                                  TDV TEST
     8442   01 02799    663501CD A   T6635    GEN,16,10,6    X'6635',7,T6640-%   CONTROL WORD            *A03
     8443   01 0279A    32B01312              LW,R11   IOPMSADR          SUBCHANNEL ADDRESS              *A03
     8444   01 0279B    6AF01C07              BAL,R15  SUBCHADR
     8445   01 0279C    49A035DB              OR,R10   =X'80000000'
     8446   01 0279D    EDA01299              WD,R10   *GP09             WRITE SUBCHANNEL
     8447   01 0279E    228FFFFF A            LI,R8    -1
     8448   01 0279F    35800020 A            STW,R8   X'20'
     8449   01 027A0    6AF016AC              BAL,R15  PREPHS06          SINGLE PHASE OR GIVE SYNC
     8450   01 027A1    CE201312              TDV,R2   *IOPMSADR         TEST DEVICE                     *A03
     8451   01 027A2    32900020 A            LW,R9    X'20'             ANY STATUS BITS
     8452   01 027A3    4B903751              AND,R9   =X'FFE00000'
     8453   01 027A4    22800000 A            LI,R8    0
     8454   01 027A5    68001A60              B        CREQUAL
     8455                            *
     8456                            *                                  SIO TEST
     8457   01 027A6    664001D2 A   T6640    GEN,16,10,6    X'6640',7,T6650-%   CONTROL WORD            *A03
     8458   01 027A7    32801327              LW,R8    MSA               MS ADDRESS
     8459   01 027A8    25800010 A            SLS,R8   16                POSITION ADDRESS BITS
     8460   01 027A9    49803752              OR,R8    =X'1000'          INHIBIT SERVICE CALL BIT
     8461   01 027AA    ED80129D              WD,R8    *GP13
     8462   01 027AB    32B01312              LW,R11   IOPMSADR          FORCE CCF BIT ON IN             *A03
     8463   01 027AC    6AF01C07              BAL,R15  SUBCHADR           THE APPROPRIATE SUBCHANNEL
     8464   01 027AD    49A03753              OR,R10   =X'80000002'
     8465   01 027AE    EDA01299              WD,R10   *GP09             WRITE BITS INTO SUBCHANNEL
     8466   01 027AF    228FFFFF A            LI,R8    -1
     8467   01 027B0    35800020 A            STW,R8   X'20'             CLEAR STATUS REGISTER
     8468   01 027B1    2200090A              LI,R0    DA(CMDT11)        COMMAND DOUBLE WORD-- ONE BYTE
     8469   01 027B2    6AF0167A              BAL,15   PREPHS00          SINGLE PHASE OR GIVE SYNC
     8470   01 027B3    CC201312              SIO,R2   *IOPMSADR         RESPONSE TO ODD REGISTER        *A03
     8471   01 027B4    32803754              LW,R8    =X'20000000'      COMPARE IMAGE
     8472   01 027B5    32900020 A            LW,R9    X'20'             STATUS IMAGE TO R9
     8473   01 027B6    4B903751              AND,R9   =X'FFE00000'      MASK OUT COMMAND FIELD
     8474   01 027B7    68001A60              B        CREQUAL           SHOULD SEE ZEROS IN BITS 0-10
     8475                            *
     8476                            *                                  FUNCTION RESPONSE, FR0-7 = 0
     8477   01 027B8    665001C8 A   T6650    GEN,16,10,6    X'6650',7,T6660-%   CONTROL WORD            *A03
     8478   01 027B9    328035EB              LW,R8    =X'1000000'       MS ADR PARITY, DATA 0-7 = 0
     8479   01 027BA    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA 0-7)
     8480   01 027BB    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8481   01 027BC    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8482   01 027BD    4B8035B9              AND,R8   =X'FF'
     8483   01 027BE    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8484   01 027BF    68001A60              B        CREQUAL
     8485                            *
     8486                            *                                  FUNCTION RESPONSE, FR 0
     8487   01 027C0    666001C8 A   T6660    GEN,16,10,6    X'6660',7,T6670-%   CONTROL WORD            *A03
     8488   01 027C1    32803755              LW,R8    =X'1000080'       MS ADR PARITY, DATA BIT 0
     8489   01 027C2    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     8490   01 027C3    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8491   01 027C4    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8492   01 027C5    4B8035B9              AND,R8   =X'FF'
     8493   01 027C6    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8494   01 027C7    68001A60              B        CREQUAL
     8495                            *
     8496                            *                                  FUNCTION RESPONSE, FR1
     8497   01 027C8    667001C8 A   T6670    GEN,16,10,6    X'6670',7,T6680-%   CONTROL WORD            *A03
     8498   01 027C9    32803756              LW,R8    =X'1000040'       MS ADR PARITY, DATA BIT 1
     8499   01 027CA    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     8500   01 027CB    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8501   01 027CC    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8502   01 027CD    4B8035B9              AND,R8   =X'FF'
     8503   01 027CE    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8504   01 027CF    68001A60              B        CREQUAL
     8505                            *
     8506                            *                                  FUNCTION RESPONSE, FR 2
     8507   01 027D0    668001C8 A   T6680    GEN,16,10,6    X'6680',7,T6690-%   CONTROL WORD            *A03
     8508   01 027D1    32803757              LW,R8    =X'1000020'       MS ADR PARITY, DATA BIT 2
     8509   01 027D2    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     8510   01 027D3    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8511   01 027D4    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8512   01 027D5    4B8035B9              AND,R8   =X'FF'
     8513   01 027D6    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8514   01 027D7    68001A60              B        CREQUAL
     8515                            *
     8516                            *                                  FUNCTION RESPONSE, FR 3
     8517   01 027D8    669001C8 A   T6690    GEN,16,10,6    X'6690',7,T6700-%   CONTROL WORD
     8518   01 027D9    32803758              LW,R8    =X'1000010'       MS ADR PARITY, DATA BIT 3
     8519   01 027DA    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     8520   01 027DB    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8521   01 027DC    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8522   01 027DD    4B8035B9              AND,R8   =X'FF'
     8523   01 027DE    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8524   01 027DF    68001A60              B        CREQUAL
     8525                            *
     8526                            *                                  FUNCTION RESPONSE, FR 4
     8527   01 027E0    670001C8 A   T6700    GEN,16,10,6    X'6700',7,T6710-%   CONTROL WORD            *A03
     8528   01 027E1    32803759              LW,R8    =X'1000008'       MS ADR PARITY, DATA BIT 4
     8529   01 027E2    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A)
     8530   01 027E3    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8531   01 027E4    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8532   01 027E5    4B8035B9              AND,R8   =X'FF'
     8533   01 027E6    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8534   01 027E7    68001A60              B        CREQUAL
     8535                            *
     8536                            *                                  FUNCTION RESPONSE, FR 5
     8537   01 027E8    671001C8 A   T6710    GEN,16,10,6    X'6710',7,T6720-%   CONTROL WORD            *A03
     8538   01 027E9    3280375A              LW,R8    =X'1000004'       MS ADR PARITY, DATA BIT 5
     8539   01 027EA    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A) (DA0-7)
     8540   01 027EB    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8541   01 027EC    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8542   01 027ED    4B8035B9              AND,R8   =X'FF'
     8543   01 027EE    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8544   01 027EF    68001A60              B        CREQUAL
     8545                            *
     8546                            *                                  FUNCTION RESPONSE, FR 6
     8547   01 027F0    672001C8 A   T6720    GEN,16,10,6    X'6720',7,T6730-%   CONTROL WORD            *A03
     8548   01 027F1    3280375B              LW,R8    =X'1000002'       MS ADR PARITY, DATA BIT 6
     8549   01 027F2    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A)
     8550   01 027F3    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8551   01 027F4    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8552   01 027F5    4B8035B9              AND,R8   =X'FF'
     8553   01 027F6    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8554   01 027F7    68001A60              B        CREQUAL
     8555                            *
     8556                            *                                  FUNCTION RESPONSE, FR 7
     8557   01 027F8    673001C8 A   T6730    GEN,16,10,6    X'6730',7,T6740-%   CONTROL WORD            *A03
     8558   01 027F9    3280375C              LW,R8    =X'1000001'       MS ADR PARITY, DATA BIT 7
     8559   01 027FA    ED80129D              WD,R8    *GP13             SET DATA BITS VIA MS (A)
     8560   01 027FB    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8561   01 027FC    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8562   01 027FD    4B8035B9              AND,R8   =X'FF'
     8563   01 027FE    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS
     8564   01 027FF    68001A60              B        CREQUAL
     8565                            *
     8566                            *                                  FUNCTION RESPONSE, FR0-7 = X'FF'
     8567   01 02800    674001C8 A   T6740    GEN,16,10,6    X'6740',7,T6742-%   CONTROL WORD            *A03
     8568   01 02801    3280375D              LW,R8    =X'10000FF'       MS ADR PARITY, DATA BITS 0-7 = X'FF'
     8569   01 02802    ED80129D              WD,R8    *GP13             SET DA0-7 VIA MS CONTROL GROUP
     8570   01 02803    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8571   01 02804    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8572   01 02805    4B8035B9              AND,R8   =X'FF'
     8573   01 02806    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS RESPONSE
     8574   01 02807    68001A60              B        CREQUAL           NO
     8575                            *
     8576                            *                                  FUNCTION RESPONSE, FR0-7 = X'55'
     8577   01 02808    674201C8 A   T6742    GEN,16,10,6    X'6742',7,T6744-%   CONTROL WORD            *A03
     8578   01 02809    3280375E              LW,R8    =X'1000055'       MS ADR PARITY, DATA BITS 0-7 = X'55'
     8579   01 0280A    ED80129D              WD,R8    *GP13             SET DA0-7 VIA MS CONTROL GROUP
     8580   01 0280B    6AF01683              BAL,R15  PREPHS01
     8581   01 0280C    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8582   01 0280D    4B8035B9              AND,R8   =X'FF'
     8583   01 0280E    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS RESPONSE
     8584   01 0280F    68001A60              B        CREQUAL           NO
     8585                            *
     8586                            *                                  FUNCTION RESPONSE, FR0-7 = X'AA'
     8587   01 02810    674401C8 A   T6744    GEN,16,10,6    X'6744',7,T6748-%   CONTROL WORD            *A03
     8588   01 02811    3280375F              LW,R8    =X'10000AA'       MS ADR PARITY, DATA BITS 0-7 = X'AA'
     8589   01 02812    ED80129D              WD,R8    *GP13             SET DA0-7 VIA MS CONTROL GROUP
     8590   01 02813    6AF01683              BAL,R15  PREPHS01          SYNC
     8591   01 02814    CD201310              TIO,R2   *IOPNO            CURRENT IOP, MS = 0             *A03
     8592   01 02815    4B8035B9              AND,R8   =X'FF'            MASK
     8593   01 02816    72900021 A            LB,R9    X'21'             CELL 21, BYTE 1, STATUS RESPONSE
     8594   01 02817    68001A60              B        CREQUAL           NO
     8595                            *
     8596                            *                                  DEVICE ADDRESS RECOGNITION, BITS 0-7
     8597   01 02818    674800C7 A   T6748    GEN,16,10,6    X'6748',3,T6750-%   CONTROL WORD            *A03
     8598   01 02819    328035EB              LW,R8    =X'1000000'       DEVICE ADR WITH PARITY
     8599   01 0281A    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8600   01 0281B    49801310              OR,R8    IOPNO                                             *A03
     8601   01 0281C    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8602   01 0281D    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8603   01 0281E    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2 = 0
     8604                            *
     8605                            *                                  DEVICE ADDRESS RECOGNITION, BIT 0
     8606   01 0281F    675000C8 A   T6750    GEN,16,10,6    X'6750',3,T6760-%   CONTROL WORD            *A03
     8607   01 02820    328035EA              LW,R8    =X'800000'        DEVICE ADDRESS
     8608   01 02821    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8609   01 02822    25800070 A            SLS,R8   -16
     8610   01 02823    49801310              OR,R8    IOPNO                                             *A03
     8611   01 02824    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8612   01 02825    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8613   01 02826    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8614                            *
     8615                            *                                  DEVICE ADDRESS RECOGNITION, BIT 1
     8616                            *                                    (CHANNEL A ONLY)               *A03
     8617   01 02827    67600048 A   T6760    GEN,16,10,6    X'6760',1,T6770-%   CONTROL WORD            *A03
     8618   01 02828    328035B5              LW,R8    =X'400000'        DEVICE RECOGNITION
     8619   01 02829    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8620   01 0282A    25800070 A            SLS,R8   -16
     8621   01 0282B    49801310              OR,R8    IOPNO                                             *A03
     8622   01 0282C    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8623   01 0282D    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8624   01 0282E    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8625                            *
     8626                            *                                  DEVICE ADDRESS RECOGNITION, BIT 2
     8627                            *                                    (CHANNEL A ONLY)               *A03
     8628   01 0282F    67700048 A   T6770    GEN,16,10,6    X'6770',1,T6780-%   CONTROL WORD            *A03
     8629   01 02830    32803760              LW,R8    =X'200000'        DEVICE ADDRESS
     8630   01 02831    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8631   01 02832    25800070 A            SLS,R8   -16
     8632   01 02833    49801310              OR,R8    IOPNO                                             *A03
     8633   01 02834    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8634   01 02835    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8635   01 02836    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8636                            *
     8637                            *                                  DEVICE ADDRESS RECOGNITION, BIT 3
     8638                            *                                    (CHANNEL A ONLY)               *A03
     8639   01 02837    67800048 A   T6780    GEN,16,10,6    X'6780',1,T6790-%   CONTROL WORD            *A03
     8640   01 02838    328035B4              LW,R8    =X'100000'        DEVICE ADDRESS
     8641   01 02839    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8642   01 0283A    25800070 A            SLS,R8   -16
     8643   01 0283B    49801310              OR,R8    IOPNO                                             *A03
     8644   01 0283C    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8645   01 0283D    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8646   01 0283E    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8647                            *
     8648                            *                                  DEVICE ADDRESS RECOGNITION, BIT 4
     8649                            *                                    (CHANNEL A ONLY)               *A03
     8650   01 0283F    67900048 A   T6790    GEN,16,10,6    X'6790',1,T6800-%   CONTROL WORD            *A03
     8651   01 02840    328035ED              LW,R8    =X'80000'         DEVICE ADDRESS
     8652   01 02841    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8653   01 02842    25800070 A            SLS,R8   -16
     8654   01 02843    49801310              OR,R8    IOPNO                                             *A03
     8655   01 02844    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8656   01 02845    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8657   01 02846    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8658                            *
     8659                            *                                  DEVICE ADDRESS RECOGNITION, BIT 5
     8660   01 02847    680000C8 A   T6800    GEN,16,10,6    X'6800',3,T6810-%   CONTROL WORD            *A03
     8661   01 02848    32803761              LW,R8    =X'40000'         DEVICE ADDRESS
     8662   01 02849    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8663   01 0284A    25800070 A            SLS,R8   -16
     8664   01 0284B    49801310              OR,R8    IOPNO                                             *A03
     8665   01 0284C    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8666   01 0284D    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8667   01 0284E    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8668                            *
     8669                            *                                  DEVICE ADDRESS RECOGNITION, BIT 6
     8670   01 0284F    681000C8 A   T6810    GEN,16,10,6    X'6810',3,T6820-%   CONTROL WORD            *A03
     8671   01 02850    22820000 A            LI,R8    X'20000'          DEVICE ADDRESS
     8672   01 02851    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8673   01 02852    25800070 A            SLS,R8   -16
     8674   01 02853    49801310              OR,R8    IOPNO                                             *A03
     8675   01 02854    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8676   01 02855    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8677   01 02856    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8678                            *
     8679                            *                                  DEVICE ADDRESS RECOGNITION, BIT 7
     8680   01 02857    682000C8 A   T6820    GEN,16,10,6    X'6820',3,T6830-%   CONTROL WORD            *A03
     8681   01 02858    22810000 A            LI,R8    X'10000'          DEVICE ADDRESS
     8682   01 02859    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8683   01 0285A    25800070 A            SLS,R8   -16
     8684   01 0285B    49801310              OR,R8    IOPNO                                             *A03
     8685   01 0285C    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8686   01 0285D    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8687   01 0285E    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8688                            *
     8689                            *                                  DEVICE ADDRESS RECOGNITION, X'55' PAT.
     8690   01 0285F    683000C8 A   T6830    GEN,16,10,6    X'6830',3,T6834-%   CONTROL WORD            *A03
     8691   01 02860    32803762              LW,R8    =X'1550000'       DEVICE ADR WITH PARITY
     8692   01 02861    ED80129D              WD,R8    *GP13
     8693   01 02862    22800055 A            LI,R8    X'55'             COMPARE ADDRESS
     8694   01 02863    49801310              OR,R8    IOPNO                                             *A03
     8695   01 02864    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8696   01 02865    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8697   01 02866    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8698                            *
     8699                            *                                   DEVICE ADDRESS RECOGNITION,X'AA' PAT.
     8700   01 02867    683400C8 A   T6834    GEN,16,10,6    X'6834',3,T6840-%   CONTROL WORD            *A03
     8701   01 02868    32803763              LW,R8    =X'1AA0000'       DEVICE ADR WITH PARITY
     8702   01 02869    ED80129D              WD,R8    *GP13
     8703   01 0286A    228000AA A            LI,R8    X'AA'             COMPARE ADDRESS
     8704   01 0286B    49801310              OR,R8    IOPNO                                             *A03
     8705   01 0286C    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8706   01 0286D    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8707   01 0286E    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2=0
     8708                            *
     8709                            *                                  DEVICE ADDRESS RECOGNITION, ALL 1'S
     8710   01 0286F    684000C8 A   T6840    GEN,16,10,6    X'6840',3,T6850-%   CONTROL WORD            *A03
     8711   01 02870    32803764              LW,R8    =X'FF0000'        DEVICE ADR WITH PARITY
     8712   01 02871    ED80129D              WD,R8    *GP13             SET ADDRESS TO ZERO
     8713   01 02872    228000FF A            LI,R8    X'FF'             COMPARE ADDRESS
     8714   01 02873    49801310              OR,R8    IOPNO                                             *A03
     8715   01 02874    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8716   01 02875    CD000008 A            TIO,R0   *R8               TEST ADDRESS
     8717   01 02876    680019AE              B        NCC2              SHOULD RECOGNIZE ADDRESS, CC2= 0
     8718                            *
     8719                            *                                  DEVICE ADDRESS NOT RECOGNITIZED (0'S)
     8720   01 02877    685000C8 A   T6850    GEN,16,10,6    X'6850',3,T6860-%   CONTROL WORD            *A03
     8721   01 02878    328035EB              LW,R8    =X'1000000'       DEVICE ADDRESS WITH PARITY
     8722   01 02879    ED80129D              WD,R8    *GP13             SET ADDRESS
     8723   01 0287A    2280007F A            LI,R8    X'7F'
     8724   01 0287B    49801310              OR,R8    IOPNO                                             *A03
     8725   01 0287C    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8726   01 0287D    CD000008 A            TIO,R0   *R8               TEST
     8727   01 0287E    680019AC              B        CC2
     8728                            *
     8729                            *                                  RIO TEST,
     8730   01 0287F    686001CA A   T6860    GEN,16,10,6    X'6860',7,T6870-%   CONTROL WORD            *A03
     8731   01 02880    6AC01BEC              BAL,R12  STOPIODV          PREVENT TST & COM CHAN. CONFLICT
     8732   01 02881    32601312              LW,R6    IOPMSADR
     8733   01 02882    4F0C4000 A            RIO,0    0,X6              RESET D.C. OFF-LINE FLAG
     8734   01 02883    22000000 A            LI,R0    0
     8735   01 02884    350012E4              STW,R0   DCOFFA
     8736   01 02885    32803765              LW,R8    =X'C0A20000'      MASK
     8737   01 02886    EC901295              RD,R9    *GP01             READ GROUP
     8738   01 02887    4B9035D3              AND,R9   =X'FFFF0000'      SHOULD BE ALL ZEROS
     8739   01 02888    68001A60              B        CREQUAL
     8740                            *
     8741                            *                                  POLP TEST, CONDITION CODES
     8742   01 02889    687000C5 A   T6870    GEN,16,10,6    X'6870',3,T6880-%   CONTROL WORD            *A03
     8743   01 0288A    32601310              LW,R6    IOPNO                                             *A03
     8744   01 0288B    4F8C8000 A            POLP,R8  0,X6              POLL PROCESSOR
     8745   01 0288C    69C013D0              BCS,12   BAD               CC 1 & 2 =0
     8746   01 0288D    6800148F              B        GOOD              YES
     8747                            *
     8748                            *                                  POLP TEST,STATUS RESPONSE
     8749   01 0288E    688001C6 A   T6880    GEN,16,10,6    X'6880',7,T6890-%   CONTROL WORD            *A03
     8750   01 0288F    32601310              LW,R6    IOPNO                                             *A03
     8751   01 02890    4F9C8000 A            POLP,R9  0,X6              POLL PROCESSOR
     8752   01 02891    22800000 A            LI,R8    0
     8753   01 02892    21900000 A            CI,R9    0                 STATUS BITS 24-29 SHOULD BE OFF
     8754   01 02893    68001A61              B        EQUAL
     8755                            *
     8756                            *                                  POLR TEST, CONDITION CODES
     8757   01 02894    689000C5 A   T6890    GEN,16,10,6    X'6890',3,T6900-%   CONTROL WORD            *A03
     8758   01 02895    32601310              LW,R6    IOPNO                                             *A03
     8759   01 02896    4F8CC000 A            POLR,R8  0,X6              POLL PROCESSOR & RESET
     8760   01 02897    69C013D0              BCS,12   BAD               CC 1 & 2 =0
     8761   01 02898    6800148F              B        GOOD              YES
     8762                            *
     8763                            *                                  POLR TEST, STATUS RESPONSE
     8764   01 02899    690001C6 A   T6900    GEN,16,10,6    X'6900',7,T6910-%   CONTROL WORD            *A03
     8765   01 0289A    32601310              LW,R6    IOPNO                                             *A03
     8766   01 0289B    4F9CC000 A            POLR,R9  0,X6              POLL PROCESSOR & RESET
     8767   01 0289C    22800000 A            LI,R8    0
     8768   01 0289D    21900000 A            CI,R9    0                 STATUS BITS 24-29 SHOULD BE OFF
     8769   01 0289E    68001A61              B        EQUAL
     8770                            *
     8771                            *                                  POLR TEST, RESET CONDITION
     8772   01 0289F    691001C7 A   T6910    GEN,16,10,6    X'6910',7,T6920-%   CONTROL WORD            *A03
     8773   01 028A0    32601310              LW,R6    IOPNO                                             *A03
     8774   01 028A1    4F0CC000 A            POLR,R0  0,X6              POLL PROCESSOR & RESET
     8775   01 028A2    EC901296              RD,R9    *GP02             READ MPXC DISPLAY GROUP
     8776   01 028A3    22800000 A            LI,R8    0                 COMPARE IMAGE
     8777   01 028A4    4B9035C8              AND,R9   =X'80'            IGNORE DON'T CARES
     8778   01 028A5    68001A61              B        EQUAL             VERIFY
     8779                            *
     8780                            *                                  SERVICE CALL
     8781   01 028A6    692001CE A   T6920    GEN,16,10,6    X'6920',7,T6930-%   CONTROL WORD            *A03
     8782   01 028A7    22803000 A            LI,R8    X'3000'           SINGLE SERVICE                  *A03
     8783   01 028A8    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     8784   01 028A9    ED801298              WD,R8    *GP08             SET SNAP                        *A03
     8785   01 028AA    22000900              LI,R0    DA(CMDT1)         COMMAND ADDRESS
     8786   01 028AB    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8787   01 028AC    CC001312              SIO,R0   *IOPMSADR         START
     8788   01 028AD    22809E09 A            LI,R8    X'9E09'           SINGLE PHASE & ORDER            *A03
     8789   01 028AE    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     8790   01 028AF    ED801298              WD,R8    *GP08                                             *A03
     8791   01 028B0    328035BE              LW,R8    =X'4000000'
     8792   01 028B1    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY, GROUP 9
     8793   01 028B2    4B9035BE              AND,R9   =X'4000000'       SAVE "SC" BIT
     8794   01 028B3    680019B0              B        CC3
     8795                            *
     8796                            *                                  ACKNOWLEDGE SERVICE CALL
     8797   01 028B4    693001CE A   T6930    GEN,16,10,6    X'6930',7,T6940-%   CONTROL WORD            *A03
     8798   01 028B5    22803000 A            LI,R8    X'3000'           SINGLE SERVICE                  *A03
     8799   01 028B6    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     8800   01 028B7    ED801298              WD,R8    *GP08             SET SNAP                        *A03
     8801   01 028B8    22000900              LI,R0    DA(CMDT1)         COMMAND WORD,READ,BC=1
     8802   01 028B9    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8803   01 028BA    CC001312              SIO,R0   *IOPMSADR         START
     8804   01 028BB    22809E0F A            LI,R8    X'9E0F'           SNAP AT T100B IN PHI FOR ASC    *A03
     8805   01 028BC    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     8806   01 028BD    ED801298              WD,R8    *GP08                                             *A03
     8807   01 028BE    22800004 A            LI,R8    4
     8808   01 028BF    EC901294              RD,R9    *DISPLAY          MS DISPLAY GROUP 15 FOR ASC
     8809   01 028C0    4B9035BB              AND,R9   =4
     8810   01 028C1    680019B0              B        CC3               VERIFY
     8811                            *
     8812                            *                                  CONDITION CODE 1 SET
     8813   01 028C2    694000C5 A   T6940    GEN,16,10,6    X'6940',3,T6950-%   CONTROL WORD            *A03
     8814   01 028C3    32801311              LW,R8    IOPMSAP           NOT ADDRESS RECOGNITION         *A03
     8815   01 028C4    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8816   01 028C5    CD000008 A            TIO,R0   *R8               TEST CC 1
     8817   01 028C6    680019A8              B        CC1               SHOULD BE SET
     8818                            *
     8819                            *                                  CONDITION CODE 1 RESET
     8820   01 028C7    695000C4 A   T6950    GEN,16,10,6    X'6950',3,T6960-%   CONTROL WORD            *A03
     8821   01 028C8    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8822   01 028C9    CD001312              TIO,R0   *IOPMSADR         TEST CC 1
     8823   01 028CA    680019AA              B        NCC1              SHOULD BE RESET
     8824                            *
     8825                            *                                  CONDITION CODE 2 SET
     8826   01 028CB    696000C5 A   T6960    GEN,16,10,6    X'6960',3,T6970-%   CONTROL WORD            *A03
     8827   01 028CC    32801311              LW,R8    IOPMSAP           NOT ADDRESS RECOGNITION         *A03
     8828   01 028CD    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR SYNC
     8829   01 028CE    CD000008 A            TIO,R0   *R8               TEST
     8830   01 028CF    680019AC              B        CC2               CC 2 SET
     8831                            *
     8832                            *                                  CONDITION CODE 2 RESET
     8833   01 028D0    697000C4 A   T6970    GEN,16,10,6    X'6970',3,T6980-%   CONTROL WORD            *A03
     8834   01 028D1    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8835   01 028D2    CD001312              TIO,R0   *IOPMSADR         TEST
     8836   01 028D3    680019AE              B        NCC2              SHOULD NOT SET
     8837                            *
     8838                            *                                  NOT CONDITION CODE 3
     8839   01 028D4    698000C4 A   T6980    GEN,16,10,6    X'6980',3,T6990-%   CONTROL WORD            *A03
     8840   01 028D5    6AF01683              BAL,R15  PREPHS01          SINGLE PHASE OR GIVE SYNC
     8841   01 028D6    CD001311              TIO,R0   *IOPMSAP          TEST
     8842   01 028D7    680019B2              B        NCC3
     8843                            *
     8844                            *                                  CONDITION CODE 3
     8845   01 028D8    699000D4 A   T6990    GEN,16,10,6    X'6990',3,T7000-%   CONTROL WORD            *A03
     8846   01 028D9    22800400 A            LI,R8    X'400'            DISARM MEMORY FAULT
     8847   01 028DA    6D801100 A            WD,R8    DISARM             INTERRUPT
     8848   01 028DB    22901800 A            LI,R9    X'1800'           SINGLE PHASE CONTROL
     8849   01 028DC    ED901298              WD,R9    *GP08
     8850   01 028DD    331013B2              MTW,1    WDTIND            SET WATCHDOG TIMER FOR
     8851   01 028DE    CD101312              TIO,R1   *IOPMSADR          LOCAL RETURN
     8852   01 028DF    02200020 A            LCI      2                 WDT
     8853   01 028E0    2D900020 A            LMS,R9   CELL20            READ AND SET PARITY
     8854   01 028E1    22909A09 A            LI,R9    X'9A09'           SNAP TIO PHASE ZERO             *A03
     8855   01 028E2    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     8856   01 028E3    ED901298              WD,R9    *GP08             PH0 OF TIO                      *A03
     8857   01 028E4    ED901298              WD,R9    *GP08             PH10 OF TIO
     8858   01 028E5    EC901294              RD,R9    *DISPLAY          READ CHANNEL DISPLAY
     8859   01 028E6    4B903766              AND,R9   =X'E'             MASK FOR CC BIT
     8860   01 028E7    022000C0 A            LCI      12                RESET MEMORY PARITY
     8861   01 028E8    2D000020 A            LMS,R0   CELL20
     8862   01 028E9    6D801200 A            WD,R8    ARMABLE           ARM MEMORY FAULT
     8863   01 028EA    22800002 A            LI,R8    2
     8864   01 028EB    68001A60              B        CREQUAL
     8865                            *
     8866                            *                                  FAM DATA PATH VIA INTERNAL IOP REG'S
     8867                            *                                   WRITE FAM DURING INITIAL SIO SERVICE
     8868   01 028EC    700001CD A   T7000    GEN,16,10,6    X'7000',7,T7010-%   CONTROL WORD            *A03
     8869   01 028ED    32803767              LW,R8    =X'1001000'       ADR PARITY = 1, MS ADR = 0, INHIBIT SC
     8870   01 028EE    ED80129D              WD,R8    *GP13             SERVICE CALL
     8871   01 028EF    32903616              LW,R9    =X'80FFFFFF'      ALL ONES TO FAM LOCATION ZERO
     8872   01 028F0    ED901299              WD,R9    *GP09             WRITE FAM 0
     8873   01 028F1    22000000 A            LI,R0    0                 COMMAND ADDRESS
     8874   01 028F2    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8875   01 028F3    CC001310              SIO,R0   *IOPNO            I/O.  SERVICE CALL INHIBITED    *A03
     8876   01 028F4    22800000 A            LI,R8    0                 FAM ADDRESS CONFIGURATION
     8877   01 028F5    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8878   01 028F6    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8879   01 028F7    4B903768              AND,R9   =X'FFFFF8'        MASK HIGH ORDER BITS
     8880   01 028F8    68001A60              B        CREQUAL           VERIFY
     8881                            *
     8882                            *                                  FAM DATA PATH VIA INTERNAL IOP REG
     8883                            *                                   WRITE FAM DURING INITIAL SIO SERVICE
     8884   01 028F9    701001D0 A   T7010    GEN,16,10,6    X'7010',7,T7015-%   CONTROL WORD            *A03
     8885   01 028FA    32803767              LW,R8    =X'1001000'       ADR PARITY = 1, ADR = 0, INHIBIT SC
     8886   01 028FB    ED80129D              WD,R8    *GP13
     8887   01 028FC    221FFFFE A            LI,R1    -2
     8888   01 028FD    32903616              LW,R9    =X'80FFFFFF'      ALL ONES TO FAM LOCATION ZERO
     8889   01 028FE    ED901299              WD,R9    *GP09             WRITE FAM 0
     8890   01 028FF    32003769              LW,R0    =X'155555'        COMMAND ADDRESS
     8891   01 02900    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8892   01 02901    CC001310              SIO,R0   *IOPNO            I/O.  SERVICE CALL INHIBITED    *A03
     8893   01 02902    22800000 A            LI,R8    0                 FAM ADDRESS CONFIGURATION
     8894   01 02903    ED801299              WD,R8    *GP09             SELECT FAM ADDRESS 0
     8895   01 02904    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8896   01 02905    4B903768              AND,R9   =X'FFFFF8'        MASK HIGH ORDER BITS
     8897   01 02906    32800000 A            LW,R8    R0
     8898   01 02907    2590007D A            SLS,R9   -3                FORMAT
     8899   01 02908    68001A60              B        CREQUAL           VERIFY
     8900                            *
     8901                            *                                   FAM DATA PATH VIA INTERNAL IOP REG
     8902   01 02909    701501D2 A   T7015    GEN,16,10,6    X'7015',7,T7020-%   CONTROL WORD            *A03
     8903   01 0290A    32803767              LW,R8    =X'1001000'       ADR PARITY = 1, ADR = 0, INHIBIT SC
     8904   01 0290B    ED80129D              WD,R8    *GP13
     8905   01 0290C    221FFFFE A            LI,R1    -2
     8906   01 0290D    32903616              LW,R9    =X'80FFFFFF'      ALL ONES TO FAM LOCATION ZERO
     8907   01 0290E    ED901299              WD,R9    *GP09             WRITE FAM 0
     8908   01 0290F    3200376A              LW,R0    =X'AAAAA'         COMMAND ADDRESS
     8909   01 02910    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8910   01 02911    CC001310              SIO,R0   *IOPNO            I/O.  SERVICE CALL INHIBITED    *A03
     8911   01 02912    65102912              BIR,R1   %                 DELAY TWO CYCLES
     8912   01 02913    22800000 A            LI,R8    0                 FAM ADDRESS CONFIGURATION
     8913   01 02914    ED801299              WD,R8    *GP09             SELECT FAM ADDRESS
     8914   01 02915    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8915   01 02916    4B903768              AND,R9   =X'FFFFF8'        MASK HIGH ORDER BITS
     8916   01 02917    32800000 A            LW,R8    R0
     8917   01 02918    2590007D A            SLS,R9   -3                FORMAT COMMAND ADDRESS
     8918   01 02919    68001A60              B        CREQUAL           VERIFY
     8919   01 0291A    22800002 A            LI,R8    2
     8920                            *
     8921                            *                                  FAM ADDRESS 1 VIA I/O
     8922   01 0291B    702001D3 A   T7020    GEN,16,10,6    X'7020',7,T7030-%   CONTROL WORD            *A03
     8923   01 0291C    22811000 A            LI,R8    X'11000'          MS ADR=1, INHIBIT SERVICE CALL
     8924   01 0291D    ED80129D              WD,R8    *GP13
     8925   01 0291E    221FFFFB A            LI,R1    -5                DELAY COUNT
     8926   01 0291F    32903639              LW,R9    =X'84000000'      ALL ZEROS TO FAM LOCATION
     8927   01 02920    ED901299              WD,R9    *GP09             WRITE FAM 1
     8928   01 02921    22000001 A            LI,R0    1
     8929   01 02922    22800001 A            LI,R8    1                 ADDRESS OF DEVICE & FAM
     8930   01 02923    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER           *A03
     8931   01 02924    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8932   01 02925    CC000008 A            SIO,R0   *R8               I/O
     8933   01 02926    65102926              BIR,R1   %                 DELAY 5 CYCLES
     8934   01 02927    328035BE              LW,R8    =X'4000000'       FAM ADDRESS CONFIGURATION
     8935   01 02928    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8936   01 02929    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     8937   01 0292A    4B903768              AND,R9   =X'FFFFF8'        READ FAM 1
     8938   01 0292B    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     8939   01 0292C    22800001 A            LI,R8    X'1'
     8940   01 0292D    68001A60              B        CREQUAL           VERIFY
     8941                            *
     8942                            *                                  FAM ADDRESS 2 VIA I/O
     8943   01 0292E    703001D3 A   T7030    GEN,16,10,6    X'7030',7,T7040-%   CONTROL WORD            *A03
     8944   01 0292F    22821000 A            LI,R8    X'21000'          MS ADR=2, INHIBIT SERVICE CALL
     8945   01 02930    ED80129D              WD,R8    *GP13
     8946   01 02931    221FFFFB A            LI,R1    -5                DELAY COUNT
     8947   01 02932    3290363B              LW,R9    =X'88000000'      ALL ZEROS TO FAM LOCATION
     8948   01 02933    ED901299              WD,R9    *GP09             WRITE FAM 2
     8949   01 02934    22000002 A            LI,R0    2
     8950   01 02935    22800002 A            LI,R8    2                 ADDRESS OF DEVICE & FAM
     8951   01 02936    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER
     8952   01 02937    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC       *A03
     8953   01 02938    CC000008 A            SIO,R0   *R8               I/O
     8954   01 02939    65102939              BIR,R1   %                 DELAY 5 CYCLES
     8955   01 0293A    3280376B              LW,R8    =X'8000000'       FAM ADDRESS CONFIGURATION
     8956   01 0293B    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8957   01 0293C    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     8958   01 0293D    4B903768              AND,R9   =X'FFFFF8'        READ FAM ZERO
     8959   01 0293E    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     8960   01 0293F    22800002 A            LI,R8    X'2'
     8961   01 02940    68001A60              B        CREQUAL           VERIFY
     8962                            *
     8963                            *                                  FAM ADDRESS 4 VIA I/O
     8964   01 02941    704001D3 A   T7040    GEN,16,10,6    X'7040',7,T7050-%   CONTROL WORD            *A03
     8965   01 02942    22841000 A            LI,R8    X'41000'          MS ADR=4, INHIBIT SERVICE CALL
     8966   01 02943    ED80129D              WD,R8    *GP13
     8967   01 02944    221FFFFB A            LI,R1    -5                DELAY COUNT
     8968   01 02945    3290363F              LW,R9    =X'90000000'      ALL ZEROS TO FAM LOCATION
     8969   01 02946    ED901299              WD,R9    *GP09             WRITE FAM4
     8970   01 02947    22000004 A            LI,R0    4
     8971   01 02948    22800004 A            LI,R8    4                 ADDRESS OF DEVICE & FAM
     8972   01 02949    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER           *A03
     8973   01 0294A    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8974   01 0294B    CC000008 A            SIO,R0   *R8               I/O
     8975   01 0294C    6510294C              BIR,R1   %                 DELAY 5 CYCLES
     8976   01 0294D    328035C0              LW,R8    =X'10000000'      FAM ADDRESS CONFIGURATION
     8977   01 0294E    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8978   01 0294F    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     8979   01 02950    4B903768              AND,R9   =X'FFFFF8'        READ FAM ZERO
     8980   01 02951    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     8981   01 02952    22800004 A            LI,R8    4
     8982   01 02953    68001A60              B        CREQUAL           VERIFY
     8983                            *
     8984                            *                                  FAM ADDRESS 8 VIA I/O
     8985   01 02954    70502153 A   T7050    GEN,16,10,6    X'7050',X'85',T7060-% CONTROL WORD          *A03
     8986   01 02955    3280376C              LW,R8    =X'81000'         MS ADDRESS = 8, INHIBIT SC
     8987   01 02956    ED80129D              WD,R8    *GP13
     8988   01 02957    221FFFFB A            LI,R1    -5                DELAY COUNT
     8989   01 02958    32903608              LW,R9    =X'A0000000'      ALL ZEROS TO FAM LOCATION
     8990   01 02959    ED901299              WD,R9    *GP09             WRITE FAM 8
     8991   01 0295A    22000008 A            LI,R0    8
     8992   01 0295B    22800008 A            LI,R8    8                 ADDRESS OF DEVICE & FAM
     8993   01 0295C    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER           *A03
     8994   01 0295D    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     8995   01 0295E    CC000008 A            SIO,R0   *R8               I/O
     8996   01 0295F    6510295F              BIR,R1   %                 DELAY 5 CYCLES
     8997   01 02960    32803754              LW,R8    =X'20000000'      FAM ADDRESS CONFIGURATION
     8998   01 02961    ED801299              WD,R8    *GP09             SELECT ADDRESS
     8999   01 02962    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     9000   01 02963    4B903768              AND,R9   =X'FFFFF8'        READ FAM ZERO
     9001   01 02964    2590007D A            SLS,R9   -3                FORMAT
     9002   01 02965    22800008 A            LI,R8    X'8'
     9003   01 02966    68001A60              B        CREQUAL           VERIFY
     9004                            *
     9005                            *                                  FAM ADDRESS 10 VIA I/O
     9006   01 02967    70601153 A   T7060    GEN,16,10,6    X'7060',X'45',T7070-% CONTROL WORD          *A03
     9007   01 02968    3280376D              LW,R8    =X'101000'        MS ADR=10 HEX, INHIBIT SC
     9008   01 02969    ED80129D              WD,R8    *GP13
     9009   01 0296A    221FFFFB A            LI,R1    -5                DELAY COUNT
     9010   01 0296B    329035D1              LW,R9    =X'C0000000'      ALL ZEROS TO FAM LOCATION
     9011   01 0296C    ED901299              WD,R9    *GP09             WRITE FAM 1
     9012   01 0296D    22000010 A            LI,R0    X'10'
     9013   01 0296E    22800010 A            LI,R8    X'10'             ADDRESS OF DEVICE & FAM
     9014   01 0296F    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER           *A03
     9015   01 02970    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     9016   01 02971    CC000008 A            SIO,R0   *R8               I/O
     9017   01 02972    65102972              BIR,R1   %                 DELAY 5 CYCLES
     9018   01 02973    328035E1              LW,R8    =X'40000000'      FAM ADDRESS CONFIGURATION
     9019   01 02974    ED801299              WD,R8    *GP09             SELECT ADDRESS
     9020   01 02975    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     9021   01 02976    4B903768              AND,R9   =X'FFFFF8'        READ FAM ZERO
     9022   01 02977    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     9023   01 02978    22800010 A            LI,R8    X'10'
     9024   01 02979    68001A60              B        CREQUAL           VERIFY
     9025                            *
     9026                            *                                  FAM ADDRESS 0 VIA MULTI-DEV. I/O
     9027   01 0297A    707001D3 A   T7070    GEN,16,10,6    X'7070',7,T7080-%   CONTROL WORD            *A03
     9028   01 0297B    3280376E              LW,R8    =X'801000'        MS ADR=80 HEX, INHIBIT SC
     9029   01 0297C    ED80129D              WD,R8    *GP13
     9030   01 0297D    221FFFFB A            LI,R1    -5                DELAY COUNT
     9031   01 0297E    329035DB              LW,R9    =X'80000000'      ALL ZEROS TO FAM LOCATION
     9032   01 0297F    ED901299              WD,R9    *GP09             WRITE FAM 0
     9033   01 02980    22000080 A            LI,R0    X'80'
     9034   01 02981    22800080 A            LI,R8    X'80'             ADDRESS OF DEVICE & SUBCHANNEL
     9035   01 02982    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER           *A03
     9036   01 02983    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     9037   01 02984    CC000008 A            SIO,R0   *R8               I/O
     9038   01 02985    65102985              BIR,R1   %                 DELAY 5 CYCLES
     9039   01 02986    22800000 A            LI,R8    0                 FAM ADDRESS CONFIGURATION
     9040   01 02987    ED801299              WD,R8    *GP09             SELECT ADDRESS
     9041   01 02988    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     9042   01 02989    4B903768              AND,R9   =X'FFFFF8'        READ FAM ZERO
     9043   01 0298A    2590007D A            SLS,R9   -3
     9044   01 0298B    22800080 A            LI,R8    X'80'
     9045   01 0298C    68001A60              B        CREQUAL           VERIFY
     9046                            *
     9047                            *                                  FAM ADDRESS 1 VIA MULTI-DEV I/O
     9048   01 0298D    708001D3 A   T7080    GEN,16,10,6    X'7080',7,T7090-%   CONTROL WORD            *A03
     9049   01 0298E    3280376F              LW,R8    =X'1901000'       MS ADR = X'90', INHIBIT SC, PARITY=1
     9050   01 0298F    ED80129D              WD,R8    *GP13
     9051   01 02990    221FFFFB A            LI,R1    -5                DELAY COUNT
     9052   01 02991    32903639              LW,R9    =X'84000000'      ALL ZEROS TO FAM LOCATION
     9053   01 02992    ED901299              WD,R9    *GP09             WRITE FAM 1
     9054   01 02993    22000090 A            LI,R0    X'90'
     9055   01 02994    22800090 A            LI,R8    X'90'             ADDRESS OF DEVICE & FAM
     9056   01 02995    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER           *A03
     9057   01 02996    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     9058   01 02997    CC000008 A            SIO,R0   *R8               I/O
     9059   01 02998    65102998              BIR,R1   %                 DELAY 5 CYCLES
     9060   01 02999    328035BE              LW,R8    =X'4000000'       FAM ADDRESS CONFIGURATION
     9061   01 0299A    ED801299              WD,R8    *GP09             SELECT ADDRESS
     9062   01 0299B    EC90129A              RD,R9    *GP10             SELECT ADDRESS
     9063   01 0299C    4B903768              AND,R9   =X'FFFFF8'        READ FAM ONE
     9064   01 0299D    2590007D A            SLS,R9   -3
     9065   01 0299E    22800090 A            LI,R8    X'90'
     9066   01 0299F    68001A60              B        CREQUAL           VERIFY
     9067                            *
     9068                            *                                  FAM ADDRESS 2 VIA MULTI-DEV I/O
     9069   01 029A0    709001D3 A   T7090    GEN,16,10,6    X'7090',7,T7095-%   CONTROL WORD            *A03
     9070   01 029A1    32803770              LW,R8    =X'1A01000'       ADR = X'A0', PARITY = 1, INHIBIT SC
     9071   01 029A2    ED80129D              WD,R8    *GP13
     9072   01 029A3    221FFFFB A            LI,R1    -5                DELAY COUNT
     9073   01 029A4    3290363B              LW,R9    =X'88000000'      ALL ZEROS TO FAM LOCATION
     9074   01 029A5    ED901299              WD,R9    *GP09             WRITE FAM 2
     9075   01 029A6    220000A0 A            LI,R0    X'A0'
     9076   01 029A7    228000A0 A            LI,R8    X'A0'             ADDRESS OF DEVICE & FAM
     9077   01 029A8    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER           *A03
     9078   01 029A9    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     9079   01 029AA    CC000008 A            SIO,R0   *R8               I/O
     9080   01 029AB    651029AB              BIR,R1   %                 DELAY 5 CYCLES
     9081   01 029AC    3280376B              LW,R8    =X'8000000'       FAM ADDRESS CONFIGURATION
     9082   01 029AD    ED801299              WD,R8    *GP09             SELECT ADDRESS
     9083   01 029AE    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
     9084   01 029AF    4B903768              AND,R9   =X'FFFFF8'
     9085   01 029B0    2590007D A            SLS,R9   -3                READ FAM 2
     9086   01 029B1    228000A0 A            LI,R8    X'A0'
     9087   01 029B2    68001A60              B        CREQUAL           VERIFY
     9088                            *
     9089                            *                                  FAM ADDRESS 4 VIA MULTI-DEV I/O
     9090   01 029B3    709501D3 A   T7095    GEN,16,10,6    X'7095',7,T7100-%   CONTROL WORD            *A03
     9091   01 029B4    32803771              LW,R8    =X'1C01000'       ADR = X'C0', PARITY = 1, INHIBIT SC
     9092   01 029B5    ED80129D              WD,R8    *GP13
     9093   01 029B6    221FFFFB A            LI,R1    -5                DELAY COUNT
     9094   01 029B7    3290363F              LW,R9    =X'90000000'      ALL ZEROS TO FAM LOCATION
     9095   01 029B8    ED901299              WD,R9    *GP09             WRITE FAM 4
     9096   01 029B9    220000C0 A            LI,R0    X'C0'
     9097   01 029BA    228000C0 A            LI,R8    X'C0'             ADDRESS OF DEVICE & FAM
     9098   01 029BB    49801310              OR,R8    IOPNO             MERGE WITH IOP NUMBER           *A03
     9099   01 029BC    6AF0167A              BAL,R15  PREPHS00          SINGLE PHASE OR GIVE SYNC
     9100   01 029BD    CC000008 A            SIO,R0   *R8               I/O
     9101   01 029BE    651029BE              BIR,R1   %                 DELAY 5 CYCLES
     9102   01 029BF    328035C0              LW,R8    =X'10000000'      FAM ADDRESS CONFIGURATION
     9103   01 029C0    ED801299              WD,R8    *GP09             SELECT ADDRESS
     9104   01 029C1    EC90129A              RD,R9    *GP10             READ 'C' REG
     9105   01 029C2    4B903768              AND,R9   =X'FFFFF8'        READ FAM 4
     9106   01 029C3    2590007D A            SLS,R9   -3                COMMAND ADDRESS FORMAT
     9107   01 029C4    228000C0 A            LI,R8    X'C0'
     9108   01 029C5    68001A60              B        CREQUAL           VERIFY
     9109                            *
     9110                            *                                  ORDER OUT SERVICE--PHASES & CONTROL
     9111   01 029C6    710001CD A   T7100    GEN,16,10,6    X'7100',7,T7110-%   CONTROL WORD            *A03
     9112   01 029C7    2280B608 A            LI,R8    X'B608'           CHANNEL-- SNAPSHOT 2,SINGLE SER-*A03
     9113   01 029C8    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9114   01 029C9    ED801298              WD,R8    *GP08              VICE & STEP, SNAP              *A03
     9115   01 029CA    22000901              LI,R0    DA(CMDT2)          GROUP 8
     9116   01 029CB    6AF016B1              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     9117   01 029CC    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9118   01 029CD    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     9119   01 029CE    25900240 A            SCS,R9   -64               DELAY FOR SERVICE
     9120   01 029CF    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     9121   01 029D0    32803772              LW,R8    =X'6F01DFF2'      COMPARE WORD-- PHI,PH0,PH1,PH4-7,
     9122   01 029D1    4B90131B              AND,R9   MASK8             MASK DON'T CARES
     9123   01 029D2    68001A60              B        CREQUAL           VERIFY
     9124                            *
     9125                            *                                  ORDER OUT SERVICE--CONTROL SIGNALS
     9126   01 029D3    711001CD A   T7110    GEN,16,10,6    X'7110',7,T7120-%   CONTROL WORD            *A03
     9127   01 029D4    2280B609 A            LI,R8    X'B609'           CHANNEL-- SNAPSHOT 2,SINGLE SER-*A03
     9128   01 029D5    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9129   01 029D6    ED801298              WD,R8    *GP08              VICE & STEP,SNAP               *A03
     9130   01 029D7    22000901              LI,R0    DA(CMDT2)          GROUP 9
     9131   01 029D8    6AF016B1              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     9132   01 029D9    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9133   01 029DA    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9134   01 029DB    32803773              LW,R8    =X'AFFDEC00'      COMPARE WORD
     9135   01 029DC    25900240 A            SCS,R9   -64               DELAY FOR SERVICE
     9136   01 029DD    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     9137   01 029DE    4B90131C              AND,R9   MASK9             MASK DON'T CARES
     9138   01 029DF    68001A60              B        CREQUAL           VERIFY
     9139                            *
     9140                            *                                  ORDER OUT SERVICE, CONTROL SIGNALS
     9141   01 029E0    712001CD A   T7120    GEN,16,10,6    X'7120',7,T7130-%   CONTROL WORD            *A03
     9142   01 029E1    2280B60E A            LI,R8    X'B60E'           MS(A)-- SNAPSHOT 2, SINGLE SER- *A03
     9143   01 029E2    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9144   01 029E3    ED801298              WD,R8    *GP08             VICE & STEP, SNAP               *A03
     9145   01 029E4    22000901              LI,R0    DA(CMDT2)          GROUP 14
     9146   01 029E5    6AF016B1              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     9147   01 029E6    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9148   01 029E7    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     9149   01 029E8    2280DD29 A            LI,R8    X'DD29'           COMPARE WORD-- PHFS,PHRS,PHFSL,
     9150   01 029E9    25900240 A            SCS,R9   -64
     9151   01 029EA    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     9152   01 029EB    4B90131F              AND,R9   MASK14            MASK OUT DON'T CARES
     9153   01 029EC    68001A60              B        CREQUAL           VERIFY
     9154                            *
     9155                            *                                  ORDER OUT SERVICE,MS CONTROL SIGNAL
     9156   01 029ED    713001CD A   T7130    GEN,16,10,6    X'7130',7,T7140-%   CONTROL WORD            *A03
     9157   01 029EE    2280B60F A            LI,R8    X'B60F'           MS(A)-- SNAPSHOT 2, SINGLE SER- *A03
     9158   01 029EF    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9159   01 029F0    ED801298              WD,R8    *GP08              VICE & STEP, SNAP              *A03
     9160   01 029F1    22000901              LI,R0    DA(CMDT2)          GROUP 15
     9161   01 029F2    6AF016B1              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     9162   01 029F3    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9163   01 029F4    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     9164   01 029F5    2280EE07 A            LI,R8    X'EE07'           COMPARE WORD FOR MS(A) GROUP 15.
     9165   01 029F6    25900240 A            SCS,R9   -64               DELAY
     9166   01 029F7    EC901294              RD,R9    *DISPLAY          READ
     9167   01 029F8    4B903774              AND,R9   =X'EFFF'          MASK
     9168   01 029F9    68001A60              B        CREQUAL           VERIFY
     9169                            *
     9170                            *                                  ORDER OUT SERVICE, UPDATE C.A.
     9171   01 029FA    714001CF A   T7140    GEN,16,10,6    X'7140',7,T7150-%   CONTROL WORD            *A03
     9172   01 029FB    22803000 A            LI,R8    X'3000'           MPXC(A)-- SNAPSHOT 2,SINGLE SER-*A03
     9173   01 029FC    ED801298              WD,R8    *GP08              VICE & STEP, SNAP              *A03
     9174   01 029FD    22000901              LI,R0    DA(CMDT2)          GROUP 8
     9175   01 029FE    6AF016B1              BAL,R15  PREPHS07          SINGLE PHASE OR GIVE SYNC
     9176   01 029FF    CC001312              SIO,R0   *IOPMSADR         SIO. STEP TO ORDER OUT.
     9177   01 02A00    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9178   01 02A01    32B01312              LW,R11   IOPMSADR          DEVICE ADDRESS
     9179   01 02A02    6AF01C07              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL (FAM) ADDRESS
     9180   01 02A03    EDA01299              WD,R10   *GP09             SELECT FAM, BLOCK 2
     9181   01 02A04    EC90129A              RD,R9    *GP10             READ CONTENTS OF 'C' REGISTER
     9182   01 02A05    4B903768              AND,R9   =X'FFFFF8'
     9183   01 02A06    22800902              LI,R8    DA(CMDT2)+1       UPDATED COMMAND ADDRESS
     9184   01 02A07    2590007D A            SLS,R9   -3                CONVERT TO FAM FORMAT
     9185   01 02A08    68001A60              B        CREQUAL           VERIFY
     9186                            *
     9187                            *                                  DATA OUT SERVICE, PHASES & CONTROL
     9188   01 02A09    715001CF A   T7150    GEN,16,10,6    X'7150',7,T7155-%   CONTROL WORD            *A03
     9189   01 02A0A    2280B608 A            LI,R8    X'B608'           MPXC(A)-- SNAPSHOT 2, SINGLE SER*A03
     9190   01 02A0B    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9191   01 02A0C    ED801298              WD,R8    *GP08              VICE & STEP, SNAP              *A03
     9192   01 02A0D    22000901              LI,R0    DA(CMDT2)          GROUP 8
     9193   01 02A0E    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9194   01 02A0F    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9195   01 02A10    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9196   01 02A11    25900240 A            SCS,R9   -64
     9197   01 02A12    ED801298              WD,R8    *GP08
     9198   01 02A13    32803775              LW,R8    =X'7101DDB2'      COMPARE WORD
     9199   01 02A14    25900240 A            SCS,R9   -64               DELAY
     9200   01 02A15    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     9201   01 02A16    4B90131B              AND,R9   MASK8             MASK DON'T CARES
     9202   01 02A17    68001A60              B        CREQUAL           VERIFY
     9203                            *
     9204                            *                                  HALT OUTPUT (HIO)
     9205   01 02A18    715500C8 A   T7155    GEN,16,10,6    X'7155',3,T7160-%   CONTROL WORD            *A03
     9206   01 02A19    22000930              LI,R0    DA(CMDT36)
     9207   01 02A1A    CC001312              SIO,R0   *IOPMSADR         START OUTPUT
     9208   01 02A1B    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
     9209   01 02A1C    CF001312              HIO,R0   *IOPMSADR         HALT OUTPUT
     9210   01 02A1D    CD001312              TIO,R0   *IOPMSADR         CHECK CONDITION CODE
     9211   01 02A1E    69E013D0              BCS,14   BAD               BAD-- I/O NOT HALTED. CC1,2,OR 3
     9212   01 02A1F    6800148F              B        GOOD
     9213                            *
     9214                            *                                  DATA OUT SERVICE, CONTROL SIGNALS
     9215   01 02A20    716001CE A   T7160    GEN,16,10,6    X'7160',7,T7170-%   CONTROL WORD            *A03
     9216   01 02A21    2280B609 A            LI,R8    X'B609'           MPXC(A)-- SNAPSHOT 2, SINGLE SRV*A03
     9217   01 02A22    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9218   01 02A23    ED801298              WD,R8    *GP08              & STEP, SNAP GROUP 9           *A03
     9219   01 02A24    22000901              LI,R0    DA(CMDT2)
     9220   01 02A25    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9221   01 02A26    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9222   01 02A27    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     9223   01 02A28    25900240 A            SCS,R9   -64               DELAY                           *A03
     9224   01 02A29    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT PHASE
     9225   01 02A2A    32803776              LW,R8    =X'AFFDEC80'      COMPARE WORD                    *A03
     9226   01 02A2B    EC901294              RD,R9    *DISPLAY          READ MPXC(A) DISPLAY GROUP
     9227   01 02A2C    4B90131C              AND,R9   MASK9             MASK DON'T CARES
     9228   01 02A2D    68001A60              B        CREQUAL           VERIFY
     9229                            *
     9230                            *                                  DATA OUT SERVICE, CONTROL SIGNALS
     9231   01 02A2E    717001CF A   T7170    GEN,16,10,6    X'7170',7,T7180-%   CONTROL WORD            *A03
     9232   01 02A2F    2280B60E A            LI,R8    X'B60E'           MS(A)-- SNAPSHOT 2, SINGLE SRV  *A03
     9233   01 02A30    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9234   01 02A31    ED801298              WD,R8    *GP08              & STEP, SNAP GROUP             *A03
     9235   01 02A32    22000901              LI,R0    DA(CMDT2)          14
     9236   01 02A33    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9237   01 02A34    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9238   01 02A35    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9239   01 02A36    25900240 A            SCS,R9   -64               DELAY
     9240   01 02A37    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     9241   01 02A38    2280DDB9 A            LI,R8    X'DDB9'
     9242   01 02A39    25900240 A            SCS,R9   -64               DELAY
     9243   01 02A3A    EC901294              RD,R9    *DISPLAY          READ MS(A) DISPLAY GROUP
     9244   01 02A3B    4B90131F              AND,R9   MASK14            MASK DON'T CARES
     9245   01 02A3C    68001A60              B        CREQUAL           VERIFY
     9246                            *
     9247                            *                                  DATA OUT SERVICE, DATA BYTE
     9248   01 02A3D    718001D1 A   T7180    GEN,16,10,6    X'7180',7,T7190-%   CONTROL WORD            *A03
     9249   01 02A3E    2280B60C A            LI,R8    X'B60C'           MS(A)-- SNAPSHOT 2, SINGLE SERVICE
     9250   01 02A3F    308012C8              AW,R8    CHBCTRL            & STEP, SNAP GROUP 12 OR 20    *A03
     9251   01 02A40    ED801298              WD,R8    *GP08              CHANNEL B OPTION CONTROL       *A03
     9252   01 02A41    22000901              LI,R0    DA(CMDT2)
     9253   01 02A42    229FFFFF A            LI,R9    -1                ALL ONES TO FIRST FOUR BYTES
     9254   01 02A43    759012A4              STB,R9   BUFFER1
     9255   01 02A44    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9256   01 02A45    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9257   01 02A46    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9258   01 02A47    25900240 A            SCS,R9   -64               DELAY
     9259   01 02A48    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT PHASE
     9260   01 02A49    228000FF A            LI,R8    X'FF'
     9261   01 02A4A    25900240 A            SCS,R9   -64               DELAY
     9262   01 02A4B    EC901294              RD,R9    *DISPLAY          READ DATA BYTE IN MS DISPLAY
     9263   01 02A4C    4B9035B9              AND,R9   =X'FF'            DA0-7 ONLY
     9264   01 02A4D    68001A60              B        CREQUAL           VERIFY
     9265                            *
     9266                            *                                  ORDER IN--PHASES & CONTROL SIGNALS
     9267   01 02A4E    719001D1 A   T7190    GEN,16,10,6    X'7190',7,T7200-%   CONTROL WORD            *A03
     9268   01 02A4F    2280B608 A            LI,R8    X'B608'           MPXC(A)--SNAPSHOT 2,SINGLE SERVI*A03
     9269   01 02A50    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9270   01 02A51    ED801298              WD,R8    *GP08              STEP, & SNAP GROUP             *A03
     9271   01 02A52    22000901              LI,R0    DA(CMDT2)          8
     9272   01 02A53    6AF016C7              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     9273   01 02A54    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9274   01 02A55    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT
     9275   01 02A56    25900240 A            SCS,R9   -64               DELAY
     9276   01 02A57    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT
     9277   01 02A58    25900240 A            SCS,R9   -64               DELAY
     9278   01 02A59    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN
     9279   01 02A5A    32803777              LW,R8    =X'6101C022'      COMPARE WORD FOR ORDER IN SERVICE
     9280   01 02A5B    25900240 A            SCS,R9   -64               DELAY
     9281   01 02A5C    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY GROUP 8
     9282   01 02A5D    4B90131B              AND,R9   MASK8             MASK DON'T CARES
     9283   01 02A5E    68001A60              B        CREQUAL           VERIFY
     9284                            *
     9285                            *                                  ORDER IN-- CONTROL SIGNALS
     9286   01 02A5F    720001D1 A   T7200    GEN,16,10,6    X'7200',7,T7210-%   CONTROL WORD            *A03
     9287   01 02A60    2280B609 A            LI,R8    X'B609'           MPXC(A)--SNAPSHOT 2, SINGLE SERV*A03
     9288   01 02A61    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9289   01 02A62    ED801298              WD,R8    *GP08              STEP, & SNAP GROUP             *A03
     9290   01 02A63    22000901              LI,R0    DA(CMDT2)          GROUP 9
     9291   01 02A64    6AF016C7              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     9292   01 02A65    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9293   01 02A66    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT
     9294   01 02A67    25900240 A            SCS,R9   -64               DELAY
     9295   01 02A68    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT
     9296   01 02A69    25900240 A            SCS,R9   -64               DELAY
     9297   01 02A6A    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN
     9298   01 02A6B    32803776              LW,R8    =X'AFFDEC80'      COMPARE WORD
     9299   01 02A6C    25900240 A            SCS,R9   -64               DELAY
     9300   01 02A6D    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY GROUP
     9301   01 02A6E    4B90131C              AND,R9   MASK9             MASK OUT DON'T CARES
     9302   01 02A6F    68001A60              B        CREQUAL           VERIFY
     9303                            *
     9304                            *                                  ORDER IN-- MS CONTROL SIGNALS
     9305   01 02A70    721001D1 A   T7210    GEN,16,10,6    X'7210',7,T7220-%    CONTROL WORD
     9306   01 02A71    2280B60E A            LI,R8    X'B60E'           MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9307   01 02A72    308012C8              AW,R8    CHBCTRL           STEP, & SNAP GROUP 14.          *A03
     9308   01 02A73    ED801298              WD,R8    *GP08              CHAN B OPTION CONTROL          *A03
     9309   01 02A74    22000901              LI,R0    DA(CMDT2)          14
     9310   01 02A75    6AF016C7              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     9311   01 02A76    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9312   01 02A77    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9313   01 02A78    25900240 A            SCS,R9   -64               DELAY
     9314   01 02A79    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     9315   01 02A7A    25900240 A            SCS,R9   -64               DELAY
     9316   01 02A7B    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN
     9317   01 02A7C    2280DD99 A            LI,R8    X'DD99'           COMPARE WORD
     9318   01 02A7D    25900240 A            SCS,R9   -64               DELAY
     9319   01 02A7E    EC901294              RD,R9    *DISPLAY          READ MS   DISPLAY GROUP
     9320   01 02A7F    4B90131F              AND,R9   MASK14            MASK DON'T CARES
     9321   01 02A80    68001A60              B        CREQUAL           VERIFY
     9322                            *
     9323                            *                                  ORDER IN-- MS CONTROL SIGNALS
     9324   01 02A81    722001D0 A   T7220    GEN,16,10,6    X'7220',7,T7230-%   CONTROL WORD            *A03
     9325   01 02A82    2280B60F A            LI,R8    X'B60F'           MS-- SNAPSHOT2, SINGLE SERVICE &*A03
     9326   01 02A83    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9327   01 02A84    ED801298              WD,R8    *GP08              STEP, SNAP GROUP 15            *A03
     9328   01 02A85    22000901              LI,R0    DA(CMDT2)
     9329   01 02A86    6AF016C7              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     9330   01 02A87    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9331   01 02A88    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9332   01 02A89    25900240 A            SCS,R9   -64               DELAY
     9333   01 02A8A    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     9334   01 02A8B    25900240 A            SCS,R9   -64               DELAY
     9335   01 02A8C    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN SERVICE
     9336   01 02A8D    2280EE07 A            LI,R8    X'EE07'           COMPARE WORD
     9337   01 02A8E    25900240 A            SCS,R9   -64               DELAY
     9338   01 02A8F    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP
     9339   01 02A90    68001A60              B        CREQUAL           VERIFY
     9340                            *
     9341                            *                                  DATA IN SERVICE-- CONTROL SIGNALS
     9342   01 02A91    723001CF A   T7230    GEN,16,10,6    X'7230',7,T7240-%   CONTROL WORD            *A03
     9343   01 02A92    2280B608 A            LI,R8    X'B608'           MPXC(A)-- SNAPSHOT 2, SINGLE SER*A03
     9344   01 02A93    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9345   01 02A94    ED801298              WD,R8    *GP08              VICE & STEP, & SNAP            *A03
     9346   01 02A95    22000902              LI,R0    DA(CMDT3)          GROUP 8
     9347   01 02A96    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9348   01 02A97    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9349   01 02A98    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9350   01 02A99    25900240 A            SCS,R9   -64               DELAY
     9351   01 02A9A    ED801298              WD,R8    *GP08             STEP THROUGH DATA IN SERVICE
     9352   01 02A9B    25900240 A            SCS,R9   -64               DELAY
     9353   01 02A9C    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY,GROUP 8,MAP,DI
     9354   01 02A9D    32803778              LW,R8    =X'6101DDA2'      COMPARE WORD
     9355   01 02A9E    4B90131B              AND,R9   MASK8             MASK DON'T CARES
     9356   01 02A9F    68001A60              B        CREQUAL           VERIFY
     9357                            *
     9358                            *                                  DATA IN SERVICE-- CONTROL SIGNALS
     9359   01 02AA0    724001CF A   T7240    GEN,16,10,6    X'7240',7,T7250-%   CONTROL WORD            *A03
     9360   01 02AA1    2280B609 A            LI,R8    X'B609'           MPXC-SNAPSHOT 2, SINGLE SERVICE *A03
     9361   01 02AA2    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9362   01 02AA3    ED801298              WD,R8    *GP08              & STEP, SNAP GROUP             *A03
     9363   01 02AA4    22000902              LI,R0    DA(CMDT3)          14
     9364   01 02AA5    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9365   01 02AA6    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9366   01 02AA7    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9367   01 02AA8    25900240 A            SCS,R9   -64               DELAY
     9368   01 02AA9    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT PHASE
     9369   01 02AAA    25900240 A            SCS,R9   -64               DELAY
     9370   01 02AAB    32803776              LW,R8    =X'AFFDEC80'      COMPARE WORD
     9371   01 02AAC    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY GROUP
     9372   01 02AAD    4B90131C              AND,R9   MASK9             MASK OUT DON'T CARES
     9373   01 02AAE    68001A60              B        CREQUAL           VERIFY
     9374                            *
     9375                            *                                  DATA IN SERVICE PHASES & CONTROL
     9376   01 02AAF    725001CF A   T7250    GEN,16,10,6    X'7250',7,T7260-%   CONTROL WORD            *A03
     9377   01 02AB0    2280B60E A            LI,R8    X'B60E'           MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9378   01 02AB1    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9379   01 02AB2    ED801298              WD,R8    *GP08              & STEP, SNAP                   *A03
     9380   01 02AB3    22000902              LI,R0    DA(CMDT3)          GROUP 14
     9381   01 02AB4    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9382   01 02AB5    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9383   01 02AB6    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT
     9384   01 02AB7    25900240 A            SCS,R9   -64               DELAY
     9385   01 02AB8    ED801298              WD,R8    *GP08             STEP THROUGH DATA IN PHASE
     9386   01 02AB9    25900240 A            SCS,R9   -64               DELAY
     9387   01 02ABA    EC901294              RD,R9    *DISPLAY          READ MPXC DISPLAY GROUP
     9388   01 02ABB    2280DDB8 A            LI,R8    X'DDB8'           COMPARE WORD
     9389   01 02ABC    4B90131F              AND,R9   MASK14            MASK OUT DON'T CARES
     9390   01 02ABD    68001A60              B        CREQUAL           VERIFY
     9391                            *
     9392                            *                                  DATA IN SERVICE, CONTROL SIGNALS
     9393   01 02ABE    726001CE A   T7260    GEN,16,10,6    X'7260',7,T7270-%   CONTROL WORD            *A03
     9394   01 02ABF    2280B60F A            LI,R8    X'B60F'           MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9395   01 02AC0    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9396   01 02AC1    ED801298              WD,R8    *GP08              & STEP, SNAP                   *A03
     9397   01 02AC2    22000902              LI,R0    DA(CMDT3)          GROUP 15
     9398   01 02AC3    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9399   01 02AC4    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9400   01 02AC5    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9401   01 02AC6    25900240 A            SCS,R9   -64               DELAY
     9402   01 02AC7    ED801298              WD,R8    *GP08
     9403   01 02AC8    25900240 A            SCS,R9   -64               DELAY
     9404   01 02AC9    EC901294              RD,R9    *DISPLAY          READ
     9405   01 02ACA    2280EE07 A            LI,R8    X'EE07'           COMPARE WORD
     9406   01 02ACB    68001A60              B        CREQUAL           VERIFY
     9407                            *
     9408                            *                                  DATA IN SERVICE-- DATA BYTE
     9409   01 02ACC    727001CD A   T7270    GEN,16,10,6    X'7270',7,T7280-%   CONTROL WORD            *A03
     9410   01 02ACD    32801327              LW,R8    MSA               MS DEVICE ADDRESS
     9411   01 02ACE    25800010 A            SLS,R8   16                FORMAT FOR MS CONTROL
     9412   01 02ACF    498035B9              OR,R8    =X'FF'            ALL ONES FOR DATA BYTE
     9413   01 02AD0    ED80129D              WD,R8    *GP13             MS CONTROL GROUP
     9414   01 02AD1    22000900              LI,R0    DA(CMDT1)          GROUP 8
     9415   01 02AD2    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9416   01 02AD3    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE        *A03
     9417   01 02AD4    32803614              LW,R8    =X'FF000000'      COMPARE WORD
     9418   01 02AD5    221FFFF1 A            LI,R1    -15               DELAY FOR DATA IN
     9419   01 02AD6    65102AD6              BIR,R1   %
     9420   01 02AD7    329012A4              LW,R9    BUFFER1           GET DATA BYTE FROM INPUT BUFFER
     9421   01 02AD8    68001A60              B        CREQUAL           VERIFY
     9422                            *
     9423                            *                                  BYTE ADDRESS COUNTER
     9424   01 02AD9    728001D3 A   T7280    GEN,16,10,6    X'7280',7,T7290-%   CONTROL WORD            *A03
     9425   01 02ADA    2280B608 A            LI,R8    X'B608'           MPXC-- SNAPSHOT 2, SINGLE SERVIC*A03
     9426   01 02ADB    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9427   01 02ADC    ED801298              WD,R8    *GP08              & STEP, & SNAP                 *A03
     9428   01 02ADD    22000903              LI,R0    DA(CMDT4)          GROUP 8
     9429   01 02ADE    6AF016A3              BAL,R15  PREPHS05          SINGLE PHASE OR GIVE SYNC
     9430   01 02ADF    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER SERVICE
     9431   01 02AE0    32B01312              LW,R11   IOPMSADR          MS DEVICE ADDRESS
     9432   01 02AE1    6AF01C07              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
     9433   01 02AE2    3290000A A            LW,R9    R10
     9434   01 02AE3    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9435   01 02AE4    25000240 A            SCS,R0   -64
     9436   01 02AE5    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     9437   01 02AE6    22800000 A            LI,R8    0                  PLED TO ALL ZEROS
     9438   01 02AE7    EDD01298              WD,R13   *GP08             RESET CHANNEL A
     9439   01 02AE8    ED901299              WD,R9    *GP09             BYTE ADDRESS TO 'C' REGISTER
     9440   01 02AE9    ED90129A              WD,R9    *GP10             READ BYTE COUNT,SHOULD HAVE RIP-
     9441   01 02AEA    4B9035D5              AND,R9   =X'FFFFFF'        MASK OFF ADDRESS BITS
     9442   01 02AEB    68001A60              B        CREQUAL           VERIFY
     9443                            *
     9444                            *                                  BYTE COUNTER
     9445   01 02AEC    729001D3 A   T7290    GEN,16,10,6    X'7290',7,T7300-%   CONTROL WORD            *A03
     9446   01 02AED    2280B608 A            LI,R8    X'B608'           MPXC-- SNAPSHOT 2, SINGLE SERVIC*A03
     9447   01 02AEE    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9448   01 02AEF    ED801298              WD,R8    *GP08              & STEP, & SNAP                 *A03
     9449   01 02AF0    22000903              LI,R0    DA(CMDT4)          GROUP 8
     9450   01 02AF1    6AF016A3              BAL,R15  PREPHS05          SINGLE PHASE OR SYNC
     9451   01 02AF2    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER SERVICE
     9452   01 02AF3    32B01327              LW,R11   MSA               MS DEVICE ADDRESS
     9453   01 02AF4    6AF01C07              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
     9454   01 02AF5    3290000A A            LW,R9    R10
     9455   01 02AF6    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9456   01 02AF7    25000240 A            SCS,R0   -64               DELAY
     9457   01 02AF8    ED801298              WD,R8    *GP08             STEP THROUGH DATA OUT SERVICE
     9458   01 02AF9    22800000 A            LI,R8    0                  PLED FROM ALL ZEROS TO ALL ONES
     9459   01 02AFA    25000240 A            SCS,R0   -64               DELAY
     9460   01 02AFB    ED901299              WD,R9    *GP09             BYTE ADDRESS TO 'C' REGISTER
     9461   01 02AFC    ED90129B              WD,R9    *GP11             READ BYTE COUNT.  SHOULD HAVE RIP-
     9462   01 02AFD    4B9035AE              AND,R9   =X'FFFF'          MASK OFF FLAG BITS
     9463   01 02AFE    68001A60              B        CREQUAL           VERIFY
     9464                            *
     9465                            *                                  DATA OUT, BYTE 1, DATA PATTERN= 5'S
     9466   01 02AFF    730001D1 A   T7300    GEN,16,10,6    X'7300',7,T7310-%   CONTROL WORD            *A03
     9467   01 02B00    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9468   01 02B01    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9469   01 02B02    ED901298              WD,R9    *GP08              & SNAP, SNAP GROUP 12          *A03
     9470   01 02B03    32803779              LW,R8    =X'550000'
     9471   01 02B04    358012A4              STW,R8   BUFFER1           DATA PATTERN
     9472   01 02B05    22000904              LI,R0    DA(CMDT5)         CMD
     9473   01 02B06    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9474   01 02B07    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9475   01 02B08    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9476   01 02B09    25000240 A            SCS,R0   -64               DELAY
     9477   01 02B0A    ED901298              WD,R9    *GP08
     9478   01 02B0B    22800055 A            LI,R8    X'55'             FORMAT FOR COMPARE
     9479   01 02B0C    25900240 A            SCS,R9   -64               DELAY
     9480   01 02B0D    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP,BYTES 0 & 1
     9481   01 02B0E    4B9035B9              AND,R9   =X'FF'
     9482   01 02B0F    68001A60              B        CREQUAL           VERIFY
     9483                            *
     9484                            *                                  DATA OUT, BYTE 1, DATA PATTERN=A'S
     9485   01 02B10    731001D1 A   T7310    GEN,16,10,6    X'7310',7,T7320-%   CONTROL WORD            *A03
     9486   01 02B11    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9487   01 02B12    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9488   01 02B13    ED901298              WD,R9    *GP08              STEP, SNAP GROUP 14            *A03
     9489   01 02B14    3280377A              LW,R8    =X'AA0000'
     9490   01 02B15    358012A4              STW,R8   BUFFER1           DATA PATTERN
     9491   01 02B16    22000904              LI,R0    DA(CMDT5)         COMMAND DOUBLE WORD
     9492   01 02B17    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9493   01 02B18    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9494   01 02B19    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9495   01 02B1A    25800240 A            SCS,R8   -64               DELAY
     9496   01 02B1B    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     9497   01 02B1C    25800240 A            SCS,R8   -64               DELAY
     9498   01 02B1D    228000AA A            LI,R8    X'AA'
     9499   01 02B1E    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 0 & 1
     9500   01 02B1F    4B9035B9              AND,R9   =X'FF'
     9501   01 02B20    68001A60              B        CREQUAL           VERIFY
     9502                            *
     9503                            *                                  DATA OUT, BYTE 2, DATA PATTERN= 5'S
     9504   01 02B21    732001D0 A   T7320    GEN,16,10,6    X'7320',7,T7330-%   CONTROL WORD            *A03
     9505   01 02B22    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9506   01 02B23    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9507   01 02B24    ED901298              WD,R9    *GP08              & SNAP, SNAP GROUP 12          *A03
     9508   01 02B25    22805500 A            LI,R8    X'5500'
     9509   01 02B26    358012A4              STW,R8   BUFFER1
     9510   01 02B27    22000905              LI,R0    DA(CMDT6)         BYTE BOUNDARY 2, BYTE COUNT=1
     9511   01 02B28    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9512   01 02B29    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9513   01 02B2A    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9514   01 02B2B    25000240 A            SCS,R0   -64               DELAY
     9515   01 02B2C    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     9516   01 02B2D    25800258 A            SCS,R8   -40               DELAY & FORMAT
     9517   01 02B2E    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 2 & 3
     9518   01 02B2F    4B9035B9              AND,R9   =X'FF'
     9519   01 02B30    68001A60              B        CREQUAL           VERIFY
     9520                            *
     9521                            *                                  DATA OUT, BYTE 2, DATA PATTERN= A'S
     9522   01 02B31    733001D0 A   T7330    GEN,16,10,6    X'7330',7,T7340-%   CONTROL WORD            *A03
     9523   01 02B32    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9524   01 02B33    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9525   01 02B34    ED901298              WD,R9    *GP08              SNAP, SNAP GROUP 12            *A03
     9526   01 02B35    2280AA00 A            LI,R8    X'AA00'
     9527   01 02B36    358012A4              STW,R8   BUFFER1
     9528   01 02B37    22000905              LI,R0    DA(CMDT6)         BYTE BOUNDARY 2, BYTE COUNT=1
     9529   01 02B38    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9530   01 02B39    CC001312              SIO,R0   *IOPMSADR
     9531   01 02B3A    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9532   01 02B3B    25000240 A            SCS,R0   -64               DELAY
     9533   01 02B3C    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     9534   01 02B3D    25800258 A            SCS,R8   -40               DELAY & FORMAT
     9535   01 02B3E    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 0 & 2
     9536   01 02B3F    4B9035B9              AND,R9   =X'FF'
     9537   01 02B40    68001A60              B        CREQUAL           VERIFY
     9538                            *
     9539                            *                                  DATA OUT, BYTE 3, DATA PATTERN= 5'S
     9540   01 02B41    734001D0 A   T7340    GEN,16,10,6    X'7340',7,T7350-%   CONTROL WORD            *A03
     9541   01 02B42    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9542   01 02B43    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9543   01 02B44    ED901298              WD,R9    *GP08              SNAP, SNAP GROUP 12            *A03
     9544   01 02B45    22800055 A            LI,R8    X'55'
     9545   01 02B46    358012A4              STW,R8   BUFFER1
     9546   01 02B47    22000906              LI,R0    DA(CMDT7)         BYTE BOUNDARY 3, BYTE COUNT=1
     9547   01 02B48    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9548   01 02B49    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE        *A03
     9549   01 02B4A    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9550   01 02B4B    25000240 A            SCS,R0   -64               DELAY
     9551   01 02B4C    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     9552   01 02B4D    25000240 A            SCS,R0   -64               DELAY
     9553   01 02B4E    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 2 &3
     9554   01 02B4F    4B9035B9              AND,R9   =X'FF'
     9555   01 02B50    68001A60              B        CREQUAL           VERIFY
     9556                            *
     9557                            *                                  DATA OUT, BYTE 3, DATA PATTERN= A'S
     9558   01 02B51    735001D0 A   T7350    GEN,16,10,6    X'7350',7,T7360-%   CONTROL WORD            *A03
     9559   01 02B52    2291366C A            LI,R9    X'1366C'          MS-- SNAPSHOT 2, SINGLE SERVICE *A03
     9560   01 02B53    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9561   01 02B54    ED901298              WD,R9    *GP08              SNAP, SNAP GROUP 12            *A03
     9562   01 02B55    228000AA A            LI,R8    X'AA'
     9563   01 02B56    358012A4              STW,R8   BUFFER1
     9564   01 02B57    22000906              LI,R0    DA(CMDT7)         BYTE BOUNDARY 3, BYTE COUNT=1
     9565   01 02B58    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9566   01 02B59    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9567   01 02B5A    ED901298              WD,R9    *GP08             STEP THROUGH ORDER OUT SERVICE
     9568   01 02B5B    25000240 A            SCS,R0   -64               DELAY
     9569   01 02B5C    ED901298              WD,R9    *GP08             STEP THROUGH DATA OUT SERVICE
     9570   01 02B5D    25000240 A            SCS,R0   -64               DELAY
     9571   01 02B5E    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY GROUP, BYTES 2 & 3
     9572   01 02B5F    4B9035B9              AND,R9   =X'FF'
     9573   01 02B60    68001A60              B        CREQUAL           VERIFY
     9574                            *
     9575                            *                                  DATA IN,  BYTE 1, MW1:R CONTROL
     9576   01 02B61    736001CE A   T7360    GEN,16,10,6    X'7360',7,T7370-%   CONTROL WORD            *A03
     9577   01 02B62    2280B600 A            LI,R8    X'B600'           CCU--SNAPSHOT 2, SINGLE SERVICE *A03
     9578   01 02B63    ED801298              WD,R8    *GP08              & STEP, SNAP                   *A03
     9579   01 02B64    22000907              LI,R0    DA(CMDT8)          GROUP 0
     9580   01 02B65    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9581   01 02B66    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9582   01 02B67    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9583   01 02B68    25000240 A            SCS,R0   -64               DELAY
     9584   01 02B69    ED801298              WD,R8    *GP08             STEP THROUGH DATA IN  SERVICE
     9585   01 02B6A    25000240 A            SCS,R0   -64               DELAY
     9586   01 02B6B    328035C2              LW,R8    =X'2000000'       COMPARE WORD-- SHOULD SEE MW1:R,
     9587   01 02B6C    EC901294              RD,R9    *DISPLAY          READ CCU DISPLAY FOR MWX:R BITS
     9588   01 02B6D    4B90377B              AND,R9   =X'7800000'       PURGE
     9589   01 02B6E    68001A60              B        CREQUAL           VERIFY
     9590                            *
     9591                            *                                  DATA IN,BYTE 2,MW2:R CONTROL
     9592   01 02B6F    737001CE A   T7370    GEN,16,10,6    X'7370',7,T7380-%   CONTROL WORD            *A03
     9593   01 02B70    2280B600 A            LI,R8    X'B600'           CCU--SNAPSHOT 2, SINGLE SERVICE *A03
     9594   01 02B71    ED801298              WD,R8    *GP08              & STEP, SNAP                   *A03
     9595   01 02B72    22000908              LI,R0    DA(CMDT9)         BYTE BOUNDARY 2, BYTE COUNT=1
     9596   01 02B73    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9597   01 02B74    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9598   01 02B75    ED801298              WD,R8    *GP08             STEP THROUGH ORDER OUT SERVICE
     9599   01 02B76    25000240 A            SCS,R0   -64               DELAY
     9600   01 02B77    ED801298              WD,R8    *GP08             STEP THROUGH ORDER IN  SERVICE
     9601   01 02B78    25000240 A            SCS,R0   -64               DELAY
     9602   01 02B79    328035EB              LW,R8    =X'1000000'       COMPARE WORD-- SHOULD SEE MW2:R
     9603   01 02B7A    EC901294              RD,R9    *DISPLAY
     9604   01 02B7B    4B90377B              AND,R9   =X'7800000'       PURGE
     9605   01 02B7C    68001A60              B        CREQUAL           VERIFY
     9606                            *
     9607                            *                                  DATA IN, BYTE 3, MW3:R CONTROL
     9608   01 02B7D    738001CE A   T7380    GEN,16,10,6    X'7380',7,T7390-%   CONTROL WORD            *A03
     9609   01 02B7E    2280B600 A            LI,R8    X'B600'           CCU--SNAPSHOT 2, SINGLE SERVICE *A03
     9610   01 02B7F    ED801298              WD,R8    *GP08              & STEP, SNAP                   *A03
     9611   01 02B80    22000909              LI,R0    DA(CMDT10)        BYTE BOUNDARY 3, BYTE COUNT=1
     9612   01 02B81    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9613   01 02B82    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9614   01 02B83    ED801298              WD,R8    *GP08             READ CCU DISPLAY FOR MWX:R BITS
     9615   01 02B84    25900240 A            SCS,R9   -64               DELAY
     9616   01 02B85    ED801298              WD,R8    *GP08
     9617   01 02B86    25900240 A            SCS,R9   -64               DELAY
     9618   01 02B87    328035EA              LW,R8    =X'800000'        COMPARE WORD-- SHOULD SEE MW3:R
     9619   01 02B88    EC901294              RD,R9    *DISPLAY          READ CCU DISPLAY FOR MWX:R BITS
     9620   01 02B89    4B90377B              AND,R9   =X'7800000'       PURGE
     9621   01 02B8A    68001A60              B        CREQUAL           VERIFY
     9622                            *
     9623                            *                                  DATA IN, BYTE 1, DATA PATTERN = 5'S
     9624   01 02B8B    739001CD A   T7390    GEN,16,10,6    X'7390',7,T7400-%   CONTROL WORD            *A03
     9625   01 02B8C    32801327              LW,R8    MSA                SNAP, SNAP GROUP 14
     9626   01 02B8D    25800010 A            SLS,R8   16                FORMAT
     9627   01 02B8E    4980377C              OR,R8    =X'55'            BYTE = ALL 5'S
     9628   01 02B8F    ED80129D              WD,R8    *GP13             SET UP INPUT DATA BYTE VIA MS
     9629   01 02B90    22000907              LI,R0    DA(CMDT8)         BYTE BOUNDARY=1
     9630   01 02B91    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9631   01 02B92    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9632   01 02B93    32803779              LW,R8    =X'550000'        COMPARE BYTE
     9633   01 02B94    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9634   01 02B95    65102B95              BIR,R1   %
     9635   01 02B96    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9636   01 02B97    68001A60              B        CREQUAL           VERIFY
     9637                            *
     9638                            *                                  DATA IN, BYTE 1, DATA PATTERN= A'S
     9639   01 02B98    740001CD A   T7400    GEN,16,10,6    X'7400',7,T7410-%   CONTROL WORD            *A03
     9640   01 02B99    32801327              LW,R8    MSA                SNAP, SNAP GROUP 14
     9641   01 02B9A    25800010 A            SLS,R8   16                FORMAT
     9642   01 02B9B    4980377D              OR,R8    =X'AA'            BYTE = ALL A'S
     9643   01 02B9C    ED80129D              WD,R8    *GP13             SET UP INPUT DATA PATH
     9644   01 02B9D    22000907              LI,R0    DA(CMDT8)         BYTE BOUNDARY=1
     9645   01 02B9E    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9646   01 02B9F    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9647   01 02BA0    3280377A              LW,R8    =X'AA0000'        COMPARE BYTE
     9648   01 02BA1    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9649   01 02BA2    65102BA2              BIR,R1   %
     9650   01 02BA3    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9651   01 02BA4    68001A60              B        CREQUAL           VERIFY
     9652                            *
     9653                            *                                  DATA IN, BYTE 2, DATA PATTERN = 5'S
     9654   01 02BA5    741001CD A   T7410    GEN,16,10,6    X'7410',7,T7420-%    CONTROL WORD
     9655   01 02BA6    32801327              LW,R8    MSA
     9656   01 02BA7    25800010 A            SLS,R8   16                FORMAT
     9657   01 02BA8    4980377C              OR,R8    =X'55'            BYTE = ALL 5'S
     9658   01 02BA9    ED80129D              WD,R8    *GP13             SET UP INPUT DATA BYTE VIA MS
     9659   01 02BAA    22000908              LI,R0    DA(CMDT9)         BYTE BOUNDARY = 1
     9660   01 02BAB    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9661   01 02BAC    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9662   01 02BAD    22805500 A            LI,R8    X'5500'           COMPRE BYTE
     9663   01 02BAE    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9664   01 02BAF    65102BAF              BIR,R1   %
     9665   01 02BB0    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9666   01 02BB1    68001A60              B        CREQUAL           VERIFY
     9667                            *
     9668                            *                                  DATA IN, BYTE 2, DATA PATTERN = A'S
     9669   01 02BB2    742001CD A   T7420    GEN,16,10,6    X'7420',7,T7430-%   CONTROL WORD            *A03
     9670   01 02BB3    32801327              LW,R8    MSA
     9671   01 02BB4    25800010 A            SLS,R8   16                FORMAT
     9672   01 02BB5    4980377D              OR,R8    =X'AA'            BYTE = ALL 5'S
     9673   01 02BB6    ED80129D              WD,R8    *GP13             SET UP INPUT DATA PATH
     9674   01 02BB7    22000908              LI,R0    DA(CMDT9)         BYTE BOUNDARY = 1
     9675   01 02BB8    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9676   01 02BB9    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9677   01 02BBA    3280377E              LW,R8    =X'AA00'          COMPARE BYTE
     9678   01 02BBB    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9679   01 02BBC    65102BBC              BIR,R1   %
     9680   01 02BBD    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9681   01 02BBE    68001A60              B        CREQUAL           VERIFY
     9682                            *
     9683                            *                                  DATA IN, BYTE 3, DATA PATTERN = 5'S
     9684   01 02BBF    743001CD A   T7430    GEN,16,10,6    X'7430',7,T7440-%   CONTROL WORD            *A03
     9685   01 02BC0    32801327              LW,R8    MSA
     9686   01 02BC1    25800010 A            SLS,R8   16                FORMAT
     9687   01 02BC2    4980377C              OR,R8    =X'55'            BYTE = ALL 5'S
     9688   01 02BC3    ED80129D              WD,R8    *GP13             SET UP INPUT DATA BYTE VIA MS
     9689   01 02BC4    22000909              LI,R0    DA(CMDT10)        BYTE BOUNDARY = 3
     9690   01 02BC5    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9691   01 02BC6    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE
     9692   01 02BC7    22800055 A            LI,R8    X'55'             COMPARE BYTE
     9693   01 02BC8    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9694   01 02BC9    65102BC9              BIR,R1   %
     9695   01 02BCA    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9696   01 02BCB    68001A60              B        CREQUAL           VERIFY
     9697                            *
     9698                            *                                  DATA IN, BYTE 3, DATA PATTERN = A'S
     9699   01 02BCC    744001CD A   T7440    GEN,16,10,6    X'7440',7,T7450-%   CONTROL WORD            *A03
     9700   01 02BCD    32801327              LW,R8    MSA
     9701   01 02BCE    25800010 A            SLS,R8   16                FORMAT
     9702   01 02BCF    4980377D              OR,R8    =X'AA'            BYTE = ALL 5'S
     9703   01 02BD0    ED80129D              WD,R8    *GP13             SET UP INPUT DATA VIA MS
     9704   01 02BD1    22000909              LI,R0    DA(CMDT10)        BYTE BOUNDARY = 3
     9705   01 02BD2    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9706   01 02BD3    CC001312              SIO,R0   *IOPMSADR         SIO TO ORDER OUT SERVICE        *A03
     9707   01 02BD4    228000AA A            LI,R8    X'AA'             COMPARE BYTE
     9708   01 02BD5    221FFFF1 A            LI,R1    -15               DELAY CPU-- WAIT FOR INPUT DATA
     9709   01 02BD6    65102BD6              BIR,R1   %
     9710   01 02BD7    329012A4              LW,R9    BUFFER1           INPUT BYTES
     9711   01 02BD8    68001A60              B        CREQUAL           VERIFY
     9712                            *
     9713                            *                                  DATA OUT, TWO BYTE TRANSFER
     9714   01 02BD9    745001D3 A   T7450    GEN,16,10,6    X'7450',7,T7460-%   CONTROL WORD            *A03
     9715   01 02BDA    3280377F              LW,R8    =X'11223344'      BYTE PATTERNS TO BUFFER
     9716   01 02BDB    358012A4              STW,R8   BUFFER1
     9717   01 02BDC    22803000 A            LI,R8    X'3000'           SINGLE SERVICE
     9718   01 02BDD    ED801298              WD,R8    *GP08
     9719   01 02BDE    2200090A              LI,R0    DA(CMDT11)        BYTE COUNT = 2
     9720   01 02BDF    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR SYNC
     9721   01 02BE0    CC001312              SIO,R0   *IOPMSADR         TWO BYTE I/O TRANSFER
     9722   01 02BE1    2291076C A            LI,R9    X'1076C'          FREE RUN, SNAP GROUP 12  LI,R0    DA(
     9723   01 02BE2    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9724   01 02BE3    ED901298              WD,R9    *GP08                                             *A03
     9725   01 02BE4    322035C4              LW,R2    =X'80000018'
     9726   01 02BE5    EC901294              RD,R9    *DISPLAY
     9727   01 02BE6    64202BE8              BDR,R2   %+2
     9728   01 02BE7    68202BE5              BCR,2    %-2
     9729   01 02BE8    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY
     9730   01 02BE9    22800022 A            LI,R8    X'22'             VERIFY SECOND BYTE TRANSFER
     9731   01 02BEA    4B9035B9              AND,R9   =X'FF'            MASK
     9732   01 02BEB    68001A60              B        CREQUAL           VERIFY
     9733                            *
     9734                            *                                  DATA OUT, THREE BYTE TRANSFER
     9735   01 02BEC    746001D4 A   T7460    GEN,16,10,6    X'7460',7,T7470-%   CONTROL WORD            *A03
     9736   01 02BED    3280377F              LW,R8    =X'11223344'      BYTE PATTERN TO BUFFER
     9737   01 02BEE    358012A4              STW,R8   BUFFER1
     9738   01 02BEF    22803000 A            LI,R8    X'3000'           SINGLE SERVICE                  *A03
     9739   01 02BF0    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9740   01 02BF1    ED801298              WD,R8    *GP08                                             *A03
     9741   01 02BF2    2200090B              LI,R0    DA(CMDT12)        BYTE COUNT = 3
     9742   01 02BF3    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9743   01 02BF4    CC001312              SIO,R0   *IOPMSADR         THREE BYTE DATA OUT
     9744   01 02BF5    2291078C A            LI,R9    X'1078C'          FREE RUN, SNAP GROUP 12, DATA   *A03
     9745   01 02BF6    309012C8              AW,R9    CHBCTRL                                           *A03
     9746   01 02BF7    ED901298              WD,R9    *GP08                                             *A03
     9747   01 02BF8    322035C4              LW,R2    =X'80000018'
     9748   01 02BF9    EC901294              RD,R9    *DISPLAY
     9749   01 02BFA    64202BFC              BDR,R2   %+2
     9750   01 02BFB    68202BF9              BCR,2    %-2               WAIT FOR SNAP
     9751   01 02BFC    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY
     9752   01 02BFD    22800033 A            LI,R8    X'33'             VERIFY THIRD  BYTE
     9753   01 02BFE    4B9035B9              AND,R9   =X'FF'            MASK
     9754   01 02BFF    68001A60              B        CREQUAL           VERIFY
     9755                            *
     9756                            *                                  DATA OUT, FOUR BYTE TRANSFER
     9757   01 02C00    747001D4 A   T7470    GEN,16,10,6    X'7470',7,T7480-%   CONTROL WORD            *A03
     9758   01 02C01    3280377F              LW,R8    =X'11223344'      BYTE PATTERN TO BUFFER
     9759   01 02C02    358012A4              STW,R8   BUFFER1
     9760   01 02C03    22803000 A            LI,R8    X'3000'           SINGLE SERVICE                  *A03
     9761   01 02C04    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9762   01 02C05    ED801298              WD,R8    *GP08                                             *A03
     9763   01 02C06    2200090C              LI,R0    DA(CMDT13)        BYTE COUNT = 4
     9764   01 02C07    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9765   01 02C08    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE DATA OUT
     9766   01 02C09    229107AC A            LI,R9    X'107AC'          FREE RUN, SNAP GROUP 12, DATA   *A03
     9767   01 02C0A    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA/B            *A03
     9768   01 02C0B    ED901298              WD,R9    *GP08                                             *A03
     9769   01 02C0C    322035C4              LW,R2    =X'80000018'
     9770   01 02C0D    EC901294              RD,R9    *DISPLAY
     9771   01 02C0E    64202C10              BDR,R2   %+2
     9772   01 02C0F    68202C0D              BCR,2    %-2               WAIT FOR SNAP
     9773   01 02C10    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY
     9774   01 02C11    22800044 A            LI,R8    X'44'             VERIFY FOURTH BYTE
     9775   01 02C12    4B9035B9              AND,R9   =X'FF'
     9776   01 02C13    68001A60              B        CREQUAL           VERIFY
     9777                            *
     9778                            *                                  DATA OUT, FIVE BYTE TRANSFER
     9779   01 02C14    748001D8 A   T7480    GEN,16,10,6    X'7480',7,T7490-%   CONTROL WORD            *A03
     9780   01 02C15    3280377F              LW,R8    =X'11223344'      BYTE PATTER TO BUFFER AREA
     9781   01 02C16    32903780              LW,R9    =X'55667788'
     9782   01 02C17    158012A5              STD,R8   BUFFER1+1
     9783   01 02C18    22803000 A            LI,R8    X'3000'           SINGLE SERVICE                  *A03
     9784   01 02C19    ED801298              WD,R8    *GP08                                             *A03
     9785   01 02C1A    2200090D              LI,R0    DA(CMDT14)        BYTE COUNT = 5
     9786   01 02C1B    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9787   01 02C1C    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE DATA OUT
     9788   01 02C1D    ED801298              WD,R8    *GP08             FIRST SERVICE
     9789   01 02C1E    25000240 A            SCS,R0   -64
     9790   01 02C1F    ED801298              WD,R8    *GP08             SECOND SERVICE
     9791   01 02C20    25000240 A            SCS,R0   -64               DELAY                           *A04
     9792   01 02C21    2291366C A            LI,R9    X'1366C'          CONTROL                         *A03
     9793   01 02C22    309012C8              AW,R9    CHBCTRL           COMPENSATE FOR CHA.B            *A03
     9794   01 02C23    ED901298              WD,R9    *GP08             SERVICE
     9795   01 02C24    322035C4              LW,R2    =X'80000018'
     9796   01 02C25    EC901294              RD,R9    *DISPLAY
     9797   01 02C26    64202C28              BDR,R2   %+2
     9798   01 02C27    68202C25              BCR,2    %-2
     9799   01 02C28    EC901294              RD,R9    *DISPLAY          READ MS DISPLAY
     9800   01 02C29    22800055 A            LI,R8    X'55'
     9801   01 02C2A    4B9035B9              AND,R9   =X'FF'
     9802   01 02C2B    68001A60              B        CREQUAL           VERIFY
     9803                            *
     9804                            *                                  DATA IN TWO BYTE TRANSFER
     9805   01 02C2C    749001CF A   T7490    GEN,16,10,6    X'7490',7,T7500-%   CONTROL WORD            *A03
     9806   01 02C2D    228FFFFF A            LI,R8    -1                WRITE ALL ONES TO INPUT BUFFER
     9807   01 02C2E    358012A4              STW,R8   BUFFER1
     9808   01 02C2F    32801327              LW,R8    MSA               SET UP BYTE FOR INPUT TRANSFER
     9809   01 02C30    25800010 A            SLS,R8   16
     9810   01 02C31    49803781              OR,R8    =X'12'
     9811   01 02C32    ED80129D              WD,R8    *GP13             WRITE INPUT DATA TO MS
     9812   01 02C33    2200090E              LI,R0    DA(CMDT15)        BYTE COUNT = 2
     9813   01 02C34    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9814   01 02C35    CC001312              SIO,R0   *IOPMSADR         TWO BYTE DATA IN
     9815   01 02C36    229FFFE2 A            LI,R9    -30
     9816   01 02C37    65902C37              BIR,R9   %                 30 MICROSECOND DELAY
     9817   01 02C38    329012A4              LW,R9    BUFFER1           GET INPUT DATA
     9818   01 02C39    32803782              LW,R8    =X'FF1212FF'      COMPARE DATA
     9819   01 02C3A    68001A60              B        CREQUAL           VERIFY
     9820                            *
     9821                            *                                  DATA IN, THREE BYTE TRANSFER
     9822   01 02C3B    750001CF A   T7500    GEN,16,10,6    X'7500',7,T7510-%   CONTROL WORD            *A03
     9823   01 02C3C    228FFFFF A            LI,R8    -1                ALL ONES TO INPUT BUFFER
     9824   01 02C3D    358012A4              STW,R8   BUFFER1
     9825   01 02C3E    32801327              LW,R8    MSA               SET UP BYTE FOR INPUT DATA
     9826   01 02C3F    25800010 A            SLS,R8   16
     9827   01 02C40    49803783              OR,R8    =X'13'
     9828   01 02C41    ED80129D              WD,R8    *GP13             WRITE INPUT DATA TO MS
     9829   01 02C42    2200090F              LI,R0    DA(CMDT16)        BYTE COUNT = 3
     9830   01 02C43    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9831   01 02C44    CC001312              SIO,R0   *IOPMSADR         THREE BYTE DATA IN OPERATION    *A03
     9832   01 02C45    229FFFE2 A            LI,R9    -30
     9833   01 02C46    65902C46              BIR,R9   %                 30 MICROSECOND DELAY
     9834   01 02C47    329012A4              LW,R9    BUFFER1           GET INPUT DATA
     9835   01 02C48    32803784              LW,R8    =X'FF131313'      COMPARE DATA
     9836   01 02C49    68001A60              B        CREQUAL           VERIFY
     9837                            *
     9838                            *                                  DATA IN, FOUR BYTE TRANSFER
     9839   01 02C4A    751001CF A   T7510    GEN,16,10,6    X'7510',7,T7540-%   CONTROL WORD            *A03
     9840   01 02C4B    228FFFFF A            LI,R8    -1                ALL ONES
     9841   01 02C4C    358012A4              STW,R8   BUFFER1
     9842   01 02C4D    32801327              LW,R8    MSA               SET UP BYTE FOR INPUT DATA
     9843   01 02C4E    25800010 A            SLS,R8   16
     9844   01 02C4F    49803785              OR,R8    =X'14'
     9845   01 02C50    ED80129D              WD,R8    *GP13             WRITE INPUT DATA TO MS
     9846   01 02C51    22000910              LI,R0    DA(CMDT17)        BYTE COUNT = 4
     9847   01 02C52    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
     9848   01 02C53    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE DATA IN OPERATION     *A03
     9849   01 02C54    229FFFE2 A            LI,R9    -30
     9850   01 02C55    65902C55              BIR,R9   %                 30 MICROSECOND DELAY
     9851   01 02C56    329012A4              LW,R9    BUFFER1           GET INPUT DATA
     9852   01 02C57    32803786              LW,R8    =X'14141414'      COMPARE DATA
     9853   01 02C58    68001A60              B        CREQUAL           VERIFY
     9854                            *                                  DATA CHAINING, ORDER CONTROL VIA
     9855                            *                                   READ FOLLOWED BY A WRITE.
     9856   01 02C59    754001CF A   T7540    GEN,16,10,6    X'7540',7,T7550-%   CONTROL WORD            *A03
     9857   01 02C5A    32801327              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9858   01 02C5B    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9859   01 02C5C    49803787              OR,R8    =X'96'            DATA PATTERN
     9860   01 02C5D    ED80129D              WD,R8    *GP13             MS CONTROL
     9861   01 02C5E    228FFF3C A            LI,R8    X'FFF3C'          OUTPUT BYTE PATTERN TO BUFFER
     9862   01 02C5F    358012A4              STW,R8   BUFFER1
     9863   01 02C60    2200091F              LI,R0    DA(CMDT26A)       1ST COMMAND=1 BYTE, 2ND=TWO BYTES.
     9864   01 02C61    6AF017E9              BAL,R15  PREPHS11          SINGLE PHASE OR GIVE SYNC
     9865   01 02C62    CC001312              SIO,R0   *IOPMSADR         DOUBLE DATA CHAIN               *A03
     9866   01 02C63    229FFFE2 A            LI,R9    -30
     9867   01 02C64    65902C64              BIR,R9   %                 30 MICROSECOND DELAY
     9868   01 02C65    329012A4              LW,R9    BUFFER1           RECEIVED DATA
     9869   01 02C66    32803788              LW,R8    =X'9696963C'      COMPARE DATA
     9870   01 02C67    68001A60              B        CREQUAL
     9871                            *
     9872                            *                                  DATA CHAINING, ORDER CONTROL VIA
     9873                            *                                   WRITE FOLLOWED BY A READ
     9874   01 02C68    755001CB A   T7550    GEN,16,10,6    X'7550',7,T7560-%   CONTROL WORD            *A03
     9875   01 02C69    32803789              LW,R8    =X'ABCDEF01'      DATA PATTERN TO OUTPUT BUFFER
     9876   01 02C6A    358012A4              STW,R8   BUFFER1
     9877   01 02C6B    22000921              LI,R0    DA(CMDT27A)       DATA CHAIN, WRITE, READ
     9878   01 02C6C    221FFFFD A            LI,R1    -3                THREE SERVICES
     9879   01 02C6D    2281366C A            LI,R8    X'1366C'          CONTROL
     9880   01 02C6E    6AF0197A              BAL,R15  ADVSCA            ADVANCE FOUR  SERVICES
     9881   01 02C6F    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTER
     9882   01 02C70    4B9035B9              AND,R9   =X'FF'            MASK OFF LOW ORDER BITS
     9883   01 02C71    228000AB A            LI,R8    X'AB'             COMPARE WORD
     9884   01 02C72    68001A60              B        CREQUAL
     9885                            *
     9886                            *                                  COMMAND CHAINING, ORDER CONTROL,
     9887                            *                                   READ FOLLOWED BY A WRITE
     9888   01 02C73    756001CD A   T7560    GEN,16,10,6    X'7560',7,T7570-%   CONTROL WORD            *A03
     9889   01 02C74    32801327              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9890   01 02C75    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9891   01 02C76    4980378A              OR,R8    =7
     9892   01 02C77    ED80129D              WD,R8    *GP13             SET UP INPUT DATA
     9893   01 02C78    221FFFFB A            LI,R1    -5                FIVE ITERATIONS
     9894   01 02C79    22000923              LI,R0    DA(CMDT28A)       COMMAND CHAIN, READ & WRITE
     9895   01 02C7A    2280766C A            LI,R8    X'766C'           CONTROL
     9896   01 02C7B    6AF0197A              BAL,R15  ADVSCA            ADVANCE FOUR SERVICES
     9897   01 02C7C    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTERS
     9898   01 02C7D    4B9035B9              AND,R9   =X'FF'            MASK LOW ORDER BITS
     9899   01 02C7E    22800007 A            LI,R8    7
     9900   01 02C7F    68001A60              B        CREQUAL
     9901                            *
     9902                            *                                  COMMAND CHAINING, ORDER CONTROL,
     9903                            *                                   WRITE FOLLOWED BY A READ
     9904   01 02C80    757001CD A   T7570    GEN,16,10,6    X'7570',7,T7580-%   CONTROL WORD            *A03
     9905   01 02C81    32801327              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9906   01 02C82    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9907   01 02C83    4980377C              OR,R8    =X'55'
     9908   01 02C84    ED80129D              WD,R8    *GP13             SET UP INPUT DATA IN MS DA0-7
     9909   01 02C85    22000925              LI,R0    DA(CMDT29A)       COMMAND CHAIN, WRITE & READ
     9910   01 02C86    6AF017FF              BAL,R15  PREPHS13          SINGLE PHASE OR GIVE SYNC
     9911   01 02C87    CC001312              SIO,R0   *IOPMSADR                                         *A03
     9912   01 02C88    229FFFE2 A            LI,R9    -30               DELAY
     9913   01 02C89    65902C89              BIR,R9   %
     9914   01 02C8A    329012A4              LW,R9    BUFFER1           GET INPUT DATA
     9915   01 02C8B    3280378B              LW,R8    =X'55555555'      COMPARE DATA
     9916   01 02C8C    68001A60              B        CREQUAL
     9917                            *
     9918                            *                                  DATA CHAINING OVERRIDE COMMAND
     9919                            *                                   CHAINING
     9920   01 02C8D    758001CD A   T7580    GEN,16,10,6    X'7580',7,T7590-%   CONTROL WORD            *A03
     9921   01 02C8E    32801327              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9922   01 02C8F    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9923   01 02C90    4980378C              OR,R8    =X'C7'            SET UP INPUT DATA
     9924   01 02C91    ED80129D              WD,R8    *GP13             DATA TO MS DA0-7
     9925   01 02C92    22000927              LI,R0    DA(CMDT30A)       DATA & COMMAND CHAINING
     9926   01 02C93    6AF017E9              BAL,R15  PREPHS11          SINGLE PHASE OR GIVE SYNC
     9927   01 02C94    CC001312              SIO,R0   *IOPMSADR                                         *A03
     9928   01 02C95    229FFFE2 A            LI,R9    -30               DELAY
     9929   01 02C96    65902C96              BIR,R9   %
     9930   01 02C97    329012A4              LW,R9    BUFFER1           GET INPUT BUFFER DATA
     9931   01 02C98    3280378D              LW,R8    =X'C7C7C7'        COMPARE
     9932   01 02C99    68001A60              B        CREQUAL
     9933                            *
     9934                            *                                  TRANSFER IN CHANNEL
     9935   01 02C9A    759001CD A   T7590    GEN,16,10,6    X'7590',7,T7600-%   CONTROL WORD           *A03
     9936   01 02C9B    32801327              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9937   01 02C9C    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9938   01 02C9D    4980378E              OR,R8    =X'D5'            BYTE CONFIGURATION
     9939   01 02C9E    ED80129D              WD,R8    *GP13             DATA TO MS DA0-7
     9940   01 02C9F    22000929              LI,R0    DA(CMDT31A)       COMMAND CHAIN FOLLOWED BY TRANSFER-
     9941   01 02CA0    6AF01806              BAL,R15  PREPHS14           IN CHANNEL
     9942   01 02CA1    CC001312              SIO,R0   *IOPMSADR                                         *A03
     9943   01 02CA2    229FFFE2 A            LI,R9    -30               DELAY
     9944   01 02CA3    65902CA3              BIR,R9   %
     9945   01 02CA4    3280378F              LW,R8    =X'D5D5D5D5'      COMPARE WORD
     9946   01 02CA5    329012A4              LW,R9    BUFFER1           BUFFER CONTENTS
     9947   01 02CA6    68001A60              B        CREQUAL
     9948                            *
     9949                            *                                  ILLEGAL DOUBLE TRANSFER-IN-CHANNEL
     9950   01 02CA7    760001CD A   T7600    GEN,16,10,6    X'7600',7,T7610-%   CONTROL WORD            *A03
     9951   01 02CA8    32801327              LW,R8    MSA               MS (A) DEVICE ADDRESS
     9952   01 02CA9    25800010 A            SLS,R8   16                MOVE TO ADDRESS FIELD
     9953   01 02CAA    49803790              OR,R8    =X'5A'            INPUT BYTE CONFIGURATION
     9954   01 02CAB    ED80129D              WD,R8    *GP13             DATA TO MS DA0-7
     9955   01 02CAC    2200092B              LI,R0    DA(CMDT32A)       COMMAND CHAINING FOLLOWED BY
     9956   01 02CAD    6AF01813              BAL,R15  PREPHS15           DOUBLE TRANSFER-IN-CHANNEL
     9957   01 02CAE    CC001312              SIO,R0   *IOPMSADR                                         *A03
     9958   01 02CAF    229FFFE2 A            LI,R9    -30               DELAY
     9959   01 02CB0    65902CB0              BIR,R9   %
     9960   01 02CB1    22800000 A            LI,R8    0                 EXPECTED BUFFER CONTENTS
     9961   01 02CB2    329012A4              LW,R9    BUFFER1           BUFFER CONTENTS
     9962   01 02CB3    68001A60              B        CREQUAL           SHOULD BE EQUAL
     9963                            *
     9964                            *                                  INCORRECT LENGTH, IOP HALT CONDITION
     9965   01 02CB4    761000CF A   T7610    GEN,16,10,6    X'7610',3,T7620-%   CONTROL WORD            *A03
     9966   01 02CB5    32601327              LW,R6    MSA               DEVICE ADDRESS
     9967   01 02CB6    25600010 A            SLS,R6   16
     9968   01 02CB7    496035E7              OR,R6    =X'40'            INCORRECT LENGTH BIT
     9969   01 02CB8    ED60129D              WD,R6    *GP13             SET INCORRECT LENGTH BIT
     9970   01 02CB9    22000932              LI,R0    DA(CMDT38)        HALT-ON-TRANSMISSION ERROR
     9971   01 02CBA    6AF016C7              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     9972   01 02CBB    CC901312              SIO,R9   *IOPMSADR         WRITE, BYTE COUNT = 10
     9973   01 02CBC    229FFFE2 A            LI,R9    -30               DELAY
     9974   01 02CBD    65902CBD              BIR,R9   %                                                 *A03
     9975   01 02CBE    CD901312              TIO,R9   *IOPMSADR
     9976   01 02CBF    22820000 A            LI,R8    X'20000'
     9977   01 02CC0    4B900008 A            AND,R9   R8                IOP HALT BIT IN OPERATIONAL STATUS
     9978   01 02CC1    6930148F              BCS,3    GOOD              YES
     9979   01 02CC2    680013D0              B        BAD               NO
     9980                            *
     9981                            *                                  SUPPRESS INCORRECT LENGTH
     9982   01 02CC3    762000CE A   T7620    GEN,16,10,6    X'7620',3,T7630-%   CONTROL WORD            *A03
     9983   01 02CC4    32601327              LW,R6    MSA               DEVICE ADDRESS
     9984   01 02CC5    25600010 A            SLS,R6   16
     9985   01 02CC6    496035E7              OR,R6    =X'40'            INCORRECT LENGTH BIT
     9986   01 02CC7    22000933              LI,R0    DA(CMDT39)        HTL &SIL SET
     9987   01 02CC8    ED60129D              WD,R6    *GP13             SET HTE & SIL
     9988   01 02CC9    6AF016C7              BAL,R15  PREPHS09          SINGLE PHASE OR GIVE SYNC
     9989   01 02CCA    CC901312              SIO,R9   *IOPMSADR         WRITE, BYTE COUNT = 10          *A03
     9990   01 02CCB    229FFFE2 A            LI,R9    -30               DELAY
     9991   01 02CCC    65902CCC              BIR,R9   %
     9992   01 02CCD    CD901312              TIO,R9   *IOPMSADR
     9993   01 02CCE    4B903791              AND,R9   =X'20000'         IOP HALT STATUS BIT SHOULD BE OFF
     9994   01 02CCF    6830148F              BCR,3    GOOD              YES
     9995   01 02CD0    680013D0              B        BAD               NO
     9996                            *
     9997                            *                                  SKIP FLAG, NOT CCURQ DURING DATA
     9998                            *                                    OUT
     9999   01 02CD1    763000C9 A   T7630    GEN,16,10,6    X'7630',3,T7640-%   CONTROL WORD            *A03
    10000   01 02CD2    22000934              LI,R0    DA(CMDT40)        BYTE COUNT = 2, SKIP BIT SET
    10001   01 02CD3    221FFFFE A            LI,R1    -2                TWO SERVICES
    10002   01 02CD4    22807668 A            LI,R8    X'7668'           SNAP 'PH1' OF DATA OUT
    10003   01 02CD5    6AF0197A              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
    10004   01 02CD6    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
    10005   01 02CD7    4B9035D0              AND,R9   =X'400'           SHOULD NOT SEE 'CCURQ'
    10006   01 02CD8    693013D0              BCS,3    BAD               YES
    10007   01 02CD9    6800148F              B        GOOD              NO
    10008                            *
    10009                            *                                  SKIP FLAG, NOT 'CCURQ' DURING DATA
    10010                            *                                    IN
    10011   01 02CDA    764000C9 A   T7640    GEN,16,10,6    X'7640',3,T7650-%   CONTROL WORD            *A03
    10012   01 02CDB    22000935              LI,R0    DA(CMDT41)        BYTE COUNT=3, SKIP BIT SET
    10013   01 02CDC    221FFFFE A            LI,R1    -2                TWO SERVICES
    10014   01 02CDD    22807668 A            LI,R8    X'7668'           SNAP 'PH1' OF DATA OUT
    10015   01 02CDE    6AF0197A              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
    10016   01 02CDF    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
    10017   01 02CE0    4B9035D0              AND,R9   =X'400'           SHOULD NO SEE 'CCURQ'
    10018   01 02CE1    693013D0              BCS,3    BAD               YES
    10019   01 02CE2    6800148F              B        GOOD              NO
    10020                            *
    10021                            *                                  SKIP FLAG SET, NO DATA TRANSFER
    10022   01 02CE3    765001CD A   T7650    GEN,16,10,6    X'7650',7,T7652-%   CONTROL WORD            *A04
    10023   01 02CE4    32601327              LW,R6    MSA               MS DEVICE ADDRESS
    10024   01 02CE5    25600010 A            SLS,R6   16
    10025   01 02CE6    49603792              OR,R6    =X'BD'            DATA BYTE CONFIGURATION
    10026   01 02CE7    ED60129D              WD,R6    *GP13             TO DA0-7 IN MS
    10027   01 02CE8    22000935              LI,R0    DA(CMDT41)        READ, SKIP FLAG, BYTE COUNT=3
    10028   01 02CE9    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10029   01 02CEA    CC001312              SIO,R0   *IOPMSADR         SKIP READ                       *A03
    10030   01 02CEB    229FFFE2 A            LI,R9    -30               DELAY
    10031   01 02CEC    65902CEC              BIR,R9   %
    10032   01 02CED    22800000 A            LI,R8    0                 COMPARE DATA
    10033   01 02CEE    329012A4              LW,R9    BUFFER1           RECEIVED DATA
    10034   01 02CEF    68001A60              B        CREQUAL
    10035                            *                                                                   *A04
    10036                            *                                  VERIFY MEMORY ADDRESS ERROR      *A04
    10037   01 02CF0    765201CD A   T7652    GEN,16,10,6    X'7652',7,T7654-%   CONTROL WORD            *A04
    10038   01 02CF1    32001316              LW,R0    LASTMEM           VERIFY ADDRESSING LIMITS        *A04
    10039   01 02CF2    2101FFFF A            CI,R0    X'1FFFF'          EQUAL OR GREATER THAN 128K      *A04
    10040   01 02CF3    6810148F              BCR,1    GOOD               YES                            *A04
    10041   01 02CF4    20000002 A            AI,R0    2                 LAST LOC + 2                    *A04
    10042   01 02CF5    2500007F A            SLS,R0   -1                CONVERT TO DBLE WD ADDRESSING   *A04
    10043   01 02CF6    328035B4     T7652B   LW,R8    =X'100000'        COMPARE WORD                    *A04
    10044   01 02CF7    CC001312              SIO,R0   *IOPMSADR         I/O                             *A04
    10045   01 02CF8    6AF01A63              BAL,R15  DLY10US           DELAY 20 USEC                   *A04
    10046   01 02CF9    6AF01A63              BAL,R15  DLY10US                                           *A04
    10047   01 02CFA    CD901312              TIO,R9   *IOPMSADR         STATUS REPORT                   *A04
    10048   01 02CFB    4B903793              AND,R9   =X'FD0000'        OP STATUS ONLY FOR MAE          *A04
    10049   01 02CFC    68001A60              B        CREQUAL           VERIFY R8 & R9                  *A04
    10050                            *                                                                   *A04
    10051                            *                                  SET MAE VIA COMMAND CHAINING     *A04
    10052   01 02CFD    765401C9 A   T7654    GEN,16,10,6    X'7654',7,T7656-%   CONTROL WORD            *A04
    10053   01 02CFE    32A01316              LW,R10   LASTMEM           VERIFY ADDRESSING LIMIT         *A04
    10054   01 02CFF    21A1FFFF A            CI,R10   X'1FFFF'          EQUAL OR GREATER THAN 128K      *A04
    10055   01 02D00    6810148F              BCR,1    GOOD               YES                            *A04
    10056   01 02D01    4BA03794              AND,R10  =X'1FFFE'         DOUBLE WORD ADDRESS             *A04
    10057   01 02D02    1280124A              LD,R8    CMDT29A           COMMAND DOUBLE WORD             *A04
    10058   01 02D03    9580000A A            STD,R8   *R10              TO LAST DOUBLE WORD             *A04
    10059   01 02D04    3200000A A            LW,R0    R10                                               *A04
    10060   01 02D05    68002CF5              B        T7652B-1           LOCATION                       *A04
    10061                            *                                                                   *A04
    10062                            *                                  SET MAE VIA MAXIMUM ADR          *A04
    10063   01 02D06    765601C3 A   T7656    GEN,16,10,6    X'7656',7,T7658-%   CONTROL WORD            *A04
    10064   01 02D07    320035ED              LW,R0    =X'80000'         MAX MEMORY                      *A04
    10065   01 02D08    68002CF6              B        T7652B            TO SUBROUTINE                   *A04
    10066                            *                                                                   *A04
    10067                            *                                  SET MAE VIA TRANSFER IN CHANNEL  *A04
    10068   01 02D09    765801C3 A   T7658    GEN,16,10,6    X'7658',7,T7660-%   CONTROL WORD            *A04
    10069   01 02D0A    22000941              LI,R0    DA(CMDT52A)       COMMAND CHAIN                   *A04
    10070   01 02D0B    68002CF6              B        T7652B                                            *A04
    10071                            *                                                                   *A04
    10072                            *                                  READ BACKWARDS, THREE BYTE TRANSFER
    10073   01 02D0C    766001CD A   T7660    GEN,16,10,6    X'7660',7,T7670-%   CONTROL WORD            *A03
    10074   01 02D0D    32601327              LW,R6    MSA               DEVICE ADDRESS
    10075   01 02D0E    25600010 A            SLS,R6   16
    10076   01 02D0F    49603795              OR,R6    =X'DB'            DATA BYTE CONFIGURATION
    10077   01 02D10    ED60129D              WD,R6    *GP13             LOAD IN DA0-7 IN MS
    10078   01 02D11    22000936              LI,R0    DA(CMDT42)        READ BACKWARDS, COUNT = 4
    10079   01 02D12    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10080   01 02D13    CC001312              SIO,R0   *IOPMSADR         READ BACKWARDS                  *A03
    10081   01 02D14    229FFFE2 A            LI,R9    -30
    10082   01 02D15    65902D15              BIR,R9   %                 30 MICROSECOND DELAY
    10083   01 02D16    329012A4              LW,R9    BUFFER1           RECEIVED DATA
    10084   01 02D17    32803796              LW,R8    =X'DBDBDB'        COMPARE DATA
    10085   01 02D18    68001A60              B        CREQUAL
    10086                            *
    10087                            *                                  READ BACKWARDS, DECREMENT BYTE
    10088                            *                                   ADDRESS
    10089   01 02D19    767001CF A   T7670    GEN,16,10,6    X'7670',7,T7680-%   CONTROL WORD            *A03
    10090   01 02D1A    22000936              LI,R0    DA(CMDT42)        READ BACKWARDS, COUNT = 4
    10091   01 02D1B    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10092   01 02D1C    CC001312              SIO,R0   *IOPMSADR         READ BACKWARDS                  *A03
    10093   01 02D1D    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
    10094   01 02D1E    65902D1E              BIR,R9   %
    10095   01 02D1F    32B01327              LW,R11   MSA               SUBCHANNEL (FAM) ADDRESS
    10096   01 02D20    6AF01C07              BAL,R15  SUBCHADR
    10097   01 02D21    3290000A A            LW,R9    R10
    10098   01 02D22    499035C2              OR,R9    =X'2000000'       UPPER FAM CONTROL BIT
    10099   01 02D23    ED901299              WD,R9    *GP09             FILL 'C' REGISTER FROM FAM
    10100   01 02D24    EC90129A              RD,R9    *GP10             READ 'C' REGISTER
    10101   01 02D25    4B90131D              AND,R9   MASK10            MASK HIGH ORDER POSITIONS
    10102   01 02D26    22804A90              LI,R8    BA(BUFFER1)       COMPARE ADDRESS
    10103   01 02D27    68001A60              B        CREQUAL           SHOULD COMPARE
    10104                            *
    10105                            *                                  SPURIOUS INTERRUPT CHECK
    10106   01 02D28    768000CB A   T7680    GEN,16,10,6    X'7680',3,T7690-%   CONTROL WORD            *A03
    10107   01 02D29    22802D32              LI,R8    T7680B
    10108   01 02D2A    35801313              STW,R8   IORETURN          SET LOCAL INTR. RETURN
    10109   01 02D2B    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10110   01 02D2C    68002D2D              B        %+1
    10111   01 02D2D    68002D2E              B        %+1               TWO INSTRUCION DELAY
    10112   01 02D2E    22800020 A            LI,R8    X'20'
    10113   01 02D2F    6D801100 A            WD,R8    X'1100'           DISARM I/O INTERRUPTS
    10114   01 02D30    6D801500 A            WD,R8    X'1500'           DISABLE I/O INTERRUPTS
    10115   01 02D31    6800148F              B        GOOD              RETURN GOOD - NO SPURIOUS INTRPTS.
    10116   01 02D32    680013D0     T7680B   B        BAD               SPURIOUS INTR. PRESENT
    10117                            *
    10118                            *                                  TEST INTERRUPT PATH
    10119   01 02D33    769001CF A   T7690    GEN,16,10,6    X'7690',7,T7700-%   CONTROL WORD            *A03
    10120   01 02D34    22802D3F              LI,R8    T7690B
    10121   01 02D35    35801313              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
    10122   01 02D36    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTRPTS.
    10123   01 02D37    32801312              LW,R8    IOPMSADR          R8 = STATUS EXPECTED            *A03
    10124   01 02D38    32A01327              LW,R10   MSA               FETCH DEVICE ADDRESS            *A03
    10125   01 02D39    25A00010 A            SLS,R10  16                FORMAT DEVICE ADDRESS
    10126   01 02D3A    49A03609              OR,R10   =X'2000'          SET PROGRAM ADDRESS
    10127   01 02D3B    EDA0129D              WD,R10   *GP13             SET INTERRUPT CALL FROM MS
    10128   01 02D3C    229FFFE2 A            LI,R9    -30
    10129   01 02D3D    65902D3D              BIR,R9   %                 THIRTY MICRO-SECOND DELAY
    10130   01 02D3E    680013D0              B        BAD               RETURN BAD - NO INTERRUPT
    10131   01 02D3F    329012A2     T7690B   LW,R9    AIOSTATS          FETCH STATUS
    10132   01 02D40    4B9035C6              AND,R9   =X'1FFF'          MASK                            *A01
    10133   01 02D41    68001A60              B        CREQUAL           COMPARE WITH R8
    10134                            *
    10135                            *                                  TEST AIO - RESETING FAM I/S
    10136   01 02D42    770001D7 A   T7700    GEN,16,10,6    X'7700',7,T7710-%   CONTROL WORD            *A03
    10137   01 02D43    331012A1              MTW,1    AIOSKIP           INHIBIT AIO IN HANFLER
    10138   01 02D44    22802D4E              LI,R8    T7700B
    10139   01 02D45    35801313              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
    10140   01 02D46    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10141   01 02D47    32A01327              LW,R10   MSA               FETCH DEVICE ADDRESS
    10142   01 02D48    25A00010 A            SLS,R10  16                FORMAT
    10143   01 02D49    49A03609              OR,R10    =X'2000'
    10144   01 02D4A    EDA0129D              WD,R10    *GP13             SET INTERRUPT CALL
    10145   01 02D4B    229FFFE2 A            LI,R9    -30
    10146   01 02D4C    65902D4C              BIR,R9   %                 THIRTY MICROSECOND DELAY
    10147   01 02D4D    680013D0              B        BAD               RETURN BAD - NO INTERRUPT
    10148   01 02D4E    6E000000 A   T7700B   AIO,R0   0                 ISSUE AIO
    10149   01 02D4F    32B01327              LW,R11   MSA               DEVICE ADDRESS
    10150   01 02D50    6AF01C07              BAL,R15  SUBCHADR          DETERMINE SUBCHANNEL ADDRESS
    10151   01 02D51    49A03619              OR,R10   =X'82000000'      MERGE IN BIT 0 AND 7
    10152   01 02D52    EDA01299              WD,R10   *GP09             LOAD UPPER FAM INTO C-REG.
    10153   01 02D53    22800000 A            LI,R8    0
    10154   01 02D54    EC90129A              RD,R9    *GP10             READ FOR C CONTENTS
    10155   01 02D55    4B903797              AND,R9   =X'FF00'          MASK FOR I/S BITS
    10156   01 02D56    32800000 A            LW,R8    0                 I/S EXPECTED
    10157   01 02D57    6AF01ACE              BAL,R15  INTRESET          RESET I/O INTERRUPT
    10158   01 02D58    68001A60              B        CREQUAL           COMPARE
    10159                            *
    10160                            *                                  AIO ADDRESS PARITY RESPONSE
    10161                            *                                   -- CONDITION CODE SETTING
    10162   01 02D59    771001D6 A   T7710    GEN,16,10,6    X'7710',7,T7720-%   CONTROL WORD            *A03
    10163   01 02D5A    331012A1              MTW,1    AIOSKIP           INHIBIT AIO IN HANDLER
    10164   01 02D5B    22802D6A              LI,R8    T7710B
    10165   01 02D5C    35801313              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
    10166   01 02D5D    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10167   01 02D5E    32B01327              LW,R11   MSA               FETCH DEVICE ADDRESS
    10168   01 02D5F    6AF01C07              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
    10169   01 02D60    49A03798              OR,R10   =X'80004000'      FAM BIT 33
    10170   01 02D61    EDA01299              WD,R10   *GP09             SET IZBC IN UPPER FAM
    10171   01 02D62    32801327              LW,R8    MSA               FETCH CURRENT SUBCHANNEL ADDR.
    10172   01 02D63    488035CA              EOR,R8   =X'100'           INSERT PARITY
    10173   01 02D64    25800010 A            SLS,R8   16                POSITION ADDRESS AND COUNT
    10174   01 02D65    49803609              OR,R8    =X'2000'          SET INTRPT. CONTROL BIT
    10175   01 02D66    ED80129D              WD,R8    *GP13             SET INTERRUPT CALL FROM MS
    10176   01 02D67    224FFFE2 A            LI,R4    -30
    10177   01 02D68    65402D68              BIR,R4   %                 THIRTY MICROSECOND DELAY
    10178   01 02D69    680013D0              B        BAD               RETURN BAD - NO INTERRUPT
    10179   01 02D6A    6E200000 A   T7710B   AIO,R2   0                 ISSUE AIO
    10180   01 02D6B    74000009 A            STCF     R9                SAVE CONDITION CODES
    10181   01 02D6C    328035DB              LW,R8    =X'80000000'      CC EXPECTED
    10182   01 02D6D    6AF01ACE              BAL,R15  INTRESET          RESET I/O INTERRUPT
    10183   01 02D6E    68001A60              B        CREQUAL           COMPARE
    10184                            *
    10185                            *                                  AIO ADDRESS PARITY RESPONSE
    10186                            *                                   --STATUS
    10187   01 02D6F    772001D7 A   T7720    GEN,16,10,6    X'7720',7,T7730-%   CONTROL WORD            *A03
    10188   01 02D70    331012A1              MTW,1    AIOSKIP           INHIBIT AIO IN HANDLER
    10189   01 02D71    22802D81              LI,R8    T7720B
    10190   01 02D72    35801313              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
    10191   01 02D73    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10192   01 02D74    32B01327              LW,R11   MSA               CURRENT DEVICE ADDRESS
    10193   01 02D75    6AF01C07              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
    10194   01 02D76    49A03798              OR,R10   =X'80004000'      SUBCHANNEL BIT 33
    10195   01 02D77    EDA01299              WD,R10   *GP09             SET IZBC IN UPPER FAM
    10196   01 02D78    22200000 A            LI,R2    0                 CLEAR STATUS REGISTER
    10197   01 02D79    32801327              LW,R8    MSA               FETCH CURRENT SUBCHANNEL ADDR.
    10198   01 02D7A    488035CA              EOR,R8   =X'100'           INSERT BAD PARITY
    10199   01 02D7B    25800010 A            SLS,R8   16                POSITION ADDRESS AND COUNT
    10200   01 02D7C    49803609              OR,R8    =X'2000'          SET INTRPT. CONTROL BIT
    10201   01 02D7D    ED80129D              WD,R8    *GP13             SET INTERRUPT CALL FROM MS
    10202   01 02D7E    224FFFE2 A            LI,R4    -30
    10203   01 02D7F    65402D7F              BIR,R4   %                 THIRTY MICROSECOND DELAY
    10204   01 02D80    680013D0              B        BAD               RETURN BAD - NO INTERRUPT
    10205   01 02D81    6E200000 A   T7720B   AIO,R2   0                 ISSUE AIO
    10206   01 02D82    22800000 A            LI,R8    0                 STATUS EXPECTED
    10207   01 02D83    32900002 A            LW,R9    R2                STATUS RECEIVED
    10208   01 02D84    6AF01ACE              BAL,R15  INTRESET          RESET I/O INTERRUPT
    10209   01 02D85    68001A60              B        CREQUAL           COMPARE
    10210                            *
    10211                            *                                  AIO ADDRESS PARITY RESPONSE
    10212                            *                                   -- FAST ACCESS MEMORY
    10213   01 02D86    773001DC A   T7730    GEN,16,10,6    X'7730',7,T7740-%   CONTROL WORD            *A03
    10214   01 02D87    331012A1              MTW,1    AIOSKIP           INHIBIT AIO IN HANDLER
    10215   01 02D88    22802D97              LI,R8    T7730B
    10216   01 02D89    35801313              STW,R8   IORETURN          SET LOCAL INTERRUPT RETURN
    10217   01 02D8A    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10218   01 02D8B    32B01327              LW,R11   MSA               CURRENT MS DEVICE ADDRESS
    10219   01 02D8C    6AF01C07              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
    10220   01 02D8D    49A03798              OR,R10   =X'80004000'      FAM BIT 33
    10221   01 02D8E    EDA01299              WD,R10   *GP09             SET IZBC IN FAM UPPER
    10222   01 02D8F    32B01327              LW,R11   MSA               CURRENT MS DEVICE ADDRESS
    10223   01 02D90    48A035CA              EOR,R10  =X'100'           INSERT BAD PARITY
    10224   01 02D91    25A00010 A            SLS,R10  16                FORMAT
    10225   01 02D92    49A03609              OR,R10   =X'2000'          SET INTERRUPT CALL BIT
    10226   01 02D93    ED80129D              WD,R8    *GP13             SET INTERRUPT CALL FROM MS
    10227   01 02D94    224FFFE2 A            LI,R4    -30
    10228   01 02D95    65402D95              BIR,R4   %                 THIRTY MICROSECOND DELAY
    10229   01 02D96    680013D0              B        BAD               ERR RETURN - NO INTERRUPT
    10230   01 02D97    6E200000 A   T7730B   AIO,R2   0                 ISSUE AIO
    10231   01 02D98    32B01327              LW,R11   MSA               CURRENT MS DEVICE ADDRESS
    10232   01 02D99    6AF01C07              BAL,R15  SUBCHADR          COMPUTE SUBCHANNEL ADDRESS
    10233   01 02D9A    49A03619              OR,R10   =X'82000000'      MERGE IN BIT 0 AND 7
    10234   01 02D9B    EDA01299              WD,R10   *GP09             LOAD UPPER FAM INTO C-REG.
    10235   01 02D9C    22800040 A            LI,R8    X'40'
    10236   01 02D9D    EC90129A              RD,R9    *GP10             READ FOR C CONTENTS
    10237   01 02D9E    4B903797              AND,R9   =X'FF00'          MASK FOR I/S BITS
    10238   01 02D9F    32800000 A            LW,R8    0                 I/S EXPECTED
    10239   01 02DA0    6AF01ACE              BAL,R15  INTRESET          RESET I/O INTERRUPT
    10240   01 02DA1    68001A60              B        CREQUAL           COMPARE
    10241         01 02DA2           T7740    EQU      %
    10242                            *
    10243                            *                                  INTERRUPT ON BYTE COUNT EQUALS ZERO
    10244   01 02DA2    777000C8 A   T7770    GEN,16,10,6    X'7770',3,T7780-%   CONTROL WORD            *A03
    10245   01 02DA3    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
    10246   01 02DA4    2200092E              LI,R0    DA(CMDT34)        INTERRUPT ON BYTE COUNT = 0
    10247   01 02DA5    6AF016CB              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
    10248   01 02DA6    CC001312              SIO,R0   *IOPMSADR         READ THREE BYTES
    10249   01 02DA7    226FFFE2 A            LI,R6    -30               DELAY 30 USEC
    10250   01 02DA8    65602DA8              BIR,R6   %                 SHOULD INTERRUPT OUT
    10251   01 02DA9    680013D0              B        BAD               NO GOOD. NO I/O INTERRUPT
    10252                            *
    10253                            *                                  INTERRUPT ON BYTE COUNT EQUALS ZERO--
    10254                            *                                   VERIFY STATUS RESPONSE.
    10255   01 02DAA    778001CF A   T7780    GEN,16,10,6    X'7780',7,T7790-%   CONTROL WORD            *A03
    10256   01 02DAB    22C02DB5              LI,R12   T7780B             ROUTINE, COMMAND ADDRESS.
    10257   01 02DAC    35C01313              STW,R12  IORETURN          LOCAL AIO RETURN
    10258   01 02DAD    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT VIA SUB-
    10259   01 02DAE    2200092E              LI,R0    DA(CMDT34)
    10260   01 02DAF    6AF016CB              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
    10261   01 02DB0    CC001312              SIO,R0   *IOPMSADR         I/O
    10262   01 02DB1    32803760              LW,R8    =X'200000'
    10263   01 02DB2    229FFFE2 A            LI,R9    -30               DELAY FOR ZBC INTERRUPT
    10264   01 02DB3    65902DB3              BIR,R9   %
    10265   01 02DB4    680013D0              B        BAD               NO-- REPORT ERROR
    10266   01 02DB5    32803760     T7780B   LW,R8    =X'200000'        YES, INTERRUPT OCCURRED-- COMPOSE
    10267   01 02DB6    49801312              OR,R8    IOPMSADR           STATUS WORD. SET ZBC (BIT 10) &
    10268   01 02DB7    329012A2              LW,R9    AIOSTATS           IOP-MS ADDRESS. FETCH AIO STATUS
    10269   01 02DB8    68001A60              B        CREQUAL           VERIFY RESPONSE FROM I/O INTERRUPT
    10270                            *
    10271                            *                                  INTERRUPT ON BYTE COUNT EQUALS ZERO.
    10272                            *                                   VERIFY CONDITION CODES.
    10273   01 02DB9    779001CE A   T7790    GEN,16,10,6    X'7790',7,T7800-%   CONTROL WORD            *A03
    10274   01 02DBA    22C02DC4              LI,R12   T7790B             ROUTINE.
    10275   01 02DBB    35C01313              STW,R12  IORETURN
    10276   01 02DBC    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT VIA SUB-
    10277   01 02DBD    2200092E              LI,R0    DA(CMDT34)        COMMAND ADDRESS
    10278   01 02DBE    6AF016CB              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
    10279   01 02DBF    CC001312              SIO,R0   *IOPMSADR         I/O
    10280   01 02DC0    22800000 A            LI,R8    0
    10281   01 02DC1    229FFFE2 A            LI,R9    -30
    10282   01 02DC2    65902DC2              BIR,R9   %
    10283   01 02DC3    680013D0              B        BAD               NO-- REPORT ERROR
    10284   01 02DC4    22800000 A   T7790B   LI,R8    0                 YES-- INTERRUPT OCCURED
    10285   01 02DC5    329012A0              LW,R9    AIOCC             CC STATUS RESPONSE (BITS 0-3)
    10286   01 02DC6    68001A60              B        CREQUAL           VERIFY CC STATUS
    10287                            *
    10288                            *                                  INTERRUPT ON CHANNEL END
    10289   01 02DC7    780000CC A   T7800    GEN,16,10,6    X'7800',3,T7810-%   CONTROL WORD            *A03
    10290   01 02DC8    32801327              LW,R8    MSA               SET CHANNEL END BIT IN MS
    10291   01 02DC9    25800010 A            SLS,R8   16
    10292   01 02DCA    49803799              OR,R8    =X'10'
    10293   01 02DCB    ED80129D              WD,R8    *GP13
    10294   01 02DCC    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
    10295   01 02DCD    2200092F              LI,R0    DA(CMDT35)        INTERRUPT ON CHANNEL END
    10296   01 02DCE    6AF016CB              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
    10297   01 02DCF    CC001312              SIO,R0   *IOPMSADR         READ THREE BYTES                *A03
    10298   01 02DD0    226FFFE2 A            LI,R6    -30               DELAY 30 USEC
    10299   01 02DD1    65602DD1              BIR,R6   %                 SHOULD INTERRUPT OUT
    10300   01 02DD2    680013D0              B        BAD               NO GOOD.  NO I/O INTERRUPT
    10301                            *
    10302                            *                                  INTERRUPT ON CHANNEL END-- VERIFY
    10303                            *                                   AIO STATUS RESPONSE
    10304   01 02DD3    781001D3 A   T7810    GEN,16,10,6    X'7810',7,T7820-%   CONTROL WORD            *A03
    10305   01 02DD4    32801327              LW,R8    MSA               SET CHANNEL END BIT VIA DA-03
    10306   01 02DD5    25800010 A            SLS,R8   16
    10307   01 02DD6    49803799              OR,R8    =X'10'
    10308   01 02DD7    ED80129D              WD,R8    *GP13
    10309   01 02DD8    22C02DE2              LI,R12   T7810B            SET AIO SUBROUTINE FOR LOCAL RETURN
    10310   01 02DD9    35C01313              STW,R12  IORETURN
    10311   01 02DDA    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
    10312   01 02DDB    2200092F              LI,R0    DA(CMDT35)        COMMAND DOUBLEWORD-- D.O.,BC=12,CE=1
    10313   01 02DDC    6AF016CB              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
    10314   01 02DDD    CC001312              SIO,R0   *IOPMSADR                                         *A03
    10315   01 02DDE    3280379A              LW,R8    =X'10100000'
    10316   01 02DDF    229FFFE2 A            LI,R9    -30               WAIT FOR CHANNEL END INTERRUPT
    10317   01 02DE0    65902DE0              BIR,R9   %
    10318   01 02DE1    680013D0              B        BAD               NO-- REPORT ERROR
    10319   01 02DE2    3280379A     T7810B   LW,R8    =X'10100000'      YES INTERRUPT OCCURED. STATUS
    10320   01 02DE3    49801312              OR,R8    IOPMSADR           WORD-- DA03, CE, & IOP-MS ADR    *A03
    10321   01 02DE4    329012A2              LW,R9    AIOSTATS          FETCH AIO STATUS WORD
    10322   01 02DE5    68001A60              B        CREQUAL           VERIFY STATUS FROM I/O INTERRUPT
    10323                            *
    10324                            *                                  INTERRUPT ON CHANNEL END-- VERIFY
    10325                            *                                   CONDITION CODES
    10326   01 02DE6    782001D2 A   T7820    GEN,16,10,6    X'7820',7,T7830-%   CONTROL WORD            *A03
    10327   01 02DE7    32801327              LW,R8    MSA               SET CHANNEL END BIT VIA DA-03
    10328   01 02DE8    25800010 A            SLS,R8   16
    10329   01 02DE9    49803799              OR,R8    =X'10'
    10330   01 02DEA    ED80129D              WD,R8    *GP13
    10331   01 02DEB    22C02DF5              LI,R12   T7820B            SET AIO SUBROUTINE FOR LOCAL RETURN
    10332   01 02DEC    35C01313              STW,R12  IORETURN
    10333   01 02DED    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
    10334   01 02DEE    2200092F              LI,R0    DA(CMDT35)        CMD ADDRESS-- D.O.,BC=2, CE=1
    10335   01 02DEF    6AF016CB              BAL,R15  PREPHS10          SINGLE PHASE OR GIVE SYNC
    10336   01 02DF0    CC001312              SIO,R0   *IOPMSADR         I/O                             *A03
    10337   01 02DF1    22800000 A            LI,R8    0
    10338   01 02DF2    229FFFE2 A            LI,R9    -30               WAIT FOR UE INTERRUPT
    10339   01 02DF3    65902DF3              BIR,R9   %
    10340   01 02DF4    680013D0              B        BAD               NO-- REPORT ERROR
    10341   01 02DF5    22800000 A   T7820B   LI,R8    0                 YES-- INTERRUPT OCCURRED.
    10342   01 02DF6    329012A0              LW,R9    AIOCC             CC STATUS RESPONSE (BITS 0-3 = 0)
    10343   01 02DF7    68001A60              B        CREQUAL           VERIFY CC STATUS
    10344                            *
    10345                            *                                  INTERRUPT ON UNUSUAL END
    10346   01 02DF8    783000D1 A   T7830    GEN,16,10,6    X'7830',3,T7840-%   CONTROL WORD            *A03
    10347   01 02DF9    32801327              LW,R8    MSA               SET UP UNUSUAL END BIT VIA DIO
    10348   01 02DFA    25800010 A            SLS,R8   16
    10349   01 02DFB    498035BC              OR,R8    =X'8'
    10350   01 02DFC    ED80129D              WD,R8    *GP13
    10351   01 02DFD    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT
    10352   01 02DFE    22803000 A            LI,R8    X'3000'           SINGLE SERVICE                  *A03
    10353   01 02DFF    ED801298              WD,R8    *GP08                                             *A03
    10354   01 02E00    22000930              LI,R0    DA(CMDT36)
    10355   01 02E01    6AF0181D              BAL,R15  PREPHS16          SINGLE PHASE OR GIVE SYNC
    10356   01 02E02    CC001312              SIO,R0   *IOPMSADR         I/O                             *A03
    10357   01 02E03    328035BE              LW,R8    =X'4000000'       UNUSUAL END CONTROL BIT
    10358   01 02E04    ED80129E              WD,R8    *GP14             FORCE UNUSUAL END VIA MS
    10359   01 02E05    ED001298              WD,R0    *GP08             BACK TO FREE RUN-- COMPLETE I/O
    10360   01 02E06    226FFFE7 A            LI,R6    -25
    10361   01 02E07    65602E07              BIR,R6   %                 SHOULD INTERRUPT OUT
    10362   01 02E08    680013D0              B        BAD               NO GOOD.  NO I/O INTERRUPT
    10363                            *
    10364                            *                                  INTERRUPT ON UNUSUAL END-- VERIFY
    10365                            *                                   AIO STATUS RESPONSE
    10366   01 02E09    784001D8 A   T7840    GEN,16,10,6    X'7840',7,T7850-%   CONTROL WORD            *A03
    10367   01 02E0A    32801327              LW,R8    MSA               SET UP UNUSUAL END BIT VIA DA-04
    10368   01 02E0B    25800010 A            SLS,R8   16
    10369   01 02E0C    498035BC              OR,R8    =8
    10370   01 02E0D    ED80129D              WD,R8    *GP13
    10371   01 02E0E    22C02E1D              LI,R12   T7840B
    10372   01 02E0F    35C01313              STW,R12  IORETURN
    10373   01 02E10    6AF0199B              BAL,R15  ARMIO             ARM I/O INTERRUPT
    10374   01 02E11    22000930              LI,R0    DA(CMDT36)        CMD ADDRESS-- DO,CE FLAG,BC=2
    10375   01 02E12    22803000 A            LI,R8    X'3000'           SINGLE SERVICE                  *A03
    10376   01 02E13    ED801298              WD,R8    *GP08                                             *A03
    10377   01 02E14    6AF0181D              BAL,R15  PREPHS16          SINGLE PHASE OR GIVE SYNC
    10378   01 02E15    CC001312              SIO,R0   *IOPMSADR         I/O                             *A03
    10379   01 02E16    328035BE              LW,R8    =X'4000000'       UNUSUAL END CONTROL BIT
    10380   01 02E17    ED80129E              WD,R8    *GP14             FORCE UNUSUAL END VIA MS CONTROL
    10381   01 02E18    ED001298              WD,R0    *GP08             BACK TO FREE RUN-- COMPLETE I/O
    10382   01 02E19    3280379B              LW,R8    =X'8080000'
    10383   01 02E1A    229FFFE7 A            LI,R9    -25               WAIT FOR UE INTERRUPT
    10384   01 02E1B    65902E1B              BIR,R9   %
    10385   01 02E1C    680013D0              B        BAD               NO INTERRUPT, REPORT ERROR
    10386   01 02E1D    3280379B     T7840B   LW,R8    =X'8080000'       INTERRUPT OCCURRED. STATUS WORD--
    10387   01 02E1E    49801312              OR,R8    IOPMSADR           DA04, UE, & IOP-MS ADDRESS
    10388   01 02E1F    329012A2              LW,R9    AIOSTATS          FETCH AIO STATUS WORD
    10389   01 02E20    68001A60              B        CREQUAL           VERIFY RESPONSE FROM I/O INTERRUPT
    10390                            *
    10391                            *                                  INTERRUPT ON UNUSUAL END-- VERIFY
    10392                            *                                   AIO CONDITION CODE STATUS
    10393   01 02E21    785001D7 A   T7850    GEN,16,10,6    X'7850',7,T7860-%   CONTROL WORD            *A03
    10394   01 02E22    32801327              LW,R8    MSA               SET UP UNUSUAL END BIT VIA DA-04
    10395   01 02E23    25800010 A            SLS,R8   16
    10396   01 02E24    498035BC              OR,R8    =8
    10397   01 02E25    ED80129D              WD,R8    *GP13
    10398   01 02E26    22C02E35              LI,R12   T7850B
    10399   01 02E27    35C01313              STW,R12  IORETURN          LOCAL I/O INTERRUPT RETURN
    10400   01 02E28    6AF0199B              BAL,R15  ARMIO             ARM I/O INTERRUPTS
    10401   01 02E29    22000930              LI,R0    DA(CMDT36)        CMD ADDRESS-- DO,CE FLAG,BC=2
    10402   01 02E2A    22803000 A            LI,R8    X'3000'
    10403   01 02E2B    ED801298              WD,R8    *GP08
    10404   01 02E2C    6AF0181D              BAL,R15  PREPHS16          SINGLE PHASE OR GIVE SYNC
    10405   01 02E2D    CC001312              SIO,R0   *IOPMSADR         I/O                             *A03
    10406   01 02E2E    328035BE              LW,R8    =X'4000000'       UNUSUAL END CONTROL BIT
    10407   01 02E2F    ED80129E              WD,R8    *GP14             FORCE UNUSUAL END VIA MS CONTROL
    10408   01 02E30    ED001298              WD,R0    *GP08
    10409   01 02E31    328035E1              LW,R8    =X'40000000'
    10410   01 02E32    229FFFE7 A            LI,R9    -25               WAIT FOR UNUSUAL END INTERRUPT
    10411   01 02E33    65902E33              BIR,R9   %
    10412   01 02E34    680013D0              B        BAD               NO INTERRUPT, REPORT ERROR

    10414   01 02E35    328035E1     T7850B   LW,R8    =X'40000000'      INTERRUPT OCCURRED. (CC = 2)
    10415   01 02E36    329012A0              LW,R9    AIOCC             CC STATUS RESPONSE (BITS 0-3 = 4)
    10416   01 02E37    68001A60              B        CREQUAL           VERIFY CC STATUS
    10417                            *
    10418                            *                                  HALT-ON-TRANSMISSION ERROR
    10419   01 02E38    786001CF A   T7860    GEN,16,10,6    X'7860',7,T7870-%   CONTROL WORD            *A03
    10420   01 02E39    32901327              LW,R9    MSA
    10421   01 02E3A    25900010 A            SLS,R9   16
    10422   01 02E3B    22800301 A            LI,R8    X'301'            DAP, PC, & ONE DATA BIT
    10423   01 02E3C    49800009 A            OR,R8    R9                MS DEVICE ADDRESS
    10424   01 02E3D    22000931              LI,R0    DA(CMDT37)        HTE SET
    10425   01 02E3E    6AF01828              BAL,R15  PREPHS17          SINGLE PHASE OR GIVE SYNC
    10426   01 02E3F    CC001312              SIO,R0   *IOPMSADR         READ                            *A03
    10427   01 02E40    ED80129D              WD,R8    *GP13             SET BAD PARITY
    10428   01 02E41    226FFFE7 A            LI,R6    -25               WAIT
    10429   01 02E42    65602E42              BIR,R6   %
    10430   01 02E43    EC901298              RD,R9    *GP08             LOOK FOR 'EH' BIT SET IN MPXC DIS-
    10431   01 02E44    4B903609              AND,R9   =X'2000'           PLAY GROUP
    10432   01 02E45    32803609              LW,R8    =X'2000'          COMPARE
    10433   01 02E46    68001A60              B        CREQUAL
    10434                            *
    10435                            *                                  HALT-ON-TRANSMISSION ERROR
    10436   01 02E47    787000D3 A   T7870    GEN,16,10,6    X'7870',3,T7880-%   CONTROL WORD            *A03
    10437   01 02E48    32901327              LW,R9    MSA               DEVICE ADDRESS
    10438   01 02E49    25900010 A            SLS,R9   16
    10439   01 02E4A    22800301 A            LI,R8    X'301'            DAP, PC, & ONE DATA BIT
    10440   01 02E4B    224FFFE2 A            LI,R4    -30
    10441   01 02E4C    65402E4C              BIR,R4   %                 DELAY
    10442   01 02E4D    49800009 A            OR,R8    R9                MS DEVICE ADDRESS
    10443   01 02E4E    22000931              LI,R0    DA(CMDT37)        HTE SET
    10444   01 02E4F    6AF01828              BAL,R15  PREPHS17          SINGLE PHASE OR GIVE SYNC
    10445   01 02E50    CC901312              SIO,R9   *IOPMSADR         READ                            *A03
    10446   01 02E51    ED80129D              WD,R8    *GP13
    10447   01 02E52    224FFFE2 A            LI,R4    -30
    10448   01 02E53    65402E53              BIR,R4   %                 DELAY
    10449   01 02E54    CD901312              TIO,R9   *IOPMSADR                                         *A03
    10450   01 02E55    EDD01298              WD,R13   *GP08             CHANNEL A RESET
    10451   01 02E56    4B9035AE              AND,R9   =X'FFFF'          MASK OFF HIGH ORDER BITS
    10452   01 02E57    21900004 A            CI,R9    4                 SHOULD BE GREATER THAN 4
    10453   01 02E58    6920148F              BCS,2    GOOD              YES
    10454   01 02E59    680013D0              B        BAD               NO
    10455                            *
    10456                            *                                  INTERRUPT ON UNUSUAL END
    10457                            *                                   HALT ON T.E.
    10458   01 02E5A    788001D2 A   T7880    GEN,16,10,6    X'7880',7,T8000-%   CONTROL WORD            *A03
    10459   01 02E5B    22C02E6A              LI,R12   T7880B
    10460   01 02E5C    35C01313              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    10461   01 02E5D    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    10462   01 02E5E    3280379C              LW,R8    =X'90480000'      INDUCE T.E. VIA PARITY ERR
    10463   01 02E5F    49801312              OR,R8    IOPMSADR          FORM STATUS EXPECTED            *A03
    10464   01 02E60    32501327              LW,R5    MSA               FETCH DEVICE ADDRESS
    10465   01 02E61    25500010 A            SLS,R5   16                POSITION FOR WRITE DIRECT
    10466   01 02E62    22400090 A            LI,R4    X'90'             ORDER IN TO = T.E.
    10467   01 02E63    49400005 A            OR,R4    R5                SET WRITE DIRECT DATA
    10468   01 02E64    ED40129D              WD,R4    *GP13             INITIATE T.E. VIA DIO
    10469   01 02E65    2200093F              LI,R0    DA(CMDT50)        DEDICATE R0 TO CMND. ADDR.
    10470   01 02E66    CC201312              SIO,R2   *IOPMSADR         START I/O                       *A03
    10471   01 02E67    229FFFE2 A            LI,R9    -30
    10472   01 02E68    65902E68              BIR,R9   %                 30 MICROSECOND DELAY
    10473   01 02E69    680013D0              B        BAD               RETURN BAD - NO INTERRUPT
    10474   01 02E6A    329012A2     T7880B   LW,R9    AIOSTATS          FETCH AIO STATUS
    10475   01 02E6B    68001A60              B        CREQUAL           COMPARE
    10476                            *
    10477                            *                                  FOUR BYTE MODE, DATA OUT TRANSFER,
    10478                            *                                   MPXC CONTROL SIGNALS
    10479   01 02E6C    800003CE A   T8000    GEN,16,10,6    X'8000',X'F',T8010-% CONTROL WORD           *A03
    10480   01 02E6D    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10481   01 02E6E    228107E9 A            LI,R8    X'107E9'          SNAP SHOT 1,SNAP MODE,DELAY=15,
    10482   01 02E6F    308012C8              AW,R8    CHBCTRL           CHAN B OPTION CONTROL           *A03
    10483   01 02E70    ED801298              WD,R8    *GP08
    10484   01 02E71    2200090C              LI,R0    DA(CMDT13)        FOUR BYTE TRANSFER
    10485   01 02E72    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10486   01 02E73    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE                  *A03
    10487   01 02E74    221FFFF1 A            LI,R1    -15               WAIT FOR COMPLETION
    10488   01 02E75    65102E75              BIR,R1   %
    10489   01 02E76    EC901294              RD,R9    *DISPLAY          READ SNAP GROUP FOR DATA OUT
    10490   01 02E77    4B90379D              AND,R9   =X'FEFDE0EE'      MASK OUT DON'T CARES
    10491   01 02E78    3280379E              LW,R8    =X'98B04080'      LOOK ESPECIAL FOR 'NBM:R' (BIT 01),
    10492   01 02E79    68001A60              B        CREQUAL            'DX4-1' (BIT 04), 'NONEBYTE'
    10493                            *                                    (BIT 15), NIER, & OTHER
    10494                            *
    10495                            *                                  FOUR BYTE MODE, UPDATE BYTE ADDRESS
    10496   01 02E7A    801003CA A   T8010    GEN,16,10,6    X'8010',X'F',T8020-% CONTROL WORD           *A03
    10497   01 02E7B    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10498   01 02E7C    2200090C              LI,R0    DA(CMDT13)        WRITE ORDER, BYTE COUNT = 4
    10499   01 02E7D    221FFFFE A            LI,R1    -2                SERVICE COUNT
    10500   01 02E7E    2281366A A            LI,R8    X'1366A'          CONTROL
    10501   01 02E7F    6AF0197A              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
    10502   01 02E80    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTER CONTENTS
    10503   01 02E81    4B9035D5              AND,R9   =X'FFFFFF'        PURGE
    10504   01 02E82    22804A94              LI,R8    BA(BUFFER1)+4     COMPARE BYTE ADDRESS
    10505   01 02E83    68001A60              B        CREQUAL
    10506                            *
    10507                            *                                  FOUR BYTE MODE, UPDATE BYTE ADDRESS
    10508   01 02E84    802003CF A   T8020    GEN,16,10,6    X'8020',X'F',T8030-% CONTROL WORD           *A03
    10509   01 02E85    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10510   01 02E86    2200090C              LI,R0    DA(CMDT13)        WRITE ORDER, BYTE COUNT = 4
    10511   01 02E87    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10512   01 02E88    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE, DATA OUT             *A03
    10513   01 02E89    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
    10514                            *        BIR,R9   %
    10515   01 02E8A    32B01312              LW,R11   IOPMSADR          DEVICE ADDRESS                  *A03
    10516   01 02E8B    6AF01C07              BAL,R15  SUBCHADR          DETERMINE SUBCHANNEL (FAM) ADDRESS
    10517   01 02E8C    3280000A A            LW,R8    R10
    10518   01 02E8D    498035C2              OR,R8    =X'2000000'       MERGE CONTROL FOR BLOCKS 0 & 1
    10519   01 02E8E    ED801299              WD,R8    *GP09             SELECT FAM, FILL 'C' REGISTER
    10520   01 02E8F    EC90129A              RD,R9    *GP10             BLOCK 0 FROM 'C' REGISTER
    10521   01 02E90    4B9035D5              AND,R9   =X'FFFFFF'        MASK
    10522   01 02E91    22804A94              LI,R8    BA(BUFFER1)+4     COMPARE BYTE ADDRESS
    10523   01 02E92    68001A60              B        CREQUAL
    10524                            *
    10525                            *                                  FOUR BYTE MODE, UPDATE BYTE COUNT
    10526   01 02E93    803003CA A   T8030    GEN,16,10,6    X'8030',X'F',T8040-% CONTROL WORD           *A03
    10527   01 02E94    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10528   01 02E95    2200090C              LI,R0    DA(CMDT13)        WRITE ORDER,BYTE COUNT=4,WRITE
    10529   01 02E96    221FFFFE A            LI,R1    -2                SERVICE COUNT
    10530   01 02E97    2281366B A            LI,R8    X'1366B'          CONTROL
    10531   01 02E98    6AF0197A              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
    10532   01 02E99    EC901294              RD,R9    *DISPLAY          READ DISPLAY REGISTER CONTENTS
    10533   01 02E9A    4B9035AE              AND,R9   =X'FFFF'          PURGE
    10534   01 02E9B    22800000 A            LI,R8    0                 SHOULD BE ZERO
    10535   01 02E9C    68001A60              B        CREQUAL
    10536                            *
    10537                            *
    10538                            *                                  FOUR BYTE MODE, UPDATE BYTE COUNT
    10539   01 02E9D    804003D0 A   T8040    GEN,16,10,6    X'8040',X'F',T8050-% CONTROL WORD           *A03
    10540   01 02E9E    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10541   01 02E9F    2200090C              LI,R0    DA(CMDT13)        WRITE ORDER, BYTE COUNT = 4
    10542   01 02EA0    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10543   01 02EA1    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE I/O                   *A03
    10544   01 02EA2    229FFFE2 A            LI,R9    -30
    10545   01 02EA3    65902EA3              BIR,R9   %                 30 MICROSECOND DELAY
    10546   01 02EA4    32B01312              LW,R11   IOPMSADR          DEVICE ADDRESS                  *A03
    10547   01 02EA5    6AF01C07              BAL,R15  SUBCHADR
    10548   01 02EA6    3280000A A            LW,R8    R10               CONVERTED ADDRESS
    10549   01 02EA7    498035C2              OR,R8    =X'2000000'       MERGE CONTROL FOR BLOCKS 0 & 1
    10550   01 02EA8    ED801299              WD,R8    *GP09             READ FAM (SUBCHANNEL) TO 'C' REG.
    10551   01 02EA9    EC90129B              RD,R9    *GP11             READ BLOCK 1 FROM 'C' REGISTER
    10552   01 02EAA    4B9035AE              AND,R9   =X'FFFF'          MASK OFF FLAGS ETC
    10553   01 02EAB    22800000 A            LI,R8    0                 COMPARE WORD
    10554   01 02EAC    68001A60              B        CREQUAL
    10555                            *
    10556                            *                                  FOUR BYTE MODE, DATA OUT, THREE
    10557                            *                                   BYTE TRANSFER
    10558   01 02EAD    805003CC A   T8050    GEN,16,10,6    X'8050',X'F',T8060-% CONTROL WORD           *A03
    10559   01 02EAE    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10560   01 02EAF    3280379F              LW,R8    =X'89ABCD00'      BYTE PATTERNS TO BUFFER
    10561   01 02EB0    358012A4              STW,R8   BUFFER1
    10562   01 02EB1    2200090B              LI,R0    DA(CMDT12)        COMMAND ADDRESS
    10563   01 02EB2    221FFFFE A            LI,R1    -2                SERVICE CYCLE COUNT
    10564   01 02EB3    2281366C A            LI,R8    X'1366C'          MPXC (A) CONTROL
    10565   01 02EB4    6AF0197A              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10566   01 02EB5    EC901294              RD,R9    *DISPLAY           SERVICE.  SNAP DATA
    10567   01 02EB6    22800089 A            LI,R8    X'89'             COMPARE PATTERN
    10568   01 02EB7    4B9035B9              AND,R9   =X'FF'            MASK OFF ANY RESIDUE
    10569   01 02EB8    68001A60              B        CREQUAL           SHOULD BE EQUAL
    10570                            *
    10571                            *                                  FOUR BYTE MODE, DATA OUT, FOUR BYTE
    10572                            *                                   TRANSFER, WORD BOUNDARY
    10573   01 02EB9    806003CB A   T8060    GEN,16,10,6    X'8060',X'F',T8070-% CONTROL WORD           *A03
    10574   01 02EBA    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10575   01 02EBB    328037A0              LW,R8    =X'456789AB'      BYTE PATTERNS TO BUFFER
    10576   01 02EBC    358012A4              STW,R8   BUFFER1
    10577   01 02EBD    2200090C              LI,R0    DA(CMDT13)        COMMAND ADDRESS
    10578   01 02EBE    221FFFFE A            LI,R1    -2                SERVICE CYCLE COUNT
    10579   01 02EBF    2281366D A            LI,R8    X'1366D'          MPXC (A) CONTROL
    10580   01 02EC0    6AF0197A              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10581   01 02EC1    EC901294              RD,R9    *DISPLAY           SERVICE.  READ SNAP DATA
    10582   01 02EC2    2280AB89 A            LI,R8    X'AB89'           COMPARE HALF WORD
    10583   01 02EC3    68001A60              B        CREQUAL
    10584                            *
    10585                            *                                  FOUR BYTE MODE, DATA OUT, FIVE BYTE
    10586                            *                                   TRANSFER, WORD BOUNDARY
    10587   01 02EC4    807003CB A   T8070    GEN,16,10,6    X'8070',X'F',T8080-% CONTROL WORD           *A03
    10588   01 02EC5    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10589   01 02EC6    12801398              LD,R8    STG123            BYTE PATTERN TO BUFFER
    10590   01 02EC7    158012A4              STD,R8   BUFFER1
    10591   01 02EC8    2200090D              LI,R0    DA(CMDT14)        COMMAND ADDRESS
    10592   01 02EC9    221FFFFD A            LI,R1    -3                SERVICE CYCLE COUNT
    10593   01 02ECA    2281366C A            LI,R8    X'1366C'          MPXC (A) CONTROL
    10594   01 02ECB    6AF0197A              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10595   01 02ECC    EC901294              RD,R9    *DISPLAY           SERVICE.  SNAP DATA
    10596   01 02ECD    2280BC9A A            LI,R8    X'BC9A'           COMPARE HALF WORD
    10597   01 02ECE    68001A60              B        CREQUAL           SHOULD BE EQUAL
    10598                            *
    10599                            *                                  FOUR BYTE MODE, DATA OUT, SIX BYTE
    10600                            *                                   TRANSFER, BYTE 3 BOUNDARY
    10601   01 02ECF    808003CE A   T8080    GEN,16,10,6    X'8080',X'F',T8090-% CONTROL WORD           *A03
    10602   01 02ED0    6AF01AAE              BAL,R15  FOURBXA           SET FOURBYTE MODE
    10603   01 02ED1    1280139C              LD,R8    STGFED            BYTE PATTERN TO BUFFER
    10604   01 02ED2    158012A4              STD,R8   BUFFER1
    10605   01 02ED3    328037A1              LW,R8    =X'54000000'
    10606   01 02ED4    358012A6              STW,R8   BUFFER1+2
    10607   01 02ED5    22000911              LI,R0    DA(CMDT19)        COMMAND ADDRESS
    10608   01 02ED6    221FFFFC A            LI,R1    -4                SERVICE CYCLE COUNT
    10609   01 02ED7    2281366C A            LI,R8    X'1366C'          MPXC (A) CONTROL
    10610   01 02ED8    6AF0197A              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10611   01 02ED9    EC901294              RD,R9    *DISPLAY           SERVICE.  SNAP DATA
    10612   01 02EDA    4B9035B9              AND,R9   =X'FF'
    10613   01 02EDB    22800054 A            LI,R8    X'54'
    10614   01 02EDC    68001A60              B        CREQUAL
    10615                            *
    10616                            *                                  FOUR BYTE MODE, DATA OUT
    10617                            *                                   EIGHT BYTE TRANSFER, BYTE 3
    10618                            *                                   BOUNDRY
    10619   01 02EDD    809003CE A   T8090    GEN,16,10,6    X'8090',X'F',T8100-%   CONTROL WORD         *A03
    10620   01 02EDE    6AF01AAE              BAL,R15  FOURBXA           SET 4-BYTE MODE
    10621   01 02EDF    1280139C              LD,R8    STGFED            BYTE PATTERN TO BUFFER
    10622   01 02EE0    158012A4              STD,R8   BUFFER1
    10623   01 02EE1    328037A2              LW,R8    =X'54321200'
    10624   01 02EE2    358012A6              STW,R8   BUFFER1+2
    10625   01 02EE3    22000912              LI,R0    DA(CMDT19A)       COMMAND ADDRESS TO R0
    10626   01 02EE4    221FFFFC A            LI,R1    -4                SERVICE CYCLE COUNT
    10627   01 02EE5    2281366C A            LI,R8    X'1366C'          MPXC A CONTROL
    10628   01 02EE6    6AF0197A              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO D.O.
    10629   01 02EE7    EC901294              RD,R9    *DISPLAY           SERVICE AND SNAP DATA
    10630   01 02EE8    4B9035B9              AND,R9   =X'FF'            MASK
    10631   01 02EE9    22800054 A            LI,R8    X'54'
    10632   01 02EEA    68001A60              B        CREQUAL           COMPARE
    10633                            *
    10634                            *                                  FOUR BYTE MODE, DATA OUT, EIGHT
    10635                            *                                   BYTE TRANSFER, WORD BOUNDARY
    10636   01 02EEB    810003CB A   T8100    GEN,16,10,6    X'8100',X'F',T8104-% CONTROL WORD           *A04
    10637   01 02EEC    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10638   01 02EED    1280139A              LD,R8    STG234
    10639   01 02EEE    158012A4              STD,R8   BUFFER1           LOAD OUTPUT BUFFER
    10640   01 02EEF    22000913              LI,R0    DA(CMDT20)        COMMAND ADDRESS
    10641   01 02EF0    221FFFFD A            LI,R1    -3                SERVICE CYCLE COUNT
    10642   01 02EF1    2281366D A            LI,R8    X'1366D'          MPXC (A) CONTROL
    10643   01 02EF2    6AF0197A              BAL,R15  ADVSCA            CYCLE THROUGH SERVICES TO DATA OUT
    10644   01 02EF3    EC901294              RD,R9    *DISPLAY           SERVICE.   SNAP DATA
    10645   01 02EF4    228001EF A            LI,R8    X'01EF'           VERIFY THE LAST TWO BYTES
    10646   01 02EF5    68001A60              B        CREQUAL           CHECK CONTENTS OF R8 & R9
    10647                            *                                                                   *A04
    10648                            *                                  FOUR BYTE MODE, DATA OUT, EIGHT  *A04
    10649                            *                                   BYTE TRANSFER, BYTE 2 BOUNDARY  *A04
    10650   01 02EF6    810403CD A   T8104    GEN,16,10,6    X'8104',X'F',T8110-%   CONTROL WORD         *A04
    10651   01 02EF7    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE              *A04
    10652   01 02EF8    128013A2              LD,R8    STG607            OUTPUT DATA                     *A04
    10653   01 02EF9    158012A4              STD,R8   BUFFER1                                           *A04
    10654   01 02EFA    32801398              LW,R8    STG123                                            *A04
    10655   01 02EFB    358012A6              STW,R8   BUFFER1+2                                         *A04
    10656   01 02EFC    22000940              LI,R0    DA(CMDT51)        CMD = WR, BYTE 2, BC = 8        *A04
    10657   01 02EFD    221FFFFD A            LI,R1    -3                SERVICE CYCLES                  *A04
    10658   01 02EFE    2281366C A            LI,R8    X'1366C'          CONTROL FOR SINGLE SERVICE      *A04
    10659   01 02EFF    6AF0197A              BAL,R15  ADVSCA            TO SERVICE ADVANCE ROUTINE      *A04
    10660   01 02F00    EC901294              RD,R9    *DISPLAY          READ DA0-7 & DB0-7 @ 4 BYTE SC  *A04
    10661   01 02F01    2280A090 A            LI,R8    X'A090'           COMPARE DATA                    *A04
    10662   01 02F02    68001A60              B        CREQUAL           VERIFY R8 & R9                  *A04
    10663                            *
    10664                            *                                  FOUR BYTE MODE, DATA IN, MPXC
    10665                            *                                   CONTROL SIGNALS
    10666   01 02F03    811003CE A   T8110    GEN,16,10,6    X'8110',X'F',T8120-% CONTROL WORD           *A03
    10667   01 02F04    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE              *A04
    10668   01 02F05    228107C9 A            LI,R8    X'107C9'          SNAPSHOT 1, SNAPSHOT MODE, DELAY=
    10669   01 02F06    308012C8              AW,R8    CHBCTRL            15, DISPLAY GROUP 9. CHAN
    10670   01 02F07    ED801298              WD,R8    *GP08              B OPTION.
    10671   01 02F08    22000910              LI,R0    DA(CMDT17)        READ ORDER, FOUR BYTE TRANSFER
    10672   01 02F09    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10673   01 02F0A    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE                  *A03
    10674   01 02F0B    221FFFF1 A            LI,R1    -15
    10675   01 02F0C    65102F0C              BIR,R1   %                 WAIT FOR COMPLETION
    10676   01 02F0D    EC901294              RD,R9    *DISPLAY          READ MPXC (A) SNAP DISPLAY
    10677   01 02F0E    4B9037A3              AND,R9   =X'FEFDC0EE'      MASK
    10678   01 02F0F    328037A4              LW,R8    =X'98B00080'      LOOK ESPECIAL FOR: 'NBM:R' (BIT
    10679   01 02F10    68001A60              B        CREQUAL            01), 'DX4-1' (BIT 04), 'NONEBYTE'
    10680                            *                                    (BIT 15), NIER (BIT 18), & OTHER
    10681                            *
    10682                            *                                  FOUR BYTE MODE, DATA IN, THREE BYTE
    10683                            *                                   TRANSFER
    10684   01 02F11    812003CC A   T8120    GEN,16,10,6    X'8120',X'F',T8130-% CONTROL WORD           *A03
    10685   01 02F12    2280007E A            LI,R8    X'7E'             INPUT DATA BYTE
    10686   01 02F13    358012E3              STW,R8   DATABYTE
    10687   01 02F14    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10688   01 02F15    2200090F              LI,R0    DA(CMDT16)        READ ORDER, THREE BYTE
    10689   01 02F16    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10690   01 02F17    CC001312              SIO,R0   *IOPMSADR         THREE BYTE DATA IN              *A03
    10691   01 02F18    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
    10692   01 02F19    65902F19              BIR,R9   %
    10693   01 02F1A    329012A4              LW,R9    BUFFER1           RECEIVED DATA PATTERN
    10694   01 02F1B    328037A5              LW,R8    =X'7E7E7E'        COMPARE PATTERN
    10695   01 02F1C    68001A60              B        CREQUAL           VERIFY
    10696                            *
    10697                            *                                  FOUR BYTE MODE, DATA IN, FOUR BYTE
    10698                            *                                   TRANSFER, WORD BOUNDARY
    10699   01 02F1D    813003CC A   T8130    GEN,16,10,6    X'8130',X'F',T8140-% CONTROL WORD           *A03
    10700   01 02F1E    228000E7 A            LI,R8    X'E7'             INPUT DATA BYTE
    10701   01 02F1F    358012E3              STW,R8   INDATA
    10702   01 02F20    6AF01AAE              BAL,R15  FOURBXA           SET FOUR BYTE MODE
    10703   01 02F21    22000910              LI,R0    DA(CMDT17)        READ ORDER, FOUR BYTE TRANSFER
    10704   01 02F22    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10705   01 02F23    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE                  *A03
    10706   01 02F24    229FFFE2 A            LI,R9    -30               WAIT FOR COMPLETION
    10707   01 02F25    65902F25              BIR,R9   %
    10708   01 02F26    329012A4              LW,R9    BUFFER1           RECEIVED DATA BYTES
    10709   01 02F27    328037A6              LW,R8    =X'E7E7E7E7'      COMPARE DATA BYTES
    10710   01 02F28    68001A60              B        CREQUAL           VERIFY
    10711                            *
    10712                            *                                  FOUR BYTE MODE, DATA IN, EIGHT
    10713                            *                                   BYTE TRANSFER, BYTE 3 BOUNDRY
    10714   01 02F29    814003CC A   T8140    GEN,16,10,6    X'8140',X'F',T8150-%   CONTROL WORD         *A03
    10715   01 02F2A    228000E7 A            LI,R8    X'E7'             DATA INPUT BYTE PATTERN
    10716   01 02F2B    358012E3              STW,R8   INDATA
    10717   01 02F2C    6AF01AAE              BAL,R15  FOURBXA           SET 4-BYTE MODE
    10718   01 02F2D    22000915              LI,R0    DA(CMDT21A)       READ ORDER, 4 BYTE TRANSFER
    10719   01 02F2E    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10720   01 02F2F    CC001312              SIO,R0   *IOPMSADR         ISSUE SIO                       *A03
    10721   01 02F30    229FFFE2 A            LI,R9    -30               WAIT FOR COMPLETION
    10722   01 02F31    65902F31              BIR,R9   %
    10723   01 02F32    329012A6              LW,R9    BUFFER1+2         FETCH RECEIVED DATA
    10724   01 02F33    328037A7              LW,R8    =X'E7E7E700'      DATA EXPECTED
    10725   01 02F34    68001A60              B        CREQUAL           COMPARE
    10726                            *
    10727                            *                                  FOUR BYTE MODE, DATA IN, SIX BYTE
    10728                            *                                   TRANSFER, BYTE 3 BOUNDARY
    10729   01 02F35    815003CC A   T8150    GEN,16,10,6    X'8150',X'F',T8160-% CONTROL WORD           *A03
    10730   01 02F36    2280003C A            LI,R8    X'3C'             INPUT DATA BYTE
    10731   01 02F37    358012E3              STW,R8   INDATA
    10732   01 02F38    6AF01AAE              BAL,R15  FOURBXA           SET INPUT BYTE MODE
    10733   01 02F39    22000914              LI,R0    DA(CMDT21)        READ ORDER, SIX  BYTE TRANSFER
    10734   01 02F3A    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10735   01 02F3B    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE                  *A03
    10736   01 02F3C    229FFFE2 A            LI,R9    -30               WAIT FOR COMPLETION
    10737   01 02F3D    65902F3D              BIR,R9   %
    10738   01 02F3E    329012A5              LW,R9    BUFFER1+1         PARTIAL RECEIVED DATA BYTES
    10739   01 02F3F    328037A8              LW,R8    =X'3C3C3C3C'      COMPARE DATA BYTES
    10740   01 02F40    68001A60              B        CREQUAL
    10741                            *
    10742                            *                                  FOUR BYTE MODE, DATA IN, EIGHT BYTE
    10743                            *                                   TRANSFER, WORD BOUNDARY
    10744   01 02F41    816003CC A   T8160    GEN,16,10,6  X'8160',X'F',T8162-%  CONTROL WORD            *A06
    10745   01 02F42    228000C3 A            LI,R8    X'C3'             INPUT DATA BYTE
    10746   01 02F43    358012E3              STW,R8   INDATA
    10747   01 02F44    6AF01AAE              BAL,R15  FOURBXA           SET INPUT BYTE MODE
    10748   01 02F45    22000916              LI,R0    DA(CMDT22)        READ ORDER, EIGHT BYTE TRANSFER
    10749   01 02F46    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10750   01 02F47    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE, DATA IN         *A03
    10751   01 02F48    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION
    10752   01 02F49    65902F49              BIR,R9   %
    10753   01 02F4A    329012A4              LW,R9    BUFFER1           PARTIAL RECEIVED DATA BYTES
    10754   01 02F4B    328037A9              LW,R8    =X'C3C3C3C3'      COMPARE DATA BYTES
    10755   01 02F4C    68001A60              B        CREQUAL           VERIFY
    10756                            *                                                                   *A06
    10757                            *                                                                   *A06
    10758                            *                                   FOUR BYTE READ REVERSE,DATA IN  *A06
    10759                            *                                   ELEVEN BYTE TRANSFER,WORD BOUND *A06
    10760   01 02F4D    816203CC A   T8162    GEN,16,10,6 X'8162',X'F',T8164-%  CONTROL WORD             *A06
    10761   01 02F4E    228000BF A            LI,R8    X'BF'             INPUT DATA BYTE                 *A06
    10762   01 02F4F    358012E3              STW,R8   INDATA                                            *A06
    10763   01 02F50    6AF01AAE              BAL,R15  FOURBXA           SET INPUT BYTE MODE             *A06
    10764   01 02F51    220008FE              LI,R0    DA(CMDTB)         READ REV,11BYTE WORD BOUNDRY    *A06
    10765   01 02F52    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC       *A06
    10766   01 02F53    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE,DATA IN          *A06
    10767   01 02F54    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION         *A06
    10768   01 02F55    65902F55              BIR,R9   %                                                 *A06
    10769   01 02F56    329012A4              LW,R9    BUFFER1           PARTIAL RECEIVED DATA BYTES     *A06
    10770   01 02F57    328037AA              LW,R8    =X'00BFBFBF'      COMPARE DATA BYTES              *A06
    10771   01 02F58    68001A60              B        CREQUAL           VERIFY                          *A06
    10772                            *                                                                   *A06
    10773                            *                                                                   *A06
    10774                            *                                   FOUR BYTE,READ REVERSE,DATA IN  *A06
    10775                            *                                   EIGHT BYTE TRANSFER,WORD BOUND  *A06
    10776   01 02F59    816403CC A   T8164    GEN,16,10,6  X'8164',X'F',T8166-%  CONTROL WORD            *A06
    10777   01 02F5A    2280005A A            LI,R8    X'5A'             INPUT DATA BYTE                 *A06
    10778   01 02F5B    358012E3              STW,R8   INDATA                                            *A06
    10779   01 02F5C    6AF01AAE              BAL,R15  FOURBXA           SET INPUT BYTE MODE             *A06
    10780   01 02F5D    220008FD              LI,R0    DA(CMDTA)         READ REV ORDER, 8 BYTE XFER     *A06
    10781   01 02F5E    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC       *A06
    10782   01 02F5F    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE,DATA IN          *A06
    10783   01 02F60    229FFFE2 A            LI,R9    -30               WAIT FOR I/O COMPLETION         *A06
    10784   01 02F61    65902F61              BIR,R9   %                                                 *A06
    10785   01 02F62    329012A4              LW,R9    BUFFER1           PARTIAL RECEIVED DATA BYTES     *A06
    10786   01 02F63    328037AB              LW,R8    =X'5A5A5A5A'      COMPARE DATA BYTES              *A06
    10787   01 02F64    68001A60              B        CREQUAL           VERIFY                          *A06
    10788                            *                                                                   *A06
    10789                            *                                                                   *A06
    10790                            *                                   FOUR BYTE READ REVERSE,DATA IN  *A06
    10791                            *                                   ELEVEN BYTE XFER,NON-WORD BOUND *A06
    10792   01 02F65    816603CC A   T8166    GEN,16,10,6  X'8166',X'F',T8170-%  CONTROL WORD            *A06
    10793   01 02F66    228000F3 A            LI,R8    X'F3'             INPUT DATA BYTE                 *A06
    10794   01 02F67    358012E3              STW,R8   INDATA                                            *A06
    10795   01 02F68    6AF01AAE              BAL,R15  FOURBXA           SET INPUT BYTE MODE             *A06
    10796   01 02F69    220008FF              LI,R0    DA(CMDTC)         READ REV,11 BYTE ODD BYTE BOUND *A06
    10797   01 02F6A    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC       *A06
    10798   01 02F6B    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE,DATA IN          *A06
    10799   01 02F6C    229FFF9C A            LI,R9    -100              WAIT FOR I/O COMPLETION         *A06
    10800   01 02F6D    65902F6D              BIR,R9   %                                                 *A06
    10801   01 02F6E    329012A4              LW,R9    BUFFER1           PARTIAL RECEIVED DATA BYTES     *A06
    10802   01 02F6F    328037AC              LW,R8    =X'F3F3F3F3'      COMPARE DATA BYTES              *A06
    10803   01 02F70    68001A60              B        CREQUAL           VERIFY                          *A06
    10804                            *
    10805                            *                                  BURST MODE, DATA OUT, BURST MODE
    10806                            *                                   INDICATOR SET
    10807   01 02F71    817005CE A   T8170    GEN,16,10,6    X'8170',X'17',T8180-% CONTROL WORD          *A03
    10808   01 02F72    6AF019A2              BAL,R15  BURSTA            SET BURST MODE VIA MS CONTROLS
    10809   01 02F73    228107E9 A            LI,R8    X'107E9'          SNAPSHOT 3, SNAPSHOT MODE, DELAY*A03
    10810   01 02F74    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
    10811   01 02F75    ED801298              WD,R8    *GP08              15, DISPLAY GROUP 9            *A03
    10812   01 02F76    22000913              LI,R0    DA(CMDT20)        WRITE ORDER, EIGHT BYTE TRANSFER
    10813   01 02F77    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10814   01 02F78    CC001312              SIO,R0   *IOPMSADR         BURST MODE, TWO WORD TRANSFER
    10815   01 02F79    228FFFF1 A            LI,R8    -15               WAIT FOR I/O COMPLETION
    10816   01 02F7A    65802F7A              BIR,R8   %
    10817   01 02F7B    EC901294              RD,R9    *DISPLAY
    10818   01 02F7C    4B90131C              AND,R9   MASK9             LOOK AT SNAPSHOT DISPLAY, 'PH1' OF
    10819   01 02F7D    328037AD              LW,R8    =X'59306C00'       DATA OUT, BURST.  SHOULD SEE
    10820   01 02F7E    68001A60              B        CREQUAL            'BM:R' (BIT 1),'DX4-1' (BIT 3),
    10821                            *                                    'NIER' (BIT 18), & OTHER
    10822                            *
    10823                            *                                  BURST MODE, DATA OUT, EIGHT BYTE
    10824                            *                                   TRANSFER,DOUBLE WORD BOUNDARY
    10825   01 02F7F    818005CB A   T8180    GEN,16,10,6    X'8180',X'17',T8190-% CONTROL WORD          *A03
    10826   01 02F80    6AF019A2              BAL,R15  BURSTA            SET BURST MODE
    10827   01 02F81    12801398              LD,R8    STG123
    10828   01 02F82    158012A4              STD,R8   BUFFER1           OUTPUT DATA
    10829   01 02F83    22000913              LI,R0    DA(CMDT20)        WRITE ORDER, COUNT = 8
    10830   01 02F84    221FFFFE A            LI,R1    -2                TWO SERVICES
    10831   01 02F85    228136AD A            LI,R8    X'136AD'          SNAP 6TH PHASE OF BURST, GROUP 13
    10832   01 02F86    6AF0197A              BAL,R15  ADVSCA             DECIMAL.  CYCLE THROUGH TWO SER-
    10833   01 02F87    EC901294              RD,R9    *DISPLAY           VICES.  READ SECOND HALF WORD OF
    10834   01 02F88    2280F0DE A            LI,R8    X'F0DE'            DISPLAY DATA
    10835   01 02F89    68001A60              B        CREQUAL           VERIFY
    10836                            *
    10837                            *                                  BURST MODE, DATA OUT,14   BYTE DATA
    10838                            *                                   TRANSFER,INITIAL BYTE BOUNDARY
    10839   01 02F8A    819005D1 A   T8190    GEN,16,10,6    X'8190',X'17',T8200-% CONTROL WORD          *A03
    10840   01 02F8B    6AF019A2              BAL,R15  BURSTA            SET BURST MODE
    10841   01 02F8C    1280139E              LD,R8    STG0F1            OUTPUT DATA, BYTE BOUNDARY
    10842   01 02F8D    158012A4              STD,R8   BUFFER1
    10843   01 02F8E    328037AE              LW,R8    =X'5A697887'      OUTPUT DATA, SECOND FULL WORD
    10844   01 02F8F    358012A6              STW,R8   BUFFER1+2
    10845   01 02F90    328037AF              LW,R8    =X'96A5B4C3'      OUTPUT DATA THIRD FULL WRD
    10846   01 02F91    358012A7              STW,R8   BUFFER1+3
    10847   01 02F92    228000D2 A            LI,R8    X'D2'             OUTPUT DATA, LAST BYTE
    10848   01 02F93    758012A8              STB,R8   BUFFER1+4
    10849   01 02F94    22000918              LI,R0    DA(CMDT23)        WRITE ORDER, BYTE COUNT=12
    10850   01 02F95    221FFFFC A            LI,R1    -4                ITERATION COUNT
    10851   01 02F96    2281366C A            LI,R8    X'1366C'          SNAP 3RD PHASE OF THE LAST BYTE
    10852   01 02F97    6AF0197A              BAL,R15  ADVSCA             TRANSFER.  ADVANCE TWO SERVICES
    10853   01 02F98    EC901294              RD,R9    *DISPLAY          READ SNAP DATA
    10854   01 02F99    228000D2 A            LI,R8    X'D2'             COMPARE BYTE
    10855   01 02F9A    68001A60              B        CREQUAL
    10856                            *
    10857                            *                                  BURST MODE, DATA OUT, 12 BYTE TRANS-
    10858                            *                                   FER, BYTE BOUNDARIES
    10859   01 02F9B    820005CD A   T8200    GEN,16,10,6    X'8200',X'17',T8210-% CONTROL WORD          *A03
    10860   01 02F9C    6AF019A2              BAL,R15  BURSTA            SET BURST MODE VIA MS
    10861   01 02F9D    128013A0              LD,R8    STG102            OUTPUT DATA TO BUFFER. BYTE ZERO
    10862   01 02F9E    158012A4              STD,R8   BUFFER1            INITIAL BOUNDARY.  THIRD BYTE
    10863   01 02F9F    128013A2              LD,R8    STG607             TERMINAL BOUNDARY.
    10864   01 02FA0    158012A6              STD,R8   BUFFER1+2
    10865   01 02FA1    22000919              LI,R0    DA(CMDT24)        WRITE ORD, BC = 12, WRD BOUND
    10866   01 02FA2    221FFFFE A            LI,R1    -2                THREE SERVICE ITERATIONS
    10867   01 02FA3    228076CD A            LI,R8    X'76CD'           ADVANCE FOUR SERVICES.  SNAP PH2
    10868   01 02FA4    6AF0197A              BAL,R15  ADVSCA            OF THE LAST 4 BYTE OPERATION
    10869   01 02FA5    EC901294              RD,R9    *DISPLAY          READ SNAPPED DATA BYTE
    10870   01 02FA6    22808070 A            LI,R8    X'8070'             COMPARE BYTE
    10871   01 02FA7    68001A60              B        CREQUAL           SHOULD BE EQUAL
    10872         01 02FA8           T8210    EQU      %
    10873                            *
    10874                            *                                  BURST MODE, DATA IN, BURST MODE IN-
    10875                            *                                   DICATOR SET
    10876   01 02FA8    822005CE A   T8220    GEN,16,10,6    X'8220',X'17',T8230-% CONTROL WORD          *A03
    10877   01 02FA9    6AF019A2              BAL,R15  BURSTA            SET BURST MODE VIA MS CONTROL
    10878   01 02FAA    228107C9 A            LI,R8    X'107C9'          SNAPSHOT 1, SNAPSHOT MODE, DELAY*A03
    10879   01 02FAB    308012C8              AW,R8    CHBCTRL           COMPENSATE FOR CHA.B            *A03
    10880   01 02FAC    ED801298              WD,R8    *GP08              14, DISPLAY GROUP 9            *A03
    10881   01 02FAD    22000916              LI,R0    DA(CMDT22)        READ ORDER, EIGHT BYTE TRANSFER
    10882   01 02FAE    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10883   01 02FAF    CC001312              SIO,R0   *IOPMSADR         FOUR BYTE MODE
    10884   01 02FB0    228FFFF1 A            LI,R8    -15               WAIT FOR I/O COMPLETION
    10885   01 02FB1    65802FB1              BIR,8    %
    10886   01 02FB2    EC901294              RD,R9    *DISPLAY          LOOK AT SNAPSHOT DISPLAY IN MPXC,
    10887   01 02FB3    4B90131C              AND,R9   MASK9              'PH1' OF DATA IN SERVICE.  SHOULD
    10888   01 02FB4    328037B0              LW,R8    =X'58302C00'       SEE 'BM' (BIT 1),'DX4-1' (BIT 3),
    10889   01 02FB5    68001A60              B        CREQUAL            'RS:R' (BIT 4), 'NIER' (BIT 18)
    10890                            *                                    & OTHER
    10891                            *
    10892                            *                                  BURST MODE, DATA IN, SECOND PHASE
    10893                            *                                   EIGHT SET
    10894   01 02FB6    823005CA A   T8230    GEN,16,10,6    X'8230',X'17',T8240-% CONTROL WORD          *A03
    10895   01 02FB7    6AF019A2              BAL,R15  BURSTA            SET BURST MODE VIA MS
    10896   01 02FB8    22000917              LI,R0    DA(CMDT22A)       READ ORDER, EIGHT BYTE TRANSFER
    10897   01 02FB9    221FFFFE A            LI,R1    -2
    10898   01 02FBA    228076A8 A            LI,R8    X'76A8'           CONTROL
    10899   01 02FBB    6AF0197A              BAL,R15  ADVSCA            SINGLE SERVICE THROUGH BURST &
    10900   01 02FBC    EC901294              RD,R9    *DISPLAY              SNAP SECOND 'PH8'
    10901   01 02FBD    328035EA              LW,R8    =X'800000'        LOOK FOR 'PH8'
    10902   01 02FBE    4B900008 A            AND,R9   R8
    10903   01 02FBF    68001A60              B        CREQUAL
    10904                            *
    10905                            *                                  BURST MODE, DATA IN, SECOND PHASE
    10906                            *                                   NINE SET
    10907   01 02FC0    824005CA A   T8240    GEN,16,10,6    X'8240',X'17',T8250-% CONTROL WORD          *A03
    10908   01 02FC1    6AF019A2              BAL,R15  BURSTA            SET BURST MODE VIA MS
    10909   01 02FC2    22000917              LI,R0    DA(CMDT22A)        READ ORDER, EIGHT BYTE TRANSFER
    10910   01 02FC3    221FFFFE A            LI,R1    -2                COUNT FOR TWO SERVICES
    10911   01 02FC4    228076C8 A            LI,R8    X'76C8'           CONTROL
    10912   01 02FC5    6AF0197A              BAL,R15  ADVSCA            ADVANCE TWO SERVICES
    10913   01 02FC6    EC901294              RD,R9    *DISPLAY             READ SNAP DATA, SECOND PHASE 9
    10914   01 02FC7    328035B5              LW,R8    =X'400000'        LOOK FOR 'PH9'
    10915   01 02FC8    4B900008 A            AND,R9   R8
    10916   01 02FC9    68001A60              B        CREQUAL
    10917                            *
    10918                            *                                  BURST MODE, DATA IN, EIGHT BYTE
    10919                            *                                   TRANSFER, DOUBLE WORD BOUNDARIES
    10920   01 02FCA    825005CC A   T8250    GEN,16,10,6    X'8250',X'17',T8260-%   CONROL WORD         *A03
    10921   01 02FCB    22800055 A            LI,R8    X'55'             INPUT DATA PATTERN
    10922   01 02FCC    358012E3              STW,R8   INDATA
    10923   01 02FCD    6AF019A2              BAL,R15  BURSTA            SET BURST MODE
    10924   01 02FCE    22000916              LI,R0    DA(CMDT22)        READ ORDER, EIGHT BYTE TRANSFER
    10925   01 02FCF    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10926   01 02FD0    CC001312              SIO,R0   *IOPMSADR         BURST MODE                      *A03
    10927   01 02FD1    229FFFE2 A            LI,R9    -30
    10928   01 02FD2    65902FD2              BIR,R9   %                 30 MICROSECOND DELAY
    10929   01 02FD3    329012A5              LW,R9    BUFFER1+1         RECEIVED DATA, SECOND WORD
    10930   01 02FD4    3280378B              LW,R8    =X'55555555'      COMPARE DATE
    10931   01 02FD5    68001A60              B        CREQUAL
    10932                            *
    10933                            *                                  BURST MODE, DATA IN, 19 BYTE DATA
    10934                            *                                   TRANSFER
    10935   01 02FD6    826005CC A   T8260    GEN,16,10,6    X'8260',X'17',T8270-%   CONROL WORD         *A03
    10936   01 02FD7    228000AA A            LI,R8    X'AA'             INPUT DATA PATTERN
    10937   01 02FD8    358012E3              STW,R8   INDATA
    10938   01 02FD9    6AF019A2              BAL,R15  BURSTA            SET BURST MODE
    10939   01 02FDA    2200091A              LI,R0    DA(CMDT25)        READ ORDER, 19 BYTE TRANSFER
    10940   01 02FDB    6AF016C3              BAL,R15  PREPHS08          SINGLE PHASE OR GIVE SYNC
    10941   01 02FDC    CC001312              SIO,R0   *IOPMSADR         BURST MODE                      *A03
    10942   01 02FDD    229FFFE2 A            LI,R9    -30
    10943   01 02FDE    65902FDE              BIR,R9   %                 30 MICROSECOND DELAY
    10944   01 02FDF    329012A9              LW,R9    BUFFER1+5         RECEIVED DATA, 17TH THRU 19TH BYTES
    10945   01 02FE0    32803648              LW,R8    =X'AA000000'
    10946   01 02FE1    68001A60              B        CREQUAL
    10947                            *
    10948                            *                                  BURST MODE, DATA IN, DATA
    10949                            *                                   CHAIN AFTER EIGHT BYTES--
    10950                            *                                   VERIFY DATA
    10951   01 02FE2    827005CC A   T8270    GEN,16,10,6    X'8270',X'17',T8280-%   CONROL WORD         *A03
    10952   01 02FE3    22800069 A            LI,R8    X'69'             FETCH DATA PATTERN FOR INPUT
    10953   01 02FE4    358012E3              STW,R8   INDATA            SET IN PATTERN STORAGE
    10954   01 02FE5    6AF019A2              BAL,R15  BURSTA            SET BURST MODE AND DA0-7
    10955   01 02FE6    2200091B              LI,R0    DA(CMDT25A)       1ST CMND: BC=8; 2ND CMND: BC=4
    10956   01 02FE7    6AF0168D              BAL,R15  PREPHS03          SINGLE PHASE OR GIVE SYNC
    10957   01 02FE8    CC001312              SIO,R0   *IOPMSADR         BEGIN BURST INPUT               *A03
    10958   01 02FE9    229FFFE2 A            LI,R9    -30
    10959   01 02FEA    65902FEA              BIR,R9   %                 30 MICROSECOND DELAY
    10960   01 02FEB    329012A6              LW,R9    BUFFER1+2         FETCH DATA RECEIVED, 3RD WRD
    10961   01 02FEC    328037B1              LW,R8    =X'69696969'      FETCH DATA PATTERN EXPECTED
    10962   01 02FED    68001A60              B        CREQUAL           VERIFY DATA
    10963                            *
    10964                            *                                  BURST MODE, DATA IN, DATA
    10965                            *                                   CHAIN AFTER FOUR BYTES--
    10966                            *                                   VERIFY DATA
    10967   01 02FEE    828005CC A   T8280    GEN,16,10,6    X'8280',X'17',T8300-%   CONTROL WORD        *A03
    10968   01 02FEF    22800069 A            LI,R8    X'69'             FETCH DATA PATTERN FOR INPUT
    10969   01 02FF0    358012E3              STW,R8   INDATA            SET IN PATTERN STORAGE
    10970   01 02FF1    6AF019A2              BAL,R15  BURSTA            SET BURST MODE AND DA0-7
    10971   01 02FF2    2200091D              LI,R0    DA(CMDT25C)       1ST CMND: BC=4; 2ND CMND: BC=8
    10972   01 02FF3    6AF01698              BAL,R15  PREPHS04          SINGLE PHASE OR GIVE SYNC
    10973   01 02FF4    CC001312              SIO,R0   *IOPMSADR         BEGIN BURST INPUT               *A03
    10974   01 02FF5    229FFFE2 A            LI,R9    -30
    10975   01 02FF6    65902FF6              BIR,R9   %                 30 MICROSECOND DELAY
    10976   01 02FF7    329012A6              LW,R9    BUFFER1+2         FETCH DATA RECEIVED, 3RD WRD
    10977   01 02FF8    328037B1              LW,R8    =X'69696969'      FETCH DATA PATTERN EXPECTED
    10978   01 02FF9    68001A60              B        CREQUAL           VERIFY DATA
    10979                            *
    10980                            *                                  MEMORY TO MEMORY MOVE
    10981   01 02FFA    8300094E A   T8300    GEN,16,10,6    X'8300',X'25',T8310-%   CONROL WORD         *A03
    10982   01 02FFB    328037B2              LW,R8    =X'1F2E3D4E'      FILL BUFFER
    10983   01 02FFC    358012A4              STW,R8   BUFFER1
    10984   01 02FFD    ED001297              WD,R0    *SYNC             SYNC INSTRUCTION
    10985   01 02FFE    22000938              LI,R0    DA(CMDT45)
    10986   01 02FFF    CC201326              SIO,R2   *MM9              WRITE
    10987   01 03000    68C03002              BCR,12   %+2               ASSURE DEVICE RECOGNITION
    10988   01 03001    680013D0              B        BAD
    10989   01 03002    22000937              LI,R0    DA(CMDT44)
    10990   01 03003    CC401325              SIO,R4   *MM8              READ
    10991   01 03004    229FFFE2 A            LI,R9    -30
    10992   01 03005    65903005              BIR,R9   %                 30 MICROSECOND DELAY
    10993   01 03006    329012BE              LW,R9    BUFFER2           SHOULD CONTAIN MOVED DATA
    10994   01 03007    68001A60              B        CREQUAL
    10995                            *
    10996                            *                                  MEM TO MEM MOVE - DATA CHAIN
    10997   01 03008    83100953 A   T8310    GEN,16,10,6    X'8310',X'25',T8320-%   CONROL WORD         *A03
    10998   01 03009    3280377F              LW,R8    =X'11223344'      STUFF BUFFER WITH DATA TO
    10999   01 0300A    358012A4              STW,R8   BUFFER1            BE MOVED. (TWO WORDS)
    11000   01 0300B    32803780              LW,R8    =X'55667788'
    11001   01 0300C    358012A5              STW,R8   BUFFER1+1
    11002   01 0300D    ED001297              WD,R0    *SYNC
    11003   01 0300E    22000939              LI,R0    DA(CMDT46A)       DEDICATE R0 TO CMND DBWRD ADDR.
    11004   01 0300F    CC201326              SIO,R2   *MM9              START SOURCE (DC9)
    11005   01 03010    2200093B              LI,R0    DA(CMDT47A)       DEDICATE R0 TO CMND ADDR
    11006   01 03011    CC401325              SIO,R4   *MM8              START DESTINATION (DC8)
    11007   01 03012    229FFFE2 A            LI,R9    -30
    11008   01 03013    65903013              BIR,R9   %                 30 MICROSECOND DELAY
    11009   01 03014    329012BE              LW,R9    BUFFER2           FETCH RELOCATED DATA 1ST WRD.
    11010   01 03015    319012A4              CW,R9    BUFFER1           WAS 1ST WRD MOVED CORRECTLY?
    11011   01 03016    693013D0              BCS,3    BAD               BRANCH IF NOT
    11012   01 03017    329012BF              LW,R9    BUFFER2+1         FETCH 2ND RLOCATED WRD
    11013   01 03018    319012A5              CW,R9    BUFFER1+1         IS SECOND WRD CORRECT?
    11014   01 03019    693013D0              BCS,3    BAD               BRANCH IF NOT
    11015   01 0301A    6800148F              B        GOOD
    11016                            *
    11017                            *                                  MEM TO MEM MOVE-DATA CHAIN
    11018                            *                                   SIL OVER-RIDE
    11019   01 0301B    8320094C A   T8320    GEN,16,10,6    X'8320',X'25',T8330-%   CONROL WORD         *A03
    11020   01 0301C    22000939              LI,R0    DA(CMDT46A)       DEDICATE R0 TO CMND ADDR
    11021   01 0301D    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
    11022   01 0301E    CC201326              SIO,R2   *MM9              START SOURCE
    11023   01 0301F    22000937              LI,R0    DA(CMDT44)        DEDICATE R0 TO CMND ADDR
    11024   01 03020    CC401325              SIO,R4   *MM8              START DESTINATION I/O
    11025   01 03021    229FFFE2 A            LI,R9    -30
    11026   01 03022    65903022              BIR,R9   %                 30 MICROSECOND DELAY
    11027   01 03023    CD601325              TIO,R6   *MM8
    11028   01 03024    328037B3              LW,R8    =X'18820000'      STATUS EXPECTED
    11029   01 03025    32900007 A            LW,R9    R7
    11030   01 03026    68001A60              B        CREQUAL           COMPARE WITH ACTUAL
    11031                            *
    11032                            *                                  MEM TO MEM MOVE
    11033                            *                                   INTERRUPT ON CHANNEL END
    11034   01 03027    8330084A A   T8330    GEN,16,10,6    X'8330',X'21',T8340-%   CONROL WORD         *A03
    11035   01 03028    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    11036   01 03029    2200093D              LI,R0    DA(CMDT48)        DEDICATE R0 TO CMND ADDR
    11037   01 0302A    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
    11038   01 0302B    CC201326              SIO,R2   *MM9              START SOURCE I/O
    11039   01 0302C    2200093E              LI,R0    DA(CMDT49)        DEDICATE R0 TO DESTINATION
    11040   01 0302D    CC401325              SIO,R4   *MM8              START DESTINATION I/O
    11041   01 0302E    229FFFF6 A            LI,R9    -10
    11042   01 0302F    6590302F              BIR,R9   %                 NINETY MICROSECOND DELAY
    11043   01 03030    680013D0              B        BAD               RETURN BAD - NO INTERRUPT
    11044                            *
    11045                            *                                  MEM TO MEM MOVE
    11046                            *                                   INTERRUPT ON CHANNEL END
    11047                            *                                   VERIFY CONDITION CODES
    11048   01 03031    8340094F A   T8340    GEN,16,10,6    X'8340',X'25',T8350-%   CONROL WORD         *A03
    11049   01 03032    22800000 A            LI,R8    0                 CONDITION CODE EXPECTED
    11050   01 03033    22C0303E              LI,R12   T8340B                                            *A03
    11051   01 03034    35C01313              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    11052   01 03035    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPT      *A03
    11053   01 03036    2200093D              LI,R0    DA(CMDT48)
    11054   01 03037    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
    11055   01 03038    CC201326              SIO,R2   *MM9              START SOURCE
    11056   01 03039    2200093E              LI,R0    DA(CMDT49)
    11057   01 0303A    CC401325              SIO,R4   *MM8              START DESTINATION
    11058   01 0303B    229FFFA6 A            LI,R9    -90
    11059   01 0303C    6590303C              BIR,R9   %                 90 MICROSECOND DELAY
    11060   01 0303D    680013D0              B        BAD               RETURN BAD - NO INTRPT.
    11061   01 0303E    329012A0     T8340B   LW,R9    AIOCC             FETCH C.C. RECEIVED
    11062   01 0303F    68001A60              B        CREQUAL           COMPARE WITH R8
    11063                            *
    11064                            *                                  MEM TO MEM MOVE
    11065                            *                                   INTERRUPT ON CHANNEL END
    11066                            *                                   VERIFY STATUS
    11067   01 03040    83500950 A   T8350    GEN,16,10,6    X'8350',X'25',T8360-%   CONROL WORD         *A03
    11068   01 03041    22C0304E              LI,R12   T8350B
    11069   01 03042    35C01313              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    11070   01 03043    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTRPT
    11071   01 03044    328035B4              LW,R8    =X'100000'        FORM STATUS EXPECTED
    11072   01 03045    49801326              OR,R8    MM9
    11073   01 03046    2200093D              LI,R0    DA(CMDT48)
    11074   01 03047    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
    11075   01 03048    CC201326              SIO,R2   *MM9              START SOURCE
    11076   01 03049    2200093E              LI,R0    DA(CMDT49)
    11077   01 0304A    CC401325              SIO,R4   *MM8              START DESTINATION
    11078   01 0304B    229FFFA6 A            LI,R9    -90
    11079   01 0304C    6590304C              BIR,R9   %                 90 MICROSECOND DELAY
    11080   01 0304D    680013D0              B        BAD               RETURN BAD - NO INTRPT.
    11081   01 0304E    329012A2     T8350B   LW,R9    AIOSTATS          FETCH RECEIVED RESPONSE
    11082   01 0304F    68001A60              B        CREQUAL           COMPARE
    11083                            *
    11084                            *                                  MEM TO MEM MOVE
    11085                            *                                   INTERRUPT ON UNE
    11086   01 03050    8360084A A   T8360    GEN,16,10,6    X'8360',X'21',T8370-%   CONROL WORD         *A03
    11087   01 03051    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    11088   01 03052    2200093D              LI,R0    DA(CMDT48)
    11089   01 03053    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
    11090   01 03054    CC201326              SIO,R2   *MM9              SEND WRONG ORDER TO SOURCE
    11091   01 03055    2200093D              LI,R0    DA(CMDT48)
    11092   01 03056    CC401325              SIO,R4   *MM8              SEND WRONG ORDER TO DEST.
    11093   01 03057    229FFFA6 A            LI,R9    -90
    11094   01 03058    65903058              BIR,R9   %                 90 MICROSECOND DELAY
    11095   01 03059    680013D0              B        BAD               RETURN BAD - NO INTRPT.
    11096                            *
    11097                            *                                 MEM TO MEM MOVE
    11098                            *                                   INTERRUPT ON UNE
    11099                            *
    11100                            *                                   VERIFY COND. CODES
    11101   01 0305A    8370094F A   T8370    GEN,16,10,6    X'8370',X'25',T8380-%   CONROL WORD         *A03
    11102   01 0305B    22C03067              LI,R12   T8370B                                            *A03
    11103   01 0305C    35C01313              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    11104   01 0305D    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    11105   01 0305E    22800000 A            LI,R8    0                 C.C. EXPECTED
    11106   01 0305F    2200093D              LI,R0    DA(CMDT48)
    11107   01 03060    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
    11108   01 03061    CC201326              SIO,R2   *MM9              START SOURCE
    11109   01 03062    2200093E              LI,R0    DA(CMDT49)
    11110   01 03063    CC401325              SIO,R4   *MM8              START DESTINATION
    11111   01 03064    229FFFA6 A            LI,R9    -90
    11112   01 03065    65903065              BIR,R9   %                 90 MICROSECOND DELAY
    11113   01 03066    680013D0              B        BAD               RETURN BAD - NO INTRPT.
    11114   01 03067    329012A0     T8370B   LW,R9    AIOCC             FETCH C.C. RECEIVED
    11115   01 03068    68001A60              B        CREQUAL           COMPARE
    11116                            *
    11117                            *                                 MEM TO MEM MOVE
    11118                            *                                   INTERRUPT ON UNE
    11119                            *                                   VERIFY STATUS
    11120   01 03069    83800950 A   T8380    GEN,16,10,6    X'8380',X'25',T8390-%   CONROL WORD         *A03
    11121   01 0306A    22C03077              LI,R12   T8380B
    11122   01 0306B    35C01313              STW,R12  IORETURN          SET LOCAL INTERRUPT RETURN
    11123   01 0306C    6AF0199B              BAL,R15  ARMIO             ARM & ENABLE I/O INTERRUPTS
    11124   01 0306D    328035ED              LW,R8    =X'80000'         FORM STATUS EXPECTED
    11125   01 0306E    49801325              OR,R8    MM8
    11126   01 0306F    2200093D              LI,R0    DA(CMDT48)
    11127   01 03070    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
    11128   01 03071    CC201326              SIO,R2   *MM9              START SOURCE
    11129   01 03072    2200093D              LI,R0    DA(CMDT48)
    11130   01 03073    CC401325              SIO,R4   *MM8              START DESTINATION
    11131   01 03074    229FFFA6 A            LI,R9    -90
    11132   01 03075    65903075              BIR,R9   %                 90 MICROSECOND DELAY
    11133   01 03076    680013D0              B        BAD               RETURN BAD - NO INTRPT.
    11134   01 03077    329012A2     T8380B   LW,R9    AIOSTATS          FETCH AIO STATUS
    11135   01 03078    68001A60              B        CREQUAL           COMPARE
    11136                            *
    11137                            *                                  MEM TO MEM MOVE
    11138                            *                                   TDV -- COND. CODES
    11139         01 03079           LASTEST  EQU      %                  (LAST TEST MODULE)             *A03
    11140   01 03079    83900846 A   T8390    GEN,16,10,6    X'8390',X'21',LAST-%    CONROL WORD         *A03
    11141   01 0307A    ED001297              WD,0     *SYNC             SYNC INSTRUCTION                *A03
    11142   01 0307B    CE201326              TDV,R2   *MM9              TEST SOURCE DEVICE
    11143   01 0307C    688013D0              BCR,8    BAD               CHECK FOR COND. CODE
    11144   01 0307D    684013D0              BCR,4    BAD               11--
    11145   01 0307E    6800148F              B        GOOD
    11146                            **********************************************************************
    11147   01 0307F    99990000 A   LAST     GEN,16,10,6    X'9999',0,0  DUMMY MODULE                   *A03
    11148                            *
    11149                            *
    11150                            *
    11151                                     CLOSE    POLP,POLR,RIO
    11152                            *
    11153                            *
    11154                            *
    11155                            *
    11156                            *
    11157                            *
    11158                            *
    11159                            *
    11160                            *
    11161                            *
    11162                            *
    11163         01 03080           SYNTAX%EXPL EQU         %
    11164         01 03080                    TEXTCS   '  '
    11165         01 03081                    TEXTCS   ' '
    11166                                     TEXTCS   ;
    11167                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
    11168         01 03082            ' EXPLANATION,'
    11169                                     TEXTCS   ;
    11170         01 03094            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
    11171                                     TEXTCS   ;
    11172         01 030A0            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
    11173                                     TEXTCS   ;
    11174         01 030B0            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
    11175                                     TEXTCS   ;
    11176         01 030BF            'THE SPECIFIED ACTION.'
    11177         01 030C5                    TEXTCS   '  '
    11178                                     TEXTCS   ;
    11179         01 030C6            '  - ''@'' INITIATES ABSOLUTE RECOVERY SAME AS PCP ''SYSTEM RESET'''
    11180         01 030D6                    TEXTCS   '  '
    11181                                     TEXTCS   ;
    11182         01 030D7            '  - ''%'' FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
    11183                                     TEXTCS   ;
    11184         01 030E7            '     ''COMPUTE'' SWITCH TO ''IDLE''. WHEN OUTPUT TO KSR, IT MEANS'
    11185                                     TEXTCS   ;
    11186         01 030F7            '     THE PROGRAM IS WAITING FOR INPUT.'
    11187         01 03101                    TEXTCS   '  '
    11188                                     TEXTCS   ;
    11189         01 03102            '  - ''#'' FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
    11190                                     TEXTCS   ;
    11191         01 03112            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
    11192         01 0311D                    TEXTCS   '  '
    11193                                     TEXTCS   ;
    11194         01 0311E            '  - ''QUEST. MARK'' OUTPUTS A) SYNTAX GLOSS.  (AFTER ''@'' PROMPT),'
    11195                                     TEXTCS   ;
    11196         01 0312E            '      OR  B) CURRENT DIRECTIVE EXPL. (AFTER DIRECT. KEYIN),'
    11197                                     TEXTCS   ;
    11198         01 0313D            '      OR  C) ERROR MSG EXPL. (AFTER ERROR MSG OUTPUT)'
    11199         01 0314B                    TEXTCS   '  '
    11200                                     TEXTCS   ;
    11201         01 0314C            '  - '','' TERMINATES PARAMETER FIELD'
    11202                                     TEXTCS   ;
    11203         01 03155            '  - ''NEW LINE'' TERMINATES PARAMETER LINE'
    11204         01 03160           DM%EXPL  EQU      %
    11205         01 03160                    TEXTCS   '  '
    11206                                     TEXTCS   ;
    11207         01 03161            '  - ''DM>X,Y''-DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
    11208         01 03172           RM%EXPL  EQU      %
    11209         01 03172                    TEXTCS   '  '
    11210                                     TEXTCS   ;
    11211         01 03173            '  - ''RM>X,Y'' DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
    11212                                     TEXTCS   ;
    11213         01 03181             '      REPLACEMENT OF WORD DISPLAYED.'
    11214         01 0318B           SS%EXPL  EQU      %                                                 *A04
    11215         01 0318B                    TEXTCS   '  '
    11216                                     TEXTCS   ;
    11217         01 0318C            '  - ''SS'' SENSE SWITCH OPTION. DISPLAY TO MSG. DVC. THE CURRENT' *A04
    11218                                     TEXTCS   ;
    11219         01 0319C            '     SENSE SWITCH STATUS (SOFTWARE IF ''M''=0, PCP IF ''M''=1).'  *A04
    11220                                     TEXTCS   ;                                                 *A04
    11221         01 031AB            '     ALSO ALLOWS THE ALTERATION OF STATUS FROM THE TERMINAL IF'   *A04
    11222                                     TEXTCS   ;                                                 *A04
    11223         01 031BB            '     THE  ''M'' FIELD IS SET TO ONE.'                             *A04
    11224                                     TEXTCS   ;
    11225         01 031C4            '      SW1=1 SHORT LOOP'
    11226                                     TEXTCS   ;
    11227         01 031CA            '      SW1=0 NO SHORT LOOP'
    11228                                     TEXTCS   ;
    11229         01 031D1            '      SW2=1 LONG LOOP'
    11230                                     TEXTCS   ;
    11231         01 031D7            '      SW2=0 NO LONG LOOP'
    11232                                     TEXTCS   ;
    11233         01 031DE            '      SW3=1 NO HALT ON ERROR'
    11234                                     TEXTCS   ;
    11235         01 031E6            '      SW3=0 HALT ON ERROR'
    11236                                     TEXTCS   ;
    11237         01 031ED            '      SW4=1 SUPPRESS ERROR MSG.'
    11238                                     TEXTCS   ;
    11239         01 031F5            '      SW4=0 PRINT ERROR MSGS.'
    11240         01 031FD           STAT%EXPL  EQU    %
    11241         01 031FD                    TEXTCS   '  '
    11242                                     TEXTCS   ;
    11243         01 031FE            '   - ''&'' CAUSES THE DISPLAY OF THE CURRENT TEST NUMBER'
    11244                                     TEXTCS   ;
    11245         01 0320C            '    AND MODULE LOCATION.'
    11246         01 03213           J#EXPL   EQU      %
    11247         01 03213                    TEXTCS   '  '
    11248                                     TEXTCS   ;
    11249         01 03214            '   - ''J''  ALLOWS THE OPERATOR TO ASSIGN THE COMMUNICATION '
    11250                                     TEXTCS   ;
    11251         01 03223            '    DEVICES, CONTROL THE SUCCESS INDICATION, AND CONTROL THE'
    11252                                     TEXTCS   ;
    11253         01 03233            '    IOP CLOCK MARGINS:'
    11254                                     TEXTCS   ;
    11255         01 03239            '    -MSGDVC-- IOP-DEVICE ADDRESS FOR THE MESSAGE DEVICE.'
    11256                                     TEXTCS   ;
    11257         01 03248            '    -COMDEV-- IOP-DEVICE ADDRESS FOR THE COMMUNICATION DEVICE.'
    11258                                     TEXTCS   ;
    11259         01 03258            '    -SI-- A ONE ALLOWS A LISTING OF SUCCESS TESTS FOR ONE PASS'   *A03
    11260                                     TEXTCS   ;
    11261         01 03268            '    -CM-- A ONE INVOKES THE IOP CLOCK MARGINS'
    11262                            *
    11263         01 03274           OP%EXPL  EQU      %
    11264         01 03274                    TEXTCS   '  '
    11265                                     TEXTCS   ;
    11266         01 03275            '   - ''OP'' ALLOWS THE OPERATOR TO EXERCISE THE VARIOUS IOP'
    11267                                     TEXTCS   ;
    11268         01 03284            '    HARDWARE FEATURES:'
    11269                                     TEXTCS   ;
    11270         01 0328A            '    -IOP-MS ADR-- IOP # (TWO LEFT DIGITS) & MS DEVICE'            *A03
    11271                                     TEXTCS   ;
    11272         01 03298            '     ADDRESS (TWO RIGHT DIGITS)'                                  *A03
    11273                                     TEXTCS   ;
    11274         01 032A0            '    -IOP DIO/MI-- DIO ADDRESS DEDICATED TO THE TEST IOP,'         *A03
    11275                                     TEXTCS   ;
    11276         01 032AF            '    RIGHT JUSTIFIED.'                                             *A03
    11277                                     TEXTCS   ;                                                 *A03
    11278         01 032B5            '    -CH A/B-- A ONE SELECTS CHANNEL ''A'' AND/OR ''B'','
    11279                                     TEXTCS   ;
    11280         01 032C2            '     RESPECTIVELY (SEPARATED BY A COMMA).'                        *A03
    11281                                     TEXTCS   ;
    11282         01 032CD            '    -SUB-CHLNS-- NUMBER OF SUBCHANNELS IN CHANNEL ''A''.'
    11283                                     TEXTCS   ;
    11284         01 032DB            '     VALUES: 0-- 0-7 SUBCHLS, 1-- 0-15 SUBCHLS, 2-- 0-23 SUBCHLS'
    11285                                     TEXTCS   ;
    11286         01 032EC            '    -FOUR BYTE-- A ONE SELECTS FOUR BYTE MODE IN CHANNEL(S)'
    11287                                     TEXTCS   ;
    11288         01 032FB            '     ''A'' AND/OR ''B'', RESPECTIVELY (SEPARATED BY A COMMA).'    *A03
    11289                                     TEXTCS   ;
    11290         01 0330A            '    -BURST MODE-- A ONE SELECTS BURST MODE IN CHANNEL(S)'
    11291                                     TEXTCS   ;
    11292         01 03319            '     ''A'' AND/OR ''B'', RESPECTIVELY (SEPARATED BY A COMMA).'    *A03
    11293                                     TEXTCS   ;
    11294         01 03328            '    -MEM-MEM-- A ONE SELECTS MEMORY TO MEMORY MOVE OPTION,'
    11295                            *
    11296         01 03337           OM%EXPL  EQU      %
    11297         01 03337                    TEXTCS   '  '
    11298                                     TEXTCS   ;
    11299         01 03338            '   - ''OM'' CONTROLS THE PROGRAM MODES:'
    11300                                     TEXTCS   ;
    11301         01 03342            '    -FUNCTIONAL-- A ONE CAUSES THE PROGRAM TO EXECUTE THE '
    11302                                     TEXTCS   ;
    11303         01 03351            '     FUNCTIONAL TEST MODULES.'
    11304                                     TEXTCS   ;
    11305         01 03359            '    -COMPARE-- A ONE CAUSES THE SINGLE PHASE OPERATION AFTER ERROR'
    11306                                     TEXTCS   ;
    11307         01 0336A            '     DETECTION, OR AFTER FUNCTIONAL TESTING, SINGLE PHASING OF'
    11308                                     TEXTCS   ;
    11309         01 0337A            '     APPROPRIATE TEST MODULES.  IF THE PROGRAM HAS BEEN LOADED'
    11310                                     TEXTCS   ;
    11311         01 0338A            '     FROM THE MAG TAPE LIBRARY, COMPARE DATA WILL BE READ FROM THE'
    11312                                     TEXTCS   ;
    11313         01 0339B            '     TAPE FILE AND COMPARED WITH SINGLE PHASE DISPLAY DATA.'
    11314         01 033AA           T%EXPL   EQU      %
    11315         01 033AA                    TEXTCS       '  '
    11316                                     TEXTCS       ;
    11317         01 033AB            '   - T>X,Y PERMITS THE OPERATOR TO SELECT A RANGE OF TEST MODULES.'
    11318                                     TEXTCS   ;
    11319         01 033BC            '       THE ''X'' REFLECTS A STARTING TEST # AND ''Y'' REFLECTS THE'
    11320                                     TEXTCS   ;
    11321         01 033CC            '       ENDING TEST #.  THE STARTING TEST # MUST BE LESS THAN THE'
    11322                                     TEXTCS   ;
    11323         01 033DD            '       ENDING TEST #.  A SINGLE TEST # CAN BE SPECIFIED.'
    11324         01 033EC           PLINE#J  TEXTCS   ' 0002   0001   0  0'
    11325         01 033F1           PLINE#OM TEXTCS   '  1     0'
    11326         01 033F4           PLINE#OP TEXTCS   ' 0000   00   1 1   2    1 1   1 1   1'
    11327                            *
    11328                            *
    11329   01 033FE                 PLINEIN  RES      19
    11330                            *
    11331                            *
    11332                            *
    11333                            *************
    11334                            *
    11335         00000004           H        COM,8,8,8,8 AF(1),AF(2),AF(3),AF(4)
    11336         00000004           E        COM,8,8,16 AF(1),AF(2),AF(3)
    11337                            L        COM,3,2,3,5,3,1,3,3,3,3,3 AF(1),AF(2),AF(3),AF(4),AF(5),AF(6),;
    11338         00000004                             AF(7),AF(8),AF(9),AF(10),AF(11)
    11339         00000004           P        COM,8,2,6,16 AF(1),AF(2),AF(3),AF(4)
    11340                            **********************
    11341                            *        TABLE 3
    11342                            **********************
    11343                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
    11344                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
    11345                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
    11346                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
    11347                            *
    11348                            *  FORMAT
    11349                            *        WORD 1 = DIRECTIVE POINTER
    11350                            *         ***********
    11351                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
    11352                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
    11353                            *            AF(3)   BYTE 2 = SECOND CHAR.
    11354                            *            AF(4)   BYTE 3 = THIRD CHAR.
    11355                            *
    11356                            *
    11357                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
    11358                            *         ***********
    11359                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
    11360                            *            AF(2)   BYTE 1 = FIFTH CHAR.
    11361                            *            AF(3)   BYTES 2&3 = ADDRESS OF
    11362                            *                                       DIRECTIVE ROUTINE
1 C00   00:26 JUN 21,'83    SIGMA 8-9 IOP TEST 706139-11/51A06  1-15-73                           PAGE    4
A   11364                            *
    11365                            *        WORD 3 = CONTROL WORD
    11366                            *         ***********
    11367                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
    11368                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
    11369                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
    11370                            *             AF(4)   BITS 8-12= NOT USED
    11371                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
    11372                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
    11373                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
    11374                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
    11375                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
    11376                            *                    OR INDEX PARAM #1 (MODE 6)
    11377                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
    11378                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
    11379                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
    11380                            *
    11381                            *                 MODE:  0= UNCONDITIONAL (&)
    11382                            *                        1= IMMEDIATE     (DM)
    11383                            *                        2= PARAMETER LINE (S)
    11384                            *                        6= INDEXED PARAMETER LINE
    11385                            *                 VALIDATION = POSITION IN VALTYPE TABLE
    11386                            *                            0 = HEX, 1 = BIN, AND
    11387                            *                            4-7 = DESIGNER DEFINED
    11388                            *
    11389                            *         WORD 4 = EXPLANATION POINTER
    11390                            *         ***********
    11391                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
    11392                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
    11393                            *                             = 1 IF TEXT IS COMPRESSED
    11394                            *                             = 2,3   ** NOT ALLOWED **
    11395                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
    11396                            *                   TO CHARACTER #1 (REQUEST)
    11397                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
    11398                            *
1 C00   00:26 JUN 21,'83    SIGMA 8-9 IOP TEST 706139-11/51A06  1-15-73                           PAGE    5
A   11400         01 03411           TABLE3            EQU      %
    11401                            *
    11402   01 03411    017C0000 A            H        1,'@'
    11403   01 03412    00000000 A            E        0
    11404   01 03413    00000000 A            L        0
    11405   01 03414    5200C200 N            P        82,,0,BA(SYNTAX%EXPL)                             *A04
    11406                            *
    11407   01 03415    01500000 A            H        1,'&'
    11408   01 03416    000011DD N            E        ,,READSTAT
    11409   01 03417    00000000 A            L        0
    11410   01 03418    0400C7F4 N            P        4,,,BA(STAT%EXPL)
    11411                            *
    11412   01 03419    02C4D400 A            H        2,'D','M'
    11413   01 0341A    00000000 A            E        0
    11414   01 0341B    00000000 A            L        0
    11415   01 0341C    0201C580 N            P        2,,1,BA(DM%EXPL)
    11416                            *
    11417   01 0341D    02D9D400 A            H        2,'R','M'
    11418   01 0341E    00000000 A            E        0
    11419   01 0341F    00000000 A            L        0
    11420   01 03420    0201C5C8 N            P        2,,1,BA(RM%EXPL)
    11421                            *
    11422   01 03421    01E30000 A            H        1,'T'
    11423   01 03422    0000105F N            E        ,,TESTNO
    11424   01 03423    22000000 A            L        1,,2,,,,,0,
    11425   01 03424    0500CEA8 N            P        5,,,BA(T%EXPL)
    11426                            *
    11427   01 03425    02D6D700 A            H        2,'O','P'
    11428   01 03426    000010EC N            E        ,,PARAMOP
    11429   01 03427    48000000 A            L        2,1,,,,,0,,,,
    11430   01 03428    1000C9D0 N            P        16,,,BA(OP%EXPL)                                  *A03
    11431                            *
    11432   01 03429    02D6D400 A            H        2,'O','M'
    11433   01 0342A    00001168 N            E        ,,PARAMOM
    11434   01 0342B    48000000 A            L        2,1,,,,,0,,,,
    11435   01 0342C    0900CCDC N            P        9,,,BA(OM%EXPL)
    11436                            *
    11437   01 0342D    01D10000 A            H        1,'J'
    11438   01 0342E    0000118D N            E        ,,PARAJ
    11439   01 0342F    40000000 A            L        2
    11440   01 03430    0800C84C N            P        8,,,BA(J#EXPL)
    11441                            *
    11442   01 03431    02E2E200 A            H        2,'S','S'                                         *A04
    11443   01 03432    00000000 A            E        0                                                 *A01
    11444   01 03433    00000000 A            L        0                                                 *A01
    11445   01 03434    0D00C62C N            P        13,,,BA(SS%EXPL)                                  *A04
    11446                            *
    11447                            *
    11448   01 03435    FF000000 A   TABLE3END DATA  X'FF000000'
    11449                            *
    11450                            ************
    11451                            *
    11452                            *
    11453                            *
    11454   01 03436    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
    11455   01 03437    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
    11456   01 03438    6A601010              BAL,LINK #IOPINIT
    11457   01 03439    EA6003C8              BAL,X6   *#GUIDE%
    11458   01 0343A    0100D464              GEN,8,24 1,BA(PROGHDR)
    11459   01 0343B    4620E6B8 N            GEN,8,2,1,1,4,16  70,,1,,,BA(PROGHDR2)                     *A06
    11460                            ***********************************************************************
    11461                            *                                                                     *
    11462                            *       THE FOLLOWING AREA IS DEVOTED TO TEXT MESSAGES.               *
    11463                            *                                                                     *
    11464                            ***********************************************************************
    11465         01 0343C           CCUMG    TEXTCS   '  CCU  '
    11466         01 0343E           CHANMG   TEXTCS   'CHAN   '
    11467                            DISPERR  TEXTCS   'ACTUAL---->    XXXXXXXX    XXXXXXXX    XXXXXXXX';
    11468         01 03440                             ,'    XXXXXXXX    XXXX'
    11469         01 03451                    TEXTCS   ' '
    11470   01 03452                          RES      1
    11471                            DISPFORM TEXTCS   '   XX  PHXX    XXXXXXXX    XXXXXXXX    XXXXXXXX';
    11472         01 03453                             ,'    XXXXXXXX    XXXX'
    11473   01 03464                          RES      1
    11474         01 03465           ERDATAMG TEXTCS   ' STATUS/DATA,  EXP:XXXXXXXX'
    11475   01 0346C    00000000 A            DATA     0,0               EXTENDED PRINT FIELD
            01 0346D    00000000 A
    11476         01 0346E           ERDTAMG2 TEXTCS   '               ACT:XXXXXXXX'
    11477   01 03475    00000000 A            DATA     0,0               EXTENDED PRINT FIELD
            01 03476    00000000 A
    11478         01 03477           ER010MG  TEXTCS   'CHAN X FAULT, TEST # XXXX,LOC XXXXX.'
    11479                            FAMADRMG TEXTCS   ' SUBCHLN ADR FAULT, TEST ADR=XX, AFFECTED ADR='; *A03
    11480         01 03481                             ,'XX, CONTENTS='                                  *A03
    11481                            GRPHEAD1 TEXTCS   '       PHASE   GROUP 08    GROUP 09    GROUP 10';
    11482         01 03490                             ,'    GROUP 11    GP14'
    11483                            GRPHEAD2 TEXTCS   '       PHASE   GROUP 00    GROUP 01    GROUP 02';
    11484         01 034A1                             ,'    GP 13&12    GP15'
    11485                            GRPHEAD3 TEXTCS   '       PHASE   GROUP 16    GROUP 17    GROUP 18';
    11486         01 034B2                             ,'    GROUP 19    GP22'
    11487                            GRPHEAD4 TEXTCS   '       PHASE   GROUP 00    GROUP 01    GROUP 02';
    11488         01 034C3                             ,'    GP 21&20    GP23'
    11489         01 034D4           MODEMG   TEXTCS   'PROGRAM MODES COMPLETED.'                        *A01
    11490         01 034DB           NOCREGMG TEXTCS   ' *NO COM DVC RECOGNITION.'
    11491         01 034E2           NOMREGMG TEXTCS   ' *NO MSG DVC RECOGNITION'
    11492         01 034E9           JHDR     TEXTCS   'MSGDEV COMDEV SI CM'
    11493         01 034EE           OMHDR1   TEXTCS   'FUNCT- COM-'
    11494         01 034F1           OMHDR2   TEXTCS   'IONAL  PARE'
    11495         01 034F4           OPHDR1   TEXTCS   'IOP-MS  IOP   CH  SUB  FOUR BURST MEM-'
    11496         01 034FE           OPHDR2   TEXTCS   ' ADR  DIO/MI A/B CHLNS BYTE  MODE MEM'
    11497         01 03508           OPMG1    TEXTCS   'PX-PY  OUT OF RANGE.  RE-ENTER.'
    11498         01 03510           PASSMG   TEXTCS   '         HEX PASSES'
    11499         01 03515           PASS1MG  TEXTCS   'PASS COMPLETED'
    11500                            PROGHDR  TEXTCS   'SIGMA 8-9 IOP TEST  PROGRAM 706139-';
    11501         01 03519                             ,'A06 MANUAL 901878'                              *A06
    11502                            *PROGHDR2 (SEE 'END' CONTROL COMMAND -1)                            *A03
    11503         01 03527           SERCYHD1 TEXTCS   '   SIO'
    11504         01 03529           SERCYHD2 TEXTCS   '   TIO'
    11505         01 0352B           SERCYHD3 TEXTCS   '   TDV'
    11506         01 0352D           SERCYHD4 TEXTCS   '   HIO'
    11507         01 0352F           SERCYHD5 TEXTCS   '   AIO'
    11508         01 03531           SERCYHD9 TEXTCS   '   ORDER OUT'
    11509         01 03535           SERCYHDA TEXTCS   '   DATA OUT'
    11510         01 03538           SERCYHDB TEXTCS   '   DATA IN'
    11511         01 0353B           SERCYHDC TEXTCS   '   ORDER IN'
    11512                                     BOUND    8
    11513   01 0353E    0000152B N   STADDR   GEN,15,17,4,4,16,4,4 0,INIT054,0,5,0,0,0 PSD START
                        05000000
    11514                            STATUSMG TEXTCS   'CURRENT TEST NO. = XXXX, TEST LOC. = XXXX,';     *A03
    11515         01 03540                             ,' CHANNEL X PASS.'                               *A03
    11516         01 0354F           SUCSMG   TEXTCS   'SUCCESS TEST(S), CCU-CHAN X:'                    *A03
    11517                            SUCLNMG  TEXTCS   '     ,     ,     ,     ,     ,     ,     ,     ,';
    11518         01 03557                             ,'     ,     ,     ,     ,'
    11519         01 0356A           TSELTMG1 TEXTCS   'TEST # > RANGE. HIGHEST TEST # = 8390. RE-ENTER.'
    11520                            TSELTMG2 TEXTCS   'P1 OR P2 NON-EXISTENT TEST #S.  CLOSEST #S ARE';
    11521         01 03577                             ,' XXXX & YYYY. RE-ENTER.'
    11522                            *
    11523         01 03589           TSELTMG3 TEXTCS   'P1>P2.  RE-ENTER.'
    11524         01 0358E           TSELTMG4 TEXTCS   'NO ENTRY.'
    11525         01 03591           TSELTMG5 TEXTCS   'P1 OR P2 NOT = TO TEST #. CLOSEST # = XXXX'
    11526         01 0359C           TSELTMG6 TEXTCS   'TOO MANY DIGITS. RE-ENTER.'
    11527         01 035A3           VMMG     TEXTCS   'VOLTAGE MARGINS INVOKED WITH CLOCK MARGINS.'
    11528         01 035AE           ZZZ      EQU      %                                                 *A03
    11529   01 039AE                          ORG      %+X'400'                                          *A03
            01 039AE
    11530         01 039AE           PROGHDR2 EQU      %
    11531         01 039AE                    TEXTCS   '  '                                              *A03
    11532                                     TEXTCS   ;                                                 *A03
    11533         01 039AF            ' IOP E.O. LEVEL'                                                  *A03
    11534                                     TEXTCS   ;                                                 *A03
    11535         01 039B3            ' --------------'                                                  *A03
    11536                                     TEXTCS   ;                                                 *A03
    11537         01 039B7            'CHANNELS A  AND  B  :  M  AND  L, RESPECTIVELY'                   *A06
    11538         01 039C3                    TEXTCS   '  '                                              *A04
    11539                                     TEXTCS   ;                                                 *A03
    11540         01 039C4            ' PROGRAM MODIFICATIONS'                                           *A03
    11541                                     TEXTCS   ;                                                 *A03
    11542         01 039CA            ' ---------------------'                                           *A04
    11543                                     TEXTCS   ;                                                 *A04
    11544         01 039D0            '*REVISION A06'                                                    *A06
    11545                                     TEXTCS   ;                                                 *A06
    11546         01 039D4            '   1.  ADD TEST 8162. FOUR BYTE, READ REVERSE,DATA IN,11 BYTE '  *A06
    11547                                     TEXTCS   ;                                                 *A06
    11548         01 039E4            '        TRANSFER,WORD BOUNDRY      '                              *A06
    11549                                     TEXTCS   ;                                                 *A06
    11550         01 039ED            '   2.  ADD TEST 8164. FOUR BYTE,READ REVERSE,DATA IN 8 BYTE '     *A06
    11551                                     TEXTCS   ;                                                 *A06
    11552         01 039FD            '       TRANSFER,WORD BOUNDRY '                                    *A06
    11553                                     TEXTCS   ;                                                 *A06
    11554         01 03A05            '   3.  ADD TEST 8166. FOUR BYTE,READ REVERSE,DATA IN,11 BYTE  '   *A06
    11555                                     TEXTCS   ;                                                 *A06
    11556         01 03A15            '       TRANSFER,ODD BYTE BOUNDRY. '                               *A06
    11557                                     TEXTCS   ;                                                 *A06
    11558         01 03A1E            '    4. DISABLED THE CHECKING OF ZBC BIT DURING SNAP.'             *A06
    11559                                     TEXTCS   ;                                                 *A06
    11560         01 03A2C            '       THIS WAS DONE BECAUSE OF THE VARING OF THE ZBC SIGNAL'     *A06
    11561                                     TEXTCS   ;                                                 *A06
    11562         01 03A3C            '       FROM PROCESSOR TO PROCESSOR'                               *A06
    11563                                     TEXTCS   ;                                                 *A06
    11564         01 03A45            '*  REVISION A05'                                                  *A05
    11565                                     TEXTCS   ;                                                 *A05
    11566         01 03A49            '    1. INHIBIT COUNTER FOUR DURING TESTING.'                      *A05
    11567                                     TEXTCS   ;                                                 *A05
    11568         01 03A54            '    2. RESTORE R13 AND R14 AFTER ARMUSER LINKAGE.'                *A05
    11569                                     TEXTCS   ;                                                 *A05
    11570         01 03A61            '    3. UPDATE MSG DEVICE ADR IN ''J'' PARAMETER (TAR 11416).'     *A05
    11571                                     TEXTCS   ;                                                 *A05
    11572         01 03A70            '    4. DOCUMENT ERROR EXCEPTION WITH ZBC SIGNAL, BIT 24 OF'       *A05
    11573                                     TEXTCS   ;                                                 *A05
    11574         01 03A7F            '       SNAP GROUP 9 OR 17, DURING COOKBOOK DISPLAY.  (SEE'        *A05
    11575                                     TEXTCS   ;                                                 *A05
    11576         01 03A8E            '       PROGRAM DOCUMENTATION UNDER SUCCESS/FAILURE INDICATION.)'  *A05
    11577                                     TEXTCS   ;                                                 *A05
    11578         01 03A9E            '    5. FORCE MTL REWIND UNDER ABSOLUTE RECOVERY'                  *A05
    11579                                     TEXTCS   ;                                                 *A05
    11580         01 03AAA            '       AFTER SNAP FAULT.'                                         *A05
    11581                                     TEXTCS   ;                                                 *A05
    11582         01 03AB1            '    6. CORRECTED EOF WRITE DURING SNAP VERIFY'                    *A05
    11583                                     TEXTCS   ;                                                 *A05
    11584         01 03ABD            '*  REVISION A04:'                                                 *A04
    11585                                     TEXTCS   ;                                                 *A04
    11586         01 03AC2            '    1. MAKE SAMPLE ROUTINE COMPATIBLE WITH ''B00'' GUIDE.'        *A04
    11587                                     TEXTCS   ;                                                 *A04
    11588         01 03AD0            '    2. REMOVE REDUNDENT BREAK FEATURE FOR COMMUNICATION DEVICE.'  *A04
    11589                                     TEXTCS   ;                                                 *A04
    11590         01 03AE0            '    3. CORRECT RUN-AWAY TAPE PROBLEM WHEN ''CM'' IS INVOKED.'     *A04
    11591                                     TEXTCS   ;                                                 *A04
    11592         01 03AEF            '    4. MAKE PROGRAM OPERABLE WITH ''B00'' REMOTE PACKAGE.'        *A04
    11593                                     TEXTCS   ;                                                 *A04
    11594         01 03AFD            '    5. ADD NEW TEST MODULES TO VERIFY MAE (TAR 11777).'           *A04
    11595                                     TEXTCS   ;                                                 *A04
    11596         01 03B0B            '    6. ADD NEW TEST MODULE TO VERIFY 4-BYTE MODE FOR BYTE 2'      *A04
    11597                                     TEXTCS   ;                                                 *A04
    11598         01 03B1A            '       BOUNDARY CONDITION FOR DATA OUT (TAR 11712).'              *A04
    11599                                     TEXTCS   ;                                                 *A04
    11600         01 03B27            '    7. ADD REMOTE CAPABILITIES VIA THE NEW ''B00'' GUIDE.'        *A04
    11601                                     TEXTCS   ;                                                 *A04
    11602         01 03B35            '    8. CORRECT TIMING PROBLEM IN TEST 7480 (TAR 10842).'          *A04
    11603                                     TEXTCS   ;                                                 *A03
    11604         01 03B43            '*  REVISION A03:'                                                 *A03
    11605                                     TEXTCS   ;                                                 *A03
    11606         01 03B48            '    1. REPLACE ORIGINAL TEST MODULES 10-3500 WITH NEW MODULES.'   *A03
    11607                                     TEXTCS   ;                                                 *A03
    11608         01 03B58            '    2. REMOVE CHANNEL ''B'' TEST MODULES.'                        *A03
    11609                                     TEXTCS   ;                                                 *A03
    11610         01 03B62            '    3. MODIFY DRIVER EXECUTIVE SO CHANNEL ''A'' TEST MODULES CAN' *A03
    11611                                     TEXTCS   ;                                                 *A03
    11612         01 03B72            '        BE EXECUTED ON BOTH CHANNELS.'                            *A03
    11613                                     TEXTCS   ;                                                 *A03
    11614         01 03B7C            '    4. RE-SEQUENCE ALL TEST MODULES.'                             *A03
    11615                                     TEXTCS   ;                                                 *A03
    11616         01 03B86            '    5. CORRECT OUTSTANDING PROBLEMS IN A02 VERISON-- A) CODING '  *A03
    11617                                     TEXTCS   ;                                                 *A03
    11618         01 03B96            '       ERRORS IN PFI HANDLER, B) CONTROL IN ''T'' PARAMETER, &'   *A03
    11619                                     TEXTCS   ;                                                 *A03
    11620         01 03BA6            '       C) VM DETECTION WHEN INVOKING CM.'                         *A03
    11621                                     TEXTCS   ;                                                 *A03
    11622         01 03BB1            '    6. ADDED NEW ERROR MESSAGE FOR NEW FAM SUBCHANNEL ADDRESS-'   *A03
    11623                                     TEXTCS   ;                                                 *A03
    11624         01 03BC1            '       ING TESTS.'                                                *A03
    11625                                     TEXTCS   ;                                                 *A03
    11626         01 03BC6            '*  REVISION A02:'                                                 *A03
    11627                                     TEXTCS   ;                                                 *A03
    11628         01 03BCB            '    1. REMOVE THE INITIAL WAIT IN THE INITIALIZER ROUTINE.'       *A03
    11629                                     TEXTCS   ;                                                 *A03
    11630         01 03BDA            '    2. INCLUDE RESETS FOR ALL APPROPRIATE PARAMETER LINES.'       *A03
    11631                                     TEXTCS   ;                                                 *A03
    11632         01 03BE9            '    3. PROVIDE A MTL REWIND WHEN INVOKING ''OM'' PARAMETER.'      *A03
    11633                                     TEXTCS   ;                                                 *A03
    11634         01 03BF8            '    4. CORRECT TAPE ADDRESSING ERROR FOR COOKBOOK OPERATION.'     *A03
    11635                                     TEXTCS   ;                                                 *A03
    11636         01 03C08            '    5. CORRECT ''CM'' SELECTION PRIOR TO TEST MODULE EXECUTION.'  *A03
    11637                                     TEXTCS   ;                                                 *A03
    11638         01 03C18            '    6. CORRECT CONTROL PROBLEM IN SUCCESS INDICATION.'            *A03
    11639                                     TEXTCS   ;                                                 *A03
    11640         01 03C26            '    7. PROVIDE APPROPRIATE MASKS FOR DISPLAY GROUPS IN COOKBOOK.' *A03
    11641                                     TEXTCS   ;                                                 *A03
    11642         01 03C37            '    8. PROVIDE A MEMORY PARITY RESET.'                            *A03
    11643                                     TEXTCS   ;                                                 *A03
    11644         01 03C41            '       (TARS 11501 & 11565)'                                      *A03
    11645                                     TEXTCS   ;                                                 *A03
    11646         01 03C48            '    9. CORRECT TEXT FOR ''S'' PARAMETER EXPLANATION (TAR 11550).' *A03
    11647                                     TEXTCS   ;                                                 *A03
    11648         01 03C58            '    10. SAVE AND PRINT TCC 0-4 FOR 46, 4C, & 4D TRAPS.'           *A03
    11649                                     TEXTCS   ;                                                 *A03
    11650         01 03C66            '*  REVISION A01:'                                                 *A03
    11651                                     TEXTCS   ;                                                 *A03
    11652         01 03C6B            '    1. ADD RANGE SELECTION CAPABITLITY TO THE ''T'' PARAMETER.'   *A03
    11653                                     TEXTCS   ;                                                 *A03
    11654         01 03C7B            '    2. CORRECT CHANNEL ''B'' SELECT IN THE ''OP'' PARAMETER.'     *A03
    11655                                     TEXTCS   ;                                                 *A03
    11656         01 03C8A            '    3. ADD ''S'' PARAMETER EXPLANATION.'                          *A03
    11657                                     TEXTCS   ;                                                 *A03
    11658         01 03C94            '    4. ADD CLOCK MARGIN CONTROL TO THE ''J'' PARAMETER.'          *A03
    11659                                     TEXTCS   ;                                                 *A03
    11660         01 03CA2            '    5. CHANGE THE ''OM'' PARAMETER TO TWO CONTROL ITEMS.'         *A03
    11661                                     TEXTCS   ;                                                 *A03
    11662         01 03CB0            '    6. ADD SUPER RESET SEQUENCE TO BETTER PERDICT COOKBOOK DATA'  *A03
    11663                                     TEXTCS   ;                                                 *A03
    11664         01 03CC0            '    7. CORRECT RE-START IN THE INITIALIZER SEQUENCE.'             *A03
    11665                                     TEXTCS   ;                                                 *A03
    11666         01 03CCE            '    8. ADD AUTOMATIC COMPARE FEATURE UNDER COOKBOOK CONTROL.'     *A03
    11667         01 03CDE                    TEXTCS   ' '                                               *A03
    11668   01 035AE                          ORG      ZZZ                                               *A03
            01 035AE
    11669         01 03437           ENDADDR  END      GUIDE             GO TO GUIDE
            01 035AE    0000FFFF A
            01 035AF    0000003F A
            01 035B0    00001EFF A
            01 035B1    0A000000 A
            01 035B2    0FF00000 A
            01 035B3    0000000F A
            01 035B4    00100000 A
            01 035B5    00400000 A
            01 035B6    7FFFFFFE A
            01 035B7    FFFFFB7F A
            01 035B8    0038709F A
            01 035B9    000000FF A
            01 035BA    0000000A A
            01 035BB    00000004 A
            01 035BC    00000008 A
            01 035BD    0C000000 A
            01 035BE    04000000 A
            01 035BF    DECA6600 A
            01 035C0    10000000 A
            01 035C1    00001F00 A
            01 035C2    02000000 A
            01 035C3    000000B0 A
            01 035C4    80000018 A
            01 035C5    00000C00 A
            01 035C6    00001FFF A
            01 035C7    00001E00 A
            01 035C8    00000080 A
            01 035C9    00000070 A
            01 035CA    00000100 A
            01 035CB    0000007F A
            01 035CC    00000001 A
            01 035CD    00000003 A
            01 035CE    0000200F A
            01 035CF    00002FE0 A
            01 035D0    00000400 A
            01 035D1    C0000000 A
            01 035D2    F0000000 A
            01 035D3    FFFF0000 A
            01 035D4    0000001F A
            01 035D5    00FFFFFF A
            01 035D6    F8000000 A
            01 035D7    C0A21000 A
            01 035D8    F9FF1800 A
            01 035D9    01800000 A
            01 035DA    05FE7FFF A
            01 035DB    80000000 A
            01 035DC    FFFC7FFB A
            01 035DD    00352000 A
            01 035DE    FFFFF3FF A
            01 035DF    FFFFFB7B A
            01 035E0    FFFFFBFF A
            01 035E1    40000000 A
            01 035E2    FFFFFF7F A
            01 035E3    0000FF7F A
            01 035E4    E2000000 A
            01 035E5    000FC000 A
            01 035E6    18000000 A
            01 035E7    00000040 A
            01 035E8    00018000 A
            01 035E9    00001800 A
            01 035EA    00800000 A
            01 035EB    01000000 A
            01 035EC    000007FF A
            01 035ED    00080000 A
            01 035EE    000001E0 A
            01 035EF    0000E7FF A
            01 035F0    003E7FFF A
            01 035F1    003E1010 A
            01 035F2    003E2010 A
            01 035F3    003E0010 A
            01 035F4    003E3010 A
            01 035F5    003E5010 A
            01 035F6    003E7010 A
            01 035F7    003E4010 A
            01 035F8    00006010 A
            01 035F9    00007FFF A
            01 035FA    002A4010 A
            01 035FB    00144010 A
            01 035FC    03000000 A
            01 035FD    001FFFFF A
            01 035FE    FFDFFFFF A
            01 035FF    FF5FFFFF A
            01 03600    00001C00 A
            01 03601    60000000 A
            01 03602    00000490 A
            01 03603    0000F800 A
            01 03604    FFC00200 A
            01 03605    20000200 A
            01 03606    0000FD7F A
            01 03607    64000000 A
            01 03608    A0000000 A
            01 03609    00002000 A
            01 0360A    A4000000 A
            01 0360B    0000F978 A
            01 0360C    00002100 A
            01 0360D    28000000 A
            01 0360E    0000F900 A
            01 0360F    0000F9FF A
            01 03610    0000F958 A
            01 03611    88800000 A
            01 03612    D8C00000 A
            01 03613    00000FFF A
            01 03614    FF000000 A
            01 03615    1F000000 A
            01 03616    80FFFFFF A
            01 03617    7E000000 A
            01 03618    82FFFFFF A
            01 03619    82000000 A
            01 0361A    82010001 A
            01 0361B    48000000 A
            01 0361C    FC000000 A
            01 0361D    82000100 A
            01 0361E    B4000000 A
            01 0361F    82303030 A
            01 03620    82181818 A
            01 03621    82282828 A
            01 03622    82050505 A
            01 03623    82030303 A
            01 03624    82060606 A
            01 03625    82C0C0C0 A
            01 03626    82404040 A
            01 03627    82808080 A
            01 03628    82080808 A
            01 03629    82101010 A
            01 0362A    82202020 A
            01 0362B    82383838 A
            01 0362C    82010101 A
            01 0362D    82020202 A
            01 0362E    82040404 A
            01 0362F    82070707 A
            01 03630    823F3F3F A
            01 03631    82878787 A
            01 03632    82787878 A
            01 03633    82ADADAD A
            01 03634    82D6D6D6 A
            01 03635    82DADADA A
            01 03636    82929292 A
            01 03637    86000000 A
            01 03638    7EFFFFFF A
            01 03639    84000000 A
            01 0363A    8A000000 A
            01 0363B    88000000 A
            01 0363C    8E000000 A
            01 0363D    8C000000 A
            01 0363E    92000000 A
            01 0363F    90000000 A
            01 03640    96000000 A
            01 03641    94000000 A
            01 03642    9A000000 A
            01 03643    98000000 A
            01 03644    9E000000 A
            01 03645    9C000000 A
            01 03646    A2000000 A
            01 03647    A6000000 A
            01 03648    AA000000 A
            01 03649    A8000000 A
            01 0364A    AE000000 A
            01 0364B    AC000000 A
            01 0364C    B2000000 A
            01 0364D    B0000000 A
            01 0364E    B6000000 A
            01 0364F    BA000000 A
            01 03650    B8000000 A
            01 03651    BE000000 A
            01 03652    BC000000 A
            01 03653    C2000000 A
            01 03654    C6000000 A
            01 03655    C4000000 A
            01 03656    CA000000 A
            01 03657    C8000000 A
            01 03658    CE000000 A
            01 03659    CC000000 A
            01 0365A    D2000000 A
            01 0365B    D0000000 A
            01 0365C    D6000000 A
            01 0365D    D4000000 A
            01 0365E    DA000000 A
            01 0365F    D8000000 A
            01 03660    DE000000 A
            01 03661    DC000000 A
            01 03662    3C000000 A
            01 03663    06FFFFFF A
            01 03664    04010101 A
            01 03665    0AFEFEFE A
            01 03666    08020202 A
            01 03667    0EFDFDFD A
            01 03668    0C030303 A
            01 03669    12FCFCFC A
            01 0366A    10040404 A
            01 0366B    16FBFBFB A
            01 0366C    14050505 A
            01 0366D    1AFAFAFA A
            01 0366E    18060606 A
            01 0366F    1EF9F9F9 A
            01 03670    1C070707 A
            01 03671    22F8F8F8 A
            01 03672    20080808 A
            01 03673    26F7F7F7 A
            01 03674    24090909 A
            01 03675    2AF6F6F6 A
            01 03676    280A0A0A A
            01 03677    2EF5F5F5 A
            01 03678    2C0B0B0B A
            01 03679    32F4F4F4 A
            01 0367A    300C0C0C A
            01 0367B    36F3F3F3 A
            01 0367C    340D0D0D A
            01 0367D    3AF2F2F2 A
            01 0367E    380E0E0E A
            01 0367F    3EF1F1F1 A
            01 03680    3C0F0F0F A
            01 03681    42F0F0F0 A
            01 03682    40101010 A
            01 03683    46EFEFEF A
            01 03684    44111111 A
            01 03685    4AEEEEEE A
            01 03686    48121212 A
            01 03687    4EEDEDED A
            01 03688    4C131313 A
            01 03689    52ECECEC A
            01 0368A    50141414 A
            01 0368B    56EBEBEB A
            01 0368C    54151515 A
            01 0368D    5AEAEAEA A
            01 0368E    58161616 A
            01 0368F    5EE9E9E9 A
            01 03690    5C171717 A
            01 03691    86FFFFFF A
            01 03692    84FFFFFF A
            01 03693    8AFFFFFF A
            01 03694    88FFFFFF A
            01 03695    8EFFFFFF A
            01 03696    8CFFFFFF A
            01 03697    92FFFFFF A
            01 03698    90FFFFFF A
            01 03699    96FFFFFF A
            01 0369A    94FFFFFF A
            01 0369B    9AFFFFFF A
            01 0369C    98FFFFFF A
            01 0369D    9EFFFFFF A
            01 0369E    9CFFFFFF A
            01 0369F    A2FFFFFF A
            01 036A0    A0FFFFFF A
            01 036A1    A6FFFFFF A
            01 036A2    A4FFFFFF A
            01 036A3    AAFFFFFF A
            01 036A4    A8FFFFFF A
            01 036A5    AEFFFFFF A
            01 036A6    ACFFFFFF A
            01 036A7    B2FFFFFF A
            01 036A8    B0FFFFFF A
            01 036A9    B6FFFFFF A
            01 036AA    B4FFFFFF A
            01 036AB    BAFFFFFF A
            01 036AC    B8FFFFFF A
            01 036AD    BEFFFFFF A
            01 036AE    BCFFFFFF A
            01 036AF    C2FFFFFF A
            01 036B0    C0FFFFFF A
            01 036B1    C6FFFFFF A
            01 036B2    C4FFFFFF A
            01 036B3    CAFFFFFF A
            01 036B4    C8FFFFFF A
            01 036B5    CEFFFFFF A
            01 036B6    CCFFFFFF A
            01 036B7    D2FFFFFF A
            01 036B8    D0FFFFFF A
            01 036B9    D6FFFFFF A
            01 036BA    D4FFFFFF A
            01 036BB    DAFFFFFF A
            01 036BC    D8FFFFFF A
            01 036BD    DEFFFFFF A
            01 036BE    DCFFFFFF A
            01 036BF    82AAAAAA A
            01 036C0    80AAAAAA A
            01 036C1    86AAAAAA A
            01 036C2    84AAAAAA A
            01 036C3    8AAAAAAA A
            01 036C4    88AAAAAA A
            01 036C5    8EAAAAAA A
            01 036C6    8CAAAAAA A
            01 036C7    92AAAAAA A
            01 036C8    90AAAAAA A
            01 036C9    96AAAAAA A
            01 036CA    94AAAAAA A
            01 036CB    9AAAAAAA A
            01 036CC    98AAAAAA A
            01 036CD    9EAAAAAA A
            01 036CE    9CAAAAAA A
            01 036CF    A2AAAAAA A
            01 036D0    A0AAAAAA A
            01 036D1    A6AAAAAA A
            01 036D2    A4AAAAAA A
            01 036D3    AAAAAAAA A
            01 036D4    A8AAAAAA A
            01 036D5    AEAAAAAA A
            01 036D6    ACAAAAAA A
            01 036D7    B2AAAAAA A
            01 036D8    B0AAAAAA A
            01 036D9    B6AAAAAA A
            01 036DA    B4AAAAAA A
            01 036DB    BAAAAAAA A
            01 036DC    B8AAAAAA A
            01 036DD    BEAAAAAA A
            01 036DE    BCAAAAAA A
            01 036DF    C2AAAAAA A
            01 036E0    C0AAAAAA A
            01 036E1    C6AAAAAA A
            01 036E2    C4AAAAAA A
            01 036E3    CAAAAAAA A
            01 036E4    C8AAAAAA A
            01 036E5    CEAAAAAA A
            01 036E6    CCAAAAAA A
            01 036E7    D2AAAAAA A
            01 036E8    D0AAAAAA A
            01 036E9    D6AAAAAA A
            01 036EA    D4AAAAAA A
            01 036EB    DAAAAAAA A
            01 036EC    D8AAAAAA A
            01 036ED    DEAAAAAA A
            01 036EE    DCAAAAAA A
            01 036EF    82555555 A
            01 036F0    80555555 A
            01 036F1    86555555 A
            01 036F2    84555555 A
            01 036F3    8A555555 A
            01 036F4    88555555 A
            01 036F5    8E555555 A
            01 036F6    8C555555 A
            01 036F7    92555555 A
            01 036F8    90555555 A
            01 036F9    96555555 A
            01 036FA    94555555 A
            01 036FB    9A555555 A
            01 036FC    98555555 A
            01 036FD    9E555555 A
            01 036FE    9C555555 A
            01 036FF    A2555555 A
            01 03700    A0555555 A
            01 03701    A6555555 A
            01 03702    A4555555 A
            01 03703    AA555555 A
            01 03704    A8555555 A
            01 03705    AE555555 A
            01 03706    AC555555 A
            01 03707    B2555555 A
            01 03708    B0555555 A
            01 03709    B6555555 A
            01 0370A    B4555555 A
            01 0370B    BA555555 A
            01 0370C    B8555555 A
            01 0370D    BE555555 A
            01 0370E    BC555555 A
            01 0370F    C2555555 A
            01 03710    C0555555 A
            01 03711    C6555555 A
            01 03712    C4555555 A
            01 03713    CA555555 A
            01 03714    C8555555 A
            01 03715    CE555555 A
            01 03716    CC555555 A
            01 03717    D2555555 A
            01 03718    D0555555 A
            01 03719    D6555555 A
            01 0371A    D4555555 A
            01 0371B    DA555555 A
            01 0371C    D8555555 A
            01 0371D    DE555555 A
            01 0371E    DC555555 A
            01 0371F    825B5B5B A
            01 03720    805B5B5B A
            01 03721    865B5B5B A
            01 03722    845B5B5B A
            01 03723    8A5B5B5B A
            01 03724    885B5B5B A
            01 03725    8E5B5B5B A
            01 03726    8C5B5B5B A
            01 03727    925B5B5B A
            01 03728    905B5B5B A
            01 03729    965B5B5B A
            01 0372A    945B5B5B A
            01 0372B    9A5B5B5B A
            01 0372C    985B5B5B A
            01 0372D    9E5B5B5B A
            01 0372E    9C5B5B5B A
            01 0372F    A25B5B5B A
            01 03730    A05B5B5B A
            01 03731    A65B5B5B A
            01 03732    A45B5B5B A
            01 03733    AA5B5B5B A
            01 03734    A85B5B5B A
            01 03735    AE5B5B5B A
            01 03736    AC5B5B5B A
            01 03737    B25B5B5B A
            01 03738    B05B5B5B A
            01 03739    B65B5B5B A
            01 0373A    B45B5B5B A
            01 0373B    BA5B5B5B A
            01 0373C    B85B5B5B A
            01 0373D    BE5B5B5B A
            01 0373E    BC5B5B5B A
            01 0373F    C25B5B5B A
            01 03740    C05B5B5B A
            01 03741    C65B5B5B A
            01 03742    C45B5B5B A
            01 03743    CA5B5B5B A
            01 03744    C85B5B5B A
            01 03745    CE5B5B5B A
            01 03746    CC5B5B5B A
            01 03747    D25B5B5B A
            01 03748    D05B5B5B A
            01 03749    D65B5B5B A
            01 0374A    D45B5B5B A
            01 0374B    DA5B5B5B A
            01 0374C    D85B5B5B A
            01 0374D    DE5B5B5B A
            01 0374E    DC5B5B5B A
            01 0374F    2200002E A
            01 03750    000000F8 A
            01 03751    FFE00000 A
            01 03752    00001000 A
            01 03753    80000002 A
            01 03754    20000000 A
            01 03755    01000080 A
            01 03756    01000040 A
            01 03757    01000020 A
            01 03758    01000010 A
            01 03759    01000008 A
            01 0375A    01000004 A
            01 0375B    01000002 A
            01 0375C    01000001 A
            01 0375D    010000FF A
            01 0375E    01000055 A
            01 0375F    010000AA A
            01 03760    00200000 A
            01 03761    00040000 A
            01 03762    01550000 A
            01 03763    01AA0000 A
            01 03764    00FF0000 A
            01 03765    C0A20000 A
            01 03766    0000000E A
            01 03767    01001000 A
            01 03768    00FFFFF8 A
            01 03769    00155555 A
            01 0376A    000AAAAA A
            01 0376B    08000000 A
            01 0376C    00081000 A
            01 0376D    00101000 A
            01 0376E    00801000 A
            01 0376F    01901000 A
            01 03770    01A01000 A
            01 03771    01C01000 A
            01 03772    6F01DFF2 A
            01 03773    AFFDEC00 A
            01 03774    0000EFFF A
            01 03775    7101DDB2 A
            01 03776    AFFDEC80 A
            01 03777    6101C022 A
            01 03778    6101DDA2 A
            01 03779    00550000 A
            01 0377A    00AA0000 A
            01 0377B    07800000 A
            01 0377C    00000055 A
            01 0377D    000000AA A
            01 0377E    0000AA00 A
            01 0377F    11223344 A
            01 03780    55667788 A
            01 03781    00000012 A
            01 03782    FF1212FF A
            01 03783    00000013 A
            01 03784    FF131313 A
            01 03785    00000014 A
            01 03786    14141414 A
            01 03787    00000096 A
            01 03788    9696963C A
            01 03789    ABCDEF01 A
            01 0378A    00000007 A
            01 0378B    55555555 A
            01 0378C    000000C7 A
            01 0378D    00C7C7C7 A
            01 0378E    000000D5 A
            01 0378F    D5D5D5D5 A
            01 03790    0000005A A
            01 03791    00020000 A
            01 03792    000000BD A
            01 03793    00FD0000 A
            01 03794    0001FFFE A
            01 03795    000000DB A
            01 03796    00DBDBDB A
            01 03797    0000FF00 A
            01 03798    80004000 A
            01 03799    00000010 A
            01 0379A    10100000 A
            01 0379B    08080000 A
            01 0379C    90480000 A
            01 0379D    FEFDE0EE A
            01 0379E    98B04080 A
            01 0379F    89ABCD00 A
            01 037A0    456789AB A
            01 037A1    54000000 A
            01 037A2    54321200 A
            01 037A3    FEFDC0EE A
            01 037A4    98B00080 A
            01 037A5    007E7E7E A
            01 037A6    E7E7E7E7 A
            01 037A7    E7E7E700 A
            01 037A8    3C3C3C3C A
            01 037A9    C3C3C3C3 A
            01 037AA    00BFBFBF A
            01 037AB    5A5A5A5A A
            01 037AC    F3F3F3F3 A
            01 037AD    59306C00 A
            01 037AE    5A697887 A
            01 037AF    96A5B4C3 A
            01 037B0    58302C00 A
            01 037B1    69696969 A
            01 037B2    1F2E3D4E A
            01 037B3    18820000 A

  CONTROL SECTION SUMMARY: 01 03CDF   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   00:26 JUN 21,'83    SIGMA 8-9 IOP TEST 706139-11/51A06  1-15-73                           PAGE    6
A  ACTDVC          1852/BAL     2188/BAL     3358-EQU
   ACT40           3363/BCR     3365/BCR     3366/BCR     3369-MTW
   ADA02           3386/B       3391/B       3398/B       3401-EQU     3409/BIR
   ADVSCA          3376-EQU     9880/BAL     9896/BAL    10003/BAL    10015/BAL    10501/BAL    10531/BAL
     10565/BAL    10580/BAL    10594/BAL    10610/BAL    10628/BAL    10643/BAL    10659/BAL    10832/BAL
     10852/BAL    10868/BAL    10899/BAL    10912/BAL
   AIOCC           1573-DATA    3205/STCF    3219/STCF   10285/LW     10342/LW     10415/LW     11061/LW
     11114/LW
   AIOSKIP         1574-DATA    3187/MTW     3946/STW    10137/MTW    10163/MTW    10188/MTW    10214/MTW
   AIOSTATS        1575-DATA    3206/STW     3220/STW    10131/LW     10268/LW     10321/LW     10388/LW
     10474/LW     11081/LW     11134/LW
   ARM             1576-EQU     1923/WD
   ARMABLE         1577-EQU     3308/WD      3416/WD      3879/WD      3920/WD      8862/WD
   ARMIO           3412-EQU    10109/BAL    10122/BAL    10140/BAL    10166/BAL    10191/BAL    10217/BAL
     10245/BAL    10258/BAL    10276/BAL    10294/BAL    10311/BAL    10333/BAL    10351/BAL    10373/BAL
     10400/BAL    10461/BAL    11035/BAL    11052/BAL    11070/BAL    11087/BAL    11104/BAL    11123/BAL
   BAD             1679/DATA    1823-EQU     3432/BCR     3437/BCS     3442/BCR     3447/BCS     3452/BCR
      3457/BCS     3462/BCS     3473/B       3652/BCS     5196/BCR     5197/BCR     5444/B       5458/B
      5472/B       5484/B       5499/B       5515/BCS     5838/B       6072/B       6080/B       6109/B
      6842/B       8745/BCS     8760/BCS     9211/BCS     9979/B       9995/B      10006/BCS    10018/BCS
     10116/B      10130/B      10147/B      10178/B      10204/B      10229/B      10251/B      10265/B
     10283/B      10300/B      10318/B      10340/B      10362/B      10385/B      10412/B      10454/B
     10473/B      10988/B      11011/BCS    11014/BCS    11043/B      11060/B      11080/B      11095/B
     11113/B      11133/B      11143/BCR    11144/BCR
   BCRINTL          930/LW      1578-B
   BD10            1831-EQU     1853/B       1902/BCR     1904/BCR     2777/LI      2783/LI
   BD15            1834/BCS     1838/LI      1842/B       1849-LC
   BD20            1830/BCR     1852-BAL
   BD24            1856/BCR     1867-MTW
   BD28            1881/BCR     1896-#PRINT
   BD30            1868/BCR     1901-MTW
   BD40            1903-MTW
   BD50            1908/BCS     1911-LW
   BEGINTST        1917-EQU     2005/B       2022/B       2026/BCR     2061/BCS
   BG04            1828/BCS     1924-LI      2038/BCS
   BG12            1926/BCS     1934-WD
   BRSTBYTE        2750-CI      2763/B
   BRSTBYTI        2898-BAL     2909/B
   BRSTODDI        2888/BCS     2911-BAL
   BUFFER1         1218/STM     1223/LM      1398/GEN     1400/GEN     1402/GEN     1404/GEN     1406/GEN
      1408/GEN     1412/GEN     1414/GEN     1416/GEN     1418/GEN     1420/GEN     1422/GEN     1424/GEN
      1426/GEN     1428/GEN     1430/GEN     1432/GEN     1434/GEN     1436/GEN     1438/GEN     1440/GEN
      1442/GEN     1444/GEN     1446/GEN     1448/GEN     1450/GEN     1452/GEN     1454/GEN     1456/GEN
      1458/GEN     1460/GEN     1462/GEN     1464/GEN     1466/GEN     1468/GEN     1470/GEN     1472/GEN
      1474/GEN     1476/GEN     1478/GEN     1480/GEN     1482/GEN     1484/GEN     1486/GEN     1490/GEN
      1494/GEN     1496/GEN     1498/GEN     1500/GEN     1502/GEN     1504/GEN     1506/GEN     1508/GEN
      1510/GEN     1512/GEN     1516/GEN     1518/GEN     1520/GEN     1526/GEN     1530/GEN     1532/GEN
      1534/GEN     1580-TEXTCS  4055/STD     4056/STD     4057/STD     9254/STB     9420/LW      9471/STW
      9490/STW     9509/STW     9527/STW     9545/STW     9563/STW     9635/LW      9650/LW      9665/LW
      9680/LW      9695/LW      9710/LW      9716/STW     9737/STW     9759/STW     9782/STD     9807/STW
      9817/LW      9824/STW     9834/LW      9841/STW     9851/LW      9862/STW     9868/LW      9876/STW
      9914/LW      9930/LW      9946/LW      9961/LW     10033/LW     10083/LW     10102/LI     10504/LI
     10522/LI     10561/STW    10576/STW    10590/STD    10604/STD    10606/STW    10622/STD    10624/STW
     10639/STD    10653/STD    10655/STW    10693/LW     10708/LW     10723/LW     10738/LW     10753/LW
     10769/LW     10785/LW     10801/LW     10828/STD    10842/STD    10844/STW    10846/STW    10848/STB
     10862/STD    10864/STD    10929/LW     10944/LW     10960/LW     10976/LW     10983/STW    10999/STW
     11001/STW    11010/CW     11013/CW
   BUFFER2         1514/GEN     1522/GEN     1524/GEN     1528/GEN     1585-TEXTCS  4058/STD    10993/LW
     11009/LW     11012/LW
   BURST           2697/BCS     2734-LI
   BURSTA          3422-EQU    10808/BAL    10826/BAL    10840/BAL    10860/BAL    10877/BAL    10895/BAL
     10908/BAL    10923/BAL    10938/BAL    10954/BAL    10970/BAL
   BURSTCHA        1586-DATA    2016/LW      3559/STW     3565/STW     3635/LW
   BURSTCHB        1587-DATA    2003/LW      3573/STW     3576/STW     3638/LW
   BURSTIN         2849/BCS     2882-BAL     2916/B
   BURSTM          1588-DATA    1977/MTW     2001/LW      2014/LW      2258/MTW     3936/STW
   BURSTODD        2736/BCS     2765-BAL
   BURST8          2743-BAL     2747/BDR     2773/B
   BURST8IN        2891-BAL     2895/BDR
   CA               709/SET      766-EQU
   CB               709/SET      767-EQU
   CBGEN           1589-DATA    2048/MTW     2073/MTW     2117/MTW     2125/MTW     2214/MTW     2364/MTW
      2785/MTW
   CC               709/SET      768-EQU
   CCUMG           3694/LW      3695/LW     11465-TEXTCS
   CCUTEST         1590-DATA
   CC1             3431-EQU     8817/B
   CC2             3441-EQU     8727/B       8830/B
   CC3             3451-EQU     8794/B       8810/B
   CD               709/SET      769-EQU
   CDE10           3468/BCS     3470/BCS     3472-MTW
   CDREQUAL        3466-EQU     6502/B
   CE               709/SET      770-EQU
   CELL20          1591-EQU     8853/LMS     8861/LMS
   CELL21          1592-EQU
   CHANMG          3697/LW      3698/OR     11466-TEXTCS
   CHANNELA        1593-DATA    2008/LW      2076/LW      2086/MTW     3552/STW     3582/MTW     3620/LW
      3978/LW      4021/LW
   CHANNELB        1594-DATA    1995/LW      2077/AND     3568/STW     3584/MTW     3623/LW      3979/AND
      4022/AND
   CHBCTRL         1595-DATA    1954/MTW     1965/MTW     1972/MTW     1991/MTW     2079/MTW     2082/STW
      2089/STW     3378/AW      3587/STW     3690/MTW     3720/AW      3723/MTW     3971/LW      3981/LW
      4044/MTW     4128/MTW     4174/MTW     4322/MTW     4685/AW      4693/AW      4701/AW      4709/AW
      4717/AW      4725/AW      4733/AW      4741/AW      4773/AW      4781/AW      4789/AW      4797/AW
      4805/AW      4813/AW      4821/AW      4829/AW      4861/AW      4869/AW      4877/AW      4885/AW
      4893/AW      4901/AW      4909/AW      4917/AW      5240/AW      5383/AW      5404/AW      5556/AW
      5597/AW      5643/AW      5671/AW      5737/AW      6115/AW      6130/AW      6776/MTW     8272/AW
      8366/AW      8378/AW      8390/AW      8402/AW      8783/AW      8789/AW      8799/AW      8805/AW
      8855/AW      9113/AW      9128/AW      9143/AW      9158/AW      9190/AW      9217/AW      9233/AW
      9250/AW      9269/AW      9288/AW      9307/AW      9326/AW      9344/AW      9361/AW      9378/AW
      9395/AW      9426/AW      9447/AW      9468/AW      9487/AW      9506/AW      9524/AW      9542/AW
      9560/AW      9723/AW      9739/AW      9745/AW      9761/AW      9767/AW      9793/AW     10482/AW
     10669/AW     10810/AW     10879/AW
   CHDRCTL         1596-DATA    3972/STW     3982/CW      3984/STW
   CHLATEST        1597-DATA    1990/MTW     2006/LW      2024/LW      3686/LW      3795/MTW     3941/STW
      4154/LW
   CHLBTEST        1598-DATA    1987/MTW     1993/LW      2025/OR      3687/OR      3797/MTW     3940/STW
      4155/OR
   CKDVCON         1221/BAL     1383/BAL     2187/BAL     3477-EQU
   CKT10           3480-LW
   CKT60           3483/BCR     3485/BCR     3489/BCR     3491/BCR     3497/BCR     3500-LI
   CM               981/STW     1375/STW     1599-DATA    1919/LW      2272/LW      3846/LW      3867/LI
      3904/LW      3925/LW      4165/OR      4265/LW      4469/OR      4481/OR      4483/LW      4517/OR
      4529/OR      4541/OR      4554/OR      4557/OR      4569/OR      4572/OR      4589/OR      4592/OR
      4595/OR      4624/OR      4627/OR      4630/OR      4641/OR      4644/OR      4651/OR      4664/OR
      4669/OR      4924/OR      4928/OR      4952/OR      4955/OR      4978/OR      4982/OR      4996/OR
      5009/OR      5022/OR      5035/OR      5048/OR      5062/OR      5076/OR      5093/OR      5105/OR
      5127/OR      5151/OR      5157/OR      5992/OR      6023/OR      6040/OR
   CMCTRL          1364/CW      1373/STW     1600-DATA
   CMDTA           1398-GEN    10780/LI
   CMDTB           1400-GEN    10764/LI
   CMDTC           1402-GEN    10796/LI
   CMDT1           1404-GEN     8404/LI      8785/LI      8801/LI      9414/LI
   CMDT10          1422-GEN     9611/LI      9689/LI      9704/LI
   CMDT11          1424-GEN     8468/LI      9719/LI
   CMDT12          1426-GEN     9741/LI     10562/LI
   CMDT13          1428-GEN     9763/LI     10484/LI     10498/LI     10510/LI     10528/LI     10541/LI
     10577/LI
   CMDT14          1430-GEN     9785/LI     10591/LI
   CMDT15          1432-GEN     9812/LI
   CMDT16          1434-GEN     9829/LI     10688/LI
   CMDT17          1436-GEN     9846/LI     10671/LI     10703/LI
   CMDT19          1438-GEN    10607/LI
   CMDT19A         1440-GEN    10625/LI
   CMDT2           1406-GEN     9115/LI      9130/LI      9145/LI      9160/LI      9174/LI      9183/LI
      9192/LI      9219/LI      9235/LI      9252/LI      9271/LI      9290/LI      9309/LI      9328/LI
   CMDT20          1442-GEN    10640/LI     10812/LI     10829/LI
   CMDT21          1444-GEN    10733/LI
   CMDT21A         1446-GEN    10718/LI
   CMDT22          1448-GEN    10748/LI     10881/LI     10924/LI
   CMDT22A         1450-GEN    10896/LI     10909/LI
   CMDT23          1452-GEN    10849/LI
   CMDT24          1454-GEN    10865/LI
   CMDT25          1456-GEN    10939/LI
   CMDT25A         1458-GEN    10955/LI
   CMDT25B         1460-GEN
   CMDT25C         1462-GEN    10971/LI
   CMDT25D         1464-GEN
   CMDT26A         1466-GEN     9863/LI
   CMDT26B         1468-GEN
   CMDT27A         1470-GEN     9877/LI
   CMDT27B         1472-GEN
   CMDT28A         1474-GEN     9894/LI
   CMDT28B         1476-GEN
   CMDT29A         1478-GEN     9909/LI     10057/LD
   CMDT29B         1480-GEN     1488/GEN     2970/LI
   CMDT3           1408-GEN     9346/LI      9363/LI      9380/LI      9397/LI
   CMDT30A         1482-GEN     9925/LI
   CMDT30B         1484-GEN
   CMDT31A         1486-GEN     9940/LI
   CMDT32A         1490-GEN     9955/LI
   CMDT33A         1494-GEN
   CMDT34          1496-GEN    10246/LI     10259/LI     10277/LI
   CMDT35          1498-GEN    10295/LI     10312/LI     10334/LI
   CMDT36          1500-GEN     9206/LI     10354/LI     10374/LI     10401/LI
   CMDT37          1502-GEN    10424/LI     10443/LI
   CMDT38          1504-GEN     9970/LI
   CMDT39          1506-GEN     9986/LI
   CMDT4           1410-GEN     9428/LI      9449/LI
   CMDT40          1508-GEN    10000/LI
   CMDT41          1510-GEN    10012/LI     10027/LI
   CMDT42          1512-GEN    10078/LI     10090/LI
   CMDT44          1514-GEN    10989/LI     11023/LI
   CMDT45          1516-GEN    10985/LI
   CMDT46A         1518-GEN    11003/LI     11020/LI
   CMDT46B         1520-GEN
   CMDT47A         1522-GEN    11005/LI
   CMDT47B         1524-GEN
   CMDT48          1526-GEN    11036/LI     11053/LI     11073/LI     11088/LI     11091/LI     11106/LI
     11126/LI     11129/LI
   CMDT49          1528-GEN    11039/LI     11056/LI     11076/LI     11109/LI
   CMDT5           1412-GEN     9472/LI      9491/LI
   CMDT50          1530-GEN    10469/LI
   CMDT51          1532-GEN    10656/LI
   CMDT52A         1534-GEN    10069/LI
   CMDT52B         1536-GEN
   CMDT6           1414-GEN     9510/LI      9528/LI
   CMDT7           1416-GEN     9546/LI      9564/LI
   CMDT8           1418-GEN     9579/LI      9629/LI      9644/LI
   CMDT9           1420-GEN     9595/LI      9659/LI      9674/LI
   CMPCNT           998/STW     1601-DATA    2137/LW      2142/STW
   COMDVC           937/STW     1602-DATA    3514/LW
   COMPARE         2363/BCS     3015-MTW
   COMPASS          980/STW     1603-DATA    2044/MTW     2092/MTW     2100/MTW     2110/MTW     2116/MTW
      2124/STW     2778/MTW     3827/MTW
   COMPFILL        3059-LW      3068/BDR
   COMPFLAG         979/STW     1294/MTW     1604-DATA    1909/STW     2115/MTW     2123/STW     2362/MTW
      2413/MTW     2420/MTW     2427/MTW     2434/MTW     2443/MTW     2452/MTW     2461/MTW     2470/MTW
      2479/MTW     2484/MTW     2490/MTW     2506/MTW     2512/MTW     3826/MTW
   COMPLINE        3045-LB      3107/B
   COMPSRV3        1605-DATA    2605/MTW     2607/STW     2955/MTW     2990/MTW     3003/MTW     3943/STW
   COMPSRV4        1606-DATA    2647/MTW     2649/STW     2969/MTW     3944/STW
   COMPSTRT        1607-DATA    3057/STW     3073/LW
   COMPTAG         2294-LW      2328/BAL
   COOKDATA           2-EQU     3024/CW      3038/CW      3059/LW      3078/LW
   COUNTER         1608-DATA
   CREQUAL         3647-EQU     4200/B       4217/B       4257/B       4270/B       4281/B       4292/B
      4303/B       4314/B       4330/B       4338/B       4351/B       4364/B       4378/B       4385/B
      4396/B       4412/B       4429/B       4443/B       4453/B       4463/B       4475/B       4488/B
      4499/B       4511/B       4523/B       4535/B       4547/B       4562/B       4577/B       4601/B
      4635/B       4654/B       4672/B       4760/B       4848/B       4932/B       4942/B       4961/B
      4986/B       5003/B       5016/B       5029/B       5042/B       5056/B       5070/B       5087/B
      5100/B       5122/B       5144/B       5162/B       5171/B       5180/B       5189/B       5214/B
      5249/B       5259/B       5269/B       5284/B       5295/B       5306/B       5320/B       5336/B
      5351/B       5362/B       5373/B       5389/B       5415/B       5531/B       5546/B       5565/B
      5581/B       5607/B       5632/B       5650/B       5678/B       5745/B       5765/B       5777/B
      5799/B       5820/B       5860/B       5869/B       5878/B       5887/B       5896/B       5905/B
      5914/B       5923/B       5932/B       5946/B       5962/B       5975/B       5986/B       6002/B
      6017/B       6034/B       6051/B       6064/B       6089/B       6099/B       6124/B       6139/B
      6168/B       6215/B       6258/B       6328/B       6821/B       8245/B       8281/B       8348/B
      8373/B       8385/B       8397/B       8410/B       8424/B       8439/B       8454/B       8474/B
      8484/B       8494/B       8504/B       8514/B       8524/B       8534/B       8544/B       8554/B
      8564/B       8574/B       8584/B       8594/B       8739/B       8864/B       8880/B       8899/B
      8918/B       8940/B       8961/B       8982/B       9003/B       9024/B       9045/B       9066/B
      9087/B       9108/B       9123/B       9138/B       9153/B       9168/B       9185/B       9202/B
      9228/B       9245/B       9264/B       9283/B       9302/B       9321/B       9339/B       9356/B
      9373/B       9390/B       9406/B       9421/B       9442/B       9463/B       9482/B       9501/B
      9519/B       9537/B       9555/B       9573/B       9589/B       9605/B       9621/B       9636/B
      9651/B       9666/B       9681/B       9696/B       9711/B       9732/B       9754/B       9776/B
      9802/B       9819/B       9836/B       9853/B       9870/B       9884/B       9900/B       9916/B
      9932/B       9947/B       9962/B      10034/B      10049/B      10085/B      10103/B      10133/B
     10158/B      10183/B      10209/B      10240/B      10269/B      10286/B      10322/B      10343/B
     10389/B      10416/B      10433/B      10475/B      10492/B      10505/B      10523/B      10535/B
     10554/B      10569/B      10583/B      10597/B      10614/B      10632/B      10646/B      10662/B
     10679/B      10695/B      10710/B      10725/B      10740/B      10755/B      10771/B      10787/B
     10803/B      10820/B      10835/B      10855/B      10871/B      10889/B      10903/B      10916/B
     10931/B      10946/B      10962/B      10978/B      10994/B      11030/B      11062/B      11082/B
     11115/B      11135/B
   CTLP             961/BAL     1220/BAL     3506-EQU
   CTLPTM1          939/STW      941/STW      951/LD       960/STM     1164/STW     1173/STW     1180/STW
      1188/STW     1195/STW     1204/STW     1212/STW     1219/LM      1328/STW     1341/STW     1380/LW
      1610-DATA
   CTLP02          3536/BCR     3541-LCW
   CTLP03          3540/B       3544-OR
   CTLP04          3553/BCR     3563-STW
   CTLP08          3562/B       3567-AND
   CTLP12          3569/BCR     3575-STW
   CTLP16          3574/B       3577-EQU
   CTLWD           1936-EQU     2072/BCR     2159/B
   CTL04           1953/BCR     1960-SLS
   CTL08           1961/BCR     1970-SLS
   CTL12           1971/BCR     1975-SLS
   CTL20           1992/BCR     2006-LW
   CTL40           1994/BCR     2007/BCR     2023-EQU
   CTL90           1955/BCS     1958/BCS     1964/BCS     1966/BCS     1973/BCS     1996/BCR     2000/BCR
      2004/BCR     2009/BCR     2013/BCR     2017/BCR     2021/BCR     2028-EQU
   CVTPRAM         3589/BAL     3593-EQU
   C0               734/GEN      756-EQU
   C1               709/SET      757-EQU     2488/#PRINT  2494/#PRINT  2510/#PRINT  2516/#PRINT
   C2               709/SET      758-EQU     2417/#PRINT  2424/#PRINT  2431/#PRINT  2438/#PRINT
      2447/#PRINT  2456/#PRINT  2465/#PRINT  2474/#PRINT  2483/#PRINT  3702/#PRINT  4005/#PRINT
   C3               709/SET      759-EQU
   C4               709/SET      760-EQU
   C5               709/SET      761-EQU
   C6               709/SET      762-EQU
   C7               709/SET      763-EQU
   C8               709/SET      764-EQU
   C9               709/SET      765-EQU
   DATA            2620/BAL     2646-STW     2920/BAL     2957/BAL     2971/BAL
   DATABYTE        1630-DATA    1667/EQU     3745/OR      3942/STW    10686/STW
   DATAIN          2658/BCR     2797-BAL
   DATAPNT         1629-DATA    1867/MTW     1983/MTW     3939/STW
   DATASAVE        2645-DATA    2646/STW     2694/BCR*    2724/B*      2846/BCR*    2862/BCR*
   DCA              872-ORG      967/STW     1051/STW     1062/STW     2068/STW
   DCOFFA           982/STW     1140/STW     1631-DATA    2099/STW     3125/STW     3805/MTW     3808/STW
      3838/MTW     3862/STW     3915/STW     4100/MTW     4102/MTW     4346/STW     4360/STW     4406/STW
      4422/STW     5079/STW     5108/STW     5130/STW     5224/STW     5235/STW     5969/STW     5982/STW
      5996/STW     6011/STW     6027/STW     6044/STW     6057/STW     8359/STW     8735/STW
   DIOADR          1632-DATA    3550/STW     3614/#HTECON 3709/LW
   DIOPRET         1633-DATA    1925/MTW     1951/MTW     3792/MTW     3932/STW
   DISARM           950/WD      1634-EQU     1921/WD      2043/WD      3286/WD      8847/WD
   DISPERR         3087/STW     3091/STW     3094/STW     3104/#PRINT 11467-TEXTCS
   DISPFORM        2375/STH     2382/STW     2385/STW     2390/#PRINT  2532/STH     3053/STH     3062/STW
      3065/STW     3071/#PRINT 11471-TEXTCS
   DISPLAY         1635-EQU     3407/RD*     4647/RD*     4667/RD*     4756/RD*     4844/RD*     4927/RD*
      4956/RD*     4981/RD*     5001/RD*     5014/RD*     5027/RD*     5040/RD*     5054/RD*     5068/RD*
      5085/RD*     5098/RD*     5120/RD*     5142/RD*     5156/RD*     5245/RD*     5388/RD*     5412/RD*
      5563/RD*     5604/RD*     5648/RD*     5676/RD*     5742/RD*     8277/RD*     8370/RD*     8382/RD*
      8394/RD*     8407/RD*     8792/RD*     8808/RD*     8858/RD*     9120/RD*     9136/RD*     9151/RD*
      9166/RD*     9200/RD*     9226/RD*     9243/RD*     9262/RD*     9281/RD*     9300/RD*     9319/RD*
      9338/RD*     9353/RD*     9371/RD*     9387/RD*     9404/RD*     9480/RD*     9499/RD*     9517/RD*
      9535/RD*     9553/RD*     9571/RD*     9587/RD*     9603/RD*     9619/RD*     9726/RD*     9729/RD*
      9748/RD*     9751/RD*     9770/RD*     9773/RD*     9796/RD*     9799/RD*     9881/RD*     9897/RD*
     10004/RD*    10016/RD*    10489/RD*    10502/RD*    10532/RD*    10566/RD*    10581/RD*    10595/RD*
     10611/RD*    10629/RD*    10644/RD*    10660/RD*    10676/RD*    10817/RD*    10833/RD*    10853/RD*
     10869/RD*    10886/RD*    10900/RD*    10913/RD*
   DISPLAYX        2355-LC      2538/B       2550/B       2556/B       2568/B       2580/B       2590/B
      2596/B       2601/B       2621/B       2626/B       2643/B       2938/B       2950/B       2958/B
      2972/B       2983/B       3013/B
   DLY10MS         2097/BAL     3662-EQU     4347/BAL     4358/BAL     4404/BAL     4420/BAL     5233/BAL
   DLY10US         3656-EQU     4999/BAL     5012/BAL     5025/BAL     5038/BAL     5052/BAL     5066/BAL
      5083/BAL     5096/BAL     5154/BAL     5244/BAL     5316/BAL     5330/BAL    10045/BAL    10046/BAL
   DM%EXPL        11204-EQU    11415/P
   DRIVER          2356/BCS     2396/B       2775-EQU     3119/B
   DR1             2779/BCR     2785-MTW
   DR2             2782/BCR     2784/B       2788/B       2790-STW
   DR3             2791/STW     2794/B*      2795-DATA
   DX4             2702/BCS     2726-BAL
   DX4IN           2854/BCS     2874-BAL
   E              11336-COM
   ENABLE          1636-EQU     2040/WD
   ENDADDR            2/EQU        3/EQU     1544/GEN     1548/GEN     4069/CI     11669-END
   ENDPSUC1        1639-DATA    3985/MTW     4010/MTW     4012/MTW     4027/MTW
   ENDSUC          1350/STW     1354/STW     1637-DATA    2192/STW     3964/MTW     3970/STW     3974/LW
      4035/STW
   ENDTEST          969/STW     1055/STW     1105/LH*     1640-DATA    1911/LW      2070/LW
   EQUAL           3651-EQU     4246/B       8754/B       8769/B       8778/B
   ERDATAMG        1871/STW     1874/STW     1877/STW     1879/STW     1885/STW     1887/STW     1890/STW
      1892/STW     1894/STB     1896/#PRINT  1899/STB    11474-TEXTCS
   ERDTAMG2        1895/STB     1897/#PRINT  1900/STB    11476-TEXTCS
   ERRORHDR        1854/BAL     2055/BAL     3668-EQU
   ER010MG         3673/STB     3676/STW     3680/STH     3682/STH     3685/LB      3700/STW     3701/STW
      3702/#PRINT 11478-TEXTCS
   ER20            3688/BCR     3694-LW
   ER30            3691/BCR     3693/B       3697-LW
   ER36            3696/B       3699-STB
   FAMADR          1638-DATA    1857/#HTECON 6832/STW     6840/OR      6841/STH
   FAMADRMG        1860/STH     1862/STB     1865/STB     1866/#PRINT 11479-TEXTCS
   FAMBAD          1641-DATA    1855/MTW     3938/STW     6827/MTW
   FAMPAT1         1645-DATA    6786/LD
   FAMPAT2         1646-DATA    4184/LD
   FAMPAT3         1647-DATA    4187/AD      6789/AD
   FAM2OPT         1642-DATA    1959/STW     1969/STW     3933/STW     6782/MTW
   FAM3OPT         1643-DATA    1967/STW     3934/STW     6779/MTW
   FILEBACK        1546-GEN     3032/LI
   FILEFWD         1542-GEN     2127/LI      3019/LI      3035/LI
   FILL            2379-LW      2388/BDR
   FINDATA         3019-LI      3025/BCS
   FINDCOOK         990/MTW      992/STW     1139/STW     1648-DATA    3015/MTW     3018/STW
   FIRSTIME         972/AND     1649-DATA    2164/MTW     2171/MTW     2196/MTW     2198/MTW
   FOLDEX          1650-DATA    2499/STW     2519/LW
   FOLDEXC         1651-DATA    2502/STW     2520/LW
   FOLDOUT         2410/BCS     2506-MTW
   FORCEP1          984/STW     1652-DATA    4016/MTW
   FOURBXA         3741-EQU    10480/BAL    10497/BAL    10509/BAL    10527/BAL    10540/BAL    10559/BAL
     10574/BAL    10588/BAL    10602/BAL    10620/BAL    10637/BAL    10651/BAL    10667/BAL    10687/BAL
     10702/BAL    10717/BAL    10732/BAL    10747/BAL    10763/BAL    10779/BAL    10795/BAL
   FOURBYTA        1653-DATA    2012/LW      3557/STW     3564/STW     3629/LW      4324/MTW
   FOURBYTB        1654-DATA    1999/LW      3571/STW     3575/STW     3632/LW      4327/MTW
   FOURBYTE        1655-DATA    1980/MTW     1997/LW      2010/LW      2256/MTW     3937/STW
   FUNCTION         978/STW      994/STW     1283/STW     1656-DATA    3817/MTW
   F0               709/SET      772-EQU
   F1               709/SET      773-EQU
   GENADR          1141/MTW     1657-DATA    2119/MTW     2204/STW     3029/TDV*    3121/LW      3129/TIO*
      3138/SIO*    3139/TIO*    3144/SIO*    3494/LW      3855/LW
   GENCOKBK        1134-EQU     2215/BCS
   GOOD               4/EQU     2034-EQU     2780/LI      3433/B       3438/B       3443/B       3448/B
      3453/B       3458/B       3463/B       3471/B       3653/B       3949/LI      4236/B       4991/B
      5198/B       5443/BCR     5457/BCR     5471/BCS     5483/BCR     5498/BCS     5516/B       5837/BCS
      6071/BCR     6079/BCR     6108/BCS     8361/B       8746/B       8761/B       9212/B       9978/BCS
      9994/BCR    10007/B      10019/B      10040/BCR    10055/BCR    10115/B      10453/BCS    11015/B
     11145/B
   GO01            2045/BCR     2047/BCR     2051/B       2057-LC
   GO02            1660/GEN     1851/B       2029/LI      2062-EQU     2787/LI
   GO03            1739/DATA    1850/BCS     2069-BAL
   GO032           1913/BCS     2073-MTW
   GO034           2078/BCR     2086-MTW
   GO036           2080/BCS     2087/BCS     2089-STW
   GO040           2074/BCS     2095-LW
   GO045           2094/B       2104/LI      2108-MTW
   GO048           2093/BCS     2101/BCS     2109/BCR     2111/BCS     2113/BCS     2121-LI
   GO05            2131/BCS     2136-MTW     2143/B
   GO06            2140/BCR     2144-#HTECON
   GO07            2139/BCS     2152-LW
   GO08            2085/B       2118/BCR     2120/B       2135/B       2154/BCS     2157-LW      2217/B
   GPCTRL          2084/BAL     2091/BAL     3588/BAL     3707-EQU
   GPL20           3712-LW      3722/BIR
   GPL40           3716/BCR     3721-STW
   GPL80           3724/BCS     3732-LW      3737/B
   GP00            1374/WD*     1559-GEN     1635/EQU     1927/WD*     1928/WD*     2243/RD*     2271/WD*
      2273/WD*     3708/LI      3863/WD*     3903/WD*     4075/WD*     4076/WD*     4163/WD*     4166/WD*
      4235/RD*     4242/WD*     4243/WD*     4244/RD*     4252/WD*     4253/WD*     4263/WD*     4264/WD*
      4276/WD*     4277/WD*     4287/WD*     4288/WD*     4298/WD*     4299/WD*     4309/WD*     4310/WD*
      4400/WD*     4416/WD*     4434/WD*     4470/WD*     4474/WD*     4482/WD*     4484/WD*     4494/WD*
      4496/WD*     4505/WD*     4506/WD*     4509/WD*     4518/WD*     4520/WD*     4530/WD*     4531/WD*
      4542/WD*     4544/RD*     4546/WD*     4555/WD*     4558/WD*     4570/WD*     4573/WD*     4590/WD*
      4593/WD*     4596/WD*     4625/WD*     4628/WD*     4631/WD*     4642/WD*     4645/WD*     4652/WD*
      4661/RD*     4665/WD*     4670/WD*     4751/RD*     4839/RD*     4925/WD*     4929/WD*     4953/WD*
      4958/WD*     4979/WD*     4983/WD*     4997/WD*     5010/WD*     5023/WD*     5036/WD*     5049/WD*
      5063/WD*     5077/WD*     5094/WD*     5106/WD*     5128/WD*     5152/WD*     5158/WD*     5993/WD*
      6024/WD*     6041/WD*
   GP01            1560-GEN     2246/RD*     4255/RD*     4472/RD*     4486/RD*     4519/RD*     4533/RD*
      4560/RD*     4574/RD*     4599/RD*     4633/RD*     4679/RD*     4767/RD*     4855/RD*     4940/RD*
      6000/RD*     6032/RD*     6049/RD*     6121/RD*     6136/RD*     8737/RD*
   GP02            1561-GEN     2249/RD*     4268/RD*     4376/RD*     4393/RD*     4495/RD*     4507/RD*
      8231/RD*     8775/RD*
   GP03            1562-GEN     1773/EQU     3715/CI
   GP08            1563-GEN     1929/WD*     2224/WD*     2226/RD*     2274/WD*     2338/WD*     2633/WD*
      3379/WD*     3405/WD*     3859/WD*     3912/WD*     4074/WD*     4090/WD*     4241/WD*     4251/WD*
      4262/WD*     4275/WD*     4279/RD*     4286/WD*     4297/WD*     4308/WD*     4401/WD*     4417/WD*
      4425/WD*     4435/WD*     4459/WD*     4687/RD*     4754/WD*     4758/WD*     4775/RD*     4863/RD*
      4937/WD*     4939/WD*     5236/WD*     5254/WD*     5264/WD*     5274/WD*     5289/WD*     5300/WD*
      5310/WD*     5325/WD*     5342/WD*     5356/WD*     5366/WD*     5377/WD*     5380/WD*     5399/WD*
      5434/WD*     5437/WD*     5448/WD*     5451/WD*     5462/WD*     5466/WD*     5488/WD*     5495/WD*
      5496/WD*     5511/WD*     6104/WD*     6106/RD*     6113/WD*     6116/WD*     6120/WD*     6128/WD*
      6131/WD*     6135/WD*     6153/WD*     6208/WD*     8222/RD*     8237/WD*     8265/WD*     8273/WD*
      8275/WD*     8292/WD*     8318/WD*     8321/WD*     8323/WD*     8337/WD*     8340/WD*     8342/WD*
      8344/WD*     8367/WD*     8379/WD*     8391/WD*     8403/WD*     8784/WD*     8790/WD*     8800/WD*
      8806/WD*     8849/WD*     8856/WD*     8857/WD*     9114/WD*     9118/WD*     9129/WD*     9133/WD*
      9144/WD*     9148/WD*     9159/WD*     9163/WD*     9173/WD*     9177/WD*     9191/WD*     9195/WD*
      9197/WD*     9218/WD*     9222/WD*     9224/WD*     9234/WD*     9238/WD*     9240/WD*     9251/WD*
      9257/WD*     9259/WD*     9270/WD*     9274/WD*     9276/WD*     9278/WD*     9289/WD*     9293/WD*
      9295/WD*     9297/WD*     9308/WD*     9312/WD*     9314/WD*     9316/WD*     9327/WD*     9331/WD*
      9333/WD*     9335/WD*     9345/WD*     9349/WD*     9351/WD*     9362/WD*     9366/WD*     9368/WD*
      9379/WD*     9383/WD*     9385/WD*     9396/WD*     9400/WD*     9402/WD*     9427/WD*     9434/WD*
      9436/WD*     9438/WD*     9448/WD*     9455/WD*     9457/WD*     9469/WD*     9475/WD*     9477/WD*
      9488/WD*     9494/WD*     9496/WD*     9507/WD*     9513/WD*     9515/WD*     9525/WD*     9531/WD*
      9533/WD*     9543/WD*     9549/WD*     9551/WD*     9561/WD*     9567/WD*     9569/WD*     9578/WD*
      9582/WD*     9584/WD*     9594/WD*     9598/WD*     9600/WD*     9610/WD*     9614/WD*     9616/WD*
      9718/WD*     9724/WD*     9740/WD*     9746/WD*     9762/WD*     9768/WD*     9784/WD*     9788/WD*
      9790/WD*     9794/WD*    10353/WD*    10359/WD*    10376/WD*    10381/WD*    10403/WD*    10408/WD*
     10430/RD*    10450/WD*    10483/WD*    10670/WD*    10811/WD*    10880/WD*
   GP09            1564-GEN     2229/RD*     4185/WD*     4186/WD*     4196/WD*     4205/WD*     4212/WD*
      4213/WD*     4222/WD*     4223/WD*     4290/RD*     4695/RD*     4783/RD*     4871/RD*     5303/RD*
      5469/RD*     5835/RD*     5930/RD*     6105/WD*     6118/WD*     6133/WD*     6155/WD*     6158/WD*
      6210/WD*     6249/WD*     6250/WD*     6253/WD*     6321/WD*     6324/WD*     6492/WD*     6495/WD*
      6787/WD*     6788/WD*     6793/WD*     6804/WD*     6805/WD*     6816/WD*     8346/RD*     8417/WD*
      8431/WD*     8446/WD*     8465/WD*     8872/WD*     8877/WD*     8889/WD*     8894/WD*     8907/WD*
      8913/WD*     8927/WD*     8935/WD*     8948/WD*     8956/WD*     8969/WD*     8977/WD*     8990/WD*
      8998/WD*     9011/WD*     9019/WD*     9032/WD*     9040/WD*     9053/WD*     9061/WD*     9074/WD*
      9082/WD*     9095/WD*     9103/WD*     9180/WD*     9439/WD*     9460/WD*    10099/WD*    10152/WD*
     10170/WD*    10195/WD*    10221/WD*    10234/WD*    10519/WD*    10550/WD*
   GP10            1565-GEN     2233/RD*     4197/RD*     4214/RD*     4703/RD*     4791/RD*     4879/RD*
      6162/RD*     6211/RD*     6248/RD*     6274/RD*     6290/RD*     6306/RD*     6496/RD*     6806/RD*
      6817/RD*     8878/RD*     8895/RD*     8914/RD*     8936/RD*     8957/RD*     8978/RD*     8999/RD*
      9020/RD*     9041/RD*     9062/RD*     9083/RD*     9104/RD*     9181/RD*     9440/WD*    10100/RD*
     10154/RD*    10236/RD*    10520/RD*
   GP11            1566-GEN     2236/RD*     4206/RD*     4224/RD*     4711/RD*     4799/RD*     4887/RD*
      6164/RD*     6266/RD*     6282/RD*     6298/RD*     6314/RD*     6326/RD*     6498/RD*     6807/RD*
      9461/WD*    10551/RD*
   GP12            1567-GEN     1930/WD*     2254/RD*     2275/WD*     3913/WD*     4091/WD*     4321/RD*
      4719/RD*     4807/RD*     4842/WD*     4846/WD*     4895/RD*     5241/WD*     5277/WD*     5313/WD*
      5327/WD*     5332/WD*     5344/WD*     5346/WD*     5384/WD*     5402/WD*     5405/WD*     5557/WD*
      5598/WD*     5644/WD*     5672/WD*     5738/WD*     5796/RD*     5817/RD*     5858/RD*     5867/RD*
      5876/RD*     5885/RD*     5940/WD*     5954/WD*     5958/WD*
   GP13            1568-GEN     2253/RD*     3002/WD*     3427/WD*     3746/WD*     3804/WD*     4095/WD*
      4173/WD*     4319/WD*     4335/WD*     4337/RD*     4727/RD*     4815/RD*     4903/RD*     5381/WD*
      5407/WD*     5438/WD*     5452/WD*     5464/WD*     5493/WD*     5507/WD*     5513/WD*     5540/WD*
      5661/WD*     5789/WD*     5810/WD*     5830/WD*     5848/WD*     5894/RD*     5903/RD*     5912/RD*
      5921/RD*     8267/WD*     8461/WD*     8479/WD*     8489/WD*     8499/WD*     8509/WD*     8519/WD*
      8529/WD*     8539/WD*     8549/WD*     8559/WD*     8569/WD*     8579/WD*     8589/WD*     8599/WD*
      8608/WD*     8619/WD*     8630/WD*     8641/WD*     8652/WD*     8662/WD*     8672/WD*     8682/WD*
      8692/WD*     8702/WD*     8712/WD*     8722/WD*     8870/WD*     8886/WD*     8904/WD*     8924/WD*
      8945/WD*     8966/WD*     8987/WD*     9008/WD*     9029/WD*     9050/WD*     9071/WD*     9092/WD*
      9413/WD*     9628/WD*     9643/WD*     9658/WD*     9673/WD*     9688/WD*     9703/WD*     9811/WD*
      9828/WD*     9845/WD*     9860/WD*     9892/WD*     9908/WD*     9924/WD*     9939/WD*     9954/WD*
      9969/WD*     9987/WD*    10026/WD*    10077/WD*    10127/WD*    10144/WD*    10175/WD*    10201/WD*
     10226/WD*    10293/WD*    10308/WD*    10330/WD*    10350/WD*    10370/WD*    10397/WD*    10427/WD*
     10446/WD*    10468/WD*
   GP14            1569-GEN     2239/RD*     2989/WD*     4301/RD*     4361/RD*     4408/WD*     4410/RD*
      4424/WD*     4426/RD*     4437/WD*     4441/RD*     4449/WD*     4451/RD*     4458/WD*     4461/RD*
      4735/RD*     4823/RD*     4911/RD*     5243/WD*     5279/WD*     5292/RD*     5315/WD*     5317/RD*
      5329/WD*     5334/RD*     5348/WD*     5358/WD*     5360/RD*     5369/WD*     5371/RD*     5386/WD*
      5409/WD*     5441/RD*     5455/RD*     5468/WD*     5478/WD*     5480/WD*     5481/RD*     5509/WD*
      5510/RD*     5523/WD*     5525/WD*     5527/WD*     5529/RD*     5538/WD*     5542/WD*     5554/WD*
      5559/WD*     5560/WD*     5561/WD*     5573/WD*     5575/WD*     5576/WD*     5577/WD*     5579/RD*
      5589/WD*     5591/WD*     5593/WD*     5595/WD*     5600/WD*     5602/WD*     5616/WD*     5618/WD*
      5620/WD*     5622/WD*     5624/WD*     5626/WD*     5628/WD*     5630/RD*     5639/WD*     5641/WD*
      5646/WD*     5663/WD*     5665/WD*     5666/WD*     5668/WD*     5670/WD*     5674/WD*     5729/WD*
      5731/WD*     5733/WD*     5735/WD*     5740/WD*     5752/WD*     5754/WD*     5756/WD*     5758/WD*
      5760/WD*     5763/RD*     5773/WD*     5775/RD*     5787/WD*     5791/WD*     5792/WD*     5793/WD*
      5795/WD*     5808/WD*     5812/WD*     5813/WD*     5814/WD*     5816/WD*     5828/WD*     5832/WD*
      5834/WD*     5850/WD*     5852/WD*     5853/WD*     5854/WD*     5856/WD*     5942/WD*     5944/RD*
      5956/WD*     5960/RD*     6008/WD*     6015/RD*    10358/WD*    10380/WD*    10407/WD*
   GP15            1570-GEN     2263/RD*     3126/WD*     3708/LI      3712/LW      3715/CI      3721/STW
      3801/WD*     3858/WD*     3914/WD*     4097/WD*     4170/WD*     4312/RD*     4344/WD*     4348/RD*
      4357/WD*     4403/WD*     4419/WD*     4439/WD*     4743/RD*     4831/RD*     4919/RD*     5232/WD*
      5282/RD*     5350/RD*     5440/WD*     5454/WD*     5494/RD*     5543/RD*     5551/WD*     5570/WD*
      5586/WD*     5613/WD*     5784/WD*     5805/WD*     5825/WD*     5846/WD*     5937/WD*     5951/WD*
      6062/RD*     8250/RD*
   GRPHEAD1        2488/#PRINT 11481-TEXTCS
   GRPHEAD2        2510/#PRINT 11483-TEXTCS
   GRPHEAD3        2494/#PRINT 11485-TEXTCS
   GRPHEAD4        2516/#PRINT 11487-TEXTCS
   GUIDE          11455-STW    11669/END
   GUIDLINK         928/STW     1658-DATA    2166/B*      2168/STW     2194/BAL*
   H              11335-COM
   HD1             2412/BCS     2416/BCR     2418-CI
   HD10            2490-MTW
   HD11            2487/BCR     2489/B       2493/BCR     2495-AI
   HD12            2512-MTW
   HD13            2509/BCR     2511/B       2515/BCR     2517-LW
   HD2             2419/BCS     2423/BCR     2425-CI
   HD3             2426/BCS     2430/BCR     2432-CI
   HD4             2433/BCS     2437/BCR     2439-CI
   HD5             2440/BCS     2446/BCR     2448-CI
   HD6             2449/BCS     2455/BCR     2457-CI
   HD7             2458/BCS     2464/BCR     2466-CI
   HD8             2467/BCS     2473/BCR     2475-CI
   HD9             2476/BCS     2482/BCR     2484-MTW
   HEADOUT         2372/BAL     2403-STW     3050/BAL
   HEADSAVE        2402-DATA    2403/STW     2504/B*      2522/B*
   IDLER           1738/GEN     3750-EQU
   IDLINK          1660-GEN     3175/STW     3225/STW     3245/STW     3272/STW     3303/STW     3341/STW
      3757/DATA
   IET             1796/GEN     3157-EQU
   IETT            1662/XPSD    1795-DATA    3165/LD      3178/MTW     3182/LPSD
   IETTCC04        1661-DATA    3158/STCF    3168/LB
   IET60           3162/BCS     3163/LI      3172-LC
   IET70           3161/BCS     3173/BCS     3174/LI      3178-MTW
   IEXPSD          1662-XPSD    3767/LW
   IMTLT0          1147/STW*    1663-DATA    2105/STW*    2206/STW
   IMTLT1          1148/B*      1664-DATA    2208/STW
   IMTLT2          1665-DATA    2106/B*      2129/B*      2210/STW
   IMTLT3          1666-DATA    2212/STW
   INDATA          1667-EQU     3425/OR     10701/STW    10716/STW    10731/STW    10746/STW    10762/STW
     10778/STW    10794/STW    10922/STW    10937/STW    10953/STW    10969/STW
   INHBTIT          929/LPSD    1669-GEN
   INHOUT           983/STW     1670-DATA    3479/STW     3501/STW     3836/MTW     3876/MTW     4107/MTW
   INHTSUC          993/STW     1348/MTW     1356/STW     1671-DATA    3957/MTW     4031/MTW
   INITIAL          878/DATA    2167-EQU
   INITRS           948/BAL     2174/BAL     2199/BAL     3760-EQU
   INIT04          1006/B       2163-EQU
   INIT042         2170/BCS     2174-BAL
   INIT045         2165/BCS     2172/BCR     2175-EQU
   INIT05          2176-EQU
   INIT052         2179/BCR     2187-BAL
   INIT054         2196-MTW    11513/GEN
   INIT055         2197/BCS     2213-EQU
   INIT90          1146/LI      2201/BCR     2216-EQU
   INTL02           930-LW      1578/B       1669/GEN
   INTL08           948-BAL     2173/B
   INTL20           974/BCR      977-LI
   INTRESET        2642/BAL     3782-LI     10157/BAL    10182/BAL    10208/BAL    10239/BAL
   INTRTN          1672-DATA    3207/LW      3414/STW
   IOI             1680/XPSD    1797-DATA    3198/LD      3208/STW     3209/LW      3211/STW     3217/LPSD
   IOINTR          1798/GEN     3185-EQU
   IOINTRSW        1673-DATA    3191/MTW     3203/STW     3215/STW     3417/MTW
   IOPA            1142/LW      1674-DATA    2095/LW      3257/LW      3267/LW      3482/CW      3488/CW
      3496/CW      3526/STW     3530/OR      3544/OR      3727/LW
   IOPB            1675-DATA    3484/CW      3490/CW      3498/CW      3528/STW     3734/LW
   IOPMSADR        1678-DATA    3385/SIO*    3390/SIO*    3397/SIO*    3400/SIO*    3518/STW     3726/STW
      3733/STW     4189/HIO*    8320/TIO*    8339/TIO*    8369/HIO*    8381/TIO*    8393/TDV*    8406/SIO*
      8414/LW      8420/HIO*    8428/LW      8435/TIO*    8443/LW      8450/TDV*    8462/LW      8470/SIO*
      8732/LW      8787/SIO*    8803/SIO*    8822/TIO*    8835/TIO*    8851/TIO*    9117/SIO*    9132/SIO*
      9147/SIO*    9162/SIO*    9176/SIO*    9178/LW      9194/SIO*    9207/SIO*    9209/HIO*    9210/TIO*
      9221/SIO*    9237/SIO*    9256/SIO*    9273/SIO*    9292/SIO*    9311/SIO*    9330/SIO*    9348/SIO*
      9365/SIO*    9382/SIO*    9399/SIO*    9416/SIO*    9430/SIO*    9431/LW      9451/SIO*    9474/SIO*
      9493/SIO*    9512/SIO*    9530/SIO*    9548/SIO*    9566/SIO*    9581/SIO*    9597/SIO*    9613/SIO*
      9631/SIO*    9646/SIO*    9661/SIO*    9676/SIO*    9691/SIO*    9706/SIO*    9721/SIO*    9743/SIO*
      9765/SIO*    9787/SIO*    9814/SIO*    9831/SIO*    9848/SIO*    9865/SIO*    9911/SIO*    9927/SIO*
      9942/SIO*    9957/SIO*    9972/SIO*    9975/TIO*    9989/SIO*    9992/TIO*   10029/SIO*   10044/SIO*
     10047/TIO*   10080/SIO*   10092/SIO*   10123/LW     10248/SIO*   10261/SIO*   10267/OR     10279/SIO*
     10297/SIO*   10314/SIO*   10320/OR     10336/SIO*   10356/SIO*   10378/SIO*   10387/OR     10405/SIO*
     10426/SIO*   10445/SIO*   10449/TIO*   10463/OR     10470/SIO*   10486/SIO*   10512/SIO*   10515/LW
     10543/SIO*   10546/LW     10673/SIO*   10690/SIO*   10705/SIO*   10720/SIO*   10735/SIO*   10750/SIO*
     10766/SIO*   10782/SIO*   10798/SIO*   10814/SIO*   10883/SIO*   10926/SIO*   10941/SIO*   10957/SIO*
     10973/SIO*
   IOPMSAP         1677-DATA    3546/STW     3730/STW     8814/LW      8827/LW      8841/TIO*
   IOPNO           1676-DATA    3123/CW      3728/STW     3735/STW     3850/CW      3856/CW      3910/CW
      4167/LW      4369/LW      5112/CW      5115/CW      5134/CW      5137/CW      5967/LW      5980/LW
      5994/LW      6009/LW      6025/LW      6042/LW      6055/LW      6068/LW      6076/LW      6084/LW
      6093/LW      8239/TIO*    8269/TIO*    8354/LW      8481/TIO*    8491/TIO*    8501/TIO*    8511/TIO*
      8521/TIO*    8531/TIO*    8541/TIO*    8551/TIO*    8561/TIO*    8571/TIO*    8581/TIO*    8591/TIO*
      8600/OR      8610/OR      8621/OR      8632/OR      8643/OR      8654/OR      8664/OR      8674/OR
      8684/OR      8694/OR      8704/OR      8714/OR      8724/OR      8743/LW      8750/LW      8758/LW
      8765/LW      8773/LW      8875/SIO*    8892/SIO*    8910/SIO*    8930/OR      8951/OR      8972/OR
      8993/OR      9014/OR      9035/OR      9056/OR      9077/OR      9098/OR
   IORETURN        1679-DATA    3413/LW      3950/STW    10108/STW    10121/STW    10139/STW    10165/STW
     10190/STW    10216/STW    10257/STW    10275/STW    10310/STW    10332/STW    10372/STW    10399/STW
     10460/STW    11051/STW    11069/STW    11103/STW    11122/STW
   IOT60           3192/BCS     3194/BCS     3202-LI
   IOT70           3188/BCS     3190/BCS     3209-LW
   IOT75           3195/BCS     3218-AIO     3223/BCS     3224/LI
   IOT80           3196/LI      3221-EQU
   IOXPSD          1680-XPSD    3776/LW
   J#EXPL         11246-EQU    11440/P
   JHDR            1309/DATA   11492-TEXTCS
   KBDVC           1381/STW     1681-DATA    3362/TIO*    3480/LW      3509/STW     3602/#HTECON
   L              11337-COM
   LAST           11140/GEN    11147-GEN
   LASTBRST        2749/BCS     2758-BAL
   LASTEST          968/LI      1127/CI      1130/LI      1640/DATA    3898/LI     11139-EQU
   LASTMEM          934/STW     1682-DATA   10038/LW     10053/LW
   LINE            2367-LB      2392/B
   LINECNT         1683-DATA    2053/STW     2360/STW     2524/MTW     2525/LW
   LINEFILL        3077-LW      3098/BDR
   LINEFOLD        1685-DATA    2361/STW     2394/MTW     2397/LW      2409/MTW     2496/STW     2517/LW
      2521/STW
   LINERR          1684-DATA    3058/STW     3082/MTW     3100/MTW
   LINESET         2376/BAL     2524-MTW     3054/BAL
   LINK             906-EQU      928/STW     1017/STW     1018/BAL     1024/CH      1026/STW     1027/BAL
      1033/CH      1035/STW     1064/BAL     1071/LB*     1081/LW*     1086/LB*     1155/LC      1159/STW
      1161/CI      1265/LB      1273/LC      1277/STW     1313/LC      1319/CI      1323/TIO*    1328/STW
      1329/STW     1330/STW     1332/CI      1336/TIO*    1341/STW     1390/BAL     1859/LH*     1861/LW*
      1870/LW*     1873/LW*     1876/LW*     1878/LW*     1884/LW*     1886/LW*     1889/LW*     1891/LW*
      2146/LB*     2168/STW     2194/BAL     3671/LW*     3675/LW*     3679/LW*     3756/BAL     3918/BAL
      3992/LB*     4119/LW*     4125/LW*    11456/BAL
   LNFL20          3101/BCR     3103/BCR     3105-AI
   LPDVC           1329/STW     1686-DATA    2178/CW      2180/STW     3364/TIO*    3486/LW      3512/STW
      3597/#HTECON
   LSTBRSTI        2897/BCS     2904-BAL
   MASKSIM         1692-DATA
   MASK10          1689-DATA   10101/AND
   MASK11          1690-DATA
   MASK14          1691-DATA    9152/AND     9244/AND     9320/AND     9389/AND
   MASK8           1687-DATA    9122/AND     9201/AND     9282/AND     9355/AND
   MASK9           1688-DATA    9137/AND     9227/AND     9301/AND     9372/AND    10818/AND    10887/AND
   MCHKSAVE        2311-DATA    2312/STW     2330/EXU*    2347/MTW     2348/B*
   MCT20           3820/BCR     3822/BCS     3829-#TYPE
   MFII            1693/XPSD    1800-DATA    3237/LD      3252/LPSD
   MFITR           1801/GEN     3230-EQU
   MFI50           3234/BCS     3235/LI      3241-BAL
   MFI70           3233/BCS     3243/BCS     3244/LI      3248-BAL
   MFXPSD          1693-XPSD    3773/LW
   MISCOMP         1694-DATA    2046/MTW     2790/STW     3044/STW     3081/MTW
   MM8             1697-DATA    3531/STW    10990/SIO*   11006/SIO*   11024/SIO*   11027/TIO*   11040/SIO*
     11057/SIO*   11077/SIO*   11092/SIO*   11110/SIO*   11125/OR     11130/SIO*
   MM9             1698-DATA    3533/STW    10986/SIO*   11004/SIO*   11022/SIO*   11038/SIO*   11055/SIO*
     11072/OR     11075/SIO*   11090/SIO*   11108/SIO*   11128/SIO*   11142/TDV*
   MODECHK         2312-STW     2542/BAL     2548/BAL     2554/BAL     2594/BAL
   MODECTRL        1825/BAL     2035/BAL     3816-EQU
   MODEMG          3829/#TYPE  11489-TEXTCS
   MOVEOPT         1695-DATA    1974/MTW     2018/LW      3935/STW
   MOVEOPTA        1696-DATA    2020/LW      3561/STW     3566/STW     3641/LW
   MSA             1699-DATA    3423/LW      3522/STW     3534/LW      3537/LCW     3541/LCW     3578/LW
      3580/STW     3742/LW      3802/LW      4171/LW      8458/LW      9410/LW      9452/LW      9625/LW
      9640/LW      9655/LW      9670/LW      9685/LW      9700/LW      9808/LW      9825/LW      9842/LW
      9857/LW      9889/LW      9905/LW      9921/LW      9936/LW      9951/LW      9966/LW      9983/LW
     10023/LW     10074/LW     10095/LW     10124/LW     10141/LW     10149/LW     10167/LW     10171/LW
     10192/LW     10197/LW     10218/LW     10222/LW     10231/LW     10290/LW     10305/LW     10327/LW
     10347/LW     10367/LW     10394/LW     10420/LW     10437/LW     10464/LW
   MSADRA          1703-DATA    3517/STW     3524/LW      3609/#HTECON 3725/LW
   MSADRAP         1701-DATA    3545/STW     3729/LW
   MSADRB          1704-DATA    3520/STW     3732/LW
   MSADRBP         1702-DATA    3548/STW     3736/LW
   MSADRPTY        1705-DATA    4085/STW
   MSB             1700-DATA    3523/STW
   NCC1            3436-EQU     8823/B
   NCC2            3446-EQU     8603/B       8613/B       8624/B       8635/B       8646/B       8657/B
      8667/B       8677/B       8687/B       8697/B       8707/B       8717/B       8836/B
   NCC3            3456-EQU     8842/B
   NCC34           3461-EQU
   NDCDLY          1708-DATA    3809/STW     3840/MTW     3842/MTW     5080/STW     5109/STW     5131/STW
      5225/STW     5970/STW     5983/STW     5997/STW     6012/STW     6028/STW     6045/STW     6058/STW
      8360/STW
   NEXTEST          964/STW      965/LH*     1047/STW     1049/LH*     1058/STW     1060/LH*     1100/LH*
      1706-DATA    1835/LW      1836/LH*     1912/CW      1933/B*      1935/B*      1947/LW*     2063/LW*
      2065/AWM     2066/LH*     2071/CW      2158/STW     2315/LW*     2681/AND*    2696/AND*    2701/AND*
      2825/AND*    2848/AND*    2853/AND*    3380/LW*     3670/#HTECON 3677/LH*     3896/CW      3899/CW
      3969/LW      3975/CW      3987/LW*     4116/LW      4123/LH*     4157/LW
   NOCREGMG        1338/#TYPE  11490-TEXTCS
   NOMREGMG        1325/#TYPE  11491-TEXTCS
   NOTHEAD         2405/BCS     2409-MTW
   NOTMTL           947/STW      971/EOR     1707-DATA    1907/MTW     2112/MTW     3821/MTW
   NOWORD          2691/B       2699/BCR     2709-LW      2732/B       2756/B
   NOWORDIN        2839/B       2851/BCR     2861-LW      2880/B       2902/B
   ODDLOOP         2668-BAL     2679/BCS
   ODDLOOPI        2806-BAL     2823/BCS
   OL20            3796/BCS     3798/BCS     3800-LW
   OL26            3810-LI      4103/B
   OL30            3806/BCS     3812-LW
   OM%EXPL        11296-EQU    11435/P
   OMHDR1          1269/DATA   11493-TEXTCS
   OMHDR2          1269/DATA   11494-TEXTCS
   ONLINECK        1932/BAL     3791-EQU     4433/BAL     5253/BAL     5263/BAL     5273/BAL     5288/BAL
      5299/BAL     5311/BAL     5324/BAL     5341/BAL     5355/BAL     5367/BAL     5378/BAL     5400/BAL
      5435/BAL     5449/BAL     5463/BAL     5489/BAL
   OP%EXPL        11263-EQU    11430/P
   OPHDR1          1151/DATA   11495-TEXTCS
   OPHDR2          1151/DATA   11496-TEXTCS
   OPMG1           1232/STB     1235/STB     1239/STB     1242/STB     1245/STB     1246/LI      1250/STB
      1254/STB     1256/STB     1259/STB     1260/LI     11497-TEXTCS
   OPN05           3839/BCS     3843-STW
   OPN10           3848-LW      3852/BIR
   OPN20           3851/BCR     3858-WD
   OPN40           3854/BCR     3857/BCS     3859-WD
   OPN60           3863-WD
   ORDIN           2625/BAL     2631/BAL     2919-STW     2954/BAL     2962/BAL     2976/BAL     2995/B
      3012/B
   ORDINSV         2918-DATA    2919/STW     2926/B*      2993/STW     3011/STW
   ORDOSAVE        2603-DATA    2604/STW     2616/B*
   ORDOUT          2560/BAL     2572/BAL     2584/BAL     2600/BAL     2604-STW     2651/BAL     2930/BAL
      2942/BAL     2991/BAL     3004/BAL
   OUTBUFF            3-EQU     2227/STW     2231/STW     2234/STW     2237/STW     2241/STW     2244/STW
      2247/STW     2251/STW     2261/STW     2265/STW     2298/STW     2321/STW     2379/LW      3037/LW
      3077/LW
   OUTDEX          1709-DATA    2225/LW      2267/STW     2294/LW      2299/MTW     2326/STW
   P              11339-COM
   PAJ10           1324/BCR     1328-STW
   PAJ20           1337/BCR     1341-STW
   PAJ25           1347/BCS     1352-LI
   PAJ30           1345/BCR     1354-STW
   PAJ40           1349/BCR     1351/B       1357-LI
   PAJ50           1367/BCR     1370/BCS     1372-LW
   PAJ60           1365/BCR     1376-LI
   PAJ90           1322/B       1335/B       1353/B       1363/B       1386-EQU
   PARAJ           1310-EQU    11438/E
   PARAMOM         1270-EQU    11433/E
   PARAMOP         1152-EQU    11428/E
   PARAMRTN        1159/STW     1266/B*      1277/STW     1317/STW     1327/B*      1340/B*      1710-DATA
   PASSCNT          985/STW     1712-DATA    2134/MTW     2136/MTW     2138/CW      2144/#HTECON 2152/LW
      2156/STW
   PASSMG          2148/STB     2151/#TYPE  11498-TEXTCS
   PASS1            986/STW     1711-DATA    2130/MTW     2133/MTW     2191/STW
   PASS1MG         2132/#TYPE  11499-TEXTCS
   PCPCTRL         1826/BAL     1832/BAL     2030/B       2036/BAL     3873-EQU
   PCPMODE          987/STW     1713-DATA    1839/MTW     3359/MTW     3367/MTW     3874/MTW     3961/MTW
   PCP10           3875/BCS     3882-RD
   PCP20           3877/BCS     3887-LC
   PCP30           3888/BCR     3895-LI
   PCP38           3901-MTW
   PCP40           3893/B       3897/BCR     3900/BCR     3903-WD
   PCP60           3911/BCS     3916-LI
   PFII            1714/XPSD    1803-DATA    3263/LD      3279/LPSD
   PFITR           1804/GEN     3255-EQU
   PFI60           3260/BCS     3261/LI      3267-LW
   PFI70           3259/BCS     3270/BCS     3271/LI      3275-POLR
   PFXPSD          1714-XPSD    3770/LW
   PHASAVE         1715-DATA    2342/EXU*    2536/STW     2547/STW     2553/STW     2559/STW     2571/STW
      2583/STW     2593/STW     2599/STW     2619/STW     2624/STW     2629/STW     2929/STW     2941/STW
      2953/STW     2961/STW     2975/STW     2986/STW     2998/STW
   PHASEAIO        1716-DATA    2630/MTW     2994/MTW     3189/MTW     3213/STW
   PHASFLAG         988/STW     1136/STW     1717-DATA    1906/STW     2114/MTW     2122/STW     2306/MTW
      2789/STW     3324/MTW     3823/MTW     3825/MTW     4152/MTW
   PHASMODE         973/AND      989/STW     1137/STW     1289/CW      1291/STW     1718-DATA    1901/MTW
      2108/MTW     3819/MTW
   PHASNUMB        1719-DATA    2373/LH      3051/LH
   PHASTEP         2223-LI      2268/BDR     2346/BAL     2567/BAL     2579/BAL     2589/BAL     2615/BAL
      2641/BAL     2667/BAL     2671/BAL     2707/BAL     2714/BAL     2718/BAL     2723/BAL     2730/BAL
      2742/BAL     2746/BAL     2755/BAL     2761/BAL     2769/BAL     2805/BAL     2809/BAL     2834/BAL
      2843/BAL     2859/BAL     2866/BAL     2870/BAL     2878/BAL     2885/BAL     2894/BAL     2901/BAL
      2907/BAL     2914/BAL     2925/BAL     2937/BAL     2949/BAL     2968/BAL     2982/BAL     3009/BAL
   PHASTEPX        2225-LW      2340/BAL     2344/BAL     2639/BAL
   PHASTEST        1727-DATA    1903/MTW     2305/MTW     3947/STW
   PHASTORE        2279-LW      2290/BCS     2292/B       2333/BAL     2561/BAL     2573/BAL     2585/BAL
      2610/BAL     2635/BAL     2659/BAL     2664/BAL     2668/BAL     2703/BAL     2711/BAL     2715/BAL
      2720/BAL     2726/BAL     2739/BAL     2743/BAL     2752/BAL     2758/BAL     2765/BAL     2797/BAL
      2802/BAL     2806/BAL     2831/BAL     2840/BAL     2855/BAL     2863/BAL     2867/BAL     2874/BAL
      2882/BAL     2891/BAL     2898/BAL     2904/BAL     2911/BAL     2921/BAL     2931/BAL     2943/BAL
      2963/BAL     2977/BAL     3005/BAL
   PLINE#J         1004/STB     1005/STB     1309/DATA    1378/STW     2184/STH     2186/STH     3599/STH
      3601/STH     3604/STB     3608/STW     4033/STB    11324-TEXTCS
   PLINE#OM        1001/STB     1003/STB     1269/DATA    1300/STB    11325-TEXTCS
   PLINE#OP        1151/DATA    1215/STB     3611/STH     3613/STH     3619/STW     3622/STB     3625/STB
      3628/STB     3631/STB     3634/STB     3637/STB     3640/STB     3643/STB    11326-TEXTCS
   PLINEIN          880/DATA    1160/#ETHCON 1168/#ETHCON 1175/#ETHCON 1181/#ETHCON 1183/#ETHCON
      1190/#ETHCON 1196/#ETHCON 1199/#ETHCON 1205/#ETHCON 1207/#ETHCON 1214/LB      1278/#ETHCON
      1284/#ETHCON 1299/LB      1318/#ETHCON 1331/#ETHCON 1343/LB      1358/LW      1377/LW     11329-RES
   PNTDBL          1728-DATA    1880/MTW     3472/MTW     3948/STW     6491/MTW     6828/MTW
   POLP             790/OPEN     791-COM    11151/CLOSE
   POLR             790/OPEN     792-COM    11151/CLOSE
   PREDRIVE        2369/BAL     2394-MTW     3047/BAL
   PREPHSXX        2305-MTW     2535/BAL     2546/BAL     2552/BAL     2558/BAL     2570/BAL     2582/BAL
      2592/BAL     2598/BAL     2618/BAL     2623/BAL     2628/BAL     2928/BAL     2940/BAL     2952/BAL
      2960/BAL     2974/BAL     2985/BAL     2997/BAL
   PREPHS00        2535-BAL     8405/BAL     8469/BAL     8786/BAL     8802/BAL     8874/BAL     8891/BAL
      8909/BAL     8931/BAL     8952/BAL     8973/BAL     8994/BAL     9015/BAL     9036/BAL     9057/BAL
      9078/BAL     9099/BAL
   PREPHS01        2546-BAL     8380/BAL     8434/BAL     8480/BAL     8490/BAL     8500/BAL     8510/BAL
      8520/BAL     8530/BAL     8540/BAL     8550/BAL     8560/BAL     8570/BAL     8580/BAL     8590/BAL
      8601/BAL     8611/BAL     8622/BAL     8633/BAL     8644/BAL     8655/BAL     8665/BAL     8675/BAL
      8685/BAL     8695/BAL     8705/BAL     8715/BAL     8725/BAL     8815/BAL     8821/BAL     8828/BAL
      8834/BAL     8840/BAL
   PREPHS02        2552-BAL     8368/BAL     8419/BAL
   PREPHS03        2558-BAL    10956/BAL
   PREPHS04        2570-BAL    10972/BAL
   PREPHS05        2582-BAL     9429/BAL     9450/BAL
   PREPHS06        2592-BAL     8392/BAL     8449/BAL
   PREPHS07        2598-BAL     9116/BAL     9131/BAL     9146/BAL     9161/BAL     9175/BAL
   PREPHS08        2618-BAL     3399/BAL     9193/BAL     9220/BAL     9236/BAL     9255/BAL     9347/BAL
      9364/BAL     9381/BAL     9398/BAL     9415/BAL     9473/BAL     9492/BAL     9511/BAL     9529/BAL
      9547/BAL     9565/BAL     9580/BAL     9596/BAL     9612/BAL     9630/BAL     9645/BAL     9660/BAL
      9675/BAL     9690/BAL     9705/BAL     9720/BAL     9742/BAL     9764/BAL     9786/BAL     9813/BAL
      9830/BAL     9847/BAL    10028/BAL    10079/BAL    10091/BAL    10485/BAL    10511/BAL    10542/BAL
     10672/BAL    10689/BAL    10704/BAL    10719/BAL    10734/BAL    10749/BAL    10765/BAL    10781/BAL
     10797/BAL    10813/BAL    10882/BAL    10925/BAL    10940/BAL
   PREPHS09        2623-BAL     3396/BAL     9272/BAL     9291/BAL     9310/BAL     9329/BAL     9971/BAL
      9988/BAL
   PREPHS10        2628-BAL     2992/LI     10247/BAL    10260/BAL    10278/BAL    10296/BAL    10313/BAL
     10335/BAL
   PREPHS11        2928-BAL     9864/BAL     9926/BAL
   PREPHS12        2940-BAL     3384/BAL
   PREPHS13        2952-BAL     3389/BAL     9910/BAL
   PREPHS14        2960-BAL     9941/BAL
   PREPHS15        2974-BAL     9956/BAL
   PREPHS16        2985-BAL    10355/BAL    10377/BAL    10404/BAL
   PREPHS17        2997-BAL    10425/BAL    10444/BAL
   PRGCTL          2069/BAL     3929-EQU
   PRNTSTNO        2059/BAL     3956-EQU
   PROGHDR        11458/GEN    11500-TEXTCS
   PROGHDR2       11459/GEN    11530-EQU
   PROM20          1280/BCR     1283-STW
   PROM26          1286/BCR     1289-CW
   PROM30          1290/BCR     1293/BCS     1295/BCR     1298-LI
   PROM90          1282/B       1304-EQU
   PROP10          1162/BCS     1166-LI
   PROP11          1170/BCR     1173-STW
   PROP12          1176-CI      1182/BIR
   PROP28          1185/BCR     1188-STW
   PROP30          1191-CI      1197/BIR
   PROP38          1192/BCR     1195-STW
   PROP40          1200-CI      1206/BIR
   PROP48          1201/BCR     1204-STW
   PROP58          1209/BCR     1212-STW
   PROP90          1167/B       1172/B       1187/B       1211/B       1227-EQU     1288/B       1304/EQU
      1386/EQU
   PROP91          1229/BCS     1237-LW
   PROP92          1236/B       1242-STB
   PROP94          1179/B       1194/B       1203/B       1248-EQU
   PROP98          1247/B       1261-EQU
   PT              1807/GEN     3282-EQU
   PTNO02          3965/BCS     3974-LW
   PTNO03          3973/B       3977/BCR     3980/BCR     3983/BCR     3987-LW      4015/B
   PTNO04          3992-LB      3997/BCS
   PTNO06          4003-MTW     4020/B
   PTNO08          4004/BCS     4007-#PRINT
   PTNO09          4008-LI      4038/BCR
   PTNO10          4002/B       4016-MTW
   PTNO14          4019-MTB     4040/B
   PTNO18          3976/BCR     4021-LW
   PTNO20          4023/BCR     4025/BCS     4031-MTW
   PTNO30          3986/B       4001/BCR     4029/B       4036-LW
   PTNO40          4039-STB
   PTNO50          3968/BAL     4014/BAL     4026/BAL     4041-EQU
   PTT             1731/XPSD    1806-DATA    3292/LD      3311/MTW     3313/LPSD
   PTTCC04         1729-DATA    3283/STCF    3295/LB
   PTYCTR          1730-DATA
   PTYXPSD         1731-XPSD    3764/LW
   PT60            3289/BCS     3290/LI      3299-BAL
   PT70            3288/BCS     3301/BCS     3302/LI      3306-BAL
   PURGEBUF        1984/BAL     4052-EQU
   PURGEPTY        3241/BAL     3248/BAL     3299/BAL     3306/BAL     4062-LI      4071/B
   PUTDVCON         884/DATA    2083/BAL     2090/BAL     3361/BAL     3835-EQU
   PUTOUT          1732-DATA    1910/STW     2054/MTW     2415/MTW     2422/MTW     2429/MTW     2436/MTW
      2445/MTW     2454/MTW     2463/MTW     2472/MTW     2481/MTW     2486/MTW     2492/MTW     2508/MTW
      2514/MTW     2781/MTW     3069/MTW     3102/MTW     3945/STW
   READONE         3017/BCR     3027-LI      3039/BCS
   READREC         1544-GEN     3021/LI      3027/LI
   READSTAT        1390-BAL    11408/E
   RECBACK         1538-GEN     3143/LI
   RECOUT           976/BAL     1297/BAL     2103/BAL     2128/BAL     3020/BAL     3022/BAL     3028/BAL
      3033/BAL     3034/BAL     3036/BAL     3118/BAL     3121-LW
   REC10           3124/BCS     3129-TIO
   REGISTER        1733-RES     2341/LW      2351/STM     2793/LM
   REGSAVE         2313/BAL     2350-LCI
   RESET           1734-EQU     1918/LI      3845/LI      3866/LI      3924/LI
   RESETIO         1735-EQU     3418/WD
   RETURN             4-EQU
   RIO              790/OPEN     793-COM    11151/CLOSE
   RM%EXPL        11208-EQU    11420/P
   RSTCHCCU        4074-WD      4318/BAL     4334/BAL     4342/BAL     4355/BAL     4368/BAL     4389/BAL
      4447/BAL     4467/BAL     4479/BAL     4492/BAL     4503/BAL     4515/BAL     4527/BAL     4539/BAL
      4552/BAL     4567/BAL     5193/BAL     5206/BAL
   RTIDLE          1738-GEN     3177/LPSD    3227/LPSD    3247/LPSD    3274/LPSD    3305/LPSD    3343/LPSD
   RTNFIELD        1017/STW     1736-DATA
   RTNGO03         1065/DATA    1739-DATA
   R15CTLP         1741-DATA    3507/STW     3590/B*
   R15PRTN         1742-DATA    3669/STW     3703/B*      3963/STW     4011/BCR*    4017/BCR*
   S:INT            526/ERROR    577/ERROR    632/SET      641/SET      651/ERROR    655/SET      657/SET
       665/DO
   S:RAD            655/SET      704/ERROR
   S:UFV              2/EQU        3/EQU        4/EQU      704/ERROR
   SAVE            1743-DATA    3843/STW     3844/STW     3865/LW      3868/B*      3930/STW     3951/LW
   SAVEGIET        1745-DATA    3166/STD*    3169/STB*    3171/LPSD*   3769/STW
   SAVEGIO         1746-DATA    3199/STD*    3201/LPSD*   3778/STW
   SAVEGMFI        1747-DATA    3238/STD*    3240/LPSD*   3775/STW
   SAVEGPFI        1748-DATA    3264/STD*    3266/LPSD*   3772/STW
   SAVEGPTY        1749-DATA    3293/STD*    3296/STB*    3298/LPSD*   3766/STW
   SAVEGWDT        1750-DATA    3332/STD*    3335/STB*    3337/LPSD*   3763/STW
   SAVERTN         1751-DATA    3377/STW     3403/BCR*    3410/B*
   SAVER15S        1752-DATA    5239/STW     5246/B*
   SAVREG          1759-DATA    3159/STD     3176/LD      3181/LD      3186/STD     3216/LD      3226/LD
      3231/STD     3246/LD      3251/LD      3256/STD     3273/LD      3278/LD      3284/STD     3304/LD
      3312/LD      3318/STD     3342/LD      3348/LD      3751/STD     3754/LD
   SAVR10          1755-DATA    1824/STD     1882/LD      3794/STW     3812/LW      4093/STW     4099/LW
   SAVR8           1754-DATA    4092/STW     4098/LW
   SEQBUFF         1756-RES     2286/STB     2302/STB     2324/STW     2331/STB     2367/LB      2398/LB
      2408/LB      2503/LB      2518/LB      3045/LB      3108/LB
   SEQDEX          1757-DATA    2279/LW      2284/STW     2300/LW      2303/MTW     2327/STW     2329/LW
      2332/MTW
   SERCYHDA        2465/#PRINT 11509-TEXTCS
   SERCYHDB        2474/#PRINT 11510-TEXTCS
   SERCYHDC        2483/#PRINT 11511-TEXTCS
   SERCYHD1        2417/#PRINT 11503-TEXTCS
   SERCYHD2        2424/#PRINT 11504-TEXTCS
   SERCYHD3        2431/#PRINT 11505-TEXTCS
   SERCYHD4        2438/#PRINT 11506-TEXTCS
   SERCYHD5        2447/#PRINT 11507-TEXTCS
   SERCYHD9        2456/#PRINT 11508-TEXTCS
   SETADPTY        3579/BAL     4080-EQU
   SHORTLP         1761-DATA    3889/MTW     3892/STW
   SIMA            4089-EQU     5476/BAL     5503/BAL     5521/BAL     5536/BAL     5552/BAL     5571/BAL
      5587/BAL     5614/BAL     5637/BAL     5660/BAL     5727/BAL     5749/BAL     5771/BAL     5785/BAL
      5806/BAL     5826/BAL     5847/BAL     5938/BAL     5952/BAL
   SIO             2537/BAL     2541-STW     2609/BAL     2987/BAL     3000/BAL
   SIOSAVE         2540-DATA    2541/STW     2544/B*
   SS%EXPL        11214-EQU    11445/P
   SSTA10          4175/BCS     4179/BCS     4180/BCS     4182/B       4184-LD
   SSTA8           4162-LI
   STADDR          2195/DATA   11513-GEN
   STAT%EXPL      11240-EQU    11410/P
   STATMSGS        1390/BAL     4115-EQU
   STATUSMG        4120/STH     4122/STH     4126/STW     4131/STB     4132/#TYPE  11514-TEXTCS
   STGFED          1765-DATA   10603/LD     10621/LD
   STG0F1          1766-DATA   10841/LD
   STG102          1767-DATA   10861/LD
   STG123          1763-DATA   10589/LD     10654/LW     10827/LD
   STG234          1764-DATA   10638/LD
   STG607          1768-DATA   10652/LD     10863/LD
   STOPIODV        4106-EQU     5966/BAL     5979/BAL     5990/BAL     6006/BAL     6021/BAL     6038/BAL
      8353/BAL     8731/BAL
   STRTCOMP        2056/B       3026/B       3031/BCR     3037-LW
   SUBCHADR        4137-EQU     8415/BAL     8429/BAL     8444/BAL     8463/BAL     9179/BAL     9432/BAL
      9453/BAL    10096/BAL    10150/BAL    10168/BAL    10193/BAL    10219/BAL    10232/BAL    10516/BAL
     10547/BAL
   SUBCHLN         1770-DATA    1957/CW      1963/CW      3555/STW     3563/STW     3626/LW      4178/CW
   SUBC10          4140/BCS     4145-LW
   SUCLNMG         3993/STB     4007/#PRINT  4018/STB     4019/MTB     4039/STB    11517-TEXTCS
   SUCPASS2        1772-DATA    4024/MTW     4028/MTW     4030/MTW
   SUCSHD          1016/STW     1154/STW     1272/STW     1312/STW     1769-DATA    3684/STW     3967/STW
      4003/MTW     4006/MTW     4013/MTW
   SUCSMG          4005/#PRINT  4047/STB    11516-TEXTCS
   SUPRESET        1931/BAL     4151-EQU
   SYNC            1773-EQU     1934/WD*     2308/WD*     4195/WD*     4204/WD*     4211/WD*     4221/WD*
      5971/WD*     5984/WD*     5998/WD*     6013/WD*     6029/WD*     6046/WD*     6059/WD*     6069/WD*
      6077/WD*     6086/WD*     6095/WD*     6117/WD*     6132/WD*     6159/WD*     6252/WD*     6323/WD*
      6494/WD*     6803/WD*     8238/WD*     8268/WD*     8319/WD*     8338/WD*     8355/WD*     9208/WD*
     10984/WD*    11002/WD*    11021/WD*    11037/WD*    11054/WD*    11074/WD*    11089/WD*    11107/WD*
     11127/WD*    11141/WD*
   SYNTAX%EXPL    11163-EQU    11405/P
   T%EXPL         11314-EQU    11425/P
   TABLE3           879/DATA   11400-EQU
   TABLE3END      11448-DATA
   TAPECMND        1548-GEN     3116/STW     3117/LI
   TAPEGEN         2365/BCS     3108-LB      3114/B
   TAPEND          1540-GEN     2102/LI
   TAPEREW          975/LI      1296/LI      1551-GEN
   TERMPHS         2676/BCR     2710/BCR     2720-BAL     2751/BCR     2814/BCR     2872/B
   TEST             963/STW     1038/LW*     1048/STW     1059/STW     1774-DATA    2157/LW
   TESTCNT         1775-DATA    3901/MTW     3907/STW
   TESTNO          1014-EQU    11423/E
   TEXTCS           778-CNAME
   TFCH01          1488-GEN     1492/GEN
   TFCH02          1492-GEN
   TSELTMG1        1129/#TYPE  11519-TEXTCS
   TSELTMG2        1082/STW     1087/STB     1092/#TYPE  11520-TEXTCS
   TSELTMG3        1042/#TYPE  11523-TEXTCS
   TSELTMG4        1109/#TYPE  11524-TEXTCS
   TSELTMG5        1072/STB     1077/#TYPE  11525-TEXTCS
   TSELTMG6        1096/#TYPE  11526-TEXTCS
   TSLFLAG         1101/MTW     1103/MTW     1108/MTW     1776-DATA
   TSL04           1026-STW     1102/B
   TSL08           1036-LW      1107/B
   TSL10           1041/BCR     1045-EQU
   TSL20           1058-STW
   TSL24           1053/BCR     1063-LCI
   TSL30           1066-MTW     1120/BCS
   TSL35           1071-LB      1076/BCS
   TSL40           1067/BCS     1079-#HTECON
   TSL50           1078/B       1093-LCI
   TSL60           1025/BCS     1034/BCS     1095-EQU
   TSL70           1020/B       1099-EQU
   TSL74           1029/B       1103-MTW
   TSL76           1104/BCS     1108-MTW
   TSL90           1046/BAL     1054/BAL     1112-EQU
   TSL92           1116-LW      1128/BCR
   TSTIDX1          996/STW     1777-DATA    3990/LW      3999/STW     4009/STW     4036/LW
   TSTNMBER        1778-DATA    2297/AW      2318/STW
   TSTPRAM1        1026/STW     1036/LW      1779-DATA
   TSTPRAM2        1035/STW     1040/CW      1052/LW      1780-DATA
   T0010            962/LI      1114/LI      1116/LW      1122/LW      1126/AI      1706/DATA    1774/DATA
      4234-GEN
   T0020           4234/GEN     4240-GEN
   T0030           4240/GEN     4250-GEN
   T0040           4250/GEN     4261-GEN
   T0050           4261/GEN     4274-GEN
   T0060           4274/GEN     4285-GEN
   T0070           4285/GEN     4296-GEN
   T0080           4296/GEN     4307-GEN
   T0090           4307/GEN     4317-GEN
   T0090B          4323/BCS     4327-MTW
   T0090C          4325/BCS     4326/B       4329-AND
   T0100           4317/GEN     4333-GEN
   T0110           4333/GEN     4341-GEN
   T0120           4341/GEN     4354-GEN
   T0140           4354/GEN     4367-GEN
   T0150           4367/GEN     4381-GEN
   T0160           4381/GEN     4388-GEN
   T0170           4388/GEN     4399-GEN
   T0180           4399/GEN     4415-GEN
   T0190           4415/GEN     4432-GEN
   T0200           4432/GEN     4446-GEN
   T0210           4446/GEN     4456-GEN
   T0220           4456/GEN     4466-GEN
   T0230           4466/GEN     4478-GEN
   T0240           4478/GEN     4491-GEN
   T0250           4491/GEN     4502-GEN
   T0260           4502/GEN     4514-GEN
   T0270           4514/GEN     4526-GEN
   T0280           4526/GEN     4538-GEN
   T0290           4538/GEN     4551-GEN
   T0300           4551/GEN     4566-GEN
   T0310           4566/GEN     4580-GEN
   T0310B          4581/BAL     4587-EQU     4605/BAL     4611/BAL     4617/BAL
   T0320           4580/GEN     4604-GEN
   T0330           4604/GEN     4610-GEN
   T0340           4610/GEN     4616-GEN
   T0350           4616/GEN     4622-GEN
   T0360           4622/GEN     4639-GEN
   T0370           4639/GEN     4657-GEN
   T0370B          4660/BAL     4663-EQU     4678/BAL     4686/BAL     4694/BAL     4702/BAL     4710/BAL
      4718/BAL     4726/BAL     4734/BAL     4742/BAL
   T0374           4657/GEN     4675-GEN
   T0378           4675/GEN     4682-GEN
   T0382           4682/GEN     4690-GEN
   T0386           4690/GEN     4698-GEN
   T0390           4698/GEN     4706-GEN
   T0394           4706/GEN     4714-GEN
   T0398           4714/GEN     4722-GEN
   T0402           4722/GEN     4730-GEN
   T0406           4730/GEN     4738-GEN
   T0410           4738/GEN     4747-GEN
   T0410B          4750/BAL     4753-EQU     4766/BAL     4774/BAL     4782/BAL     4790/BAL     4798/BAL
      4806/BAL     4814/BAL     4822/BAL     4830/BAL
   T0414           4747/GEN     4763-GEN
   T0418           4763/GEN     4770-GEN
   T0422           4770/GEN     4778-GEN
   T0426           4778/GEN     4786-GEN
   T0430           4786/GEN     4794-GEN
   T0434           4794/GEN     4802-GEN
   T0438           4802/GEN     4810-GEN
   T0442           4810/GEN     4818-GEN
   T0446           4818/GEN     4826-GEN
   T0450           4826/GEN     4835-GEN
   T0450B          4838/BAL     4841-EQU     4854/BAL     4862/BAL     4870/BAL     4878/BAL     4886/BAL
      4894/BAL     4902/BAL     4910/BAL     4918/BAL
   T0454           4835/GEN     4851-GEN
   T0458           4851/GEN     4858-GEN
   T0462           4858/GEN     4866-GEN
   T0466           4866/GEN     4874-GEN
   T0470           4874/GEN     4882-GEN
   T0474           4882/GEN     4890-GEN
   T0478           4890/GEN     4898-GEN
   T0482           4898/GEN     4906-GEN
   T0486           4906/GEN     4914-GEN
   T0490           4914/GEN     4922-GEN
   T0500           4922/GEN     4935-GEN
   T0510           4935/GEN     4945-GEN
   T0510B          4946/BAL     4950-EQU     4965/BAL     4971/BAL
   T0520           4945/GEN     4964-GEN
   T0530           4964/GEN     4970-GEN
   T0540           4970/GEN     4976-GEN
   T0550           4976/GEN     4989-GEN
   T0560           4989/GEN     4994-GEN
   T0570           4994/GEN     5007-GEN
   T0580           5007/GEN     5020-GEN
   T0590           5020/GEN     5033-GEN
   T0600           5033/GEN     5046-GEN
   T0610           5046/GEN     5060-GEN
   T0620           5060/GEN     5074-GEN
   T0630           5074/GEN     5091-GEN
   T0640           5091/GEN     5103-GEN
   T0640B          5113/BCR     5116/BCS     5117-LI
   T0645           5103/GEN     5125-GEN
   T0645B          5135/BCR     5139-LI
   T0650           5125/GEN     5147-GEN
   T0660           5147/GEN     5165-GEN
   T0670           5165/GEN     5174-GEN
   T0680           5174/GEN     5183-GEN
   T0690           5183/GEN     5192-GEN
   T0700           5192/GEN     5201-GEN
   T0700B          5202/BAL     5204-EQU     5218/BAL     5226/BAL
   T0710           5201/GEN     5217-GEN
   T0720           5217/GEN     5222-GEN
   T0730           5222/GEN     5230-GEN
   T0730B          5239-STW     5256/BAL     5266/BAL
   T0730D          5238/LI      5247-AND
   T0740           5230/GEN     5252-GEN
   T0750           5252/GEN     5262-GEN
   T0760           5262/GEN     5272-GEN
   T0760B          5277-WD      5291/BAL     5302/BAL
   T0760D          5276/LI      5282-RD
   T0770           5272/GEN     5287-GEN
   T0780           5287/GEN     5298-GEN
   T0790           5298/GEN     5309-GEN
   T0800           5309/GEN     5323-GEN
   T0810           5323/GEN     5340-GEN
   T0820           5340/GEN     5354-GEN
   T0830           5354/GEN     5365-GEN
   T0840           5365/GEN     5376-GEN
   T0850           5376/GEN     5392-GEN
   T0850B          5393/BAL     5398-STW     5420/BAL     5427/BAL
   T0850R          5398/STW     5403/LW*     5410/MTW     5411/LW*     5413/MTW     5414/AND*    5416-DATA
   T0860           5392/GEN     5419-GEN
   T0870           5419/GEN     5426-GEN
   T0880           5426/GEN     5433-GEN
   T0890           5433/GEN     5447-GEN
   T0900           5447/GEN     5461-GEN
   T0910           5461/GEN     5475-GEN
   T0920           5475/GEN     5487-GEN
   T0930           5487/GEN     5502-GEN
   T0940           5502/GEN     5520-GEN
   T0950           5520/GEN     5535-GEN
   T0960           5535/GEN     5549-GEN
   T0970           5549/GEN     5568-GEN
   T0990           5568/GEN     5584-GEN
   T1000           5584/GEN     5611-GEN
   T1020           5611/GEN     5636-GEN
   T1030           5636/GEN     5655-GEN
   T1030C          5660-BAL     5687/B       5696/B       5705/B       5714/B       5723/B
   T1040           5655/GEN     5682-GEN
   T1050           5682/GEN     5691-GEN
   T1060           5691/GEN     5700-GEN
   T1070           5700/GEN     5709-GEN
   T1080           5709/GEN     5718-GEN
   T1090           5718/GEN     5726-GEN
   T1100           5726/GEN     5748-GEN
   T1100C          5751-LW      5772/BAL
   T1100E          5750/LI      5763-RD
   T1110           5748/GEN     5770-GEN
   T1120           5770/GEN     5782-GEN
   T1130           5782/GEN     5803-GEN
   T1140           5803/GEN     5823-GEN
   T1150           5823/GEN     5842-GEN
   T1150B          5845-LW      5866/BAL     5875/BAL     5884/BAL     5893/BAL     5902/BAL     5911/BAL
      5920/BAL     5928/BAL
   T1150D          5844/LI      5858-RD
   T1160           5842/GEN     5864-GEN
   T1170           5864/GEN     5873-GEN
   T1180           5873/GEN     5882-GEN
   T1190           5882/GEN     5891-GEN
   T1200           5891/GEN     5900-GEN
   T1210           5900/GEN     5909-GEN
   T1220           5909/GEN     5918-GEN
   T1230           5918/GEN     5926-GEN
   T1240           5926/GEN     5935-GEN
   T1250           5935/GEN     5949-GEN
   T1260           5949/GEN     5965-GEN
   T1270           5965/GEN     5978-GEN
   T1280           5978/GEN     5989-GEN
   T1290           5989/GEN     6005-GEN
   T1300           6005/GEN     6020-GEN
   T1310           6020/GEN     6037-GEN
   T1320           6037/GEN     6054-GEN
   T1330           6054/GEN     6067-GEN
   T1340           6067/GEN     6075-GEN
   T1350           6075/GEN     6083-GEN
   T1360           6083/GEN     6092-GEN
   T1390           6092/GEN     6102-GEN
   T1400           6102/GEN     6112-GEN
   T1410           6112/GEN     6127-GEN
   T1420           6127/GEN     6142-GEN
   T1425           6142/GEN     6148-GEN
   T1425B          6143/BAL     6149/BAL     6152-EQU     6172/BAL     6177/BAL     6183/BAL     6188/BAL
      6194/BAL     6199/BAL
   T1430           6148/GEN     6171-GEN
   T1435           6171/GEN     6176-GEN
   T1440           6176/GEN     6182-GEN
   T1445           6182/GEN     6187-GEN
   T1450           6187/GEN     6193-GEN
   T1455           6193/GEN     6198-GEN
   T1460           6198/GEN     6204-GEN
   T1460B          6205/BAL     6208-WD      6219/BAL     6224/BAL     6229/BAL     6234/BAL     6239/BAL
   T1470           6204/GEN     6218-GEN
   T1480           6218/GEN     6223-GEN
   T1490           6223/GEN     6228-GEN
   T1500           6228/GEN     6233-GEN
   T1510           6233/GEN     6238-GEN
   T1520           6238/GEN     6244-GEN
   T1520B          6247/BAL     6249-WD      6265/BAL     6273/BAL     6281/BAL     6289/BAL     6297/BAL
      6305/BAL     6313/BAL
   T1530           6244/GEN     6262-GEN
   T1540           6262/GEN     6270-GEN
   T1550           6270/GEN     6278-GEN
   T1580           6278/GEN     6286-GEN
   T1590           6286/GEN     6294-GEN
   T1600           6294/GEN     6302-GEN
   T1610           6302/GEN     6310-GEN
   T1620           6310/GEN     6317-GEN
   T1620B          6320-EQU     6334/B       6340/B       6346/B       6352/B       6358/B       6364/B
      6370/B       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
   T1630           6317/GEN     6331-GEN
   T1638           6331/GEN     6337-GEN
   T1640           6337/GEN     6343-GEN
   T1644           6343/GEN     6349-GEN
   T1648           6349/GEN     6355-GEN
   T1650           6355/GEN     6361-GEN
   T1654           6361/GEN     6367-GEN
   T1658           6367/GEN     6373-GEN
   T1660           6373/GEN     6379-GEN
   T1664           6379/GEN     6385-GEN
   T1668           6385/GEN     6391-GEN
   T1670           6391/GEN     6397-GEN
   T1674           6397/GEN     6403-GEN
   T1678           6403/GEN     6409-GEN
   T1680           6409/GEN     6415-GEN
   T1684           6415/GEN     6421-GEN
   T1688           6421/GEN     6427-GEN
   T1690           6427/GEN     6433-GEN
   T1694           6433/GEN     6439-GEN
   T1698           6439/GEN     6445-GEN
   T1700           6445/GEN     6451-GEN
   T1704           6451/GEN     6457-GEN
   T1708           6457/GEN     6463-GEN
   T1710           6463/GEN     6469-GEN
   T1720           6469/GEN     6475-GEN
   T1730           6475/GEN     6481-GEN
   T1740           6481/GEN     6488-GEN
   T1740B          6490-EQU     6508/B       6513/B       6519/B       6525/B       6531/B       6537/B
      6543/B       6549/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       6656/B       6662/B       6668/B       6674/B       6680/B
      6686/B       6692/B       6698/B       6704/B       6710/B       6716/B       6722/B       6728/B
      6734/B       6740/B       6746/B       6752/B       6758/B       6764/B       6770/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       7149/B       7155/B       7161/B       7167/B       7173/B
      7179/B       7185/B       7191/B       7197/B       7203/B       7209/B       7215/B       7221/B
      7227/B       7233/B       7239/B       7244/B       7250/B       7256/B       7262/B       7268/B
      7274/B       7280/B       7286/B       7292/B       7298/B       7304/B       7310/B       7316/B
      7322/B       7328/B       7334/B       7340/B       7346/B       7352/B       7358/B       7364/B
      7370/B       7376/B       7382/B       7387/B       7393/B       7399/B       7405/B       7411/B
      7417/B       7423/B       7429/B       7435/B       7441/B       7447/B       7453/B       7459/B
      7465/B       7471/B       7477/B       7483/B       7489/B       7495/B       7501/B       7507/B
      7513/B       7519/B       7525/B       7530/B       7536/B       7542/B       7548/B       7554/B
      7560/B       7566/B       7572/B       7578/B       7584/B       7590/B       7596/B       7602/B
      7608/B       7614/B       7620/B       7626/B       7632/B       7638/B       7644/B       7650/B
      7656/B       7662/B       7668/B       7673/B       7679/B       7685/B       7691/B       7697/B
      7703/B       7709/B       7715/B       7721/B       7727/B       7733/B       7739/B       7745/B
      7751/B       7757/B       7763/B       7769/B       7775/B       7781/B       7787/B       7793/B
      7799/B       7805/B       7811/B       7816/B       7822/B       7828/B       7834/B       7840/B
      7846/B       7852/B       7858/B       7864/B       7870/B       7876/B       7882/B       7888/B
      7894/B       7900/B       7906/B       7912/B       7918/B       7924/B       7930/B       7936/B
      7942/B       7948/B       7954/B       7959/B       7965/B       7971/B       7977/B       7983/B
      7989/B       7995/B       8001/B       8007/B       8013/B       8019/B       8025/B       8031/B
      8037/B       8043/B       8049/B       8055/B       8061/B       8067/B       8073/B       8079/B
      8085/B       8091/B       8097/B       8102/B       8108/B       8114/B       8120/B       8126/B
      8132/B       8138/B       8144/B       8150/B       8156/B       8162/B       8168/B       8174/B
      8180/B       8186/B       8192/B       8198/B       8204/B       8210/B       8216/B
   T1750           6488/GEN     6506-GEN
   T1760           6506/GEN     6511-GEN
   T1770           6511/GEN     6517-GEN
   T1780           6517/GEN     6523-GEN
   T1790           6523/GEN     6529-GEN
   T1800           6529/GEN     6535-GEN
   T1810           6535/GEN     6541-GEN
   T1820           6541/GEN     6547-GEN
   T1830           6547/GEN     6553-GEN
   T1840           6553/GEN     6559-GEN
   T1850           6559/GEN     6565-GEN
   T1860           6565/GEN     6571-GEN
   T1870           6571/GEN     6577-GEN
   T1880           6577/GEN     6583-GEN
   T1890           6583/GEN     6589-GEN
   T1900           6589/GEN     6595-GEN
   T1910           6595/GEN     6601-GEN
   T1920           6601/GEN     6607-GEN
   T1930           6607/GEN     6613-GEN
   T1940           6613/GEN     6619-GEN
   T1950           6619/GEN     6625-GEN
   T1960           6625/GEN     6631-GEN
   T1970           6631/GEN     6637-GEN
   T1980           6637/GEN     6643-GEN
   T1990           6643/GEN     6649-GEN
   T2000           6649/GEN     6654-GEN
   T2010           6654/GEN     6660-GEN
   T2020           6660/GEN     6666-GEN
   T2030           6666/GEN     6672-GEN
   T2040           6672/GEN     6678-GEN
   T2050           6678/GEN     6684-GEN
   T2060           6684/GEN     6690-GEN
   T2070           6690/GEN     6696-GEN
   T2080           6696/GEN     6702-GEN
   T2090           6702/GEN     6708-GEN
   T2100           6708/GEN     6714-GEN
   T2110           6714/GEN     6720-GEN
   T2120           6720/GEN     6726-GEN
   T2130           6726/GEN     6732-GEN
   T2140           6732/GEN     6738-GEN
   T2150           6738/GEN     6744-GEN
   T2160           6744/GEN     6750-GEN
   T2170           6750/GEN     6756-GEN
   T2180           6756/GEN     6762-GEN
   T2190           6762/GEN     6768-GEN
   T2200           6768/GEN     6773-GEN
   T2200B          6775-EQU     6826/B       6847/B       6852/B       6857/B       6862/B       6867/B
      6872/B       6877/B       6882/B       6888/B       6893/B       6898/B       6903/B       6908/B
      6913/B       6918/B       6922/B       6927/B       6932/B       6937/B       6946/B       6951/B
      6956/B       6961/B       6966/B       6971/B       6976/B       6981/B       6986/B       6991/B
      6996/B       7001/B       7006/B       7011/B       7016/B       7021/B       7026/B       7031/B
      7036/B       7041/B       7046/B       7051/B       7056/B       7061/B       7066/B       7071/B
   T2200D          6777/BCS     6780/BCS     6783/BCS     6785-STW     6790/BIR
   T2200F          6801-CS      6814/BIR
   T2200J          6802/BCR     6812-AW
   T2210           6773/GEN     6824-GEN
   T2210H          6809/BCS     6811/BCS     6827-MTW
   T2220           6824/GEN     6845-GEN
   T2230           6845/GEN     6850-GEN
   T2240           6850/GEN     6855-GEN
   T2250           6855/GEN     6860-GEN
   T2260           6860/GEN     6865-GEN
   T2270           6865/GEN     6870-GEN
   T2280           6870/GEN     6875-GEN
   T2290           6875/GEN     6880-GEN
   T2300           6880/GEN     6886-GEN
   T2310           6886/GEN     6891-GEN
   T2320           6891/GEN     6896-GEN
   T2330           6896/GEN     6901-GEN
   T2340           6901/GEN     6906-GEN
   T2350           6906/GEN     6911-GEN
   T2360           6911/GEN     6916-GEN
   T2370           6916/GEN     6920-GEN
   T2380           6920/GEN     6925-GEN
   T2390           6925/GEN     6930-GEN
   T2400           6930/GEN     6935-GEN
   T2410           6935/GEN     6940-GEN
   T2420           6940/GEN     6944-GEN
   T2430           6944/GEN     6949-GEN
   T2440           6949/GEN     6954-GEN
   T2450           6954/GEN     6959-GEN
   T2460           6959/GEN     6964-GEN
   T2470           6964/GEN     6969-GEN
   T2480           6969/GEN     6974-GEN
   T2490           6974/GEN     6979-GEN
   T2500           6979/GEN     6984-GEN
   T2510           6984/GEN     6989-GEN
   T2520           6989/GEN     6994-GEN
   T2530           6994/GEN     6999-GEN
   T2540           6999/GEN     7004-GEN
   T2550           7004/GEN     7009-GEN
   T2560           7009/GEN     7014-GEN
   T2570           7014/GEN     7019-GEN
   T2580           7019/GEN     7024-GEN
   T2590           7024/GEN     7029-GEN
   T2600           7029/GEN     7034-GEN
   T2610           7034/GEN     7039-GEN
   T2620           7039/GEN     7044-GEN
   T2630           7044/GEN     7049-GEN
   T2640           7049/GEN     7054-GEN
   T2650           7054/GEN     7059-GEN
   T2660           7059/GEN     7064-GEN
   T2670           7064/GEN     7069-GEN
   T2700           7069/GEN     7076-GEN
   T2710           7076/GEN     7082-GEN
   T2720           7082/GEN     7088-GEN
   T2730           7088/GEN     7094-GEN
   T2740           7094/GEN     7099-GEN
   T2750           7099/GEN     7105-GEN
   T2760           7105/GEN     7111-GEN
   T2770           7111/GEN     7117-GEN
   T2780           7117/GEN     7123-GEN
   T2790           7123/GEN     7129-GEN
   T2800           7129/GEN     7135-GEN
   T2810           7135/GEN     7141-GEN
   T2820           7141/GEN     7147-GEN
   T2830           7147/GEN     7153-GEN
   T2840           7153/GEN     7159-GEN
   T2850           7159/GEN     7165-GEN
   T2860           7165/GEN     7171-GEN
   T2870           7171/GEN     7177-GEN
   T2880           7177/GEN     7183-GEN
   T2890           7183/GEN     7189-GEN
   T2900           7189/GEN     7195-GEN
   T2910           7195/GEN     7201-GEN
   T2920           7201/GEN     7207-GEN
   T2930           7207/GEN     7213-GEN
   T2940           7213/GEN     7219-GEN
   T2950           7219/GEN     7225-GEN
   T2960           7225/GEN     7231-GEN
   T2970           7231/GEN     7237-GEN
   T2980           7237/GEN     7242-GEN
   T2990           7242/GEN     7248-GEN
   T3000           7248/GEN     7254-GEN
   T3010           7254/GEN     7260-GEN
   T3020           7260/GEN     7266-GEN
   T3030           7266/GEN     7272-GEN
   T3040           7272/GEN     7278-GEN
   T3050           7278/GEN     7284-GEN
   T3060           7284/GEN     7290-GEN
   T3070           7290/GEN     7296-GEN
   T3080           7296/GEN     7302-GEN
   T3090           7302/GEN     7308-GEN
   T3100           7308/GEN     7314-GEN
   T3110           7314/GEN     7320-GEN
   T3120           7320/GEN     7326-GEN
   T3130           7326/GEN     7332-GEN
   T3140           7332/GEN     7338-GEN
   T3150           7338/GEN     7344-GEN
   T3160           7344/GEN     7350-GEN
   T3170           7350/GEN     7356-GEN
   T3180           7356/GEN     7362-GEN
   T3190           7362/GEN     7368-GEN
   T3200           7368/GEN     7374-GEN
   T3210           7374/GEN     7380-GEN
   T3220           7380/GEN     7385-GEN
   T3230           7385/GEN     7391-GEN
   T3240           7391/GEN     7397-GEN
   T3250           7397/GEN     7403-GEN
   T3260           7403/GEN     7409-GEN
   T3270           7409/GEN     7415-GEN
   T3280           7415/GEN     7421-GEN
   T3290           7421/GEN     7427-GEN
   T3300           7427/GEN     7433-GEN
   T3310           7433/GEN     7439-GEN
   T3320           7439/GEN     7445-GEN
   T3330           7445/GEN     7451-GEN
   T3340           7451/GEN     7457-GEN
   T3350           7457/GEN     7463-GEN
   T3360           7463/GEN     7469-GEN
   T3370           7469/GEN     7475-GEN
   T3380           7475/GEN     7481-GEN
   T3390           7481/GEN     7487-GEN
   T3400           7487/GEN     7493-GEN
   T3410           7493/GEN     7499-GEN
   T3420           7499/GEN     7505-GEN
   T3430           7505/GEN     7511-GEN
   T3440           7511/GEN     7517-GEN
   T3450           7517/GEN     7523-GEN
   T3460           7523/GEN     7528-GEN
   T3470           7528/GEN     7534-GEN
   T3480           7534/GEN     7540-GEN
   T3490           7540/GEN     7546-GEN
   T3500           7546/GEN     7552-GEN
   T3510           7552/GEN     7558-GEN
   T3520           7558/GEN     7564-GEN
   T3530           7564/GEN     7570-GEN
   T3540           7570/GEN     7576-GEN
   T3550           7576/GEN     7582-GEN
   T3560           7582/GEN     7588-GEN
   T3570           7588/GEN     7594-GEN
   T3580           7594/GEN     7600-GEN
   T3590           7600/GEN     7606-GEN
   T3600           7606/GEN     7612-GEN
   T3610           7612/GEN     7618-GEN
   T3620           7618/GEN     7624-GEN
   T3630           7624/GEN     7630-GEN
   T3640           7630/GEN     7636-GEN
   T3650           7636/GEN     7642-GEN
   T3660           7642/GEN     7648-GEN
   T3670           7648/GEN     7654-GEN
   T3680           7654/GEN     7660-GEN
   T3690           7660/GEN     7666-GEN
   T3700           7666/GEN     7671-GEN
   T3710           7671/GEN     7677-GEN
   T3720           7677/GEN     7683-GEN
   T3730           7683/GEN     7689-GEN
   T3740           7689/GEN     7695-GEN
   T3750           7695/GEN     7701-GEN
   T3760           7701/GEN     7707-GEN
   T3770           7707/GEN     7713-GEN
   T3780           7713/GEN     7719-GEN
   T3790           7719/GEN     7725-GEN
   T3800           7725/GEN     7731-GEN
   T3810           7731/GEN     7737-GEN
   T3820           7737/GEN     7743-GEN
   T3830           7743/GEN     7749-GEN
   T3840           7749/GEN     7755-GEN
   T3850           7755/GEN     7761-GEN
   T3860           7761/GEN     7767-GEN
   T3870           7767/GEN     7773-GEN
   T3880           7773/GEN     7779-GEN
   T3890           7779/GEN     7785-GEN
   T3900           7785/GEN     7791-GEN
   T3910           7791/GEN     7797-GEN
   T3920           7797/GEN     7803-GEN
   T3930           7803/GEN     7809-GEN
   T3940           7809/GEN     7814-GEN
   T3950           7814/GEN     7820-GEN
   T3960           7820/GEN     7826-GEN
   T3970           7826/GEN     7832-GEN
   T3980           7832/GEN     7838-GEN
   T3990           7838/GEN     7844-GEN
   T4000           7844/GEN     7850-GEN
   T4010           7850/GEN     7856-GEN
   T4020           7856/GEN     7862-GEN
   T4030           7862/GEN     7868-GEN
   T4040           7868/GEN     7874-GEN
   T4050           7874/GEN     7880-GEN
   T4060           7880/GEN     7886-GEN
   T4070           7886/GEN     7892-GEN
   T4080           7892/GEN     7898-GEN
   T4090           7898/GEN     7904-GEN
   T4100           7904/GEN     7910-GEN
   T4110           7910/GEN     7916-GEN
   T4120           7916/GEN     7922-GEN
   T4130           7922/GEN     7928-GEN
   T4140           7928/GEN     7934-GEN
   T4150           7934/GEN     7940-GEN
   T4160           7940/GEN     7946-GEN
   T4170           7946/GEN     7952-GEN
   T4180           7952/GEN     7957-GEN
   T4190           7957/GEN     7963-GEN
   T4200           7963/GEN     7969-GEN
   T4210           7969/GEN     7975-GEN
   T4220           7975/GEN     7981-GEN
   T4230           7981/GEN     7987-GEN
   T4240           7987/GEN     7993-GEN
   T4250           7993/GEN     7999-GEN
   T4260           7999/GEN     8005-GEN
   T4270           8005/GEN     8011-GEN
   T4280           8011/GEN     8017-GEN
   T4290           8017/GEN     8023-GEN
   T4300           8023/GEN     8029-GEN
   T4310           8029/GEN     8035-GEN
   T4320           8035/GEN     8041-GEN
   T4330           8041/GEN     8047-GEN
   T4340           8047/GEN     8053-GEN
   T4350           8053/GEN     8059-GEN
   T4360           8059/GEN     8065-GEN
   T4370           8065/GEN     8071-GEN
   T4380           8071/GEN     8077-GEN
   T4390           8077/GEN     8083-GEN
   T4400           8083/GEN     8089-GEN
   T4410           8089/GEN     8095-GEN
   T4420           8095/GEN     8100-GEN
   T4430           8100/GEN     8106-GEN
   T4440           8106/GEN     8112-GEN
   T4450           8112/GEN     8118-GEN
   T4460           8118/GEN     8124-GEN
   T4470           8124/GEN     8130-GEN
   T4480           8130/GEN     8136-GEN
   T4490           8136/GEN     8142-GEN
   T4500           8142/GEN     8148-GEN
   T4510           8148/GEN     8154-GEN
   T4520           8154/GEN     8160-GEN
   T4530           8160/GEN     8166-GEN
   T4540           8166/GEN     8172-GEN
   T4550           8172/GEN     8178-GEN
   T4560           8178/GEN     8184-GEN
   T4570           8184/GEN     8190-GEN
   T4580           8190/GEN     8196-GEN
   T4590           8196/GEN     8202-GEN
   T4600           8202/GEN     8208-GEN
   T4610           8208/GEN     8214-GEN
   T4620           8214/GEN     8217-EQU
   T5490           8220-GEN
   T5500           8220/GEN     8229-GEN
   T5500B          8221/BAL     8230/BAL     8234-EQU     8249/BAL
   T5510           8229/GEN     8248-GEN
   T5520           8248/GEN     8255-GEN
   T5520B          8256/BAL     8261-EQU
   T5520D          8263-MTW     8290/BAL
   T5520F          8262/LI      8271-LW      8293/B       8324/B
   T5560           8255/GEN     8284-GEN
   T5560B          8285/BAL     8290-BAL     8297/BAL     8304/BAL
   T5570           8284/GEN     8296-GEN
   T5580           8296/GEN     8303-GEN
   T5590           8303/GEN     8310-GEN
   T5590B          8311/BAL     8316-MTW     8328/BAL
   T5600           8310/GEN     8327-GEN
   T5610           8327/GEN     8334-GEN
   T5620           8334/GEN     8349-EQU
   T6590           8352-GEN
   T6600           3895/LI      4158/CI      8352/GEN     8364-GEN
   T6610           8364/GEN     8376-GEN
   T6614           8376/GEN     8388-GEN
   T6616           8388/GEN     8400-GEN
   T6620           8400/GEN     8413-GEN
   T6630           8413/GEN     8427-GEN
   T6635           8427/GEN     8442-GEN
   T6640           8442/GEN     8457-GEN
   T6650           8457/GEN     8477-GEN
   T6660           8477/GEN     8487-GEN
   T6670           8487/GEN     8497-GEN
   T6680           8497/GEN     8507-GEN
   T6690           8507/GEN     8517-GEN
   T6700           8517/GEN     8527-GEN
   T6710           8527/GEN     8537-GEN
   T6720           8537/GEN     8547-GEN
   T6730           8547/GEN     8557-GEN
   T6740           8557/GEN     8567-GEN
   T6742           8567/GEN     8577-GEN
   T6744           8577/GEN     8587-GEN
   T6748           8587/GEN     8597-GEN
   T6750           8597/GEN     8606-GEN
   T6760           8606/GEN     8617-GEN
   T6770           8617/GEN     8628-GEN
   T6780           8628/GEN     8639-GEN
   T6790           8639/GEN     8650-GEN
   T6800           8650/GEN     8660-GEN
   T6810           8660/GEN     8670-GEN
   T6820           8670/GEN     8680-GEN
   T6830           8680/GEN     8690-GEN
   T6834           8690/GEN     8700-GEN
   T6840           8700/GEN     8710-GEN
   T6850           8710/GEN     8720-GEN
   T6860           8720/GEN     8730-GEN
   T6870           8730/GEN     8742-GEN
   T6880           8742/GEN     8749-GEN
   T6890           8749/GEN     8757-GEN
   T6900           8757/GEN     8764-GEN
   T6910           8764/GEN     8772-GEN
   T6920           8772/GEN     8781-GEN
   T6930           8781/GEN     8797-GEN
   T6940           8797/GEN     8813-GEN
   T6950           8813/GEN     8820-GEN
   T6960           8820/GEN     8826-GEN
   T6970           8826/GEN     8833-GEN
   T6980           8833/GEN     8839-GEN
   T6990           4160/CI      8839/GEN     8845-GEN
   T7000           8845/GEN     8868-GEN
   T7010           8868/GEN     8884-GEN
   T7015           8884/GEN     8902-GEN
   T7020           8902/GEN     8922-GEN
   T7030           8922/GEN     8943-GEN
   T7040           8943/GEN     8964-GEN
   T7050           8964/GEN     8985-GEN
   T7060           8985/GEN     9006-GEN
   T7070           9006/GEN     9027-GEN
   T7080           9027/GEN     9048-GEN
   T7090           9048/GEN     9069-GEN
   T7095           9069/GEN     9090-GEN
   T7100           9090/GEN     9111-GEN
   T7110           9111/GEN     9126-GEN
   T7120           9126/GEN     9141-GEN
   T7130           9141/GEN     9156-GEN
   T7140           9156/GEN     9171-GEN
   T7150           9171/GEN     9188-GEN
   T7155           9188/GEN     9205-GEN
   T7160           9205/GEN     9215-GEN
   T7170           9215/GEN     9231-GEN
   T7180           9231/GEN     9248-GEN
   T7190           9248/GEN     9267-GEN
   T7200           9267/GEN     9286-GEN
   T7210           9286/GEN     9305-GEN
   T7220           9305/GEN     9324-GEN
   T7230           9324/GEN     9342-GEN
   T7240           9342/GEN     9359-GEN
   T7250           9359/GEN     9376-GEN
   T7260           9376/GEN     9393-GEN
   T7270           9393/GEN     9409-GEN
   T7280           9409/GEN     9424-GEN
   T7290           9424/GEN     9445-GEN
   T7300           9445/GEN     9466-GEN
   T7310           9466/GEN     9485-GEN
   T7320           9485/GEN     9504-GEN
   T7330           9504/GEN     9522-GEN
   T7340           9522/GEN     9540-GEN
   T7350           9540/GEN     9558-GEN
   T7360           9558/GEN     9576-GEN
   T7370           9576/GEN     9592-GEN
   T7380           9592/GEN     9608-GEN
   T7390           9608/GEN     9624-GEN
   T7400           9624/GEN     9639-GEN
   T7410           9639/GEN     9654-GEN
   T7420           9654/GEN     9669-GEN
   T7430           9669/GEN     9684-GEN
   T7440           9684/GEN     9699-GEN
   T7450           9699/GEN     9714-GEN
   T7460           9714/GEN     9735-GEN
   T7470           9735/GEN     9757-GEN
   T7480           9757/GEN     9779-GEN
   T7490           9779/GEN     9805-GEN
   T7500           9805/GEN     9822-GEN
   T7510           9822/GEN     9839-GEN
   T7540           9839/GEN     9856-GEN
   T7550           9856/GEN     9874-GEN
   T7560           9874/GEN     9888-GEN
   T7570           9888/GEN     9904-GEN
   T7580           9904/GEN     9920-GEN
   T7590           9920/GEN     9935-GEN
   T7600           9935/GEN     9950-GEN
   T7610           9950/GEN     9965-GEN
   T7620           9965/GEN     9982-GEN
   T7630           9982/GEN     9999-GEN
   T7640           9999/GEN    10011-GEN
   T7650          10011/GEN    10022-GEN
   T7652          10022/GEN    10037-GEN
   T7652B         10043-LW     10060/B      10065/B      10070/B
   T7654          10037/GEN    10052-GEN
   T7656          10052/GEN    10063-GEN
   T7658          10063/GEN    10068-GEN
   T7660          10068/GEN    10073-GEN
   T7670          10073/GEN    10089-GEN
   T7680          10089/GEN    10106-GEN
   T7680B         10107/LI     10116-B
   T7690          10106/GEN    10119-GEN
   T7690B         10120/LI     10131-LW
   T7700          10119/GEN    10136-GEN
   T7700B         10138/LI     10148-AIO
   T7710          10136/GEN    10162-GEN
   T7710B         10164/LI     10179-AIO
   T7720          10162/GEN    10187-GEN
   T7720B         10189/LI     10205-AIO
   T7730          10187/GEN    10213-GEN
   T7730B         10215/LI     10230-AIO
   T7740          10213/GEN    10241-EQU
   T7770          10244-GEN
   T7780          10244/GEN    10255-GEN
   T7780B         10256/LI     10266-LW
   T7790          10255/GEN    10273-GEN
   T7790B         10274/LI     10284-LI
   T7800          10273/GEN    10289-GEN
   T7810          10289/GEN    10304-GEN
   T7810B         10309/LI     10319-LW
   T7820          10304/GEN    10326-GEN
   T7820B         10331/LI     10341-LI
   T7830          10326/GEN    10346-GEN
   T7840          10346/GEN    10366-GEN
   T7840B         10371/LI     10386-LW
   T7850          10366/GEN    10393-GEN
   T7850B         10398/LI     10414-LW
   T7860          10393/GEN    10419-GEN
   T7870          10419/GEN    10436-GEN
   T7880          10436/GEN    10458-GEN
   T7880B         10459/LI     10474-LW
   T8000          10458/GEN    10479-GEN
   T8010          10479/GEN    10496-GEN
   T8020          10496/GEN    10508-GEN
   T8030          10508/GEN    10526-GEN
   T8040          10526/GEN    10539-GEN
   T8050          10539/GEN    10558-GEN
   T8060          10558/GEN    10573-GEN
   T8070          10573/GEN    10587-GEN
   T8080          10587/GEN    10601-GEN
   T8090          10601/GEN    10619-GEN
   T8100          10619/GEN    10636-GEN
   T8104          10636/GEN    10650-GEN
   T8110          10650/GEN    10666-GEN
   T8120          10666/GEN    10684-GEN
   T8130          10684/GEN    10699-GEN
   T8140          10699/GEN    10714-GEN
   T8150          10714/GEN    10729-GEN
   T8160          10729/GEN    10744-GEN
   T8162          10744/GEN    10760-GEN
   T8164          10760/GEN    10776-GEN
   T8166          10776/GEN    10792-GEN
   T8170          10792/GEN    10807-GEN
   T8180          10807/GEN    10825-GEN
   T8190          10825/GEN    10839-GEN
   T8200          10839/GEN    10859-GEN
   T8210          10859/GEN    10872-EQU
   T8220          10876-GEN
   T8230          10876/GEN    10894-GEN
   T8240          10894/GEN    10907-GEN
   T8250          10907/GEN    10920-GEN
   T8260          10920/GEN    10935-GEN
   T8270          10935/GEN    10951-GEN
   T8280          10951/GEN    10967-GEN
   T8300          10967/GEN    10981-GEN
   T8310          10981/GEN    10997-GEN
   T8320          10997/GEN    11019-GEN
   T8330          11019/GEN    11034-GEN
   T8340          11034/GEN    11048-GEN
   T8340B         11050/LI     11061-LW
   T8350          11048/GEN    11067-GEN
   T8350B         11068/LI     11081-LW
   T8360          11067/GEN    11086-GEN
   T8370          11086/GEN    11101-GEN
   T8370B         11102/LI     11114-LW
   T8380          11101/GEN    11120-GEN
   T8380B         11121/LI     11134-LW
   T8390          11120/GEN    11140-GEN
   VALBIT           857-DATA
   VALDEX           861-EQU
   VALTAB           867/GEN     1781-TEXT
   VALTYPE          865-EQU
   VMMG            1371/#TYPE  11527-TEXTCS
   WC4             4198-AND     4207/B
   WDSAVE          1782-DATA    2999/STW     3001/LW
   WDTIND          1783-DATA    3322/MTW     3345/STW     8235/MTW     8263/MTW     8316/MTW     8335/MTW
      8850/MTW
   WDTRAP          1810/GEN     3316-EQU
   WDTT            1785/XPSD    1809-DATA    3331/LD      3347/MTW     3349/LPSD
   WDTTCC04        1784-DATA    3317/STCF    3319/LB      3334/LB
   WDTXPSD         1785-XPSD    3761/LW
   WDT20           3321/BCS     3326-LC
   WDT30           3328/BCS     3329/LI      3338-LC
   WDT40           3323/BCS     3339/BCS     3344-LI
   WDT60           3325/BCS     3327/BCS     3340/LI      3347-MTW
   WF4             4215-AND     4225/B
   WTRDC0          4194-EQU
   WTRDC1          4203-EQU
   WTRDF0          4210-EQU
   WTRDF1          4220-EQU
   ZZZ            11528-EQU    11668/ORG
   4START          2663/BCR     2682/BCR     2686/BCR     2692-LI
   4STARTIN        2801/BCR     2819/BCR     2826/BCR     2830/BCR     2844-LI
   %ERRFLAG        1786-DATA    3083/LW
   %RESET          2271-WD      2336/BAL     2357/BAL     2776/BAL
   %SPACES         1787-DATA    3085/LW
   #ABSZERO         796-EQU
   #ARMUSER%        835-EQU     3864/BAL*    3918/BAL*
   #BRKOUT          821-EQU
   #BTE%            584/BAL*     832-EQU
   #BTECON          573-CNAME
   #DIAG@           881-DATA
   #DISUSER%        833-EQU
   #DM%END          823-EQU
   #DM%START        822-EQU
   #DMENTRY%        846-EQU
   #ENUSER%         834-EQU
   #ERRTEXT%        843-EQU
   #ERR1PTR%        844-EQU
   #ETH%            664/BAL*     830-EQU
   #ETHCON          629-CNAME
   #FIDLE%          838-EQU     1044/B*      1057/B*      1064/BAL*    1094/B*      1098/B*      1111/B*
      1158/B*      1225/B*      1276/B*      1303/B*      1316/B*      1385/B*      3756/BAL*    3831/B*
      4133/B*
   #GUIDE%          837-EQU    11457/BAL*
   #GUIDEBUF        848-EQU
   #HDRFLG          800-EQU
   #HTE%            533/BAL*     831-EQU
   #HTECON          523-CNAME
   #INDEX           807-EQU
   #INITIAL@        878-DATA
   #IOPINIT         927-EQU    11456/BAL
   #LOADER@         882-DATA     933/LW*      935/LW*      938/LW*      942/LW*      943/AW      3515/STW*
     11455/STW
   #LOADFLAG        801-EQU     2169/MTW
   #MAXMEM          819-EQU
   #MTLFLAG         802-EQU     2200/LW      2205/LW      3492/MTW     3853/MTW
   #ONLINE          884-DATA
   #OUTBUF@         883-DATA
   #OUTPTR          805-EQU
   #P%MODE%         847-EQU
   #PAKDEX          806-EQU
   #PARAM%H1        808-EQU
   #PARAM%H2        809-EQU
   #PARAM%H3        810-EQU
   #PARAM%H4        811-EQU
   #PARAM1          815-EQU     1019/DATA
   #PARAM2          816-EQU     1028/DATA    1031/#ETHCON
   #PARAM3          817-EQU
   #PARAM4          818-EQU
   #PLINEIN@        880-DATA
   #PRINT           688-CNAME
   #PRINTER%        688/CNAME    842-EQU
   #PRTADDR         804-EQU     1330/STW     2177/LW      2181/#HTECON 3513/STW
   #RETURN%         840-EQU     1391/B*
   #RUNADDR%        839-EQU     1841/XPSD*
   #SAMPLE          820-EQU     3880/XPSD*   3922/XPSD*
   #SCANPARAM       849-EQU     1018/BAL*    1027/BAL*
   #SENSE           799-EQU     1827/LC      1829/LC      1833/LC      1849/LC      2037/LC      2057/LC
      2060/LC      2355/LC      3160/LC      3172/LC      3193/LC      3222/LC      3232/LC      3242/LC
      3258/LC      3269/LC      3287/LC      3300/LC      3326/LC      3338/LC      3885/STW     3887/LC
      3959/LC
   #STATUS          813-EQU
   #TABLE1A         798-ORG
   #TABLE1B         829-ORG
   #TABLE2@         877-ORG
   #TABLE3@         879-DATA
   #TESTINIT        812-EQU     2193/LCF
   #TOADDR          803-EQU     1382/STW     3510/STW     3848/LW      3908/LW      4109/HIO*
   #TRAPLNK         824-EQU     3164/STW     3180/STW     3197/STW     3214/STW     3236/STW     3250/STW
      3262/STW     3277/STW     3291/STW     3310/STW     3330/STW     3346/STW     3753/STW
   #TYPE            689-CNAME
   #TYPER%          689/CNAME    841-EQU
   #VALTAB%         845-EQU
