1 C00   23:39 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   23:39 JUN 20,'83    SIGMA 5/7 INTERRUPT TEST   704143-51D02  JULY 12, 1972                PAGE    2
A       1                                     PCC
1 C00   23:39 JUN 20,'83    SIGMA 5/7 INTERRUPT TEST   704143-51D02  JULY 12, 1972                PAGE    3
A       3                            *
        4                            *
        5                            *
        6                            * PROGRAM NUMBER 704143             MANUAL NUMBER 901134
        7                            *
        8                            *
        9                            * REVISION D02     10/25/72.                                        *D02
       10                            * PROGRAM REVISED TO TEST MTB, MTH AND MTW INSTRUCTIONS             *D02
       11                            * IN INTERRUPT LOCATIONS                                            *D02
       12                            * ADDED ROUTINE TO TRIGGER AN INTERRUPT WHEN A HIGHER               *D02
       13                            * PRIORITY IS ACTIVE.                                               *D02
       14                            *
       15                            * REVISION D01 (8/19/70) CHANGES INDICATED IN COLUMNS 69 - 72 BY -- *D01
       16                            *  PROGRAM MODIFIED TO DETECT INCORRECT SWITCH SETTINGS IN THE      *D01
       17                            *  INTERRUPT CHASSIS AND TO TEST THE ABILITY OF THE LPSD,3          *D01
       18                            *  INSTRUCTION TO ARM THE ACTIVE INTERRUPT LEVEL.  ADDED A TEST     *D01
       19                            *  TO CHECK THE RESETTING OF THE GROUP INTERRUPT INHIBITS BY A      *D01
       20                            *  WD INSTRUCTION.  CHANGED PROGRAM TO ALLOW REINITIALIZATION OF    *D01
       21                            *  THE PROGRAM.                                                     *D01
       22                            *
       23                            *
       24                            * REVISION D00 (7/01/69) DOCUMENTATION REFORMATTING CHANGE ONLY       *D
       25                            *
       26                            *  REVISION C00                                                       *C
       27                            *                                                                     *C
       28                            *    'C' REVISION CHANGES ARE INDICATED BY *C IN COLUMNS 71 AND 72    *C
       29                            *    OF THE LISTING.                                                  *C
       30                            *                                                                     *C
       31                            *    'C' REVISION CORRECTS THE MASKING OF THE RESPONCE FROM THE JX58  *C
       32                            *    TEST EQUIPMENT.                                                  *C
       33                            *                                                                     *C
       34                            *                                                                     *C
       35   01 00200                          ORG      X'200'                                            *D01
            01 00200
       36                            *
       37                            *
       38                            *        TABLE OF CONTENTS OF LISTING
       39                            *
       40                            *  INFORMATION                                                        *C
       41                            *                                                                     *C
       42                            *  SUCCESSFUL LOAD INDICATION                                         *C
       43                            *                                                                     *C
       44                            *  GENERAL INTRODUCTION                                               *C
       45                            *                                                                     *C
       46                            *  SENSE SWITCH CONTROL                                               *C
       47                            *                                                                     *C
       48                            *  WD POINTER TO ADDRESS CROSS REFERENCE                              *C
       49                            *                                                                     *C
       50                            *  JX-58  TEST DESCRIPTION                                            *C
       51                            *                                                                     *C
       52                            *  RESPONSE AND MESSAGE DESCRIPTION                                   *C
       53                            *                                                                     *C
       54                            *  CONTROL BIT DESCRIPTION                                            *C
       55                            *                                                                     *C
       56                            *  DESCRIPTION OF MANUAL ENTRY ROUTINE INPUT                          *C
       57                            *                                                                     *C
       58                            *  DESCRIPTION OF INTERPROCESSOR INTERRUPT TEST                       *C
       59                            *                                                                     *C
       60                            *  DESCRIPTION OF INTERRUPT HISTORY TABLE                             *C
       61                            *                                                                     *C
       62                            *
       63                            *
       64                            *  PROGRAM RESTART                                                  *D01
       65                            *  ------- -------  TO REINITIALIZE THE PROGRAM; SYSTEM RESET, AND  *D01
       66                            *                   PLACE THE MACHINE IN RUN.  ALTERNATELY; SYSTEM  *D01
       67                            *                   RESET, ENTER THE P REGISTER WITH LOCATION:      *D01
       68   01 00200    00000D12              DATA     LAST                                              *D01
       69                            *                   FETCH THE INSTRUCTION, PLACE THE MACHINE IN     *D01
       70                            *                   RUN MODE.  PROGRAM SHOULD COMPLETELY RESTART.   *D01
       71                            *                                                                   *D01
       72                            * NOTE:  IF THE INTERRUPT ADDRESS DECODE LOGIC SHOULD FAIL SO AS TO *D01
       73                            *        CAUSE LOCATION X'26' TO BE REFERENCED, THE PROGRAM MAY     *D01
       74                            *        ATEMPT A RESTART.                                          *D01
       75                            *
       76                            *
       77                            *  SUCCESSFUL LOAD AND EXECUTION OF THIS PROGRAM WILL BE INDICATED
       78                            *  BY THE FOLLOWING PRINT-OUT:
       79                            *
       80                            *
       81                            *    SIGMA 5/7 INTERRUPT DIAGNOSTIC                                   *C
       82                            *    MANUAL NO. 901134'X', WHERE 'X' = REVISION LEVEL OF PROGRAM      *D
       83                            *    PROGRAM NO. 704143-'X'00                                         *D
       84                            *
       85                            *    M1, ADDRESSES VERIFIED
       86                            *
       87                            *    M5, SUCCESS
       88                            *
       89                            *    M6
       90                            *    PRI SEQ
       91                            *    XX XX XX XX XX XX XX
       92                            *    XX XX XX XX
       93                            *    RESPOND, M6
       94                            *    REVERSE SS 2 IF SEQUENCE IS
       95                            *    COMPLETE AND IN ORDER
       96                            *
       97                            *    M7, ENTERING PATTERN GENERATOR
       98                            *
       99                            *
      100                            *  THE PRIORITY WHICH APPEARS IN THE 'M6' MESSAGE WILL VARY DEPENDING
      101                            *  ON THE NUMBER OF INTERRUPTS IMPLEMENTED, AND THE PRIORITY IN WHICH
      102                            *  THE LEVELS ARE CABLED.
      103                            *
      104                            *  POWER FAIL-SAFE INTERRUPTS HAVE BEEN ARBITRARILY ASSIGNED POINTERS
      105                            *  OF X'0E' AND X'0F' FOR PROGRAMMING CONVENIENCE. THEY CAN NOT BE
      106                            *  TRIGGERED BY WRITE DIRECT INSTRUCTIONS, SO THE APPEARANCE OF EITHER
      107                            *  OF THOSE TWO POINTERS WOULD ALWAYS BE A FAILURE INDICATION, PROBABLY
      108                            *  IN THE INTERRUPT ADDRESS LINES.
      109                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      110                            *  TO ACCOMPLISH MOST COMBINATION TESTS OF INTERRUPTS, THE HIGHEST
      111                            *  PRIORITY INTERRUPT IMPLEMENTED WILL BE TRIGGERED AND THE TRIGGERING
      112                            *  OF ALL OTHER INTERRUPTS WILL BE DONE BEFORE THE HIGHEST PRIORITY
      113                            *  INTERRUPT IS CLEARED. THIS WILL ALLOW CHECKING THE LARGEST NUMBERS
      114                            *  OF INTERRUPTS COMPETING FOR PRIORITY CONCURRENTLY.
      115                            *
      116                            *  TO HANDLE INTERRUPTS GENERATED DURING THE VARIOUS TEST PERFORMED,
      117                            *  A SET OF 496 XPSD INSTRUCTIONS IS GENERATED, FROM X'10' TO X'1FF'.
      118                            *
      119                            *  A SET OF 248 PROGRAM STATUS DOUBLEWORDS IS ALSO GENERATED, WITH THE
      120                            *  ADDRESS OF THE XPSD INSTRUCTION ADDRESSING EACH PSD ENCODED INTO THE
      121                            *  CC, FS, FZ, FN, DM, AND AM BITS, AND A REGISTER PAGE POINTER OF 15.
      122                            *
      123                            *  THIS SET OF INSTRUCTIONS WILL ALLOW THE HANDLING OF ALL INTERRUPTS
      124                            *  GENERATED, EVEN IF INCORRECT ADDRESSES ARE PRESENTED TO THE CPU
      125                            *  FROM THE INTERRUPT LOGIC. THE ONE CASE WHICH IS NOT COVERED IS
      126                            *  THE CASE IN WHICH AN INTERRUPT PRESENTS AN ADDRESS BETWEEN 0 AND
      127                            *  X'0F'. SINCE THE INTERRUPT LOGIC ONLY PRESENTS 9 ADDRESS LINES TO
      128                            *  THE CPU, WITH THE EXCEPTION NOTED, ALL INTERRUPTS WILL OCCUR WITH-
      129                            *  IN THIS FIELD OF XPSD INSTRUCTIONS. THE EXCHANGE OF PROGRAM STATUS
      130                            *  DOUBLEWORDS CAUSED BY THE EXECUTION OF ANY OF THESE INSTRUCTIONS
      131                            *  WILL RESULT IN THE DECODING OF THE ADDRESS OF THE LEVEL WHICH
      132                            *  GENERATED THE INTERRUPT. THIS ADDRESS IS THEN CROSS-CHECKED BY
      133                            *  A ROUTINE WHICH EXTRACTS THE CORRECT ADDRESS FROM THE WD GROUP
      134                            *  AND LEVEL OF THE INTERRUPT. A LEVEL WHICH PRESENTS AN ADDRESS
      135                            *  BETWEEN 0 AND X'F' WILL GENERATE AN ERROR MESSAGE INDICATING
      136                            *  THE ADDRESS WHICH WAS PRESENTED. IF THE FAILURE IS SOLID, AND THE
      137                            *  ADDRESS PRESENTED IS EITHER 5 OR 9, A HANG-UP CONDITION WILL OCCUR.
      138                            *  THE SYSTEM/CPU RECOVERY LOCATION (X'26') IS RESERVED FOR PROGRAM *D01
      139                            *  RESTARTS.  THEREFOR, ANY INTERRUPT FAILURE WHICH CAUSES THIS     *D01
      140                            *  LOCATION TO BE REFERENCED MAY CAUSE A PROGRAM RESTART.  IF THIS  *D01
      141                            *  SHOULD OCCUR, THE RESULTS OF THE XPSD INSTRUCTION IN LOCATION    *D01
      142                            *  X'26' WILL BE SAVED AT LOCATION RECOVER1:                        *D01
      143   01 00201    00000D0C              DATA     RECOVER1                                          *D01
      144                            *  AND MAY BE MANUALLY READ OUT FOR FAULT DETECTION.                *D01
      145                            *
      146                            *  IF THE ERROR MESSAGE INDICATED IS PRINTED OUT, AN INTERRUPT WHICH
      147                            *  SHOULD HAVE OCCURRED WILL NOT BE RECORDED BY THE CHECKING ROUTINES.
      148                            *  THIS WILL GENERATE ADDITIONAL ERROR INFORMATION WHICH SHOULD
      149                            *  DIRECTLY INDICATE THE FAILING LEVEL(S).
      150                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      151                            *  IN INSTRUCTIONS REFERRING TO SENSE SWITCH CONTROL BY 'REVERSING'
      152                            *  THE SWITCH REFERRED TO, THE INITIAL STATE OF THE SWITCH IS
      153                            *  INCONSEQUENTIAL, AND THE OPPOSITE STATE WILL ACCOMPLISH THE
      154                            *  RESULTS INDICATED.
      155                            *
      156                            *  AN 'IGNORED' INTERRUPT IS ONE WHICH IS CLEARED AS SOON AS ITS
      157                            *  ADDRESS IS DECODED, WITH NO CHECKING PERFORMED.
      158                            *
      159                            *  GENERAL TEST PROCEDURE.
      160                            *  1. TEST ADDRESSES PRESENTED TO CPU BY INTERRUPT LOGIC.
      161                            *  2. CHECK SEQUENCE OF INTERRUPT PRIORITIES.
      162                            *  3. TEST STABILITY AND INDEPENDENCE OF STATES OF THE
      163                            *     INTERRUPT SYSTEM.
      164                            *
      165                            *  OPTIONAL FUNCTIONS AVAILABLE.
      166                            *  1. LOOP ON FAILING CONDITION, ONCE DETECTED.
      167                            *  2. LOOP ON JX-58 ROUTINE, WITH SUB-ROUTINE LOOP CONTROL.
      168                            *  3. LOOP ON GENERATE ALL INTERRUPTS CONCURRENTLY. (NO CHECKING)
      169                            *  4. LOOP ON INTERRUPTS GENERATED SINGLY, FROM WD GROUP ZERO,
      170                            *     LEVEL BIT 16 TO WD GROUP 15 LEVEL BIT 31. (NO CHECKING)
      171                            *  5. REVERSE OF 4, ABOVE.
      172                            *  6. LOOP ON PATTERN ENTERED VIA KSR. (FULL CHECKING)
      173                            *     THIS ROUTINE MAY BE SET UP TO TEST THE 7700 INTERPROCESSOR
      174                            *     INTERRUPT FEATURE.
      175                            *  7. SURPRESS ERROR PRINTING.
      176                            *  8. PRESERVE UP TO 64 ERROR RECORDS IF ERROR PRINTING SURPRESSED.
      177                            *  9. LOOP ON BASIC TEST GENERATOR.
      178                            *
      179                            *  SEE EXPANATIONS OF CONTROL BITS, BELOW, FOR ENTRY TO OPTIONAL
      180                            *  ROUTINES, AND CONTROL OF LOOPS.
      181                            *
      182                            *  ALTHOUGH CONTROL BITS FOR ENTRY TO THE OPTIONAL ROUTINES MAY BE
      183                            *  SET AS SOON AS THE PROGRAM IS LOADED, THEY WILL NOT BE TESTED
      184                            *  UNTIL THE INTERRUPT PRIORITY SEQUENCE HAS BEEN VERIFIED OR
      185                            *  CORRECTED.
      186                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      187                            *  SENSE SWITCH CONTROL.
      188                            *
      189                            *  SS1   CONTROLS EXIT FROM OPTIONAL ROUTINES. SEE CONTROL BIT
      190                            *        EXPLANATIONS FOR CONTROL BITS 4, 5, 6, AND 7.
      191                            *
      192                            *        SS1 SET ON WILL APPECIABLY DECREASE THE EXECUTION TIME
      193                            *        FOR A SINGLE PASS OF THE INTERRUPT PATTERN GENERATOR.
      194                            *        IT WILL HAVE TO BE SET OFF TO MAKE ANY OPTIONS, SUCH
      195                            *        AS CHANGING CONTROL BIT SETTINGS VIA KSR, AVAILABLE.
      196                            *
      197                            *  SS2,SS3        RESPONSE TO MESSAGES. SEE EXPLANATION OF
      198                            *                 'RESPOND,MN' OUTPUT.
      199                            *
      200                            *                 IF JX-58 ROUTINE IS ENTERED, SS 2 ON WILL CAUSE
      201                            *                 LOOP ON FIRST SUBROUTINE, SS 3 ON WILL CAUSE LOOP
      202                            *                 ON SECOND SUBROUTINE.
      203                            *
      204                            *  SS4   EACH TIME SS4 IS REVERSED THE KSR WILL BE ADDRESSED
      205                            *        FOR CONTROL BIT SETTINGS, UNLESS THE INTERRUPT PATTERN
      206                            *        GENERATOR HAS BEEN ENTERED, AND SENSE SWITCH ONE IS SET
      207                            *        ON.
      208                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      209                            *  WD POINTER TO INTERRUPT ADDRESS CROSS REFERENCE
      210                            *LEVEL X0  X1  X2  X3  X4  X5  X6  X7  X8  X9  XA  XB  XC  XD  XE  XF
      211                            * GROUP
      212                            *  0X  052 053 054 055 056 057 058 059 05A 05B 05C 05D 05E 05F 050 051
      213                            *
      214                            *  2X  060 061 062 063 064 065 066 067 068 069 06A 06B 06C 06D 06E 06F
      215                            *
      216                            *  3X  070 071 072 073 074 07  076 077 078 079 07A 07B 07C 07D 07E 07F
      217                            *
      218                            *  4X  080 081 082 083 084 08  086 087 088 089 08A 08B 08C 08D 08E 08F
      219                            *
      220                            *  5X  090 091 092 093 094 09  096 097 098 099 09A 09B 09C 09D 09E 09F
      221                            *
      222                            *  6X  0A0 0A1 0A2 0A3 0A4 0A  0A6 0A7 0A8 0A9 0AA 0AB 0AC 0AD 0AE 0AF
      223                            *
      224                            *  7X  0B0 0B1 0B2 0B3 0B4 0B  0B6 0B7 0B8 0B9 0BA 0BB 0BC 0BD 0BE 0BF
      225                            *
      226                            *  8X  0C0 0C1 0C2 0C3 0C4 0C  0C6 0C7 0C8 0C9 0CA 0CB 0CD 0CD 0CE 0CF
      227                            *
      228                            *  9X  0D0 0D1 0D2 0D3 0D4 0D  0D6 0D7 0D8 0D9 0DA 0DB 0DC 0DD 0DE 0DF
      229                            *
      230                            *  AX  0E0 0E1 0E2 0E3 0E4 0E  0E6 0E7 0E8 0E9 0EA 0EB 0EC 0ED 0EE 0EF
      231                            *
      232                            *  BX  0F0 0F1 0F2 0F3 0F4 0F5 0F6 0F7 0F8 0F9 0FA 0FB 0FC 0FD 0FE 0FF
      233                            *
      234                            *  CX  100 101 102 103 104 105 106 107 108 109 10A 10B 10C 10D 10E 10F
      235                            *
      236                            *  DX  110 111 112 113 114 115 116 117 118 119 11A 11B 11C 11D 11E 11F
      237                            *
      238                            *  EX  120 121 122 123 124 125 126 127 128 129 12A 12B 12C 12D 12E 12F
      239                            *
      240                            *  FX  130 131 132 133 134 135 136 137 138 139 13A 13B 13C 13D 13E 13F
      241                            *  WD GROUP ZERO LEVEL NAMES, IN ORDER OF TABLE:
      242                            *  CP1 CP2 CP3 CP4 MP UA C1=0 C2=0 C3=0 C4=0 I/O PCP UA UA PON POFF
      243                            *  OPT OPT               OPT  OPT                          OPT OPT
      244                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      245                            *  OPTIONAL JX-58 ROUTINE.
      246                            *
      247                            *  ENTRY TO THIS ROUTINE IS ACCOMPLISHED BY SETTING CONTROL BIT 9
      248                            *  TO THE ONE STATE. AS SOON AS ENTRY IS MADE, CONTROL BIT 9 IS
      249                            *  ZEROED.
      250                            *
      251                            *  THIS ROUTINE IS COMPOSED OF TWO SUB-ROUTINES. THE FIRST SUB-ROUTINE
      252                            *  TRIGGERS ALL LEVELS IN THE TEST GROUP SIMULTANEOUSLY, TESTS THAT
      253                            *  ALL IMPLEMENTED LEVELS ADVANCE TO THE WAITING STATE, THEN HANDLES
      254                            *  ALL INTERRUPTS WHICH OCCUR WITH FULL CHECKING. THE SECOND SUB-ROUTINE
      255                            *  TRIGGERS ALL IMPLEMENTED LEVELS SINGLY, CHECKS FOR THE ADVANCE TO
      256                            *  THE WAITING STATE, THEN HANDLES THE INTERRUPT WITH FULL CHECKING.
      257                            *
      258                            *  SETTING SS 2 ON WILL CAUSE LOOPING IN THE FIRST SUB-ROUTINE, AND
      259                            *  SS 3 WILL ACCOMPLISH THE SAME FOR THE SECOND SUB-ROUTINE, BUT IF
      260                            *  BOTH ARE SET ON, SS 3 IS NEVER TESTED. IF NEITHER IS SET ON, A LOOP
      261                            *  A LOOP FROM ONE SUB-ROUTINE TO THE OTHER IS MAINTAINED UNTIL SS 1
      262                            *  IS REVERSED.
      263                            *
      264                            *  IF A WATCH-DOG TIMER TRAP OCCURS IN THE JX-58 ROUTINE, THE ROUTINE
      265                            *  IS ABORTED AFTER THE FOLLOWING MESSAGE IS PRINTED OUT:
      266                            *
      267                            *  'WDT, JX-58 ROUTINE ABORTED'
      268                            *
      269                            *  THE INVALID INPUT MSG, 'INV', WILL OCCUR IF WD GROUP ZERO OR ONE
      270                            *  IS SPECIFIED AS THE JX-58 TEST GROUP.
      271                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      272                            *  AT CERTAIN POINTS IN THE PROGRAM, THE MESSAGE 'MN', OR 'RESPOND,
      273                            *  MN' WILL BE PRINTED OUT. 'MN' WILL CORRESPOND TO ONE OF THE
      274                            *  FOLLOWING MESSAGES, FOR INFORMATION AND/OR RESPONSE, AND
      275                            *  THE APPROPRIATE ACTION INDICATED SHOULD BE TAKEN. CLEARING THE
      276                            *  WAIT, OR ENTERING THE INFORMATION REQUESTED WILL DIRECT THE PROGRAM
      277                            *  TO THE ROUTINE TO IMPLEMENT THE DECISION. IF THE WAIT IS CLEARED
      278                            *  BEFORE ANY ACTION HAS BEEN TAKEN, OR THE INFORMATION IS NOT ENTERED
      279                            *  CORRECTLY, THE REQUEST CONDITION WILL OCCUR AGAIN.
      280                            *
      281                            *  AT ANY POINT AT WHICH A RESPONSE VIA SENSE SWITCHES IS REQUESTED,
      282                            *  THE SETTING OF THE SENSE SWITCHES AT THE TIME OF THE REQUEST WILL
      283                            *  BE SEEN IN BITS 24-27 OF THE INSTRUCTION ADDRESS BEING DISPLAYED
      284                            *  BY THE WAIT.
      285                            *
      286                            *  THE FORMAT FOR ANY ADDITIONAL INFORMATION FOLLOWS EACH EXPLANATION.
      287                            *  SEE 'M2 ERROR' DESCRIPTION, BELOW, FOR FORMAT CONVENTIONS.
      288                            *
      289                            *  M1
      290                            *  THIS MESSAGE INDICATES THAT THE INTERRUPT LOGIC PRESENTED THE
      291                            *  CORRECT ADDRESS FOR EVERY INTERRUPT WHICH OCCURRED IN THE INTERRUPT
      292                            *  ADDRESS TEST.
      293                            *
      294                            *  M2    (ERROR FLAG. FORMAT=T XXXXXXX. T=TYPE,XXXXXXX=ERROR DATA.)
      295                            *  THE OUTPUT FOLLOWING THIS MESSAGE INDICATES AN ERROR DETECTED
      296                            *  IN A CHECKING ROUTINE. THE ERROR TYPES, INDICATED BY THE FIRST
      297                            *  DIGIT PRINTED, ARE AS FOLLOWS:
      298                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      299                            *  IN THE SYMBOLIC EXAMPLES FOR ERROR TYPES, THE THE FOLLOWING
      300                            *  CONVENTIONS ARE USED:
      301                            *  G= WD GROUP    L= LEVEL BIT MINUS 16, WITHIN GROUP.
      302                            *  BBBB= WD REGISTER BITS.
      303                            *  C= FAILING CONDITIONS.     R= ROUTINE POINTER.
      304                            *  AAA OR A = ADDRESS PRESENTED.
      305                            *  SS= PRIORITY SEQUENCE.
      306                            *  DIGITS SHOWN AS ZEROES WILL ALWAYS BE ZEROES FOR THE TYPE.
      307                            *
      308                            *  TYPE     SIGNIFICANCE OF SEVEN DIGITS FOLLOWING TYPE.
      309                            *
      310                            *  1. MORE THAN ONE INTERRUPT WAS RECEIVED FOR A SINGLE TRIGGER
      311                            *     ADDRESSING THE WD GROUP AND LEVEL INDICATED BY THE TWO LOW
      312                            *     ORDER DIGITS.
      313                            *
      314                            *     1 00000GL
      315                            *
      316                            *  2. EXPECTED ADDRESS AND RECEIVED ADDRESS FOR A LEVEL DO NOT MATCH.
      317                            *     THE LOW ORDER 3 DIGITS ARE THE RECIEVED ADDRESS, AND THE HIGH
      318                            *     ORDER 3 DIGITS ARE THE EXPECTED ADDRESS.
      319                            *
      320                            *     2 AAA0AAA
      321                            *
      322                            *  3. MORE THAN ONE INTERRUPT WAS RECEIVED FOR A SINGLE TRIGGER
      323                            *     DURING THE SEQUENCE DETERMINATION ROUTINE. THE HIGH ORDER
      324                            *     TWO DIGITS ARE THE SEQUENCE NUMBER OF THE LEVEL, AND THE LOW
      325                            *     ORDER TWO DIGITS ARE THE WD GROUP AND LEVEL.
      326                            *
      327                            *     3 SS000GL
      328                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      329                            *  4. A LEVEL OR LEVELS OCCURRED EITHER DURING THE ADDRESS CHECK
      330                            *     ROUTINE, OR DURING THE SEQUENCE DETERMINATION ROUTINE, BUT
      331                            *     NOT DURING BOTH ROUTINES. THE LOW ORDER FOUR DIGITS ARE THE
      332                            *     WD REGISTER BITS, AND THE HIGH ORDER DIGIT IS THE WD GROUP.
      333                            *     IF THE THIRD FROM THE HIGH ORDER DIGIT IS A ONE, ALL OF THE
      334                            *     LEVELS INDICATED OCCURRED DURING THE ADDRESS TEST, WHEN LEVELS
      335                            *     ARE TRIGGERED SINGLY, BUT NOT DURING THE SEQUENCE DETERMINATION
      336                            *     ROUTINE, WHEN ALL LEVELS ARE TRIGGERED CONCURRENTLY. IF THE
      337                            *     THIRD FROM THE HIGH ORDER DIGIT IS A ZERO, AT LEAST ONE OF
      338                            *     THE LEVELS INDICATED OCCURRED DURING THE SEQUENCE DETERMINATION
      339                            *     ROUTINE, BIT NOT DURING THE ADDRESS TEST. UNDER THE LATTER
      340                            *     CONDITION THE ADDRESS PRESENTED MAY BE INCORRECT, AND IF IT
      341                            *     IS, THIS WILL BECOME APPARENT BY THE ERROR INFORMATION THAT
      342                            *     WILL BE PRINTED OUT AS THE PROGRAM CONTINUES.
      343                            *     THIS ERROR CAN ALSO BE CAUSED IF AN LPSD,3 INSTRUCTION CANNOT *D01
      344                            *     ARM AN INTERRUPT.                                             *D01
      345                            *
      346                            *     4 G0RBBBB
      347                            *
      348                            *  5. AN INTERRUPT OCCURRED BEFORE A LEVEL OF HIGHER PRIORITY. THE
      349                            *     HIGH ORDER TWO DIGITS INDICATE THE LEVEL WHICH OCCURRED FIRST,
      350                            *     AND THE LOW ORDER TWO DIGITS INDICATE THE LEVEL WHICH OCCURRED
      351                            *     SECOND, OPPOSITE TO THE EXPECTED SEQUENCE OF THE TWO.
      352                            *
      353                            *     5 GL000GL
      354                            *
      355                            *  6. AN UNEXPECTED INTERRUPT OCCURRED FOR THE GROUP AND LEVEL
      356                            *     INDICATED BY THE TWO LOW ORDER DIGITS.
      357                            *     THE HIGH ORDER DIGIT INDICATES THE CONDITIONS UNDER WHICH THE
      358                            *     FAILURE OCCURRED, AS INDICATED FOR TYPE SEVEN FAILURES.
      359                            *     IF AN INTERRUPT IS INDICATED AS A TYPE 6 FAILURE, AND THE
      360                            *     FAILING CONDITION WAS THAT THE LEVEL WAS ARMED, ENABLED,
      361                            *     TRIGGERED, AND NOT INHIBITED, THE LEVEL IS NOT INCLUDED IN
      362                            *     THE FIELD OF INTERRUPTS IMPLEMENTED. IT WILL PROBABLEY CAUSE
      363                            *     A SEQUENCE ERROR INDICATION ALSO.
      364                            *
      365                            *     6 C0000GL
      366                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      367                            *  7. AN INTERRUPT LEVEL OR LEVELS FAILED TO OCCUR WHEN EXPECTED.
      368                            *     THE HIGH ORDER DIGIT INDICATES THE WD GROUP, AND THE LOW
      369                            *     ORDER FOUR DIGITS ARE THE WD REGISTER BITS. THE SECOND HIGHEST
      370                            *     ORDER DIGIT INDICATES THE CONDITIONS UNDER WHICH THE LEVEL
      371                            *     CORRESPONDING TO THE HIGHEST ORDER REGISTER BIT FAILED, AS
      372                            *     FOLLOWS:
      373                            *
      374                            *     AR=ARMED, EN=ENABLED,TR=TRIGGERED,IN=INHIBITED. N PREFIX=NOT.
      375                            *
      376                            *     0. NAR,NEN,NTR,NIN.           8. AR,NEN,NTR,NIN.
      377                            *     1. NAR,NEN,NTR,IN             9. AR,NEN,NTR,IN.
      378                            *     2. NAR,NEN,TR,NIN.            A. AR,NEN,TR,NIN.
      379                            *     3. NAR,NEN,TR,IN              B. AR,NEN,TR,IN.
      380                            *     4. NAR,EN,NTR,NIN.            C. AR,EN,NTR,NIN.
      381                            *     5. NAR,EN,NTR,IN.             D. AR,EN,NTR,IN.
      382                            *     6. NAR,EN,TR,NIN.             E. AR,EN,TR,NIN.
      383                            *     7. NAR,EN,TR,IN.              F. AR,EN,TR,IN.
      384                            *
      385                            *     7 GC0BBBB
      386                            *
      387                            *  8. AN INTERRUPT PRESENTED AN ADDRESS OUTSIDE THE RANGE X'50'-X'13F'.
      388                            *     THE THREE LOW ORDER DIGITS ARE THE ADDRESS PRESENTED.
      389                            *
      390                            *     8 0000AAA
      391                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      392                            *  9. AN INTERRUPT PRESENTED AN ADDRESS BETWEEN 0 AND 15. THE
      393                            *     LOW ORDER DIGIT IS THE ADDRESS PRESENTED.
      394                            *
      395                            *     9 000000A
      396                            *
      397                            *  A. ALL IMPLEMENTED LEVELS IN WD GROUP UNDER TEST DID NOT ADVANCE
      398                            *     TO THE WAITING STATE WHEN TRIGGERED VIA THE JX-58. THE FOUR
      399                            *     LOW ORDER DIGITS ARE THE LEVEL BITS WHICH FAILED.
      400                            *
      401                            *     A 000BBBB
      402                            *
      403                            *  B. IN THE SECOND SUB-ROUTINE OF THE JX-58 TEST ROUTINE, A LEVEL
      404                            *     WHICH HAS INTERRUPTED AT SOME PREVIOUS TIME FAILED TO ADVANCE
      405                            *     TO THE WAITING STATE WHEN TRIGGERED VIA THE JX-58.
      406                            *     THE SINGLE BIT INDICATED WITHIN THE FOUR LOW ORDER DIGITS
      407                            *     IS THE WD REGISTER BIT FOR THE FAILING LEVEL. IF THE LEVEL
      408                            *     INDICATED ONLY FAILS VIA THE JX-58, THE FAILURE IS PROBABLY
      409                            *     THE NORMAL TRIGGERING DIODE.
      410                            *
      411                            *     B 000BBBB
      412                            *
      413                            *  C. AN INTERRUPT LEVEL PRESENTED AN ADDRESS OUTSIDE THE RANGE X'50'
      414                            *     X'13F' DURING THE SEQUENCE DETERMINATION ROUTINE. THE HIGH ORDER
      415                            *     TWO DIGITS ARE THE SEQUENCE NUMBER, AND THE LOW ORDER THREE
      416                            *     DIGITS ARE THE ADDRESS PRESENTED.
      417                            *
      418                            *     C SS00AAA
      419                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      420                            *  D. AN INTERRUPT OCCURRED WHILE THE HIGHEST PRIORITY INTERRUPT WAS
      421                            *     IN THE ACTIVE STATE. THE THREE LOW ORDER DIGITS ARE THE ADDRESS
      422                            *     PRESENTED.
      423                            *
      424                            *     D 0000AAA
      425                            *
      426                            *  M3
      427                            *  WHEN ALL LEVELS IN WD GROUP ZERO WERE ADDRESSED BY WD INSTRUCTIONS
      428                            *  TO ARM-DISABLE, TRIGGER, ENABLE, NO INTERRUPTS OCCURRED. THE PROGRAM
      429                            *  HAS GONE INTO A LOOP ARMING, ENABLING, AND TRIGGERING ALL WD GROUP
      430                            *  ZERO LEVELS. IF ANY INTERRUPTS DO OCCUR, THEY WILL BE IGNORED.
      431                            *
      432                            *  M4
      433                            *  AN ADDRESS OTHER THAN X'52' OR X'54' WAS PRESENTED AS THE LOCATION
      434                            *  OF THE HIGHEST PRIORITY INTERRUPT IMPLEMENTED. THE ADDRESS PRESENTED
      435                            *  FOLLOWS THIS MESSAGE. THE PROGRAM GOES INTO A LOOP ADDRESSING ONLY
      436                            *  COUNTER PULSE ONE AND COUNTER PULSE THREE INTERRUPTS.
      437                            *
      438                            *  AAA
      439                            *
      440                            *  M5
      441                            *  ALL INTERRUPTS WHICH OCCURRED DURING SEQUENCE DETERMINATION ROUTINE
      442                            *  PRESENTED CORRECT ADDRESSES, NO MULTIPLE INTERRUPTS OCCURRED FOR
      443                            *  ANY SINGLE TRIGGER, AND ALL LEVELS WHICH OCCURRED IN THE ADDRESS
      444                            *  CHECK ROUTINE OCCURRED IN THIS ROUTINE. SEQUENCE FOLLOWS.
      445                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      446                            *  M6
      447                            *  THE PRINT-OUT FOLLOWING THIS MESSAGE IS THE PRIORITY SEQUENCE
      448                            *  OF ALL INTERRUPTS WHICH WERE GENERATED BY WD INSTRUCTIONS. THE
      449                            *  FIRST DIGIT OF EACH PAIR OF DIGITS IS THE WD GROUP, AND THE
      450                            *  SECOND DIGIT IS THE WD REGISTER BIT NUMBER MINUS SIXTEEN, THUS:
      451                            *
      452                            *   03  WOULD REFER TO COUNTER FOUR COUNT PULSE INTERRUPT, AND
      453                            *   26  WOULD REFER TO THE SEVENTH INTERRUPT LEVEL IN EXTERNAL
      454                            *   CHASSIS 2. ALL DIGITS ARE HEXIDECIMAL.
      455                            *
      456                            *  THE LIST SHOULD BE CHECKED FOR ACCURACY IN SEQUENCE, AND IN TOTAL
      457                            *  CONTENT. IF CORRECT IN ALL RESPECTS, SENSE SWITCH 2 SHOULD BE
      458                            *  REVERSED AND THE WAIT CLEARED.
      459                            *
      460                            *  IF AN ERROR EXISTS, SENSE SWITCH 3 SHOULD BE REVERSED. IF SENSE
      461                            *  SWITCH 3 IS REVERSED, THE KSR WILL BE ADDRESSED FOR INPUT. THE
      462                            *  CORRECT SEQUENCE SHOULD BE ENTERED, IN THE FORMAT OF THE OUTPUT,
      463                            *  EXCEPT THAT CONSECUTIVE LEVELS MAY BE INDICATED WITH A DASH, THUS
      464                            *
      465                            *  02-05 NEW LINE CHARACTER
      466                            *  20-3F NEW LINE CHARACTER
      467                            *  06-0A NEW LINE CHARACTER
      468                            *  40-65 NEW LINE CHARACTER
      469                            *  /END  NEW LINE CHARACTER
      470                            *
      471                            *  THE '/END' INPUT INDICATES THAT ALL ENTRIES HAVE BEEN COMPLETED.
      472                            *
      473                            *  SINGLE LEVELS MAY BE ENTERED AS FOLLOWS:
      474                            *  02 NEW LINE CHARACTER
      475                            *  03 NEW LINE CHARACTER
      476                            *  /END NEW LINE CHARACTER
      477                            *
      478                            *  IF AN ERROR IS MADE IN THE INPUT, ENTER '/SEQ', AND RE-ENTER
      479                            *  THE ENTIRE SEQUENCE.
      480                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      481                            *  IF AN UN-NOTICED ERROR IS MADE IN THE INPUT, THE MESSAGE
      482                            *  'INV' WILL BE PRINTED, AND THE KSR RE-ADDRESSED FOR INPUT.
      483                            *  RE-ENTER ONLY THE LAST ENTRY. THE SEQUENCE MUST NOT BE RE-STARTED.
      484                            *
      485                            *  IF THE SEQUENCE INDICATES THAT INTERRUPTS HAVE OCCURRED FROM THE
      486                            *  UNASSIGNED LEVELS IN WD GROUP ZERO, THEY SHOULD NOT BE CONSIDERED
      487                            *  ERRORS, NOR SHOULD ANY ATTEMPT BE MADE TO DELETE THEM FROM THE
      488                            *  PRIORITY SEQUENCE. SUCH AN ATTEMPT WOULD CAUSE A FALSE INDICATION
      489                            *  OF UNEXPECTED INTERRUPTS FROM THOSE LEVELS ANY TIME THEY ARE ARMED,
      490                            *  ENABLED, TRIGGERED, AND NOT INHIBITED.
      491                            *
      492                            *  M7
      493                            *  THE BASIC TESTS OF THE INTERRUPT SYSTEM HAVE BEEN COMPLETED. SINCE
      494                            *  NO CONTROL BITS DIRECTED OTHERWISE, THE INTERRUPT PATTERN
      495                            *  GENERATOR ROUTINE IS BEING ENTERED.
      496                            *
      497                            *  M8
      498                            *  A WD INSTRUCTION ADDRESSING WD GROUP ONE GENERATED AN INTERRUPT.
      499                            *  THE PROGRAM HAS GONE INTO A LOOP ARM-DISABLE, TRIGGER, ENABLE ALL
      500                            *  LEVEL BITS, SPECIFYING WD GROUP ONE. ANY INTERRUPTS WHICH OCCUR
      501                            *  WILL BE CLEARED AND IGNORED.
      502                            *
      503                            *  M9
      504                            *  THE PREVIOUSLY COMPUTED HIGHEST PRIORITY INTERRUPT IMPLEMENTED
      505                            *  FAILED TO OCCUR WHEN ADDRESSED BY WD INSTRUCTIONS TO ARM, ENABLE,
      506                            *  TRIGGER. THE PROGRAM HAS GONE INTO A LOOP ADDRESSING ONLY THAT
      507                            *  LEVEL, CLEARING ANY INTERRUPTS WHICH DO OCCUR.
      508                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      509                            *  MA
      510                            *  THE HIGHEST PRIORITY INTERRUPT IMPLEMENTED PRESENTED AN ADDRESS
      511                            *  WHICH WAS DIFFERENT FROM THE ADDRESS IT PRESENTED WHEN ORIGINALLY
      512                            *  COMPUTED. THE PROGRAM IS LOOPING AS DESCRIBED FOR M9, ABOVE.
      513                            *  THE ADDRESS PRESENTED FOLLOWS.
      514                            *
      515                            *  AAA
      516                            *
      517                            *  MB
      518                            *  KSR IS ADDRESSED FOR INPUT. ENTER WD GROUP, IN HEXIDECIMAL, FOR
      519                            *  JX-58 TEST, FOLLOWED BY NEW LINE CHARACTER.
      520                            *
      521                            *  MC
      522                            *  ENTRY HAS BEEN MADE TO THE MANUAL PATTERN ROUTINE. THE KSR HAS BEEN
      523                            *  ADDRESSED FOR INPUT. ENTER PATTERN INFORMATION ACCORDING TO INST-
      524                            *  RUCTIONS BELOW.
      525                            *
      526                            *  MD
      527                            *  THE INTERRUPT PATTERN GENERATOR HAS COMPLETED A PASS.
      528                            *
      529                            *  IN ANY CASE REQUIRING THE REVERSAL OF SS 2 OR 3, IF BOTH ARE
      530                            *  REVERSED BEFORE THE WAIT IS CLEARED, THE EFFECT WILL BE THAT
      531                            *  OF REVERSING SS 2 ONLY.
      532                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      533                            *  CONTROL BITS
      534                            *
      535                            *  CONTROL BITS 4, 5, 6, 7, AND 9 ARE RESET AS SOON AS ENTRY
      536                            *  IS MADE TO THE ROUTINES THEY CONTROL.
      537                            *
      538                            *   BIT           ZERO STATE.                ONE STATE.
      539                            *
      540                            *  0. NORMAL ERROR PRINOUTS.        0. SUPPRESS ERROR PRINTOUTS.
      541                            *                                      IF PRINTING IS SURPRESSED, THE
      542                            *                                      ALARM INDICATOR WILL BE SET ON
      543                            *                                      IF A ROUTINE ATTEMPTS TO OUTPUT
      544                            *                                      AN ERROR MESSAGE.
      545                            *
      546                            *  1. CONTINUE ON ERROR.            1. WAIT ON ERROR, AFTER OUTPUTTING
      547                            *                                      ERROR INFORMATION.
      548                            *
      549                            *  2. CONTINUE ON ERROR.            2. LOOP ON ERROR UNTIL SS1
      550                            *                                      IS REVERSED.
      551                            *
      552                            *  3. CONTINUE SEQUENCE OF PROGRAM, 3. LOOP ON BASIC TESTS.
      553                            *     ENTER PATTERN GENERATOR AFTER
      554                            *     BASIC TESTS.
      555                            *
      556                            *  4. CONTINUE AUTOMATIC TESTS.     4. GENERATE ALL POSSIBLE INTERRUPTS,
      557                            *                                      CLEAR ACTIVE STATES, AND IGNORE.
      558                            *                                      LOOP IS MAINTAINED UNTIL SS 1
      559                            *                                      IS REVERSED.
      560                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      561                            *  5. CONTINUE AUTOMATIC TESTS.     5. ARM-DISABLE, TRIGGER, ENABLE
      562                            *                                      ALL INTERRUPT LEVELS SINGLY,
      563                            *                                      STARTING WITH WD GROUP ZERO,
      564                            *                                      LEVEL BIT 16. LEVEL BIT IS
      565                            *                                      SHIFTED RIGHT, AND THE WD
      566                            *                                      GROUP IS INCREMENTED. THE
      567                            *                                      PATTERN RESTARTS AFTER LEVEL
      568                            *                                      BIT 31 OF WD GROUP 15 IS
      569                            *                                      ADDRESSED, AND THE LOOP IS
      570                            *                                      MAINTAINED UNTIL SS 1 IS
      571                            *                                      REVERSED.
      572                            *
      573                            *  6. SAME AS 5, ABOVE.             6. SAME AS 5, ABOVE, EXCEPT THAT
      574                            *                                      THE SEQUENCE IS STARTED AT WD
      575                            *                                      GROUP 15, LEVEL BIT 31, THE
      576                            *                                      LEVEL BIT IS SHIFTED LEFT, AND
      577                            *                                      THE WD GROUP IS DECREMENTED.
      578                            *
      579                            *  7. CONTINUE PROGRAM SEQUENCE.    7. LOOP IN JX-58 ROUTINE UNTIL
      580                            *                                      SS1 IS REVERSED.
      581                            *
      582                            *  8. DUMP PATTERN NUMBER IF THE    8. DO NOT DUMP PATTERN NUMBER
      583                            *     INTERRUPT PATTERN GENERATOR      ON ERROR.
      584                            *     GENERATES A FAILING CONDITION,
      585                            *     AND CONTROL BIT 10 IS SET TO
      586                            *     A ONE.
      587                            *
      588                            *  9. CONTINUE NORMAL SEQUENCE.     9. ADDRESS KSR FOR INPUT OF
      589                            *                                      INTERRUPT PATTERN TO LOOP ON.
      590                            *                                      SEE TEXT, BELOW, FOR INPUT
      591                            *                                      FORMAT. EXIT WHEN SS1 IS SET ON.
      592                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      593                            *  10. NO EFFECT                    10. DUMP PATTERN ON ERROR, THUS:
      594                            *
      595                            *
      596                            *                                       ARMED, DISABLED LEVELS.
      597                            *                                       ENABLED LEVELS.
      598                            *                                       TRIGGERED LEVELS.
      599                            *                                       INHIBITED LEVELS.
      600                            *
      601                            *                                       FOR IMPLEMENTED WD GROUPS ONLY.
      602                            *
      603                            *  11. DO NOT PRESERVE ERROR DATA   11. PRESERVE FIRST 64 ERROR
      604                            *      IF ERROR PRINTING IS             RECORDS IF ERROR PRINTING
      605                            *      SURPRESSED.                      IS SURPRESSED.
      606                            *
      607                            *  TO MODIFY CONTROL BIT SETTINGS VIA THE KSR, REVERSE SS 4.
      608                            *  WHEN THE SENSE SWITCHES ARE READ, THE MESSAGE 'CONTROL BITS'
      609                            *  WILL BE OUTPUTTED, AND THE KSR WILL BE ADDRESSED FOR INPUT.
      610                            *  ENTER THE HEX DIGITS TO BE SET INTO THE CONTROL BITS. THE DIGITS
      611                            *  ENTERED WILL BE LEFT JUSTIFIED INTO THE FIELD IF FEWER THAN 8
      612                            *  DIGITS ARE ENTERED. ONLY THE NUMBER OF DIGITS ENTERED WILL BE
      613                            *  MODIFIED.
      614                            *
      615                            *  UNLESS SPECIFICALLY NOTED OTHERWISE, IF A CONFLICT EXISTS
      616                            *  IN THE RESULTS OF TWO OR MORE CONTROL BIT SETTINGS, THE LOWEST
      617                            *  NUMBER CONTROL BIT IN THE ONE STATE WILL CONTROL THE OUTCOME.
      618                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      619                            *  IF CONTROL BITS ONE AND TWO ARE BOTH SET TO ONES, IF AN ERROR OCCURS
      620                            *  THE PROGRAM WILL WAIT THE FIRST TIME ONLY, THEN LOOP ON THE ERROR
      621                            *  UNTIL SENSE SWITCH ONE IS REVERSED.
      622                            *
      623                            *  IF CONTROL BIT 11 IS SET ON, AND PRINTING IS SURPRESSED, ALL ERROR
      624                            *  RECORDS, UP TO 64, WHICH HAVE BEEN STACKED WILL BE DUMPED THE FIRST
      625                            *  TIME THE ERROR STACK IS TESTED AFTER CONTROL BIT ZERO IS ZEROED. IF
      626                            *  CONTROL BIT 11 IS RESET BEFORE ERROR PRINTING IS ALLOWED, ALL ERROR
      627                            *  RECORDS PRESERVED WILL BE DELETED.
      628                            *
      629                            *  THE ERROR RECORDS PRESERVED BY CONTROL BIT 11 ARE THE 'M2 ERROR'
      630                            *  RECORDS ONLY, AND NOT THE FAILING PATTERNS. IF CONTROL BIT 10 IS
      631                            *  SET TO A ONE, AND ERROR PRINTING IS ALLOWED AFTER MORE THAN 63
      632                            *  ERRORS HAVE OCCURRED, THE 'M2 ERROR' RECORD FOR THE PATTERN WHICH
      633                            *  WILL BE DUMPED WILL NOT BE AVAILABLE.
      634                            *
      635                            *  THE CONTROL BITS MAY BE SET OR RESET BY MANUAL ENTRY AT ANY TIME.
      636                            *  THE FIELD LABELED 'CONBITS' :                                    *D01
      637   01 00202    00000865              DATA     CONBITS                                           *D01
      638                            *  CONTAINS THE CONTROL BITS.                                       *D01
      639                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      640                            *  INPUT FORMAT FOR CONTROL BIT 9 IS AS FOLLOWS, IN HEXIDECIMAL.
      641                            *
      642                            *     FORMAT                  MEANING
      643                            *
      644                            *  XXXX NEW LINE CHARACTER    LEVEL BITS FOR WD GRP 0 TO ARM, DISABLE.
      645                            *  XXXX NEW LINE CHARACTER    LEVEL BITS FOR WD GRP 2 TO ARM, DISABLE.
      646                            *  .                                                .
      647                            *  XXXX  ''  ''     ''         ''    ''      LAST WD GRP IMPLEMENTED.
      648                            *  AEND  ''  ''     ''        END OF ARM, DISABLE INPUT.
      649                            *
      650                            *  XXXX  ''  ''     ''        LEVEL BITS FOR WD GRP 0 TO ENABLE.
      651                            *  .                                                2
      652                            *  XXXX  ''  ''     ''         ''    ''      LAST WD GRP IMPLEMENTED.
      653                            *  EEND  ''  ''     ''        END OF ENABLE INPUT.
      654                            *
      655                            *  XXXX  ''  ''     ''        LEVEL BITS FOR WD GRP 0 TO TRIGGER
      656                            *  .                                                2
      657                            *  XXXX  ''  ''     ''         ''    ''      LAST WD GRP IMPLEMENTED
      658                            *  TEND  ''  ''     ''        END OF TRIGGER INPUT.
      659                            *
      660                            *  X     ''  ''     ''        INHIBIT BIT CONFIGURATION.
      661                            *  IEND  ''  ''     ''        END OF ALL INPUT.
      662                            *
      663                            *  THE INHIBIT INPUT MAY BE SPECIFIED AS A SINGLE HEX DIGIT FROM ZERO
      664                            *  TO SEVEN, IN WHICH CASE ONLY THAT INHIBIT BIT PATTERN WILL BE USED
      665                            *  FOR THE MANUAL PATTERN LOOP, OR THE ALPHA CHARACTER 'R' MAY BE
      666                            *  SPECIFIED. IN THE LATTER CASE, THE INHIBIT BIT CONFIGURATION WILL
      667                            *  ROTATE FROM SEVEN DOWN TO ZERO AND BACK TO SEVEN AS THE MANUAL
      668                            *  PATTERN IS EXECUTED.
      669                            *
      670                            *  THE VARIOUS INPUTS MUST BE IN THE ORDER INDICATED. ANY WD GROUPS
      671                            *  NOT SPECIFIED FOR A SPECIFIC TYPE OF INPUT WILL BE ZEROED FOR
      672                            *  THAT FUNCTION.
      673                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      674                            *  FOR EXAMPLE:
      675                            *
      676                            *  FC30 NL
      677                            *  F000 NL
      678                            *  FFFF NL
      679                            *  AEND NL
      680                            *
      681                            *  F130 NL
      682                            *  1000 NL
      683                            *  EEND NL
      684                            *
      685                            *  3000 NL
      686                            *  TEND NL
      687                            *
      688                            *  0 NL
      689                            *  IEND NL
      690                            *
      691                            *  THE ABOVE INPUT WOULD GENERATE THE FOLLOWING RESULTS. NOTE THAT
      692                            *  THE HIGHEST LEVEL IMPLEMENTED WILL NOT BE ADDRESSED TO ARM, DISABLE.
      693                            *  THIS IS TRUE BECAUSE THE ACTIVE STATE OF THE INTERRUPT WOULD BE
      694                            *  CLEARED PREMATURELY IF THE ARM, DISABLE WD ADDRESSED IT.
      695                            *
      696                            *  LEVELS ARMED AND DISABLED:
      697                            *  WD GROUP ZERO, LEVEL BITS  7C30
      698                            *  WD GROUP TWO, LEVEL BITS   F000
      699                            *  WD GROUP THREE, LEVEL BITS FFFF
      700                            *
      701                            *  LEVELS ENABLED:
      702                            *  WD GROUP ZERO, LEVEL BITS  F130
      703                            *  WD GROUP TWO, LEVEL BITS   1000
      704                            *
      705                            *  LEVELS TRIGGERED
      706                            *  WD GROUP ZERO, LEVEL BITS  3000
      707                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      708                            *  NO INHIBITS WILL BE SET.
      709                            *
      710                            *  WITH NO FAILURES, ONLY TWO LEVELS IN WD GROUP ZERO WILL GENERATE
      711                            *  INTERRUPTS. NO LEVELS IN WD GROUP FOUR THROUGH FIFTEEN WILL BE
      712                            *  ARMED AND DISABLED, NO LEVELS IN WD GROUP THREE THROUGH FIFTEEN
      713                            *  WILL BE ENABLED, AND NO LEVELS IN WD GROUP TWO THROUGH FIFTEEN
      714                            *  WILL BE TRIGGERED.
      715                            *
      716                            *  IF ANY ERRORS ARE MADE IN THE INPUT, THE MESSAGE
      717                            *  'INV' WILL BE PRINTED. RE-ENTER ONLY THE LAST WD GROUP.
      718                            *  TO RE-START THE ENTIRE ENTRY, ENTER /PAT NEW LINE CHARACTER.
      719                            *
      720                            *
      721                            *  C H E C K I N G    I N T E R P R O C E S S O R                   *D01
      722                            *                                                                   *D01
      723                            *        I N T E R R U P T    F E A T U R E                         *D01
      724                            *
      725                            *
      726                            *  THE FOLLOWING PROCEDURE MAY BE USED TO TEST THE 7700 INTERPROCESSOR
      727                            *  INTERRUPT FEATURE. (CPU-TO-CPU INTERRUPT)
      728                            *
      729                            *  IF CPU'S INVOLVED SHARE MEMORY LOCATIONS, BE CERTAIN THAT THERE
      730                            *  IS NO OVERLAP OF ADDRESSES WITHIN THE FIRST 8K WORDS OF CORE
      731                            *  BETWEEN THE PROCESSORS.
      732                            *
      733                            *  LOAD THE PROGRAM ON BOTH PROCESSORS. WHEN THE BASIC TESTS HAVE
      734                            *  BEEN COMPLETED, SET CONTROL BIT 9 ON EACH PROCESSOR, TO SELECT
      735                            *  THE MANUAL ENTRY ROUTINE. MAKE THE FOLLOWING ENTRIES ON BOTH
      736                            *  PROCESSORS.
      737                            *
      738                            *  ARM AND DISABLE ALL LEVELS.
      739                            *
      740                            *  ENABLE ALL LEVELS EXCEPT IN WD GROUP IN WHICH INTERPROCESSOR
      741                            *  INTERRUPTS APPEAR. IN THIS GROUP, ENABLE THE ODD LEVELS WHICH
      742                            *  ARE INTERCONNECTED AND ALL OTHERS NOT INTERCONNECTED.
      743                            *
      744                            *  TRIGGER ONLY THE EVEN LEVELS IN THE WD GROUP IN WHICH THE
      745                            *  INTERPROCESSOR INTERRUPTS APPEAR.
      746                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      747                            *  SET INHIBITS TO ZERO.
      748                            *
      749                            *  WHEN ALL THE ABOVE INFORMATION HAS BEEN ENTERED ON BOTH PROCESSORS,
      750                            *  EACH PROCESSOR WILL ACTUALLY BE TRIGGERING INTERRUPTS IN THE OTHER.
      751                            *  BY OBSERVING THE INPUT, IT CAN BE SEEN THAT NO INTERRUPTS SHOULD
      752                            *  BE EXPECTED IN EITHER PROCESSOR, CONSIDERING THE FACT THAT THE
      753                            *  PREDICTING ROUTINE ONLY USES ITS OWN INPUT TO DETERMINE WHICH
      754                            *  INTERRUPTS SHOULD OCCUR. ONCE A SYNCHRONISM BETWEEN THE PROCESSORS
      755                            *  HAS BEEN ACHIEVED, THEY WILL BEGIN TO RECEIVE INTERRUPTS FROM EACH
      756                            *  OTHER. THIS WILL GENERATE ERROR INFORMATION. THE ERROR INFORMATION
      757                            *  SHOULD INDICATE UNEXPECTED INTERRUPTS FROM ALL INTERPROCESSOR LEVELS.
      758                            *
      759                            *  SYNCHRONISM IS ACHIEVED BY ADDRESS STOPPING BOTH PROCESSORS AT THE
      760                            *  ADDRESS OF 'CHKPATTC'+3 :                                        *D01
      761   01 00203    00000656              DATA     CHKPATTC+3                                        *D01
      762                            *  BY ALTERNATELY CLEARING THE WAIT CONDITION ON EACH PROCESSOR     *D01
      763                            *  BY MOVING THE COMPUTE SWITCH FROM RUN TO IDLE TO RUN, ERROR      *D01
      764                            *  PRINTOUTS SHOULD OCCUR FOR EVERY INTERPROCESSOR LEVEL, AND NO    *D01
      765                            *  OTHER LEVELS.                                                    *D01
      766                            *
      767                            *  AN EXAMPLE OF THE INPUTS AND CORRECT OUTPUTS FOR THE SPECIFIED COND-
      768                            *  ITIONS FOLLOWS.
      769                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      770                            *  CONDITIONS:
      771                            *  2 SIGMA 7 PROCESSORS.
      772                            *  NO SHARED MEMORY.
      773                            *  FIRST EXTERNAL CHASSIS (WD GROUP 2) ON PROCESSOR 'A' IS
      774                            *    CONNECTED TO SECOND EXTERNAL CHASSIS (WD GROUP 3) ON
      775                            *    PROCESSOR 'B' VIA A 7700, WITH 3 LEVELS CONNECTED IN
      776                            *    EACH DIRECTION. LEVELS 6-11 ON PROCESSOR 'A' ARE
      777                            *    CONNECTED TO LEVELS 0-5 ON PROCESSOR 'B'.
      778                            *  PROCESSOR 'A' HAS THE FOLLOWING ADDITIONAL LEVELS IMPLEMENTED.
      779                            *  00 01 02 03 04 06 07 08 09 0A 0B
      780                            *  20 21 22 23 24 25
      781                            *  30 31
      782                            *  40 41 42 43
      783                            *  PROCESSOR 'B' HAS THE FOLLOWING ADDITIONAL LEVELS IMPLEMENTED.
      784                            *  02 03 04 05 08 09 0A 0B
      785                            *  20 21 22 23
      786                            *  36 37
      787                            *  40 41
      788                            *
      789                            *
      790                            *  THE FOLLOWING INPUT IS MADE:
      791                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      792                            *  ON PROCESSOR 'A'
      793                            *
      794                            *  FBF0
      795                            *  FFF0
      796                            *  C                                (EITHER ONE OR FOUR CHARACTERS)
      797                            *  F                                (BEFORE THE NL CHARACTER IS   )
      798                            *  AEND                             (ACCEPTED BY THE PROGRAM      )
      799                            *
      800                            *  FBF0
      801                            *  FD50
      802                            *  C
      803                            *  F
      804                            *  EEND
      805                            *
      806                            *  0
      807                            *  02A0
      808                            *  TEND
      809                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      810                            *  ON PROCESSOR 'B'
      811                            *
      812                            *  3CF0
      813                            *  F
      814                            *  FF00
      815                            *  C
      816                            *  AEND
      817                            *
      818                            *  3CF0
      819                            *  F
      820                            *  5700
      821                            *  C
      822                            *  EEND
      823                            *
      824                            *  0
      825                            *  0
      826                            *  A800
      827                            *  TEND
      828                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      829                            *  THE FOLLOWING 'ERROR' MESSAGES WOULD INDICATE CORRECT
      830                            *  OPERATION.
      831                            *
      832                            *  ON PROCESSOR 'A':
      833                            *
      834                            *  M2 ERROR
      835                            *  6 C00002A
      836                            *  6 C000028
      837                            *  6 C000026
      838                            *
      839                            *  ON PROCESSOR 'B':
      840                            *
      841                            *  M2 ERROR
      842                            *  6 C000034
      843                            *  6 C000032
      844                            *  6 C000030
      845                            *
      846                            *  ANY MISSING OR ADDITION INFORMATION WOULD INDICATE A FAILURE.
      847                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      848                            *  DESCRIPTION OF INTERRUPT HISTORY TABLE
      849                            *  THERE ARE 256 POSSIBLE ENTRIES IN THIS TABLE, CORRESPONDING TO
      850                            *  THE 256 COMBINATIONS OF WD GROUPS AND REGISTER BITS. TO FACILITATE
      851                            *  ACCESSING THIS TABLE, POWER FAIL-SAFE INTERRUPTS HAVE BEEN ASSIGNED
      852                            *  PRIORITIES OF 14 AND 15, AND A GAP HAS BEEN LEFT BETWEEN GROUP 0
      853                            *  AND GROUP 2. THE ENTRIES IN THE TABLE HAVE BEEN ARRANGED SO THAT
      854                            *  THERE IS A DIRECT RELATIONSHIP BETWEEN THE LOCATION OF AN ENTRY
      855                            *  IN THE TABLE, THE ADDRESS FROM WHICH THE CORRESPONDING INTERRUPT
      856                            *  SHOULD OCCUR, AND THE WD GROUP AND LEVEL BIT.
      857                            *
      858                            *  WORD ONE.
      859                            *
      860                            *  BIT            SIGNIFICANCE OF BIT IN THE ONE STATE.
      861                            *  0-3. WD GROUP.
      862                            *
      863                            *  4-7. LEVEL BIT NUMBER MINUS SIXTEEN.
      864                            *
      865                            *  8-17. NOT USED.
      866                            *
      867                            *  18. INTERRUPT RECEIVED FROM THIS LEVEL THIS PATTERN.
      868                            *
      869                            *  19-22 NOT USED.
      870                            *
      871                            *  23-31. ADDRESS WHICH CORRESPONDING LEVEL IS EXPECTED
      872                            *         TO PRESENT TO CPU.
      873                            *
      874                            *  WORD TWO
      875                            *
      876                            *  BIT      SIGNIFICANCE OF BIT IN ONE STATE.
      877                            *  0-15. NOT USED.
      878                            *
      879                            *  16-23. ORDER IN WHICH INTERRUPT OCCURRED.
      880                            *
      881                            *  24-31. ORDER IN WHICH INTERRUPT SHOULD HAVE OCCURRED,
      882                            *         ACCORDING TO OPERATOR INPUT.
      883                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      884                                     SYSTEM   SIG7FDP
      885         00000000           SPD      CNAME
      886                                     PROC
      887                                     BOUND    8
      888                            LF       DATA     AF(1)-1
      889                                     GEN,1,15,1,15  1,AF(2),1,0
      890                                     PEND
      891         00000000           PSD      CNAME    0
      892                                     PROC
      893                                     BOUND    8
      894                            LF       DATA     AF(1),0
      895                                     PEND
      896         00000022           CDWC     CNAME    X'22'
      897         00000002           CDW      CNAME    X'02'
      898         00000000           CDWN     CNAME    0
      899                                     PROC
      900                                     BOUND    8
      901                            LF       EQU      DA(%)
      902                                     GEN,8,24 AF(1),BA(AF(2))
      903                                     GEN,8,24 NAME,AF(3)
      904                                     PEND
      905         00000000           LDATA    CNAME
      906                                     PROC
      907                                     BOUND    4
      908                            LF       EQU      %
      909                            P        SET      AF(1)-128*(AF(1)/128)
      910                                     DO       AF(1)/128
      911                                     DO       158
      912                                     DATA     AF(2)
      913                                     FIN
      914                                     FIN
      915                                     DO       P
      916                                     GEN,32   AF(2)
      917                                     FIN
      918                                     PEND
      919                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
      920         00000000           IO       EQU      0                 IO COMMAND SET UP.
      921         00000001           XA       EQU      1
      922         00000002           OT       EQU      2                 SUB-ROUTINE REGISTER OUTPUT.
      923         00000003           XB       EQU      3
      924         00000004           IA       EQU      4                 SUB-ROUTINE INPUT ADDRESS.
      925         00000005           GR       EQU      5                 WD GROUP INDEX.
      926         00000006           OA       EQU      6                 SUB-ROUTINE OUTPUT ADDRESS.
      927         00000007           LNK      EQU      7                 SUB-ROUTINE LINKAGE.
      928         00000008           WKA      EQU      8
      929         00000009           LV       EQU      9                 WD INTERRUPT LEVEL REGISTER.
      930         0000000A           CSA      EQU      10                COMPARE SELECTIVE ARGUEMENT.
      931         0000000B           CSM      EQU      11                COMPARE SELECTIVE MASK.
      932         0000000C           WKB      EQU      12
      933         0000000D           WKC      EQU      13
      934         0000000E           WKD      EQU      14
      935         0000000F           IN       EQU      15                SUB-ROUTINE REGISTER INPUT.
      936         00001100           DISARM   EQU      X'1100'
      937         00001200           ARME     EQU      X'1200'
      938         00001300           ARMD     EQU      X'1300'
      939         00001400           ENABLE   EQU      X'1400'
      940         00001500           DISABLE  EQU      X'1500'
      941         00001600           ENADISA  EQU      X'1600'
      942         00001700           TRIG     EQU      X'1700'
      943                            *
      944                            *  COMPUTE HIGHEST PRIORITY INTERRUPT IMPLEMENTED.
      945                            *
      946   01 00200                          ORG      512
            01 00200
      947   01 00200    02200000 A   COMPHIGH LCI      0
      948   01 00201    2A0009E2              LM,0     CTCHHNG1          SET UP FOR HANDLING POSSIBLE
      949                            *                                   INTERRUPT WITHIN REG PAGE.
      950   01 00202    2290FFFF A            LI,LV    65535
      951   01 00203    6D901300 A            WD,LV    ARMD              ARM, DISABLE
      952   01 00204    6D901700 A            WD,LV    TRIG               TRIGGER,
      953   01 00205    6D901400 A            WD,LV    ENABLE              ENABLE, ALL WD GROUP ZERO LEVELS.
      954   01 00206    20000000 A            AI,0     0
      955   01 00207    6A700436              BAL,LNK  CHKSTK            NO INT OCCURRED, OR INT OCCURRED
      956   01 00208    02000000 A            NOP                        WITHIN REG PAGE.
      957   01 00209    68000569              B        HIFAILA
      958   01 0020A    3520093B     HIGHA    STW,OT   HIPRI             STORE ADDR OF HIGHEST PRI INT.
      959   01 0020B    6A700436              BAL,LNK  CHKSTK
      960   01 0020C    02000000 A            NOP
      961   01 0020D    3220093B              LW,OT    HIPRI
      962   01 0020E    21200052 A            CI,OT    82
      963   01 0020F    68300212              BE       HIGHB             BR IF CNT PULSE ONE IS HIGHEST PRI.
      964   01 00210    21200054 A            CI,OT    84
      965   01 00211    69300575              BNE      HIFAILB           BR IF CNT PULSE 3 IS NOT HIGH PRI.
      966   01 00212    328409AC     HIGHB    LW,WKA   BIT16-82,OT
      967   01 00213    3580093D              STW,WKA  HIBIT
      968   01 00214    48800924              EOR,WKA  BIT16X31
      969   01 00215    3580093C              STW,WKA  NOTHI
      970   01 00216    6A7005AF              BAL,LNK  KILLINTS
      971                            *
      972                            *  CHECK INTERRUPT ADDRESS LINES.
      973                            *
      974   01 00217    6A7004B0     CKINTAD  BAL,LNK  SETPSDS
      975   01 00218    22800239              LI,WKA   CKINTADD
      976   01 00219    3580091D              STW,WKA  ADRDCODE          SET UP INT RETURN ADDRESS.
      977   01 0021A    22800010 A            LI,WKA   16
      978   01 0021B    35800915              STW,WKA  GRPCNT
      979   01 0021C    22500000 A            LI,GR    0
      980   01 0021D    355008C5              STW,GR   IPHOLD+GR
      981   01 0021E    329009FE     CKINTADA LW,LV    BIT16
      982   01 0021F    359008C9              STW,LV   IPHOLD+LV
      983   01 00220    22800002 A   CKINTADB LI,WKA   2
      984   01 00221    35800A56              STW,WKA  WAITCNT
      985   01 00222    02200000 A            LCI      0                 SETUP FOR HANDLING INTERRUPTS
      986   01 00223    2A0009E2              LM,0     CTCHHNG1          FROM ADDRESSES X'0'-X'F'.
      987   01 00224    329008C9              LW,LV    IPHOLD+LV
      988   01 00225    325008C5              LW,GR    IPHOLD+GR
      989   01 00226    6D9A1300 A            WD,LV    ARMD,GR
      990   01 00227    6D9A1700 A            WD,LV    TRIG,GR
      991   01 00228    6D9A1400 A            WD,LV    ENABLE,GR
      992   01 00229    33F00A56              MTW,-1   WAITCNT
      993   01 0022A    69200229              BCS,2    %-1
      994   01 0022B    2590007F A   CKINTADC SLS,LV   -1
      995   01 0022C    02200000 A            LCI      0
      996   01 0022D    2B0008C0              STM,0    IPHOLD
      997   01 0022E    32900009 A            LW,LV    LV
      998   01 0022F    69300220              BCS,3    CKINTADB
      999   01 00230    20500001 A            AI,GR    1
     1000   01 00231    02200000 A            LCI      0
     1001   01 00232    2B0008C0              STM,0    IPHOLD
     1002   01 00233    33F00915              MTW,-1   GRPCNT
     1003   01 00234    6920021E              BCS,2    CKINTADA
     1004   01 00235    220004B4              LI,IO    MSG1CDW
     1005   01 00236    6A700436              BAL,LNK  CHKSTK
     1006   01 00237    6A7004A5              BAL,LNK  KSRA
     1007   01 00238    68000257              B        CHKWD                                             *D01
     1008   01 00239    21500001 A   CKINTADD CI,GR    1
     1009   01 0023A    6830055A              BE       GRPONE            BR IF INT FROM WD GRP ONE.
     1010   01 0023B    32800002 A            LW,WKA   OT
     1011   01 0023C    6A7005A4              BAL,LNK  YLDINTAD          EXTRACT HISTORY TABLE ENTRY ADDR
     1012                            *                                   FROM GROUP AND LEVEL.
     1013   01 0023D    32A00008 A            LW,CSA   WKA
     1014   01 0023E    22B001FF A            LI,CSM   511
     1015   01 0023F    C5A00002 A            CS,CSA   *OT               COMPARE RECEIVED ADDR WITH EXPECTED.
     1016   01 00240    69300250              BNE      CKINTADH          BR IF NOT EQUAL.
     1017   01 00241    32800A00              LW,WKA   BIT18
     1018   01 00242    CB800002 A            AND,WKA  *OT               TEST FOR PREVIOUS INT
     1019   01 00243    68300248              BCR,3    CKINTADE          BR IF NO PREVIOUS INT FROM LEVEL.
     1020   01 00244    F2800002 A            LB,WKA   *OT
     1021   01 00245    498009F7              OR,WKA   BIT3              FLAG ERROR TYPE.
     1022   01 00246    09800956              PSW,WKA  ERRSTK
     1023   01 00247    6800024B              B        CKINTADF
     1024   01 00248    B2800002 A   CKINTADE LW,WKA   *OT
     1025   01 00249    49800A00              OR,WKA   BIT18
     1026   01 0024A    B5800002 A            STW,WKA  *OT
     1027   01 0024B    528A0909     CKINTADF LH,WKA   NTNTIMPL,GR
     1028   01 0024C    49800009 A            OR,WKA   LV
     1029   01 0024D    558A0909              STH,WKA  NTNTIMPL,GR       MAKE ENTRY TO TABLE OF IMPLEMENTED
     1030                            *                                   INTERRUPT LEVELS.
     1031   01 0024E    6D9A1100 A   CKINTADG WD,LV    DISARM,GR         CLEAR INTERRUPT FROM ACTIVE STATE,
     1032                            *                                   AND CONTINUE TRIGGERING.
     1033   01 0024F    6800022B              B        CKINTADC
     1034   01 00250    B2800002 A   CKINTADH LW,WKA   *OT
     1035   01 00251    25800014 A            SLS,WKA  20
     1036   01 00252    25800079 A            SLS,WKA  -7
     1037   01 00253    4980000A A            OR,WKA   CSA               COMBINE REC AND EXPECTED INT.
     1038   01 00254    498009F6              OR,WKA   BITTWO
     1039   01 00255    09800956              PSW,WKA  ERRSTK
     1040   01 00256    6800024E              B        CKINTADG
     1041                            *                                                                   *D01
     1042                            *  CHECK WD INSTRUCTION FOR RESETTING INTERRUPT GRP INHIBITS.       *D01
     1043                            *                                                                   *D01
     1044   01 00257    0F000958     CHKWD    XPSD,0   CHKWD1            SET INT. INHIBTS                *D01
     1045   01 00258    6800026A              B        GETSEQ            EXIT                            *D01
     1046   01 00259    0F00095C     CHKWDA   XPSD,0   CHKWD2            STORE PSD                       *D01
     1047   01 0025A    22D00007 A            LI,WKC   7                 CI,EI,II BIT MASK               *D01
     1048   01 0025B    7280095D              LB,WKA   CHKWD2+1          GET INHIBIT BITS                *D01
     1049   01 0025C    4580000D A            CS,WKA   WKC                                               *D01
     1050   01 0025D    68300261              BCR,3    CHKWDB            B: IF BITS ARE SET              *D01
     1051   01 0025E    220004B2              LI,IO    MSGWDCDW                                          *D01
     1052   01 0025F    6A7004A5              BAL,LNK  KSRA              XPSD FAILED TO SET BITS         *D01
     1053   01 00260    68000257              B        CHKWD             LOOP                            *D01
     1054   01 00261    6D000027 A   CHKWDB   WD,0     X'27'             RESET INT INHIBITS              *D01
     1055   01 00262    0F000960              XPSD,0   CHKWD3            STORE PSD                       *D01
     1056   01 00263    72800961              LB,WKA   CHKWD3+1          GET INHIBIT BITS                *D01
     1057   01 00264    4B80000D A            AND,WKA  WKC                                               *D01
     1058   01 00265    68300269              BCR,3    %+4               B: IF NOT RESET                 *D01
     1059   01 00266    220004B3              LI,IO    MSGWDCDW+1                                        *D01
     1060   01 00267    6A7004A5              BAL,LNK  KSRA              WD FAILED TO RESET BITS         *D01
     1061   01 00268    68000261              B        CHKWDB                                            *D01
     1062   01 00269    0E000958              LPSD,0   CHKWD1            RESTORE INT INHIBIT BITS        *D01
     1063                            *
     1064                            *  DETERMINE INTERRUPT PRIORITY SEQUENCE.
     1065                            *
     1066   01 0026A    22800000 A   GETSEQ   LI,WKA   0                                                 *D01
     1067   01 0026B    35800866              STW,WKA  FTFLAG            RESET FIRST TIME FLAG           *D01
     1068   01 0026C    228002C1              LI,WKA   GETSEQH                                           *D01
     1069   01 0026D    35800920              STW,WKA  HIEXIT
     1070   01 0026E    6A7004C9              BAL,LNK  SETSTKS
     1071   01 0026F    6A700598              BAL,LNK  SETHI             PUT HIGHEST PRI INT IN ACTIVE STATE.
     1072   01 00270    22800001 A            LI,WKA   1
     1073   01 00271    358009F3              STW,WKA  CNTR
     1074   01 00272    22500000 A            LI,GR    0
     1075   01 00273    22E00010 A            LI,WKD   16
     1076   01 00274    3290093C              LW,LV    NOTHI
     1077   01 00275    68000277              B        %+2
     1078   01 00276    2290FFFF A   GETSEQA  LI,LV    65535
     1079   01 00277    33000866              MTW,0    FTFLAG                                            *D01
     1080   01 00278    6920027A              BCS,2    %+2               B: SECOND TIME                  *D01
     1081   01 00279    6D9A1300 A            WD,LV    ARMD,GR
     1082   01 0027A    6D9A1700 A            WD,LV    TRIG,GR
     1083   01 0027B    6D9A1400 A            WD,LV    ENABLE,GR
     1084   01 0027C    20500001 A            AI,GR    1
     1085   01 0027D    64E00276              BDR,WKD  GETSEQA
     1086   01 0027E    22E00200 A            LI,WKD   512
     1087   01 0027F    35E00A56              STW,WKD  WAITCNT
     1088   01 00280    22500000 A            LI,GR    0
     1089   01 00281    3290093D              LW,LV    HIBIT
     1090   01 00282    2280028C              LI,WKA   GETSEQC
     1091   01 00283    3580091D              STW,WKA  ADRDCODE
     1092   01 00284    680002A4              B        GETSEQE1                                          *D01
     1093   01 00285    33F00A56     GETSEQB  MTW,-1   WAITCNT
     1094   01 00286    69200285              BCS,2    %-1                                               *D01
     1095   01 00287    33000866              MTW,0    FTFLAG                                            *D01
     1096   01 00288    6830028A              BCR,3    %+2               B: IF FIRST TIME                *D01
     1097   01 00289    680002CB              B        CHKSEQ            EXIT                            *D01
     1098   01 0028A    33100866              MTW,1    FTFLAG            SET FIRST TIME FLAG             *D01
     1099   01 0028B    6800026C              B        GETSEQ+2                                          *D01
     1100   01 0028C    328009F3     GETSEQC  LW,WKA   CNTR
     1101   01 0028D    22100B0C              LI,XA    ITRNHIST
     1102   01 0028E    22C00100 A            LI,WKB   256
     1103   01 0028F    22300002 A            LI,XB    2
     1104   01 00290    32A00002 A            LW,CSA   OT
     1105   01 00291    22B001FF A            LI,CSM   511
     1106   01 00292    C5A00001 A   GETSEQD  CS,CSA   *XA
     1107   01 00293    693002B0              BNE      GETSEQF
     1108   01 00294    20100001 A            AI,XA    1
     1109   01 00295    22C00000 A            LI,WKB   0
     1110   01 00296    F1C60001 A            CB,WKB   *XA,XB
     1111   01 00297    693002B8              BNE      GETSEQG           BR IF MORE THAN ONE INT PER TRIG.
     1112   01 00298    33000866              MTW,0    FTFLAG                                            *D01
     1113   01 00299    6830029C              BCR,3    %+3                                               *D01
     1114   01 0029A    F5860001 A            STB,WKA  *XA,XB
     1115   01 0029B    331009F3              MTW,1    CNTR
     1116   01 0029C    201FFFFF A   GETSEQD1 AI,XA    -1                                                *D01
     1117   01 0029D    F2900001 A            LB,LV    *XA
     1118   01 0029E    32500009 A            LW,GR    LV
     1119   01 0029F    2590001C A            SLS,LV   28
     1120   01 002A0    25900064 A            SLS,LV   -28
     1121   01 002A1    2550007C A            SLS,GR   -4
     1122   01 002A2    221009FE              LI,XA    BIT16
     1123   01 002A3    B2920009 A            LW,LV    *LV,XA            LOAD LEVEL BIT FOR LAST INTERRUPT
     1124                            *                                   TO OCCUR.
     1125   01 002A4    528A086C     GETSEQE1 LH,WKA   LEVBITSA,GR                                       *D01
     1126   01 002A5    49800009 A            OR,WKA   LV
     1127   01 002A6    33000866              MTW,0    FTFLAG                                            *D01
     1128   01 002A7    683002A9              BCR,3    %+2               B: IF FIRST TIME                *D01
     1129   01 002A8    558A086C              STH,WKA  LEVBITSA,GR
     1130   01 002A9    6D9A1500 A            WD,LV    DISABLE,GR
     1131   01 002AA    02200000 A            LCI      0
     1132   01 002AB    2A0009E2              LM,0     CTCHHNG1
     1133   01 002AC    33000866     GETSEQE  MTW,0    FTFLAG                                            *D01
     1134   01 002AD    683002AF              BCR,3    %+2               B: IF FIRST TIME                *D01
     1135   01 002AE    0E20094E              LPSD,2   GETSEQ1           CLEAR INT                       *D01
     1136   01 002AF    0E30094E              LPSD,3   GETSEQ1           CLEAR AND ARM INT               *D01
     1137   01 002B0    20100002 A   GETSEQF  AI,XA    2
     1138   01 002B1    64C00292              BDR,WKB  GETSEQD
     1139   01 002B2    25800014 A            SLS,WKA  20
     1140   01 002B3    49800002 A            OR,WKA   OT
     1141   01 002B4    498009F4              OR,WKA   BITZERO           FLAG ERROR TYPE.
     1142   01 002B5    498009F5              OR,WKA   BITONE            *
     1143   01 002B6    09800956              PSW,WKA  ERRSTK            ENTER IN ERROR STACK.
     1144   01 002B7    680002AC              B        GETSEQE
     1145   01 002B8    3293FFFF A   GETSEQG  LW,LV    -1,XA
     1146   01 002B9    25900068 A            SLS,LV   -24
     1147   01 002BA    328009F3              LW,WKA   CNTR
     1148   01 002BB    25800014 A            SLS,WKA  20
     1149   01 002BC    49800009 A            OR,WKA   LV
     1150   01 002BD    498009F6              OR,WKA   BITTWO
     1151   01 002BE    498009F7              OR,WKA   BIT3
     1152   01 002BF    09800956              PSW,WKA  ERRSTK
     1153   01 002C0    6800029C              B        GETSEQD1                                          *D01
     1154   01 002C1    6A7005AF     GETSEQH  BAL,LNK  KILLINTS
     1155   01 002C2    6A700436              BAL,LNK  CHKSTK
     1156   01 002C3    02000000 A            NOP
     1157   01 002C4    22800000 A            LI,WKA   0
     1158   01 002C5    22100000 A            LI,XA    0
     1159   01 002C6    22C00100 A            LI,WKB   256
     1160   01 002C7    35820B0C              STW,WKA  ITRNHIST,XA
     1161   01 002C8    20100002 A            AI,XA    2
     1162   01 002C9    64C002C7              BDR,WKB  %-2
     1163   01 002CA    6800026A              B        GETSEQ
     1164                            *
     1165   01 002CB    221FFFF8 A   CHKSEQ   LI,XA    -8
     1166   01 002CC    32820911     CHKSEQA  LW,WKA   NTNTIMPL+8,XA
     1167   01 002CD    48820874              EOR,WKA  LEVBITSA+8,XA
     1168   01 002CE    693002D4              BCS,3    CHKSEQC           BR IF INT DID NOT OCCUR EVERY TIME
     1169                            *                                   IT WAS TRIGGERED.
     1170   01 002CF    651002CC              BIR,XA   CHKSEQA
     1171   01 002D0    220004C2              LI,IO    MSG5CDW
     1172   01 002D1    6A700436     CHKSEQB  BAL,LNK  CHKSTK
     1173   01 002D2    6A7004A5              BAL,LNK  KSRA
     1174   01 002D3    680002ED              B        CHKSEQE
     1175   01 002D4    32A00008 A   CHKSEQC  LW,CSA   WKA
     1176   01 002D5    25A00170 A            SLD,CSA  -16
     1177   01 002D6    25B00070 A            SLS,CSM  -16
     1178   01 002D7    22800008 A            LI,WKA   8
     1179   01 002D8    30800001 A            AW,WKA   XA
     1180   01 002D9    25800001 A            SLS,WKA  1
     1181   01 002DA    32A0000A A            LW,CSA   CSA
     1182   01 002DB    693002DE              BCS,3    CHKSEQD           BR IF EVEN WD GROUP.
     1183   01 002DC    20800001 A            AI,WKA   1
     1184   01 002DD    32A0000B A            LW,CSA   CSM
     1185   01 002DE    32B0000A A   CHKSEQD  LW,CSM   CSA
     1186   01 002DF    32500008 A            LW,GR    WKA
     1187   01 002E0    25800014 A            SLS,WKA  20
     1188   01 002E1    52CA0909              LH,WKB   NTNTIMPL,GR
     1189   01 002E2    4BC0000B A            AND,WKB  CSM
     1190   01 002E3    683002E5              BCR,3    %+2               BR IF LEVELS DID NOT INTERRUPT
     1191                            *                                   DURING ADDRESS TEST.
     1192   01 002E4    498009FD              OR,WKA   BIT15
     1193   01 002E5    4980000B A            OR,WKA   CSM
     1194   01 002E6    498009F5              OR,WKA   BITONE            FLAG ERROR TYPE.
     1195   01 002E7    09800956              PSW,WKA  ERRSTK
     1196   01 002E8    528A0909              LH,WKA   NTNTIMPL,GR
     1197   01 002E9    558A086C              STH,WKA  LEVBITSA,GR       DELETE ERRORS ONCE RECORDED.
     1198   01 002EA    680002CC              B        CHKSEQA
     1199   01 002EB    F2C0000C A   CHKSEQH  LB,WKB   *WKB
     1200   01 002EC    680002FC              B        CHKSEQG
     1201   01 002ED    32B0093D     CHKSEQE  LW,CSM   HIBIT
     1202   01 002EE    6A700591              BAL,LNK  BITCNT
     1203   01 002EF    202FFFF0 A            AI,OT    -16
     1204   01 002F0    55200FEE              STH,OT   LASTONE                                           *D01
     1205   01 002F1    22E000FF A            LI,WKD   255
     1206   01 002F2    22100006 A            LI,XA    6
     1207   01 002F3    22300001 A            LI,XB    1                 STH INDEX.
     1208   01 002F4    22D00001 A            LI,WKC   1                 NEXT-IN-SEQ SEARCH ARGUEMENT.
     1209   01 002F5    22C00B0C     CHKSEQF  LI,WKB   ITRNHIST
     1210   01 002F6    22800100 A            LI,WKA   256
     1211   01 002F7    F1D2000C A            CB,WKC   *WKB,XA
     1212   01 002F8    683002EB              BE       CHKSEQH
     1213   01 002F9    20C00002 A            AI,WKB   2
     1214   01 002FA    648002F7              BDR,WKA  %-3
     1215   01 002FB    22C0FF00 A            LI,WKB   255**8
     1216   01 002FC    55C60FEE     CHKSEQG  STH,WKB  LASTONE,XB                                        *D01
     1217   01 002FD    20300001 A            AI,XB    1
     1218   01 002FE    20D00001 A            AI,WKC   1                 INCR SEARCH ARGUEMENT.
     1219   01 002FF    64E002F5              BDR,WKD  CHKSEQF
     1220                            *
     1221                            *  FORMAT PRIORITY SEQUENCE FOR OUTPUT.
     1222                            *
     1223   01 00300    6A7004C9     OUTPSEQ  BAL,LNK  SETSTKS
     1224   01 00301    22E000ED A            LI,WKD   237
     1225   01 00302    22D000FF A            LI,WKC   255
     1226   01 00303    22100000 A            LI,XA    0
     1227   01 00304    3510088E              STW,XA   LEVBITSN+2
     1228   01 00305    3510088D              STW,XA   LEVBITSN+1
     1229   01 00306    226010EE              LI,OA    LASTONE+256                                       *D01
     1230   01 00307    3560088C              STW,OA   LEVBITSN
     1231   01 00308    22C00000 A            LI,WKB   0
     1232   01 00309    3210088E     OUTPSEQA LW,XA    LEVBITSN+2
     1233   01 0030A    71D20FEE              CB,WKC   LASTONE,XA                                        *D01
     1234   01 0030B    68300315              BE       OUTPSEQB
     1235   01 0030C    3230088D              LW,XB    LEVBITSN+1
     1236   01 0030D    52F60FEE              LH,IN    LASTONE,XB                                        *D01
     1237   01 0030E    3260088C              LW,OA    LEVBITSN
     1238   01 0030F    6A700587              BAL,LNK  TRANOUT
     1239   01 00310    328DFFFF A            LW,WKA   -1,OA
     1240   01 00311    4B80091A              AND,WKA  BLNKSTRP
     1241   01 00312    358DFFFE A            STW,WKA  -2,OA
     1242   01 00313    3310088C              MTW,1    LEVBITSN          INCR OUTPUT ADDRESS.
     1243   01 00314    20C00001 A            AI,WKB   1
     1244   01 00315    3320088E     OUTPSEQB MTW,2    LEVBITSN+2
     1245   01 00316    3310088D              MTW,1    LEVBITSN+1
     1246   01 00317    64E00309              BDR,WKD  OUTPSEQA
     1247   01 00318    220004C3              LI,IO    MSG6ACDW
     1248   01 00319    6A7004A5              BAL,LNK  KSRA
     1249                            *
     1250                            *  OUTPUT PRIORITY SEQUENCE RECEIVED.
     1251                            *
     1252   01 0031A    25C00002 A   DUMPSEQ  SLS,WKB  2
     1253   01 0031B    22100001 A            LI,XA    1
     1254   01 0031C    55C2098F              STH,WKB  SEQCDW1+1,XA      STORE COUNT OF ENTRIES TO PRINT.
     1255   01 0031D    22800015 A            LI,WKA   21
     1256   01 0031E    758010EE              STB,WKA  LASTONE+256                                       *D01
     1257   01 0031F    22100000 A            LI,XA    0
     1258   01 00320    32A010EE              LW,CSA   LASTONE+256                                       *D01
     1259   01 00321    22B0FF00 A            LI,CSM   255**8
     1260   01 00322    22C00100 A            LI,WKB   256
     1261   01 00323    45A210EE     DUMPSEQA CS,CSA   LASTONE+256,XA                                    *D01
     1262   01 00324    68300329              BE       DUMPSEQB
     1263   01 00325    25100002 A            SLS,XA   2
     1264   01 00326    758210EE              STB,WKA  LASTONE+256,XA    STORE NEW LINE CHAR AS FIRST    *D01
     1265                            *                                     BYTE OF EACH NEW WD GROUP.    *D01
     1266   01 00327    2510007E A            SLS,XA   -2
     1267   01 00328    32A210EE              LW,CSA   LASTONE+256,XA                                    *D01
     1268   01 00329    20100001 A   DUMPSEQB AI,XA    1
     1269   01 0032A    64C00323              BDR,WKB  DUMPSEQA
     1270   01 0032B    220004C6              LI,IO    SEQCDW
     1271   01 0032C    6A7004A5              BAL,LNK  KSRA              BY-PASS TEST FOR PRINT SURPRESSION.
     1272   01 0032D    220004CC              LI,IO    QUESTION
     1273   01 0032E    6A7004F5              BAL,LNK  RESP
     1274   01 0032F    22600519              LI,OA    BADSEQ
     1275   01 00330    6A7004DE              BAL,LNK  SSANS
     1276                            *
     1277                            *  BASIC TEST GENERATOR.
     1278                            *
     1279   01 00331    22800100 A   ALLAUTO  LI,WKA   256               MOVE RECEIVED PRIORITY TO EXPECTED
     1280   01 00332    22102C36              LI,XA    BA(ITRNHIST+1)+2  PRIORITY AFTER VERIFICATION.
     1281   01 00333    22302C37              LI,XB    BA(ITRNHIST+1)+3
     1282   01 00334    72C20000 A            LB,WKB   0,XA
     1283   01 00335    75C60000 A            STB,WKB  0,XB
     1284   01 00336    20100008 A            AI,XA    8
     1285   01 00337    20300008 A            AI,XB    8
     1286   01 00338    64800334              BDR,WKA  %-4
     1287   01 00339    6A7004B0     INITAUTO BAL,LNK  SETPSDS
     1288   01 0033A    6A7004FB              BAL,LNK  RDSS
     1289   01 0033B    6A700717              BAL,LNK  BS456
     1290   01 0033C    226007FB              LI,OA    JX
     1291   01 0033D    6A7005C1              BAL,LNK  TESTBSW
     1292   01 0033E    00000007 A            DATA     7
     1293   01 0033F    22600722              LI,OA    MANUAL
     1294   01 00340    6A7005C1              BAL,LNK  TESTBSW
     1295   01 00341    00000009 A            DATA     9
     1296   01 00342    22800007 A            LI,WKA   7
     1297   01 00343    35800A59              STW,WKA  INHIBITS
     1298         01 00344           ALLAUTOA EQU      %
     1299   01 00344    22800006 A   ALLAUTOB LI,WKA   6
     1300   01 00345    35800931              STW,WKA  AUTOSTEP
     1301   01 00346    35800932              STW,WKA  AUTOSTEP+1
     1302   01 00347    35800933              STW,WKA  AUTOSTEP+2
     1303   01 00348    2280035F     ALLAUTOC LI,WKA   ALLAUTOD
     1304   01 00349    3580091E              STW,WKA  CHKEXIT
     1305   01 0034A    22800627              LI,WKA   IGEN
     1306   01 0034B    3580091F              STW,WKA  EXECPATT
     1307   01 0034C    22800381              LI,WKA   ALLAUTOH
     1308   01 0034D    35800920              STW,WKA  HIEXIT
     1309   01 0034E    6A7004D2              BAL,LNK  CLEAR
     1310   01 0034F    223FFFF8 A            LI,XB    -8
     1311   01 00350    32100931              LW,XA    AUTOSTEP
     1312   01 00351    3282092A              LW,WKA   AP1,XA
     1313   01 00352    35860874              STW,WKA  LEVBITSA+8,XB
     1314   01 00353    65300352              BIR,XB   %-1
     1315   01 00354    223FFFF8 A            LI,XB    -8
     1316   01 00355    32100932              LW,XA    AUTOSTEP+1
     1317   01 00356    3282092A              LW,WKA   AP1,XA
     1318   01 00357    35860884              STW,WKA  LEVBITST+8,XB
     1319   01 00358    65300357              BIR,XB   %-1
     1320   01 00359    223FFFF8 A            LI,XB    -8
     1321   01 0035A    32100933              LW,XA    AUTOSTEP+2
     1322   01 0035B    3282092A              LW,WKA   AP1,XA
     1323   01 0035C    3586087C              STW,WKA  LEVBITSE+8,XB
     1324   01 0035D    6530035C              BIR,XB   %-1
     1325   01 0035E    680005F7              B        SETEXP
     1326   01 0035F    32800A58     ALLAUTOD LW,WKA   ERROR
     1327   01 00360    68300367              BCR,3    %+7               BR IF NO ERROR OCCURRED.
     1328   01 00361    22600364              LI,OA    %+3
     1329   01 00362    6A7005C1              BAL,LNK  TESTBSW           TEST FOR HALT ON ERROR.
     1330   01 00363    00000001 A            DATA     1
     1331   01 00364    22600385              LI,OA    AUTOERLP
     1332   01 00365    6A7005C1              BAL,LNK  TESTBSW           TEST FOR LOOP ON ERROR.
     1333   01 00366    00000002 A            DATA     2
     1334   01 00367    22600722              LI,OA    MANUAL
     1335   01 00368    6A7005C1              BAL,LNK  TESTBSW
     1336   01 00369    00000009 A            DATA     9
     1337   01 0036A    6A700717              BAL,LNK  BS456
     1338   01 0036B    226007FB              LI,OA    JX
     1339   01 0036C    6A7005C1              BAL,LNK  TESTBSW
     1340   01 0036D    00000007 A            DATA     7
     1341   01 0036E    33F00931              MTW,-1   AUTOSTEP
     1342   01 0036F    68100348              BCR,1    ALLAUTOC
     1343   01 00370    22800006 A   ALLAUTOE LI,WKA   6
     1344   01 00371    35800931              STW,WKA  AUTOSTEP
     1345   01 00372    33F00932              MTW,-1   AUTOSTEP+1
     1346   01 00373    68100348              BCR,1    ALLAUTOC
     1347   01 00374    22800006 A   ALLAUTOF LI,WKA   6
     1348   01 00375    35800932              STW,WKA  AUTOSTEP+1
     1349   01 00376    33F00933              MTW,-1   AUTOSTEP+2
     1350   01 00377    68100348              BCR,1    ALLAUTOC
     1351   01 00378    33F00A59              MTW,-1   INHIBITS
     1352   01 00379    68100344              BCR,1    ALLAUTOA
     1353   01 0037A    6A7005AF     ALLAUTOG BAL,LNK  KILLINTS
     1354   01 0037B    2260033A              LI,OA    INITAUTO+1
     1355   01 0037C    6A7005C1              BAL,LNK  TESTBSW
     1356   01 0037D    00000003 A            DATA     3
     1357   01 0037E    220004CF              LI,IO    MSG7CDW
     1358   01 0037F    6A7004A5              BAL,LNK  KSRA
     1359   01 00380    6800038F              B        IPGEN
     1360   01 00381    6A7005AF     ALLAUTOH BAL,LNK  KILLINTS
     1361   01 00382    6A700436              BAL,LNK  CHKSTK
     1362   01 00383    68000348              B        ALLAUTOC          CONTNUE, AFTER OUPTUTTING
     1363   01 00384    68000348              B        ALLAUTOC          ERROR INFORMATION
     1364   01 00385    3570091C     AUTOERLP STW,LNK  LOOPEXIT
     1365   01 00386    2280038A              LI,WKA   AUTOERRA
     1366   01 00387    3580091E              STW,WKA  CHKEXIT
     1367   01 00388    6C000000 A            RD,0     0
     1368   01 00389    74000917              STCF     HOLDSS1           STORE SETTING OF SS1.
     1369   01 0038A    226005F7     AUTOERRA LI,OA    SETEXP
     1370   01 0038B    6A7004ED              BAL,LNK  REVRS1            TEST FOR SS1 REVERSED.
     1371   01 0038C    2280035F              LI,WKA   ALLAUTOD
     1372   01 0038D    3580091E              STW,WKA  CHKEXIT
     1373   01 0038E    E800091C              B        *LOOPEXIT         EXIT WHEN SS1 REVERSED.
     1374                            *
     1375                            *  END OF BASIC TEST GENERATOR.
     1376                            *
     1377                            *
     1378                            *  GENERATE ALL POSSIBLE CONDITIONS OF THE INTERRUPT SYSTEM.
     1379                            *
     1380         01 0038F           IPGEN    EQU      %                 THIS ROUTINE WILL GENERATE EVERY
     1381                            *                                   POSSIBLE COMBINATION OF CONDITIONS
     1382                            *                                   IN THE INTERRUPT SYSTEM. AS THESE
     1383                            *                                   CONDITIONS ARE GENERATED, THEY ARE
     1384                            *                                   VERFIED FOR ACCURACY, AND ANY
     1385                            *                                   FAILURES WHICH OCCUR WILL BE IND-
     1386                            *                                   ICATED.
     1387                            *
     1388   01 0038F    22100002 A            LI,XA    2
     1389   01 00390    52820909              LH,WKA   NTNTIMPL,XA
     1390   01 00391    68300394              BCR,3    IPGENA            BR IF NO LEVEL IMPLEMENTED IN GR XA.
     1391   01 00392    20100001 A            AI,XA    1
     1392   01 00393    68000390              B        IPGEN+1
     1393   01 00394    201FFFFF A   IPGENA   AI,XA    -1
     1394   01 00395    35100912              STW,XA   HICHAS            STORE HIGHEST CHASSIS IMPLEMENTED.
     1395   01 00396    201FFFFF A            AI,XA    -1
     1396   01 00397    35100913              STW,XA   HICHAS1
     1397   01 00398    20100001 A            AI,XA    1
     1398   01 00399    22C00002 A            LI,WKB   2
     1399   01 0039A    22B00000 A   IPGENB   LI,CSM   0
     1400   01 0039B    52A20909              LH,CSA   NTNTIMPL,XA
     1401   01 0039C    22800010 A            LI,WKA   16
     1402   01 0039D    25A0017F A   IPGENC   SLD,CSA  -1
     1403   01 0039E    21B00000 A            CI,CSM   0
     1404   01 0039F    693003A1              BNE      IPGEND
     1405   01 003A0    6480039D              BDR,WKA  IPGENC
     1406   01 003A1    358208B0     IPGEND   STW,WKA  CHSLVCNT,XA       STORE NUM OF LEVELS IMPLEMENTED
     1407                            *                                   IN EACH WD GROUP.
     1408   01 003A2    6410039A              BDR,XA   IPGENB
     1409   01 003A3    64C0039A              BDR,WKB  IPGENB
     1410   01 003A4    328008B0              LW,WKA   CHSLVCNT
     1411   01 003A5    221FFFF1 A            LI,XA    -15
     1412   01 003A6    308208C0              AW,WKA   CHSLVCNT+16,XA
     1413   01 003A7    651003A6              BIR,XA   %-1
     1414   01 003A8    4B800924              AND,WKA  BIT16X31
     1415   01 003A9    35800A57              STW,WKA  WAITCON           STORE NEW INTERRUPT WAIT CONSTANT.
     1416   01 003AA    22500000 A            LI,GR    0
     1417   01 003AB    22800010 A            LI,WKA   16
     1418   01 003AC    3A1A08B0     IPGENE   LCW,XA   CHSLVCNT,GR
     1419   01 003AD    32C009FD              LW,WKB   BIT15
     1420   01 003AE    25C20000 A            SLS,WKB  0,XA
     1421   01 003AF    3AC0000C A            LCW,WKB  WKB
     1422   01 003B0    35CA08B0              STW,WKB  CHSLVCNT,GR       STORE PATTERN DECREMENT CONSTANT.
     1423   01 003B1    20500001 A            AI,GR    1                 INCR GROUP INDEX.
     1424   01 003B2    648003AC              BDR,WKA  IPGENE
     1425   01 003B3    22800000 A            LI,WKA   0
     1426   01 003B4    35800869              STW,WKA  IPCOUNT
     1427   01 003B5    3580086A              STW,WKA  IPCOUNT+1
     1428   01 003B6    221FFFF0 A            LI,XA    -16
     1429   01 003B7    52820911              LH,WKA   NTNTIMPL+8,XA     EXPAND IMPLEMENTED TABLE ENTRIES
     1430   01 003B8    4B800924              AND,WKA  BIT16X31          TO FULL WORDS, MOVE TO PATTERN
     1431   01 003B9    358208D0              STW,WKA  IPHOLD+16,XA      GENERATOR HOLD AREA.
     1432   01 003BA    358208E0              STW,WKA  IPHOLDA+16,XA
     1433   01 003BB    358208F0              STW,WKA  IPHOLDT+16,XA
     1434   01 003BC    35820900              STW,WKA  IPHOLDE+16,XA
     1435   01 003BD    651003B7              BIR,XA   %-6
     1436   01 003BE    228003E3              LI,WKA   STEPIP
     1437   01 003BF    3580091E              STW,WKA  CHKEXIT
     1438   01 003C0    228003DF              LI,WKA   IPGENH
     1439   01 003C1    35800920              STW,WKA  HIEXIT
     1440   01 003C2    22800627              LI,WKA   IGEN
     1441   01 003C3    3580091F              STW,WKA  EXECPATT
     1442   01 003C4    22800007 A   IPGENF   LI,WKA   7
     1443   01 003C5    35800A59              STW,WKA  INHIBITS
     1444   01 003C6    6A7004D2     IPGENG   BAL,LNK  CLEAR
     1445   01 003C7    3310086A              MTW,1    IPCOUNT+1         INCR LOW ORDER PATTERN COUNT WORD.
     1446   01 003C8    684003CE              BCR,4    %+6               BR IF NO OVERFLOW.
     1447   01 003C9    22800000 A            LI,WKA   0
     1448   01 003CA    3580086A              STW,WKA  IPCOUNT+1
     1449   01 003CB    33100869              MTW,1    IPCOUNT           INCR HIGH ORDER PATTERN COUNT WORD.
     1450   01 003CC    684003CE              BCR,4    %+2               BR IF NO OVERFLOW.
     1451   01 003CD    35800869              STW,WKA  IPCOUNT           COUNTS RESTARTS AT X'7FFFFFFF'
     1452                            *                                   TIMES X'7FFFFFFF' TIMES 8.
     1453   01 003CE    32100912              LW,XA    HICHAS
     1454   01 003CF    32300913              LW,XB    HICHAS1
     1455   01 003D0    328608D1              LW,WKA   IPHOLDA+1,XB
     1456   01 003D1    5582086C              STH,WKA  LEVBITSA,XA
     1457   01 003D2    328608E1              LW,WKA   IPHOLDT+1,XB
     1458   01 003D3    5582087C              STH,WKA  LEVBITST,XA
     1459   01 003D4    328608F1              LW,WKA   IPHOLDE+1,XB
     1460   01 003D5    55820874              STH,WKA  LEVBITSE,XA
     1461   01 003D6    641003D7              BDR,XA   %+1
     1462   01 003D7    643003D0              BDR,XB   %-7
     1463   01 003D8    328008D0              LW,WKA   IPHOLDA
     1464   01 003D9    5580086C              STH,WKA  LEVBITSA
     1465   01 003DA    328008E0              LW,WKA   IPHOLDT
     1466   01 003DB    5580087C              STH,WKA  LEVBITST
     1467   01 003DC    328008F0              LW,WKA   IPHOLDE
     1468   01 003DD    55800874              STH,WKA  LEVBITSE
     1469   01 003DE    680005F8              B        SETEXP+1
     1470   01 003DF    6A7005AF     IPGENH   BAL,LNK  KILLINTS
     1471   01 003E0    6A700436              BAL,LNK  CHKSTK
     1472   01 003E1    680003E3              B        STEPIP
     1473   01 003E2    680003E3              B        STEPIP
     1474   01 003E3    32800A58     STEPIP   LW,WKA   ERROR
     1475   01 003E4    683003EB              BCR,3    STEPIPB           BR IF NO ERROR.
     1476   01 003E5    226003E8              LI,OA    STEPIPA
     1477   01 003E6    6A7005C1              BAL,LNK  TESTBSW           TEST FOR HALT ON ERROR.
     1478   01 003E7    00000001 A            DATA     1
     1479   01 003E8    2260042D     STEPIPA  LI,OA    IPERLOOP
     1480   01 003E9    6A7005C1              BAL,LNK  TESTBSW           TEST FOR LOOP ON ERROR.
     1481   01 003EA    00000002 A            DATA     2
     1482   01 003EB    6C000000 A   STEPIPB  RD,0     0
     1483   01 003EC    698003FD              BCS,8    %+17              BY-PASS OPTION TEST IF SS1 SET.
     1484   01 003ED    22600339              LI,OA    INITAUTO
     1485   01 003EE    6A7005C1              BAL,LNK  TESTBSW           TEST FOR LOOP ON BASIC TESTS.
     1486   01 003EF    00000003 A            DATA     3
     1487   01 003F0    6A700717              BAL,LNK  BS456             TEST FOR ENTRY TO OPTIONAL ROUTINES.
     1488   01 003F1    226007FB              LI,OA    JX
     1489   01 003F2    6A7005C1              BAL,LNK  TESTBSW           TEST FOR ENTRY TO JX-58 ROUTINE.
     1490   01 003F3    00000007 A            DATA     7
     1491   01 003F4    22600722              LI,OA    MANUAL
     1492   01 003F5    6A7005C1              BAL,LNK  TESTBSW           TEST FOR ENTRY TO MANUAL INPUT TEST.
     1493   01 003F6    00000009 A            DATA     9
     1494   01 003F7    228003E3              LI,WKA   STEPIP
     1495   01 003F8    3580091E              STW,WKA  CHKEXIT
     1496   01 003F9    228003DF              LI,WKA   IPGENH
     1497   01 003FA    35800920              STW,WKA  HIEXIT
     1498   01 003FB    22800627              LI,WKA   IGEN
     1499   01 003FC    3580091F              STW,WKA  EXECPATT
     1500   01 003FD    33F00A59              MTW,-1   INHIBITS
     1501   01 003FE    681003C6              BCR,1    IPGENG            LOOP THROUGH 8 INHIBIT STATES.
     1502   01 003FF    6C000000 A            RD,0     0
     1503   01 00400    69800402              BCS,8    %+2               BY-PASS SS TEST IF SS1 SET ON.
     1504   01 00401    6A7004FB              BAL,LNK  RDSS
     1505   01 00402    32100912              LW,XA    HICHAS
     1506   01 00403    21100001 A   STEPIPC  CI,XA    1
     1507   01 00404    6820040B              BLE      STEPIPD
     1508   01 00405    328208B0              LW,WKA   CHSLVCNT,XA
     1509   01 00406    668208F0              AWM,WKA  IPHOLDE,XA
     1510   01 00407    681003C4              BCR,1    IPGENF
     1511   01 00408    328208C0              LW,WKA   IPHOLD,XA
     1512   01 00409    358208F0              STW,WKA  IPHOLDE,XA
     1513   01 0040A    64100403              BDR,XA   STEPIPC
     1514   01 0040B    328008B0     STEPIPD  LW,WKA   CHSLVCNT
     1515   01 0040C    668008F0              AWM,WKA  IPHOLDE
     1516   01 0040D    681003C4              BCR,1    IPGENF
     1517   01 0040E    328008C0              LW,WKA   IPHOLD
     1518   01 0040F    358008F0              STW,WKA  IPHOLDE
     1519   01 00410    32100912              LW,XA    HICHAS
     1520   01 00411    21100001 A   STEPIPE  CI,XA    1
     1521   01 00412    68200419              BLE      STEPIPF
     1522   01 00413    328208B0              LW,WKA   CHSLVCNT,XA
     1523   01 00414    668208E0              AWM,WKA  IPHOLDT,XA
     1524   01 00415    681003C4              BCR,1    IPGENF
     1525   01 00416    328208C0              LW,WKA   IPHOLD,XA
     1526   01 00417    358208E0              STW,WKA  IPHOLDT,XA
     1527   01 00418    64100411              BDR,XA   STEPIPE
     1528   01 00419    328008B0     STEPIPF  LW,WKA   CHSLVCNT
     1529   01 0041A    668008E0              AWM,WKA  IPHOLDT
     1530   01 0041B    681003C4              BCR,1    IPGENF
     1531   01 0041C    328008C0              LW,WKA   IPHOLD
     1532   01 0041D    358008E0              STW,WKA  IPHOLDT
     1533   01 0041E    32100912              LW,XA    HICHAS
     1534   01 0041F    21100001 A   STEPIPG  CI,XA    1
     1535   01 00420    68200427              BLE      STEPIPH
     1536   01 00421    328208B0              LW,WKA   CHSLVCNT,XA
     1537   01 00422    668208D0              AWM,WKA  IPHOLDA,XA
     1538   01 00423    681003C4              BCR,1    IPGENF
     1539   01 00424    328208C0              LW,WKA   IPHOLD,XA
     1540   01 00425    358208D0              STW,WKA  IPHOLDA,XA
     1541   01 00426    6410041F              BDR,XA   STEPIPG
     1542   01 00427    328008B0     STEPIPH  LW,WKA   CHSLVCNT
     1543   01 00428    668008D0              AWM,WKA  IPHOLDA
     1544   01 00429    681003C4              BCR,1    IPGENF
     1545   01 0042A    220004D6              LI,IO    MSGDCDW
     1546   01 0042B    6A7004A5              BAL,LNK  KSRA
     1547   01 0042C    680003B3              B        IPGENE+7
     1548                            *
     1549   01 0042D    3570091C     IPERLOOP STW,LNK  LOOPEXIT
     1550   01 0042E    6A700516              BAL,LNK  STHLDSS
     1551   01 0042F    22800431              LI,WKA   IPERRA
     1552   01 00430    3580091E              STW,WKA  CHKEXIT
     1553   01 00431    226005F7     IPERRA   LI,OA    SETEXP
     1554   01 00432    6A7004ED              BAL,LNK  REVRS1            TEST FOR SS1 REVERSED.
     1555   01 00433    228003E3              LI,WKA   STEPIP
     1556   01 00434    3580091E              STW,WKA  CHKEXIT
     1557   01 00435    E800091C              B        *LOOPEXIT         EXIT WHEN SS1 REVERSED.
     1558                            *
     1559                            *  END OF INTERRUPT PATTERN GENERATOR.
     1560                            *
     1561                            *
     1562                            *  CHECK ERROR STACK FOR ENTRIES, TRANSLATE AND OUTPUT ANY ERRORS.
     1563                            *
     1564   01 00436    12A00940     CHKSTK   LD,CSA   ERRMSK1
     1565   01 00437    45A00956              CS,CSA   ERRSTK
     1566   01 00438    E8300007 A            BE       *LNK
     1567   01 00439    6D000041 A            WD,0     65                SET ALARM INDICATOR ON ERROR.
     1568   01 0043A    32A00865              LW,CSA   BITSWTCH
     1569   01 0043B    69100490              BCS,1    CHKSTKE           BR IF PRINTING SURPRESSED.
     1570   01 0043C    09700954              PSW,LNK  LNKSTK
     1571   01 0043D    220004B5              LI,IO    MSG2CDW
     1572   01 0043E    6A7004A3              BAL,LNK  KSR
     1573   01 0043F    08F00956     CHKSTKA  PLW,IN   ERRSTK
     1574   01 00440    68E00447              BCR,14   CHKSTKB
     1575   01 00441    2260044C              LI,OA    CHKSTKC
     1576   01 00442    6A7005C1              BAL,LNK  TESTBSW           TEST FOR REQUEST TO OUTPUT PATTERN
     1577   01 00443    0000000A A            DATA     10                ON ERROR.
     1578   01 00444    08700954              PLW,LNK  LNKSTK
     1579   01 00445    6D000040 A            WD,0     64                RESET ALARM INDICATOR.
     1580   01 00446    680E0001 A            B        1,LNK
     1581   01 00447    22600B2C     CHKSTKB  LI,OA    ITRNHIST+32
     1582   01 00448    6A700587              BAL,LNK  TRANOUT
     1583   01 00449    220004BC              LI,IO    STKCDW
     1584   01 0044A    6A7004A3              BAL,LNK  KSR
     1585   01 0044B    6800043F              B        CHKSTKA
     1586                            *
     1587   01 0044C    32A0091D     CHKSTKC  LW,CSA   ADRDCODE
     1588   01 0044D    21A0020A              CI,CSA   HIGHA
     1589   01 0044E    68300444              BE       CHKSTKB-3
     1590   01 0044F    21A00239              CI,CSA   CKINTADD
     1591   01 00450    68300444              BE       CHKSTKB-3
     1592   01 00451    21A0028C              CI,CSA   GETSEQC
     1593   01 00452    68300444              BE       CHKSTKB-3
     1594   01 00453    22600469              LI,OA    DMPNUMC
     1595   01 00454    6A7005C1              BAL,LNK  TESTBSW
     1596   01 00455    00000008 A            DATA     8
     1597   01 00456    3280091E              LW,WKA   CHKEXIT
     1598   01 00457    218003E3              CI,WKA   STEPIP
     1599   01 00458    69300469              BNE      DMPNUMC
     1600   01 00459    22100003 A   DMPNUM   LI,XA    3
     1601   01 0045A    22800010 A            LI,WKA   16
     1602   01 0045B    32F00869              LW,IN    IPCOUNT
     1603   01 0045C    68300462              BCR,3    DMPNUMA
     1604   01 0045D    75820997              STB,WKA  NUMCDW+1,XA
     1605   01 0045E    22600B2C              LI,OA    ITRNHIST+32
     1606   01 0045F    6A700587              BAL,LNK  TRANOUT
     1607   01 00460    22600B2E              LI,OA    ITRNHIST+34
     1608   01 00461    68000465              B        DMPNUMB
     1609   01 00462    22800008 A   DMPNUMA  LI,WKA   8
     1610   01 00463    75820997              STB,WKA  NUMCDW+1,XA
     1611   01 00464    22600B2C              LI,OA    ITRNHIST+32
     1612   01 00465    32F0086A     DMPNUMB  LW,IN    IPCOUNT+1
     1613   01 00466    6A700587              BAL,LNK  TRANOUT
     1614   01 00467    220004CA              LI,IO    PATTLEAD
     1615   01 00468    6A7004A5              BAL,LNK  KSRA
     1616   01 00469    2260000F A   DMPNUMC  LI,OA    15
     1617   01 0046A    528C0909              LH,WKA   NTNTIMPL,OA
     1618   01 0046B    6930046D              BCS,3    %+2               BR IF WD GROUP IMPLEMENTED.
     1619   01 0046C    6460046A              BDR,OA   %-2
     1620   01 0046D    35600B4B              STW,OA   EXTRNAL-1         STORE HIGHEST WD GROUP IMPLEMENTED.
     1621   01 0046E    22A00002 A            LI,CSA   2
     1622   01 0046F    35A00B4A              STW,CSA  EXTRNAL-2
     1623   01 00470    22100000 A            LI,XA    0
     1624   01 00471    22F000F0 A            LI,IN    240
     1625   01 00472    55F00B2C     CHKSTKD  STH,IN   ITRNHIST+32
     1626   01 00473    52F2086C              LH,IN    LEVBITSA,XA
     1627   01 00474    22600001 A            LI,OA    1
     1628   01 00475    52A20874              LH,CSA   LEVBITSE,XA
     1629   01 00476    55F00B2D              STH,IN   ITRNHIST+33
     1630   01 00477    55AC0B2D              STH,CSA  ITRNHIST+33,OA
     1631   01 00478    52F2087C              LH,IN    LEVBITST,XA
     1632   01 00479    52A20884              LH,CSA   LEVBITSI,XA
     1633   01 0047A    55F00B2E              STH,IN   ITRNHIST+34
     1634   01 0047B    55AC0B2E              STH,CSA  ITRNHIST+34,OA
     1635   01 0047C    32F00B2D              LW,IN    ITRNHIST+33
     1636   01 0047D    22600B2F              LI,OA    ITRNHIST+35
     1637   01 0047E    6A700587              BAL,LNK  TRANOUT           *
     1638   01 0047F    22600B31              LI,OA    ITRNHIST+37
     1639   01 00480    32F00B2E              LW,IN    ITRNHIST+34
     1640   01 00481    6A700587              BAL,LNK  TRANOUT           *
     1641   01 00482    6A70079A              BAL,LNK  EDIT              FORMAT OUTPUT.
     1642   01 00483    220004D7              LI,IO    PDMPCDW
     1643   01 00484    6A7004A5              BAL,LNK  KSRA              OUTPUT PATTERN.
     1644   01 00485    32F00B4A              LW,IN    EXTRNAL-2
     1645   01 00486    31F00B4B              CW,IN    EXTRNAL-1
     1646   01 00487    69200444              BG       CHKSTKB-3         BR IF ALL IMPLEMENTED WD GROUPS
     1647                            *                                   OUTPUTTED.
     1648   01 00488    21F00009 A            CI,IN    9
     1649   01 00489    6920048C              BG       %+3
     1650   01 0048A    20F000F0 A            AI,IN    240               ADD 'F' ZONE.
     1651   01 0048B    6800048D              B        %+2
     1652   01 0048C    20F000B7 A            AI,IN    183               ADD 'C' ZONE.
     1653   01 0048D    32100B4A              LW,XA    EXTRNAL-2
     1654   01 0048E    33100B4A              MTW,1    EXTRNAL-2         INCR GROUP POINTER.
     1655   01 0048F    68000472              B        CHKSTKD
     1656   01 00490    09700954     CHKSTKE  PSW,LNK  LNKSTK
     1657   01 00491    22600496              LI,OA    CHKSTKF
     1658   01 00492    6A7005C1              BAL,LNK  TESTBSW           TEST TO PRESERVE ERROR RECORDS.
     1659   01 00493    0000000B A            DATA     11
     1660   01 00494    12A0093E              LD,CSA   ERRMSK
     1661   01 00495    15A00956              STD,CSA  ERRSTK            CLEAR ERROR INFORMATION IF
     1662                            *                                   PRINTING IS SURPRESSED.
     1663   01 00496    08700954     CHKSTKF  PLW,LNK  LNKSTK
     1664   01 00497    6D000040 A            WD,0     64                RESET ALARM INDICATOR.
     1665   01 00498    680E0001 A            B        1,LNK             TAKE ERROR EXIT.
     1666                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     1667   01 00499    32100000 A   RDCHK    LW,XA    IO
     1668   01 0049A    25100001 A            SLS,XA   1
     1669   01 0049B    328009FA              LW,WKA   BIT6
     1670   01 0049C    CB800001 A            AND,WKA  *XA
     1671   01 0049D    693004A5              BCS,3    KSRA              BR IF READ CDW.
     1672   01 0049E    328009F6              LW,WKA   BITTWO
     1673   01 0049F    4B820001 A            AND,WKA  1,XA
     1674   01 004A0    E8300007 A            BCR,3    *LNK              BR IF NO COMMAND CHAINING.
     1675   01 004A1    20100002 A            AI,XA    2
     1676   01 004A2    6800049B              B        RDCHK+2
     1677   01 004A3    32800865     KSR      LW,WKA   BITSWTCH
     1678   01 004A4    69100499              BCS,1    RDCHK             BR IF PRINTING SURPRESSED.
     1679   01 004A5    12A00020 A   KSRA     LD,CSA   32
     1680   01 004A6    09700954              PSW,LNK  LNKSTK
     1681   01 004A7    6A7005AF              BAL,LNK  KILLINTS          ASSURE THAT NO INT IS IN THE ACTIVE
     1682                            *                                   STATE BEFORE ATTEMPTING TO PERFORM
     1683                            *                                   I/O OPERATION.
     1684   01 004A8    4D000001 A            TIO,0    1
     1685   01 004A9    694004A8              BIOSNP   %-1
     1686   01 004AA    4C000001 A            SIO,0    1
     1687   01 004AB    4D000001 A            TIO,0    1
     1688   01 004AC    694004AB              BIOSNP   %-1
     1689   01 004AD    15A00020 A   OUTPA    STD,CSA  32
     1690   01 004AE    08700954              PLW,LNK  LNKSTK
     1691   01 004AF    E8000007 A            B        *LNK
     1692                            *
     1693                            *  SET UP FOR HANDLING INTERRUPTS FROM X'10' TO X'1FF'.
     1694                            *
     1695   01 004B0    32800921     SETPSDS  LW,WKA   DCDXPSD1
     1696   01 004B1    22E00002 A            LI,WKD   2
     1697   01 004B2    22100000 A            LI,XA    0
     1698   01 004B3    22D000F8 A   SETPSDSA LI,WKC   248
     1699   01 004B4    35820010 A   SETPSDSB STW,WKA  16,XA
     1700   01 004B5    20800004 A            AI,WKA   4
     1701   01 004B6    20100001 A            AI,XA    1
     1702   01 004B7    64D004B4              BDR,WKC  SETPSDSB
     1703   01 004B8    32800922              LW,WKA   DCDXPSD2
     1704   01 004B9    64E004B3              BDR,WKD  SETPSDSA
     1705                            *
     1706   01 004BA    22800010 A            LI,WKA   16                SET UP PSDS ADDRESSED BY PRECEDING
     1707   01 004BB    22100001 A            LI,XA    1                 XPSD INSTRUCTIONS.
     1708   01 004BC    22C000F8 A            LI,WKB   248
     1709   01 004BD    32B00008 A   SETPSDSC LW,CSM   WKA
     1710   01 004BE    25A0011B A            SLD,CSA  27                ENCODE ADDRESS.
     1711   01 004BF    25A00001 A            SLS,CSA  1                 *
     1712   01 004C0    25A00103 A            SLD,CSA  3                 *
     1713   01 004C1    25A00002 A            SLS,CSA  2                 *
     1714   01 004C2    25A00116 A            SLD,CSA  22                *
     1715   01 004C3    22B000F0 A            LI,CSM   240               INSERT REG PAGE POINTER.
     1716   01 004C4    49A00867              OR,CSA   SETRTRN           INSERT RETURN ADDRESS.
     1717   01 004C5    15A20FEE              STD,CSA  LASTONE,XA                                        *D01
     1718   01 004C6    20100002 A            AI,XA    2                 INCR STD INDEX.
     1719   01 004C7    20800001 A            AI,WKA   1                 INCR ADDRESS TO BE ENCODED.
     1720   01 004C8    64C004BD              BDR,WKB  SETPSDSC
     1721                            *
     1722   01 004C9    12A0093E     SETSTKS  LD,CSA   ERRMSK
     1723   01 004CA    15A00956              STD,CSA  ERRSTK
     1724   01 004CB    32B00929     CLR18X21 LW,CSM   BIT18X21          ZERO TEMPROARY INFO IN INT HISTORY
     1725   01 004CC    22100000 A            LI,XA    0                 TABLE.
     1726   01 004CD    22800100 A            LI,WKA   256
     1727   01 004CE    22A00000 A            LI,CSA   0
     1728   01 004CF    47A20B0C              STS,CSA  ITRNHIST,XA
     1729   01 004D0    20100002 A            AI,XA    2
     1730   01 004D1    648004CF              BDR,WKA  %-2
     1731   01 004D2    22A00000 A   CLEAR    LI,CSA   0
     1732   01 004D3    22B00000 A            LI,CSM   0
     1733   01 004D4    221FFFF0 A            LI,XA    -16
     1734   01 004D5    15A2088C              STD,CSA  LEVBITSA+32,XA
     1735   01 004D6    651004D5              BIR,XA   %-1
     1736   01 004D7    221FFFF0 A            LI,XA    -16
     1737   01 004D8    15A20B4C              STD,CSA  ITRNHIST+64,XA
     1738   01 004D9    651004D8              BIR,XA   %-1
     1739   01 004DA    35A00A58              STW,CSA  ERROR
     1740   01 004DB    32800D10              LW,WKA   RECOVER           SET PROGRAM RESTART IN          *D01
     1741   01 004DC    35800026 A            STW,WKA  X'26'               LOC. X'26'                    *D01
     1742   01 004DD    E8000007 A            B        *LNK
     1743                            *
     1744                            *  TEST FOR REVERSAL OF SS 2 OR SS 3.
     1745                            *
     1746   01 004DE    22100003 A   SSANS    LI,XA    3                 XA,WKA,CSM,CSA.
     1747   01 004DF    6C000000 A            RD,0     0
     1748   01 004E0    740204E2              STCF     SSANSA,XA         STORE SS SETTING.
     1749   01 004E1    2E000000 A            WAIT                       WAIT FOR ANSWER, AND
     1750   01 004E2    02000000 A   SSANSA   NOP      0                 DISPLAY SS SETTING IN BYTE 3.
     1751   01 004E3    32B009F5              LW,CSM   BITONE
     1752   01 004E4    6C000000 A            RD,0     0
     1753   01 004E5    7400000A A            STCF     CSA
     1754   01 004E6    25A00168 A            SLD,CSA  -24
     1755   01 004E7    45A004E2              CS,CSA   SSANSA
     1756   01 004E8    E9300007 A            BNE      *LNK              BR IF SS 2 IS REVERSED.
     1757   01 004E9    25B0007F A            SLS,CSM  -1
     1758   01 004EA    45A004E2              CS,CSA   SSANSA
     1759   01 004EB    683004DE              BE       SSANS
     1760   01 004EC    E8000006 A            B        *OA               BR IF SS 3 IS REVERSED.
     1761                            *
     1762                            *  TEST FOR REVERSAL OF SS 1.
     1763                            *
     1764   01 004ED    6C000000 A   REVRS1   RD,0     0                 READ SENSE SWITCHES.
     1765   01 004EE    74000008 A            STCF     WKA
     1766   01 004EF    4B8009F4              AND,WKA  BITZERO           STRIP ALL BUT SS1.
     1767   01 004F0    32C009F4              LW,WKB   BITZERO
     1768   01 004F1    4BC00917              AND,WKB  HOLDSS1           STRIP ORIGINAL TO SS1.
     1769   01 004F2    4880000C A            EOR,WKA  WKB
     1770   01 004F3    E8300006 A            BCR,3    *OA               BR IF SS1 NOT REVERSED.
     1771   01 004F4    E8000007 A            B        *LNK              RETURN IF SS1 REVERSED.
     1772                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     1773         01 004F5           RESP     EQU      %
     1774   01 004F5    3280098A              LW,WKA   COMMCDW+2
     1775   01 004F6    4B800923              AND,WKA  BIT0X15
     1776   01 004F7    49800000 A            OR,WKA   IO
     1777   01 004F8    3580098A              STW,WKA  COMMCDW+2
     1778   01 004F9    220004C4              LI,IO    DA(COMMCDW)
     1779   01 004FA    680004A5              B        KSRA              BY-PASS TEST FOR PRINT SURPRESSION.
     1780                            *
     1781                            *  TEST FOR REVERSAL OF SS 4.
     1782                            *
     1783   01 004FB    6C000000 A   RDSS     RD,0     0
     1784   01 004FC    74000917              STCF     HOLDSS1           STORE SENSE SWITCH SETTING.
     1785   01 004FD    328009F7              LW,WKA   BIT3
     1786   01 004FE    4B800916              AND,WKA  HOLDSS
     1787   01 004FF    32C009F7              LW,WKB   BIT3
     1788   01 00500    4BC00917              AND,WKB  HOLDSS1
     1789   01 00501    4880000C A            EOR,WKA  WKB
     1790   01 00502    E8200007 A            BCR,2    *LNK              BR IF SS4 HAS NOT BEEN REVERSED.
     1791   01 00503    32800917              LW,WKA   HOLDSS1
     1792   01 00504    35800916              STW,WKA  HOLDSS            STORE CURRENT SS4.
     1793   01 00505    09700954              PSW,LNK  LNKSTK
     1794   01 00506    220004C8              LI,IO    BITSWCDW
     1795   01 00507    6A7004A3              BAL,LNK  KSR
     1796   01 00508    22600514              LI,OA    RDSSA
     1797   01 00509    6A7005D3              BAL,LNK  TRANIN
     1798   01 0050A    3210000F A            LW,XA    IN
     1799   01 0050B    25100002 A            SLS,XA   2
     1800   01 0050C    3A100001 A            LCW,XA   XA
     1801   01 0050D    228FFFFF A            LI,WKA   -1
     1802   01 0050E    25820000 A            SLS,WKA  0,XA
     1803   01 0050F    4B800865              AND,WKA  BITSWTCH
     1804   01 00510    49800002 A            OR,WKA   OT
     1805   01 00511    35800865              STW,WKA  BITSWTCH
     1806   01 00512    08700954              PLW,LNK  LNKSTK
     1807   01 00513    E8000007 A            B        *LNK
     1808   01 00514    22700506     RDSSA    LI,LNK   RDSS+11
     1809   01 00515    68000558              B        OUTPINV
     1810                            *
     1811   01 00516    6C000000 A   STHLDSS  RD,0     0
     1812   01 00517    74000917              STCF     HOLDSS1
     1813   01 00518    E8000007 A            B        *LNK
     1814                            *
     1815                            *  RECEIVED PRIORITY SEQUENCE DOES NOT MATCH EXPECTED SEQUENCE.
     1816                            *  READ KSR FOR CORRECT SEQUENCE, ENTER SEQUENCE IN HISTORY TABLE.
     1817                            *
     1818   01 00519    22800000 A   BADSEQ   LI,WKA   0
     1819   01 0051A    358009F3              STW,WKA  CNTR
     1820   01 0051B    221FFFF8 A            LI,XA    -8
     1821   01 0051C    35820911              STW,WKA  NTNTIMPL+8,XA
     1822   01 0051D    6510051C              BIR,XA   %-1
     1823   01 0051E    220004CD     BADSEQA  LI,IO    CORRCDW
     1824   01 0051F    6A7004A3              BAL,LNK  KSR
     1825   01 00520    32800B2C              LW,WKA   ITRNHIST+32
     1826   01 00521    31800935              CW,WKA   ENDFLAG
     1827   01 00522    69300528              BNE      %+6
     1828   01 00523    6A7004B0              BAL,LNK  SETPSDS
     1829   01 00524    226007FB              LI,OA    JX
     1830   01 00525    6A7005C1              BAL,LNK  TESTBSW
     1831   01 00526    00000007 A            DATA     7
     1832   01 00527    68000339              B        INITAUTO
     1833   01 00528    31800936              CW,WKA   ZEROSEQ
     1834   01 00529    68300519              BE       BADSEQ
     1835   01 0052A    22100002 A            LI,XA    2
     1836   01 0052B    22300005 A            LI,XB    5
     1837   01 0052C    22800015 A            LI,WKA   21
     1838   01 0052D    71820B2C              CB,WKA   ITRNHIST+32,XA
     1839   01 0052E    68300553              BE       BADSEQD           BR IF SINGLE LEVEL ENTRY.
     1840   01 0052F    71860B2C              CB,WKA   ITRNHIST+32,XB
     1841   01 00530    69300557              BNE      BADSEQE           BR IF INVALID FORMAT.
     1842   01 00531    32A00B2C              LW,CSA   ITRNHIST+32
     1843   01 00532    32B00B2D              LW,CSM   ITRNHIST+33
     1844   01 00533    25A00170 A            SLD,CSA  -16
     1845   01 00534    25B00008 A            SLS,CSM  8
     1846   01 00535    25A00110 A            SLD,CSA  16
     1847   01 00536    35A00B2D     BADSEQB  STW,CSA  ITRNHIST+33
     1848   01 00537    22800000 A            LI,WKA   0
     1849   01 00538    35800B2C              STW,WKA  ITRNHIST+32
     1850   01 00539    22600557              LI,OA    BADSEQE
     1851   01 0053A    6A7005D3              BAL,LNK  TRANIN
     1852   01 0053B    35200B2C              STW,OT   ITRNHIST+32
     1853   01 0053C    22100002 A            LI,XA    2
     1854   01 0053D    72920B2C              LB,LV    ITRNHIST+32,XA
     1855   01 0053E    32500009 A   BADSEQC  LW,GR    LV
     1856   01 0053F    2590001C A            SLS,LV   28
     1857   01 00540    25900064 A            SLS,LV   -28
     1858   01 00541    2550007C A            SLS,GR   -4
     1859   01 00542    223009FE              LI,XB    BIT16
     1860   01 00543    B2960009 A            LW,LV    *LV,XB            LOAD LEVEL BIT.
     1861   01 00544    6A7005A4              BAL,LNK  YLDINTAD
     1862   01 00545    22300007 A            LI,XB    7
     1863   01 00546    328009F3              LW,WKA   CNTR
     1864   01 00547    F5860002 A            STB,WKA  *OT,XB
     1865   01 00548    52CA0909              LH,WKB   NTNTIMPL,GR
     1866   01 00549    49C00009 A            OR,WKB   LV
     1867   01 0054A    55CA0909              STH,WKB  NTNTIMPL,GR       MAKE ENTRY IN IMPLEMENTED TABLE.
     1868   01 0054B    331009F3              MTW,1    CNTR
     1869   01 0054C    73120B2C              MTB,1    ITRNHIST+32,XA
     1870   01 0054D    72920B2C              LB,LV    ITRNHIST+32,XA
     1871   01 0054E    22300003 A            LI,XB    3
     1872   01 0054F    220004CE              LI,IO    CORRCDW+1
     1873   01 00550    71960B2C              CB,LV    ITRNHIST+32,XB
     1874   01 00551    6920051F              BG       BADSEQA+1         BR IF ENTIRE CONTIGOUS SEQUENCE
     1875                            *                                   ENTERED.
     1876   01 00552    6800053E              B        BADSEQC
     1877   01 00553    32A00B2C     BADSEQD  LW,CSA   ITRNHIST+32
     1878   01 00554    25A00070 A            SLS,CSA  -16
     1879   01 00555    25A00008 A            SLS,CSA  8
     1880   01 00556    68000536              B        BADSEQB
     1881   01 00557    2270051E     BADSEQE  LI,LNK   BADSEQA
     1882   01 00558    220004D9     OUTPINV  LI,IO    INVCDW
     1883   01 00559    680004A5              B        KSRA
     1884                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     1885   01 0055A    220004D0     GRPONE   LI,IO    MSG8CDW
     1886   01 0055B    6A7004A5              BAL,LNK  KSRA
     1887   01 0055C    22800565              LI,WKA   GRPONEB
     1888   01 0055D    3580091D              STW,WKA  ADRDCODE
     1889   01 0055E    2290FFFF A   GRPONEA  LI,LV    65535
     1890   01 0055F    22500001 A            LI,GR    1
     1891   01 00560    22E00010 A            LI,WKD   16
     1892   01 00561    35E00A56              STW,WKD  WAITCNT
     1893   01 00562    6D9A1300 A            WD,LV    ARMD,GR
     1894   01 00563    6D9A1700 A            WD,LV    TRIG,GR
     1895   01 00564    6D9A1400 A            WD,LV    ENABLE,GR
     1896   01 00565    0E200950     GRPONEB  LPSD,2   GRPONE1
     1897   01 00566    33F00A56     GRPONEC  MTW,-1   WAITCNT
     1898   01 00567    69100565              BCS,1    %-2
     1899   01 00568    6800055E              B        GRPONEA
     1900                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     1901   01 00569    220004B6     HIFAILA  LI,IO    MSG3CDW
     1902   01 0056A    6A7004A5              BAL,LNK  KSRA
     1903   01 0056B    22800571              LI,WKA   HIFAILAB
     1904   01 0056C    3580091D              STW,WKA  ADRDCODE
     1905   01 0056D    2290FFFF A   HIFAILAA LI,LV    65535
     1906   01 0056E    22E00010 A            LI,WKD   16
     1907   01 0056F    6D901200 A            WD,LV    ARME
     1908   01 00570    6D901700 A            WD,LV    TRIG
     1909   01 00571    0E200942     HIFAILAB LPSD,2   HIFAILA1
     1910   01 00572    20000000 A   HIFAILAC AI,0     0
     1911   01 00573    64E00572              BDR,WKD  %-1
     1912   01 00574    6800056D              B        HIFAILAA
     1913                            *
     1914   01 00575    32F00002 A   HIFAILB  LW,IN    OT
     1915   01 00576    2260086C              LI,OA    LEVBITSA
     1916   01 00577    6A700587              BAL,LNK  TRANOUT
     1917   01 00578    22800015 A            LI,WKA   21
     1918   01 00579    7580086D              STB,WKA  LEVBITSA+1
     1919   01 0057A    7580086E              STB,WKA  LEVBITSA+2
     1920   01 0057B    220004C0              LI,IO    MSG4CDW
     1921   01 0057C    6A7004A3              BAL,LNK  KSR
     1922   01 0057D    22800583              LI,WKA   HIFAILBB
     1923   01 0057E    3580091D              STW,WKA  ADRDCODE
     1924   01 0057F    329009FE     HIFAILBA LW,LV    BIT16
     1925   01 00580    49900A00              OR,LV    BIT18
     1926   01 00581    6D901200 A            WD,LV    ARME
     1927   01 00582    6D901700 A            WD,LV    TRIG
     1928   01 00583    0E200944     HIFAILBB LPSD,2   HIFAILB1
     1929   01 00584    20000000 A   HIFAILBC AI,0     0
     1930   01 00585    20000000 A            AI,0     0
     1931   01 00586    6800057F              B        HIFAILBA
     1932                            *
     1933                            *  TRANSLATE FROM HEX TO EBCDIC.
     1934                            *
     1935         01 00587           TRANOUT  EQU      %
     1936   01 00587    32B0000F A            LW,CSM   IN
     1937   01 00588    221FFFF8 A            LI,XA    -8
     1938   01 00589    20600002 A            AI,OA    2
     1939   01 0058A    22A00000 A   TRANOUTA LI,CSA   0
     1940   01 0058B    25A00104 A            SLD,CSA  4
     1941   01 0058C    3230000A A            LW,XB    CSA
     1942   01 0058D    72860A0E              LB,WKA   TABLE,XB
     1943   01 0058E    F5820006 A            STB,WKA  *OA,XA
     1944   01 0058F    6510058A              BIR,XA   TRANOUTA
     1945   01 00590    E8000007 A            B        *LNK
     1946                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     1947         01 00591           BITCNT   EQU      %
     1948   01 00591    222FFFFF A            LI,OT    -1
     1949   01 00592    22A00000 A            LI,CSA   0
     1950   01 00593    25A00101 A   BITCNTA  SLD,CSA  1
     1951   01 00594    20200001 A            AI,OT    1
     1952   01 00595    31A00926              CW,CSA   NOBITS
     1953   01 00596    68300593              BE       BITCNTA
     1954   01 00597    E8000007 A            B        *LNK
     1955                            *
     1956                            *  SET HIGHEST PRIORITY INTERRUPT IMPLEMENTED INTO ONE ACTIVE
     1957                            *  STATE, EXIT IF INTERRUPT OCCURS AND ADDRESS IS CORRECT.
     1958                            *
     1959   01 00598    2280059F     SETHI    LI,WKA   SETHIA
     1960   01 00599    3580091D              STW,WKA  ADRDCODE
     1961   01 0059A    3290093D              LW,LV    HIBIT
     1962   01 0059B    6D901200 A            WD,LV    ARME
     1963   01 0059C    6D901700 A            WD,LV    TRIG
     1964   01 0059D    20000000 A            AI,0     0
     1965   01 0059E    68000703              B        HIFAILC           INT HAS FAILED.
     1966   01 0059F    228005EF     SETHIA   LI,WKA   BREAKHI
     1967   01 005A0    3580091D              STW,WKA  ADRDCODE
     1968   01 005A1    3120093B              CW,OT    HIPRI
     1969   01 005A2    6930070F              BNE      HIFAILD           BR IF ADDRESS MIS-MATCH.
     1970   01 005A3    E8000007 A            B        *LNK
     1971                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     1972         01 005A4           YLDINTAD EQU      %
     1973   01 005A4    09700954              PSW,LNK  LNKSTK
     1974   01 005A5    32B00009 A            LW,CSM   LV
     1975   01 005A6    6A700591              BAL,LNK  BITCNT
     1976   01 005A7    202FFFF0 A            AI,OT    -16
     1977   01 005A8    25500004 A            SLS,GR   4
     1978   01 005A9    30200005 A            AW,OT    GR
     1979   01 005AA    2550007C A            SLS,GR   -4
     1980   01 005AB    25200001 A            SLS,OT   1
     1981   01 005AC    20200B0C              AI,OT    ITRNHIST
     1982   01 005AD    08700954              PLW,LNK  LNKSTK
     1983   01 005AE    E8000007 A            B        *LNK
     1984                            *
     1985                            *  CLEAR ALL ACTIVE AND PENDING INTERRUPTS.
     1986                            *
     1987   01 005AF    32500913     KILLINTS LW,GR    HICHAS1
     1988   01 005B0    2290FFFF A            LI,LV    65535
     1989   01 005B1    6D9A1101 A            WD,LV    DISARM+1,GR
     1990   01 005B2    645005B1              BDR,GR   %-1
     1991   01 005B3    6D901100 A            WD,LV    DISARM
     1992   01 005B4    6D000040 A            WD,0     64                RESET ALARM INDICATOR.
     1993   01 005B5    E8000007 A            B        *LNK
     1994                            *
     1995                            *  INTERRUPT HANDLING ROUTINE.
     1996                            *
     1997                            *  THIS ROUTINE SUPPLIES THE ADDRESS OF EVERY INTERRUPT
     1998                            *  WHICH OCCURS. USING ROUTINES SET RETURN ADDRESS IN
     1999                            *  'ADRDCODE', AND RECEIVE THE INTERRUPT ADDRESS
     2000                            *  IN REGISTER 'OT'.
     2001                            *
     2002                            *  PSD BITS        0   1   2   3   5   6   7  10  11
     2003                            *  ADDRESS BITS   23  24  25  26  27  28  29  30  31
     2004                            *
     2005                            *  ADD X'F8' IF REGISTER PAGE POINTER STORED IS NOT ZERO.
     2006                            *
     2007   01 005B6    722009BE     COMPADDR LB,OT    CMPAD
     2008   01 005B7    323009BE              LW,XB    CMPAD
     2009   01 005B8    2530000A A            SLS,XB   10
     2010   01 005B9    2520017D A            SLD,OT   -3
     2011   01 005BA    2520007F A            SLS,OT   -1
     2012   01 005BB    25200105 A            SLD,OT   5
     2013   01 005BC    22300001 A            LI,XB    1
     2014   01 005BD    523609BF              LH,XB    CMPAD+1,XB
     2015   01 005BE    E830091D              BCR,3    *ADRDCODE         BR IF REG PAGE POINTER NOT LOADED.
     2016   01 005BF    202000F8 A            AI,OT    248
     2017   01 005C0    E800091D              B        *ADRDCODE
     2018                            *
     2019                            *  TEST CONTROL BITS. EXIT TO ADDRESS IN 'OA' IF BIT
     2020                            *  IS A ONE, ADDRESS IN 'LNK'+1 IF BIT IS A ZERO.
     2021                            *
     2022   01 005C1    22800001 A   TESTBSW  LI,WKA   1
     2023   01 005C2    B1800007 A            CW,WKA   *LNK
     2024   01 005C3    683005CB              BE       TESTBSWA          BR IF TEST FOR BIT SWITCH ONE.
     2025   01 005C4    328009F4              LW,WKA   BITZERO
     2026   01 005C5    BA100007 A            LCW,XA   *LNK
     2027   01 005C6    25820000 A            SLS,WKA  0,XA
     2028   01 005C7    4B800865              AND,WKA  BITSWTCH
     2029   01 005C8    683E0001 A            BCR,3    1,LNK             BR IF SWITCH NOT SET.
     2030   01 005C9    20700001 A            AI,LNK   1
     2031   01 005CA    E8000006 A            B        *OA
     2032   01 005CB    2580001E A   TESTBSWA SLS,WKA  30
     2033   01 005CC    4B800865              AND,WKA  BITSWTCH
     2034   01 005CD    693005CF              BCS,3    TESTBSWB          BR IF BIT SWITCH ONE SET.
     2035   01 005CE    680E0001 A            B        1,LNK
     2036   01 005CF    2E00FFFF A   TESTBSWB WAIT     65535
     2037   01 005D0    0200FFFF A            NOP      65535
     2038   01 005D1    20700001 A            AI,LNK   1
     2039   01 005D2    E8000006 A            B        *OA               EXIT WHEN WAIT IS CLEARED.
     2040                            *
     2041                            *  TRANSLATE FROM EBCDIC TO HEX.
     2042                            *
     2043   01 005D3    22F00000 A   TRANIN   LI,IN    0                 TRANSLATE 8 BYTES FROM ITRNHIST+32,
     2044   01 005D4    221FFFF8 A            LI,XA    -8                IGNORE HIGH ORDER ZEROS, LEFT
     2045   01 005D5    22800015 A            LI,WKA   21                JUSTIFY OUTPUT IF NL CHAR IS
     2046                            *                                   ENCOUNTERED IN INPUT, PUT COUNT
     2047                            *                                   OF BYTES TRANSLATED IN 'IN'.
     2048   01 005D6    71820B2E     TRANINA  CB,WKA   ITRNHIST+34,XA
     2049   01 005D7    683005E7              BE       TRANIND           OF DIGITS IN 'IN'.
     2050   01 005D8    20F00001 A            AI,IN    1
     2051   01 005D9    651005D6              BIR,XA   TRANINA
     2052   01 005DA    22200000 A            LI,OT    0
     2053   01 005DB    221FFFF8 A            LI,XA    -8
     2054   01 005DC    72820B2E     TRANINB  LB,WKA   ITRNHIST+34,XA
     2055   01 005DD    683005E3              BCR,3    TRANINC
     2056   01 005DE    198009B6              CLM,WKA  HEXLIMF
     2057   01 005DF    686005ED              BCR,6    TRANINF
     2058   01 005E0    198009B8              CLM,WKA  HEXLIMC
     2059   01 005E1    E9600006 A            BCS,6    *OA               BR IF INVALID CHAR INPUT.
     2060   01 005E2    208FFF49 A            AI,WKA   -183              STRIP 'C' ZONE.
     2061   01 005E3    25200004 A   TRANINC  SLS,OT   4                 ALIGN OUTPUT.
     2062   01 005E4    49200008 A            OR,OT    WKA               INSERT NEXT DIGIT.
     2063   01 005E5    651005DC              BIR,XA   TRANINB
     2064   01 005E6    E8000007 A            B        *LNK
     2065   01 005E7    221FFFF8 A   TRANIND  LI,XA    -8
     2066   01 005E8    3010000F A            AW,XA    IN
     2067   01 005E9    228000F0 A            LI,WKA   240
     2068   01 005EA    75820B2E              STB,WKA  ITRNHIST+34,XA
     2069   01 005EB    651005EA              BIR,XA   %-1
     2070   01 005EC    680005DA              B        TRANINB-2
     2071   01 005ED    208FFF10 A   TRANINF  AI,WKA   -240
     2072   01 005EE    680005E3              B        TRANINC
     2073                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     2074   01 005EF    32100002 A   BREAKHI  LW,XA    OT
     2075   01 005F0    492009F4              OR,OT    BITZERO           FLAG ERROR TYPE.
     2076   01 005F1    492009F5              OR,OT    BITONE            *
     2077   01 005F2    492009F7              OR,OT    BIT3              *
     2078   01 005F3    09200956              PSW,OT   ERRSTK
     2079   01 005F4    33F00A58              MTW,-1   ERROR
     2080   01 005F5    6A7005AF              BAL,LNK  KILLINTS
     2081   01 005F6    E8000920              B        *HIEXIT
     2082                            *
     2083                            *  SET UP FIELD OF EXPECTED INTERRUPTS.
     2084                            *
     2085   01 005F7    6A7004FB     SETEXP   BAL,LNK  RDSS
     2086   01 005F8    32800A57              LW,WKA   WAITCON
     2087   01 005F9    35800A56              STW,WKA  WAITCNT
     2088   01 005FA    22802868              LI,WKA   BA(SEQLIST+1)
     2089   01 005FB    35800A19              STW,WKA  SEQLIST
     2090   01 005FC    22800001 A            LI,WKA   1
     2091   01 005FD    4B800A59              AND,WKA  INHIBITS
     2092   01 005FE    68300603              BCR,3    SETEXPA
     2093   01 005FF    228FFFFF A            LI,WKA   -1
     2094   01 00600    221FFFF9 A            LI,XA    -7
     2095   01 00601    3582088C              STW,WKA  LEVBITSI+8,XA     SET BITS FOR INHIBITED INTERRUPTS.
     2096   01 00602    65100601              BIR,XA   %-1
     2097   01 00603    22800002 A   SETEXPA  LI,WKA   2
     2098   01 00604    4B800A59              AND,WKA  INHIBITS
     2099   01 00605    6830060B              BCR,3    SETEXPB
     2100   01 00606    328008AE              LW,WKA   NOTIINHB
     2101   01 00607    48800925              EOR,WKA  BIT0X31
     2102   01 00608    52C00884              LH,WKB   LEVBITSI
     2103   01 00609    49C00008 A            OR,WKB   WKA
     2104   01 0060A    55C00884              STH,WKB  LEVBITSI          SET BITS FOR INHIBITED INTERRUPTS.
     2105   01 0060B    22800004 A   SETEXPB  LI,WKA   4
     2106   01 0060C    4B800A59              AND,WKA  INHIBITS
     2107   01 0060D    68300613              BCR,3    SETEXPC
     2108   01 0060E    32800928              LW,WKA   NOTCINHB
     2109   01 0060F    48800925              EOR,WKA  BIT0X31
     2110   01 00610    52C00884              LH,WKB   LEVBITSI
     2111   01 00611    49C00008 A            OR,WKB   WKA
     2112   01 00612    55C00884              STH,WKB  LEVBITSI          SET BITS FOR INHIBITED CNTR=ZERO
     2113                            *                                   INTERRUPTS
     2114   01 00613    221FFFF8 A   SETEXPC  LI,XA    -8                GENERATE FIELD OF LEVELS
     2115   01 00614    3282088C              LW,WKA   LEVBITSI+8,XA     WHICH ARE NOT INHIBITED
     2116   01 00615    48800925              EOR,WKA  BIT0X31           THIS PATTERN.
     2117   01 00616    35820894              STW,WKA  LEVBITSN+8,XA     *
     2118   01 00617    65100614              BIR,XA   %-3               *
     2119   01 00618    221FFFF8 A            LI,XA    -8
     2120   01 00619    32820874     SETEXPD  LW,WKA   LEVBITSA+8,XA     THE LOGICAL PRODUCT OF LEVELS
     2121   01 0061A    4B820884              AND,WKA  LEVBITST+8,XA     ARMED, ENABLED, TRIGGERED, NOT
     2122   01 0061B    4B82087C              AND,WKA  LEVBITSE+8,XA     INHIBITED, AND IMPLEMENTED, FORMS
     2123   01 0061C    4B820894              AND,WKA  LEVBITSN+8,XA     A FIELD OF EXPECTED INTERRUPTS.
     2124   01 0061D    4B820911              AND,WKA  NTNTIMPL+8,XA     EACH PATTERN OF INTERRUPTS WILL
     2125   01 0061E    35820908              STW,WKA  EXPFIELD+8,XA     BE CHECKED AGAINST THIS FIELD AND
     2126   01 0061F    65100619              BIR,XA   SETEXPD           VARIATIONS WILL BE CONSIDERED
     2127                            *                                   ERRORS.
     2128   01 00620    5280086C              LH,WKA   LEVBITSA
     2129   01 00621    4B80093C              AND,WKA  NOTHI
     2130   01 00622    5580086C              STH,WKA  LEVBITSA
     2131   01 00623    52800900              LH,WKA   EXPFIELD
     2132   01 00624    4B80093C              AND,WKA  NOTHI
     2133   01 00625    55800900              STH,WKA  EXPFIELD
     2134   01 00626    E800091F              B        *EXECPATT
     2135                            *
     2136                            *  GENERATE PATTERNS OF INTERRUPTS SPECIFIED BY USING ROUTINES.
     2137                            *
     2138   01 00627    6A700598     IGEN     BAL,LNK  SETHI
     2139   01 00628    225FFFF2 A            LI,GR    -14
     2140   01 00629    529A0874              LH,LV    LEVBITSA+8,GR
     2141   01 0062A    6D9A1310 A            WD,LV    ARMD+16,GR        ARM-DISABLE WD GROUPS 2-15 LEVELS.
     2142   01 0062B    65500629              BIR,GR   %-2
     2143   01 0062C    5290086C              LH,LV    LEVBITSA
     2144   01 0062D    6D901300 A            WD,LV    ARMD              ARM-DISABLE WD GROUP ZERO LEVELS.
     2145   01 0062E    225FFFF2 A            LI,GR    -14
     2146   01 0062F    529A0884              LH,LV    LEVBITST+8,GR
     2147                            *                                   TRIGGER WD GROUPS 2-15 LEVELS.
     2148   01 00630    6D9A1710 A            WD,LV    TRIG+16,GR
     2149   01 00631    6550062F              BIR,GR   %-2
     2150   01 00632    5290087C              LH,LV    LEVBITST
     2151                            *                                   TRIGGER WD GROUP ZERO LEVELS.
     2152   01 00633    6D901700 A            WD,LV    TRIG
     2153   01 00634    225FFFF2 A            LI,GR    -14
     2154   01 00635    529A087C              LH,LV    LEVBITSE+8,GR
     2155                            *                                   ENABLE WD GROUPS 2-15 LEVELS.
     2156   01 00636    6D9A1410 A            WD,LV    ENABLE+16,GR
     2157   01 00637    65500635              BIR,GR   %-2
     2158   01 00638    52900874              LH,LV    LEVBITSE
     2159                            *                                   ENABLE WD GROUP ZERO LEVELS.
     2160   01 00639    6D901400 A            WD,LV    ENABLE
     2161   01 0063A    52900900              LH,LV    EXPFIELD
     2162   01 0063B    4B900908              AND,LV   STRP2CNT
     2163   01 0063C    48900908              EOR,LV   STRP2CNT
     2164   01 0063D    4B90093C              AND,LV   NOTHI
     2165   01 0063E    6D901100 A            WD,LV    DISARM            CLEAR UNEXPECTED CNT PULSE INTS.
     2166   01 0063F    22800642     IGENA    LI,WKA   CHKPATT
     2167   01 00640    3580091D              STW,WKA  ADRDCODE
     2168   01 00641    6800064D              B        CHKPATTB
     2169                            *
     2170                            *  CHECK RESULTS OF INTERRUPT PATTERN GENERATION. EACH PATTERN IS
     2171                            *  CHECKED TO DETERMINE THE FOLLOWING:
     2172                            *  1. ALL EXPECTED INTERRUPTS OCCURRED.
     2173                            *  2. NO UNEXPECTED INTERRUPTS OCCURRED.
     2174                            *  3. THE ADDRESS RECEIVED MATCHES THE ADDRESS EXPECTED.
     2175                            *  4. THE SEQUENCE IN WHICH INTERRUPTS OCCUR IS CORRECT.
     2176                            *  5. NO MORE THAN ONE INTERRUPT OCCURS FOR ANY LEVEL.
     2177                            *
     2178   01 00642    22800100 A   CHKPATT  LI,WKA   256
     2179   01 00643    223001FF A            LI,XB    511
     2180   01 00644    22100000 A            LI,XA    0
     2181   01 00645    45220B0C     CHKPATTA CS,OT    ITRNHIST,XA       TEST FOR ADDRESS MATCH.
     2182   01 00646    68300658              BE       CHKPATTD
     2183   01 00647    20100002 A            AI,XA    2
     2184   01 00648    64800645              BDR,WKA  CHKPATTA
     2185   01 00649    492009F4              OR,OT    BITZERO           FLAG ERROR TYPE.
     2186   01 0064A    09200956              PSW,OT   ERRSTK
     2187   01 0064B    228FFFFF A            LI,WKA   -1
     2188   01 0064C    35800A58              STW,WKA  ERROR
     2189   01 0064D    32800A59     CHKPATTB LW,WKA   INHIBITS
     2190   01 0064E    4B8008AF              AND,WKA  INHBMSK
     2191   01 0064F    75800953              STB,WKA  CHKPATT1+1        SET CURRENT INHIBIT BITS.
     2192                            *
     2193   01 00650    02200000 A            LCI      0                 SET UP FOR INTERRUPT PRESENTING
     2194   01 00651    2A0009E2              LM,0     CTCHHNG1          ADDRESS BETWEEN 0 AND X'F'.
     2195                            *                                   CLEAR ACTIVE STATE OF CURRENT LEVEL.
     2196                            *
     2197   01 00652    0E200952              LPSD,2   CHKPATT1
     2198   01 00653    33F00A56     CHKPATTC MTW,-1   WAITCNT
     2199   01 00654    69200653              BCS,2    CHKPATTC
     2200   01 00655    02000000 A            NOP      0                 THIS NOP IS INCLUDED FOR THE 7700
     2201                            *                                   INTERPROCESSOR TEST.
     2202   01 00656    6A7005AF              BAL,LNK  KILLINTS
     2203   01 00657    68000667              B        CHKPATTE
     2204   01 00658    25100002 A   CHKPATTD SLS,XA   2
     2205   01 00659    72820B0C              LB,WKA   ITRNHIST,XA
     2206   01 0065A    32100A19              LW,XA    SEQLIST
     2207   01 0065B    223FD797 N            LI,XB    -(BA(SEQLIST+1)+1)
     2208   01 0065C    30300001 A            AW,XB    XA
     2209   01 0065D    68100661              BCR,1    %+4               BR IF NOT FIRST ENTRY.
     2210   01 0065E    75820000 A            STB,WKA  0,XA
     2211   01 0065F    33100A19              MTW,1    SEQLIST
     2212   01 00660    6800064D              B        CHKPATTB
     2213   01 00661    71860A1A              CB,WKA   SEQLIST+1,XB
     2214   01 00662    6830069A              BE       CHKPATTM          BR IF MORE THAN ONE INT PER TRIG.
     2215   01 00663    64300661              BDR,XB   %-2
     2216   01 00664    71800A1A              CB,WKA   SEQLIST+1
     2217   01 00665    6830069A              BE       CHKPATTM
     2218   01 00666    6800065E              B        %-8
     2219   01 00667    32100A19     CHKPATTE LW,XA    SEQLIST
     2220   01 00668    201FD797 N            AI,XA    -(BA(SEQLIST+1)+1)
     2221   01 00669    69100690              BCS,1    CHKPATTK          BR IF NO INT OCCURRED.
     2222   01 0066A    35100914              STW,XA   SQLSTCNT
     2223   01 0066B    33F00914     CHKPATTF MTW,-1   SQLSTCNT
     2224   01 0066C    69100698              BCS,1    CHKPATTL
     2225   01 0066D    72820A1A              LB,WKA   SEQLIST+1,XA
     2226   01 0066E    32100914     CHKPATTG LW,XA    SQLSTCNT
     2227   01 0066F    72C20A1A              LB,WKB   SEQLIST+1,XA      LOAD NEXT LOWER POINTER.
     2228   01 00670    22102C30              LI,XA    BA(ITRNHIST)
     2229   01 00671    71820000 A            CB,WKA   0,XA
     2230   01 00672    68300675              BE       CHKPATTH          BR IF WD POINTER EQUAL.
     2231   01 00673    20100008 A            AI,XA    8
     2232   01 00674    68000671              B        %-3
     2233   01 00675    20100007 A   CHKPATTH AI,XA    7
     2234   01 00676    72820000 A            LB,WKA   0,XA              LOAD EXPECTED SEQ OF INTERRUPT.
     2235   01 00677    22302C30              LI,XB    BA(ITRNHIST)
     2236   01 00678    71C60000 A            CB,WKB   0,XB
     2237   01 00679    6830067C              BE       CHKPATTI          BR IF WD POINTER EQUAL.
     2238   01 0067A    20300008 A            AI,XB    8
     2239   01 0067B    68000678              B        %-3
     2240   01 0067C    20300007 A   CHKPATTI AI,XB    7
     2241   01 0067D    71860000 A            CB,WKA   0,XB
     2242   01 0067E    6820069F              BLE      CHKPATTN          BR IF LOWER PRI INT OCCURRED FIRST.
     2243   01 0067F    201FFFF9 A            AI,XA    -7
     2244   01 00680    72920000 A            LB,LV    0,XA
     2245   01 00681    32500009 A   CHKPATTJ LW,GR    LV
     2246   01 00682    2550007C A            SLS,GR   -4
     2247   01 00683    2590001C A            SLS,LV   28
     2248   01 00684    25900064 A            SLS,LV   -28
     2249   01 00685    32300009 A            LW,XB    LV
     2250   01 00686    329609FE              LW,LV    BIT16,XB
     2251   01 00687    528A0900              LH,WKA   EXPFIELD,GR
     2252   01 00688    4B800009 A            AND,WKA  LV
     2253   01 00689    683006B3              BCR,3    CHKPATTP          BR IF INT NOT EXPECTED.
     2254   01 0068A    528A0900              LH,WKA   EXPFIELD,GR
     2255   01 0068B    48800009 A            EOR,WKA  LV
     2256   01 0068C    558A0900              STH,WKA  EXPFIELD,GR
     2257   01 0068D    32100914              LW,XA    SQLSTCNT
     2258   01 0068E    211FFFFF A            CI,XA    -1
     2259   01 0068F    6930066B              BNE      CHKPATTF
     2260   01 00690    221FFFF8 A   CHKPATTK LI,XA    -8
     2261   01 00691    32820911              LW,WKA   NTNTIMPL+8,XA
     2262   01 00692    4B820908              AND,WKA  EXPFIELD+8,XA
     2263   01 00693    693006C4              BCS,3    CHKPATTQ          BR IF EXPECTED INT DID NOT OCCUR.
     2264   01 00694    65100691              BIR,XA   %-3
     2265   01 00695    6A700436              BAL,LNK  CHKSTK
     2266   01 00696    E800091E              B        *CHKEXIT          EXIT, ERROR OR NOT.
     2267   01 00697    E800091E              B        *CHKEXIT
     2268   01 00698    72900A1A     CHKPATTL LB,LV    SEQLIST+1
     2269   01 00699    68000681              B        CHKPATTJ
     2270   01 0069A    498009F7     CHKPATTM OR,WKA   BIT3              FLAG ERROR TYPE.
     2271   01 0069B    09800956              PSW,WKA  ERRSTK
     2272   01 0069C    33F00A58              MTW,-1   ERROR
     2273   01 0069D    64100669              BDR,XA   CHKPATTG-5
     2274   01 0069E    6800066E              B        CHKPATTG
     2275   01 0069F    201FFFF9 A   CHKPATTN AI,XA    -7
     2276   01 006A0    72820000 A            LB,WKA   0,XA              LOAD WD POINTER.
     2277   01 006A1    21800003 A            CI,WKA   3
     2278   01 006A2    692006AC              BG       %+10              BR IF NOT CNT PULSE INT.
     2279   01 006A3    32D0086C              LW,WKC   LEVBITSA
     2280   01 006A4    4BD00874              AND,WKC  LEVBITSE
     2281   01 006A5    223009FE              LI,XB    BIT16
     2282   01 006A6    B2E60008 A            LW,WKD   *WKA,XB           LOAD LEVEL BIT.
     2283   01 006A7    25E00010 A            SLS,WKD  16
     2284   01 006A8    4BD0000E A            AND,WKC  WKD
     2285   01 006A9    6830067F              BCR,3    CHKPATTJ-2        BR IF INT NOT ARMED AND ENABLED.
     2286   01 006AA    4BD0087C              AND,WKC  LEVBITST
     2287   01 006AB    6830068D              BCR,3    CHKPATTK-3        BR IF INT ARMED AND ENABLED,
     2288                            *                                   BUT NOT TRIGGERED.
     2289   01 006AC    25C00014 A            SLS,WKB  20
     2290   01 006AD    49C00008 A            OR,WKB   WKA
     2291   01 006AE    49C009F7              OR,WKB   BIT3              FLAG ERROR TYPE.
     2292   01 006AF    49C009F5              OR,WKB   BITONE            *
     2293   01 006B0    09C00956              PSW,WKB  ERRSTK
     2294   01 006B1    33F00A58              MTW,-1   ERROR
     2295   01 006B2    68000680              B        CHKPATTJ-1
     2296   01 006B3    329609FE     CHKPATTP LW,LV    BIT16,XB
     2297   01 006B4    21500000 A            CI,GR    0
     2298   01 006B5    693006B9              BNE      %+4               BR IF UNEXPECTED INTERRUPT IS NOT
     2299                            *                                   FROM WD GROUP ZERO.
     2300   01 006B6    2280F000 A            LI,WKA   15**12
     2301   01 006B7    4B800009 A            AND,WKA  LV
     2302   01 006B8    693006DE              BCS,3    CHKPATTR          BR IF UNEXPECTED INTERRUPT IS
     2303                            *                                   FROM COUNTER PULSE INTERRUPT.
     2304   01 006B9    6A7006E5              BAL,LNK  DESCRIBE
     2305   01 006BA    25200018 A            SLS,OT   24
     2306   01 006BB    32800005 A            LW,WKA   GR
     2307   01 006BC    25800004 A            SLS,WKA  4
     2308   01 006BD    49800003 A            OR,WKA   XB                COMBINE GROUP AND LEVEL.
     2309   01 006BE    498009F5              OR,WKA   BITONE            FLAG ERROR TYPE.
     2310   01 006BF    498009F6              OR,WKA   BITTWO            *
     2311   01 006C0    49800002 A            OR,WKA   OT
     2312   01 006C1    09800956              PSW,WKA  ERRSTK
     2313   01 006C2    33F00A58              MTW,-1   ERROR
     2314   01 006C3    6800068D              B        CHKPATTK-3
     2315   01 006C4    33F00A58     CHKPATTQ MTW,-1   ERROR
     2316   01 006C5    25100001 A            SLS,XA   1
     2317   01 006C6    20100010 A            AI,XA    16
     2318   01 006C7    32C00924              LW,WKB   BIT16X31
     2319   01 006C8    4BC00008 A            AND,WKB  WKA
     2320   01 006C9    683006CC              BCR,3    %+3
     2321   01 006CA    20100001 A            AI,XA    1
     2322   01 006CB    25800010 A            SLS,WKA  16
     2323   01 006CC    32B00008 A            LW,CSM   WKA
     2324   01 006CD    6A700591              BAL,LNK  BITCNT
     2325   01 006CE    329409FE              LW,LV    BIT16,OT
     2326   01 006CF    32500001 A            LW,GR    XA
     2327   01 006D0    6A7006E5              BAL,LNK  DESCRIBE
     2328   01 006D1    25200014 A            SLS,OT   20
     2329   01 006D2    25100018 A            SLS,XA   24
     2330   01 006D3    528A0900              LH,WKA   EXPFIELD,GR
     2331   01 006D4    4B800924              AND,WKA  BIT16X31
     2332   01 006D5    491009F5              OR,XA    BITONE            FLAG ERROR TYPE.
     2333   01 006D6    491009F6              OR,XA    BITTWO            *
     2334   01 006D7    491009F7              OR,XA    BIT3              *
     2335   01 006D8    49100008 A            OR,XA    WKA               COMBINE ERROR INFORMATION.
     2336   01 006D9    49100002 A            OR,XA    OT
     2337   01 006DA    09100956              PSW,XA   ERRSTK
     2338   01 006DB    22800000 A            LI,WKA   0
     2339   01 006DC    558A0900              STH,WKA  EXPFIELD,GR       DELETE ERROR ONCE RECORDED.
     2340   01 006DD    68000690              B        CHKPATTK
     2341                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     2342   01 006DE    3280086C     CHKPATTR LW,WKA   LEVBITSA
     2343   01 006DF    4B800874              AND,WKA  LEVBITSE
     2344   01 006E0    5590000C A            STH,LV   WKB
     2345   01 006E1    4BC00923              AND,WKB  BIT0X15
     2346   01 006E2    4B80000C A            AND,WKA  WKB
     2347   01 006E3    683006B9              BCR,3    CHKPATTP+6        BR IF UNEXPECTED COUNTER PULSE
     2348                            *                                   INTERRUPT WAS NOT ARMED,
     2349                            *                                   AND ENABLED.
     2350   01 006E4    6800068D              B        CHKPATTK-3
     2351                            *
     2352                            *
     2353                            *  OUTPUT CONDITIONS IN CURRENT PATTERN FOR WD GRP 'GR',
     2354                            *  LEVEL BIT 'LV'.
     2355                            *
     2356   01 006E5    32100005 A   DESCRIBE LW,XA    GR
     2357   01 006E6    22D00004 A            LI,WKC   4
     2358   01 006E7    22200000 A            LI,OT    0
     2359   01 006E8    22800008 A            LI,WKA   8
     2360   01 006E9    52E2086C     DESCRIBA LH,WKD   LEVBITSA,XA
     2361   01 006EA    4BE00009 A            AND,WKD  LV
     2362   01 006EB    683006ED              BCR,3    %+2               BR IF CONDITION IS FALSE.
     2363   01 006EC    30200008 A            AW,OT    WKA
     2364   01 006ED    2580007F A            SLS,WKA  -1
     2365   01 006EE    20100010 A            AI,XA    16
     2366   01 006EF    64D006E9              BDR,WKC  DESCRIBA
     2367   01 006F0    E8000007 A            B        *LNK
     2368                            *
     2369                            *                                   AN INT LEVEL MUST PRESENT AN
     2370                            *                                   ADDRESS BETWEEN 0 AND X'F' TO
     2371                            *                                   ENTER THIS ROUTINE.
     2372   01 006F1    0F8009BA     HNGDCODE XPSD,8   CTCHHANG
     2373   01 006F2    02200000 A            LCI      0
     2374   01 006F3    2B0013CE              STM,0    LASTONE+992                                       *D01
     2375   01 006F4    728009BA              LB,WKA   CTCHHANG
     2376   01 006F5    22100001 A            LI,XA    1
     2377   01 006F6    52C209BB              LH,WKB   CTCHHANG+1,XA
     2378   01 006F7    683006F9              BCR,3    %+2
     2379   01 006F8    20800008 A            AI,WKA   8
     2380   01 006F9    498009F4              OR,WKA   BITZERO           FLAG ERROR TYPE.
     2381   01 006FA    498009F7              OR,WKA   BIT3              *
     2382   01 006FB    09800956              PSW,WKA  ERRSTK
     2383   01 006FC    33F00A58              MTW,-1   ERROR
     2384   01 006FD    721009BA              LB,XA    CTCHHANG
     2385   01 006FE    201009C2              AI,XA    HANGPSDS
     2386   01 006FF    351009F2              STW,XA   HANGBACK
     2387   01 00700    02200000 A            LCI      0
     2388   01 00701    2A0013CE              LM,0     LASTONE+992                                       *D01
     2389   01 00702    8E2009F2              LPSD,2   *HANGBACK
     2390                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     2391   01 00703    6A7005AF     HIFAILC  BAL,LNK  KILLINTS
     2392   01 00704    220004D1              LI,IO    MSG9CDW
     2393   01 00705    6A7004A5              BAL,LNK  KSRA
     2394   01 00706    2280070D     DLINK    LI,WKA   HIFAILCB
     2395   01 00707    3580091D              STW,WKA  ADRDCODE
     2396   01 00708    3290093D     HIFAILCA LW,LV    HIBIT
     2397   01 00709    6D901300 A            WD,LV    ARMD
     2398   01 0070A    6D901700 A            WD,LV    TRIG
     2399   01 0070B    6D901400 A            WD,LV    ENABLE
     2400   01 0070C    20000000 A            AI,0     0
     2401   01 0070D    0E200946     HIFAILCB LPSD,2   HIFAILC1
     2402   01 0070E    68000708     HIFAILCC B        HIFAILCA
     2403                            *
     2404   01 0070F    32F00002 A   HIFAILD  LW,IN    OT
     2405   01 00710    2260086C              LI,OA    LEVBITSA
     2406   01 00711    6A700587              BAL,LNK  TRANOUT
     2407   01 00712    22800015 A            LI,WKA   21
     2408   01 00713    7580086D              STB,WKA  LEVBITSA+1
     2409   01 00714    220004D2              LI,IO    MSGACDW
     2410   01 00715    6A7004A5              BAL,LNK  KSRA
     2411   01 00716    68000706              B        DLINK
     2412                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     2413   01 00717    3570091C     BS456    STW,LNK  LOOPEXIT
     2414   01 00718    226007AF              LI,OA    MULTINT
     2415   01 00719    6A7005C1              BAL,LNK  TESTBSW
     2416   01 0071A    00000004 A            DATA     4
     2417   01 0071B    226007CD              LI,OA    SNGLUP
     2418   01 0071C    6A7005C1              BAL,LNK  TESTBSW
     2419   01 0071D    00000005 A            DATA     5
     2420   01 0071E    226007E4              LI,OA    SNGLDWN
     2421   01 0071F    6A7005C1              BAL,LNK  TESTBSW
     2422   01 00720    00000006 A            DATA     6
     2423   01 00721    E800091C              B        *LOOPEXIT
     2424                            *
     2425                            *  READ KSR FOR PATTERN, TRANSLATE AND EXECUTE.
     2426                            *
     2427   01 00722    3570091C     MANUAL   STW,LNK  LOOPEXIT
     2428   01 00723    32800865              LW,WKA   CONBITS
     2429   01 00724    488009FC              EOR,WKA  BIT9
     2430   01 00725    35800865              STW,WKA  CONBITS
     2431   01 00726    22800000 A            LI,WKA   0
     2432   01 00727    358008AD              STW,WKA  ROLL
     2433   01 00728    22800791              LI,WKA   MANUALJ
     2434   01 00729    35800920              STW,WKA  HIEXIT
     2435   01 0072A    6A7005AF              BAL,LNK  KILLINTS
     2436   01 0072B    6A7004C9              BAL,LNK  SETSTKS
     2437   01 0072C    6A700516              BAL,LNK  STHLDSS
     2438   01 0072D    32800937              LW,WKA   AEND              SET UP TO READ ARM, DISABLE INPUT.
     2439   01 0072E    35800918              STW,WKA  TERM              *
     2440   01 0072F    22801128              LI,WKA   HA(MANPATT)       *
     2441   01 00730    35800874              STW,WKA  LEVBITSE          *
     2442   01 00731    22800000 A            LI,WKA   0
     2443   01 00732    221FFFE8 A            LI,XA    -24
     2444   01 00733    358208AC              STW,WKA  MANPATT+24,XA
     2445   01 00734    65100733              BIR,XA   %-1
     2446   01 00735    22800759              LI,WKA   MANUALB
     2447   01 00736    35800919              STW,WKA  TERM+1
     2448   01 00737    220004B7              LI,IO    MANCDW1
     2449   01 00738    6A7004F5              BAL,LNK  RESP
     2450   01 00739    220004B8     MANUALA  LI,IO    MANCDW2
     2451   01 0073A    6A7004A5              BAL,LNK  KSRA
     2452   01 0073B    32800B2C              LW,WKA   ITRNHIST+32
     2453   01 0073C    31800918              CW,WKA   TERM
     2454   01 0073D    E8300919              BE       *TERM+1           BR IF END OF INPUT.
     2455   01 0073E    31800934              CW,WKA   NEWPATT
     2456   01 0073F    68300722              BE       MANUAL            BR TO ENTER COMPLETE NEW PATTERN.
     2457   01 00740    25800068 A            SLS,WKA  -24
     2458   01 00741    218000D9 A            CI,WKA   'R'
     2459   01 00742    68300794              BE       MANUALK           BR IF INCR INHIBITS REQUESTED.
     2460   01 00743    22600798              LI,OA    INVMAN
     2461   01 00744    6A7005D3              BAL,LNK  TRANIN
     2462   01 00745    21F00004 A            CI,IN    4
     2463   01 00746    68300749              BE       %+3
     2464   01 00747    21F00001 A            CI,IN    1
     2465   01 00748    69300798              BNE      INVMAN
     2466   01 00749    221FFFF8 A            LI,XA    -8
     2467   01 0074A    3010000F A            AW,XA    IN
     2468   01 0074B    25100002 A            SLS,XA   2
     2469   01 0074C    25220000 A            SLS,OT   0,XA
     2470   01 0074D    32100874              LW,XA    LEVBITSE
     2471   01 0074E    55220000 A            STH,OT   0,XA
     2472   01 0074F    33100874              MTW,1    LEVBITSE
     2473   01 00750    32800874              LW,WKA   LEVBITSE
     2474   01 00751    21801129              CI,WKA   HA(MANPATT)+1
     2475   01 00752    68300757              BE       MANUALB-2
     2476   01 00753    21801139              CI,WKA   HA(MANPATT+8)+1
     2477   01 00754    68300757              BE       MANUALB-2
     2478   01 00755    21801149              CI,WKA   HA(MANPATT+16)+1
     2479   01 00756    69300739              BNE      MANUALA
     2480   01 00757    33100874              MTW,1    LEVBITSE
     2481   01 00758    68000739              B        MANUALA
     2482   01 00759    22800762     MANUALB  LI,WKA   MANUALC           SET UP TO READ ENABLE INPUT.
     2483   01 0075A    35800919              STW,WKA  TERM+1            *
     2484   01 0075B    32800938              LW,WKA   EEND              *
     2485   01 0075C    35800918              STW,WKA  TERM              *
     2486   01 0075D    22801138              LI,WKA   HA(MANPATT+8)     *
     2487   01 0075E    35800874              STW,WKA  LEVBITSE
     2488   01 0075F    220004B9              LI,IO    MANCDW3
     2489   01 00760    6A7004A5              BAL,LNK  KSRA
     2490   01 00761    68000739              B        MANUALA
     2491   01 00762    2280076B     MANUALC  LI,WKA   MANUALD           SET UP TO READ TRIGGER INPUT.
     2492   01 00763    35800919              STW,WKA  TERM+1            *
     2493   01 00764    22801148              LI,WKA   HA(MANPATT+16)    *
     2494   01 00765    35800874              STW,WKA  LEVBITSE          *
     2495   01 00766    32800939              LW,WKA   TEND              *
     2496   01 00767    35800918              STW,WKA  TERM              *
     2497   01 00768    220004BA              LI,IO    MANCDW4
     2498   01 00769    6A7004A5              BAL,LNK  KSRA
     2499   01 0076A    68000739              B        MANUALA
     2500   01 0076B    22800774     MANUALD  LI,WKA   MANUALE           SET UP TO READ INHIBIT INPUT.
     2501   01 0076C    35800919              STW,WKA  TERM+1
     2502   01 0076D    3280093A              LW,WKA   IEND
     2503   01 0076E    35800918              STW,WKA  TERM
     2504   01 0076F    22801159              LI,WKA   HA(MANINHB)+1
     2505   01 00770    35800874              STW,WKA  LEVBITSE
     2506   01 00771    220004BB              LI,IO    MANCDW5
     2507   01 00772    6A7004A5              BAL,LNK  KSRA
     2508   01 00773    68000739              B        MANUALA
     2509   01 00774    22800787     MANUALE  LI,WKA   MANUALG
     2510   01 00775    3580091E              STW,WKA  CHKEXIT
     2511   01 00776    22800627              LI,WKA   IGEN
     2512   01 00777    3580091F              STW,WKA  EXECPATT
     2513   01 00778    328008AD              LW,WKA   ROLL
     2514   01 00779    6830077E              BCR,3    %+5
     2515   01 0077A    33F008AC              MTW,-1   MANINHB
     2516   01 0077B    6810077E              BCR,1    %+3
     2517   01 0077C    22800007 A            LI,WKA   7
     2518   01 0077D    358008AC              STW,WKA  MANINHB
     2519   01 0077E    328008AC              LW,WKA   MANINHB
     2520   01 0077F    35800A59              STW,WKA  INHIBITS
     2521   01 00780    02200000 A   MANUALF  LCI      0
     2522   01 00781    2A000894              LM,0     MANPATT
     2523   01 00782    2B00086C              STM,0    LEVBITSA
     2524   01 00783    02200080 A            LCI      8
     2525   01 00784    2A0008A4              LM,0     MANPATT+16
     2526   01 00785    2B00087C              STM,0    LEVBITST
     2527   01 00786    680005F7              B        SETEXP
     2528   01 00787    32800A58     MANUALG  LW,WKA   ERROR
     2529   01 00788    6830078C              BCR,3    MANUALH           BR IF NO ERROR OCCURRED.
     2530   01 00789    2260078C              LI,OA    MANUALH
     2531   01 0078A    6A7005C1              BAL,LNK  TESTBSW           TEST FOR WAIT ON ERROR.
     2532   01 0078B    00000001 A            DATA     1
     2533   01 0078C    6A7005AF     MANUALH  BAL,LNK  KILLINTS
     2534   01 0078D    6A7004D2              BAL,LNK  CLEAR
     2535   01 0078E    22600774              LI,OA    MANUALE
     2536   01 0078F    6A7004ED              BAL,LNK  REVRS1
     2537   01 00790    E800091C              B        *LOOPEXIT         EXIT IF SS1 HAS BEEN REVERSED.
     2538   01 00791    6A700436     MANUALJ  BAL,LNK  CHKSTK
     2539   01 00792    6800078C              B        MANUALH           NORMAL RETURN.
     2540   01 00793    6800078C              B        MANUALH           ERROR RETURN.
     2541   01 00794    22800007 A   MANUALK  LI,WKA   7
     2542   01 00795    358008AC              STW,WKA  MANINHB
     2543   01 00796    358008AD              STW,WKA  ROLL
     2544   01 00797    68000739              B        MANUALA
     2545   01 00798    22700739     INVMAN   LI,LNK   MANUALA
     2546   01 00799    68000558              B        OUTPINV
     2547                            *                        * * * DELEATED PAGE DIRECTIVE * * *          *C
     2548   01 0079A    22F01540 A   EDIT     LI,IN    X'1540'
     2549   01 0079B    226FFFE4 A            LI,OA    -28
     2550   01 0079C    55FC0B41              STH,IN   ITRNHIST+53,OA
     2551   01 0079D    6560079C              BIR,OA   %-1
     2552   01 0079E    22600001 A            LI,OA    1
     2553   01 0079F    52F00B2C              LH,IN    ITRNHIST+32
     2554   01 007A0    49F0091B              OR,IN    BLANK
     2555   01 007A1    55F00B33              STH,IN   ITRNHIST+39
     2556   01 007A2    32F00B2F              LW,IN    ITRNHIST+35
     2557   01 007A3    35F00B34              STW,IN   ITRNHIST+40
     2558   01 007A4    52F00B30              LH,IN    ITRNHIST+36
     2559   01 007A5    55FC0B35              STH,IN   ITRNHIST+41,OA
     2560   01 007A6    52FC0B30              LH,IN    ITRNHIST+36,OA
     2561   01 007A7    55F00B36              STH,IN   ITRNHIST+42
     2562   01 007A8    32F00B31              LW,IN    ITRNHIST+37
     2563   01 007A9    35F00B37              STW,IN   ITRNHIST+43
     2564   01 007AA    52F00B32              LH,IN    ITRNHIST+38
     2565   01 007AB    55FC0B38              STH,IN   ITRNHIST+44,OA
     2566   01 007AC    52FC0B32              LH,IN    ITRNHIST+38,OA
     2567   01 007AD    55F00B39              STH,IN   ITRNHIST+45
     2568   01 007AE    E8000007 A            B        *LNK
     2569                            *
     2570                            *  GENERATE EVERY IMPLEMENTED INTERRUPT, CLEAR AND IGNORE.
     2571                            *
     2572   01 007AF    6A7005AF     MULTINT  BAL,LNK  KILLINTS
     2573   01 007B0    32800865              LW,WKA   CONBITS
     2574   01 007B1    488009F8              EOR,WKA  BIT4              TURN OFF CONTROL BIT 4.
     2575   01 007B2    35800865              STW,WKA  CONBITS
     2576   01 007B3    6A700516              BAL,LNK  STHLDSS
     2577   01 007B4    6A700598     MULTINTA BAL,LNK  SETHI
     2578   01 007B5    228007C6              LI,WKA   MULTINTB
     2579   01 007B6    3580091D              STW,WKA  ADRDCODE
     2580   01 007B7    35800920              STW,WKA  HIEXIT
     2581   01 007B8    3290093C              LW,LV    NOTHI
     2582   01 007B9    228000ED A            LI,WKA   237
     2583   01 007BA    35800A56              STW,WKA  WAITCNT
     2584   01 007BB    2280000F A            LI,WKA   15
     2585   01 007BC    22500000 A            LI,GR    0
     2586   01 007BD    680007BF              B        %+2
     2587   01 007BE    2290FFFF A            LI,LV    65535
     2588   01 007BF    6D9A1200 A            WD,LV    ARME,GR
     2589   01 007C0    6D9A1700 A            WD,LV    TRIG,GR
     2590   01 007C1    20500001 A            AI,GR    1
     2591   01 007C2    648007BE              BDR,WKA  %-4
     2592   01 007C3    02200000 A            LCI      0                 SET UP TO HANDLE POSSIBLE INT
     2593   01 007C4    2A0009E2              LM,0     CTCHHNG1          WITHIN REG PAGE.
     2594   01 007C5    20000000 A            AI,0     0                 ADDRESS SCOPE SYNC, ALL LEVELS
     2595                            *                                   HAVE BEEN ARMED, ENABLED, AND
     2596                            *                                   TRIGGERED, AND THE NEXT INSTRUCTION
     2597                            *                                   WILL CLEAR THE HIGHEST PRIORITY
     2598                            *                                   INTERRUPT FROM THE ACTIVE STATE.
     2599   01 007C6    0E200948     MULTINTB LPSD,2   MULTINT1
     2600   01 007C7    33F00A56     MULTINTC MTW,-1   WAITCNT
     2601   01 007C8    691007C7              BCS,1    %-1
     2602   01 007C9    226007B4              LI,OA    MULTINTA
     2603   01 007CA    6A7004ED              BAL,LNK  REVRS1
     2604   01 007CB    3270091C              LW,LNK   LOOPEXIT
     2605   01 007CC    680005AF              B        KILLINTS
     2606                            *
     2607                            *  GENERATE EVERY INTERRUPT SINGLY FROM WD GROUP ZERO, LEVEL BIT 16,
     2608                            *  TO WD GROUP 15, LEVEL BIT 31, CLEAR AND IGNORE.
     2609                            *
     2610   01 007CD    6A7005AF     SNGLUP   BAL,LNK  KILLINTS
     2611   01 007CE    32800865              LW,WKA   CONBITS
     2612   01 007CF    488009F9              EOR,WKA  BIT5              TURN OFF CONTROL BIT 5.
     2613   01 007D0    35800865              STW,WKA  CONBITS
     2614   01 007D1    6A700516              BAL,LNK  STHLDSS
     2615   01 007D2    228007DC              LI,WKA   SNGLUPD
     2616   01 007D3    3580091D              STW,WKA  ADRDCODE
     2617   01 007D4    22800010 A   SNGLUPA  LI,WKA   16
     2618   01 007D5    22500000 A            LI,GR    0
     2619   01 007D6    22C00010 A   SNGLUPB  LI,WKB   16
     2620   01 007D7    329009FE              LW,LV    BIT16
     2621   01 007D8    6D9A1300 A   SNGLUPC  WD,LV    ARMD,GR
     2622   01 007D9    6D9A1700 A            WD,LV    TRIG,GR
     2623   01 007DA    6D9A1400 A            WD,LV    ENABLE,GR
     2624   01 007DB    20000000 A            AI,0     0
     2625   01 007DC    0E20094A     SNGLUPD  LPSD,2   SNGLUP1
     2626   01 007DD    2590007F A   SNGLUPE  SLS,LV   -1
     2627   01 007DE    64C007D8              BDR,WKB  SNGLUPC
     2628   01 007DF    20500001 A            AI,GR    1
     2629   01 007E0    648007D6              BDR,WKA  SNGLUPB
     2630   01 007E1    6C000000 A            RD,0     0
     2631   01 007E2    688007D4              BCR,8    SNGLUPA
     2632   01 007E3    680007CB              B        SNGLUP-2
     2633                            *
     2634                            *  GENERATE REVERSE PATTERN OF PRECEDING SUB-ROUTINE.
     2635                            *
     2636   01 007E4    6A7005AF     SNGLDWN  BAL,LNK  KILLINTS
     2637   01 007E5    6A700516              BAL,LNK  STHLDSS
     2638   01 007E6    32800865              LW,WKA   CONBITS
     2639   01 007E7    488009FA              EOR,WKA  BIT6              TURN OFF CONTROL BIT 6.
     2640   01 007E8    35800865              STW,WKA  CONBITS
     2641   01 007E9    228007F3              LI,WKA   SNGLDWND
     2642   01 007EA    3580091D              STW,WKA  ADRDCODE
     2643   01 007EB    22800010 A   SNGLDWNA LI,WKA   16
     2644   01 007EC    2250000F A            LI,GR    15
     2645   01 007ED    22C00010 A   SNGLDWNB LI,WKB   16
     2646   01 007EE    22900001 A            LI,LV    1
     2647   01 007EF    6D9A1300 A   SNGLDWNC WD,LV    ARMD,GR
     2648   01 007F0    6D9A1700 A            WD,LV    TRIG,GR
     2649   01 007F1    6D9A1400 A            WD,LV    ENABLE,GR
     2650   01 007F2    20000000 A            AI,0     0
     2651   01 007F3    0E20094C     SNGLDWND LPSD,2   SNGLDWN1
     2652   01 007F4    25900001 A   SNGLDWNE SLS,LV   1
     2653   01 007F5    64C007EF              BDR,WKB  SNGLDWNC
     2654   01 007F6    205FFFFF A            AI,GR    -1
     2655   01 007F7    648007ED              BDR,WKA  SNGLDWNB
     2656   01 007F8    226007EB              LI,OA    SNGLDWNA
     2657   01 007F9    6A7004ED              BAL,LNK  REVRS1
     2658   01 007FA    680007CB              B        SNGLUP-2
     2659                            *
     2660                            *  READ KSR FOR WD GROUP TO TEST VIA JX-58, GENERATE AND VERIFY
     2661                            *  ALL INTERRUPTS WHICH OCCUR.
     2662                            *
     2663   01 007FB    3570091C     JX       STW,LNK  LOOPEXIT
     2664   01 007FC    32800865              LW,WKA   CONBITS
     2665   01 007FD    488009FB              EOR,WKA  BIT7              TURN OFF CONTROL BIT 7.
     2666   01 007FE    35800865              STW,WKA  CONBITS
     2667   01 007FF    6A700516              BAL,LNK  STHLDSS
     2668   01 00800    2280085B              LI,WKA   JXF
     2669   01 00801    35800920              STW,WKA  HIEXIT
     2670   01 00802    22800828              LI,WKA   JXB
     2671   01 00803    3580091E              STW,WKA  CHKEXIT
     2672   01 00804    2280081A              LI,WKA   JXA
     2673   01 00805    3580091F              STW,WKA  EXECPATT
     2674   01 00806    22800000 A            LI,WKA   0
     2675   01 00807    35800A59              STW,WKA  INHIBITS
     2676   01 00808    220004D4              LI,IO    MSGBCDW
     2677   01 00809    6A7004F5              BAL,LNK  RESP
     2678   01 0080A    22600863              LI,OA    INVJX
     2679   01 0080B    6A7005D3              BAL,LNK  TRANIN
     2680   01 0080C    25200064 A            SLS,OT   -28
     2681   01 0080D    21200001 A            CI,OT    1
     2682   01 0080E    68200863              BLE      INVJX             BR IF WD GROUP ZERO OR ONE.
     2683   01 0080F    35200911              STW,OT   JXGRP
     2684   01 00810    22800000 A            LI,WKA   0
     2685   01 00811    221FFFE0 A            LI,XA    -32
     2686   01 00812    3582088C              STW,WKA  LEVBITSA+32,XA
     2687   01 00813    65100812              BIR,XA   %-1
     2688   01 00814    2290FFFF A            LI,LV    65535
     2689   01 00815    32500911              LW,GR    JXGRP
     2690   01 00816    559A086C              STH,LV   LEVBITSA,GR
     2691   01 00817    559A087C              STH,LV   LEVBITST,GR
     2692   01 00818    559A0874              STH,LV   LEVBITSE,GR
     2693   01 00819    680005F7              B        SETEXP
     2694   01 0081A    6A700598     JXA      BAL,LNK  SETHI
     2695   01 0081B    2290FFFF A            LI,LV    65535
     2696   01 0081C    32500911              LW,GR    JXGRP
     2697   01 0081D    6D9A1200 A            WD,LV    ARME,GR           ARM, ENABLE LEVELS FOR JX-58 TEST.
     2698   01 0081E    6D902000 A            WD,LV    X'2000'           TRIGGER VIA JX-58.
     2699   01 0081F    6C902000 A            RD,LV    X'2000'
     2700   01 00820    22100001 A            LI,XA    1
     2701   01 00821    52920009 A            LH,LV    LV,XA             PROPAGATE SIGN BIT FOR HALF WORD
     2702   01 00822    519A0909              CH,LV    NTNTIMPL,GR       COMPARE.
     2703   01 00823    6830063A              BE       IGENA-5           BR IF ALL IMPLEMENTED LEVELS
     2704                            *                                   ADVANCED TO THE WAITING STATE.
     2705   01 00824    499009F4              OR,LV    BITZERO
     2706   01 00825    499009F6              OR,LV    BITTWO
     2707   01 00826    09900956              PSW,LV   ERRSTK            STACK ERROR.
     2708   01 00827    6800063A              B        IGENA-5
     2709   01 00828    6C000000 A   JXB      RD,0     0
     2710   01 00829    69400810              BCS,4    JXA-10            BR ON SS 2.
     2711   01 0082A    2260082D              LI,OA    %+3
     2712   01 0082B    6A7004ED              BAL,LNK  REVRS1
     2713   01 0082C    68000858              B        JXE
     2714   01 0082D    2280083C              LI,WKA   JXC
     2715   01 0082E    3580091F              STW,WKA  EXECPATT
     2716   01 0082F    2280084E              LI,WKA   JXD
     2717   01 00830    3580091E              STW,WKA  CHKEXIT
     2718   01 00831    22800000 A            LI,WKA   0
     2719   01 00832    221FFFE0 A            LI,XA    -32
     2720   01 00833    3582088C              STW,WKA  LEVBITSA+32,XA
     2721   01 00834    65100833              BIR,XA   %-1
     2722   01 00835    32500911              LW,GR    JXGRP
     2723   01 00836    329009FE              LW,LV    BIT16
     2724   01 00837    35900894              STW,LV   MANPATT
     2725   01 00838    559A086C              STH,LV   LEVBITSA,GR
     2726   01 00839    559A0874              STH,LV   LEVBITSE,GR
     2727   01 0083A    559A087C              STH,LV   LEVBITST,GR
     2728   01 0083B    680005F7              B        SETEXP
     2729   01 0083C    6A700598     JXC      BAL,LNK  SETHI
     2730   01 0083D    32500911              LW,GR    JXGRP
     2731   01 0083E    529A086C              LH,LV    LEVBITSA,GR                                         *C
     2732   01 0083F    6D9A1200 A            WD,LV    ARME,GR
     2733   01 00840    6D902000 A            WD,LV    X'2000'
     2734   01 00841    6C902000 A            RD,LV    X'2000'
     2735   01 00842    528A086C              LH,WKA   LEVBITSA,GR
     2736   01 00843    52CA0909              LH,WKB   NTNTIMPL,GR
     2737   01 00844    4BC00924              AND,WKB  BIT16X31
     2738   01 00845    4B80000C A            AND,WKA  WKB
     2739   01 00846    6830063F              BCR,3    IGENA             BR IF LEVEL NOT IMPLEMENTED.
     2740   01 00847    4B800009 A            AND,WKA  LV
     2741   01 00848    6930063A              BCS,3    IGENA-5           BR IF IMPLEMENTED LEVEL
     2742                            *                                   RESPONDS CORRECTLY.
     2743   01 00849    499009F4              OR,LV    BITZERO
     2744   01 0084A    499009F6              OR,LV    BITTWO
     2745   01 0084B    499009F7              OR,LV    BIT3
     2746   01 0084C    09900956              PSW,LV   ERRSTK
     2747   01 0084D    6800063A              B        IGENA-5
     2748   01 0084E    32500911     JXD      LW,GR    JXGRP
     2749   01 0084F    32900894              LW,LV    MANPATT
     2750   01 00850    2590007F A            SLS,LV   -1
     2751   01 00851    35900894              STW,LV   MANPATT
     2752   01 00852    32900009 A            LW,LV    LV
     2753   01 00853    69300838              BCS,3    JXC-4
     2754   01 00854    6C000000 A            RD,0     0
     2755   01 00855    69200828              BCS,2    JXB               BR ON SS 3.
     2756   01 00856    22600810              LI,OA    JXA-10
     2757   01 00857    6A7004ED              BAL,LNK  REVRS1
     2758   01 00858    6A7005AF     JXE      BAL,LNK  KILLINTS
     2759   01 00859    6A7004C9              BAL,LNK  SETSTKS
     2760   01 0085A    E800091C              B        *LOOPEXIT
     2761   01 0085B    21100046 A   JXF      CI,XA    X'46'             TEST FOR WATCH DOG TIMER TRAP.
     2762   01 0085C    68300860              BE       JXG
     2763   01 0085D    6A700436              BAL,LNK  CHKSTK
     2764   01 0085E    68000856              B        JXE-2
     2765   01 0085F    68000856              B        JXE-2
     2766   01 00860    220004DA     JXG      LI,IO    WDTCDW            OUTPUT TRAP MESSAGE.
     2767   01 00861    6A7004A5              BAL,LNK  KSRA
     2768   01 00862    68000858              B        JXE               EXIT.
     2769   01 00863    22700804     INVJX    LI,LNK   JX+9
     2770   01 00864    68000558              B        OUTPINV
     2771                            *                              *
     2772                            *                            *
     2773   01 00865    00000000 A   CONBITS  DATA     0        *  * * * * * *  CONTROL BITS.
     2774         01 00865           BITSWTCH EQU      CONBITS
     2775                            *                            *
     2776                            *                              *
     2777   01 00866    00000000 A   FTFLAG   DATA     0                 FIRST TIME FLAG FOR SEQ TEST    *D01
     2778   01 00867    00000868     SETRTRN  DATA     CMPINTAD
     2779   01 00868    0F8009BE     CMPINTAD XPSD,8   CMPAD
     2780   01 00869    00000000 A   IPCOUNT  DATA     0,0
            01 0086A    00000000 A
     2781                                     BOUND    8
     2782   01 0086C                 LEVBITSA RES      8
     2783   01 00874                 LEVBITSE RES      8
     2784   01 0087C                 LEVBITST RES      8
     2785   01 00884                 LEVBITSI RES      8
     2786   01 0088C                 LEVBITSN RES      8
     2787   01 00894                 MANPATT  RES      24
     2788   01 008AC                 MANINHB  RES      1
     2789   01 008AD                 ROLL     RES      1
     2790   01 008AE    FFFFFFCF A   NOTIINHB DATA     X'FFFFFFCF'
     2791   01 008AF    00000007 A   INHBMSK  DATA     X'00000007'
     2792   01 008B0                 CHSLVCNT RES      16
     2793   01 008C0                 IPHOLD   RES      16
     2794   01 008D0                 IPHOLDA  RES      16
     2795   01 008E0                 IPHOLDT  RES      16
     2796   01 008F0                 IPHOLDE  RES      16
     2797   01 00900                 EXPFIELD RES      8
     2798   01 00908    0000F000 A   STRP2CNT DATA     X'0000F000'
     2799   01 00909    00000000 A   NTNTIMPL LDATA    8,0
            01 0090A    00000000 A
            01 0090B    00000000 A
            01 0090C    00000000 A
            01 0090D    00000000 A
            01 0090E    00000000 A
            01 0090F    00000000 A
            01 00910    00000000 A
     2800   01 00911                 JXGRP    RES      1
     2801   01 00912                 HICHAS   RES      1
     2802   01 00913    0000000E A   HICHAS1  DATA     14
     2803   01 00914    00000000 A   SQLSTCNT DATA     0
     2804   01 00915                 GRPCNT   RES      1
     2805   01 00916    00000000 A   HOLDSS   DATA     0
     2806   01 00917    00000000 A   HOLDSS1  DATA     0
     2807   01 00918                 TERM     RES      2
     2808   01 0091A    4040FFFF A   BLNKSTRP DATA     X'4040FFFF'
     2809   01 0091B    40404040 A   BLANK    DATA     '    '
     2810   01 0091C                 LOOPEXIT RES      1
     2811   01 0091D                 ADRDCODE RES      1
     2812   01 0091E                 CHKEXIT  RES      1
     2813   01 0091F                 EXECPATT RES      1
     2814   01 00920    000005F5     HIEXIT   DATA     BREAKHI+6
     2815   01 00921    0F000FEE     DCDXPSD1 XPSD,0   LASTONE                                           *D01
     2816   01 00922    0F800FEE     DCDXPSD2 XPSD,8   LASTONE                                           *D01
     2817   01 00923    FFFF0000 A   BIT0X15  DATA     X'FFFF0000'
     2818   01 00924    0000FFFF A   BIT16X31 DATA     X'0000FFFF'
     2819   01 00925    FFFFFFFF A   BIT0X31  DATA     -1
     2820   01 00926    00000000 A   NOBITS   DATA     0
     2821   01 00927    FF80EFFF A   NOT9X16  DATA     X'FF80EFFF'
     2822   01 00928    FFFFFC3F A   NOTCINHB DATA     X'FFFFFC3F'
     2823   01 00929    00003C00 A   BIT18X21 DATA     X'00003C00'
     2824   01 0092A    55555555 A   AP1      DATA     X'55555555'
     2825   01 0092B    AAAAAAAA A            DATA     X'AAAAAAAA'
     2826   01 0092C    FFFFFFFF A            DATA     -1
     2827   01 0092D    33333333 A            DATA     X'33333333'
     2828   01 0092E    CCCCCCCC A            DATA     X'CCCCCCCC'
     2829   01 0092F    99999999 A            DATA     X'99999999'
     2830   01 00930    66666666 A            DATA     X'66666666'
     2831   01 00931                 AUTOSTEP RES      3
     2832   01 00934    61D7C1E3 A   NEWPATT  DATA     '/PAT'
     2833   01 00935    61C5D5C4 A   ENDFLAG  DATA     '/END'
     2834   01 00936    61E2C5D8 A   ZEROSEQ  DATA     '/SEQ'
     2835   01 00937    C1C5D5C4 A   AEND     DATA     'AEND'
     2836   01 00938    C5C5D5C4 A   EEND     DATA     'EEND'
     2837   01 00939    E3C5D5C4 A   TEND     DATA     'TEND'
     2838   01 0093A    C9C5D5C4 A   IEND     DATA     'IEND'
     2839   01 0093B    00000000 A   HIPRI    DATA     0
     2840   01 0093C    00000000 A   NOTHI    DATA     0
     2841   01 0093D    00000000 A   HIBIT    DATA     0
     2842   01 0093E    00000ACA     ERRMSK   SPD      STK2,64
            01 0093F    80408000 A
     2843   01 00940    00000ACA     ERRMSK1  DATA     STK2-1,X'1FFFF'
            01 00941    0001FFFF A
     2844   01 00942    00000572     HIFAILA1 PSD      HIFAILAC
            01 00943    00000000 A
     2845   01 00944    00000584     HIFAILB1 PSD      HIFAILBC
            01 00945    00000000 A
     2846   01 00946    0000070E     HIFAILC1 PSD      HIFAILCC
            01 00947    00000000 A
     2847   01 00948    000007C7     MULTINT1 PSD      MULTINTC
            01 00949    00000000 A
     2848   01 0094A    000007DD     SNGLUP1  PSD      SNGLUPE
            01 0094B    00000000 A
     2849   01 0094C    000007F4     SNGLDWN1 PSD      SNGLDWNE
            01 0094D    00000000 A
     2850   01 0094E    00000285     GETSEQ1  PSD      GETSEQB
            01 0094F    00000000 A
     2851   01 00950    00000566     GRPONE1  PSD      GRPONEC
            01 00951    00000000 A
     2852   01 00952    00000653     CHKPATT1 PSD      CHKPATTC
            01 00953    00000000 A
     2853   01 00954    00000AC5     LNKSTK   SPD      STK1,5
            01 00955    80058000 A
     2854   01 00956    00000ACA     ERRSTK   SPD      STK2,64
            01 00957    80408000 A
     2855   01 00958    00000000 A   CHKWD1   DATA     0,0,CHKWDA,X'7000000'                             *D01
            01 00959    00000000 A
            01 0095A    00000259
            01 0095B    07000000 A
     2856   01 0095C    00000000 A   CHKWD2   DATA     0,0,CHKWDA+1,0                                    *D01
            01 0095D    00000000 A
            01 0095E    0000025A
            01 0095F    00000000 A
     2857   01 00960    00000000 A   CHKWD3   DATA     0,0,CHKWDB+2,0                                    *D01
            01 00961    00000000 A
            01 00962    00000263
            01 00963    00000000 A
     2858   01 00964    05002968     MSGWDCDW CDW      5,WDMSG1,32                                       *D01
            01 00965    02000020 A
     2859   01 00966    05002988              CDW      5,WDMSG2,32                                       *D01
            01 00967    02000020 A
     2860   01 00968    050029A8     MSG1CDW  CDW      5,MSG1,24
            01 00969    02000018 A
     2861   01 0096A    050029C0     MSG2CDW  CDW      5,MSG2,11
            01 0096B    0200000B A
     2862   01 0096C    050029CC     MSG3CDW  CDW      5,MSG3,10
            01 0096D    0200000A A
     2863   01 0096E    05002A88     MANCDW1  CDW      5,MSGC,27
            01 0096F    0200001B A
     2864   01 00970    86002CB0     MANCDW2  CDW      X'86',ITRNHIST+32,5
            01 00971    02000005 A
     2865   01 00972    05002ADC     MANCDW3  CDW      5,ENTMANE,19
            01 00973    02000013 A
     2866   01 00974    05002AF0     MANCDW4  CDW      5,ENTMANT,20
            01 00975    02000014 A
     2867   01 00976    05002B04     MANCDW5  CDW      5,ENTMANI,20
            01 00977    02000014 A
     2868   01 00978    05002CB0     STKCDW   CDWC     5,ITRNHIST+32,1
            01 00979    22000001 A
     2869   01 0097A    05002468              CDWC     5,BLNKSTRP,1
            01 0097B    22000001 A
     2870   01 0097C    05002CB1              GEN,8,24 5,BA(ITRNHIST+32)+1
     2871   01 0097D    22000007 A            GEN,8,24 34,7
     2872   01 0097E    050029C0              CDW      5,MSG2,1
            01 0097F    02000001 A
     2873   01 00980    050029D8     MSG4CDW  CDWC     5,MSG4,10
            01 00981    2200000A A
     2874   01 00982    050021B4              CDW      5,LEVBITSA+1,5
            01 00983    02000005 A
     2875   01 00984    050029E4     MSG5CDW  CDW      5,MSG5,13
            01 00985    0200000D A
     2876   01 00986    050029F4     MSG6ACDW CDW      5,MSG6,3
            01 00987    02000003 A
     2877   01 00988    05002AD0     COMMCDW  GEN,8,24 5,BA(RESPOND)
     2878   01 00989    82000009 A            GEN,8,24 X'82',9
     2879   01 0098A    08000000 A            CDWN     8,0,0
            01 0098B    00000000 A
     2880   01 0098C    05002ABC     SEQCDW   CDWC     5,PRISEQ,8
            01 0098D    22000008 A
     2881   01 0098E    050043B8     SEQCDW1  GEN,8,24 5,BA(LASTONE+256)                                 *D01
     2882   01 0098F    02000000 A            GEN,8,24 2,0
     2883   01 00990    05002AAC     BITSWCDW CDWC     5,ENTBSW,14
            01 00991    2200000E A
     2884   01 00992    86002CB0              CDW      X'86',ITRNHIST+32,9
            01 00993    02000009 A
     2885   01 00994    05002A50     PATTLEAD CDWC     5,PATTNUM,10
            01 00995    2200000A A
     2886   01 00996    05002CB0     NUMCDW   GEN,8,24 5,BA(ITRNHIST+32)
     2887   01 00997    02000000 A            GEN,8,24 2,0
     2888   01 00998    050029F8     QUESTION CDW      5,MSG6B,54
            01 00999    02000036 A
     2889   01 0099A    05002AC4     CORRCDW  CDWC     5,ENTSEQ,11
            01 0099B    2200000B A
     2890   01 0099C    86002CB0              CDW      X'86',ITRNHIST+32,6
            01 0099D    02000006 A
     2891   01 0099E    05002A30     MSG7CDW  CDW      5,MSG7,32
            01 0099F    02000020 A
     2892   01 009A0    05002A5C     MSG8CDW  CDW      5,MSG8,10
            01 009A1    0200000A A
     2893   01 009A2    05002A68     MSG9CDW  CDW      5,MSG9,4
            01 009A3    02000004 A
     2894   01 009A4    05002A6C     MSGACDW  CDWC     5,MSGA,4
            01 009A5    22000004 A
     2895   01 009A6    050021B4              CDW      5,LEVBITSA+1,4
            01 009A7    02000004 A
     2896   01 009A8    05002A70     MSGBCDW  CDWC     5,MSGB,22
            01 009A9    22000016 A
     2897   01 009AA    86002CB0              CDW      X'86',ITRNHIST+32,2
            01 009AB    02000002 A
     2898   01 009AC    05002AA4     MSGDCDW  CDW      5,MSGD,4
            01 009AD    02000004 A
     2899   01 009AE    050029A8     PDMPCDW  CDWC     5,MSG1,1
            01 009AF    22000001 A
     2900   01 009B0    05002CCC              CDW      5,ITRNHIST+39,26
            01 009B1    0200001A A
     2901   01 009B2    05002AA8     INVCDW   CDW      5,INVAL,4
            01 009B3    02000004 A
     2902   01 009B4    05002848     WDTCDW   CDW      5,TRPMSG,28
            01 009B5    0200001C A
     2903   01 009B6    000000F9 A   HEXLIMF  DATA     249,240
            01 009B7    000000F0 A
     2904   01 009B8    000000C6 A   HEXLIMC  DATA     198,193
            01 009B9    000000C1 A
     2905   01 009BA    00000000 A   CTCHHANG DATA     0,0,HNGDCODE+1
            01 009BB    00000000 A
            01 009BC    000006F2
     2906   01 009BD    07000000 A            GEN,8,24 7,0
     2907   01 009BE    00000000 A   CMPAD    DATA     0,0,COMPADDR,0
            01 009BF    00000000 A
            01 009C0    000005B6
            01 009C1    00000000 A
     2908         01 009C2           HANGPSDS EQU      %
     2909         00000008           X        DO       8
     2910   01 009C2                          RES      2
     2911   01 009C4    000006F1              GEN,4,28 X-1,HNGDCODE
     2912   01 009C5    070000F0 A            GEN,8,24 7,240
     2913                                     FIN
            01 009C6
            01 009C8    100006F1
            01 009C9    070000F0 A
            01 009CA
            01 009CC    200006F1
            01 009CD    070000F0 A
            01 009CE
            01 009D0    300006F1
            01 009D1    070000F0 A
            01 009D2
            01 009D4    400006F1
            01 009D5    070000F0 A
            01 009D6
            01 009D8    500006F1
            01 009D9    070000F0 A
            01 009DA
            01 009DC    600006F1
            01 009DD    070000F0 A
            01 009DE
            01 009E0    700006F1
            01 009E1    070000F0 A
     2914         01 009E2           CTCHHNG1 EQU      %
     2915         00000008           X        DO       8
     2916   01 009E2    0F0009C2              XPSD,0   HANGPSDS+4*(X-1)
     2917                                     FIN
            01 009E3    0F0009C6
            01 009E4    0F0009CA
            01 009E5    0F0009CE
            01 009E6    0F0009D2
            01 009E7    0F0009D6
            01 009E8    0F0009DA
            01 009E9    0F0009DE
     2918         01 009EA           CTCHHNG2 EQU      %
     2919         00000008           X        DO       8
     2920   01 009EA    0F8009C2              XPSD,8   HANGPSDS+4*(X-1)
     2921                                     FIN
            01 009EB    0F8009C6
            01 009EC    0F8009CA
            01 009ED    0F8009CE
            01 009EE    0F8009D2
            01 009EF    0F8009D6
            01 009F0    0F8009DA
            01 009F1    0F8009DE
     2922   01 009F2                 HANGBACK RES      1
     2923   01 009F3                 CNTR     RES      1
     2924   01 009F4    80000000 A   BITZERO  DATA     X'80000000'
     2925   01 009F5    40000000 A   BITONE   DATA     X'40000000'
     2926   01 009F6    20000000 A   BITTWO   DATA     X'20000000'
     2927   01 009F7    10000000 A   BIT3     DATA     X'10000000'
     2928   01 009F8    08000000 A   BIT4     DATA     8**24
     2929   01 009F9    04000000 A   BIT5     DATA     4**24
     2930   01 009FA    02000000 A   BIT6     DATA     X'02000000'
     2931   01 009FB    01000000 A   BIT7     DATA     1**24
     2932   01 009FC    00400000 A   BIT9     DATA     4**20
     2933   01 009FD    00010000 A   BIT15    DATA     65536
     2934   01 009FE    00008000 A   BIT16    DATA     32768
     2935   01 009FF    00004000 A   BIT17    DATA     16384
     2936   01 00A00    00002000 A   BIT18    DATA     8192
     2937   01 00A01    00001000 A   BIT19    DATA     4096
     2938   01 00A02    00000800 A   BIT20    DATA     2048
     2939   01 00A03    00000400 A   BIT21    DATA     1024
     2940   01 00A04    00000200 A   BIT22    DATA     512
     2941   01 00A05    00000100 A   BIT23    DATA     256
     2942   01 00A06    00000080 A   BIT24    DATA     128
     2943   01 00A07    00000040 A   BIT25    DATA     64
     2944   01 00A08    00000020 A   BIT26    DATA     32
     2945   01 00A09    00000010 A   BIT27    DATA     16
     2946   01 00A0A    00000008 A   BIT28    DATA     8
     2947   01 00A0B    00000004 A   BIT29    DATA     4
     2948   01 00A0C    00000002 A   BIT30    DATA     2
     2949   01 00A0D    00000001 A   BIT31    DATA     1
     2950   01 00A0E    F0F1F2F3 A   TABLE    TEXT     '0123456789ABCDEF'
            01 00A0F    F4F5F6F7 A
            01 00A10    F8F9C1C2 A
            01 00A11    C3C4C5C6 A
     2951   01 00A12    15E6C4E3 A   TRPMSG   TEXT     '
WDT, JX-58 ROUTINE ABORTED
'
            01 00A13    6B40D1E7 A
            01 00A14    60F5F840 A
            01 00A15    D9D6E4E3 A
            01 00A16    C9D5C540 A
            01 00A17    C1C2D6D9 A
            01 00A18    E3C5C415 A
     2952   01 00A19                 SEQLIST  RES      61
     2953   01 00A56                 WAITCNT  RES      1
     2954   01 00A57    000000ED A   WAITCON  DATA     237
     2955   01 00A58                 ERROR    RES      1
     2956   01 00A59                 INHIBITS RES      1
     2957   01 00A5A    E7D7E2C4 A   WDMSG1   TEXT     'XPSD FAILED TO SET INT INHIBITS
'                *D01
            01 00A5B    40C6C1C9 A
            01 00A5C    D3C5C440 A
            01 00A5D    E3D640E2 A
            01 00A5E    C5E340C9 A
            01 00A5F    D5E340C9 A
            01 00A60    D5C8C9C2 A
            01 00A61    C9E3E215 A
     2958   01 00A62    E6C440C6 A   WDMSG2   TEXT     'WD FAILED TO RESET INT INHIBITS
'                *D01
            01 00A63    C1C9D3C5 A
            01 00A64    C440E3D6 A
            01 00A65    40D9C5E2 A
            01 00A66    C5E340C9 A
            01 00A67    D5E340C9 A
            01 00A68    D5C8C9C2 A
            01 00A69    C9E3E215 A
     2959   01 00A6A    15D4F16B A   MSG1     TEXT     '
M1, ADDRESSES VERIFIED
'
            01 00A6B    40C1C4C4 A
            01 00A6C    D9C5E2E2 A
            01 00A6D    C5E240E5 A
            01 00A6E    C5D9C9C6 A
            01 00A6F    C9C5C415 A
     2960   01 00A70    15D4F26B A   MSG2     TEXT     '
M2, ERROR
'
            01 00A71    40C5D9D9 A
            01 00A72    D6D91540 A
     2961   01 00A73    15D4F315 A   MSG3     TEXT     '
M3
'
     2962   01 00A74    C5D9D9D6 A            TEXT     'ERROR
'
            01 00A75    D9154040 A
     2963   01 00A76    15D4F415 A   MSG4     TEXT     '
M4
'
     2964   01 00A77    C5D9D9D6 A            TEXT     'ERROR
'
            01 00A78    D9154040 A
     2965   01 00A79    15D4F56B A   MSG5     TEXT     '
M5, SUCCESS
'
            01 00A7A    40E2E4C3 A
            01 00A7B    C3C5E2E2 A
            01 00A7C    15404040 A
     2966   01 00A7D    15D4F615 A   MSG6     TEXT     '
M6
'
     2967   01 00A7E    40D4F615 A   MSG6B    TEXT     ' M6
'
     2968   01 00A7F    D9C5E5C5 A            TEXT     'REVERSE SS 2 IF SEQUENCE IS
'
            01 00A80    D9E2C540 A
            01 00A81    E2E240F2 A
            01 00A82    40C9C640 A
            01 00A83    E2C5D8E4 A
            01 00A84    C5D5C3C5 A
            01 00A85    40C9E215 A
     2969   01 00A86    C3D6D4D7 A            TEXT     'COMPLETE AND IN ORDER
'
            01 00A87    D3C5E3C5 A
            01 00A88    40C1D5C4 A
            01 00A89    40C9D540 A
            01 00A8A    D6D9C4C5 A
            01 00A8B    D9154040 A
     2970   01 00A8C    15D4F76B A   MSG7     TEXT     '
M7, ENTERING PATTERN GENERATOR
'
            01 00A8D    40C5D5E3 A
            01 00A8E    C5D9C9D5 A
            01 00A8F    C740D7C1 A
            01 00A90    E3E3C5D9 A
            01 00A91    D540C7C5 A
            01 00A92    D5C5D9C1 A
            01 00A93    E3D6D915 A
     2971   01 00A94    15D7C1E3 A   PATTNUM  TEXT     '
PATT NUM
'
            01 00A95    E340D5E4 A
            01 00A96    D4154040 A
     2972   01 00A97    15D4F815 A   MSG8     TEXT     '
M8
'
     2973   01 00A98    C5D9D9D6 A            TEXT     'ERROR
'
            01 00A99    D9154040 A
     2974   01 00A9A    15D4F915 A   MSG9     TEXT     '
M9
'
     2975   01 00A9B    15D4C115 A   MSGA     TEXT     '
MA
'
     2976   01 00A9C    40D4C215 A   MSGB     TEXT     ' MB
'
     2977   01 00A9D    C5D5E3C5 A            TEXT     'ENTER JX-58 GROUP
'
            01 00A9E    D940D1E7 A
            01 00A9F    60F5F840 A
            01 00AA0    C7D9D6E4 A
            01 00AA1    D7154040 A
     2978   01 00AA2    40D4C315 A   MSGC     TEXT     ' MC
'
     2979   01 00AA3    C5D5E3C5 A            TEXT     'ENTER ARM-DISABLE DATA
'
            01 00AA4    D940C1D9 A
            01 00AA5    D460C4C9 A
            01 00AA6    E2C1C2D3 A
            01 00AA7    C540C4C1 A
            01 00AA8    E3C11540 A
     2980   01 00AA9    15D4C415 A   MSGD     TEXT     '
MD
'
     2981   01 00AAA    C9D5E515 A   INVAL    TEXT     'INV
'
     2982   01 00AAB    15C3D6D5 A   ENTBSW   TEXT     '
CONTROL BITS
'
            01 00AAC    E3D9D6D3 A
            01 00AAD    40C2C9E3 A
            01 00AAE    E2154040 A
     2983   01 00AAF    15D7D9C9 A   PRISEQ   TEXT     '
PRI SEQ'
            01 00AB0    40E2C5D8 A
     2984   01 00AB1    15C5D5E3 A   ENTSEQ   TEXT     '
ENTER SEQ
'
            01 00AB2    C5D940E2 A
            01 00AB3    C5D81540 A
     2985   01 00AB4    15D9C5E2 A   RESPOND  TEXT     '
RESPOND,'
            01 00AB5    D7D6D5C4 A
            01 00AB6    6B404040 A
     2986   01 00AB7    15C5D5E3 A   ENTMANE  TEXT     '
ENTER ENABLE DATA
'
            01 00AB8    C5D940C5 A
            01 00AB9    D5C1C2D3 A
            01 00ABA    C540C4C1 A
            01 00ABB    E3C11540 A
     2987   01 00ABC    15C5D5E3 A   ENTMANT  TEXT     '
ENTER TRIGGER DATA
'
            01 00ABD    C5D940E3 A
            01 00ABE    D9C9C7C7 A
            01 00ABF    C5D940C4 A
            01 00AC0    C1E3C115 A
     2988   01 00AC1    15C5D5E3 A   ENTMANI  TEXT     '
ENTER INHIBIT DATA
'
            01 00AC2    C5D940C9 A
            01 00AC3    D5C8C9C2 A
            01 00AC4    C9E340C4 A
            01 00AC5    C1E3C115 A
     2989   01 00AC6                 STK1     RES      5
     2990   01 00ACB                 STK2     RES      64
     2991                                     BOUND    8
     2992         01 00B0C           ITRNHIST EQU      %
     2993         0000000E           XJ       DO       14
     2994   01 00B0C    00000052 A            GEN,8,24 XJ-1,81+XJ
     2995   01 00B0D    00000000 A            DATA     0
     2996                                     FIN
            01 00B0E    01000053 A
            01 00B0F    00000000 A
            01 00B10    02000054 A
            01 00B11    00000000 A
            01 00B12    03000055 A
            01 00B13    00000000 A
            01 00B14    04000056 A
            01 00B15    00000000 A
            01 00B16    05000057 A
            01 00B17    00000000 A
            01 00B18    06000058 A
            01 00B19    00000000 A
            01 00B1A    07000059 A
            01 00B1B    00000000 A
            01 00B1C    0800005A A
            01 00B1D    00000000 A
            01 00B1E    0900005B A
            01 00B1F    00000000 A
            01 00B20    0A00005C A
            01 00B21    00000000 A
            01 00B22    0B00005D A
            01 00B23    00000000 A
            01 00B24    0C00005E A
            01 00B25    00000000 A
            01 00B26    0D00005F A
            01 00B27    00000000 A
     2997   01 00B28    0E000050 A            DATA     X'0E000050'
     2998   01 00B29    00000000 A            DATA     0
     2999   01 00B2A    0F000051 A            DATA     X'0F000051'
     3000   01 00B2B    00000000 A            DATA     0                                                 *D01
     3001   01 00B2C                          RES      32                                                *D01
     3002   01 00B4C                 EXTRNAL  RES      448
     3003                                     BOUND    8                                                 *D01
     3004   01 00D0C    00000000 A   RECOVER1 DATA     0,0,LAST,X'07000000'  RESTART RECOVERY LOCATIONS  *D01
            01 00D0D    00000000 A
            01 00D0E    00000D12
            01 00D0F    07000000 A
     3005   01 00D10    0F000D0C     RECOVER  XPSD,0   RECOVER1          RESTART FOR LOC. X'26'          *D01
     3006                            *                                     SETS THE INTERRUPT INHIBITS   *D01
     3007   01 00D11    FFFFFFFF A   RESTART  DATA     -1                                                *D01
     3008                            *
     3009                            *
     3010                            *  PROGRAM INITIALIZATION ROUTINE.                                  *D01
     3011                            *  PROGRAM RESTART-MANUALLY INITIATE PROGRAM AT LOCATION 'LAST'.    *D01
     3012                            *
     3013   01 00D12    6C000000 A   LAST     RD,0     0
     3014   01 00D13    74000916              STCF     HOLDSS
     3015   01 00D14    220006A7              LI,IO    TITLCDW
     3016   01 00D15    6A7004A3              BAL,LNK  KSR
     3017   01 00D16    33100D11              MTW,1    RESTART           INITIAL START                   *D01
     3018   01 00D17    69300D1F              BCS,3    START1              NO                            *D01
     3019   01 00D18    221FFFE0 A            LI,1     -32               SAVE INTERRUPT HISTORY TABLE    *D01
     3020   01 00D19    32220B2C              LW,2     ITRNHIST+32,1                                     *D01
     3021   01 00D1A    35220D85              STW,2    HISTSAV+32,1                                      *D01
     3022   01 00D1B    65100D19              BIR,1    %-2                                               *D01
     3023   01 00D1C    220007F7              LI,IO    INFO1             PRINT GENERAL INFORMATION       *D01
     3024   01 00D1D    6A7004A3              BAL,LNK  KSR                                               *D01
     3025   01 00D1E    68000D23              B        START2                                            *D01
     3026   01 00D1F    221FFFE0 A   START1   LI,1     -32               RESTORE INTERRUPT HISTORY TABLE *D01
     3027   01 00D20    32220D85              LW,2     HISTSAV+32,1                                      *D01
     3028   01 00D21    35220B2C              STW,2    ITRNHIST+32,1                                     *D01
     3029   01 00D22    65100D20              BIR,1    %-2                                               *D01
     3030   01 00D23    2210000E A   START2   LI,1     14                RESTORE LOC 'HICHAS1'           *D01
     3031   01 00D24    35100913              STW,1    HICHAS1                                           *D01
     3032   01 00D25    6A7005AF              BAL,LNK  KILLINTS          CLEAR ALL POSSIBLE INTERRUPTS   *D01
     3033   01 00D26    22800000 A            LI,8     0                 SET UP HISTORY TABLE FOR WD
     3034   01 00D27    221FFFDF A            LI,1     -33               GROUPS TWO THROUGH FIFTEEN.
     3035   01 00D28    35820B4C              STW,8    EXTRNAL,1
     3036   01 00D29    65100D28              BIR,1    %-1
     3037   01 00D2A    221FFFD8 A            LI,1     -40               CLEAR IMPLEMENTED INTERRUPT     *D01
     3038   01 00D2B    35820894              STW,8    LEVBITSA+40,1       STORAGE AREA.                 *D01
     3039   01 00D2C    65100D2B              BIR,1    %-1                                               *D01
     3040   01 00D2D    22100ACA              LI,1     STK2-1            RESET ERROR INDICATOR AND STACK *D01
     3041   01 00D2E    35100940              STW,1    ERRMSK1                                           *D01
     3042   01 00D2F    22100ACB              LI,1     STK2                                              *D01
     3043   01 00D30    35100956              STW,1    ERRSTK                                            *D01
     3044   01 00D31    22100000 A            LI,1     0                 STORE INDEX
     3045   01 00D32    22F00002 A            LI,15    2                 GROUP.
     3046   01 00D33    22D00060 A            LI,13    96                STARTING ADDRESS.
     3047   01 00D34    22A00000 A            LI,10    0
     3048   01 00D35    2280000E A            LI,8     14                ENTRY COUNT.
     3049   01 00D36    22700010 A   HISTGENA LI,7     16                LEVEL COUNTER.
     3050   01 00D37    22E00000 A            LI,14    0                 LEVEL.
     3051   01 00D38    3290000F A   HISTGENB LW,9     15                LOAD GROUP.
     3052   01 00D39    25900004 A            SLS,9    4                 ALIGN GROUP.
     3053   01 00D3A    4990000E A            OR,9     14
     3054   01 00D3B    25900018 A            SLS,9    24                ALIGN POINTER.
     3055   01 00D3C    4990000D A            OR,9     13                INSERT ADDRESS.
     3056   01 00D3D    02200020 A            LCI      2
     3057   01 00D3E    2B920B4C              STM,9    EXTRNAL,1
     3058   01 00D3F    20100002 A            AI,1     2                 INCR STM INDEX.
     3059   01 00D40    20E00001 A            AI,14    1                 INCR LEVEL.
     3060   01 00D41    20D00001 A            AI,13    1                 INCR EXPECTED ADDRESS.
     3061   01 00D42    64700D38              BDR,7    HISTGENB
     3062   01 00D43    20F00001 A            AI,15    1                 INCR GROUP.
     3063   01 00D44    64800D36              BDR,8    HISTGENA
     3064   01 00D45    22700200              LI,LNK   COMPHIGH
     3065   01 00D46    2280020A              LI,WKA   HIGHA
     3066   01 00D47    3580091D              STW,WKA  ADRDCODE
     3067   01 00D48    6D000027 A            WD,0     X'27'             RESET INTERRUPT INHIBITS        *D01
     3068   01 00D49    35A00F7A              STW,10   SAVE10                                            *D02
     3069   01 00D4A    6AA00D85              BAL,10   MODTEST                                           *D02
     3070   01 00D4B    32A00F7A              LW,10    SAVE10                                            *D02
     3071   01 00D4C    680004B0              B        SETPSDS
     3072                            *
     3073                            *
     3074   01 00D4E    05003548     TITLCDW  CDWC     5,TITLE,32
            01 00D4F    22000020 A
     3075   01 00D50    05003568              CDW      5,PRONUM,44                                       *D01
            01 00D51    0200002C A
     3076   01 00D52    15E2C9C7 A   TITLE    TEXT     '
SIGMA 5/7 INTERRUPT DIAGNOSTIC
'
            01 00D53    D4C140F5 A
            01 00D54    61F740C9 A
            01 00D55    D5E3C5D9 A
            01 00D56    D9E4D7E3 A
            01 00D57    40C4C9C1 A
            01 00D58    C7D5D6E2 A
            01 00D59    E3C9C315 A
     3077   01 00D5A    D7D9D6C7 A   PRONUM   TEXT     'PROGRAM NO. 704143-D02  MANUAL NO. 901134 D
'    *D02
            01 00D5B    D9C1D440 A
            01 00D5C    D5D64B40 A
            01 00D5D    F7F0F4F1 A
            01 00D5E    F4F360C4 A
            01 00D5F    F0F24040 A
            01 00D60    D4C1D5E4 A
            01 00D61    C1D340D5 A
            01 00D62    D64B40F9 A
            01 00D63    F0F1F1F3 A
            01 00D64    F440C415 A
     3078   01 00D65                 HISTSAV  RES      32                                                *D01
     3079   01 00D85    02200000 A   MODTEST  LCI      0                                                 *D02
     3080   01 00D86    2B000F63              STM,0    MSAVE                                             *D02
     3081   01 00D87    3240005D A            LW,4     X'5D'                                             *D02
     3082   01 00D88    35400F79              STW,4    SAVE5D                                            *D02
     3083   01 00D89    227FFFEC A            LI,7     -20                                               *D02
     3084   01 00D8A    225FFFD0 A            LI,5     -48                                               *D02
     3085   01 00D8B    324A0DEC     AGAIN    LW,4     MODLIST+48,5                                      *D02
     3086   01 00D8C    3540005D A            STW,4    X'5D'                                             *D02
     3087   01 00D8D    32B00F74              LW,11    RESULT+1                                          *D02
     3088   01 00D8E    35B00F73              STW,11   RESULT                                            *D02
     3089   01 00D8F    22600010 A            LI,6     X'10'                                             *D02
     3090   01 00D90    022000F0 A            LCI      X'F'                                              *B02
     3091   01 00D91    6D601300 A            WD,6     X'1300'           ARM AND DISABLE                 *D02
     3092   01 00D92    6D601700 A            WD,6     X'1700'           TRIGGER                         *D02
     3093   01 00D93    74000F7B              STCF     COND                                              *D02
     3094   01 00D94    6D601400 A            WD,6     X'1400'           ENABLE                          *D02
     3095   01 00D95    69000D95              BCS,0    %                                                 *D02
     3096   01 00D96    69000D96              BCS,0    %                                                 *D02
     3097   01 00D97    69000D97              BCS,0    %                                                 *D02
     3098   01 00D98    69000D98              BCS,0    %                                                 *D02
     3099   01 00D99    6D601100 A            WD,6     X'1100'           DISARM                          *D02
     3100   01 00D9A    74000006 A            STCF     6                                                 *D02
     3101   01 00D9B    25600068 A            SLS,6    -24                                               *D02
     3102   01 00D9C    71600F7B              CB,6     COND                                              *D02
     3103   01 00D9D    69300DBA              BNE      CONDERR                                           *D02
     3104   01 00D9E    326A0E1C              LW,6     MTABLE+48,5                                       *D02
     3105   01 00D9F    31600F73              CW,6     RESULT                                            *D02
     3106   01 00DA0    69300DA9              BNE      MODERR                                            *D02
     3107   01 00DA1    65500D8B              BIR,5    AGAIN                                             *D02
     3108   01 00DA2    65700D8A              BIR,7    AGAIN-1                                           *D02
     3109   01 00DA3    32400F79              LW,4     SAVE5D                                            *D02
     3110   01 00DA4    3540005D A            STW,4    X'5D'                                             *D02
     3111   01 00DA5    6AA00E1C              BAL,10   PRIOTEST                                          *D02
     3112   01 00DA6    02200000 A            LCI      0                                                 *D02
     3113   01 00DA7    2A000F63              LM,0     MSAVE                                             *D02
     3114   01 00DA8    E800000A A            B        *10                                               *D02
     3115   01 00DA9    221FFFF8 A   MODERR   LI,1     -8                                                *D02
     3116   01 00DAA    32300004 A            LW,3     4                                                 *D02
     3117   01 00DAB    22200000 A            LI,2     0                                                 *D02
     3118   01 00DAC    25200104 A            SLD,2    4                                                 *D02
     3119   01 00DAD    72540F75              LB,5     TABLEM,2                                          *D02
     3120   01 00DAE    75520FB1              STB,5    MODMES3+2,1                                       *D02
     3121   01 00DAF    65100DAB              BIR,1    MODERR+2                                          *D02
     3122   01 00DB0    220007CF              LI,0     DA(MODMES)                                        *D02
     3123   01 00DB1    4C000001 A   PRINTERR SIO,0    1                                                 *D02
     3124   01 00DB2    4D000001 A            TIO,0    1                                                 *D02
     3125   01 00DB3    69C00DB2              BCS,12   %-1                                               *D02
     3126   01 00DB4    32400F79              LW,4     SAVE5D                                            *D02
     3127   01 00DB5    3540005D A            STW,4    X'5D'                                             *D02
     3128   01 00DB6    02200000 A            LCI      0                                                 *D02
     3129   01 00DB7    2A000F63              LM,0     MSAVE                                             *D02
     3130   01 00DB8    2E000000 A            WAIT     0                                                 *D02
     3131   01 00DB9    E800000A A            B        *10                                               *D02
     3132   01 00DBA    220007D0     CONDERR  LI,0     DA(CONDERR1)                                      *D02
     3133   01 00DBB    68000DB1              B        PRINTERR                                          *D02
     3134   01 00DBC    73800F73     MODLIST  MTB,-8   RESULT                                            *D02
     3135   01 00DBD    73900F73              MTB,-7   RESULT                                            *D02
     3136   01 00DBE    73A00F73              MTB,-6   RESULT                                            *D02
     3137   01 00DBF    73B00F73              MTB,-5   RESULT                                            *D02
     3138   01 00DC0    73C00F73              MTB,-4   RESULT                                            *D02
     3139   01 00DC1    73D00F73              MTB,-3   RESULT                                            *D02
     3140   01 00DC2    73E00F73              MTB,-2   RESULT                                            *D02
     3141   01 00DC3    73F00F73              MTB,-1   RESULT                                            *D02
     3142   01 00DC4    73000F73              MTB,0    RESULT                                            *D02
     3143   01 00DC5    73100F73              MTB,1    RESULT                                            *D02
     3144   01 00DC6    73200F73              MTB,2    RESULT                                            *D02
     3145   01 00DC7    73300F73              MTB,3    RESULT                                            *D02
     3146   01 00DC8    73400F73              MTB,4    RESULT                                            *D02
     3147   01 00DC9    73500F73              MTB,5    RESULT                                            *D02
     3148   01 00DCA    73600F73              MTB,6    RESULT                                            *D02
     3149   01 00DCB    73700F73              MTB,7    RESULT                                            *D02
     3150   01 00DCC    53800F73              MTH,-8   RESULT                                            *D02
     3151   01 00DCD    53900F73              MTH,-7   RESULT                                            *D02
     3152   01 00DCE    53A00F73              MTH,-6   RESULT                                            *D02
     3153   01 00DCF    53B00F73              MTH,-5   RESULT                                            *D02
     3154   01 00DD0    53C00F73              MTH,-4   RESULT                                            *D02
     3155   01 00DD1    53D00F73              MTH,-3   RESULT                                            *D02
     3156   01 00DD2    53E00F73              MTH,-2   RESULT                                            *D02
     3157   01 00DD3    53F00F73              MTH,-1   RESULT                                            *D02
     3158   01 00DD4    53000F73              MTH,0    RESULT                                            *D02
     3159   01 00DD5    53100F73              MTH,1    RESULT                                            *D02
     3160   01 00DD6    53200F73              MTH,2    RESULT                                            *D02
     3161   01 00DD7    53300F73              MTH,3    RESULT                                            *D02
     3162   01 00DD8    53400F73              MTH,4    RESULT                                            *D02
     3163   01 00DD9    53500F73              MTH,5    RESULT                                            *D02
     3164   01 00DDA    53600F73              MTH,6    RESULT                                            *D02
     3165   01 00DDB    53700F73              MTH,7    RESULT                                            *D02
     3166   01 00DDC    33800F73              MTW,-8   RESULT                                            *D02
     3167   01 00DDD    33900F73              MTW,-7   RESULT                                            *D02
     3168   01 00DDE    33A00F73              MTW,-6   RESULT                                            *D02
     3169   01 00DDF    33B00F73              MTW,-5   RESULT                                            *D02
     3170   01 00DE0    33C00F73              MTW,-4   RESULT                                            *D02
     3171   01 00DE1    33D00F73              MTW,-3   RESULT                                            *D02
     3172   01 00DE2    33E00F73              MTW,-2   RESULT                                            *D02
     3173   01 00DE3    33F00F73              MTW,-1   RESULT                                            *D02
     3174   01 00DE4    33000F73              MTW,0    RESULT                                            *D02
     3175   01 00DE5    33100F73              MTW,1    RESULT                                            *D02
     3176   01 00DE6    33200F73              MTW,2    RESULT                                            *D02
     3177   01 00DE7    33300F73              MTW,3    RESULT                                            *D02
     3178   01 00DE8    33400F73              MTW,4    RESULT                                            *D02
     3179   01 00DE9    33500F73              MTW,5    RESULT                                            *D02
     3180   01 00DEA    33600F73              MTW,6    RESULT                                            *D02
     3181   01 00DEB    33700F73              MTW,7    RESULT                                            *D02
     3182   01 00DEC    E8F0F0F0 A   MTABLE   DATA     X'E8F0F0F0',X'E9F0F0F0',X'EAF0F0F0',X'EBF0F0F0'   *D02
            01 00DED    E9F0F0F0 A
            01 00DEE    EAF0F0F0 A
            01 00DEF    EBF0F0F0 A
     3183   01 00DF0    ECF0F0F0 A            DATA     X'ECF0F0F0',X'EDF0F0F0',X'EEF0F0F0',X'EFF0F0F0'   *D02
            01 00DF1    EDF0F0F0 A
            01 00DF2    EEF0F0F0 A
            01 00DF3    EFF0F0F0 A
     3184   01 00DF4    F0F0F0F0 A            DATA     X'F0F0F0F0',X'F1F0F0F0',X'F2F0F0F0',X'F3F0F0F0'   *D02
            01 00DF5    F1F0F0F0 A
            01 00DF6    F2F0F0F0 A
            01 00DF7    F3F0F0F0 A
     3185   01 00DF8    F4F0F0F0 A            DATA     X'F4F0F0F0',X'F5F0F0F0',X'F6F0F0F0',X'F7F0F0F0'   *D02
            01 00DF9    F5F0F0F0 A
            01 00DFA    F6F0F0F0 A
            01 00DFB    F7F0F0F0 A
     3186   01 00DFC    F0E8F0F0 A            DATA     X'F0E8F0F0',X'F0E9F0F0',X'F0EAF0F0',X'F0EBF0F0'   *D02
            01 00DFD    F0E9F0F0 A
            01 00DFE    F0EAF0F0 A
            01 00DFF    F0EBF0F0 A
     3187   01 00E00    F0ECF0F0 A            DATA     X'F0ECF0F0',X'F0EDF0F0',X'F0EEF0F0',X'F0EFF0F0'   *D02
            01 00E01    F0EDF0F0 A
            01 00E02    F0EEF0F0 A
            01 00E03    F0EFF0F0 A
     3188   01 00E04    F0F0F0F0 A            DATA     X'F0F0F0F0',X'F0F1F0F0',X'F0F2F0F0',X'F0F3F0F0'   *D02
            01 00E05    F0F1F0F0 A
            01 00E06    F0F2F0F0 A
            01 00E07    F0F3F0F0 A
     3189   01 00E08    F0F4F0F0 A            DATA     X'F0F4F0F0',X'F0F5F0F0',X'F0F6F0F0',X'F0F7F0F0'   *D02
            01 00E09    F0F5F0F0 A
            01 00E0A    F0F6F0F0 A
            01 00E0B    F0F7F0F0 A
     3190   01 00E0C    F0F0F0E8 A            DATA     X'F0F0F0E8',X'F0F0F0E9',X'F0F0F0EA',X'F0F0F0EB'   *D02
            01 00E0D    F0F0F0E9 A
            01 00E0E    F0F0F0EA A
            01 00E0F    F0F0F0EB A
     3191   01 00E10    F0F0F0EC A            DATA     X'F0F0F0EC',X'F0F0F0ED',X'F0F0F0EE',X'F0F0F0EF'   *D02
            01 00E11    F0F0F0ED A
            01 00E12    F0F0F0EE A
            01 00E13    F0F0F0EF A
     3192   01 00E14    F0F0F0F0 A            DATA     X'F0F0F0F0',X'F0F0F0F1',X'F0F0F0F2',X'F0F0F0F3'   *D02
            01 00E15    F0F0F0F1 A
            01 00E16    F0F0F0F2 A
            01 00E17    F0F0F0F3 A
     3193   01 00E18    F0F0F0F4 A            DATA     X'F0F0F0F4',X'F0F0F0F5',X'F0F0F0F6',X'F0F0F0F7'   *D02
            01 00E19    F0F0F0F5 A
            01 00E1A    F0F0F0F6 A
            01 00E1B    F0F0F0F7 A
     3194   01 00E1C    35A00F7C     PRIOTEST STW,10   RET10                                             *D02
     3195   01 00E1D    32A00F9B              LW,10    RESLI                                             *D02
     3196   01 00E1E    35A00EC9              STW,10   INROUT3                                           *D02
     3197   01 00E1F    221FFFF4 A            LI,1     -12                                               *D02
     3198   01 00E20    22200000 A            LI,2     0                                                 *D02
     3199   01 00E21    32300F7D              LW,3     INTXP                                             *D02
     3200   01 00E22    35340052 A            STW,3    X'52',2                                           *D02
     3201   01 00E23    20200001 A            AI,2     1                                                 *D02
     3202   01 00E24    20300004 A            AI,3     4                                                 *D02
     3203   01 00E25    65100E22              BIR,1    %-3                                               *D02
     3204   01 00E26    221FFFF4 A            LI,1     -12                                               *D02
     3205   01 00E27    22200000 A            LI,2     0                                                 *D02
     3206   01 00E28    32400F7E              LW,4     INTCHK                                            *D02
     3207   01 00E29    32500F7F              LW,5     INTCHK+1                                          *D02
     3208   01 00E2A    32600F80              LW,6     INTCHK+2                                          *D02
     3209   01 00E2B    32700F81              LW,7     INTCHK+3                                          *D02
     3210   01 00E2C    35440FEE     PRILOOP  STW,4    LASTONE,2                                         *D02
     3211   01 00E2D    20200001 A            AI,2     1                                                 *D02
     3212   01 00E2E    35540FEE              STW,5    LASTONE,2                                         *D02
     3213   01 00E2F    20200001 A            AI,2     1                                                 *D02
     3214   01 00E30    35640FEE              STW,6    LASTONE,2                                         *D02
     3215   01 00E31    20200001 A            AI,2     1                                                 *D02
     3216   01 00E32    35740FEE              STW,7    LASTONE,2                                         *D02
     3217   01 00E33    20200001 A            AI,2     1                                                 *D02
     3218   01 00E34    20600003 A            AI,6     3                                                 *D02
     3219   01 00E35    65100E2C              BIR,1    PRILOOP                                           *D03
     3220   01 00E36    221FFFDC A            LI,1     -36                                               *D02
     3221   01 00E37    32B20EC7              LW,11    INROUT+36,1                                       *D02
     3222   01 00E38    35B21076              STW,11   LASTONE+136,1                                     *D02
     3223   01 00E39    65100E37              BIR,1    %-2                                               *D02
     3224   01 00E3A    2260FFFF A            LI,6     X'FFFF'                                           *D02
     3225   01 00E3B    6D601300 A            WD,6     X'1300'                                           *D02
     3226   01 00E3C    6D601700 A            WD,6     X'1700'                                           *D02
     3227   01 00E3D    6D601400 A            WD,6     X'1400'                                           *D02
     3228   01 00E3E    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3229   01 00E3F    64700E3F              BDR,7    %                                                 *D02
     3230   01 00E40    6D601100 A            WD,6     X'1100'                                           *D02
     3231   01 00E41    221FFFFE A            LI,1     -2                                                *D02
     3232   01 00E42    22200000 A            LI,2     0                                                 *D02
     3233   01 00E43    32400F7E              LW,4     INTCHK                                            *D02
     3234   01 00E44    32500F7F              LW,5     INTCHK+1                                          *D02
     3235   01 00E45    32600F80              LW,6     INTCHK+2                                          *D02
     3236   01 00E46    32700F81              LW,7     INTCHK+3                                          *D02
     3237   01 00E47    35440FEE     PRILOOP2 STW,4    LASTONE,2                                         *D02
     3238   01 00E48    20200001 A            AI,2     1                                                 *D02
     3239   01 00E49    35540FEE              STW,5    LASTONE,2                                         *D02
     3240   01 00E4A    20200001 A            AI,2     1                                                 *D02
     3241   01 00E4B    35640FEE              STW,6    LASTONE,2                                         *D02
     3242   01 00E4C    20200001 A            AI,2     1                                                 *D02
     3243   01 00E4D    35740FEE              STW,7    LASTONE,2                                         *D02
     3244   01 00E4E    20200001 A            AI,2     1                                                 *D02
     3245   01 00E4F    2060000A A            AI,6     10                                                *D02
     3246   01 00E50    65100E47              BIR,1    PRILOOP2                                          *D02
     3247   01 00E51    223FFFF4 A            LI,3     -12                                               *D02
     3248   01 00E52    22500000 A            LI,5     0                                                 *D02
     3249   01 00E53    2240000F A            LI,4     X'F'                                              *D02
     3250   01 00E54    31460F8E              CW,4     INTABLE+12,3                                      *D02
     3251   01 00E55    69300E57              BNE      %+2                                               *D02
     3252   01 00E56    49560F9A              OR,5     MASKINT+12,3                                      *D02
     3253   01 00E57    65300E54              BIR,3    %-3                                               *D02
     3254   01 00E58    22400000 A            LI,4     0                                                 *D02
     3255   01 00E59    25500010 A            SLS,5    16                                                *D02
     3256   01 00E5A    25400101 A            SLD,4    1                                                 *D02
     3257   01 00E5B    35500F9A              STW,5    SAVE5                                             *D02
     3258   01 00E5C    223FFFF2 A            LI,3     -14                                               *D02
     3259   01 00E5D    32B60ED5              LW,11    INROUT2+14,3                                      *D02
     3260   01 00E5E    35B61060              STW,11   LASTONE+114,3                                     *D02
     3261   01 00E5F    65300E5D              BIR,3    %-2                                               *D02
     3262   01 00E60    33000004 A            MTW,0    4                                                 *D02
     3263   01 00E61    68300E63              BEZ      %+2                                               *D02
     3264   01 00E62    6AF00ED4              BAL,15   SET16                                             *D02
     3265   01 00E63    32500F9A              LW,5     SAVE5                                             *D02
     3266   01 00E64    22400000 A            LI,4     0                                                 *D02
     3267   01 00E65    25400101 A            SLD,4    1                                                 *D02
     3268   01 00E66    35500F9A              STW,5    SAVE5                                             *D02
     3269   01 00E67    33000004 A            MTW,0    4                                                 *D02
     3270   01 00E68    68300E6A              BEZ      %+2                                               *D02
     3271   01 00E69    6AF00EE0              BAL,15   SET17                                             *D02
     3272   01 00E6A    32500F9A              LW,5     SAVE5                                             *D02
     3273   01 00E6B    22400000 A            LI,4     0                                                 *D02
     3274   01 00E6C    25400101 A            SLD,4    1                                                 *D02
     3275   01 00E6D    35500F9A              STW,5    SAVE5                                             *D02
     3276   01 00E6E    33000004 A            MTW,0    4                                                 *D02
     3277   01 00E6F    68300E71              BEZ      %+2                                               *D02
     3278   01 00E70    6AF00EEE              BAL,15   SET18                                             *D02
     3279   01 00E71    32500F9A              LW,5     SAVE5                                             *D02
     3280   01 00E72    22400000 A            LI,4     0                                                 *D02
     3281   01 00E73    25400101 A            SLD,4    1                                                 *D02
     3282   01 00E74    35500F9A              STW,5    SAVE5                                             *D02
     3283   01 00E75    33000004 A            MTW,0    4                                                 *D02
     3284   01 00E76    68300E78              BEZ      %+2                                               *D02
     3285   01 00E77    6AF00EFC              BAL,15   SET19                                             *D02
     3286   01 00E78    32500F9A              LW,5     SAVE5                                             *D02
     3287   01 00E79    22400000 A            LI,4     0                                                 *D02
     3288   01 00E7A    25400101 A            SLD,4    1                                                 *D02
     3289   01 00E7B    35500F9A              STW,5    SAVE5                                             *D02
     3290   01 00E7C    33000004 A            MTW,0    4                                                 *D02
     3291   01 00E7D    68300E7F              BEZ      %+2                                               *D02
     3292   01 00E7E    6AF00F0A              BAL,15   SET20                                             *D02
     3293   01 00E7F    32500F9A              LW,5     SAVE5                                             *D02
     3294   01 00E80    22400000 A            LI,4     0                                                 *D02
     3295   01 00E81    25400102 A            SLD,4    2                                                 *D02
     3296   01 00E82    35500F9A              STW,5    SAVE5                                             *D02
     3297   01 00E83    33000004 A            MTW,0    4                                                 *D02
     3298   01 00E84    68300E86              BEZ      %+2                                               *D02
     3299   01 00E85    6AF00F18              BAL,15   SET22                                             *D02
     3300   01 00E86    32500F9A              LW,5     SAVE5                                             *D02
     3301   01 00E87    22400000 A            LI,4     0                                                 *D02
     3302   01 00E88    25400101 A            SLD,4    1                                                 *D02
     3303   01 00E89    35500F9A              STW,5    SAVE5                                             *D02
     3304   01 00E8A    33000004 A            MTW,0    4                                                 *D02
     3305   01 00E8B    68300E8D              BEZ      %+2                                               *D02
     3306   01 00E8C    6AF00F26              BAL,15   SET23                                             *D02
     3307   01 00E8D    32500F9A              LW,5     SAVE5                                             *D02
     3308   01 00E8E    22400000 A            LI,4     0                                                 *D02
     3309   01 00E8F    25400101 A            SLD,4    1                                                 *D02
     3310   01 00E90    35500F9A              STW,5    SAVE5                                             *D02
     3311   01 00E91    33000004 A            MTW,0    4                                                 *D02
     3312   01 00E92    68300E94              BEZ      %+2                                               *D02
     3313   01 00E93    6AF00F34              BAL,15   SET24                                             *D02
     3314   01 00E94    32500F9A              LW,5     SAVE5                                             *D02
     3315   01 00E95    22400000 A            LI,4     0                                                 *D02
     3316   01 00E96    25400101 A            SLD,4    1                                                 *D02
     3317   01 00E97    35500F9A              STW,5    SAVE5                                             *D02
     3318   01 00E98    33000004 A            MTW,0    4                                                 *D02
     3319   01 00E99    68300E9B              BEZ      %+2                                               *D02
     3320   01 00E9A    6AF00F42              BAL,15   SET25                                             *D02
     3321   01 00E9B    32500F9A              LW,5     SAVE5                                             *D02
     3322   01 00E9C    22400000 A            LI,4     0                                                 *D02
     3323   01 00E9D    25400101 A            SLD,4    1                                                 *D02
     3324   01 00E9E    35500F9A              STW,5    SAVE5                                             *D02
     3325   01 00E9F    33000004 A            MTW,0    4                                                 *D02
     3326   01 00EA0    68300EA2              BEZ      %+2                                               *D02
     3327   01 00EA1    6AF00F50              BAL,15   SET26                                             *D02
     3328   01 00EA2    E8000F7C              B        *RET10                                            *D02
     3329   01 00EA3    22A0000F A   INROUT   LI,10    X'F'                                              *D02
     3330   01 00EA4    35A00F82              STW,10   INTABLE                                           *D02
     3331   01 00EA5    0E200FEE              LPSD,2   LASTONE                                           *D02
     3332   01 00EA6    22A0000F A            LI,10    X'F'                                              *D02
     3333   01 00EA7    35A00F83              STW,10   INTABLE+1                                         *D02
     3334   01 00EA8    0E200FF2              LPSD,2   LASTONE+4                                         *D02
     3335   01 00EA9    22A0000F A            LI,10    X'F'                                              *D02
     3336   01 00EAA    35A00F84              STW,10   INTABLE+2                                         *D02
     3337   01 00EAB    0E200FF6              LPSD,2   LASTONE+8                                         *D02
     3338   01 00EAC    22A0000F A            LI,10    X'F'                                              *D02
     3339   01 00EAD    35A00F85              STW,10   INTABLE+3                                         *D02
     3340   01 00EAE    0E200FFA              LPSD,2   LASTONE+12                                        *D02
     3341   01 00EAF    22A0000F A            LI,10    X'F'                                              *D02
     3342   01 00EB0    35A00F86              STW,10   INTABLE+4                                         *D02
     3343   01 00EB1    0E200FFE              LPSD,2   LASTONE+16                                        *D02
     3344   01 00EB2    22A0000F A            LI,10    X'F'                                              *D02
     3345   01 00EB3    35A00F87              STW,10   INTABLE+5                                         *D02
     3346   01 00EB4    0E201002              LPSD,2   LASTONE+20                                        *D02
     3347   01 00EB5    22A0000F A            LI,10    X'F'                                              *D02
     3348   01 00EB6    35A00F88              STW,10   INTABLE+6                                         *D02
     3349   01 00EB7    0E201006              LPSD,2   LASTONE+24                                        *D02
     3350   01 00EB8    22A0000F A            LI,10    X'F'                                              *D02
     3351   01 00EB9    35A00F89              STW,10   INTABLE+7                                         *D02
     3352   01 00EBA    0E20100A              LPSD,2   LASTONE+28                                        *D02
     3353   01 00EBB    22A0000F A            LI,10    X'F'                                              *D02
     3354   01 00EBC    35A00F8A              STW,10   INTABLE+8                                         *D02
     3355   01 00EBD    0E20100E              LPSD,2   LASTONE+32                                        *D02
     3356   01 00EBE    22A0000F A            LI,10    X'F'                                              *D02
     3357   01 00EBF    35A00F8B              STW,10   INTABLE+9                                         *D02
     3358   01 00EC0    0E201012              LPSD,2   LASTONE+36                                        *D02
     3359   01 00EC1    22A0000F A            LI,10    X'F'                                              *D02
     3360   01 00EC2    35A00F8C              STW,10   INTABLE+10                                        *D02
     3361   01 00EC3    0E201016              LPSD,2   LASTONE+40                                        *D02
     3362   01 00EC4    22A0000F A            LI,10    X'F'                                              *D02
     3363   01 00EC5    35A00F8D              STW,10   INTABLE+11                                        *D02
     3364   01 00EC6    0E20101A              LPSD,2   LASTONE+44                                        *D02
     3365   01 00EC7    02000000 A   INROUT2  NOP                                                        *D02
     3366   01 00EC8    02000000 A            NOP                                                        *D02
     3367   01 00EC9    22604000 A   INROUT3  LI,6     X'4000'                                           *D02
     3368   01 00ECA    6D601700 A            WD,6     X'1700'                                           *D02
     3369   01 00ECB    6D601400 A            WD,6     X'1400'                                           *D02
     3370   01 00ECC    02000000 A            NOP                                                        *D02
     3371   01 00ECD    02000000 A            NOP                                                        *D02
     3372   01 00ECE    6D601500 A            WD,6     X'1500'                                           *D02
     3373   01 00ECF    0E200FEE              LPSD,2   LASTONE                                           *D02
     3374   01 00ED0    02000000 A            NOP                                                        *D02
     3375   01 00ED1    02000000 A            NOP                                                        *D02
     3376   01 00ED2    220007D1              LI,0     DA(PRIERR)                                        *D02
     3377   01 00ED3    68000F5E              B        ERRPRIN                                           *D02
     3378   01 00ED4    32300F7D     SET16    LW,3     INTXP                                             *D02
     3379   01 00ED5    35300052 A            STW,3    X'52'                                             *D02
     3380   01 00ED6    32300F9C              LW,3     INTXP2                                            *D02
     3381   01 00ED7    35300053 A            STW,3    X'53'                                             *D02
     3382   01 00ED8    2260C000 A            LI,6     X'C000'                                           *D02
     3383   01 00ED9    6D601300 A            WD,6     X'1300'                                           *D02
     3384   01 00EDA    22608000 A            LI,6     X'8000'                                           *D02
     3385   01 00EDB    6D601700 A            WD,6     X'1700'                                           *D02
     3386   01 00EDC    6D601400 A            WD,6     X'1400'                                           *D02
     3387   01 00EDD    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3388   01 00EDE    64700EDE              BDR,7    %                                                 *D02
     3389   01 00EDF    E800000F A            B        *15                                               *D02
     3390   01 00EE0    32300F7D     SET17    LW,3     INTXP                                             *D02
     3391   01 00EE1    35300053 A            STW,3    X'53'                                             *D02
     3392   01 00EE2    32300F9C              LW,3     INTXP2                                            *D02
     3393   01 00EE3    35300054 A            STW,3    X'54'                                             *D02
     3394   01 00EE4    22B02000 A            LI,11    X'2000'                                           *D02
     3395   01 00EE5    35B00EC9              STW,11   INROUT3                                           *D02
     3396   01 00EE6    22606000 A            LI,6     X'6000'                                           *D02
     3397   01 00EE7    6D601300 A            WD,6     X'1300'                                           *D02
     3398   01 00EE8    22604000 A            LI,6     X'4000'                                           *D02
     3399   01 00EE9    6D601700 A            WD,6     X'1700'                                           *D02
     3400   01 00EEA    6D601400 A            WD,6     X'1400'                                           *D02
     3401   01 00EEB    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3402   01 00EEC    64700EEC              BDR,7    %                                                 *D02
     3403   01 00EED    E800000F A            B        *15                                               *D02
     3404   01 00EEE    32300F7D     SET18    LW,3     INTXP                                             *D02
     3405   01 00EEF    35300054 A            STW,3    X'54'                                             *D02
     3406   01 00EF0    32300F9C              LW,3     INTXP2                                            *D02
     3407   01 00EF1    35300055 A            STW,3    X'55'                                             *D02
     3408   01 00EF2    22B01000 A            LI,11    X'1000'                                           *D02
     3409   01 00EF3    35B00EC9              STW,11   INROUT3                                           *D02
     3410   01 00EF4    22603000 A            LI,6     X'3000'                                           *D02
     3411   01 00EF5    6D601300 A            WD,6     X'1300'                                           *D02
     3412   01 00EF6    22602000 A            LI,6     X'2000'                                           *D02
     3413   01 00EF7    6D601700 A            WD,6     X'1700'                                           *D02
     3414   01 00EF8    6D601400 A            WD,6     X'1400'                                           *D02
     3415   01 00EF9    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3416   01 00EFA    64700EFA              BDR,7    %                                                 *D02
     3417   01 00EFB    E800000F A            B        *15                                               *D02
     3418   01 00EFC    32300F7D     SET19    LW,3     INTXP                                             *D02
     3419   01 00EFD    35300055 A            STW,3    X'55'                                             *D02
     3420   01 00EFE    32300F9C              LW,3     INTXP2                                            *D02
     3421   01 00EFF    35300056 A            STW,3    X'56'                                             *D02
     3422   01 00F00    22B00800 A            LI,11    X'800'                                            *D02
     3423   01 00F01    35B00EC9              STW,11   INROUT3                                           *D02
     3424   01 00F02    22601800 A            LI,6     X'1800'                                           *D02
     3425   01 00F03    6D601300 A            WD,6     X'1300'                                           *D02
     3426   01 00F04    22601000 A            LI,6     X'1000'                                           *D02
     3427   01 00F05    6D601700 A            WD,6     X'1700'                                           *D02
     3428   01 00F06    6D601400 A            WD,6     X'1400'                                           *D02
     3429   01 00F07    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3430   01 00F08    64700F08              BDR,7    %                                                 *D02
     3431   01 00F09    E800000F A            B        *15                                               *D02
     3432   01 00F0A    32300F7D     SET20    LW,3     INTXP                                             *D02
     3433   01 00F0B    35300056 A            STW,3    X'56'                                             *D02
     3434   01 00F0C    32300F9C              LW,3     INTXP2                                            *D02
     3435   01 00F0D    35300058 A            STW,3    X'58'                                             *D02
     3436   01 00F0E    22B00200 A            LI,11    X'200'                                            *D02
     3437   01 00F0F    35B00EC9              STW,11   INROUT3                                           *D02
     3438   01 00F10    22600A00 A            LI,6     X'A00'                                            *D02
     3439   01 00F11    6D601300 A            WD,6     X'1300'                                           *D02
     3440   01 00F12    22600800 A            LI,6     X'800'                                            *D02
     3441   01 00F13    6D601700 A            WD,6     X'1700'                                           *D02
     3442   01 00F14    6D601400 A            WD,6     X'1400'                                           *D02
     3443   01 00F15    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3444   01 00F16    64700F16              BDR,7    %                                                 *D02
     3445   01 00F17    E800000F A            B        *15                                               *D02
     3446   01 00F18    32300F7D     SET22    LW,3     INTXP                                             *D02
     3447   01 00F19    35300058 A            STW,3    X'58'                                             *D02
     3448   01 00F1A    32300F9C              LW,3     INTXP2                                            *D02
     3449   01 00F1B    35300059 A            STW,3    X'59'                                             *D02
     3450   01 00F1C    22B00100 A            LI,11    X'100'                                            *D02
     3451   01 00F1D    35B00EC9              STW,11   INROUT3                                           *D02
     3452   01 00F1E    22600300 A            LI,6     X'300'                                            *D02
     3453   01 00F1F    6D601300 A            WD,6     X'1300'                                           *D02
     3454   01 00F20    22600200 A            LI,6     X'200'                                            *D02
     3455   01 00F21    6D601700 A            WD,6     X'1700'                                           *D02
     3456   01 00F22    6D601400 A            WD,6     X'1400'                                           *D02
     3457   01 00F23    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3458   01 00F24    64700F24              BDR,7    %                                                 *D02
     3459   01 00F25    E800000F A            B        *15                                               *D02
     3460   01 00F26    32300F7D     SET23    LW,3     INTXP                                             *D02
     3461   01 00F27    35300059 A            STW,3    X'59'                                             *D02
     3462   01 00F28    32300F9C              LW,3     INTXP2                                            *D02
     3463   01 00F29    3530005A A            STW,3    X'5A'                                             *D02
     3464   01 00F2A    22B00080 A            LI,11    X'80'                                             *D02
     3465   01 00F2B    35B00EC9              STW,11   INROUT3                                           *D02
     3466   01 00F2C    22600180 A            LI,6     X'180'                                            *D02
     3467   01 00F2D    6D601300 A            WD,6     X'1300'                                           *D02
     3468   01 00F2E    22600100 A            LI,6     X'100'                                            *D02
     3469   01 00F2F    6D601700 A            WD,6     X'1700'                                           *D02
     3470   01 00F30    6D601400 A            WD,6     X'1400'                                           *D02
     3471   01 00F31    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3472   01 00F32    64700F32              BDR,7    %                                                 *D02
     3473   01 00F33    E800000F A            B        *15                                               *D02
     3474   01 00F34    32300F7D     SET24    LW,3     INTXP                                             *D02
     3475   01 00F35    3530005A A            STW,3    X'5A'                                             *D02
     3476   01 00F36    32300F9C              LW,3     INTXP2                                            *D02
     3477   01 00F37    3530005B A            STW,3    X'5B'                                             *D02
     3478   01 00F38    22B00040 A            LI,11    X'40'                                             *D02
     3479   01 00F39    35B00EC9              STW,11   INROUT3                                           *D02
     3480   01 00F3A    226000C0 A            LI,6     X'C0'                                             *D02
     3481   01 00F3B    6D601300 A            WD,6     X'1300'                                           *D02
     3482   01 00F3C    22600080 A            LI,6     X'80'                                             *D02
     3483   01 00F3D    6D601700 A            WD,6     X'1700'                                           *D02
     3484   01 00F3E    6D601400 A            WD,6     X'1400'                                           *D02
     3485   01 00F3F    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3486   01 00F40    64700F40              BDR,7    %                                                 *D02
     3487   01 00F41    E800000F A            B        *15                                               *D02
     3488   01 00F42    32300F7D     SET25    LW,3     INTXP                                             *D02
     3489   01 00F43    3530005B A            STW,3    X'5B'                                             *D02
     3490   01 00F44    32300F9C              LW,3     INTXP2                                            *D02
     3491   01 00F45    3530005C A            STW,3    X'5C'                                             *D02
     3492   01 00F46    22B00020 A            LI,11    X'20'                                             *D02
     3493   01 00F47    35B00EC9              STW,11   INROUT3                                           *D02
     3494   01 00F48    22600060 A            LI,6     X'60'                                             *D02
     3495   01 00F49    6D601300 A            WD,6     X'1300'                                           *D02
     3496   01 00F4A    22600040 A            LI,6     X'40'                                             *D02
     3497   01 00F4B    6D601700 A            WD,6     X'1700'                                           *D02
     3498   01 00F4C    6D601400 A            WD,6     X'1400'                                           *D02
     3499   01 00F4D    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3500   01 00F4E    64700F4E              BDR,7    %                                                 *D02
     3501   01 00F4F    E800000F A            B        *15                                               *D02
     3502   01 00F50    32300F7D     SET26    LW,3     INTXP                                             *D02
     3503   01 00F51    3530005C A            STW,3    X'5C'                                             *D02
     3504   01 00F52    32300F9C              LW,3     INTXP2                                            *D02
     3505   01 00F53    3530005D A            STW,3    X'5D'                                             *D02
     3506   01 00F54    22B00010 A            LI,11    X'10'                                             *D02
     3507   01 00F55    35B00EC9              STW,11   INROUT3                                           *D02
     3508   01 00F56    22600030 A            LI,6     X'30'                                             *D02
     3509   01 00F57    6D601300 A            WD,6     X'1300'                                           *D02
     3510   01 00F58    22600020 A            LI,6     X'20'                                             *D02
     3511   01 00F59    6D601700 A            WD,6     X'1700'                                           *D02
     3512   01 00F5A    6D601400 A            WD,6     X'1400'                                           *D02
     3513   01 00F5B    2270FFFF A            LI,7     X'FFFF'                                           *D02
     3514   01 00F5C    64700F5C              BDR,7    %                                                 *D02
     3515   01 00F5D    E800000F A            B        *15                                               *D02
     3516   01 00F5E    4C000001 A   ERRPRIN  SIO,0    1                                                 *D02
     3517   01 00F5F    4D000001 A            TIO,0    1                                                 *D02
     3518   01 00F60    69C00F5F              BCS,12   %-1                                               *D02
     3519   01 00F61    2E000000 A            WAIT                                                       *D02
     3520   01 00F62    68000E1C              B        PRIOTEST                                          *D02
     3521   01 00F63                 MSAVE    RES      16                                                *D02
     3522   01 00F73    F0F0F0F0 A   RESULT   DATA     X'F0F0F0F0',X'F0F0F0F0'                           *D02
            01 00F74    F0F0F0F0 A
     3523   01 00F75    F0F1F2F3 A   TABLEM   DATA     X'F0F1F2F3',X'F4F5F6F7',X'F8F9C1C2',X'C3C4C5C6'   *D02
            01 00F76    F4F5F6F7 A
            01 00F77    F8F9C1C2 A
            01 00F78    C3C4C5C6 A
     3524   01 00F79    00000000 A   SAVE5D   DATA     0                                                 *D02
     3525   01 00F7A    00000000 A   SAVE10   DATA     0                                                 *D02
     3526   01 00F7B    00000000 A   COND     DATA     0
     3527   01 00F7C    00000000 A   RET10    DATA     0                                                 *D02
     3528   01 00F7D    0F000FEE     INTXP    XPSD,0   LASTONE                                           *D02
     3529   01 00F7E    00000000 A   INTCHK   DATA     0,0,LASTONE+100,0                                 *D02
            01 00F7F    00000000 A
            01 00F80    00001052
            01 00F81    00000000 A
     3530   01 00F82                 INTABLE  DO1      12                                                *D02
     3531   01 00F82    00000000 A            DATA     0                                                 *D02
            01 00F83    00000000 A
            01 00F84    00000000 A
            01 00F85    00000000 A
            01 00F86    00000000 A
            01 00F87    00000000 A
            01 00F88    00000000 A
            01 00F89    00000000 A
            01 00F8A    00000000 A
            01 00F8B    00000000 A
            01 00F8C    00000000 A
            01 00F8D    00000000 A
     3532   01 00F8E    00008000 A   MASKINT  DATA     X'8000',X'4000',X'2000',X'1000',X'800',X'400'     *D02
            01 00F8F    00004000 A
            01 00F90    00002000 A
            01 00F91    00001000 A
            01 00F92    00000800 A
            01 00F93    00000400 A
     3533   01 00F94    00000200 A            DATA     X'200',X'100',X'80',X'40',X'20',X'10'             *D02
            01 00F95    00000100 A
            01 00F96    00000080 A
            01 00F97    00000040 A
            01 00F98    00000020 A
            01 00F99    00000010 A
     3534   01 00F9A    00000000 A   SAVE5    DATA     0                                                 *D02
     3535   01 00F9B    22604000 A   RESLI    DATA     X'22604000'                                       *D02
     3536   01 00F9C    0F000FF8     INTXP2   XPSD,0   LASTONE+10                                        *D02
     3537                                     BOUND    8                                                 *D02
     3538   01 00F9E    01003E90     MODMES   GEN,8,24 1,BA(MODMES1)                                     *D02
     3539   01 00F9F    00000034 A            GEN,32   (MODMES2-MODMES1)*4                               *D02
     3540   01 00FA0    01003EC4     CONDERR1 GEN,8,24 1,BA(CONDERR2)                                    *D02
     3541   01 00FA1    00000068 A            GEN,32   (CONDERR3-CONDERR2)*4                             *D02
     3542   01 00FA2    01003F2C     PRIERR   GEN,8,24 1,BA(PRIMES1)                                     *D02
     3543   01 00FA3    00000088 A            GEN,32   (PRIMES2-PRIMES1)*4                               *D02
     3544   01 00FA4    1515C5D9 A   MODMES1  TEXT     '

ERROR (MTB, MTH, OR MTW) INSTRUCTION    '      *D02
            01 00FA5    D9D6D940 A
            01 00FA6    4DD4E3C2 A
            01 00FA7    6B40D4E3 A
            01 00FA8    C86B40D6 A
            01 00FA9    D940D4E3 A
            01 00FAA    E65D40C9 A
            01 00FAB    D5E2E3D9 A
            01 00FAC    E4C3E3C9 A
            01 00FAD    D6D54040 A
            01 00FAE    40404040 A
     3545   01 00FAF    00000000 A   MODMES3  DATA     0,0                                               *D02
            01 00FB0    00000000 A
     3546         01 00FB1           MODMES2  EQU      %                                                 *D02
     3547                            CONDERR2 TEXT     '

CONDITION CODE ERROR AFTER MODIFY AND TEST',;  *D02
     3548                                              '
(BYTE, HALFWORD OR WORD) INSTRUCTION',;         *D02
     3549   01 00FB1    1515C3D6 A                     ' IN INTERRUPT LOCATION'                          *D02
            01 00FB2    D5C4C9E3 A
            01 00FB3    C9D6D540 A
            01 00FB4    C3D6C4C5 A
            01 00FB5    40C5D9D9 A
            01 00FB6    D6D940C1 A
            01 00FB7    C6E3C5D9 A
            01 00FB8    40D4D6C4 A
            01 00FB9    C9C6E840 A
            01 00FBA    C1D5C440 A
            01 00FBB    E3C5E2E3 A
            01 00FBC    154DC2E8 A
            01 00FBD    E3C56B40 A
            01 00FBE    C8C1D3C6 A
            01 00FBF    E6D6D9C4 A
            01 00FC0    40D6D940 A
            01 00FC1    E6D6D9C4 A
            01 00FC2    5D40C9D5 A
            01 00FC3    E2E3D9E4 A
            01 00FC4    C3E3C9D6 A
            01 00FC5    D540C9D5 A
            01 00FC6    40C9D5E3 A
            01 00FC7    C5D9D9E4 A
            01 00FC8    D7E340D3 A
            01 00FC9    D6C3C1E3 A
            01 00FCA    C9D6D540 A
     3550         01 00FCB           CONDERR3 EQU      %                                                 *D02
     3551   01 00FCB    1515D7D9 A   PRIMES1  TEXT     '

PRIORITY ERROR.
A LOWER PRIORITY INTERRUPT '   *D02
            01 00FCC    C9D6D9C9 A
            01 00FCD    E3E840C5 A
            01 00FCE    D9D9D6D9 A
            01 00FCF    4B15C140 A
            01 00FD0    D3D6E6C5 A
            01 00FD1    D940D7D9 A
            01 00FD2    C9D6D9C9 A
            01 00FD3    E3E840C9 A
            01 00FD4    D5E3C5D9 A
            01 00FD5    D9E4D7E3 A
            01 00FD6    40404040 A
     3552   01 00FD7    C8C1E240 A            TEXT     'HAS INTERRUPTED AN ACTIVE HIGHER PRIORITY'       *D02
            01 00FD8    C9D5E3C5 A
            01 00FD9    D9D9E4D7 A
            01 00FDA    E3C5C440 A
            01 00FDB    C1D540C1 A
            01 00FDC    C3E3C9E5 A
            01 00FDD    C540C8C9 A
            01 00FDE    C7C8C5D9 A
            01 00FDF    40D7D9C9 A
            01 00FE0    D6D9C9E3 A
            01 00FE1    E8404040 A
     3553   01 00FE2    15D9C5C7 A            TEXT     '
REGISTER 6 CONTAINS WD BIT OF LOWER LEVEL
'     *D02
            01 00FE3    C9E2E3C5 A
            01 00FE4    D940F640 A
            01 00FE5    C3D6D5E3 A
            01 00FE6    C1C9D5E2 A
            01 00FE7    40E6C440 A
            01 00FE8    C2C9E340 A
            01 00FE9    D6C640D3 A
            01 00FEA    D6E6C5D9 A
            01 00FEB    40D3C5E5 A
            01 00FEC    C5D31540 A
     3554         01 00FED           PRIMES2  EQU      %                                                 *D02
     3555                                     BOUND    8                                                 *D01
     3556         01 00FEE           LASTONE  EQU      %                 START OF DOUBLEWORD TABLE       *D01
     3557   01 00FEE    05003FC0     INFO1    CDW      5,INFO2,4*(INFO3-INFO2)                           *D01
            01 00FEF    020003E4 A
     3558                            INFO2    TEXT     '

REVISION D02',;                                *D02
     3559                                   '
PROGRAM REVISED TO TEST MTB, MTH AND MTW INSTRUCTIONS',;   *D02
     3560                                   '
IN INTERRUPT LOCATIONS',;                                  *D02
     3561                                   '
ADDED ROUTINE TO TRIGGER AN INTERRUPT WHEN A HIGHER ',;    *D02
     3562                                   '
PRIORITY IS ACTIVE',;                                      *D02
     3563                                   '

REVISION D01',;                                           *D01
     3564                                   '
PROGRAM MODIFIED TO TEST THE ABILITY OF THE LPSD,3',;      *D01
     3565                                   '
INSTRUCTION TO ARM THE ACTIVE INTERRUPT LEVEL WHEN',;      *D01
     3566                                   '
EXITING THE INTERRUPT ROUTINE.  ADDED A TEST TO CHECK',;   *D01
     3567                                   '
THE RESETTING OF THE GROUP INTERRUPT INHIBITS BY A',;      *D01
     3568                                   '
WD INSTRUCTION.  PROGRAM ALLOWS REINITIALIZATION: PLACE',; *D01
     3569                                   '
RUN SWITCH IN IDLE, DEPRESS SYSTEM RESET, PLACE MACHINE',; *D01
     3570                                   '
IN RUN.  THE PROGRAM HEADER MESSAGE SHOULD BE PRINTED',;   *D01
     3571                                   '
AND THE PROGRAM SHOULD RESTART.',;                         *D01
     3572                                   '

NOTE: TO INSURE CORRECT SWITCH SETTINGS IN THE',;         *D01
     3573                                   '
      INTERRUPT CHASSIS, VISUALLY INSPECT THE INTERRUPT',; *D01
     3574                                   '
      CHASSIS FOR IMPLEMENTED LEVELS AND COMPARE THEM',;   *D01
     3575                                   '
      AGAINST THE M6 PRIORITY SEQUENCE LISTING.  ANY',;    *D01
     3576                                   '
      INTERRUPTS INSTALLED BUT NOT LISTED INDICATE',;      *D01
     3577                                   '
      LEVEL FAILURES OR INCORRECTLY SET IMPLEMENTATION',;  *D01
     3578                                   '
      SWITCHES IN THE INTERRUPT CHASSIS.',;                *D01
     3579   01 00FF0    1515D9C5 A          '
      (ANY INTERRUPT INSTALLED MUST BE IMPLEMENTED.)

'    *D01
            01 00FF1    E5C9E2C9 A
            01 00FF2    D6D540C4 A
            01 00FF3    F0F215D7 A
            01 00FF4    D9D6C7D9 A
            01 00FF5    C1D440D9 A
            01 00FF6    C5E5C9E2 A
            01 00FF7    C5C440E3 A
            01 00FF8    D640E3C5 A
            01 00FF9    E2E340D4 A
            01 00FFA    E3C26B40 A
            01 00FFB    D4E3C840 A
            01 00FFC    C1D5C440 A
            01 00FFD    D4E3E640 A
            01 00FFE    C9D5E2E3 A
            01 00FFF    D9E4C3E3 A
            01 01000    C9D6D5E2 A
            01 01001    15C9D540 A
            01 01002    C9D5E3C5 A
            01 01003    D9D9E4D7 A
            01 01004    E340D3D6 A
            01 01005    C3C1E3C9 A
            01 01006    D6D5E215 A
            01 01007    C1C4C4C5 A
            01 01008    C440D9D6 A
            01 01009    E4E3C9D5 A
            01 0100A    C540E3D6 A
            01 0100B    40E3D9C9 A
            01 0100C    C7C7C5D9 A
            01 0100D    40C1D540 A
            01 0100E    C9D5E3C5 A
            01 0100F    D9D9E4D7 A
            01 01010    E340E6C8 A
            01 01011    C5D540C1 A
            01 01012    40C8C9C7 A
            01 01013    C8C5D940 A
            01 01014    15D7D9C9 A
            01 01015    D6D9C9E3 A
            01 01016    E840C9E2 A
            01 01017    40C1C3E3 A
            01 01018    C9E5C515 A
            01 01019    15D9C5E5 A
            01 0101A    C9E2C9D6 A
            01 0101B    D540C4F0 A
            01 0101C    F115D7D9 A
            01 0101D    D6C7D9C1 A
            01 0101E    D440D4D6 A
            01 0101F    C4C9C6C9 A
            01 01020    C5C440E3 A
            01 01021    D640E3C5 A
            01 01022    E2E340E3 A
            01 01023    C8C540C1 A
            01 01024    C2C9D3C9 A
            01 01025    E3E840D6 A
            01 01026    C640E3C8 A
            01 01027    C540D3D7 A
            01 01028    E2C46BF3 A
            01 01029    15C9D5E2 A
            01 0102A    E3D9E4C3 A
            01 0102B    E3C9D6D5 A
            01 0102C    40E3D640 A
            01 0102D    C1D9D440 A
            01 0102E    E3C8C540 A
            01 0102F    C1C3E3C9 A
            01 01030    E5C540C9 A
            01 01031    D5E3C5D9 A
            01 01032    D9E4D7E3 A
            01 01033    40D3C5E5 A
            01 01034    C5D340E6 A
            01 01035    C8C5D515 A
            01 01036    C5E7C9E3 A
            01 01037    C9D5C740 A
            01 01038    E3C8C540 A
            01 01039    C9D5E3C5 A
            01 0103A    D9D9E4D7 A
            01 0103B    E340D9D6 A
            01 0103C    E4E3C9D5 A
            01 0103D    C54B4040 A
            01 0103E    C1C4C4C5 A
            01 0103F    C440C140 A
            01 01040    E3C5E2E3 A
            01 01041    40E3D640 A
            01 01042    C3C8C5C3 A
            01 01043    D215E3C8 A
            01 01044    C540D9C5 A
            01 01045    E2C5E3E3 A
            01 01046    C9D5C740 A
            01 01047    D6C640E3 A
            01 01048    C8C540C7 A
            01 01049    D9D6E4D7 A
            01 0104A    40C9D5E3 A
            01 0104B    C5D9D9E4 A
            01 0104C    D7E340C9 A
            01 0104D    D5C8C9C2 A
            01 0104E    C9E3E240 A
            01 0104F    C2E840C1 A
            01 01050    15E6C440 A
            01 01051    C9D5E2E3 A
            01 01052    D9E4C3E3 A
            01 01053    C9D6D54B A
            01 01054    4040D7D9 A
            01 01055    D6C7D9C1 A
            01 01056    D440C1D3 A
            01 01057    D3D6E6E2 A
            01 01058    40D9C5C9 A
            01 01059    D5C9E3C9 A
            01 0105A    C1D3C9E9 A
            01 0105B    C1E3C9D6 A
            01 0105C    D57A40D7 A
            01 0105D    D3C1C3C5 A
            01 0105E    15D9E4D5 A
            01 0105F    40E2E6C9 A
            01 01060    E3C3C840 A
            01 01061    C9D540C9 A
            01 01062    C4D3C56B A
            01 01063    40C4C5D7 A
            01 01064    D9C5E2E2 A
            01 01065    40E2E8E2 A
            01 01066    E3C5D440 A
            01 01067    D9C5E2C5 A
            01 01068    E36B40D7 A
            01 01069    D3C1C3C5 A
            01 0106A    40D4C1C3 A
            01 0106B    C8C9D5C5 A
            01 0106C    15C9D540 A
            01 0106D    D9E4D54B A
            01 0106E    4040E3C8 A
            01 0106F    C540D7D9 A
            01 01070    D6C7D9C1 A
            01 01071    D440C8C5 A
            01 01072    C1C4C5D9 A
            01 01073    40D4C5E2 A
            01 01074    E2C1C7C5 A
            01 01075    40E2C8D6 A
            01 01076    E4D3C440 A
            01 01077    C2C540D7 A
            01 01078    D9C9D5E3 A
            01 01079    C5C415C1 A
            01 0107A    D5C440E3 A
            01 0107B    C8C540D7 A
            01 0107C    D9D6C7D9 A
            01 0107D    C1D440E2 A
            01 0107E    C8D6E4D3 A
            01 0107F    C440D9C5 A
            01 01080    E2E3C1D9 A
            01 01081    E34B1515 A
            01 01082    D5D6E3C5 A
            01 01083    7A40E3D6 A
            01 01084    40C9D5E2 A
            01 01085    E4D9C540 A
            01 01086    C3D6D9D9 A
            01 01087    C5C3E340 A
            01 01088    E2E6C9E3 A
            01 01089    C3C840E2 A
            01 0108A    C5E3E3C9 A
            01 0108B    D5C7E240 A
            01 0108C    C9D540E3 A
            01 0108D    C8C51540 A
            01 0108E    40404040 A
            01 0108F    40C9D5E3 A
            01 01090    C5D9D9E4 A
            01 01091    D7E340C3 A
            01 01092    C8C1E2E2 A
            01 01093    C9E26B40 A
            01 01094    E5C9E2E4 A
            01 01095    C1D3D3E8 A
            01 01096    40C9D5E2 A
            01 01097    D7C5C3E3 A
            01 01098    40E3C8C5 A
            01 01099    40C9D5E3 A
            01 0109A    C5D9D9E4 A
            01 0109B    D7E31540 A
            01 0109C    40404040 A
            01 0109D    40C3C8C1 A
            01 0109E    E2E2C9E2 A
            01 0109F    40C6D6D9 A
            01 010A0    40C9D4D7 A
            01 010A1    D3C5D4C5 A
            01 010A2    D5E3C5C4 A
            01 010A3    40D3C5E5 A
            01 010A4    C5D3E240 A
            01 010A5    C1D5C440 A
            01 010A6    C3D6D4D7 A
            01 010A7    C1D9C540 A
            01 010A8    E3C8C5D4 A
            01 010A9    15404040 A
            01 010AA    404040C1 A
            01 010AB    C7C1C9D5 A
            01 010AC    E2E340E3 A
            01 010AD    C8C540D4 A
            01 010AE    F640D7D9 A
            01 010AF    C9D6D9C9 A
            01 010B0    E3E840E2 A
            01 010B1    C5D8E4C5 A
            01 010B2    D5C3C540 A
            01 010B3    D3C9E2E3 A
            01 010B4    C9D5C74B A
            01 010B5    4040C1D5 A
            01 010B6    E8154040 A
            01 010B7    40404040 A
            01 010B8    C9D5E3C5 A
            01 010B9    D9D9E4D7 A
            01 010BA    E3E240C9 A
            01 010BB    D5E2E3C1 A
            01 010BC    D3D3C5C4 A
            01 010BD    40C2E4E3 A
            01 010BE    40D5D6E3 A
            01 010BF    40D3C9E2 A
            01 010C0    E3C5C440 A
            01 010C1    C9D5C4C9 A
            01 010C2    C3C1E3C5 A
            01 010C3    15404040 A
            01 010C4    404040D3 A
            01 010C5    C5E5C5D3 A
            01 010C6    40C6C1C9 A
            01 010C7    D3E4D9C5 A
            01 010C8    E240D6D9 A
            01 010C9    40C9D5C3 A
            01 010CA    D6D9D9C5 A
            01 010CB    C3E3D3E8 A
            01 010CC    40E2C5E3 A
            01 010CD    40C9D4D7 A
            01 010CE    D3C5D4C5 A
            01 010CF    D5E3C1E3 A
            01 010D0    C9D6D515 A
            01 010D1    40404040 A
            01 010D2    4040E2E6 A
            01 010D3    C9E3C3C8 A
            01 010D4    C5E240C9 A
            01 010D5    D540E3C8 A
            01 010D6    C540C9D5 A
            01 010D7    E3C5D9D9 A
            01 010D8    E4D7E340 A
            01 010D9    C3C8C1E2 A
            01 010DA    E2C9E24B A
            01 010DB    15404040 A
            01 010DC    4040404D A
            01 010DD    C1D5E840 A
            01 010DE    C9D5E3C5 A
            01 010DF    D9D9E4D7 A
            01 010E0    E340C9D5 A
            01 010E1    E2E3C1D3 A
            01 010E2    D3C5C440 A
            01 010E3    D4E4E2E3 A
            01 010E4    40C2C540 A
            01 010E5    C9D4D7D3 A
            01 010E6    C5D4C5D5 A
            01 010E7    E3C5C44B A
            01 010E8    5D151540 A
     3580         01 010E9           INFO3    EQU      %                                                 *D01
     3581         01 00D12                    END      LAST

  CONTROL SECTION SUMMARY: 01 010E9   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   23:39 JUN 20,'83    SIGMA 5/7 INTERRUPT TEST   704143-51D02  JULY 12, 1972                PAGE    4
A  ADRDCODE         976/STW     1091/STW     1587/LW      1888/STW     1904/STW     1923/STW     1960/STW
      1967/STW     2015/BCR*    2017/B*      2167/STW     2395/STW     2579/STW     2616/STW     2642/STW
      2811-RES     3066/STW
   AEND            2438/LW      2835-DATA
   AGAIN           3085-LW      3107/BIR     3108/BIR
   ALLAUTO         1279-LI
   ALLAUTOA        1298-EQU     1352/BCR
   ALLAUTOB        1299-LI
   ALLAUTOC        1303-LI      1342/BCR     1346/BCR     1350/BCR     1362/B       1363/B
   ALLAUTOD        1303/LI      1326-LW      1371/LI
   ALLAUTOE        1343-LI
   ALLAUTOF        1347-LI
   ALLAUTOG        1353-BAL
   ALLAUTOH        1307/LI      1360-BAL
   AP1             1312/LW      1317/LW      1322/LW      2824-DATA
   ARMD             938-EQU      951/WD       989/WD      1081/WD      1893/WD      2141/WD      2144/WD
      2397/WD      2621/WD      2647/WD
   ARME             937-EQU     1907/WD      1926/WD      1962/WD      2588/WD      2697/WD      2732/WD
   AUTOERLP        1331/LI      1364-STW
   AUTOERRA        1365/LI      1369-LI
   AUTOSTEP        1300/STW     1301/STW     1302/STW     1311/LW      1316/LW      1321/LW      1341/MTW
      1344/STW     1345/MTW     1348/STW     1349/MTW     2831-RES
   BADSEQ          1274/LI      1818-LI      1834/BE
   BADSEQA         1823-LI      1874/BG      1881/LI
   BADSEQB         1847-STW     1880/B
   BADSEQC         1855-LW      1876/B
   BADSEQD         1839/BE      1877-LW
   BADSEQE         1841/BNE     1850/LI      1881-LI
   BITCNT          1202/BAL     1947-EQU     1975/BAL     2324/BAL
   BITCNTA         1950-SLD     1953/BE
   BITONE          1142/OR      1194/OR      1751/LW      2076/OR      2292/OR      2309/OR      2332/OR
      2925-DATA
   BITSWCDW        1794/LI      2883-CDWC
   BITSWTCH        1568/LW      1677/LW      1803/AND     1805/STW     2028/AND     2033/AND     2774-EQU
   BITTWO          1038/OR      1150/OR      1672/LW      2310/OR      2333/OR      2706/OR      2744/OR
      2926-DATA
   BITZERO         1141/OR      1766/AND     1767/LW      2025/LW      2075/OR      2185/OR      2380/OR
      2705/OR      2743/OR      2924-DATA
   BIT0X15         1775/AND     2345/AND     2817-DATA
   BIT0X31         2101/EOR     2109/EOR     2116/EOR     2819-DATA
   BIT15           1192/OR      1419/LW      2933-DATA
   BIT16            966/LW       981/LW      1122/LI      1859/LI      1924/LW      2250/LW      2281/LI
      2296/LW      2325/LW      2620/LW      2723/LW      2934-DATA
   BIT16X31         968/EOR     1414/AND     1430/AND     2318/LW      2331/AND     2737/AND     2818-DATA
   BIT17           2935-DATA
   BIT18           1017/LW      1025/OR      1925/OR      2936-DATA
   BIT18X21        1724/LW      2823-DATA
   BIT19           2937-DATA
   BIT20           2938-DATA
   BIT21           2939-DATA
   BIT22           2940-DATA
   BIT23           2941-DATA
   BIT24           2942-DATA
   BIT25           2943-DATA
   BIT26           2944-DATA
   BIT27           2945-DATA
   BIT28           2946-DATA
   BIT29           2947-DATA
   BIT3            1021/OR      1151/OR      1785/LW      1787/LW      2077/OR      2270/OR      2291/OR
      2334/OR      2381/OR      2745/OR      2927-DATA
   BIT30           2948-DATA
   BIT31           2949-DATA
   BIT4            2574/EOR     2928-DATA
   BIT5            2612/EOR     2929-DATA
   BIT6            1669/LW      2639/EOR     2930-DATA
   BIT7            2665/EOR     2931-DATA
   BIT9            2429/EOR     2932-DATA
   BLANK           2554/OR      2809-DATA
   BLNKSTRP        1240/AND     2808-DATA    2869/CDWC
   BREAKHI         1966/LI      2074-LW      2814/DATA
   BS456           1289/BAL     1337/BAL     1487/BAL     2413-STW
   CDW              897-CNAME
   CDWC             896-CNAME
   CDWN             898-CNAME
   CHKEXIT         1304/STW     1366/STW     1372/STW     1437/STW     1495/STW     1552/STW     1556/STW
      1597/LW      2266/B*      2267/B*      2510/STW     2671/STW     2717/STW     2812-RES
   CHKPATT         2166/LI      2178-LI
   CHKPATTA        2181-CS      2184/BDR
   CHKPATTB        2168/B       2189-LW      2212/B
   CHKPATTC         761/DATA    2198-MTW     2199/BCS     2852/PSD
   CHKPATTD        2182/BE      2204-SLS
   CHKPATTE        2203/B       2219-LW
   CHKPATTF        2223-MTW     2259/BNE
   CHKPATTG        2226-LW      2273/BDR     2274/B
   CHKPATTH        2230/BE      2233-AI
   CHKPATTI        2237/BE      2240-AI
   CHKPATTJ        2245-LW      2269/B       2285/BCR     2295/B
   CHKPATTK        2221/BCS     2260-LI      2287/BCR     2314/B       2340/B       2350/B
   CHKPATTL        2224/BCS     2268-LB
   CHKPATTM        2214/BE      2217/BE      2270-OR
   CHKPATTN        2242/BLE     2275-AI
   CHKPATTP        2253/BCR     2296-LW      2347/BCR
   CHKPATTQ        2263/BCS     2315-MTW
   CHKPATTR        2302/BCS     2342-LW
   CHKPATT1        2191/STB     2197/LPSD    2852-PSD
   CHKSEQ          1097/B       1165-LI
   CHKSEQA         1166-LW      1170/BIR     1198/B
   CHKSEQB         1172-BAL
   CHKSEQC         1168/BCS     1175-LW
   CHKSEQD         1182/BCS     1185-LW
   CHKSEQE         1174/B       1201-LW
   CHKSEQF         1209-LI      1219/BDR
   CHKSEQG         1200/B       1216-STH
   CHKSEQH         1199-LB      1212/BE
   CHKSTK           955/BAL      959/BAL     1005/BAL     1155/BAL     1172/BAL     1361/BAL     1471/BAL
      1564-LD      2265/BAL     2538/BAL     2763/BAL
   CHKSTKA         1573-PLW     1585/B
   CHKSTKB         1574/BCR     1581-LI      1589/BE      1591/BE      1593/BE      1646/BG
   CHKSTKC         1575/LI      1587-LW
   CHKSTKD         1625-STH     1655/B
   CHKSTKE         1569/BCS     1656-PSW
   CHKSTKF         1657/LI      1663-PLW
   CHKWD           1007/B       1044-XPSD    1053/B
   CHKWDA          1046-XPSD    2855/DATA    2856/DATA
   CHKWDB          1050/BCR     1054-WD      1061/B       2857/DATA
   CHKWD1          1044/XPSD    1062/LPSD    2855-DATA
   CHKWD2          1046/XPSD    1048/LB      2856-DATA
   CHKWD3          1055/XPSD    1056/LB      2857-DATA
   CHSLVCNT        1406/STW     1410/LW      1412/AW      1418/LCW     1422/STW     1508/LW      1514/LW
      1522/LW      1528/LW      1536/LW      1542/LW      2792-RES
   CKINTAD          974-BAL
   CKINTADA         981-LW      1003/BCS
   CKINTADB         983-LI       998/BCS
   CKINTADC         994-SLS     1033/B
   CKINTADD         975/LI      1008-CI      1590/CI
   CKINTADE        1019/BCR     1024-LW
   CKINTADF        1023/B       1027-LH
   CKINTADG        1031-WD      1040/B
   CKINTADH        1016/BNE     1034-LW
   CLEAR           1309/BAL     1444/BAL     1731-LI      2534/BAL
   CLR18X21        1724-LW
   CMPAD           2007/LB      2008/LW      2014/LH      2779/XPSD    2907-DATA
   CMPINTAD        2778/DATA    2779-XPSD
   CNTR            1073/STW     1100/LW      1115/MTW     1147/LW      1819/STW     1863/LW      1868/MTW
      2923-RES
   COMMCDW         1774/LW      1777/STW     1778/LI      2877-GEN
   COMPADDR        2007-LB      2907/DATA
   COMPHIGH         947-LCI     3064/LI
   CONBITS          637/DATA    2428/LW      2430/STW     2573/LW      2575/STW     2611/LW      2613/STW
      2638/LW      2640/STW     2664/LW      2666/STW     2773-DATA    2774/EQU
   COND            3093/STCF    3102/CB      3526-DATA
   CONDERR         3103/BNE     3132-LI
   CONDERR1        3132/LI      3540-GEN
   CONDERR2        3540/GEN     3541/GEN     3547-TEXT
   CONDERR3        3541/GEN     3550-EQU
   CORRCDW         1823/LI      1872/LI      2889-CDWC
   CSA              930-EQU     1013/LW      1015/CS      1037/OR      1104/LW      1106/CS      1175/LW
      1176/SLD     1181/LW      1181/LW      1184/LW      1185/LW      1258/LW      1261/CS      1267/LW
      1400/LH      1402/SLD     1564/LD      1565/CS      1568/LW      1587/LW      1588/CI      1590/CI
      1592/CI      1621/LI      1622/STW     1628/LH      1630/STH     1632/LH      1634/STH     1660/LD
      1661/STD     1679/LD      1689/STD     1710/SLD     1711/SLS     1712/SLD     1713/SLS     1714/SLD
      1716/OR      1717/STD     1722/LD      1723/STD     1727/LI      1728/STS     1731/LI      1734/STD
      1737/STD     1739/STW     1753/STCF    1754/SLD     1755/CS      1758/CS      1842/LW      1844/SLD
      1846/SLD     1847/STW     1877/LW      1878/SLS     1879/SLS     1939/LI      1940/SLD     1941/LW
      1949/LI      1950/SLD     1952/CW
   CSM              931-EQU     1014/LI      1105/LI      1177/SLS     1184/LW      1185/LW      1189/AND
      1193/OR      1201/LW      1259/LI      1399/LI      1403/CI      1709/LW      1715/LI      1724/LW
      1732/LI      1751/LW      1757/SLS     1843/LW      1845/SLS     1936/LW      1974/LW      2323/LW
   CTCHHANG        2372/XPSD    2375/LB      2377/LH      2384/LB      2905-DATA
   CTCHHNG1         948/LM       986/LM      1132/LM      2194/LM      2593/LM      2914-EQU
   CTCHHNG2        2918-EQU
   DCDXPSD1        1695/LW      2815-XPSD
   DCDXPSD2        1703/LW      2816-XPSD
   DESCRIBA        2360-LH      2366/BDR
   DESCRIBE        2304/BAL     2327/BAL     2356-LW
   DISABLE          940-EQU     1130/WD
   DISARM           936-EQU     1031/WD      1989/WD      1991/WD      2165/WD
   DLINK           2394-LI      2411/B
   DMPNUM          1600-LI
   DMPNUMA         1603/BCR     1609-LI
   DMPNUMB         1608/B       1612-LW
   DMPNUMC         1594/LI      1599/BNE     1616-LI
   DUMPSEQ         1252-SLS
   DUMPSEQA        1261-CS      1269/BDR
   DUMPSEQB        1262/BE      1268-AI
   EDIT            1641/BAL     2548-LI
   EEND            2484/LW      2836-DATA
   ENABLE           939-EQU      953/WD       991/WD      1083/WD      1895/WD      2156/WD      2160/WD
      2399/WD      2623/WD      2649/WD
   ENADISA          941-EQU
   ENDFLAG         1826/CW      2833-DATA
   ENTBSW          2883/CDWC    2982-TEXT
   ENTMANE         2865/CDW     2986-TEXT
   ENTMANI         2867/CDW     2988-TEXT
   ENTMANT         2866/CDW     2987-TEXT
   ENTSEQ          2889/CDWC    2984-TEXT
   ERRMSK          1660/LD      1722/LD      2842-SPD
   ERRMSK1         1564/LD      2843-DATA    3041/STW
   ERROR           1326/LW      1474/LW      1739/STW     2079/MTW     2188/STW     2272/MTW     2294/MTW
      2313/MTW     2315/MTW     2383/MTW     2528/LW      2955-RES
   ERRPRIN         3377/B       3516-SIO
   ERRSTK          1022/PSW     1039/PSW     1143/PSW     1152/PSW     1195/PSW     1565/CS      1573/PLW
      1661/STD     1723/STD     2078/PSW     2186/PSW     2271/PSW     2293/PSW     2312/PSW     2337/PSW
      2382/PSW     2707/PSW     2746/PSW     2854-SPD     3043/STW
   EXECPATT        1306/STW     1441/STW     1499/STW     2134/B*      2512/STW     2673/STW     2715/STW
      2813-RES
   EXPFIELD        2125/STW     2131/LH      2133/STH     2161/LH      2251/LH      2254/LH      2256/STH
      2262/AND     2330/LH      2339/STH     2797-RES
   EXTRNAL         1620/STW     1622/STW     1644/LW      1645/CW      1653/LW      1654/MTW     3002-RES
      3035/STW     3057/STM
   FTFLAG          1067/STW     1079/MTW     1095/MTW     1098/MTW     1112/MTW     1127/MTW     1133/MTW
      2777-DATA
   GETSEQ          1045/B       1066-LI      1099/B       1163/B
   GETSEQA         1078-LI      1085/BDR
   GETSEQB         1093-MTW     2850/PSD
   GETSEQC         1090/LI      1100-LW      1592/CI
   GETSEQD         1106-CS      1138/BDR
   GETSEQD1        1116-AI      1153/B
   GETSEQE         1133-MTW     1144/B
   GETSEQE1        1092/B       1125-LH
   GETSEQF         1107/BNE     1137-AI
   GETSEQG         1111/BNE     1145-LW
   GETSEQH         1068/LI      1154-BAL
   GETSEQ1         1135/LPSD    1136/LPSD    2850-PSD
   GR               925-EQU      979/LI       980/STW      980/STW      988/LW       988/LW       989/WD
       990/WD       991/WD       999/AI      1008/CI      1027/LH      1029/STH     1031/WD      1074/LI
      1081/WD      1082/WD      1083/WD      1084/AI      1088/LI      1118/LW      1121/SLS     1125/LH
      1129/STH     1130/WD      1186/LW      1188/LH      1196/LH      1197/STH     1416/LI      1418/LCW
      1422/STW     1423/AI      1855/LW      1858/SLS     1865/LH      1867/STH     1890/LI      1893/WD
      1894/WD      1895/WD      1977/SLS     1978/AW      1979/SLS     1987/LW      1989/WD      1990/BDR
      2139/LI      2140/LH      2141/WD      2142/BIR     2145/LI      2146/LH      2148/WD      2149/BIR
      2153/LI      2154/LH      2156/WD      2157/BIR     2245/LW      2246/SLS     2251/LH      2254/LH
      2256/STH     2297/CI      2306/LW      2326/LW      2330/LH      2339/STH     2356/LW      2585/LI
      2588/WD      2589/WD      2590/AI      2618/LI      2621/WD      2622/WD      2623/WD      2628/AI
      2644/LI      2647/WD      2648/WD      2649/WD      2654/AI      2689/LW      2690/STH     2691/STH
      2692/STH     2696/LW      2697/WD      2702/CH      2722/LW      2725/STH     2726/STH     2727/STH
      2730/LW      2731/LH      2732/WD      2735/LH      2736/LH      2748/LW
   GRPCNT           978/STW     1002/MTW     2804-RES
   GRPONE          1009/BE      1885-LI
   GRPONEA         1889-LI      1899/B
   GRPONEB         1887/LI      1896-LPSD
   GRPONEC         1897-MTW     2851/PSD
   GRPONE1         1896/LPSD    2851-PSD
   HANGBACK        2386/STW     2389/LPSD*   2922-RES
   HANGPSDS        2385/AI      2908-EQU     2916/XPSD    2920/XPSD
   HEXLIMC         2058/CLM     2904-DATA
   HEXLIMF         2056/CLM     2903-DATA
   HIBIT            967/STW     1089/LW      1201/LW      1961/LW      2396/LW      2841-DATA
   HICHAS          1394/STW     1453/LW      1505/LW      1519/LW      1533/LW      2801-RES
   HICHAS1         1396/STW     1454/LW      1987/LW      2802-DATA    3031/STW
   HIEXIT          1069/STW     1308/STW     1439/STW     1497/STW     2081/B*      2434/STW     2580/STW
      2669/STW     2814-DATA
   HIFAILA          957/B       1901-LI
   HIFAILAA        1905-LI      1912/B
   HIFAILAB        1903/LI      1909-LPSD
   HIFAILAC        1910-AI      2844/PSD
   HIFAILA1        1909/LPSD    2844-PSD
   HIFAILB          965/BNE     1914-LW
   HIFAILBA        1924-LW      1931/B
   HIFAILBB        1922/LI      1928-LPSD
   HIFAILBC        1929-AI      2845/PSD
   HIFAILB1        1928/LPSD    2845-PSD
   HIFAILC         1965/B       2391-BAL
   HIFAILCA        2396-LW      2402/B
   HIFAILCB        2394/LI      2401-LPSD
   HIFAILCC        2402-B       2846/PSD
   HIFAILC1        2401/LPSD    2846-PSD
   HIFAILD         1969/BNE     2404-LW
   HIGHA            958-STW     1588/CI      3065/LI
   HIGHB            963/BE       966-LW
   HIPRI            958/STW      961/LW      1968/CW      2839-DATA
   HISTGENA        3049-LI      3063/BDR
   HISTGENB        3051-LW      3061/BDR
   HISTSAV         3021/STW     3027/LW      3078-RES
   HNGDCODE        2372-XPSD    2905/DATA    2911/GEN
   HOLDSS          1786/AND     1792/STW     2805-DATA    3014/STCF
   HOLDSS1         1368/STCF    1768/AND     1784/STCF    1788/AND     1791/LW      1812/STCF    2806-DATA
   IA               924-EQU
   IEND            2502/LW      2838-DATA
   IGEN            1305/LI      1440/LI      1498/LI      2138-BAL     2511/LI
   IGENA           2166-LI      2703/BE      2708/B       2739/BCR     2741/BCS     2747/B
   IN               935-EQU     1236/LH      1573/PLW     1602/LW      1612/LW      1624/LI      1625/STH
      1626/LH      1629/STH     1631/LH      1633/STH     1635/LW      1639/LW      1644/LW      1645/CW
      1648/CI      1650/AI      1652/AI      1798/LW      1914/LW      1936/LW      2043/LI      2050/AI
      2066/AW      2404/LW      2462/CI      2464/CI      2467/AW      2548/LI      2550/STH     2553/LH
      2554/OR      2555/STH     2556/LW      2557/STW     2558/LH      2559/STH     2560/LH      2561/STH
      2562/LW      2563/STW     2564/LH      2565/STH     2566/LH      2567/STH
   INFO1           3023/LI      3557-CDW
   INFO2           3557/CDW     3557/CDW     3558-TEXT
   INFO3           3557/CDW     3580-EQU
   INHBMSK         2190/AND     2791-DATA
   INHIBITS        1297/STW     1351/MTW     1443/STW     1500/MTW     2091/AND     2098/AND     2106/AND
      2189/LW      2520/STW     2675/STW     2956-RES
   INITAUTO        1287-BAL     1354/LI      1484/LI      1832/B
   INROUT          3221/LW      3329-LI
   INROUT2         3259/LW      3365-NOP
   INROUT3         3196/STW     3367-LI      3395/STW     3409/STW     3423/STW     3437/STW     3451/STW
      3465/STW     3479/STW     3493/STW     3507/STW
   INTABLE         3250/CW      3330/STW     3333/STW     3336/STW     3339/STW     3342/STW     3345/STW
      3348/STW     3351/STW     3354/STW     3357/STW     3360/STW     3363/STW     3530-DO1
   INTCHK          3206/LW      3207/LW      3208/LW      3209/LW      3233/LW      3234/LW      3235/LW
      3236/LW      3529-DATA
   INTXP           3199/LW      3378/LW      3390/LW      3404/LW      3418/LW      3432/LW      3446/LW
      3460/LW      3474/LW      3488/LW      3502/LW      3528-XPSD
   INTXP2          3380/LW      3392/LW      3406/LW      3420/LW      3434/LW      3448/LW      3462/LW
      3476/LW      3490/LW      3504/LW      3536-XPSD
   INVAL           2901/CDW     2981-TEXT
   INVCDW          1882/LI      2901-CDW
   INVJX           2678/LI      2682/BLE     2769-LI
   INVMAN          2460/LI      2465/BNE     2545-LI
   IO               920-EQU     1004/LI      1051/LI      1059/LI      1171/LI      1247/LI      1270/LI
      1272/LI      1357/LI      1545/LI      1571/LI      1583/LI      1614/LI      1642/LI      1667/LW
      1776/OR      1778/LI      1794/LI      1823/LI      1872/LI      1882/LI      1885/LI      1901/LI
      1920/LI      2392/LI      2409/LI      2448/LI      2450/LI      2488/LI      2497/LI      2506/LI
      2676/LI      2766/LI      3015/LI      3023/LI
   IPCOUNT         1426/STW     1427/STW     1445/MTW     1448/STW     1449/MTW     1451/STW     1602/LW
      1612/LW      2780-DATA
   IPERLOOP        1479/LI      1549-STW
   IPERRA          1551/LI      1553-LI
   IPGEN           1359/B       1380-EQU     1392/B
   IPGENA          1390/BCR     1393-AI
   IPGENB          1399-LI      1408/BDR     1409/BDR
   IPGENC          1402-SLD     1405/BDR
   IPGEND          1404/BNE     1406-STW
   IPGENE          1418-LCW     1424/BDR     1547/B
   IPGENF          1442-LI      1510/BCR     1516/BCR     1524/BCR     1530/BCR     1538/BCR     1544/BCR
   IPGENG          1444-BAL     1501/BCR
   IPGENH          1438/LI      1470-BAL     1496/LI
   IPHOLD           980/STW      982/STW      987/LW       988/LW       996/STM     1001/STM     1431/STW
      1511/LW      1517/LW      1525/LW      1531/LW      1539/LW      2793-RES
   IPHOLDA         1432/STW     1455/LW      1463/LW      1537/AWM     1540/STW     1543/AWM     2794-RES
   IPHOLDE         1434/STW     1459/LW      1467/LW      1509/AWM     1512/STW     1515/AWM     1518/STW
      2796-RES
   IPHOLDT         1433/STW     1457/LW      1465/LW      1523/AWM     1526/STW     1529/AWM     1532/STW
      2795-RES
   ITRNHIST        1101/LI      1160/STW     1209/LI      1280/LI      1281/LI      1581/LI      1605/LI
      1607/LI      1611/LI      1625/STH     1629/STH     1630/STH     1633/STH     1634/STH     1635/LW
      1636/LI      1638/LI      1639/LW      1728/STS     1737/STD     1825/LW      1838/CB      1840/CB
      1842/LW      1843/LW      1847/STW     1849/STW     1852/STW     1854/LB      1869/MTB     1870/LB
      1873/CB      1877/LW      1981/AI      2048/CB      2054/LB      2068/STB     2181/CS      2205/LB
      2228/LI      2235/LI      2452/LW      2550/STH     2553/LH      2555/STH     2556/LW      2557/STW
      2558/LH      2559/STH     2560/LH      2561/STH     2562/LW      2563/STW     2564/LH      2565/STH
      2566/LH      2567/STH     2864/CDW     2868/CDWC    2870/GEN     2884/CDW     2886/GEN     2890/CDW
      2897/CDW     2900/CDW     2992-EQU     3020/LW      3028/STW
   JX              1290/LI      1338/LI      1488/LI      1829/LI      2663-STW     2769/LI
   JXA             2672/LI      2694-BAL     2710/BCS     2756/LI
   JXB             2670/LI      2709-RD      2755/BCS
   JXC             2714/LI      2729-BAL     2753/BCS
   JXD             2716/LI      2748-LW
   JXE             2713/B       2758-BAL     2764/B       2765/B       2768/B
   JXF             2668/LI      2761-CI
   JXG             2762/BE      2766-LI
   JXGRP           2683/STW     2689/LW      2696/LW      2722/LW      2730/LW      2748/LW      2800-RES
   KILLINTS         970/BAL     1154/BAL     1353/BAL     1360/BAL     1470/BAL     1681/BAL     1987-LW
      2080/BAL     2202/BAL     2391/BAL     2435/BAL     2533/BAL     2572/BAL     2605/B       2610/BAL
      2636/BAL     2758/BAL     3032/BAL
   KSR             1572/BAL     1584/BAL     1677-LW      1795/BAL     1824/BAL     1921/BAL     3016/BAL
      3024/BAL
   KSRA            1006/BAL     1052/BAL     1060/BAL     1173/BAL     1248/BAL     1271/BAL     1358/BAL
      1546/BAL     1615/BAL     1643/BAL     1671/BCS     1679-LD      1779/B       1883/B       1886/BAL
      1902/BAL     2393/BAL     2410/BAL     2451/BAL     2489/BAL     2498/BAL     2507/BAL     2767/BAL
   LAST              68/DATA    3004/DATA    3013-RD      3581/END
   LASTONE         1204/STH     1216/STH     1229/LI      1233/CB      1236/LH      1256/STB     1258/LW
      1261/CS      1264/STB     1267/LW      1717/STD     2374/STM     2388/LM      2815/XPSD    2816/XPSD
      2881/GEN     3210/STW     3212/STW     3214/STW     3216/STW     3222/STW     3237/STW     3239/STW
      3241/STW     3243/STW     3260/STW     3331/LPSD    3334/LPSD    3337/LPSD    3340/LPSD    3343/LPSD
      3346/LPSD    3349/LPSD    3352/LPSD    3355/LPSD    3358/LPSD    3361/LPSD    3364/LPSD    3373/LPSD
      3528/XPSD    3529/DATA    3536/XPSD    3556-EQU
   LDATA            905-CNAME
   LEVBITSA        1125/LH      1129/STH     1167/EOR     1197/STH     1313/STW     1456/STH     1464/STH
      1626/LH      1734/STD     1915/LI      1918/STB     1919/STB     2120/LW      2128/LH      2130/STH
      2140/LH      2143/LH      2279/LW      2342/LW      2360/LH      2405/LI      2408/STB     2523/STM
      2686/STW     2690/STH     2720/STW     2725/STH     2731/LH      2735/LH      2782-RES     2874/CDW
      2895/CDW     3038/STW
   LEVBITSE        1323/STW     1460/STH     1468/STH     1628/LH      2122/AND     2154/LH      2158/LH
      2280/AND     2343/AND     2441/STW     2470/LW      2472/MTW     2473/LW      2480/MTW     2487/STW
      2494/STW     2505/STW     2692/STH     2726/STH     2783-RES
   LEVBITSI        1632/LH      2095/STW     2102/LH      2104/STH     2110/LH      2112/STH     2115/LW
      2785-RES
   LEVBITSN        1227/STW     1228/STW     1230/STW     1232/LW      1235/LW      1237/LW      1242/MTW
      1244/MTW     1245/MTW     2117/STW     2123/AND     2786-RES
   LEVBITST        1318/STW     1458/STH     1466/STH     1631/LH      2121/AND     2146/LH      2150/LH
      2286/AND     2526/STM     2691/STH     2727/STH     2784-RES
   LNK              927-EQU      955/BAL      959/BAL      970/BAL      974/BAL     1005/BAL     1006/BAL
      1011/BAL     1052/BAL     1060/BAL     1070/BAL     1071/BAL     1154/BAL     1155/BAL     1172/BAL
      1173/BAL     1202/BAL     1223/BAL     1238/BAL     1248/BAL     1271/BAL     1273/BAL     1275/BAL
      1287/BAL     1288/BAL     1289/BAL     1291/BAL     1294/BAL     1309/BAL     1329/BAL     1332/BAL
      1335/BAL     1337/BAL     1339/BAL     1353/BAL     1355/BAL     1358/BAL     1360/BAL     1361/BAL
      1364/STW     1370/BAL     1444/BAL     1470/BAL     1471/BAL     1477/BAL     1480/BAL     1485/BAL
      1487/BAL     1489/BAL     1492/BAL     1504/BAL     1546/BAL     1549/STW     1550/BAL     1554/BAL
      1566/BE*     1570/PSW     1572/BAL     1576/BAL     1578/PLW     1580/B       1582/BAL     1584/BAL
      1595/BAL     1606/BAL     1613/BAL     1615/BAL     1637/BAL     1640/BAL     1641/BAL     1643/BAL
      1656/PSW     1658/BAL     1663/PLW     1665/B       1674/BCR*    1680/PSW     1681/BAL     1690/PLW
      1691/B*      1742/B*      1756/BNE*    1771/B*      1790/BCR*    1793/PSW     1795/BAL     1797/BAL
      1806/PLW     1807/B*      1808/LI      1813/B*      1824/BAL     1828/BAL     1830/BAL     1851/BAL
      1861/BAL     1881/LI      1886/BAL     1902/BAL     1916/BAL     1921/BAL     1945/B*      1954/B*
      1970/B*      1973/PSW     1975/BAL     1982/PLW     1983/B*      1993/B*      2023/CW*     2026/LCW*
      2029/BCR     2030/AI      2035/B       2038/AI      2064/B*      2080/BAL     2085/BAL     2138/BAL
      2202/BAL     2265/BAL     2304/BAL     2324/BAL     2327/BAL     2367/B*      2391/BAL     2393/BAL
      2406/BAL     2410/BAL     2413/STW     2415/BAL     2418/BAL     2421/BAL     2427/STW     2435/BAL
      2436/BAL     2437/BAL     2449/BAL     2451/BAL     2461/BAL     2489/BAL     2498/BAL     2507/BAL
      2531/BAL     2533/BAL     2534/BAL     2536/BAL     2538/BAL     2545/LI      2568/B*      2572/BAL
      2576/BAL     2577/BAL     2603/BAL     2604/LW      2610/BAL     2614/BAL     2636/BAL     2637/BAL
      2657/BAL     2663/STW     2667/BAL     2677/BAL     2679/BAL     2694/BAL     2712/BAL     2729/BAL
      2757/BAL     2758/BAL     2759/BAL     2763/BAL     2767/BAL     2769/LI      3016/BAL     3024/BAL
      3032/BAL     3064/LI
   LNKSTK          1570/PSW     1578/PLW     1656/PSW     1663/PLW     1680/PSW     1690/PLW     1793/PSW
      1806/PLW     1973/PSW     1982/PLW     2853-SPD
   LOOPEXIT        1364/STW     1373/B*      1549/STW     1557/B*      2413/STW     2423/B*      2427/STW
      2537/B*      2604/LW      2663/STW     2760/B*      2810-RES
   LV               929-EQU      950/LI       951/WD       952/WD       953/WD       981/LW       982/STW
       982/STW      987/LW       987/LW       989/WD       990/WD       991/WD       994/SLS      997/LW
       997/LW      1028/OR      1031/WD      1076/LW      1078/LI      1081/WD      1082/WD      1083/WD
      1089/LW      1117/LB      1118/LW      1119/SLS     1120/SLS     1123/LW      1123/LW*     1126/OR
      1130/WD      1145/LW      1146/SLS     1149/OR      1854/LB      1855/LW      1856/SLS     1857/SLS
      1860/LW      1860/LW*     1866/OR      1870/LB      1873/CB      1889/LI      1893/WD      1894/WD
      1895/WD      1905/LI      1907/WD      1908/WD      1924/LW      1925/OR      1926/WD      1927/WD
      1961/LW      1962/WD      1963/WD      1974/LW      1988/LI      1989/WD      1991/WD      2140/LH
      2141/WD      2143/LH      2144/WD      2146/LH      2148/WD      2150/LH      2152/WD      2154/LH
      2156/WD      2158/LH      2160/WD      2161/LH      2162/AND     2163/EOR     2164/AND     2165/WD
      2244/LB      2245/LW      2247/SLS     2248/SLS     2249/LW      2250/LW      2252/AND     2255/EOR
      2268/LB      2296/LW      2301/AND     2325/LW      2344/STH     2361/AND     2396/LW      2397/WD
      2398/WD      2399/WD      2581/LW      2587/LI      2588/WD      2589/WD      2620/LW      2621/WD
      2622/WD      2623/WD      2626/SLS     2646/LI      2647/WD      2648/WD      2649/WD      2652/SLS
      2688/LI      2690/STH     2691/STH     2692/STH     2695/LI      2697/WD      2698/WD      2699/RD
      2701/LH      2701/LH      2702/CH      2705/OR      2706/OR      2707/PSW     2723/LW      2724/STW
      2725/STH     2726/STH     2727/STH     2731/LH      2732/WD      2733/WD      2734/RD      2740/AND
      2743/OR      2744/OR      2745/OR      2746/PSW     2749/LW      2750/SLS     2751/STW     2752/LW
      2752/LW
   MANCDW1         2448/LI      2863-CDW
   MANCDW2         2450/LI      2864-CDW
   MANCDW3         2488/LI      2865-CDW
   MANCDW4         2497/LI      2866-CDW
   MANCDW5         2506/LI      2867-CDW
   MANINHB         2504/LI      2515/MTW     2518/STW     2519/LW      2542/STW     2788-RES
   MANPATT         2440/LI      2444/STW     2474/CI      2476/CI      2478/CI      2486/LI      2493/LI
      2522/LM      2525/LM      2724/STW     2749/LW      2751/STW     2787-RES
   MANUAL          1293/LI      1334/LI      1491/LI      2427-STW     2456/BE
   MANUALA         2450-LI      2479/BNE     2481/B       2490/B       2499/B       2508/B       2544/B
      2545/LI
   MANUALB         2446/LI      2475/BE      2477/BE      2482-LI
   MANUALC         2482/LI      2491-LI
   MANUALD         2491/LI      2500-LI
   MANUALE         2500/LI      2509-LI      2535/LI
   MANUALF         2521-LCI
   MANUALG         2509/LI      2528-LW
   MANUALH         2529/BCR     2530/LI      2533-BAL     2539/B       2540/B
   MANUALJ         2433/LI      2538-BAL
   MANUALK         2459/BE      2541-LI
   MASKINT         3252/OR      3532-DATA
   MODERR          3106/BNE     3115-LI      3121/BIR
   MODLIST         3085/LW      3134-MTB
   MODMES          3122/LI      3538-GEN
   MODMES1         3538/GEN     3539/GEN     3544-TEXT
   MODMES2         3539/GEN     3546-EQU
   MODMES3         3120/STB     3545-DATA
   MODTEST         3069/BAL     3079-LCI
   MSAVE           3080/STM     3113/LM      3129/LM      3521-RES
   MSGA            2894/CDWC    2975-TEXT
   MSGACDW         2409/LI      2894-CDWC
   MSGB            2896/CDWC    2976-TEXT
   MSGBCDW         2676/LI      2896-CDWC
   MSGC            2863/CDW     2978-TEXT
   MSGD            2898/CDW     2980-TEXT
   MSGDCDW         1545/LI      2898-CDW
   MSGWDCDW        1051/LI      1059/LI      2858-CDW
   MSG1            2860/CDW     2899/CDWC    2959-TEXT
   MSG1CDW         1004/LI      2860-CDW
   MSG2            2861/CDW     2872/CDW     2960-TEXT
   MSG2CDW         1571/LI      2861-CDW
   MSG3            2862/CDW     2961-TEXT
   MSG3CDW         1901/LI      2862-CDW
   MSG4            2873/CDWC    2963-TEXT
   MSG4CDW         1920/LI      2873-CDWC
   MSG5            2875/CDW     2965-TEXT
   MSG5CDW         1171/LI      2875-CDW
   MSG6            2876/CDW     2966-TEXT
   MSG6ACDW        1247/LI      2876-CDW
   MSG6B           2888/CDW     2967-TEXT
   MSG7            2891/CDW     2970-TEXT
   MSG7CDW         1357/LI      2891-CDW
   MSG8            2892/CDW     2972-TEXT
   MSG8CDW         1885/LI      2892-CDW
   MSG9            2893/CDW     2974-TEXT
   MSG9CDW         2392/LI      2893-CDW
   MTABLE          3104/LW      3182-DATA
   MULTINT         2414/LI      2572-BAL
   MULTINTA        2577-BAL     2602/LI
   MULTINTB        2578/LI      2599-LPSD
   MULTINTC        2600-MTW     2847/PSD
   MULTINT1        2599/LPSD    2847-PSD
   NEWPATT         2455/CW      2832-DATA
   NOBITS          1952/CW      2820-DATA
   NOTCINHB        2108/LW      2822-DATA
   NOTHI            969/STW     1076/LW      2129/AND     2132/AND     2164/AND     2581/LW      2840-DATA
   NOTIINHB        2100/LW      2790-DATA
   NOT9X16         2821-DATA
   NTNTIMPL        1027/LH      1029/STH     1166/LW      1188/LH      1196/LH      1389/LH      1400/LH
      1429/LH      1617/LH      1821/STW     1865/LH      1867/STH     2124/AND     2261/LW      2702/CH
      2736/LH      2799-LDATA
   NUMCDW          1604/STB     1610/STB     2886-GEN
   OA               926-EQU     1229/LI      1230/STW     1237/LW      1239/LW      1241/STW     1274/LI
      1290/LI      1293/LI      1328/LI      1331/LI      1334/LI      1338/LI      1354/LI      1369/LI
      1476/LI      1479/LI      1484/LI      1488/LI      1491/LI      1553/LI      1575/LI      1581/LI
      1594/LI      1605/LI      1607/LI      1611/LI      1616/LI      1617/LH      1619/BDR     1620/STW
      1627/LI      1630/STH     1634/STH     1636/LI      1638/LI      1657/LI      1760/B*      1770/BCR*
      1796/LI      1829/LI      1850/LI      1915/LI      1938/AI      1943/STB*    2031/B*      2039/B*
      2059/BCS*    2405/LI      2414/LI      2417/LI      2420/LI      2460/LI      2530/LI      2535/LI
      2549/LI      2550/STH     2551/BIR     2552/LI      2559/STH     2560/LH      2565/STH     2566/LH
      2602/LI      2656/LI      2678/LI      2711/LI      2756/LI
   OT               922-EQU      958/STW      961/LW       962/CI       964/CI       966/LW      1010/LW
      1015/CS*     1018/AND*    1020/LB*     1024/LW*     1026/STW*    1034/LW*     1104/LW      1140/OR
      1203/AI      1204/STH     1804/OR      1852/STW     1864/STB*    1914/LW      1948/LI      1951/AI
      1968/CW      1976/AI      1978/AW      1980/SLS     1981/AI      2007/LB      2010/SLD     2011/SLS
      2012/SLD     2016/AI      2052/LI      2061/SLS     2062/OR      2074/LW      2075/OR      2076/OR
      2077/OR      2078/PSW     2181/CS      2185/OR      2186/PSW     2305/SLS     2311/OR      2325/LW
      2328/SLS     2336/OR      2358/LI      2363/AW      2404/LW      2469/SLS     2471/STH     2680/SLS
      2681/CI      2683/STW
   OUTPA           1689-STD
   OUTPINV         1809/B       1882-LI      2546/B       2770/B
   OUTPSEQ         1223-BAL
   OUTPSEQA        1232-LW      1246/BDR
   OUTPSEQB        1234/BE      1244-MTW
   P                909-SET      915/DO
   PATTLEAD        1614/LI      2885-CDWC
   PATTNUM         2885/CDWC    2971-TEXT
   PDMPCDW         1642/LI      2899-CDWC
   PRIERR          3376/LI      3542-GEN
   PRILOOP         3210-STW     3219/BIR
   PRILOOP2        3237-STW     3246/BIR
   PRIMES1         3542/GEN     3543/GEN     3551-TEXT
   PRIMES2         3543/GEN     3554-EQU
   PRINTERR        3123-SIO     3133/B
   PRIOTEST        3111/BAL     3194-STW     3520/B
   PRISEQ          2880/CDWC    2983-TEXT
   PRONUM          3075/CDW     3077-TEXT
   PSD              891-CNAME
   QUESTION        1272/LI      2888-CDW
   RDCHK           1667-LW      1676/B       1678/BCS
   RDSS            1288/BAL     1504/BAL     1783-RD      1808/LI      2085/BAL
   RDSSA           1796/LI      1808-LI
   RECOVER         1740/LW      3005-XPSD
   RECOVER1         143/DATA    3004-DATA    3005/XPSD
   RESLI           3195/LW      3535-DATA
   RESP            1273/BAL     1773-EQU     2449/BAL     2677/BAL
   RESPOND         2877/GEN     2985-TEXT
   RESTART         3007-DATA    3017/MTW
   RESULT          3087/LW      3088/STW     3105/CW      3134/MTB     3135/MTB     3136/MTB     3137/MTB
      3138/MTB     3139/MTB     3140/MTB     3141/MTB     3142/MTB     3143/MTB     3144/MTB     3145/MTB
      3146/MTB     3147/MTB     3148/MTB     3149/MTB     3150/MTH     3151/MTH     3152/MTH     3153/MTH
      3154/MTH     3155/MTH     3156/MTH     3157/MTH     3158/MTH     3159/MTH     3160/MTH     3161/MTH
      3162/MTH     3163/MTH     3164/MTH     3165/MTH     3166/MTW     3167/MTW     3168/MTW     3169/MTW
      3170/MTW     3171/MTW     3172/MTW     3173/MTW     3174/MTW     3175/MTW     3176/MTW     3177/MTW
      3178/MTW     3179/MTW     3180/MTW     3181/MTW     3522-DATA
   RET10           3194/STW     3328/B*      3527-DATA
   REVRS1          1370/BAL     1554/BAL     1764-RD      2536/BAL     2603/BAL     2657/BAL     2712/BAL
      2757/BAL
   ROLL            2432/STW     2513/LW      2543/STW     2789-RES
   SAVE10          3068/STW     3070/LW      3525-DATA
   SAVE5           3257/STW     3265/LW      3268/STW     3272/LW      3275/STW     3279/LW      3282/STW
      3286/LW      3289/STW     3293/LW      3296/STW     3300/LW      3303/STW     3307/LW      3310/STW
      3314/LW      3317/STW     3321/LW      3324/STW     3534-DATA
   SAVE5D          3082/STW     3109/LW      3126/LW      3524-DATA
   SEQCDW          1270/LI      2880-CDWC
   SEQCDW1         1254/STH     2881-GEN
   SEQLIST         2088/LI      2089/STW     2206/LW      2207/LI      2211/MTW     2213/CB      2216/CB
      2219/LW      2220/AI      2225/LB      2227/LB      2268/LB      2952-RES
   SETEXP          1325/B       1369/LI      1469/B       1553/LI      2085-BAL     2527/B       2693/B
      2728/B
   SETEXPA         2092/BCR     2097-LI
   SETEXPB         2099/BCR     2105-LI
   SETEXPC         2107/BCR     2114-LI
   SETEXPD         2120-LW      2126/BIR
   SETHI           1071/BAL     1959-LI      2138/BAL     2577/BAL     2694/BAL     2729/BAL
   SETHIA          1959/LI      1966-LI
   SETPSDS          974/BAL     1287/BAL     1695-LW      1828/BAL     3071/B
   SETPSDSA        1698-LI      1704/BDR
   SETPSDSB        1699-STW     1702/BDR
   SETPSDSC        1709-LW      1720/BDR
   SETRTRN         1716/OR      2778-DATA
   SETSTKS         1070/BAL     1223/BAL     1722-LD      2436/BAL     2759/BAL
   SET16           3264/BAL     3378-LW
   SET17           3271/BAL     3390-LW
   SET18           3278/BAL     3404-LW
   SET19           3285/BAL     3418-LW
   SET20           3292/BAL     3432-LW
   SET22           3299/BAL     3446-LW
   SET23           3306/BAL     3460-LW
   SET24           3313/BAL     3474-LW
   SET25           3320/BAL     3488-LW
   SET26           3327/BAL     3502-LW
   SNGLDWN         2420/LI      2636-BAL
   SNGLDWNA        2643-LI      2656/LI
   SNGLDWNB        2645-LI      2655/BDR
   SNGLDWNC        2647-WD      2653/BDR
   SNGLDWND        2641/LI      2651-LPSD
   SNGLDWNE        2652-SLS     2849/PSD
   SNGLDWN1        2651/LPSD    2849-PSD
   SNGLUP          2417/LI      2610-BAL     2632/B       2658/B
   SNGLUPA         2617-LI      2631/BCR
   SNGLUPB         2619-LI      2629/BDR
   SNGLUPC         2621-WD      2627/BDR
   SNGLUPD         2615/LI      2625-LPSD
   SNGLUPE         2626-SLS     2848/PSD
   SNGLUP1         2625/LPSD    2848-PSD
   SPD              885-CNAME
   SQLSTCNT        2222/STW     2223/MTW     2226/LW      2257/LW      2803-DATA
   SSANS           1275/BAL     1746-LI      1759/BE
   SSANSA          1748/STCF    1750-NOP     1755/CS      1758/CS
   START1          3018/BCS     3026-LI
   START2          3025/B       3030-LI
   STEPIP          1436/LI      1472/B       1473/B       1474-LW      1494/LI      1555/LI      1598/CI
   STEPIPA         1476/LI      1479-LI
   STEPIPB         1475/BCR     1482-RD
   STEPIPC         1506-CI      1513/BDR
   STEPIPD         1507/BLE     1514-LW
   STEPIPE         1520-CI      1527/BDR
   STEPIPF         1521/BLE     1528-LW
   STEPIPG         1534-CI      1541/BDR
   STEPIPH         1535/BLE     1542-LW
   STHLDSS         1550/BAL     1811-RD      2437/BAL     2576/BAL     2614/BAL     2637/BAL     2667/BAL
   STKCDW          1583/LI      2868-CDWC
   STK1            2853/SPD     2989-RES
   STK2            2842/SPD     2843/DATA    2854/SPD     2990-RES     3040/LI      3042/LI
   STRP2CNT        2162/AND     2163/EOR     2798-DATA
   TABLE           1942/LB      2950-TEXT
   TABLEM          3119/LB      3523-DATA
   TEND            2495/LW      2837-DATA
   TERM            2439/STW     2447/STW     2453/CW      2454/BE*     2483/STW     2485/STW     2492/STW
      2496/STW     2501/STW     2503/STW     2807-RES
   TESTBSW         1291/BAL     1294/BAL     1329/BAL     1332/BAL     1335/BAL     1339/BAL     1355/BAL
      1477/BAL     1480/BAL     1485/BAL     1489/BAL     1492/BAL     1576/BAL     1595/BAL     1658/BAL
      1830/BAL     2022-LI      2415/BAL     2418/BAL     2421/BAL     2531/BAL
   TESTBSWA        2024/BE      2032-SLS
   TESTBSWB        2034/BCS     2036-WAIT
   TITLCDW         3015/LI      3074-CDWC
   TITLE           3074/CDWC    3076-TEXT
   TRANIN          1797/BAL     1851/BAL     2043-LI      2461/BAL     2679/BAL
   TRANINA         2048-CB      2051/BIR
   TRANINB         2054-LB      2063/BIR     2070/B
   TRANINC         2055/BCR     2061-SLS     2072/B
   TRANIND         2049/BE      2065-LI
   TRANINF         2057/BCR     2071-AI
   TRANOUT         1238/BAL     1582/BAL     1606/BAL     1613/BAL     1637/BAL     1640/BAL     1916/BAL
      1935-EQU     2406/BAL
   TRANOUTA        1939-LI      1944/BIR
   TRIG             942-EQU      952/WD       990/WD      1082/WD      1894/WD      1908/WD      1927/WD
      1963/WD      2148/WD      2152/WD      2398/WD      2589/WD      2622/WD      2648/WD
   TRPMSG          2902/CDW     2951-TEXT
   WAITCNT          984/STW      992/MTW     1087/STW     1093/MTW     1892/STW     1897/MTW     2087/STW
      2198/MTW     2583/STW     2600/MTW     2953-RES
   WAITCON         1415/STW     2086/LW      2954-DATA
   WDMSG1          2858/CDW     2957-TEXT
   WDMSG2          2859/CDW     2958-TEXT
   WDTCDW          2766/LI      2902-CDW
   WKA              928-EQU      966/LW       967/STW      968/EOR      969/STW      975/LI       976/STW
       977/LI       978/STW      983/LI       984/STW     1010/LW      1013/LW      1017/LW      1018/AND
      1020/LB      1021/OR      1022/PSW     1024/LW      1025/OR      1026/STW     1027/LH      1028/OR
      1029/STH     1034/LW      1035/SLS     1036/SLS     1037/OR      1038/OR      1039/PSW     1048/LB
      1049/CS      1056/LB      1057/AND     1066/LI      1067/STW     1068/LI      1069/STW     1072/LI
      1073/STW     1090/LI      1091/STW     1100/LW      1114/STB     1125/LH      1126/OR      1129/STH
      1139/SLS     1140/OR      1141/OR      1142/OR      1143/PSW     1147/LW      1148/SLS     1149/OR
      1150/OR      1151/OR      1152/PSW     1157/LI      1160/STW     1166/LW      1167/EOR     1175/LW
      1178/LI      1179/AW      1180/SLS     1183/AI      1186/LW      1187/SLS     1192/OR      1193/OR
      1194/OR      1195/PSW     1196/LH      1197/STH     1210/LI      1214/BDR     1239/LW      1240/AND
      1241/STW     1255/LI      1256/STB     1264/STB     1279/LI      1286/BDR     1296/LI      1297/STW
      1299/LI      1300/STW     1301/STW     1302/STW     1303/LI      1304/STW     1305/LI      1306/STW
      1307/LI      1308/STW     1312/LW      1313/STW     1317/LW      1318/STW     1322/LW      1323/STW
      1326/LW      1343/LI      1344/STW     1347/LI      1348/STW     1365/LI      1366/STW     1371/LI
      1372/STW     1389/LH      1401/LI      1405/BDR     1406/STW     1410/LW      1412/AW      1414/AND
      1415/STW     1417/LI      1424/BDR     1425/LI      1426/STW     1427/STW     1429/LH      1430/AND
      1431/STW     1432/STW     1433/STW     1434/STW     1436/LI      1437/STW     1438/LI      1439/STW
      1440/LI      1441/STW     1442/LI      1443/STW     1447/LI      1448/STW     1451/STW     1455/LW
      1456/STH     1457/LW      1458/STH     1459/LW      1460/STH     1463/LW      1464/STH     1465/LW
      1466/STH     1467/LW      1468/STH     1474/LW      1494/LI      1495/STW     1496/LI      1497/STW
      1498/LI      1499/STW     1508/LW      1509/AWM     1511/LW      1512/STW     1514/LW      1515/AWM
      1517/LW      1518/STW     1522/LW      1523/AWM     1525/LW      1526/STW     1528/LW      1529/AWM
      1531/LW      1532/STW     1536/LW      1537/AWM     1539/LW      1540/STW     1542/LW      1543/AWM
      1551/LI      1552/STW     1555/LI      1556/STW     1597/LW      1598/CI      1601/LI      1604/STB
      1609/LI      1610/STB     1617/LH      1669/LW      1670/AND     1672/LW      1673/AND     1677/LW
      1695/LW      1699/STW     1700/AI      1703/LW      1706/LI      1709/LW      1719/AI      1726/LI
      1730/BDR     1740/LW      1741/STW     1765/STCF    1766/AND     1769/EOR     1774/LW      1775/AND
      1776/OR      1777/STW     1785/LW      1786/AND     1789/EOR     1791/LW      1792/STW     1801/LI
      1802/SLS     1803/AND     1804/OR      1805/STW     1818/LI      1819/STW     1821/STW     1825/LW
      1826/CW      1833/CW      1837/LI      1838/CB      1840/CB      1848/LI      1849/STW     1863/LW
      1864/STB     1887/LI      1888/STW     1903/LI      1904/STW     1917/LI      1918/STB     1919/STB
      1922/LI      1923/STW     1942/LB      1943/STB     1959/LI      1960/STW     1966/LI      1967/STW
      2022/LI      2023/CW      2025/LW      2027/SLS     2028/AND     2032/SLS     2033/AND     2045/LI
      2048/CB      2054/LB      2056/CLM     2058/CLM     2060/AI      2062/OR      2067/LI      2068/STB
      2071/AI      2086/LW      2087/STW     2088/LI      2089/STW     2090/LI      2091/AND     2093/LI
      2095/STW     2097/LI      2098/AND     2100/LW      2101/EOR     2103/OR      2105/LI      2106/AND
      2108/LW      2109/EOR     2111/OR      2115/LW      2116/EOR     2117/STW     2120/LW      2121/AND
      2122/AND     2123/AND     2124/AND     2125/STW     2128/LH      2129/AND     2130/STH     2131/LH
      2132/AND     2133/STH     2166/LI      2167/STW     2178/LI      2184/BDR     2187/LI      2188/STW
      2189/LW      2190/AND     2191/STB     2205/LB      2210/STB     2213/CB      2216/CB      2225/LB
      2229/CB      2234/LB      2241/CB      2251/LH      2252/AND     2254/LH      2255/EOR     2256/STH
      2261/LW      2262/AND     2270/OR      2271/PSW     2276/LB      2277/CI      2282/LW*     2290/OR
      2300/LI      2301/AND     2306/LW      2307/SLS     2308/OR      2309/OR      2310/OR      2311/OR
      2312/PSW     2319/AND     2322/SLS     2323/LW      2330/LH      2331/AND     2335/OR      2338/LI
      2339/STH     2342/LW      2343/AND     2346/AND     2359/LI      2363/AW      2364/SLS     2375/LB
      2379/AI      2380/OR      2381/OR      2382/PSW     2394/LI      2395/STW     2407/LI      2408/STB
      2428/LW      2429/EOR     2430/STW     2431/LI      2432/STW     2433/LI      2434/STW     2438/LW
      2439/STW     2440/LI      2441/STW     2442/LI      2444/STW     2446/LI      2447/STW     2452/LW
      2453/CW      2455/CW      2457/SLS     2458/CI      2473/LW      2474/CI      2476/CI      2478/CI
      2482/LI      2483/STW     2484/LW      2485/STW     2486/LI      2487/STW     2491/LI      2492/STW
      2493/LI      2494/STW     2495/LW      2496/STW     2500/LI      2501/STW     2502/LW      2503/STW
      2504/LI      2505/STW     2509/LI      2510/STW     2511/LI      2512/STW     2513/LW      2517/LI
      2518/STW     2519/LW      2520/STW     2528/LW      2541/LI      2542/STW     2543/STW     2573/LW
      2574/EOR     2575/STW     2578/LI      2579/STW     2580/STW     2582/LI      2583/STW     2584/LI
      2591/BDR     2611/LW      2612/EOR     2613/STW     2615/LI      2616/STW     2617/LI      2629/BDR
      2638/LW      2639/EOR     2640/STW     2641/LI      2642/STW     2643/LI      2655/BDR     2664/LW
      2665/EOR     2666/STW     2668/LI      2669/STW     2670/LI      2671/STW     2672/LI      2673/STW
      2674/LI      2675/STW     2684/LI      2686/STW     2714/LI      2715/STW     2716/LI      2717/STW
      2718/LI      2720/STW     2735/LH      2738/AND     2740/AND     3065/LI      3066/STW
   WKB              932-EQU     1102/LI      1109/LI      1110/CB      1138/BDR     1159/LI      1162/BDR
      1188/LH      1189/AND     1199/LB      1199/LB*     1209/LI      1211/CB*     1213/AI      1215/LI
      1216/STH     1231/LI      1243/AI      1252/SLS     1254/STH     1260/LI      1269/BDR     1282/LB
      1283/STB     1398/LI      1409/BDR     1419/LW      1420/SLS     1421/LCW     1421/LCW     1422/STW
      1708/LI      1720/BDR     1767/LW      1768/AND     1769/EOR     1787/LW      1788/AND     1789/EOR
      1865/LH      1866/OR      1867/STH     2102/LH      2103/OR      2104/STH     2110/LH      2111/OR
      2112/STH     2227/LB      2236/CB      2289/SLS     2290/OR      2291/OR      2292/OR      2293/PSW
      2318/LW      2319/AND     2344/STH     2345/AND     2346/AND     2377/LH      2619/LI      2627/BDR
      2645/LI      2653/BDR     2736/LH      2737/AND     2738/AND
   WKC              933-EQU     1047/LI      1049/CS      1057/AND     1208/LI      1211/CB      1218/AI
      1225/LI      1233/CB      1698/LI      1702/BDR     2279/LW      2280/AND     2284/AND     2286/AND
      2357/LI      2366/BDR
   WKD              934-EQU     1075/LI      1085/BDR     1086/LI      1087/STW     1205/LI      1219/BDR
      1224/LI      1246/BDR     1696/LI      1704/BDR     1891/LI      1892/STW     1906/LI      1911/BDR
      2282/LW      2283/SLS     2284/AND     2360/LH      2361/AND
   X               2909-DO      2911/GEN     2915-DO      2916/XPSD    2919-DO      2920/XPSD
   XA               921-EQU     1101/LI      1106/CS*     1108/AI      1110/CB*     1114/STB*    1116/AI
      1117/LB*     1122/LI      1123/LW      1137/AI      1145/LW      1158/LI      1160/STW     1161/AI
      1165/LI      1166/LW      1167/EOR     1170/BIR     1179/AW      1206/LI      1211/CB      1226/LI
      1227/STW     1228/STW     1232/LW      1233/CB      1253/LI      1254/STH     1257/LI      1261/CS
      1263/SLS     1264/STB     1266/SLS     1267/LW      1268/AI      1280/LI      1282/LB      1284/AI
      1311/LW      1312/LW      1316/LW      1317/LW      1321/LW      1322/LW      1388/LI      1389/LH
      1391/AI      1393/AI      1394/STW     1395/AI      1396/STW     1397/AI      1400/LH      1406/STW
      1408/BDR     1411/LI      1412/AW      1413/BIR     1418/LCW     1420/SLS     1428/LI      1429/LH
      1431/STW     1432/STW     1433/STW     1434/STW     1435/BIR     1453/LW      1456/STH     1458/STH
      1460/STH     1461/BDR     1505/LW      1506/CI      1508/LW      1509/AWM     1511/LW      1512/STW
      1513/BDR     1519/LW      1520/CI      1522/LW      1523/AWM     1525/LW      1526/STW     1527/BDR
      1533/LW      1534/CI      1536/LW      1537/AWM     1539/LW      1540/STW     1541/BDR     1600/LI
      1604/STB     1610/STB     1623/LI      1626/LH      1628/LH      1631/LH      1632/LH      1653/LW
      1667/LW      1668/SLS     1670/AND*    1673/AND     1675/AI      1697/LI      1699/STW     1701/AI
      1707/LI      1717/STD     1718/AI      1725/LI      1728/STS     1729/AI      1733/LI      1734/STD
      1735/BIR     1736/LI      1737/STD     1738/BIR     1746/LI      1748/STCF    1798/LW      1799/SLS
      1800/LCW     1800/LCW     1802/SLS     1820/LI      1821/STW     1822/BIR     1835/LI      1838/CB
      1853/LI      1854/LB      1869/MTB     1870/LB      1937/LI      1943/STB     1944/BIR     2026/LCW
      2027/SLS     2044/LI      2048/CB      2051/BIR     2053/LI      2054/LB      2063/BIR     2065/LI
      2066/AW      2068/STB     2069/BIR     2074/LW      2094/LI      2095/STW     2096/BIR     2114/LI
      2115/LW      2117/STW     2118/BIR     2119/LI      2120/LW      2121/AND     2122/AND     2123/AND
      2124/AND     2125/STW     2126/BIR     2180/LI      2181/CS      2183/AI      2204/SLS     2205/LB
      2206/LW      2208/AW      2210/STB     2219/LW      2220/AI      2222/STW     2225/LB      2226/LW
      2227/LB      2228/LI      2229/CB      2231/AI      2233/AI      2234/LB      2243/AI      2244/LB
      2257/LW      2258/CI      2260/LI      2261/LW      2262/AND     2264/BIR     2273/BDR     2275/AI
      2276/LB      2316/SLS     2317/AI      2321/AI      2326/LW      2329/SLS     2332/OR      2333/OR
      2334/OR      2335/OR      2336/OR      2337/PSW     2356/LW      2360/LH      2365/AI      2376/LI
      2377/LH      2384/LB      2385/AI      2386/STW     2443/LI      2444/STW     2445/BIR     2466/LI
      2467/AW      2468/SLS     2469/SLS     2470/LW      2471/STH     2685/LI      2686/STW     2687/BIR
      2700/LI      2701/LH      2719/LI      2720/STW     2721/BIR     2761/CI
   XB               923-EQU     1103/LI      1110/CB      1114/STB     1207/LI      1216/STH     1217/AI
      1235/LW      1236/LH      1281/LI      1283/STB     1285/AI      1310/LI      1313/STW     1314/BIR
      1315/LI      1318/STW     1319/BIR     1320/LI      1323/STW     1324/BIR     1454/LW      1455/LW
      1457/LW      1459/LW      1462/BDR     1836/LI      1840/CB      1859/LI      1860/LW      1862/LI
      1864/STB     1871/LI      1873/CB      1941/LW      1942/LB      2008/LW      2009/SLS     2013/LI
      2014/LH      2014/LH      2179/LI      2207/LI      2208/AW      2213/CB      2215/BDR     2235/LI
      2236/CB      2238/AI      2240/AI      2241/CB      2249/LW      2250/LW      2281/LI      2282/LW
      2296/LW      2308/OR
   XJ              2993-DO      2994/GEN     2994/GEN
   YLDINTAD        1011/BAL     1861/BAL     1972-EQU
   ZEROSEQ         1833/CW      2834-DATA
