1 C00   22:11 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   22:11 JUN 20,'83    SIGMA 5/7 SIOP WITH M. S. 960-0061-1A 08-04-81                        PAGE    2
A       1                             TITLE 'SIGMA 5/7 SIOP WITH M. S. 960-0061-1A 08-04-81'
        2                            *
        3                            *
        4                                     SYSTEM   SIG7FDP
        5                            *
        6                            *
        7                            *
        8                            *
        9                            * PROGRAM OBJECTIVES
       10                            *
       11                            *   THIS PROGRAM WILL PROVIDE THE USER WITH A MEANS OF TESTING AN
       12                            *   SIOP INDEPENDENTLY OF PERIPHERAL ENVIRONMENT.
       13                            *
       14                            * PROGRAM MODIFICATIONS
       15                            *                                                                   *A01
       16                            *REVISION A01(10/13/70) MODIFICATIONS INDICATED IN COLS 69-72 BY AN *A01
       17                            *                 PROGRAM MODIFIED TO:                              *A01
       18                            *                 1. SUPPRESS PRINT OUT IN SHORT LOOP.              *A01
       19                            *                 2. UPDATE COOK BOOK.                              *A01
       20                            *
       21                            * OPERATING REQUIREMENTS AND SPECIFICATIONS
       22                            *
       23                            *
       24                            *   REQUIRED EQUIPMENT       SIGMA 5/7 WITH 16K OF MEMORY
       25                            *                            MIOP WITH KSR AND TAPEDECK, PAPER TAPE
       26                            *                            OR CARD READER. (THIS MIOP MUST BE
       27                            *                            OPERATIONAL)
       28                            *                            A SIOP, WHICH IS TO BE TESTED, WITH
       29                            *                            A MAINTENANCE SUBCONTROLLER.
       30                            *
       31                            *
       32                            *   PROGRAM PREREQUISITES    THE USER MUST BE ABLE TO LOAD THE PROGRAM
       33                            *                            INTO MEMORY.  THE IOP AND CHANNEL NUMBERS
       34                            *                            TO BE TESTED MUST BE SUPPLIED TO THE PRO-
       35                            *                            GRAM AS WELL AS THE MAINTENANCE SUBCONTROL-
       36                            *                            ER DIO ADDRESS AND OUTPUT ADDR.
       37                            *
       38                            *                            PRIOR TO RUNNING THE IOP TEST,
       39                            *                            THE USER SHOULD VERIFY THAT THE
       40                            *                            M.S.  IS FUNCTIONING PROPERLY
       41                            *                            VIA USE OF THE 'MAINTENANCE SUBCONTROLLER
       42                            *                            SELF-TEST PROGRAM CATALOG NO. 705723.
       43                            *
       44                            *   CORE STORAGE             10K
       45                            *
       46                            *   RUN TIME                 APPROXIMATELY 5 SECONDS PER CHANNEL
       47                            *                            FOR ALL TESTS,  T100 THRU T119.
       48                            *
       49                            *   PROGRAM MEDIA            SELF-LOADING CARDS, PAPER TAPE OR MAG. TAPE
       50                            *
       51                            *   SOURCE LANGUAGE          SIGMA METASYMBOL.  SEE SDS SIGMA SYMBOL AND
       52                            *                            METASYMBOL REFERANCE MANUAL 900952.
       53                            *
       54                            *
       55                            *
       56                            *
       57                            * LOADING PROCEDURE      (A) RESET ALL SENSE SWITCHES.
       58                            *                        (B) EXECUTE A 'LOAD' FUNCTION FROM THE PCP.
       59                            *
       60                            *
       61                            *   PROGRAM INITIALIZATION
       62                            *
       63                            *                            IMMEDIATELY SUBSEQUENT TO SUCCESSFUL PRO-
       64                            *                            GRAM LOADING, THE PROGRAM WILL EXECUTE AN
       65                            *                            SIO TO THE UNIT ASR/KSR, ASSUMING AN I/O
       66                            *                            UNIT ADDRESS OF HEX '001' (IOP=0, DC=1).
       67                            *
       68                            *                            IF THE SIO IS UNSUCCESSFUL, THE PROGRAM
       69                            *                            WILL DEFAULT TO A WAIT AT %WAIT1.  AT THIS
       70                            *                            TIME THE USER MUST ENTER A VALID ASR/KSR
       71                            *                            I/O UNIT ADDRESS INTO R0: IOP NUMBER INTO
       72                            *                            BITS 21-23, DEVICE CONTROLLER NUMBER INTO
       73                            *                            BITS 24-31.  UPON CLEARING THE 'WAIT',
       74                            *                            (TOGGLEING THE COMPUTE SWITCH),THE PROGRAM
       75                            *                            WILL PROCEED NORMALLY AS DESCRIBED BELOW.
       76                            *
       77                            *                            NOTE:  THE REGISTER 0 ENTRY AT THE TIME OF
       78                            *                                   THE DEFAULT 'WAIT' IS THE ONLY PCP
       79                            *                                   DATA ENTRY CONDITION NECESSARY IN
       80                            *                                   THE RUNNING OF THE PROGRAM.  ALL
       81                            *                                   OTHER ENTRIES WILL BE TYPED IN ON
       82                            *                                   THE UNIT ASR/KSR.
       83                            *
       84                            *
       85                            *
       86                            *
       87                            *
       88                            *   PARAMETER INPUT
       89                            *
       90                            *                            UPON SUCCESSFUL COMPLETION OF THE SIO,
       91                            *                            THE KEYBOARD PRINTER (ASR/KSR) WILL
       92                            *                            OUTPUT THE INITIAL REQUEST-DIRECTIVE-INPUT
       93                            *                            CHARACTER: '%' AND THE UNIT ASR/KSR WILL
       94                            *                            BE SELECTED FOR INPUT.
       95                            *
       96                            *                            AT THE TIME OF THE INITIAL REQUESTS FOR
       97                            *                            DIRECTIVE INPUT FOLLOWING EITHER LOADING
       98                            *                            OR PROGRAM RECOVERY, CERTAIN I/O CONFIG-
       99                            *                            URATION AND TEST DATA MUST BE MADE KNOWN
      100                            *                            TO THE PROGRAM.  TO ACCOMPLISH THIS, THE
      101                            *                            USER MUST ENTER ONE EACH OF THE FOUR INPUT
      102                            *                            DIRECTIVES:  OUT, DIO, ADR, AND RUN.
      103                            *
      104                            *                            NOTE:  ON SUCCESSIVE REQUESTS FOR INPUT
      105                            *                                   AS INITIATED BY SENSE SWITCH ONE,
      106                            *                                   (RETURN TO KEYBOARD CONTROL), IT
      107                            *                                   IS NOT NECESSARY TO RE-ENTER A
      108                            *                                   GIVEN DIRECTIVE WHEN THAT DIRECTIVE
      109                            *                                   DATA IS NOT TO BE CHANGED.
      110                            *
      111                            *                            NOTE:  ALL DIRECTIVE INPUTS WILL BE TERMIN-
      112                            *                                   ATED WITH THE NEW-LINE KEY.
      113                            *                                   INCORRECT DIRECTIVE INPUT WILL
      114                            *                                   RESULT IN THE OUTPUT MESSAGE:
      115                            *
      116                            *                                             'SYNTAX ERROR'
      117                            *
      118                            *                                   AND THE ASR/KSR WILL AGAIN BE
      119                            *                                   SELECTED FOR INPUT.
      120                            *
      121                            *
      122                            *
      123                            *                        (1) THE 'OUT' DIRECTIVE
      124                            *
      125                            *                 FUNCTION   THE OUT DIRECTIVE SUPPLIES THE PROGRAM
      126                            *                            WITH THE I/O UNIT ADDRESS AND TYPE OF
      127                            *                            THE DESIRED OUTPUT DEVICE.
      128                            *
      129                            *                 DEFAULT    FAILURE TO ENTER THE OUT DIRECTIVE UPON
      130                            *                            INITIALIZATION WILL RESULT IN THE DEFAULT
      131                            *                            SELECTION OF THE LINE PRINTER AS THE UNIT
      132                            *                            OUTPUT DEVICE WITH AN ASSUMED I/O UNIT
      133                            *                            ADDRESS OF HEX  '002' (IOP=0, DC=2).
      134                            *
      135                            *                 FORM       OUT,XXXY
      136                            *                            WHERE XXX IS A THREE DIGIT HEXADECIMAL
      137                            *                            NUMBER WITH A VALUE RANGE OF X'000'-X'7FF';
      138                            *                            AND WHERE Y IS THE PERIPHERAL-TYPE DESIG-
      139                            *                            NATOR: K FOR KSR, L FOR LINEPRINTER.
      140                            *
      141                            *                 EXAMPLE    %OUT,001K ....OUTPUT DEVICE 1 ON IOP 0 -KSR
      142                            *                            %OUT,007L ....OUTPUT DEVICE 7 ON IOP 0 -LP
      143                            *                            %OUT,40CK ....OUTPUT DEVICE C ON IOP 4 -KSR
      144                            *
      145                            *                            NOTE:  UPON ENTERING THE OUT DIRECTIVE,
      146                            *                                   A DISPLAY GROUP READOUT INTERPRE-
      147                            *                                   TATION TABLE AND AN INITIALIZATION
      148                            *                                   MESSAGE WILL BE OUTPUT ON THE LINE
      149                            *                                   PRINTER OR ON THE ASR/KSR IF NO
      150                            *                                   LINE PRINTER IS AVAILABLE.
      151                            *
      152                            *
      153                            *                            NOTE-  DUE TO THE LENGTH OF TIME REQUIRED
      154                            *                            TO OUTPUT THE TABLE AND INITIALIZATION MSG
      155                            *                            ON THE KSR, IT MAY BE DESIREABLE TO ELIMIN-
      156                            *                            ATE THESE OUTPUTS  WHEN ONLY THE KSR IS
      157                            *                            AVAILABLE.  THIS MAY BE ACCOMPLISHED BY
      158                            *                            SIMPLY DEPRESSING THE BREAK KEY ON THE KSR
      159                            *                            AT ANY TIME AFTER THE OUTPUT HAS BEGUN.
      160                            *
      161                            *
      162                            *                             UPON COMPLETION OF THE TABLE AND INITIAL-
      163                            *                             IZATION MESSAGE, THE UNIT ASR/KSR WILL
      164                            *                             AGAIN OUTPUT THE REQUEST-DIRECTIVE-INPUT
      165                            *                             CHARACTER: '%' AND BE SELECTED FOR INPUT.
      166                            *                             THE USER MUST NOW INPUT THE DIO DIRECTIVE.
      167                            *
      168                            *
      169                            *                         (2) THE 'DIO' DIRECTIVE
      170                            *
      171                            *                 FUNCTION    THE DIO DIRECTIVE SUPPLIES THE PROGRAM
      172                            *                             WITH THE DIO ADDRESS OF THE MAINTENANCE
      173                            *                             SUBCONTROLLER ATTACHED TO THE IOP UNDER
      174                            *                             TEST.
      175                            *
      176                            *                 DEFAULT    FAILURE TO ENTER THE DIO DIRECTIVE UPON
      177                            *                            INITIALIZATION WILL RESULT IN A DEFAULT
      178                            *                            ASSUMPTION OF AN MS DIO ADDRESS OF X'00'.
      179                            *
      180                            *                 FORM       DIO,XX
      181                            *                            WHERE XX IS A TWO DIGIT HEXADECIMAL NUMBER
      182                            *                            WITH THE VALUE RANGE: X'00'-X'7F'.
      183                            *
      184                            *                 EXAMPLE    %DIO,7F .... DIO ADDRESS EQUALS HEX '7F'
      185                            *                            %DIO,14 .... DIO ADDRESS EQUALS HEX '14'
      186                            *                            %DIO,AA .... DIO ADDRESS EQUALS HEX 'AA'
      187                            *
      188                            *                            UPON ENTERING THE DIO DIRECTIVE, THE UNIT
      189                            *                            ASR/KSR WILL AGAIN OUTPUT THE REQUST-DIR-
      190                            *                            ECTIVE-INPUT CHARACTER: '%' AND BE SELECTED
      191                            *                            FOR INPUT.  THE USER MUST NOW INPUT THE
      192                            *                            ADR DIRECTIVE.
      193                            *
      194                            *
      195                            *                        (3) THE 'ADR' DIRECTIVE
      196                            *
      197                            *                 FUNCTION   THE ADR DIRECTIVE SUPPLIES THE PROGRAM
      198                            *                            WITH THE I/O UNIT ADDRESS (INCLUDING SUB-
      199                            *                            CHANNEL) OF THE IOP TO BE TESTED. IT IS
      200                            *                            ALSO CAPEABLE OF SUPPLYING A RANGE OF
      201                            *                            DEVICE CONTROLLER, (SUBCHANNEL) ADDRESSES
      202                            *                            WITH A GIVEN IOP.
      203                            *
      204                            *                 DEFAULT    FAILURE TO ENTER AN INITIAL ADR DIRECTIVE
      205                            *                            WILL RESULT IN A DEFAULT ASSIGNMENT OF IOP
      206                            *                            ZERO AND DC ZERO AS THE TEST I/O UNIT ADDR.
      207                            *
      208                            *                 FORM       ADR,D1D2D3
      209                            *                            WHERE D1 IS A DECIMAL NUMBER INDICATING
      210                            *                            THE IOP NUMBER TO BE TESTED: 0<D1<7, AND
      211                            *                            WHERE D2 IS A DECIMAL NUMBER INDICATING
      212                            *                            THE LOWEST DC ADDRESS TO BE TESTED:
      213                            *                            00<D2<24, AND WHERE D3 IS A DECIMAL NUMBER
      214                            *                            INDICATING THE HIGHEST DC ADDRESS TO BE
      215                            *                            TESTED:  00<D3<24.
      216                            *
      217                            *                 EXAMPLE    %ADR,10101 .... TEST CHANNEL ONE ON IOP ONE
      218                            *                            %ADR,40023 .... TEST ALL CHANNELS ON IOP 4
      219                            *                            %ADR,20415 .... TEST CHANNELS 4-15 ON IOP 2
      220                            *
      221                            *                            UPON ENTERING THE ADR DIRECTIVE, THE UNIT
      222                            *                            ASR/KSR WILL AGAIN OUTPUT THE REQUEST-DIR-
      223                            *                            ECTIVE-INPUT CHARACTER: '%' AND BE SELECTED
      224                            *                            FOR INPUT.  THE USER MUST NOW ENTER THE RUN
      225                            *                            DIRECTIVE.
      226                            *
      227                            *
      228                            *                        (4) THE 'RUN' DIRECTIVE
      229                            *
      230                            *                 FUNCTION   THE RUN DIRECTIVE SUPPLIES THE PROGRAM
      231                            *                            WITH THE TEST NUMBERS IT IS TO EXECUTE,
      232                            *                            AND INDICATION AS TO WHETHER OR NOT IT
      233                            *                            IS TO MAKE 'COOKBOOK' COMPARISON UPON
      234                            *                            ERROR DETECTION
      235                            *
      236                            *                 DEFAULT    NO TESTS WILL BE RUN PRIOR TO INPUT OF
      237                            *                            THIS DIRECTIVE.
      238                            *
      239                            *
      240                            *                            THERE ARE TWO DISTINCT FORMS FOR THIS
      241                            *                            DIRECTIVE:
      242                            *
      243                            *                         I. SIMPLEX COMPARE:  RUN TO-T19 SEQUENTIALLY
      244                            *                            AND MAKE 'COOKBOOK' COMPARISON UPON ERROR
      245                            *                            DETECTION.
      246                            *
      247                            *                 FORM       RUN
      248                            *                 EXAMPLE    %RUN
      249                            *
      250                            *
      251                            *                        II. SELECTIVE - NO COMPARE:  RUN THOSE TESTS
      252                            *                            WHOSE NUMBERS FOLLOW THE DIRECTIVE. DO NOT
      253                            *                            MAKE 'COOKBOOK' COMPARISON UPON ERROR
      254                            *                            DETECTION.
      255                            *
      256                            *                 FORMS      RUN,
      257                            *                            RUN,TX
      258                            *                            RUN,TX,TY
      259                            *                            RUN,TY-TZ
      260                            *                            RUN,TX,TY-TZ,TN
      261                            *
      262                            *                            A 'T' ALWAYS PRECEEDS A TEST NUMBER.
      263                            *                            A COMMA SEPERATES INDIVIDUAL TESTS OR
      264                            *                              CONTIGUOUS GROUPS OF TESTS.
      265                            *                            A HYPHEN SEPERATES CONTIGUOUS TESTS.
      266                            *
      267                            *                 EXAMPLES   %RUN, ....RUN EXISTING TEST PATTERN
      268                            *                            %RUN,T108 ....RUN TEST 108
      269                            *                            %RUN,T108,T112 ....RUN TESTS 108 AND 112
      270                            *                            %RUN,T112-T115 ....RUN TESTS 112 THRU 115
      271                            *                            %RUN,T108,T112-T115,T119 ....RUN TESTS 108,
      272                            *                                                         T112 THRU T115
      273                            *                                                         AND T119.
      274                            *
      275                            *
      276                            *
      277                            *
      278                            *
      279                            *
      280                            *
      281                            *
      282                            *
      283                            *
      284                            * PROGRAM RECOVERY           FOR PROGRAM RECOVERY, SET THE 'COMPUTE'
      285                            *                            SWITCH TO THE 'IDLE' POSITION, HIT THE
      286                            *                            'SYSTEM RESET' SWITCH ON THE PCP AND SET
      287                            *                            THE COMPUTE SWITCH TO RUN.  THE KSR
      288                            *                            WILL BE SELECTED FOR INPUT AS PREVIOUSLY
      289                            *                            DESCRIBED.
      290                            *
      291                            *
      292                            * PROGRAM RESTART            FOR PROGRAM RESTART, SET SENSE SWITCH 1.
      293                            *                            WHEN THE KEYBOARD PRINTER IS SELECTED,
      294                            *                            INPUT NEW DIRECTIVES AS APPLICABLE.
      295                            *
      296                            *
      297                            *
      298                            *
      299                            *
      300                            *
      301                            *
      302                            * CONTROL OPTIONS
      303                            *   THE FOLLOWING TABLE LISTS THE SENSE SWITCH OPTIONS AVAILABLE
      304                            *   TO THE USER.  NO OPTIONS ARE INTERRELATED.  ALL ARE IN EFFECT
      305                            *   AFTER TESTING HAS BEGUN.
      306                            *
      307                            *   S E N S E   S W I T C H   O P T I O N S
      308                            *
      309                            *
      310                            * SWITCH STATUS   FUNCTION
      311                            *
      312                            *  SS1    SET     HALT TESTING SEQUENCE, RETURN FOR USER COMMUNICATION
      313                            *         RESET   CONTINUE TESTING SEQUENCE
      314                            *
      315                            *  SS2    SET     DO NOT LOOP ON ERROR
      316                            *         RESET   LOOP ON ERROR
      317                            *
      318                            *  SS3    SET     DO NOT GIVE TEST COMPLETE INDICATION
      319                            *         RESET   GIVE TEST COMPLETE INDICATION
      320                            *
      321                            *  SS4    SET     INHIBIT DISPLAY GROUP ERROR OUTPUT
      322                            *         RESET   ALLOW DISPLAY GROUP ERROR OUTPUT
      323                            *
      324                            *
      325                            *                            NOTE:  CONSOLE INTERRUPT IS TO BE USED
      326                            *                                   ONLY FOR PROGRAM 'COOKBOOK' UPDATE.
      327                            *
      328                            *
      329                            *
      330                            *
      331                            *
      332                            *   PROGRAM PRINTOUTS
      333                            *
      334                            * MESSAGE         MEANING
      335                            *
      336                            * %      REQUEST-DIRECTIVE-INPUT-CHARACTER
      337                            * SYNTAX ERROR    IMPROPER DIRECTIVE INPUT
      338                            * TEST COMPLETED ADDRESS 0XNN      INDICATES SUCCESSFUL COMPLETION
      339                            *                                  OF THE SELECTED TESTS ON IOP X,
      340                            *                                  SUBCHANNEL NN.
      341                            *
      342                            * ERROR TEST 1XX-0N    INDICATES A FAILURE IN TEST 1XX, SUBTEST 0N.
      343                            * ERR WORD 1 = HHHHHHHH    THE EIGHT DIGIT HEXADECIMAL ERROR WORDS ARE
      344                            * ERR WORD 2 = HHHHHHHH    USED TO SUPPLY THE USER WITH DATA PERTINENT
      345                            * ERR WORD 3 = HHHHHHHH    TO THE FAILURE.
      346                            *
      347                            *
      348                            *
      349                            * SIOP DISPLAY GROUP (SNAPSHOT) ERROR PRINTOUT
      350                            *
      351                            * FOLLOWING THE ERROR WORDS THERE WILL BE A PRINTOUT OF EACH OF THE
      352                            * TEN SIOP DISPLAY GROUPS IN HEX:
      353                            *
      354                            * GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP8 GRP9 GRPA
      355                            * HHHH HHHH HHHH HHHH HHHH HHHH HHHH HHHH HHHH HHHH
      356                            *
      357                            * THIS SINGLE LINE HEX TYPEOUT WILL BE REPEATED X TIMES, WHERE
      358                            * X IS THE NUMBER OF PHASES EXECUTED IN THE SIOP DURING THE OPERATION
      359                            * IN ERROR. THE RESULTING 'SNAPSHOT-MATRIX' HAS TEN COLUMNS. EACH COLUMN
      360                            * HAS A HEADING GRP1-GRPA.  EACH GROUP HAS 4 HEXADECIMAL DIGITS WHICH
      361                            * REPRESENT THE SIOP DISPLAY DATA, OUTPUT IN TABLE FORM FOLLOWING ENTRY
      362                            * OF THE OUT DIRECTIVE.
      363                            *
      364                            *                                   THIS 'SNAPSHOT-MATRIX'
      365                            *                            GIVES THE STATE OF THE IOP AS IT IS
      366                            *                            SEQUENCING THRU A TEST.  IF SIMPLEX COM-
      367                            *                            PARE IS RUN, THE CORRECT SNAPSHOT LINE
      368                            *                            WILL BE PRINTED ABOVE ANY LINE IN WHICH
      369                            *                            MISCOMPARISON WAS DETECTED.  ERRORED LINES
      370                            *                            WILL BE FLAGGED WITH A '>', AND ERRORED
      371                            *                            GROUPS WILL BE FLAGGED WITH AN ASTERISK.
      372                            *                            LINE SPACEING WILL BE GIVEN BEFORE AND
      373                            *                            AFTER THE DOUBLE LINE 'COOKBOOK/MISCOM-
      374                            *                            PARE OUTPUT, IN ORDER TO OFFSET MISCOMPARES
      375                            *                            FROM VALID LINES.
      376                            *
      377                            *                            SNAPSHOT LINES WILL BE GROUPED INTO
      378                            *                            SERVICE CYCLES AND THE SERVICE CYCLE
      379                            *                            HEADER WILL BE PRINTED IMMEDIATELY ABOVE
      380                            *                            THE SERVICE CYCLE.  IN THE CASE OF THE
      381                            *                            SIMPLEX-COMPARE OUTPUT, THE OUTPUT WILL
      382                            *                            BEGIN WITH THE SERVICE CYCLE IN WHICH THE
      383                            *                            MISCOMPARE WAS FIRST DETECTED.  IF NO
      384                            *                            MISCOMPARISON WAS DETECTED, THE SIMPLEX-
      385                            *                            COMPARE OUTPUT WILL APPEAR IDENTICAL
      386                            *                            TO THE SELECTIVE-NO COMPARE OUTPUT.
      387                            *
      388                            *
      389                            *
      390                            *
      391                            *
      392                            *
      393                            *
      394                            *
      395                            *
      396                            *
      397                            *
      398                            *
      399                            *
      400                            *
      401                            *
      402                            *
      403                            *
      404                            *
      405                            *
      406                            *
      407                            * T E S T   D E S C R I P T I O N
      408                            * TEST 100        TEST SIO COMPLETION
      409                            * TEST 101        TEST FUNCTION INDICATOR LINES
      410                            * TEST 102        TEST FUNCTION RESPONSE LINES
      411                            * TEST 103        TEST CONDITION CODE LINES
      412                            * TEST 104        TEST ORDER OUT
      413                            * TEST 105        TEST COMMAND ADDRESS (DECREMENT)
      414                            * TEST 106        TEST COMMAND ADDRESS (INCREMENT)
      415                            * TEST 107        TEST DATA OUT (ONE BYTE INTERFACE)
      416                            * TEST 108        TEST DATA OUT (TWO BYTE INTERFACE)
      417                            * TEST 109        TEST DATA OUT (FOUR BYTE INTERFACE)
      418                            * TEST 110        TEST DATA OUT (DATA CHAINING)
      419                            * TEST 111        TEST DATA OUT (FREE RUN)
      420                            * TEST 112        TEST DATA IN (FOUR BYTE INTERFACE)
      421                            * TEST 113        TEST DATA IN (TWO BYTE INTERFACE)
      422                            * TEST 114        TEST DATA IN (ONE BYTE INTERFACE)
      423                            * TEST 115        TEST DATA IN (READ BACKWARD)
      424                            * TEST 116        TEST DATA IN (SKIP)
      425                            * TEST 117        TEST ORDER IN (FLAGS AND STATUS)
      426                            * TEST 118        TEST TRANSFER IN CHANNEL
      427                            * TEST 119        TEST INTERRUPT PROCESSING
      428                            *
      429                            *
      430                            *
      431                            *
      432                            *
      433                            *
      434                            *
      435                            *
      436                            *
      437                            *
      438                            *
      439                            *
      440                            *
      441                            *
      442                            *
      443                            *
      444                            *
      445                            *
      446                            *
      447                            *
      448                            *
      449                            *
      450                            *
      451                            *
      452                            *
      453                            *
      454                            *
      455                            *
      456                            *
      457   01 00140                          ORG      320
            01 00140
      458                            *
      459                            *
      460                            *        TEST CASE COMMAND PAIRS AND DATA TABLES
      461                            *
      462                            *
      463   01 00140    00000000 A   SIODBWRD DATA     0
      464   01 00141    00000000 A            DATA     0
      465   01 00142    B1000514     TSTSIO   GEN,8,24 177,BA(PAT1+1)    ORDER = WRITE, BA = PAT1+1
      466   01 00143    00000004 A            DATA     4                 BYTE COUNT = 4
      467   01 00144    01020408 A   PAT1     DATA     X'01020408'
      468   01 00145    10204080 A            DATA     X'10204080'
      469   01 00146    55AAFF00 A            DATA     X'55AAFF00'
      470   01 00147    99010204 A   PAT2     DATA     X'99010204'
      471   01 00148    08102040 A            DATA     X'08102040'
      472   01 00149    80999999 A            DATA     X'80999999'
      473   01 0014A    99990102 A   PAT3     DATA     X'99990102'
      474   01 0014B    04081020 A            DATA     X'04081020'
      475   01 0014C    40809999 A            DATA     X'40809999'
      476   01 0014D    99999901 A   PAT4     DATA     X'99999901'
      477   01 0014E    02040810 A            DATA     X'02040810'
      478   01 0014F    20408099 A            DATA     X'20408099'
      479   01 00150    00000000 A   DINPUT   DATA     0
      480   01 00151    00000000 A            DATA     0
      481   01 00152    FFFFFFFF A   ONEBYTE  DATA     X'FFFFFFFF'
      482   01 00153    00000000 A            DATA     0
      483   01 00200                          ORG      512
            01 00200
      484                            *         POWER OFF INTERRUPT ROUTINE                                   MIOP0030
      485                            *                                                                       MIOP0040
      486   01 00200    6AF0048D     POWOF1   BAL,15   REGSAVE           SAVE REG VALUES
      487   01 00201    2E000000 A            WAIT
      488                            *                                                                       MIOP0110
      489                            *               POWER ON ROUTINE                                        MIOP0120
      490   01 00202    6AF00491     POWON    BAL,15   REGRESTR          RESTORE REG VALUES
      491   01 00203    0E2003DC              LPSD,2   POWOF                                                 MIOP0180
      492                            *                                                                       MIOP0190
      493                            *                   MEMORY PARITY  ROUTINE                              MIOP0200
      494   01 00204    350003FD     MEPAR1   STW,0    TEMPI                                                 MIOP0210
      495   01 00205    320003E0              LW,0     MEPAR             XR0 = INTERRUPTED ADDRESS           MIOP0220
      496   01 00206    2E000000 A            WAIT                                                           MIOP0230
      497   01 00207    320003FD              LW,0     TEMPI
      498   01 00208    0E3003E0              LPSD,3   MEPAR                                                 MIOP0250
      499                            *                                                                       MIOP0260
      500                            *              INVALID OF CODE                                          MIOP0270
      501                            *                                                                       MIOP0280
      502   01 00209    350003FD     BADOP1   STW,0    TEMPI                                                 MIOP0290
      503   01 0020A    6840020E              BCR,4    %+4                                                   MIOP0300
      504   01 0020B    32003019              LW,0     L(1)                                                  MIOP0310
      505   01 0020C    35000213              STW,0    MAE                                                   MIOP0320
      506   01 0020D    68000210              B        %+3
      507   01 0020E    320003EC              LW,0     BADOP                                                 MIOP0340
      508   01 0020F    2E000000 A            WAIT                                                           MIOP0350
      509   01 00210    320003FD              LW,0     TEMPI                                                 MIOP0360
      510   01 00211    331003EC              MTW,1    BADOP                                                 MIOP0370
      511   01 00212    0E3003EC              LPSD,3   BADOP                                                 MIOP0380
      512   01 00213    00000000 A   MAE      DATA     0                                                     MIOP0390
      513                            *                                                                       MIOP0400
      514                            *              WATCHDOG TIMER RUNOUT                                    MIOP0410
      515                            *                                                                       MIOP0420
      516   01 00214    3500021A     WDTIM1   STW,0    TEMPI3                                                MIOP0430
      517   01 00215    3200301A              LW,0     L(-1)                                                 MIOP0440
      518   01 00216    350003FE              STW,0    WDTI                                                  MIOP0450
      519   01 00217    331003E8              MTW,1    WDTIM                                                 MIOP0460
      520   01 00218    3200021A              LW,0     TEMPI3                                                MIOP0470
      521   01 00219    0E3003E8              LPSD,3   WDTIM                                                 MIOP0480
      522                            *                                                                       MIOP0490
      523   01 0021A    00000000 A   TEMPI3   DATA     0                                                     MIOP0500
      524                            *                                                                       MIOP0510
      525                            *                                                                       MIOP0520
      526                            *              IOP INTERRUPT                                            MIOP0530
      527                            *                                                                       MIOP0540
      528   01 0021B    35100229     IOPIN1   STW,1    TEMPI2            SAVE XR1                            MIOP0550
      529   01 0021C    22400030 A            LI,4     X'30'
      530   01 0021D    6D401100 A            WD,4     X'1100'           DISABLE IO GROUP INTERRUPTS
      531   01 0021E    6AF00527              BAL,15   STRTSUB
      532   01 0021F    22400009 A            LI,4     9
      533   01 00220    ED40041C              WD,4     *GRP0             ENABLE TM DELAY LINE
      534   01 00221    6E100000 A            AIO,1    0
      535   01 00222    33100520              MTW,1    FIFLG
      536   01 00223    225FFFFD A            LI,5     -3
      537   01 00224    6AF004BD              BAL,15   PHASNAP           SINGLE PHASE FI01, FM01, FM13, FM14
      538   01 00225    32100020 A            LW,1     X'20'             FETCH AIO STATUS
      539   01 00226    35100401              STW,1    IOPINS                                                MIOP0710
      540   01 00227    32100229              LW,1     TEMPI2                                                MIOP0720
      541   01 00228    0E3003E4              LPSD,3   IOPIN                                                 MIOP0730
      542   01 00229    00000000 A   TEMPI2   DATA     0                                                     MIOP0740
      543                            *                                                                       MIOP0760
      544                            *              CONTROL PANEL INTERRUPT                                  MIOP0770
      545                            *                                                                       MIOP0780
      546   01 0022A    680003A8     NOTCOOK  B        RE3
      547   01 0022B    6AF0036D     COOK     BAL,15   ERROR
      548   01 0022C    00000000 A   CBFLG    DATA     0
      549   01 0022D    35100238     CONIN1   STW,1    TEMPI1                                                MIOP0790
      550   01 0022E    3300022C              MTW,0    CBFLG             IS THIS THE INITIAL INTERRUPT
      551   01 0022F    68300235              BCR,3    TIMEONE           YES, SET CBFLG AND STORE COOK
      552   01 00230    3310022C              MTW,1    CBFLG             NO, CLEAR CBFLG AND STORE NOTCOOK
      553                            *
      554   01 00231    3210022A              LW,1     NOTCOOK           FETCH NORMAL RETURN BRANCH
      555                            *
      556   01 00232    351003A7     COOKRET  STW,1    COOKCHNG          SET COOKCHNG TO FETCHED VALUE
      557   01 00233    32100238              LW,1     TEMPI1            RESTORE R1
      558   01 00234    0E3003D8              LPSD,3   CONIN                                                 MIOP0810
      559                            *                                                                       MIOP0820
      560   01 00235    33F0022C     TIMEONE  MTW,-1   CBFLG             SET CBFLG TO A NEGATIVE ONE
      561   01 00236    3210022B              LW,1     COOK              FETCH COOK STORE VALUE
      562   01 00237    68000232              B        COOKRET           EXIT
      563   01 00238    00000000 A   TEMPI1   DATA     0                                                     MIOP0830
      564                            *                                                                       MIOP0840
      565                            *                                                                       MIOP0860
      566                            *
      567                            *
      568                            *
      569                            *
      570                            *
      571                            *
      572                            *
      573                            *
      574                            *
      575                            *
      576                            *
      577                            *
      578                            *
      579                            *
      580                            *
      581                            *
      582                            *
      583                            *
      584                            *
      585                            *
      586                            *
      587                            *
      588                            *
      589   01 00239    3210301B     START    LW,1     L(0)                                                  MIOP0870
      590   01 0023A    351003FE              STW,1    WDTI              INITIALIZE                          MIOP0880
      591   01 0023B    351003FF              STW,1    TYER                                                  MIOP0890
      592   01 0023C    35100400              STW,1    IOPI                                                  MIOP0900
      593   01 0023D    321003F0              LW,1     L64                                                   MIOP0930
      594   01 0023E    35100040 A            STW,1    64                IN. INV. OP                         MIOP0940
      595   01 0023F    321003F1              LW,1     L70                                                   MIOP0950
      596   01 00240    35100046 A            STW,1    70                IN. WDT.                            MIOP0960
      597   01 00241    321003F2              LW,1     L80                                                   MIOP0970
      598   01 00242    35100050 A            STW,1    80                IN. POWER ON                        MIOP0980
      599   01 00243    321003F3              LW,1     L81                                                   MIOP0990
      600   01 00244    35100051 A            STW,1    81                IN. POWER OFF                       MIOP1000
      601   01 00245    321003F4              LW,1     L86
      602   01 00246    35100056 A            STW,1    86                IN. MEM. PARITY
      603   01 00247    321003F5              LW,1     L92
      604   01 00248    3510005C A            STW,1    92                IN. IOP INTERRUPT
      605   01 00249    321003F6              LW,1     L93
      606   01 0024A    3510005D A            STW,1    93                IN. CONSOLE INTERRUPT               MIOP1060
      607   01 0024B    321003F7              LW,1     RECOVER
      608   01 0024C    35100026 A            STW,1    X'26'             INITIALIZE AUTO RECOVERY
      609   01 0024D    6AF00FC7              BAL,15   MEMI              COMPUTE MEMORY SIZE
      610   01 0024E    6AF00495              BAL,15   %RSET             SET STANDARD VALUES
      611   01 0024F    3500040A              STW,0    %SWITCHA          RESET DASH PROCESSING CHARACTER
      612   01 00250    224FFFFE A            LI,4     -2                LOOP CONSTANT
      613   01 00251    35080405              STW,0    %BITEMP+2,4       SLEAR TEMPORARY BIT TABLE
      614   01 00252    35080407              STW,0    %BITEST+2,4       CLEAR TEST BIT PATTERN
      615   01 00253    65400251              BIR,4    %-2               LOOP BRANCH
      616   01 00254    35000407              STW,0    %BITSETP1         PARAMETER 1 = 0
      617   01 00255    35000409              STW,0    %BSP1LAST         CLEAR LAST P1
      618   01 00256    3500040D              STW,0    IOPT              DEFAULT ADR SETTING
      619   01 00257    3500040E              STW,0    IOPT+1            DEFAULT ADR SETTING
      620   01 00258    35100720              STW,1    %KP:ADR           ASSUMED KSR ADDRESS
      621   01 00259    35200721              STW,2    LINEPRNT          DEFAULT OUT SETTING
      622   01 0025A    6AF0031B              BAL,15   MSADDIN           DEFAULT DIO SETTING
      623   01 0025B    2210000E A            LI,1     14                LOOP CONSTANT
      624   01 0025C    35020001 A            STW,0    1,1               CLEAR ALL REGISTERS
      625   01 0025D    6410025C              BDR,1    %-1               LOOP BRANCH
      626                            *
      627                            *
      628                            *
      629                            *
      630                            *
      631                            *        K E Y B O A R D   C O N T R O L   R O U T I N E
      632                            *
      633                            *
      634   01 0025E    6AF00495     %KTROL   BAL,15   %RSET             SET STANDARD VALUES INTO REGISTERS
      635   01 0025F    22400030 A            LI,4     X'30'
      636   01 00260    6D401200 A            WD,4     X'1200'           ARM AND ENABLE I/O GROUP INTERRUPTS
      637   01 00261    22000463     #0010000 LI,0     DA(%CP01)         COMMAND PAIR FOR C/R AND %
      638   01 00262    CC000720              SIO,0    *%KP:ADR          OUTPUT C/R AND %
      639   01 00263    68800268              BCR,8    %+5               BRANCH IF CC1 IS RESET
      640   01 00264    68400261              BCR,4    #0010000          BRANCH IF CC1 = 1,  CC2 = 0
      641   01 00265    2E000000 A   %WAIT1   WAIT     0                 WAIT TO ENTER VALID KSR ADDR INTO
      642                            *                                   R0 - IOP # INTO BITS 21-23, DC INTO
      643                            *                                   BITS 24 THRU 31.
      644   01 00266    35000720              STW,0    %KP:ADR           SET ENTERED ADDRESS
      645   01 00267    68000261              B        #0010000          RESTART I/O
      646                            *
      647   01 00268    69400261              BCS,4    #0010000          LOOP UNTIL ACCEPTED
      648   01 00269    CD000720              TIO,0    *%KP:ADR          TEST FOR BUSY
      649   01 0026A    69800269              BCS,8    %-1               WAIT UNTIL KSR IS READY
      650   01 0026B    22000464     #0010001 LI,0     DA(%CP02)         COMMAND PAIR FOR MESSAGE INPUT
      651   01 0026C    CC000720              SIO,0    *%KP:ADR          CONNECT TYPEWRITER FOR INPUT
      652   01 0026D    69C0026C              BCS,12   %-1               BRU UNTIL SIO IS ACCEPTED
      653   01 0026E    CD000720              TIO,0    *%KP:ADR          TEST FOR BUSY
      654   01 0026F    69C0026E              BCS,12   %-1               WAIT FOR MESSAGE TO BE INPUT
      655   01 00270    32403CD1              LW,4     %INBUFF           FETCH FIRST FOUR CHARACTERS
      656   01 00271    25400178 A            SLD,4    -8                LOOK AT ONLY FIRST THREE
      657   01 00272    3140040B              CW,4     C:ADR             CHECK FOR 'ADR'
      658   01 00273    69300292              BCS,3    #0010040          BRANCH IF NOT 'ADR'
      659   01 00274    72500005 A            LB,5     5                 GET FOURTH CHARACTER
      660   01 00275    2150006B A            CI,5     ','               IS IT A COMMA
      661   01 00276    69300282              BCS,3    #0010020          BRANCH IF NOT COMMA, SYNTAX ERROR
      662   01 00277    22700004 A            LI,7     4                 INDEX TO FIFTH CHARACTER
      663   01 00278    22400000 A            LI,4     0                 CLEAR CHARACTER ACCUMULATOR
      664   01 00279    725E3CD1     #0010010 LB,5     %INBUFF,7         FETCH NEXT CHARACTER
      665   01 0027A    21500015 A            CI,5     X'15'             CHECK FOR NEW LINE CODE
      666   01 0027B    68300285              BCR,3    #0010030          BRANCH IF NEW LINE CHARACTER
      667   01 0027C    4B50301C              AND,5    =X'F'             STRIP OFF ZONE BITS
      668   01 0027D    25400004 A            SLS,4    4                 MAKE ROOM FOR THIS DIGIT
      669   01 0027E    49400005 A            OR,4     5                 MERGE IN NEW DIGIT
      670   01 0027F    33100007 A            MTW,1    7                 MOVE BUFFER INDEX TO NEXT CHAR
      671   01 00280    21700064 A            CI,7     100               CHECK FOR END OF BUFFER
      672   01 00281    68200279              BCR,2    #0010010          BRANCH IF NOT END OF BUFFER
      673   01 00282    22000465     #0010020 LI,0     DA(%CP03)         HERE FOR SYNTAX ERROR MESSAGE
      674   01 00283    CC000720              SIO,0    *%KP:ADR          START MESSAGE
      675   01 00284    68000261              B        #0010000          GO TO CONNECT TYPEWRITER FOR INPUT
      676   01 00285    72560004 A   #0010030 LB,5     4,3               FETCH 2ND CHANNEL ENTRY
      677   01 00286    25400078 A            SLS,4    -8                FORM I/O UNIT ADDRESS
      678   01 00287    72660004 A            LB,6     4,3               FETCH 1ST CHANNEL ENTRY
      679   01 00288    31500006 A            CW,5     6                 IS 2ND ENTRY > 1ST ENTRY
      680   01 00289    6810028B              BCR,1    %+2               IF SO, BRANCH
      681   01 0028A    46500006 A            XW,5     6                 EXCHANGE ENTRIES
      682   01 0028B    75560004 A            STB,5    4,3               MAKE UNIT ADDRESS =  HIGHER ENTRY
      683   01 0028C    25600018 A            SLS,6    24                POSITION INTO BYTE ZERO
      684   01 0028D    35600402              STW,6    LOWSUB            SET LOWER SUBCHANNEL SETTING
      685   01 0028E    3550051E              STW,5    TESTCHAN          SET TEST SUBCHANNEL REFERENCE
      686   01 0028F    3540040D              STW,4    IOPT              SET VOLATILE I/O UNIT ADDRESS
      687   01 00290    3540040E              STW,4    IOPT+1            SET REFERENCE I/O UNIT ADDRESS
      688   01 00291    68000261              B        #0010000          RETURN FOR ADDITIONAL INPUT
      689   01 00292    3140040C     #0010040 CW,4     C:RUN             CHECK FOR RUN DIRECTIVE
      690   01 00293    693002E4              BCS,3    #0010100          CHECK FOR DIO OR OUT DIRECTIVE
      691   01 00294    22000000 A            LI,0     0                                                 *A01
      692   01 00295    350003FF              STW,0    TYER              CLEAR ERROR FLAG                *A01
      693   01 00296    72500005 A            LB,5     5                 FETCH FOURTH CHARACTER
      694   01 00297    2150006B A            CI,5     ','               IS IT A COMMA
      695   01 00298    683002A1              BCR,3    #0010050          IF SO, BRANCH
      696   01 00299    21500015 A            CI,5     21                IS IT A NEW LINE CHARACTER
      697   01 0029A    69300282              BCS,3    #0010020          BRANCH IF NOT, SYNTAX ERROR
      698   01 0029B    6AF00495              BAL,15   %RSET             SET STANDARD VALUES
      699   01 0029C    3510071F              STW,1    COMPFLAG          SET COMPARE FLAG
      700   01 0029D    3260301D              LW,6     =X'FFFFF000'       FETCH COMPARE TEST BIT PATTERN
      701   01 0029E    35600405              STW,6    %BITEST           SET RESULTING TEST BIT PATTERN
      702   01 0029F    35000406              STW,0    %BITEST+1         SET RESULTING TEST BIT PATTERN
      703   01 002A0    68000E62              B        T100              BEGIN TEST EXECUTION
      704                            *
      705   01 002A1    22700004 A   #0010050 LI,7     4                 INDEX TO FIFTH CHARACTER
      706   01 002A2    724E3CD1              LB,4     %INBUFF,7         FETCH FIFTH CHARACTER
      707   01 002A3    21400015 A            CI,4     21                IS IT A NEW LINE CHARACTER
      708   01 002A4    68300E62              BCR,3    T100              RUN EXISTING TEST BIT PATTERN
      709   01 002A5    22000000 A            LI,0     0                 CLEAR REGISTER 0
      710   01 002A6    224FFFFE A            LI,4     -2                INDEX FOR CLEARING 2 WORD TABLE
      711   01 002A7    35080405              STW,0    %BITEMP+2,4       CLEAR TEMPORARY TEST BIT TABLE
      712   01 002A8    654002A7              BIR,4    %-1               LOOP BRANCH
      713   01 002A9    3500040A              STW,0    %SWITCHA          RESET SWITCH A
      714   01 002AA    35000409              STW,0    %BSP1LAST         CLEAR LAST P1 VALUE FLAG
      715   01 002AB    22C000F0 A            LI,12    X'F0'             MASK FOR ZONE BITS
      716   01 002AC    22D000F0 A            LI,13    X'F0'             MASK FOR ZONE BITS
      717   01 002AD    724E3CD1     #0010060 LB,4     %INBUFF,7         FETCH CHARACTER
      718   01 002AE    214000E3 A            CI,4     'T'               CHECK FOR LETTER 'T'
      719   01 002AF    693002DB              BCS,3    #0010090          BRANCH IF NOT 'T'
      720   01 002B0    22500000 A            LI,5     0                 CLEAR REGISTER 5
      721   01 002B1    33100007 A            MTW,1    7                 MOVE TO NEXT CHARACTER
      722   01 002B2    724E3CD1              LB,4     %INBUFF,7         FETCH CHARACTER
      723   01 002B3    45C00004 A            CS,12    4                 CHECK FOR ALPHA ZONE BITS
      724   01 002B4    69300282              BCS,3    #0010020          BRANCH IF NOT, SYNTAX ERROR
      725   01 002B5    2540017C A   #0010070 SLD,4    -4                SAVE LOW-ORDER J BITS IN REG 5
      726   01 002B6    33100007 A            MTW,1    7                 MOVE TO NEXT CHARACTER
      727   01 002B7    724E3CD1              LB,4     %INBUFF,7         FETCH CHARACTER
      728   01 002B8    45C00004 A            CS,12    4                 CHECK FOR ALPHA ZONE BITS
      729   01 002B9    683002B5              BCR,3    #0010070          BRANCH IF NUMERIC DIGIT
      730   01 002BA    22400000 A            LI,4     0                 CLEAR REG 4
      731   01 002BB    25400304 A            SCD,4    4                 LOW ORDER DIGIT INTO REG 4
      732   01 002BC    25500064 A            SLS,5    -28               HIGH ORDER DIGIT INTO REG 5
      733   01 002BD    2350000A A            MI,5     10                MULTIPLY HIGH ORDER DIGIT BY 10
      734   01 002BE    30500004 A            AW,5     4                 ADD HIGH ORDER DIGIT TO LOW ORDER
      735   01 002BF    35500408              STW,5    %BITSETP2         STORE FOR BIT SETTING ROUTINE
      736   01 002C0    3300040A              MTW,0    %SWITCHA          CHECK SWITCH A
      737   01 002C1    693002C3              BCS,3    %+2               BRANCH IF SWITCH IS SET
      738   01 002C2    35500407              STW,5    %BITSETP1         STORE FOR BIT SETTING ROUTINE
      739   01 002C3    32400408              LW,4     %BITSETP2         FETCH PARAMETER P2
      740   01 002C4    2140003F A            CI,4     63                CHECK FOR LIMIT
      741   01 002C5    69200282              BCS,2    #0010020          BRANCH IF GREATER THAN 63
      742   01 002C6    32500407              LW,5     %BITSETP1         FETCH PARAMETER P1
      743   01 002C7    2150003F A            CI,5     63                CHECK FOR LIMIT
      744   01 002C8    69200282              BCS,2    #0010020          BRANCH IF GREATER THAN 63
      745   01 002C9    31400409              CW,4     %BSP1LAST         CHECK FOR ASCENDING SEQUENCE
      746   01 002CA    69100282              BCS,1    #0010020          BRANCH IF THIS P1 IS GREATER
      747   01 002CB    31500004 A            CW,5     4                 CHECK IF P1 IS LESS THAN P2
      748   01 002CC    69200282              BCS,2    #0010020          BRANCH IF P2 IS GREATER
      749   01 002CD    6AF00334              BAL,15   %BITSET           GO TO TEST BIT SETTING ROUTINE
      750   01 002CE    724E3CD1              LB,4     %INBUFF,7         FETCH CURRENT CHARACTER
      751   01 002CF    2140006B A            CI,4     ','               CHECK FOR COMMA
      752   01 002D0    693002D5              BCS,3    #0010080          BRANCH IF NOT COMMA
      753   01 002D1    22000000 A            LI,0     0                 CLEAR REGISTER 0
      754   01 002D2    3500040A              STW,0    %SWITCHA          RESET SWITCH A
      755   01 002D3    33100007 A   #0010071 MTW,1    7                 MOVE TO NEXT CHARACTER
      756   01 002D4    680002AD              B        #0010060          RETURN TO PROCESS NEXT FIELD
      757   01 002D5    21400060 A   #0010080 CI,4     '-'               CHECK FOR DASH CHARACTER
      758   01 002D6    693002DB              BCS,3    #0010090          BRANCH IF NOT DASH CHARACTER
      759   01 002D7    3300040A              MTW,0    %SWITCHA          TEST SWITCH A
      760   01 002D8    69300282              BCS,3    #0010020          BRANCH IF SET, SYNTAX ERROR
      761   01 002D9    3510040A              STW,1    %SWITCHA          SET SWITCH A
      762   01 002DA    680002D3              B        #0010071          RETURN FOR SECOND DASH PARAMETER
      763   01 002DB    21400015 A   #0010090 CI,4     X'15'             CHECK FOR NEW LINE CHARACTER
      764   01 002DC    69300282              BCS,3    #0010020          BRANCH IF NOT  NEW LINE CHARACTER
      765   01 002DD    227FFFFE A            LI,7     -2                INDEX TO MOVE 2 WORD TABLE
      766   01 002DE    324E0405              LW,4     %BITEMP+2,7       GET NEW TEST BITS
      767   01 002DF    354E0407              STW,4    %BITEST+2,7       UPDATE EXECUTE TABLE
      768   01 002E0    657002DE              BIR,7    %-2               BRANCH LOOP
      769   01 002E1    22400000 A            LI,4     0
      770   01 002E2    3540071F              STW,4    COMPFLAG          CLEAR COMPARE FLAG IF SET
      771   01 002E3    68000E62              B        T100              BEGIN TEST EXECUTION
      772   01 002E4    72500005 A   #0010100 LB,5     5                 FETCH FOURTH CHARACTER
      773   01 002E5    2150006B A            CI,5     ','               IS IT A COMMA
      774   01 002E6    69300282              BCS,3    #0010020          BRANCH IF NOT, SYNTAX ERROR
      775   01 002E7    3140301E              CW,4     =X'00C4C9D6'      CHECK FOR DIO DIRECTIVE
      776   01 002E8    6830030A              BCR,3    #0010110          BRANCH IF DIO DIRECTIVE
      777   01 002E9    3140301F              CW,4     =X'00D6E4E3'      CHECK FOR OUT DIRECTIVE
      778   01 002EA    69300282              BCS,3    #0010020          BRANCH IF NOT OUT, SYNTAX ERROR
      779   01 002EB    72603CD3              LB,6     %INBUFF+2         FETCH NINETH CHARACTER
      780   01 002EC    21600015 A            CI,6     X'15'             IS IT NEW LINE
      781   01 002ED    69300282              BCS,3    #0010020          BRANCH IF NOT, SYNTAX ERROR
      782   01 002EE    32403CD2              LW,4     %INBUFF+1         FETCH DIRECTIVE DATA
      783   01 002EF    226FFFFD A            LI,6     -3                SET LOOP COUNT
      784   01 002F0    6AF00328              BAL,15   NUMCHK            VALIDATE DATA
      785   01 002F1    32403CD2              LW,4     %INBUFF+1         FETCH ADDRESS AND TYPE
      786   01 002F2    4B403020              AND,4    =X'FFFFFF00'      MASK FOR HEX DIGITS
      787   01 002F3    49403021              OR,4     =X'F0'            ADD ZERO CHARACTER
      788   01 002F4    25400278 A            SCS,4    -8                SHIFT FOR ADDR POSITION
      789   01 002F5    6AF005DC              BAL,15   EBCTOHEX          CONVERT TO HEX
      790   01 002F6    21400800 A            CI,4     X'800'            IS IT WITHIN ADDRESS RANGE
      791   01 002F7    68100282              BCR,1    #0010020          BRANCH IF NOT
      792   01 002F8    72663CD2              LB,6     %INBUFF+1,3       FETCH TYPE DESIGNATOR
      793   01 002F9    325008C4              LW,5     TYPEBRA           FETCH USER OUTPUT BRANCH
      794   01 002FA    216000D3 A            CI,6     'L'
      795   01 002FB    68300303              BCR,3    LPOUT             BRANCH IF LP SELECTED
      796   01 002FC    216000D2 A            CI,6     'K'
      797   01 002FD    68300305              BCR,3    OUTRET            BRANCH IF KSR OUTPUT
      798   01 002FE    325008C3              LW,5     PNCHBRA           FETCH MAINTENANCE BRANCH
      799   01 002FF    216000D8 A            CI,6     'Q'
      800   01 00300    68300305              BCR,3    OUTRET            PUNCH WITH KSR MONITOR
      801   01 00301    216000D7 A            CI,6     'P'
      802   01 00302    69300282              BCS,3    #0010020          INCORRECT TYPE DESIGNATOR, SYN ERR
      803   01 00303    35400721     LPOUT    STW,4    LINEPRNT          SET LINEPRINTER ADDRESS
      804   01 00304    68000307              B        %+3
      805   01 00305    22400000 A   OUTRET   LI,4     0
      806   01 00306    35400721              STW,4    LINEPRNT          SET (OR CLEAR) LP ADDRESS
      807   01 00307    35500399              STW,5    DEVSEL            SET USER OR MAINTENANCE BRANCH
      808   01 00308    6AF00723              BAL,15   INITIAL           OUTPUT INITIAL MESSAGE
      809   01 00309    68000261              B        #0010000          RETURN FOR NEXT DIRECTIVE
      810   01 0030A    72643CD2     #0010110 LB,6     %INBUFF+1,2       FETCH SEVENTH CHARACTER
      811   01 0030B    21600015 A            CI,6     X'15'             IS IT NEW LINE
      812   01 0030C    69300282              BCS,3    #0010020          BRANCH IF NOT, SYNTAX ERROR
      813   01 0030D    32403CD2              LW,4     %INBUFF+1         FETCH INPUT DATA
      814   01 0030E    226FFFFE A            LI,6     -2                SET LOOP COUNT
      815   01 0030F    6AF00328              BAL,15   NUMCHK            CHECK CHARACTER CORRECTNESS
      816   01 00310    32403CD2              LW,4     %INBUFF+1         FETCH DIO DATA
      817   01 00311    25400470 A            SAS,4    -16               POSITION IN BITS 16-31
      818   01 00312    4B403022              AND,4    =X'F0F0FFFF'      MASK FOR EBCDIC
      819   01 00313    6AF005DC              BAL,15   EBCTOHEX          CONVERT TO HEX
      820   01 00314    32000004 A            LW,0     4                 SET ADDRESS INTO R0
      821   01 00315    25000005 A            SLS,0    5                 REPOSITION INTO BITS 20 - 26
      822   01 00316    6AF0031B              BAL,15   MSADDIN           SET GROUP ADDRESS
      823   01 00317    22404000 A            LI,4     X'4000'
      824   01 00318    ED400419              WD,4     *GPAA             SET MS ON LINE
      825   01 00319    ED30041B              WD,3     *GPAC             SET DOR/IOR
      826   01 0031A    68000261              B        #0010000          RETURN FOR NEXT PARAMETER
      827                            *
      828   01 0031B    22602000 A   MSADDIN  LI,6     X'2000'           SET TEST EQUIP. DESIGNATOR
      829   01 0031C    30600000 A            AW,6     0                 ADD DIO SETTING
      830   01 0031D    224FFFF3 A            LI,4     -13               SET LOOP COUNT
      831   01 0031E    3568041C              STW,6    GPA0+13,4         STORE COMPLETED ADDRESS INDEXED
      832   01 0031F    20600001 A            AI,6     1                 INCREMENT ADDRESS
      833   01 00320    6540031E              BIR,4    %-2               LOOP FOR ALL MS GRP ADDRESSES
      834   01 00321    3260040F              LW,6     GPA0              RECONFIGURE GROUP ADDRESSES
      835   01 00322    20600010 A            AI,6     X'10'             TO FORM IOP DISP GRP ADRESSES
      836   01 00323    224FFFF5 A            LI,4     -11               SET LOOP COUNT
      837   01 00324    35680427              STW,6    GRP0+11,4         STORE COMPLETED
      838   01 00325    20600001 A            AI,6     1                 INCREMENT
      839   01 00326    65400324              BIR,4    %-2               LOOP FOR ALL ADDRESSES
      840   01 00327    E800000F A            B        *15               RETURN TO CALLING ROUTINE
      841                            *
      842                            *
      843                            *
      844   01 00328    72500004 A   NUMCHK   LB,5     4                 FETCH DATA BYTE
      845   01 00329    25400008 A            SLS,4    8                 POSITION NEXT BYTE
      846   01 0032A    215000F9 A            CI,5     X'F9'
      847   01 0032B    69200282              BCS,2    #0010020          IF NOT VALID, SYNTAX ERROR
      848   01 0032C    215000EF A            CI,5     X'EF'
      849   01 0032D    69200332              BCS,2    %+5
      850   01 0032E    215000C6 A            CI,5     X'C6'
      851   01 0032F    69200282              BCS,2    #0010020          IF NOT VALID, SYNTAX ERROR
      852   01 00330    215000C0 A            CI,5     X'C0'
      853   01 00331    68200282              BCR,2    #0010020          IF NOT VALID, SYNTAX ERROR
      854   01 00332    65600328              BIR,6    NUMCHK            LOOP FOR ALL BYTES
      855   01 00333    E800000F A            B        *15               RETURN TO CALLING ROUTINE
      856                            *
      857                            *
      858                            *
      859                            *
      860                            *        T E S T   B I T   S E T T I N G   R O U T I N E
      861                            *
      862   01 00334    32800407     %BITSET  LW,8     %BITSETP1         GET FIRST PARAMETER
      863   01 00335    35800409              STW,8    %BSP1LAST         UPDATE LAST P1 ENTRY
      864   01 00336    32A00408              LW,10    %BITSETP2         GET SECOND PARAMETER
      865   01 00337    38A00008 A            SW,10    8                 FORM P2-P1 CALL IT DELTA 1
      866   01 00338    20A00001 A            AI,10    1                 DELTA 1 + 1 = LOOP COUNT
      867   01 00339    2580017B A            SLD,8    -5                DIVIDE BY 32, CALL IT DELTA 2
      868   01 0033A    25900065 A            SLS,9    -27               FORM P1-MODULO 32, CALL IT DELTA 3
      869   01 0033B    3A600009 A            LCW,6    9                 PUT DELTA 3 INTO INDEX REG. 6
      870   01 0033C    22B00001 A            LI,11    1                 SET BIT 31 HIGH
      871   01 0033D    25B0027F A            SCS,11   -1                SET BIT 0 HIGH
      872   01 0033E    25BC0200 A            SCS,11   0,6               SHIFT RIGHT DELTA 3 POSITIONS
      873   01 0033F    32600008 A            LW,6     8                 PUT DELTA 2 INTO INDEX REG 6
      874   01 00340    47BC0403     %BITSET1 STS,11   %BITEMP,6         OR TEST BIT INTO TEMPORARY TABLE
      875   01 00341    25B0027F A            SCS,11   -1                GET NEXT TEST BIT
      876   01 00342    32B0000B A            LW,11    11                TEST FOR BIT 0 SET
      877   01 00343    68100345              BCR,1    %+2               BRANCH IF BIT 0 IS NOT SET
      878   01 00344    20600001 A            AI,6     1                 MOVE TABLE INDEX - DELTA 2 + 1
      879   01 00345    64A00340              BDR,10   %BITSET1          BRANCH UNTIL ALL BITS PROCESSED
      880   01 00346    E800000F A            B        *15               RETURN TO CALLING ROUTINE
      881                            *
      882                            *
      883                            *
      884                            *
      885                            *
      886                            *
      887                            *
      888                            *
      889                            *
      890                            *
      891                            *                                                                       MIOP2990
      892                            *                                                                       MIOP3010
      893                            *                       IDENTIFY ROUTINES                               MIOP3020
      894                            *                                                                       MIOP3030
      895   01 00347    35F0036A     LOOK     STW,15   LOK1                                                  MIOP3040
      896   01 00348    33F0000F A            MTW,15   15
      897   01 00349    35F00522              STW,15   LASTSUB           SET RETURN FOR ERROR LOOPING
      898   01 0034A    3570036B              STW,7    LOK4                                                  MIOP3050
      899   01 0034B    35E0036C              STW,14   LOK4+1                                                MIOP3060
      900   01 0034C    6CF00000 A            RD,15    0                 READ BREAKPOINTS                    MIOP3070
      901   01 0034D    6880034F              BCR,8    LOK2              IF BP1 SET GO TYIN                  MIOP3080
      902   01 0034E    6800025E              B        %KTROL            RETURN FOR USER COMMUNICATION
      903   01 0034F    B270036A     LOK2     LW,7     *LOK1                                                 MIOP3100
      904   01 00350    32E00405              LW,14    %BITEST           FETCH BIT TEST PATTERN, 0-31
      905   01 00351    32F00406              LW,15    %BITEST+1         FETCH BIT TEST PATTERN, 32-63
      906   01 00352    25EE0100 A            SLD,14   0,7               SHIFT WITH X7
      907   01 00353    4BE03023              AND,14   L(X'80000000')    TEST B0                             MIOP3140
      908                            *                                                                       MIOP3150
      909   01 00354    69100359              BCS,1    LOK3              BRANCH IF TEST TO BE RUN            MIOP3160
      910   01 00355    30703019              AW,7     L(1)                                                  MIOP3170
      911   01 00356    30700449              AW,7     TAA               BRANCH TO NEXT TEST                 MIOP3180
      912   01 00357    B2700007 A            LW,7     *7                                                    MIOP3190
      913   01 00358    E8000007 A            B        *7
      914                            *
      915   01 00359    3570044A     LOK3     STW,7    RTN               SAVE RT. NO.                        MIOP3210
      916   01 0035A    32703019              LW,7     L(1)                                                  MIOP3220
      917   01 0035B    3570044B              STW,7    SUBT              SET UP SUBTEST                      MIOP3230
      918   01 0035C    6AF0049B              BAL,15   %IORST            RESET I/O AND MODE SETTING
      919   01 0035D    22400000 A            LI,4     0
      920   01 0035E    3540051F              STW,4    ADDATA            CLEAR ADD DATA FLAG
      921   01 0035F    354003F9              STW,4    TEMPA             CLEAR ERR WORDS
      922   01 00360    354003FA              STW,4    TEMPB
      923   01 00361    354003FB              STW,4    TEMPC
      924   01 00362    22400001 A            LI,4     1
      925   01 00363    35400521              STW,4    NEWLINE           ENABLE NEW LINE
      926   01 00364    3310036A              MTW,1    LOK1                                                  MIOP3260
      927   01 00365    22100030 A            LI,1     X'30'             ARM AND ENABLE
      928   01 00366    6D101200 A            WD,1     X'1200'
      929   01 00367    3270036B              LW,7     LOK4                                                  MIOP3270
      930   01 00368    32E0036C              LW,14    LOK4+1                                                MIOP3280
      931   01 00369    E800036A              B        *LOK1
      932                            *
      933                            *
      934   01 0036A    00000000 A   LOK1     DATA     0                                                     MIOP3300
      935   01 0036B    00000000 A   LOK4     DATA     0,0                                                   MIOP3310
            01 0036C    00000000 A
      936                            *                                                                       MIOP3320
      937                            *                                                                       MIOP3340
      938                            *                   ERROR ROUTINE                                       MIOP3350
      939                            *                                                                       MIOP3360
      940   01 0036D    35F0039C     ERROR    STW,15   ERR1              SAVE RETURN                         MIOP3370
      941   01 0036E    6AF0048D              BAL,15   REGSAVE
      942   01 0036F    32F003FF              LW,15    TYER                                                  MIOP3450
      943   01 00370    E930039C              BCS,3    *ERR1             BRANCH IF ERR HAS BEEN REPORTED
      944                            *
      945                            *
      946   01 00371    331003FF              MTW,1    TYER              SET ERROR FLAG                      MIOP3490
      947                            *                                                                       MIOP3500
      948                            *                                                                       MIOP3510
      949   01 00372    32E0301B              LW,14    L(0)                                                  MIOP3520
      950   01 00373    32F0044A              LW,15    RTN               SET UP ROUTINE NUMBER FOR TYPEOUT   MIOP3530
      951   01 00374    36E03024              DW,14    L(10)                                                 MIOP3540
      952   01 00375    49E03021     ERR3     OR,14    L(X'F0')          SET UP RT. NO. FOR TYPEOUT          MIOP3670
      953   01 00376    49F03021              OR,15    L(X'F0')                                              MIOP3680
      954   01 00377    25F00008 A            SLS,15   8                                                     MIOP3690
      955   01 00378    49F0000E A            OR,15    14                                                    MIOP3700
      956   01 00379    25F00008 A            SLS,15   8                 MERGE RT. NO. INTO TYPEOUT AREA     MIOP3710
      957   01 0037A    32E00915              LW,14    OUTP+3                                                MIOP3720
      958   01 0037B    4BE03025              AND,14   L(X'FF0000FF')                                        MIOP3730
      959   01 0037C    49E0000F A            OR,14    15                                                    MIOP3740
      960   01 0037D    35E00915              STW,14   OUTP+3                                                MIOP3750
      961   01 0037E    22E00000 A            LI,14    0
      962   01 0037F    32F0044B              LW,15    SUBT              GENERATE SUBTEST NO.
      963   01 00380    36E03024              DW,14    L(10)             * FOR TYPEOUT
      964   01 00381    25F00008 A            SLS,15   8
      965   01 00382    49F0000E A            OR,15    14
      966   01 00383    25F00010 A            SLS,15   16
      967   01 00384    30F03026              AW,15    =X'F0F015C5'
      968   01 00385    35F00916              STW,15   OUTP+4            MERGE SUBT. NO. INTO TYPEOUT AREA   MIOP3820
      969   01 00386    327003F9              LW,7     TEMPA                                                 MIOP3830
      970   01 00387    6AF003BE              BAL,15   CON               CONVERT TO TYPEOUT                  MIOP3840
      971   01 00388    3560091A              STW,6    OUTP+8
      972   01 00389    3570091B              STW,7    OUTP+9
      973   01 0038A    327003FA              LW,7     TEMPB             CONVERT TEMPA,TEMPB                 MIOP3870
      974   01 0038B    6AF003BE              BAL,15   CON                                                   MIOP3880
      975   01 0038C    35600920              STW,6    OUTP+14
      976   01 0038D    35700921              STW,7    OUTP+15
      977   01 0038E    327003FB              LW,7     TEMPC             CONVERT TEMPC                       MIOP3910
      978   01 0038F    6AF003BE              BAL,15   CON                                                   MIOP3920
      979   01 00390    35600926              STW,6    OUTP+20
      980   01 00391    35700927              STW,7    OUTP+21
      981   01 00392    6AF00737              BAL,15   TYPRINT1
      982   01 00393    6AF00745              BAL,15   TYTX              BRANCH TO TYPEOUT RT.               MIOP3950
      983   01 00394    324008D7              LW,4     BYTECNT           FETCH BYTE COUNT SETTING
      984   01 00395    21400001 A            CI,4     1                 IF EQUAL TO ONE, (TEST 11),
      985   01 00396    6830039A              BCR,3    %+4               INHIBIT DISPLAY GROUP OUTPUT.
      986   01 00397    6C000000 A            RD,0     0
      987   01 00398    6910039A              BCS,1    %+2               INHIBIT DISP GRP OUT IF SS4 IS SET
      988   01 00399    6AF0074A     DEVSEL   BAL,15   TYPEOUT           USER TYPEOUT BAL
      989   01 0039A    6AF00491              BAL,15   REGRESTR
      990   01 0039B    E800039C              B        *ERR1
      991                            *
      992                            *
      993   01 0039C    00000000 A   ERR1     DATA     0                                                     MIOP4110
      994                            *                                                                       MIOP4120
      995                            *                                                                       MIOP4140
      996                            *        TEST RECURRANCE ROUTINE
      997                            *
      998                            *
      999   01 0039D    35F003BD     RECUR    STW,15   RE1               SAVE RETURN                         MIOP4150
     1000   01 0039E    6C000000 A            RD,0     0
     1001   01 0039F    6980025E              BCS,8    %KTROL            RETURN FOR USER COMMUNICATION
     1002   01 003A0    6AF0049B              BAL,15   %IORST
     1003   01 003A1    22400000 A            LI,4     0
     1004   01 003A2    3540051F              STW,4    ADDATA            CLEAR ADDATA FLAG
     1005   01 003A3    22400001 A            LI,4     1
     1006   01 003A4    35400521              STW,4    NEWLINE           ENABLE NEW LINE
     1007   01 003A5    32F003FF              LW,15    TYER              CK. FOR ERROR                       MIOP4160
     1008   01 003A6    693003AC              BCS,3    RE2
     1009   01 003A7    680003A8     COOKCHNG B        RE3               NOTCOOK BRANCH
     1010                            *
     1011                            *
     1012   01 003A8    324003BD     RE3      LW,4     RE1
     1013   01 003A9    35400522              STW,4    LASTSUB
     1014   01 003AA    3310044B              MTW,1    SUBT
     1015   01 003AB    E80003BD              B        *RE1
     1016                            *
     1017                            *
     1018   01 003AC    6CF00000 A   RE2      RD,15    0                 TEST BREAKPOINTS                    MIOP4200
     1019   01 003AD    E8400522              BCR,4    *LASTSUB          BRANCH IF LOOP ON ERROR
     1020   01 003AE    3300022C              MTW,0    CBFLG             IS THIS 'COOKBOOK' GENERATION
     1021   01 003AF    683003BA              BCR,3    %+11              BRANCH IF NOT
     1022   01 003B0    3240044A              LW,4     RTN               FETCH HEX TEST NUMBER
     1023   01 003B1    21400002 A            CI,4     2                 IS IT TEST TWO
     1024   01 003B2    683003B7              BCR,3    %+5               IF SO, BRANCH
     1025   01 003B3    21400005 A            CI,4     5                 IS IT TEST FIVE
     1026   01 003B4    683003B7              BCR,3    %+3               IF SO, BRANCH
     1027   01 003B5    21400006 A            CI,4     6                 IS IT TEST SIX
     1028   01 003B6    693003BA              BCS,3    %+4               BRANCH IF NOT
     1029   01 003B7    3240044B              LW,4     SUBT              FETCH SUBTEST NUMBER
     1030   01 003B8    21400002 A            CI,4     2                 IS SUBTEST GREATER THAN TWO
     1031   01 003B9    692003A7              BCS,2    COOKCHNG          IF SO, DO NOT GENERATE COOKBOOK
     1032                            *
     1033   01 003BA    32F0301B              LW,15    L(0)                                                  MIOP4220
     1034   01 003BB    35F003FF              STW,15   TYER              INIT. TYPER                         MIOP4230
     1035   01 003BC    680003A7              B        COOKCHNG
     1036                            *                                                                       MIOP4400
     1037   01 003BD    00000000 A   RE1      DATA     0                                                     MIOP4410
     1038                            *                                                                       MIOP4430
     1039                            *                   CONVERSION ROUTINE                                  MIOP4440
     1040   01 003BE    35F003D5     CON      STW,15   CON1                                                  MIOP4450
     1041   01 003BF    35E003D7              STW,14   CON6                                                  MIOP4460
     1042   01 003C0    32F03027              LW,15    L(-2)             LOOP 2                              MIOP4470
     1043   01 003C1    32E03028     CON2     LW,14    L(-4)                                                 MIOP4480
     1044   01 003C2    3260301B              LW,6     L(0)                                                  MIOP4490
     1045   01 003C3    356003F8              STW,6    TEMP                                                  MIOP4500
     1046   01 003C4    326003F8     CON3     LW,6     TEMP              LOAD EBC CHAR.                      MIOP4510
     1047   01 003C5    25600008 A            SLS,6    8                                                     MIOP4520
     1048   01 003C6    356003F8              STW,6    TEMP                                                  MIOP4530
     1049   01 003C7    3260301B              LW,6     L(0)                                                  MIOP4540
     1050   01 003C8    25600104 A            SLD,6    4                 SHIFT NEXT CH. FROM 7 TO 6          MIOP4550
     1051   01 003C9    326C0439              LW,6     F0,6                                                  MIOP4560
     1052   01 003CA    496003F8              OR,6     TEMP                                                  MIOP4570
     1053   01 003CB    356003F8              STW,6    TEMP              SAVE CHARACTERS IN TEMP             MIOP4580
     1054   01 003CC    65E003C4              BIR,14   CON3              LOOP 4 TIMES                        MIOP4590
     1055   01 003CD    31F03027              CW,15    L(-2)                                                 MIOP4600
     1056   01 003CE    693003D1              BCS,3    CON4                                                  MIOP4610
     1057   01 003CF    356003D6              STW,6    CON5              SAVE TEMP                           MIOP4620
     1058   01 003D0    65F003C1              BIR,15   CON2              LOOP TWICE                          MIOP4630
     1059   01 003D1    326003D6     CON4     LW,6     CON5                                                  MIOP4640
     1060   01 003D2    327003F8              LW,7     TEMP              FIRST WORD IS IN XR6                MIOP4650
     1061   01 003D3    32E003D7              LW,14    CON6                                                  MIOP4660
     1062   01 003D4    EAF003D5              BAL,15   *CON1             SECOND WORD IN XR7                  MIOP4670
     1063                            *                                                                       MIOP4680
     1064   01 003D5    00000000 A   CON1     DATA     0                                                     MIOP4690
     1065   01 003D6    00000000 A   CON5     DATA     0                                                     MIOP4700
     1066   01 003D7    00000000 A   CON6     DATA     0                                                     MIOP4710
     1067                            *                                                                       MIOP4730
     1068                            *                                                                       MIOP5020
     1069                                     BOUND 8                                                        MIOP5030
     1070   01 003D8    00000000 A   CONIN    DATA     0,0,CONIN1,0                                          MIOP5040
            01 003D9    00000000 A
            01 003DA    0000022D
            01 003DB    00000000 A
     1071   01 003DC    00000000 A   POWOF    DATA     0                                                     MIOP5090
     1072   01 003DD    00000000 A            DATA     0                                                     MIOP5100
     1073   01 003DE    00000200              DATA     POWOF1                                                MIOP5110
     1074   01 003DF    00000000 A            DATA     0                                                     MIOP5120
     1075   01 003E0    00000000 A   MEPAR    DATA     0                                                     MIOP5130
     1076   01 003E1    00000000 A            DATA     0                                                     MIOP5140
     1077   01 003E2    00000204              DATA     MEPAR1                                                MIOP5150
     1078   01 003E3    00000000 A            DATA     0                                                     MIOP5160
     1079   01 003E4    00000000 A   IOPIN    DATA     0                                                     MIOP5170
     1080   01 003E5    00000000 A            DATA     0                                                     MIOP5180
     1081   01 003E6    0000021B              DATA     IOPIN1                                                MIOP5190
     1082   01 003E7    00000000 A            DATA     0                                                     MIOP5200
     1083   01 003E8    00000000 A   WDTIM    DATA     0                                                     MIOP5210
     1084   01 003E9    00000000 A            DATA     0                                                     MIOP5220
     1085   01 003EA    00000214              DATA     WDTIM1                                                MIOP5230
     1086   01 003EB    00000000 A            DATA     0                                                     MIOP5240
     1087   01 003EC    00000000 A   BADOP    DATA     0                                                     MIOP5250
     1088   01 003ED    00000000 A            DATA     0                                                     MIOP5260
     1089   01 003EE    00000209              DATA     BADOP1                                                MIOP5270
     1090   01 003EF    00000000 A            DATA     0                                                     MIOP5280
     1091   01 003F0    0F0003EC     L64      XPSD,0   BADOP                                                 MIOP5300
     1092   01 003F1    0F0003E8     L70      XPSD,0   WDTIM                                                 MIOP5310
     1093   01 003F2    6A000202     L80      BAL,0    POWON                                                 MIOP5320
     1094   01 003F3    0F0003DC     L81      XPSD,0   POWOF                                                 MIOP5330
     1095   01 003F4    0F0003E0     L86      XPSD,0   MEPAR
     1096   01 003F5    0F0003E4     L92      XPSD,0   IOPIN
     1097   01 003F6    0F0003D8     L93      XPSD,0   CONIN
     1098   01 003F7    68000239     RECOVER  B        START
     1099   01 003F8    00000000 A   TEMP     DATA     0                                                     MIOP5370
     1100   01 003F9    00000000 A   TEMPA    DATA     0                                                     MIOP5380
     1101   01 003FA    00000000 A   TEMPB    DATA     0                 TEMPORARY LOCATIONS                 MIOP5390
     1102   01 003FB    00000000 A   TEMPC    DATA     0                                                     MIOP5400
     1103   01 003FC    00000000 A   TEMPSAVE DATA     0
     1104   01 003FD    00000000 A   TEMPI    DATA     0                                                     MIOP5410
     1105   01 003FE    00000000 A   WDTI     DATA     0                 WATCH DOG TIMER INTERRUPT           MIOP5420
     1106   01 003FF    00000000 A   TYER     DATA     0                 TYPE ERROR                          MIOP5430
     1107   01 00400    00000000 A   IOPI     DATA     0                 IOP INTERRUPT                       MIOP5440
     1108   01 00401    00000000 A   IOPINS   DATA     0                 IOP STATUS                          MIOP5450
     1109   01 00402    00000000 A   LOWSUB   DATA     0
     1110   01 00403    00000000 A   %BITEMP  DATA     0,0
            01 00404    00000000 A
     1111   01 00405    00000000 A   %BITEST  DATA     0,0
            01 00406    00000000 A
     1112                            %BITSETP1 ;
     1113   01 00407    00000000 A            DATA     0
     1114                            %BITSETP2 ;
     1115   01 00408    00000000 A            DATA     0
     1116                            %BSP1LAST ;
     1117   01 00409    00000000 A            DATA     0
     1118   01 0040A    00000000 A   %SWITCHA DATA     0
     1119   01 0040B    00C1C4D9 A   C:ADR    DATA     'ADR'
     1120   01 0040C    00D9E4D5 A   C:RUN    DATA     'RUN'
     1121   01 0040D    00000000 A   IOPT     DATA     0,0                                                   MIOP5510
            01 0040E    00000000 A
     1122                            *                                                                       MIOP5520
     1123   01 0040F    00000000 A   GPA0     DATA     0                 MS GROUP ADDRESS ZERO
     1124   01 00410    00000000 A   GPA1     DATA     0                 MS GROUP ADDRESS ONE
     1125   01 00411    00000000 A   GPA2     DATA     0                 MS GROUP ADDRESS TWO
     1126   01 00412    00000000 A   GPA3     DATA     0                 MS GROUP ADDRESS THREE
     1127   01 00413    00000000 A   GPA4     DATA     0                 MS GROUP ADDRESS FOUR
     1128   01 00414    00000000 A   GPA5     DATA     0                 MS GROUP ADDRESS FIVE
     1129   01 00415    00000000 A   GPA6     DATA     0                 MS GROUP ADDRESS SIX
     1130   01 00416    00000000 A   GPA7     DATA     0                 MS GROUP ADDRESS SEVEN
     1131   01 00417    00000000 A   GPA8     DATA     0                 MS GROUP ADDRESS EIGHT
     1132   01 00418    00000000 A   GPA9     DATA     0                 MS GROUP ADDRESS NINE
     1133   01 00419    00000000 A   GPAA     DATA     0                 MS GROUP ADDRESS TEN
     1134   01 0041A    00000000 A   GPAB     DATA     0                 MS GROUP ADDRESS ELEVEN
     1135   01 0041B    00000000 A   GPAC     DATA     0                 MS GROUP ADDRESS TWELVE
     1136   01 0041C    00000000 A   GRP0     DATA     0                 IOP DISPLAY GROUP ADDRESS ZERO
     1137   01 0041D    00000000 A   GRP1     DATA     0                 IOP DISPLAY GROUP ADDRESS ONE
     1138   01 0041E    00000000 A   GRP2     DATA     0                 IOP DISPLAY GROUP ADDRESS TWO
     1139   01 0041F    00000000 A   GRP3     DATA     0                 IOP DISPLAY GROUP ADDRESS THREE
     1140   01 00420    00000000 A   GRP4     DATA     0                 IOP DISPLAY GROUP ADDRESS FOUR
     1141   01 00421    00000000 A   GRP5     DATA     0                 IOP DISPLAY GROUP ADDRESS FIVE
     1142   01 00422    00000000 A   GRP6     DATA     0                 IOP DISPLAY GROUP ADDRESS SIX
     1143   01 00423    00000000 A   GRP7     DATA     0                 IOP DISPLAY GROUP ADDRESS SEVEN
     1144   01 00424    00000000 A   GRP8     DATA     0                 IOP DISPLAY GROUP ADDRESS EIGHT
     1145   01 00425    00000000 A   GRP9     DATA     0                 IOP DISPLAY GROUP ADDRESS NINE
     1146   01 00426    00000000 A   GRPA     DATA     0                 IOP DISPLAY GROUP ADDRESS TEN
     1147                            *
     1148                            *        REGISTER SAVE LOCATIONS
     1149   01 00427    00000000 A   SAVE0    DATA     0
     1150   01 00428    00000000 A   SAVE1    DATA     0
     1151   01 00429    00000000 A   SAVE2    DATA     0
     1152   01 0042A    00000000 A   SAVE3    DATA     0
     1153   01 0042B    00000000 A   SAVE4    DATA     0
     1154   01 0042C    00000000 A   SAVE5    DATA     0
     1155   01 0042D    00000000 A   SAVE6    DATA     0
     1156   01 0042E    00000000 A   SAVE7    DATA     0
     1157   01 0042F    00000000 A   SAVE8    DATA     0
     1158   01 00430    00000000 A   SAVE9    DATA     0
     1159   01 00431    00000000 A   SAVE10   DATA     0
     1160   01 00432    00000000 A   SAVE11   DATA     0
     1161   01 00433    00000000 A   SAVE12   DATA     0
     1162   01 00434    00000000 A   SAVE13   DATA     0
     1163   01 00435    00000000 A   SAVE14   DATA     0
     1164   01 00436    00000000 A   SAVE15   DATA     0
     1165   01 00437    00000000 A   SAVERX   DATA     0
     1166                            *
     1167                            *
     1168                            *                                                                       MIOP5530
     1169   01 00438    00000000 A   MEM      DATA     0                                                     MIOP5730
     1170   01 00439    000000F0 A   F0       DATA     X'F0',X'F1',X'F2',X'F3',X'F4',X'F5',X'F6',X'F7',X'F8' MIOP5810
            01 0043A    000000F1 A
            01 0043B    000000F2 A
            01 0043C    000000F3 A
            01 0043D    000000F4 A
            01 0043E    000000F5 A
            01 0043F    000000F6 A
            01 00440    000000F7 A
            01 00441    000000F8 A
     1171   01 00442    000000F9 A            DATA     X'F9',X'C1',X'C2',X'C3',X'C4',X'C5',X'C6'             MIOP5820
            01 00443    000000C1 A
            01 00444    000000C2 A
            01 00445    000000C3 A
            01 00446    000000C4 A
            01 00447    000000C5 A
            01 00448    000000C6 A
     1172   01 00449    0000044C     TAA      DATA     TA                                                    MIOP5840
     1173   01 0044A    00000000 A   RTN      DATA     0                 ROUTINE NO.                         MIOP5850
     1174   01 0044B    00000000 A   SUBT     DATA     0                 SUBTEST NO.                         MIOP5860
     1175   01 0044C    00000E62     TA       DATA     T100,T101,T102,T103,T104,T105,T106,T107               MIOP5920
            01 0044D    00000E88
            01 0044E    00000EB3
            01 0044F    00000EDF
            01 00450    00000F1A
            01 00451    00000F4F
            01 00452    00000F7C
            01 00453    00000FD5
     1176   01 00454    0000104A              DATA     T108,T109,T110,T111,T112,T113,T114,T115               MIOP5930
            01 00455    00001085
            01 00456    000010D0
            01 00457    000010EB
            01 00458    00001112
            01 00459    0000113C
            01 0045A    00001169
            01 0045B    0000119E
     1177   01 0045C    000011D3              DATA     T116,T117,T118,T119,T120,T121,T122,T123               MIOP5940
            01 0045D    00001208
            01 0045E    000012AB
            01 0045F    000012E2
            01 00460    000012FA
            01 00461    000012FB
            01 00462    000012FC
            01 00463    000012FD
     1178   01 00464    000012FE              DATA     T124,T125,T126,T127,T128,T129,T130,T131               MIOP5950
            01 00465    000012FF
            01 00466    00001300
            01 00467    00001301
            01 00468    00001302
            01 00469    00001303
            01 0046A    00001304
            01 0046B    00001305
     1179   01 0046C    00001306              DATA     T132,T133,T134,T135,T136,T137,T138,T139               MIOP5960
            01 0046D    00001307
            01 0046E    00001308
            01 0046F    00001309
            01 00470    0000130A
            01 00471    0000130B
            01 00472    0000130C
            01 00473    0000130D
     1180   01 00474    0000130E              DATA     T140,T141,T142,T143,T144,T145,T146,T147               MIOP5970
            01 00475    0000130F
            01 00476    00001310
            01 00477    00001311
            01 00478    00001312
            01 00479    00001313
            01 0047A    00001314
            01 0047B    00001315
     1181   01 0047C    00001316              DATA     T148,T149,T150,T151,T152,T153,T154,T155               MIOP5980
            01 0047D    00001317
            01 0047E    00001318
            01 0047F    00001319
            01 00480    0000131A
            01 00481    0000131B
            01 00482    0000131C
            01 00483    0000131D
     1182   01 00484    0000131E              DATA     T156,T157,T158,T159,T160,T161,T162,T163,T164          MIOP5990
            01 00485    0000131F
            01 00486    00001320
            01 00487    00001321
            01 00488    00001322
            01 00489    00001323
            01 0048A    00001324
            01 0048B    00001325
            01 0048C    00001326
     1183                            *                                                                       MIOP6000
     1184                            *
     1185                            *
     1186                            *
     1187                            *       T E S T   M O D E   S U B R O U T I N E S
     1188                            *
     1189                            *
     1190                            *
     1191                            *
     1192                            *
     1193                            *
     1194                            *        SAVE REGISTER CONTENTS
     1195                            *
     1196   01 0048D    35F00437     REGSAVE  STW,15   SAVERX            SAVE RETURN ADDRESS
     1197   01 0048E    02200000 A            LCI,0    0
     1198   01 0048F    2B000427              STM,0    SAVE0             SAVE REG 0-15
     1199   01 00490    E8000437              B        *SAVERX           RETURN TO CALLING ROUTINE
     1200                            *
     1201                            *
     1202                            *        RESTORE REGISTER CONTENTS
     1203                            *
     1204   01 00491    35F00437     REGRESTR STW,15   SAVERX            SAVE RETURN ADDRESS
     1205   01 00492    02200000 A            LCI,0    0
     1206   01 00493    2A000427              LM,0     SAVE0             RESTORE REG 0-15
     1207   01 00494    E8000437              B        *SAVERX           RETURN TO CALLING ROUTINE
     1208                            *
     1209                            *
     1210                            *
     1211                            *
     1212                            *
     1213                            *
     1214                            *
     1215                            *        REGISTER SET ROUTINE
     1216                            *        SETS REG. 0,1,2 AND 3 TO STANDARD VALUES 0,1,2 AND 3
     1217                            *
     1218                            *
     1219                            *
     1220   01 00495    22000000 A   %RSET    LI,0     0                 R0 = 0
     1221   01 00496    22100001 A            LI,1     1                 R1 = 1
     1222   01 00497    22200002 A            LI,2     2                 R2 = 2
     1223   01 00498    22300003 A            LI,3     3                 R3 = 3
     1224   01 00499    E800000F A            B        *15               RETURN0TO CALLING RwUTINE
     1225                            *
     1226                            *
     1227                            *
     1228                            *
     1229                            *
     1230                            *
     1231   01 0049A    00000000 A   RSTSAV   DATA     0
     1232                            *
     1233   01 0049B    35F0049A     %IORST   STW,15   RSTSAV            SAVE RETURN ADDRESS
     1234   01 0049C    6AF0048D              BAL,15   REGSAVE           SAVE REGISTER CONTENTS
     1235   01 0049D    22400004 A            LI,4     4
     1236   01 0049E    ED40041C              WD,4     *GRP0             RESET I/O
     1237   01 0049F    22400002 A            LI,4     2
     1238   01 004A0    ED40041C              WD,4     *GRP0             STOP NORMAL PHASE CLOCK
     1239   01 004A1    2240D000 A            LI,4     X'D000'           IIOP, MS ON LINE, DC'S OFF LINE
     1240   01 004A2    3040051E              AW,4     TESTCHAN          PRESERVE PROGRAMMED ADDRESS REG
     1241   01 004A3    ED400419              WD,4     *GPAA             SET IIOP MODE AND MS ON LINE
     1242   01 004A4    22400003 A            LI,4     3
     1243   01 004A5    ED40041B              WD,4     *GPAC
     1244   01 004A6    6AF00491              BAL,15   REGRESTR          RESTORE REGISTER CONTENTS
     1245   01 004A7    E800049A              B        *RSTSAV
     1246                            *
     1247   01 004A8    35F0049A     %IORSTX  STW,15   RSTSAV            SAVE RETURN ADDRESS
     1248   01 004A9    6AF0048D              BAL,15   REGSAVE           SAVE REGISTER CONTENTS
     1249   01 004AA    22400004 A            LI,4     4
     1250   01 004AB    ED40041C              WD,4     *GRP0             RESET I/O
     1251   01 004AC    22400002 A            LI,4     2
     1252   01 004AD    ED40041C              WD,4     *GRP0             STOP NORMAL PHASE CLOCK
     1253   01 004AE    22405000 A            LI,4     X'5000'           NOT IIOP, MS ON-LINE, DC'S OFF-LINE
     1254   01 004AF    3040051E              AW,4     TESTCHAN          PRESERVE PROGRAMMED ADDRESS REG
     1255   01 004B0    ED400419              WD,4     *GPAA             SET IIOP MODE AND MS ON LINE
     1256   01 004B1    6AF00491              BAL,15   REGRESTR          RESTORE REGISTER CONTENTS
     1257   01 004B2    E800049A              B        *RSTSAV
     1258                            *
     1259   01 004B3    35F0049A     %IORSTYP STW,15   RSTSAV            SAVE RETURN ADDRESS
     1260   01 004B4    6AF0048D              BAL,15   REGSAVE           SAVE REGISTER CONTENTS
     1261   01 004B5    22400004 A            LI,4     4
     1262   01 004B6    ED40041C              WD,4     *GRP0             RESET I/O
     1263   01 004B7    22404000 A            LI,4     X'4000'           SET NIIOP MODE, AND MS ON LINE
     1264   01 004B8    3040051E              AW,4     TESTCHAN          PRESERVE PROGRAMMED ADDRESS REG
     1265   01 004B9    ED400419              WD,4     *GPAA             SET IIOP MODE AND MS ON LINE
     1266   01 004BA    6AF00491              BAL,15   REGRESTR
     1267   01 004BB    E800049A              B        *RSTSAV
     1268                            *
     1269                            *
     1270                            *
     1271   01 004BC    00000000 A   PHASAVE  DATA     0                 REG. 15 STORAGE DURING PHASE SNAP
     1272   01 004BD    35F004BC     PHASNAP  STW,15   PHASAVE           SAVE RETURN ADDRESS
     1273   01 004BE    6AF0048D              BAL,15   REGSAVE
     1274   01 004BF    6AF00495              BAL,15   %RSET             SET STANDARD VALUES INTO REGISTERS
     1275   01 004C0    3300051F              MTW,0    ADDATA            SECOND PART OF MESSAGE
     1276   01 004C1    693004F6              BCS,3    ADDEM             BRANCH IF ADDITIONAL DATA TO BE STORED
     1277                            *
     1278   01 004C2    22600000 A            LI,6     0                 CLEAR REGISTER TO BE STORED
     1279   01 004C3    22700000 A            LI,7     0                 CLEAR R7 FOR COUNTING
     1280   01 004C4    356E3119              STW,6    OUTBUFF,7         STORE ZEROES IN OUTPUT BUFFER LOC.
     1281   01 004C5    20700001 A            AI,7     1                 INCREMENT LOCATION INDEX
     1282   01 004C6    21700800 A            CI,7     2048              ALL LOCATIONS CLEARED?
     1283   01 004C7    693004C4              BCS,3    %-3               IF NOT, LOOP
     1284                            *
     1285                            *
     1286   01 004C8    33000523              MTW,0    STRTFLG           IS THIS THE INITIAL PHASE
     1287   01 004C9    683004E4              BCR,3    STARTEM           BRANCH IF NOT
     1288                            *
     1289                            *
     1290                            *
     1291                            *
     1292   01 004CA    3290041C     PHASEM   LW,9     GRP0              LOAD MIOP-VIA-MS DISPLAY ADDRESS
     1293   01 004CB    3590051C              STW,9    DISPGRP           SAVE FOR FORMING READ DIRECT
     1294   01 004CC    227FFFF6 A            LI,7     -10               SET DISPLAY GROuP COUNT
     1295                            *
     1296   01 004CD    2290000C A   GROUPEM  LI,9     12                SET HEX POSITIONING SHIFT COUNT
     1297   01 004CE    3590051D              STW,9    POSIT
     1298   01 004CF    32903029              LW,9     =X'40404040'      SPACES
     1299   01 004D0    359C3119              STW,9    OUTBUFF,6
     1300   01 004D1    20600001 A            AI,6     1                 INCREMENT STORE INDEX
     1301   01 004D2    224FFFFC A            LI,4     -4                SET BYTE COUNT
     1302   01 004D3    6610051C              AWM,1    DISPGRP           FORM READ DIRECT ADDRESS
     1303                            *
     1304   01 004D4    EC80051C     BYTEM    RD,8     *DISPGRP          READ DISPLAY GROUP
     1305   01 004D5    35800009 A            STW,8    9                 RESPONSE TO R9 FOR HEX CHECK
     1306   01 004D6    4B980508              AND,9    MASK+4,4          MASK FOR DESIRED BIT
     1307   01 004D7    31980514              CW,9     DEC+4,4           COMPARE SELECTED BIT WITH 9
     1308   01 004D8    69200500              BCS,2    CONVERT           IF DIGIT= > 9, BRANCH TO CONVERT
     1309   01 004D9    4B880508              AND,8    MASK+4,4          INDEXED MASK FOR HEX BIT
     1310   01 004DA    3088050E              AW,8     ZONE+4,4          ZONE CONVERT INDEXED
     1311                            *
     1312   01 004DB    A580051D     SHIFTEM  SLS,8    *POSIT            INDIRECT SHIFT
     1313   01 004DC    33C0051D              MTW,-4   POSIT             SHIFT COUNT MINUS FOUR
     1314   01 004DD    668C3119              AWM,8    OUTBUFF,6         STORE IN INCREMENTED LOCATION
     1315   01 004DE    654004D4              BIR,4    BYTEM             LOOP TO COMPLETE DISPLAY WRD CONVER.
     1316   01 004DF    20600001 A            AI,6     1                 INCREMENT BYTE COUNT
     1317                            *
     1318   01 004E0    657004CD              BIR,7    GROUPEM           LOOP TO COMPLETE 7 DISPLAY GROUPS
     1319   01 004E1    3290302A              LW,9     =X'150D0D0D'
     1320   01 004E2    359C3119              STW,9    OUTBUFF,6
     1321   01 004E3    20600001 A            AI,6     1
     1322                            *
     1323   01 004E4    33000520     STARTEM  MTW,0    FIFLG             IS FI CLOCK TO BE GIVEN
     1324   01 004E5    693004E9              BCS,3    %+4               BRANCH IF NOT
     1325   01 004E6    33100520              MTW,1    FIFLG             SET FIFLG
     1326   01 004E7    ED10041C              WD,1     *GRP0             GIVE FI CLOCK
     1327   01 004E8    680004CA              B        PHASEM
     1328   01 004E9    655004F3              BIR,5    CLOCKEM           LOOP TO COMPLETE ALL PHASES
     1329                            *
     1330   01 004EA    33F00006 A            MTW,15   6
     1331   01 004EB    25600002 A            SLS,6    2
     1332   01 004EC    356008D7              STW,6    BYTECNT           SAVE BYTECOUNT
     1333   01 004ED    3310051F              MTW,1    ADDATA            SET ADD DATA FLAG
     1334   01 004EE    22400000 A            LI,4     0
     1335   01 004EF    35400523              STW,4    STRTFLG           CLEAR START FLAG
     1336   01 004F0    35400520              STW,4    FIFLG             CLEAR FIFLG
     1337   01 004F1    6AF00491              BAL,15   REGRESTR          RESTORE REGISTER VALUES
     1338   01 004F2    E80004BC              B        *PHASAVE          RETURN TO CALLING ROUTINE
     1339                            *
     1340   01 004F3    22400009 A   CLOCKEM  LI,4     9
     1341   01 004F4    ED40041C              WD,4     *GRP0             SEND FM CLOCK
     1342   01 004F5    680004CA              B        PHASEM            RETURN TO SNAP NEXT PHASE
     1343                            *
     1344   01 004F6    326008D7     ADDEM    LW,6     BYTECNT
     1345   01 004F7    2560007E A            SLS,6    -2                POSITION
     1346   01 004F8    33000521              MTW,0    NEWLINE
     1347   01 004F9    683004FC              BCR,3    %+3
     1348   01 004FA    3290302B              LW,9     =X'15150D0D'      LOAD NEW LINE CODES
     1349   01 004FB    359C3119              STW,9    OUTBUFF,6         STORE NEW LINE CODES
     1350   01 004FC    20600001 A            AI,6     1
     1351   01 004FD    33000523              MTW,0    STRTFLG
     1352   01 004FE    683004E4              BCR,3    STARTEM
     1353   01 004FF    680004CA              B        PHASEM
     1354                            *
     1355   01 00500    38980514     CONVERT  SW,9     DEC+4,4           SUBTRACT CONVERSION CONSTANT
     1356   01 00501    3098051A              AW,9     KON+4,4           ADD EBCDIC CONSTANT
     1357   01 00502    35900008 A            STW,9    8                 PREPARE FOR STORING DIGIT
     1358   01 00503    680004DB              B        SHIFTEM           RETURN TO CONTINUE CONVERSION
     1359                            *
     1360   01 00504    0000F000 A   MASK     DATA     X'F000'
     1361   01 00505    00000F00 A            DATA     X'0F00'
     1362   01 00506    000000F0 A            DATA     X'00F0'
     1363   01 00507    0000000F A            DATA     X'000F'
     1364   01 00508    00000000 A            DATA     0
     1365   01 00509    00000000 A            DATA     0
     1366                            *
     1367   01 0050A    000F0000 A   ZONE     DATA     X'F0000'
     1368   01 0050B    0000F000 A            DATA     X'F000'
     1369   01 0050C    00000F00 A            DATA     X'F00'
     1370   01 0050D    000000F0 A            DATA     X'F0'
     1371   01 0050E    00000000 A            DATA     0
     1372   01 0050F    00000000 A            DATA     0
     1373                            *
     1374   01 00510    00009000 A   DEC      DATA     X'9000'
     1375   01 00511    00000900 A            DATA     X'900'
     1376   01 00512    00000090 A            DATA     X'90'
     1377   01 00513    00000009 A            DATA     X'9'
     1378   01 00514    00000000 A            DATA     0
     1379   01 00515    00000000 A            DATA     0
     1380                            *
     1381   01 00516    000C0000 A   KON      DATA     X'C0000'
     1382   01 00517    0000C000 A            DATA     X'C000'
     1383   01 00518    00000C00 A            DATA     X'C00'
     1384   01 00519    000000C0 A            DATA     X'C0'
     1385   01 0051A    00000000 A            DATA     0
     1386   01 0051B    00000000 A            DATA     0
     1387                            *
     1388   01 0051C    00000000 A   DISPGRP  DATA     0
     1389   01 0051D    00000000 A   POSIT    DATA     0
     1390   01 0051E    00000000 A   TESTCHAN DATA     0
     1391   01 0051F    00000000 A   ADDATA   DATA     0
     1392   01 00520    00000000 A   FIFLG    DATA     0
     1393   01 00521    00000000 A   NEWLINE  DATA     0
     1394   01 00522    00000000 A   LASTSUB  DATA     0
     1395                            *
     1396                            *
     1397                            *        I / O    S U B R O U T I N E S
     1398                            *
     1399                            *
     1400                            *
     1401                            *
     1402                            *        SIO SUBROUTINE
     1403                            *
     1404   01 00523    00000000 A   STRTFLG  DATA     0
     1405   01 00524    00000000 A   EVENFLAG DATA     0
     1406   01 00525    00000000 A   SIOSAVE  DATA     0
     1407                            *
     1408                            *
     1409   01 00526    00000000 A   STRTSAVE DATA     0
     1410   01 00527    35F00526     STRTSUB  STW,15   STRTSAVE          SAVE RETURN
     1411   01 00528    6AF0048D              BAL,15   REGSAVE           SAVE REGISTER VALUES
     1412   01 00529    22400001 A            LI,4     1
     1413   01 0052A    35400523              STW,4    STRTFLG
     1414   01 0052B    35400520              STW,4    FIFLG
     1415   01 0052C    22500000 A            LI,5     0
     1416   01 0052D    6AF004BD              BAL,15   PHASNAP
     1417   01 0052E    ED40041C              WD,4     *GRP0
     1418   01 0052F    35400523              STW,4    STRTFLG
     1419   01 00530    35500521              STW,5    NEWLINE
     1420   01 00531    6AF00491              BAL,15   REGRESTR
     1421   01 00532    E8000526              B        *STRTSAVE
     1422                            *
     1423                            *
     1424   01 00533    35F00525     SIOSUB   STW,15   SIOSAVE           SAVE RETURN ADDRESS
     1425   01 00534    6AF0048D              BAL,15   REGSAVE           SAVE REG 0-15
     1426   01 00535    B2400525              LW,4     *SIOSAVE          FETCH ORDER AND BA FOR THIS SIO
     1427   01 00536    35400140              STW,4    SIODBWRD
     1428   01 00537    33100525              MTW,1    SIOSAVE
     1429   01 00538    B2400525              LW,4     *SIOSAVE          FETCH FLAGS AND BC FOR THIS SIO
     1430   01 00539    35400141              STW,4    SIODBWRD+1
     1431                            *
     1432   01 0053A    220000A0              LI,0     DA(SIODBWRD)
     1433   01 0053B    6AF00527              BAL,15   STRTSUB
     1434   01 0053C    33100520              MTW,1    FIFLG             INHIBIT FURTHER TI PHASEING
     1435   01 0053D    33000524              MTW,0    EVENFLAG          HAS EVEN REG BEEN SPECIFIED
     1436   01 0053E    68300544              BCR,3    %+6               BRANCH IF NOT
     1437   01 0053F    22400000 A            LI,4     0
     1438   01 00540    35400524              STW,4    EVENFLAG          CLEAR EVEN FLAG
     1439   01 00541    CCC0040D              SIO,12   *IOPT
     1440   01 00542    225FFFFA A            LI,5     -6                FM01, FM11, FM12, FM13, AND FM14
     1441   01 00543    68000546              B        %+3
     1442                            *
     1443   01 00544    CCD0040D              SIO,13   *IOPT
     1444   01 00545    225FFFFB A            LI,5     -5                FM01, FM11, FM13 AND  FM14
     1445   01 00546    6AF004BD              BAL,15   PHASNAP
     1446   01 00547    22400001 A            LI,4     1
     1447   01 00548    35400521              STW,4    NEWLINE
     1448   01 00549    6AF00491              BAL,15   REGRESTR          RESTORE REG CONTENTS
     1449   01 0054A    33100525              MTW,1    SIOSAVE
     1450   01 0054B    E8000525              B        *SIOSAVE          RETURN TO CALLING ROUTINE
     1451                            *
     1452                            *
     1453                            *
     1454                            *
     1455                            *
     1456                            *
     1457                            *
     1458                            *        TIO, TDV, AND HIO SUBROUTINE
     1459                            *
     1460   01 0054C    35F00525     TTHSUB   STW,15   SIOSAVE           SAVE RETURN ADDRESS
     1461   01 0054D    6AF0048D              BAL,15   REGSAVE           SAVE REG 0-15
     1462                            *
     1463   01 0054E    33100521              MTW,1    NEWLINE
     1464   01 0054F    6AF00527              BAL,15   STRTSUB
     1465                            *
     1466   01 00550    33100520              MTW,1    FIFLG             INHIBIT FURTHER TI PHASEING
     1467   01 00551    33000524              MTW,0    EVENFLAG          HAS EVEN REG BEEN SPECIFIED
     1468   01 00552    68300557              BCR,3    %+5
     1469                            *
     1470   01 00553    22400000 A            LI,4     0
     1471   01 00554    35400524              STW,4    EVENFLAG          CLEAR EVEN FLAG
     1472   01 00555    225FFFFA A            LI,5     -6                FM01, FM11, FM12, FM13, AND FM14
     1473   01 00556    68000558              B        %+2
     1474                            *
     1475   01 00557    225FFFFB A            LI,5     -5                FM01, FM11, FM13 AND  FM14
     1476   01 00558    E7000525              EXU      *SIOSAVE
     1477   01 00559    6AF004BD              BAL,15   PHASNAP
     1478   01 0055A    6AF00491              BAL,15   REGRESTR          RESTORE REG CONTENTS
     1479   01 0055B    33100525              MTW,1    SIOSAVE
     1480   01 0055C    E8000525              B        *SIOSAVE          RETURN TO CALLING ROUTINE
     1481                            *
     1482                            *
     1483                            *
     1484                            *
     1485                            *
     1486                            *
     1487                            *        ORDER OUT SUBROUTINE
     1488                            *
     1489   01 0055D    00000000 A   OUTFLG   DATA     0
     1490   01 0055E    35F00525     ORDOUT   STW,15   SIOSAVE
     1491   01 0055F    6AF0048D              BAL,15   REGSAVE
     1492   01 00560    22400004 A            LI,4     4
     1493   01 00561    ED40041A              WD,4     *GPAB             ENABLE SERVICE CALL
     1494                            *
     1495   01 00562    225FFFFE A            LI,5     -2
     1496   01 00563    6AF004BD              BAL,15   PHASNAP
     1497   01 00564    225FFFFA A            LI,5     -6
     1498                            *
     1499   01 00565    3300055D              MTW,0    OUTFLG
     1500   01 00566    6830056A              BCR,3    %+4
     1501                            *
     1502   01 00567    3250055D              LW,5     OUTFLG
     1503   01 00568    22400000 A            LI,4     0
     1504   01 00569    3540055D              STW,4    OUTFLG
     1505                            *
     1506   01 0056A    22400000 A            LI,4     0
     1507   01 0056B    35400521              STW,4    NEWLINE           INHIBIT NEW LINE
     1508   01 0056C    6AF004BD              BAL,15   PHASNAP
     1509   01 0056D    22400001 A            LI,4     1
     1510   01 0056E    35400521              STW,4    NEWLINE           ENABLE NEW LINE
     1511   01 0056F    6AF00491              BAL,15   REGRESTR
     1512   01 00570    E8000525              B        *SIOSAVE
     1513                            *
     1514                            *
     1515                            *
     1516                            *
     1517                            *
     1518                            *
     1519                            *
     1520                            *        C O M P A R E   R O U T I N E S
     1521                            *
     1522                            *
     1523                            *
     1524                            *
     1525                            *
     1526   01 00571    22400000 A   COMPARE  LI,4     0
     1527   01 00572    354006A2              STW,4    COMPERR           CLEAR ERROR FLAG
     1528   01 00573    3540071E              STW,4    CYCLINDX          CLEAR CYCLE INDEX
     1529                            *
     1530   01 00574    EC400426              RD,4     *GRPA             FETCH AIOP SETTING
     1531   01 00575    4B40302C              AND,4    =X'10'            MSK FOR CURRENT VALUE
     1532   01 00576    354005BA              STW,4    IMPLANTD          SET IMPLANT VALUE
     1533   01 00577    6AF005BC              BAL,15   IMPLANT           BRANCH TO IMPLANT ROUTINE
     1534   01 00578    00001342              DATA     100Q1+9           STARTING ADDRESS
     1535   01 00579    0000FFEF A            DATA     X'FFEF'           UNIT MASK
     1536   01 0057A    0000000A A            DATA     10                INDEXING CONSTANT
     1537                            *
     1538   01 0057B    EC40041D              RD,4     *GRP1             FETCH LASTONE SETTING
     1539   01 0057C    4B40302D              AND,4    =X'8'             MASK FOR CURRENT VALUE
     1540   01 0057D    354005BA              STW,4    IMPLANTD          SET IMPLANT VALUE
     1541   01 0057E    6AF005BC              BAL,15   IMPLANT           BRANCH TO IMPLANT ROUTINE
     1542   01 0057F    00001339              DATA     100Q1             STARTING ADDRESS
     1543   01 00580    0000FFF7 A            DATA     X'FFF7'           UNIT MASK
     1544   01 00581    0000000A A            DATA     10                 INDEXING CONSTANT
     1545                            *
     1546   01 00582    3240044A              LW,4     RTN               FETCH HEX TEST NUMBER
     1547   01 00583    325806BA              LW,5     COOKADDR,4        FETCH COOKBOOK TEST ADDRESS
     1548   01 00584    3260044B              LW,6     SUBT              FETCH SUBTEST NUMBER
     1549   01 00585    33F00006 A            MTW,15   6                 SUBTRACT ONE
     1550   01 00586    30500006 A            AW,5     6                 ADD SUBTEST NUMBER TO ADDR LOC
     1551   01 00587    B2400005 A            LW,4     *5                FETCH COMPARE DATA SUBTEST ADDRESS
     1552   01 00588    3540069B              STW,4    COOKWORD          SET INITIAL COMPARE ADDR
     1553   01 00589    3540069C              STW,4    COOKCYCL          SET INITIAL CYCLE ADDR
     1554   01 0058A    3540069D              STW,4    COOKSTRT          SET INITIAL COOKBOOK OUTPUT ADDRESS
     1555   01 0058B    22403119              LI,4     OUTBUFF           FETCH STARTING ADDR OF OUTPUT BUFFER
     1556   01 0058C    3540069E              STW,4    BUFFWORD          SET INITIAL COMPARE ADDR OF OUTBUFF
     1557   01 0058D    3540069F              STW,4    BUFFLINE          SET INITIAL SNAP LINE ADDRESS
     1558   01 0058E    354006A0              STW,4    BUFFCYCL          SET INITIAL SNAP CYCLE ADDRESS
     1559   01 0058F    354006A1              STW,4    BUFFSTRT          SET INITIAL SNAP OUTPUT ADDR
     1560   01 00590    325008D7              LW,5     BYTECNT           FETCH DISPLAY GROUP BYTE COUNT
     1561   01 00591    2550007E A            SLS,5    -2                FORM WORD COUNT
     1562   01 00592    20500001 A            AI,5     1
     1563   01 00593    30400005 A            AW,4     5                 CALCULATE BUFFER END ADDR
     1564   01 00594    354006A4              STW,4    TESTEND           SET BUFFER END ADDR
     1565                            *
     1566   01 00595    22500004 A            LI,5     4                 SET STORE SELECTIVE MASK
     1567   01 00596    22600000 A            LI,6     0                 INITIALIZE LOAD INDEX
     1568   01 00597    22700000 A            LI,7     0                 INITIALIZE STORE INDEX
     1569                            *
     1570   01 00598    324C311A     MTCHLOOP LW,4     OUTBUFF+1,6       FETCH 'MATCH' SETTING, INDEXED
     1571   01 00599    21400000 A            CI,4     0                 HAS BUFFER END BEEN REACHED
     1572   01 0059A    683005A7              BCR,3    %+13               IF SO, BRANCH
     1573   01 0059B    B24E069B              LW,4     *COOKWORD,7       FETCH COOKBOOK WORD
     1574   01 0059C    6AF005DC              BAL,15   EBCTOHEX          CONVERT TO HEX
     1575   01 0059D    35400008 A            STW,4    8                  STORE IN R8
     1576   01 0059E    324C311A              LW,4     OUTBUFF+1,6       FETCH BUFFER WORD
     1577   01 0059F    6AF005DC              BAL,15   EBCTOHEX           CONVERT TO HEX
     1578   01 005A0    47400008 A            STS,4    8                 COPY 'MATCH' SETTING INTO R8
     1579   01 005A1    32400008 A            LW,4     8                 R8 TO R4
     1580   01 005A2    6AF005F6              BAL,15   HEXTOEBC           CONVERT BACK TO EBCDIC
     1581   01 005A3    B54E069B              STW,4    *COOKWORD,7       RESTORE WORD IN COOKBOOK
     1582   01 005A4    20600015 A            AI,6     21                INCREMENT TO NEXT MATCH LOC
     1583   01 005A5    2070000A A            AI,7     10                INCREMENT TO NEXT MATCH LOC
     1584   01 005A6    68000598              B        MTCHLOOP          LOOP UNTIL DONE WITH BUFFER
     1585                            *
     1586   01 005A7    B240069E     WORDTEST LW,4     *BUFFWORD         FETCH THE SNAPSHOT WORD
     1587   01 005A8    31403029              CW,4     =X'40404040'      IS IT SPACES
     1588   01 005A9    68300606              BCR,3    NEXTWORD          LOOP FOR NEXT WORD
     1589   01 005AA    3140302A              CW,4     =X'150D0D0D'      IS IT LINE END
     1590   01 005AB    68300608              BCR,3    NEXTLINE          LOOP FOR NEXT LINE
     1591   01 005AC    3140302B              CW,4     =X'15150D0D'      IS IT GROUP END
     1592   01 005AD    6830060C              BCR,3    NEXTGRP           LOOP FOR NEXT GROUP
     1593   01 005AE    325006A4              LW,5     TESTEND           FETCH BUFFER END ADDR
     1594   01 005AF    3150069E              CW,5     BUFFWORD          HAS TEST END BEEN REACHED
     1595   01 005B0    68300630              BCR,3    COMPOUT           IF SO, BRANCH TO OUTPUT ROUTINE
     1596                            *
     1597   01 005B1    B250069B              LW,5     *COOKWORD         FETCH  COOKBOOK WORD
     1598   01 005B2    31400005 A            CW,4     5                 DO WORDS COMPARE
     1599   01 005B3    69300614              BCS,3    MISCOMP           BRANCH IF NOT
     1600   01 005B4    3310069B              MTW,1    COOKWORD          INCREMENT COOKBOOK WORD ADDR
     1601   01 005B5    3310069E              MTW,1    BUFFWORD          INCREMENT OUTPUT BUFFER WORD ADDR
     1602   01 005B6    680005A7              B        WORDTEST          LOOP FOR NEXT WORD
     1603                            *
     1604                            *
     1605                            *
     1606                            *
     1607                            *
     1608                            *
     1609                            *
     1610                            *
     1611                            *********COMPARE SUBROUTINES *******************************************
     1612                            *
     1613                            *
     1614                            *
     1615                            *
     1616                            *        IMPLANT SUBROUTINE
     1617                            *
     1618                            *
     1619   01 005B7    00000000 A   IMPLANTA DATA     0
     1620   01 005B8    00000000 A   IMPLANTB DATA     0
     1621   01 005B9    00000000 A   IMPLANTC DATA     0
     1622   01 005BA    00000000 A   IMPLANTD DATA     0
     1623   01 005BB    00000000 A   IMPSAVE  DATA     0
     1624   01 005BC    35F005BB     IMPLANT  STW,15   IMPSAVE           SAVE R15 FOR RETURN AND POINTING
     1625   01 005BD    B24005BB              LW,4     *IMPSAVE          FETCH STARTING ADDRESS
     1626   01 005BE    354005B7              STW,4    IMPLANTA          SET STARTING ADDRESS
     1627   01 005BF    331005BB              MTW,1    IMPSAVE           INCREMENT POINTER
     1628   01 005C0    B24005BB              LW,4     *IMPSAVE          FETCH UNIT MASK
     1629   01 005C1    354005B8              STW,4    IMPLANTB          SET UNIT MASK
     1630   01 005C2    331005BB              MTW,1    IMPSAVE           INCREMENT POINTER
     1631   01 005C3    B24005BB              LW,4     *IMPSAVE          FETCH INDEXING CONSTANT
     1632   01 005C4    354005B9              STW,4    IMPLANTC          SET INDEXING CONSTANT
     1633   01 005C5    331005BB              MTW,1    IMPSAVE           INCREMENT POINTER TO RETURN VALUE
     1634   01 005C6    22500000 A            LI,5     0                 CLEAR INDEX REGISTER
     1635                            *
     1636   01 005C7    B24A05B7     IMPLOOP  LW,4     *IMPLANTA,5       FETCH EBCDIC COOKBOOK WORD
     1637   01 005C8    E83005BB              BCR,3    *IMPSAVE          RETURN TO CALLING ROUTINE IF ZERO
     1638   01 005C9    6AF005DC              BAL,15   EBCTOHEX          CONVERT R4 TO HEX
     1639   01 005CA    4B4005B8              AND,4    IMPLANTB          CLEAR BITS TO BE IMPLANTED
     1640   01 005CB    494005BA              OR,4     IMPLANTD          SET IMPLANT VALUE INTO HEX WORD
     1641   01 005CC    6AF005F6              BAL,15   HEXTOEBC          CONVERT BACK TO EBCDIC
     1642   01 005CD    B54A05B7              STW,4    *IMPLANTA,5       REPLACE COOKBOOK WORD
     1643   01 005CE    305005B9              AW,5     IMPLANTC          INCREMENT STORE LOC BY UNIT INDEX
     1644   01 005CF    680005C7              B        IMPLOOP           LOOP FOR ALL WORDS TO BE CHANGED
     1645                            *
     1646   01 005D0    00000000 A   CPLNTSAV DATA     0
     1647   01 005D1    35F005D0     CIMPLNT  STW,15   CPLNTSAV          SAVE R15 FOR RETURN AND POINTING
     1648   01 005D2    6AF005F6              BAL,15   HEXTOEBC          CONVERT R4 TO EBCDIC
     1649   01 005D3    B25005D0              LW,5     *CPLNTSAV         FETCH ADRES TO BE STORED
     1650   01 005D4    B5400005 A            STW,4    *5                STORE CONVERTED DATA
     1651   01 005D5    6AF005DC              BAL,15   EBCTOHEX          CONVERT R4 BACK TO HEX
     1652   01 005D6    331005D0              MTW,1    CPLNTSAV          INCREMENT POINTER TO RETURN VALUE
     1653   01 005D7    E80005D0              B        *CPLNTSAV         RETURN TO CALLING ROUTINE
     1654                            *
     1655                            *
     1656                            *
     1657                            *
     1658                            *        EBCDIC TO HEXADECIMAL CONVERSION ROUTINE
     1659                            *
     1660                            *
     1661   01 005D8    00000000 A   HSAVE    DATA     0
     1662   01 005D9    00000000 A   HSAVE1   DATA     0
     1663   01 005DA    00000000 A   HSAVE5   DATA     0
     1664   01 005DB    00000000 A   HSAVE9   DATA     0
     1665                            *
     1666   01 005DC    351005D9     EBCTOHEX STW,1    HSAVE1            SAVE R1
     1667   01 005DD    355005DA              STW,5    HSAVE5            SAVE R5
     1668   01 005DE    359005DB              STW,9    HSAVE9            SAVE R9
     1669   01 005DF    22100003 A            LI,1     3                 SET INDEX TO STORE BYTES 3 THRU 0
     1670                            *
     1671   01 005E0    22500000 A   BLOOP    LI,5     0                 CLEAR R5
     1672   01 005E1    25400178 A            SLD,4    -8                SHIFT IN LO-ORDER 8 BITS
     1673   01 005E2    25500068 A            SLS,5    -24               SHIFT INTO BYTE POSITION 3
     1674   01 005E3    7150302E              CB,5     =X'F0000000'      CHECK FOR 0 THRU 9
     1675   01 005E4    681005E6              BCR,1    %+2               BRANCH IF 9 OR LESS
     1676   01 005E5    20500039 A            AI,5     X'39'             ADJUST IF A THRU F
     1677   01 005E6    4B50301C              AND,5    =X'0F'            MASK FOR BCD VALUE
     1678   01 005E7    755205D8              STB,5    HSAVE,1           STORE BCD BYTE
     1679   01 005E8    201FFFFF A            AI,1     -1                DECREMENT STORE POSITIOM
     1680   01 005E9    681005E0              BCR,1    BLOOP             LOOP FOR 4 BYTES
     1681                            *
     1682   01 005EA    22400000 A            LI,4     0
     1683   01 005EB    229FFFFC A            LI,9     -4                SET INDEX TO COMBINE 4 BYTES
     1684   01 005EC    325005D8              LW,5     HSAVE             FETCH BCD WORD
     1685   01 005ED    72100005 A            LB,1     5                 FETCH BYTE ZERO
     1686   01 005EE    25500008 A            SLS,5    8                 SHIFT NEXT BYTE INTO ZERO POSITION
     1687   01 005EF    25400004 A            SLS,4    4                 POSITION 4 FOR RECIEPT OF NEXT BYTE
     1688   01 005F0    30400001 A            AW,4     1                 ADD BYTE TO R4
     1689   01 005F1    659005ED              BIR,9    %-4               LOOP FOR ALL FOUR BYTES
     1690                            *
     1691   01 005F2    461005D9              XW,1     HSAVE1            RESTORE R1
     1692   01 005F3    465005DA              XW,5     HSAVE5            RESTORE R5
     1693   01 005F4    469005DB              XW,9     HSAVE9            RESTORE R9
     1694   01 005F5    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1695                            *
     1696                            *
     1697                            *
     1698                            *
     1699                            *        HEXADECIMAL TO EBCDIC CONVERSION ROUTINE
     1700                            *
     1701                            *
     1702   01 005F6    351005D9     HEXTOEBC STW,1    HSAVE1            SAVE R1
     1703   01 005F7    355005DA              STW,5    HSAVE5            SAVE R5
     1704   01 005F8    22100003 A            LI,1     3                 SET INDEX TO STORE BYTES 3 THRU 0
     1705                            *
     1706   01 005F9    225000F0 A   HLOOP    LI,5     X'F0'             HI ORDER EBC FOR DIGITS 0 THRU 9
     1707   01 005FA    2540017C A            SLD,4    -4                SHIFT IN LO-ORDER 4 BITS
     1708   01 005FB    25500204 A            SCS,5    4                 SHIFT INTO BYTE POSITION 3
     1709   01 005FC    7150302F              CB,5     =X'F9000000'      CHECK FOR 0 THRU 9
     1710   01 005FD    682005FF              BCR,2    %+2               BRANCH IF LESS THAN OR EQUAL TO 9
     1711   01 005FE    205FFFC7 A            AI,5     -X'39'            ADJUST FOR A THRU F
     1712   01 005FF    755205D8              STB,5    HSAVE,1           STORE RESULTING BYTE
     1713   01 00600    201FFFFF A            AI,1     -1                DECREMENT STORE POSITION
     1714   01 00601    681005F9              BCR,1    HLOOP             LOOP UNTIL 4 DIGITS ARE CONVERTED
     1715                            *
     1716   01 00602    324005D8              LW,4     HSAVE             SET RESULT IN R4
     1717   01 00603    461005D9              XW,1     HSAVE1            RESTORE R1
     1718   01 00604    465005DA              XW,5     HSAVE5            RESTORE R5
     1719   01 00605    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     1720                            *
     1721   01 00606    3310069E     NEXTWORD MTW,1    BUFFWORD          INCREMENT SNAPSHOT WORD ADDR
     1722   01 00607    680005A7              B        WORDTEST          LOOP FOR NEXT WORD
     1723                            *
     1724   01 00608    3310069E     NEXTLINE MTW,1    BUFFWORD          INCREMENT SNAPSHOT WORD ADDRESS
     1725   01 00609    3240069E              LW,4     BUFFWORD          FETCH NEW WORD ADDR
     1726   01 0060A    3540069F              STW,4    BUFFLINE          SET THIS VALUE FOR LINE ADDRESS
     1727   01 0060B    680005A7              B        WORDTEST          LOOP FOR NEXT WORD
     1728                            *
     1729   01 0060C    3310069E     NEXTGRP  MTW,1    BUFFWORD          INCREMENT SNAPSHOT WORD ADDRESS
     1730   01 0060D    3240069E              LW,4     BUFFWORD          FETCH NEW WORD ADDR
     1731   01 0060E    3540069F              STW,4    BUFFLINE          SET THIS VALUE FOR NEW LINE ADDRESS
     1732   01 0060F    354006A0              STW,4    BUFFCYCL          SET THIS VALUE FOR GRP ADDRESS
     1733   01 00610    3310071E              MTW,1    CYCLINDX          INCREMENT CYCLE INDEX
     1734   01 00611    3240069B              LW,4     COOKWORD          FETCH COOKBOOK WORD ADDRESS
     1735   01 00612    3540069C              STW,4    COOKCYCL          SET COOKBOOK CYCLE ADDRESS
     1736   01 00613    680005A7              B        WORDTEST          LOOP FOR NEXT WORD
     1737                            *
     1738   01 00614    330006A2     MISCOMP  MTW,0    COMPERR           IS THIS THE FIRST ERROR
     1739   01 00615    6930061E              BCS,3    LINEFLAG          BRANCH IF NOT
     1740                            *
     1741   01 00616    3240071E              LW,4     CYCLINDX          FETCH CYCLE INDEX
     1742   01 00617    354006A5              STW,4    ERRCYCLE          SET ERROR CYCLE NUMBER
     1743   01 00618    324006A0              LW,4     BUFFCYCL          FETCH SNAPSHOT CYCLE ADDR
     1744   01 00619    354006A1              STW,4    BUFFSTRT          SET STARTING ADDRESS FOR OUTPUT
     1745   01 0061A    3240069C              LW,4     COOKCYCL          FETCH COOKBOOK CYCLE ADDR
     1746   01 0061B    3540069D              STW,4    COOKSTRT          SET AS START FOR COOKBOOK OUTPUT
     1747   01 0061C    22100001 A            LI,1     1
     1748   01 0061D    351006A2              STW,1    COMPERR           SET COMPARE ERROR FLAG
     1749                            *
     1750   01 0061E    32403030     LINEFLAG LW,4     =X'406E4040'      FETCH ERROR LINE CODE
     1751   01 0061F    B250069F              LW,5     *BUFFLINE         FETCH ERR LINE WORD
     1752   01 00620    31503030              CW,5     =X'406E4040'      HAS IT BEEN LINE FLAGGED
     1753   01 00621    68300625              BCR,3    %+4               IF SO, BRANCH
     1754   01 00622    31503031              CW,5     =X'406E405C'      HAS IT BEEN WORD FLAGGED
     1755   01 00623    68300625              BCR,3    %+2               IF SO, BRANCH
     1756   01 00624    B540069F              STW,4    *BUFFLINE         FLAG ERRORED LINE
     1757   01 00625    33F0069E              MTW,15   BUFFWORD          DECREMENT SNPSHOT WORD ADDRESS
     1758   01 00626    B240069E              LW,4     *BUFFWORD         FETCH THIS WORD FOR ERR CHK
     1759   01 00627    31403030              CW,4     =X'406E4040'      HAS THIS WORD BEEN ERR LINE FLAGGED
     1760   01 00628    6930062B              BCS,3    %+3               BRANCH IF NOT
     1761   01 00629    32403031              LW,4     =X'406E405C'      FLAG FOR BOTH LINE AND WORD
     1762   01 0062A    6800062C              B        %+2
     1763   01 0062B    32403032              LW,4     =X'4040405C'      FETCH ERR WORD CODE
     1764   01 0062C    B540069E              STW,4    *BUFFWORD         FLAG ERRORED WORD
     1765   01 0062D    3320069E              MTW,2    BUFFWORD          INCREMENT SNAPSHOT WORD ADDRESS
     1766   01 0062E    3310069B              MTW,1    COOKWORD          INCREMENT COOKBOOK ADDRESS
     1767   01 0062F    680005A7              B        WORDTEST          LOOP FOR NEXT WORD
     1768                            *
     1769                            *
     1770                            *
     1771                            *
     1772   01 00630    324006A5     COMPOUT  LW,4     ERRCYCLE          FETCH ERROR CYCLE NUMBER
     1773   01 00631    3540071E              STW,4    CYCLINDX          SET CYCLE INDEX TO FAILING VALUE
     1774   01 00632    330006A2              MTW,0    COMPERR           WAS MISCOMPARE DETECTED
     1775   01 00633    69300636              BCS,3    %+3               IF SO, BRANCH
     1776   01 00634    22400000 A            LI,4     0
     1777   01 00635    3540071E              STW,4    CYCLINDX          SET CYCLE INDEX TO ZERO
     1778   01 00636    21400000 A            CI,4     0                 WAS ERROR IN FIRST CYCLE
     1779   01 00637    6830063B              BCR,3    %+4               IF SO, BRANCH
     1780   01 00638    33000721              MTW,0    LINEPRNT          IS LINE PRINTER SELECTED
     1781   01 00639    6930065F              BCS,3    COMPOUTL+1        ERROR WAS NOT IN FIRST CYL
     1782   01 0063A    6800063E              B        KOPLOOP
     1783   01 0063B    33000721              MTW,0    LINEPRNT          IS THE LINEPRINTER SELECTED
     1784   01 0063C    6930065E              BCS,3    COMPOUTL          IF SO, BRANCH
     1785                            *
     1786   01 0063D    6AF00779              BAL,15   HEADOUTK          OUTPUT INITIAL HEADER
     1787                            *
     1788   01 0063E    324006A1     KOPLOOP  LW,4     BUFFSTRT          FETCH STARTING ADDRESS
     1789   01 0063F    314006A4              CW,4     TESTEND           IS OUTPUT COMPLETE
     1790   01 00640    6830076D              BCR,3    TYPEXIT            IF SO, BRANCH
     1791                            *
     1792   01 00641    33F00004 A            MTW,15   4                 DECREMENT STRT ADDRESS
     1793   01 00642    B2500004 A            LW,5     *4                FETCH LINT INDICATOR
     1794   01 00643    3150302B              CW,5     =X'15150D0D'      IS THIS A NEW GROUP
     1795   01 00644    69300647              BCS,3    %+3               BRANCH IF NOT
     1796   01 00645    6AF00779              BAL,15   HEADOUTK          OUTPUT INITIAL HEADER
     1797   01 00646    68000649              B        %+3
     1798   01 00647    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO CMND ADDRESS
     1799   01 00648    6AF00866              BAL,15   OUTYPE            GIVE ANOTHER NEW LINE
     1800   01 00649    D24006A1              LH,4     *BUFFSTRT         FETCH ERROR INDICATOR
     1801   01 0064A    31403033              CW,4     =X'406E'          DOES THIS LINE CONTAIN AN ERROR
     1802   01 0064B    6930064D              BCS,3    %+2               BRANCH IF NOT
     1803   01 0064C    6AF0067D              BAL,15   COOKOUT           OUTPUT COOKBOOK LINE
     1804   01 0064D    324006A1              LW,4     BUFFSTRT          FETCH STARTING ADDRESS
     1805   01 0064E    25400002 A            SLS,4    2                 FORM BYTE ADDRESS
     1806   01 0064F    30403034              AW,4     =X'05000000'      FORM COMMAND
     1807   01 00650    354008EA              STW,4    DWCMNDEK          SET ORDER AND BYTE ADDRESS
     1808   01 00651    22000475              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO CMND ADDR
     1809   01 00652    6AF00866              BAL,15   OUTYPE
     1810   01 00653    330006A3              MTW,0    COOKFLAG          WAS COOKLINE OUTPUT
     1811   01 00654    68300659              BCR,3    %+5               BRANCH IF NOT
     1812   01 00655    22000000 A            LI,0     0
     1813   01 00656    350006A3              STW,0    COOKFLAG          CLEAR COOKBOOK OUTPUT FLAG
     1814   01 00657    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO CMND ADDRESS
     1815   01 00658    6AF00866              BAL,15   OUTYPE            GIVE ANOTHER NEW LINE
     1816   01 00659    2240000A A            LI,4     10
     1817   01 0065A    6640069D              AWM,4    COOKSTRT          INCREMENT COOKBOOK LINE ADDRESS
     1818   01 0065B    22400015 A            LI,4     21
     1819   01 0065C    664006A1              AWM,4    BUFFSTRT          INCREMENT OUTPUT BUFFER LINE ADDRESS
     1820   01 0065D    6800063E              B        KOPLOOP           LOOP FOR NEXT LINE
     1821                            *
     1822                            *
     1823                            *
     1824                            *
     1825   01 0065E    6AF00812     COMPOUTL BAL,15   HEADOUTL          OUTPUT INITIAL HEADER MESSAGE
     1826                            *
     1827   01 0065F    324006A1     LCMPLOOP LW,4     BUFFSTRT          FETCH STARTING ADDRESS
     1828   01 00660    314006A4              CW,4     TESTEND           IS OUTPUT COMPLETE
     1829   01 00661    692007DD              BCS,2    LINEXIT           IF SO, BRANCH
     1830                            *
     1831   01 00662    33F00004 A            MTW,15   4                 DECREMENT STRT ADDRESS
     1832   01 00663    B2500004 A            LW,5     *4                FETCH LINT INDICATOR
     1833   01 00664    3150302B              CW,5     =X'15150D0D'      IS THIS A NEW GROUP
     1834   01 00665    69300667              BCS,3    %+2               BRANCH IF NOT
     1835   01 00666    6AF00812              BAL,15   HEADOUTL          OUTPUT INITIAL HEADER
     1836   01 00667    D24006A1              LH,4     *BUFFSTRT         FETCH ERROR INDICATOR
     1837   01 00668    31403033              CW,4     =X'406E'          DOES THIS LINE CONTAIN AN ERROR
     1838   01 00669    6930066B              BCS,3    %+2               BRANCH IF NOT
     1839   01 0066A    6AF0067D              BAL,15   COOKOUT           OUTPUT COOKBOOK LINE
     1840   01 0066B    324006A1              LW,4     BUFFSTRT          FETCH STARTING ADDRESS
     1841   01 0066C    25400002 A            SLS,4    2                 FORM BYTE ADDRESS
     1842   01 0066D    30403035              AW,4     =X'01000000'      FORM COMMAND
     1843   01 0066E    354008EA              STW,4    DWCMNDEK          SET ORDER AND BYTE ADDRESS
     1844   01 0066F    22000475              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO CMND ADDR
     1845   01 00670    6AF0086B              BAL,15   OUTPRINT
     1846   01 00671    330006A3              MTW,0    COOKFLAG          WAS COOKLINE OUTPUT
     1847   01 00672    68300677              BCR,3    %+5               BRANCH IF NOT
     1848   01 00673    22000000 A            LI,0     0
     1849   01 00674    350006A3              STW,0    COOKFLAG          CLEAR COOKBOOK OUTPUT FLAG
     1850   01 00675    2200047A              LI,0     DA(DWCMND1L)      DEDICATE R0 TO CMND ADDRESS
     1851   01 00676    6AF0086B              BAL,15   OUTPRINT          GIVE ANOTHER NEW LINE
     1852   01 00677    2240000A A            LI,4     10
     1853   01 00678    6640069D              AWM,4    COOKSTRT          INCREMENT COOKBOOK LINE ADDRESS
     1854   01 00679    22400015 A            LI,4     21
     1855   01 0067A    664006A1              AWM,4    BUFFSTRT          INCREMENT OUTPUT BUFFER LINE ADDRESS
     1856   01 0067B    6800065F              B        LCMPLOOP          LOOP FOR NEXT LINE
     1857                            *
     1858                            *
     1859                            *
     1860                            *
     1861   01 0067C    00000000 A   COSAVE   DATA     0
     1862   01 0067D    35F0067C     COOKOUT  STW,15   COSAVE            SAVE R15 FOR RETURN
     1863   01 0067E    225006A7              LI,5     COOKBUFF+1        FETCH FIRST STORE ADDRESS
     1864   01 0067F    22600000 A            LI,6     0                 SET STROE INDEX
     1865   01 00680    227FFFF6 A            LI,7     -10               SET LOOP COUNT
     1866   01 00681    331006A3              MTW,1    COOKFLAG          SET COOKBOOK OUTPUT FLAG
     1867                            *
     1868   01 00682    B24C069D     COOKLOOP LW,4     *COOKSTRT,6       FETCH FIRST WORD TO BE STORED
     1869   01 00683    B5400005 A            STW,4    *5                STORE COOKBOOK WORD
     1870   01 00684    20600001 A            AI,6     1                 INCREMENT WORD FETCH INDEX
     1871   01 00685    20500002 A            AI,5     2                 DOUBLE INDEX STORE INDEX
     1872   01 00686    65700682              BIR,7    COOKLOOP          LOOP FOR SEVEN WORDS
     1873                            *
     1874   01 00687    33000721              MTW,0    LINEPRNT          INHIBIT INITIAL HEADER IF
     1875   01 00688    69300693              BCS,3    COOKOUTL          IF SO, BRANCH
     1876   01 00689    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO CMND ADDRESS
     1877   01 0068A    6AF00866              BAL,15   OUTYPE            GIVE ANOTHER NEW LINE
     1878   01 0068B    22401A98              LI,4     BA(COOKBUFF)      FETCH COOKBOOK BUFFER BYTE ADDRESS
     1879   01 0068C    30403034              AW,4     =X'05000000'      FORM COMMAND
     1880   01 0068D    354008EA              STW,4    DWCMNDEK          SET ORDER AND BYTE ADDRESS
     1881   01 0068E    22000475              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO CMND ADDR
     1882   01 0068F    6AF00866              BAL,15   OUTYPE
     1883   01 00690    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     1884   01 00691    6AF00866              BAL,15   OUTYPE            SPACE ONE LINE
     1885   01 00692    E800067C              B        *COSAVE           REEURN TO CALLING ROUTINE
     1886                            *
     1887   01 00693    2200047A     COOKOUTL LI,0     DA(DWCMND1L)      DEDICATE R0 TO CMND ADDRESS
     1888   01 00694    6AF0086B              BAL,15   OUTPRINT          GIVE ANOTHER NEW LINE
     1889   01 00695    22401A98              LI,4     BA(COOKBUFF)      FETCH COOKBOOK BUFFER BYTE ADDRESS
     1890   01 00696    30403035              AW,4     =X'01000000'      FORM COMMAND
     1891   01 00697    354008EA              STW,4    DWCMNDEK          SET ORDER AND BYTE ADDRESS
     1892   01 00698    22000475              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO CMND ADDR
     1893   01 00699    6AF0086B              BAL,15   OUTPRINT
     1894   01 0069A    E800067C              B        *COSAVE           REEURN TO CALLING ROUTINE
     1895                            *
     1896                            *
     1897                            *
     1898                            *
     1899                            *
     1900                            *
     1901                            *
     1902                            *
     1903                            *
     1904                            ******** COMPARE TABLES AND CONSTANTS **********************************
     1905                            *
     1906                            *
     1907   01 0069B    00000000 A   COOKWORD DATA     0
     1908   01 0069C    00000000 A   COOKCYCL DATA     0
     1909   01 0069D    00000000 A   COOKSTRT DATA     0
     1910   01 0069E    00000000 A   BUFFWORD DATA     0
     1911   01 0069F    00000000 A   BUFFLINE DATA     0
     1912   01 006A0    00000000 A   BUFFCYCL DATA     0
     1913   01 006A1    00000000 A   BUFFSTRT DATA     0
     1914   01 006A2    00000000 A   COMPERR  DATA     0
     1915   01 006A3    00000000 A   COOKFLAG DATA     0
     1916   01 006A4    00000000 A   TESTEND  DATA     0
     1917   01 006A5    00000000 A   ERRCYCLE DATA     0
     1918                            *
     1919                            *
     1920   01 006A6    40404040 A   COOKBUFF DATA     X'40404040'
     1921   01 006A7    00000000 A            DATA     0
     1922   01 006A8    40404040 A            DATA     X'40404040'
     1923   01 006A9    00000000 A            DATA     0
     1924   01 006AA    40404040 A            DATA     X'40404040'
     1925   01 006AB    00000000 A            DATA     0
     1926   01 006AC    40404040 A            DATA     X'40404040'
     1927   01 006AD    00000000 A            DATA     0
     1928   01 006AE    40404040 A            DATA     X'40404040'
     1929   01 006AF    00000000 A            DATA     0
     1930   01 006B0    40404040 A            DATA     X'40404040'
     1931   01 006B1    00000000 A            DATA     0
     1932   01 006B2    40404040 A            DATA     X'40404040'
     1933   01 006B3    00000000 A            DATA     0
     1934   01 006B4    40404040 A            DATA     X'40404040'
     1935   01 006B5    00000000 A            DATA     0
     1936   01 006B6    40404040 A            DATA     X'40404040'
     1937   01 006B7    00000000 A            DATA     0
     1938   01 006B8    40404040 A            DATA     X'40404040'
     1939   01 006B9    00000000 A            DATA     0
     1940                            *
     1941                            *
     1942   01 006BA    000006CE     COOKADDR DATA     T100Q1
     1943   01 006BB    000006D0              DATA     T101Q1
     1944   01 006BC    000006D4              DATA     T102Q1
     1945   01 006BD    000006DC              DATA     T103Q1
     1946   01 006BE    000006E1              DATA     T104Q1
     1947   01 006BF    000006E2              DATA     T105Q1
     1948   01 006C0    000006F2              DATA     T106Q1
     1949   01 006C1    00000702              DATA     T107Q1
     1950   01 006C2    00000703              DATA     T108Q1
     1951   01 006C3    00000706              DATA     T109Q1
     1952   01 006C4    0000070A              DATA     T110Q1
     1953   01 006C5    0000070C              DATA     T111Q1
     1954   01 006C6    0000070D              DATA     T112Q1
     1955   01 006C7    0000070E              DATA     T113Q1
     1956   01 006C8    0000070F              DATA     T114Q1
     1957   01 006C9    00000710              DATA     T115Q1
     1958   01 006CA    00000711              DATA     T116Q1
     1959   01 006CB    00000712              DATA     T117Q1
     1960   01 006CC    00000719              DATA     T118Q1
     1961   01 006CD    0000071B              DATA     T119Q1
     1962                            *
     1963                            *
     1964   01 006CE    00001339     T100Q1   DATA     100Q1
     1965   01 006CF    00001375              DATA     100Q2
     1966   01 006D0    000013BB     T101Q1   DATA     101Q1
     1967   01 006D1    000013F7              DATA     101Q2
     1968   01 006D2    00001433              DATA     101Q3
     1969   01 006D3    0000146F              DATA     101Q4
     1970   01 006D4    000014AB     T102Q1   DATA     102Q1
     1971   01 006D5    000014E7              DATA     102Q2
     1972   01 006D6    000014E7              DATA     102Q2
     1973   01 006D7    000014E7              DATA     102Q2
     1974   01 006D8    000014E7              DATA     102Q2
     1975   01 006D9    000014E7              DATA     102Q2
     1976   01 006DA    000014E7              DATA     102Q2
     1977   01 006DB    000014E7              DATA     102Q2
     1978   01 006DC    00001523     T103Q1   DATA     103Q1
     1979   01 006DD    00001523              DATA     103Q1
     1980   01 006DE    00001523              DATA     103Q1
     1981   01 006DF    00001523              DATA     103Q1
     1982   01 006E0    00001523              DATA     103Q1
     1983   01 006E1    0000155F     T104Q1   DATA     104Q1
     1984   01 006E2    000015EB     T105Q1   DATA     105Q1
     1985   01 006E3    0000166D              DATA     105Q2
     1986   01 006E4    0000166D              DATA     105Q2
     1987   01 006E5    0000166D              DATA     105Q2
     1988   01 006E6    0000166D              DATA     105Q2
     1989   01 006E7    0000166D              DATA     105Q2
     1990   01 006E8    0000166D              DATA     105Q2
     1991   01 006E9    0000166D              DATA     105Q2
     1992   01 006EA    0000166D              DATA     105Q2
     1993   01 006EB    0000166D              DATA     105Q2
     1994   01 006EC    0000166D              DATA     105Q2
     1995   01 006ED    0000166D              DATA     105Q2
     1996   01 006EE    0000166D              DATA     105Q2
     1997   01 006EF    0000166D              DATA     105Q2
     1998   01 006F0    0000166D              DATA     105Q2
     1999   01 006F1    0000166D              DATA     105Q2
     2000   01 006F2    000016EF     T106Q1   DATA     106Q1
     2001   01 006F3    000017B7              DATA     106Q2
     2002   01 006F4    000017B7              DATA     106Q2
     2003   01 006F5    000017B7              DATA     106Q2
     2004   01 006F6    000017B7              DATA     106Q2
     2005   01 006F7    000017B7              DATA     106Q2
     2006   01 006F8    000017B7              DATA     106Q2
     2007   01 006F9    000017B7              DATA     106Q2
     2008   01 006FA    000017B7              DATA     106Q2
     2009   01 006FB    000017B7              DATA     106Q2
     2010   01 006FC    000017B7              DATA     106Q2
     2011   01 006FD    000017B7              DATA     106Q2
     2012   01 006FE    000017B7              DATA     106Q2
     2013   01 006FF    000017B7              DATA     106Q2
     2014   01 00700    000017B7              DATA     106Q2
     2015   01 00701    000017B7              DATA     106Q2
     2016   01 00702    0000187F     T107Q1   DATA     107Q1
     2017   01 00703    000019E7     T108Q1   DATA     108Q1
     2018   01 00704    00001AD7              DATA     108Q2
     2019   01 00705    00001BC7              DATA     108Q3
     2020   01 00706    00001CB7     T109Q1   DATA     109Q1
     2021   01 00707    00001D93              DATA     109Q2
     2022   01 00708    00001E79              DATA     109Q3
     2023   01 00709    00001F5F              DATA     109Q4
     2024   01 0070A    00002045     T110Q1   DATA     110Q2
     2025   01 0070B    00002045              DATA     110Q2
     2026   01 0070C    00002045     T111Q1   DATA     110Q2
     2027   01 0070D    00002167     T112Q1   DATA     112Q1
     2028   01 0070E    0000222F     T113Q1   DATA     113Q1
     2029   01 0070F    0000231F     T114Q1   DATA     114Q1
     2030   01 00710    00002441     T115Q1   DATA     115Q1
     2031   01 00711    00002563     T116Q1   DATA     116Q1
     2032   01 00712    00002685     T117Q1   DATA     117Q1
     2033   01 00713    0000277F              DATA     117Q2
     2034   01 00714    00002879              DATA     117Q3
     2035   01 00715    00002973              DATA     117Q4
     2036   01 00716    00002A6D              DATA     117Q5
     2037   01 00717    00002B67              DATA     117Q6
     2038   01 00718    00002C61              DATA     117Q7
     2039   01 00719    00002DAB     T118Q1   DATA     118Q1
     2040   01 0071A    00002E4B              DATA     118Q2
     2041   01 0071B    00002EEB     T119Q1   DATA     119Q2
     2042   01 0071C    00002EEB              DATA     119Q2
     2043                            *
     2044                            *
     2045                            *
     2046                            *
     2047                            *
     2048                            *
     2049                            *
     2050                            *
     2051                            *
     2052                            *
     2053                            *
     2054                            *
     2055                            *
     2056                            *
     2057                            *
     2058                            *
     2059                            *
     2060                            *
     2061                            *
     2062                            *
     2063                            *
     2064                            *
     2065                            *
     2066                            *
     2067                            *        T Y P E   A N D   P R I N T   O U T P U T   R O U T I N E S
     2068                            *
     2069                            *
     2070                            *
     2071                            *
     2072                            *
     2073                            *        INITIALIZATION MESSAGE OUTPUT ROUTINES
     2074                            *
     2075   01 0071D    00000000 A   DISPFLAG DATA     0
     2076   01 0071E    00000000 A   CYCLINDX DATA     0
     2077   01 0071F    00000000 A   COMPFLAG DATA     0
     2078   01 00720    00000001 A   %KP:ADR  DATA     1
     2079   01 00721    00000002 A   LINEPRNT DATA     2
     2080   01 00722    00000000 A   INTLSAVE DATA     0
     2081   01 00723    35F00722     INITIAL  STW,15   INTLSAVE          SAVE RETURN ADDRESS
     2082   01 00724    33000721              MTW,0    LINEPRNT
     2083   01 00725    6930072D              BCS,3    PRNTINTL          BRANCH IF LINEPRINTER WAS SELECTED
     2084                            *
     2085   01 00726    22000468     TYPEINTL LI,0     DA(DWCMND1K)
     2086   01 00727    6AF00866              BAL,15   OUTYPE            GIVE NEW LINE
     2087                            *
     2088   01 00728    22000469              LI,0     DA(DWCMND2K)
     2089   01 00729    6AF00866              BAL,15   OUTYPE            TYPEOUT INITIALIZATION MESSAGE
     2090                            *
     2091   01 0072A    22000468              LI,0     DA(DWCMND1K)
     2092   01 0072B    6AF00866              BAL,15   OUTYPE            GiVE-NEW LINE
     2093   01 0072C    E8000722              B        *INTLSAVE         RETURN TO CALLING ROUTINE
     2094                            *
     2095                            *
     2096   01 0072D    2200047A     PRNTINTL LI,0     DA(DWCMND1L)
     2097   01 0072E    6AF0086B              BAL,15   OUTPRINT          GiVE NEW LINE
     2098                            *
     2099   01 0072F    6AF007EB              BAL,15   XPRINT            PRINT INITIALIZATION MESSAGE
     2100   01 00730    000024BC              DATA     BA(MSG1)          MESSAGE BYTE ADDRESS
     2101   01 00731    000012A0 A            DATA     X'12A0'           MESSAGE BYTE COUNT              *A01
     2102   01 00732    00000050 A            DATA     80                MESSAGE UNIT-BYTE-LENGTH
     2103   01 00733    2200047A              LI,0     DA(DWCMND1L)
     2104   01 00734    6AF0086B              BAL,15   OUTPRINT          GIVE NEW LINE
     2105   01 00735    E8000722              B        *INTLSAVE         RETURN TO CALLING ROUTINE
     2106                            *
     2107                            *
     2108                            *
     2109                            *
     2110                            *        ERROR TEST PRINTOUT
     2111                            *
     2112                            *
     2113   01 00736    00000000 A   TPRNTSAV DATA     0
     2114   01 00737    35F00736     TYPRINT1 STW,15   TPRNTSAV          SaVE RETURN ADDRESS
     2115   01 00738    33000721              MTW,0    LINEPRNT
     2116   01 00739    68300743              BCR,3    %+10              BRANCH IF NOT LINEPRINTER OUTPUT
     2117   01 0073A    22000476              LI,0     DA(DWCMNDET)      DEDICATE R0 TO CMND ADDR
     2118   01 0073B    6AF0086B              BAL,15   OUTPRINT          PRINT ERR TEST XX
     2119   01 0073C    22000477              LI,0     DA(DWCMNDE1)      DEDICATE R0 TO CMND ADDR
     2120   01 0073D    6AF0086B              BAL,15   OUTPRINT          PRINT ERR WORD 1
     2121   01 0073E    22000478              LI,0     DA(DWCMNDE2)      DEDICATE R0 TO CMND ADDR
     2122   01 0073F    6AF0086B              BAL,15   OUTPRINT          PRINT ERR WORD 2
     2123   01 00740    22000479              LI,0     DA(DWCMNDE3)      DEDICATE R0 TO CMND ADDR
     2124   01 00741    6AF0086B              BAL,15   OUTPRINT          PRINT ERR WORD 3
     2125   01 00742    33100736              MTW,1    TPRNTSAV          INCREMENT RETURN ADDRESS
     2126   01 00743    E8000736              B        *TPRNTSAV         RETURN TO CALLING ROUTINE
     2127                            *
     2128                            *
     2129                            *
     2130   01 00744    00000000 A   TYTXSAVE DATA     0
     2131   01 00745    35F00744     TYTX     STW,15   TYTXSAVE          SAVE RETURN
     2132   01 00746    22000467              LI,0     DA(%CP05)         DEDICATE R0 TO COMMAND ADDRESS
     2133   01 00747    6AF00866              BAL,15   OUTYPE            OUTPUT ERROR MESSAGE
     2134   01 00748    E8000744              B        *TYTXSAVE         RETURN TO CALLING ROUTINE
     2135                            *
     2136                            *
     2137                            *
     2138                            *        DISPLAY GROUP ERROR OUTPUT  (KSR OR LP)
     2139                            *
     2140                            *
     2141                            *
     2142   01 00749    00000000 A   TYPESAVE DATA     0
     2143   01 0074A    35F00749     TYPEOUT  STW,15   TYPESAVE          SAVE RETURN ADRESS
     2144   01 0074B    3300071F              MTW,0    COMPFLAG          IS COMPARE TO BE MADE
     2145   01 0074C    69300571              BCS,3    COMPARE
     2146   01 0074D    33000721              MTW,0    LINEPRNT
     2147   01 0074E    693007D3              BCS,3    PRINTOUT          BRANCH IF LP SELECTED
     2148                            *
     2149                            *
     2150   01 0074F    22400000 A            LI,4     0
     2151   01 00750    3540071E              STW,4    CYCLINDX          CLEAR SERVICE CYCLE INDEX
     2152   01 00751    2240C464              LI,4     BA(OUTBUFF)       LOAD STARTING ADDRESS
     2153   01 00752    354007E9              STW,4    BYTEADDR          SAVE STARTING ADDRESS
     2154   01 00753    324008D7              LW,4     BYTECNT           FETCH BUFFER SIZE
     2155   01 00754    354007EA              STW,4    MAXBCNT           STORE BUFFER SIZE FOR COUNTDOWN
     2156   01 00755    6AF00779              BAL,15   HEADOUTK          OUTPUT INITIAL CYCLE HEADER
     2157                            *
     2158   01 00756    324007EA     KLINELUP LW,4     MAXBCNT           FETCH NUMBER OF BYTES REMAINING
     2159   01 00757    38403036              SW,4     =X'54'            SUBTRACT 84 BYTES (21 WORDS)
     2160   01 00758    6910076D              BCS,1    TYPEXIT           EXIT IF QUOTIENT IS NEGATIVE
     2161                            *
     2162   01 00759    354007EA              STW,4    MAXBCNT           STORE NUMBER OF BYTES REMAINING
     2163   01 0075A    324007E9              LW,4     BYTEADDR          FETCH CURRENT BYTE ADDRESS
     2164   01 0075B    30403034              AW,4     =X'05000000'      FORM INTO COMMAND DOUBLEWORD
     2165   01 0075C    354008EA              STW,4    DWCMNDEK          SET COMMAND DOUBLEWORD
     2166   01 0075D    22000475              LI,0     DA(DWCMNDEK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2167   01 0075E    6AF00866              BAL,15   OUTYPE            OUTPUT ONE DISPLAY GROUP LINE
     2168   01 0075F    22400050 A            LI,4     80                FETCH DISP GRP LINE-LENGTH CONSTANT
     2169   01 00760    304007E9              AW,4     BYTEADDR          INCREMENT BYTE ADDRESS
     2170   01 00761    2540007E A            SLS,4    -2                MAKE WORD ADDRESS
     2171   01 00762    B2500004 A            LW,5     *4                FETCH NEWLINE WORD INDICATOR
     2172   01 00763    3150302B              CW,5     =X'15150D0D'      IS HEADER AND NEWLINE CALLED OUT
     2173   01 00764    68300768              BCR,3    %+4               IF SO, BRANCH
     2174   01 00765    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2175   01 00766    6AF00866              BAL,15   OUTYPE            SPACE ONE LINE
     2176   01 00767    68000769              B        %+2               BRANCH AROUND HEADER OUTPUT
     2177   01 00768    6AF00779              BAL,15   HEADOUTK          OUTPUT HEADER AND LINE SPACING
     2178   01 00769    25400002 A            SLS,4    2                 RESTORE WORD ADDRESS TO BYTE ADDRESS
     2179   01 0076A    20400004 A            AI,4     4                 INCREMENT BA PAST NEWLINE INDICATOR
     2180   01 0076B    354007E9              STW,4    BYTEADDR          STORE NEW STARTING BYTE ADDRESS
     2181   01 0076C    68000756              B        KLINELUP          LOOP
     2182   01 0076D    22000468     TYPEXIT  LI,0     DA(DWCMND1K)
     2183   01 0076E    6AF00866              BAL,15   OUTYPE            GIVE NEW LINE
     2184   01 0076F    22000468              LI,0     DA(DWCMND1K)
     2185   01 00770    6AF00866              BAL,15   OUTYPE            GIVE NEW LINE
     2186   01 00771    22000468              LI,0     DA(DWCMND1K)
     2187   01 00772    6AF00866              BAL,15   OUTYPE            GIVE NEW LINE
     2188   01 00773    22000468              LI,0     DA(DWCMND1K)
     2189   01 00774    6AF00866              BAL,15   OUTYPE            GIVE NEW LINE
     2190   01 00775    22000468              LI,0     DA(DWCMND1K)
     2191   01 00776    6AF00866              BAL,15   OUTYPE            GIVE NEW LINE
     2192   01 00777    E8000749              B        *TYPESAVE         RETURN TO CALLING ROUTINE
     2193                            *
     2194                            *
     2195                            *        KSR HEADER OUTPUT
     2196                            *
     2197                            *
     2198   01 00778    00000000 A   HEADSAVE DATA     0
     2199   01 00779    35F00778     HEADOUTK STW,15   HEADSAVE          SAVE RETURN ADDRESS
     2200   01 0077A    6AF0048D              BAL,15   REGSAVE           SAVE REGISTER VALUES
     2201   01 0077B    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2202   01 0077C    6AF00866              BAL,15   OUTYPE            SPACE ONE LINE
     2203   01 0077D    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2204   01 0077E    6AF00866              BAL,15   OUTYPE            SPACE ONE LINE
     2205   01 0077F    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2206   01 00780    6AF00866              BAL,15   OUTYPE            SPACE ONE LINE
     2207   01 00781    3240071E              LW,4     CYCLINDX          FETCH CYCLE INDEX VALUE
     2208   01 00782    21400000 A            CI,4     0                 DOES CYCLE INDEX EQUAL ZERO
     2209   01 00783    693007A2              BCS,3    CI1K              BRANCH IF NOT
     2210                            *
     2211   01 00784    3290044A              LW,9     RTN               FETCH HEX TEST NUMBER TO R9
     2212   01 00785    21900004 A            CI,9     4                 IS TEST NUMBER 4 OR MORE
     2213   01 00786    69100789              BCS,1    %+3               BRANCH IF NOT
     2214   01 00787    2200046C              LI,0     DA(DWCMND5K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2215   01 00788    680007C5              B        HEADRETK          OUTPUT SIO, LINESPACES, AND RETURN
     2216   01 00789    21900000 A            CI,9     0                 IS TEST NUMBER ZERO
     2217   01 0078A    68300787              BCR,3    %-3               BRANCH IF SO
     2218   01 0078B    21900002 A            CI,9     2                 IS TEST NUMBER TWO
     2219   01 0078C    6930078F              BCS,3    %+3               BRANCH IF NOT
     2220   01 0078D    2200046D              LI,0     DA(DWCMND6K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2221   01 0078E    680007C5              B        HEADRETK          OUTPUT TIO, LINESPACES, AND RETURN
     2222   01 0078F    21900003 A            CI,9     3                 IS TEST NUMBER THREE
     2223   01 00790    69300793              BCS,3    %+3               BRANCH IF NOT
     2224   01 00791    2200046E              LI,0     DA(DWCMND7K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2225   01 00792    680007C5              B        HEADRETK          OUTPUT TDV, LINESPACES, AND RETURN
     2226   01 00793    3290044B              LW,9     SUBT              FETCH SUBTEST NUMBER
     2227   01 00794    21900001 A            CI,9     1                 IS IT SUBTEST ONE
     2228   01 00795    69300798              BCS,3    %+3               BRANCH IF NOT
     2229   01 00796    2200046C              LI,0     DA(DWCMND5K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2230   01 00797    680007C5              B        HEADRETK          OUTPUT SIO, LINESPACES, AND RETURN
     2231   01 00798    21900002 A            CI,9     2                 IS IT SUBTEST TWO
     2232   01 00799    6930079C              BCS,3    %+3               BRANCH IF NOT
     2233   01 0079A    2200046D              LI,0     DA(DWCMND6K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2234   01 0079B    680007C5              B        HEADRETK          OUTPUT TIO, LINESPACES, AND RETURN
     2235   01 0079C    21900003 A            CI,9     3                 IS IT SUBTEST THREE
     2236   01 0079D    693007A0              BCS,3    %+3               BRANCH IF NOT
     2237   01 0079E    2200046E              LI,0     DA(DWCMND7K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2238   01 0079F    680007C5              B        HEADRETK          OUTPUT TDV, LINESPACES, AND RETURN
     2239   01 007A0    2200046F              LI,0     DA(DWCMND8K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2240   01 007A1    680007C5              B        HEADRETK          OUTPUT HIO, LINESPACES, AND RETURN
     2241                            *
     2242   01 007A2    21400001 A   CI1K     CI,4     1                 DOES CYCLE INDEX EQUAL ONE
     2243   01 007A3    693007AB              BCS,3    CI2K              BRANCH IF NOT
     2244   01 007A4    3290044A              LW,9     RTN               FETCH HEX TEST NUMBER TO R9
     2245   01 007A5    21900005 A            CI,9     5                 ISIT TEST NUMBER FIVE
     2246   01 007A6    693007A9              BCS,3    %+3               BRANCH IF NOT
     2247   01 007A7    2200046F              LI,0     DA(DWCMND8K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2248   01 007A8    680007C5              B        HEADRETK          OUTPUT HIO, LINESPACES, AND RETURN
     2249   01 007A9    22000470              LI,0     DA(DWCMND9K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2250   01 007AA    680007C5              B        HEADRETK          OUTPUT ORDER OUT, AND RETURN
     2251                            *
     2252   01 007AB    21400002 A   CI2K     CI,4     2                 DOES CYCLE INDEX EQUAL TWO
     2253   01 007AC    693007BA              BCS,3    CI3K              BRANCH IF NOT
     2254   01 007AD    3290044A              LW,9     RTN               FETCH HEX TEST NUMBER TO R9
     2255   01 007AE    21900006 A            CI,9     6                 IS TEST NUMBER = 6
     2256   01 007AF    693007B2              BCS,3    %+3               BRANCH IF NOT
     2257   01 007B0    2200046F              LI,0     DA(DWCMND8K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2258   01 007B1    680007C5              B        HEADRETK          OUTPUT HIO, LINESPACES, AND RETURN
     2259   01 007B2    2190000B A            CI,9     11                IS TEST NUMBER LESS THAN 11
     2260   01 007B3    691007B6              BCS,1    %+3               IF SO, BRANCH
     2261   01 007B4    21900011 A            CI,9     17                IS TEST NUMBER LESS THAN 17
     2262   01 007B5    691007B8              BCS,1    %+3               IF SO, BRANCH
     2263   01 007B6    22000472              LI,0     DA(DWCMNDBK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2264   01 007B7    680007C5              B        HEADRETK          OUTPUT DATA OUT HEADER, AND RETURN
     2265   01 007B8    22000471              LI,0     DA(DWCMNDAK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2266   01 007B9    680007C5              B        HEADRETK          OUTPUT DATA IN HEADER, AND RETURN
     2267                            *
     2268   01 007BA    21400003 A   CI3K     CI,4     3                 DOES CYCLE INDEX EQUAL THREE
     2269   01 007BB    693007BE              BCS,3    CI4K              BRANCH IF NOT
     2270   01 007BC    22000473              LI,0     DA(DWCMNDCK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2271   01 007BD    680007C5              B        HEADRETK          OUTPUT ORDER IN HEADER, AND RETURN
     2272                            *
     2273   01 007BE    3290044A     CI4K     LW,9     RTN               FETCH TEST NUMBER
     2274   01 007BF    31900011 A            CW,9     17                IS IT TEST 17
     2275   01 007C0    693007C3              BCS,3    %+3               BRANCH IF NOT
     2276   01 007C1    22000470              LI,0     DA(DWCMND9K)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2277   01 007C2    680007C5              B        HEADRETK          OUTPUT ORDER OUT, AND RETURN
     2278   01 007C3    22000474              LI,0     DA(DWCMNDDK)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2279   01 007C4    680007C5              B        HEADRETK          OUTPUT AIO, LINESPACES, AND RETURN
     2280   01 007C5    6AF00866     HEADRETK BAL,15   OUTYPE            OUTPUT HEADER
     2281   01 007C6    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2282   01 007C7    6AF00866              BAL,15   OUTYPE            SPACE ONE LINE
     2283   01 007C8    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2284   01 007C9    6AF00866              BAL,15   OUTYPE            SPACE ONE LINE
     2285   01 007CA    2200046A              LI,0     DA(DWCMND3K)
     2286   01 007CB    6AF00866              BAL,15   OUTYPE            TYPEOUT DISP GRP HEADINGS
     2287   01 007CC    22000468              LI,0     DA(DWCMND1K)
     2288   01 007CD    6AF00866              BAL,15   OUTYPE            GIVE NEW LINE
     2289   01 007CE    22000468              LI,0     DA(DWCMND1K)      DEDICATE R0 TO CMND ADDRESS
     2290   01 007CF    6AF00866              BAL,15   OUTYPE            GIVE ANOTHER NEW LINE
     2291   01 007D0    3310071E              MTW,1    CYCLINDX          INCREMENT CYCLE INDEX
     2292   01 007D1    6AF00491              BAL,15   REGRESTR          RESTORE REGISTER VALUES
     2293   01 007D2    E8000778              B        *HEADSAVE         RETURN TO CALLING ROUTINE
     2294                            *
     2295                            *
     2296                            *
     2297                            *
     2298                            *
     2299                            *
     2300   01 007D3    22400000 A   PRINTOUT LI,4     0
     2301   01 007D4    3540071E              STW,4    CYCLINDX          CLEAR CYCLE INDEX
     2302   01 007D5    22400001 A            LI,4     1
     2303   01 007D6    3540071D              STW,4    DISPFLAG          SET DISP FLAG
     2304   01 007D7    324008D7              LW,4     BYTECNT           FETCH OUTBUFF LENGTH
     2305   01 007D8    354007DB              STW,4    %+3
     2306                            *
     2307   01 007D9    6AF007EB              BAL,15   XPRINT            PRINT OUT DISPLAY GROUPS
     2308   01 007DA    0000C464              DATA     BA(OUTBUFF)       MESSAGE BYTE ADDRESS
     2309   01 007DB    00000000 A            DATA     0                 MESSAGE BYTE COUNT
     2310   01 007DC    00000050 A            DATA     80                MESSAGE UNIT-BYTE-LENGTH
     2311                            *
     2312   01 007DD    2200047A     LINEXIT  LI,0     DA(DWCMND1L)
     2313   01 007DE    6AF0086B              BAL,15   OUTPRINT          GIVE NEW LINE
     2314   01 007DF    2200047A              LI,0     DA(DWCMND1L)
     2315   01 007E0    6AF0086B              BAL,15   OUTPRINT          GIVE NEW LINE
     2316   01 007E1    2200047A              LI,0     DA(DWCMND1L)
     2317   01 007E2    6AF0086B              BAL,15   OUTPRINT          GIVE NEW LINE
     2318   01 007E3    2200047A              LI,0     DA(DWCMND1L)
     2319   01 007E4    6AF0086B              BAL,15   OUTPRINT          GIVE NEW LINE
     2320   01 007E5    22400000 A            LI,4     0
     2321   01 007E6    3540071D              STW,4    DISPFLAG          CLEAR DISP FLAG
     2322   01 007E7    E8000749              B        *TYPESAVE         RETURN TO CALLING ROUTINE
     2323                            *
     2324                            *
     2325                            *        'X' MESSAGE PRINTOUT
     2326                            *
     2327                            *
     2328                            *
     2329   01 007E8    00000000 A   XPRNTPNT DATA     0                 POINTER AND RETURN SAVE
     2330   01 007E9    00000000 A   BYTEADDR DATA     0                 VOLITILE BYTE ADDRESS STORAGE
     2331   01 007EA    00000000 A   MAXBCNT  DATA     0                 MESSAGE BYTE COUNT REMAINING
     2332                            *
     2333   01 007EB    35F007E8     XPRINT   STW,15   XPRNTPNT          SAVE POINTER/RETURN
     2334                            *
     2335   01 007EC    B24007E8              LW,4     *XPRNTPNT         FETCH MESSAGE BYTE ADDRESS
     2336   01 007ED    354007E9              STW,4    BYTEADDR          SET STARTING BYTE ADDRESS
     2337                            *
     2338   01 007EE    331007E8              MTW,1    XPRNTPNT          INCREMENT POINTER
     2339   01 007EF    B24007E8              LW,4     *XPRNTPNT         FETCH MESSAGE BYTE COUNT
     2340   01 007F0    354007EA              STW,4    MAXBCNT           SET MESSAGE BYTE COUNT
     2341                            *
     2342   01 007F1    331007E8              MTW,1    XPRNTPNT          INCREMENT POINTER
     2343   01 007F2    B24007E8              LW,4     *XPRNTPNT         FETCH MESSAGE UNIT-BYTE LENGTH
     2344   01 007F3    30403037              AW,4     =X'02000000'      ADD FLAG SETTING  (SIL)
     2345   01 007F4    354008F7              STW,4    DWCMND2L+1        SET SECOND WORD OF CMND DBWRD
     2346   01 007F5    3300071D              MTW,0    DISPFLAG          IS DISP FLAG SET
     2347   01 007F6    683007F8              BCR,3    %+2               BRANCH IF NOT
     2348   01 007F7    6AF00812              BAL,15   HEADOUTL          OUTPUT INITIAL HEADER
     2349                            *
     2350                            *
     2351   01 007F8    324007EA     XPRINTLP LW,4     MAXBCNT           FETCH CURRENT BC REMAINING
     2352   01 007F9    B84007E8              SW,4     *XPRNTPNT         SUBTRACT MESSAGE UNIT-BYTE-LENGTH
     2353   01 007FA    681007FD              BCR,1    %+3               BRANCH IF BC POSITIVE
     2354   01 007FB    331007E8              MTW,1    XPRNTPNT          INCREMENT POINTER
     2355   01 007FC    E80007E8              B        *XPRNTPNT         RETURN TO CALLING ROUTINE
     2356                            *
     2357   01 007FD    354007EA              STW,4    MAXBCNT           STORE REMAINING BYTE COUNT
     2358   01 007FE    324007E9              LW,4     BYTEADDR
     2359   01 007FF    30403035              AW,4     =X'01000000'
     2360   01 00800    354008F6              STW,4    DWCMND2L
     2361   01 00801    2200047B              LI,0     DA(DWCMND2L)
     2362   01 00802    6AF0086B              BAL,15   OUTPRINT          OUTPUT ONE LINE OF MSG TO LP
     2363                            *
     2364   01 00803    B24007E8              LW,4     *XPRNTPNT         FETCH MESSAGE UNIT-BYTE-LENGTH
     2365   01 00804    304007E9              AW,4     BYTEADDR          ADD TO CURRENT BA
     2366   01 00805    2540007E A            SLS,4    -2                CONVERT TO WORD ADDRESS
     2367   01 00806    B2500004 A            LW,5     *4                FETCH NEW LINE CONTROL WORD
     2368   01 00807    3150302B              CW,5     =X'15150D0D'      IS A NEW LINE DESIRED
     2369   01 00808    6930080E              BCS,3    %+6               BRANCH IF NOT
     2370   01 00809    3300071D              MTW,0    DISPFLAG          IS DISPFLAG SET
     2371   01 0080A    6830080C              BCR,3    %+2               BRANCH IF NOT
     2372   01 0080B    6AF00812              BAL,15   HEADOUTL          OUTPUT HEADER MESSAGE
     2373                            *
     2374   01 0080C    2200047A              LI,0     DA(DWCMND1L)
     2375   01 0080D    6AF0086B              BAL,15   OUTPRINT          GIVE NEW LINE
     2376                            *
     2377   01 0080E    25400002 A            SLS,4    2
     2378   01 0080F    20400004 A            AI,4     4
     2379   01 00810    354007E9              STW,4    BYTEADDR          SET NEW BA
     2380   01 00811    680007F8              B        XPRINTLP          LOOP
     2381                            *
     2382                            *
     2383                            *
     2384                            *
     2385                            *
     2386                            *
     2387                            *        LINEPRINTER HEADER OUTPUT
     2388                            *
     2389                            *
     2390   01 00812    35F00778     HEADOUTL STW,15   HEADSAVE          SAVE RETURN ADDRESS
     2391   01 00813    6AF0048D              BAL,15   REGSAVE           SAVE REGISTER VALUES
     2392   01 00814    2200047A              LI,0     DA(DWCMND1L)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2393   01 00815    6AF0086B              BAL,15   OUTPRINT          SPACE ONE LINE
     2394   01 00816    2200047A              LI,0     DA(DWCMND1L)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2395   01 00817    6AF0086B              BAL,15   OUTPRINT          SPACE ONE LINE
     2396   01 00818    3240071E              LW,4     CYCLINDX          FETCH CYCLE INDEX VALUE
     2397   01 00819    21400000 A            CI,4     0                 DOES CYCLE INDEX EQUAL ZERO
     2398   01 0081A    69300839              BCS,3    CI1L              BRANCH IF NOT
     2399                            *
     2400   01 0081B    3290044A              LW,9     RTN               FETCH HEX TEST NUMBER TO R9
     2401   01 0081C    21900004 A            CI,9     4                 IS TEST NUMBER 4 OR MORE
     2402   01 0081D    69100820              BCS,1    %+3               BRANCH IF NOT
     2403   01 0081E    2200047C              LI,0     DA(DWCMND5L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2404   01 0081F    6800085C              B        HEADRETL          OUTPUT SIO, LINESPACES, AND RETURN
     2405   01 00820    21900000 A            CI,9     0                 IS TEST NUMBER ZERO
     2406   01 00821    6830081E              BCR,3    %-3               BRANCH IF SO
     2407   01 00822    21900002 A            CI,9     2                 IS TEST NUMBER TWO
     2408   01 00823    69300826              BCS,3    %+3               BRANCH IF NOT
     2409   01 00824    2200047D              LI,0     DA(DWCMND6L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2410   01 00825    6800085C              B        HEADRETL          OUTPUT TIO, LINESPACES, AND RETURN
     2411   01 00826    21900003 A            CI,9     3                 IS TEST NUMBER THREE
     2412   01 00827    6930082A              BCS,3    %+3               BRANCH IF NOT
     2413   01 00828    2200047E              LI,0     DA(DWCMND7L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2414   01 00829    6800085C              B        HEADRETL          OUTPUT TDV, LINESPACES, AND RETURN
     2415   01 0082A    3290044B              LW,9     SUBT              FETCH SUBTEST NUMBER
     2416   01 0082B    21900001 A            CI,9     1                 IS IT SUBTEST ONE
     2417   01 0082C    6930082F              BCS,3    %+3               BRANCH IF NOT
     2418   01 0082D    2200047C              LI,0     DA(DWCMND5L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2419   01 0082E    6800085C              B        HEADRETL          OUTPUT SIO, LINESPACES, AND RETURN
     2420   01 0082F    21900002 A            CI,9     2                 IS IT SUBTEST TWO
     2421   01 00830    69300833              BCS,3    %+3               BRANCH IF NOT
     2422   01 00831    2200047D              LI,0     DA(DWCMND6L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2423   01 00832    6800085C              B        HEADRETL          OUTPUT TIO, LINESPACES, AND RETURN
     2424   01 00833    21900003 A            CI,9     3                 IS IT SUBTEST THREE
     2425   01 00834    69300837              BCS,3    %+3               BRANCH IF NOT
     2426   01 00835    2200047E              LI,0     DA(DWCMND7L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2427   01 00836    6800085C              B        HEADRETL          OUTPUT TDV, LINESPACES, AND RETURN
     2428   01 00837    2200047F              LI,0     DA(DWCMND8L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2429   01 00838    6800085C              B        HEADRETL          OUTPUT HIO, LINESPACES, AND RETURN
     2430                            *
     2431   01 00839    21400001 A   CI1L     CI,4     1                 DOES CYCLE INDEX EQUAL ONE
     2432   01 0083A    69300842              BCS,3    CI2L              BRANCH IF NOT
     2433   01 0083B    3290044A              LW,9     RTN               FETCH HEX TEST NUMBER TO R9
     2434   01 0083C    21900005 A            CI,9     5                 IS TEST NUMBER FIVE
     2435   01 0083D    69300840              BCS,3    %+3               BRANCH IF NOT
     2436   01 0083E    2200047F              LI,0     DA(DWCMND8L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2437   01 0083F    6800085C              B        HEADRETL          OUTPUT HIO, LINESPACES, AND RETURN
     2438   01 00840    22000480              LI,0     DA(DWCMND9L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2439   01 00841    6800085C              B        HEADRETL          OUTPUT ORDER OUT, AND RETURN
     2440                            *
     2441   01 00842    21400002 A   CI2L     CI,4     2                 DOES CYCLE INDEX EQUAL TWO
     2442   01 00843    69300851              BCS,3    CI3L              BRANCH IF NOT
     2443   01 00844    3290044A              LW,9     RTN               FETCH HEX TEST NUMBER TO R9
     2444   01 00845    21900006 A            CI,9     6                 IS TEST NUMBER = 6
     2445   01 00846    69300849              BCS,3    %+3               BRANCH IF NOT
     2446   01 00847    2200047F              LI,0     DA(DWCMND8L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2447   01 00848    6800085C              B        HEADRETL          OUTPUT HIO, LINESPACES, AND RETURN
     2448   01 00849    2190000B A            CI,9     11                IS TEST NUMBER LESS THAN 11
     2449   01 0084A    6910084D              BCS,1    %+3               IF SO, BRANCH
     2450   01 0084B    21900011 A            CI,9     17                IS TEST NUMBER LESS THAN 17
     2451   01 0084C    6910084F              BCS,1    %+3               IF SO, BRANCH
     2452   01 0084D    22000482              LI,0     DA(DWCMNDBL)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2453   01 0084E    6800085C              B        HEADRETL          OUTPUT DATA OUT HEADER, AND RETURN
     2454   01 0084F    22000481              LI,0     DA(DWCMNDAL)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2455   01 00850    6800085C              B        HEADRETL          OUTPUT DATA IN HEADER, AND RETURN
     2456                            *
     2457   01 00851    21400003 A   CI3L     CI,4     3                 DOES CYCLE INDEX EQUAL THREE
     2458   01 00852    69300855              BCS,3    CI4L              BRANCH IF NOT
     2459   01 00853    22000483              LI,0     DA(DWCMNDCL)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2460   01 00854    6800085C              B        HEADRETL          OUTPUT ORDER IN HEADER, AND RETURN
     2461                            *
     2462   01 00855    3290044A     CI4L     LW,9     RTN               FETCH TEST NUMBER
     2463   01 00856    31900011 A            CW,9     17                IS IT TEST 17
     2464   01 00857    6930085A              BCS,3    %+3               BRANCH IF NOT
     2465   01 00858    22000480              LI,0     DA(DWCMND9L)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2466   01 00859    6800085C              B        HEADRETL          OUTPUT ORDER OUT HEADER, AND RETURN
     2467   01 0085A    22000484              LI,0     DA(DWCMNDDL)      DEDICATE R0 TO DOUBLEWORD COMMAND
     2468   01 0085B    6800085C              B        HEADRETL          OUTPUT AIO, LINESPACES, AND RETURN
     2469                            *
     2470   01 0085C    6AF0086B     HEADRETL BAL,15   OUTPRINT          OUTPUT HEADER
     2471   01 0085D    2200047A              LI,0     DA(DWCMND1L)      DEDICATE R0 TO DOUBLEWORD ADDRESS
     2472   01 0085E    6AF0086B              BAL,15   OUTPRINT          SPACE ONE LINE
     2473   01 0085F    22000485              LI,0     DA(DWCMNDEL)
     2474   01 00860    6AF0086B              BAL,15   OUTPRINT          PRINT DISPLAY GROUP HEADINGS
     2475   01 00861    2200047A              LI,0     DA(DWCMND1L)
     2476   01 00862    6AF0086B              BAL,15   OUTPRINT          GIVE NEW LINE
     2477   01 00863    3310071E              MTW,1    CYCLINDX          INCREMENT CYCLE INDEX
     2478   01 00864    6AF00491              BAL,15   REGRESTR          RESTORE REGISTER VALUES
     2479   01 00865    E8000778              B        *HEADSAVE         RETURN TO CALLING ROUTINE
     2480                            *
     2481                            *
     2482                            *
     2483                            *
     2484                            *
     2485                            *
     2486                            *
     2487                            *        I/O SUBROUTINES
     2488                            *
     2489                            *
     2490                            *
     2491   01 00866    CC000720     OUTYPE   SIO,0    *%KP:ADR          ISSUE SIQ TO KSR
     2492   01 00867    69C00866              BCS,12   %-1               REPEAT UNTIL ACCEPTED
     2493   01 00868    CD000720              TIO,0    *%KP:ADR
     2494   01 00869    69C00868              BCS,12   %-1               BRU UNTIL MESSAGE COMPLETION
     2495   01 0086A    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     2496                            *
     2497                            *
     2498   01 0086B    CC000721     OUTPRINT SIO,0    *LINEPRNT         EXECUTE SIO TO LINE PRINTER
     2499   01 0086C    69C0086B              BCS,12   %-1               REPEAT UNTIL ACCEPTED
     2500   01 0086D    CD000721              TIO,0    *LINEPRNT
     2501   01 0086E    69C0086D              BCS,12   %-1               BRU UNTIL MESSAGE COMPLETION
     2502   01 0086F    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     2503   01 00870    35F008C1     PNCHOUT  STW,15   PNCHSAVE
     2504   01 00871    6AF0048D              BAL,15   REGSAVE
     2505   01 00872    6AF00495              BAL,15   %RSET
     2506   01 00873    350008BE              STW,0    LABELFLG
     2507   01 00874    35000006 A            STW,0    6                 CLEAR WORDINDX
     2508   01 00875    350008C0              STW,0    EXITFLAG          CLEAR EXITFLAG
     2509                            *
     2510   01 00876    22000000 A   LINERET  LI,0     0
     2511   01 00877    35000005 A            STW,0    5                 CLEAR WRDCOUNT
     2512   01 00878    35000007 A            STW,0    7                 CLEAR BYTEINDX
     2513   01 00879    350008BF              STW,0    ENDFLAG           CLEAR ENDFLAG
     2514                            *
     2515   01 0087A    324008D7              LW,4     BYTECNT
     2516   01 0087B    38403036              SW,4     =X'54'            SUBTRACT 84 BYTES (21 WORDS)
     2517   01 0087C    6920087E              BCS,2    %+2               BRANCH IF POSITIVE
     2518                            *
     2519   01 0087D    351008C0              STW,1    EXITFLAG
     2520   01 0087E    354008D7              STW,4    BYTECNT
     2521   01 0087F    330008BE              MTW,0    LABELFLG
     2522   01 00880    69200888              BCS,2    %+8
     2523                            *
     2524   01 00881    32400915              LW,4     OUTE1-1           FETCH EBCDIC TEST NUMBER
     2525   01 00882    20400078 A            AI,4     120               SUFFIX 'Q' CHARACTER
     2526   01 00883    354008AA              STW,4    PNCHBUFF
     2527   01 00884    72420916              LB,4     OUTE1,1           FETCH SUBTEST EBCDIC BYTE
     2528   01 00885    754008AB              STB,4    PNCHBUFF+1        STORE SUBTEST VALUE
     2529   01 00886    351008BE              STW,1    LABELFLG
     2530   01 00887    6800088B              B        %+4
     2531                            *
     2532   01 00888    32403029              LW,4     =X'40404040'
     2533   01 00889    354008AA              STW,4    PNCHBUFF          NULL LABEL FIELD
     2534   01 0088A    354008AB              STW,4    PNCHBUFF+1        NULL LABEL FIELD
     2535                            *
     2536   01 0088B    324C3119     WORDRET  LW,4     OUTBUFF,6
     2537   01 0088C    20600001 A            AI,6     1
     2538   01 0088D    31403029              CW,4     =X'40404040'
     2539   01 0088E    6830089C              BCR,3    WORDLOOP          BRANCH IF DATA = SPACES
     2540   01 0088F    21500013 A            CI,5     19                DOES WRD CNT = 19
     2541   01 00890    69300892              BCS,3    %+2
     2542   01 00891    351008BF              STW,1    ENDFLAG
     2543                            *
     2544   01 00892    354E08AF              STW,4    PNCHDATA,7        STORE WORD INDEXED
     2545   01 00893    20700001 A            AI,7     1
     2546                            *
     2547   01 00894    330008BF              MTW,0    ENDFLAG
     2548   01 00895    6830089C              BCR,3    WORDLOOP          LOOP FOR 14 WORDS OF DATA
     2549                            *
     2550   01 00896    6AF0089E              BAL,15   OUTPNCH
     2551   01 00897    20600001 A            AI,6     1
     2552   01 00898    330008C0              MTW,0    EXITFLAG
     2553   01 00899    68300876              BCR,3    LINERET
     2554   01 0089A    6AF00491              BAL,15   REGRESTR
     2555   01 0089B    E80008C1              B        *PNCHSAVE
     2556                            *
     2557                            *
     2558   01 0089C    20500001 A   WORDLOOP AI,5     1
     2559   01 0089D    6800088B              B        WORDRET
     2560                            *
     2561                            *
     2562   01 0089E    22000452     OUTPNCH  LI,0     DA(PNCHCMND)
     2563   01 0089F    CC0008C2              SIO,0    *PNCHADDR
     2564   01 008A0    CD0008C2              TIO,0    *PNCHADDR
     2565   01 008A1    69C008A0              BCS,12   %-1
     2566   01 008A2    E800000F A            B        *15
     2567                            *
     2568                                     BOUND    8
     2569   01 008A4    050022A8     PNCHCMND GEN,8,24 5,BA(PNCHBUFF)
     2570   01 008A5    20000050 A            GEN,8,24 X'20',80
     2571                            *
     2572   01 008A6    08000452              GEN,8,24 X'08',DA(PNCHCMND)
     2573   01 008A7    00000000 A            DATA     0
     2574                            *
     2575   01 008A8    00000000 A            DATA     0
     2576   01 008A9    00000000 A            DATA     0
     2577                            *
     2578                            *
     2579                            *
     2580   01 008AA    00000000 A   PNCHBUFF DATA     0
     2581   01 008AB    40404040 A            DATA     X'40404040'
     2582   01 008AC    40E3C5E7 A            DATA     X'40E3C5E7'
     2583   01 008AD    E3404040 A            DATA     X'E3404040'
     2584   01 008AE    4040407D A            DATA     X'4040407D'
     2585   01 008AF    00000000 A   PNCHDATA DATA     0
     2586   01 008B0    00000000 A            DATA     0
     2587   01 008B1    00000000 A            DATA     0
     2588   01 008B2    00000000 A            DATA     0
     2589   01 008B3    00000000 A            DATA     0
     2590   01 008B4    00000000 A            DATA     0
     2591   01 008B5    00000000 A            DATA     0
     2592   01 008B6    00000000 A            DATA     0
     2593   01 008B7    00000000 A            DATA     0
     2594   01 008B8    00000000 A            DATA     0
     2595   01 008B9    7D404040 A            DATA     X'7D404040'
     2596   01 008BA    40404040 A            DATA     X'40404040'
     2597   01 008BB    40404040 A            DATA     X'40404040'
     2598   01 008BC    40404040 A            DATA     X'40404040'
     2599   01 008BD    40404040 A            DATA     X'40404040'
     2600                            *
     2601                            *
     2602   01 008BE    00000000 A   LABELFLG DATA     0
     2603   01 008BF    00000000 A   ENDFLAG  DATA     0
     2604   01 008C0    00000000 A   EXITFLAG DATA     0
     2605   01 008C1    00000000 A   PNCHSAVE DATA     0
     2606   01 008C2    00000004 A   PNCHADDR DATA     4
     2607   01 008C3    6AF00870     PNCHBRA  BAL,15   PNCHOUT
     2608   01 008C4    6AF0074A     TYPEBRA  BAL,15   TYPEOUT
     2609                            *
     2610                            *        KSR COMMAND DOUBLEWORDS
     2611                            *
     2612                                     BOUND    8
     2613                            *
     2614   01 008C6    05002438     %CP01    GEN,8,24 5,BA(%MSG01)
     2615   01 008C7    00000002 A            DATA     2
     2616   01 008C8    8600F344     %CP02    GEN,8,24 134,BA(%INBUFF)
     2617   01 008C9    00000064 A            DATA     100
     2618   01 008CA    0500243C     %CP03    GEN,8,24 5,BA(%MSG02)
     2619   01 008CB    0000000C A            DATA     12
     2620   01 008CC    050024A0     %CP04    GEN,8,24 5,BA(EN4)
     2621   01 008CD    0000001C A            DATA     28
     2622   01 008CE    05002448     %CP05    GEN,8,24 5,BA(OUTP)
     2623   01 008CF    00000058 A            DATA     88
     2624                            *
     2625   01 008D0    05002430     DWCMND1K GEN,8,24 5,BA(SKIPLINE)
     2626   01 008D1    00000002 A            DATA     2
     2627   01 008D2    050024BC     DWCMND2K GEN,8,24 5,BA(MSG1)
     2628   01 008D3    0000135C A            DATA     MSG1E-BA(MSG1)
     2629   01 008D4    05003818     DWCMND3K GEN,8,24 5,BA(MSG2)
     2630   01 008D5    00000050 A            DATA     80                MESSAGE BYTE COUNT
     2631   01 008D6    0500C464     DWCMND4K GEN,8,24 5,BA(OUTBUFF)
     2632   01 008D7    00000000 A   BYTECNT  DATA     0
     2633   01 008D8    0500386C     DWCMND5K GEN,8,24 5,BA(MSG3)
     2634   01 008D9    02000004 A            GEN,8,24 2,MSG3E-BA(MSG3)
     2635   01 008DA    05003870     DWCMND6K GEN,8,24 5,BA(MSG4)
     2636   01 008DB    02000050 A            GEN,8,24 2,MSG4E-BA(MSG4)
     2637   01 008DC    050038C0     DWCMND7K GEN,8,24 5,BA(MSG5)
     2638   01 008DD    02000050 A            GEN,8,24 2,MSG5E-BA(MSG5)
     2639   01 008DE    05003910     DWCMND8K GEN,8,24 5,BA(MSG6)
     2640   01 008DF    02000050 A            GEN,8,24 2,MSG6E-BA(MSG6)
     2641   01 008E0    05003960     DWCMND9K GEN,8,24 5,BA(MSG7)
     2642   01 008E1    0200000C A            GEN,8,24 2,MSG7E-BA(MSG7)
     2643   01 008E2    0500396C     DWCMNDAK GEN,8,24 5,BA(MSG8)
     2644   01 008E3    02000008 A            GEN,8,24 2,MSG8E-BA(MSG8)
     2645   01 008E4    05003974     DWCMNDBK GEN,8,24 5,BA(MSG9)
     2646   01 008E5    02000008 A            GEN,8,24 2,MSG9E-BA(MSG9)
     2647   01 008E6    0500397C     DWCMNDCK GEN,8,24 5,BA(MSGA)
     2648   01 008E7    02000008 A            GEN,8,24 2,MSGAE-BA(MSGA)
     2649   01 008E8    05003984     DWCMNDDK GEN,8,24 5,BA(MSGB)
     2650   01 008E9    02000004 A            GEN,8,24 2,MSGBE-BA(MSGB)
     2651   01 008EA    00000000 A   DWCMNDEK DATA     0
     2652   01 008EB    02000050 A            GEN,8,24 2,80
     2653                            *
     2654                            *        LINE PRINTER COMMAND DOUBLEWORDS
     2655                            *
     2656                            *
     2657   01 008EC    01002449     DWCMNDET GEN,8,24 1,BA(OUTP)+1
     2658   01 008ED    02000011 A            GEN,8,24 2,17
     2659   01 008EE    0100245B     DWCMNDE1 GEN,8,24 1,BA(OUTE1)+3
     2660   01 008EF    02000015 A            GEN,8,24 2,21
     2661   01 008F0    01002473     DWCMNDE2 GEN,8,24 1,BA(OUTE2)+3
     2662   01 008F1    02000015 A            GEN,8,24 2,21
     2663   01 008F2    0100248B     DWCMNDE3 GEN,8,24 1,BA(OUTE3)+3
     2664   01 008F3    02000015 A            GEN,8,24 2,21
     2665                            *
     2666   01 008F4    03002434     DWCMND1L GEN,8,24 3,BA(LINESKIP)
     2667   01 008F5    02000001 A            GEN,8,24 2,1
     2668   01 008F6    00000000 A   DWCMND2L DATA     0
     2669   01 008F7    00000000 A            DATA     0
     2670   01 008F8    0100386C     DWCMND5L GEN,8,24 1,BA(MSG3)
     2671   01 008F9    02000004 A            GEN,8,24 2,MSG3E-BA(MSG3)
     2672   01 008FA    01003870     DWCMND6L GEN,8,24 1,BA(MSG4)
     2673   01 008FB    02000050 A            GEN,8,24 2,MSG4E-BA(MSG4)
     2674   01 008FC    010038C0     DWCMND7L GEN,8,24 1,BA(MSG5)
     2675   01 008FD    02000050 A            GEN,8,24 2,MSG5E-BA(MSG5)
     2676   01 008FE    01003910     DWCMND8L GEN,8,24 1,BA(MSG6)
     2677   01 008FF    02000050 A            GEN,8,24 2,MSG6E-BA(MSG6)
     2678   01 00900    01003960     DWCMND9L GEN,8,24 1,BA(MSG7)
     2679   01 00901    0200000C A            GEN,8,24 2,MSG7E-BA(MSG7)
     2680   01 00902    0100396C     DWCMNDAL GEN,8,24 1,BA(MSG8)
     2681   01 00903    02000008 A            GEN,8,24 2,MSG8E-BA(MSG8)
     2682   01 00904    01003974     DWCMNDBL GEN,8,24 1,BA(MSG9)
     2683   01 00905    02000008 A            GEN,8,24 2,MSG9E-BA(MSG9)
     2684   01 00906    0100397C     DWCMNDCL GEN,8,24 1,BA(MSGA)
     2685   01 00907    02000008 A            GEN,8,24 2,MSGAE-BA(MSGA)
     2686   01 00908    01003984     DWCMNDDL GEN,8,24 1,BA(MSGB)
     2687   01 00909    02000004 A            GEN,8,24 2,MSGBE-BA(MSGB)
     2688   01 0090A    01003818     DWCMNDEL GEN,8,24 1,BA(MSG2)
     2689   01 0090B    02000050 A            GEN,8,24 2,80
     2690                            *
     2691                            *
     2692                            *
     2693                            *
     2694                            *
     2695                            *
     2696                            *        MESSAGES
     2697                            *
     2698   01 0090C    150D0D0D A   SKIPLINE DATA     X'150D0D0D'
     2699   01 0090D    C1404040 A   LINESKIP DATA     X'C1404040'
     2700   01 0090E    155B4040 A   %MSG01   TEXT     '
%  '
     2701   01 0090F    E2E8D5E3 A   %MSG02   TEXT     'SYNTAX ERROR'
            01 00910    C1E740C5 A
            01 00911    D9D9D6D9 A
     2702   01 00912    15C5D9D9 A   OUTP     DATA     X'15C5D9D9'       ERROR TEST 1XX-0N
     2703   01 00913    D6D940E3 A            DATA     X'D6D940E3'
     2704   01 00914    C5E2E340 A            DATA     X'C5E2E340'
     2705   01 00915    F1F0F060 A            DATA     X'F1F0F060'
     2706   01 00916    F0F115C5 A   OUTE1    DATA     X'F0F115C5'       CR, ERR WORD 1 =
     2707   01 00917    D9D940E6 A            DATA     X'D9D940E6'
     2708   01 00918    D6D9C440 A            DATA     X'D6D9C440'
     2709   01 00919    F1407E40 A            DATA     X'F1407E40'
     2710   01 0091A    00000000 A            DATA     X'00000000'
     2711   01 0091B    00000000 A            DATA     X'00000000'
     2712   01 0091C    150D0DC5 A   OUTE2    DATA     X'150D0DC5'       ERR WORD 2 =
     2713   01 0091D    D9D940E6 A            DATA     X'D9D940E6'
     2714   01 0091E    D6D9C440 A            DATA     X'D6D9C440'
     2715   01 0091F    F2407E40 A            DATA     X'F2407E40'
     2716   01 00920    00000000 A            DATA     X'00000000'
     2717   01 00921    00000000 A            DATA     X'00000000'
     2718   01 00922    150D0DC5 A   OUTE3    DATA     X'150D0DC5'       ERR WORD 3 =
     2719   01 00923    D9D940E6 A            DATA     X'D9D940E6'
     2720   01 00924    D6D9C440 A            DATA     X'D6D9C440'
     2721   01 00925    F3407E40 A            DATA     X'F3407E40'
     2722   01 00926    00000000 A            DATA     X'00000000'
     2723   01 00927    00000000 A            DATA     X'00000000'
     2724   01 00928    15E3C5E2 A   EN4      DATA     X'15E3C5E2'       TEST COMPLETED ADDRESS 0XNN
     2725   01 00929    E340C3D6 A            DATA     X'E340C3D6'
     2726   01 0092A    D4D7D3C5 A            DATA     X'D4D7D3C5'
     2727   01 0092B    E3C5C440 A            DATA     X'E3C5C440'
     2728   01 0092C    C1C4C4D9 A            DATA     X'C1C4C4D9'
     2729   01 0092D    C5E2E240 A            DATA     X'C5E2E240'
     2730   01 0092E    00000000 A            DATA     X'00000000'
     2731                            * INITIALIZATION MESSAGE
     2732                            *
     2733                            *
     2734   01 0092F    40404040 A   MSG1     TEXT     '    SIGMA 5/7 SIOP WITH MAINTENANCE SUBCONTROLLER   '
            01 00930    E2C9C7D4 A
            01 00931    C140F561 A
            01 00932    F740E2C9 A
            01 00933    D6D740E6 A
            01 00934    C9E3C840 A
            01 00935    D4C1C9D5 A
            01 00936    E3C5D5C1 A
            01 00937    D5C3C540 A
            01 00938    E2E4C2C3 A
            01 00939    D6D5E3D9 A
            01 0093A    D6D3D3C5 A
            01 0093B    D9404040 A
     2735   01 0093C    40404040 A            TEXT     '                            



'
            01 0093D    40404040 A
            01 0093E    40404040 A
            01 0093F    40404040 A
            01 00940    40404040 A
            01 00941    40404040 A
            01 00942    40404040 A
            01 00943    15150D0D A
     2736   01 00944    40404040 A            TEXT     '    PROGRAM NO. 705722-A01  MANUAL NO. 9'        *A01
            01 00945    D7D9D6C7 A
            01 00946    D9C1D440 A
            01 00947    D5D64B40 A
            01 00948    F7F0F5F7 A
            01 00949    F2F260C1 A
            01 0094A    F0F14040 A
            01 0094B    D4C1D5E4 A
            01 0094C    C1D340D5 A
            01 0094D    D64B40F9 A
     2737   01 0094E    F0F1F6F7 A            TEXT     '01670A  REVISION A01                    



'    *A01
            01 0094F    F0C14040 A
            01 00950    D9C5E5C9 A
            01 00951    E2C9D6D5 A
            01 00952    40C1F0F1 A
            01 00953    40404040 A
            01 00954    40404040 A
            01 00955    40404040 A
            01 00956    40404040 A
            01 00957    40404040 A
            01 00958    150D0D0D A
     2738   01 00959    40404040 A            TEXT     '    PROGRAM MODIFIED TO:                '        *A01
            01 0095A    D7D9D6C7 A
            01 0095B    D9C1D440 A
            01 0095C    D4D6C4C9 A
            01 0095D    C6C9C5C4 A
            01 0095E    40E3D67A A
            01 0095F    40404040 A
            01 00960    40404040 A
            01 00961    40404040 A
            01 00962    40404040 A
     2739   01 00963    40404040 A            TEXT     '                                        



'    *A01
            01 00964    40404040 A
            01 00965    40404040 A
            01 00966    40404040 A
            01 00967    40404040 A
            01 00968    40404040 A
            01 00969    40404040 A
            01 0096A    40404040 A
            01 0096B    40404040 A
            01 0096C    40404040 A
            01 0096D    150D0D0D A
     2740   01 0096E    40404040 A            TEXT     '    1.  SUPPRESS PRINT OUT IN SHORT LOOP'        *A01
            01 0096F    F14B4040 A
            01 00970    E2E4D7D7 A
            01 00971    D9C5E2E2 A
            01 00972    40D7D9C9 A
            01 00973    D5E340D6 A
            01 00974    E4E340C9 A
            01 00975    D540E2C8 A
            01 00976    D6D9E340 A
            01 00977    D3D6D6D7 A
     2741   01 00978    4B404040 A            TEXT     '.                                       



'    *A01
            01 00979    40404040 A
            01 0097A    40404040 A
            01 0097B    40404040 A
            01 0097C    40404040 A
            01 0097D    40404040 A
            01 0097E    40404040 A
            01 0097F    40404040 A
            01 00980    40404040 A
            01 00981    40404040 A
            01 00982    150D0D0D A
     2742   01 00983    40404040 A            TEXT     '    2.  UPDATE COOKBOOK.                '        *A01
            01 00984    F24B4040 A
            01 00985    E4D7C4C1 A
            01 00986    E3C540C3 A
            01 00987    D6D6D2C2 A
            01 00988    D6D6D24B A
            01 00989    40404040 A
            01 0098A    40404040 A
            01 0098B    40404040 A
            01 0098C    40404040 A
     2743   01 0098D    40404040 A            TEXT     '                                        



'    *A01
            01 0098E    40404040 A
            01 0098F    40404040 A
            01 00990    40404040 A
            01 00991    40404040 A
            01 00992    40404040 A
            01 00993    40404040 A
            01 00994    40404040 A
            01 00995    40404040 A
            01 00996    40404040 A
            01 00997    15150D0D A
     2744   01 00998    40404040 A            TEXT     '    SIOP DISPLAY-GROUP-ERROR-PRINTOUT ANALYSIS      '
            01 00999    E2C9D6D7 A
            01 0099A    40C4C9E2 A
            01 0099B    D7D3C1E8 A
            01 0099C    60C7D9D6 A
            01 0099D    E4D760C5 A
            01 0099E    D9D9D6D9 A
            01 0099F    60D7D9C9 A
            01 009A0    D5E3D6E4 A
            01 009A1    E340C1D5 A
            01 009A2    C1D3E8E2 A
            01 009A3    C9E24040 A
            01 009A4    40404040 A
     2745   01 009A5    40404040 A            TEXT     '                            



'
            01 009A6    40404040 A
            01 009A7    40404040 A
            01 009A8    40404040 A
            01 009A9    40404040 A
            01 009AA    40404040 A
            01 009AB    40404040 A
            01 009AC    150D0D0D A
     2746   01 009AD    40404040 A            TEXT     '      THE FOLLOWING TABLE IS TO BE USED FOR INTERPRE'
            01 009AE    4040E3C8 A
            01 009AF    C540C6D6 A
            01 009B0    D3D3D6E6 A
            01 009B1    C9D5C740 A
            01 009B2    E3C1C2D3 A
            01 009B3    C540C9E2 A
            01 009B4    40E3D640 A
            01 009B5    C2C540E4 A
            01 009B6    E2C5C440 A
            01 009B7    C6D6D940 A
            01 009B8    C9D5E3C5 A
            01 009B9    D9D7D9C5 A
     2747   01 009BA    E3C1E3C9 A            TEXT     'TATION OF SIOP DISPLAY GROUP



'
            01 009BB    D6D540D6 A
            01 009BC    C640E2C9 A
            01 009BD    D6D740C4 A
            01 009BE    C9E2D7D3 A
            01 009BF    C1E840C7 A
            01 009C0    D9D6E4D7 A
            01 009C1    150D0D0D A
     2748   01 009C2    40404040 A            TEXT     '    ERROR PRINTOUTS.  DISPLAY GROUP BIT DESCRIPTIONS'
            01 009C3    C5D9D9D6 A
            01 009C4    D940D7D9 A
            01 009C5    C9D5E3D6 A
            01 009C6    E4E3E24B A
            01 009C7    4040C4C9 A
            01 009C8    E2D7D3C1 A
            01 009C9    E840C7D9 A
            01 009CA    D6E4D740 A
            01 009CB    C2C9E340 A
            01 009CC    C4C5E2C3 A
            01 009CD    D9C9D7E3 A
            01 009CE    C9D6D5E2 A
     2749   01 009CF    40C1D9C5 A            TEXT     ' ARE HEX FORMATTED FROM LEFT



'
            01 009D0    40C8C5E7 A
            01 009D1    40C6D6D9 A
            01 009D2    D4C1E3E3 A
            01 009D3    C5C440C6 A
            01 009D4    D9D6D440 A
            01 009D5    D3C5C6E3 A
            01 009D6    150D0D0D A
     2750   01 009D7    40404040 A            TEXT     '    TO RIGHT AS IN ACTUAL HEX DISPLAY GROUP ERROR PR'
            01 009D8    E3D640D9 A
            01 009D9    C9C7C8E3 A
            01 009DA    40C1E240 A
            01 009DB    C9D540C1 A
            01 009DC    C3E3E4C1 A
            01 009DD    D340C8C5 A
            01 009DE    E740C4C9 A
            01 009DF    E2D7D3C1 A
            01 009E0    E840C7D9 A
            01 009E1    D6E4D740 A
            01 009E2    C5D9D9D6 A
            01 009E3    D940D7D9 A
     2751   01 009E4    C9D5E3D6 A            TEXT     'INTOUT, (4 HEX CHAR./GROUP).



'
            01 009E5    E4E36B40 A
            01 009E6    4DF440C8 A
            01 009E7    C5E740C3 A
            01 009E8    C8C1D94B A
            01 009E9    61C7D9D6 A
            01 009EA    E4D75D4B A
            01 009EB    15150D0D A
     2752   01 009EC    5C5C5C5C A            TEXT     '****************************************************'
            01 009ED    5C5C5C5C A
            01 009EE    5C5C5C5C A
            01 009EF    5C5C5C5C A
            01 009F0    5C5C5C5C A
            01 009F1    5C5C5C5C A
            01 009F2    5C5C5C5C A
            01 009F3    5C5C5C5C A
            01 009F4    5C5C5C5C A
            01 009F5    5C5C5C5C A
            01 009F6    5C5C5C5C A
            01 009F7    5C5C5C5C A
            01 009F8    5C5C5C5C A
     2753   01 009F9    5C5C5C5C A            TEXT     '****************************



'
            01 009FA    5C5C5C5C A
            01 009FB    5C5C5C5C A
            01 009FC    5C5C5C5C A
            01 009FD    5C5C5C5C A
            01 009FE    5C5C5C5C A
            01 009FF    5C5C5C5C A
            01 00A00    150D0D0D A
     2754   01 00A01    5C404040 A            TEXT     '*                   *                   *           '
            01 00A02    40404040 A
            01 00A03    40404040 A
            01 00A04    40404040 A
            01 00A05    40404040 A
            01 00A06    5C404040 A
            01 00A07    40404040 A
            01 00A08    40404040 A
            01 00A09    40404040 A
            01 00A0A    40404040 A
            01 00A0B    5C404040 A
            01 00A0C    40404040 A
            01 00A0D    40404040 A
     2755   01 00A0E    40404040 A            TEXT     '        *                  *



'
            01 00A0F    40404040 A
            01 00A10    5C404040 A
            01 00A11    40404040 A
            01 00A12    40404040 A
            01 00A13    40404040 A
            01 00A14    4040405C A
            01 00A15    150D0D0D A
     2756   01 00A16    5C404040 A            TEXT     '*                   *                   *           '
            01 00A17    40404040 A
            01 00A18    40404040 A
            01 00A19    40404040 A
            01 00A1A    40404040 A
            01 00A1B    5C404040 A
            01 00A1C    40404040 A
            01 00A1D    40404040 A
            01 00A1E    40404040 A
            01 00A1F    40404040 A
            01 00A20    5C404040 A
            01 00A21    40404040 A
            01 00A22    40404040 A
     2757   01 00A23    40404040 A            TEXT     '        *                  *



'
            01 00A24    40404040 A
            01 00A25    5C404040 A
            01 00A26    40404040 A
            01 00A27    40404040 A
            01 00A28    40404040 A
            01 00A29    4040405C A
            01 00A2A    150D0D0D A
     2758   01 00A2B    5C40F1E2 A            TEXT     '* 1ST HEX CHARACTER * 2ND HEX CHARACTER * 3RD HEX CH'
            01 00A2C    E340C8C5 A
            01 00A2D    E740C3C8 A
            01 00A2E    C1D9C1C3 A
            01 00A2F    E3C5D940 A
            01 00A30    5C40F2D5 A
            01 00A31    C440C8C5 A
            01 00A32    E740C3C8 A
            01 00A33    C1D9C1C3 A
            01 00A34    E3C5D940 A
            01 00A35    5C40F3D9 A
            01 00A36    C440C8C5 A
            01 00A37    E740C3C8 A
     2759   01 00A38    C1D9C1C3 A            TEXT     'ARACTER * 4TH HEX CHARACTER*



'
            01 00A39    E3C5D940 A
            01 00A3A    5C40F4E3 A
            01 00A3B    C840C8C5 A
            01 00A3C    E740C3C8 A
            01 00A3D    C1D9C1C3 A
            01 00A3E    E3C5D95C A
            01 00A3F    150D0D0D A
     2760   01 00A40    5C404040 A            TEXT     '*                   *                   *           '
            01 00A41    40404040 A
            01 00A42    40404040 A
            01 00A43    40404040 A
            01 00A44    40404040 A
            01 00A45    5C404040 A
            01 00A46    40404040 A
            01 00A47    40404040 A
            01 00A48    40404040 A
            01 00A49    40404040 A
            01 00A4A    5C404040 A
            01 00A4B    40404040 A
            01 00A4C    40404040 A
     2761   01 00A4D    40404040 A            TEXT     '        *                  *



'
            01 00A4E    40404040 A
            01 00A4F    5C404040 A
            01 00A50    40404040 A
            01 00A51    40404040 A
            01 00A52    40404040 A
            01 00A53    4040405C A
            01 00A54    150D0D0D A
     2762   01 00A55    5C404040 A            TEXT     '*                   *                   *           '
            01 00A56    40404040 A
            01 00A57    40404040 A
            01 00A58    40404040 A
            01 00A59    40404040 A
            01 00A5A    5C404040 A
            01 00A5B    40404040 A
            01 00A5C    40404040 A
            01 00A5D    40404040 A
            01 00A5E    40404040 A
            01 00A5F    5C404040 A
            01 00A60    40404040 A
            01 00A61    40404040 A
     2763   01 00A62    40404040 A            TEXT     '        *                  *



'
            01 00A63    40404040 A
            01 00A64    5C404040 A
            01 00A65    40404040 A
            01 00A66    40404040 A
            01 00A67    40404040 A
            01 00A68    4040405C A
            01 00A69    150D0D0D A
     2764   01 00A6A    5C40C7D9 A            TEXT     '* GRP1 ************** GRP1 ************** GRP1 *****'
            01 00A6B    D7F1405C A
            01 00A6C    5C5C5C5C A
            01 00A6D    5C5C5C5C A
            01 00A6E    5C5C5C5C A
            01 00A6F    5C40C7D9 A
            01 00A70    D7F1405C A
            01 00A71    5C5C5C5C A
            01 00A72    5C5C5C5C A
            01 00A73    5C5C5C5C A
            01 00A74    5C40C7D9 A
            01 00A75    D7F1405C A
            01 00A76    5C5C5C5C A
     2765   01 00A77    5C5C5C5C A            TEXT     '********* GRP1 *************



'
            01 00A78    5C5C5C5C A
            01 00A79    5C40C7D9 A
            01 00A7A    D7F1405C A
            01 00A7B    5C5C5C5C A
            01 00A7C    5C5C5C5C A
            01 00A7D    5C5C5C5C A
            01 00A7E    150D0D0D A
     2766   01 00A7F    5CC6C9F0 A            TEXT     '*FI01 FI01 FM01 FM01*FM11 FM11 FM12 FM12*FM13 FM13 F'
            01 00A80    F140C6C9 A
            01 00A81    F0F140C6 A
            01 00A82    D4F0F140 A
            01 00A83    C6D4F0F1 A
            01 00A84    5CC6D4F1 A
            01 00A85    F140C6D4 A
            01 00A86    F1F140C6 A
            01 00A87    D4F1F240 A
            01 00A88    C6D4F1F2 A
            01 00A89    5CC6D4F1 A
            01 00A8A    F340C6D4 A
            01 00A8B    F1F340C6 A
     2767   01 00A8C    D4F1F440 A            TEXT     'M14 FM14*LAST MTCH ZBC  ZBC*



'
            01 00A8D    C6D4F1F4 A
            01 00A8E    5CD3C1E2 A
            01 00A8F    E340D4E3 A
            01 00A90    C3C840E9 A
            01 00A91    C2C34040 A
            01 00A92    E9C2C35C A
            01 00A93    150D0D0D A
     2768   01 00A94    5C61C140 A            TEXT     '*/A   /B   /A   /B  */A   /B   /A   /B  */A   /B   /'
            01 00A95    404061C2 A
            01 00A96    40404061 A
            01 00A97    C1404040 A
            01 00A98    61C24040 A
            01 00A99    5C61C140 A
            01 00A9A    404061C2 A
            01 00A9B    40404061 A
            01 00A9C    C1404040 A
            01 00A9D    61C24040 A
            01 00A9E    5C61C140 A
            01 00A9F    404061C2 A
            01 00AA0    40404061 A
     2769   01 00AA1    C1404040 A            TEXT     'A   /B  *          1    2  *



'
            01 00AA2    61C24040 A
            01 00AA3    5C404040 A
            01 00AA4    40404040 A
            01 00AA5    404040F1 A
            01 00AA6    40404040 A
            01 00AA7    F240405C A
            01 00AA8    150D0D0D A
     2770   01 00AA9    5C404040 A            TEXT     '*                   *                   *           '
            01 00AAA    40404040 A
            01 00AAB    40404040 A
            01 00AAC    40404040 A
            01 00AAD    40404040 A
            01 00AAE    5C404040 A
            01 00AAF    40404040 A
            01 00AB0    40404040 A
            01 00AB1    40404040 A
            01 00AB2    40404040 A
            01 00AB3    5C404040 A
            01 00AB4    40404040 A
            01 00AB5    40404040 A
     2771   01 00AB6    40404040 A            TEXT     '        *                  *



'
            01 00AB7    40404040 A
            01 00AB8    5C404040 A
            01 00AB9    40404040 A
            01 00ABA    40404040 A
            01 00ABB    40404040 A
            01 00ABC    4040405C A
            01 00ABD    150D0D0D A
     2772   01 00ABE    5C40C7D9 A            TEXT     '* GRP2 ************** GRP2 ************** GRP2 *****'
            01 00ABF    D7F2405C A
            01 00AC0    5C5C5C5C A
            01 00AC1    5C5C5C5C A
            01 00AC2    5C5C5C5C A
            01 00AC3    5C40C7D9 A
            01 00AC4    D7F2405C A
            01 00AC5    5C5C5C5C A
            01 00AC6    5C5C5C5C A
            01 00AC7    5C5C5C5C A
            01 00AC8    5C40C7D9 A
            01 00AC9    D7F2405C A
            01 00ACA    5C5C5C5C A
     2773   01 00ACB    5C5C5C5C A            TEXT     '********* GRP2 *************



'
            01 00ACC    5C5C5C5C A
            01 00ACD    5C40C7D9 A
            01 00ACE    D7F2405C A
            01 00ACF    5C5C5C5C A
            01 00AD0    5C5C5C5C A
            01 00AD1    5C5C5C5C A
            01 00AD2    150D0D0D A
     2774   01 00AD3    5CC6C9F1 A            TEXT     '*FI11 FI11 FI12 FI12*FI13 FI13 FM21 FM21*FM22 FM22 F'
            01 00AD4    F140C6C9 A
            01 00AD5    F1F140C6 A
            01 00AD6    C9F1F240 A
            01 00AD7    C6C9F1F2 A
            01 00AD8    5CC6C9F1 A
            01 00AD9    F340C6C9 A
            01 00ADA    F1F340C6 A
            01 00ADB    D4F2F140 A
            01 00ADC    C6D4F2F1 A
            01 00ADD    5CC6D4F2 A
            01 00ADE    F240C6D4 A
            01 00ADF    F2F240C6 A
     2775   01 00AE0    D4F2F440 A            TEXT     'M24 FM24*END  NSER ORD  OUT*



'
            01 00AE1    C6D4F2F4 A
            01 00AE2    5CC5D5C4 A
            01 00AE3    4040D5E2 A
            01 00AE4    C5D940D6 A
            01 00AE5    D9C44040 A
            01 00AE6    D6E4E35C A
            01 00AE7    150D0D0D A
     2776   01 00AE8    5C61C140 A            TEXT     '*/A   /B   /A   /B  */A   /B   /A   /B  */A   /B   /'
            01 00AE9    404061C2 A
            01 00AEA    40404061 A
            01 00AEB    C1404040 A
            01 00AEC    61C24040 A
            01 00AED    5C61C140 A
            01 00AEE    404061C2 A
            01 00AEF    40404061 A
            01 00AF0    C1404040 A
            01 00AF1    61C24040 A
            01 00AF2    5C61C140 A
            01 00AF3    404061C2 A
            01 00AF4    40404061 A
     2777   01 00AF5    C1404040 A            TEXT     'A   /B  *FI   VIC1         *



'
            01 00AF6    61C24040 A
            01 00AF7    5CC6C940 A
            01 00AF8    4040E5C9 A
            01 00AF9    C3F14040 A
            01 00AFA    40404040 A
            01 00AFB    4040405C A
            01 00AFC    150D0D0D A
     2778   01 00AFD    5C404040 A            TEXT     '*                   *                   *           '
            01 00AFE    40404040 A
            01 00AFF    40404040 A
            01 00B00    40404040 A
            01 00B01    40404040 A
            01 00B02    5C404040 A
            01 00B03    40404040 A
            01 00B04    40404040 A
            01 00B05    40404040 A
            01 00B06    40404040 A
            01 00B07    5C404040 A
            01 00B08    40404040 A
            01 00B09    40404040 A
     2779   01 00B0A    40404040 A            TEXT     '        *                  *



'
            01 00B0B    40404040 A
            01 00B0C    5C404040 A
            01 00B0D    40404040 A
            01 00B0E    40404040 A
            01 00B0F    40404040 A
            01 00B10    4040405C A
            01 00B11    150D0D0D A
     2780   01 00B12    5C40C7D9 A            TEXT     '* GRP3 ************** GRP3 ************** GRP3 *****'
            01 00B13    D7F3405C A
            01 00B14    5C5C5C5C A
            01 00B15    5C5C5C5C A
            01 00B16    5C5C5C5C A
            01 00B17    5C40C7D9 A
            01 00B18    D7F3405C A
            01 00B19    5C5C5C5C A
            01 00B1A    5C5C5C5C A
            01 00B1B    5C5C5C5C A
            01 00B1C    5C40C7D9 A
            01 00B1D    D7F3405C A
            01 00B1E    5C5C5C5C A
     2781   01 00B1F    5C5C5C5C A            TEXT     '********* GRP3 *************



'
            01 00B20    5C5C5C5C A
            01 00B21    5C40C7D9 A
            01 00B22    D7F3405C A
            01 00B23    5C5C5C5C A
            01 00B24    5C5C5C5C A
            01 00B25    5C5C5C5C A
            01 00B26    150D0D0D A
     2782   01 00B27    5CC6D4F3 A            TEXT     '*FM31 FM31 FM32 FM32*FM33 FM33 FM34 FM34*FM41 FM41 M'
            01 00B28    F140C6D4 A
            01 00B29    F3F140C6 A
            01 00B2A    D4F3F240 A
            01 00B2B    C6D4F3F2 A
            01 00B2C    5CC6D4F3 A
            01 00B2D    F340C6D4 A
            01 00B2E    F3F340C6 A
            01 00B2F    D4F3F440 A
            01 00B30    C6D4F3F4 A
            01 00B31    5CC6D4F4 A
            01 00B32    F140C6D4 A
            01 00B33    F4F140D4 A
     2783   01 00B34    E6C14040 A            TEXT     'WA  MWB *MWC  MWD       S31*



'
            01 00B35    D4E6C240 A
            01 00B36    5CD4E6C3 A
            01 00B37    4040D4E6 A
            01 00B38    C4404040 A
            01 00B39    40404040 A
            01 00B3A    E2F3F15C A
            01 00B3B    150D0D0D A
     2784   01 00B3C    5C61C140 A            TEXT     '*/A   /B   /A   /B  */A   /B   /A   /B  */A   /B    '
            01 00B3D    404061C2 A
            01 00B3E    40404061 A
            01 00B3F    C1404040 A
            01 00B40    61C24040 A
            01 00B41    5C61C140 A
            01 00B42    404061C2 A
            01 00B43    40404061 A
            01 00B44    C1404040 A
            01 00B45    61C24040 A
            01 00B46    5C61C140 A
            01 00B47    404061C2 A
            01 00B48    40404040 A
     2785   01 00B49    40404040 A            TEXT     '        *                  *



'
            01 00B4A    40404040 A
            01 00B4B    5C404040 A
            01 00B4C    40404040 A
            01 00B4D    40404040 A
            01 00B4E    40404040 A
            01 00B4F    4040405C A
            01 00B50    150D0D0D A
     2786   01 00B51    5C404040 A            TEXT     '*                   *                   *           '
            01 00B52    40404040 A
            01 00B53    40404040 A
            01 00B54    40404040 A
            01 00B55    40404040 A
            01 00B56    5C404040 A
            01 00B57    40404040 A
            01 00B58    40404040 A
            01 00B59    40404040 A
            01 00B5A    40404040 A
            01 00B5B    5C404040 A
            01 00B5C    40404040 A
            01 00B5D    40404040 A
     2787   01 00B5E    40404040 A            TEXT     '        *                  *



'
            01 00B5F    40404040 A
            01 00B60    5C404040 A
            01 00B61    40404040 A
            01 00B62    40404040 A
            01 00B63    40404040 A
            01 00B64    4040405C A
            01 00B65    150D0D0D A
     2788   01 00B66    5C40C7D9 A            TEXT     '* GRP4 ************** GRP4 ************** GRP4 *****'
            01 00B67    D7F4405C A
            01 00B68    5C5C5C5C A
            01 00B69    5C5C5C5C A
            01 00B6A    5C5C5C5C A
            01 00B6B    5C40C7D9 A
            01 00B6C    D7F4405C A
            01 00B6D    5C5C5C5C A
            01 00B6E    5C5C5C5C A
            01 00B6F    5C5C5C5C A
            01 00B70    5C40C7D9 A
            01 00B71    D7F4405C A
            01 00B72    5C5C5C5C A
     2789   01 00B73    5C5C5C5C A            TEXT     '********* GRP4 *************



'
            01 00B74    5C5C5C5C A
            01 00B75    5C40C7D9 A
            01 00B76    D7F4405C A
            01 00B77    5C5C5C5C A
            01 00B78    5C5C5C5C A
            01 00B79    5C5C5C5C A
            01 00B7A    150D0D0D A
     2790   01 00B7B    5CE2F1F5 A            TEXT     '*S15  S16  S17  S18 *S19  S20  S21  S22 *S23  S24  S'
            01 00B7C    4040E2F1 A
            01 00B7D    F64040E2 A
            01 00B7E    F1F74040 A
            01 00B7F    E2F1F840 A
            01 00B80    5CE2F1F9 A
            01 00B81    4040E2F2 A
            01 00B82    F04040E2 A
            01 00B83    F2F14040 A
            01 00B84    E2F2F240 A
            01 00B85    5CE2F2F3 A
            01 00B86    4040E2F2 A
            01 00B87    F44040E2 A
     2791   01 00B88    F2F54040 A            TEXT     '25  S26 *S27  S28  S29  S30*



'
            01 00B89    E2F2F640 A
            01 00B8A    5CE2F2F7 A
            01 00B8B    4040E2F2 A
            01 00B8C    F84040E2 A
            01 00B8D    F2F94040 A
            01 00B8E    E2F3F05C A
            01 00B8F    150D0D0D A
     2792   01 00B90    5C404040 A            TEXT     '*                   *                   *           '
            01 00B91    40404040 A
            01 00B92    40404040 A
            01 00B93    40404040 A
            01 00B94    40404040 A
            01 00B95    5C404040 A
            01 00B96    40404040 A
            01 00B97    40404040 A
            01 00B98    40404040 A
            01 00B99    40404040 A
            01 00B9A    5C404040 A
            01 00B9B    40404040 A
            01 00B9C    40404040 A
     2793   01 00B9D    40404040 A            TEXT     '        *                  *



'
            01 00B9E    40404040 A
            01 00B9F    5C404040 A
            01 00BA0    40404040 A
            01 00BA1    40404040 A
            01 00BA2    40404040 A
            01 00BA3    4040405C A
            01 00BA4    150D0D0D A
     2794   01 00BA5    5C40C7D9 A            TEXT     '* GRP5 ************** GRP5 ************** GRP5 *****'
            01 00BA6    D7F5405C A
            01 00BA7    5C5C5C5C A
            01 00BA8    5C5C5C5C A
            01 00BA9    5C5C5C5C A
            01 00BAA    5C40C7D9 A
            01 00BAB    D7F5405C A
            01 00BAC    5C5C5C5C A
            01 00BAD    5C5C5C5C A
            01 00BAE    5C5C5C5C A
            01 00BAF    5C40C7D9 A
            01 00BB0    D7F5405C A
            01 00BB1    5C5C5C5C A
     2795   01 00BB2    5C5C5C5C A            TEXT     '********* GRP5 *************



'
            01 00BB3    5C5C5C5C A
            01 00BB4    5C40C7D9 A
            01 00BB5    D7F5405C A
            01 00BB6    5C5C5C5C A
            01 00BB7    5C5C5C5C A
            01 00BB8    5C5C5C5C A
            01 00BB9    150D0D0D A
     2796   01 00BBA    5CC2C3F0 A            TEXT     '*BC00 BC01 BC02 BC03*BC04 BC05 BC06 BC07*BC08 BC09 B'
            01 00BBB    F040C2C3 A
            01 00BBC    F0F140C2 A
            01 00BBD    C3F0F240 A
            01 00BBE    C2C3F0F3 A
            01 00BBF    5CC2C3F0 A
            01 00BC0    F440C2C3 A
            01 00BC1    F0F540C2 A
            01 00BC2    C3F0F640 A
            01 00BC3    C2C3F0F7 A
            01 00BC4    5CC2C3F0 A
            01 00BC5    F840C2C3 A
            01 00BC6    F0F940C2 A
     2797   01 00BC7    C3F1F040 A            TEXT     'C10 BC11*BC12 BC13 BC14 BC *



'
            01 00BC8    C2C3F1F1 A
            01 00BC9    5CC2C3F1 A
            01 00BCA    F240C2C3 A
            01 00BCB    F1F340C2 A
            01 00BCC    C3F1F440 A
            01 00BCD    C2C3405C A
            01 00BCE    150D0D0D A
     2798   01 00BCF    5C404040 A            TEXT     '*                   *                   *           '
            01 00BD0    40404040 A
            01 00BD1    40404040 A
            01 00BD2    40404040 A
            01 00BD3    40404040 A
            01 00BD4    5C404040 A
            01 00BD5    40404040 A
            01 00BD6    40404040 A
            01 00BD7    40404040 A
            01 00BD8    40404040 A
            01 00BD9    5C404040 A
            01 00BDA    40404040 A
            01 00BDB    40404040 A
     2799   01 00BDC    40404040 A            TEXT     '        *               15 *



'
            01 00BDD    40404040 A
            01 00BDE    5C404040 A
            01 00BDF    40404040 A
            01 00BE0    40404040 A
            01 00BE1    40404040 A
            01 00BE2    F1F5405C A
            01 00BE3    150D0D0D A
     2800   01 00BE4    5C404040 A            TEXT     '*                   *                   *           '
            01 00BE5    40404040 A
            01 00BE6    40404040 A
            01 00BE7    40404040 A
            01 00BE8    40404040 A
            01 00BE9    5C404040 A
            01 00BEA    40404040 A
            01 00BEB    40404040 A
            01 00BEC    40404040 A
            01 00BED    40404040 A
            01 00BEE    5C404040 A
            01 00BEF    40404040 A
            01 00BF0    40404040 A
     2801   01 00BF1    40404040 A            TEXT     '        *                  *



'
            01 00BF2    40404040 A
            01 00BF3    5C404040 A
            01 00BF4    40404040 A
            01 00BF5    40404040 A
            01 00BF6    40404040 A
            01 00BF7    4040405C A
            01 00BF8    150D0D0D A
     2802   01 00BF9    5C40C7D9 A            TEXT     '* GRP6 ************** GRP6 ************** GRP6 *****'
            01 00BFA    D7F6405C A
            01 00BFB    5C5C5C5C A
            01 00BFC    5C5C5C5C A
            01 00BFD    5C5C5C5C A
            01 00BFE    5C40C7D9 A
            01 00BFF    D7F6405C A
            01 00C00    5C5C5C5C A
            01 00C01    5C5C5C5C A
            01 00C02    5C5C5C5C A
            01 00C03    5C40C7D9 A
            01 00C04    D7F6405C A
            01 00C05    5C5C5C5C A
     2803   01 00C06    5C5C5C5C A            TEXT     '********* GRP6 *************



'
            01 00C07    5C5C5C5C A
            01 00C08    5C40C7D9 A
            01 00C09    D7F6405C A
            01 00C0A    5C5C5C5C A
            01 00C0B    5C5C5C5C A
            01 00C0C    5C5C5C5C A
            01 00C0D    150D0D0D A
     2804   01 00C0E    5CC3D5E2 A            TEXT     '*CNSTR PR1 FS   FSL *AVO  RS   RSA  SC  *IC   IR   F'
            01 00C0F    E3D940D7 A
            01 00C10    D9F140C6 A
            01 00C11    E2404040 A
            01 00C12    C6E2D340 A
            01 00C13    5CC1E5D6 A
            01 00C14    4040D9E2 A
            01 00C15    404040D9 A
            01 00C16    E2C14040 A
            01 00C17    E2C34040 A
            01 00C18    5CC9C340 A
            01 00C19    4040C9D9 A
            01 00C1A    404040C6 A
     2805   01 00C1B    D5C3C640 A            TEXT     'NCF MPE *MPR  MRQ  MRQ1 MRQ*



'
            01 00C1C    D4D7C540 A
            01 00C1D    5CD4D7D9 A
            01 00C1E    4040D4D9 A
            01 00C1F    D84040D4 A
            01 00C20    D9D8F140 A
            01 00C21    D4D9D85C A
            01 00C22    150D0D0D A
     2806   01 00C23    5C404040 A            TEXT     '*                   *                   *           '
            01 00C24    40404040 A
            01 00C25    40404040 A
            01 00C26    40404040 A
            01 00C27    40404040 A
            01 00C28    5C404040 A
            01 00C29    40404040 A
            01 00C2A    40404040 A
            01 00C2B    40404040 A
            01 00C2C    40404040 A
            01 00C2D    5C404040 A
            01 00C2E    40404040 A
            01 00C2F    40404040 A
     2807   01 00C30    40404040 A            TEXT     '        *               2  *



'
            01 00C31    40404040 A
            01 00C32    5C404040 A
            01 00C33    40404040 A
            01 00C34    40404040 A
            01 00C35    40404040 A
            01 00C36    F240405C A
            01 00C37    150D0D0D A
     2808   01 00C38    5C404040 A            TEXT     '*                   *                   *           '
            01 00C39    40404040 A
            01 00C3A    40404040 A
            01 00C3B    40404040 A
            01 00C3C    40404040 A
            01 00C3D    5C404040 A
            01 00C3E    40404040 A
            01 00C3F    40404040 A
            01 00C40    40404040 A
            01 00C41    40404040 A
            01 00C42    5C404040 A
            01 00C43    40404040 A
            01 00C44    40404040 A
     2809   01 00C45    40404040 A            TEXT     '        *                  *



'
            01 00C46    40404040 A
            01 00C47    5C404040 A
            01 00C48    40404040 A
            01 00C49    40404040 A
            01 00C4A    40404040 A
            01 00C4B    4040405C A
            01 00C4C    150D0D0D A
     2810   01 00C4D    5C40C7D9 A            TEXT     '* GRP7 ************** GRP7 ************** GRP7 *****'
            01 00C4E    D7F7405C A
            01 00C4F    5C5C5C5C A
            01 00C50    5C5C5C5C A
            01 00C51    5C5C5C5C A
            01 00C52    5C40C7D9 A
            01 00C53    D7F7405C A
            01 00C54    5C5C5C5C A
            01 00C55    5C5C5C5C A
            01 00C56    5C5C5C5C A
            01 00C57    5C40C7D9 A
            01 00C58    D7F7405C A
            01 00C59    5C5C5C5C A
     2811   01 00C5A    5C5C5C5C A            TEXT     '********* GRP7 *************



'
            01 00C5B    5C5C5C5C A
            01 00C5C    5C40C7D9 A
            01 00C5D    D7F7405C A
            01 00C5E    5C5C5C5C A
            01 00C5F    5C5C5C5C A
            01 00C60    5C5C5C5C A
            01 00C61    150D0D0D A
     2812   01 00C62    5CE2E340 A            TEXT     '*ST   ST   ST   ST  *STIO STIOP ST  STIO*ST   ST   S'
            01 00C63    4040E2E3 A
            01 00C64    404040E2 A
            01 00C65    E3404040 A
            01 00C66    E2E34040 A
            01 00C67    5CE2E3C9 A
            01 00C68    D640E2E3 A
            01 00C69    C9D6D740 A
            01 00C6A    E2E34040 A
            01 00C6B    E2E3C9D6 A
            01 00C6C    5CE2E340 A
            01 00C6D    4040E2E3 A
            01 00C6E    404040E2 A
     2813   01 00C6F    E3404040 A            TEXT     'T   END1*END2 END3 END  FL *



'
            01 00C70    C5D5C4F1 A
            01 00C71    5CC5D5C4 A
            01 00C72    F240C5D5 A
            01 00C73    C4F340C5 A
            01 00C74    D5C44040 A
            01 00C75    C6D3405C A
            01 00C76    150D0D0D A
     2814   01 00C77    5CC9D340 A            TEXT     '*IL   TDE  TME  MAE *ME   CE    IOPH PB1*CEI  UEI  Z'
            01 00C78    4040E3C4 A
            01 00C79    C54040E3 A
            01 00C7A    D4C54040 A
            01 00C7B    D4C1C540 A
            01 00C7C    5CD4C540 A
            01 00C7D    4040C3C5 A
            01 00C7E    40404040 A
            01 00C7F    C9D6D7C8 A
            01 00C80    40D7C2F1 A
            01 00C81    5CC3C5C9 A
            01 00C82    4040E4C5 A
            01 00C83    C94040E9 A
     2815   01 00C84    C2C3C940 A            TEXT     'BCI     *          DIO  CLR*



'
            01 00C85    40404040 A
            01 00C86    5C404040 A
            01 00C87    40404040 A
            01 00C88    404040C4 A
            01 00C89    C9D64040 A
            01 00C8A    C3D3D95C A
            01 00C8B    150D0D0D A
     2816   01 00C8C    5C404040 A            TEXT     '*                   *                   *           '
            01 00C8D    40404040 A
            01 00C8E    40404040 A
            01 00C8F    40404040 A
            01 00C90    40404040 A
            01 00C91    5C404040 A
            01 00C92    40404040 A
            01 00C93    40404040 A
            01 00C94    40404040 A
            01 00C95    40404040 A
            01 00C96    5C404040 A
            01 00C97    40404040 A
            01 00C98    40404040 A
     2817   01 00C99    40404040 A            TEXT     '        *                  *



'
            01 00C9A    40404040 A
            01 00C9B    5C404040 A
            01 00C9C    40404040 A
            01 00C9D    40404040 A
            01 00C9E    40404040 A
            01 00C9F    4040405C A
            01 00CA0    150D0D0D A
     2818   01 00CA1    5C40C7D9 A            TEXT     '* GRP8 ************** GRP8 ************** GRP8 *****'
            01 00CA2    D7F8405C A
            01 00CA3    5C5C5C5C A
            01 00CA4    5C5C5C5C A
            01 00CA5    5C5C5C5C A
            01 00CA6    5C40C7D9 A
            01 00CA7    D7F8405C A
            01 00CA8    5C5C5C5C A
            01 00CA9    5C5C5C5C A
            01 00CAA    5C5C5C5C A
            01 00CAB    5C40C7D9 A
            01 00CAC    D7F8405C A
            01 00CAD    5C5C5C5C A
     2819   01 00CAE    5C5C5C5C A            TEXT     '********* GRP8 *************



'
            01 00CAF    5C5C5C5C A
            01 00CB0    5C40C7D9 A
            01 00CB1    D7F8405C A
            01 00CB2    5C5C5C5C A
            01 00CB3    5C5C5C5C A
            01 00CB4    5C5C5C5C A
            01 00CB5    150D0D0D A
     2820   01 00CB6    5CD9D2F0 A            TEXT     '*RK0  RK1  RK2  RK3 *IA1  IA2  IA3  OA1 *OA2  OA3  L'
            01 00CB7    4040D9D2 A
            01 00CB8    F14040D9 A
            01 00CB9    D2F24040 A
            01 00CBA    D9D2F340 A
            01 00CBB    5CC9C1F1 A
            01 00CBC    4040C9C1 A
            01 00CBD    F24040C9 A
            01 00CBE    C1F34040 A
            01 00CBF    D6C1F140 A
            01 00CC0    5CD6C1F2 A
            01 00CC1    4040D6C1 A
            01 00CC2    F34040D3 A
     2821   01 00CC3    D9F14040 A            TEXT     'R1  LR2 *LR3  S/   S/   D/ *



'
            01 00CC4    D3D9F240 A
            01 00CC5    5CD3D9F3 A
            01 00CC6    4040E261 A
            01 00CC7    404040E2 A
            01 00CC8    61404040 A
            01 00CC9    C461405C A
            01 00CCA    150D0D0D A
     2822   01 00CCB    5C404040 A            TEXT     '*                   *                   *           '
            01 00CCC    40404040 A
            01 00CCD    40404040 A
            01 00CCE    40404040 A
            01 00CCF    40404040 A
            01 00CD0    5C404040 A
            01 00CD1    40404040 A
            01 00CD2    40404040 A
            01 00CD3    40404040 A
            01 00CD4    40404040 A
            01 00CD5    5C404040 A
            01 00CD6    40404040 A
            01 00CD7    40404040 A
     2823   01 00CD8    40404040 A            TEXT     '        *     WRIT READ RD *



'
            01 00CD9    40404040 A
            01 00CDA    5C404040 A
            01 00CDB    4040E6D9 A
            01 00CDC    C9E340D9 A
            01 00CDD    C5C1C440 A
            01 00CDE    D9C4405C A
            01 00CDF    150D0D0D A
     2824   01 00CE0    5C404040 A            TEXT     '*                   *                   *           '
            01 00CE1    40404040 A
            01 00CE2    40404040 A
            01 00CE3    40404040 A
            01 00CE4    40404040 A
            01 00CE5    5C404040 A
            01 00CE6    40404040 A
            01 00CE7    40404040 A
            01 00CE8    40404040 A
            01 00CE9    40404040 A
            01 00CEA    5C404040 A
            01 00CEB    40404040 A
            01 00CEC    40404040 A
     2825   01 00CED    40404040 A            TEXT     '        *                  *



'
            01 00CEE    40404040 A
            01 00CEF    5C404040 A
            01 00CF0    40404040 A
            01 00CF1    40404040 A
            01 00CF2    40404040 A
            01 00CF3    4040405C A
            01 00CF4    150D0D0D A
     2826   01 00CF5    5C40C7D9 A            TEXT     '* GRP9 ************** GRP9 ************** GRP9 *****'
            01 00CF6    D7F9405C A
            01 00CF7    5C5C5C5C A
            01 00CF8    5C5C5C5C A
            01 00CF9    5C5C5C5C A
            01 00CFA    5C40C7D9 A
            01 00CFB    D7F9405C A
            01 00CFC    5C5C5C5C A
            01 00CFD    5C5C5C5C A
            01 00CFE    5C5C5C5C A
            01 00CFF    5C40C7D9 A
            01 00D00    D7F9405C A
            01 00D01    5C5C5C5C A
     2827   01 00D02    5C5C5C5C A            TEXT     '********* GRP9 *************



'
            01 00D03    5C5C5C5C A
            01 00D04    5C40C7D9 A
            01 00D05    D7F9405C A
            01 00D06    5C5C5C5C A
            01 00D07    5C5C5C5C A
            01 00D08    5C5C5C5C A
            01 00D09    150D0D0D A
     2828   01 00D0A    5CD9C1F8 A            TEXT     '*RA8  RB8  RC8  RD8 *KAA  KAB  KAC  KAD *SAA  SAB  S'
            01 00D0B    4040D9C2 A
            01 00D0C    F84040D9 A
            01 00D0D    C3F84040 A
            01 00D0E    D9C4F840 A
            01 00D0F    5CD2C1C1 A
            01 00D10    4040D2C1 A
            01 00D11    C24040D2 A
            01 00D12    C1C34040 A
            01 00D13    D2C1C440 A
            01 00D14    5CE2C1C1 A
            01 00D15    4040E2C1 A
            01 00D16    C24040E2 A
     2829   01 00D17    C1C34040 A            TEXT     'AC  SAD *KA8  KB8  KC8  KD8*



'
            01 00D18    E2C1C440 A
            01 00D19    5CD2C1F8 A
            01 00D1A    4040D2C2 A
            01 00D1B    F84040D2 A
            01 00D1C    C3F84040 A
            01 00D1D    D2C4F85C A
            01 00D1E    150D0D0D A
     2830   01 00D1F    5C404040 A            TEXT     '*                   *                   *           '
            01 00D20    40404040 A
            01 00D21    40404040 A
            01 00D22    40404040 A
            01 00D23    40404040 A
            01 00D24    5C404040 A
            01 00D25    40404040 A
            01 00D26    40404040 A
            01 00D27    40404040 A
            01 00D28    40404040 A
            01 00D29    5C404040 A
            01 00D2A    40404040 A
            01 00D2B    40404040 A
     2831   01 00D2C    40404040 A            TEXT     '        *                  *



'
            01 00D2D    40404040 A
            01 00D2E    5C404040 A
            01 00D2F    40404040 A
            01 00D30    40404040 A
            01 00D31    40404040 A
            01 00D32    4040405C A
            01 00D33    150D0D0D A
     2832   01 00D34    5C40C7D9 A            TEXT     '* GRPA ************** GRPA ************** GRPA *****'
            01 00D35    D7C1405C A
            01 00D36    5C5C5C5C A
            01 00D37    5C5C5C5C A
            01 00D38    5C5C5C5C A
            01 00D39    5C40C7D9 A
            01 00D3A    D7C1405C A
            01 00D3B    5C5C5C5C A
            01 00D3C    5C5C5C5C A
            01 00D3D    5C5C5C5C A
            01 00D3E    5C40C7D9 A
            01 00D3F    D7C1405C A
            01 00D40    5C5C5C5C A
     2833   01 00D41    5C5C5C5C A            TEXT     '********* GRPA *************



'
            01 00D42    5C5C5C5C A
            01 00D43    5C40C7D9 A
            01 00D44    D7C1405C A
            01 00D45    5C5C5C5C A
            01 00D46    5C5C5C5C A
            01 00D47    5C5C5C5C A
            01 00D48    150D0D0D A
     2834   01 00D49    5CE6C2C1 A            TEXT     '*WBA  WBB  WBC  WBD *JA8  JB8  JC8  JD8 *NANOTHER   '
            01 00D4A    4040E6C2 A
            01 00D4B    C24040E6 A
            01 00D4C    C2C34040 A
            01 00D4D    E6C2C440 A
            01 00D4E    5CD1C1F8 A
            01 00D4F    4040D1C2 A
            01 00D50    F84040D1 A
            01 00D51    C3F84040 A
            01 00D52    D1C4F840 A
            01 00D53    5CD5C1D5 A
            01 00D54    D6E3C8C5 A
            01 00D55    D9404040 A
     2835   01 00D56    40404040 A            TEXT     '    AIOP*PRQA PRQB MCY  MCY*



'
            01 00D57    C1C9D6D7 A
            01 00D58    5CD7D9D8 A
            01 00D59    C140D7D9 A
            01 00D5A    D8C240D4 A
            01 00D5B    C3E84040 A
            01 00D5C    D4C3E85C A
            01 00D5D    150D0D0D A
     2836   01 00D5E    5C404040 A            TEXT     '*                   *                   *           '
            01 00D5F    40404040 A
            01 00D60    40404040 A
            01 00D61    40404040 A
            01 00D62    40404040 A
            01 00D63    5C404040 A
            01 00D64    40404040 A
            01 00D65    40404040 A
            01 00D66    40404040 A
            01 00D67    40404040 A
            01 00D68    5C404040 A
            01 00D69    40404040 A
            01 00D6A    40404040 A
     2837   01 00D6B    40404040 A            TEXT     '        *          A/1  B/1*



'
            01 00D6C    40404040 A
            01 00D6D    5C404040 A
            01 00D6E    40404040 A
            01 00D6F    404040C1 A
            01 00D70    61F14040 A
            01 00D71    C261F15C A
            01 00D72    150D0D0D A
     2838   01 00D73    5C404040 A            TEXT     '*                   *                   *           '
            01 00D74    40404040 A
            01 00D75    40404040 A
            01 00D76    40404040 A
            01 00D77    40404040 A
            01 00D78    5C404040 A
            01 00D79    40404040 A
            01 00D7A    40404040 A
            01 00D7B    40404040 A
            01 00D7C    40404040 A
            01 00D7D    5C404040 A
            01 00D7E    40404040 A
            01 00D7F    40404040 A
     2839   01 00D80    40404040 A            TEXT     '        *                  *



'
            01 00D81    40404040 A
            01 00D82    5C404040 A
            01 00D83    40404040 A
            01 00D84    40404040 A
            01 00D85    40404040 A
            01 00D86    4040405C A
            01 00D87    150D0D0D A
     2840   01 00D88    5C5C5C5C A            TEXT     '****************************************************'
            01 00D89    5C5C5C5C A
            01 00D8A    5C5C5C5C A
            01 00D8B    5C5C5C5C A
            01 00D8C    5C5C5C5C A
            01 00D8D    5C5C5C5C A
            01 00D8E    5C5C5C5C A
            01 00D8F    5C5C5C5C A
            01 00D90    5C5C5C5C A
            01 00D91    5C5C5C5C A
            01 00D92    5C5C5C5C A
            01 00D93    5C5C5C5C A
            01 00D94    5C5C5C5C A
     2841   01 00D95    5C5C5C5C A            TEXT     '****************************



'
            01 00D96    5C5C5C5C A
            01 00D97    5C5C5C5C A
            01 00D98    5C5C5C5C A
            01 00D99    5C5C5C5C A
            01 00D9A    5C5C5C5C A
            01 00D9B    5C5C5C5C A
            01 00D9C    15150D0D A
     2842   01 00D9D    40404040 A            TEXT     '    INITIALIZATION:                                 '
            01 00D9E    C9D5C9E3 A
            01 00D9F    C9C1D3C9 A
            01 00DA0    E9C1E3C9 A
            01 00DA1    D6D57A40 A
            01 00DA2    40404040 A
            01 00DA3    40404040 A
            01 00DA4    40404040 A
            01 00DA5    40404040 A
            01 00DA6    40404040 A
            01 00DA7    40404040 A
            01 00DA8    40404040 A
            01 00DA9    40404040 A
     2843   01 00DAA    40404040 A            TEXT     '                            



'
            01 00DAB    40404040 A
            01 00DAC    40404040 A
            01 00DAD    40404040 A
            01 00DAE    40404040 A
            01 00DAF    40404040 A
            01 00DB0    40404040 A
            01 00DB1    150D0D0D A
     2844   01 00DB2    40404040 A            TEXT     '    1.  PLACE OFF-LINE: ALL DEVICE CONTROLLERS CONNE'
            01 00DB3    F14B4040 A
            01 00DB4    D7D3C1C3 A
            01 00DB5    C540D6C6 A
            01 00DB6    C660D3C9 A
            01 00DB7    D5C57A40 A
            01 00DB8    C1D3D340 A
            01 00DB9    C4C5E5C9 A
            01 00DBA    C3C540C3 A
            01 00DBB    D6D5E3D9 A
            01 00DBC    D6D3D3C5 A
            01 00DBD    D9E240C3 A
            01 00DBE    D6D5D5C5 A
     2845   01 00DBF    C3E3C5C4 A            TEXT     'CTED TO THE SIOP UNDER TEST,



'
            01 00DC0    40E3D640 A
            01 00DC1    E3C8C540 A
            01 00DC2    E2C9D6D7 A
            01 00DC3    40E4D5C4 A
            01 00DC4    C5D940E3 A
            01 00DC5    C5E2E36B A
            01 00DC6    150D0D0D A
     2846   01 00DC7    40404040 A            TEXT     '        EXCEPT THOSE EQUIPPED WITH PROGRAM-CONTROLLE'
            01 00DC8    40404040 A
            01 00DC9    C5E7C3C5 A
            01 00DCA    D7E340E3 A
            01 00DCB    C8D6E2C5 A
            01 00DCC    40C5D8E4 A
            01 00DCD    C9D7D7C5 A
            01 00DCE    C440E6C9 A
            01 00DCF    E3C840D7 A
            01 00DD0    D9D6C7D9 A
            01 00DD1    C1D460C3 A
            01 00DD2    D6D5E3D9 A
            01 00DD3    D6D3D3C5 A
     2847   01 00DD4    C460D6C6 A            TEXT     'D-OFF-LINE-MODULE:  (AT-83).



'
            01 00DD5    C660D3C9 A
            01 00DD6    D5C560D4 A
            01 00DD7    D6C4E4D3 A
            01 00DD8    C57A4040 A
            01 00DD9    4DC1E360 A
            01 00DDA    F8F35D4B A
            01 00DDB    150D0D0D A
     2848   01 00DDC    40404040 A            TEXT     '    2.  INSURE THAT THE TEST SWITCH ON THE TEST MS I'
            01 00DDD    F24B4040 A
            01 00DDE    C9D5E2E4 A
            01 00DDF    D9C540E3 A
            01 00DE0    C8C1E340 A
            01 00DE1    E3C8C540 A
            01 00DE2    E3C5E2E3 A
            01 00DE3    40E2E6C9 A
            01 00DE4    E3C3C840 A
            01 00DE5    D6D540E3 A
            01 00DE6    C8C540E3 A
            01 00DE7    C5E2E340 A
            01 00DE8    D4E240C9 A
     2849   01 00DE9    E240C9D5 A            TEXT     'S IN THE UP (TEST) POSITION.



'
            01 00DEA    40E3C8C5 A
            01 00DEB    40E4D740 A
            01 00DEC    4DE3C5E2 A
            01 00DED    E35D40D7 A
            01 00DEE    D6E2C9E3 A
            01 00DEF    C9D6D54B A
            01 00DF0    15150D0D A
     2850   01 00DF1    C5D5E3C5 A            TEXT     'ENTER TEST PARAMETERS AS DEFINED IN SELECTOR IOP PRO'
            01 00DF2    D940E3C5 A
            01 00DF3    E2E340D7 A
            01 00DF4    C1D9C1D4 A
            01 00DF5    C5E3C5D9 A
            01 00DF6    E240C1E2 A
            01 00DF7    40C4C5C6 A
            01 00DF8    C9D5C5C4 A
            01 00DF9    40C9D540 A
            01 00DFA    E2C5D3C5 A
            01 00DFB    C3E3D6D9 A
            01 00DFC    40C9D6D7 A
            01 00DFD    40D7D9D6 A
     2851   01 00DFE    C7D9C1D4 A            TEXT     'GRAM MANUAL       XDS 901670



'
            01 00DFF    40D4C1D5 A
            01 00E00    E4C1D340 A
            01 00E01    40404040 A
            01 00E02    4040E7C4 A
            01 00E03    E240F9F0 A
            01 00E04    F1F6F7F0 A
            01 00E05    15150D0D A
     2852         01 00E06           MSG1E    EQU      BA(%)
     2853                            *
     2854                            *
     2855                            * GROUP HEADING MESSAGE
     2856                            *
     2857   01 00E06    40404040 A   MSG2     TEXT     '    GRP1    GRP2    GRP3    GRP4    GRP5    GRP6    '
            01 00E07    C7D9D7F1 A
            01 00E08    40404040 A
            01 00E09    C7D9D7F2 A
            01 00E0A    40404040 A
            01 00E0B    C7D9D7F3 A
            01 00E0C    40404040 A
            01 00E0D    C7D9D7F4 A
            01 00E0E    40404040 A
            01 00E0F    C7D9D7F5 A
            01 00E10    40404040 A
            01 00E11    C7D9D7F6 A
            01 00E12    40404040 A
     2858   01 00E13    C7D9D7F7 A            TEXT     'GRP7    GRP8    GRP9    GRPA



'
            01 00E14    40404040 A
            01 00E15    C7D9D7F8 A
            01 00E16    40404040 A
            01 00E17    C7D9D7F9 A
            01 00E18    40404040 A
            01 00E19    C7D9D7C1 A
            01 00E1A    15150D0D A
     2859   01 00E1B    E2C9D640 A   MSG3     TEXT     'SIO '
     2860         01 00E1C           MSG3E    EQU      BA(%)
     2861   01 00E1C    E3C9D640 A   MSG4     TEXT     'TIO   NOTE: HARDWARE CONSTRAINTS ALLOW SINGLE PHAESI'
            01 00E1D    4040D5D6 A
            01 00E1E    E3C57A40 A
            01 00E1F    C8C1D9C4 A
            01 00E20    E6C1D9C5 A
            01 00E21    40C3D6D5 A
            01 00E22    E2E3D9C1 A
            01 00E23    C9D5E3E2 A
            01 00E24    40C1D3D3 A
            01 00E25    D6E640E2 A
            01 00E26    C9D5C7D3 A
            01 00E27    C540D7C8 A
            01 00E28    C1C5E2C9 A
     2862   01 00E29    D5C740D6 A            TEXT     'NG ONLY FI01, FM01 AND FM11.'
            01 00E2A    D5D3E840 A
            01 00E2B    C6C9F0F1 A
            01 00E2C    6B40C6D4 A
            01 00E2D    F0F140C1 A
            01 00E2E    D5C440C6 A
            01 00E2F    D4F1F14B A
     2863         01 00E30           MSG4E    EQU      BA(%)
     2864   01 00E30    E3C4E540 A   MSG5     TEXT     'TDV   NOTE: HARDWARE CONSTRAINTS ALLOW SINGLE PHAESI'
            01 00E31    4040D5D6 A
            01 00E32    E3C57A40 A
            01 00E33    C8C1D9C4 A
            01 00E34    E6C1D9C5 A
            01 00E35    40C3D6D5 A
            01 00E36    E2E3D9C1 A
            01 00E37    C9D5E3E2 A
            01 00E38    40C1D3D3 A
            01 00E39    D6E640E2 A
            01 00E3A    C9D5C7D3 A
            01 00E3B    C540D7C8 A
            01 00E3C    C1C5E2C9 A
     2865   01 00E3D    D5C740D6 A            TEXT     'NG ONLY FI01, FM01 AND FM11.'
            01 00E3E    D5D3E840 A
            01 00E3F    C6C9F0F1 A
            01 00E40    6B40C6D4 A
            01 00E41    F0F140C1 A
            01 00E42    D5C440C6 A
            01 00E43    D4F1F14B A
     2866         01 00E44           MSG5E    EQU      BA(%)
     2867   01 00E44    C8C9D640 A   MSG6     TEXT     'HIO   NOTE: HARDWARE CONSTRAINTS ALLOW SINGLE PHAESI'
            01 00E45    4040D5D6 A
            01 00E46    E3C57A40 A
            01 00E47    C8C1D9C4 A
            01 00E48    E6C1D9C5 A
            01 00E49    40C3D6D5 A
            01 00E4A    E2E3D9C1 A
            01 00E4B    C9D5E3E2 A
            01 00E4C    40C1D3D3 A
            01 00E4D    D6E640E2 A
            01 00E4E    C9D5C7D3 A
            01 00E4F    C540D7C8 A
            01 00E50    C1C5E2C9 A
     2868   01 00E51    D5C740D6 A            TEXT     'NG ONLY FI01, FM01 AND FM11.'
            01 00E52    D5D3E840 A
            01 00E53    C6C9F0F1 A
            01 00E54    6B40C6D4 A
            01 00E55    F0F140C1 A
            01 00E56    D5C440C6 A
            01 00E57    D4F1F14B A
     2869         01 00E58           MSG6E    EQU      BA(%)
     2870   01 00E58    D6D9C4C5 A   MSG7     TEXT     'ORDER OUT   '
            01 00E59    D940D6E4 A
            01 00E5A    E3404040 A
     2871         01 00E5B           MSG7E    EQU      BA(%)
     2872   01 00E5B    C4C1E3C1 A   MSG8     TEXT     'DATA IN '
            01 00E5C    40C9D540 A
     2873         01 00E5D           MSG8E    EQU      BA(%)
     2874   01 00E5D    C4C1E3C1 A   MSG9     TEXT     'DATA OUT'
            01 00E5E    40D6E4E3 A
     2875         01 00E5F           MSG9E    EQU      BA(%)
     2876   01 00E5F    D6D9C4C5 A   MSGA     TEXT     'ORDER IN'
            01 00E60    D940C9D5 A
     2877         01 00E61           MSGAE    EQU      BA(%)
     2878   01 00E61    C1C9D640 A   MSGB     TEXT     'AIO '
     2879         01 00E62           MSGBE    EQU      BA(%)
     2880                            *
     2881                            *
     2882                            *
     2883                            *
     2884                            *
     2885                            *
     2886                            *
     2887                            *
     2888                            *
     2889                            *
     2890                            *
     2891                            *
     2892                            *
     2893                            *
     2894                            *
     2895                            *
     2896                            *
     2897                            *
     2898                            *
     2899                            *
     2900                            *
     2901                            *
     2902                            *
     2903                            *
     2904                            *
     2905                            *
     2906                            *
     2907                            *
     2908                            *
     2909                            *
     2910                            *
     2911                            *
     2912                            ******** T100     TEST SIO COMPLETION **********************************
     2913                            *
     2914                            *
     2915                            *        NOTE:    RESIDUAL IOP LATCH SETTINGS WILL APPEAR AS MISCOMPARES
     2916                            *                 IN THESE TWO SUBTESTS.
     2917                            *
     2918                            *
     2919                            *                 M E T H O D :
     2920                            *
     2921                            *        SUBTEST
     2922                            *          ONE:   AN SIO IS EXECUTED WITH ODD REGISTER SPECIFIED.
     2923                            *        SUBTEST
     2924                            *          TWO:   AN SIO IS EXECUTED WITH EVEN REGISTER SPECIFIED.
     2925                            *
     2926                            *
     2927                            *                 R E A S O N   F O R   E R R O R :
     2928                            *
     2929                            *                 WATCHDOG TIMER RUNOUT.  CHECK WHETHER SIO GOES
     2930                            *                 TO COMPLETION.
     2931                            *
     2932                            *
     2933                            *                 E R R O R   I N D I C A T I O N :
     2934                            *
     2935                            *                 ERROR TEST-SUBTEST
     2936                            *
     2937                            *
     2938   01 00E62    6AF00347     T100     BAL,15   LOOK              INITIALIZE
     2939   01 00E63    00000000 A            DATA     0
     2940                            *
     2941   01 00E64    22000000 A            LI,0     0
     2942   01 00E65    350003FE              STW,0    WDTI              CLEAR WDTIMER FLAG
     2943   01 00E66    6AF004B3              BAL,15   %IORSTYP          IO RESET WITHOUT SINGLEPHASE
     2944   01 00E67    220000A1              LI,0     DA(TSTSIO)        LOAD DA OF TEST SIO
     2945   01 00E68    CCD0040D              SIO,13   *IOPT
     2946   01 00E69    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION
     2947   01 00E6A    69300E6D              BCS,3    %+3               IF SO, BRANCH
     2948   01 00E6B    320003FE              LW,0     WDTI              TEST FOR WDTIMER TRAP
     2949   01 00E6C    68300E74              BCR,3    T1001
     2950   01 00E6D    6AF004A8              BAL,15   %IORSTX           RESET I/O
     2951   01 00E6E    6AF00533              BAL,15   SIOSUB            SINGLE PHASE THRU SIO
     2952                            *
     2953   01 00E6F    01000548              GEN,8,24 1,BA(ONEBYTE)     ORDER = WRITE, BA = ONEBYTE
     2954   01 00E70    00000001 A            GEN,8,24 0,1               NO FLAGS,   BC = 1
     2955                            *
     2956   01 00E71    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION
     2957   01 00E72    69300E74              BCS,3    %+2               IF SO, BRANCH
     2958   01 00E73    6AF0036D              BAL,15   ERROR
     2959   01 00E74    6AF0039D     T1001    BAL,15   RECUR
     2960                            *
     2961                            *
     2962   01 00E75    22000000 A            LI,0     0
     2963   01 00E76    350003FE              STW,0    WDTI              INIT. TIMER FLAG
     2964   01 00E77    6AF004B3              BAL,15   %IORSTYP          IO RESET WITHOUT SINGLEPHASE
     2965   01 00E78    220000A1              LI,0     DA(TSTSIO)        LOAD DA OF TEST SIO
     2966   01 00E79    CCC0040D              SIO,12   *IOPT
     2967   01 00E7A    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION
     2968   01 00E7B    69300E7E              BCS,3    %+3               IF SO, BRANCH
     2969   01 00E7C    320003FE              LW,0     WDTI              TEST FOR WDTIMER TRAP
     2970   01 00E7D    68300E86              BCR,3    T1002
     2971   01 00E7E    33100524              MTW,1    EVENFLAG          SPECIFY EVEN REG SIO
     2972   01 00E7F    6AF004A8              BAL,15   %IORSTX           RESET I/O
     2973   01 00E80    6AF00533              BAL,15   SIOSUB            SINGLE PHASE THRU SIO
     2974                            *
     2975   01 00E81    01000548              GEN,8,24 1,BA(ONEBYTE)     WRITE ORDER, BA = ONEBYTE
     2976   01 00E82    00000001 A            GEN,8,24 0,1               NO FLAGS,   BC = 1
     2977                            *
     2978   01 00E83    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION
     2979   01 00E84    69300E86              BCS,3    %+2               IF SO, BRANCH
     2980   01 00E85    6AF0036D              BAL,15   ERROR
     2981   01 00E86    6AF0039D     T1002    BAL,15   RECUR
     2982   01 00E87    68000E88              B        T101
     2983                            *
     2984                            *
     2985                            ******** T101     TEST FUNCTION INDICATOR LINES (SIO,TIO,TDV,HIO AND FS)
     2986                            *
     2987                            *                 M E T H O D :
     2988                            *
     2989                            *        SUBTEST
     2990                            *          ONE:   AN SIO IS EXECUTED AND FUNCTION INDICATOR LINES ARE
     2991                            *                 CHECKED IN THE MS.
     2992                            *        SUBTEST
     2993                            *          TWO:   A  TIO IS EXECUTED AND FUNCTION INDICATOR LINES ARE
     2994                            *                 CHECKED IN THE MS.
     2995                            *        SUBTEST
     2996                            *          THREE: A  TDV IS EXECUTED AND FUNCTION INDICATOR LINES ARE
     2997                            *                 CHECKED IN THE MS.
     2998                            *        SUBTEST
     2999                            *          FOUR:  AN HIO IS EXECUTED AND FUNCTION INDICATOR LINES ARE
     3000                            *                 CHECKED IN THE MS.
     3001                            *
     3002                            *
     3003                            *                 R E A S O N   F O R   E R R O R :
     3004                            *
     3005                            *                 PROPER FUNTION INDICATOR LINE WAS NOT SET IN THE MS.
     3006                            *
     3007                            *
     3008                            *                 E R R O R   I N D I C A T I O N :
     3009                            *
     3010                            *        ERROR WORD 1 = MS RESPONSE EXPECTED  (MS DISPLAY GROUP THREE)
     3011                            *        ERROR WORD 2 = MS RESPONSE RECEIVED  (MS DISPLAY GROUP THREE)
     3012                            *
     3013                            *
     3014                            *
     3015   01 00E88    6AF00347     T101     BAL,15   LOOK
     3016   01 00E89    00000001 A            DATA     1
     3017                            *
     3018   01 00E8A    220000A1              LI,0     DA(TSTSIO)        LOAD DA OF TEST SIO
     3019   01 00E8B    6AF00E9F              BAL,15   T1011
     3020   01 00E8C    CC00040D              SIO,0    *IOPT             TEST SIO FS
     3021   01 00E8D    00000081 A            DATA     X'81'
     3022                            *
     3023   01 00E8E    22400E8E              LI,4     %
     3024   01 00E8F    35400522              STW,4    LASTSUB
     3025   01 00E90    6AF00E9F              BAL,15   T1011
     3026   01 00E91    CD00040D              TIO,0    *IOPT             TEST TIO FS
     3027   01 00E92    00000041 A            DATA     X'41'
     3028                            *
     3029   01 00E93    22400E93              LI,4     %
     3030   01 00E94    35400522              STW,4    LASTSUB
     3031   01 00E95    6AF00E9F              BAL,15   T1011
     3032   01 00E96    CE00040D              TDV,0    *IOPT             TEST TDV FS
     3033   01 00E97    00000021 A            DATA     X'21'
     3034                            *
     3035   01 00E98    22400E98              LI,4     %
     3036   01 00E99    35400522              STW,4    LASTSUB
     3037   01 00E9A    6AF00E9F              BAL,15   T1011
     3038   01 00E9B    CF00040D              HIO,0    *IOPT             TEST HIO FS
     3039   01 00E9C    00000011 A            DATA     X'11'
     3040   01 00E9D    68000EB3              B        T102
     3041                            *
     3042   01 00E9E    00000000 A   T1012    DATA     0
     3043                            *
     3044   01 00E9F    35F00E9E     T1011    STW,15   T1012             SAVE RETURN
     3045   01 00EA0    22400000 A            LI,4     0
     3046   01 00EA1    ED400412              WD,4     *GPA3             PRESET MS DISPLAY GROUP FOR SNAPPING
     3047   01 00EA2    6AF00527              BAL,15   STRTSUB
     3048   01 00EA3    33100520              MTW,1    FIFLG             INHIBIT FURTHER TI PHASEING
     3049   01 00EA4    E7000E9E              EXU      *T1012            EXU INSTR.
     3050   01 00EA5    33100E9E              MTW,1    T1012
     3051   01 00EA6    225FFFFB A            LI,5     -5                FM01, FM11, FM13 AND  FM14
     3052   01 00EA7    6AF004BD              BAL,15   PHASNAP           SINGLE PHASE SIOP AND READ DISPLAY
     3053   01 00EA8    EC100412              RD,1     *GPA3             READ FUNCTION INDICATOR LINES
     3054   01 00EA9    4B103038              AND,1    =X'FF'
     3055   01 00EAA    351003FA              STW,1    TEMPB             WORD 2 = RESPONSE
     3056   01 00EAB    B2200E9E              LW,2     *T1012            FETCH READ EXPECTED
     3057   01 00EAC    352003F9              STW,2    TEMPA
     3058   01 00EAD    31100002 A            CW,1     2                 COMPARE
     3059   01 00EAE    68300EB0              BCR,3    %+2
     3060   01 00EAF    6AF0036D              BAL,15   ERROR
     3061   01 00EB0    6AF0039D              BAL,15   RECUR
     3062   01 00EB1    33100E9E              MTW,1    T1012
     3063   01 00EB2    E8000E9E              B        *T1012            RETURN
     3064                            *
     3065                            *
     3066                            ******** T102     TEST FUNCTION RESPONSE (FR0-7) ***********************
     3067                            *
     3068                            *                 M E T H O D :
     3069                            *
     3070                            *        SUBTEST
     3071                            *         'N+1'   FR BIT 'N' (N= 0-7) IS SET IN THE MS.
     3072                            *                 A TIO IS EXECUTED AND THE FR BIT IS CHECKED IN THE
     3073                            *                 STATUS RETURNED TO THE CPU.
     3074                            *
     3075                            *
     3076                            *                 R E A S O N   F O R   E R R O R
     3077                            *
     3078                            *                 INCORRECT FR BIT RETURNED BY TIO.
     3079                            *
     3080                            *
     3081                            *                 E R R O R   I N D I C A T I O N :
     3082                            *
     3083                            *        ERROR WORD 1 = FR BIT EXPECTED
     3084                            *        ERROR WORD 2 = FR BIT RECEIVED
     3085                            *
     3086                            *
     3087                            *
     3088   01 00EB3    6AF00347     T102     BAL,15   LOOK
     3089   01 00EB4    00000002 A            DATA     2
     3090                            *
     3091   01 00EB5    22400EB5              LI,4     %
     3092   01 00EB6    35400522              STW,4    LASTSUB
     3093   01 00EB7    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION     *A01
     3094   01 00EB8    69300EBB              BCS,3    %+3               IF SO, DISREGARD TYER SETTING *A01
     3095   01 00EB9    32F003FF              LW,15    TYER              TEST FOR PREV. ERROR
     3096   01 00EBA    69300ED9              BCS,3    T1026
     3097                            *
     3098                            *
     3099   01 00EBB    22100080 A            LI,1     X'80'             INITIAL FR = BIT 0
     3100   01 00EBC    35100EDC              STW,1    T1022
     3101                            *
     3102                            *
     3103                            *
     3104   01 00EBD    3210044B     T1021    LW,1     SUBT
     3105   01 00EBE    35100EDE              STW,1    T1025             STORE SUBTEST FOR ERR LOOPING
     3106   01 00EBF    32100EDC              LW,1     T1022             FETCH FR BIT
     3107                            *
     3108   01 00EC0    3240040D              LW,4     IOPT              SAVE TEST IO ADDRESS
     3109   01 00EC1    35400EDD              STW,4    T1023
     3110   01 00EC2    4B403039              AND,4    =X'700'           SET IO ADDRESS TO DC ADDR 'N'
     3111   01 00EC3    49400EDC              OR,4     T1022
     3112   01 00EC4    3540040D              STW,4    IOPT
     3113                            *
     3114   01 00EC5    351003F9              STW,1    TEMPA             ERR WORD 1 = FR EXPECTED
     3115   01 00EC6    4910303A              OR,1     =X'D000'          PRESERVE MODE SETTING
     3116   01 00EC7    ED100419              WD,1     *GPAA             SET FR BIT
     3117   01 00EC8    6AF0054C              BAL,15   TTHSUB
     3118   01 00EC9    CD30040D              TIO,3    *IOPT             EXECUTE TIO
     3119   01 00ECA    32300020 A            LW,3     X'20'             FETCH CELL X'20'
     3120   01 00ECB    25300068 A            SLS,3    -24               POSITION RECEIVED FR
     3121   01 00ECC    353003FA              STW,3    TEMPB             ERR WORD 2 = FR RECEIVED
     3122                            *
     3123   01 00ECD    32400EDD              LW,4     T1023
     3124   01 00ECE    3540040D              STW,4    IOPT              RESTORE TEST IO ADDRESS
     3125                            *
     3126   01 00ECF    31300EDC              CW,3     T1022             DOES FR EXPECTED = FR RECEIVED
     3127   01 00ED0    68300ED2              BCR,3    %+2               IF SO, BRANCH
     3128   01 00ED1    6AF0036D     T1024    BAL,15   ERROR
     3129   01 00ED2    6AF0039D              BAL,15   RECUR
     3130   01 00ED3    32100EDC              LW,1     T1022
     3131   01 00ED4    2510007F A            SLS,1    -1
     3132   01 00ED5    35100EDC              STW,1    T1022
     3133   01 00ED6    21100000 A            CI,1     0
     3134   01 00ED7    69300EBD              BCS,3    T1021             TEST FOR END
     3135   01 00ED8    68000EDF              B        T103
     3136                            *
     3137   01 00ED9    32100EDE     T1026    LW,1     T1025             UPDATE SUBTEST
     3138   01 00EDA    3510044B              STW,1    SUBT
     3139   01 00EDB    68000EBD              B        T1021
     3140                            *
     3141   01 00EDC    00000000 A   T1022    DATA     0
     3142   01 00EDD    00000000 A   T1023    DATA     0
     3143   01 00EDE    00000000 A   T1025    DATA     0
     3144                            *
     3145                            *
     3146                            ******** T103     TEST CC1 AND CC2 *************************************
     3147                            *
     3148                            *
     3149                            *                 M E T H O D :
     3150                            *
     3151                            *                 CC1 AND CC2 ARE IDIVIDUALLY SET THEN RESET AS A
     3152                            *                 RESULT OF TOGGLEING DOR (CC1), AND IOR (CC2).
     3153                            *                 TDV'S ARE EXECUTED TO FETCH RESULTING CONDITION CODES.
     3154                            *
     3155                            *
     3156                            *                 R E A S O N   F O R   E R R O R :
     3157                            *
     3158                            *                 INCORRECT CONDITION CODE RETURNED TO CPU.
     3159                            *
     3160                            *
     3161                            *                 E R R O R   I N D I C A T I O N :
     3162                            *
     3163                            *        ERROR WORD 1 = CC1 SETTING  RESULTING FROM SUBTEST IN ERROR
     3164                            *        ERROR WORD 2 = CC2 SETTING  RESULTING FROM SUBTEST IN ERROR
     3165                            *
     3166                            *
     3167                            *                 N O T E :
     3168                            *
     3169                            *        THE FOLLOWING IS A TABLE OF CONDITION CODE SETTINGS EXPECTED
     3170                            *        FOR EACH OF THE FIVE SUBTESTS
     3171                            *
     3172                            *
     3173                            *
     3174                            *        SUBTEST    DOR/IOR     CC1/CC2
     3175                            *
     3176                            *        ONE         1   1       0   0
     3177                            *        TWO         1   0       0   1
     3178                            *        THREE       1   1       0   0
     3179                            *        FOUR        0   1       1   0
     3180                            *        FIVE        1   1       0   0
     3181                            *
     3182                            *
     3183                            *
     3184   01 00EDF    6AF00347     T103     BAL,15   LOOK
     3185   01 00EE0    00000003 A            DATA     3
     3186                            *
     3187   01 00EE1    22400EE1              LI,4     %
     3188   01 00EE2    35400522              STW,4    LASTSUB
     3189   01 00EE3    6AF00EFA     T1031    BAL,15   T1036             BRANCH TO EXECUTION SUBROUTINE
     3190   01 00EE4    69C00F07              BCS,12   T1038
     3191                            *
     3192   01 00EE5    22400EE5              LI,4     %
     3193   01 00EE6    35400522              STW,4    LASTSUB
     3194   01 00EE7    ED10041B     T1032    WD,1     *GPAC             INHIBIT IOR = SET CC2
     3195   01 00EE8    6AF00EFA              BAL,15   T1036             BRANCH TO EXECUTION SUBROUTINE
     3196   01 00EE9    68400F07              BCR,4    T1038
     3197                            *
     3198   01 00EEA    22400EEA              LI,4     %
     3199   01 00EEB    35400522              STW,4    LASTSUB
     3200   01 00EEC    ED30041B     T1033    WD,3     *GPAC             ENABLE DOR AND IOR = RESET CC1, CC2
     3201   01 00EED    6AF00EFA              BAL,15   T1036             BRANCH TO EXECUTION SUBROUTINE
     3202   01 00EEE    69C00F07              BCS,12   T1038
     3203                            *
     3204   01 00EEF    22400EEF              LI,4     %
     3205   01 00EF0    35400522              STW,4    LASTSUB
     3206   01 00EF1    ED20041B     T1034    WD,2     *GPAC             INHIBIT DOR = SET CC1
     3207   01 00EF2    6AF00EFA              BAL,15   T1036             BRANCH TO EXECUTION SUBROUTINE
     3208   01 00EF3    68800F07              BCR,8    T1038
     3209                            *
     3210   01 00EF4    22400EF4              LI,4     %
     3211   01 00EF5    35400522              STW,4    LASTSUB
     3212   01 00EF6    ED30041B     T1035    WD,3     *GPAC             ENABLE DOR AND IOR = RESET CC1, CC2
     3213   01 00EF7    6AF00EFA              BAL,15   T1036             BRANCH TO EXECUTION SUBROUTINE
     3214   01 00EF8    69C00F07              BCS,12   T1038
     3215   01 00EF9    68000F1A              B        T104              PROCEED WITH NEXT TEST
     3216                            *
     3217                            *
     3218                            *
     3219   01 00EFA    35F00F17     T1036    STW,15   T103A             SAVE RETURN
     3220   01 00EFB    6AF00F00              BAL,15   T1037             EXECUTE TDV AND TEST CC
     3221   01 00EFC    6AF0036D              BAL,15   ERROR
     3222   01 00EFD    6AF0039D              BAL,15   RECUR
     3223   01 00EFE    33100F17              MTW,1    T103A
     3224   01 00EFF    E8000F17              B        *T103A            RETURN
     3225                            *
     3226                            *
     3227   01 00F00    35F00F18     T1037    STW,15   T103B             SAVE RETURN
     3228   01 00F01    6AF004B3              BAL,15   %IORSTYP          RESET I/O (NO PHSINGLE)
     3229   01 00F02    6AF00495              BAL,15   %RSET             R0=0, R1=1, R2=2, AND R3=3
     3230                            *
     3231   01 00F03    CE00040D              TDV,0    *IOPT             EXECUTE TDV
     3232   01 00F04    74000F19              STCF     T103C             STORE CC SETTING
     3233   01 00F05    E7000F17              EXU      *T103A            BRANCH IF INCORRECT CONDITION CODE
     3234   01 00F06    33100F18              MTW,1    T103B             INCREMENT RETURN
     3235                            *
     3236   01 00F07    32400F19     T1038    LW,4     T103C             FETCH STORED CC
     3237   01 00F08    25400061 A            SLS,4    -31               POSITION CC1 FOR MASK
     3238   01 00F09    4B400001 A            AND,4    1                 MASK FOR CC1
     3239   01 00F0A    354003F9              STW,4    TEMPA             ERR WORD 1 = CC1 SETTING  (1 OR 0)
     3240                            *
     3241   01 00F0B    32400F19              LW,4     T103C             FETCH STORED CC
     3242   01 00F0C    25400062 A            SLS,4    -30               POSITION CC2 FOR MASK
     3243   01 00F0D    4B400001 A            AND,4    1                 MASK FOR CC2
     3244   01 00F0E    354003FA              STW,4    TEMPB             ERR WORD 2 = CC2 SETTING  (1 OR 0)
     3245                            *
     3246   01 00F0F    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION     *A01
     3247   01 00F10    69300F13              BCS,3    %+3               IF SO, DISREGARD TYER SETTING *A01
     3248   01 00F11    330003FF              MTW,0    TYER
     3249   01 00F12    E9300F18              BCS,3    *T103B            BRANCH IF ERR HAS BEEN REPORTED
     3250   01 00F13    6AF0049B              BAL,15   %IORST
     3251   01 00F14    6AF0054C              BAL,15   TTHSUB            SINGLE PHASE AND READ DISP GRPS
     3252   01 00F15    CE00040D              TDV,0    *IOPT             EXECUTE TDV
     3253                            *
     3254   01 00F16    E8000F18              B        *T103B            RETURN
     3255                            *
     3256                            *
     3257                            *
     3258   01 00F17    00000000 A   T103A    DATA     0                 RETURN FOR T1036
     3259   01 00F18    00000000 A   T103B    DATA     0                 RETURN FOR T1037
     3260   01 00F19    00000000 A   T103C    DATA     0                 CONDITION CODE STORAGE
     3261                            *
     3262                            ******** T104     TEST ORDER OUT ***************************************
     3263                            *
     3264                            *                 M E T H O D :
     3265                            *
     3266                            *                 AN SIO IS ISSUED TO THE SIOP. THE SIOP IS SINGLE
     3267                            *                 PHASED THRU THE SIO. SERVICE CALL IS ENABLED IN
     3268                            *                 THE MS. THE SIOP IS SINGLE PHASED THRU THE ORDER
     3269                            *                 OUT, AND THE ORDER AND STROBE RESPONSES ARE CHECKED
     3270                            *                 IN THE MS.
     3271                            *
     3272                            *
     3273                            *                 R E A S O N   F O R   E R R O R :
     3274                            *
     3275                            *                 INCORRECT ORDER OR RESPONSE WAS RETURNED TO THE MS.
     3276                            *
     3277                            *
     3278                            *                 E R R O R   I N D I C A T I O N :
     3279                            *
     3280                            *        ERROR WORD 1 = 1  FS WAS NOT RETURNED AFTER THE SERVICE CALL
     3281                            *                          FOR ORDER OUT.
     3282                            *
     3283                            *        ERROR WORD 1 = 2  ASC WAS NOT RETURNED AFTER THE SERVICE CALL
     3284                            *                          FOR ORDER OUT.
     3285                            *
     3286                            *        ERROR WORD 1 = 3  RSA WAS NOT RETURNED AFTER THE RS FOR THE
     3287                            *                          ORDER
     3288                            *
     3289                            *        ERROR WORD 1 = 4  INCORRECT ORDER
     3290                            *        ERROR WORD 2 = ORDER EXPECTED
     3291                            *        ERROR WORD 3 = ORDER RECEIVED
     3292                            *
     3293                            *        ERROR WORD 1 = 5  RSA WAS NOT RETURNED AFTER THE RS FOR THE
     3294                            *                          TERMINAL ORDER.
     3295                            *
     3296                            *
     3297                            *
     3298   01 00F1A    6AF00347     T104     BAL,15   LOOK
     3299   01 00F1B    00000004 A            DATA     4
     3300                            *
     3301                            *
     3302                            *
     3303   01 00F1C    6AF00533              BAL,15   SIOSUB            SINGLE PHASE THRU SIO
     3304                            *
     3305   01 00F1D    01000548              GEN,8,24 1,BA(ONEBYTE)     WRITE ORDER, BA = ONEBYTE
     3306   01 00F1E    00000001 A            GEN,8,24 0,1               NO FLAGS,  BC = ONE
     3307                            *
     3308   01 00F1F    ED400412              WD,4     *GPA3             PRESET MS DISP GRP FOR LATCHING
     3309   01 00F20    22400004 A            LI,4     4
     3310   01 00F21    ED40041A              WD,4     *GPAB             ENABLE SERVICE CALL
     3311                            *
     3312   01 00F22    225FFFFE A            LI,5     -2
     3313   01 00F23    6AF004BD              BAL,15   PHASNAP           SINGLE PHASE FI01 AND FM01
     3314   01 00F24    22400000 A            LI,4     0
     3315   01 00F25    35400521              STW,4    NEWLINE           INHIBIT NEW LINE
     3316                            *
     3317   01 00F26    22400001 A            LI,4     1
     3318   01 00F27    354003F9              STW,4    TEMPA             ERR WORD 1 = 1
     3319   01 00F28    EC400412              RD,4     *GPA3             READ FOR ASC AND FS
     3320   01 00F29    354003FC              STW,4    TEMPSAVE          SAVE RESPONSE FOR SECOND COMPARE
     3321   01 00F2A    4B403019              AND,4    =X'1'             WAS FS RETURNED
     3322   01 00F2B    68200F4C              BCR,2    T1045             BRANCH IF NOT
     3323                            *
     3324   01 00F2C    22400002 A   T1041    LI,4     2
     3325   01 00F2D    354003F9              STW,4    TEMPA             ERR WORD 1 = 2
     3326   01 00F2E    324003FC              LW,4     TEMPSAVE
     3327   01 00F2F    4B40303B              AND,4    =X'4'             WAS ASC RETURNED
     3328   01 00F30    68200F4C              BCR,2    T1045             BRANCH IF NOT
     3329                            *
     3330   01 00F31    ED400412     T1042    WD,4     *GPA3             PRESET MS DISP GRP FOR LATCHING
     3331   01 00F32    225FFFFC A            LI,5     -4                FI11, FM31, FM32 AND FM33
     3332   01 00F33    6AF004BD              BAL,15   PHASNAP           SINGLE PHASE FI11, FM31, FM32, FM33
     3333                            *
     3334   01 00F34    22400003 A            LI,4     3
     3335   01 00F35    354003F9              STW,4    TEMPA             ERR WORD 1 = 3
     3336   01 00F36    EC400412              RD,4     *GPA3             READ FOR RSA (FOR ORDER)
     3337   01 00F37    4B40303C              AND,4    =X'2'             WAS RSA RETURNED
     3338   01 00F38    68200F4C              BCR,2    T1045             BRANCH IF NOT
     3339                            *
     3340   01 00F39    22400004 A   T1043    LI,4     4
     3341   01 00F3A    354003F9              STW,4    TEMPA             ERR WORD 1 = 4
     3342   01 00F3B    22400001 A            LI,4     1
     3343   01 00F3C    354003FA              STW,4    TEMPB             ERR WORD 2 = ORDER EXPECTED
     3344   01 00F3D    EC400411              RD,4     *GPA2             READ FOR ORDER
     3345   01 00F3E    4B403038              AND,4    =X'FF'            MASK FOR ORDER
     3346   01 00F3F    354003FB              STW,4    TEMPC             ERR WORD 3 = ORDER RECEIVED
     3347   01 00F40    21400001 A            CI,4     1                 IS RETURNED ORDER CORRECT
     3348   01 00F41    69300F4C              BCS,3    T1045             BRANCH IF NOT
     3349                            *
     3350   01 00F42    22400005 A   T1044    LI,4     5
     3351   01 00F43    354003F9              STW,4    TEMPA             ERR WORD 1 = 5
     3352   01 00F44    22400000 A            LI,4     0
     3353   01 00F45    ED400412              WD,4     *GPA3             PRESET MS DISP GRP FOR LATCHING
     3354   01 00F46    33100520              MTW,1    FIFLG             INHIBIT FI PHASEING
     3355   01 00F47    225FFFFD A            LI,5     -3
     3356   01 00F48    6AF004BD              BAL,15   PHASNAP           SINGLE PHASE FM34 AND FM41
     3357                            *
     3358   01 00F49    EC400412              RD,4     *GPA3             READ FOR RSA (FOR TERMINAL ORDER)
     3359   01 00F4A    4B40303C              AND,4    =X'2'             WAS RSA RETURNED
     3360   01 00F4B    69200F4D              BCS,2    %+2               IF SO BRANCH
     3361                            *
     3362   01 00F4C    6AF0036D     T1045    BAL,15   ERROR
     3363   01 00F4D    6AF0039D              BAL,15   RECUR
     3364   01 00F4E    68000F4F              B        T105
     3365                            *
     3366                            *
     3367                            ******** T105     DECREMENT CA ****************************************
     3368                            *
     3369                            *                 M E T H O D :
     3370                            *
     3371                            *                 SIO'S ARE ISSUED TO THE SIOP, SEQUENTIALLY SETTING
     3372                            *                 COMMAND ADDRESS BITS 0 THRU 15.  AFTER EACH SIO,
     3373                            *                 AN HIO IS EXECUTED AND THE RETURNED CA IS VERIFIED.
     3374                            *
     3375                            *        NOTE:    THE CA RETURNED = THE CA SENT MINUS ONE, SINCE THE
     3376                            *                 SIOP DECREMENTS THE CA BY ONE DURING THE SIO PHASE
     3377                            *                 SEQUENCE.
     3378                            *
     3379                            *
     3380                            *                 R E A S O N   F O R   E R R O R :
     3381                            *
     3382                            *                 AN INCORRECT CA WAS RETURNED BY THE HIO.
     3383                            *
     3384                            *
     3385                            *                 E R R O R   I N D I C A T I O N :
     3386                            *
     3387                            *        ERROR WORD 1 = CA EXPECTED
     3388                            *        ERROR WORD 2 = CA RECEIVED
     3389                            *
     3390                            *
     3391                            *
     3392   01 00F4F    6AF00347     T105     BAL,15   LOOK
     3393   01 00F50    00000005 A            DATA     5
     3394                            *
     3395   01 00F51    22400F51              LI,4     %
     3396   01 00F52    35400522              STW,4    LASTSUB
     3397   01 00F53    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION     *A01
     3398   01 00F54    69300F57              BCS,3    %+3               IF SO, DISREGARD TYER SETTING *A01
     3399   01 00F55    32F003FF              LW,15    TYER              TEST FOR PREV. ERROR
     3400   01 00F56    69300F59              BCS,3    T1051
     3401   01 00F57    6AF00495              BAL,15   %RSET
     3402   01 00F58    35100F7B              STW,1    T1053
     3403   01 00F59    32000F7B     T1051    LW,0     T1053
     3404   01 00F5A    350003F9              STW,0    TEMPA
     3405   01 00F5B    6AF00527              BAL,15   STRTSUB
     3406   01 00F5C    33100520              MTW,1    FIFLG             INHIBIT FURTHER TI PHASEING
     3407   01 00F5D    225FFFFB A            LI,5     -5                SINGLE PHASE THRU SIO
     3408   01 00F5E    CC00040D              SIO,0    *IOPT
     3409   01 00F5F    6AF004BD              BAL,15   PHASNAP           SINGLE PHASE AND SNAP DISP GROUPS
     3410                            *
     3411   01 00F60    33100524              MTW,1    EVENFLAG
     3412   01 00F61    6AF0054C              BAL,15   TTHSUB
     3413   01 00F62    CFC0040D              HIO,12   *IOPT
     3414   01 00F63    32C00020 A            LW,12    X'20'             FETCH RETURNED CA
     3415   01 00F64    4BC0303D              AND,12   =X'FFFF0000'
     3416   01 00F65    25C00070 A            SLS,12   -16
     3417   01 00F66    33F003F9              MTW,15   TEMPA
     3418   01 00F67    35C003FA              STW,12   TEMPB             COMPARE WORDS
     3419   01 00F68    31C003F9              CW,12    TEMPA
     3420   01 00F69    68300F6B              BCR,3    %+2
     3421   01 00F6A    6AF0036D              BAL,15   ERROR             REPORT ERROR
     3422   01 00F6B    22400F51              LI,4     T105+2
     3423   01 00F6C    35400522              STW,4    LASTSUB           SET START SUB SETTING
     3424   01 00F6D    6AF0039D              BAL,15   RECUR
     3425   01 00F6E    32100F7B              LW,1     T1053
     3426   01 00F6F    25100001 A            SLS,1    1
     3427   01 00F70    35100F7B              STW,1    T1053
     3428   01 00F71    B2400001 A            LW,4     *1                DO NOT SEND CA IF DA CONTAINS
     3429   01 00F72    4B403023              AND,4    =X'80000000'         A TRANSFER IN CHANNEL ORDER
     3430   01 00F73    69100F6F              BCS,1    %-4
     3431   01 00F74    32400001 A            LW,4     1
     3432   01 00F75    25400001 A            SLS,4    1
     3433   01 00F76    31400438              CW,4     MEM
     3434   01 00F77    69200F7C              BCS,2    T106              BRANCH IF ADDRESS NOT IMPLEMENTED
     3435   01 00F78    21110000 A            CI,1     X'10000'          UPDATE COMMAND DW ADDR.
     3436   01 00F79    69300F59              BCS,3    T1051
     3437   01 00F7A    68000F7C              B        T106
     3438                            *
     3439   01 00F7B    00000000 A   T1053    DATA     0
     3440                            *
     3441                            *
     3442                            ******** T106     INCREMENT CA *****************************************
     3443                            *
     3444                            *
     3445                            *
     3446                            *
     3447                            *                 M E T H O D :
     3448                            *
     3449                            *                 AN SIO IS EXECUTED SENDING A COMMAND ADDRESS WITH THE
     3450                            *                 'N'TH CA BIT SET, (N = 0-15). SERVICE CALL IS ENABLED
     3451                            *                 IN THE MS FOR ORDER OUT.  THE ORDER OUT IS EXECUTED
     3452                            *                 BY THE SIOP, INCREMENTING THE CA.  I/O RESET IS GIVEN
     3453                            *                 AND THE INCREMENTED CA IS FETCHED WITH AN HIO.
     3454                            *
     3455                            *
     3456                            *                 R E A S O N  F O R   E R R O R :
     3457                            *
     3458                            *                 AN INCORRECT CA WAS RETURNED BY THE HIO.
     3459                            *
     3460                            *
     3461                            *                 E R R O R   I N D I C A T I O N :
     3462                            *
     3463                            *        ERROR WORD 1 = CA EXPECTED
     3464                            *        ERROR WORD 2 = CA RECEIVED
     3465                            *
     3466                            *
     3467   01 00F7C    6AF00347     T106     BAL,15   LOOK
     3468   01 00F7D    00000006 A            DATA     6
     3469                            *
     3470   01 00F7E    22400F7E              LI,4     %
     3471   01 00F7F    35400522              STW,4    LASTSUB
     3472   01 00F80    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION     *A01
     3473   01 00F81    69300F84              BCS,3    %+3               IF SO, DISREGARD TYER SETTING *A01
     3474   01 00F82    330003FF              MTW,0    TYER
     3475   01 00F83    69300F86              BCS,3    T1061             BRANCH IF PREVIOUS ERROR
     3476   01 00F84    6AF00495              BAL,15   %RSET             SET STANDARD REG. VALUES
     3477   01 00F85    35100FC5              STW,1    CMNDADDR
     3478                            *
     3479   01 00F86    32000FC5     T1061    LW,0     CMNDADDR          RZ DEDICATED TO CA
     3480   01 00F87    32400FC5              LW,4     CMNDADDR          FETCH CURRENT CA
     3481   01 00F88    6AF005D1              BAL,15   CIMPLNT           IMPLANT CURRENT SETTING IN
     3482   01 00F89    00001814              DATA     106Q2+93             IN THIS COOKBOOK LOCATION
     3483   01 00F8A    6AF005D1              BAL,15   CIMPLNT           IMPLANT CURRENT SETTING IN
     3484   01 00F8B    0000181E              DATA     106Q2+103            IN THIS COOKBOOK LOCATION
     3485   01 00F8C    6AF005D1              BAL,15   CIMPLNT           IMPLANT CURRENT SETTING IN
     3486   01 00F8D    00001828              DATA     106Q2+113            IN THIS COOKBOOK LOCATION
     3487   01 00F8E    6AF005D1              BAL,15   CIMPLNT           IMPLANT CURRENT SETTING IN
     3488   01 00F8F    00001832              DATA     106Q2+123            IN THIS COOKBOOK LOCATION
     3489   01 00F90    6AF005D1              BAL,15   CIMPLNT           IMPLANT CURRENT SETTING IN
     3490   01 00F91    0000183C              DATA     106Q2+133            IN THIS COOKBOOK LOCATION
     3491   01 00F92    6AF005D1              BAL,15   CIMPLNT           IMPLANT CURRENT SETTING IN
     3492   01 00F93    00001846              DATA     106Q2+143            IN THIS COOKBOOK LOCATION
     3493   01 00F94    25400001 A            SLS,4    1                 FORM WORD ADDRESS
     3494   01 00F95    20400001 A            AI,4     1                 FORM ODD WORD ADDRESS
     3495   01 00F96    B2500004 A            LW,5     *4                FETCH CONTENTS OF THIS LOC
     3496   01 00F97    35500FC6              STW,5    BCSAVE            SAVE CONTENTS
     3497   01 00F98    22500000 A            LI,5     0
     3498   01 00F99    B5500004 A            STW,5    *4                SET BC = 0
     3499   01 00F9A    6AF00527              BAL,15   STRTSUB
     3500   01 00F9B    33100520              MTW,1    FIFLG
     3501   01 00F9C    CC00040D              SIO,0    *IOPT             EXECUTE SIO
     3502   01 00F9D    225FFFFB A            LI,5     -5                LOAD NUMBER OF FM PHASES
     3503   01 00F9E    6AF004BD              BAL,15   PHASNAP           SINGLE PHASE AND READ DISP GROUPS
     3504                            *
     3505   01 00F9F    350003F9              STW,0    TEMPA             ERR WORD 1 = CA EXPECTED
     3506   01 00FA0    33100521              MTW,1    NEWLINE
     3507                            *
     3508   01 00FA1    6AF0055E              BAL,15   ORDOUT            PERFORM ORDER OUT
     3509   01 00FA2    32400FC5              LW,4     CMNDADDR          FETCH CURRENT CA SETTING
     3510   01 00FA3    25400001 A            SLS,4    1                 FORM WORD ADDRESS
     3511   01 00FA4    20400001 A            AI,4     1                 FORM ODD WORD ADDRESS
     3512   01 00FA5    32500FC6              LW,5     BCSAVE            FETCH STORED DATA
     3513   01 00FA6    B5500004 A            STW,5    *4                RESTORE
     3514   01 00FA7    6AF0049B              BAL,15   %IORST            RESET I/O
     3515                            *
     3516   01 00FA8    35100523              STW,1    STRTFLG           READ DISP GROUPS ONCE PRIOR TO CLOCK
     3517   01 00FA9    35100520              STW,1    FIFLG             ALLOW ONE TI PHASE CLOCK
     3518   01 00FAA    ED10041C              WD,1     *GRP0             ENABLE TI DELAY LINE
     3519   01 00FAB    CFC0040D              HIO,12   *IOPT             EXECUTE HIO
     3520   01 00FAC    225FFFFA A            LI,5     -6                FM01, FM11, FM12, FM13, AND FM14
     3521   01 00FAD    6AF004BD              BAL,15   PHASNAP           SINGLE PHASE AND READ DISP GRPS
     3522   01 00FAE    32C00020 A            LW,12    X'20'             FETCH RETURNED CA
     3523   01 00FAF    4BC0303D              AND,12   =X'FFFF0000'
     3524   01 00FB0    25C00070 A            SLS,12   -16
     3525   01 00FB1    35C003FA              STW,12   TEMPB             ERR WORD 2 = CA RECEIVED
     3526                            *
     3527   01 00FB2    31C00FC5              CW,12    CMNDADDR          WAS RETURNED CA CORRECT
     3528   01 00FB3    68300FB5              BCR,3    %+2               BRANCH IF CORRECT
     3529   01 00FB4    6AF0036D              BAL,15   ERROR
     3530   01 00FB5    22400F7E              LI,4     T106+2
     3531   01 00FB6    35400522              STW,4    LASTSUB           SET START SUB SETTING
     3532   01 00FB7    6AF0039D              BAL,15   RECUR
     3533                            *
     3534   01 00FB8    32400FC5              LW,4     CMNDADDR
     3535   01 00FB9    25400001 A            SLS,4    1                 SHIFT FOR NEXT CA BIT
     3536   01 00FBA    35400FC5              STW,4    CMNDADDR
     3537   01 00FBB    25400001 A            SLS,4    1                 FORM NEW WORD ADDRESS           *A01
     3538   01 00FBC    B2000004 A            LW,0     *4                FETCH ORDER                     *A01
     3539   01 00FBD    4B00303E              AND,0    =X'08000000'      DO NOT SEND CA IF IT            *A01
     3540   01 00FBE    69200FBA              BCS,2    %-4                 CONTAINS A TRANSFER IN CHAN.  *A01
     3541   01 00FBF    31400438              CW,4     MEM               IS ADDRESS IMPLEMENTED          *A01
     3542   01 00FC0    69200FD5              BCS,2    T107              BRANCH IF NOT                   *A01
     3543   01 00FC1    32400FC5              LW,4     CMNDADDR          FETCH NEW CA                    *A01
     3544   01 00FC2    21410000 A            CI,4     X'10000'          HAVE ALL 16 CA BITS BEEN CHECKED
     3545   01 00FC3    69300F86              BCS,3    T1061             BRANCH IF NOT
     3546   01 00FC4    68000FD5              B        T107
     3547                            *
     3548   01 00FC5    00000000 A   CMNDADDR DATA     0
     3549   01 00FC6    00000000 A   BCSAVE   DATA     0
     3550                            *
     3551                            *
     3552                            *
     3553                            *
     3554   01 00FC7    226FFFE1 A   MEMI     LI,6     -31
     3555   01 00FC8    22700000 A            LI,7     0
     3556   01 00FC9    22000000 A            LI,0     0
     3557   01 00FCA    35000213              STW,0    MAE               INIT. INTERRUPT
     3558   01 00FCB    20701000 A   MEMI1    AI,7     X'1000'
     3559   01 00FCC    320E0000 A            LW,0     0,7
     3560   01 00FCD    32000213              LW,0     MAE               LOAD AND TEST FOR INTERRUPT
     3561   01 00FCE    69300FD1              BCS,3    MEMI2             BRANCH IF INTERRUPT
     3562   01 00FCF    65600FCB              BIR,6    MEMI1             TEST FOR 128K
     3563   01 00FD0    68000FD2              B        %+2
     3564   01 00FD1    3870303F     MEMI2    SW,7     L(X'1000')
     3565   01 00FD2    20700FFF A   MEMI3    AI,7     X'FFF'
     3566   01 00FD3    35700438              STW,7    MEM               MEM= LAST MEM. LOC. AVAIL.
     3567   01 00FD4    E800000F A            B        *15
     3568                            *
     3569                            *
     3570                            *
     3571                            *
     3572                            *
     3573                            *
     3574                            ******** T107     DATA OUT - ONE BYTE INTERFACE (BYTE COUNT) ***********
     3575                            *
     3576                            *
     3577                            *                 M E T H O D :
     3578                            *
     3579                            *                 AN SIO IS EXECUTED ASKING FOR A DATA OUT TO THE MS,
     3580                            *                 (ORDER = WRITE), BYTE ADDRESS OF PAT1;
     3581                            *                 FLAGS  =  0    , BYTE COUNT  =  12  ;
     3582                            *
     3583                            *                 THE SIOP IS SINGLE PHASED THRU THE SIO.
     3584                            *                 SERVICE CALL IS ENABLED FOR ORDER OUT.
     3585                            *                 THE SIOP IS SINGLE PHASED THRU THE ORDER OUT.
     3586                            *                 SERVICE CALL IS ENABLED FOR THE DATA OUT.
     3587                            *                 THE SIOP IS SINGLE PHASED THRU THE DATA OUT.
     3588                            *                 SERVICE CALL ACKNOWLEDGE, BYTE COUNT DECREMENT,
     3589                            *                 DATA BYTE TRANSFER, RSA AND CDN ARE VERIFIED
     3590                            *                 WHILE SINGLE PHASEING THRU DATA OUT.
     3591                            *
     3592                            *
     3593                            *                 R E A S O N    F O R   E R R O R :
     3594                            *
     3595                            *                 INCORRECT STROBE RESPONSE, INCORRECT BC (DECREMENT),
     3596                            *                 OR INCORRECT DATA.
     3597                            *
     3598                            *
     3599                            *                 E R R O R   I N D I C A T I O N :
     3600                            *
     3601                            *   1. * ERROR WORD 1 = 1  ASC WAS NOT RECEIVED BY THE MS AFTER THE
     3602                            *                          SERVICE CALL FOR THE DATA OUT.
     3603                            *
     3604                            *   2. * ERROR WORD 1 = 2  INITIAL BC INCORRECT IN SIOP
     3605                            *        ERROR WORD 2 = BC EXPECTED
     3606                            *        ERROR WORD 3 = BC RECEIVED *( VIA DISP GRP READ DIRECT)*
     3607                            *
     3608                            *   3. * ERROR WORD 1 = 3  BC INCORRECT AFTER INITIAL FM21
     3609                            *        ERROR WORD 2 = BC EXPECTED
     3610                            *        ERROR WORD 3 = BC RECEIVED
     3611                            *
     3612                            *   4. * ERROR WORD 1 = 4  BC INCORRECT AFTER FM22
     3613                            *        ERROR WORD 2 = BC EXPECTED
     3614                            *        ERROR WORD 3 = BC RECEIVED
     3615                            *
     3616                            *   5. * ERROR WORD 1 = 5'N'  THE 'N'TH DATA BYTE IS INCORRECT (N = 1-8)
     3617                            *        ERROR WORD 2 = DATA BYTE EXPECTED
     3618                            *        ERROR WORD 3 = DATA BYTE RECEIVED
     3619                            *
     3620                            *   6. * ERROR WORD 1 = 6  BC INCORRECT AFTER 2ND FM21
     3621                            *        ERROR WORD 2 = BC EXPECTED
     3622                            *        ERROR WORD 3 = BC RECEIVED
     3623                            *
     3624                            *   7. * ERROR WORD 1 = 7'N' THE 'N'TH DATA BYTE IS INCORRECT (N = 9-C)
     3625                            *        ERROR WORD 2 = DATA BYTE EXPECTED
     3626                            *        ERROR WORD 3 = DATA BYTE RECEIVED
     3627                            *
     3628                            *   8. * ERROR WORD 1 = 8  RSA WAS NOT RECEIVED AFTER THE RS FOR THE
     3629                            *                          TERMINAL ORDER
     3630                            *
     3631                            *   9. * ERROR WORD 1 = 9  COUNT DONE WAS NOT SET IN THE MS
     3632                            *
     3633                            *
     3634                            *
     3635                            *
     3636                            *
     3637                            *
     3638                            *
     3639                            *
     3640   01 00FD5    6AF00347     T107     BAL,15   LOOK
     3641   01 00FD6    00000007 A            DATA     7
     3642                            *
     3643   01 00FD7    22400000 A            LI,4     0
     3644   01 00FD8    ED400418              WD,4     *GPA9             SPECIFY ONE BYTE INTERFACE
     3645                            *
     3646   01 00FD9    6AF00533              BAL,15   SIOSUB            EXECUTE SIO
     3647                            *
     3648   01 00FDA    01000510              GEN,8,24 1,BA(PAT1)        ORDER = WRITE,  BA = PAT1
     3649   01 00FDB    0000000C A            GEN,8,24 0,12              NO FLAGS,       BC = 12
     3650                            *
     3651   01 00FDC    6AF0055E              BAL,15   ORDOUT            SINGLE PHASE THRU ORDER OUT
     3652   01 00FDD    6AF00495              BAL,15   %RSET             SET STANDARD VALUES INTO R0-R3
     3653                            *
     3654   01 00FDE    ED000412     T10701   WD,0     *GPA3             PRESET MS GROUP FOR LATCHING ASC
     3655   01 00FDF    22400004 A            LI,4     4
     3656   01 00FE0    ED40041A              WD,4     *GPAB             ENABLE SC FOR DATA OUT
     3657   01 00FE1    225FFFFE A            LI,5     -2                FI01 AND FM01
     3658   01 00FE2    6AF004BD              BAL,15   PHASNAP
     3659   01 00FE3    351003F9              STW,1    TEMPA             ERR WORD 1 = 1
     3660   01 00FE4    22400FE8              LI,4     %+4
     3661   01 00FE5    35401047              STW,4    T107A
     3662   01 00FE6    EC400412              RD,4     *GPA3             READ FOR ASC
     3663   01 00FE7    4B40303B              AND,4    =X'4'             WAS ASC RETURNED
     3664   01 00FE8    68201043              BCR,2    T10712            BRANCH IF NOT
     3665                            *
     3666   01 00FE9    6AF0101D     T10702   BAL,15   T10710            CHECK BC
     3667   01 00FEA    00000002 A            DATA     2                 ERR WORD 1 = 2
     3668   01 00FEB    0000000C A            DATA     12                BC EXPECTED = 12
     3669                            *
     3670   01 00FEC    22400000 A            LI,4     0
     3671   01 00FED    35400521              STW,4    NEWLINE           INHIBIT NEW LINE
     3672   01 00FEE    225FFFFD A            LI,5     -3
     3673   01 00FEF    6AF004BD              BAL,15   PHASNAP           FI11, FM21, AND FM22
     3674                            *
     3675   01 00FF0    6AF0101D     T10703   BAL,15   T10710            CHECK BC
     3676   01 00FF1    00000003 A            DATA     3                 ERR WORD 1 = 3
     3677   01 00FF2    00000008 A            DATA     8                 BC EXPECTED = 8
     3678                            *
     3679   01 00FF3    33100520              MTW,1    FIFLG             INHIBIT FI PHASEING
     3680   01 00FF4    225FFFFD A            LI,5     -3
     3681   01 00FF5    6AF004BD              BAL,15   PHASNAP           FM21 AND FM22
     3682                            *
     3683   01 00FF6    6AF0101D     T10704   BAL,15   T10710            CHECK BC
     3684   01 00FF7    00000004 A            DATA     4                 ERR WORD 1 = 4
     3685   01 00FF8    00000004 A            DATA     4                 BC EXPECTED = 4
     3686                            *
     3687   01 00FF9    223FFFF8 A   T10705   LI,3     -8                SET FI12 LOOP COUNT
     3688   01 00FFA    6AF01029              BAL,15   T10711            CHECK DATA TRANSFER
     3689   01 00FFB    00000050 A            DATA     X'50'             ERR WORD 1 = 5'N'
     3690   01 00FFC    00000146              DATA     PAT1+2            DATA ADDRESS FOR COMPARE INDEXED
     3691                            *
     3692   01 00FFD    33100520              MTW,1    FIFLG             INHIBIT FI PHASEING
     3693   01 00FFE    225FFFFD A            LI,5     -3
     3694   01 00FFF    6AF004BD              BAL,15   PHASNAP
     3695                            *
     3696   01 01000    6AF0101D     T10706   BAL,15   T10710            CHECK BC
     3697   01 01001    00000006 A            DATA     6                 ERR WORD 1 = 6
     3698   01 01002    00000000 A            DATA     0                 BC EXPECTED = 0
     3699                            *
     3700   01 01003    223FFFFC A   T10707   LI,3     -4                SET FI12 LOOP COUNT
     3701   01 01004    6AF01029              BAL,15   T10711            CHECK DATA
     3702   01 01005    00000070 A            DATA     X'70'             ERR WORD 1 = 7'N'
     3703   01 01006    00000147              DATA     PAT1+3            DATA ADDRESS FOR COMPARE INDEXED
     3704                            *
     3705   01 01007    33100520              MTW,1    FIFLG             INHIBIT FI PHASEING
     3706   01 01008    225FFFFE A            LI,5     -2
     3707   01 01009    ED000412              WD,0     *GPA3             PRESET MS DISP GRP FOR LATCHING
     3708   01 0100A    6AF004BD              BAL,15   PHASNAP           FM41
     3709                            *
     3710   01 0100B    22400008 A   T10708   LI,4     8
     3711   01 0100C    354003F9              STW,4    TEMPA             ERR WORD 1 = 8
     3712   01 0100D    22401011              LI,4     %+4
     3713   01 0100E    35401047              STW,4    T107A             SET ERR RETURN POINTER
     3714   01 0100F    EC400412              RD,4     *GPA3             READ FOR RSA
     3715   01 01010    4B40303C              AND,4    =X'2'             WAS RSA RETURNED
     3716   01 01011    68201043              BCR,2    T10712            BRANCH IF NOT
     3717                            *
     3718   01 01012    22400009 A   T10709   LI,4     9
     3719   01 01013    354003F9              STW,4    TEMPA             ERR WORD 1 = 9
     3720   01 01014    22401018              LI,4     %+4
     3721   01 01015    35401047              STW,4    T107A             SET ERR RETURN POINTER
     3722   01 01016    EC400411              RD,4     *GPA2             READ FOR CDN
     3723   01 01017    4B403040              AND,4    =X'4000'          WAS CDN SET
     3724   01 01018    68201043              BCR,2    T10712            BRANCH IF NOT
     3725   01 01019    3300022C              MTW,0    CBFLG             IS THIS COOKBOOK GENERATION
     3726   01 0101A    6830101C              BCR,3    %+2               BRANCH IF NOT
     3727   01 0101B    6AF0039D              BAL,15   RECUR             GENERATE SNAPSHOT OUTPUT
     3728   01 0101C    6800104A              B        T108              PROCEED TO NEXT TEST
     3729                            *
     3730                            *
     3731   01 0101D    35F01047     T10710   STW,15   T107A             SAVE POINTER
     3732   01 0101E    B2401047              LW,4     *T107A            FETCH ERR WORD SETTING
     3733   01 0101F    354003F9              STW,4    TEMPA             SET ERR WORD 1
     3734   01 01020    33101047              MTW,1    T107A
     3735   01 01021    B2401047              LW,4     *T107A            FETCH BC EXPECTED
     3736   01 01022    354003FA              STW,4    TEMPB             ERR WORD 2 = BC EXPECTED
     3737   01 01023    EC400421              RD,4     *GRP5             READ BC
     3738   01 01024    354003FB              STW,4    TEMPC             ERR WORD 3 = BC RECEIVED
     3739   01 01025    314003FA              CW,4     TEMPB             IS BC CORRECT
     3740   01 01026    69301043              BCS,3    T10712            BRANCH IF NOT
     3741   01 01027    33101047              MTW,1    T107A
     3742   01 01028    E8001047              B        *T107A            RETURN
     3743                            *
     3744                            *
     3745   01 01029    35F01047     T10711   STW,15   T107A             SAVE POINTER
     3746   01 0102A    B2401047              LW,4     *T107A            FETCH ERR WORD SETTING
     3747   01 0102B    354003F9              STW,4    TEMPA             SET ERR WORD SETTING
     3748   01 0102C    33101047              MTW,1    T107A             INCREMENT POINTER
     3749   01 0102D    B2401047              LW,4     *T107A            FETCH BYTE ADDRESS FOR COMPARE
     3750   01 0102E    35401048              STW,4    T107B
     3751                            *
     3752   01 0102F    32403041     T10711L  LW,4     =X'5000'          SET NOT-IIOP MODE
     3753   01 01030    3040051E              AW,4     TESTCHAN
     3754   01 01031    ED400419              WD,4     *GPAA
     3755                            *
     3756   01 01032    225FFFFF A            LI,5     -1
     3757   01 01033    6AF004BD              BAL,15   PHASNAP           FI12
     3758                            *
     3759   01 01034    F2461048              LB,4     *T107B,3          LOAD COMPARE BYTE
     3760   01 01035    354003FA              STW,4    TEMPB             ERR WORD 2 = DATA EXPECTED
     3761   01 01036    EC400413              RD,4     *GPA4             READ FOR DATA
     3762   01 01037    4B403038              AND,4    =X'FF'
     3763   01 01038    354003FB              STW,4    TEMPC             ERR WORD 3 = DATA RECEIVED
     3764                            *
     3765   01 01039    331003F9              MTW,1    TEMPA             INCREMENT ERROR INDICATOR
     3766   01 0103A    3240303A              LW,4     =X'D000'
     3767   01 0103B    3040051E              AW,4     TESTCHAN          SET IIOP MODE
     3768   01 0103C    ED400419              WD,4     *GPAA
     3769                            *
     3770   01 0103D    324003FB              LW,4     TEMPC             WAS DATA CORRECT
     3771   01 0103E    314003FA              CW,4     TEMPB             BRANCH IF NOT
     3772   01 0103F    69301043              BCS,3    T10712
     3773   01 01040    6530102F              BIR,3    T10711L           LOOP UNTIL ALL BYTES TRANSFERRED
     3774   01 01041    33101047              MTW,1    T107A
     3775   01 01042    E8001047              B        *T107A            RETURN
     3776                            *
     3777   01 01043    6AF0036D     T10712   BAL,15   ERROR
     3778   01 01044    6AF0039D              BAL,15   RECUR
     3779   01 01045    33101047              MTW,1    T107A
     3780   01 01046    E8001047              B        *T107A
     3781                            *
     3782                            *
     3783   01 01047    00000000 A   T107A    DATA     0
     3784   01 01048    00000000 A   T107B    DATA     0
     3785   01 01049    00000000 A   T107C    DATA     0
     3786                            *
     3787                            *
     3788                            *
     3789                            *
     3790                            *
     3791                            *
     3792                            *
     3793                            *
     3794                            *
     3795                            ******** T108     DATA OUT - TWO BYTE INTERFACE ************************
     3796                            *                 (BYTE ALIGNMENT)
     3797                            *
     3798                            *
     3799                            *                 M E T H O D :
     3800                            *
     3801                            *        SUBTEST
     3802                            *          ONE :  SET TWO BYTE INTERFACE.
     3803                            *                 EXECUTE SIO WITH: ORDER = WRITE;  BA = PAT1
     3804                            *                                   FLAGS =   0  ;  BC = 6
     3805                            *                 THE SIOP IS SINGLE PHASED THRU SIO.
     3806                            *                 MS SERVICE CALL IS ENABLED FOR ORDER OUT.
     3807                            *                 THE SIOP IS SINGLE PHASED THRU ORDER OUT.
     3808                            *                 MS SERVICE CALL IS  ENABLED FOR DATA OUT.
     3809                            *                 THE SIOP IS SINGLE PHASED THRU DATA OUT, AND DATA
     3810                            *                 TRANSFERRED TO THE MS IS VERIFIED.
     3811                            *
     3812                            *        SUBTEST
     3813                            *        1 AND 3 :  SAME AS SUBTEST ONE EXCEPT BYTE ADDRESS WHICH
     3814                            *                   WILL BE SPECIFIED AS STARTING AT 2ND AND 3RD
     3815                            *                   BYTE BOUNDRIES, RESPECTIVELY.
     3816                            *
     3817                            *
     3818                            *                 R E A S O N   F O R   E R R O R :
     3819                            *
     3820                            *        SUBTEST
     3821                            *        1 THRU 3:  INCORRECT DATA RECEIVED.
     3822                            *
     3823                            *
     3824                            *                 E R R O R   I N D I C A T I O N :
     3825                            *
     3826                            *        ERROR WORD 1 =  (N)  HALFWORD 'N' WAS INCORRECT, (N = 1-3).
     3827                            *        ERROR WORD 2 =      HALFWORD EXPECTED
     3828                            *        ERROR WORD 3 =      HALFWORD RECEIVED
     3829                            *
     3830                            *
     3831                            *
     3832                            *
     3833   01 0104A    6AF00347     T108     BAL,15   LOOK
     3834   01 0104B    00000008 A            DATA     8
     3835                            *
     3836   01 0104C    6AF01059              BAL,15   T1085
     3837   01 0104D    00000510              DATA     BA(PAT1)          BA OF PATTERN TO BE WRITTEN
     3838   01 0104E    6AF0036D              BAL,15   ERROR             SUB RETURNS HERE IF ERROR
     3839   01 0104F    6AF0039D              BAL,15   RECUR             SUB RETURNS HERE IF NO ERROR
     3840                            *
     3841   01 01050    6AF01059     T1082    BAL,15   T1085
     3842   01 01051    0000051D              DATA     BA(PAT2)+1
     3843   01 01052    6AF0036D              BAL,15   ERROR
     3844   01 01053    6AF0039D              BAL,15   RECUR
     3845                            *
     3846   01 01054    6AF01059     T1083    BAL,15   T1085
     3847   01 01055    0000052A              DATA     BA(PAT3)+2
     3848   01 01056    6AF0036D              BAL,15   ERROR
     3849   01 01057    6AF0039D              BAL,15   RECUR
     3850   01 01058    68001085              B        T109
     3851                            *
     3852                            *
     3853                            *
     3854                            *
     3855                            *
     3856                            *
     3857                            *
     3858   01 01059    35F01084     T1085    STW,15   T108A             SAVE R15 FOR POINTING AND RETURN
     3859   01 0105A    B2401084              LW,4     *T108A            FETCH BA
     3860   01 0105B    30403035              AW,4     =X'01000000'      ADD WRITE ORDER
     3861   01 0105C    35401063              STW,4    T108B             SET IN COMMAND DOUBLEWORD
     3862   01 0105D    33101084              MTW,1    T108A             INCREMENT POINTER
     3863                            *
     3864   01 0105E    6AF004A8              BAL,15   %IORSTX           I/O RESET NOT IIOP MODE
     3865   01 0105F    6AF00495              BAL,15   %RSET
     3866   01 01060    32403040              LW,4     =X'4000'
     3867   01 01061    ED400418              WD,4     *GPA9             SET DX2
     3868                            *
     3869   01 01062    6AF00533              BAL,15   SIOSUB              S I O
     3870   01 01063    00000000 A   T108B    DATA     0
     3871   01 01064    00000006 A            DATA     6
     3872                            *
     3873   01 01065    6AF0055E              BAL,15   ORDOUT              O R D E R   O U T
     3874   01 01066    22400004 A            LI,4     4
     3875   01 01067    ED40041A              WD,4     *GPAB             ENABLE SC FOR DATA OUT
     3876                            *
     3877   01 01068    225FFFFE A            LI,5     -2
     3878   01 01069    6AF004BD              BAL,15   PHASNAP           FI01 AND FM01
     3879   01 0106A    22400000 A            LI,4     0
     3880   01 0106B    35400521              STW,4    NEWLINE           INHIBIT NEWLINE
     3881                            *
     3882   01 0106C    225FFFFB A            LI,5     -5
     3883   01 0106D    6AF004BD              BAL,15   PHASNAP           FI11, FM21, FM22, FM21 AND FM22
     3884                            *
     3885   01 0106E    226FFFFC A            LI,6     -4
     3886   01 0106F    351003F9              STW,1    TEMPA             ERR WORD 1 = 1
     3887                            *
     3888   01 01070    524C0146     T1085L   LH,4     PAT1+2,6
     3889   01 01071    216FFFFF A            CI,6     -1
     3890   01 01072    68301082              BCR,3    %+16
     3891   01 01073    354003FA              STW,4    TEMPB             ERR WORD 2 = HALFWORD EXPECTED
     3892   01 01074    225FFFFF A            LI,5     -1
     3893   01 01075    6AF004BD              BAL,15   PHASNAP           FI12
     3894   01 01076    EC400413              RD,4     *GPA4             READ FOR DATA
     3895   01 01077    32500004 A            LW,5     4                 FETCH RETRIEVED DATA
     3896   01 01078    25500078 A            SLS,5    -8                REPOSITION SECOND HEX BYTE
     3897   01 01079    4B503038              AND,5    =X'FF'            MASK FOR SECOND HEX BYTE
     3898   01 0107A    25400008 A            SLS,4    8                 REPOSITION 1ST HEX BYTE
     3899   01 0107B    4B403042              AND,4    =X'FF00'          MASK FOR FIRST HEX BYTE
     3900   01 0107C    30400005 A            AW,4     5                 COMBINE REPOSITIONED BYTES
     3901   01 0107D    354003FB              STW,4    TEMPC             ERR WORD 3 = DATA RECEIVED
     3902   01 0107E    314003FA              CW,4     TEMPB             WAS DATA CORRECT
     3903   01 0107F    E9301084              BCS,3    *T108A            BRANCH IF NOT
     3904   01 01080    331003F9              MTW,1    TEMPA
     3905   01 01081    65601070              BIR,6    T1085L            LOOP
     3906   01 01082    33101084              MTW,1    T108A
     3907   01 01083    E8001084              B        *T108A            RETURN NO ERROR
     3908                            *
     3909   01 01084    00000000 A   T108A    DATA     0
     3910                            *
     3911                            *
     3912                            *
     3913                            *
     3914                            *
     3915                            *
     3916                            *
     3917                            *
     3918                            *
     3919                            *
     3920                            *
     3921                            *
     3922                            *
     3923                            *
     3924                            *
     3925                            *
     3926                            ******** T109     DATA OUT  FOUR BYTE INTERFACE ************************
     3927                            *                 (BYTE ALIGNMENT)
     3928                            *
     3929                            *
     3930                            *                 M E T H O D :
     3931                            *
     3932                            *                 SAME AS T108 EXCEPT 4-BYTE INTERFACE.
     3933                            *
     3934                            *                 R E A S O N   F O R   E R R O R
     3935                            *
     3936                            *                 INCORRECT DATA RECEIVED
     3937                            *
     3938                            *                 E R R O R   I N D I C A T I O N :
     3939                            *
     3940                            *        ERROR WORD 1 = (N)  WORD 'N' WAS INCORRECT, (N = 1 OR 2).
     3941                            *        ERROR WORD 2 =      WORD EXPECTED
     3942                            *        ERROR WORD 3 =      WORD RECEIVED
     3943                            *
     3944                            *
     3945                            *
     3946                            *
     3947                            *
     3948                            *
     3949                            *
     3950   01 01085    6AF00347     T109     BAL,15   LOOK
     3951   01 01086    00000009 A            DATA     9
     3952                            *
     3953   01 01087    6AF0109C     T1091    BAL,15   T1095             BRANCH TO EXECUTION SUBROUTINE
     3954   01 01088    00000510              DATA     BA(PAT1)          BA OF PATTERN TO BE SENT
     3955   01 01089    225FFFFC A            LI,5     -4                FI11, FM21, FM22 AND FM21
     3956   01 0108A    6AF0036D              BAL,15   ERROR             SUB RETURNS HERE IF ERROR
     3957   01 0108B    6AF0039D              BAL,15   RECUR             SUB RETURNS HERE IF NO ERROR
     3958                            *
     3959   01 0108C    6AF0109C     T1092    BAL,15   T1095
     3960   01 0108D    0000051D              DATA     BA(PAT2)+1
     3961   01 0108E    225FFFFB A            LI,5     -5                FI11, FM21, FM22, FM21 AND FM22
     3962   01 0108F    6AF0036D              BAL,15   ERROR
     3963   01 01090    6AF0039D              BAL,15   RECUR
     3964                            *
     3965   01 01091    6AF0109C     T1093    BAL,15   T1095
     3966   01 01092    0000052A              DATA     BA(PAT3)+2
     3967   01 01093    225FFFFB A            LI,5     -5                FI11, FM21, FM22, FM21 AND FM22
     3968   01 01094    6AF0036D              BAL,15   ERROR
     3969   01 01095    6AF0039D              BAL,15   RECUR
     3970                            *
     3971   01 01096    6AF0109C     T1094    BAL,15   T1095
     3972   01 01097    00000537              DATA     BA(PAT4)+3
     3973   01 01098    225FFFFB A            LI,5     -5                FI11, FM21, FM22, FM21 AND FM22
     3974   01 01099    6AF0036D              BAL,15   ERROR
     3975   01 0109A    6AF0039D              BAL,15   RECUR
     3976   01 0109B    680010D0              B        T110
     3977                            *
     3978   01 0109C    35F010CF     T1095    STW,15   T109A             SAVE R15 FOR POINTER AND RETURN
     3979   01 0109D    B24010CF              LW,4     *T109A
     3980   01 0109E    30403035              AW,4     =X'01000000'
     3981   01 0109F    354010A6              STW,4    T109B
     3982   01 010A0    331010CF              MTW,1    T109A             INCREMENT POINTER
     3983                            *
     3984   01 010A1    6AF004A8              BAL,15   %IORSTX           I/O RESET,   NOT IIOP MODE
     3985   01 010A2    6AF00495              BAL,15   %RSET
     3986   01 010A3    32403043              LW,4     =X'2000'
     3987   01 010A4    ED400418              WD,4     *GPA9             SET FOUR BYTE INTERFACE
     3988                            *
     3989   01 010A5    6AF00533              BAL,15   SIOSUB                S I O
     3990   01 010A6    00000000 A   T109B    DATA     0
     3991   01 010A7    00000008 A            DATA     8
     3992                            *
     3993   01 010A8    6AF0055E              BAL,15   ORDOUT                O R D E R   O U T
     3994                            *
     3995   01 010A9    22400004 A            LI,4     4
     3996   01 010AA    ED40041A              WD,4     *GPAB
     3997   01 010AB    225FFFFE A            LI,5     -2                FI01 AND FM01
     3998   01 010AC    6AF004BD              BAL,15   PHASNAP
     3999   01 010AD    22400000 A            LI,4     0
     4000   01 010AE    35400521              STW,4    NEWLINE           INHIBIT NEW LINE
     4001   01 010AF    E70010CF              EXU      *T109A            EXECUTE REQUIRED NUMBER OF PHASES
     4002   01 010B0    331010CF              MTW,1    T109A             INCREMENT POINTER
     4003   01 010B1    6AF004BD              BAL,15   PHASNAP
     4004                            *
     4005   01 010B2    226FFFFE A            LI,6     -2                LOOP COUNT
     4006   01 010B3    351003F9              STW,1    TEMPA             ERR WORD 1 = 1
     4007                            *
     4008   01 010B4    324C0146     T1095L   LW,4     PAT1+2,6
     4009   01 010B5    354003FA              STW,4    TEMPB             ERR WORD 2 = WORD EXPECTED
     4010   01 010B6    225FFFFF A            LI,5     -1                FI12
     4011   01 010B7    6AF004BD              BAL,15   PHASNAP
     4012   01 010B8    EC400413              RD,4     *GPA4
     4013   01 010B9    32500004 A            LW,5     4                 FETCH RETRIEVED DATA
     4014   01 010BA    25500078 A            SLS,5    -8                REPOSITION SECOND HEX BYTE
     4015   01 010BB    4B503038              AND,5    =X'FF'            MASK FOR SECOND HEX BYTE
     4016   01 010BC    25400008 A            SLS,4    8                 REPOSITION 1ST HEX BYTE
     4017   01 010BD    4B403042              AND,4    =X'FF00'          MASK FOR FIRST HEX BYTE
     4018   01 010BE    30400005 A            AW,4     5                 COMBINE REPOSITIONED BYTES
     4019   01 010BF    EC500414              RD,5     *GPA5
     4020   01 010C0    25400010 A            SLS,4    16                REPOSITION FIRST TWO BYTES
     4021   01 010C1    32900005 A            LW,9     5                 FETCH RETRIEVED DATA
     4022   01 010C2    25900078 A            SLS,9    -8                REPOSITION FOURTH HEX BYTE
     4023   01 010C3    4B903038              AND,9    =X'FF'            MASK FOR FOURTH HEX BYTE
     4024   01 010C4    25500008 A            SLS,5    8                 REPOSITION THIRD HEX BYTE
     4025   01 010C5    4B503042              AND,5    =X'FF00'          MASK FOR THIRD HEX BYTE
     4026   01 010C6    30500009 A            AW,5     9                 COMBINE REPOSITIONED BYTES
     4027   01 010C7    30400005 A            AW,4     5
     4028   01 010C8    354003FB              STW,4    TEMPC             ERR WORD 3 = WORD RECEIVED
     4029   01 010C9    314003FA              CW,4     TEMPB
     4030   01 010CA    E93010CF              BCS,3    *T109A            RETURN, ERROR
     4031   01 010CB    331003F9              MTW,1    TEMPA
     4032   01 010CC    656010B4              BIR,6    T1095L            LOOP
     4033   01 010CD    331010CF              MTW,1    T109A
     4034   01 010CE    E80010CF              B        *T109A            RETURN, NO ERROR
     4035                            *
     4036   01 010CF    00000000 A   T109A    DATA     0
     4037                            *
     4038                            *
     4039                            *
     4040                            *
     4041                            *
     4042                            *
     4043                            *
     4044                            *
     4045                            *
     4046                            *
     4047                            *
     4048                            ******** T110     DATA OUT  (DATA CHAINING) ****************************
     4049                            *
     4050                            *
     4051                            *                 M E T H O D :
     4052                            *
     4053                            *
     4054                            *        SUBTEST
     4055                            *          ONE  :  SAME AS SUBTEST ONE OF T109, EXCEPT DATA CHAINING IS
     4056                            *                  SPECIFIED BY COMMAND DOUBLEWORD FLAG.
     4057                            *
     4058                            *        SUBTEST
     4059                            *          TWO  :  THE SIOP IS SINGLE PHASED THRU A SECOND DATA OUT
     4060                            *                  AND DATA TRANSFER IS VERIFIED.
     4061                            *
     4062                            *
     4063                            *                 R E A S O N   F O R   E R R O R :
     4064                            *
     4065                            *                 INCORRECT DATA RECEIVED
     4066                            *
     4067                            *
     4068                            *                  E R R O R   I N D I C A T I O N :
     4069                            *
     4070                            *        SUBTEST
     4071                            *          ONE   :  SAME AS SUBTEST ONE OF T109.
     4072                            *
     4073                            *        SUBTEST
     4074                            *          TWO   :  SAME AS SUBTEST ONE OF T109.
     4075                            *                   ( N = 3 OR 4, DATA CHAINED WORDS INCORRECT )
     4076                            *
     4077                            *
     4078                            *
     4079                            *
     4080                            *
     4081   01 010D0    6AF00347     T110     BAL,15   LOOK
     4082   01 010D1    0000000A A            DATA     10
     4083                            *
     4084   01 010D2    32403044              LW,4     =X'80000008'
     4085   01 010D3    354010A7              STW,4    T109B+1           SET DATA CHAINING FLAG IN DOUBLEWORD
     4086                            *
     4087   01 010D4    6AF0109C              BAL,15   T1095             BRANCH TO EXECUTION SUBROUTINE
     4088   01 010D5    00000510              DATA     BA(PAT1)          BA OF PATTERN TO BE OUTPUT
     4089   01 010D6    225FFFFC A            LI,5     -4                FI11, FM21, FM22 AND FM21
     4090   01 010D7    680010D9              B        %+2               T1095 RETURNS HERE IF ERROR
     4091   01 010D8    680010DD              B        T1102             T1095 RETURNS HERE IF NO ERROR
     4092                            *
     4093   01 010D9    22400008 A            LI,4     8
     4094   01 010DA    354010A7              STW,4    T109B+1           RESTORE BYTE COUNT
     4095   01 010DB    6AF0036D              BAL,15   ERROR
     4096   01 010DC    6AF0039D              BAL,15   RECUR
     4097                            *
     4098                            *
     4099   01 010DD    22400008 A   T1102    LI,4     8
     4100   01 010DE    354010A7              STW,4    T109B+1           RESTORE DOUBLEWORD FLAG SETTING
     4101   01 010DF    22400002 A            LI,4     2
     4102   01 010E0    3540044B              STW,4    SUBT
     4103   01 010E1    33100520              MTW,1    FIFLG             INHIBIT FI PHASEING
     4104   01 010E2    225FFFF9 A            LI,5     -7
     4105   01 010E3    6AF004BD              BAL,15   PHASNAP           FM21,FM31,FM32,FM33,FM34,FM21, FM22
     4106   01 010E4    226FFFFF A            LI,6     -1                SET T1095L LOOP COUNT
     4107   01 010E5    224010E8              LI,4     %+3
     4108   01 010E6    354010CF              STW,4    T109A
     4109   01 010E7    680010B4              B        T1095L            BRANCH TO EXECUTION SUBROUTINE
     4110   01 010E8    6AF0036D              BAL,15   ERROR
     4111   01 010E9    6AF0039D              BAL,15   RECUR
     4112   01 010EA    680010EB              B        T111
     4113                            *
     4114                            *
     4115                            *
     4116                            *
     4117                            *
     4118                            *
     4119                            *
     4120                            *
     4121                            *
     4122                            *
     4123                            *
     4124                            *
     4125                            ******** T111     DATA OUT (FREE RUN) **********************************
     4126                            *
     4127                            *
     4128                            *                 M E T H O D :
     4129                            *
     4130                            *                 THE SIOP AND MS ARE PLACED IN 'FREE-RUN' MODE.
     4131                            *                 AN SIO IS EXECUTED CALLING FOR A WRITE OF 65,535 BYTES
     4132                            *                 STARTING AT MEMORY LOCATION '000', (NO FLAGS).
     4133                            *                 AFTER A DELAY TO ALLOW FOR I/O COMPLETION, A TIO IS
     4134                            *                 EXECUTED AND BC AND STATUS ARE EXAMINED.
     4135                            *
     4136                            *
     4137                            *                 R E A S O N   F O R   E R R O R :
     4138                            *
     4139                            *                 UNSUCCESSFUL TIO, INCORRECT STATUS OR BYTE COUNT.
     4140                            *
     4141                            *
     4142                            *
     4143                            *                 E R R O R   I N O I C A T I O N :
     4144                            *
     4145                            *        ERROR WORD 1 = 1  UNSUCCESSFUL TIO.
     4146                            *                          (CHECK CC SETTINGS ON PCP.
     4147                            *
     4148                            *        ERROR WORD 1 = 2  STATUS INCORRECT
     4149                            *        ERROR WORD 2 =    STATUS EXPECTED
     4150                            *        ERROR WORD 3 =    STATUS RECEIVED
     4151                            *
     4152                            *        ERROR WORD 1 = 3  BC INCORRECT
     4153                            *        ERROR WORD 2 =    BC EXPECTED
     4154                            *        ERROR WORD 3 =    BC RECEIVED
     4155                            *
     4156                            *
     4157                            *
     4158                            *
     4159                            *
     4160                            *
     4161                            *
     4162                            *
     4163                            *
     4164   01 010EB    6AF00347     T111     BAL,15   LOOK
     4165   01 010EC    0000000B A            DATA     11
     4166                            *
     4167   01 010ED    22402000 A            LI,4     X'2000'
     4168   01 010EE    ED400418              WD,4     *GPA9             SPECIFY 4 BYTE INTERFACE
     4169   01 010EF    6AF004B3              BAL,15   %IORSTYP          SET IOP FREE-RUN MODE
     4170   01 010F0    22000888              LI,0     DA(T111CP)
     4171   01 010F1    CCA0040D              SIO,10   *IOPT             EXECUTE SIO
     4172                            *
     4173   01 010F2    32403045              LW,4     =X'FFF60000'        D  E L A Y
     4174   01 010F3    654010F3              BIR,4    %
     4175                            *
     4176   01 010F4    6AF00495              BAL,15   %RSET
     4177   01 010F5    351008D7              STW,1    BYTECNT           INHIBIT DISPLAY GROUP OUTPUT
     4178   01 010F6    351003F9              STW,1    TEMPA             ERR WORD 1 = 1
     4179   01 010F7    CDD0040D              TIO,13   *IOPT             EXECUTE TIO
     4180   01 010F8    69C01109              BCS,12   T111E             BRANCH IF UNSUCCESSFUL TIO
     4181                            *
     4182   01 010F9    352003F9              STW,2    TEMPA             ERR WORD 1 = 2
     4183   01 010FA    3240110D              LW,4     T111B
     4184   01 010FB    354003FA              STW,4    TEMPB             ERR WORD 2 = STATUS EXPECTED
     4185   01 010FC    35D0110C              STW,13   T111A             SAVE STATUS FOR BC COMPARE
     4186   01 010FD    4BD03046              AND,13   =X'FF0000'        MASK FOR STATUS
     4187   01 010FE    35D003FB              STW,13   TEMPC             ERR WORD 3 = STATUS RECEIVED
     4188   01 010FF    31D003FA              CW,13    TEMPB
     4189   01 01100    69301109              BCS,3    T111E             BRANCH IF INCORRECT STATUS
     4190                            *
     4191   01 01101    32D0110C              LW,13    T111A             RESTORE STATUS
     4192   01 01102    4BD03047              AND,13   =X'FFFF'          MASK FOR BC
     4193   01 01103    353003F9              STW,3    TEMPA             ERR WORD 1 = 3
     4194   01 01104    35D003FB              STW,13   TEMPC             ERR WORD 3 = BC RECEIVED
     4195   01 01105    3240110E              LW,4     T111C
     4196   01 01106    354003FA              STW,4    TEMPB             ERR WORD 2 = BC EXPECTED
     4197   01 01107    31D003FA              CW,13    TEMPB
     4198   01 01108    6830110A              BCR,3    %+2               BRANCH IF BC CORRECT
     4199   01 01109    6AF0036D     T111E    BAL,15   ERROR
     4200   01 0110A    6AF0039D              BAL,15   RECUR
     4201   01 0110B    68001112              B        T112
     4202                            *
     4203   01 0110C    00000000 A   T111A    DATA     0                 STATUS AND BC TEMP
     4204   01 0110D    00010000 A   T111B    DATA     X'10000'          STATUS EXPECTED
     4205   01 0110E    00000000 A   T111C    DATA     0                 BC EXPECTED
     4206                            *
     4207                                     BOUND    8
     4208   01 01110    01000000 A   T111CP   GEN,8,24 1,0
     4209   01 01111    0000FFFF A            DATA     X'FFFF'
     4210                            *
     4211                            *
     4212                            *
     4213                            *
     4214                            *
     4215                            *
     4216                            *
     4217                            *
     4218                            *
     4219                            *
     4220                            *
     4221                            *
     4222                            *
     4223                            *
     4224                            *
     4225                            *
     4226                            *
     4227                            *
     4228                            *
     4229                            ******** T112     DATA IN  (FOUR BYTE INTERFACE) ***********************
     4230                            *
     4231                            *                 M E T H O D :
     4232                            *
     4233                            *                 THE SIOP IS SINGLE PHASED THRU SIO AND ORDER OUT.
     4234                            *                 MS SERVICE CALL IS ENABLED FOR DATA IN.
     4235                            *                 THE SIOP IS SINGLE PHASED THRU THE DATA IN AND
     4236                            *                 DATA IS VERIFIED IN CORE.
     4237                            *
     4238                            *
     4239                            *                 R E A S O N   F O R   E R R O R :
     4240                            *
     4241                            *                 INCORRECT DATA WAS READ INTO CORE.
     4242                            *
     4243                            *
     4244                            *                 E R R O R   I N D I C A T I O N :
     4245                            *
     4246                            *        ERROR WORD 1 =  (N)  DATA WORD 'N' WAS INCORRECT, (N = 1 OR 2)
     4247                            *        ERROR WORD 2 =       DATA WORD EXPECTED
     4248                            *        ERROR WORD 3 =       DATA RECEIVED
     4249                            *
     4250                            *
     4251                            *
     4252                            *
     4253                            *
     4254                            *
     4255   01 01112    6AF00347     T112     BAL,15   LOOK
     4256   01 01113    0000000C A            DATA     12
     4257                            *
     4258   01 01114    22402000 A            LI,4     X'2000'
     4259   01 01115    ED400418              WD,4     *GPA9             SPECIFY 4 BYTE INTERFACE
     4260                            *
     4261   01 01116    6AF00533              BAL,15   SIOSUB            SINGLE PHASE THRU SIO
     4262   01 01117    02000540              GEN,8,24 2,BA(DINPUT)      ORDER = READ,  BA = DINPUT
     4263   01 01118    00000008 A            DATA     8                 NO FLAGS,  BC = 8
     4264                            *
     4265   01 01119    6AF0055E              BAL,15   ORDOUT            SINGLE PHASE THRU ORDER OUT
     4266   01 0111A    6AF00495              BAL,15   %RSET             R0=0, R1=1, R2=2 AND R3=3
     4267   01 0111B    35000151              STW,0    DINPUT+1          CLEAR DATA INPUT LOCATIONS
     4268   01 0111C    22400004 A            LI,4     4
     4269   01 0111D    ED40041A              WD,4     *GPAB             ENABLE SC FOR DATA IN
     4270                            *
     4271   01 0111E    225FFFFE A            LI,5     -2
     4272   01 0111F    6AF004BD              BAL,15   PHASNAP           FI01 AND FM01
     4273   01 01120    35000521              STW,0    NEWLINE           INHIBIT GIVING NEWLINE
     4274   01 01121    22402099 A            LI,4     X'2099'
     4275   01 01122    ED400418              WD,4     *GPA9             SET DATA TO BE INPUT
     4276                            *
     4277   01 01123    225FFFFE A            LI,5     -2
     4278   01 01124    6AF004BD              BAL,15   PHASNAP           FI11 AND FM24
     4279                            *
     4280   01 01125    351003F9              STW,1    TEMPA             ERR WORD 1 = 1
     4281   01 01126    3240113A              LW,4     DINPAT
     4282   01 01127    354003FA              STW,4    TEMPB             ERR WORD 2 = DATA WORD EXPECTED
     4283   01 01128    32400150              LW,4     DINPUT
     4284   01 01129    354003FB              STW,4    TEMPC             ERR WORD 3 = DATA WORD RECEIVED
     4285   01 0112A    314003FA              CW,4     TEMPB
     4286   01 0112B    69301137              BCS,3    T112ERR           BRANCH IF INCORRECT DATA
     4287                            *
     4288   01 0112C    22402066 A            LI,4     X'2066'
     4289   01 0112D    ED400418              WD,4     *GPA9             SET DATA TO BE INPUT
     4290   01 0112E    225FFFFE A            LI,5     -2
     4291   01 0112F    6AF004BD              BAL,15   PHASNAP           FI13 AND FM24
     4292                            *
     4293   01 01130    352003F9              STW,2    TEMPA             ERR WORD 1 = 2
     4294   01 01131    3240113B              LW,4     DINPAT+1
     4295   01 01132    354003FA              STW,4    TEMPB             ERR WORD 2 = DATA WORD EXPECTED
     4296   01 01133    32400151              LW,4     DINPUT+1
     4297   01 01134    354003FB              STW,4    TEMPC             ERR WORD 3 = DATA WORD RECEIVED
     4298   01 01135    314003FA              CW,4     TEMPB
     4299   01 01136    68301138              BCR,3    %+2               BRANCH IF DATA IS CORRECT
     4300   01 01137    6AF0036D     T112ERR  BAL,15   ERROR
     4301   01 01138    6AF0039D              BAL,15   RECUR
     4302   01 01139    6800113C              B        T113
     4303                            *
     4304                            *
     4305   01 0113A    99999999 A   DINPAT   DATA     X'99999999'
     4306   01 0113B    66666666 A            DATA     X'66666666'
     4307                            *
     4308                            *
     4309                            *
     4310                            *
     4311                            *
     4312                            *
     4313                            *
     4314                            *
     4315                            *
     4316                            *
     4317                            *
     4318                            *
     4319                            *
     4320                            *
     4321                            *
     4322                            *
     4323                            ******** T113     DATA IN  (TWO BYTE INTERFACE) ************************
     4324                            *
     4325                            *                 M E T H O D :                       **
     4326                            *                 R E A S O N   F O R   E R R O R :    ** SAME AS T112
     4327                            *                 E R R O R   I N D I C A T I O N :   **
     4328                            *
     4329                            *
     4330                            *
     4331                            *
     4332   01 0113C    6AF00347     T113     BAL,15   LOOK
     4333   01 0113D    0000000D A            DATA     13
     4334                            *
     4335   01 0113E    22404000 A            LI,4     X'4000'
     4336   01 0113F    ED400418              WD,4     *GPA9             SPECIFY 2-BYTE INTERFACE
     4337   01 01140    6AF00533              BAL,15   SIOSUB
     4338   01 01141    02000540              GEN,8,24 2,BA(DINPUT)
     4339   01 01142    00000008 A            DATA     8
     4340                            *
     4341   01 01143    6AF0055E              BAL,15   ORDOUT
     4342   01 01144    6AF00495              BAL,15   %RSET
     4343   01 01145    22400004 A            LI,4     4
     4344   01 01146    ED40041A              WD,4     *GPAB
     4345                            *
     4346   01 01147    225FFFFE A            LI,5     -2
     4347   01 01148    6AF004BD              BAL,15   PHASNAP
     4348   01 01149    35000521              STW,0    NEWLINE
     4349   01 0114A    35000150              STW,0    DINPUT
     4350   01 0114B    35000151              STW,0    DINPUT+1
     4351   01 0114C    22404099 A            LI,4     X'4099'
     4352   01 0114D    ED400418              WD,4     *GPA9
     4353   01 0114E    225FFFFF A            LI,5     -1
     4354   01 0114F    6AF004BD              BAL,15   PHASNAP
     4355   01 01150    225FFFFE A            LI,5     -2
     4356   01 01151    6AF004BD              BAL,15   PHASNAP
     4357   01 01152    351003F9              STW,1    TEMPA
     4358   01 01153    3240113A              LW,4     DINPAT
     4359   01 01154    354003FA              STW,4    TEMPB
     4360   01 01155    32400150              LW,4     DINPUT
     4361   01 01156    354003FB              STW,4    TEMPC
     4362   01 01157    314003FA              CW,4     TEMPB
     4363   01 01158    69301166              BCS,3    T113ERR
     4364                            *
     4365   01 01159    22404066 A            LI,4     X'4066'
     4366   01 0115A    ED400418              WD,4     *GPA9
     4367   01 0115B    225FFFFF A            LI,5     -1
     4368   01 0115C    6AF004BD              BAL,15   PHASNAP
     4369   01 0115D    225FFFFC A            LI,5     -4
     4370   01 0115E    6AF004BD              BAL,15   PHASNAP
     4371                            *
     4372   01 0115F    352003F9              STW,2    TEMPA
     4373   01 01160    3240113B              LW,4     DINPAT+1
     4374   01 01161    354003FA              STW,4    TEMPB
     4375   01 01162    32400151              LW,4     DINPUT+1
     4376   01 01163    354003FB              STW,4    TEMPC
     4377   01 01164    314003FA              CW,4     TEMPB
     4378   01 01165    68301167              BCR,3    %+2
     4379   01 01166    6AF0036D     T113ERR  BAL,15   ERROR
     4380   01 01167    6AF0039D              BAL,15   RECUR
     4381   01 01168    68001169              B        T114
     4382                            *
     4383                            *
     4384                            *
     4385                            *
     4386                            *
     4387                            *
     4388                            *
     4389                            *
     4390                            *
     4391                            *
     4392                            *
     4393                            *
     4394                            *
     4395                            *
     4396                            ******** T114     DATA IN  (ONE BYTE INTERFACE) ************************
     4397                            *
     4398                            *                 METHOD, REASON FOR ERROR AND ERROR INDICATION ARE THE
     4399                            *                 SAME AS T112 EXCEPT ONE BYTE INTERFACE IS SPECIFIED.
     4400                            *
     4401                            *
     4402   01 01169    6AF00347     T114     BAL,15   LOOK
     4403   01 0116A    0000000E A            DATA     14
     4404                            *
     4405   01 0116B    22400000 A            LI,4     0
     4406   01 0116C    ED400418              WD,4     *GPA9             SPECIFY ONE BYTE INTERFACE
     4407                            *
     4408   01 0116D    6AF00533              BAL,15   SIOSUB
     4409   01 0116E    02000540              GEN,8,24 2,BA(DINPUT)
     4410   01 0116F    00000008 A            DATA     8
     4411                            *
     4412   01 01170    6AF0055E              BAL,15   ORDOUT
     4413   01 01171    6AF00495              BAL,15   %RSET
     4414   01 01172    22400004 A            LI,4     4
     4415   01 01173    ED40041A              WD,4     *GPAB
     4416                            *
     4417   01 01174    225FFFFE A            LI,5     -2
     4418   01 01175    6AF004BD              BAL,15   PHASNAP
     4419   01 01176    35000521              STW,0    NEWLINE
     4420   01 01177    35000150              STW,0    DINPUT
     4421   01 01178    35000151              STW,0    DINPUT+1
     4422                            *
     4423   01 01179    22400099 A            LI,4     X'0099'
     4424   01 0117A    ED400418              WD,4     *GPA9
     4425   01 0117B    225FFFFF A            LI,5     -1
     4426   01 0117C    6AF004BD              BAL,15   PHASNAP
     4427   01 0117D    225FFFFF A            LI,5     -1
     4428   01 0117E    6AF004BD              BAL,15   PHASNAP
     4429   01 0117F    225FFFFF A            LI,5     -1
     4430   01 01180    6AF004BD              BAL,15   PHASNAP
     4431   01 01181    225FFFFE A            LI,5     -2
     4432   01 01182    6AF004BD              BAL,15   PHASNAP
     4433                            *
     4434   01 01183    351003F9              STW,1    TEMPA
     4435   01 01184    3240113A              LW,4     DINPAT
     4436   01 01185    354003FA              STW,4    TEMPB
     4437   01 01186    32400150              LW,4     DINPUT
     4438   01 01187    354003FB              STW,4    TEMPC
     4439   01 01188    314003FA              CW,4     TEMPB
     4440   01 01189    6930119B              BCS,3    T114ERR
     4441                            *
     4442   01 0118A    22400066 A            LI,4     X'0066'
     4443   01 0118B    ED400418              WD,4     *GPA9
     4444   01 0118C    225FFFFF A            LI,5     -1
     4445   01 0118D    6AF004BD              BAL,15   PHASNAP
     4446   01 0118E    225FFFFF A            LI,5     -1
     4447   01 0118F    6AF004BD              BAL,15   PHASNAP
     4448   01 01190    225FFFFF A            LI,5     -1
     4449   01 01191    6AF004BD              BAL,15   PHASNAP
     4450   01 01192    225FFFFB A            LI,5     -5
     4451   01 01193    6AF004BD              BAL,15   PHASNAP
     4452                            *
     4453   01 01194    352003F9              STW,2    TEMPA
     4454   01 01195    3240113B              LW,4     DINPAT+1
     4455   01 01196    354003FA              STW,4    TEMPB
     4456   01 01197    32400151              LW,4     DINPUT+1
     4457   01 01198    354003FB              STW,4    TEMPC
     4458   01 01199    314003FA              CW,4     TEMPB
     4459   01 0119A    6830119C              BCR,3    %+2
     4460   01 0119B    6AF0036D     T114ERR  BAL,15   ERROR
     4461   01 0119C    6AF0039D              BAL,15   RECUR
     4462   01 0119D    6800119E              B        T115
     4463                            *
     4464                            *
     4465                            *
     4466                            *
     4467                            *
     4468                            *
     4469                            *
     4470                            *
     4471                            ******** T115     DATA IN  (READ BACKWARD) *****************************
     4472                            *
     4473                            *                 METHOD, REASON FOR ERROR AND ERROR INDICATION ARE THE
     4474                            *                 SAME AS T114,THE ORDER = READ BACKWARD.
     4475                            *
     4476                            *
     4477   01 0119E    6AF00347     T115     BAL,15   LOOK
     4478   01 0119F    0000000F A            DATA     15
     4479                            *
     4480   01 011A0    22400000 A            LI,4     X'0000'
     4481   01 011A1    ED400418              WD,4     *GPA9
     4482   01 011A2    6AF00533              BAL,15   SIOSUB
     4483   01 011A3    0C000547              GEN,8,24 12,BA(DINPUT)+7
     4484   01 011A4    00000008 A            DATA     8
     4485   01 011A5    6AF0055E              BAL,15   ORDOUT
     4486   01 011A6    6AF00495              BAL,15   %RSET
     4487   01 011A7    22400004 A            LI,4     4
     4488   01 011A8    ED40041A              WD,4     *GPAB
     4489   01 011A9    225FFFFE A            LI,5     -2
     4490   01 011AA    6AF004BD              BAL,15   PHASNAP
     4491   01 011AB    35000521              STW,0    NEWLINE
     4492   01 011AC    35000150              STW,0    DINPUT
     4493   01 011AD    35000151              STW,0    DINPUT+1
     4494   01 011AE    22400066 A            LI,4     X'0066'
     4495   01 011AF    ED400418              WD,4     *GPA9
     4496   01 011B0    225FFFFF A            LI,5     -1
     4497   01 011B1    6AF004BD              BAL,15   PHASNAP
     4498   01 011B2    225FFFFF A            LI,5     -1
     4499   01 011B3    6AF004BD              BAL,15   PHASNAP
     4500   01 011B4    225FFFFF A            LI,5     -1
     4501   01 011B5    6AF004BD              BAL,15   PHASNAP
     4502   01 011B6    225FFFFE A            LI,5     -2
     4503   01 011B7    6AF004BD              BAL,15   PHASNAP
     4504                            *
     4505   01 011B8    351003F9              STW,1    TEMPA
     4506   01 011B9    3240113B              LW,4     DINPAT+1
     4507   01 011BA    354003FA              STW,4    TEMPB
     4508   01 011BB    32400151              LW,4     DINPUT+1
     4509   01 011BC    354003FB              STW,4    TEMPC
     4510   01 011BD    314003FA              CW,4     TEMPB
     4511   01 011BE    693011D0              BCS,3    T115ERR
     4512                            *
     4513   01 011BF    22400099 A            LI,4     X'0099'
     4514   01 011C0    ED400418              WD,4     *GPA9
     4515   01 011C1    225FFFFF A            LI,5     -1
     4516   01 011C2    6AF004BD              BAL,15   PHASNAP
     4517   01 011C3    225FFFFF A            LI,5     -1
     4518   01 011C4    6AF004BD              BAL,15   PHASNAP
     4519   01 011C5    225FFFFF A            LI,5     -1
     4520   01 011C6    6AF004BD              BAL,15   PHASNAP
     4521   01 011C7    225FFFFB A            LI,5     -5
     4522   01 011C8    6AF004BD              BAL,15   PHASNAP
     4523                            *
     4524   01 011C9    352003F9              STW,2    TEMPA
     4525   01 011CA    3240113A              LW,4     DINPAT
     4526   01 011CB    354003FA              STW,4    TEMPB
     4527   01 011CC    32400150              LW,4     DINPUT
     4528   01 011CD    354003FB              STW,4    TEMPC
     4529   01 011CE    314003FA              CW,4     TEMPB
     4530   01 011CF    683011D1              BCR,3    %+2
     4531   01 011D0    6AF0036D     T115ERR  BAL,15   ERROR
     4532   01 011D1    6AF0039D              BAL,15   RECUR
     4533   01 011D2    680011D3              B        T116
     4534                            *
     4535                            *
     4536                            *
     4537                            *
     4538                            *
     4539                            *
     4540                            *
     4541                            *
     4542                            *
     4543                            *
     4544                            *
     4545                            *
     4546                            *
     4547                            *
     4548                            ******** T116     DATA IN  (SKIP) **************************************
     4549                            *
     4550                            *                 METHOD, REASON FOR ERROR AND ERROR INDICATION ARE THE
     4551                            *                 SAME AS  T114, EXCEPT SKIP FLAG IS SET.
     4552                            *
     4553                            *
     4554   01 011D3    6AF00347     T116     BAL,15   LOOK
     4555   01 011D4    00000010 A            DATA     16
     4556                            *
     4557   01 011D5    22400000 A            LI,4     0
     4558   01 011D6    ED400418              WD,4     *GPA9
     4559   01 011D7    6AF00533              BAL,15   SIOSUB
     4560   01 011D8    02000540              GEN,8,24 2,BA(DINPUT)
     4561   01 011D9    01000008 A            GEN,8,24 1,8
     4562   01 011DA    6AF0055E              BAL,15   ORDOUT
     4563   01 011DB    6AF00495              BAL,15   %RSET
     4564   01 011DC    22400004 A            LI,4     4
     4565   01 011DD    ED40041A              WD,4     *GPAB
     4566   01 011DE    225FFFFE A            LI,5     -2
     4567   01 011DF    6AF004BD              BAL,15   PHASNAP
     4568   01 011E0    35000521              STW,0    NEWLINE
     4569   01 011E1    35000150              STW,0    DINPUT
     4570   01 011E2    35000151              STW,0    DINPUT+1
     4571   01 011E3    22400099 A            LI,4     X'0099'
     4572   01 011E4    ED400418              WD,4     *GPA9
     4573   01 011E5    225FFFFF A            LI,5     -1
     4574   01 011E6    6AF004BD              BAL,15   PHASNAP
     4575   01 011E7    225FFFFF A            LI,5     -1
     4576   01 011E8    6AF004BD              BAL,15   PHASNAP
     4577   01 011E9    225FFFFF A            LI,5     -1
     4578   01 011EA    6AF004BD              BAL,15   PHASNAP
     4579   01 011EB    225FFFFE A            LI,5     -2
     4580   01 011EC    6AF004BD              BAL,15   PHASNAP
     4581                            *
     4582   01 011ED    351003F9              STW,1    TEMPA
     4583   01 011EE    22400000 A            LI,4     0
     4584   01 011EF    354003FA              STW,4    TEMPB
     4585   01 011F0    32400150              LW,4     DINPUT
     4586   01 011F1    354003FB              STW,4    TEMPC
     4587   01 011F2    314003FA              CW,4     TEMPB
     4588   01 011F3    69301205              BCS,3    T116ERR
     4589                            *
     4590   01 011F4    22400066 A            LI,4     X'0066'
     4591   01 011F5    ED400418              WD,4     *GPA9
     4592                            *
     4593   01 011F6    225FFFFF A            LI,5     -1
     4594   01 011F7    6AF004BD              BAL,15   PHASNAP
     4595   01 011F8    225FFFFF A            LI,5     -1
     4596   01 011F9    6AF004BD              BAL,15   PHASNAP
     4597   01 011FA    225FFFFF A            LI,5     -1
     4598   01 011FB    6AF004BD              BAL,15   PHASNAP
     4599   01 011FC    225FFFFB A            LI,5     -5
     4600   01 011FD    6AF004BD              BAL,15   PHASNAP
     4601                            *
     4602   01 011FE    352003F9              STW,2    TEMPA
     4603   01 011FF    22400000 A            LI,4     0
     4604   01 01200    354003FA              STW,4    TEMPB
     4605   01 01201    32400151              LW,4     DINPUT+1
     4606   01 01202    354003FB              STW,4    TEMPC
     4607   01 01203    314003FA              CW,4     TEMPB
     4608   01 01204    68301206              BCR,3    %+2
     4609   01 01205    6AF0036D     T116ERR  BAL,15   ERROR
     4610   01 01206    6AF0039D              BAL,15   RECUR
     4611   01 01207    68001208              B        T117
     4612                            *
     4613                            *
     4614                            *
     4615                            *
     4616                            *
     4617                            *
     4618                            *
     4619                            ******** T117     TEST ORDER IN ****************************************
     4620                            *
     4621                            *
     4622                            *                 M E T H O D :
     4623                            *
     4624                            *        SUBTEST  THE SIOP IS SINGLE PHASED THRU SIO, ORDER OUT, DATA
     4625                            *        ONE:     OUT AND ORDER IN.  ASC FOR THE SC FOR ORDER IN, AND
     4626                            *                 RSA FOR THE RS FOR THE ORDER AND TERMINAL ORDER ARE
     4627                            *                 MONITERED IN THE MS.
     4628                            *
     4629                            *        SUBTEST  THE SIOP IS SINGLE PHASED AS IN SUBTEST ONE AND THE
     4630                            *        2 THRU 6 TERMINAL ORDER RESPONSE IS MONITERED IN THE MS.  A TIO
     4631                            *                 IS THEN EXECUTED TO FETCH IOP STATUS
     4632                            *
     4633                            *        SUBTEST
     4634                            *        SEVEN   THE SIOP IS SINGLE PHASED THRU SIO, ORDER OUT,
     4635                            *                DATA OUT AND ORDER IN COMMAND CHAINING IS SPECIFIED
     4636                            *                AND THE COMMAND CHAINED ORDER IS VERIFIED.
     4637                            *
     4638                            *                 R E A S O N  F O R  E R R O R :
     4639                            *
     4640                            *        SUBTEST  ASC OR RSA WERE NOT RETURNED DURING ORDER IN.
     4641                            *        ONE:
     4642                            *
     4643                            *        SUBTEST  TERMINAL ORDER OR IOP STATUS WERE INCORRECT
     4644                            *        2 THRU 6
     4645                            *
     4646                            *        SUBTEST
     4647                            *        SEVEN:  INCORRECT CMND CHAINED ORDER RECEIVED.
     4648                            *
     4649                            *
     4650                            *                 E R R O R  I N D I C A T I O N :
     4651                            *
     4652                            *        SUBTEST  ONE:
     4653                            *
     4654                            *        ERROR WORD 1 = 1  ASC WAS NOT RETURNED FOR THE SC FOR ORDER IN.
     4655                            *        ERROR WORD 1 = 2  NO RSA RETURNED FOR THE RS FOR ORDER.
     4656                            *        ERROR WORD 1 = 3  NO RSA RETURNED FOR THE RS FOR THE T.O.
     4657                            *
     4658                            *        SUBTEST 2 THRU 6
     4659                            *
     4660                            *        ERROR WORD 1 = 1  TERMINAL ORDER INCORRECT
     4661                            *        ERROR WORD 2 = TERMINAL ORDER EXPECTED
     4662                            *        ERROR WROD 3 = TERMINAL ORDER RECEIVED
     4663                            *
     4664                            *        ERROR WORD 1 = 2  IOP STATUS INCORRECT
     4665                            *        ERROR WORD 2 =    IOP  STATUS EXPECTED
     4666                            *        ERROR WORD 3 =    IOP  STATUS RECEIVED
     4667                            *
     4668                            *        SUBTEST  7 (ONLY)
     4669                            *
     4670                            *        ERROR WORD 1 = 3  INCORRECT (COMMAND CHAINED) ORDER
     4671                            *        ERROR WORD 2 = ORDER EXPECTED
     4672                            *        ERROR WORD 3 = ORDER RECEIVED
     4673                            *
     4674                            *
     4675                            *
     4676                            *
     4677                            *
     4678                            *
     4679   01 01208    6AF00347     T117     BAL,15   LOOK
     4680   01 01209    00000011 A            DATA     17
     4681   01 0120A    22400030 A            LI,4     X'30'
     4682   01 0120B    6D401100 A            WD,4     X'1100'           DISABLE IO GROUP INTERRUPTS
     4683                            *
     4684   01 0120C    6AF00533     T1171    BAL,15   SIOSUB            SINGLE PHASE THRU SIO
     4685   01 0120D    01000548              GEN,8,24 1,BA(ONEBYTE)     ORDER = WRITE, BA = ONEBYTE
     4686   01 0120E    08000001 A            GEN,8,24 8,1               FLAGS = HTE,   BC = 1
     4687                            *
     4688   01 0120F    6AF0055E              BAL,15   ORDOUT            SINGLE PHASE THRU ORDER OUT
     4689                            *
     4690   01 01210    6AF01288              BAL,15   DATAOUT           SINGLE PHASE THRU DATA OUT
     4691                            *
     4692   01 01211    6AF00495              BAL,15   %RSET             R0=0, R1=1, R2=2 AND R3=3
     4693   01 01212    ED000412              WD,0     *GPA3             PRESET MS DISP GRP FOR LATCHING
     4694   01 01213    351003F9              STW,1    TEMPA             ERROR WORD 1 = 1
     4695                            *
     4696   01 01214    22400004 A            LI,4     4
     4697   01 01215    ED40041A              WD,4     *GPAB             ENABLE SERVICE CALL FOR ORDER IN
     4698   01 01216    225FFFFE A            LI,5     -2
     4699   01 01217    6AF004BD              BAL,15   PHASNAP           FI01 AND FM01
     4700                            *
     4701                            *
     4702   01 01218    EC400412              RD,4     *GPA3             READ FOR ASC
     4703   01 01219    4B40303B              AND,4    =X'4'             WAS ASC RETURNED
     4704   01 0121A    6820122D              BCR,2    T1171E            BRANCH IF NOT
     4705                            *
     4706   01 0121B    22400000 A            LI,4     0
     4707   01 0121C    ED000418              WD,0     *GPA9             STATUS BYTE TO IOP = 0
     4708   01 0121D    ED000412              WD,0     *GPA3             PRESET
     4709   01 0121E    35400521              STW,4    NEWLINE           INHIBIT NEW LINE
     4710   01 0121F    225FFFFF A            LI,5     -1                ERR WORD 1 = 2
     4711   01 01220    6AF004BD              BAL,15   PHASNAP           FI11
     4712                            *
     4713   01 01221    331003F9              MTW,1    TEMPA             ERR WORD 1 = 2
     4714   01 01222    EC400412              RD,4     *GPA3             READ FOR RSA FOR STATUS RS
     4715   01 01223    4B40303C              AND,4    =X'2'             WAS RSA RETURNED
     4716   01 01224    6820122D              BCR,2    T1171E            BRANCH IF NOT
     4717                            *
     4718   01 01225    331003F9              MTW,1    TEMPA             ERR WORD 1 = 3
     4719   01 01226    33100520              MTW,1    FIFLG             INHIBIT FI PHASEING
     4720   01 01227    ED000412              WD,0     *GPA3             PRESET
     4721   01 01228    225FFFFE A            LI,5     -2                FM41
     4722   01 01229    6AF004BD              BAL,15   PHASNAP
     4723                            *
     4724   01 0122A    EC400412              RD,4     *GPA3             READ FOR RSA FOR TERM.ORD. RS
     4725   01 0122B    4B40303C              AND,4    =X'2'             WAS RSA RETURNED
     4726   01 0122C    6920122E              BCS,2    %+2               IF SO, BRANCH
     4727                            *
     4728   01 0122D    6AF0036D     T1171E   BAL,15   ERROR
     4729   01 0122E    6AF0039D              BAL,15   RECUR
     4730                            *
     4731                            *
     4732                            *
     4733   01 0122F    6AF01263     T1172    BAL,15   T1178             CHECK ORDER IN RESPONSE
     4734   01 01230    08000001 A            DATA     X'08000001'       SIO FLAGS = HTE, BC = 1
     4735   01 01231    00000090 A            DATA     X'00000090'       OPERATIONAL STATUS BYTE TO IOP=TE,CE
     4736   01 01232    00000010 A            DATA     X'00000010'       TERMINAL ORDER EXPECTED = IOPH
     4737   01 01233    00420000 A            DATA     X'00420000'       IOP STATUS EXPECTED = IOPH AND TDE
     4738   01 01234    6AF0036D              BAL,15   ERROR             T1178 RETURNS HERE IF ERROR
     4739   01 01235    6AF0039D              BAL,15   RECUR             T1178 RETURNS HERE IF NO ERROR
     4740                            *
     4741   01 01236    6AF01263     T1173    BAL,15   T1178
     4742   01 01237    08000001 A            DATA     X'08000001'       FLAGS    = HTE
     4743   01 01238    00000050 A            DATA     X'00000050'       MS OSB   =IL,CE
     4744   01 01239    00000010 A            DATA     X'00000010'       TERM ORD = IOPH
     4745   01 0123A    00820000 A            DATA     X'00820000'       IOP OSB = IOPH, IL
     4746   01 0123B    6AF0036D              BAL,15   ERROR
     4747   01 0123C    6AF0039D              BAL,15   RECUR
     4748                            *
     4749   01 0123D    6AF01263     T1174    BAL,15   T1178
     4750   01 0123E    10000001 A            DATA     X'10000001'       FLAGS    = ICE
     4751   01 0123F    00000010 A            DATA     X'00000010'       MS OSB   = CE
     4752   01 01240    00000080 A            DATA     X'00000080'       TERM ORD = I
     4753   01 01241    00000000 A            DATA     X'0'              IOP OSB  = 0
     4754   01 01242    6AF0036D              BAL,15   ERROR
     4755   01 01243    6AF0039D              BAL,15   RECUR
     4756                            *
     4757   01 01244    6AF01263     T1175    BAL,15   T1178
     4758   01 01245    04000001 A            DATA     X'04000001'       FLAGS    = IUE
     4759   01 01246    00000008 A            DATA     X'00000008'       MS OSB   = UE
     4760   01 01247    00000080 A            DATA     X'00000080'       TERM ORD = I
     4761   01 01248    00000000 A            DATA     X'0'              IOP OSB  = 0
     4762   01 01249    6AF0036D              BAL,15   ERROR
     4763   01 0124A    6AF0039D              BAL,15   RECUR
     4764                            *
     4765   01 0124B    6AF01263     T1176    BAL,15   T1178
     4766   01 0124C    02000001 A            DATA     X'02000001'       FLAGS    = SIL
     4767   01 0124D    00000050 A            DATA     X'00000050'       MS OSB   = IL,CE
     4768   01 0124E    00000000 A            DATA     X'0'              TERM ORD = 0
     4769   01 0124F    00800000 A            DATA     X'00800000'       IOP OSB = IL
     4770   01 01250    6AF0036D              BAL,15   ERROR
     4771   01 01251    6AF0039D              BAL,15   RECUR
     4772                            *
     4773   01 01252    331012AA     T1177    MTW,1    PASSFLG
     4774   01 01253    6AF01263              BAL,15   T1178
     4775   01 01254    20000001 A            DATA     X'20000001'       FLAGS    = CC
     4776   01 01255    00000020 A            DATA     X'00000020'       MS OSB   = CM
     4777   01 01256    00000000 A            DATA     0
     4778                            *
     4779   01 01257    331003F9              MTW,1    TEMPA             ERR WORD 1 = 3
     4780   01 01258    22400001 A            LI,4     1
     4781   01 01259    354003FA              STW,4    TEMPB             ERR WORD 2 = ORDER EXPECTED
     4782   01 0125A    6AF0055E              BAL,15   ORDOUT            SINGLE PHASE THRU ORDER OUT
     4783   01 0125B    EC400411              RD,4     *GPA2             READ FOR ORDER
     4784   01 0125C    4B403038              AND,4    =X'FF'            ERR WORD 3 = ORDER RECEIVED
     4785   01 0125D    354003FB              STW,4    TEMPC
     4786   01 0125E    314003FA              CW,4     TEMPB             DOES ORDER EXPECTED = ORDER RECEIVED
     4787   01 0125F    68301261              BCR,3    %+2               IF SO, BRANCH
     4788   01 01260    6AF0036D     T1177E   BAL,15   ERROR
     4789   01 01261    6AF0039D              BAL,15   RECUR
     4790   01 01262    680012AB              B        T118              PROCEED TO NEXT TEST
     4791                            *
     4792                            *
     4793   01 01263    35F01287     T1178    STW,15   T117A             SAVE RETURN FOR POINTING
     4794   01 01264    B2401287              LW,4     *T117A            FETCH FLAGS AND BC FOR THIS SUB
     4795   01 01265    35401271              STW,4    T117B             SET FLAGS AND BC
     4796                            *
     4797   01 01266    33101287              MTW,1    T117A             INCREMENT POINTER
     4798   01 01267    B2401287              LW,4     *T117A            FETCH MS OP. STATUS BYTE
     4799   01 01268    35401275              STW,4    T117C             STORE OSB
     4800                            *
     4801   01 01269    6AF00495              BAL,15   %RSET             SET STANDARD REGISTER VALUES
     4802   01 0126A    351003F9              STW,1    TEMPA             ERR WORD 1 = 1
     4803                            *
     4804   01 0126B    33101287              MTW,1    T117A             INCREMENT POINTER
     4805   01 0126C    B2401287              LW,4     *T117A            FETCH TERMINAL ORDER EXPECTED
     4806   01 0126D    354003FA              STW,4    TEMPB             ERR WORD 2 = TERMINAL ORD EXPECTED
     4807                            *
     4808   01 0126E    6AF004A8              BAL,15   %IORSTX           I/O RESET, (NOT IIOP MODE)
     4809   01 0126F    6AF00533              BAL,15   SIOSUB            SINGLE PHASE THRU SIO
     4810   01 01270    01000548              GEN,8,24 1,BA(ONEBYTE)      C O M M A N D
     4811   01 01271    00000000 A   T117B    DATA     0                                  D O U B L E W O R D
     4812   01 01272    6AF0055E              BAL,15   ORDOUT            SINGLE PHASE THRU ORDER OUT
     4813   01 01273    6AF01288              BAL,15   DATAOUT           SINGLE PHASE THRU DATA OUT
     4814   01 01274    6AF01296              BAL,15   ORDIN             SINGLE PHASE THRU ORDER IN
     4815   01 01275    00000000 A   T117C    DATA     0                 MS OPERATIONAL STATUS BYTE TO SIOP
     4816                            *
     4817   01 01276    EC400413              RD,4     *GPA4             READ FOR TERMINAL ORDER
     4818   01 01277    354003FB              STW,4    TEMPC             ERR WORD 3 = T.O. EXPECTED
     4819   01 01278    314003FA              CW,4     TEMPB             DOES TO EXPECTED = TO RECEIVED
     4820   01 01279    69301284              BCS,3    T1178E            BRANCH IF NOT
     4821                            *
     4822   01 0127A    331003F9              MTW,1    TEMPA             ERR WORD 1 = 2
     4823   01 0127B    33101287              MTW,1    T117A             INCREMENT POINTER
     4824   01 0127C    B2401287              LW,4     *T117A            FETCH IOP STATUS EXPECTED
     4825   01 0127D    354003FA              STW,4    TEMPB             ERR WORD 2 = STATUS EXPECTED
     4826                            *
     4827   01 0127E    6AF004B3              BAL,15   %IORSTYP
     4828   01 0127F    CDD0040D              TIO,13   *IOPT             (EXECUTED BY TTHSUB)
     4829   01 01280    4BD03046              AND,13   =X'FF0000'        MASK FOR IOP STATUS BITS
     4830   01 01281    35D003FB              STW,13   TEMPC             ERR WORD 3 = STATUS RECEIVED
     4831   01 01282    31D003FA              CW,13    TEMPB             DOES STATUS EXP. = STATUS RECEIVED
     4832   01 01283    69301285              BCS,3    %+2               BRANCH IF NOT
     4833   01 01284    33101287     T1178E   MTW,1    T117A             INCREMENT POINTER
     4834   01 01285    33101287              MTW,1    T117A             INCREMENT POINTER
     4835   01 01286    E8001287              B        *T117A            RETURN TO CALLING ROUTINE
     4836                            *
     4837   01 01287    00000000 A   T117A    DATA     0
     4838                            *
     4839                            *
     4840                            *
     4841                            *
     4842                            *        DATA OUT SUBROUTINE
     4843                            *
     4844   01 01288    35F00525     DATAOUT  STW,15   SIOSAVE           SAVE R15 FOR RETURN
     4845   01 01289    6AF00495              BAL,15   %RSET             R1=1, R2=2, R3=3, R0=0
     4846   01 0128A    ED000418              WD,0     *GPA9             SPECIFY ONEBYTE WIDE INTERFACE
     4847   01 0128B    22400004 A            LI,4     4
     4848   01 0128C    ED40041A              WD,4     *GPAB             ENABLE SERVICE CALL
     4849   01 0128D    225FFFFE A            LI,5     -2
     4850   01 0128E    6AF004BD              BAL,15   PHASNAP           FIO1 AND FM01
     4851   01 0128F    35000521              STW,0    NEWLINE           INHIBIT NEWLINES
     4852   01 01290    225FFFFD A            LI,5     -3
     4853   01 01291    6AF004BD              BAL,15   PHASNAP           FI11, FM21 AND FM22
     4854   01 01292    225FFFFE A            LI,5     -2
     4855   01 01293    6AF004BD              BAL,15   PHASNAP           FI12 AND FM41
     4856   01 01294    35100521              STW,1    NEWLINE           ENABLE NEWLINES
     4857   01 01295    E8000525              B        *SIOSAVE          RETURN TO CALLING ROUTINE
     4858                            *
     4859                            *
     4860                            *
     4861                            *
     4862                            *
     4863                            *
     4864                            *        ORDER IN SUBROUTINE
     4865                            *
     4866                            *
     4867   01 01296    35F00525     ORDIN    STW,15   SIOSAVE           SAVE LINK
     4868   01 01297    6AF00495              BAL,15   %RSET             SET REGISTER VALUES
     4869   01 01298    330012AA              MTW,0    PASSFLG
     4870   01 01299    683012A0              BCR,3    %+7
     4871                            *
     4872   01 0129A    350012AA              STW,0    PASSFLG
     4873   01 0129B    32401287              LW,4     T117A
     4874   01 0129C    35400525              STW,4    SIOSAVE           SKIP T.O. AND STATUS CHECK
     4875   01 0129D    2240C000 A            LI,4     X'C000'
     4876   01 0129E    3040051E              AW,4     TESTCHAN          PRESERVE PROGRAMMED ADDRESS REGISTER
     4877   01 0129F    ED400419              WD,4     *GPAA             SET IIOP MODE
     4878                            *
     4879   01 012A0    225FFFFE A            LI,5     -2
     4880   01 012A1    6AF004BD              BAL,15   PHASNAP           FI01 AND FM01
     4881   01 012A2    35000521              STW,0    NEWLINE           INHIBIT NEWLINES
     4882   01 012A3    32401275              LW,4     T117C             FETCH OSB
     4883   01 012A4    ED400418              WD,4     *GPA9             SET OSB IN MS
     4884   01 012A5    225FFFFE A            LI,5     -2
     4885   01 012A6    6AF004BD              BAL,15   PHASNAP           FI11 AND FM41
     4886   01 012A7    35100521              STW,1    NEWLINE           RE-ENABLE NEWLINES
     4887   01 012A8    33100525              MTW,1    SIOSAVE
     4888   01 012A9    E8000525              B        *SIOSAVE          RETURN TO CALLING ROUTINE
     4889                            *
     4890   01 012AA    00000000 A   PASSFLG  DATA     0
     4891                            *
     4892                            *
     4893                            *
     4894                            *
     4895                            *
     4896                            *
     4897                            *
     4898                            *
     4899                            *
     4900                            *
     4901                            ******** T118     TEST TRANSFER IN CHANNEL *****************************
     4902                            *
     4903                            *
     4904                            *                 M E T H O D :
     4905                            *
     4906                            *                 AN SIO IS EXECUTED SPECIFYING TRANSFER IN CHANNEL.
     4907                            *                 THE SIOP IS SINGLE PHASED THRU THE SIO.
     4908                            *                 SERVICE CALL IS ENABLED FOR THE ORDER OUT.
     4909                            *                 THE SIOP IS SINGLE PHASED THRU THE ORDER OUT.
     4910                            *                 THE ORDER AND TERMINAL ORDER ARE VERIFIED IN THE MS.
     4911                            *
     4912                            *                 SUBTEST ONE AND SUBTEST TWO ARE IDENTICAL WITH THE
     4913                            *                 EXCECTION OF THE CA SPECIFIED IN THE TRANSFER COMMAND.
     4914                            *                 THE CA SPECIFIED IN SUBTEST ONE IS THE DA OF TSTSIO,
     4915                            *                 (ORDER = B1).  THE CA SPECIFIED IN SUBTEST TWO IS THE
     4916                            *                 DA OF THE TIC COMMAND ITSELF RESULTING IN THE ILLEGAL
     4917                            *                 EXECUTION OF TWO CONSECUTIVE TIC COMMANDS,(IOPH SHOULD
     4918                            *                 BE RETURNED IN THE TERMINAL ORDER).
     4919                            *
     4920                            *
     4921                            *
     4922                            *
     4923                            *                 R E A S O N   F O R   E R R O R :
     4924                            *
     4925                            *                 AN INCORRECT ORDER OR TERMINAL ORDER WAS DETECTED IN
     4926                            *                 THE MAINTENANCE SUBCONTROLLER.
     4927                            *
     4928                            *
     4929                            *                 E R R O R   I N D I C A T I O N :
     4930                            *
     4931                            *        ERROR WORD 1 = 1  INCORRECT ORDER
     4932                            *        ERROR WORD 2 = ORDER EXPECTED
     4933                            *        ERROR WORD 3 = ORDER RECEIVED
     4934                            *
     4935                            *        ERROR WORD 1 = 2  INCORRECT TERMINAL ORDER
     4936                            *        ERROR WORD 2 = TERMINAL ORDER EXPECTED
     4937                            *        ERROR WORD 3 = TERMINAL ORDER RECEIVED
     4938                            *
     4939                            *
     4940                            *
     4941                            *
     4942                            *
     4943                            *
     4944                            *
     4945                            *
     4946                            *
     4947   01 012AB    6AF00347     T118     BAL,15   LOOK
     4948   01 012AC    00000012 A            DATA     18
     4949                            *
     4950   01 012AD    6AF012BA     T1181    BAL,15   T1183             BRANCH TO EXECUTION SUBROUTINE
     4951   01 012AE    000000A1              DATA     DA(TSTSIO)        COMMAND ADDRESS FOR TIC
     4952   01 012AF    000000B1 A            DATA     X'B1'             ORDER EXPECTED
     4953   01 012B0    00000000 A            DATA     0                 T.O. EXPECTED
     4954   01 012B1    6AF0036D              BAL,15   ERROR
     4955   01 012B2    6AF0039D              BAL,15   RECUR
     4956                            *
     4957   01 012B3    6AF012BA     T1182    BAL,15   T1183             BRANCH TO EXECUTION SUBROUTINE
     4958   01 012B4    000000A0              DATA     DA(SIODBWRD)      CA FOR TIC
     4959   01 012B5    00000008 A            DATA     8                 ORDER EXPECTED
     4960   01 012B6    00000010 A            DATA     X'10'             T.O. EXPECTED
     4961   01 012B7    6AF0036D              BAL,15   ERROR
     4962   01 012B8    6AF0039D              BAL,15   RECUR
     4963   01 012B9    680012E2              B        T119
     4964                            *
     4965                            *
     4966   01 012BA    35F012DF     T1183    STW,15   T118A             SAVE R15 FOR RETURN AND POINTING
     4967   01 012BB    B24012DF              LW,4     *T118A            FETCH CA FOR THIS TIC
     4968   01 012BC    3040303E              AW,4     =X'08000000'      ADD TIC COMMAND
     4969   01 012BD    354012C7              STW,4    T118B
     4970   01 012BE    331012DF              MTW,1    T118A             INCREMENT POINTER
     4971                            *
     4972   01 012BF    B24012DF              LW,4     *T118A            FETCH ORDER EXPECTED
     4973   01 012C0    354012E0              STW,4    T118C
     4974   01 012C1    331012DF              MTW,1    T118A             INCREMENT POINTER
     4975                            *
     4976   01 012C2    B24012DF              LW,4     *T118A            FETCH T.O. EXPECTED
     4977   01 012C3    354012E1              STW,4    T118D
     4978   01 012C4    331012DF              MTW,1    T118A             T118A NOW POINTS TO ERR RETURN
     4979                            *
     4980   01 012C5    6AF004A8              BAL,15   %IORSTX           RESET I/O, SET NOT IIOP MODE
     4981   01 012C6    6AF00533              BAL,15   SIOSUB
     4982   01 012C7    00000000 A   T118B    DATA     0
     4983   01 012C8    00000000 A            DATA     0
     4984                            *
     4985   01 012C9    224FFFF8 A            LI,4     -8
     4986   01 012CA    3540055D              STW,4    OUTFLG            SET FM PHASE COUNT
     4987   01 012CB    6AF0055E              BAL,15   ORDOUT            SINGLE PHASE THRU ORDER OUT
     4988                            *
     4989   01 012CC    6AF00495              BAL,15   %RSET             R0=0, R1=1, R2=2 AND R3=3
     4990   01 012CD    351003F9              STW,1    TEMPA             ERR WORD 1 = 1
     4991   01 012CE    324012E0              LW,4     T118C             FETCH ORDER EXPECTED
     4992   01 012CF    354003FA              STW,4    TEMPB             ERR WORD 2 = ORDER EXPECTED
     4993                            *
     4994   01 012D0    EC400411              RD,4     *GPA2             READ FOR ORDER
     4995   01 012D1    4B403038              AND,4    =X'FF'            MASK
     4996   01 012D2    354003FB              STW,4    TEMPC             ERR WORD 3 = ORDER RECEIVED
     4997   01 012D3    314003FA              CW,4     TEMPB             WAS ORDER CORRECT
     4998   01 012D4    E93012DF              BCS,3    *T118A            BRANCH IF NOT
     4999                            *
     5000   01 012D5    352003F9              STW,2    TEMPA             ERR WORD 1 = 2
     5001   01 012D6    324012E1              LW,4     T118D             FETCH T.O. EXPECTED
     5002   01 012D7    354003FA              STW,4    TEMPB             ERR WORD 2 = T.O. EXPECTED
     5003                            *
     5004   01 012D8    EC400413              RD,4     *GPA4             READ FOR T.O.
     5005   01 012D9    4B403038              AND,4    =X'FF'            MASK FOR T.O.
     5006   01 012DA    354003FB              STW,4    TEMPC             ERR WORD 3 = T.O. RECEIVED
     5007   01 012DB    314003FA              CW,4     TEMPB             WAS T.O. CORRECT
     5008   01 012DC    E93012DF              BCS,3    *T118A            BRANCH IF NOT
     5009   01 012DD    331012DF              MTW,1    T118A             INCREMENT RETURN
     5010   01 012DE    E80012DF              B        *T118A            RETURN
     5011                            *
     5012                            *
     5013   01 012DF    00000000 A   T118A    DATA     0                 POINTER/RETURN
     5014   01 012E0    00000000 A   T118C    DATA     0                 TEMP STORAGE:  ORDER EXPECTED
     5015   01 012E1    00000000 A   T118D    DATA     0                 TEMP STORAGE:  T.O.  EXPECTED
     5016                            *
     5017                            *
     5018                            *
     5019                            *
     5020                            *
     5021                            *
     5022                            *
     5023                            *
     5024                            *
     5025                            ******** T119     INTERRUPT TEST ***************************************
     5026                            *
     5027                            *                 M E T H O D :
     5028                            *
     5029                            *        SUBTEST
     5030                            *          ONE   :  SAME AS SUBTEST SEVEN OF T117, EXCEPT FLAGS
     5031                            *                   ARE IUE AND ICE INSTEAD OF CC.
     5032                            *
     5033                            *
     5034                            *        SUBTEST
     5035                            *          TWO   : INTERRUPT IS ENABLED IN THE MS.
     5036                            *                  THE SIOP IS SINGLE PHASED THRU AIO AND THE IOP STATUS
     5037                            *                  RETURNED IS VERIFIED.
     5038                            *
     5039                            *
     5040                            *
     5041                            *
     5042                            *                 R E A S O N   F O R   E R R O R :
     5043                            *
     5044                            *
     5045                            *        SUBTEST
     5046                            *          ONE   :  NONE
     5047                            *
     5048                            *
     5049                            *        SUBTEST
     5050                            *          TWO   :  INCORRECT INTERRUPT STATUS FETCHED BY AIO.
     5051                            *
     5052                            *
     5053                            *
     5054                            *
     5055                            *                 E R R O R   I N D I C A T I O N :
     5056                            *
     5057                            *        SUBTEST
     5058                            *          ONE   :  NONE
     5059                            *
     5060                            *
     5061                            *        SUBTEST
     5062                            *          TWO   :
     5063                            *
     5064                            *        ERROR WORD 1 = 3  AIO STATUS INCORRECT
     5065                            *        ERROR WORD 2 = STATUS EXPECTED
     5066                            *        ERROR WORD 3 = STATUS RECEIVED
     5067                            *
     5068                            *
     5069                            *
     5070                            *
     5071                            *
     5072   01 012E2    6AF00347     T119     BAL,15   LOOK
     5073   01 012E3    00000013 A            DATA     19
     5074                            *
     5075   01 012E4    331012AA     T1191    MTW,1    PASSFLG
     5076   01 012E5    6AF01263              BAL,15   T1178
     5077   01 012E6    14000001 A            DATA     X'14000001'       FLAGS = ICE AND IUE, BC = 1
     5078   01 012E7    00000018 A            DATA     X'00000018'       MS OP.STAT.BYTE = CE AND UE
     5079   01 012E8    00000000 A            DATA     0
     5080                            *
     5081   01 012E9    22400003 A   T1192    LI,4     3
     5082   01 012EA    354003F9              STW,4    TEMPA             ERR WORD 1 = 3
     5083   01 012EB    22400002 A            LI,4     2
     5084   01 012EC    3540044B              STW,4    SUBT
     5085   01 012ED    22400004 A            LI,4     4
     5086   01 012EE    ED40041A              WD,4     *GPAB             ENABLE INTERRUPT
     5087   01 012EF    3240040D              LW,4     IOPT
     5088   01 012F0    4B403048              AND,4    =X'7FFFFFFF'
     5089   01 012F1    30403049              AW,4     =X'18180000'
     5090   01 012F2    354003FA              STW,4    TEMPB             ERR WORD 2 = STATUS EXPECTED
     5091   01 012F3    32400401              LW,4     IOPINS
     5092   01 012F4    354003FB              STW,4    TEMPC             ERR WORD 3 = STATUS RECEIVED
     5093                            *
     5094   01 012F5    314003FA              CW,4     TEMPB             WAS STATUS CORRECT
     5095   01 012F6    683012F8              BCR,3    %+2               IF SO, BRANCH
     5096   01 012F7    6AF0036D              BAL,15   ERROR
     5097   01 012F8    6AF0039D              BAL,15   RECUR
     5098   01 012F9    680012FA              B        T120
     5099                            *
     5100                            *
     5101                            *
     5102                            *
     5103                            *
     5104                            *
     5105                            *
     5106                            *
     5107                            *
     5108                            *
     5109                            *
     5110                            *
     5111                            *
     5112                            *
     5113   01 012FA    680012FB     T120     B        T121
     5114   01 012FB    680012FC     T121     B        T122
     5115   01 012FC    680012FD     T122     B        T123
     5116   01 012FD    680012FE     T123     B        T124
     5117   01 012FE    680012FF     T124     B        T125
     5118   01 012FF    68001300     T125     B        T126
     5119   01 01300    68001301     T126     B        T127
     5120   01 01301    68001302     T127     B        T128
     5121   01 01302    68001303     T128     B        T129
     5122   01 01303    68001304     T129     B        T130
     5123   01 01304    68001305     T130     B        T131
     5124   01 01305    68001306     T131     B        T132
     5125   01 01306    68001307     T132     B        T133
     5126   01 01307    68001308     T133     B        T134
     5127   01 01308    68001309     T134     B        T135
     5128   01 01309    6800130A     T135     B        T136
     5129   01 0130A    6800130B     T136     B        T137
     5130   01 0130B    6800130C     T137     B        T138
     5131   01 0130C    6800130D     T138     B        T139
     5132   01 0130D    6800130E     T139     B        T140
     5133   01 0130E    6800130F     T140     B        T141
     5134   01 0130F    68001310     T141     B        T142
     5135   01 01310    68001311     T142     B        T143
     5136   01 01311    68001312     T143     B        T144
     5137   01 01312    68001313     T144     B        T145
     5138   01 01313    68001314     T145     B        T146
     5139   01 01314    68001315     T146     B        T147
     5140   01 01315    68001316     T147     B        T148
     5141   01 01316    68001317     T148     B        T149
     5142   01 01317    68001318     T149     B        T150
     5143   01 01318    68001319     T150     B        T151
     5144   01 01319    6800131A     T151     B        T152
     5145   01 0131A    6800131B     T152     B        T153
     5146   01 0131B    6800131C     T153     B        T154
     5147   01 0131C    6800131D     T154     B        T155
     5148   01 0131D    6800131E     T155     B        T156
     5149   01 0131E    6800131F     T156     B        T157
     5150   01 0131F    68001320     T157     B        T158
     5151   01 01320    68001321     T158     B        T159
     5152   01 01321    68001322     T159     B        T160
     5153   01 01322    68001323     T160     B        T161
     5154   01 01323    68001324     T161     B        T162
     5155   01 01324    68001325     T162     B        T163
     5156   01 01325    68001326     T163     B        T164
     5157                            *                                                                       MIOP5220
     5158                            *                                                                       MIOP5230
     5159   01 01326    6C000000 A   T164     RD,0     0
     5160   01 01327    6920132E              BCS,2    T1642             BRANCH IF TYPEOUT INHIBIT IS SET
     5161                            *
     5162   01 01328    3270040D     T1641    LW,7     IOPT              TYPEOUT TEST COMPLETED MESSAGE
     5163   01 01329    25700010 A            SLS,7    16
     5164   01 0132A    6AF003BE              BAL,15   CON
     5165   01 0132B    3560092E              STW,6    EN4+6
     5166   01 0132C    22000466              LI,0     DA(%CP04)         DEDICATE R0 TO COMMAND ADDRESS
     5167   01 0132D    6AF00866              BAL,15   OUTYPE            OUTPUT TEST COMPLETED MESSAGE
     5168                            *
     5169   01 0132E    3270040D     T1642    LW,7     IOPT              CHECK SUBCHANNEL LIMITS
     5170   01 0132F    71700402              CB,7     LOWSUB
     5171   01 01330    68301336              BCR,3    T1644
     5172   01 01331    33F0040D              MTW,15   IOPT
     5173                            *
     5174   01 01332    3220040D     T1643    LW,2     IOPT              SET NEW SUBCHANNEL AND LOOP
     5175   01 01333    4B20304A              AND,2    =X'7F'
     5176   01 01334    3520051E              STW,2    TESTCHAN
     5177   01 01335    68000E62              B        T100
     5178                            *
     5179   01 01336    3210040E     T1644    LW,1     IOPT+1            RESTORE STARTING SUBCHANNEL
     5180   01 01337    3510040D              STW,1    IOPT
     5181   01 01338    68001332              B        T1643
     5182                            *
     5183                            *
     5184                            * THE FOLLOWING LINE NUMBERS ARE NOT IN SEQUENTIAL ORDER DUE TO THE
     5185                            * PRINT SUPPRESSION OF THE COOKBOOK COMPARE DATA.
     5186                                     LIST     0
     5930   01 0300D    00000000 A            DATA     0
     5931   01 0300E    00000000 A            DATA     0
     5932   01 0300F    00000000 A            DATA     0
     5933   01 03010    00000000 A            DATA     0
     5934   01 03011    00000000 A            DATA     0
     5935   01 03012    00000000 A            DATA     0
     5936   01 03013    00000000 A            DATA     0
     5937   01 03014    00000000 A            DATA     0
     5938   01 03015    00000000 A            DATA     0
     5939   01 03016    00000000 A            DATA     0
     5940   01 03017    00000000 A            DATA     0
     5941   01 03018    00000000 A            DATA     0
     5942         01 03CD1           %INBUFF  EQU      %+3256
     5943         01 03119           OUTBUFF  EQU      %+256
     5944         01 00239                    END      START
            01 03019    00000001 A
            01 0301A    FFFFFFFF A
            01 0301B    00000000 A
            01 0301C    0000000F A
            01 0301D    FFFFF000 A
            01 0301E    00C4C9D6 A
            01 0301F    00D6E4E3 A
            01 03020    FFFFFF00 A
            01 03021    000000F0 A
            01 03022    F0F0FFFF A
            01 03023    80000000 A
            01 03024    0000000A A
            01 03025    FF0000FF A
            01 03026    F0F015C5 A
            01 03027    FFFFFFFE A
            01 03028    FFFFFFFC A
            01 03029    40404040 A
            01 0302A    150D0D0D A
            01 0302B    15150D0D A
            01 0302C    00000010 A
            01 0302D    00000008 A
            01 0302E    F0000000 A
            01 0302F    F9000000 A
            01 03030    406E4040 A
            01 03031    406E405C A
            01 03032    4040405C A
            01 03033    0000406E A
            01 03034    05000000 A
            01 03035    01000000 A
            01 03036    00000054 A
            01 03037    02000000 A
            01 03038    000000FF A
            01 03039    00000700 A
            01 0303A    0000D000 A
            01 0303B    00000004 A
            01 0303C    00000002 A
            01 0303D    FFFF0000 A
            01 0303E    08000000 A
            01 0303F    00001000 A
            01 03040    00004000 A
            01 03041    00005000 A
            01 03042    0000FF00 A
            01 03043    00002000 A
            01 03044    80000008 A
            01 03045    FFF60000 A
            01 03046    00FF0000 A
            01 03047    0000FFFF A
            01 03048    7FFFFFFF A
            01 03049    18180000 A
            01 0304A    0000007F A

  CONTROL SECTION SUMMARY: 01 0304B   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   22:11 JUN 20,'83    SIGMA 5/7 SIOP WITH M. S. 960-0061-1A 08-04-81                        PAGE    3
A  ADDATA           920/STW     1004/STW     1275/MTW     1333/MTW     1391-DATA
   ADDEM           1276/BCS     1344-LW
   BADOP            507/LW       510/MTW      511/LPSD    1087-DATA    1091/XPSD
   BADOP1           502-STW     1089/DATA
   BCSAVE          3496/STW     3512/LW      3549-DATA
   BLOOP           1671-LI      1680/BCR
   BUFFCYCL        1558/STW     1732/STW     1743/LW      1912-DATA
   BUFFLINE        1557/STW     1726/STW     1731/STW     1751/LW*     1756/STW*    1911-DATA
   BUFFSTRT        1559/STW     1744/STW     1788/LW      1800/LH*     1804/LW      1819/AWM     1827/LW
      1836/LH*     1840/LW      1855/AWM     1913-DATA
   BUFFWORD        1556/STW     1586/LW*     1594/CW      1601/MTW     1721/MTW     1724/MTW     1725/LW
      1729/MTW     1730/LW      1757/MTW     1758/LW*     1764/STW*    1765/MTW     1910-DATA
   BYTEADDR        2153/STW     2163/LW      2169/AW      2180/STW     2330-DATA    2336/STW     2358/LW
      2365/AW      2379/STW
   BYTECNT          983/LW      1332/STW     1344/LW      1560/LW      2154/LW      2304/LW      2515/LW
      2520/STW     2632-DATA    4177/STW
   BYTEM           1304-RD      1315/BIR
   C:ADR            657/CW      1119-DATA
   C:RUN            689/CW      1120-DATA
   CBFLG            548-DATA     550/MTW      552/MTW      560/MTW     1020/MTW     2946/MTW     2956/MTW
      2967/MTW     2978/MTW     3093/MTW     3246/MTW     3397/MTW     3472/MTW     3725/MTW
   CIMPLNT         1647-STW     3481/BAL     3483/BAL     3485/BAL     3487/BAL     3489/BAL     3491/BAL
   CI1K            2209/BCS     2242-CI
   CI1L            2398/BCS     2431-CI
   CI2K            2243/BCS     2252-CI
   CI2L            2432/BCS     2441-CI
   CI3K            2253/BCS     2268-CI
   CI3L            2442/BCS     2457-CI
   CI4K            2269/BCS     2273-LW
   CI4L            2458/BCS     2462-LW
   CLOCKEM         1328/BIR     1340-LI
   CMNDADDR        3477/STW     3479/LW      3480/LW      3509/LW      3527/CW      3534/LW      3536/STW
      3543/LW      3548-DATA
   COMPARE         1526-LI      2145/BCS
   COMPERR         1527/STW     1738/MTW     1748/STW     1774/MTW     1914-DATA
   COMPFLAG         699/STW      770/STW     2077-DATA    2144/MTW
   COMPOUT         1595/BCR     1772-LW
   COMPOUTL        1781/BCS     1784/BCS     1825-BAL
   CON              970/BAL      974/BAL      978/BAL     1040-STW     5164/BAL
   CONIN            558/LPSD    1070-DATA    1097/XPSD
   CONIN1           549-STW     1070/DATA
   CONVERT         1308/BCS     1355-SW
   CON1            1040/STW     1062/BAL*    1064-DATA
   CON2            1043-LW      1058/BIR
   CON3            1046-LW      1054/BIR
   CON4            1056/BCS     1059-LW
   CON5            1057/STW     1059/LW      1065-DATA
   CON6            1041/STW     1061/LW      1066-DATA
   COOK             547-BAL      561/LW
   COOKADDR        1547/LW      1942-DATA
   COOKBUFF        1863/LI      1878/LI      1889/LI      1920-DATA
   COOKCHNG         556/STW     1009-B       1031/BCS     1035/B
   COOKCYCL        1553/STW     1735/STW     1745/LW      1908-DATA
   COOKFLAG        1810/MTW     1813/STW     1846/MTW     1849/STW     1866/MTW     1915-DATA
   COOKLOOP        1868-LW      1872/BIR
   COOKOUT         1803/BAL     1839/BAL     1862-STW
   COOKOUTL        1875/BCS     1887-LI
   COOKRET          556-STW      562/B
   COOKSTRT        1554/STW     1746/STW     1817/AWM     1853/AWM     1868/LW*     1909-DATA
   COOKWORD        1552/STW     1573/LW*     1581/STW*    1597/LW*     1600/MTW     1734/LW      1766/MTW
      1907-DATA
   COSAVE          1861-DATA    1862/STW     1885/B*      1894/B*
   CPLNTSAV        1646-DATA    1647/STW     1649/LW*     1652/MTW     1653/B*
   CYCLINDX        1528/STW     1733/MTW     1741/LW      1773/STW     1777/STW     2076-DATA    2151/STW
      2207/LW      2291/MTW     2301/STW     2396/LW      2477/MTW
   DATAOUT         4690/BAL     4813/BAL     4844-STW
   DEC             1307/CW      1355/SW      1374-DATA
   DEVSEL           807/STW      988-BAL
   DINPAT          4281/LW      4294/LW      4305-DATA    4358/LW      4373/LW      4435/LW      4454/LW
      4506/LW      4525/LW
   DINPUT           479-DATA    4262/GEN     4267/STW     4283/LW      4296/LW      4338/GEN     4349/STW
      4350/STW     4360/LW      4375/LW      4409/GEN     4420/STW     4421/STW     4437/LW      4456/LW
      4483/GEN     4492/STW     4493/STW     4508/LW      4527/LW      4560/GEN     4569/STW     4570/STW
      4585/LW      4605/LW
   DISPFLAG        2075-DATA    2303/STW     2321/STW     2346/MTW     2370/MTW
   DISPGRP         1293/STW     1302/AWM     1304/RD*     1388-DATA
   DWCMNDAK        2265/LI      2643-GEN
   DWCMNDAL        2454/LI      2680-GEN
   DWCMNDBK        2263/LI      2645-GEN
   DWCMNDBL        2452/LI      2682-GEN
   DWCMNDCK        2270/LI      2647-GEN
   DWCMNDCL        2459/LI      2684-GEN
   DWCMNDDK        2278/LI      2649-GEN
   DWCMNDDL        2467/LI      2686-GEN
   DWCMNDEK        1807/STW     1808/LI      1843/STW     1844/LI      1880/STW     1881/LI      1891/STW
      1892/LI      2165/STW     2166/LI      2651-DATA
   DWCMNDEL        2473/LI      2688-GEN
   DWCMNDET        2117/LI      2657-GEN
   DWCMNDE1        2119/LI      2659-GEN
   DWCMNDE2        2121/LI      2661-GEN
   DWCMNDE3        2123/LI      2663-GEN
   DWCMND1K        1798/LI      1814/LI      1876/LI      1883/LI      2085/LI      2091/LI      2174/LI
      2182/LI      2184/LI      2186/LI      2188/LI      2190/LI      2201/LI      2203/LI      2205/LI
      2281/LI      2283/LI      2287/LI      2289/LI      2625-GEN
   DWCMND1L        1850/LI      1887/LI      2096/LI      2103/LI      2312/LI      2314/LI      2316/LI
      2318/LI      2374/LI      2392/LI      2394/LI      2471/LI      2475/LI      2666-GEN
   DWCMND2K        2088/LI      2627-GEN
   DWCMND2L        2345/STW     2360/STW     2361/LI      2668-DATA
   DWCMND3K        2285/LI      2629-GEN
   DWCMND4K        2631-GEN
   DWCMND5K        2214/LI      2229/LI      2633-GEN
   DWCMND5L        2403/LI      2418/LI      2670-GEN
   DWCMND6K        2220/LI      2233/LI      2635-GEN
   DWCMND6L        2409/LI      2422/LI      2672-GEN
   DWCMND7K        2224/LI      2237/LI      2637-GEN
   DWCMND7L        2413/LI      2426/LI      2674-GEN
   DWCMND8K        2239/LI      2247/LI      2257/LI      2639-GEN
   DWCMND8L        2428/LI      2436/LI      2446/LI      2676-GEN
   DWCMND9K        2249/LI      2276/LI      2641-GEN
   DWCMND9L        2438/LI      2465/LI      2678-GEN
   EBCTOHEX         789/BAL      819/BAL     1574/BAL     1577/BAL     1638/BAL     1651/BAL     1666-STW
   ENDFLAG         2513/STW     2542/STW     2547/MTW     2603-DATA
   EN4             2620/GEN     2724-DATA    5165/STW
   ERRCYCLE        1742/STW     1772/LW      1917-DATA
   ERROR            547/BAL      940-STW     2958/BAL     2980/BAL     3060/BAL     3128/BAL     3221/BAL
      3362/BAL     3421/BAL     3529/BAL     3777/BAL     3838/BAL     3843/BAL     3848/BAL     3956/BAL
      3962/BAL     3968/BAL     3974/BAL     4095/BAL     4110/BAL     4199/BAL     4300/BAL     4379/BAL
      4460/BAL     4531/BAL     4609/BAL     4728/BAL     4738/BAL     4746/BAL     4754/BAL     4762/BAL
      4770/BAL     4788/BAL     4954/BAL     4961/BAL     5096/BAL
   ERR1             940/STW      943/BCS*     990/B*       993-DATA
   ERR3             952-OR
   EVENFLAG        1405-DATA    1435/MTW     1438/STW     1467/MTW     1471/STW     2971/MTW     3411/MTW
   EXITFLAG        2508/STW     2519/STW     2552/MTW     2604-DATA
   FIFLG            535/MTW     1323/MTW     1325/MTW     1336/STW     1392-DATA    1414/STW     1434/MTW
      1466/MTW     3048/MTW     3354/MTW     3406/MTW     3500/MTW     3517/STW     3679/MTW     3692/MTW
      3705/MTW     4103/MTW     4719/MTW
   F0              1051/LW      1170-DATA
   GPAA             824/WD*     1133-DATA    1241/WD*     1255/WD*     1265/WD*     3116/WD*     3754/WD*
      3768/WD*     4877/WD*
   GPAB            1134-DATA    1493/WD*     3310/WD*     3656/WD*     3875/WD*     3996/WD*     4269/WD*
      4344/WD*     4415/WD*     4488/WD*     4565/WD*     4697/WD*     4848/WD*     5086/WD*
   GPAC             825/WD*     1135-DATA    1243/WD*     3194/WD*     3200/WD*     3206/WD*     3212/WD*
   GPA0             831/STW      834/LW      1123-DATA
   GPA1            1124-DATA
   GPA2            1125-DATA    3344/RD*     3722/RD*     4783/RD*     4994/RD*
   GPA3            1126-DATA    3046/WD*     3053/RD*     3308/WD*     3319/RD*     3330/WD*     3336/RD*
      3353/WD*     3358/RD*     3654/WD*     3662/RD*     3707/WD*     3714/RD*     4693/WD*     4702/RD*
      4708/WD*     4714/RD*     4720/WD*     4724/RD*
   GPA4            1127-DATA    3761/RD*     3894/RD*     4012/RD*     4817/RD*     5004/RD*
   GPA5            1128-DATA    4019/RD*
   GPA6            1129-DATA
   GPA7            1130-DATA
   GPA8            1131-DATA
   GPA9            1132-DATA    3644/WD*     3867/WD*     3987/WD*     4168/WD*     4259/WD*     4275/WD*
      4289/WD*     4336/WD*     4352/WD*     4366/WD*     4406/WD*     4424/WD*     4443/WD*     4481/WD*
      4495/WD*     4514/WD*     4558/WD*     4572/WD*     4591/WD*     4707/WD*     4846/WD*     4883/WD*
   GROUPEM         1296-LI      1318/BIR
   GRPA            1146-DATA    1530/RD*
   GRP0             533/WD*      837/STW     1136-DATA    1236/WD*     1238/WD*     1250/WD*     1252/WD*
      1262/WD*     1292/LW      1326/WD*     1341/WD*     1417/WD*     3518/WD*
   GRP1            1137-DATA    1538/RD*
   GRP2            1138-DATA
   GRP3            1139-DATA
   GRP4            1140-DATA
   GRP5            1141-DATA    3737/RD*
   GRP6            1142-DATA
   GRP7            1143-DATA
   GRP8            1144-DATA
   GRP9            1145-DATA
   HEADOUTK        1786/BAL     1796/BAL     2156/BAL     2177/BAL     2199-STW
   HEADOUTL        1825/BAL     1835/BAL     2348/BAL     2372/BAL     2390-STW
   HEADRETK        2215/B       2221/B       2225/B       2230/B       2234/B       2238/B       2240/B
      2248/B       2250/B       2258/B       2264/B       2266/B       2271/B       2277/B       2279/B
      2280-BAL
   HEADRETL        2404/B       2410/B       2414/B       2419/B       2423/B       2427/B       2429/B
      2437/B       2439/B       2447/B       2453/B       2455/B       2460/B       2466/B       2468/B
      2470-BAL
   HEADSAVE        2198-DATA    2199/STW     2293/B*      2390/STW     2479/B*
   HEXTOEBC        1580/BAL     1641/BAL     1648/BAL     1702-STW
   HLOOP           1706-LI      1714/BCR
   HSAVE           1661-DATA    1678/STB     1684/LW      1712/STB     1716/LW
   HSAVE1          1662-DATA    1666/STW     1691/XW      1702/STW     1717/XW
   HSAVE5          1663-DATA    1667/STW     1692/XW      1703/STW     1718/XW
   HSAVE9          1664-DATA    1668/STW     1693/XW
   IMPLANT         1533/BAL     1541/BAL     1624-STW
   IMPLANTA        1619-DATA    1626/STW     1636/LW*     1642/STW*
   IMPLANTB        1620-DATA    1629/STW     1639/AND
   IMPLANTC        1621-DATA    1632/STW     1643/AW
   IMPLANTD        1532/STW     1540/STW     1622-DATA    1640/OR
   IMPLOOP         1636-LW      1644/B
   IMPSAVE         1623-DATA    1624/STW     1625/LW*     1627/MTW     1628/LW*     1630/MTW     1631/LW*
      1633/MTW     1637/BCR*
   INITIAL          808/BAL     2081-STW
   INTLSAVE        2080-DATA    2081/STW     2093/B*      2105/B*
   IOPI             592/STW     1107-DATA
   IOPIN            541/LPSD    1079-DATA    1096/XPSD
   IOPINS           539/STW     1108-DATA    5091/LW
   IOPIN1           528-STW     1081/DATA
   IOPT             618/STW      619/STW      686/STW      687/STW     1121-DATA    1439/SIO*    1443/SIO*
      2945/SIO*    2966/SIO*    3020/SIO*    3026/TIO*    3032/TDV*    3038/HIO*    3108/LW      3112/STW
      3118/TIO*    3124/STW     3231/TDV*    3252/TDV*    3408/SIO*    3413/HIO*    3501/SIO*    3519/HIO*
      4171/SIO*    4179/TIO*    4828/TIO*    5087/LW      5162/LW      5169/LW      5172/MTW     5174/LW
      5179/LW      5180/STW
   KLINELUP        2158-LW      2181/B
   KON             1356/AW      1381-DATA
   KOPLOOP         1782/B       1788-LW      1820/B
   L                504/LW       517/LW       589/LW       907/AND      910/AW       916/LW       949/LW
       951/DW       952/OR       953/OR       958/AND      963/DW      1033/LW      1042/LW      1043/LW
      1044/LW      1049/LW      1055/CW      3564/SW
   LABELFLG        2506/STW     2521/MTW     2529/STW     2602-DATA
   LASTSUB          897/STW     1013/STW     1019/BCR*    1394-DATA    3024/STW     3030/STW     3036/STW
      3092/STW     3188/STW     3193/STW     3199/STW     3205/STW     3211/STW     3396/STW     3423/STW
      3471/STW     3531/STW
   LCMPLOOP        1827-LW      1856/B
   LINEFLAG        1739/BCS     1750-LW
   LINEPRNT         621/STW      803/STW      806/STW     1780/MTW     1783/MTW     1874/MTW     2079-DATA
      2082/MTW     2115/MTW     2146/MTW     2498/SIO*    2500/TIO*
   LINERET         2510-LI      2553/BCR
   LINESKIP        2666/GEN     2699-DATA
   LINEXIT         1829/BCS     2312-LI
   LOK1             895/STW      903/LW*      926/MTW      931/B*       934-DATA
   LOK2             901/BCR      903-LW
   LOK3             909/BCS      915-STW
   LOK4             898/STW      899/STW      929/LW       930/LW       935-DATA
   LOOK             895-STW     2938/BAL     3015/BAL     3088/BAL     3184/BAL     3298/BAL     3392/BAL
      3467/BAL     3640/BAL     3833/BAL     3950/BAL     4081/BAL     4164/BAL     4255/BAL     4332/BAL
      4402/BAL     4477/BAL     4554/BAL     4679/BAL     4947/BAL     5072/BAL
   LOWSUB           684/STW     1109-DATA    5170/CB
   LPOUT            795/BCR      803-STW
   L64              593/LW      1091-XPSD
   L70              595/LW      1092-XPSD
   L80              597/LW      1093-BAL
   L81              599/LW      1094-XPSD
   L86              601/LW      1095-XPSD
   L92              603/LW      1096-XPSD
   L93              605/LW      1097-XPSD
   MAE              505/STW      512-DATA    3557/STW     3560/LW
   MASK            1306/AND     1309/AND     1360-DATA
   MAXBCNT         2155/STW     2158/LW      2162/STW     2331-DATA    2340/STW     2351/LW      2357/STW
   MEM             1169-DATA    3433/CW      3541/CW      3566/STW
   MEMI             609/BAL     3554-LI
   MEMI1           3558-AI      3562/BIR
   MEMI2           3561/BCS     3564-SW
   MEMI3           3565-AI
   MEPAR            495/LW       498/LPSD    1075-DATA    1095/XPSD
   MEPAR1           494-STW     1077/DATA
   MISCOMP         1599/BCS     1738-MTW
   MSADDIN          622/BAL      822/BAL      828-LI
   MSGA            2647/GEN     2648/GEN     2684/GEN     2685/GEN     2876-TEXT
   MSGAE           2648/GEN     2685/GEN     2877-EQU
   MSGB            2649/GEN     2650/GEN     2686/GEN     2687/GEN     2878-TEXT
   MSGBE           2650/GEN     2687/GEN     2879-EQU
   MSG1            2100/DATA    2627/GEN     2628/DATA    2734-TEXT
   MSG1E           2628/DATA    2852-EQU
   MSG2            2629/GEN     2688/GEN     2857-TEXT
   MSG3            2633/GEN     2634/GEN     2670/GEN     2671/GEN     2859-TEXT
   MSG3E           2634/GEN     2671/GEN     2860-EQU
   MSG4            2635/GEN     2636/GEN     2672/GEN     2673/GEN     2861-TEXT
   MSG4E           2636/GEN     2673/GEN     2863-EQU
   MSG5            2637/GEN     2638/GEN     2674/GEN     2675/GEN     2864-TEXT
   MSG5E           2638/GEN     2675/GEN     2866-EQU
   MSG6            2639/GEN     2640/GEN     2676/GEN     2677/GEN     2867-TEXT
   MSG6E           2640/GEN     2677/GEN     2869-EQU
   MSG7            2641/GEN     2642/GEN     2678/GEN     2679/GEN     2870-TEXT
   MSG7E           2642/GEN     2679/GEN     2871-EQU
   MSG8            2643/GEN     2644/GEN     2680/GEN     2681/GEN     2872-TEXT
   MSG8E           2644/GEN     2681/GEN     2873-EQU
   MSG9            2645/GEN     2646/GEN     2682/GEN     2683/GEN     2874-TEXT
   MSG9E           2646/GEN     2683/GEN     2875-EQU
   MTCHLOOP        1570-LW      1584/B
   NEWLINE          925/STW     1006/STW     1346/MTW     1393-DATA    1419/STW     1447/STW     1463/MTW
      1507/STW     1510/STW     3315/STW     3506/MTW     3671/STW     3880/STW     4000/STW     4273/STW
      4348/STW     4419/STW     4491/STW     4568/STW     4709/STW     4851/STW     4856/STW     4881/STW
      4886/STW
   NEXTGRP         1592/BCR     1729-MTW
   NEXTLINE        1590/BCR     1724-MTW
   NEXTWORD        1588/BCR     1721-MTW
   NOTCOOK          546-B        554/LW
   NUMCHK           784/BAL      815/BAL      844-LB       854/BIR
   ONEBYTE          481-DATA    2953/GEN     2975/GEN     3305/GEN     4685/GEN     4810/GEN
   ORDIN           4814/BAL     4867-STW
   ORDOUT          1490-STW     3508/BAL     3651/BAL     3873/BAL     3993/BAL     4265/BAL     4341/BAL
      4412/BAL     4485/BAL     4562/BAL     4688/BAL     4782/BAL     4812/BAL     4987/BAL
   OUTBUFF         1280/STW     1299/STW     1314/AWM     1320/STW     1349/STW     1555/LI      1570/LW
      1576/LW      2152/LI      2308/DATA    2536/LW      2631/GEN     5943-EQU
   OUTE1           2524/LW      2527/LB      2659/GEN     2706-DATA
   OUTE2           2661/GEN     2712-DATA
   OUTE3           2663/GEN     2718-DATA
   OUTFLG          1489-DATA    1499/MTW     1502/LW      1504/STW     4986/STW
   OUTP             957/LW       960/STW      968/STW      971/STW      972/STW      975/STW      976/STW
       979/STW      980/STW     2622/GEN     2657/GEN     2702-DATA
   OUTPNCH         2550/BAL     2562-LI
   OUTPRINT        1845/BAL     1851/BAL     1888/BAL     1893/BAL     2097/BAL     2104/BAL     2118/BAL
      2120/BAL     2122/BAL     2124/BAL     2313/BAL     2315/BAL     2317/BAL     2319/BAL     2362/BAL
      2375/BAL     2393/BAL     2395/BAL     2470/BAL     2472/BAL     2474/BAL     2476/BAL     2498-SIO
   OUTRET           797/BCR      800/BCR      805-LI
   OUTYPE          1799/BAL     1809/BAL     1815/BAL     1877/BAL     1882/BAL     1884/BAL     2086/BAL
      2089/BAL     2092/BAL     2133/BAL     2167/BAL     2175/BAL     2183/BAL     2185/BAL     2187/BAL
      2189/BAL     2191/BAL     2202/BAL     2204/BAL     2206/BAL     2280/BAL     2282/BAL     2284/BAL
      2286/BAL     2288/BAL     2290/BAL     2491-SIO     5167/BAL
   PASSFLG         4773/MTW     4869/MTW     4872/STW     4890-DATA    5075/MTW
   PAT1             465/GEN      467-DATA    3648/GEN     3690/DATA    3703/DATA    3837/DATA    3888/LH
      3954/DATA    4008/LW      4088/DATA
   PAT2             470-DATA    3842/DATA    3960/DATA
   PAT3             473-DATA    3847/DATA    3966/DATA
   PAT4             476-DATA    3972/DATA
   PHASAVE         1271-DATA    1272/STW     1338/B*
   PHASEM          1292-LW      1327/B       1342/B       1353/B
   PHASNAP          537/BAL     1272-STW     1416/BAL     1445/BAL     1477/BAL     1496/BAL     1508/BAL
      3052/BAL     3313/BAL     3332/BAL     3356/BAL     3409/BAL     3503/BAL     3521/BAL     3658/BAL
      3673/BAL     3681/BAL     3694/BAL     3708/BAL     3757/BAL     3878/BAL     3883/BAL     3893/BAL
      3998/BAL     4003/BAL     4011/BAL     4105/BAL     4272/BAL     4278/BAL     4291/BAL     4347/BAL
      4354/BAL     4356/BAL     4368/BAL     4370/BAL     4418/BAL     4426/BAL     4428/BAL     4430/BAL
      4432/BAL     4445/BAL     4447/BAL     4449/BAL     4451/BAL     4490/BAL     4497/BAL     4499/BAL
      4501/BAL     4503/BAL     4516/BAL     4518/BAL     4520/BAL     4522/BAL     4567/BAL     4574/BAL
      4576/BAL     4578/BAL     4580/BAL     4594/BAL     4596/BAL     4598/BAL     4600/BAL     4699/BAL
      4711/BAL     4722/BAL     4850/BAL     4853/BAL     4855/BAL     4880/BAL     4885/BAL
   PNCHADDR        2563/SIO*    2564/TIO*    2606-DATA
   PNCHBRA          798/LW      2607-BAL
   PNCHBUFF        2526/STW     2528/STB     2533/STW     2534/STW     2569/GEN     2580-DATA
   PNCHCMND        2562/LI      2569-GEN     2572/GEN
   PNCHDATA        2544/STW     2585-DATA
   PNCHOUT         2503-STW     2607/BAL
   PNCHSAVE        2503/STW     2555/B*      2605-DATA
   POSIT           1297/STW     1312/SLS*    1313/MTW     1389-DATA
   POWOF            491/LPSD    1071-DATA    1094/XPSD
   POWOF1           486-BAL     1073/DATA
   POWON            490-BAL     1093/BAL
   PRINTOUT        2147/BCS     2300-LI
   PRNTINTL        2083/BCS     2096-LI
   RECOVER          607/LW      1098-B
   RECUR            999-STW     2959/BAL     2981/BAL     3061/BAL     3129/BAL     3222/BAL     3363/BAL
      3424/BAL     3532/BAL     3727/BAL     3778/BAL     3839/BAL     3844/BAL     3849/BAL     3957/BAL
      3963/BAL     3969/BAL     3975/BAL     4096/BAL     4111/BAL     4200/BAL     4301/BAL     4380/BAL
      4461/BAL     4532/BAL     4610/BAL     4729/BAL     4739/BAL     4747/BAL     4755/BAL     4763/BAL
      4771/BAL     4789/BAL     4955/BAL     4962/BAL     5097/BAL
   REGRESTR         490/BAL      989/BAL     1204-STW     1244/BAL     1256/BAL     1266/BAL     1337/BAL
      1420/BAL     1448/BAL     1478/BAL     1511/BAL     2292/BAL     2478/BAL     2554/BAL
   REGSAVE          486/BAL      941/BAL     1196-STW     1234/BAL     1248/BAL     1260/BAL     1273/BAL
      1411/BAL     1425/BAL     1461/BAL     1491/BAL     2200/BAL     2391/BAL     2504/BAL
   RE1              999/STW     1012/LW      1015/B*      1037-DATA
   RE2             1008/BCS     1018-RD
   RE3              546/B       1009/B       1012-LW
   RSTSAV          1231-DATA    1233/STW     1245/B*      1247/STW     1257/B*      1259/STW     1267/B*
   RTN              915/STW      950/LW      1022/LW      1173-DATA    1546/LW      2211/LW      2244/LW
      2254/LW      2273/LW      2400/LW      2433/LW      2443/LW      2462/LW
   SAVERX          1165-DATA    1196/STW     1199/B*      1204/STW     1207/B*
   SAVE0           1149-DATA    1198/STM     1206/LM
   SAVE1           1150-DATA
   SAVE10          1159-DATA
   SAVE11          1160-DATA
   SAVE12          1161-DATA
   SAVE13          1162-DATA
   SAVE14          1163-DATA
   SAVE15          1164-DATA
   SAVE2           1151-DATA
   SAVE3           1152-DATA
   SAVE4           1153-DATA
   SAVE5           1154-DATA
   SAVE6           1155-DATA
   SAVE7           1156-DATA
   SAVE8           1157-DATA
   SAVE9           1158-DATA
   SHIFTEM         1312-SLS     1358/B
   SIODBWRD         463-DATA    1427/STW     1430/STW     1432/LI      4958/DATA
   SIOSAVE         1406-DATA    1424/STW     1426/LW*     1428/MTW     1429/LW*     1449/MTW     1450/B*
      1460/STW     1476/EXU*    1479/MTW     1480/B*      1490/STW     1512/B*      4844/STW     4857/B*
      4867/STW     4874/STW     4887/MTW     4888/B*
   SIOSUB          1424-STW     2951/BAL     2973/BAL     3303/BAL     3646/BAL     3869/BAL     3989/BAL
      4261/BAL     4337/BAL     4408/BAL     4482/BAL     4559/BAL     4684/BAL     4809/BAL     4981/BAL
   SKIPLINE        2625/GEN     2698-DATA
   START            589-LW      1098/B       5944/END
   STARTEM         1287/BCR     1323-MTW     1352/BCR
   STRTFLG         1286/MTW     1335/STW     1351/MTW     1404-DATA    1413/STW     1418/STW     3516/STW
   STRTSAVE        1409-DATA    1410/STW     1421/B*
   STRTSUB          531/BAL     1410-STW     1433/BAL     1464/BAL     3047/BAL     3405/BAL     3499/BAL
   SUBT             917/STW      962/LW      1014/MTW     1029/LW      1174-DATA    1548/LW      2226/LW
      2415/LW      3104/LW      3138/STW     4102/STW     5084/STW
   TA              1172/DATA    1175-DATA
   TAA              911/AW      1172-DATA
   TEMP            1045/STW     1046/LW      1048/STW     1052/OR      1053/STW     1060/LW      1099-DATA
   TEMPA            921/STW      969/LW      1100-DATA    3057/STW     3114/STW     3239/STW     3318/STW
      3325/STW     3335/STW     3341/STW     3351/STW     3404/STW     3417/MTW     3419/CW      3505/STW
      3659/STW     3711/STW     3719/STW     3733/STW     3747/STW     3765/MTW     3886/STW     3904/MTW
      4006/STW     4031/MTW     4178/STW     4182/STW     4193/STW     4280/STW     4293/STW     4357/STW
      4372/STW     4434/STW     4453/STW     4505/STW     4524/STW     4582/STW     4602/STW     4694/STW
      4713/MTW     4718/MTW     4779/MTW     4802/STW     4822/MTW     4990/STW     5000/STW     5082/STW
   TEMPB            922/STW      973/LW      1101-DATA    3055/STW     3121/STW     3244/STW     3343/STW
      3418/STW     3525/STW     3736/STW     3739/CW      3760/STW     3771/CW      3891/STW     3902/CW
      4009/STW     4029/CW      4184/STW     4188/CW      4196/STW     4197/CW      4282/STW     4285/CW
      4295/STW     4298/CW      4359/STW     4362/CW      4374/STW     4377/CW      4436/STW     4439/CW
      4455/STW     4458/CW      4507/STW     4510/CW      4526/STW     4529/CW      4584/STW     4587/CW
      4604/STW     4607/CW      4781/STW     4786/CW      4806/STW     4819/CW      4825/STW     4831/CW
      4992/STW     4997/CW      5002/STW     5007/CW      5090/STW     5094/CW
   TEMPC            923/STW      977/LW      1102-DATA    3346/STW     3738/STW     3763/STW     3770/LW
      3901/STW     4028/STW     4187/STW     4194/STW     4284/STW     4297/STW     4361/STW     4376/STW
      4438/STW     4457/STW     4509/STW     4528/STW     4586/STW     4606/STW     4785/STW     4818/STW
      4830/STW     4996/STW     5006/STW     5092/STW
   TEMPI            494/STW      497/LW       502/STW      509/LW      1104-DATA
   TEMPI1           549/STW      557/LW       563-DATA
   TEMPI2           528/STW      540/LW       542-DATA
   TEMPI3           516/STW      520/LW       523-DATA
   TEMPSAVE        1103-DATA    3320/STW     3326/LW
   TESTCHAN         685/STW     1240/AW      1254/AW      1264/AW      1390-DATA    3753/AW      3767/AW
      4876/AW      5176/STW
   TESTEND         1564/STW     1593/LW      1789/CW      1828/CW      1916-DATA
   TIMEONE          551/BCR      560-MTW
   TPRNTSAV        2113-DATA    2114/STW     2125/MTW     2126/B*
   TSTSIO           465-GEN     2944/LI      2965/LI      3018/LI      4951/DATA
   TTHSUB          1460-STW     3117/BAL     3251/BAL     3412/BAL
   TYER             591/STW      692/STW      942/LW       946/MTW     1007/LW      1034/STW     1106-DATA
      3095/LW      3248/MTW     3399/LW      3474/MTW
   TYPEBRA          793/LW      2608-BAL
   TYPEINTL        2085-LI
   TYPEOUT          988/BAL     2143-STW     2608/BAL
   TYPESAVE        2142-DATA    2143/STW     2192/B*      2322/B*
   TYPEXIT         1790/BCR     2160/BCS     2182-LI
   TYPRINT1         981/BAL     2114-STW
   TYTX             982/BAL     2131-STW
   TYTXSAVE        2130-DATA    2131/STW     2134/B*
   T100             703/B        708/BCR      771/B       1175/DATA    2938-BAL     5177/B
   T100Q1          1942/DATA    1964-DATA
   T1001           2949/BCR     2959-BAL
   T1002           2970/BCR     2981-BAL
   T101            1175/DATA    2982/B       3015-BAL
   T101Q1          1943/DATA    1966-DATA
   T1011           3019/BAL     3025/BAL     3031/BAL     3037/BAL     3044-STW
   T1012           3042-DATA    3044/STW     3049/EXU*    3050/MTW     3056/LW*     3062/MTW     3063/B*
   T102            1175/DATA    3040/B       3088-BAL
   T102Q1          1944/DATA    1970-DATA
   T1021           3104-LW      3134/BCS     3139/B
   T1022           3100/STW     3106/LW      3111/OR      3126/CW      3130/LW      3132/STW     3141-DATA
   T1023           3109/STW     3123/LW      3142-DATA
   T1024           3128-BAL
   T1025           3105/STW     3137/LW      3143-DATA
   T1026           3096/BCS     3137-LW
   T103            1175/DATA    3135/B       3184-BAL
   T103A           3219/STW     3223/MTW     3224/B*      3233/EXU*    3258-DATA
   T103B           3227/STW     3234/MTW     3249/BCS*    3254/B*      3259-DATA
   T103C           3232/STCF    3236/LW      3241/LW      3260-DATA
   T103Q1          1945/DATA    1978-DATA
   T1031           3189-BAL
   T1032           3194-WD
   T1033           3200-WD
   T1034           3206-WD
   T1035           3212-WD
   T1036           3189/BAL     3195/BAL     3201/BAL     3207/BAL     3213/BAL     3219-STW
   T1037           3220/BAL     3227-STW
   T1038           3190/BCS     3196/BCR     3202/BCS     3208/BCR     3214/BCS     3236-LW
   T104            1175/DATA    3215/B       3298-BAL
   T104Q1          1946/DATA    1983-DATA
   T1041           3324-LI
   T1042           3330-WD
   T1043           3340-LI
   T1044           3350-LI
   T1045           3322/BCR     3328/BCR     3338/BCR     3348/BCS     3362-BAL
   T105            1175/DATA    3364/B       3392-BAL     3422/LI
   T105Q1          1947/DATA    1984-DATA
   T1051           3400/BCS     3403-LW      3436/BCS
   T1053           3402/STW     3403/LW      3425/LW      3427/STW     3439-DATA
   T106            1175/DATA    3434/BCS     3437/B       3467-BAL     3530/LI
   T106Q1          1948/DATA    2000-DATA
   T1061           3475/BCS     3479-LW      3545/BCS
   T107            1175/DATA    3542/BCS     3546/B       3640-BAL
   T107A           3661/STW     3713/STW     3721/STW     3731/STW     3732/LW*     3734/MTW     3735/LW*
      3741/MTW     3742/B*      3745/STW     3746/LW*     3748/MTW     3749/LW*     3774/MTW     3775/B*
      3779/MTW     3780/B*      3783-DATA
   T107B           3750/STW     3759/LB*     3784-DATA
   T107C           3785-DATA
   T107Q1          1949/DATA    2016-DATA
   T10701          3654-WD
   T10702          3666-BAL
   T10703          3675-BAL
   T10704          3683-BAL
   T10705          3687-LI
   T10706          3696-BAL
   T10707          3700-LI
   T10708          3710-LI
   T10709          3718-LI
   T10710          3666/BAL     3675/BAL     3683/BAL     3696/BAL     3731-STW
   T10711          3688/BAL     3701/BAL     3745-STW
   T10711L         3752-LW      3773/BIR
   T10712          3664/BCR     3716/BCR     3724/BCR     3740/BCS     3772/BCS     3777-BAL
   T108            1176/DATA    3728/B       3833-BAL
   T108A           3858/STW     3859/LW*     3862/MTW     3903/BCS*    3906/MTW     3907/B*      3909-DATA
   T108B           3861/STW     3870-DATA
   T108Q1          1950/DATA    2017-DATA
   T1082           3841-BAL
   T1083           3846-BAL
   T1085           3836/BAL     3841/BAL     3846/BAL     3858-STW
   T1085L          3888-LH      3905/BIR
   T109            1176/DATA    3850/B       3950-BAL
   T109A           3978/STW     3979/LW*     3982/MTW     4001/EXU*    4002/MTW     4030/BCS*    4033/MTW
      4034/B*      4036-DATA    4108/STW
   T109B           3981/STW     3990-DATA    4085/STW     4094/STW     4100/STW
   T109Q1          1951/DATA    2020-DATA
   T1091           3953-BAL
   T1092           3959-BAL
   T1093           3965-BAL
   T1094           3971-BAL
   T1095           3953/BAL     3959/BAL     3965/BAL     3971/BAL     3978-STW     4087/BAL
   T1095L          4008-LW      4032/BIR     4109/B
   T110            1176/DATA    3976/B       4081-BAL
   T110Q1          1952/DATA    2024-DATA
   T1102           4091/B       4099-LI
   T111            1176/DATA    4112/B       4164-BAL
   T111A           4185/STW     4191/LW      4203-DATA
   T111B           4183/LW      4204-DATA
   T111C           4195/LW      4205-DATA
   T111CP          4170/LI      4208-GEN
   T111E           4180/BCS     4189/BCS     4199-BAL
   T111Q1          1953/DATA    2026-DATA
   T112            1176/DATA    4201/B       4255-BAL
   T112ERR         4286/BCS     4300-BAL
   T112Q1          1954/DATA    2027-DATA
   T113            1176/DATA    4302/B       4332-BAL
   T113ERR         4363/BCS     4379-BAL
   T113Q1          1955/DATA    2028-DATA
   T114            1176/DATA    4381/B       4402-BAL
   T114ERR         4440/BCS     4460-BAL
   T114Q1          1956/DATA    2029-DATA
   T115            1176/DATA    4462/B       4477-BAL
   T115ERR         4511/BCS     4531-BAL
   T115Q1          1957/DATA    2030-DATA
   T116            1177/DATA    4533/B       4554-BAL
   T116ERR         4588/BCS     4609-BAL
   T116Q1          1958/DATA    2031-DATA
   T117            1177/DATA    4611/B       4679-BAL
   T117A           4793/STW     4794/LW*     4797/MTW     4798/LW*     4804/MTW     4805/LW*     4823/MTW
      4824/LW*     4833/MTW     4834/MTW     4835/B*      4837-DATA    4873/LW
   T117B           4795/STW     4811-DATA
   T117C           4799/STW     4815-DATA    4882/LW
   T117Q1          1959/DATA    2032-DATA
   T1171           4684-BAL
   T1171E          4704/BCR     4716/BCR     4728-BAL
   T1172           4733-BAL
   T1173           4741-BAL
   T1174           4749-BAL
   T1175           4757-BAL
   T1176           4765-BAL
   T1177           4773-MTW
   T1177E          4788-BAL
   T1178           4733/BAL     4741/BAL     4749/BAL     4757/BAL     4765/BAL     4774/BAL     4793-STW
      5076/BAL
   T1178E          4820/BCS     4833-MTW
   T118            1177/DATA    4790/B       4947-BAL
   T118A           4966/STW     4967/LW*     4970/MTW     4972/LW*     4974/MTW     4976/LW*     4978/MTW
      4998/BCS*    5008/BCS*    5009/MTW     5010/B*      5013-DATA
   T118B           4969/STW     4982-DATA
   T118C           4973/STW     4991/LW      5014-DATA
   T118D           4977/STW     5001/LW      5015-DATA
   T118Q1          1960/DATA    2039-DATA
   T1181           4950-BAL
   T1182           4957-BAL
   T1183           4950/BAL     4957/BAL     4966-STW
   T119            1177/DATA    4963/B       5072-BAL
   T119Q1          1961/DATA    2041-DATA
   T1191           5075-MTW
   T1192           5081-LI
   T120            1177/DATA    5098/B       5113-B
   T121            1177/DATA    5113/B       5114-B
   T122            1177/DATA    5114/B       5115-B
   T123            1177/DATA    5115/B       5116-B
   T124            1178/DATA    5116/B       5117-B
   T125            1178/DATA    5117/B       5118-B
   T126            1178/DATA    5118/B       5119-B
   T127            1178/DATA    5119/B       5120-B
   T128            1178/DATA    5120/B       5121-B
   T129            1178/DATA    5121/B       5122-B
   T130            1178/DATA    5122/B       5123-B
   T131            1178/DATA    5123/B       5124-B
   T132            1179/DATA    5124/B       5125-B
   T133            1179/DATA    5125/B       5126-B
   T134            1179/DATA    5126/B       5127-B
   T135            1179/DATA    5127/B       5128-B
   T136            1179/DATA    5128/B       5129-B
   T137            1179/DATA    5129/B       5130-B
   T138            1179/DATA    5130/B       5131-B
   T139            1179/DATA    5131/B       5132-B
   T140            1180/DATA    5132/B       5133-B
   T141            1180/DATA    5133/B       5134-B
   T142            1180/DATA    5134/B       5135-B
   T143            1180/DATA    5135/B       5136-B
   T144            1180/DATA    5136/B       5137-B
   T145            1180/DATA    5137/B       5138-B
   T146            1180/DATA    5138/B       5139-B
   T147            1180/DATA    5139/B       5140-B
   T148            1181/DATA    5140/B       5141-B
   T149            1181/DATA    5141/B       5142-B
   T150            1181/DATA    5142/B       5143-B
   T151            1181/DATA    5143/B       5144-B
   T152            1181/DATA    5144/B       5145-B
   T153            1181/DATA    5145/B       5146-B
   T154            1181/DATA    5146/B       5147-B
   T155            1181/DATA    5147/B       5148-B
   T156            1182/DATA    5148/B       5149-B
   T157            1182/DATA    5149/B       5150-B
   T158            1182/DATA    5150/B       5151-B
   T159            1182/DATA    5151/B       5152-B
   T160            1182/DATA    5152/B       5153-B
   T161            1182/DATA    5153/B       5154-B
   T162            1182/DATA    5154/B       5155-B
   T163            1182/DATA    5155/B       5156-B
   T164            1182/DATA    5156/B       5159-RD
   T1641           5162-LW
   T1642           5160/BCS     5169-LW
   T1643           5174-LW      5181/B
   T1644           5171/BCR     5179-LW
   WDTI             518/STW      590/STW     1105-DATA    2942/STW     2948/LW      2963/STW     2969/LW
   WDTIM            519/MTW      521/LPSD    1083-DATA    1092/XPSD
   WDTIM1           516-STW     1085/DATA
   WORDLOOP        2539/BCR     2548/BCR     2558-AI
   WORDRET         2536-LW      2559/B
   WORDTEST        1586-LW      1602/B       1722/B       1727/B       1736/B       1767/B
   XPRINT          2099/BAL     2307/BAL     2333-STW
   XPRINTLP        2351-LW      2380/B
   XPRNTPNT        2329-DATA    2333/STW     2335/LW*     2338/MTW     2339/LW*     2342/MTW     2343/LW*
      2352/SW*     2354/MTW     2355/B*      2364/LW*
   ZONE            1310/AW      1367-DATA
   100Q1           1534/DATA    1542/DATA    1964/DATA    5191-TEXT
   100Q2           1965/DATA    5197-TEXT
   101Q1           1966/DATA    5204-TEXT
   101Q2           1967/DATA    5210-TEXT
   101Q3           1968/DATA    5216-TEXT
   101Q4           1969/DATA    5222-TEXT
   102Q1           1970/DATA    5228-TEXT
   102Q2           1971/DATA    1972/DATA    1973/DATA    1974/DATA    1975/DATA    1976/DATA    1977/DATA
      5234-TEXT
   103Q1           1978/DATA    1979/DATA    1980/DATA    1981/DATA    1982/DATA    5240-TEXT
   104Q1           1983/DATA    5246-TEXT
   105Q1           1984/DATA    5260-TEXT
   105Q2           1985/DATA    1986/DATA    1987/DATA    1988/DATA    1989/DATA    1990/DATA    1991/DATA
      1992/DATA    1993/DATA    1994/DATA    1995/DATA    1996/DATA    1997/DATA    1998/DATA    1999/DATA
      5273-TEXT
   106Q1           2000/DATA    5286-TEXT
   106Q2           2001/DATA    2002/DATA    2003/DATA    2004/DATA    2005/DATA    2006/DATA    2007/DATA
      2008/DATA    2009/DATA    2010/DATA    2011/DATA    2012/DATA    2013/DATA    2014/DATA    2015/DATA
      3482/DATA    3484/DATA    3486/DATA    3488/DATA    3490/DATA    3492/DATA    5306-TEXT
   107Q1           2016/DATA    5326-TEXT
   108Q1           2017/DATA    5362-TEXT
   108Q2           2018/DATA    5386-TEXT
   108Q3           2019/DATA    5410-TEXT
   109Q1           2020/DATA    5434-TEXT
   109Q2           2021/DATA    5456-TEXT
   109Q3           2022/DATA    5479-TEXT
   109Q4           2023/DATA    5502-TEXT
   110Q2           2024/DATA    2025/DATA    2026/DATA    5525-TEXT
   112Q1           2027/DATA    5554-TEXT
   113Q1           2028/DATA    5574-TEXT
   114Q1           2029/DATA    5598-TEXT
   115Q1           2030/DATA    5627-TEXT
   116Q1           2031/DATA    5656-TEXT
   117Q1           2032/DATA    5685-TEXT
   117Q2           2033/DATA    5710-TEXT
   117Q3           2034/DATA    5735-TEXT
   117Q4           2035/DATA    5760-TEXT
   117Q5           2036/DATA    5785-TEXT
   117Q6           2037/DATA    5810-TEXT
   117Q7           2038/DATA    5835-TEXT
   118Q1           2039/DATA    5868-TEXT
   118Q2           2040/DATA    5884-TEXT
   119Q2           2041/DATA    2042/DATA    5900-TEXT
   %BITEMP          613/STW      711/STW      766/LW       874/STS     1110-DATA
   %BITEST          614/STW      701/STW      702/STW      767/STW      904/LW       905/LW      1111-DATA
   %BITSET          749/BAL      862-LW
   %BITSETP1        616/STW      738/STW      742/LW       862/LW      1112-DATA
   %BITSETP2        735/STW      739/LW       864/LW      1114-DATA
   %BITSET1         874-STS      879/BDR
   %BSP1LAST        617/STW      714/STW      745/CW       863/STW     1116-DATA
   %CP01            637/LI      2614-GEN
   %CP02            650/LI      2616-GEN
   %CP03            673/LI      2618-GEN
   %CP04           2620-GEN     5166/LI
   %CP05           2132/LI      2622-GEN
   %INBUFF          655/LW       664/LB       706/LB       717/LB       722/LB       727/LB       750/LB
       779/LB       782/LW       785/LW       792/LB       810/LB       813/LW       816/LW      2616/GEN
      5942-EQU
   %IORST           918/BAL     1002/BAL     1233-STW     3250/BAL     3514/BAL
   %IORSTX         1247-STW     2950/BAL     2972/BAL     3864/BAL     3984/BAL     4808/BAL     4980/BAL
   %IORSTYP        1259-STW     2943/BAL     2964/BAL     3228/BAL     4169/BAL     4827/BAL
   %KP:ADR          620/STW      638/SIO*     644/STW      648/TIO*     651/SIO*     653/TIO*     674/SIO*
      2078-DATA    2491/SIO*    2493/TIO*
   %KTROL           634-BAL      902/B       1001/BCS
   %MSG01          2614/GEN     2700-TEXT
   %MSG02          2618/GEN     2701-TEXT
   %RSET            610/BAL      634/BAL      698/BAL     1220-LI      1274/BAL     2505/BAL     3229/BAL
      3401/BAL     3476/BAL     3652/BAL     3865/BAL     3985/BAL     4176/BAL     4266/BAL     4342/BAL
      4413/BAL     4486/BAL     4563/BAL     4692/BAL     4801/BAL     4845/BAL     4868/BAL     4989/BAL
   %SWITCHA         611/STW      713/STW      736/MTW      754/STW      759/MTW      761/STW     1118-DATA
   %WAIT1           641-WAIT
   #0010000         637-LI       640/BCR      645/B        647/BCS      675/B        688/B        809/B
       826/B
   #0010001         650-LI
   #0010010         664-LB       672/BCR
   #0010020         661/BCS      673-LI       697/BCS      724/BCS      741/BCS      744/BCS      746/BCS
       748/BCS      760/BCS      764/BCS      774/BCS      778/BCS      781/BCS      791/BCR      802/BCS
       812/BCS      847/BCS      851/BCS      853/BCR
   #0010030         666/BCR      676-LB
   #0010040         658/BCS      689-CW
   #0010050         695/BCR      705-LI
   #0010060         717-LB       756/B
   #0010070         725-SLD      729/BCR
   #0010071         755-MTW      762/B
   #0010080         752/BCS      757-CI
   #0010090         719/BCS      758/BCS      763-CI
   #0010100         690/BCS      772-LB
   #0010110         776/BCR      810-LB
