1 C00   00:07 JUN 21,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE    2
A       1                                     TITLE    ;
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE    3
A       2                                     'SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74 '        *B03
        3                            *
        4                            *******************************************************
        5                            *******************************************************
        6                            *        CATALOG NUMBER:  706137         MANUAL NUMBER:  901878     *A03
        7                            *
        8                            *        PROGRAM OBJECTIVES
        9                            *        ----------------------------
       10                            *
       11                            *        THE PURPOSE OF THIS PROGRAM IS TO EXERCISE THE INTERRUPT AND
       12                            *        TRAP LOGIC (COUNTERS INCLUDED, POWER FAIL INTS. EXCLUDED)
       13                            *        IN ORDER TO DETECT SOLID LOGIC FAILURES AND TO ISOLATE THOSE
       14                            *        FAILURES TO A SPECIFIC FUNCTION.   EQUIPMENT CONFIGURATION
       15                            *        (INTERRUPT MODULES INSTALLED, INTERRUPT PRIORITIES ASSIGNED,
       16                            *        AND REAL TIME CLOCK FREQUENCIES), BASED ON TEST RESULTS ,
       17                            *        IS DISPLAYED FOR USER VERIFICATION.
       18                            *
       19                            *
       20                            *        PROGRAM MODIFICATIONS
       21                            *        ----------------------------
       22                            *        REVISION B03
       23                            *        1. BYPASS BYTE STRING FOR SIGMA9 MOD3                      *B03
       24                            *        2. ADJUST COUNTER FREQ. FOR SIGMA MOD2                     *B03
       25                            *                                                                   *B02
       26                            *        REVISION B02                                               *B02
       27                            *                 TARS CLOSED 25078,12040                           *B02
       28                            *        1. ALLOW EXTERNAL INTERRUPT ADJACENT TO
       29                            *           OVERRIDE GROUP.                                         *B02
       30                            *        2. ALLOW USE OF MORE THAN 2 EXTERNIAL                      *B02
       31                            *           INTERRUPT GROUPS.                                       *B02
       32                            *                                                                   *B02
       33                            *                                                                   *B02
       34                            *        REVISION B01                                               *B01
       35                            *         1.  TO PERMIT BYPASS OF TESTS 26XX ON A SIGMA 8           *B01
       36                            *        2.  TO CORRECT BYPASS MESSAGE                              *B01
       37                            *
       38                            *        REVISION B00                                               *B00
       39                            *             TARS CLOSED......10826,12334                          *B00
       40                            *                                                                   *B00
       41                            *        1. DELETE ALL EXITS ON BREAK                               *B00
       42                            *        2. CALL SAMPLE ROUTINE INSTEAD OF I/O INT.                 *B00
       43                            *        3. MASK COC EXTERNAL INTS. IF REMOTE IN USE                *B00
       44                            *        4. ALLOW T LINE ACCESS TO TEST 2601                        *B00
       45                            *        5. INITIALIZE CLOCK MARGINS TO NORMAL                      *B00
       46                            *        6. CLEAR MFI LINE ON UNEXPECTED PARITY INT. OR TRAP        *B00
       47                            *        7. ADDED EXPLANATION OF TEST #2E                           *B00
       48                            *        8. CORRECTED 'CHKALL' TO ALLOW MSG. OUTPUT                 *B00
       49                            *        9. INHIBIT INTERRUPTS ON COMPLETION OF EXERCIZER TESTS     *B00
       50                            *        10. INITIALIZE AC REGISTERS TO ZERO ( FIRST 16K)           *B00
       51                            *        11. CLEAR PDF ON UNEXPECTED TRAPS (SHORT LOOP)             *B00
       52                            *        12. ALLOW SHORT LOOP ON TESTS 1104-11FF                    *B00
       53                            *
       54                            *
       55                            *
       56                            *        OPERATING REQUIREMENTS AND SPECIFICATIONS
       57                            *        ----------------------------
       58                            *
       59                            *        REQUIRED EQUIPMENT         SIGMA 8/9 CPU
       60                            *                                   16384 WORDS(MINIMUM) OF CORE MEMORY
       61                            *                                   ASR/KSR
       62                            *                                   MAGNETIC TAPE UNIT TO LOAD
       63                            *                                   PROGRAM FROM MAGNETIC TAPE LIBRARY
       64                            *
       65                            *        OPTIONAL EQUIPMENT         LINE PRINTER
       66                            *                                   CARD READER
       67                            *
       68                            *        REQUIRED SOFTWARE          SIGMA 5/6/7/8/9 RELOCATABLE
       69                            *                                      DIAG. LOADER (704356)
       70                            *                                   'GUIDE' INTERFACE PROG. 706131
       71                            *
       72                            *        OPTIONAL SOFTWARE          NONE
       73                            *
       74                            *
       75                            *        PROGRAM PREREQUISITES  A)  THE FOLLOWING PROGRAMS MUST BE
       76                            *                                   RUN SUCCESSFULLY BEFORE
       77                            *                                   RUNNING THIS PROGRAM.
       78                            *                                   1. 8/9 PREP (CAT. #706132)
       79                            *                                   2. 8/9 AUTO (CAT. #706133)
       80                            *                                   3. 8/9 SUFFIX (CAT. #706134)
       81                            *
       82                            *
       83                            *                               B)  THE PARITY ERROR SWITCH MUST BE IN
       84                            *                                     THE 'CONT' POSITION
       85                            *                               C)  BOTH 'OVERRIDE MODE' SWITCHES
       86                            *                                     MUST BE IN THE 'NORM' POSITION
       87                            *
       88                            *
       89                            *
       90                            *        CORE STORAGE               16K LOCATIONS STARTING AT 0
       91                            *
       92                            *        RUN TIME                   AFTER LOADING PROGRAM REQUIRES
       93                            *                                   APPROX. 4 MINUTES TO COMPLETE
       94                            *                                   ONE SUCCESSFULL PASS.
       95                            *
       96                            *        PROGRAM MEDIA              FROM MAGNETIC TAPE LIBRARY(XXXXXXX)
       97                            *                                      OR CARDS
       98                            *
       99                            *        SOURCE LANGUAGE            SIGMA METASYMBOL(SDS 900952B)
      100                            *
      101                            *
      102                            *
      103                            *
      104                            *        LOADING PROCEDURE
      105                            *        ----------------------------
      106                            *
      107                            *        1. USE THE LOADING PROCEDURE DESCRIBED IN DIAGNOSTIC
      108                            *          PROGRAM MANUAL 900972
      109                            *        2. FOR DESCRIPTION OF PROGRAMMED WAITS AND MESSAGE
      110                            *          PRINTOUTS WHILE LOADING PROGRAM REFER TO PROGRAM
      111                            *          MANUAL 900972
      112                            *
      113                            *
      114                            *        OPERATING PROCEDURE
      115                            *        ----------------------------
      116                            *
      117                            *        CONTROL OPTIONS
      118                            *
      119                            *        USER CAN SET THE CLOCK MARGINS SWITCH TO HIGH OR LOW
      120                            *        TO FORCE THE PROGRAM TO RUN AT THAT SETTING OF CLOCK
      121                            *        MARGIN SWITCH AND THIS WILL OVERRIDE ANY ATTEMPT BY
      122                            *        PROGRAM TO SET CLOCK MARGINS TO A DESIRED VALUE.
      123                            *
      124                            *
      125                            *        CONTROL DIRECTIVES
      126                            *
      127                            *        NO CONTROL DIRECTIVES ARE REQUIRED FOR OPERATING THIS
      128                            *        PROGRAM.
      129                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE    4
A     130                                     PAGE                                                       *A02
      131                                     SPACE    3                                                 *A02



      132                            *        THE FOLLOWING DIRECTIVES CAN BE USED TO CONTROL THE
      133                            *        PROGRAM.
      134                            * 1.   'I' DIRECTIVE----WHEN THE USER TYPES IN AN I
      135                            *           FOLLOWED BY AN INTERRUPT GROUP NUMBER (0-F HEX.)
      136                            *           THE FOLLOWING LINE IS DISPLAYED (EXAMPLE IS I0):
      137                            *
      138                            *  GROUP     0      2      3      4      5
      139                            *  *I#0-5  3CF0   0000   0000   0000   0000
      140                            *
      141                            *        EACH PARAMETER FIELD IS A HEX NUMBER REPRESENTING THE
      142                            *        16 LEVELS POSSIBLE WITHIN AN INTERRUPT GROUP (14 IN 0)
      143                            *        THE MOST SIGNIFICANT BIT REPRESENTS LEVEL '0' (HIGHEST PRIORITY
      144                            *        WITHIN THE GROUP) AND THE LEAST SIGNIFICANT
      145                            *        BIT REPRESENTS LEVEL 'F'.
      146                            *
      147                            *        LEVELS CANNOT BE SELECTED EXCEPT IN PAIRS ( 2 LEVELS PER
      148                            *        MODULE).
      149                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE    5
A     150                                     PAGE
      151                            * 2.   'J' PARAMETER----WHEN THE USER TYPES IN A 'J'
      152                            *           CHARACTER VIA THE TELETYPE THE FOLLOWING LINES
      153                            *           ARE OUTPUT.THE USER CAN THEN MODIFY
      154                            *           ANY OF THE FIELDS IN THE 'J' PARAMETER LINE
      155                            *           EXCEPT 'COMDEV' FIELD.
      156                            *
      157                            *        MSGDEV    COMDEV    SI    CM
      158                            *  *J    0002      *0001    001    0
      159                            *
      160                            *        THE VARIOUS FIELDS ARE
      161                            *        A) MSGDEV = MESSAGE OUTPUT DEVICE(DEFAULT LINE PRINTER)
      162                            *        B) COMDEV = COMMUNICATION DEVICE (ALWAYS ASR/KSR)
      163                            *        C) SI = STATUS REPORT INTERVAL--SPECIFIES THAT THE
      164                            *                STATUS REPORT BE OUTPUT AFTER A SPECIFIED
      165                            *                 NUMBER OF PASSES THROUGH THE PROGRAM.
      166                            *        D) CM = CLOCK MARGIN----0 = NORMAL
      167                            *                                1 = FAST
      168                            *                                2 = SLOW
      169                            *                                A = NORMAL FIXED
      170                            *                                B = FAST FIXED
      171                            *                                C = SLOW FIXED
      172                            *        IF THE CLOCK MARGINS HAVE NOT BEEN FIXED(A,B OR C)
      173                            *        BY THE USER THE PROGRAM WILL AUTOMATICALLY CYCLE
      174                            *        THROUGH ALL MARGINS DURING TESTING.  NOTE
      175                            *        THAT CM SWITCH ON PCP WILL OVERRIDE ANY ATTEMPT
      176                            *        BY PROGRAM TO CHANGE CLOCK MARGINS.
      177                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE    6
A     178                                     PAGE                                                       *A02
      179                            *
      180                            * 3.    'K' DIRECTIVE----WHEN THE USER TYPES IN A 'K'
      181                            *           FOLLOWED BY AN INTERRUPT GROUP NUMBER, THE FOLLOWING LINE IS
      182                            *           DISPLAYED (EXAMPLE IS FOR K2):
      183                            *
      184                            *              INTERRUPT CONTROL PATTERN      INHIBIT BITS
      185                            *  GROUP      ARMED   TRIGGERED  ENABLED       CI  II  EI
      186                            *  *K2        0000       0000      0000                0
      187                            *
      188                            *        THE 16 BIT PATTERNS (FOUR HEX CHARACTERS) UNDER THE ARMED,
      189                            *        TRIGGERED, AND ENABLED HEADINGS REPRESENT THE 16 LEVELS WITHIN
      190                            *        EACH INTERRUPT GROUP.  THE INHIBIT BITS CORRESPOND TO THE
      191                            *        CORRESPONDING FIELDS WITHIN THE PSD.
      192                            *
      193                            *
      194                            * 4.    'P' DIRECTIVE----WHEN USER TYPES IN A P, THE FOLLOWING
      195                            *        LINE IS DISPLAYED:
      196                            *
      197                            *      CZ I/O 2  3  4  5  6  7  8  9  A  B  C  D  E  F
      198                            *      -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
      199                            *  *P  01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10
      200                            *
      201                            *        EACH FIELD REPRESENTS AN INTERRUPT GROUP AND ITS ASSUMED
      202                            *        PRIORITY IS DISPLAYED.  IF THE PARAMETER LINE IS NOT CALLED BY
      203                            *        THE USER, TEST #1201 WILL REPLACE THE INITIAL PRIORITIES
      204                            *        (SHOWN) BY THE RESULTS OF THE TEST AND THEN DISPLAY THE
      205                            *        RESULTS FOR VERIFICATION.
      206                            *                 CZ = COUNTER ZERO GROUP
      207                            *                 I/O= INPUT OUTPUT GROUP
      208                            *                 2-F= EXTERNAL GROUPS
      209                            *                   NOTE:  OVERRIDE GROUP IS NOT INCLUDED BECAUSE
      210                            *                              IT IS ALWAYS HIGHEST PRIORITY
      211                            *
      212                            *        ALL PRIORITIES MUST BE CONTIGUOUS (STARTING WITH HIGHEST = 1)
      213                            *        UNIMPLEMENTED GROUPS HAVE A PRIORITY OF ZERO
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE    7
A     214                                     PAGE                                                       *A02
      215                            *
      216                            * 5.    'T' DIRECTIVE---- WHEN THE USER TYPES IN A T THE
      217                            *        FOLLOWING PARAMETER LINE IS DISPLAYED:                     *A02
      218                            *
      219                            *      STRT/TST   STRT/SUB  STOP/TST   STOP/SUB   LOOPS
      220                            *  *T    1100    00000001    3101       00000FF    0000
      221                            *
      222                            *
      223                            *        STRT/TST AND STRT/SUB ARE ,RESPECTIVELY, THE STARTING
      224                            *        TEST AND SUBTEST NUMBERS.  KEY-IN OF A QUESTION MARK WHILE
      225                            *        IN THE T PARAMETER LINE WILL DISPLAY A LIST OF ALL TEST AND
      226                            *        SUBTEST RANGES.  THE STOP FIELDS ARE THE END OF TEST NUMBERS.
      227                            *        IF THE NUMBER OF LOOPS IS ZERO, THE PROGRAM WILL CONTINUE
      228                            *        TO LOOP ON THE RANGE SPECIFIED UNTIL STOPPED.  OTHERWISE
      229                            *        IT WILL LOOP THE NUMBER OF TIMES SPECIFIED AND THEN RETURN
      230                            *        TO THE 'GUIDE' IDLE STATE.
      231                            *
      232                            *        DIRECTIVES  CAN BE ENTERED AT ANY TIME.  THAT IS
      233                            *        WHEN PROGRAM IS IN THE RUN STATE (#) OR IN THE
      234                            *        IDLE STATE (%).
      235                            *
      236                            *
      237                            *
      238                            *        DISPLAY DIRECTIVES
      239                            *
      240                            *        THE FOLLOWING DIRECTIVES DISPLAY PERTINENT DATA ON COMMAND
      241                            *
      242                            *
      243                            * 6.   DE    DISPLAY ERROR TYPES---- WHEN THE USER
      244                            *        TYPES IN DE FOLLOWED BY ONE OR TWO NUMBERS (BETWEEN 1 AND FF)
      245                            *        THE ERROR TYPE EXPLANATION FOR THAT NUMBER OR RANGE OF
      246                            *        ERROR TYPES WILL BE DISPLAYED.  IN ADDITION TO THE ERROR TYPE,
      247                            *        THE ERROR FIELDS 1 THRU 4 ASSOCIATED WITH THAT TYPE WILL
      248                            *        BE EXPLAINED.  KEY-IN OF DE FOLLOWED BY RETURN WILL
      249                            *        DISPLAY ALL ERROR TYPE EXPLANATIONS.
      250                            *
      251                            *
      252                            * 7.   DH    DISPLAY HISTORY TABLE---- WHEN THE USER TYPES
      253                            *        IN DH , THE CONTENTS OF THE INTERRUPT HISTORY TABLE WILL BE
      254                            *        DISPLAYED.  THIS TABLE RECORDS THE NUMBER OF INTERRUPTS
      255                            *        EXPECTED IN ANY SUBTEST AND ALL INTERRUPTS THAT ACTUALLY OCCUR.
      256                            *        SINCE THIS TABLE IS CONSTANTLY CHANGING, IT HAS MEANING
      257                            *        ONLY AFTER THE PROGRAM HAS HALTED.  A COMPLETE EXPLANATION
      258                            *        OF THE TABLE IS AVAILABLE BY KEY-IN OF QUESTION MARK
      259                            *        AFTER THE DISPLAY.
      260                            *
      261                            *
      262                            * 8.   DI    DISPLAY INTERRUPT IMPLEMENTATION----WHEN THE USER TYPES IN
      263                            *        DI, THE DISPLAY WILL BE A LIST OF ALL INTERRUPT MODULES
      264                            *        THAT ARE IMPLEMENTED (LISTED BY GROUP AND LEVEL)
      265                            *        THIS IS THE SAME DISPLAY THAT IS PUT OUT AFTER TEST #11FF
      266                            *        IF PARAMETER LINE I WAS NOT ENTERED.
      267                            *
      268                            *
      269                            * 9.   DK    DISPLAY PATTERNS----WHEN THE USER TYPES IN DK,
      270                            *        THE CURRENT INTERRUPT TEST CONTROL PATTERNS ARE DISPLAYED.
      271                            *        THE DISPLAY IS IDENTICAL TO THE PARAMETER K OUTPUT.
      272                            *
      273                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE    8
A     274                                     PAGE                                                       *A02
      275                            *
      276                            * 10.  DQ    DISPLAY INTERRUPT HANDLER LINKAGES----WHEN THE
      277                            *        USER TYPES IN DQ FOLLOWED BY A INTERRUPT LOCATION (HEX) OR
      278                            *        A RANGE OF LOCATIONS, THE DISPLAY THAT RESULTS WILL GIVE:
      279                            *                 1. THE HEX CONTENTS OF THE INTERRUPT LOCATION
      280                            *                 2. THE CONTENTS OF THE STORED PSD (IF LOC'N HAS XPSD)
      281                            *                 3. THE CONTENTS OF THE NEW PSD (IF LOC'N HAS XPSD)
      282                            *                 4. THE ADDRESS (LISTING) OF THE INTERRUPT OR TRAP
      283                            *                     HANDLER FOR THAT LOCATION.
      284                            *                 5. THE LISTING MNEMONIC FOR THAT HANDLER.
      285                            *
      286                            *
      287                            *        EXAMPLE:    DQ>4C,55,   DISPLAYS THE ABOVE INFORMATION
      288                            *          FOR EACH OF THE LOCATIONS 4C (PARITY ERROR TRAP) THROUGH
      289                            *          55 (COUNTER 4 PULSE INTERRUPT).
      290                            *
      291                            *
      292                            *
      293                            *        SENSE SWITCH USAGE                                         *A02
      294                            *        ----- ------ -----                                         *A02
      295                            *                                                                   *A02
      296                            *        THIS PROGRAM USES STANDARD 'GUIDE' SENSE SWITCH MEANINGS:  *A02
      297                            *        SSW1 = 0     NO SHORT LOOP                                 *A02
      298                            *        SSW1 = 1     SHORT LOOP (LOOP ON CURRENT TEST              *A02
      299                            *                         WITHOUT ERROR CHECKING OR REPORTING)      *A02
      300                            *        SSW2 = 0     NO LONG LOOP                                  *A02
      301                            *        SSW2 = 1     LONG LOOP (LOOP ON CURRENT TEST - REPORT      *A02
      302                            *                       ALL ERRORS)                                 *A02
      303                            *        SSW3 = 0     HALT ON ERROR                                 *A02
      304                            *        SSW3 = 1     BYPASS HALT ON ERROR                          *A02
      305                            *                                                                   *A02
      306                            *        SSW4 = 0     DISPLAY ALL ERRORS                            *A02
      307                            *        SSW4 = 1     INHIBIT ERROR MESSAGES                        *A02
      308                            *                                                                   *A02
      309                            *                                                                   *B02
      310                            *                                                                   *B02
      311                            *             E. 'SS' DISPLAYS THE CURRENT STATE OF THE PSEUDO (SOFT*B02
      312                            *                  SENSE SWITCHES AND ALLOWS THEM TO BE ALTERED     *B02
      313                            *                  OR DISPLAYS THE STATE OF THE HARDWARE SWITCHES.  *B02
      314                            *                  A TYPICAL DISPLAY IS SHOWN BELOW:                *B02
      315                            *                                                                   *B02
      316                            *                 M     SW= 1  2  3  4                              *B02
      317                            *                 0         0  0  0  0                              *B02
      318                            *                                                                   *B02
      319                            *                 IF THE M FIELD IS A ZERO AT TIME OF DISPLAY,      *B02
      320                            *                 THE FIELDS OF SW REPRESENT THE STATUS OF THE      *B02
      321                            *                 PSEUDO (SOFTWARE) SENSE SWITCHES AND ARE ALTERABLE*B02
      322                            *                 WITHIN THE PARAMETER LINE.   IF THE USER WISHES TO*B02
      323                            *                 ALTER 'M' TO RETURN SENSE SWITCH CONTROL TO  THE  *B02
      324                            *                 PCP HE MAY ENTER A '1' FOLLOWED BY A N/L,         *B02
      325                            *                 OTHERWISE HE MAY BYPASS THE FIELD BY ENTERING     *B02
      326                            *                 AN 'EOM' OR A COMMA TO SPACE TO THE SW1 FIELD.    *B02
      327                            *                                                                   *B02
      328                            *                  IF THE USER WISHES TO CHANGE THE SSW1 SETTING HE *B02
      329                            *                  ENTER A '1' , OTHERWISE HE MAY ENTER A COMMA TO  *B02
      330                            *                  SELECT THE NEXT FIELD. ONLY '0' OR '1' MAY BE ENT*B02
      331                            *                  TO INDICATE RESET AND SET RESPECTIVELY.          *B02
      332                            *                  ENTERING A N/L WILL ACCEPT THE LINE AS ALTERED.  *B02
      333                            *                  KEYIN OF A '<' CHARACTER WILL RESET THE LINE BACK*B02
      334                            *                  THE FIRST FIELD (ALTERATIONS INTACT).  KEYIN OF A*B02
      335                            *                  SECOND '<' CHAR. AT THIS POINT WILL RESET THE LIN*B02
      336                            *                  TO ITS ORIGINAL VALUES.                          *B02
      337                            *                  AN 'EOM' CHARACTER PERFORMS THE FUNCTION OF A ','*B02
      338                            *                  EXCEPT IT DISPLAYS THE CONTENTS OF A 'SPACED OVER*B02
      339                            *                  FIELD WHILE THE COMMA DOES NOT.                  *B02
      340                            *                                                                   *B02
      341                            *                 IF THE M FIELD IS A '1' (DEFAULT) AT THE TIME OF  *B02
      342                            *                 DISPLAY, IT MEANS THE PCP SENSE SWITCHES ARE IN US*B02
      343                            *                 AND THE SW FIELDS ARE ONLY A DISPLAY.             *B02
      344                            *                  STANDARD SENSE SWITCH MEANINGS:                  *B02
      345                            *                       SW1=0  NO SHORT LOOP                        *B02
      346                            *                       SW1=1  SHORT LOOP (LOOP ON TEST WITHOUT     *B02
      347                            *                               ERROR CHECKING OR REPORTING)        *B02
      348                            *                       SW2=0  NO LONG LOOP                         *B02
      349                            *                       SW2=1  LONG LOOP (LOOP ON TEST - REPORT     *B02
      350                            *                                ALL ERRORS)                        *B02
      351                            *                       SW3=0  HALT ON ERROR                        *B02
      352                            *                       SW3=1  BYPASS THE HALT ON ERROR             *B02
      353                            *                       SW4=0  DISPLAY ERROR REPORTS                *B02
      354                            *                       SW4=1  INHIBIT ERROR REPORT DISPLAY         *B02
      355                            *                                                                   *B02
      356                            *                 GUIDE PLACES THE SENSE SWITCH INFORMA-            *B02
      357                            *                 TION IN LABEL #SENSE AT X'392'(LEFT-MOST)         *B02
      358                            *                 FOR MOST INTERFACING DIAGNOSTICS THE USER         *B02
      359                            *                 WILL HAVE TO MANUALLY CLEAR X'392' TO             ::
      360                            *                 EXIT A SHORT LOOP(SW1=1).                         ::
      361                            *                                                                   ::
      362                            *                     AND INSTRUCTIONS ON THE USE OF GUIDE.         *A02
      363                            *
      364                            *
      365                            *        AFTER A '#' HAS BEEN ENTERED THE PROGRAM STARTS
      366                            *        EXECUTING THE TESTS.
      367                            *
      368                            *         THE PSD TO BE USED IS IN LOCATIONS 'RUNADDR' AND 'RUNADDR'+1
      369                            *         (THE ADDRESS OF RUNADDR IS IN CORE LOCATION 3CA)
      370                            *        THE REGISTERS ARE SAVED AT THE 10 (HEX) LOCATIONS
      371                            *           PRECEEDING THE PSD.
      372                            *
      373                            *
      374                            *
      375                            *        IF AN ERROR OCCURS AND SENSE SWITCH 3 IS RESET
      376                            *        THE FOLLOWING MESSAGE IS TYPED OUT ON THE TELETYPE
      377                            *        AND THEN THE PROGRAM 'HALTS'(I.E. ENTERS THE IDLE STATE)
      378                            *
      379                            *
      380                            *    ***ERROR HALT***
      381                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE    9
A     382                                     PAGE                                                       *A02
      383                            *
      384                            *        IN THE EVENT OF LOSS OF PROGRAM CONTROL THE
      385                            *        PROGRAM CAN BE RESTARTED BY PRESSING THE SYSTEM
      386                            *        RESET BUTTON AND SETTING COMPUTE SWITCH BACK TO RUN.
      387                            *        ON DOING THIS THE FOLLOWING MESSAGE IS OUTPUT.
      388                            *
      389                            *        ABSOLUTE RECOVERY.  CLEAR PARAMETERS  %=
      390                            *
      391                            *
      392                            *        THE USER MUST THEN ENTER A Y,N, OR 'QUEST. MARK'.
      393                            *        ONCE THE USER TAKES APPROPRIATE ACTION ON THE
      394                            *        ABOVE REQUEST THE PROGRAM STARTS EXECUTING THE
      395                            *        TESTS FROM THE BEGINNING.
      396                            *        NOTE THAT IF A 'N' IS ENTERED THE ERROR COUNTERS,
      397                            *        (FOR DIFFERENT TYPES OF TEST) PASS COUNT AND THE
      398                            *        PARAMETERS WHICH CAN CONTROL THE PROGRAM ARE
      399                            *        NOT INITIALIZED.
      400                            *        ENTERING A 'Y' RESTORES THE PROGRAM TO CONDITIONS AS
      401                            *        NEARLY IDENTICAL AS POSSIBLE TO THOSE EXISTING WHEN THE
      402                            *        PROGRAM WAS FIRST LOADED.
      403                            *
      404                            *
      405                            *
      406                            *
      407                            *
      408                            *        TERMINATION PROCEDURE
      409                            *        ----------------------------
      410                            *
      411                            *        ONCE STARTED,THE PROGRAM RUNS CONTINUOUSLY UNTIL
      412                            *        AN ERROR OCCURS(SW3 SET TO 0).THE PROGRAM CAN BE
      413                            *        TERMINATED BY THE USER AT ANY TIME.
      414                            *
      415                            *
      416                            *
      417                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   10
A     418                                     PAGE                                                       *A02
      419                            *
      420                            *        SUCCESS/FAILURE INDICATIONS
      421                            *        ----------------------------
      422                            *
      423                            *        SUCCESS INDICATIONS ARE VIA THE ABSENCE OF ANY
      424                            *        ERRORS.AT THE END OF THE FIRST PASS OF THE
      425                            *        PROGRAM A STATUS REPORT IS OUTPUT AUTOMATICALLY.
      426                            *        THEREAFTER IT IS OUTPUT EVERY 'XX' NUMBER OF
      427                            *        PASSES WHERE XX IS THE VALUE OF THE STATUS REPORT
      428                            *        INTERVAL OF THE 'J' PARAMETER LINE.(DEFAULT=1).
      429                            *        THE FORMAT OF THE STATUS REPORT IS AS FOLLOWS
      430                            *
      431                            *  %COMPLETED TST=3101      FFF=SUBTST     1=PASS CM=0 ERRORS=0001/0003
      432                            *
      433                            *        %= OPERATING MODE AT TIME OF REQUEST
      434                            *
      435                            *        TST AND SUBTST = NUMBER OF LAST SUBTEST COMPLETED
      436                            *
      437                            *        PASS= PASS NUMBER FOR LAST COMPLETED SUBTEST
      438                            *
      439                            *        CM= CLOCK MARGIN USED ON LAST COMPLETED SUBTEST
      440                            *
      441                            *        ERRORS = ERRORS ON PASS / ERRORS SINCE LOADING (OR RECOVERY)
      442                            *
      443                            *        CONTROL RETURNS TO LAST OPERATING MODE AFTER DISPLAY
      444                            *
      445                            *
      446                            *        THE USER CAN FORCE A STATUS REPORT AT ANY TIME BY
      447                            *        ENTERING A '&' FROM THE TELETYPE.
      448                            *
      449                            *
      450                            *        WAITS   ----THERE ARE NO PROGRAMMED WAITS IN
      451                            *                     THIS PROGRAM.
      452                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   11
A     453                                     PAGE                                                       *A02
      454                            *
      455                            * CORE MEMORY ASSIGNMENTS OF FIRST 512 WORDS
      456                            *
      457                            *    LOCATION (HEX)        FUNCTION
      458                            *
      459                            *      0 ...   F        GENERAL REGISTERS
      460                            *     10 ...  1F        NOT USED
      461                            *     20 ...  21        CPU/IOP COMMUNICATION
      462                            *     22 ...  3F        LOADER
      463                            *     40                NONALLOWED OPERATION TRAP
      464                            *     41                UNIMPLEMENTED INSTRUCTION TRAP
      465                            *     42                PUSH DOWN STACK LIMIT TRAP
      466                            *     43                FIXED POINT OVERFLOW TRAP
      467                            *     44                FLOATING POINT FAULT TRAP
      468                            *     45                DECIMAL ARITHMETIC FAULT TRAP
      469                            *     46                WATCHDOG TIMER TRAP
      470                            *     47                NOT USED
      471                            *     48 ...  4B        CALL TRAPS
      472                            *     4C                CPU FAULT TRAP
      473                            *     4D                INSTRUCTION EXCEPTION FAULT TRAP
      474                            *
      475                            *                       INTERRUPTS
      476                            *
      477                            *     50 ...  51        POWER ON AND OFF     (NOT TESTED)
      478                            *     52                COUNTER 1 COUNT PULSE (OPTIONAL)   OVR  0/0
      479                            *     53                COUNTER 2 COUNT PULSE (OPTIONAL)   OVR  0/1
      480                            *     54                COUNTER 3 COUNT PULSE              OVR  0/2
      481                            *     55                COUNTER 4 COUNT PULSE              OVR  0/3
      482                            *     56                PROCESSOR FAULT                    OVR  0/4
      483                            *     57                MEMORY FAULT                       OVR  0/6
      484                            *     58                COUNTER 1 ZERO       (OPTIONAL)    CZ   0/5
      485                            *     59                COUNTER 2 ZERO       (OPTIONAL)    CZ   0/7
      486                            *     5A                COUNTER 3 ZERO                     CZ   0/8
      487                            *     5B                COUNTER 4 ZERO                     CZ   0/9
      488                            *     5C                INPUT/OUTPUT                       I/O  0/A
      489                            *     5D                CONTROL PANEL                      I/O  0/B
      490                            *     5E ...  5F        NOT USED                           I/O  0/C&D
      491                            *     60 ...  6F        EXTERNAL GROUP 2
      492                            *     70 ...  7F        EXTERNAL GROUP 3
      493                            *     80 ...  8F        EXTERNAL GROUP 4
      494                            *     90 ...  9F        EXTERNAL GROUP 5
      495                            *     A0 ...  AF        EXTERNAL GROUP 6
      496                            *     B0 ...  BF        EXTERNAL GROUP 7
      497                            *     C0 ...  CF        EXTERNAL GROUP 8
      498                            *     D0 ...  DF        EXTERNAL GROUP 9
      499                            *     E0 ...  EF        EXTERNAL GROUP A
      500                            *     F0 ...  FF        EXTERNAL GROUP B
      501                            *    100 ... 10F        EXTERNAL GROUP C
      502                            *    110 ... 11F        EXTERNAL GROUP D
      503                            *    120 ... 12F        EXTERNAL GROUP E
      504                            *    130 ... 13F        EXTERNAL GROUP F
      505                            *
      506                            *
      507                            *  THE REGISTER PATTERN FOR LEVELS IS:
      508                            *
      509                            *        0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F
      510                            *        **********  **********  **********  **********
      511                            *       1 ST HEX#    2 ND HEX#   3 RD HEX#   4 TH HEX#
      512                            *
      513                            *
      514                            *
      515                                     OPEN     TITLE
      516         00000000           TITLE    CNAME
      517                                     PROC
      518                                     PEND
      519                             SPACE 1

      520                            *
      521                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      522                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      523                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      524                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      525                            *        IN THE MACHINE WORD.
      526                            *
      527                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      528                            *
      529                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      530                            *
      531                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      532                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      533                            *                  EXECUTION LOCATION COUNTER;
      534                            *
      535                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      536                            *
      537                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      538                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      539                            *                  'EBCDIC'.
      540                            *
      541         00000000           #HTECON  CNAME
      542                                     PROC
      543                            *
      544                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      545                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      546                            *
      547                                     ERROR,0,NUM(AF)~=1 ;
      548                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      549                            *
      550                            *
      551                            LF       BAL,X6     *#HTE%
      552                                     GEN,10,22  0,AF(1)
      553                            *
      554                                     PEND
      555                            *
      556                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      557                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      558                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      559                            *
      560                            *        RETURN IS TO THE PROCEDURE REFERENCE
      561                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      562                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      563                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      564                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      565                            *        OF THE LOAD MULTIPLE INSTRUCTION.  TO FETCH ONLY
      566                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   12
A     567                                     PAGE
      568                            *
      569                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      570                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      571                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      572                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      573                            *        IF THE CHARACTER STRING TO BE CONVERTED
      574                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      575                            *        THE REGISTERS USED MUST NOT
      576                            *        INCLUDE THE LINK REGISTER.
      577                            *
      578                            *
      579                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      580                            *
      581                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      582                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      583                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      584                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      585                            *                          ( MUST BE BETWEEN 0 AND 3 )
      586                            *                 ERRETN=  ADDRESS UPON WHICH 'GUIDE' WILL BRANCH
      587                            *                           INDIRECTLY IF ANY 'EBCDIC' CHARACTER IS
      588                            *                           NOT IN THE HEXADECIMAL CONVERSION TABLE.
      589                            *
      590                            *                           IF AF(3) IS NOT ENTERED, OR IS NOT AN
      591                            *                           ADDRESS, A RETURN TO THE PROGRAM ERROR
      592                            *                           REPORTER WILL BE GENERATED.
      593                            *
      594         00000000           #ETHCON  CNAME
      595                                     PROC
      596                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      597                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      598                            *
      599                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      600                            A        SET      0
      601                            *
      602                            *
      603                                     ERROR,0,A~=CF(2) ;
      604                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      605                            *
      606                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      607                            *
      608                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      609                            B        SET      0
      610                            *
      611                            *
      612                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      613                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      614                            *
      615                            *
      616                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      617                             (AF(1)=X3))     ;
      618                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      619                            *
      620                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      621                            *
      622                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      623                             |(AF(3)=X3))&NUM(AF)>2
      624                            *
      625                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      626                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      627                            *
      628                            E        SET      C|D               'OR' THE RESULTS
      629                            *
      630                            LF       BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      631                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      632                            *
      633                                     GEN,8,22,2  A,AF(1),B
      634                            *
      635                                     ELSE                       RELOCATABLE ADDRESS
      636                            *
      637                                     GEN,8,24     A,BA(AF(1))+B
      638                            *
      639                                     FIN
      640                            *
      641                            *
      642                                     DO       (NUM(AF)=3)&TCOR(S:UFV(AF(3)),S:RAD)&(E=0)
      643                            *
      644                                     GEN,32   AF(3)
      645                            *
      646                                     XPSD,0   *#ERR1PTR%        INSTRUCTION EXECUTED AS A RESULT
      647                            *                                   OF NOT FINDING A MATCH IN THE
      648                            *                                   HEXADECIMAL CONVERSION TABLE.
      649                            *
      650                                     FIN
      651                            *
      652                                     PEND
      653                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   13
A     654                                     PAGE
      655                             SPACE 1

      656                            *
      657         00000002           #PRINT   CNAME    2,#PRINTER%
      658         00000001           #TYPE    CNAME    1,#TYPER%
      659                                     PROC
      660                            *
      661                            *
      662                                     LOCAL    A
      663                            *
      664                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      665                             '**CF(2) MUST BE POSITIVE INTEGER**'
      666                            *
      667                                     ERROR,0,NUM(CF)>3 ;
      668                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      669                            *
      670                                     ERROR,0,NUM(AF)>NAME(1) ;
      671                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      672                            *
      673                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      674                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      675                            *
      676                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      677                            *
      678                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      679                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      680                            *
      681                                     ERROR,0,A=0  ;
      682                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      683                            *
      684                                     ELSE
      685                            *
      686                            A        SET      0
      687                            *
      688                                     FIN
      689                            *
      690                            *
      691                            *
      692                            *
      693                            LF       BAL,LINK    SAVE%CLKS                                      *A02
      694                                     BAL,LINK    *NAME(2)                                       *A02
      695                            *
      696                            *
      697                            *  OUTPUT ONE LINE TO KSR - NO COMPRESSION                          *A01
      698                            *                                                                   *A01
      699                                     DO       NUM(CF)=1&NAME(1)=1
      700                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      701                            *                                                                   *A01
      702                            *  OUTPUT ONE LINE TO LP - NO COMPRESSION                           *A01
      703                            *    AF2= OUTPUT FORMAT CODE                                        *A01
      704                            *           (DEFAULT = C0)                                          *A01
      705                                     ELSE
      706                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      707                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      708                                     ELSE
      709                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      710                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      711                            *                                                                   *A01
      712                            *  OUTPUT MORE THAN ONE LINE - NO COMPRESSION                       *A01
      713                            *    CF2= NUMBER OF LINES (TEXTC'S) TO OUTPUT                       *A01
      714                            *           (DEFAULT = 1)                                           *A01
      715                            *                                                                   *A01
      716                                     ELSE
      717                                     DO       NUM(CF)=2&CF(2)>0
      718                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      719                                     ELSE
      720                                     DO       NUM(CF)=2&CF(2)=0
      721                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      722                                     ELSE
      723                            *                                                                   *A01
      724                            *  OUTPUT  MORE THAN ONE LINE OF TEXT - COMPRESSED                  *A01
      725                            *                                                                   *A01
      726                                     DO       NUM(CF)>2&CF(2)>0
      727                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      728                                     ELSE
      729                            *                                                                   *A01
      730                            *  OUTPUT ONE LINE OF TEXT - COMPRESSED                             *A01
      731                            *                                                                   *A01
      732                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      733                                     FIN
      734                                     FIN
      735                                     FIN
      736                                     FIN
      737                                     FIN
      738                                     FIN
      739                            *
      740                                     BAL,LINK    RESTORE%CLKS                                   *A02
      741                            *
      742                                     PEND
      743                            *
      744         000000C0           C0       EQU     X'C0'
      745         000000C1           C1       EQU     X'C1'
      746         000000C2           C2       EQU     X'C2'
      747         000000C3           C3       EQU     X'C3'
      748         000000C4           C4       EQU     X'C4'
      749         000000C5           C5       EQU     X'C5'
      750         000000C6           C6       EQU     X'C6'
      751         000000C7           C7       EQU     X'C7'
      752         000000D0           D0       EQU     X'D0'
      753         000000D1           D1       EQU     X'D1'
      754         000000D2           D2       EQU     X'D2'
      755         000000D3           D3       EQU     X'D3'
      756         000000D4           D4       EQU     X'D4'
      757         000000D5           D5       EQU     X'D5'
      758         000000D6           D6       EQU     X'D6'
      759         000000D7           D7       EQU     X'D7'
      760         000000D8           D8       EQU     X'D8'
      761         000000F1           F1       EQU     X'F1'
      762         000000F2           F2       EQU     X'F2'
      763                                     SPACE    4




      764                            *
      765         00000000           TEXTCS   CNAME
      766                                     PROC
      767                                     DISP     %
      768                                     LIST     0
      769                            LF       TEXTC    AF
      770                                     LIST     1
      771                                     PEND
      772                            *
      773                            *
      774                                     SPACE    5                                                 *B00





      775         00000000           CHECK    CNAME                                                      *B00
      776                                     PROC                                                       *B00
      777                            LF       DATA     AF(1)                                             *B00
      778                                  ERROR,7,AF(1)<0 'PROGRAM BEYOND LIMIT'                        *B00
      779                                     PEND                                                       *B00
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   14
A     780                                              PAGE
      781                            * THESE PROCEDURES LOAD HEX CHARACTERS FROM THE ADDRESS IN REGISTER X1
      782                            *        (BA,HA,OR WA), CONVERT THEM TO EBCDIC, AND LOAD THEM IN
      783                            *        THE OUTPUT BUFFER WITH THE LEAST SIGNIFICANT CHARACTER IN
      784                            *        THE POSITION SPECIFIED BY AF(2)
      785                            *        CF(2) IF PRESENT, LOADS X1
      786                            * LIMITS:         AF(1)             BYTE 1-2, HALFWORD 1-4, WORD 1-8
      787                            *                 AF(2)             1-71
      788                            *                 AF(3)             LOADBUF    OR STRIPZ
      789                            *                 CF(2)            ANY WA,HA, OR BA
      790                            *
      791         01 023A8           LOADWORD CNAME    LOADW             LOAD WORD
      792         01 023A2           LOADBYTE CNAME    LOADB             LOAD BYTE
      793         01 0239E           LOADHALF CNAME    LOADH             LOAD HALFWORD
      794                                     PROC
      795                            *
      796                            LF       RES      0
      797                                     DO       NUM(CF)=2
      798                                     LI,X1    CF(2)
      799                                     FIN
      800                                     BAL,LINK NAME
      801                                     GEN,4,7,21   AF(1),AF(2),AF(3)
      802                            *
      803                                     ERROR,0,NUM(AF(1))=0 'AF(1) MISSING'
      804                                     ERROR,0,NUM(AF(2))=0 'AF(2) MISSING'
      805                                     ERROR,0,NUM(AF(3))=0 'AF(3) MISSING'
      806                                     ERROR,0,AF(1)>AF(2)           'AF(1) > AF(2)'
      807                                     PEND
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   15
A     808                                     PAGE
      809                            *
      810                            *THIS PROCEDURE LOADS 1-71 HEX CHARACTERS FROM EBCBUF
      811                            *        INTO OUTBUF WITH THE LEAST SIGNIFICANT CHARACTER
      812                            *        IN THE POSITION IN THE BUFFER AS SPECIFIED BY AF(2)
      813                            *
      814         00000000           BUFFER   CNAME
      815                                     PROC
      816                            *
      817                            LF       LI,RC    AF(1)             INSERT NO. OF CHARACTERS
      818                                     LI,RD    AF(2)             INSERT LOCATION IN BUFFER
      819                                     BAL,LINK AF(3)             STORE IN OUTBUF
      820                            *
      821                                     ERROR,0,NUM(AF(1))=0 'AF(1) MISSING'
      822                                     ERROR,0,NUM(AF(2))=0 'AF(2) MISSING'
      823                                     ERROR,0,NUM(AF(3))=0 'AF(3) MISSING'
      824                                     ERROR,0,AF(1)>AF(2)           'AF(1) > AF(2)'
      825                                     PEND
      826                            *
      827                            *
      828                            *
      829                            *    THE FOLLOWING PROCS ARE USED TO HANDLE COMPRESSED TEXTS
      830                            *
      831                            *
      832         00000000           T        CNAME
      833                            *
      834                            *   THIS PROC IS USED TO BUILD THE DICTIONARY OF MESSAGE FRAGMENTS
      835                            *        EACH FRAGMENT IS A TEXT STRING ON A BYTE BOUND
      836                            *
      837                                     PROC
      838                                     LOCAL    I
      839                            I        SET      S:NUMC(AF(1))
      840                            LF       SET      %
      841                                     GEN,8*I  AF(1)
      842                                     PEND
      843                            *
      844         00000000           DP       CNAME
      845                            *
      846                            *   THIS PROC IS USED TO BUILD A HALF WORD TABLE OF POINTERS TO THE
      847                            *     THE MESSAGE FRAGMENT DICTIONARY.   EACH HALFWORD CONSISTS OF TWO PARTS
      848                            *     THE MOST SIG. 4 BITS IS A COUNT OF THE # OF CHARACTERS IN THE
      849                            *     THE FRAGMENT (0=16).  THE LEAST SIG. 12 BITS IS THE BYTE
      850                            *     POSITION OF THE FIRST CHAR. OF THE FRAGMENT RELATIVE TO THE START
      851                            *     OF THE DICTIONARY.
      852                            *
      853                                     PROC
      854                                     LOCAL    I
      855                            I        SET      S:NUMC(AF(1))
      856                            LF       GEN,4,12 I,AF(2)-DT
      857                                     PEND
      858                            *
      859         00000000           MSGX     CNAME
      860                            *
      861                            *   THIS PROC BUILDS THE COMPRESSED MESSAGES.  EACH LABEL IN THE
      862                            *     ARGUEMENT FIELD REFERENCES A HALF WORD IN THE DISPLACEMENT
      863                            *     TABLE (DP PROC).   THE CODE GENERATED IS THE FRAGMENTS RELATIVE
      864                            *     POSITION IN THE TABLE.   IF MORE THAN 252 FRAGMENTS ARE DEFINED,
      865                            *     EXTENSION TABLES ARE BUILT.   INSTEAD OF ONE BYTE, EACH
      866                            *     FRAGMENT IN AN EXTENSION TABLE GENERATES TWO BYTES
      867                            *        (THE FIRST BYTE IS A FLAG DEFINING WHICH EXTENSION TABLE)
      868                            *
      869                                     PROC
      870                                     LOCAL    I,J
      871                            LF       GEN,8    AF(1)
      872                                     GEN,8    NUM(AF)
      873                            I        DO       NUM(AF)-1
      874                            J        SET      I+1
      875                                     DO       AF(J)-DAT<252
      876                                     GEN,8    AF(J)-DAT
      877                                     ELSE
      878                                     DO       AF(J)-DAT<508
      879                                     GEN,8,8  X'FF',AF(J)-DAT-252
      880                                     ELSE
      881                                     DO       AF(J)-DAT<764
      882                                     GEN,8,8  X'FE',AF(J)-DAT-508
      883                                     ELSE
      884                                     GEN,8    X'FC'
      885                                     FIN
      886                                     FIN
      887                                     FIN
      888                                     FIN
      889                                     PEND
      890                            *
      891         00000000           SEND     CNAME
      892                            *
      893                            *   THIS PROC IS USED TO BRING THE CONTENTS OF A SINGLE LINE OF
      894                            *     TEXT INTO THE USERS OUTPUT BUFFER (OUTBUF) IN A
      895                            *     DECOMPRESSED FORM SO THAT IT MAY BE ALTERED BEFORE PRINTOUT
      896                            *
      897                                     PROC
      898                            LF       BAL,X6   DECOM%U
      899                                      DATA     ABSVAL(BA(AF(1)))
      900                                     PEND
      901                            *
      902                            *********************************************
      903                                     SYSTEM   SIG9P
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   16
A     904                                     PAGE
      905                            *********************************************
      906                            *
      907                            *
      908   01 00392                 #TABLE1A   ORG    X'392'            THIS TABLE IS USED BY THE USER
            01 00392
      909         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      910         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      911         01 00394           #LOADFLAG  EQU    %+2
      912         01 00396           #TOADDR    EQU    %+4
      913         01 00397           #PRTADDR   EQU    %+5
      914         01 00399           #OUTPTR    EQU    %+7
      915         01 0039A           #PAKDEX    EQU    %+8
      916         01 0039B           #INDEX     EQU    %+9
      917         01 0039C           #PARAM%H1 EQU     %+10
      918         01 0039D           #PARAM%H2 EQU     %+11
      919         01 0039E           #PARAM%H3 EQU     %+12
      920         01 0039F           #PARAM%H4 EQU     %+13
      921         01 003A0           #TESTINIT EQU     %+14
      922         01 003A1           #STATUS   EQU     %+15
      923                            *
      924         01 003A2           #PARAM1  EQU      %+16
      925         01 003A4           #PARAM2  EQU      %+18
      926         01 003A6           #PARAM3  EQU      %+20
      927         01 003A8           #PARAM4  EQU      %+22
      928         01 003AA           #MAXMEM   EQU     %+24
      929         01 003AB           #SAMPLE  EQU      %+25                                              *A02
      930         01 003AC           #BRKOUT  EQU      %+26
      931                            *
      932                            ************
      933                            *
      934                            *
      935   01 003C2                 #TABLE1B   ORG    X'3C2'            THIS TABLE IS USED BY USER
            01 003C2
      936         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      937         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      938         01 003C4           #BTE%      EQU    %+2
      939         01 003C5           #DISUSER%  EQU    %+3
      940         01 003C6           #ENUSER%   EQU    %+4
      941                            *
      942         01 003C8           #GUIDE%    EQU    %+6
      943         01 003C9           #FIDLE%    EQU    %+7
      944         01 003CA           #RUNADDR%  EQU    %+8
      945         01 003CB           #RETURN%   EQU    %+9
      946         01 003CC           #TYPER%    EQU    %+10
      947         01 003CD           #PRINTER%  EQU    %+11
      948         01 003CE           #ERRTEXT%  EQU    %+12
      949         01 003D0           #ERR1PTR%  EQU    %+14
      950         01 003D2           #VALTAB% EQU      %+16
      951         01 003D4           #P%MODE%  EQU     %+18
      952         01 003D5           #GUIDEBUF EQU     %+19
      953         01 003D7           #S%MODE% EQU      %+21
      954         01 003D8           #COCSTATE% EQU    %+22
      955                            *
      956                            *
      957                            *
      958                            ************
      959                            *
      960                            *
      961                            *                **********
      962                                     TITLE    '                    EQUATE STATEMENTS'              *
      963                            *
      964                            *
      965                            **********************************************************************
      966                            *   READ DIRECT CODES
      967                            **********************************************************************
      968                            *  INTERRUPT CONTROLS
      969                            **********************
      970                            *
      971         00001200           WAIT:ACT EQU      X'1200'           WAITING OR ACTIVE    I(S)
      972         00001100           ARM:WAIT EQU      X'1100'           ARMED OR WAITING     I(P)
      973                            * ENBL   EQU      X'1400'           ENABLED              I(N)
      974                            *
      975                            *  INTERNAL CONTROLS
      976                            *********************
      977                            *MARGINS  EQU     X'45'             READ MARGIN SETTINGS
      978                            *
      979                            **********************************************************************
      980                            ***  WRITE DIRECT CODES                              I(S) I(P) I(N)
      981                            **********************************************************************
      982                            *  INTERRUPT CONTROLS
      983                            **********************
      984                            *
      985         00001000           ACTIVATE EQU      X'1000'          SELECTED LEVELS =  1    0    X
      986         00001100           DISARM   EQU      X'1100'          SELECTED LEVELS =  0    0    X
      987         00001200           ARME     EQU      X'1200'          SELECTED LEVELS =  0    1    1
      988         00001300           ARMD     EQU      X'1300'          SELECTED LEVELS =  0    1    0
      989         00001400           ENBL     EQU      X'1400'          SELECTED LEVELS =  X    X    1
      990         00001500           DISABLE  EQU      X'1500'          SELECTED LEVELS =  X    X    0
      991         00001600           ENBLDIS  EQU      X'1600'          SELECTED LEVELS =  X    X    1
      992                            *                             NOT SELECTED LEVELS  =  X    X    0
      993         00001700           TRIG     EQU      X'1700'          SELECTED LEVELS =  1    1    X
      994                            *                                   (IF PREVIOUSLY ARMED)
      995                            *  INTERNAL CONTROLS
      996                            *********************
      997         00000048           INHIBIT  EQU      X'48'             LOAD PSD WITH INT. INHIBITS
      998         00000045           MARGINS  EQU      X'45'             SET CLOCK MARGIN
      999                            *
     1000                            **********************************************************************
     1001                            *   REGISTER USAGE
     1002                            **********************************************************************
     1003                            *
     1004         00000000           R0       EQU      0                 GENERAL REGISTER 0
     1005         00000001           X1       EQU      1                 INDEX REGISTER # 1
     1006         00000002           X2       EQU      2                                # 2
     1007         00000003           X3       EQU      3                                # 3
     1008         00000004           X4       EQU      4                                # 4
     1009         00000005           X5       EQU      5                                # 5
     1010         00000006           X6       EQU      6                                # 6
     1011         00000007           X7       EQU      7                                # 7
     1012         00000008           R8       EQU      8                 WORKING REGISTER (EVEN)
     1013         00000009           R9       EQU      9                                  (ODD)
     1014         0000000A           RA       EQU      10
     1015         0000000B           RB       EQU      11
     1016         0000000C           RC       EQU      12                LINK DATA REGISTER # 1
     1017         0000000D           RD       EQU      13                                   # 2
     1018         0000000E           RE       EQU      14                                   # 3
     1019         0000000F           RF       EQU      15
     1020         00000006           LINK     EQU      6                 SUBROUTINE LINKING REGISTER
     1021         00000002           GRP      EQU      2                 REGISTER FOR INTERRUPT GROUP #
     1022         00000003           LVL      EQU      3                 REGISTER FOR INTERRUPT LEVEL #
     1023         0000000A           LOG      EQU      10                TEMPORARY ERROR LOG
     1024                            *
     1025                            *
     1026                            *
     1027                            *
     1028                            **************:
     1029                            *
     1030                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
     1031                            *
     1032   01 003E5                          ORG      X'3E5'
            01 003E5
     1033                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
     1034   01 003E5    00       A   VALBIT   DATA,1   ,,,4                   (1 BYTE EACH)
            01 003E5 1  00       A
            01 003E5 2  00       A
            01 003E5 3  04       A
     1035                            *
     1036   01 003E7                          ORG      X'3E7'
            01 003E7
     1037                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
     1038         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
     1039   01 003E7    00       A            DATA,1   ,,,-15
            01 003E7 1  00       A
            01 003E7 2  00       A
            01 003E7 3  F1       A
     1040                            *
     1041   01 003EC                          ORG      X'3EC'
            01 003EC
     1042         01 003EC           VALTYPE  EQU      %
     1043   01 003EC                          RES      3
     1044   01 003EF    0F00B1C4              GEN,8,24  15,BA(VALTABLE)
     1045                            *
     1046                            *
     1047                            ************
     1048                            *
     1049   01 003F0                          ORG      X'3F0'
            01 003F0
     1050         01 003F0           #DCA     EQU      %
     1051   01 003F0    00000000 A            DATA     0,0                                               *B00
            01 003F1    00000000 A
     1052   01 003F2    00000000 A   TESTNO   DATA     0                 CURRENT TEST NUMBER             *B00
     1053   01 003F3    00000000 A   PATTNO   DATA     0                 CURRENT SUBTEST NUMBER          *B00
     1054   01 003F4                          RES      4                                                 *B00
     1055   01 003F8    00000002 A   COCGRP   DATA     2                 INTERRUPT GROUP NO. OF COC INTS.*B00
     1056   01 003F9    FFFF3FFF A   COCMASK  DATA     X'FFFF3FFF'       COMPLEMENT OF COC LEVEL PATTERN *B00
     1057                            *                                     (DEFAULT = LVL 0 & 1)         *B00
     1058                            *                                                                   *B00
     1059                            *                                                                   *B00
     1060                            *************
     1061                            *
     1062                            *
     1063   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
     1064   01 01000    00001010     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
     1065   01 01001    00002A05     #TABLE3@   DATA   TABLE3
     1066   01 01002    00002A67     #PLINEIN@  DATA   PLINEIN
     1067   01 01003    40000000 A   #DIAG@   DATA     X'40000000'
     1068   01 01004    00000000 A   #LOADER@ DATA     0
     1069   01 01005                          RES      2
     1070   01 01007    00001E65     #DECOMP@ DATA     DECOM%G
     1071                            *
     1072                            *
     1073                            *
     1074                            *
     1075                            ************                 **********
     1076                            *                            PREFFERED AREA TO BE USED
     1077                            *                            FOR USER PROGRAM FORM TABLES.
     1078                            *                            NOT MANDATORY BUT DESIRABLE
     1079         00000004           H          COM,8,8,8,8   AF                                         *B03
     1080         00000004           E          COM,8,8,16    AF                                         *B03
     1081         00000004           L          COM,3,2,3,5,3,1,3,3,3,3,3  AF                            *B03
     1082         00000004           P          COM,8,2,6,16  AF                                         *B03
     1083                            *
     1084                            *
     1085                            *
     1086                            *
     1087                            ************
     1088                            *
     1089                            *
     1090                            *
     1091                            *************************************
     1092                                     TITLE    'INITIALIZATION ROUTINE'
     1093                            *************************************
     1094                            *
     1095   01 01010                          ORG      X'1010'
            01 01010
     1096                            *
     1097   01 01010    02200000 A   INITIAL  LCI      0                 SAVE REGISTERS
     1098   01 01011    2B002AEC              STM,0    SAVE#2
     1099   01 01012    22802A43              LI,R8    ACTIVELVL         INITIALIZE:
     1100   01 01013    22102ABD              LI,X1    LEVNINH+7                   VARIABLE CONSTANTS    *A01
     1101   01 01014    38100008 A            SW,X1    R8                             BETWEEN 'ACTIVELVL'
     1102   01 01015    22900000 A            LI,R9    0                              AND 'LEVIMPL'
     1103   01 01016    20100001 A            AI,X1    1                              *
     1104   01 01017    35922A42              STW,R9   ACTIVELVL-1,X1                 *
     1105   01 01018    64101017              BDR,X1   %-1                            *
     1106   01 01019    33F02A43              MTW,-1   ACTIVELVL
     1107                            *
     1108   01 0101A    35900393              STW,R9   #HDRFLG                      HEADER FLAG
     1109   01 0101B    331010AE              MTW,1    FIRST%TIME
     1110   01 0101C    69301046              BNEZ     INITIAL#1
     1111                            *
     1112   01 0101D    32800055 A            LW,R8    X'55'                                             *A02
     1113   01 0101E    35802905              STW,R8   GUIDE55           SAVE GUIDE'S INSTR.             *A02
     1114   01 0101F    32800026 A            LW,R8    X'26'             FIND GUIDE'S RESET ADDRESS      *A02
     1115   01 01020    4B802C9A              AND,R8   X1FFFF                  AND SET UP RETURN FROM    *A02
     1116   01 01021    66801158              AWM,R8   IHAND#7                 INTERRUPT/TRAP HANDLER    *A02
     1117   01 01022    66801159              AWM,R8   IHAND#7+1                                         *A02
     1118   01 01023    6C200045 A            RD,X2    X'45'             SET FLG:45 TO NON ZERO          *B03
     1119   01 01024    21202000 A            CI,X2    X'2000'           IF MACHINE IS SIGMA9 MOD3.      *B03
     1120   01 01025    68401027              BCR,4    %+2                                               *B03
     1121   01 01026    352010A8              STW,X2   FLG:45                                            *B03
     1122   01 01027    6C200045 A            RD,X2    X'45'
     1123   01 01028    4B202C9D              AND,X2   X200000
     1124   01 01029    68301030              BCR,3    INITIAL#1A        BRANCH IF A SIGMA 9             *A02
     1125   01 0102A    740010A9              STCF     SIGMA8
     1126   01 0102B    6A6028A7              #TYPE,2  TESTMACH                                          *A02
            01 0102C    EA6003CC
            01 0102D    0220D770 A
            01 0102E    6A6028D0
     1127   01 0102F    68001046              B        INITIAL#1
     1128                            *
     1129   01 01030    222000F9 A   INITIAL#1A LI,X2  '9'                                               *A02
     1130   01 01031    752035E1              STB,X2   TESTMACH+5                                        *A02
     1131   01 01032    6A6028A7              #TYPE    TESTMACH          TYPE 'TESTING A SIGMA 9'        *A02
            01 01033    EA6003CC
            01 01034    0000D770 A
            01 01035    6A6028D0
     1132   01 01036    32202CA5              LW,X2    X4040404          MEMORY MAPS
     1133   01 01037    22300001 A            LI,X3    1                         *
     1134   01 01038    32A010AC              LW,RA    MAP%IMAGE                 *
     1135   01 01039    128010AA              LD,R8    MAP%DW                    *
     1136   01 0103A    6F880000 A            MMC,R8   4                         *
     1137   01 0103B    208FFFFF A            AI,R8    -1                        *
     1138   01 0103C    75300009 A            STB,X3   R9                        *
     1139   01 0103D    6620000A A            AWM,X2   RA                        *
     1140   01 0103E    319010AD              CW,R9    MAP%END                   *
     1141   01 0103F    6820103A              BLE      %-5                       *
     1142                            *
     1143   01 01040    22A00000 A            LI,RA    0                 ACCESS CONTROL REGISTERS        *B00
     1144   01 01041    128010AA              LD,R8    MAP%DW                    *                       *B00
     1145   01 01042    6F840000 A            MMC,R8   2                         *                       *B00
     1146   01 01043    75300009 A            STB,X3   R9                        *                       *B00
     1147   01 01044    22B00000 A            LI,RB    0                         *                       *B00
     1148   01 01045    6F840000 A            MMC,R8   2                         *                       *B00
     1149                            *
     1150   01 01046    6A602348     INITIAL#1 BAL,LINK INITHIST                    HISTORY TABLE
     1151   01 01047    2210000E A            LI,X1    14                             *
     1152   01 01048    22700001 A            LI,X7    1                              *
     1153   01 01049    22400052 A            LI,X4    X'52'                          *
     1154   01 0104A    354E3D28              STW,X4   HISTORY,X7                     *
     1155   01 0104B    30402CA3              AW,X4    X1000001                       *
     1156   01 0104C    20700002 A            AI,X7    2                              *
     1157   01 0104D    6410104A              BDR,X1   %-3                            *
     1158   01 0104E    30402CA9              AW,X4    X12000000                      *
     1159   01 0104F    221000E0 A            LI,X1    224                            *
     1160   01 01050    354E3D28              STW,X4   HISTORY,X7                     *
     1161   01 01051    30402CA3              AW,X4    X1000001                       *
     1162   01 01052    20700002 A            AI,X7    2                              *
     1163   01 01053    64101050              BDR,X1   %-3                            *
     1164                            *
     1165   01 01054    328026B7              LW,R8    PARAMT%HEX+4                 LOOP COUNT
     1166   01 01055    35802A63              STW,R8   LOOPS                     *
     1167                            *
     1168   01 01056    6A601D52              BAL,LINK DISARMALL         DISARM INTS.                    *A02
     1169   01 01057    6A601173              BAL,LINK JAMXPSDS          XPSDS TO INT. LOCN'S            *B00
     1170   01 01058    32602905              LW,LINK  GUIDE55                                           *A02
     1171   01 01059    35600055 A            STW,LINK X'55'             RESTORE GUIDE CLOCK 4 INSTR.    *A02
     1172   01 0105A    22601000 A            LI,LINK  X'1000'                                           *B00
     1173   01 0105B    6D601200 A            WD,LINK  ARME              ARM & ENABLE COUNTER 4          *B00
     1174                            *
     1175                            *
     1176                            *
     1177                            *  THE FOLLOWING CODE IS SKIPPED IF RECOVERY IS NOT TO 'LOAD CONDITIONS'
     1178                            *
     1179   01 0105C    32900394              LW,R9    #LOADFLAG
     1180   01 0105D    6930109D              BNEZ     INITIAL#3
     1181                            *
     1182   01 0105E    22900000 A            LI,R9    0                                                 *B00
     1183   01 0105F    6D900045 A            WD,R9    MARGINS           RETURN CLOCK MARGIN TO NORMAL   *B00
     1184                            *
     1185   01 01060    2210000C A            LI,X1    12
     1186   01 01061    6A601E69              SEND     PLINE#TRES                  PLINE#T
            01 01062    0000C2D1 A
     1187   01 01063    32823F03              LW,R8    OUTBUF-1,X1
     1188   01 01064    358226BD              STW,R8   PLINE#T-1,X1
     1189   01 01065    64101063              BDR,X1   %-2
     1190   01 01066    22801100 A            LI,R8    X'1100'
     1191   01 01067    358026B3              STW,R8   PARAMT%HEX
     1192   01 01068    22800001 A            LI,R8    1
     1193   01 01069    358026B4              STW,R8   PARAMT%HEX+1
     1194   01 0106A    22803101 A            LI,R8    X'3101'
     1195   01 0106B    358026B5              STW,R8   PARAMT%HEX+2
     1196   01 0106C    22800FFF A            LI,R8    X'FFF'
     1197   01 0106D    358026B6              STW,R8   PARAMT%HEX+3
     1198   01 0106E    22800000 A            LI,R8    0
     1199   01 0106F    358026B7              STW,R8   PARAMT%HEX+4
     1200                            *
     1201   01 01070    EA6003C3     INITIAL#2 #HTECON #TOADDR                     PLINE#J
            01 01071    00000396
     1202   01 01072    328C0001 A            LW,R8    1,LINK                         *
     1203   01 01073    6A601E69              SEND     PLINE#JRES
            01 01074    0000C3F7 A
     1204   01 01075    35803F07              STW,R8   OUTBUF+3                       *
     1205   01 01076    EA6003C3               #HTECON #PRTADDR                       *
            01 01077    00000397
     1206   01 01078    328C0001 A            LW,R8    1,LINK                         *
     1207   01 01079    35803F05              STW,R8   OUTBUF+1                       *
     1208   01 0107A    22100016 A             LI,X1   X'16'                          *
     1209   01 0107B    72923F04              LB,R9     OUTBUF,X1                      *
     1210   01 0107C    75922484              STB,R9   PLINE#J,X1                      *
     1211   01 0107D    6410107B              BDR,X1   %-2                             *
     1212   01 0107E    EA6003C2              #ETHCON,3  PLINE#J+4,1
            01 0107F    03009221
     1213   01 01080    3560248A              STW,LINK  SICOUNT
     1214   01 01081    22903CF0 A            LI,R9    X'3CF0'                     PLINE#I
     1215   01 01082    55902ABE              STH,R9   LEVIMPL                         *
     1216   01 01083    6A602307              BAL,LINK IMP@EBC                         *
     1217   01 01084    6A6026CA              BAL,LINK PAT@EBC                      PLINE#K
     1218                            *
     1219   01 01085    6A6027B7              BAL,LINK READIMP                      ACCESS TABLE
     1220   01 01086    22100040 A            LI,X1    64                             *
     1221   01 01087    32902B30              LW,R9    BALSPUR                        *
     1222   01 01088    35923B27              STW,R9   ACCESS-1,X1                    *
     1223   01 01089    64101088              BDR,X1   %-1                            *
     1224   01 0108A    22100010 A            LI,X1    16                             *
     1225   01 0108B    32902B31              LW,R9    BALTRAP                        *
     1226   01 0108C    35923B67              STW,R9   TRAPS-1,X1                     *
     1227   01 0108D    6410108C              BDR,X1   %-1                            *
     1228   01 0108E    22100002 A            LI,X1    2                              *
     1229   01 0108F    32902B30              LW,R9    BALSPUR                        *
     1230   01 01090    35923B77              STW,R9   PWRFAIL-1,X1                   *
     1231   01 01091    64101090              BDR,X1   %-1                            *
     1232   01 01092    221000C0 A            LI,X1    192                            *
     1233   01 01093    32902B30              LW,R9    BALSPUR                        *
     1234   01 01094    35923C68              STW,R9   VALID+238,X1                   *
     1235   01 01095    64101094              BDR,X1   %-1                            *
     1236                            *
     1237   01 01096    6A60271D              BAL,LINK PRI@EBC                      PLINE#P
     1238                            *
     1239   01 01097    22802ABE              LI,R8    LEVIMPL           INITIALIZE VARIABLES
     1240   01 01098    22102ACC              LI,X1    SAVE                      *
     1241   01 01099    38100008 A            SW,X1    R8                        *
     1242   01 0109A    22900000 A            LI,R9    0                         *
     1243   01 0109B    35922ABD              STW,R9   LEVIMPL-1,X1              *                       *A01
     1244   01 0109C    6410109B              BDR,X1   %-1                       *
     1245                            *
     1246                            *
     1247   01 0109D    6A602339     INITIAL#3 BAL,LINK INITBUF
     1248   01 0109E    2280FC58              LI,R8    BA(ILEGAL)                   ILLEGAL INT. TABLE
     1249   01 0109F    35801172              STW,R8   ILEGALP
     1250                            *
     1251   01 010A0    02200000 A            LCI      0
     1252   01 010A1    2A002AEC              LM,0     SAVE#2            RESTORE REGISTERS
     1253   01 010A2    702003A0              LC       #TESTINIT
     1254   01 010A3    EA600006 A            BAL,LINK   *LINK
     1255   01 010A4    000010A6              DATA     INITIAL#A
     1256                                     BOUND    8
     1257   01 010A6    000025DD     INITIAL#A  DATA   REPEAT,X'7000000'                                 *A02
            01 010A7    07000000 A
     1258                            *
     1259                            **********************************************
     1260                            *
     1261                            *  NOTE:   IF THE START OF TEST IS NOT CHANGED AFTER INITIALIZATION
     1262                            *        BY DIRECTIVE 'T' , THE TEST WILL START AT TEST 1100
     1263                            *
     1264   01 010A8    0000118A              DATA     TST1100
     1265   01 010A8                          ORG      %-1
            01 010A8
     1266                            *
     1267                            **********************************************
     1268                            *
     1269                            *
     1270   01 010A8    00000000 A   FLG:45   DATA     0                                                 *B03
     1271   01 010A9    00000000 A   SIGMA8   DATA     0                 BYTE ZERO NON-ZERO IF SIGMA 8
     1272                                     BOUND    8
     1273   01 010AA    0000000A A   MAP%DW   DATA     RA                MAP LOAD CONTROL DW
     1274   01 010AB    01000000 A            GEN,8,7,8,9  1,0,0,0               *
     1275                            *
     1276   01 010AC    00010203 A   MAP%IMAGE  DATA   X'10203'          INITIAL MAP IMAGE
     1277   01 010AD    01004000 A   MAP%END  GEN,8,7,8,9  1,0,32,0
     1278   01 010AE    FFFFFFFF A   FIRST%TIME DATA   -1                FIRST TIME FLAG
     1279                            *
     1280                            *
     1281                                     TITLE    '                    INTERRUPT HANDLING ROUTINE'     *
     1282                            *
     1283                            **********************************************************************
     1284                            * INTERRUPT HANDLING ROUTINE - THIS SUBROUTINE IS ENTERED ONLY BY    *
     1285                            *    A BRANCH AND LINK FROM THE INTERRUPT ACCESS TABLE               *
     1286                            *    THE INTER. LOCATION IS THE 9 LEAST SIG. BITS OF THE LINK ADDR.  *
     1287                            *    THE ROUTINE  1.  CHECKS IF ACTIVE INTERRUPT MATCHES INTER. LOCN.*
     1288                            *                 2.  CHECKS IF INTERRUPT WAS REQUESTED              *
     1289                            *                 3.  LOGS UNEXPECTED COUNTER PULSES                 *
     1290                            *                 4.  CHECKS FOR PRIOR INTERRUPTS                    *
     1291                            *                 5.  RECORDS SEQUENCE OF INTERRUPTS                 *
     1292                            *                                                                    *
     1293                            *    NORMAL EXIT - CLEAR ACTIVE INTERRUPT                            *
     1294                            *    TEST 15 EXIT- RETURN TO TEST WITHOUT CLEARING THE INTERRUPT     *
     1295                            *                                                                    *
     1296                            *        REGISTER USEAGE:  X1 = BYTE DISPLACEMENT IN HIST. TABLE     *
     1297                            *                          X5 = QUAD WORD DISPL. IN PSDS TABLE       *
     1298                            *                                                                    *
     1299                            **********************************************************************
     1300                            *
     1301         01 010AF           NORM     EQU      %                                                 *B00
     1302   01 010AF    02200000 A            LCI      0                                                 *A02
     1303   01 010B0    2B002B0C              STM,0    SAVE#4                                            *A02
     1304   01 010B1    32800006 A            LW,R8    LINK              FIND INTERRUPT LOCATION
     1305   01 010B2    38802B2D              SW,R8    ACCESSP
     1306   01 010B3    35802A62              STW,R8   LOCATION              SAVE LOCATION
     1307   01 010B4    70200392             LC        #SENSE            CHECK FOR SHORT LOOP            *B00
     1308   01 010B5    698010CE             BCS,8     IHAND#1           IF YES EXIT                     *B00
     1309   01 010B6    6A602714              BAL,LINK POINT%HIST        FIND HIST. TABLE ENTRY (BA IN X1)
     1310   01 010B7    22A00000 A            LI,LOG   0                 ZERO ERROR LOG
     1311   01 010B8    6A602737              BAL,LINK READACT           FIND HIGH ACTIVE INTERRUPT
     1312   01 010B9    32802A44              LW,R8    ACTIVELVL+1
     1313   01 010BA    20100007 A            AI,X1    7
     1314   01 010BB    71820000 A            CB,R8    0,X1              DOES ACTIVE INT MATCH LOCATION
     1315   01 010BC    683010BE              BCR,3    %+2               YES
     1316   01 010BD    20A00001 A            AI,LOG   1                 NO, LOG ERROR TYPE 01
     1317                            *
     1318                            *
     1319   01 010BE    32101F07     IHAND    LW,X1    HSTORYP
     1320   01 010BF    72820000 A            LB,R8    0,X1              IS INTERRUPT EXPECTED
     1321   01 010C0    693010C2              BNEZ     %+2               YES
     1322   01 010C1    20A00002 A            AI,LOG   2                 NO,LOG ERROR TYPE 11
     1323   01 010C2    20100002 A            AI,X1    2                 INDEX TO ACTUAL COUNT
     1324   01 010C3    72820000 A            LB,R8    0,X1              ANY PRIOR INTERRUPTS
     1325   01 010C4    683010C6              BEZ      %+2               NO
     1326   01 010C5    20A00004 A            AI,LOG   4                 YES,LOG ERROR TYPE E1
     1327   01 010C6    6A601E39              BAL,LINK CHKPSD            CHECK THE STORED PSD
     1328   01 010C7    20A00000 A            AI,LOG   0                 HAVE ANY ERRORS OCCURRED
     1329   01 010C8    69301122              BCS,3    IHAND#3           IF YES, BRANCH
     1330   01 010C9    73120000 A            MTB,1    0,X1
     1331   01 010CA    33102A89              MTW,1    SEQCNT            NO, INCREMENT SEQUENCE COUNT
     1332   01 010CB    32802A89              LW,R8    SEQCNT            RECORD SEQUENCE COUNT
     1333   01 010CC    20100001 A            AI,X1    1
     1334   01 010CD    75820000 A            STB,R8   0,X1                  SAVE COUNT
     1335                            *
     1336                            *        EXIT FROM ROUTINE
     1337                            *                 TO TRAP ADDR. +1 IF TRAP TEST (ASSUME SPUR.
     1338                            *                   TRAP OR BAD ADDRESSING)
     1339                            *                 TO INTERRUPT ADDR. IF NOT TRAP TEST (ASSUME BAD
     1340                            *                   ADDRESSING OF AN INT. IF LOC'N IS 40-4F)
     1341                            *
     1342                            *                 AND INT. OCCURRED AT WRONG ADDRESS.
     1343                            *                 TO EXPECTED RETURN ADDRESS FOR TEST IF EXP. ADDR. OK
     1344                            *
     1345                            *
     1346   01 010CE    32502A62     IHAND#1  LW,X5    LOCATION          FIND INTERRUPT/TRAP LOCATION
     1347   01 010CF    25500002 A            SLS,X5   2                     GENERATE QUAD WORD INDEX
     1348   01 010D0    328A3328              LW,R8    PSDS,X5           FIND STORED DOUBLE WORD
     1349   01 010D1    329A3329              LW,R9    PSDS+1,X5                 *
     1350   01 010D2    15802A4E              STD,R8   CURPSD
     1351   01 010D3    32802A62              LW,R8    LOCATION                                          *B00
     1352   01 010D4    2180004C A            CI,R8    X'4C'                                             *B00
     1353   01 010D5    683010D8              BE       %+3               BRANCH IF PARITY ERROR          *B00
     1354   01 010D6    21800057 A            CI,R8    X'57'                                             *B00
     1355   01 010D7    693010D9              BNE      %+2               BRANCH IF NOT MFI               *B00
     1356                            *                                                                   *B00
     1357   01 010D8    6A601E5E              BAL,LINK CLEAR%MFI         TURN OFF MFI                    *B00
     1358                            *                                                                   *B00
     1359   01 010D9    22801000 A            LI,R8    X'1000'           IS IT A TRAP TEST
     1360   01 010DA    4B8003F2              AND,R8   TESTNO                    *
     1361   01 010DB    693010E1              BNEZ     IHAND#1B          SKIP IF NO
     1362                            *
     1363   01 010DC    6A60115A              BAL,LINK CHK%RET           CHECK RETURN ADDRESS            *B00
     1364   01 010DD    02200000 A            LCI      0                 RESTORE REGISTERS
     1365   01 010DE    2A002B0C              LM,0     SAVE#4
     1366   01 010DF    33102A4E              MTW,1    CURPSD            RETURN TO TRAP INST. +1
     1367   01 010E0    0E102A4E              LPSD,1   CURPSD                                            *B00
     1368                            *
     1369                            *
     1370         01 010E1           IHAND#1B EQU      %
     1371   01 010E1    325003F2              LW,X5    TESTNO            CHECK FOR SPECIAL RETURN
     1372   01 010E2    21501605 A            CI,X5    X'1605'
     1373   01 010E3    683010F7              BE       IHAND#1E          BRANCH IF TEST 1605             *A02
     1374   01 010E4    25500078 A            SLS,X5   -8                        *
     1375   01 010E5    21500015 A            CI,X5    X'15'                     *
     1376   01 010E6    683010F9              BE       IHAND#1F          BRANCH IF TEST 15XX             *A02
     1377                            *
     1378   01 010E7    2291FFFF A            LI,R9    X'1FFFF'          FIND IF RETURN ADDR. IS VALID
     1379   01 010E8    4A802A4E              LS,R8    CURPSD                    *
     1380   01 010E9    4A902A90              LS,R9    INTEPSD                   *
     1381   01 010EA    31800009 A            CW,R8    R9                        *
     1382   01 010EB    693010F0              BNE      IHAND#1D          ERROR IF NO
     1383         01 010EC           IHAND#1C  EQU     %
     1384   01 010EC    6A60115A              BAL,LINK CHK%RET           CHECK RETURN ADDRESS            *B00
     1385   01 010ED    02200000 A            LCI      0
     1386   01 010EE    2A002B0C              LM,0     SAVE#4            RESTORE REGISTERS               *A02
     1387   01 010EF    0E302A4E              LPSD,3   CURPSD            RETURN TO INTERRUPTED PROGRAM
     1388                            *
     1389         01 010F0           IHAND#1D EQU      %
     1390   01 010F0    38800009 A            SW,R8    R9                ASSUME ERROR IF OVER 2 LOCATIONS OFF
     1391   01 010F1    691010F4              BLZ      %+3                       *
     1392   01 010F2    21800002 A            CI,R8    2                         *
     1393   01 010F3    682010EC              BLE      IHAND#1C          BRANCH IF NO ERROR
     1394   01 010F4    22C00083 A            LI,RC    X'83'             INTERRUPT ADDR. WRONG
     1395   01 010F5    6A602122              BAL,LINK EROR              DISPLAY ERROR
     1396   01 010F6    680010EC              B        IHAND#1C            AND EXIT
     1397   01 010F7    2280157E     IHAND#1E LI,R8    TST16#F                                           *A02
     1398   01 010F8    680010FA              B        %+2                                               *A02
     1399   01 010F9    228014D9     IHAND#1F LI,R8    15RETURN                                          *A02
     1400   01 010FA    35802A4E              STW,R8   CURPSD                                            *A02
     1401   01 010FB    02200000 A            LCI      0                                                 *A02
     1402   01 010FC    2A002B0C              LM,0     SAVE#4                                            *A02
     1403   01 010FD    0E002A4E              LPSD,0   CURPSD            RETURN WITHOUT CLEARING INT.    *A02
     1404                            *
     1405                            *
     1406                            *
     1407                            *        ENTER HERE IF INTERRUPT OCCURRED FROM LOCATION ASSUMED
     1408                            *                 TO BE NOT IMPLEMENTED
     1409                            *
     1410         01 010FE           NOTIMPL  EQU      %                                                 *B00
     1411   01 010FE    02200000 A            LCI      0                                                 *A02
     1412   01 010FF    2B002B0C              STM,0    SAVE#4                                            *A02
     1413   01 01100    32800006 A            LW,R8    LINK              FIND INTERRUPT LOCATION
     1414   01 01101    38802B2D              SW,R8    ACCESSP
     1415   01 01102    35802A62              STW,R8   LOCATION              SAVE LOCATION
     1416   01 01103    70200392             LC        #SENSE            CHECK FOR SHORT LOOP            *B00
     1417   01 01104    698010CE             BCS,8     IHAND#1           IF YES EXIT                     *B00
     1418   01 01105    2210F4A4              LI,X1    BA(HISTORY)+4     RESTORE HISTORY TABLE POINTER
     1419   01 01106    22803B7B              LI,R8    WA(VALID+1)       COMPUTE POINTER DISPLACEMENT
     1420   01 01107    38600008 A            SW,LINK  8                     SUB FIRST VALID ADDRESS
     1421   01 01108    25600003 A            SLS,LINK 3                     MULT DISPLACEMENT BY 8
     1422   01 01109    30100008 A            AW,X1    R8                SET POINTER TO RIGHT DOUBLE WORD
     1423   01 0110A    22A00008 A            LI,LOG   8                 LOG NOT IMPLEMENTED LOCATION ERROR
     1424   01 0110B    6A602737              BAL,LINK READACT           FIND HIGH ACTIVE INTERRUPT
     1425   01 0110C    32802A43              LW,R8    ACTIVELVL         CHECK FOR ACTIVE SAME AS LOCATION
     1426   01 0110D    71820000 A            CB,R8    0,X1                  DOES ACTIVE MATCH
     1427   01 0110E    68301110              BCR,3    %+2               YES
     1428   01 0110F    20A00001 A            AI,LOG   1                 NO,LOG ERROR
     1429   01 01110    68001122              B        IHAND#3           OUTPUT ERROR
     1430                            *
     1431                            *        ENTER HERE IF INTERRUPT WAS NOT IN RANGE X'52' THRU X'13F'
     1432                            *
     1433         01 01111           SPUR     EQU      %
     1434   01 01111    74002A48              STCF     CODES
     1435   01 01112    74002A48     SPURTRAP STCF     CODES             SAVE CONDITION CODES
     1436   01 01113    02200000 A            LCI      0
     1437   01 01114    2B002B0C              STM,0    SAVE#4            SAVE REGISTERS
     1438   01 01115    32800006 A            LW,R8    LINK              FIND INTERRUPT LOCATION
     1439   01 01116    38802B2D              SW,R8    ACCESSP
     1440   01 01117    35802A62              STW,R8   LOCATION              SAVE LOCATION
     1441   01 01118    70200392             LC        #SENSE            CHECK FOR SHORT LOOP            *B00
     1442   01 01119    698010CE             BCS,8     IHAND#1           IF YES EXIT                     *B00
     1443   01 0111A    6A601E03              BAL,LINK CHK%PDF           CHECK IF PDF WAS SET
     1444   01 0111B    21800026 A            CI,R8    X'26'             IS IT A SYSTEM RESET
     1445   01 0111C    6930111E              BNE      %+2               BRANCH IF NO
     1446   01 0111D    6A601154              BAL,LINK  IHAND#6
     1447                            *
     1448   01 0111E    33102A89              MTW,1    SEQCNT            INCREMENT SEQUENCE COUNT
     1449   01 0111F    22A00001 A            LI,LOG   1                 LOG SPURIOUS INTERRUPT ERROR
     1450   01 01120    6A601163              BAL,LINK LOGSPUR           LOG SPURIOUS INTERRUPT
     1451   01 01121    68001129              B        IHAND#5           OUTPUT ERROR
     1452                            *
     1453                            *
     1454   01 01122    33102A89     IHAND#3  MTW,1    SEQCNT            INCREMENT SEQUENCE COUNT
     1455   01 01123    32101F07              LW,X1    HSTORYP
     1456   01 01124    32802A89              LW,R8    SEQCNT            RECORD SEQUENCE COUNT
     1457   01 01125    20100003 A            AI,X1    3
     1458   01 01126    75820000 A            STB,R8   0,X1              SAVE COUNT
     1459   01 01127    201FFFFF A            AI,X1    -1
     1460   01 01128    73120000 A            MTB,1    0,X1              INCREMENT INTERRUPT COUNT
     1461                            *
     1462                            *        ENTER HERE TO DISPLAY ERRORS DETECTED
     1463                            *
     1464   01 01129    3280000A A   IHAND#5  LW,R8    LOG               FIND ERRORS
     1465   01 0112A    4B802C79              AND,R8   ONE               CHECK FOR ERROR 1
     1466   01 0112B    68301133              BEZ      %+8               NO, TRY 2
     1467   01 0112C    22C00001 A            LI,RC     1                SET UP FOR LOCATION MISMATCH ERROR
     1468   01 0112D    32502A62              LW,X5    LOCATION             SET UP STORED PSD DISPLAY
     1469   01 0112E    25500002 A            SLS,X5   2                         *
     1470   01 0112F    32DA3328              LW,RD    PSDS,X5                   *
     1471   01 01130    32EA3329              LW,RE    PSDS+1,X5                 *
     1472   01 01131    4BA02C8D              AND,LOG  X3E               DELETE ERROR
     1473   01 01132    6A602122              BAL,LINK   EROR            DISPLAY ERROR
     1474   01 01133    3280000A A            LW,R8    LOG               FIND ERRORS
     1475   01 01134    4B802C7A              AND,R8   TWO               CHECK FOR ERROR 2
     1476   01 01135    6830113C              BEZ      %+7
     1477   01 01136    4BA02C8C              AND,LOG  X3C               DELETE ERROR
     1478   01 01137    22C00011 A            LI,RC    X'11'             SET UP FOR UNEXP. INT. DISPLAY
     1479   01 01138    32202A43              LW,GRP   ACTIVELVL
     1480   01 01139    2520017C A            SLD,GRP  -4
     1481   01 0113A    25300064 A            SLS,LVL  -28
     1482   01 0113B    6A602122              BAL,LINK   EROR            DISPLAY ERROR
     1483   01 0113C    3280000A A            LW,R8    LOG               FIND ERRORS
     1484   01 0113D    4B802C7C              AND,R8   FOUR              CHECK FOR ERROR 4
     1485   01 0113E    68301142              BEZ      %+4               NO, TRY ERROR 8
     1486   01 0113F    4BA02C8B              AND,LOG  X38               DELETE ERROR
     1487   01 01140    22C000E1 A            LI,RC    X'E1'             SET UP FOR ERROR DISPLAY
     1488   01 01141    6A602122              BAL,LINK   EROR            DISPLAY ERROR
     1489   01 01142    3280000A A            LW,R8    LOG               CHECK IF ERROR 8
     1490   01 01143    4B802C80              AND,R8   X8
     1491   01 01144    68301148              BEZ      %+4               NO, TRY ERROR 10
     1492   01 01145    4BA02C8A              AND,LOG  X30               DELETE ERROR
     1493   01 01146    22C000E2 A            LI,RC    X'E2'             SET UP FOR ERROR DISPLAY
     1494   01 01147    6A602122              BAL,LINK   EROR            DISPLAY ERROR
     1495   01 01148    3280000A A            LW,R8    LOG               FIND ERRORS
     1496   01 01149    4B802C88              AND,R8   X10               WAS IT ERROR 10
     1497   01 0114A    6830114E              BEZ      %+4               NO, TRY ERROR 20
     1498   01 0114B    4BA02C89              AND,LOG  X20               DELETE ERROR
     1499   01 0114C    22C00083 A            LI,RC    X'83'             SET UP FOR PSDW1 ERROR DISPLAY
     1500   01 0114D    6A602122              BAL,LINK EROR              DISPLAY IT
     1501   01 0114E    3280000A A            LW,R8    LOG               FIND ERROR
     1502   01 0114F    683010CE              BEZ      IHAND#1           EXIT IF NONE LEFT
     1503   01 01150    22A00000 A            LI,LOG   0
     1504   01 01151    22C00084 A            LI,RC    X'84'             SET UP FOR PSDW2 ERROR DISPLAY
     1505   01 01152    6A602122              BAL,LINK EROR              DISPLAY IT
     1506   01 01153    680010CE              B        IHAND#1           EXIT
     1507                            *
     1508   01 01154    2291FFFF A   IHAND#6  LI,R9    X'1FFFF'
     1509   01 01155    4A9033C0              LS,R9    PSDS+X'98'        FIND INTERRUPT ADDRESS
     1510   01 01156    21900027 A            CI,R9    X'27'             WAS IT A SYSTEM RESET
     1511   01 01157    E9300006 A            BNE      *LINK             RETURN IF NO
     1512                            *
     1513                            *  THE FOLLOWING TWO LOCATIONS HAVE THE ADDRESS FIELDS ALTERED
     1514                            *    BY THE INITIALIZER TO POINT TO THE LOCATIONS POINTED TO BY THE
     1515                            *    XPSD IN LOCATION 26 THAT WAS STORED BY GUIDE BUT ALTERED BY
     1516                            *    THIS PROGRAM.
     1517                            *
     1518   01 01158    35900000 A   IHAND#7  STW,R9   0                 RE-INITIALIZE PROGRAM
     1519   01 01159    0E000002 A            LPSD,0   0+2
     1520                            *                                                                   *B00
     1521                            *                                                                   *B00
     1522                            *                                                                   *B00
     1523                            *                                                                   *B00
     1524                            *  THE FOLLOWING ROUTINE CHECKS THE INT/TRAP HANDLER RETURN         *B00
     1525                            *  ADDRESS AND ABORTS THE TEST IF THE ADDRESS IS TO ONE             *B00
     1526                            *   OF THE NON-REENTRANT SUBROUTINES.                               *B00
     1527                            *                                                                   *B00
     1528         01 0115A           CHK%RET  EQU      %                                                 *B00
     1529   01 0115A    32802A4E              LW,R8    CURPSD                                            *B00
     1530   01 0115B    4B802C9A              AND,R8   X1FFFF            FIND RETURN ADDRESS             *B00
     1531   01 0115C    21801D26              CI,R8    ABORT                                             *B00
     1532   01 0115D    E9100006 A            BL       *LINK             RETURN IF VALID ADDRESS         *B00
     1533                            *                                                                   *B00
     1534                            *  ENTER HERE IF RETURN IS TO A SUBROUTINE                          *B00
     1535                            *                                                                   *B00
     1536   01 0115E    12802A4E              LD,R8    CURPSD            SAVE RETURN PSD                 *B00
     1537   01 0115F    32A003F2              LW,RA    TESTNO            FIND TEST NUMBER                *B00
     1538   01 01160    32B003F3              LW,RB    PATTNO            FIND SUBTEST NUMBER             *B00
     1539   01 01161    32C00006 A            LW,RC    LINK              SAVE LINK ADDRESS               *B00
     1540   01 01162    6A601D26              BAL,LINK ABORT                                             *B00
     1541                            *                                                                   *B00
     1542                            *
     1543                            ************************************************************
     1544                            *   L O G    S P U R I O U S     I N T E R R U P T S
     1545                            ************************************************************
     1546                            *
     1547                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     1548                            *
     1549                            ************************************************************
     1550                            *
     1551   01 01163    2280FDE8     LOGSPUR  LI,R8    BA(ILEGAL+100)    FIND TABLE END
     1552   01 01164    21803F7A              CI,R8    ILEGAL+100
     1553   01 01165    E8200006 A            BLE      *LINK             EXIT IF TABLE FULL
     1554   01 01166    32802A89              LW,R8    SEQCNT            FIND CURRENT SEQUENCE COUNT
     1555   01 01167    32101172              LW,X1    ILEGALP           FIND BYTE ADDRESS OF NEXT ENTRY
     1556   01 01168    75820000 A            STB,R8   0,X1              LOG SEQUENCE
     1557   01 01169    32802A62              LW,R8    LOCATION          FIND INTERRUPT LOCATION
     1558   01 0116A    20100003 A            AI,X1    3
     1559   01 0116B    75820000 A            STB,R8   0,X1              STORE LOCATION LEAST SIG. CHARS.
     1560   01 0116C    25800008 A            SLS,R8   8                 FIND LOCATION MOST SIG. DIGIT
     1561   01 0116D    201FFFFF A            AI,X1    -1
     1562   01 0116E    75820000 A            STB,R8   0,X1              LOG MOST SIG. DIGIT
     1563   01 0116F    20100002 A            AI,X1    2                 SET INDEX TO BYTE 0 OF NEXT ENTRB00
     1564   01 01170    35101172              STW,X1   ILEGALP           INCREMENT POINTER FOR NEXT TIME
     1565   01 01171    E8000006 A            B        *LINK             RETURN
     1566                            *
     1567                            *
     1568                                TITLE  '                   ILLEGAL INTERRUPT TABLE'                *
     1569                            *
     1570                            **********************************************************************
     1571                            * THE FOLLOWING TABLE CONTAINS SEQUENCE NUMBER AND LOCATION
     1572                            *          OF ALL ILLEGAL INTERRUPTS
     1573                            *                 BYTE 0            SEQUENCE NUMBER
     1574                            *                 BYTE 1            NOT USED
     1575                            *                 BYTES 2 AND 3     INTERRUPT LOCATION
     1576                            **********************************************************************
     1577                            *
     1578   01 01172    0000FC58     ILEGALP  DATA     BA(ILEGAL)        TABLE POINTER
     1579                            *
     1580                                     TITLE    '                    JAM XPSDS ROUTINE'
     1581                            *
     1582                            *************************************************************
     1583                            *  ROUTINE TO REFRESH FIRST PAGE OF MEMORY WITH XPSD'S
     1584                            *************************************************************
     1585                            *
     1586                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     1587                            *
     1588                            * EXIT WITH XPSD'S IN LOCATIONS X'10' THRU X'1FF'
     1589                            *
     1590                            ************************************************************
     1591                            *
     1592   01 01173                 JAMXPSDS RES      0
     1593   01 01173    02200000 A            LCI      0                 SAVE REGISTERS
     1594   01 01174    2B002ACC              STM,0    SAVE
     1595   01 01175    22100010 A            LI,X1    X'10'             SET INDEX FOR FIRST LOCATION
     1596   01 01176    227001F0 A            LI,X7    496               SET LOOP INDEX FOR NO. OF LOOPS
     1597   01 01177    32802C75              LW,R8    XPSD#10           FIND FIRST XPSD
     1598   01 01178    35820000 A            STW,R8   0,X1              JAM XPSD INTO POSSIBLE INT. LOC.
     1599   01 01179    20800004 A            AI,R8    4                 INCREMENT XPSD REF. ADDRESS
     1600   01 0117A    20100001 A            AI,X1    1                 INCREMENT STORE ADDRESS
     1601   01 0117B    64701178              BDR,X7   %-3               LOOP IF NOT FINISHED
     1602                            *
     1603   01 0117C    02200000 A            LCI      0                 RESTORE REGISTERS
     1604   01 0117D    2A002ACC              LM,0     SAVE
     1605   01 0117E    E8000006 A            B        *LINK             EXIT
     1606                            *
     1607                            *
     1608                            *
     1609                            *
     1610                                     TITLE    '                    IMPLEMENTATION TEST'            *
     1611                            *
     1612                            *
     1613                            **********************************************************************
     1614                            *   I M P L E M E N T A T I O N    T E S T                           *
     1615                            **********************************************************************
     1616                            *                                                                    *
     1617                            *                                                                    *
     1618                            *  THIS TEST SELECTS ONE INTERRUPT LEVEL                             *
     1619                            *            ISSUES AN INTERRUPT CONTROL WRITE DIRECT COMMAND        *
     1620                            *                  (AS PER SUBTESTS BELOW)                           *
     1621                            *            CHECKS THE INTERRUPT STATES FOR THAT LEVEL              *
     1622                            *            REPEATS THE PROCESS FOR EACH SUBTEST                    *
     1623                            *            REPEATS THE SUBTEST GROUP FOR EACH LEVEL IN NUMERICAL   *
     1624                            *                                                       SEQUENCE.    *
     1625                            *                                                                    *
     1626                            *   SUBTEST NUMBERS RUN FROM 1 THRU 4B (HEX)                         *
     1627                            *                                                                    *
     1628                            *                                                                    *
     1629                            *  TEST NUMBERS RUN FROM 1100 TO 11FF                                *
     1630                            *             THE LAST TWO DIGITS REPRESENT THE GROUP # AND          *
     1631                            *             THE LEVEL # RESPECTIVELY, OF THE LEVEL TESTED          *
     1632                            *                                                                    *
     1633                            *  ALL LEVELS (INCLUDING THOSE NOT IMPLEMENTED) ARE TRIED            *
     1634                            *                                                                    *
     1635                            *  REGISTER USE:                                                     *
     1636                            *        X1 = TWO LEAST SIG. DIGITS OF TEST #                        *
     1637                            *        X7 = INDEX TO TEST MODULE (MOD#FFS)                         *
     1638                            *        X4 = SUBTEST NUMBER                                         *
     1639                            *        RB=  WRITE DIRECT COMMAND                                   *
     1640                            *        LOG= STATE OF FF'S AFTER WD COMMAND                         *
     1641                            *                                                                    *
     1642                            **********************************************************************
     1643                            *        RF  = STATE OF FF'S BEFORE WD COMMAND
     1644                            *
     1645                            *************************************
     1646                            *  ENTRY FROM PARAMETER LINE T      *
     1647                            *************************************
     1648                            *
     1649         01 0117F           GOTST11  EQU      %
     1650   01 0117F    02200000 A            LCI      0
     1651   01 01180    2A0026A3              LM,0     GOSAVE
     1652   01 01181    328003F2              LW,R8    TESTNO
     1653   01 01182    2180110E A            CI,R8    X'110E'
     1654   01 01183    68302676              BE       INVALTST#         TEST # 110E NOT VALID
     1655   01 01184    2180110F A            CI,R8    X'110F'
     1656   01 01185    68302676              BE       INVALTST#         TEST # 110F NOT VALID
     1657   01 01186    2580007C A            SLS,R8   -4
     1658   01 01187    21800111 A            CI,R8    X'111'
     1659   01 01188    68302676              BE       INVALTST#         TEST #'S 111X NOT VALID
     1660   01 01189    6800118C              B        %+3
     1661                            *
     1662   01 0118A                 TST1100  RES      0                 IMPLEMENTATION TEST
     1663   01 0118A    22200000 A            LI,GRP   0                 INITIALIZE GROUP INDEX
     1664   01 0118B    22300000 A            LI,LVL   0                 INITIALIZE LEVEL INDEX
     1665   01 0118C    02200040 A            LCI      4
     1666   01 0118D    2AC01444              LM,RC    MTW#52            SET UP COUNTERS AS SINGLE INST.
     1667   01 0118E    2BC00052 A            STM,RC   X'52'            INTERRUPTS
     1668                            *
     1669                            **********************************************************************
     1670                            *
     1671                            *  ENTER HERE ONCE FOR FIRST SUBTEST, OF EACH LEVEL, OF
     1672                            *       EACH GROUP.  (17850 SUBTESTS)
     1673                            *
     1674                            **********************************************************************
     1675         01 0118F           TST11A   EQU      %
     1676   01 0118F    32100002 A            LW,X1    GRP               BUILD TEST NUMBER
     1677   01 01190    25100004 A            SLS,X1   4                         *
     1678   01 01191    30100003 A            AW,X1    LVL                       *
     1679   01 01192    22801100 A            LI,R8    X'1100'                   *
     1680   01 01193    30800001 A            AW,R8    X1                        *
     1681   01 01194    358003F2              STW,R8   TESTNO                    *
     1682   01 01195    21200000 A            CI,GRP   0
     1683   01 01196    68301199              BE       %+3
     1684   01 01197    22800040 A            LI,R8    X'40'
     1685   01 01198    6800119A              B        %+2
     1686                            *
     1687   01 01199    22800052 A            LI,R8    X'52'             CALCULATE LOCATION
     1688   01 0119A    30800001 A            AW,R8    X1                        *
     1689   01 0119B    35802A62              STW,R8   LOCATION                  *
     1690   01 0119C    32802A5B              LW,R8    HI%PRI%INT
     1691   01 0119D    31800001 A            CW,R8    X1
     1692   01 0119E    683011A4              BE       %+6               BRANCH IF YES                   *B00
     1693   01 0119F    22800000 A            LI,R8    0                 RESET FLAG
     1694   01 011A0    35802A8C              STW,R8   TESTHIGH                  *
     1695   01 011A1    6A60291F              BAL,LINK SETHIGH           DISABLE ALL INTERRUPTS
     1696   01 011A2    6D000027 A            WD,0     X'27'                                             *B00
     1697   01 011A3    680011A6              B        TST11B
     1698                            *
     1699                            *  ENTRY HERE MEANS THE HIGHEST OVERRIDE GROUP INTERRUPT IS BEING
     1700                            *        TESTED
     1701                            *
     1702   01 011A4    228FFFFF A            LI,R8    -1                SET FLAG (TESTING HIGH PRI.)
     1703   01 011A5    35802A8C              STW,R8   TESTHIGH
     1704                            *                                     TO DISABLE INTERRUPTS
     1705         01 011A6           TST11B   EQU      %
     1706   01 011A6    226FFFFF A            LI,LINK  -1
     1707   01 011A7    35602A88              STW,LINK RETRY%FLAG        SET FLAG TO INDICATE NO RETRY
     1708   01 011A8    21100003 A            CI,X1    3
     1709   01 011A9    692011AC              BG       %+3               BRANCH IF NOT A COUNTER
     1710   01 011AA    22600000 A            LI,LINK  0
     1711   01 011AB    35622A84              STW,LINK PULSECNT,X1       SET PULSE COUNT TO ZERO
     1712                            *
     1713                            *
     1714   01 011AC    6A602797              BAL,LINK   RDSTATES        FIND PRESENT FF STATES
     1715                            *
     1716                            *
     1717   01 011AD    33002A8C              MTW,0    TESTHIGH
     1718   01 011AE    683011B2              BEZ      %+4
     1719   01 011AF    21600007 A            CI,LINK  7
     1720   01 011B0    693011B2              BNE      %+2
     1721   01 011B1    22600003 A            LI,LINK  3                 CORRECT READ ERROR
     1722                            *
     1723   01 011B2    3560000F A            STW,LINK  RF
     1724   01 011B3    F02003D8              LC       *#COCSTATE%
     1725   01 011B4    68C011BA              BCR,12   %+6               BRANCH IF COC IS NOT IN USE
     1726   01 011B5    312003F8              CW,GRP   COCGRP
     1727   01 011B6    693011BA              BNE      %+4               BRANCH IF NOT COC INT. GROUP
     1728   01 011B7    32862B36              LW,R8    LEVMASK,LVL
     1729   01 011B8    4B8003F9              AND,R8   COCMASK
     1730   01 011B9    683011E7              BCR,3    TST11E            SKIP TEST IF COC INTERRUPT LEVEL
     1731   01 011BA    328003F2              LW,R8    TESTNO            BUILD TEST NUMBER
     1732   01 011BB    4B802C97              AND,R8   XFF00                     *
     1733   01 011BC    30800003 A            AW,R8    LVL                       *
     1734   01 011BD    25200004 A            SLS,GRP  4                         *
     1735   01 011BE    30800002 A            AW,R8    GRP                       *
     1736   01 011BF    2520007C A            SLS,GRP  -4                        *
     1737   01 011C0    358003F2              STW,R8   TESTNO                    *
     1738   01 011C1    324003F3              LW,X4    PATTNO            SET TEST INDEX
     1739   01 011C2    52B81268              LH,RB    WDCOMMAND,X4      SET WRITE DIRECT COMMAND IN REG. 11
     1740   01 011C3    6A602348              BAL,LINK INITHIST
     1741   01 011C4    32862B36     TST11RETRY LW,R8  LEVMASK,LVL       SELECT LEVEL TO BE TESTED
     1742                            *
     1743   01 011C5    2140004B A            CI,X4    X'4B'
     1744   01 011C6    693011CA              BNE      %+4                                               *A02
     1745   01 011C7    6D841100 A            WD,R8    DISARM,GRP        FORCE STATE TO DISARM(E)        *A02
     1746   01 011C8    6D841400 A            WD,R8    ENBL,GRP                                          *A02
     1747   01 011C9    22800000 A            LI,R8    0                 SUBTEST 4B- SET UP FOR DISABLE
     1748                            *                                   IF NOT SELECTED (WD1600)
     1749                            *
     1750   01 011CA    ED84000B A            WD,R8    *RB,GRP           SET LEVEL TO NEW STATE
     1751                            *
     1752                            *
     1753   01 011CB    70200392              LC       #SENSE            CHECK FOR SHORT LOOP
     1754   01 011CC    698011E1              BCS,8    TST11C            SKIP ERROR CHECK IF YES
     1755   01 011CD    6A602797              BAL,LINK RDSTATES
     1756   01 011CE    3560000A A            STW,LINK LOG               SAVE NEW STATE
     1757   01 011CF    3260000F A            LW,LINK  RF                SELECT POSSIBLE STATES
     1758   01 011D0    128C1258              LD,R8    NEWSTATE,LINK        BASED ON PREVIOUS STATE
     1759   01 011D1    3260000B A            LW,LINK  RB
     1760   01 011D2    25600078 A            SLS,LINK -8                SELECT EXPECTED STATE
     1761   01 011D3    4B602C87              AND,LINK XF                     BASED ON WD COMMAND
     1762   01 011D4    72DC0008 A            LB,RD    R8,LINK                   *
     1763   01 011D5    2140004B A            CI,X4    X'4B'
     1764   01 011D6    693011D8              BNE      %+2
     1765   01 011D7    22D00000 A            LI,RD    0                 EXPECTED STATE IS DISARM(D)     *A02
     1766   01 011D8    32622A84              LW,LINK  PULSECNT,X1       FIND IF AN INTERRUPT OCCURRED
     1767                            *
     1768                            *
     1769   01 011D9    31D0000A A            CW,RD    LOG               IS IT IN THE EXPECTED STATE
     1770   01 011DA    693011FB              BNE      TST11G            BRANCH IF NO
     1771                            *
     1772                            *
     1773   01 011DB    21A00007 A            CI,LOG   7
     1774   01 011DC    683011E1              BE       TST11C            BRANCH IF UNIMPLEMENTED
     1775   01 011DD    52842ABE              LH,R8    LEVIMPL,GRP       FIND IMPLEMENTED LEVELS
     1776   01 011DE    49862B36              OR,R8    LEVMASK,LVL       SET THIS LEVEL AS IMPLEMENTED
     1777   01 011DF    55842ABE              STH,R8   LEVIMPL,GRP
     1778   01 011E0    6A602307              BAL,LINK IMP@EBC           SET I PARAMETER LINE
     1779                            *
     1780                            *  CHECK FOR LONG LOOP OR USER KEYIN
     1781                            *
     1782   01 011E1    6A601D86     TST11C   BAL,LINK   CHK:LOOP
     1783   01 011E2    6800120E              B        TST11I#1          LOOP RETURN
     1784                            *
     1785                            *  ENTER HERE AFTER EACH SUBTEST IS COMPLETED
     1786                            *
     1787   01 011E3    2140004B A   TST11D    CI,X4   X'4B'             WAS LAST MODULE TESTED
     1788   01 011E4    681011E7              BGE      TST11E            BRANCH IF YES
     1789   01 011E5    331003F3              MTW,1    PATTNO            INCREMENT SUBTEST COUNT
     1790   01 011E6    680011A6              B        TST11B            DO NEXT SUBTEST
     1791                            *
     1792                            *  ENTER HERE AFTER EACH LEVEL (ALL SUBTESTS) IS TESTED
     1793                            *
     1794   01 011E7    21200000 A   TST11E   CI,GRP   0
     1795   01 011E8    693011EC              BNE      %+4
     1796   01 011E9    2130000D A            CI,LVL   13                WAS LAST GROUP 0 LEVEL TESTED
     1797   01 011EA    681011F2              BGE      TST11F            BRANCH IF YES
     1798   01 011EB    680011EE              B        %+3
     1799   01 011EC    2130000F A            CI,LVL   X'F'              WAS LAST LEVEL TESTED
     1800   01 011ED    681011F2              BGE      TST11F            BRANCH IF YES
     1801   01 011EE    20300001 A            AI,LVL   1                 INCREMENT LEVEL INDEX
     1802   01 011EF    22400001 A            LI,X4    1
     1803   01 011F0    354003F3              STW,X4   PATTNO
     1804   01 011F1    6800118F              B        TST11A            TEST NEXT LEVEL
     1805                            *
     1806                            *  ENTER HERE AFTER EACH GROUP IS TESTED (ALL LEVELS)
     1807                            *
     1808   01 011F2    2120000F A   TST11F   CI,GRP   X'F'              WAS LAST GROUP TESTED
     1809   01 011F3    68101250              BGE      TST11X            EXIT TO NEXT TEST IF YES
     1810   01 011F4    21200000 A            CI,GRP   0                 WAS IT GROUP ZERO
     1811   01 011F5    693011F7              BNEZ     %+2               BRANCH IF NO
     1812   01 011F6    20200001 A            AI,GRP   1                 SKIP NONEXIST. GROUP #1
     1813   01 011F7    20200001 A            AI,GRP   1                 SELECT NEXT GROUP
     1814   01 011F8    22300000 A            LI,LVL   0                 INITIALIZE LEVEL INDEX
     1815   01 011F9    353003F3              STW,LVL  PATTNO
     1816   01 011FA    6800118F              B        TST11A            TEST NEXT GROUP
     1817                            *
     1818                            *  ENTER HERE WHEN A POSSIBLE ERROR HAS BEEN DETECTED
     1819                            *
     1820         01 011FB           TST11G   EQU      %
     1821   01 011FB    52842ABE              LH,R8    LEVIMPL,GRP       IS LEVEL IMPLEMENTED
     1822   01 011FC    4B862B36              AND,R8   LEVMASK,LVL
     1823   01 011FD    69301207              BNEZ     TST11I            BRANCH IF YES
     1824   01 011FE    21A00007 A            CI,LOG   7                 DID STATE INDICATE NOT IMPLEM.
     1825   01 011FF    683011E1              BE       TST11C            NO ERROR IF YES
     1826   01 01200    52842ABE              LH,R8    LEVIMPL,GRP       FIND IMPLEMENTED LEVELS
     1827   01 01201    49862B36              OR,R8    LEVMASK,LVL       SET THIS LEVEL AS IMPLEMENTED
     1828   01 01202    55842ABE              STH,R8   LEVIMPL,GRP
     1829   01 01203    6A602307              BAL,LINK IMP@EBC           SET I PARAMETER LINE
     1830   01 01204    22C000B4 A   TST11H   LI,RC    X'B4'             SET ERROR TYPE (PREVIOUSLY UNIMP.)
     1831   01 01205    22D00007 A            LI,RD    7
     1832   01 01206    6A602122              BAL,LINK   EROR            DISPLAY ERROR
     1833                            *
     1834         01 01207           TST11I   EQU      %
     1835   01 01207    21100003 A            CI,X1    3
     1836   01 01208    69201238              BG       TST11K            DISPLAY ERROR IF THIS WAS NOT CNTR
     1837                            *
     1838                            *  ENTRY HERE MEANS THE ERROR COULD HAVE BEEN DUE TO A COUNTER
     1839                            *     PULSE INTERRUPT FROM A REAL TIME CLOCK
     1840                            *
     1841   01 01209    33102A88              MTW,1    RETRY%FLAG
     1842   01 0120A    6830120E              BEZ      TST11I#1          TRY AGAIN IF NOT RETRY
     1843                            *
     1844   01 0120B    33002A8C              MTW,0    TESTHIGH
     1845   01 0120C    69301229              BNEZ     TST11J            BRANCH IF TESTING HIGHEST PRI. LVL.
     1846   01 0120D    68001238              B        TST11K            MUST BE AN ERROR
     1847                            *
     1848         01 0120E           TST11I#1  EQU     %
     1849                            *
     1850                            *  RE-ESTABLISH ORIGINAL CONDITIONS AND TRY AGAIN BUT FIRST DELAY
     1851                            *      UNTIL THE COUNTER TICKS
     1852                            *
     1853   01 0120E    33002A8C              MTW,0    TESTHIGH
     1854   01 0120F    69301213              BNEZ     %+4               BRANCH IF TESTING HI PRI. INT.
     1855   01 01210    32602A5B              LW,LINK  HI%PRI%INT
     1856   01 01211    326C2B36              LW,LINK  LEVMASK,LINK
     1857   01 01212    6D601100 A            WD,LINK  DISARM            DISARM HIGH PRI. INT
     1858                            *
     1859   01 01213    21200000 A            CI,GRP   0                                                 *B00
     1860   01 01214    6930121F              BNE      TST11I#2          BRANCH IF NOT GROUP 0           *B00
     1861   01 01215    21300003 A            CI,LVL   3                                                 *B00
     1862   01 01216    6920121F              BG       TST11I#2          BRANCH IF NOT A COUNT PLS.      *B00
     1863   01 01217    225036B0 A            LI,X5    14000
     1864   01 01218    226FFFFE A            LI,LINK  -2
     1865   01 01219    35622A84              STW,LINK PULSECNT,X1       INITIALIZE COUNT
     1866   01 0121A    6D801200 A            WD,R8    ARME              START IT COUNTING
     1867   01 0121B    32622A84              LW,LINK  PULSECNT,X1
     1868   01 0121C    6830121F              BEZ      %+3               EXIT IF COUNTED UP TO ZERO
     1869   01 0121D    6450121B              BDR,X5   %-2               LOOP FOR UP TO 20 MS.
     1870   01 0121E    68001207              B        TST11I
     1871                            *
     1872         01 0121F           TST11I#2  EQU     %                                                 *B00
     1873   01 0121F    3260000F A            LW,LINK  RF                FIND ORIGINAL STATE AND
     1874   01 01220    680C1221              B        %+1,LINK              RESET IT TO:
     1875   01 01221    6800123E              B        TST11L                    DIS(D)
     1876   01 01222    68001241              B        TST11M                    DIS(E)
     1877   01 01223    6800123F              B        TST11L+1                  ARM(D)
     1878   01 01224    68001249              B        TST11R                    ARM(E)
     1879   01 01225    68001243              B        TST11N                    ACT(D)
     1880   01 01226    68001244              B        TST11N+1                  ACT(E)
     1881   01 01227    68001246              B        TST11P                    WAIT(D)
     1882   01 01228    68001247              B        TST11P+1                  WAIT(E)
     1883                            *
     1884         01 01229           TST11J   EQU      %
     1885                            *
     1886                            *        ENTRY HERE IS ERROR UNLESS:
     1887                            *                 THE LEVEL UNDER TEST IS HIGHEST IMPL. LEVEL
     1888                            *                 THE NEW STATE IS ARMED AND ENABLED
     1889                            *                    AND
     1890                            *                       (A) THE OLDSTATE WAS ARMED AND ENABLED (3)
     1891                            *                           THE COMMAND WAS TRIGGER (X'1700')
     1892                            *                                   OR
     1893                            *                       (B) THE OLDSTATE WAS WAITING / DISABLED
     1894                            *                           THE COMMAND WAS ENABLE (X'1400' OR X'1600')
     1895                            *
     1896   01 01229    3280000F A            LW,R8    RF
     1897   01 0122A    21800003 A            CI,R8    3
     1898   01 0122B    6930122F              BNE      %+4               BRANCH IF NOT CASE (A)
     1899   01 0122C    21B01700 A            CI,RB    X'1700'
     1900   01 0122D    69301238              BNE      TST11K            ERROR IF NOT TRIG.
     1901   01 0122E    68001235              B        %+7
     1902                            *
     1903                            *
     1904   01 0122F    21800006 A            CI,R8    6
     1905   01 01230    69301238              BNE      TST11K            ERROR IF NOT WAITING/DISABLED
     1906   01 01231    21B01400 A            CI,RB    X'1400'
     1907   01 01232    68301235              BE       %+3               OK IF COMMAND IS ENABLE
     1908   01 01233    21B01600 A            CI,RB    X'1600'
     1909   01 01234    69301238              BNE      TST11K            ERROR IF COMMAND IS NOT ENABLE
     1910   01 01235    21A00003 A            CI,LOG   3
     1911   01 01236    683011E1              BE       TST11C            OK IF NOW ARMED/ENABLED
     1912   01 01237    22D00003 A            LI,RD    3
     1913                            *
     1914                            *
     1915         01 01238           TST11K   EQU      %
     1916   01 01238    22C000B1 A            LI,RC    X'B1'             SET ERROR TYPE (WRONG STATE)
     1917   01 01239    2140004B A            CI,X4    X'4B'                                             *A02
     1918   01 0123A    6930123C              BNE      %+2               BRANCH IF NOT SUBTEST 4B        *A02
     1919   01 0123B    22F00001 A            LI,RF    1                 SET PREV. STATE AS DISARM(E)    *A02
     1920   01 0123C    6A602122              BAL,LINK   EROR            DISPLAY ERROR
     1921   01 0123D    680011E1              B        TST11C
     1922                            *
     1923   01 0123E    6D801100 A   TST11L   WD,R8    DISARM
     1924   01 0123F    6D801500 A            WD,R8    DISABLE
     1925   01 01240    68001249              B        TST11R
     1926   01 01241    6D801100 A   TST11M   WD,R8    DISARM
     1927   01 01242    68001249              B        TST11R
     1928   01 01243    6D801500 A   TST11N   WD,R8    DISABLE
     1929   01 01244    6D801000 A            WD,R8    ACTIVATE
     1930   01 01245    68001249              B        TST11R
     1931   01 01246    6D801500 A   TST11P   WD,R8    DISABLE
     1932   01 01247    6D801700 A            WD,R8    TRIG
     1933   01 01248    68001249              B        TST11R
     1934                            *
     1935   01 01249    33002A8C     TST11R   MTW,0    TESTHIGH
     1936   01 0124A    693011C4              BNEZ     TST11RETRY        BRANCH IF TESTING HI PRI. INT.
     1937   01 0124B    32602A5B              LW,LINK  HI%PRI%INT        SET HIGH PRI INT TO ACTIVE
     1938   01 0124C    326C2B36              LW,LINK  LEVMASK,LINK              *
     1939   01 0124D    6D601300 A            WD,LINK  ARMD                      *
     1940   01 0124E    6D601000 A            WD,LINK  ACTIVATE                  *
     1941   01 0124F    680011C4              B        TST11RETRY
     1942                            *
     1943                            *
     1944                            *
     1945                            **********************************************************************
     1946                            *  ENTER HERE AFTER EACH PASS OF TEST 11 IS COMPLETE
     1947                            **********************************************************************
     1948                            *
     1949   01 01250    32802AC6     TST11X   LW,R8    IMPLFLAG          WAS IMPLEMENTATION KEYED IN
     1950   01 01251    69301293              BNEZ     TST1200           BRANCH IF YES
     1951   01 01252    33102AC6              MTW,1    IMPLFLAG          NO,  SET FLAG
     1952                            *
     1953                            **********************************************************************
     1954                            * ENTRY HERE INDICATES THERE WAS NO KEYIN OF IMPLEMENTATION INFORMATION
     1955                            *   AND THEREFORE A DISPLAY OF ASSUMED IMPLEMENTATION IS NEEDED
     1956                            **********************************************************************
     1957   01 01253    22800000 A            LI,R8    0
     1958   01 01254    35802AC9              STW,R8   GRPIMPL           INITIALIZE GROUP IMPL. LOG
     1959   01 01255    6A601FFF              BAL,LINK DISIMP            DISPLAY IMPLEMENTATION OF ALL GROUPS
     1960   01 01256    6A6027B7              BAL,LINK READIMP           SET UP ACCESS TABLE
     1961   01 01257    68001293              B        TST1200           EXIT TO NEXT TEST
     1962                            *
     1963                            *        DATA     X'FBFCF7FC',X'EFFCDFFC',X'BFFC7FFC'
     1964                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   17
A    1965                                     PAGE
     1966                            *
     1967                                     BOUND    8
     1968                            *
     1969                            *        THE FOLLOWING TABLE CONTAINS THE EXPECTED STATE FOR EACH
     1970                            *        POSSIBLE PREVIOUS STATE (AS 8 BYTE VALUES)
     1971                            *
     1972                            * PREVIOUS                  EXPECTED STATE
     1973                            *  STATE    *****************************************************
     1974                            *          ACTIVATE     ARME      ENBL      ENBL-SEL
     1975                            *                 DISARM     ARMD    DISABLE         TRIG
     1976                            *
     1977                            *   0         0     0    3    2    1    0     1       0
     1978                            *   1         1     1    3    2    1    0     1       1
     1979                            *   2         4     0    3    2    3    2     3       6
     1980                            *   3         5     1    3    2    3    2     3       7
     1981                            *   4         0     0    3    2    5    4     5       4
     1982                            *   5         1     1    3    2    5    4     5       5
     1983                            *   6         4     0    3    2    7    6     7       6
     1984                            *   7         5     1    3    2    7    6     7       7
     1985                            * COMMAND    1000  1100 1200 1300 1400 1500 1600     1700
     1986                            *
     1987                            *
     1988         01 01258           NEWSTATE EQU      %                      PREVIOUS
     1989                            *                                         STATE
     1990   01 01258    00000302 A            DATA     X'302',X'1000100'         0   DIS(D)
            01 01259    01000100 A
     1991   01 0125A    01010302 A            DATA     X'1010302',X'1000101'     1   DIS(E)
            01 0125B    01000101 A
     1992   01 0125C    04000302 A            DATA     X'4000302',X'3020306'     2   ARM(D)
            01 0125D    03020306 A
     1993   01 0125E    05010302 A            DATA     X'5010302',X'3020307'     3   ARM(E)
            01 0125F    03020307 A
     1994   01 01260    00000302 A            DATA     X'302',X'5040504'         4   ACT(D)
            01 01261    05040504 A
     1995   01 01262    01010302 A            DATA     X'1010302',X'5040505'     5   ACT(E)
            01 01263    05040505 A
     1996   01 01264    04000302 A            DATA     X'4000302',X'7060706'     6   WAIT(D)
            01 01265    07060706 A
     1997   01 01266    05010302 A            DATA     X'5010302',X'7060707'     7   WAIT(E) OR NONIMPL.
            01 01267    07060707 A
     1998                            *
     1999                            *
     2000                            *
     2001         01 01268           WDCOMMAND  EQU    %
     2002                            *            1     2      3      4    5    6     7         SUBTEST NBR.
     2003   01 01268    0000     A    DATA,2  0,ARME,DISARM,DISABLE,ENBL,ARMD,TRIG,ACTIVATE           0- 7
            01 01268 2  1200     A
            01 01269    1100     A
            01 01269 2  1500     A
            01 0126A    1400     A
            01 0126A 2  1300     A
            01 0126B    1700     A
            01 0126B 2  1000     A
     2004                            *          8     9     A    B    C     D     E      F
     2005   01 0126C    1400     A    DATA,2  ENBL,DISARM,ARME,TRIG,TRIG,ENBLDIS,ENBL,DISABLE         8- F
            01 0126C 2  1100     A
            01 0126D    1200     A
            01 0126D 2  1700     A
            01 0126E    1700     A
            01 0126E 2  1600     A
            01 0126F    1400     A
            01 0126F 2  1500     A
     2006                            *           10    11      12    13      14    15     16    17
     2007   01 01270    1700     A    DATA,2  TRIG,ENBLDIS,DISABLE,ENBL,ACTIVATE,ENBL,DISABLE,ARME   10-17
            01 01270 2  1600     A
            01 01271    1500     A
            01 01271 2  1400     A
            01 01272    1000     A
            01 01272 2  1400     A
            01 01273    1500     A
            01 01273 2  1200     A
     2008                            *          18    19     1A      1B    1C    1D       1E     1F
     2009   01 01274    1300     A    DATA,2  ARMD,DISARM,DISABLE,ENBLDIS,TRIG,DISARM,ACTIVATE,TRIG  18-1F
            01 01274 2  1100     A
            01 01275    1500     A
            01 01275 2  1600     A
            01 01276    1700     A
            01 01276 2  1100     A
            01 01277    1000     A
            01 01277 2  1700     A
     2010                            *          20    21        22   23     24       25    26    27
     2011   01 01278    1200     A    DATA,2  ARME,DISABLE,ACTIVATE,TRIG,ENBLDIS,ACTIVATE,ARMD,ARME  20-27
            01 01278 2  1500     A
            01 01279    1000     A
            01 01279 2  1700     A
            01 0127A    1600     A
            01 0127A 2  1000     A
            01 0127B    1300     A
            01 0127B 2  1200     A
     2012                            *          28    29       2A      2B   2C    2D    2E     2F
     2013   01 0127C    1400     A    DATA,2  ENBL,ACTIVATE,ENBLDIS,DISARM,ENBL,ARME,ENBLDIS,TRIG    28-2F
            01 0127C 2  1000     A
            01 0127D    1600     A
            01 0127D 2  1100     A
            01 0127E    1400     A
            01 0127E 2  1200     A
            01 0127F    1600     A
            01 0127F 2  1700     A
     2014                            *         30     31     32   33        34    35    36     37
     2015   01 01280    1300     A    DATA,2  ARMD,DISABLE,TRIG,DISARM,ACTIVATE,ARMD,ENBLDIS,TRIG    30-37
            01 01280 2  1500     A
            01 01281    1700     A
            01 01281 2  1100     A
            01 01282    1000     A
            01 01282 2  1300     A
            01 01283    1600     A
            01 01283 2  1700     A
     2016                            *          38      39       3A   3B    3C  3D    3E    3F
     2017   01 01284    1100     A    DATA,2  DISARM,ENBLDIS,DISABLE,TRIG,ARMD,ARMD,TRIG,ARME        38-3F
            01 01284 2  1600     A
            01 01285    1500     A
            01 01285 2  1700     A
            01 01286    1300     A
            01 01286 2  1300     A
            01 01287    1700     A
            01 01287 2  1200     A
     2018                            *          40  41   42   43    44       45       46      47
     2019   01 01288    1200     A    DATA,2  ARME,TRIG,ARME,ARMD,DISARM,ACTIVATE,ACTIVATE,DISARM    40-47
            01 01288 2  1700     A
            01 01289    1200     A
            01 01289 2  1300     A
            01 0128A    1100     A
            01 0128A 2  1000     A
            01 0128B    1000     A
            01 0128B 2  1100     A
     2020                            **         48   49   4A   4B
     2021   01 0128C    1300     A    DATA,2  ARMD,TRIG,ARMD,ENBLDIS                                 48-4B
            01 0128C 2  1700     A
            01 0128D    1300     A
            01 0128D 2  1600     A
     2022                                     TITLE    '                   PRIORITY CHECK TEST'
     2023                            *
     2024                            *
     2025                            **********************************************************************
     2026                            *                                                                    *
     2027                            *   THIS TEST ARMS,ENABLES,AND TRIGGERS THE HIGHEST PRIORITY         *
     2028                            *       IMPLEMENTED LEVEL WITHIN EACH GROUP AND RECORDS THE ORDER OF *
     2029                            *       OCCURRANCE FOR USE AS THE ASSUMED PRIORITY.                  *
     2030                            *                                                                    *
     2031                            **********************************************************************
     2032                            *
     2033                            *************************************
     2034                            *  ENTRY FROM PARAMETER LINE T      *
     2035                            *************************************
     2036                            *
     2037   01 0128E                 GOTST12  RES      0
     2038   01 0128E    328003F2              LW,R8    TESTNO
     2039   01 0128F    21801201 A            CI,R8    X'1201'
     2040   01 01290    69302676              BNE      INVALTST#
     2041   01 01291    22800000 A            LI,R8    0
     2042   01 01292    35802AC8              STW,R8   PRIFLAG
     2043                            *
     2044   01 01293                 TST1200  RES      0
     2045                            *
     2046   01 01293    6D000037 A            WD,0     X'37'             INHIBIT INTS.
     2047   01 01294    32802AC8              LW,R8    PRIFLAG           IS TEST REQUIRED
     2048   01 01295    69301335              BNEZ     TST12#X           BRANCH IF NO
     2049   01 01296    6A602356              BAL,LINK INITTAB
     2050   01 01297    6A601173              BAL,LINK JAMXPSDS          INITIALIZE INT. LOCATIONS
     2051   01 01298    22801201 A            LI,R8    X'1201'
     2052   01 01299    358003F2              STW,R8   TESTNO
     2053   01 0129A    22200000 A            LI,GRP   0
     2054   01 0129B    22300000 A            LI,LVL   0
     2055   01 0129C    228012F6              LI,R8    TST12#R           FIND EXPECTED INTERRUPT ADDRESS
     2056   01 0129D    35802A90              STW,R8   INTEPSD
     2057   01 0129E    22900001 A            LI,R9    1
     2058   01 0129F    359003F3              STW,R9   PATTNO
     2059   01 012A0    52902ABE              LH,R9    LEVIMPL           FIND GROUP 0 IMPLEMENTATION
     2060   01 012A1    4A902B33              LS,R9    GRP#CNTR          FIND COUNTER GROUP IMPL.
     2061   01 012A2    25900010 A            SLS,R9   16
     2062   01 012A3    25900001 A   TST12#A  SLS,R9   1                 LOOK FOR HIGHEST PRI. IN GROUP
     2063   01 012A4    698012B0              BC       TST12#A1          BRANCH WHEN FOUND
     2064   01 012A5    20300001 A            AI,LVL   1
     2065   01 012A6    21300009 A            CI,LVL   9                 CHECK FOR END OF GROUP
     2066   01 012A7    682012A3              BLE      TST12#A           LOOP UNTIL FOUND
     2067   01 012A8    6A6028A7              #PRINT,1,1 ERRORMSG,C2
            01 012A9    EA6003CD
            01 012AA    0160C30C A
            01 012AB    6A6028D0
     2068   01 012AC    6A6028A7              #PRINT,1,1 NO%COUNTERS
            01 012AD    EA6003CD
            01 012AE    0160CC3D A
            01 012AF    6A6028D0
     2069                            *
     2070   01 012B0    32862B36     TST12#A1 LW,R8    LEVMASK,LVL       LOG CNTR ZERO LEVEL AS IMPLEMENTED
     2071   01 012B1    55802A96              STH,R8   LEVARMD
     2072   01 012B2    22300000 A            LI,LVL   0
     2073   01 012B3    52902ABE              LH,R9    LEVIMPL           FIND GROUP 0 IMPLEMENTATION
     2074   01 012B4    4A902B34              LS,R9    GRP#IO            FIND I/O GROUP IMPLEMENTATION
     2075   01 012B5    25900010 A            SLS,R9   16
     2076   01 012B6    25900001 A   TST12#B  SLS,R9   1                 LOOK FOR HIGHEST PRI. IN GROUP
     2077   01 012B7    698012C3              BC       TST12#B1          BRANCH WHEN FOUND
     2078   01 012B8    20300001 A            AI,LVL   1
     2079   01 012B9    2130000D A            CI,LVL   13                CHECK FOR END OF GROUP
     2080   01 012BA    682012B6              BLE      TST12#B           LOOP UNTIL FOUND
     2081   01 012BB    6A6028A7              #PRINT,1,1 ERRORMSG,C2
            01 012BC    EA6003CD
            01 012BD    0160C30C A
            01 012BE    6A6028D0
     2082   01 012BF    6A6028A7              #PRINT,1,1 NO%IO
            01 012C0    EA6003CD
            01 012C1    0160CC44 A
            01 012C2    6A6028D0
     2083                            *
     2084   01 012C3    52802A96     TST12#B1 LH,R8    LEVARMD           PICK UP COUNTER ZERO LEVEL
     2085   01 012C4    49862B36              OR,R8    LEVMASK,LVL
     2086   01 012C5    55802A96              STH,R8   LEVARMD              AND ADD I/O HIGH LEVEL
     2087   01 012C6    22200002 A            LI,GRP   2                 CHECK GROUP 2
     2088   01 012C7    22300000 A   TST12#C  LI,LVL   0
     2089   01 012C8    52942ABE              LH,R9    LEVIMPL,GRP       FIND LEVELS IMPLEMENTED
     2090   01 012C9    683012D7              BEZ      TST12#E           BRANCH IF NO
     2091   01 012CA    F02003D8              LC       *#COCSTATE%                                       *B00
     2092   01 012CB    68C012D0              BCR,12   %+5               BRANCH IF COC IS NOT IN USE     *B00
     2093   01 012CC    312003F8              CW,GRP   COCGRP                                            *B00
     2094   01 012CD    693012D0              BNE      %+3               BRANCH IF NOT COC INT. GROUP    *B00
     2095   01 012CE    4B9003F9              AND,R9   COCMASK                                           *B00
     2096   01 012CF    683012D7              BEZ      TST12#E           SKIP TEST IF COC INTERRUPT LEVEL*B00
     2097   01 012D0    25900010 A            SLS,R9   16                LEFT JUSTIFY GROUP
     2098   01 012D1    25900001 A   TST12#D  SLS,R9   1                 LOOK FOR HIGHEST PRIORITY LEVEL
     2099   01 012D2    698012D5              BC       %+3               BRANCH WHEN FOUND
     2100   01 012D3    20300001 A            AI,LVL   1
     2101   01 012D4    680012D1              B        TST12#D           LOOP UNTIL FOUND
     2102   01 012D5    32862B36              LW,R8    LEVMASK,LVL
     2103   01 012D6    55842A96              STH,R8   LEVARMD,GRP       SET INTERRUPT PATTERN
     2104   01 012D7    20200001 A   TST12#E  AI,GRP   1
     2105   01 012D8    21200010 A            CI,GRP   16                IS LAST GROUP CHECKED
     2106   01 012D9    691012C7              BL       TST12#C           LOOP IF NO
     2107                            *
     2108                            **********************************************************************
     2109                            *  ARMING PATTERNS HAVE BEEN SELECTED- COPY THEM FOR TRIG. AND ENABLE*
     2110                            **********************************************************************
     2111                            *
     2112   01 012DA    22700008 A            LI,X7    8
     2113   01 012DB    328E2A95              LW,R8    LEVARMD-1,X7                                      *B03
     2114   01 012DC    358E2A9D              STW,R8   LEVENBL-1,X7                                      *B03
     2115   01 012DD    358E2AA5              STW,R8   LEVTRIG-1,X7                                      *B03
     2116   01 012DE    358E2AAD              STW,R8   LEVEXP-1,X7                                       *B03
     2117   01 012DF    647012DB              BDR,X7   %-4                                               *B03
     2118   01 012E0    02000000 A            NOP                                                        *B03
     2119   01 012E1    02000000 A            NOP                                                        *B03
     2120   01 012E2    02000000 A            NOP                                                        *B03
     2121                            **********************************************************************
     2122                            *  INITIALIZE FOR INTERRUPTS
     2123                            **********************************************************************
     2124   01 012E3    6A602348              BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     2125   01 012E4    6A60235F              BAL,LINK INITPSD           INITIALIZE PSD TABLE
     2126   01 012E5    6A6027EB              BAL,LINK READSEQ           LOAD EXP. INFO INTO HIST. TABLE
     2127                            *
     2128   01 012E6    2210A064              LI,X1    BA(SEQCOM+15)     INITIALIZE PRIORITIES
     2129   01 012E7    22800010 A            LI,R8    16                        *
     2130   01 012E8    75820000 A            STB,R8   0,X1                      *
     2131   01 012E9    201FFFFC A            AI,X1    -4                        *
     2132   01 012EA    648012E8              BDR,R8   %-2                       *
     2133                            *
     2134   01 012EB    6A60291F              BAL,LINK SETHIGH           SET HIGH PRI. INT. TO ACTIVE
     2135   01 012EC    6D000027 A            WD,0     X'27'             CLEAR INT. INHIBITS
     2136   01 012ED    6A602974              BAL,LINK SETPATT           ARM,ENABLE, AND TRIGGER
     2137   01 012EE    228012F6              LI,R8    TST12#R           SET UP RETURN ADDRESS
     2138   01 012EF    35802A4E              STW,R8   CURPSD
     2139   01 012F0    22800011 A            LI,R8    17
     2140   01 012F1    35802A95              STW,R8   WAITCNT           SET VALUE OF DELAY
     2141   01 012F2    02200000 A            LCI      0
     2142   01 012F3    2B002B0C              STM,0    SAVE#4
     2143   01 012F4    2A002C5F              LM,0     REGXPSDS          SET XPSD'S IN ALL REGISTERS
     2144   01 012F5    0E202A4E              LPSD,2   CURPSD            RELEASE HIGH PRIORITY INT.
     2145                            *
     2146                            **********************************************************************
     2147                            * ALL INTERRUPTS MUST OCCUR DURING THE FOLLOWING DELAY
     2148                            **********************************************************************
     2149                            *
     2150   01 012F6    33F02A95     TST12#R  MTW,-1   WAITCNT
     2151   01 012F7    692012F6              BGZ      %-1
     2152                            *
     2153                            *    FALL THRU WHEN NO MORE INTERRUPTS
     2154                            *
     2155   01 012F8    6A60291F              BAL,LINK SETHIGH           DISABLE FURTHER INTERRUPTS
     2156   01 012F9    02200000 A            LCI      0
     2157   01 012FA    2A002B0C              LM,0     SAVE#4            RESTORE REGISTERS
     2158   01 012FB    6A601D5F              BAL,LINK CHKALL            CHECK IF ALL INTS. OCCURRED
     2159   01 012FC    32802A89              LW,R8    SEQCNT
     2160   01 012FD    31802A5A              CW,R8    EXPSEQCT
     2161   01 012FE    68301302              BE       %+4               BRANCH IF ALL OCCURRED
     2162   01 012FF    33102A46              MTW,1    ABORTFLAG         INHIBIT RUNNING NEXT TEST
     2163   01 01300    22C000F1 A            LI,RC    X'F1'
     2164   01 01301    6A602122              BAL,LINK EROR              INDICATE 'SEQUENCE ERROR'
     2165   01 01302    22800000 A            LI,R8    0
     2166   01 01303    22100010 A            LI,X1    16
     2167   01 01304    22600000 A            LI,LINK  0
     2168   01 01305    758C280A              STB,R8   SEQCOM,LINK       ZERO OUT OLD PRIORITIES
     2169   01 01306    20600004 A            AI,LINK  4
     2170   01 01307    64101305              BDR,X1   %-2                       *
     2171   01 01308    22100001 A            LI,X1    1                 START SEARCH AT PRI. 1
     2172                            *
     2173                            *  SET UP ASSUMED PRIORITY
     2174                            *
     2175   01 01309    2240F4A3              LI,X4    BA(HISTORY)+3     START SEARCH AT TOP OF TABLE
     2176                            *
     2177   01 0130A    72880000 A   TST12#F  LB,R8    0,X4              FIND ACTUAL SEQ. OF ONE ENTRY
     2178   01 0130B    31800001 A            CW,R8    X1                DOES PRIORITY MATCH
     2179   01 0130C    68301311              BE       %+5               BRANCH IF YES
     2180                            *
     2181   01 0130D    20400008 A            AI,X4    8
     2182   01 0130E    2140FC10              CI,X4    BA(HISTORYEND)    IS IT TABLE END
     2183   01 0130F    6820130A              BLE      TST12#F           LOOP IF NO
     2184   01 01310    68001323              B        TST12#J           DISPLAY RESULTS IF YES
     2185                            *
     2186                            *  ENTER HERE WHEN NEXT PRIORITY HAS BEEN FOUND
     2187                            *
     2188   01 01311    20400001 A            AI,X4    1
     2189   01 01312    72280000 A            LB,GRP   0,X4              FIND GROUP# AND LEVEL#
     2190   01 01313    2520017C A            SLD,GRP  -4                MOVE LEVEL# INTO LVL REG.
     2191   01 01314    21200000 A            CI,GRP   0                 IS IT GROUP 0
     2192   01 01315    6830131A              BEZ      %+5               BRANCH IF YES
     2193   01 01316    3294280A              LW,R9    SEQCOM,GRP
     2194   01 01317    75800009 A            STB,R8   R9
     2195   01 01318    3594280A              STW,R9   SEQCOM,GRP
     2196   01 01319    68001320              B        TST12#H
     2197                            *
     2198                            **********************************************************************
     2199                            *  ENTRY HERE INDICATES ONE OF THE ZERO GROUPS
     2200                            **********************************************************************
     2201                            *
     2202   01 0131A    25300064 A            SLS,LVL  -28               RIGHT JUSTIFY LEVEL#
     2203   01 0131B    2130000A A            CI,LVL   10                IS IT THE I/O GROUP
     2204   01 0131C    6810131F              BGE      %+3               BRANCH IF YES
     2205   01 0131D    7580280A              STB,R8   SEQCOM            NO, PRIORITY TO COUNTER GROUP
     2206   01 0131E    68001320              B        TST12#H
     2207                            *
     2208   01 0131F    7580280B              STB,R8   SEQCOM+1          PRIORITY TO I/O GROUP
     2209   01 01320    20100001 A   TST12#H  AI,X1    1
     2210   01 01321    21100010 A            CI,X1    16                HAVE ALL PRI. BEEN FOUND
     2211   01 01322    68201309              BLE      TST12#F-1         LOOP IF NO
     2212         01 01323           TST12#J  EQU      %
     2213   01 01323    6A60271D              BAL,LINK PRI@EBC           SET UP FOR PRIORITY DISPLAY
     2214   01 01324    6A6028A7              #PRINT,1,1 CONFIG,C2
            01 01325    EA6003CD
            01 01326    0160C180 A
            01 01327    6A6028D0
     2215   01 01328    6A6028A7              #PRINT,1,1 PRIHD#1,C1
            01 01329    EA6003CD
            01 0132A    0160C428 A
            01 0132B    6A6028D0
     2216   01 0132C    6A6028A7              #PRINT,1,1 PRIHD#2
            01 0132D    EA6003CD
            01 0132E    0160C44C A
            01 0132F    6A6028D0
     2217   01 01330    6A6028A7              #PRINT   PLINE#P
            01 01331    EA6003CD
            01 01332    C0009730 A
            01 01333    6A6028D0
     2218   01 01334    68001335              B        TST12#X           GO TO NEXT TEST
     2219                            *
     2220                            **********************************************************************
     2221                            *  ENTER HERE IF PRIORITY ESTABLISHED PRIOR TO TEST
     2222                            **********************************************************************
     2223                            *
     2224   01 01335    33102AC8     TST12#X  MTW,1    PRIFLAG           SET PRIORITY FLAG TO BYPASS TEST
     2225   01 01336    6A601D86              BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     2226   01 01337    68001293              B        TST1200               LOOP RETURN
     2227   01 01338    68001339              B        TST1300               CONTINUE RETURN
     2228                            *
     2229                            *
     2230                                     TITLE    '                    COUNTER TEST'                   *
     2231                            *
     2232                            *
     2233                            **********************************************************************
     2234                            *                                                                    *
     2235                            *  C O U N T E R   I N T E R R U P T   T E S T                       *
     2236                            *                                                                    *
     2237                            **********************************************************************
     2238                            *                                                                    *
     2239                            *  THIS TEST EXERCISES ALL IMPLEMENTED COUNTER PULSE INTERRUPTS      *
     2240                            *      AND DISPLAYS THE REPETITION RATE OF EACH RELATIVE TO          *
     2241                            *      A BDR INSTRUCTION DELAY FOR COUNTER #4 AND RELATIVE           *
     2242                            *      TO THE COUNTER 4 ASSUMED RATE OF 500 HZ FOR THE OTHERS *
     2243                            *       *******************************************                  *
     2244                            *       *******************************************                  *
     2245                            *       **  NOTE:    FOR GREATER ACCURACY CHECK  **                  *
     2246                            *       **       AGAINST AN OUTSIDE CLOCK BY     **                  *
     2247                            *       **       SWITCHING ONE OF THE COUNTER    **                  *
     2248                            *       **       INPUTS TO AN EXTERNAL SOURCE    **                  *
     2249                            *       *******************************************                  *
     2250                            **********************************************************************
     2251                            *
     2252                            *************************************
     2253                            *  ENTRY FROM PARAMETER LINE T      *
     2254                            *************************************
     2255                            *
     2256   01 01339                 GOTST13  RES      0
     2257   01 01339                 TST1300  RES      0
     2258   01 01339    33002A46              MTW,0    ABORTFLAG
     2259   01 0133A    6830133C              BCR,3    %+2
     2260   01 0133B    6A601D26              BAL,LINK ABORT             ABORT IF PRIORITY CHAIN ERROR
     2261                            *                                     FOUND IN PREVIOUS TEST
     2262   01 0133C    22800001 A            LI,R8    1
     2263   01 0133D    358003F3              STW,R8   PATTNO
     2264   01 0133E    22801301 A            LI,R8    X'1301'
     2265   01 0133F    358003F2              STW,R8   TESTNO
     2266   01 01340    22800000 A            LI,R8    0                 SAY NO INTERRUPT EXPECTED
     2267   01 01341    35802A90              STW,R8   INTEPSD
     2268   01 01342    02200040 A            LCI      4                 SET COUNT PULSE INTS. FOR COUNTING
     2269   01 01343    2A801444              LM,R8    MTW#52
     2270   01 01344    2B800052 A            STM,R8   X'52'
     2271   01 01345    6A601D3E              BAL,LINK ARMALL            ARM AND ENABLE ALL INT. LEVELS
     2272   01 01346    2290F000 A            LI,R9    X'F000'                                           *B00
     2273   01 01347    6D901100 A            WD,R9    DISARM            DISARM COUNTERS                 *B00
     2274   01 01348    22901000 A            LI,R9    X'1000'           ARM AND ENABLE COUNTER 4
     2275   01 01349    6D901200 A            WD,R9    ARME
     2276   01 0134A    22800000 A            LI,R8    0                 INITIALIZE COUNTERS
     2277   01 0134B    22400004 A            LI,X4    4
     2278   01 0134C    35882A83              STW,R8   PULSECNT-1,X4
     2279   01 0134D    6440134C              BDR,X4   %-1
     2280   01 0134E    6A60210E              BAL,LINK DELAY1SEC         BDR TIMING LOOP
     2281                            *
     2282         01 0134F           TST13RET EQU      %
     2283   01 0134F    32802A87              LW,R8    PULSECNT+3        FIND COUNT
     2284   01 01350    218001C2 A            CI,R8    450
     2285   01 01351    6910138A              BL       TST13#E           BRANCH IF TOO LOW
     2286   01 01352    21800226 A            CI,R8    550
     2287   01 01353    6920138A              BG       TST13#E           BRANCH IF TOO HIGH
     2288   01 01354    228FFE0C A            LI,R8    -500
     2289   01 01355    35802A87              STW,R8   PULSECNT+3        JAM COUNTER 4 COUNT TO -500
     2290   01 01356    2E002A87              WAIT     PULSECNT+3        WAIT FOR FIRST COUNT
     2291   01 01357    2290FFFC A            LI,R9    X'FFFC'           SELECT ALL COUNTER INTS.
     2292   01 01358    6D901300 A            WD,R9    ARMD              ENABLE ALL COUNT PULSE INTS.
     2293   01 01359    2290F000 A            LI,R9    X'F000'              AND DISABLE CNTR ZERO INTS.
     2294   01 0135A    6D901400 A            WD,R9    ENBL                      *
     2295   01 0135B    32802A87              LW,R8    PULSECNT+3        CHECK IF COUNTER 4 AT ZERO
     2296   01 0135C    6930135B              BNEZ     %-1
     2297   01 0135D    6D901500 A            WD,R9    DISABLE           DISABLE ALL COUNT PULSE INTS.
     2298   01 0135E    228001F4 A            LI,R8    500
     2299   01 0135F    35802A87              STW,R8   PULSECNT+3
     2300   01 01360    22400004 A            LI,X4    4
     2301   01 01361    32882A83              LW,R8    PULSECNT-1,X4                                     *B03
     2302   01 01362    31882A49              CW,R8    CNTRFREQ-1,X4                                     *B03
     2303   01 01363    69301366              BNE      %+3                                               *B03
     2304   01 01364    64401361              BDR,X4   %-3                                               *B03
     2305   01 01365    680013A9              B        TST13#X                                           *B03
     2306   01 01366    02000000 A            NOP                                                        *B03
     2307   01 01367    02000000 A            NOP                                                        *B03
     2308   01 01368    02000000 A            NOP                                                        *B03
     2309   01 01369    2250000A A   TST13#A  LI,X5    10
     2310   01 0136A    22400001 A            LI,X4    1
     2311   01 0136B    6A6028A7              #PRINT   UPSPACE,C2
            01 0136C    EA6003CD
            01 0136D    C200B1C0 A
            01 0136E    6A6028D0
     2312   01 0136F    32D82A83     TST13#B  LW,RD    PULSECNT-1,X4     FIND COUNTS PER SECOND
     2313   01 01370    6830137A              BEZ      TST13#C
     2314   01 01371    21D0003D A            CI,RD    61
     2315   01 01372    69201374              BG       %+2
     2316   01 01373    20DFFFFF A            AI,RD    -1                COMPENSATE FOR ERROR
     2317   01 01374    21D007CD A            CI,RD    1997
     2318   01 01375    69101377              BL       %+2
     2319   01 01376    20D00002 A            AI,RD    2                 COMPENSATE FOR ERROR
     2320   01 01377    21D003E6 A            CI,RD    998
     2321   01 01378    6910137A              BL       %+2
     2322   01 01379    20D00001 A            AI,RD    1                 COMPENSATE FOR ERROR
     2323   01 0137A    6A6029AE     TST13#C  BAL,LINK :HEX@DE           CONVERT COUNTS TO DECIMAL(EBCDIC)
     2324   01 0137B    6A601E69              SEND     PLSRATE
            01 0137C    0000C244 A
     2325   01 0137D    15C03F0A              STD,RC   OUTBUF+6
     2326   01 0137E    F28803D2              LB,R8    *#VALTAB%,X4      FIND COUNTER # IN EBCDIC
     2327   01 0137F    758A3F04              STB,R8   OUTBUF,X5
     2328   01 01380    6A6028A7              #PRINT   OUTBUF            PRINT PULSE RATE MESSAGE
            01 01381    EA6003CD
            01 01382    C000FC10 A
            01 01383    6A6028D0
     2329   01 01384    69301386              BCS,3    %+2               BRANCH IF NO 'BREAK' CHARACTER
     2330   01 01385    680013A9              B        TST13#X
     2331   01 01386    20400001 A            AI,X4    1                 SELECT NEXT COUNTER
     2332   01 01387    21400004 A            CI,X4    4                 ARE ALL VALUES DISPLAYED
     2333   01 01388    6820136F              BLE      TST13#B           LOOP IF NO
     2334   01 01389    680013A7              B        TST13#X-2         EXIT
     2335                            *
     2336                            *  ENTER HERE IF COUNTER 4 OUT OF LIMITS
     2337                            *
     2338   01 0138A    22901000 A   TST13#E  LI,R9    X'1000'           SELECT COUNTER #4
     2339   01 0138B    6D901500 A            WD,R9    DISABLE           DISABLE COUNTS FROM #4
     2340   01 0138C    6A6028A7              #PRINT,1,1 COUNTERROR,C2   INDICATE FAULT
            01 0138D    EA6003CD
            01 0138E    0160C1CA A
            01 0138F    6A6028D0
     2341   01 01390    6A602264              BAL,LINK   EROR#W          CHECK FOR HALT ON ERROR
     2342   01 01391    328013AD              LW,R8    CNTERREXP%        SET UP EXPLANATION
     2343   01 01392    B58003CE              STW,R8   *#ERRTEXT%                *
     2344   01 01393    22800000 A            LI,R8    0
     2345   01 01394    35802A87              STW,R8   PULSECNT+3        RESET COUNTER 4 VALUE
     2346   01 01395    2290F000 A            LI,R9    X'F000'
     2347   01 01396    6D901200 A            WD,R9    ARME              FIND APPROX. COUNTS FOR ALL 4
     2348   01 01397    6A60210E              BAL,LINK DELAY1SEC         BDR TIMING LOOP
     2349   01 01398    2290F000 A            LI,R9    X'F000'
     2350   01 01399    6D901500 A            WD,R9    DISABLE           DISABLE ALL COUNT PULSE INTS.
     2351   01 0139A    22400004 A            LI,X4    4
     2352   01 0139B    32882A83              LW,R8    PULSECNT-1,X4                                     *B03
     2353   01 0139C    31882A49              CW,R8    CNTRFREQ-1,X4                                     *B03
     2354   01 0139D    693013A0              BNE      %+3                                               *B03
     2355   01 0139E    6440139B              BDR,X4   %-3                                               *B03
     2356   01 0139F    680013A9              B        TST13#X                                           *B03
     2357   01 013A0    02000000 A            NOP                                                        *B03
     2358   01 013A1    02000000 A            NOP                                                        *B03
     2359   01 013A2    02000000 A            NOP                                                        *B03
     2360   01 013A3    22400004 A            LI,X4    4                                                 *B03
     2361   01 013A4    32882A83              LW,R8    PULSECNT-1,X4                                     *B03
     2362   01 013A5    35882A49              STW,R8   CNTRFREQ-1,X4                                     *B03
     2363   01 013A6    644013A4              BDR,X4   %-2                                               *B03
     2364   01 013A7    02000000 A            NOP                                                        *B03
     2365   01 013A8    02000000 A            NOP
     2366                            *
     2367                            *
     2368   01 013A9    6A601173     TST13#X  BAL,LINK JAMXPSDS          RESTORE XPSD'S TO LOC. 52-55
     2369   01 013AA    6A601D86              BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     2370   01 013AB    68001339              B        TST1300           LOOP RETURN
     2371   01 013AC    680013BD              B        TST1400           CONTINUATION RETURN
     2372                            *
     2373   01 013AD    0640C252 N   CNTERREXP%  GEN,8,2,6,16 6,1,,BA(CNTERREXP) EXPLANATION POINTER
     2374                            *
     2375                            *
     2376                            *
     2377                                     TITLE    ;
     2378                             '                    INTERRUPT INSTRUCTION TEST'
     2379                            *
     2380                            *
     2381                            **********************************************************************
     2382                            *                                                                    *
     2383                            *  I N T E R R U P T    I N S T R U C T I O N    T E S T             *
     2384                            *                                                                    *
     2385                            **********************************************************************
     2386                            *                                                                    *
     2387                            *                                                                    *
     2388                            *  THIS TEST TRIES MTB,MTH, AND MTW INSTRUCTIONS IN EACH IMPL. INT.  *
     2389                            *       LOCATION (COUNTER PULSE EXCEPTED) AND CHECKS EACH            *
     2390                            *       INTERRUPT LOCATION FOR ITS ABILITY TO ADDRESS A ROUTINE      *
     2391                            *       INDIRECTLY.                                                  *
     2392                            *                                                                    *
     2393                            *                                                                    *
     2394                            *  SUBTEST NUMBERS INDICATE THE GROUP# AND LEVEL# RESPECTIVELY,      *
     2395                            *       UNDER TEST. (I.E.  SUBTEST B3 IS THE 4TH HIGHEST LEVEL IN    *
     2396                            *       GROUP 11 )                                                   *
     2397                            *                                                                    *
     2398                            **********************************************************************
     2399                            *
     2400                            *************************************
     2401                            *        X4 = # OF TRIGGERS LEFT TO DO
     2402                            *        X7 = # OF LEVELS LEFT IN GROUP
     2403                            *        R9 = SHIFT REGISTER CONTAINING GROUP IMPLEMENTATION
     2404                            *
     2405                            *  ENTRY FROM PARAMETER LINE T      *
     2406                            *************************************
     2407                            *
     2408   01 013AE    02200000 A   GOTST14  LCI      0
     2409   01 013AF    2A0026A3              LM,0     GOSAVE
     2410   01 013B0    328003F3              LW,R8    PATTNO
     2411   01 013B1    22100003 A            LI,X1    3
     2412   01 013B2    75820003 A            STB,R8   LVL,X1
     2413   01 013B3    4B302C87              AND,LVL  XF                                                *A01
     2414   01 013B4    2580007C A            SLS,R8   -4
     2415   01 013B5    75820002 A            STB,R8   GRP,X1
     2416   01 013B6    6A601D52              BAL,LINK DISARMALL
     2417   01 013B7    328003F2              LW,R8    TESTNO
     2418   01 013B8    21801401 A            CI,R8    X'1401'
     2419   01 013B9    683013C2              BE       TST1401
     2420   01 013BA    21801402 A            CI,R8    X'1402'
     2421   01 013BB    68301440              BE       TST1402
     2422   01 013BC    68002676              B        INVALTST#
     2423                            *
     2424                            *
     2425   01 013BD                 TST1400  RES      0
     2426   01 013BD    6A601D52              BAL,LINK DISARMALL
     2427   01 013BE    22200000 A            LI,GRP   0                 INITIALIZE FOR SEQUENTIAL TEST
     2428   01 013BF    22300000 A            LI,LVL   0
     2429   01 013C0    22801401 A            LI,R8    X'1401'
     2430   01 013C1    358003F2              STW,R8   TESTNO
     2431   01 013C2    02200030 A   TST1401  LCI      3
     2432   01 013C3    2AC0144C              LM,RC    MODIFY+3
     2433   01 013C4    2BC01449              STM,RC   MODIFY            GET MODIFY AND TEST INSTRUCTIONS
     2434   01 013C5    6A601428              BAL,LINK TST14INIT         INITIALIZE
     2435   01 013C6    22800000 A   TST14#A  LI,R8    0                 SAY NO INTERRUPTS EXPECTED
     2436   01 013C7    35802A90              STW,R8   INTEPSD
     2437   01 013C8    25900001 A            SLS,R9   1                 CHECK IF LEVEL IS IMPLEMENTED
     2438   01 013C9    698013CD              BC       TST14#B           BRANCH IF IMPLEMENTED
     2439   01 013CA    20300001 A            AI,LVL   1
     2440   01 013CB    647013C6              BDR,X7   TST14#A           LOOP IF NOT DONE WITH GROUP
     2441   01 013CC    680013FF              B        TST14#D           GO TEST EXTERNAL GROUPS
     2442                            *
     2443   01 013CD    22A00000 A   TST14#B  LI,LOG   0                 ZERO COUNTER
     2444   01 013CE    6D000027 A            WD,0     X'27'             RESET INTERRUPT INHIBITS        *B00
     2445   01 013CF    32B00002 A            LW,RB    GRP               COMPUTE PATTERN NUMBER
     2446   01 013D0    25B00004 A            SLS,RB   4
     2447   01 013D1    30B00003 A            AW,RB    LVL
     2448   01 013D2    35B003F3              STW,RB   PATTNO
     2449   01 013D3    20200000 A            AI,GRP   0                 COMPUTE LOCATION UNDER TEST
     2450   01 013D4    693013D8              BNEZ     %+4
     2451   01 013D5    22B00052 A            LI,RB    X'52'
     2452   01 013D6    30B00003 A            AW,RB    LVL
     2453   01 013D7    680013DA              B        %+3
     2454   01 013D8    22B00040 A            LI,RB    X'40'
     2455   01 013D9    30B003F3              AW,RB    PATTNO
     2456   01 013DA    35B02A62              STW,RB   LOCATION
     2457   01 013DB    B2B02A62              LW,RB    *LOCATION         SAVE XPSD
     2458   01 013DC    32801449              LW,R8    MODIFY            FIND MTW INSTRUCTION
     2459   01 013DD    B5802A62              STW,R8   *LOCATION
     2460   01 013DE    32862B36              LW,R8    LEVMASK,LVL       SELECT LEVEL
     2461                            *                                                                   *B00
     2462   01 013DF    F02003D8              LC       *#COCSTATE%                                       *B00
     2463   01 013E0    68C013E5              BCR,12   %+5               BRANCH IF NO REMOTE TERMINAL    *B00
     2464   01 013E1    312003F8              CW,GRP   COCGRP                                            *B00
     2465   01 013E2    693013E5              BNE      %+3               BRANCH IF NOT COC GROUP         *B00
     2466   01 013E3    4B8003F9              AND,R8   COCMASK           CHECK IF A COC LEVEL            *B00
     2467   01 013E4    683013FA              BEZ      TST14#C              AND EXIT IF YES              *B00
     2468                            *                                                                   *B00
     2469   01 013E5    6D841200 A            WD,R8    ARME,GRP          ARM AND ENABLE IT
     2470   01 013E6    6D841700 A            WD,R8    TRIG,GRP          TRIGGER IT
     2471   01 013E7    644013E6              BDR,X4   %-1                  15 TIMES
     2472   01 013E8    2240000F A            LI,X4    15
     2473   01 013E9    3280144A              LW,R8    MODIFY+1          FIND MTH INSTRUCTION
     2474   01 013EA    B5802A62              STW,R8   *LOCATION
     2475   01 013EB    32862B36              LW,R8    LEVMASK,LVL       SELECT LEVEL
     2476   01 013EC    6D841200 A            WD,R8    ARME,GRP          ARM AND ENABLE IT
     2477   01 013ED    6D841700 A            WD,R8    TRIG,GRP          TRIGGER IT
     2478   01 013EE    644013ED              BDR,X4   %-1                  15 TIMES
     2479   01 013EF    2240000F A            LI,X4    15
     2480   01 013F0    3280144B              LW,R8    MODIFY+2          FIND MTB INSTRUCTION
     2481   01 013F1    B5802A62              STW,R8   *LOCATION
     2482   01 013F2    32862B36              LW,R8    LEVMASK,LVL       SELECT LEVEL
     2483   01 013F3    6D841200 A            WD,R8    ARME,GRP          ARM AND ENABLE IT
     2484   01 013F4    6D841700 A            WD,R8    TRIG,GRP          TRIGGER IT
     2485   01 013F5    644013F4              BDR,X4   %-1                  15 TIMES
     2486   01 013F6    2240000F A            LI,X4    15
     2487   01 013F7    B5B02A62              STW,RB   *LOCATION         RESTORE XPSD
     2488   01 013F8    31A01448              CW,LOG   MODCOUNT          ARE THERE ANY ERRORS
     2489   01 013F9    6930140C              BNE      TST14#E           BRANCH IF YES
     2490                            *
     2491                            *        ENTER HERE AFTER EACH SUBTEST IS COMPLETE
     2492                            *
     2493   01 013FA    6A601D86     TST14#C  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     2494   01 013FB    680013CD              B        TST14#B           LOOP RETURN
     2495                            *
     2496   01 013FC    20300001 A            AI,LVL   1
     2497   01 013FD    207FFFFF A            AI,X7    -1
     2498   01 013FE    693013C6              BNEZ     TST14#A           LOOP IF NOT LAST LEVEL
     2499                            *
     2500                            *        ENTER HERE AFTER EACH GROUP IS TESTED
     2501                            *
     2502   01 013FF    21200000 A   TST14#D  CI,GRP   0                 GO ON TO EXTERNAL GROUPS
     2503   01 01400    69301402              BNE      %+2               SKIP IF NEXT GROUP ISN'T 2
     2504   01 01401    20200001 A            AI,GRP   1
     2505   01 01402    20200001 A   TST14#D1 AI,GRP   1
     2506   01 01403    21200010 A            CI,GRP   16                WAS LAST GROUP TESTED
     2507   01 01404    69101409              BL       %+5               BRANCH IF NO
     2508   01 01405    328003F2              LW,R8    TESTNO
     2509   01 01406    21801401 A            CI,R8    X'1401'
     2510   01 01407    6830143C              BE       TST14#J
     2511   01 01408    68001461              B        TST1500
     2512                            *
     2513   01 01409    22300000 A            LI,LVL   0
     2514   01 0140A    6A601428              BAL,LINK TST14INIT
     2515   01 0140B    680013C6              B        TST14#A
     2516                            *
     2517                            *
     2518                            ******************************
     2519                            *    ERROR ENTRY
     2520                            ******************************
     2521   01 0140C    72B0000A A   TST14#E  LB,RB    LOG               FIND MTB COUNT
     2522   01 0140D    21B0000F A            CI,RB    15
     2523   01 0140E    68301414              BE       TST14#F           BRANCH IF RIGHT
     2524   01 0140F    35B02A45              STW,RB   ACTCOUNT          SAVE COUNT FOR DISPLAY
     2525   01 01410    2280000F A            LI,R8    15
     2526   01 01411    35802A59              STW,R8   EXPCOUNT          SAVE EXPECTED COUNT FOR DISPLAY
     2527   01 01412    22C00052 A            LI,RC    X'52'             SET ERROR TYPE FOR DISPLAY
     2528   01 01413    6A602122              BAL,LINK EROR              DISPLAY ERROR
     2529   01 01414    22B00000 A   TST14#F  LI,RB    0
     2530   01 01415    75B0000A A            STB,RB   LOG
     2531   01 01416    52B0000A A            LH,RB    LOG               FIND MTH COUNT
     2532   01 01417    21B0000F A            CI,RB    15
     2533   01 01418    6830141E              BE       TST14#G           BRANCH IF RIGHT
     2534   01 01419    35B02A45              STW,RB   ACTCOUNT          SAVE COUNT FOR DISPLAY
     2535   01 0141A    2280000F A            LI,R8    15
     2536   01 0141B    35802A59              STW,R8   EXPCOUNT          SAVE EXPECTED COUNT FOR DISPLAY
     2537   01 0141C    22C00053 A            LI,RC    X'53'             SET ERROR TYPE FOR DISPLAY
     2538   01 0141D    6A602122              BAL,LINK EROR              DISPLAY ERROR
     2539   01 0141E    22B00000 A   TST14#G  LI,RB    0
     2540   01 0141F    55B0000A A            STH,RB   LOG
     2541   01 01420    21A0000F A            CI,LOG   15                CHECK MTW COUNT
     2542   01 01421    683013FA              BE       TST14#C           BRANCH IF RIGHT
     2543   01 01422    35B02A45              STW,RB   ACTCOUNT          SAVE COUNT FOR DISPLAY
     2544   01 01423    2280000F A            LI,R8    15
     2545   01 01424    35802A59              STW,R8   EXPCOUNT          SAVE EXPECTED COUNT FOR DISPLAY
     2546   01 01425    22C00054 A            LI,RC    X'54'             SET ERROR TYPE FOR DISPLAY
     2547   01 01426    6A602122              BAL,LINK EROR              DISPLAY ERROR
     2548   01 01427    680013FA              B        TST14#C           RETURN
     2549                            *
     2550                            *        INITIALIZE REGISTERS X4,X7, AND R9
     2551                            *
     2552         01 01428           TST14INIT  EQU    %
     2553   01 01428    21200000 A            CI,GRP   0                 IS IT GROUP ZERO
     2554   01 01429    6930142F              BNE      %+6               BRANCH IF NO
     2555                            *
     2556                            *  SET UP GROUP ZERO
     2557                            *
     2558   01 0142A    2270000E A            LI,X7    14                SET UP LEVELS TO DO
     2559   01 0142B    32901453              LW,R9    NOTCNTR           SET SELECTIVE MASK
     2560   01 0142C    25900010 A            SLS,R9   16                        *
     2561   01 0142D    4A902ABE              LS,R9    LEVIMPL           SELECT LEVELS TO TEST
     2562   01 0142E    68001437              B        %+9                                               *B00
     2563                            *
     2564                            *  SET UP EXTERNAL GROUP
     2565                            *
     2566   01 0142F    22700010 A            LI,X7    16                SET UP # OF LEVELS TO CHECK
     2567   01 01430    52942ABE              LH,R9    LEVIMPL,GRP       SELECT LEVELS TO TEST
     2568   01 01431    F02003D8              LC       *#COCSTATE%                                       *B00
     2569   01 01432    68C01436              BCR,12   %+4               BRANCH IF NO REMOTE TERM.       *B00
     2570   01 01433    312003F8              CW,GRP   COCGRP                                            *B00
     2571   01 01434    69301436              BNE      %+2               BRANCH IF NOT COC INT. GROUP    *B00
     2572   01 01435    4B9003F9              AND,R9   COCMASK           DELETE COC LEVELS               *B00
     2573   01 01436    25900010 A            SLS,R9   16
     2574   01 01437    68301402              BEZ      TST14#D1          BRANCH IF NOT IMPLEMENTED
     2575                            *
     2576   01 01438    38700003 A            SW,X7    LVL               MODIFY REGISTER VALUES IF IT
     2577   01 01439    A5900003 A            SLS,R9   *LVL                  WAS A 'PARAM T' ENTRY
     2578   01 0143A    2240000F A            LI,X4    15                SET UP FOR 15 TRIGGERS
     2579   01 0143B    E8000006 A            B        *LINK
     2580                            *
     2581                            *
     2582                            *
     2583                            ***********************************************
     2584                            *  CHECK INDIRECT ADDRESSING CAPABILITY
     2585                            ***********************************************
     2586                            *
     2587   01 0143C    22801402 A   TST14#J  LI,R8    X'1402'           INITIALIZE FOR TEST 1402
     2588   01 0143D    358003F2              STW,R8   TESTNO
     2589   01 0143E    22200000 A            LI,GRP   0
     2590   01 0143F    22300000 A            LI,LVL   0
     2591   01 01440    02200030 A   TST1402  LCI      3
     2592   01 01441    2AC0144F              LM,RC    MODIFY+6
     2593   01 01442    2BC01449              STM,RC   MODIFY
     2594   01 01443    680013C5              B        TST14#A-1
     2595                            *
     2596                            *
     2597                            *********************************
     2598                            * COUNT INSTRUCTIONS FOR LOC.# 52-55
     2599                            ***********************************
     2600   01 01444    33102A84     MTW#52   GEN,8,4,3,17  X'33',1,0,PULSECNT
     2601   01 01445    33102A85              GEN,8,4,3,17  X'33',1,0,PULSECNT+1
     2602   01 01446    33102A86              GEN,8,4,3,17  X'33',1,0,PULSECNT+2
     2603   01 01447    33102A87              GEN,8,4,3,17  X'33',1,0,PULSECNT+3
     2604                            *
     2605   01 01448    0F0F000F A   MODCOUNT DATA     X'F0F000F'        EXPECTED PATTERN IN LOG
     2606                            *                                       (AFTER TEST 1401)
     2607                            *
     2608                            **********************************
     2609                            * MODIFY AND TEST INSTR. FOR TEST 1401-1402
     2610                            **********************************
     2611   01 01449    00000000 A   MODIFY   DATA     0,0,0             MODIFY AND TEST BUFFER
            01 0144A    00000000 A
            01 0144B    00000000 A
     2612   01 0144C    3310000A A            MTW,1    LOG
     2613   01 0144D    5310000A A            MTH,1    LOG
     2614   01 0144E    7310000A A            MTB,1    LOG
     2615   01 0144F    B3101452              MTW,1    *MODIFYI
     2616   01 01450    D3101452              MTH,1    *MODIFYI
     2617   01 01451    F3101452              MTB,1    *MODIFYI
     2618   01 01452    0000000A A   MODIFYI  DATA     LOG
     2619                            *
     2620   01 01453    00000FFC A   NOTCNTR  DATA     X'FFC'            GROUP 0 (NOT COUNT PLS) MASK
     2621                                     TITLE    ;
     2622                             '                    INTERRUPT OVERRIDE TEST'
     2623                            *
     2624                            *
     2625                            **********************************************************************
     2626                            *    I N T E R R U P T   O V E R R I D E    T E S T                  *
     2627                            ****************************************************
     2628                            *
     2629                            *  THIS TEST TRIGGERS EACH IMPLEMENTED LEVEL (ONE AT A TIME-
     2630                            *        STARTING WITH THE LOWEST PRIORITY) WITHOUT RELEASING
     2631                            *        THE LAST ACTIVE INTERRUPT IN ORDER TO TEST THE ABILITY
     2632                            *        OF EACH LEVEL TO INTERRUPT LOWER PRIORITY ACTIVE INTERRUPTS
     2633                            *
     2634                            *
     2635                            *
     2636                            *        REGISTER USEAGE:
     2637                            *                 X1 = ZERO
     2638                            *                 X4 = PRIORITY OF GROUP UNDER TEST
     2639                            *                 X5 = HISTORY TABLE POINTER (BYTE)
     2640                            *                 X7 = GROUP UNDER TEST ( 0=OVERRIDE, 1=CNTRZERO,
     2641                            *                      2=I/O, AND 3-10 =EXTERNAL GROUPS 2-F )
     2642                            *                 RB = HISTORY TABLE SIZE INDEX
     2643                            *                 RF = NUMBER OF LEVELS IN GROUP LEFT TO CHECK
     2644                            *
     2645                            *
     2646                            **********************************************************************
     2647                            *
     2648                            *******************
     2649                            *  RESTART ENTRY  *
     2650                            *******************
     2651                            *
     2652   01 01454    02200000 A   GOTST15  LCI      0
     2653   01 01455    2A0026A3              LM,0     GOSAVE
     2654   01 01456    328003F2              LW,R8    TESTNO
     2655   01 01457    21801501 A            CI,R8    X'1501'
     2656   01 01458    6930145C              BNE      GOTST15A          ERROR IF NOT TEST 1501
     2657   01 01459    328003F3              LW,R8    PATTNO
     2658   01 0145A    21800001 A            CI,R8    1
     2659   01 0145B    68301461              BE       TST1500           OK IF SUBTEST#1
     2660   01 0145C    6A6028A7     GOTST15A #TYPE,1,1 TST15MSG
            01 0145D    EA6003CC
            01 0145E    0160C18E A
            01 0145F    6A6028D0
     2661   01 01460    68001461              B        TST1500
     2662                            *
     2663                            *
     2664                            *
     2665                            *******************
     2666                            *  NORMAL ENTRY   *
     2667                            *******************
     2668   01 01461                 TST1500  RES      0
     2669   01 01461    22801501 A            LI,R8    X'1501'
     2670   01 01462    358003F2              STW,R8   TESTNO
     2671   01 01463    22800001 A            LI,R8    1
     2672   01 01464    358003F3              STW,R8   PATTNO
     2673   01 01465    22400008 A            LI,X4    8                 INITIALIZE GRPINH AND LEV
     2674   01 01466    22100000 A            LI,X1    0                        TABLES
     2675   01 01467    35102ACA              STW,X1   GRPINH
     2676   01 01468    6A602356              BAL,LINK INITTAB
     2677   01 01469    35102A5A              STW,X1   EXPSEQCT
     2678   01 0146A    6A602348              BAL,LINK INITHIST
     2679   01 0146B    6A60276D              BAL,LINK READEXP
     2680   01 0146C    22200000 A            LI,GRP   0
     2681   01 0146D    35202A91              STW,GRP  INTEPSD+1         ZERO OUT EXPECTED PSD
     2682   01 0146E    6A601173              BAL,LINK JAMXPSDS          INITIALIZE X'10'-X'1FF'
     2683   01 0146F    6A60235F              BAL,LINK INITPSD
     2684   01 01470    6A601D52              BAL,LINK DISARMALL
     2685   01 01471    22800FFC A            LI,R8    X'FFC'            SET PATTERNS TO ARM AND ENABLE
     2686   01 01472    55802A96              STH,R8   LEVARMD               ALL INTERRUPT LEVELS EXCEPT
     2687   01 01473    55802A9E              STH,R8   LEVENBL               COUNTER PULSE
     2688   01 01474    2240000F A            LI,X4    15                                                *B00
     2689         01 01475           TST15#A  EQU      %                                                 *B00
     2690   01 01475    F02003D8              LC       *#COCSTATE%                                       *B00
     2691   01 01476    68C0147B              BCR,12   %+5               BRANCH IF NO REMOTE TERM.       *B00
     2692   01 01477    314003F8              CW,X4    COCGRP                                            *B00
     2693   01 01478    6930147B              BNE      %+3               BRANCH IF COC NOT IN THIS GRP.  *B00
     2694   01 01479    328003F9              LW,R8    COCMASK           INHIBIT COC LEVELS              *B00
     2695   01 0147A    6800147C              B        %+2                                               *B00
     2696                            *                                                                   *B00
     2697   01 0147B    228FFFFF A            LI,R8    -1                                                *B00
     2698   01 0147C    55882A96              STH,R8   LEVARMD,X4               DO EXTERNAL GROUPS       *B00
     2699   01 0147D    55882A9E              STH,R8   LEVENBL,X4                                        *B00
     2700   01 0147E    55882AB6              STH,R8   LEVNINH,X4                                        *B00
     2701   01 0147F    64401475              BDR,X4   TST15#A                                           *B00
     2702   01 01480    35802AB6              STW,R8   LEVNINH
     2703   01 01481    6A602974              BAL,LINK SETPATT
     2704   01 01482    22400010 A            LI,X4    16                CREATE TABLE OF PRIORITIES
     2705   01 01483    32882809              LW,R8    SEQCOM-1,X4
     2706   01 01484    25800068 A            SLS,R8   -24
     2707   01 01485    75882A7A              STB,R8   PRIORITY,X4
     2708   01 01486    64401483              BDR,X4   %-3
     2709                            *
     2710                            *  ENTER HERE AFTER HIGHEST LEVEL IN EACH GROUP HAS BEEN TRIGGERED
     2711                            *
     2712   01 01487    55142AA6     TST15#A1 STH,X1   LEVTRIG,GRP
     2713   01 01488    22700010 A            LI,X7    16                INITIALIZE GROUP COUNTER
     2714   01 01489    22400010 A            LI,X4    16                       AND PRIORITY COUNTER
     2715                            *
     2716   01 0148A    728E2A7A     TST15#A2 LB,R8    PRIORITY,X7       SEARCH FOR LOWEST PRIOR. GROUP
     2717   01 0148B    31800004 A            CW,R8    X4                        NOT YET SERVICED
     2718   01 0148C    69301495              BNE      TST15#B           BRANCH IF NOT FOUND
     2719   01 0148D    751E2A7A              STB,X1   PRIORITY,X7       ZERO GROUP TO INDICATE SERVICED
     2720   01 0148E    21700002 A            CI,X7    2                 IS IT A GROUP ZERO GROUP
     2721   01 0148F    6820149C              BLE      TST15#C           BRANCH IF YES
     2722   01 01490    2230000F A            LI,LVL   15                NO, SET UP TO TRIGGER LOWEST LEVEL
     2723   01 01491    222FFFFF A            LI,GRP   -1
     2724   01 01492    30200007 A            AW,GRP   X7
     2725   01 01493    22F00010 A            LI,RF    16
     2726   01 01494    680014A7              B        TST15#D+2
     2727                            *
     2728   01 01495    6470148A     TST15#B  BDR,X7   TST15#A2          SEARCH NEXT GROUP FOR THIS PRI.
     2729   01 01496    22700010 A            LI,X7    16
     2730   01 01497    6440148A              BDR,X4   TST15#A2          SEARCH FOR NEXT PRIORITY
     2731                            *
     2732                            *  FALL THRU WHEN ALL GROUPS HAVE BEEN SERVICED
     2733                            *         (EXCEPT OVERRIDE GROUP)
     2734                            *
     2735   01 01498    22F00006 A            LI,RF    6                 SET UP TO SERVICE OVER. GROUP
     2736   01 01499    22300005 A            LI,LVL   5
     2737   01 0149A    22200000 A            LI,GRP   0                                                 *B02
     2738   01 0149B    680014CB              B        TST15#F           GO SERVICE OVERRIDE GROUP
     2739                            *
     2740                            *  ENTER HERE TO SELECT COUNTER ZERO OR I/O GROUP
     2741                            *
     2742   01 0149C    22200000 A   TST15#C  LI,GRP   0                 INDICATE SERVICING A GROUP 0 GROUP
     2743   01 0149D    21700002 A            CI,X7    2                 IS IT THE I/O GROUP
     2744   01 0149E    693014A2              BNE      %+4               BRANCH IF CNTR. ZERO GROUP
     2745   01 0149F    2230000D A            LI,LVL   X'D'
     2746   01 014A0    22F00004 A            LI,RF    4
     2747   01 014A1    680014CB              B        TST15#F           GO SERVICE I/O GROUP
     2748                            *
     2749   01 014A2    22300009 A            LI,LVL   9
     2750   01 014A3    22F00004 A            LI,RF    4
     2751   01 014A4    680014CB              B        TST15#F           GO SERVICE CNTR. ZERO GROUP
     2752                            *
     2753                            *
     2754                            *  ENTER HERE TO TRIGGER NEXT  LEVEL
     2755                            *
     2756   01 014A5    21200000 A   TST15#D  CI,GRP   0
     2757   01 014A6    683014CB              BE       TST15#F           BRANCH IF NOT AN EXTERNAL GROUP
     2758   01 014A7    213FFFFF A            CI,LVL   -1                WAS HI PRI. LEVEL IN GRP SERVICED
     2759   01 014A8    68301487              BE       TST15#A1          DO NEXT GROUP IF YES
     2760                            *
     2761   01 014A9    52942ABE     TST15#E  LH,R9    LEVIMPL,GRP       IS THIS LEVEL IMPLEMENTED
     2762   01 014AA    4B962B36              AND,R9   LEVMASK,LVL
     2763   01 014AB    683014DB              BEZ      TST15#J           SKIP THIS LEVEL IF NO
     2764                            *
     2765   01 014AC    52842AAE     TST15#E1 LH,R8    LEVEXP,GRP        FIND PREVIOUSLY EXPECTED LEVELS
     2766   01 014AD    49800009 A            OR,R8    R9                   ADD NEW LEVEL
     2767   01 014AE    55842AAE              STH,R8   LEVEXP,GRP                *
     2768   01 014AF    55842AA6              STH,R8   LEVTRIG,GRP
     2769   01 014B0    22B000EE A            LI,RB    238               SET NEXT EXP. INT. IN HIST. TBL *B00
     2770   01 014B1    2250F4A4              LI,X5    BA(HISTORY+1)
     2771   01 014B2    32800002 A            LW,R8    GRP
     2772   01 014B3    25800004 A            SLS,R8   4
     2773   01 014B4    30800003 A            AW,R8    LVL
     2774   01 014B5    718A0000 A            CB,R8    0,X5
     2775   01 014B6    683014BA              BE       %+4
     2776                            *
     2777                            *  NO MATCH, SEARCH TABLE UNTIL GRP/LVL IS FOUND
     2778                            *
     2779   01 014B7    20500008 A            AI,X5    8
     2780   01 014B8    64B014B5              BDR,RB   %-3
     2781   01 014B9    6A601D26              BAL,LINK ABORT             PROGRAMMING ERROR IF NOT IN TABLE
     2782   01 014BA    32802A5A              LW,R8    EXPSEQCT
     2783                            *
     2784   01 014BB    205FFFFC A            AI,X5    -4                POINT TO EXP. SEQ.
     2785   01 014BC    20800001 A            AI,R8    1
     2786   01 014BD    758A0000 A            STB,R8   0,X5
     2787                            *
     2788   01 014BE    35802A5A              STW,R8   EXPSEQCT
     2789                            *
     2790   01 014BF    22000006 A            LI,R0    6
     2791   01 014C0    228014C5              LI,R8    15INT-1           LOAD EXPECTED INT. ADDRESS
     2792   01 014C1    32962B36              LW,R9    LEVMASK,LVL
     2793   01 014C2    35802A90              STW,R8   INTEPSD                   *
     2794   01 014C3    02200000 A            LCI      0
     2795   01 014C4    6D941200 A            WD,R9    ARME,GRP          ARM AND ENABLE
     2796   01 014C5    6D941700 A            WD,R9    TRIG,GRP          TRIGGER
     2797                            *
     2798                            **********************************************************************
     2799                            *  INTERRUPT SHOULD OCCUR DURING FOLLOWING DELAY
     2800   01 014C6    640014C6     15INT    BDR,R0   %
     2801   01 014C7    22C00012 A            LI,RC    X'12'             SET UP ERROR TYPE 12 MESSAGE
     2802   01 014C8    6A6027D4              BAL,LINK READLOC                                           *A02
     2803   01 014C9    6A602122              BAL,LINK EROR              DISPLAY THE ERROR
     2804   01 014CA    680014D9              B        TST15#H           GO TO NEXT TEST
     2805                            *
     2806                            *  ENTER HERE IF A GROUP ZERO GROUP NEEDS SERVICE
     2807                            *
     2808   01 014CB    21400000 A   TST15#F  CI,X4    0                 IS IT THE OVERRIDE GROUP
     2809   01 014CC    693014D6              BNE      TST15#G           BRANCH IF NO
     2810   01 014CD    21700000 A            CI,X7    0                 WAS HIGH PRI. TRIGGERED
     2811   01 014CE    683014DF              BE       TST15#X1          EXIT IF YES
     2812   01 014CF    52862B36              LH,R8    LEVMASK,LVL       INDICATE ARMED AND ENABLED
     2813   01 014D0    49802A9E              OR,R8    LEVENBL                   *
     2814   01 014D1    49802A96              OR,R8    LEVARMD                   *
     2815   01 014D2    4B802AC7              AND,R8   NOTHIGH
     2816   01 014D3    693014A9              BNEZ     TST15#E           FORCE AN INTERRUPT
     2817   01 014D4    22700000 A            LI,X7    0                          *
     2818   01 014D5    680014A9              B        TST15#E
     2819                            *
     2820   01 014D6    217FFFFF A   TST15#G  CI,X7    -1                WAS LAST LEVEL TRIGGERED
     2821   01 014D7    68301487              BE       TST15#A1          LOOK FOR NEXT GROUP IF YES
     2822   01 014D8    680014A9              B        TST15#E           TRIGGER IT IF NO
     2823                            *
     2824                            *  RETURN HERE FROM INTERRUPT HANDLING ROUTINE
     2825                            *
     2826         01 014D9           15RETURN EQU      %
     2827   01 014D9    6A601D86     TST15#H  BAL,LINK  CHK:LOOP         CHECK FOR SHORT OR LONG LOOP
     2828   01 014DA    02000000 A            NOP
     2829   01 014DB    203FFFFF A   TST15#J  AI,LVL   -1
     2830   01 014DC    64F014A5              BDR,RF   TST15#D           GO TRY NEXT HIGHER LEVEL
     2831   01 014DD    21400000 A            CI,X4    0
     2832   01 014DE    69301488              BNE      TST15#A2-2
     2833                            *
     2834   01 014DF    6A601D5F     TST15#X1 BAL,LINK  CHKALL           CHECK IF EXPECTED INTERRUPT OCCURRED
     2835   01 014E0    6A601E4D              BAL,LINK CHKSEQ            CHECK IF THEY OCCURRED IN ORDER
     2836                            *
     2837   01 014E1    6A602348              BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     2838   01 014E2    22801502 A            LI,R8    X'1502'
     2839   01 014E3    358003F2              STW,R8   TESTNO
     2840                            *
     2841                            *  ENTER HERE TO START RELEASING ACTIVE INTERRUPTS
     2842                            *
     2843   01 014E4    22400008 A            LI,X4    8
     2844   01 014E5    32882ABD              LW,R8    LEVIMPL-1,X4
     2845   01 014E6    35882AAD              STW,R8   LEVEXP-1,X4
     2846   01 014E7    644014E5              BDR,X4   %-2
     2847   01 014E8    6A6027EB              BAL,LINK READSEQ           SET EXPECTED SEQUENCE FOR A
     2848   01 014E9    22A00000 A            LI,LOG   0                        RIPPLE DOWN
     2849   01 014EA    680014EE              B        TST15#X3
     2850                            *
     2851   01 014EB    6A602737     TST15#X2 BAL,LINK READACT           FIND HIGH PRIORITY ACTIVE INT.
     2852   01 014EC    32802A43              LW,R8    ACTIVELVL
     2853   01 014ED    69101500              BLZ      TST15#Y           BRANCH IF ALL DONE
     2854   01 014EE    227000EE A   TST15#X3 LI,X7    238
     2855   01 014EF    2240F4A4              LI,X4    BA(HISTORY+1)     SEARCH FOR HIGH ACTIVE INT.
     2856   01 014F0    72880000 A            LB,R8    0,X4
     2857   01 014F1    31802A43              CW,R8    ACTIVELVL
     2858   01 014F2    683014F6              BE       %+4
     2859   01 014F3    20400008 A            AI,X4    8
     2860   01 014F4    647014F0              BDR,X7   %-4
     2861   01 014F5    6A601D26              BAL,LINK ABORT             LOCATION IS NOT IN HISTORY TABLE
     2862   01 014F6    204FFFFF A            AI,X4    -1
     2863   01 014F7    20A00001 A            AI,LOG   1
     2864   01 014F8    75A80000 A            STB,LOG  0,X4              LOG RELEASE AS AN INTERRUPT
     2865   01 014F9    204FFFFF A            AI,X4    -1                        *
     2866   01 014FA    22800001 A            LI,R8    1                         *
     2867   01 014FB    75880000 A            STB,R8   0,X4                      *
     2868   01 014FC    0E2014FE              LPSD,2   TST15PSD          RELEASE HIGH PRIORITY ACTIVE INT.
     2869                                     BOUND    8
     2870   01 014FE    000014EB     TST15PSD DATA     TST15#X2,0
            01 014FF    00000000 A
     2871                            *
     2872   01 01500    6A601E4D     TST15#Y  BAL,LINK CHKSEQ            CHECK IF RIPPLE DOWN CORRECT
     2873   01 01501    6A601D5F              BAL,LINK CHKALL            CHEC IF ALL INTS. OCCURRED
     2874   01 01502    6A601D86              BAL,LINK CHK:LOOP
     2875   01 01503    68001461              B        TST1500           LOOP RETURN
     2876   01 01504    68001516              B        TST1600
     2877                            *
     2878   01 01505    6D941700 A   TRIGGER  WD,R9    TRIG,GRP
     2879   01 01506    6D901200 A   ARM%ENBL WD,R9    ARME
     2880                            *
     2881                                     TITLE    ;
     2882                             '                    ACTUAL INTERRUPT TEST'
     2883                                     SPACE    2


     2884                            *
     2885                            *  THIS TEST GENERATES INTERRUPTS WITHOUT USING THE WRITE
     2886                            *        DIRECT COMMANDS, TO TEST:
     2887                            *                 1601  COUNTER #1 ZERO
     2888                            *                 1602  COUNTER #2 ZERO
     2889                            *                 1603  COUNTER #3 ZERO
     2890                            *                 1604  COUNTER #4 ZERO
     2891                            *                 1605  PCP INTERRUPT
     2892                            *
     2893                            *
     2894                            *                                                                    *
     2895   01 01507    02200000 A   GOTST16  LCI      0
     2896   01 01508    2A0026A3              LM,0     GOSAVE
     2897   01 01509    22100003 A            LI,X1    3
     2898   01 0150A    22800000 A            LI,R8    0
     2899   01 0150B    35802ACA              STW,R8   GRPINH
     2900   01 0150C    6A601D52              BAL,LINK DISARMALL
     2901   01 0150D    6A602356              BAL,LINK  INITTAB
     2902   01 0150E    6A602348              BAL,LINK   INITHIST
     2903   01 0150F    328003F2              LW,R8    TESTNO            FIND WHICH TEST REQUESTED
     2904   01 01510    21801605 A            CI,R8    X'1605'           WAS IT 5
     2905   01 01511    69202676              BG       INVALTST#         BRANCH TO ERROR EXIT IF OVER 5
     2906   01 01512    68301559              BE       TST16#D           BRANCH TO TEST 5
     2907   01 01513    21801602 A            CI,R8    X'1602'
     2908   01 01514    6820151F              BLE      TST16#A           BRANCH TO TEST 1 OR 2
     2909   01 01515    68001525              B        TST16#B           BRANCH TO TEST 3 OR 4
     2910                            *
     2911   01 01516                 TST1600  RES      0
     2912   01 01516    6A601D52              BAL,LINK DISARMALL
     2913   01 01517    6A602356              BAL,LINK   INITTAB
     2914   01 01518    6A602348              BAL,LINK  INITHIST
     2915   01 01519    22801601 A            LI,R8    X'1601'
     2916   01 0151A    358003F2              STW,R8   TESTNO
     2917   01 0151B    22800000 A            LI,R8    0
     2918   01 0151C    35802ACA              STW,R8   GRPINH
     2919   01 0151D    22800001 A            LI,R8    1
     2920   01 0151E    358003F3              STW,R8   PATTNO
     2921                            *
     2922   01 0151F    227000C0 A   TST16#A  LI,X7    X'C0'             FIND IF IMPLEMENTED
     2923   01 01520    72802ABE              LB,R8    LEVIMPL
     2924   01 01521    4B800007 A            AND,R8   X7
     2925   01 01522    69301525              BNEZ     %+3               BRANCH IF IMPLEMENTED
     2926   01 01523    22801603 A            LI,R8    X'1603'           SKIP FIRST TWO TESTS
     2927   01 01524    358003F2              STW,R8   TESTNO
     2928                            *
     2929   01 01525    321003F2     TST16#B  LW,X1    TESTNO
     2930   01 01526    4B102C7F              AND,X1   SEVEN
     2931   01 01527    2240F4C8              LI,X4    BA(HISTORY+10)
     2932   01 01528    25100003 A            SLS,X1   3                 FIND BYTE ADDRESS OF HIST.
     2933   01 01529    30400001 A            AW,X4    X1                   TABLE ENTRY
     2934   01 0152A    2510007D A            SLS,X1   -3
     2935   01 0152B    22900001 A            LI,R9    1                 SET EXPECTED SEQUENCE COUNT
     2936   01 0152C    75980000 A            STB,R9   0,X4
     2937   01 0152D    35902A5A              STW,R9   EXPSEQCT
     2938   01 0152E    20400003 A            AI,X4    3                 SET INDEX TO ACTUAL COUNT
     2939   01 0152F    2280153F              LI,R8    16INT#1           LOAD EXP. INT. ADDRESS
     2940   01 01530    35802A90              STW,R8   INTEPSD                   *
     2941   01 01531    228000A0 A            LI,R8    X'A0'             SET EXP. COND. CODE
     2942   01 01532    75802A90              STB,R8   INTEPSD
     2943   01 01533    3282158E              LW,R8    CNTRZERO-1,X1     FIND PATTERN OF LEVELS TO TEST
     2944   01 01534    55802A96              STH,R8   LEVARMD
     2945   01 01535    55802A9E              STH,R8   LEVENBL
     2946   01 01536    6A6026CA              BAL,LINK PAT@EBC
     2947   01 01537    32901593              LW,R9    MODIFY%ZERO       FETCH MTW,1 INSTRUCTION         *A02
     2948   01 01538    46920051 A            XW,R9    X'51',X1            AND PLACE IN TEST LOCATION    *A02
     2949   01 01539    227FFFFE A            LI,X7    -2                                                *A02
     2950   01 0153A    35701594              STW,X7   MODIFY%ZERO+1     INITIALIZE COUNTZERO LOCATION   *A02
     2951   01 0153B    22707D00 A            LI,X7    32000
     2952   01 0153C    35702A95              STW,X7   WAITCNT
     2953   01 0153D    022000A0 A            LCI      10
     2954   01 0153E    6D801200 A            WD,R8    ARME              ARM AND ENABLE INTS.
     2955                            *
     2956   01 0153F    33F02A95     16INT#1  MTW,-1   WAITCNT           DELAY HERE FOR CNTR ZERO INT.
     2957   01 01540    6930153F              BNEZ     %-1
     2958                            *
     2959   01 01541    6D801100 A            WD,R8    DISARM            DISARM INTS.
     2960   01 01542    46920051 A            XW,R9    X'51',X1 REPLACE XPSD INSTRUCTION
     2961   01 01543    72980000 A   TST16#C  LB,R9    0,X4              FIND SEQUENCE COUNT
     2962   01 01544    21900001 A            CI,R9    1
     2963   01 01545    68301549              BE       %+4               SKIP ERROR OUTPUT IF=1
     2964   01 01546    22C000F1 A            LI,RC    X'F1'
     2965   01 01547    6A602122              BAL,LINK EROR
     2966   01 01548    6800154E              B        %+6
     2967                            *
     2968   01 01549    32902A89              LW,R9    SEQCNT
     2969   01 0154A    21900001 A            CI,R9    1                 CHECK IF MORE THAN ONE INT.
     2970   01 0154B    6830154E              BE       %+3               BRANCH IF ONLY ONE
     2971   01 0154C    22C000F1 A            LI,RC    X'F1'
     2972   01 0154D    6A602122              BAL,LINK EROR
     2973                            *
     2974   01 0154E    6A602356              BAL,LINK INITTAB           CLEAR TABLES
     2975   01 0154F    6A602348              BAL,LINK INITHIST
     2976   01 01550    6A601D86              BAL,LINK CHK:LOOP          CHECK FOR USER KEYIN
     2977   01 01551    68001525              B        TST16#B           *   LOOP RETURN
     2978                            *
     2979   01 01552    331003F2              MTW,1    TESTNO            SET UP NEXT TEST
     2980   01 01553    321003F2              LW,X1    TESTNO
     2981   01 01554    21101604 A            CI,X1    X'1604'
     2982   01 01555    68201526              BLE      TST16#B+1         BRANCH IF NOT TEST 5
     2983   01 01556    32802A66              LW,R8    PASSCNT
     2984   01 01557    21800001 A            CI,R8    1
     2985   01 01558    69201599              BG       TST1700           BRANCH IF NOT FIRST PASS
     2986                            *
     2987                            *
     2988                            *  TEST 1605-  THIS TEST ARMS AND ENABLES THE PCP INTERRUPT
     2989                            *        AND WAITS UP TO 15 SEC. FOR THE OPERATOR TO PUSH THE
     2990                            *        PANEL INTERRUPT SWITCH.
     2991                            *
     2992         01 01559           TST16#D  EQU      %
     2993   01 01559    6A602348              BAL,LINK INITHIST
     2994   01 0155A    22801577              LI,R8    16INT#2           LOAD EXPECTED INT. ADDRESS
     2995   01 0155B    35802A90              STW,R8   INTEPSD                   *
     2996   01 0155C    22800010 A            LI,R8    X'10'             SET UP PCP INTERRUPT
     2997   01 0155D    55802A96              STH,R8   LEVARMD
     2998   01 0155E    55802A9E              STH,R8   LEVENBL
     2999   01 0155F    55802AAE              STH,R8   LEVEXP
     3000   01 01560    6D801300 A            WD,R8    ARMD              ARM AND DISABLE PCP INT.
     3001   01 01561    22800001 A            LI,R8    1
     3002   01 01562    35802A5A              STW,R8   EXPSEQCT          SAY INTERRUPT EXPECTED
     3003   01 01563    75803D3E              STB,R8   HISTORY+22
     3004   01 01564    6A6026CA              BAL,LINK PAT@EBC
     3005   01 01565    6A6028A7              #TYPE    UPSPACE
            01 01566    EA6003CC
            01 01567    0000B1C0 A
            01 01568    6A6028D0
     3006   01 01569    6A6028A7              #TYPE,1,1 PCPMSG           TELL OPER. TO PUSH PCP INT. BUTTON
            01 0156A    EA6003CC
            01 0156B    0160C1DD A
            01 0156C    6A6028D0
     3007   01 0156D    6A6028A7              #TYPE    UPSPACE
            01 0156E    EA6003CC
            01 0156F    0000B1C0 A
            01 01570    6A6028D0
     3008   01 01571    228FFFFF A            LI,R8    -1
     3009   01 01572    32002C56              LW,R0    ONESECOND
     3010   01 01573    25000004 A            SLS,R0   4
     3011   01 01574    22800010 A            LI,R8    X'10'
     3012   01 01575    02200000 A            LCI      0
     3013   01 01576    6D801400 A            WD,R8    ENBL              ALLOW THE INT. TO OCCUR
     3014                            *
     3015   01 01577    64001577     16INT#2  BDR,R0   %
     3016                            *
     3017                            *        ENTER HERE IF NO INT. IN 16 SEC.
     3018                            *
     3019   01 01578    22800010 A            LI,R8    X'10'
     3020   01 01579    6D801100 A            WD,R8    DISARM            DISARM INTERRUPT
     3021   01 0157A    22C00012 A            LI,RC    X'12'             SAY EXP. INT DID NOT OCCUR
     3022   01 0157B    2280005D A            LI,R8    X'5D'
     3023   01 0157C    35802A62              STW,R8   LOCATION
     3024   01 0157D    6A602122              BAL,LINK EROR
     3025                            *
     3026   01 0157E    6D801100 A   TST16#F  WD,R8    DISARM            DISARM INTERRUPT
     3027   01 0157F    22100003 A            LI,X1    3
     3028   01 01580    72923D3E              LB,R9    HISTORY+22,X1     FIND SEQ. CNT.
     3029   01 01581    21900001 A            CI,R9    1
     3030   01 01582    68301586              BE       %+4               SKIP ERROR OUTPUT IF=1
     3031   01 01583    22C000F1 A            LI,RC    X'F1'
     3032   01 01584    6A602122              BAL,LINK EROR
     3033   01 01585    6800158B              B        TST16#G
     3034                            *
     3035   01 01586    32902A89              LW,R9    SEQCNT
     3036   01 01587    21900001 A            CI,R9    1
     3037   01 01588    6830158B              BE       %+3               SKIP ERROR OUTPUT IF=1
     3038   01 01589    22C000F1 A            LI,RC    X'F1'
     3039   01 0158A    6A602122              BAL,LINK EROR
     3040                            *
     3041   01 0158B    6A602348     TST16#G  BAL,LINK INITHIST          SET UP TEST REPEAT
     3042   01 0158C    6A601D86              BAL,LINK CHK:LOOP          CHECK FOR USER KEYIN
     3043   01 0158D    68001559              B        TST16#D           *  LOOP RETURN
     3044                            *
     3045   01 0158E    68001599              B        TST1700           GO TO NEXT TEST
     3046                            *
     3047                            *
     3048   01 0158F    00008200 A   CNTRZERO DATA     X'8200',X'4100',X'2080',X'1040'  INT. PATTERNS
            01 01590    00004100 A
            01 01591    00002080 A
            01 01592    00001040 A
     3049                            *                                                                   *A02
     3050   01 01593    33101594     MODIFY%ZERO  MTW,1  %+1                                             *A02
     3051   01 01594    00000000 A                DATA   0                                               *A02
     3052                            *
     3053                            *
     3054                            *                                                                    *
     3055                                     TITLE    ;
     3056                             '                    FIXED PATTERN INTERRUPT TEST'
     3057                            *
     3058                            *
     3059   01 01595    330003F3     GOTST17  MTW,0    PATTNO
     3060   01 01596    6830159F              BCR,3    TST17#A+2         BRANCH IF SPECIAL PATTERN
     3061   01 01597    33F003F3              MTW,-1   PATTNO
     3062   01 01598    6800159D              B        TST17#A
     3063                            *
     3064                            **********************************************************************
     3065                            *                                                                    *
     3066                            *    F I X E D   P A T T E R N   I N T E R R U P T   T E S T         *
     3067                            **********************************************************************
     3068                            *                                                                    *
     3069                            *                                                                    *
     3070                            *  THIS TEST ARMS,ENABLES, AND TRIGGERS A SET OF INTERRUPT LEVELS    *
     3071                            *          BASED ON A FIXED PATTERN OF SELECTED LEVELS.              *
     3072                            *          THE PATTERNS ARE TRIED FOR EACH OF THE EIGHT INHIBIT      *
     3073                            *          BIT COMBINATIONS.                                         *
     3074                            *                                                                    *
     3075                            *  PATTERNS ARE THE SAME FOR EACH WRITE DIRECT GROUPS BUT MAY BE     *
     3076                            *          DIFFERENT FOR ARMING,ENABLING, OR TRIGGERING.             *
     3077                            *                                                                    *
     3078                            *                                                                    *
     3079                            *  PATTERN NUMBERS ARE SEQUENTIAL   1 THROUGH AB8 (DECIMAL 2744)     *
     3080                            *                                                                    *
     3081                            **********************************************************************
     3082                            * ENTRY FROM TEST 16
     3083                            **********************************************************************
     3084   01 01599                 TST1700  RES      0
     3085   01 01599    22801701 A            LI,R8    X'1701'
     3086   01 0159A    358003F2              STW,R8   TESTNO
     3087   01 0159B    22800001 A            LI,R8    1                 INITIALIZE
     3088   01 0159C    358003F3              STW,R8   PATTNO                  PATTERN NUMBER
     3089                            **********************************************************************
     3090                            * ENTRY FROM RESTART OPTION
     3091                            **********************************************************************
     3092   01 0159D    6A6022AC     TST17#A  BAL,LINK GENFPAT           GENERATE PATTERNS
     3093   01 0159E    6A6026CA              BAL,LINK PAT@EBC
     3094   01 0159F    6A601D52              BAL,LINK DISARMALL         DISARM INTERRUPTS               *B00
     3095   01 015A0    6A60276D              BAL,LINK READEXP           FIND EXPECTED INTERRUPTS
     3096   01 015A1    6A601173              BAL,LINK JAMXPSDS          INITIALIZE FIRST PAGE OF MEMORY
     3097   01 015A2    6A602348     TST17#B  BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     3098   01 015A3    6A60235F              BAL,LINK INITPSD           INITIALIZE PSD TABLE
     3099   01 015A4    6A6027EB              BAL,LINK READSEQ           FIND EXPECTED INT. SEQUENCE
     3100   01 015A5    6A60291F              BAL,LINK SETHIGH           SET HIGH PRI. INT. TO ACTIVE
     3101   01 015A6    6A602974              BAL,LINK SETPATT           ARM,ENABLE, AND TRIGGER AS PER
     3102                            *                                   PATTERNS
     3103   01 015A7    228015B1              LI,R8    TST17#C
     3104   01 015A8    35802A4E              STW,R8   CURPSD            SET UP PSD INSTRUCTION ADDRESS
     3105   01 015A9    35802A90              STW,R8   INTEPSD
     3106   01 015AA    32802ACA              LW,R8    GRPINH
     3107   01 015AB    75802A91              STB,R8   INTEPSD+1
     3108   01 015AC    228000EE A            LI,R8    238               SET VALUE OF DELAY
     3109   01 015AD    35802A95              STW,R8   WAITCNT
     3110   01 015AE    02200000 A            LCI      0                 SET CONDITION CODES FOR 16 REG.
     3111   01 015AF    2A002C5F              LM,0     REGXPSDS          JAM XPSD'S IN REGISTERS
     3112   01 015B0    0E202A4E              LPSD,2   CURPSD            RELEASE HIGH PRIORITY INT.
     3113                            **********************************************************************
     3114                            * ALL EXPECTED INTERRUPTS SHOULD OCCUR DURING THE FOLLOWING DELAY
     3115                            **********************************************************************
     3116   01 015B1    33F02A95     TST17#C  MTW,-1   WAITCNT           DELAY FOR INTERRUPTS
     3117   01 015B2    692015B1              BGZ      %-1
     3118                            **********************************************************************
     3119                            * DROP THRU TO HERE AFTER NO MORE INTERRUPTS
     3120                            **********************************************************************
     3121   01 015B3    6A60291F              BAL,LINK SETHIGH           INHIBIT FURTHER INTERRUPTS      *B00
     3122   01 015B4    6A601D5F              BAL,LINK CHKALL            CHECK IF ALL INTERRUPTS OCCURRED
     3123   01 015B5    6A601E4D              BAL,LINK CHKSEQ            CHECK IF ALL INTS. WERE IN SEQ.
     3124   01 015B6    6A601D86     TST17#X  BAL,LINK CHK:LOOP          CHECK FOR LOOPS
     3125   01 015B7    680015B9              B        %+2               LOOP RETURN
     3126   01 015B8    680015BB              B        %+3               CONTINUE RETURN
     3127                            *
     3128   01 015B9    33F003F3              MTW,-1   PATTNO            DECREMENT PATTERN NUMBER
     3129   01 015BA    680015A2              B        TST17#B           REPEAT SAME TEST
     3130                            *
     3131   01 015BB    22800AB8 A            LI,R8    2744              CHECK IF LAST PATTERN HAS BEEN RUN
     3132   01 015BC    318003F3              CW,R8    PATTNO
     3133   01 015BD    6920159D              BG       TST17#A           BRANCH IF NO
     3134   01 015BE    680015C3              B        TST1800
     3135                            *
     3136                            *
     3137                                     TITLE    ;
     3138                             '                    ACTIVE INTERRUPT RELEASE TEST'
     3139                            *
     3140                            *
     3141                            *************************************************************
     3142                            *
     3143                            *  ACTIVE INTERRUPT RELEASE TEST - THIS TEST SETS EACH IMPLEMENTED
     3144                            *        INTERRUPT LEVEL TO THE ACTIVE STATE AND THEN RELEASES IT
     3145                            *        USING AN LPSD INSTRUCTION. THE PRIMARY PURPOSE OF THE TEST IS
     3146                            *        TO CHECK THE LOGIC THAT BYPASSES THE UNIMPLEMENTED LEVELS IN
     3147                            *        AN IMPLEMENTED GROUP.
     3148                            *
     3149                            *        TESTS ARE NUMBERED 18XY ( X= GROUP AND Y= LEVEL UNDER TEST)
     3150                            *
     3151                            ***************************************************************
     3152                            *
     3153         01 015BF           GOTST18  EQU      %
     3154   01 015BF    02200000 A            LCI      0
     3155   01 015C0    2A0026A3              LM,0     GOSAVE
     3156   01 015C1    328003F2              LW,R8    TESTNO            FIND SELECTED TEST
     3157   01 015C2    680015C9              B        TST18#A1-2
     3158                            *
     3159   01 015C3                 TST1800  RES      0
     3160   01 015C3    6A601D52              BAL,LINK DISARMALL         DISARM ALL INTERRUPTS
     3161   01 015C4    22800001 A            LI,R8    1
     3162   01 015C5    35302A88              STW,LVL  RETRY%FLAG
     3163   01 015C6    358003F3              STW,R8   PATTNO            SET PATTERN TO 1
     3164   01 015C7    22200000 A            LI,GRP   0                 START TEST AT GROUP 0            AND
     3165   01 015C8    22300000 A            LI,LVL   0                         LEVEL 0
     3166   01 015C9    22400033 A            LI,X4    RC**2+3           INDEX TO 'RC' REGISTER (BYTE 3)
     3167   01 015CA    22B01000 A            LI,RB    ACTIVATE          COMMAND IS 'SET TO ACTIVE STATE'
     3168   01 015CB    22800000 A   TST18#A1 LI,R8    0
     3169   01 015CC    25200004 A            SLS,GRP  4                 DEVELOP TEST #
     3170   01 015CD    49800002 A            OR,R8    GRP
     3171   01 015CE    2520007C A            SLS,GRP  -4
     3172   01 015CF    49800003 A            OR,R8    LVL
     3173   01 015D0    3580000C A            STW,R8   RC
     3174   01 015D1    20801800 A            AI,R8    X'1800'
     3175   01 015D2    358003F2              STW,R8   TESTNO
     3176   01 015D3    75880000 A   TST18#A2 STB,R8   0,X4              LOAD GRP/LVL INTO RC  REG.
     3177   01 015D4    6A6027D4              BAL,LINK READLOC           SET LOCATION PARAMETER
     3178   01 015D5    22800000 A            LI,R8    0                 SAY NO INTERRUPTS EXPECTED
     3179   01 015D6    35802A90              STW,R8   INTEPSD                   *
     3180   01 015D7    52842ABE              LH,R8    LEVIMPL,GRP       IS THE LEVEL IMPLEMENTED
     3181   01 015D8    4B862B36              AND,R8   LEVMASK,LVL
     3182   01 015D9    68301620              BEZ      TST18#N           BRANCH IF NO
     3183         01 015DA           TST18#A3 EQU      %
     3184   01 015DA    70200392              LC       #SENSE
     3185   01 015DB    698015DE              BCS,8    %+3               SKIP IF SSW 1 IS SET
     3186   01 015DC    6A60279D              BAL,LINK READFF            FIND STATE OF FF BEFORE TEST
     3187   01 015DD    3560000F A            STW,LINK RF                SAVE AS 'PREVIOUS STATE'
     3188   01 015DE    21C00003 A            CI,RC    3
     3189   01 015DF    682015E2              BLE      %+3               BRANCH IF COUNTER
     3190   01 015E0    6D841200 A            WD,R8    ARME,GRP                                          *B02
     3191   01 015E1    680015E3              B        %+2
     3192   01 015E2    6D841300 A            WD,R8    ARMD,GRP          SET TO ACTIVE STATE             *B02
     3193   01 015E3    ED84000B A            WD,R8    *RB,GRP                   *
     3194   01 015E4    70200392              LC       #SENSE            IS SHORT LOOP REQUESTED
     3195   01 015E5    698015F2              BCS,8    TST18#B           SKIP ERROR CHECK IF YES
     3196   01 015E6    6A60279D              BAL,LINK READFF
     3197   01 015E7    3560000A A            STW,LINK LOG               RECORD ACTUAL STATE
     3198   01 015E8    21C00003 A            CI,RC    3                 COMPUTE EXPECTED STATE
     3199   01 015E9    692015EC              BG       %+3                      *
     3200   01 015EA    22D00004 A            LI,RD    4                        *
     3201   01 015EB    680015ED              B        %+2                      *
     3202   01 015EC    22D00005 A            LI,RD    5                        *
     3203   01 015ED    3160000D A            CW,LINK  RD
     3204   01 015EE    683015F2              BE       TST18#B           BRANCH IF IN EXPECTED STATE
     3205   01 015EF    22C000B1 A            LI,RC    X'B1'             SET ERROR TYPE INTO RC REGISTER
     3206   01 015F0    6A602122              BAL,LINK EROR              DISPLAY IT
     3207   01 015F1    6800160D              B        TST18#C           SKIP RELEASING IT
     3208                            *
     3209         01 015F2           TST18#B  EQU      %
     3210   01 015F2    320003F2              LW,R0    TESTNO            RELEASE COUNTERS DISARMED
     3211   01 015F3    4B002C8F              AND,R0   XFF                  AND OTHERS ARMED
     3212   01 015F4    3500000C A            STW,R0   RC
     3213   01 015F5    6A60279D              BAL,LINK READFF
     3214   01 015F6    3560000F A            STW,LINK RF                FIND STATE OF FF BEFORE RELEASE
     3215   01 015F7    21000003 A            CI,R0    3                         *
     3216   01 015F8    692015FA              BG       %+2                       *
     3217   01 015F9    0E2015FC              LPSD,2   TST18PSD                  *
     3218                            *
     3219   01 015FA    0E3015FC              LPSD,3   TST18PSD          RELEASE HIGH ACTIVE INT. (ARMED)
     3220                            *
     3221                                     BOUND    8
     3222   01 015FC    000015FE     TST18PSD DATA     TST18#B1,0
            01 015FD    00000000 A
     3223   01 015FE    70200392     TST18#B1 LC       #SENSE            IS SHORT LOOP REQUESTED
     3224   01 015FF    6980160D              BCS,8    TST18#D-2         SKIP ERROR CHECK IF YES
     3225   01 01600    32C003F2              LW,RC    TESTNO            CHECK IF IT RELEASED TO PROPER STATE
     3226   01 01601    4BC02C8F              AND,RC   XFF                       *
     3227   01 01602    6A60279D              BAL,LINK READFF
     3228   01 01603    3560000A A            STW,LINK LOG                       *
     3229   01 01604    21C00003 A            CI,RC    3                         *
     3230   01 01605    69201608              BG       %+3                       *
     3231   01 01606    22D00000 A            LI,RD    0                 SAY EXP. STATE = DIS(D)
     3232   01 01607    68001609              B        %+2                       *
     3233   01 01608    22D00003 A            LI,RD    3                 SAY EXP. STATE = ARM(E)
     3234   01 01609    31A0000D A            CW,LOG   RD                WAS IT RIGHT
     3235   01 0160A    6830160D              BE       %+3               BRANCH IF YES
     3236   01 0160B    22C000B2 A            LI,RC    X'B2'             SET ERROR TYPE = B2
     3237   01 0160C    6A602122              BAL,LINK EROR                 DISPLAY ERROR
     3238                            *
     3239                            *
     3240   01 0160D    6A601D86     TST18#C  BAL,LINK CHK:LOOP          WERE LOOPS REQUESTED
     3241   01 0160E    680015DA              B        TST18#A3          LOOP IF YES
     3242   01 0160F    20300001 A   TST18#D  AI,LVL   1                 NO, CONTINUE
     3243   01 01610    21200000 A            CI,GRP   0
     3244   01 01611    68301614              BE       %+3
     3245   01 01612    21300010 A            CI,LVL   16                HAVE 16 LEVELS BEEN TESTED
     3246   01 01613    68001615              B        %+2
     3247   01 01614    2130000E A            CI,LVL   14                HAVE 14 LEVELS BEEN TESTED
     3248   01 01615    691015CB              BL       TST18#A1          BRANCH IF NOT                   *B02
     3249   01 01616    21200000 A            CI,GRP   0                 WAS THE LAST GROUP GROUP 0
     3250   01 01617    69301619              BNE      %+2
     3251   01 01618    20200001 A            AI,GRP   1                 SKIP NONEXISTANT GROUP 1
     3252   01 01619    20200001 A            AI,GRP   1
     3253   01 0161A    2120000F A            CI,GRP   15                HAVE WE FINISHED
     3254   01 0161B    692016A0              BG       TST2100           EXIT TO NEXT TEST IF YES
     3255   01 0161C    52842ABE              LH,R8    LEVIMPL,GRP       IS NEXT GROUP IMPLEMENTED       *B02
     3256   01 0161D    68301619              BEZ      %-4               GO TO NEXT GROUP IF IT ISN'T
     3257   01 0161E    22300000 A            LI,LVL   0
     3258   01 0161F    680015CB              B        TST18#A1          TEST FIRST LEVEL OF NEXT GROUP
     3259                            *
     3260                            *  ENTER HERE IF LEVEL IS NOT IMPLEMENTED
     3261                            *
     3262   01 01620    328026B3     TST18#N  LW,R8    PARAMT%HEX        WAS IT AN ENTRY FROM LINE T
     3263   01 01621    318003F2              CW,R8    TESTNO
     3264   01 01622    68302676              BE       INVALTST#         EXIT IF INVALID TEST SELECTED
     3265   01 01623    6800160F              B        TST18#D
     3266                            *
     3267                                     TITLE    '                    TRAP HANDLING ROUTINE'
     3268                            *
     3269                            *
     3270                            **************************************************
     3271                            *  TRAP LOCATION PSD
     3272                            **************************************************
     3273                            *
     3274                                     BOUND    8
     3275   01 01624    00000000 A   TRAPPSD  GEN,32,32  0,0             PSD STORED BY AN EXPECTED TRAP
                        00000000
     3276   01 01626    00001629 N            GEN,32,32  TRAPACC,0       NEW PSD TO TRAP ACCESS TABLE
                        00000000
     3277                            *
     3278                            *
     3279                            **************************************************
     3280                            *  TRAP ACCESS TABLE
     3281                            **************************************************
     3282                            *
     3283                            *
     3284                            *  THIS TABLE CONTAINS 16 BRANCH AND LINK INSTRUCTIONS
     3285                            *     DIRECTED TO THE TRAP HANDLING ROUTINE TO ALLOW A CHECK
     3286                            *     OF THE ADDRESS MODIFICATION OF THE ADDRESS IN THE NEW
     3287                            *     PSD.  RELATIVE POSITION IN THIS TABLE INDICATES THE
     3288                            *     ADDRESS INCREMENT.
     3289                            *
     3290                            **************************************************
     3291   01 01628    0000162A     TRAPACCP DATA     TRAPACC+1         TRAP ACCESS TABLE POINTER
     3292                            *
     3293   01 01629                 TRAPACC  RES      0
     3294         00000010                    DO       16
     3295   01 01629    6A60163A              BAL,LINK TRAPHAND
     3296                                     FIN
            01 0162A    6A60163A
            01 0162B    6A60163A
            01 0162C    6A60163A
            01 0162D    6A60163A
            01 0162E    6A60163A
            01 0162F    6A60163A
            01 01630    6A60163A
            01 01631    6A60163A
            01 01632    6A60163A
            01 01633    6A60163A
            01 01634    6A60163A
            01 01635    6A60163A
            01 01636    6A60163A
            01 01637    6A60163A
            01 01638    6A60163A
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   18
A    3297                                     PAGE
     3298                            *
     3299                            **********************************************************************
     3300                            *                                                                    *
     3301                            *    T R A P   H A N D L I N G    R O U T I N E                      *
     3302                            *                                                                    *
     3303                            **********************************************************************
     3304                            *                                                                    *
     3305                            *  THIS ROUTINE IS ENTERED ON ANY EXPECTED TRAP.                     *
     3306                            *                 1. CHECK STORED PSD AGAINST 'TRAPEPSD'             *
     3307                            *                 2. CHECK TRAP CONDITION CODES                      *
     3308                            *                 3. CHECK TRAP ADDRESSING  (BOTH WITH AND WITHOUT   *
     3309                            *                    BIT 9 OF THE XPSD SET)                          *
     3310                            *                                                                    *
     3311                            *                                                                    *
     3312                            *  ENTER WITH 1. EXPECTED PSD IN 'TRAPEPSD'                          *
     3313                            *             2. TRAP ADDRESS DISPLACEMENT + 'TRAPACC' IN LINK       *
     3314                            *             3. EXPECTED CONDITION CODES IN 'TRAPECC'
     3315                            *             4. STATUS OF XPSD BIT 9 IN 'XPSDBIT9'                  *
     3316                            *             5. STORED PSD IN 'TRAPPSD'                             *
     3317                            *             6. RETURN ADDRESS IN 'TRAPRET'                         *
     3318                            *             7. EXPECTED ADDRESS INCREMENT IN 'TRAPINCR'            *
     3319                            *             8. TRAP LOCATION IN 'TRAPLOC'
     3320                            *                                                                    *
     3321                            *  EXIT TO LOCATION DESIGNATED BY TRAP TEST (STORED IN 'TRAPRET')    *
     3322                            *                                                                    *
     3323                            *                                                                    *
     3324                            **********************************************************************
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   19
A    3325                                     PAGE
     3326   01 01639    0000163A     TRAPHP   DATA     TRAPHAND          TRAP HANDLER POINTER
     3327   01 0163A    74002A48     TRAPHAND STCF     CODES             FIND CURRENT CONDITION CODES
     3328   01 0163B    02200000 A            LCI      0
     3329   01 0163C    2B001685              STM,0    TRAPSAVE          SAVE REGISTERS
     3330   01 0163D    22800000 A            LI,R8     0                                                *B00
     3331   01 0163E    35801771              STW,R8    NOTRAP                                           *B00
     3332   01 0163F    70200392              LC        #SENSE      CHECK FOR SHORT LOOP                 *B00
     3333   01 01640    69801682              BCS,8     THAND#X     EXIT IF SET                          *B00
     3334   01 01641    38601628              SW,LINK  TRAPACCP          COMPUTE ADDRESS INCREMENT
     3335   01 01642    3560000D A            STW,LINK RD
     3336   01 01643    32801624              LW,R8    TRAPPSD           CHECK STORED PSD WORD 1
     3337   01 01644    32902A8E              LW,R9    TRAPEPSD            WITH EXP. RESULT
     3338   01 01645    6A601E03              BAL,LINK CHK%PDF           CHECK PDF
     3339   01 01646    6D000027 A            WD,0     X'27'             RESET ALL INHIBITS              *A02
     3340   01 01647    33002A8B              MTW,0    SUPP%CC           CHECK IF FLAG SET
     3341   01 01648    6830164B              BEZ      %+3                  AND BRANCH IF YES
     3342   01 01649    4B802CA8              AND,R8   XFFFFFFF          DONT CHECK CC
     3343   01 0164A    4B902CA8              AND,R9   XFFFFFFF                  *
     3344   01 0164B    31800009 A            CW,R8    R9
     3345   01 0164C    6830164F              BE       %+3               SKIP IF OK
     3346   01 0164D    22C00081 A            LI,RC    X'81'             ERROR TYPE 81
     3347   01 0164E    6A602122              BAL,LINK EROR
     3348   01 0164F    32802A8F              LW,R8    TRAPEPSD+1        CHECK PSD SECOND WORD
     3349   01 01650    31801625              CW,R8    TRAPPSD+1
     3350   01 01651    68301654              BE       %+3               SKIP IF OK
     3351   01 01652    22C00082 A            LI,RC    X'82'             ERROR TYPE 82
     3352   01 01653    6A602122              BAL,LINK EROR
     3353   01 01654    32102A93              LW,X1    TRAPLOC
     3354   01 01655    32802C9F              LW,R8    Y40
     3355   01 01656    31820000 A            CW,R8    0,X1
     3356   01 01657    6840165D              BCR,4    THAND#A           BRANCH IF XPSD BIT 9= 0
     3357                            *
     3358                            *
     3359                            *  ENTER HERE IF XPSD BIT 9 WAS SET
     3360                            *
     3361   01 01658    31D02A92              CW,RD    TRAPINCR          DID ADDRESS INCREMENT CORRECTLY
     3362   01 01659    68301661              BE       THAND#B           BRANCH IF YES
     3363                            *
     3364   01 0165A    22C00042 A            LI,RC    X'42'             ERROR TYPE 42
     3365   01 0165B    6A602122              BAL,LINK EROR
     3366   01 0165C    68001661              B        THAND#B
     3367                            *
     3368                            *  ENTER HERE IF XPSD BIT 9 IS NOT SET
     3369                            *
     3370   01 0165D    21D00000 A   THAND#A  CI,RD    0                 CHECK FOR ZERO INCREMENT
     3371   01 0165E    68301661              BE       THAND#B           BRANCH IF NO ERROR
     3372   01 0165F    22C00041 A            LI,RC    X'41'             ERROR TYPE 41
     3373   01 01660    6A602122              BAL,LINK EROR
     3374   01 01661    72802A48     THAND#B  LB,R8    CODES             FIND COND. CODE AFTER TRAP
     3375   01 01662    71802A8D              CB,R8    TRAPECC           WAS IT AS EXPECTED
     3376   01 01663    68301666              BE       THAND#C           BRANCH IF YES
     3377   01 01664    22C00061 A            LI,RC    X'61'             ERROR TYPE 61
     3378   01 01665    6A602122              BAL,LINK EROR
     3379   01 01666    32802A93     THAND#C  LW,R8    TRAPLOC
     3380   01 01667    21800046 A            CI,R8    X'46'
     3381   01 01668    6830167F              BE       THAND#E           BRANCH IF WDT
     3382   01 01669    2180004D A            CI,R8    X'4D'
     3383   01 0166A    6830167F              BE       THAND#E           BRANCH IF INST. EXCEPTION
     3384   01 0166B    2180004C A            CI,R8    X'4C'
     3385   01 0166C    69301682              BNE      THAND#X           BRANCH IF NOT PE TRAP
     3386                            *
     3387   01 0166D    022000C0 A   THAND#D  LCI      12
     3388   01 0166E    2DD01BE3              LMS,RD   BAD%PARITY        READ AND CLEAR FAULT
     3389   01 0166F    7030000D A            LCF      RD
     3390   01 01670    69401674              BCS,4    %+4               BRANCH IF FAULT #1
     3391                            *
     3392   01 01671    22C000C1 A            LI,RC    X'C1'
     3393   01 01672    32E02CAE              LW,RE    X40000800
     3394   01 01673    6A602122              BAL,LINK EROR
     3395                            *
     3396   01 01674    32802A8A              LW,R8    SETCC
     3397   01 01675    35801BE3              STW,R8   BAD%PARITY        CLEAR PARITY ERROR
     3398   01 01676    22C00005 A            LI,RC    5
     3399   01 01677    6A60279D              BAL,LINK READFF            READ STATE OF MFI FF'S
     3400   01 01678    21600006 A            CI,LINK  6
     3401   01 01679    6830167F              BE       THAND#E           NO ERROR IF EQUAL
     3402   01 0167A    22C000B3 A            LI,RC    X'B3'
     3403   01 0167B    22F00002 A            LI,RF    2
     3404   01 0167C    6A602122              BAL,LINK EROR
     3405                            *
     3406   01 0167D    22800400 A            LI,R8    X'400'
     3407   01 0167E    6D801100 A            WD,R8    DISARM            DISARM MEM. FAULT INT.
     3408                            *
     3409   01 0167F    0E101680     THAND#E  LPSD,1   CLEAR%PDF
     3410                            *
     3411                                     BOUND    8
     3412   01 01680    00001682     CLEAR%PDF  DATA   THAND#X           CLEAR THE PDF FLAG
     3413   01 01681    00000000 A            DATA     0
     3414                            *
     3415                            *
     3416                            * EXIT FROM ROUTINE
     3417                            *
     3418   01 01682    02200000 A   THAND#X  LCI      0
     3419   01 01683    2A001685              LM,0     TRAPSAVE          RESTORE REGISTERS
     3420   01 01684    E8002A94              B        *TRAPRET
     3421                            *
     3422   01 01685                 TRAPSAVE RES      16
     3423                            *
     3424                                     TITLE    ;
     3425                             '                    NON-ALLOWED OPERATION TRAP TESTS'
     3426                            *
     3427                            *
     3428                            **********************************************************************
     3429                            *  NON-EXISTANT INSTRUCTION TEST  - EXECUTES 10 IMMEDIATE
     3430                            *        INSTRUCTIONS (IMMEDIATE ADDRESSING) AND 32 NON-
     3431                            *        EXISTANT OP CODES WITH THE TRAP XPSD BIT 9=0
     3432                            **********************************************************************
     3433                            *
     3434                            ************************************
     3435                            * ENTRY FROM PARAMETER LINE T      *
     3436                            ************************************
     3437                            *
     3438         01 01695           GOTST21  EQU      %
     3439   01 01695    02200000 A            LCI      0
     3440   01 01696    2A0026A3              LM,0     GOSAVE
     3441   01 01697    324003F3              LW,X4    PATTNO
     3442   01 01698    22800040 A            LI,R8    X'40'
     3443   01 01699    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3444   01 0169A    328003F2              LW,R8    TESTNO
     3445   01 0169B    21802101 A            CI,R8    X'2101'
     3446   01 0169C    683016A7              BE       TST21#A
     3447   01 0169D    21802102 A            CI,R8    X'2102'
     3448   01 0169E    683016C7              BE       TST21#D
     3449   01 0169F    68002676              B        INVALTST#         ERROR - INVALID TEST NUMBER
     3450                            *
     3451                            *        ENTRY FROM INTERRUPT TESTS
     3452                            *
     3453   01 016A0                 TST2100  RES      0
     3454   01 016A0    6A601173              BAL,LINK JAMXPSDS          INITIALIZE LOC'NS X'10'-X'1FF'
     3455   01 016A1    6A602348              BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     3456   01 016A2    22800040 A            LI,R8    X'40'
     3457   01 016A3    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3458   01 016A4    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     3459   01 016A5    22802101 A            LI,R8    X'2101'           INITIALIZE TEST 2101
     3460   01 016A6    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3461   01 016A7    354003F3     TST21#A  STW,X4   PATTNO
     3462   01 016A8    22800000 A            LI,R8    0
     3463   01 016A9    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3464   01 016AA    32802C6F              LW,R8    TRAPXPSD
     3465   01 016AB    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3466   01 016AC    228016B7     TST21#B  LI,R8    TRAP40A              FIND ADDRESS OF EXPECTED TRAP
     3467   01 016AD    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     3468   01 016AE    22800080 A            LI,R8    X'80'
     3469   01 016AF    75802A8D              STB,R8   TRAPECC
     3470   01 016B0    72802A8A              LB,R8    SETCC             FIND CONDITION CODES EXPECTED
     3471   01 016B1    75802A8E              STB,R8   TRAPEPSD             SET EXP. COND. CODES(ALL 1'S)
     3472   01 016B2    228016BC              LI,R8    TST21#C
     3473   01 016B3    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     3474   01 016B4    22800000 A            LI,R8    0
     3475   01 016B5    35802A8F              STW,R8   TRAPEPSD+1           SET EXP. PSD WORD 2 TO ZERO
     3476   01 016B6    70202A8A              LC       SETCC             SET CONDITION CODES
     3477                            **********************************************************************
     3478                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     3479                            **********************************************************************
     3480   01 016B7    670816CD     TRAP40A  EXU      NONEXIST-1,X4
     3481                            **********************************************************************
     3482                            *  FALL THROUGH IF NO TRAP
     3483                            **********************************************************************
     3484   01 016B8    22E016B7              LI,RE    TRAP40A           FIND TRAP ADDRESS
     3485   01 016B9    32D816CD              LW,RD    NONEXIST-1,X4     FIND TRAPPING INSTRUCTION
     3486   01 016BA    22C00071 A            LI,RC    X'71'                ERROR TYPE 71
     3487   01 016BB    6A602122              BAL,LINK EROR
     3488                            *
     3489                            **********************************************************************
     3490                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     3491                            **********************************************************************
     3492   01 016BC    6A601D86     TST21#C  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     3493   01 016BD    680016B6              B        TRAP40A-1         LOOP = YES RETURN
     3494   01 016BE    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     3495   01 016BF    354003F3              STW,X4   PATTNO
     3496   01 016C0    2140002C A            CI,X4    44                WAS THAT THE LAST PATTERN
     3497   01 016C1    682016B6              BLE      TRAP40A-1         LOOP IF NO
     3498   01 016C2    32802A92              LW,R8    TRAPINCR          IS TEST 2102 COMPLETE
     3499   01 016C3    69301705              BNEZ     TST22#A           BRANCH TO NEXT TEST IF YES
     3500                            **********************************************************************
     3501                            *  TEST 2102 - SAME AS 2101 EXCEPT XPSD BIT 9 IS SET
     3502                            **********************************************************************
     3503   01 016C4    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     3504   01 016C5    22802102 A            LI,R8    X'2102'           INITIALIZE TEST 2102
     3505   01 016C6    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3506   01 016C7    354003F3     TST21#D  STW,X4   PATTNO
     3507   01 016C8    32802C6F              LW,R8    TRAPXPSD
     3508   01 016C9    49802C9F              OR,R8    Y40                  SET BIT 9
     3509   01 016CA    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3510   01 016CB    22800008 A            LI,R8    8
     3511   01 016CC    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3512   01 016CD    680016AC              B        TST21#B
     3513                            *
     3514                            *******************************************
     3515                            *  TRAP TEST 2101-2 INSTRUCTIONS
     3516                            *******************************************
     3517                            *
     3518   01 016CE                 NONEXIST RES      0
     3519                            *
     3520                            *  INDIRECTLY ADDRESSED IMMEDIATE INSTRUCTIONS
     3521                            *
     3522                            *                                         INSTRUCTION   SUBTEST #
     3523   01 016CE    82602C7F              GEN,8,4,3,17  X'82',6,0,SEVEN       LCFI           1
     3524   01 016CF    A0602C7F              GEN,8,4,3,17  X'A0',6,0,SEVEN       AI             2
     3525   01 016D0    A1602C7F              GEN,8,4,3,17  X'A1',6,0,SEVEN       CI             3
     3526   01 016D1    A2602C7F              GEN,8,4,3,17  X'A2',6,0,SEVEN       LI             4
     3527   01 016D2    A3602C7F              GEN,8,4,3,17  X'A3',6,0,SEVEN       MI             5
     3528   01 016D3    C0602C7F              GEN,8,4,3,17  X'C0',6,0,SEVEN       TTBS           6
     3529   01 016D4    C1602C7F              GEN,8,4,3,17  X'C1',6,0,SEVEN       TBS            7
     3530   01 016D5    E0602C7F              GEN,8,4,3,17  X'E0',6,0,SEVEN       CBS            8
     3531   01 016D6    E1602C7F              GEN,8,4,3,17  X'E1',6,0,SEVEN       MBS            9
     3532   01 016D7    E3602C7F              GEN,8,4,3,17  X'E3',6,0,SEVEN       EBS            A
     3533                            *
     3534                            *  NON EXISTANT OP CODES
     3535                            *
     3536   01 016D8    01002C7F              GEN,8,24   1,SEVEN                                 B
     3537   01 016D9    03002C7F              GEN,8,24   3,SEVEN                                 C
     3538   01 016DA    14002C7F              GEN,8,24   X'14',SEVEN                             D
     3539   01 016DB    16002C7F              GEN,8,24   X'16',SEVEN                             E
     3540   01 016DC    17002C7F              GEN,8,24   X'17',SEVEN                             F
     3541   01 016DD    34002C7F              GEN,8,24   X'34',SEVEN                            10
     3542   01 016DE    42002C7F              GEN,8,24   X'42',SEVEN                            11
     3543   01 016DF    43002C7F              GEN,8,24   X'43',SEVEN                            12
     3544   01 016E0    54002C7F              GEN,8,24   X'54',SEVEN                            13
     3545   01 016E1    59002C7F              GEN,8,24   X'59',SEVEN                            14
     3546   01 016E2    5C002C7F              GEN,8,24   X'5C',SEVEN                            15
     3547   01 016E3    5D002C7F              GEN,8,24   X'5D',SEVEN                            16
     3548   01 016E4    5E002C7F              GEN,8,24   X'5E',SEVEN                            17
     3549   01 016E5    5F002C7F              GEN,8,24   X'5F',SEVEN                            18
     3550   01 016E6    62002C7F              GEN,8,24   X'62',SEVEN                            19
     3551   01 016E7    81002C7F              GEN,8,24   X'81',SEVEN                            1A
     3552   01 016E8    83002C7F              GEN,8,24   X'83',SEVEN                            1B
     3553   01 016E9    94002C7F              GEN,8,24   X'94',SEVEN                            1C
     3554   01 016EA    96002C7F              GEN,8,24   X'96',SEVEN                            1D
     3555   01 016EB    97002C7F              GEN,8,24   X'97',SEVEN                            1E
     3556   01 016EC    B4002C7F              GEN,8,24   X'B4',SEVEN                            1F
     3557   01 016ED    C2002C7F              GEN,8,24   X'C2',SEVEN                            20
     3558   01 016EE    C3002C7F              GEN,8,24   X'C3',SEVEN                            21
     3559   01 016EF    D4002C7F              GEN,8,24   X'D4',SEVEN                            22
     3560   01 016F0    D9002C7F              GEN,8,24   X'D9',SEVEN                            23
     3561   01 016F1    DC002C7F              GEN,8,24   X'DC',SEVEN                            24
     3562   01 016F2    DD002C7F              GEN,8,24   X'DD',SEVEN                            25
     3563   01 016F3    DE002C7F              GEN,8,24   X'DE',SEVEN                            26
     3564   01 016F4    DF002C7F              GEN,8,24   X'DF',SEVEN                            27
     3565   01 016F5    E2002C7F              GEN,8,24   X'E2',SEVEN                            28
     3566   01 016F6    80002C7F              GEN,8,24   X'80',SEVEN                            29
     3567   01 016F7    00002C7F              GEN,8,24   0,SEVEN                                2A
     3568   01 016F8    27002C7F              GEN,8,24   X'27',SEVEN                            2B
     3569   01 016F9    A7002C7F              GEN,8,24   X'A7',SEVEN                            2C
     3570                                     SPACE    6






     3571                            **********************************************************************
     3572                            *  TEST 2201   - STORE ZEROS IN NON-EXISTANT MEMORY
     3573                            **********************************************************************
     3574                            *
     3575                            ************************************
     3576                            * ENTRY FROM PARAMETER LINE T      *
     3577                            ************************************
     3578                            *
     3579         01 016FA           GOTST22  EQU      %
     3580   01 016FA    02200000 A            LCI      0
     3581   01 016FB    2A0026A3              LM,0     GOSAVE
     3582   01 016FC    324003F3              LW,X4    PATTNO
     3583   01 016FD    22800040 A            LI,R8    X'40'
     3584   01 016FE    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3585   01 016FF    328003F2              LW,R8    TESTNO
     3586   01 01700    21802201 A            CI,R8    X'2201'
     3587   01 01701    68301705              BE       TST22#A
     3588   01 01702    21802202 A            CI,R8    X'2202'
     3589   01 01703    68301733              BE       TST22#D
     3590   01 01704    68002676              B        INVALTST#         ERROR - INVALID TEST NUMBER
     3591                            *
     3592   01 01705    22802201 A   TST22#A  LI,R8    X'2201'           INITIALIZE TEST 2201
     3593   01 01706    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3594   01 01707    22800000 A            LI,R8    0
     3595   01 01708    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3596   01 01709    32802C6F              LW,R8    TRAPXPSD
     3597   01 0170A    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3598   01 0170B    22800001 A   TST22#B  LI,R8    1
     3599   01 0170C    358003F3              STW,R8   PATTNO               SET PATTERN NUMBER TO 0
     3600   01 0170D    2280171E              LI,R8    TRAP40B              FIND ADDRESS OF EXPECTED TRAP
     3601   01 0170E    72902A8A              LB,R9    SETCC             SET THE EXP. CC'S
     3602   01 0170F    75900008 A            STB,R9   R8                        *
     3603   01 01710    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     3604   01 01711    22800040 A            LI,R8    X'40'
     3605   01 01712    75802A8D              STB,R8   TRAPECC
     3606   01 01713    2280172E              LI,R8    TST22#C
     3607   01 01714    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     3608   01 01715    22800000 A            LI,R8    0
     3609   01 01716    730010A9              MTB,0    SIGMA8
     3610   01 01717    6930171A              BNEZ     %+3               BRANCH IF SIGMA 8
     3611   01 01718    6D000047 A            WD,0     X'47'             SET BIT 40 OF CURRENT PSD
     3612   01 01719    32802CA0              LW,R8    X800000           SAY BIT 40 EXPECTED
     3613   01 0171A    35802A8F              STW,R8   TRAPEPSD+1                *
     3614   01 0171B    32B02CB7              LW,RB    4MEGWORD             SET R11 AT TOP OF MEM.
     3615   01 0171C    22800000 A            LI,R8    0
     3616   01 0171D    70202A8A              LC       SETCC             SET CONDITION CODES
     3617                            **********************************************************************
     3618                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     3619                            **********************************************************************
     3620   01 0171E    B580000B A   TRAP40B  STW,R8   *RB               STORE ALL ZEROS
     3621                            **********************************************************************
     3622                            *  FALL THROUGH IF NO TRAP
     3623                            **********************************************************************
     3624   01 0171F    B290000B A            LW,R9    *RB               IS MEMORY THERE
     3625   01 01720    68301726              BEZ      %+6               BRANCH IF YES
     3626   01 01721    22E0171E              LI,RE    TRAP40B           FIND EXPECTED TRAP ADDRESS
     3627   01 01722    32D0171E              LW,RD    TRAP40B           FIND EXP. TRAPPING INSTR.
     3628   01 01723    22C00071 A            LI,RC    X'71'             ERROR TYPE 71
     3629   01 01724    6A602122              BAL,LINK EROR
     3630   01 01725    68001747              B        TST23#A           SKIP TO TEST 2301
     3631                            **********************************************************************
     3632                            *  TRY TO FIND A NON-EXISTANT MEMORY LOCATION
     3633                            **********************************************************************
     3634   01 01726    20BFE000 A            AI,RB    -X'2000'          TRY NEXT LOWER 8K
     3635   01 01727    21B03FFF A            CI,RB    X'3FFF'
     3636   01 01728    6920171D              BG       TRAP40B-1         LOOK FOR A TRAP
     3637   01 01729    6A6028A7              #PRINT,1,1 FULLMEM,C2      SAY MEMORY FULLY IMPL.
            01 0172A    EA6003CD
            01 0172B    0160C350 A
            01 0172C    6A6028D0
     3638   01 0172D    68001747              B        TST23#A           SKIP TO TEST 2301
     3639                            **********************************************************************
     3640                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     3641                            **********************************************************************
     3642   01 0172E    6A601D86     TST22#C  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     3643   01 0172F    6800171D              B        TRAP40B-1         LOOP = YES RETURN
     3644   01 01730    35B0173B              STW,RB   NOMEMORY
     3645   01 01731    32802A92              LW,R8    TRAPINCR          IS TEST 2202 COMPLETE
     3646   01 01732    69301747              BNEZ     TST23#A           BRANCH TO NEXT TEST IF YES
     3647                            *
     3648                            **********************************************************************
     3649                            *  TEST 2202 -  SAME AS 2201 WITH XPSD BIT 9 = 1
     3650                            **********************************************************************
     3651                            *
     3652   01 01733    22802202 A   TST22#D  LI,R8    X'2202'           INITIALIZE TEST
     3653   01 01734    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3654   01 01735    32802C6F              LW,R8    TRAPXPSD
     3655   01 01736    49802C9F              OR,R8    Y40                  SET XPSD BIT 9 = 1
     3656   01 01737    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3657   01 01738    22800004 A            LI,R8    4
     3658   01 01739    35802A92              STW,R8   TRAPINCR
     3659   01 0173A    6800170B              B        TST22#B
     3660                            *
     3661   01 0173B    003FFFFF A   NOMEMORY DATA     X'3FFFFF'                                         *A01
     3662                            *
     3663                            **********************************************************************
     3664                            *  TEST 2301 -  PRIVILEGED  INSTRUCTION TRAP
     3665                            *        EXECUTES EACH PRIVILEGED INSTRUCTION IN THE SLAVE
     3666                            *        MODE WITH XPSD BIT 9 = 0
     3667                            **********************************************************************
     3668                            *
     3669                            ************************************
     3670                            * ENTRY FROM PARAMETER LINE T      *
     3671                            ************************************
     3672                            *
     3673         01 0173C           GOTST23  EQU      %
     3674   01 0173C    02200000 A            LCI      0
     3675   01 0173D    2A0026A3              LM,0     GOSAVE
     3676   01 0173E    324003F3              LW,X4    PATTNO
     3677   01 0173F    22800040 A            LI,R8    X'40'
     3678   01 01740    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3679   01 01741    328003F2              LW,R8    TESTNO
     3680   01 01742    21802301 A            CI,R8    X'2301'
     3681   01 01743    6830174A              BE       TST23#B
     3682   01 01744    21802302 A            CI,R8    X'2302'
     3683   01 01745    68301788              BE       TST23#G
     3684   01 01746    68002676              B        INVALTST#         ERROR - INVALID TEST NUMBER
     3685                            *
     3686                            *
     3687   01 01747    22400001 A   TST23#A  LI,X4    1                 SET INDEX FOR PATTERN 1
     3688   01 01748    22802301 A            LI,R8    X'2301'           INITIALIZE TEST
     3689   01 01749    358003F2              STW,R8   TESTNO
     3690   01 0174A    22800000 A   TST23#B  LI,R8    0
     3691   01 0174B    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3692   01 0174C    32802C6F              LW,R8    TRAPXPSD
     3693   01 0174D    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3694   01 0174E    2280175F     TST23#C  LI,R8    TRAP40C              FIND ADDRESS OF EXPECTED TRAP
     3695   01 0174F    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     3696   01 01750    22800020 A            LI,R8    X'20'
     3697   01 01751    75802A8D              STB,R8   TRAPECC
     3698   01 01752    22800080 A            LI,R8    X'80'             SET BIT 8
     3699   01 01753    55802A8E              STH,R8   TRAPEPSD
     3700   01 01754    72802A8A              LB,R8    SETCC             SET EXP CC'S
     3701   01 01755    75802A8E              STB,R8   TRAPEPSD                  *
     3702   01 01756    22800000 A            LI,R8    0
     3703   01 01757    35802A8F              STW,R8   TRAPEPSD+1
     3704   01 01758    22801773              LI,R8    TST23#D
     3705   01 01759    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     3706   01 0175A    354003F3              STW,X4   PATTNO
     3707   01 0175B    0E00175C     TST23#C1 LPSD,0   TRAP40C-3         GO TO SLAVE MODE
     3708                                     BOUND    8
     3709   01 0175C    F080175E N            GEN,12,20,32   X'F08',%+2,0
                        00000000
     3710   01 0175E    70202A8A              LC       SETCC             SET CONDITION CODES
     3711                            **********************************************************************
     3712                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     3713                            **********************************************************************
     3714   01 0175F    6708178D     TRAP40C  EXU      PRIVILGD-1,X4
     3715                            **********************************************************************
     3716                            *  FALL THROUGH IF NO TRAP
     3717                            **********************************************************************
     3718   01 01760    33101771     OUTSLAVE MTW,1    NOTRAP            SET NO TRAP FLAG
     3719   01 01761    32801770              LW,R8    OUTSLAVEXPSD
     3720   01 01762    46800040 A            XW,R8    X'40'
     3721   01 01763    670016CE              EXU      NONEXIST          TRAP OUT OF SLAVE MODE WITH
     3722                            *                                       A PREVIOUSLY TESTED TRAP INSTR.
     3723   01 01764    68001763              B        %-1               GO TO INFINITE LOOP IF NO TRAP
     3724                            *
     3725   01 01765    46800040 A   OUTSLAVE#1  XW,R8  X'40'            RESTORE XPSD IN TRAP LOCN.
     3726   01 01766    E8002A94                 B      *TRAPRET
     3727                            *
     3728                                     BOUND    8
     3729   01 01768    00000000 A            DATA     0,0,TST23#D-1,0
            01 01769    00000000 A
            01 0176A    00001772
            01 0176B    00000000 A
     3730   01 0176C    00000000 A            DATA     0,0,OUTSLAVE#1,0
            01 0176D    00000000 A
            01 0176E    00001765
            01 0176F    00000000 A
     3731   01 01770    0F00176C     OUTSLAVEXPSD  XPSD,0  %-4
     3732                            *
     3733   01 01771    00000000 A   NOTRAP   DATA      0           NO TRAP IN SLAVE MODE FLAG           *B00
     3734                            *                                                                   *B00
     3735   01 01772    33101771              MTW,1    NOTRAP     RET. HERE IF NO LPSD OR XPSD TRAP
     3736                            *
     3737                            **********************************************************************
     3738                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     3739                            **********************************************************************
     3740   01 01773    32801771     TST23#D  LW,R8    NOTRAP            CHECK FOR NO TRAP
     3741   01 01774    6830177B              BEZ      TST23#E           BRANCH IF OK
     3742   01 01775    22800000 A            LI,R8    0
     3743   01 01776    35801771              STW,R8   NOTRAP
     3744   01 01777    22C00071 A            LI,RC    X'71'             ERROR TYPE 71
     3745   01 01778    32D8178D              LW,RD    PRIVILGD-1,X4     FIND TRAPPING INSTR.
     3746   01 01779    22E0175F              LI,RE    TRAP40C           FIND TRAP ADDRESS
     3747   01 0177A    6A602122              BAL,LINK EROR
     3748                            *
     3749   01 0177B    6A601D86     TST23#E  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     3750   01 0177C    6800175B              B        TST23#C1          LOOP = YES RETURN
     3751   01 0177D    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     3752   01 0177E    354003F3              STW,X4   PATTNO
     3753   01 0177F    2140000E A            CI,X4    14                WAS THAT THE LAST PATTERN
     3754   01 01780    6820175B              BLE      TST23#C1          LOOP IF NO
     3755   01 01781    324003F2              LW,X4    TESTNO
     3756   01 01782    21402302 A            CI,X4    X'2302'
     3757   01 01783    683017A7              BE       TST24#A           GO TO TEST 2401 IF AT 2302
     3758                            *
     3759                            **********************************************************************
     3760                            *  TEST 2302 -  SAME AS 2301 WITH XPSD BIT 9 = 1
     3761                            **********************************************************************
     3762                            *
     3763   01 01784    22400001 A            LI,X4    1                 SET INDEX FOR PATTERN 1
     3764   01 01785    354003F3              STW,X4   PATTNO
     3765   01 01786    22802302 A            LI,R8    X'2302'           INITIALIZE TEST
     3766   01 01787    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3767   01 01788    32802C6F     TST23#G  LW,R8    TRAPXPSD
     3768   01 01789    49802C9F              OR,R8    Y40                  SET XPSD BIT 9 = 1
     3769   01 0178A    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3770   01 0178B    22800002 A            LI,R8    2
     3771   01 0178C    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3772   01 0178D    6800174E              B        TST23#C
     3773                            *
     3774                            ************************************************************
     3775                            *  PRIVILEGED INSTRUCTIONS FOR TESTS 2301-2302
     3776                            ************************************************************
     3777   01 0178E                 PRIVILGD RES      0                    SUBTEST
     3778   01 0178E    0E00176A              LPSD,0   OUTSLAVEXPSD-6          1
     3779   01 0178F    0F001768              XPSD,0   OUTSLAVEXPSD-8          2
     3780   01 01790    2C00175F              GEN,8,24  X'2C',TRAP40C          3  LRA,0 TRAP40C          *A01
     3781   01 01791    2D002A80              LMS,0    PTRAPPSD                4
     3782   01 01792    2E00175F              WAIT     TRAP40C                 5
     3783   01 01793    2F001627              LRP      TRAPPSD+3               6
     3784   01 01794    4C002C9F              SIO,0    Y40                     7
     3785   01 01795    4D002C9F              TIO,0    Y40                     8
     3786   01 01796    4E002C9F              TDV,0    Y40                     9
     3787   01 01797    4F002C9F              HIO,0    Y40                     A
     3788   01 01798    6C001200 A            RD,0     X'1200'                 B
     3789   01 01799    6D000047 A            WD,0     X'47'                   C
     3790   01 0179A    6E002C9F              AIO,0    Y40                     D
     3791   01 0179B    6FE20000 A            LLOCKS,RE                        E
     3792                            *
     3793                            *******************************************************
     3794                            *  TEST 2401 - EXECUTE 2 NON-EXISTANT,PRIVILEGED INSTR.
     3795                            *             IN SLAVE MODE. (XPSD BIT 9 = 0)
     3796                            *******************************************************
     3797                            *
     3798                            *
     3799         01 0179C           GOTST24  EQU      %
     3800   01 0179C    02200000 A            LCI      0
     3801   01 0179D    2A0026A3              LM,0     GOSAVE
     3802   01 0179E    324003F3              LW,X4    PATTNO
     3803   01 0179F    22800040 A            LI,R8    X'40'
     3804   01 017A0    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3805   01 017A1    328003F2              LW,R8    TESTNO
     3806   01 017A2    21802401 A            CI,R8    X'2401'
     3807   01 017A3    683017AA              BE       TST24#B
     3808   01 017A4    21802402 A            CI,R8    X'2402'
     3809   01 017A5    683017D4              BE       TST24#G
     3810   01 017A6    68002676              B        INVALTST#         ERROR - INVALID TEST NUMBER
     3811                            *
     3812                            *
     3813   01 017A7    22400001 A   TST24#A  LI,X4    1                 SET INDEX FOR PATTERN 1
     3814   01 017A8    22802401 A            LI,R8    X'2401'           INITIALIZE TEST
     3815   01 017A9    358003F2              STW,R8   TESTNO
     3816   01 017AA    22800000 A   TST24#B  LI,R8    0
     3817   01 017AB    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3818   01 017AC    35802A8F              STW,R8   TRAPEPSD+1
     3819   01 017AD    32802C6F              LW,R8    TRAPXPSD
     3820   01 017AE    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3821   01 017AF    228017BE     TST24#C  LI,R8    TRAP40D              FIND ADDRESS OF EXPECTED TRAP
     3822   01 017B0    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     3823   01 017B1    228000A0 A            LI,R8    X'A0'
     3824   01 017B2    75802A8D              STB,R8   TRAPECC
     3825   01 017B3    22800080 A            LI,R8    X'80'             SET BIT 8
     3826   01 017B4    55802A8E              STH,R8   TRAPEPSD
     3827   01 017B5    72802A8A              LB,R8    SETCC             SET EXP CC'S
     3828   01 017B6    75802A8E              STB,R8   TRAPEPSD                  *
     3829   01 017B7    758017BC              STB,R8   TRAP40D-2                 *
     3830   01 017B8    228017C0              LI,R8    TST24#D
     3831   01 017B9    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     3832   01 017BA    354003F3              STW,X4   PATTNO
     3833   01 017BB    0E0017BC     TST24#C1 LPSD,0   TRAP40D-2         GO TO SLAVE MODE
     3834                                     BOUND    8
     3835   01 017BC    F08017BE N            GEN,12,20,32   X'F08',%+2,0
                        00000000
     3836                            **********************************************************************
     3837                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     3838                            **********************************************************************
     3839   01 017BE    670817D9     TRAP40D  EXU      PRIVNONEX-1,X4
     3840                            **********************************************************************
     3841                            *  FALL THROUGH IF NO TRAP
     3842                            **********************************************************************
     3843   01 017BF    68001760              B        OUTSLAVE          GET OUT OF SLAVE MODE
     3844                            *
     3845                            **********************************************************************
     3846                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     3847                            **********************************************************************
     3848   01 017C0    32801771     TST24#D  LW,R8    NOTRAP            CHECK FOR NO TRAP
     3849   01 017C1    683017C8              BEZ      TST24#E           BRANCH IF OK
     3850   01 017C2    22800000 A            LI,R8    0
     3851   01 017C3    35801771              STW,R8   NOTRAP
     3852   01 017C4    32D817D9              LW,RD    PRIVNONEX-1,X4    FIND TRAPPING INSTR.
     3853   01 017C5    22E017BE              LI,RE    TRAP40D           FIND TRAP ADDRESS
     3854   01 017C6    22C00071 A            LI,RC    X'71'             ERROR TYPE 71
     3855   01 017C7    6A602122              BAL,LINK EROR
     3856                            *
     3857   01 017C8    6A601D86     TST24#E  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     3858   01 017C9    680017BB              B        TST24#C1          LOOP = YES RETURN
     3859   01 017CA    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     3860   01 017CB    354003F3              STW,X4   PATTNO
     3861   01 017CC    21400002 A            CI,X4    2                 WAS THAT THE LAST PATTERN
     3862   01 017CD    682017BB              BLE      TST24#C1          LOOP IF NO
     3863   01 017CE    324003F2              LW,X4    TESTNO
     3864   01 017CF    21402402 A            CI,X4    X'2402'
     3865   01 017D0    683017E9              BE       TST2500           GO TO TEST 2501 IF AT 2402
     3866                            *
     3867                            **********************************************************************
     3868                            *  TEST 2402 -  SAME AS 2401 WITH XPSD BIT 9 = 1
     3869                            **********************************************************************
     3870                            *
     3871   01 017D1    22400001 A            LI,X4    1                 SET INDEX FOR PATTERN 1
     3872   01 017D2    22802402 A            LI,R8    X'2402'           INITIALIZE TEST
     3873   01 017D3    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3874   01 017D4    32802C6F     TST24#G  LW,R8    TRAPXPSD
     3875   01 017D5    49802C9F              OR,R8    Y40                  SET XPSD BIT 9 = 1
     3876   01 017D6    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3877   01 017D7    2280000A A            LI,R8    10
     3878   01 017D8    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3879   01 017D9    680017AF              B        TST24#C
     3880                            *
     3881                            ************************************************************
     3882                            *  PRIVILEGED/NON-EXISTANT INSTRUCTIONS FOR TESTS 2401-2402
     3883                            ************************************************************
     3884   01 017DA    0C01FFFF A   PRIVNONEX  DATA  X'C01FFFF',X'D01FFFF'
            01 017DB    0D01FFFF A
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   20
A    3885                                     PAGE
     3886                            *
     3887                            *
     3888                            *   THIS TEST SETS THE ACCESS PROTECT STATE OF A PAGE OF MEMORY
     3889                            *        TO PRODUCE A TRAP AT EACH SUBTEST
     3890                            *
     3891                            *        TEST # RANGE IS 2501-2504
     3892                            *        SUBTEST # RANGE IS 1-D
     3893                            *
     3894                            *        ODD # TESTS ARE IN SLAVE MODE (VIRTUAL ADDRESSING)
     3895                            *        EVEN # TESTS ARE IN MASTER PROT. MODE (VIRTUAL ADDR.)
     3896                            *
     3897                            *                                                                    *
     3898         01 017DC           GOTST25  EQU      %
     3899   01 017DC    02200000 A            LCI      0
     3900   01 017DD    2A0026A3              LM,0     GOSAVE
     3901   01 017DE    327003F3              LW,X7    PATTNO                                            *A02
     3902   01 017DF    728010A9              LB,R8    SIGMA8            FIND IF SIGMA 8
     3903   01 017E0    69F02667              BCS,15   TST%BY            EXIT IF YES
     3904   01 017E1    330010A8              MTW,0    FLG:45                                            *B03
     3905   01 017E2    683017E5              BEZ      %+3                                               *B03
     3906   01 017E3    2170000B A            CI,X7    11                                                *B03
     3907   01 017E4    69202667              BG       TST%BY                                            *B03
     3908   01 017E5    328003F2              LW,R8    TESTNO            FIND IF VALID TEST
     3909   01 017E6    21802504 A            CI,R8    X'2504'                   *
     3910   01 017E7    69202676              BG       INVALTST#         EXIT IF NO
     3911   01 017E8    680017EE              B        TST25#A
     3912                            *
     3913                            *
     3914         01 017E9           TST2500  EQU      %
     3915   01 017E9    730010A9              MTB,0    SIGMA8
     3916   01 017EA    693018EB              BNEZ     TST2700           BYPASS TEST IF SIGMA 8 (NO MAP) *B01
     3917                            *
     3918   01 017EB    22700001 A            LI,X7    1                 SELECT SUBTEST 1                *A02
     3919                            *
     3920   01 017EC    22802501 A            LI,R8    X'2501'
     3921   01 017ED    358003F2              STW,R8   TESTNO            START AT TEST 2501
     3922                            *                                                                    *
     3923         01 017EE           TST25#A EQU    %                 INITIALIZE
     3924   01 017EE    22900040 A            LI,R9    X'40'
     3925   01 017EF    35902A93              STW,R9   TRAPLOC
     3926   01 017F0    22901832              LI,R9    TST25#D
     3927   01 017F1    35902A94              STW,R9   TRAPRET           SET UP RETURN FROM TRAP HANDLER
     3928                            *
     3929         01 017F2           TST25#B  EQU      %
     3930   01 017F2    357003F3              STW,X7   PATTNO                                            *A02
     3931   01 017F3    328003F2              LW,R8    TESTNO
     3932   01 017F4    32902C6F              LW,R9    TRAPXPSD          SET UP XPSD IN INT. LOC'N
     3933   01 017F5    21802503 A            CI,R8    X'2503'                   *
     3934   01 017F6    691017F8              BL       %+2                       *
     3935   01 017F7    49902C9F              OR,R9    Y40               SET BIT 9 OF XPSD
     3936   01 017F8    35900040 A            STW,R9   X'40'            *
     3937   01 017F9    2170000C A            CI,X7    X'C'              IS IT SUBTEST C                 *B03
     3938   01 017FA    681017FF              BGE      %+5               BRANCH IF YES                   *B03
     3939   01 017FB    21700008 A            CI,X7    8                                                 *B03
     3940   01 017FC    691017FF              BL       %+3               BRANCH IF TRAP AT 'TRAP40E'
     3941   01 017FD    22902A00              LI,R9    PAGE%BOUND           (SUBTESTS 1-7)
     3942   01 017FE    68001800              B        %+2               SAY TRAP EXP. AT 'PAGE%BOUND'
     3943   01 017FF    22901830              LI,R9    TRAP40E
     3944   01 01800    35902A8E              STW,R9   TRAPEPSD          SET UP EXP. PSD
     3945   01 01801    22900040 A            LI,R9    X'40'                  SET MM FLAG
     3946   01 01802    2580001F A            SLS,R8   31                        *
     3947   01 01803    25800068 A            SLS,R8   -24                      SET MS FLAG IF ODD # TEST
     3948   01 01804    49900008 A            OR,R9    R8                        *
     3949                            *
     3950   01 01805    728E18A0              LB,R8    TST25CODES,X7          SET EXPECTED CC            *A02
     3951   01 01806    2580000C A            SLS,R8   12                        *
     3952   01 01807    49900008 A            OR,R9    R8                        *
     3953   01 01808    55902A8E              STH,R9   TRAPEPSD                  *
     3954                            *
     3955   01 01809    22801830              LI,R8    TRAP40E           SET UP LPSD TO 'TRAP40E'
     3956   01 0180A    55900008 A            STH,R9   R8                        *
     3957   01 0180B    3580182E              STW,R8   TRAP40E-2                 *
     3958                            *
     3959   01 0180C    22901500 A            LI,R9    PROT%PAGE
     3960   01 0180D    49902CA0              OR,R9    X800000
     3961   01 0180E    35902A8F              STW,R9   TRAPEPSD+1                *
     3962                            *
     3963   01 0180F    22100014 A            LI,X1    ACC%PROT%SHIFT    FIND SHIFT INDEX
     3964   01 01810    729E189B              LB,R9    ACC%PROT%CODE,X7  FIND CODE FOR TYPE OF PROTECT   *A02
     3965   01 01811    25920000 A            SLS,R9   0,X1
     3966   01 01812    3590189F              STW,R9   ACC%PROT%IMAGE    BUILD ACC. PROT. CONTROL IMAGE
     3967   01 01813    12201880              LD,X2    ACC%PROT%CDW      FIND ACC. PROT. CONTROL DBL. WORD
     3968   01 01814    6F240000 A            MMC,X2   2                 SET ACCESS PROTECT TYPE
     3969                            *
     3970   01 01815    329E188C              LW,R9    INST#25-1,X7      FIND TEST INSTRUCTION
     3971   01 01816    35901830              STW,R9   TRAP40E                   *
     3972   01 01817    328003F2              LW,R8    TESTNO
     3973   01 01818    21802503 A            CI,R8    X'2503'
     3974   01 01819    6810181C              BGE      %+3
     3975   01 0181A    22900000 A            LI,R9    0
     3976   01 0181B    6800181D              B        %+2
     3977   01 0181C    22900001 A            LI,R9    1
     3978   01 0181D    35902A92              STW,R9   TRAPINCR          SET EXPECTED TRAP ADDRESS INCREMENT
     3979   01 0181E    22900010 A            LI,R9    16
     3980   01 0181F    75902A8D              STB,R9   TRAPECC           SET EXP. TCC
     3981                            *
     3982   01 01820    22800000 A   TST25#C  LI,R8    0
     3983   01 01821    12201882              LD,X2    MBSDW25
     3984   01 01822    12A01884              LD,RA    CBSDW25
     3985   01 01823    12401886              LD,X4    EBSDW25                                           *A02
     3986   01 01824    22100020 A            LI,X1    X'20'                                             *A02
     3987   01 01825    75102A04              STB,X1   EBS%DEST          REFRESH EBS DESTINATION WORD    *A02
     3988   01 01826    22100007 A            LI,X1    7                 RESTORE TEST INSTRUCTIONS
     3989   01 01827    32921878              LW,R9    BOUND%RES-1,X1             *
     3990   01 01828    359229FB              STW,R9   PAGE%BOUND-5,X1            *
     3991   01 01829    64101827              BDR,X1   %-2                        *
     3992   01 0182A    229FFFFF A            LI,R9    -1
     3993   01 0182B    22F02A00              LI,RF    PAGE%BOUND
     3994                            *
     3995   01 0182C    0E00182E              LPSD,0   TRAP40E-2         EXECUTE THE TEST
     3996                            *
     3997                                     BOUND    8
     3998   01 0182E    00000000 A            DATA     0,X'800000'
            01 0182F    00800000 A
     3999                            *
     4000                            *        TRAP SHOULD OCCUR ON NEXT INSTRUCTION (SUBTESTS 1-7,C-E)   *B00
     4001                            *
     4002   01 01830                 TRAP40E  RES      1                 INSTRUCTION FROM 'INST#25' TABLE
     4003                            *
     4004                            *     FALL THRU OR RETURN HERE IF NO TRAP
     4005                            *
     4006   01 01831    68001760              B        OUTSLAVE          GET BACK TO MASTER MODE
     4007                            *
     4008                            *
     4009                            *
     4010                            *
     4011                            *     RETURN HERE AFTER TRAP
     4012                            *
     4013   01 01832    70200392     TST25#D  LC       #SENSE            CHECK FOR SHORT LOOP
     4014   01 01833    69801869              BCS,8    TST25#F           SKIP ERROR CHECKS IF SET
     4015   01 01834    32801771              LW,R8    NOTRAP            CHECK FOR NO TRAP
     4016   01 01835    6830183C              BEZ      TST25#E           BRANCH IF OK
     4017   01 01836    22800000 A            LI,R8    0
     4018   01 01837    35801771              STW,R8   NOTRAP
     4019   01 01838    B2D02A8E              LW,RD    *TRAPEPSD         FIND TRAPPING INSTR.
     4020   01 01839    32E02A8E              LW,RE    TRAPEPSD          FIND    TRAP ADDRESS
     4021   01 0183A    22C00071 A            LI,RC    X'71'             ERROR TYPE 71
     4022   01 0183B    6A602122              BAL,LINK EROR
     4023                            *
     4024   01 0183C    2170000C A   TST25#E  CI,X7    12                IS IT SUBTEST C                 *A02
     4025   01 0183D    69301845              BNE      %+8               BRANCH IF NO
     4026   01 0183E    11201882              CD,X2    MBSDW25           CHECK IF REGISTERS ALTERED RIGHT
     4027   01 0183F    68301845              BCR,3    %+6                   BRANCH IF YES
     4028   01 01840    22C00094 A            LI,RC    X'94'             SELECT ERROR TYPE
     4029   01 01841    22D01882              LI,RD    MBSDW25           EXP. RESULTS
     4030   01 01842    22E01687              LI,RE    TRAPSAVE+X2       ACTUAL RESULTS
     4031   01 01843    22F00002 A            LI,RF    2                 TABLE SIZE
     4032   01 01844    6A602122              BAL,LINK EROR
     4033                            *
     4034   01 01845    2170000D A            CI,X7    13                IS IT SUBTEST D                 *A02
     4035   01 01846    6930184E              BNE      %+8                  BRANCH IF NO
     4036   01 01847    11A01884              CD,RA    CBSDW25           CHECK IF REG. WERE ALTERED RIGHT
     4037   01 01848    6830184E              BCR,3    %+6                   BRANCH IF YES
     4038   01 01849    22C00094 A            LI,RC    X'94'             SELECT ERROR TYPE
     4039   01 0184A    22D01884              LI,RD    CBSDW25           EXP. RESULTS
     4040   01 0184B    22E0168F              LI,RE    TRAPSAVE+RA       ACTUAL RESULTS
     4041   01 0184C    22F00002 A            LI,RF    2                 TABLE SIZE
     4042   01 0184D    6A602122              BAL,LINK EROR
     4043                            *
     4044   01 0184E    2170000E A            CI,X7    X'E'              IS IT SUBTEST E                 *A02
     4045   01 0184F    69301857              BNE      %+8                                               *A02
     4046   01 01850    11401886              CD,X4    EBSDW25                                           *A02
     4047   01 01851    68301857              BCR,3    %+6               BRANCH IF SOURCE DIDN'T CHANGE  *A02
     4048                            *                                                                   *A02
     4049   01 01852    22C00094 A            LI,RC    X'94'             SET UP DISPLAY OF ERROR TYPE 94 *A02
     4050   01 01853    22D01886              LI,RD    EBSDW25                                           *A02
     4051   01 01854    22E01689              LI,RE    TRAPSAVE+X4                                       *A02
     4052   01 01855    22F00002 A            LI,RF    2                                                 *A02
     4053   01 01856    6A602122              BAL,LINK EROR                                              *A02
     4054                            *                                                                   *A02
     4055   01 01857    22100007 A            LI,X1    7                                                 *B03
     4056   01 01858    32C21878              LW,RC    BOUND%RES-1,X1                                    *B03
     4057   01 01859    31C229FB              CW,RC    PAGE%BOUND-5,X1                                   *B03
     4058   01 0185A    6930185D              BNE      %+3                                               *B03
     4059   01 0185B    64101858              BDR,X1   %-3                                               *B03
     4060   01 0185C    68001862              B        %+6                                               *B03
     4061   01 0185D    22C00093 A            LI,RC    X'93'
     4062   01 0185E    22D01879              LI,RD    BOUND%RES         START OF TABLE (EXPECTED)
     4063   01 0185F    22E029FC              LI,RE    PAGE%BOUND-4      START OF TABLE (ACTUAL)
     4064   01 01860    22F00007 A            LI,RF    7                 TABLE SIZE
     4065   01 01861    6A602122              BAL,LINK EROR
     4066                            *
     4067   01 01862    219FFFFF A            CI,R9    -1                CHECK IF R9 ALTERED
     4068   01 01863    68301869              BE       %+6               BRANCH IF NO ERROR
     4069   01 01864    22C00091 A            LI,RC    X'91'
     4070   01 01865    22D02C78              LI,RD    M1                START OF TABLE
     4071   01 01866    32E02299              LW,RE    SAVE#ERR+9        START OF TABLE (ACTUAL)
     4072   01 01867    22F00001 A            LI,RF    1                 TABLE SIZE
     4073   01 01868    6A602122              BAL,LINK EROR
     4074                            *
     4075                            *
     4076   01 01869    6A601D86     TST25#F  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     4077   01 0186A    68001820              B        TST25#C           LOOP RETURN
     4078   01 0186B    330010A8              MTW,0    FLG:45                                            *B03
     4079   01 0186C    6830186F              BEZ      %+3                                               *B03
     4080   01 0186D    2170000B A            CI,X7    11                                                *B03
     4081   01 0186E    68101873              BGE      %+5                                               *B03
     4082   01 0186F    2170000E A            CI,X7    X'E'              IS LAST SUBTEST COMPLETE        *A02
     4083   01 01870    68101873              BGE      %+3                  BRANCH IF YES
     4084   01 01871    20700001 A            AI,X7    1                                                 *A02
     4085   01 01872    680017F2              B        TST25#B           START NEXT SUBTEST
     4086                            *
     4087   01 01873    328003F2              LW,R8    TESTNO
     4088   01 01874    21802504 A            CI,R8    X'2504'           IS LAST TEST COMPLETE
     4089   01 01875    681018AE              BGE      TST2601               EXIT IF YES                 *A02
     4090   01 01876    22700001 A            LI,X7    1                                                 *A02
     4091   01 01877    331003F2              MTW,1    TESTNO
     4092   01 01878    680017F2              B        TST25#B           START NEXT TEST
     4093                            *
     4094                            *
     4095                            *
     4096         01 01879           BOUND%RES  EQU    %
     4097   01 01879    00000000 A            DATA     0                 THESE INSTRUCTIONS ARE RESTORED
     4098   01 0187A    20800001 A            AI,R8    1                   TO PAGE%BOUND-4 THRU PAGE%BOUND+2
     4099   01 0187B    20800001 A            AI,R8    1                    FOR EVERY SUBTEST IN CASE THEY
     4100   01 0187C    20800001 A            AI,R8    1                    WERE ALTERED.
     4101                            *
     4102                            *                                                                    *
     4103                            * PAGE BOUNDRY                                  *
     4104                            *        TRAP SHOULD OCCUR HERE ON SUBTESTS A THRU D
     4105                            *
     4106   01 0187D    359029FC              STW,R9   PAGE%BOUND-4                  *
     4107   01 0187E    68001760              B        OUTSLAVE                      *
     4108   01 0187F    00000000 A            DATA     0                             *
     4109                                     BOUND    8
     4110   01 01880    0000189F     ACC%PROT%CDW      DATA    ACC%PROT%IMAGE    CONTROL DOUBLE WORD
     4111   01 01881    01002000 A                     GEN,8,7,6,11  1,0,ACC%PROT%START,0
     4112                            *
     4113                            *    TRY TO MOVE BAD DATA INTO PROT. MEM. (-1 INTO PAGE%BOUND)
     4114                            *        IN SUBTEST 3
     4115                            *
     4116   01 01882    00006220     MBSDW25  DATA     BA(STACK25A)
     4117   01 01883    1400A7F0              GEN,8,24  20,BA(PAGE%BOUND-4)
     4118                            *
     4119                            *
     4120                            *   TRY TO COMPARE STRING OF BYTES WITH ANOTHER STRING
     4121                            *        PART OF WHICH IS IN PROT. MEM. (LAST 4 BYTES)
     4122                            *
     4123   01 01884    000061E4     CBSDW25   DATA    BA(BOUND%RES)
     4124   01 01885    1C00A7F0              GEN,8,24 28,BA(PAGE%BOUND-4)
     4125                            *                                                                   *A02
     4126                            *    TRY TO UNPACK A DECIMAL WORD IN PROTECTED MEMORY INTO          *A02
     4127                            *        A LOCATION IN PROTECTED MEMORY                             *A02
     4128                            *                                                                   *A02
     4129   01 01886    4000A80C     EBSDW25  GEN,8,24  ' ',BA(EBS%SOURCE)                               *A02
     4130   01 01887    0100A810              GEN,8,24  1,BA(EBS%DEST)                                   *A02
     4131                            *                                                                   *A02
     4132                            *                                                                   *A02
     4133   01 01888    0000000F A   STACK25A DATA     15                THIS STACK CONTAINS THE         *A02
     4134   01 01889    2080000F A            AI,R8    15                 BAD DATA THE TEST TRIES TO
     4135   01 0188A    2080000F A            AI,R8    15                 WRITE INTO PROT. MEM. AND
     4136   01 0188B    2080000F A            AI,R8    15                 THE 4 LOC'NS IMMED. PRECEEDING
     4137   01 0188C    00000003 A            DATA     3                  IT.
     4138                            *
     4139                            *
     4140                            *
     4141                            *     THE FOLLOWING LOCATIONS CONTAIN THE INSTRUCTIONS USED FOR THE
     4142                            *        13 SUBTESTS OF EACH TEST
     4143                            *
     4144         01 0188D           INST#25  EQU      %                                              SUBTST#
     4145   01 0188D    35902A02              STW,R9   PAGE%BOUND+2      TRY TO WRITE INTO PROT. MEM.  1
     4146   01 0188E    33202A02              MTW,2    PAGE%BOUND+2              *                     2
     4147   01 0188F    32902A00              LW,R9    PAGE%BOUND        TRY TO READ PROT. MEM. PAGE   3
     4148   01 01890    68002A00              B        PAGE%BOUND        TRY TO ACCESS PROT. MEM.      4
     4149   01 01891    68002A00              B        PAGE%BOUND                *                     5
     4150   01 01892    E800000F A            B        *RF                       *                     6
     4151   01 01893    E800000F A            B        *RF                       *                     7
     4152   01 01894    680029FF              B        PAGE%BOUND-1      TRY TO CROSS PAGE BOUNDRY     8
     4153   01 01895    680029FF              B        PAGE%BOUND-1              *                     9
     4154   01 01896    680029FD              B        PAGE%BOUND-3              *                     A
     4155   01 01897    680029FD              B        PAGE%BOUND-3              *                     B
     4156   01 01898    61200000 A            MBS,X2   0                         *                     C
     4157   01 01899    60A00000 A            CBS,RA   0                         *                     D
     4158   01 0189A    63400000 A            EBS,X4   0                         *                     E
     4159                            *
     4160                            *
     4161                            *     THE FOLLOWING BYTES CONTAIN THE ACCESS PROTECT TYPE FOR
     4162                            *        EACH SUBTEST.
     4163                            *
     4164         01 0189B           ACC%PROT%CODE  EQU    %
     4165                            * SUBTEST #          1 2 3 4 5 6 7 8 9 A B C D E                    *A02
     4166   01 0189B    00       A            DATA,1    0,1,2,3,2,3,2,3,2,3,2,3,3,3,2                    *B03
            01 0189B 1  01       A
            01 0189B 2  02       A
            01 0189B 3  03       A
            01 0189C    02       A
            01 0189C 1  03       A
            01 0189C 2  02       A
            01 0189C 3  03       A
            01 0189D    02       A
            01 0189D 1  03       A
            01 0189D 2  02       A
            01 0189D 3  03       A
            01 0189E    03       A
            01 0189E 1  03       A
            01 0189E 2  02       A
     4167                            *           CODE 1 = SLAVE OR MP CANNOT WRITE
     4168                            *                2 =   ''  '' '' CAN ONLY READ
     4169                            *                3 =   ''  '' '' CANNOT MAKE ANY ACCESS
     4170                                     BOUND    4
     4171                            *
     4172                            *                                                                   *A02
     4173                            *                                                                   *A02
     4174   01 0189F    00000000 A   ACC%PROT%IMAGE  DATA  0             AC CODES
     4175                            *
     4176                            *   THE FOLLOWING BYTES ARE THE EXPECTED COND. CODES FOR EACH SUBTEST
     4177                            *
     4178                            *        SUBTEST#   1 2 3 4 5 6 7 8 9 A B C D E                     *A02
     4179   01 018A0    00       A   TST25CODES DATA,1 0,0,2,2,0,0,0,0,2,2,2,2,0,0,0                     *B03
            01 018A0 1  00       A
            01 018A0 2  02       A
            01 018A0 3  02       A
            01 018A1    00       A
            01 018A1 1  00       A
            01 018A1 2  00       A
            01 018A1 3  00       A
            01 018A2    02       A
            01 018A2 1  02       A
            01 018A2 2  02       A
            01 018A2 3  02       A
            01 018A3    00       A
            01 018A3 1  00       A
            01 018A3 2  00       A
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   21
A    4180                                     PAGE                                                       *B03
     4181                                     SPACE  3                                                   *A02



     4182         01 018A3 3         GOTST26  EQU    %                                                   *A02
     4183   01 018A4    02200000 A            LCI      0                                                 *A02
     4184   01 018A5    2A0026A3              LM,0     GOSAVE                                            *A02
     4185   01 018A6    728010A9              LB,R8    SIGMA8                                            *B01
     4186   01 018A7    69F02667              BCS,15   TST%BY                                            *B01
     4187   01 018A8    328003F2              LW,R8    TESTNO                                            *A02
     4188   01 018A9    21802601 A            CI,R8    X'2601'                                           *A02
     4189   01 018AA    683018AE              BE       TST2601                                           *A02
     4190   01 018AB    21802602 A            CI,R8    X'2602'                                           *A02
     4191   01 018AC    683018C3              BE       TST2602                                           *A02
     4192   01 018AD    68002676              B        INVALTST#         DISPLAY INVALID TEST MSG.       *A02
     4193                            *                                                                   *A02
     4194                            *                                                                   *A02
     4195                            *                                                                   *A02
     4196                            *                                                                   *A02
     4197                            ************************************************************        *A02
     4198                            *                                                                   *A02
     4199                            *   TEST 2601 - THE FOLLOWING TEST EXECUTES AN MMC INSTRUCTION      *A02
     4200                            *        WHERE THE CONTROL WORD IS IMMEDIATELY BEFORE PROTECTED     *A02
     4201                            *        MEMORY.   IF IT TRAPS, THE TRAP IS NOT PROPERLY INHIBITED  *A02
     4202                            *                                                                   *A02
     4203                            ************************************************************        *A02
     4204                            *                                                                   *A02
     4205   01 018AE    22900003 A   TST2601  LI,R9    3                                                 *A02
     4206   01 018AF    22100014 A            LI,X1    ACC%PROT%SHIFT                                    *A02
     4207   01 018B0    25920000 A            SLS,R9   0,X1                                              *A02
     4208   01 018B1    3590189F              STW,R9   ACC%PROT%IMAGE    SELECT PAGE TO PROTECT          *A02
     4209   01 018B2    12201880              LD,X2    ACC%PROT%CDW                                      *A02
     4210   01 018B3    6F240000 A            MMC,X2   2                 PROTECT PAGE OF MEM.            *A02
     4211                            *                                                                   *A02
     4212   01 018B4    22802601 A            LI,R8    X'2601'                                           *A02
     4213   01 018B5    358003F2              STW,R8   TESTNO                                            *A02
     4214   01 018B6    22800001 A            LI,R8    1                                                 *A02
     4215   01 018B7    358003F3              STW,R8   PATTNO                                            *A02
     4216   01 018B8    469029FF              XW,R9    PAGE%BOUND-1      SAVE INSTRUCTION AT BOUNDRY     *A02
     4217   01 018B9    222029FF              LI,X2    PAGE%BOUND-1                                      *A02
     4218   01 018BA    32302CA2              LW,X3    X1000000                                          *A02
     4219   01 018BB    6F240000 A            MMC,X2   2                 TRY TO EXECUTE AN MMC           *A02
     4220                            *                                                                   *A02
     4221                            *   IF TRAP MESSAGE IS DISPLAYED, THERE IS A FAILURE IN THE TRAP    *A02
     4222                            *        INHIBIT CIRCUITRY                                          *A02
     4223                            *                                                                   *A02
     4224   01 018BC    6A601D86              BAL,LINK CHK:LOOP          CHECK SENSE SWITCHES            *A02
     4225   01 018BD    680018BB              B        %-2               LOOP RETURN                     *A02
     4226                            *                                                                   *A02
     4227   01 018BE    469029FF              XW,R9    PAGE%BOUND-1      RESTORE INSTR. AT PAGE%BOUND-1  *A02
     4228   01 018BF    22900000 A            LI,R9    0                                                 *A02
     4229   01 018C0    3590189F              STW,R9   ACC%PROT%IMAGE                                    *A02
     4230   01 018C1    12201880              LD,X2    ACC%PROT%CDW                                      *A02
     4231   01 018C2    6F240000 A            MMC,X2   2                 TURN OFF PROTECTION             *A02
     4232                            *                                                                   *A02
     4233                            *                                                                   *A02
     4234                            *************************************************                   *A02
     4235                            *                                                                   *A02
     4236                            *        TEST 2602 -  THE FOLLOWING TEST CHECK THE ABILITY OF THE   *A02
     4237                            *           READ AND INHIBIT PARITY INSTRUCTION TO INHIBIT A        *A02
     4238                            *           PARITY TRAP.                                            *A02
     4239                            *                                                                   *A02
     4240                            *************************************************                   *A02
     4241                            *                                                                   *A02
     4242                            *                                                                   *A02
     4243         01 018C3           TST2602  EQU      %                                                 *A02
     4244   01 018C3    22802602 A            LI,R8    X'2602'                                           *A02
     4245   01 018C4    358003F2              STW,R8   TESTNO                                            *A02
     4246   01 018C5    22800001 A            LI,R8    1                                                 *A02
     4247   01 018C6    358003F3              STW,R8   PATTNO                                            *A02
     4248   01 018C7    22800000 A            LI,R8    0                                                 *A02
     4249   01 018C8    35801BE3              STW,R8   BAD%PARITY                                        *A02
     4250   01 018C9    02200020 A            LCI      2                                                 *A02
     4251   01 018CA    2D801BE3              LMS,R8   BAD%PARITY        SET BAD PARITY IN MEMORY        *A02
     4252                            *                                                                   *A02
     4253   01 018CB    02200010 A            LCI      1                                                 *A02
     4254   01 018CC    2D801BE3              LMS,R8   BAD%PARITY        READ CONTENTS OF LOCATION WITH  *A02
     4255                            *                                   BAD PARITY                      *A02
     4256                            *   IF TRAP MESSAGE IS DISPLAYED, THERE IS A FAILURE IN THE TRAP    *A02
     4257                            *       INHIBIT CIRCUITRY                                           *A02
     4258                            *                                                                   *A02
     4259   01 018CD    74002A48              STCF     CODES                                             *A02
     4260   01 018CE    693018D1              BCS,3    %+3               ERROR IF CC 3-4 SET             *A02
     4261   01 018CF    684018D1              BCR,4    %+2               ERROR IF CC2 IS RESET           *A02
     4262   01 018D0    698018D5              BCS,8    %+5               OK IF CC1 IS SET                *A02
     4263   01 018D1    22C00061 A            LI,RC    X'61'             SET ERROR TYPE 61               *A02
     4264   01 018D2    226000C0 A            LI,LINK  X'C0'                                             *A02
     4265   01 018D3    75602A8D              STB,LINK TRAPECC           SAY EXP. CC'S = 1100            *A02
     4266   01 018D4    6A602122              BAL,LINK EROR              DISPLAY ERROR MSG.              *A02
     4267                            *                                                                   *A02
     4268   01 018D5    6A601D86              BAL,LINK CHK:LOOP          CHECK SENSE SWITCHES            *A02
     4269   01 018D6    680018D3              B        %-3               LOOP RETURN                     *A02
     4270                            *                                                                   *A02
     4271   01 018D7    22800000 A            LI,R8    0                                                 *A02
     4272   01 018D8    35801BE3              STW,R8   BAD%PARITY        CLEAR PARITY ERROR              *A02
     4273   01 018D9    680018EB              B        TST2700                                           *A02
     4274                            *                                                                   *A02
     4275                            *                                                                   *A02
     4276                                     TITLE    ;
     4277                             '                    UNIMPLEMENTED INSTRUCTION TRAP TESTS'
     4278                            *
     4279                            *
     4280                            *************************************************************
     4281                            *  UNIMPLEMENTED INSTRUCTION TRAP TESTS - EXECUTES THE 11
     4282                            *      DECIMAL ARITHMETIC INSTRUCTIONS (IF UNIT UNDER TEST IS
     4283                            *      A SIGMA 8) AND CHECKS FOR TRAPS
     4284                            *************************************************************
     4285                            *
     4286                            *
     4287                            ************************************
     4288                            * ENTRY FROM PARAMETER LINE T      *
     4289                            ************************************
     4290                            *
     4291         01 018DA           GOTST27  EQU      %
     4292   01 018DA    02200000 A            LCI      0
     4293   01 018DB    2A0026A3              LM,0     GOSAVE
     4294   01 018DC    324003F3              LW,X4    PATTNO
     4295   01 018DD    22700002 A            LI,X7    2                 CHECK IF THIS TEST IS VALID
     4296   01 018DE    730010A9              MTB,0    SIGMA8
     4297   01 018DF    693018E3              BNEZ     %+4               SKIP TEST IF SIGMA 9            *B03
     4298   01 018E0    330010A8              MTW,0    FLG:45                                            *B03
     4299   01 018E1    68302667              BEZ      TST%BY                                            *B03
     4300   01 018E2    02000000 A            NOP                                                        *B03
     4301   01 018E3    22800041 A            LI,R8    X'41'
     4302   01 018E4    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     4303   01 018E5    328003F2              LW,R8    TESTNO
     4304   01 018E6    21802701 A            CI,R8    X'2701'
     4305   01 018E7    683018F5              BE       TST27#A1
     4306   01 018E8    21802702 A            CI,R8    X'2702'
     4307   01 018E9    68301914              BE       TST27#B1
     4308   01 018EA    68002676              B        INVALTST#         ERROR - INVALID TEST NUMBER
     4309                            *
     4310                            *
     4311   01 018EB                 TST2700  RES      0
     4312   01 018EB    730010A9              MTB,0    SIGMA8
     4313   01 018EC    693018EF              BNEZ     %+3               SKIP TEST IF SIGMA 9            *B03
     4314   01 018ED    330010A8              MTW,0    FLG:45                                            *B03
     4315   01 018EE    6830194E              BEZ      TST2800                                           *B03
     4316   01 018EF    6A601173              BAL,LINK JAMXPSDS          INITIALIZE INTERRUPT AND TRAP LOC'NS
     4317   01 018F0    22800041 A            LI,R8    X'41'
     4318   01 018F1    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     4319   01 018F2    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     4320   01 018F3    22B02701 A            LI,RB    X'2701'           INITIALIZE TEST 2701
     4321   01 018F4    35B003F2              STW,RB   TESTNO               RECORD TEST NUMBER
     4322   01 018F5    354003F3     TST27#A1 STW,X4   PATTNO
     4323   01 018F6    22800000 A            LI,R8    0
     4324   01 018F7    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     4325   01 018F8    35802A8D              STW,R8   TRAPECC
     4326   01 018F9    32802C6F              LW,R8    TRAPXPSD
     4327   01 018FA    35800041 A            STW,R8   X'41'       SET XPSD TO TRAP HANDLER
     4328   01 018FB    22801904     TST27#A2 LI,R8    TRAP41               FIND ADDRESS OF EXPECTED TRAP
     4329   01 018FC    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     4330   01 018FD    72802A8A              LB,R8    SETCC
     4331   01 018FE    75802A8E              STB,R8   TRAPEPSD             SET EXP. COND. CODES
     4332   01 018FF    22801909              LI,R8    TST27#B
     4333   01 01900    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     4334   01 01901    22800000 A            LI,R8    0
     4335   01 01902    35802A8F              STW,R8   TRAPEPSD+1           SET EXP. PSD WORD 2 TO ZERO
     4336   01 01903    70202A8A              LC       SETCC             SET COND. CODES
     4337                            **********************************************************************
     4338                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     4339                            **********************************************************************
     4340   01 01904    6708191A     TRAP41   EXU      UNIMPL-1,X4
     4341                            **********************************************************************
     4342                            *                                                                    *
     4343                            *  FALL THROUGH IF NO TRAP
     4344                            **********************************************************************
     4345   01 01905    22C00071 A            LI,RC    X'71'                ERROR TYPE 71
     4346   01 01906    32D8191A              LW,RD    UNIMPL-1,X4       FIND TRAPPING INSTR.
     4347   01 01907    22E01904              LI,RE    TRAP41            FIND TRAP ADDRESS
     4348   01 01908    6A602122              BAL,LINK EROR
     4349                            *
     4350                            **********************************************************************
     4351                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     4352                            **********************************************************************
     4353   01 01909    6A601D86     TST27#B  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     4354   01 0190A    68001903              B        TRAP41-1          LOOP = YES RETURN
     4355   01 0190B    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     4356   01 0190C    354003F3              STW,X4   PATTNO
     4357   01 0190D    2140000B A            CI,X4    11                WAS THAT THE LAST PATTERN
     4358   01 0190E    68201903              BLE      TRAP41-1          LOOP IF NO
     4359   01 0190F    21B02702 A            CI,RB    X'2702'           IS TEST 2702 COMPLETE
     4360   01 01910    6830194E              BE       TST2800           BRANCH TO NEXT TEST IF YES
     4361                            **********************************************************************
     4362                            *  TEST 2702 - SAME AS 2701 EXCEPT XPSD BIT 9 IS SET
     4363                            **********************************************************************
     4364   01 01911    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     4365   01 01912    22B02702 A            LI,RB    X'2702'           INITIALIZE TEST 2702
     4366   01 01913    35B003F2              STW,RB   TESTNO               RECORD TEST NUM8ER
     4367   01 01914    354003F3     TST27#B1 STW,X4   PATTNO
     4368   01 01915    32802C6F              LW,R8    TRAPXPSD
     4369   01 01916    49802C9F              OR,R8    Y40                  SET BIT 9
     4370   01 01917    35800041 A            STW,R8   X'41'       SET XPSD TO TRAP HANDLER
     4371   01 01918    22800000 A            LI,R8    0
     4372   01 01919    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     4373   01 0191A    680018FB              B        TST27#A2
     4374                            *
     4375                            *
     4376                            ***************************************************************
     4377                            *  UNIMPLEMENTED INSTRUCTIONS - TESTS 2701 THRU 2702
     4378                            ***************************************************************
     4379                            *                                   SUBTEST
     4380   01 0191B    7E401926     UNIMPL   DL,4     DECIMAL1             1
     4381   01 0191C    7F402AEC              DST,4    SAVE#2               2
     4382   01 0191D    79401926              DA,4     DECIMAL1             3
     4383   01 0191E    78401926              DS,4     DECIMAL1             4
     4384   01 0191F    7B401927              DM,4     DECIMAL2             5
     4385   01 01920    7A401927              DD,4     DECIMAL2             6
     4386   01 01921    7D401927              DC,4     DECIMAL2             7
     4387   01 01922    7C000003 A            DSA      3                    8
     4388   01 01923    76401926              PACK,4   DECIMAL1             9
     4389   01 01924    77402AEC              UNPK,4   SAVE#2               A
     4390   01 01925    63800000 A            EBS,R8   0                    B
     4391                            *
     4392                            *
     4393   01 01926    000004D2 A   DECIMAL1 DATA     1234
     4394   01 01927    0000162E A   DECIMAL2 DATA     5678
     4395                            *
     4396                            *
     4397                            *
     4398                                     TITLE    ;
     4399                             '                    CALL TRAP TESTS'
     4400                            *
     4401                            *
     4402                            *************************************************************
     4403                            *  CALL INSTRUCTION TRAP TESTS - EXECUTE ALL 64 POSSIBLE
     4404                            *      CALL INSTRUCTIONS TO VERIFY PROPER TRAPPING.
     4405                            *      TESTS 2801 THRU 2804 TEST CALLS 1 THRU 4 RESPECTIVELY
     4406                            *          ( WITH XPSD BIT 9 = 1 )
     4407                            *      SUBTEST NUMBER (PATTNO) = 1 THRU 16 (16 SELECTIONS OF EACH CALL)
     4408                            *
     4409                            *        TESTS 2805 THRU 2808 SAME EXCEPT XPSD BIT 9 = 0
     4410                            *************************************************************
     4411                            *
     4412                            *
     4413                            ************************************
     4414                            * ENTRY FROM PARAMETER LINE T      *
     4415                            ************************************
     4416                            *
     4417   01 01928    02200000 A   GOTST28  LCI      0
     4418   01 01929    2A0026A3              LM,0     GOSAVE
     4419   01 0192A    324003F3              LW,X4    PATTNO
     4420   01 0192B    21300004 A            CI,LVL   4
     4421   01 0192C    6820192E              BLE      %+2               BRANCH IF TEST 2801 - 2804
     4422   01 0192D    203FFFFC A            AI,LVL   -4
     4423   01 0192E    22800048 A            LI,R8    X'48'
     4424   01 0192F    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     4425   01 01930    328003F2              LW,R8    TESTNO
     4426   01 01931    21802801 A            CI,R8    X'2801'           FIND SELECTED TEST AND
     4427   01 01932    68301953              BE       TST28#A1             BRANCH TO IT
     4428   01 01933    21802805 A            CI,R8    X'2805'
     4429   01 01934    68301988              BE       TST28#B1
     4430   01 01935    21802802 A            CI,R8    X'2802'
     4431   01 01936    69301939              BNE      %+3
     4432   01 01937    33102A93              MTW,1    TRAPLOC           MODIFY TRAP LOC'N FOR CAL2
     4433   01 01938    68001953              B        TST28#A1
     4434   01 01939    21802806 A            CI,R8    X'2806'
     4435   01 0193A    6930193D              BNE      %+3
     4436   01 0193B    33102A93              MTW,1    TRAPLOC
     4437   01 0193C    68001988              B        TST28#B1
     4438   01 0193D    21802803 A            CI,R8    X'2803'
     4439   01 0193E    69301941              BNE      %+3
     4440   01 0193F    33202A93              MTW,2    TRAPLOC           MODIFY TRAP LOC'N FOR CAL3
     4441   01 01940    68001953              B        TST28#A1
     4442   01 01941    21802807 A            CI,R8    X'2807'
     4443   01 01942    69301945              BNE      %+3
     4444   01 01943    33202A93              MTW,2    TRAPLOC
     4445   01 01944    68001988              B        TST28#B1
     4446   01 01945    21802804 A            CI,R8    X'2804'
     4447   01 01946    69301949              BNE      %+3
     4448   01 01947    33302A93              MTW,3    TRAPLOC           MODIFY TRAP LOC'N FOR CAL4
     4449   01 01948    68001953              B        TST28#A1
     4450   01 01949    21802808 A            CI,R8    X'2808'
     4451   01 0194A    6930194D              BNE      %+3
     4452   01 0194B    33302A93              MTW,3    TRAPLOC
     4453   01 0194C    68001988              B        TST28#B1
     4454   01 0194D    68002676              B        INVALTST#         ERROR - INVALID TEST NUMBER
     4455                            *
     4456                            *
     4457   01 0194E                 TST2800  RES      0
     4458   01 0194E    6D000023 A            WD,0     X'23'             RESET INHIBITS
     4459   01 0194F    22300001 A            LI,LVL   1                 SET UP FOR CALL 1
     4460   01 01950    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     4461   01 01951    22802801 A            LI,R8    X'2801'              INITIALIZE TEST 2801
     4462   01 01952    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     4463   01 01953    354003F3     TST28#A1 STW,X4   PATTNO
     4464   01 01954    35402A92              STW,X4   TRAPINCR             SET ADDRESS INCREMENT VALUE
     4465   01 01955    33F02A92              MTW,-1   TRAPINCR             TO ONE LESS THAN SUBTEST#
     4466   01 01956    32802C6F              LW,R8    TRAPXPSD
     4467   01 01957    49802C9F              OR,R8    Y40                  SET XPSD BIT 9=1
     4468   01 01958    6A601173     TST28#A2 BAL,LINK JAMXPSDS          INITIALIZE X'10' THRU X'1FF'
     4469   01 01959    35860047 A            STW,R8   X'47',LVL   SET XPSD TO TRAP HANDLER
     4470   01 0195A    2280196E              LI,R8    TRAP48               FIND ADDRESS OF EXPECTED TRAP
     4471   01 0195B    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     4472   01 0195C    22800047 A            LI,R8    X'47'             COMPUTE TRAP LOCATION
     4473   01 0195D    30800003 A            AW,R8    LVL                       *
     4474   01 0195E    35802A93              STW,R8   TRAPLOC                   *
     4475   01 0195F    72802A8A              LB,R8    SETCC             SET EXP CC'S
     4476   01 01960    75802A8E              STB,R8   TRAPEPSD                  *
     4477   01 01961    22801973              LI,R8    TST28#B
     4478   01 01962    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     4479   01 01963    22800000 A            LI,R8    0
     4480   01 01964    35802A8F              STW,R8   TRAPEPSD+1           SET EXP. PSD WORD 2 TO ZERO
     4481   01 01965    32700003 A   TST28#A3 LW,X7    LVL                  SET X7 AS EXECUTION INDEX
     4482   01 01966    207FFFFF A            AI,X7    -1                        *
     4483   01 01967    25700004 A            SLS,X7   4                         *
     4484   01 01968    30700004 A            AW,X7    X4                        *
     4485                            *
     4486   01 01969    328003F3              LW,R8    PATTNO            SET EXPECTED COND. CODES
     4487   01 0196A    208FFFFF A            AI,R8    -1                        *
     4488   01 0196B    25800004 A            SLS,R8   4                         *
     4489   01 0196C    75802A8D              STB,R8   TRAPECC                   *
     4490                            *
     4491   01 0196D    70202A8A              LC       SETCC             SET CONDITION CODES
     4492                            **********************************************************************
     4493                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     4494                            **********************************************************************
     4495   01 0196E    670E198B     TRAP48   EXU      CALL-1,X7
     4496                            **********************************************************************
     4497                            *  FALL THROUGH IF NO TRAP
     4498                            **********************************************************************
     4499   01 0196F    32DE198B              LW,RD    CALL-1,X7         FIND TRAPPING INSTR.
     4500   01 01970    22E0196E              LI,RE    TRAP48            FIND TRAP ADDRESS
     4501   01 01971    22C00071 A            LI,RC    X'71'                ERROR TYPE 71
     4502   01 01972    6A602122              BAL,LINK EROR
     4503                            *
     4504                            **********************************************************************
     4505                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     4506                            **********************************************************************
     4507   01 01973    6A601D86     TST28#B  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     4508   01 01974    6800196D              B        TRAP48-1          LOOP = YES RETURN
     4509   01 01975    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     4510   01 01976    354003F3              STW,X4   PATTNO
     4511   01 01977    328003F2              LW,R8    TESTNO            IS TEST 2808 COMPLETE
     4512   01 01978    21802804 A            CI,R8    X'2804'           IS IT ONE OF THE FIRST FOUR TESTS
     4513   01 01979    6920197B              BG       %+2               BRANCH IF NO
     4514   01 0197A    33102A92              MTW,1    TRAPINCR          INCREASE EXPECTED INCREMENT
     4515   01 0197B    21400010 A            CI,X4    16                WAS THAT THE LAST PATTERN
     4516   01 0197C    68201965              BLE      TST28#A3          LOOP IF NO
     4517   01 0197D    21802808 A            CI,R8    X'2808'
     4518   01 0197E    683019D4              BE       TST2900           BRANCH TO NEXT TEST IF YES
     4519   01 0197F    21300004 A            CI,LVL   4                 IS IT CALL 4
     4520   01 01980    69301982              BNE      %+2               SELECT NEXT CALL IF NO
     4521   01 01981    22300000 A            LI,LVL   0                 SELECT CALL 1 IF YES
     4522   01 01982    20300001 A            AI,LVL   1
     4523   01 01983    331003F2              MTW,1    TESTNO            INCREMENT TEST NUMBER
     4524   01 01984    22400001 A            LI,X4    1                 SELECT PATTERN 1
     4525   01 01985    354003F3              STW,X4   PATTNO
     4526   01 01986    21802804 A            CI,R8    X'2804'           IS IT ONE OF THE FIRST FOUR TESTS
     4527   01 01987    69101953              BL       TST28#A1          BRANCH IF YES
     4528                            **********************************************************************
     4529                            *  TESTS 2805 THRU 2808 - SAME AS 2801 THRU 2804 EXCEPT XPSD BIT 9 = 0
     4530                            **********************************************************************
     4531   01 01988    22800000 A   TST28#B1 LI,R8    0
     4532   01 01989    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     4533   01 0198A    32802C6F              LW,R8    TRAPXPSD
     4534   01 0198B    68001958              B        TST28#A2
     4535                            *
     4536                            *                                                                    *
     4537                            ****************************************************************
     4538                            *  CALL INSTRUCTIONS - TESTS 2801 THRU 2808
     4539                            ****************************************************************
     4540                            *                                  TEST   SUBTEST
     4541   01 0198C    04000000 A   CALL     CAL1,0   0                2801,5   1
     4542   01 0198D    04100000 A            CAL1,1   0                         2
     4543   01 0198E    04200000 A            CAL1,2   0                         3
     4544   01 0198F    04300000 A            CAL1,3   0                         4
     4545   01 01990    04400000 A            CAL1,4   0                         5
     4546   01 01991    04500000 A            CAL1,5   0                         6
     4547   01 01992    04600000 A            CAL1,6   0                         7
     4548   01 01993    04700000 A            CAL1,7   0                         8
     4549   01 01994    04800000 A            CAL1,8   0                         9
     4550   01 01995    04900000 A            CAL1,9   0                         A
     4551   01 01996    04A00000 A            CAL1,10  0                         B
     4552   01 01997    04B00000 A            CAL1,11  0                         C
     4553   01 01998    04C00000 A            CAL1,12  0                         D
     4554   01 01999    04D00000 A            CAL1,13  0                         E
     4555   01 0199A    04E00000 A            CAL1,14  0                         F
     4556   01 0199B    04F00000 A            CAL1,15  0                         10
     4557   01 0199C    05000000 A            CAL2,0   0                2802,6   1
     4558   01 0199D    05100000 A            CAL2,1   0                         2
     4559   01 0199E    05200000 A            CAL2,2   0                         3
     4560   01 0199F    05300000 A            CAL2,3   0                         4
     4561   01 019A0    05400000 A            CAL2,4   0                         5
     4562   01 019A1    05500000 A            CAL2,5   0                         6
     4563   01 019A2    05600000 A            CAL2,6   0                         7
     4564   01 019A3    05700000 A            CAL2,7   0                         8
     4565   01 019A4    05800000 A            CAL2,8   0                         9
     4566   01 019A5    05900000 A            CAL2,9   0                         A
     4567   01 019A6    05A00000 A            CAL2,10  0                         B
     4568   01 019A7    05B00000 A            CAL2,11  0                         C
     4569   01 019A8    05C00000 A            CAL2,12  0                         D
     4570   01 019A9    05D00000 A            CAL2,13  0                         E
     4571   01 019AA    05E00000 A            CAL2,14  0                         F
     4572   01 019AB    05F00000 A            CAL2,15  0                         10
     4573   01 019AC    06000000 A            CAL3,0   0                2803,7   1
     4574   01 019AD    06100000 A            CAL3,1   0                         2
     4575   01 019AE    06200000 A            CAL3,2   0                         3
     4576   01 019AF    06300000 A            CAL3,3   0                         4
     4577   01 019B0    06400000 A            CAL3,4   0                         5
     4578   01 019B1    06500000 A            CAL3,5   0                         6
     4579   01 019B2    06600000 A            CAL3,6   0                         7
     4580   01 019B3    06700000 A            CAL3,7   0                         8
     4581   01 019B4    06800000 A            CAL3,8   0                         9
     4582   01 019B5    06900000 A            CAL3,9   0                         A
     4583   01 019B6    06A00000 A            CAL3,10  0                         B
     4584   01 019B7    06B00000 A            CAL3,11  0                         C
     4585   01 019B8    06C00000 A            CAL3,12  0                         D
     4586   01 019B9    06D00000 A            CAL3,13  0                         E
     4587   01 019BA    06E00000 A            CAL3,14  0                         F
     4588   01 019BB    06F00000 A            CAL3,15  0                         10
     4589   01 019BC    07000000 A            CAL4,0   0                2804,8   1
     4590   01 019BD    07100000 A            CAL4,1   0                         2
     4591   01 019BE    07200000 A            CAL4,2   0                         3
     4592   01 019BF    07300000 A            CAL4,3   0                         4
     4593   01 019C0    07400000 A            CAL4,4   0                         5
     4594   01 019C1    07500000 A            CAL4,5   0                         6
     4595   01 019C2    07600000 A            CAL4,6   0                         7
     4596   01 019C3    07700000 A            CAL4,7   0                         8
     4597   01 019C4    07800000 A            CAL4,8   0                         9
     4598   01 019C5    07900000 A            CAL4,9   0                         A
     4599   01 019C6    07A00000 A            CAL4,10  0                         B
     4600   01 019C7    07B00000 A            CAL4,11  0                         C
     4601   01 019C8    07C00000 A            CAL4,12  0                         D
     4602   01 019C9    07D00000 A            CAL4,13  0                         E
     4603   01 019CA    07E00000 A            CAL4,14  0                         F
     4604   01 019CB    07F00000 A            CAL4,15  0                         10
     4605                            *
     4606                                     TITLE    '                 - PUSH STACK LIMIT TRAP TESTS'
     4607                            *
     4608                            *
     4609                            *********************************************************
     4610                            *
     4611                            *  PUSH STACK INSTRUCTION TRAPS:  EXECUTE 7 SUBTESTS FOR EACH OF
     4612                            *        6 STACK INSTRUCTIONS (SEE 'STKINST').   ALL SUBTESTS PRODUCE A
     4613                            *        TRAP OR AN INSTRUCTION ABORT WITHOUT TRAP.
     4614                            *           REPEAT THE ABOVE TESTS WITH THE TRAPS INHIBITED BY THE
     4615                            *        TRAP MASKS.(TESTS 2907-290C)
     4616                            *
     4617                            *        CHECK FOR 1). TRAP IF EXPECTED
     4618                            *                  2). CONDITION CODES ALTERED IF TRAP INH.
     4619                            *                      AND NOT ALTERED IF TRAP OCCURS.
     4620                            *                  3). STACK POINTER UNCHANGED.
     4621                            *                  4). STACK CONTENTS UNCHANGED.
     4622                            *
     4623                            *        REGISTER USAGE:
     4624                            *                 X7= SPD SELECTION (SUBTEST)
     4625                            *                 X4= INSTR. SELECTION (TEST)
     4626                            *
     4627                            *********************************************************
     4628                            *
     4629   01 019CC                 GOTST29  RES      0
     4630   01 019CC    02200000 A            LCI      0
     4631   01 019CD    2A0026A3              LM,0     GOSAVE
     4632   01 019CE    328003F2              LW,R8    TESTNO
     4633   01 019CF    2180290C A            CI,R8    X'290C'
     4634   01 019D0    69202676              BG       INVALTST#
     4635   01 019D1    22800042 A            LI,R8    X'42'
     4636   01 019D2    35802A93              STW,R8   TRAPLOC
     4637   01 019D3    680019D8              B        TST29#A1
     4638                            *
     4639                            *
     4640   01 019D4    22800042 A   TST2900  LI,R8    X'42'
     4641   01 019D5    35802A93              STW,R8   TRAPLOC           SET UP ERROR MSG
     4642   01 019D6    22802901 A            LI,R8    X'2901'
     4643   01 019D7    358003F2              STW,R8   TESTNO
     4644                            *
     4645   01 019D8    6A601173     TST29#A1 BAL,LINK JAMXPSDS          SET UP FOR SPURIOUS INTS. AND TRAPS
     4646   01 019D9    22800001 A            LI,R8    1                 SET UP SUBTEST 1
     4647   01 019DA    358003F3              STW,R8   PATTNO                    *
     4648   01 019DB    22200008 A            LI,X2    8                 SET MSP MODIFIER VALUES
     4649   01 019DC    223FFFF8 A            LI,X3    -8
     4650   01 019DD    328003F2              LW,R8    TESTNO
     4651   01 019DE    21802906 A            CI,R8    X'2906'
     4652   01 019DF    692019EC              BG       TST29#A3          BRANCH IF TRAP NOT EXPECTED
     4653   01 019E0    32802C6F              LW,R8    TRAPXPSD
     4654   01 019E1    35800042 A            STW,R8   X'42'    SET UP X'42' AS EXPECTED TRAP
     4655                            *
     4656   01 019E2    22801A01     TST29#A2 LI,R8    TRAP42            FIND TRAP INSTR. ADDRESS
     4657   01 019E3    35802A8E              STW,R8   TRAPEPSD          SET IN EXPECTED PSD
     4658   01 019E4    22801A0F              LI,R8    TST29#B
     4659   01 019E5    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN
     4660   01 019E6    22800000 A            LI,R8    0
     4661   01 019E7    35802A8F              STW,R8   TRAPEPSD+1
     4662   01 019E8    35802A92              STW,R8   TRAPINCR          SET EXPECTED INCREMENT TO 0
     4663   01 019E9    75802A8D              STB,R8   TRAPECC           SET EXPECTED COND. CODES
     4664   01 019EA    22800050 A            LI,R8    X'50'             SET EXP CC'S
     4665   01 019EB    75802A8E              STB,R8   TRAPEPSD                  *
     4666   01 019EC    324003F2     TST29#A3 LW,X4    TESTNO            SET UP INSTR. SELECT INDEX
     4667   01 019ED    4B402C87              AND,X4   XF                   *
     4668   01 019EE    21400006 A            CI,X4    6                    *
     4669   01 019EF    682019F1              BLE      %+2                  *
     4670   01 019F0    204FFFFA A            AI,X4    -6                   *
     4671                            *
     4672   01 019F1    327003F3     TST29#A4 LW,X7    PATTNO            CALCULATE SPD2 TO BE USED
     4673   01 019F2    32900004 A            LW,R9    X4                   *
     4674   01 019F3    209FFFFF A            AI,R9    -1
     4675   01 019F4    23900007 A            MI,R9    7                    *
     4676   01 019F5    30700009 A            AW,X7    R9                   *
     4677   01 019F6    329E1A47              LW,R9    STKCNT-1,X7       BUILD THE SPD
     4678   01 019F7    328003F2              LW,R8    TESTNO               MASK OUT TW AND TS IF TESTS
     4679   01 019F8    21802906 A            CI,R8    X'2906'              2901 THRU 2906
     4680   01 019F9    692019FB              BG       %+2                  *
     4681   01 019FA    4B901A72              AND,R9   STACKMASK            *
     4682   01 019FB    22801A30              LI,R8    STACK             FIND STACK ADDRESS
     4683                            *
     4684   01 019FC    15801A40              STD,R8   TRAPSPD           SAVE THE STACK POINTER DW
     4685                            *
     4686   01 019FD    22100010 A            LI,X1    16
     4687   01 019FE    35121A2F              STW,X1   STACK-1,X1        FILL STACK WITH POSITION NUMBERS
     4688   01 019FF    641019FE              BDR,X1   %-1
     4689                            *
     4690   01 01A00    02200050 A            LCI      5                 SET CONDITION CODES
     4691                            **********************************************************************
     4692                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     4693                            **********************************************************************
     4694   01 01A01    67081A41     TRAP42   EXU      STKINST-1,X4
     4695                            **********************************************************************
     4696                            *                                                                    *
     4697                            *  FALL THROUGH IF NO TRAP
     4698                            **********************************************************************
     4699   01 01A02    74002A48              STCF     CODES             SAVE CONDITION CODES
     4700   01 01A03    328003F2              LW,R8    TESTNO
     4701   01 01A04    21802906 A            CI,R8    X'2906'           WHICH GROUP OF TESTS IS THIS
     4702   01 01A05    69201A0B              BG       %+6               NO ERROR IF TRAP INHIBITED
     4703   01 01A06    22C00071 A            LI,RC    X'71'
     4704   01 01A07    32D81A41              LW,RD    STKINST-1,X4      FIND TRAPPING INSTR.
     4705   01 01A08    22E01A01              LI,RE    TRAP42            FIND TRAP ADDRESS
     4706   01 01A09    6A602122              BAL,LINK EROR              DISPLAY ERROR TYPE 71
     4707   01 01A0A    68001A0F              B        TST29#B
     4708                            *
     4709   01 01A0B    32802A48              LW,R8    CODES             CHECK CODITION CODES FOR ABORT
     4710   01 01A0C    69A01A0F              BCS,10   TST29#B           NO ERROR IF ABORT IS INDICATED
     4711   01 01A0D    22C00061 A            LI,RC    X'61'
     4712   01 01A0E    6A602122              BAL,LINK EROR              DISPLAY ERROR TYPE 61
     4713                            *
     4714   01 01A0F    22500010 A   TST29#B  LI,X5    16
     4715   01 01A10    328A1A2F              LW,R8    STACK-1,X5        CHECK STACK CONTENTS
     4716   01 01A11    318A2C78              CW,R8    ONE-1,X5
     4717   01 01A12    69301A15              BNE      %+3               BRANCH IF UNCHANGED
     4718   01 01A13    64501A10              BDR,X5   %-3               LOOP IF NOT FINISHED
     4719   01 01A14    68001A1A              B        %+6
     4720                            *
     4721   01 01A15    22C00093 A            LI,RC    X'93'
     4722   01 01A16    22D02C79              LI,RD    ONE               EXPECTED CONTENTS START ADDRESS
     4723   01 01A17    22E01A30              LI,RE    STACK             ACTUAL CONTENTS START ADDRESS
     4724   01 01A18    22F00010 A            LI,RF    16                TABLE SIZE
     4725   01 01A19    6A602122              BAL,LINK EROR              DISPLAY ERROR TYPE 92
     4726                            *
     4727   01 01A1A    22801A30              LI,R8    STACK             CHECK FOR CHANGE IN SPD
     4728   01 01A1B    31801A40              CW,R8    TRAPSPD              *
     4729   01 01A1C    69301A1F              BNE      TST29#C              *  BRANCH IF ERROR
     4730   01 01A1D    31901A41              CW,R9    TRAPSPD+1            *
     4731   01 01A1E    68301A24              BE       TST29#D              *
     4732                            *
     4733   01 01A1F    22C00092 A   TST29#C  LI,RC    X'92'             ENTER HERE ON SPD ERROR
     4734   01 01A20    22D0168D              LI,RD    R8+TRAPSAVE          EXP. SPD ADDRESS
     4735   01 01A21    22E01A40              LI,RE    TRAPSPD              ACT. SPD ADDRESS
     4736   01 01A22    22F00002 A            LI,RF    2                 TABLE SIZE
     4737   01 01A23    6A602122              BAL,LINK EROR
     4738                            *
     4739   01 01A24    6A601D86     TST29#D  BAL,LINK CHK:LOOP          CHECK USER INPUTS
     4740   01 01A25    68001A00              B        TRAP42-1          LOOP RETURN
     4741   01 01A26    331003F3              MTW,1    PATTNO
     4742   01 01A27    328003F3              LW,R8    PATTNO            FIND SUBTEST #
     4743   01 01A28    21800007 A            CI,R8    7
     4744   01 01A29    682019EC              BLE      TST29#A3          TRY NEXT SUBTEST IF NOT THRU
     4745                            *
     4746   01 01A2A    331003F2              MTW,1    TESTNO
     4747   01 01A2B    328003F2              LW,R8    TESTNO            FIND TEST #
     4748   01 01A2C    2180290C A            CI,R8    X'290C'
     4749   01 01A2D    69201A79              BG       TST2A00           EXIT TO NEXT SERIES OF TESTS
     4750   01 01A2E    680019D8              B        TST29#A1          LOOP TO NEXT TEST
     4751                            *
     4752                                     BOUND    8
     4753   01 01A30                 STACK    RES      16
     4754                            *
     4755   01 01A40                 TRAPSPD  RES      2                 STACK POINTER DOUBLE WORD
     4756                            *
     4757   01 01A42    09101A40     STKINST  PSW,X1   TRAPSPD           INSTRUCTIONS TO EXECUTE
     4758   01 01A43    08101A40              PLW,X1   TRAPSPD
     4759   01 01A44    0B101A40              PSM,X1   TRAPSPD
     4760   01 01A45    0A101A40              PLM,X1   TRAPSPD
     4761   01 01A46    13201A40              MSP,X2   TRAPSPD           POS. MODIFIER
     4762   01 01A47    13301A40              MSP,X3   TRAPSPD           NEG. MODIFIER
     4763                            *
     4764                            *     IN THE FOLLOWING GEN STATEMENTS:
     4765                            *        AF 1 = TS MASK
     4766                            *        AF 2 = SPACE COUNT PRIOR TO TRAP
     4767                            *        AF 3 = TW MASK
     4768                            *        AF 4 = WORD COUNT PRIOR TO TRAP
     4769                            *
     4770                            *     THESE ENTRIES ARE THE CONTENTS OF WORD 2 OF THE SPD
     4771                            *
     4772         01 01A48           STKCNT   EQU      %
     4773                            *   TEST 2901,2907
     4774   01 01A48    0002FFFF A            GEN,1,15,1,15  0,2,1,32767       PSW  SUBTEST      1
     4775   01 01A49    80007FFE A            GEN,1,15,1,15  1,0,0,32766                         2
     4776   01 01A4A    80000000 A            GEN,1,15,1,15  1,0,0,0                             3
     4777   01 01A4B    7FFFFFFF A            GEN,1,15,1,15  0,32767,1,32767                     4
     4778   01 01A4C    8000FFFF A            GEN,1,15,1,15  1,0,1,32767                         5
     4779   01 01A4D    80008000 A            GEN,1,15,1,15  1,0,1,0                             6
     4780   01 01A4E    8002FFFF A            GEN,1,15,1,15  1,2,1,32767                         7
     4781                            *   TEST 2902,2908
     4782   01 01A4F    7FFE8000 A            GEN,1,15,1,15  0,32766,1,0       PLW  SUBTEST      1
     4783   01 01A50    FFFF0002 A            GEN,1,15,1,15  1,32767,0,2                         2
     4784   01 01A51    FFFF7FFE A            GEN,1,15,1,15  1,32767,0,32766                     3
     4785   01 01A52    FFFFFFFE A            GEN,1,15,1,15  1,32767,1,32766                     4
     4786   01 01A53    FFFF8000 A            GEN,1,15,1,15  1,32767,1,0                         5
     4787   01 01A54    FFFF8002 A            GEN,1,15,1,15  1,32767,1,2                         6
     4788   01 01A55    80008000 A            GEN,1,15,1,15  1,0,1,0                             7
     4789                            *   TEST 2903,2909
     4790   01 01A56    0006FFFB A            GEN,1,15,1,15  0,6,1,32763       PSM  SUBTEST      1
     4791   01 01A57    80047FF8 A            GEN,1,15,1,15  1,4,0,32760                         2
     4792   01 01A58    80020000 A            GEN,1,15,1,15  1,2,0,0                             3
     4793   01 01A59    8004FFFB A            GEN,1,15,1,15  1,4,1,32763                         4
     4794   01 01A5A    8000FFF8 A            GEN,1,15,1,15  1,0,1,32760                         5
     4795   01 01A5B    80008000 A            GEN,1,15,1,15  1,0,1,0                             6
     4796   01 01A5C    8000FFFB A            GEN,1,15,1,15  1,0,1,32763                         7
     4797                            *   TEST 2904,290A
     4798   01 01A5D    00068004 A            GEN,1,15,1,15  0,6,1,4           PLM  SUBTEST      1
     4799   01 01A5E    80068000 A            GEN,1,15,1,15  1,6,1,0                             2
     4800   01 01A5F    80008003 A            GEN,1,15,1,15  1,0,1,3                             3
     4801   01 01A60    00008000 A            GEN,1,15,1,15  0,0,1,0                             4
     4802   01 01A61    FFFB0006 A            GEN,1,15,1,15  1,32763,0,6                         5
     4803   01 01A62    FFFB0006 A            GEN,1,15,1,15  1,32763,0,6                         6
     4804   01 01A63    FFFB8000 A            GEN,1,15,1,15  1,32763,1,0                         7
     4805                            *   TEST 2905,290B
     4806   01 01A64    0008FFFB A            GEN,1,15,1,15  0,8,1,32763       MSP(+) SUBTEST    1
     4807   01 01A65    80047FF7 A            GEN,1,15,1,15  1,4,0,32759                         2
     4808   01 01A66    80020000 A            GEN,1,15,1,15  1,2,0,0                             3
     4809   01 01A67    8004FFFB A            GEN,1,15,1,15  1,4,1,32763                         4
     4810   01 01A68    8000FFF7 A            GEN,1,15,1,15  1,0,1,32759                         5
     4811   01 01A69    80008000 A            GEN,1,15,1,15  1,0,1,0                             6
     4812   01 01A6A    8000FFFB A            GEN,1,15,1,15  1,0,1,32763                         7
     4813                            *   TEST 2906,290C
     4814   01 01A6B    00068004 A            GEN,1,15,1,15  0,6,1,4           MSP(-) SUBTEST    1
     4815   01 01A6C    80068000 A            GEN,1,15,1,15  1,6,1,0                             2
     4816   01 01A6D    80008003 A            GEN,1,15,1,15  1,0,1,3                             3
     4817   01 01A6E    00008000 A            GEN,1,15,1,15  0,0,1,0                             4
     4818   01 01A6F    FFFB0008 A            GEN,1,15,1,15  1,32763,0,8                         5
     4819   01 01A70    FFFB0008 A            GEN,1,15,1,15  1,32763,0,8                         6
     4820   01 01A71    FFFB8000 A            GEN,1,15,1,15  1,32763,1,0                         7
     4821   01 01A72    7FFF7FFF A   STACKMASK DATA    X'7FFF7FFF'
     4822                            *
     4823                            *
     4824                            *
     4825                                     TITLE    '                   FIXED POINT OVERFLOW TRAPS'
     4826                                     SPACE    2


     4827                            *
     4828                            *  THIS TEST EXECUTES INSTRUCTIONS IN 'TRAP43' TO PRODUCE OVERFLOW
     4829                            *        CONDITIONS.   SUBTEST 2 SETS THE TRAP MASK TO ZERO
     4830                            *                      SUBTEST 1 SETS THE TRAP MASK TO 1
     4831                            *
     4832                            *        REGISTER X1 CONTAINS DISPLACEMENT OF INSTRUCTION-   (FP0%INST)
     4833                            *                 X5    ''        ''       OF VALUES     -   (FPO%VAL)
     4834                            *                 X7    ''        ''       OF TABLE POINTERS-(FPO%)
     4835                            *                 X4    ''   SUBTEST NUMBER
     4836                            *
     4837                            *        EACH TEST IS BUILT BY MOVING:
     4838                            *                 1. INSTR. FROM TABLE FPO%INST TO 'TRAP43'
     4839                            *                 2. VALUE DOUBLEWORD FROM TABLE FPO%VAL TO REGISTERS
     4840                            *                     X2-X3 AND TO 'FPO%SAVE'-'FPO%SAVE+1'
     4841                            *                 3. EXPECTED CC FROM TABLE FPO% TO 'TRAPECC'
     4842                            *                   NOTE: TABLE FPO% CONTAINS INDEX VALUES USED TO
     4843                            *                         SELECT INSTRUCTION AND VALUES.
     4844                            *
     4845         01 01A73           GOTST2A  EQU      %                 ENTER HERE FROM PARAM LINE T
     4846   01 01A73    02200000 A            LCI      0
     4847   01 01A74    2A0026A3              LM,0     GOSAVE
     4848   01 01A75    328003F2              LW,R8    TESTNO
     4849   01 01A76    21802A1B A            CI,R8    X'2A1B'
     4850   01 01A77    69202676              BG       INVALTST#         EXIT IF TOO LARGE
     4851   01 01A78    68001A7E              B        TST2A#A+1
     4852                            *
     4853   01 01A79    22802A01 A   TST2A00  LI,R8    X'2A01'           SET UP TEST NUMBER
     4854   01 01A7A    358003F2              STW,R8   TESTNO
     4855   01 01A7B    22800001 A            LI,R8    1
     4856   01 01A7C    358003F3              STW,R8   PATTNO            INTIALIZE SUBTEST NUMBER
     4857                            *
     4858         01 01A7D           TST2A#A  EQU      %
     4859   01 01A7D    6A601173              BAL,LINK JAMXPSDS          UPDATE LOCATIONS 10-1FF
     4860   01 01A7E    22800000 A            LI,R8    0
     4861   01 01A7F    35802A92              STW,R8   TRAPINCR
     4862   01 01A80    32802C6F              LW,R8    TRAPXPSD          SET UP TRAP HANDLER
     4863   01 01A81    35800043 A            STW,R8   X'43'
     4864   01 01A82    22800043 A            LI,R8    X'43'
     4865   01 01A83    35802A93              STW,R8   TRAPLOC
     4866                            *
     4867   01 01A84    324003F3              LW,X4    PATTNO            FIND WHICH SUBTEST
     4868   01 01A85    21400001 A            CI,X4    1
     4869   01 01A86    68301A89              BE       %+3
     4870                            *
     4871   01 01A87    2280F000 A   TST2A#B1 LI,R8    X'F000'           SET UP SUBTEST 2
     4872   01 01A88    68001A8A              B        %+2
     4873                            *
     4874   01 01A89    2280F010 A   TST2A#B2 LI,R8    X'F010'           SET UP SUBTEST 1
     4875   01 01A8A    55801AA2              STH,R8   TRAP43-2
     4876                            *
     4877   01 01A8B    22901AA4     TST2A#C  LI,R9    TRAP43            SET EXPECTED TRAP ADDRESS IN EXP. PSD
     4878   01 01A8C    25800010 A            SLS,R8   16
     4879   01 01A8D    49900008 A            OR,R9    R8
     4880   01 01A8E    35902A8E              STW,R9   TRAPEPSD
     4881   01 01A8F    327003F2              LW,X7    TESTNO            SET UP POINTER TO TEST MODULE
     4882   01 01A90    4B702C8F              AND,X7   XFF                       *
     4883   01 01A91    328E1AC1              LW,R8    FPO%,X7           DECODE THE POINTER
     4884   01 01A92    25800210 A            SCS,R8   16                        *
     4885   01 01A93    75802A8E              STB,R8   TRAPEPSD          COND. CODES (BYTE 1)
     4886   01 01A94    72500008 A            LB,X5    R8                VALUE DISP. (BYTE 2)
     4887   01 01A95    25800008 A            SLS,R8   8
     4888   01 01A96    72100008 A            LB,X1    R8                INST. DISP. (BYTE 3)
     4889                            *
     4890   01 01A97    22800000 A            LI,R8    0
     4891   01 01A98    35802A8F              STW,R8   TRAPEPSD+1
     4892   01 01A99    75802A8D              STB,R8   TRAPECC           SET EXP. CC'S
     4893   01 01A9A    22801AAC              LI,R8    TST2A#D
     4894   01 01A9B    35802A94              STW,R8   TRAPRET           SET UP RETURN FROM TRAP HANDLER
     4895                            *
     4896   01 01A9C    122A1ADC     TST2A#C1 LD,X2    FPO%VAL,X5        BUILD TEST MODULE BY :
     4897   01 01A9D    15201AEA              STD,X2   FPO%SAVE            FINDING TEST VALUES
     4898   01 01A9E    32821AEB              LW,R8    FPO%INST,X1         FINDING INSTRUCTION
     4899   01 01A9F    35801AA4              STW,R8   TRAP43               SETTING INSTR. IN DRIVER
     4900                            *
     4901   01 01AA0    0E001AA2              LPSD,0   TRAP43-2          SET CC'S AND AM FLAG
     4902                                     BOUND    8
     4903   01 01AA2    F0101AA4 N            GEN,12,20,32  X'F01',%+2,0
                        00000000
     4904                                     SPACE    3



     4905                            ***************************
     4906                            *  TRAP SHOULD OCCUR HERE UNLESS INHIBITED BY AM =0 (SUBTEST 2)
     4907                            ****************************
     4908   01 01AA4                 TRAP43   RES      1
     4909                            ***************************
     4910                            *  FALL THRU IF NO TRAP
     4911                            **************************
     4912   01 01AA5    21400002 A            CI,X4    2                 IS IT SUBTEST 2
     4913   01 01AA6    68301AB4              BE       TST2A#E           NO ERROR IF YES
     4914   01 01AA7    22C00071 A            LI,RC    X'71'
     4915   01 01AA8    32D01AA4              LW,RD    TRAP43            FIND TRAPPING INSTR.
     4916   01 01AA9    22E01AA4              LI,RE    TRAP43            FIND TRAP ADDRESS
     4917   01 01AAA    6A602122              BAL,LINK EROR              DISPLAY ERROR TYPE 71 (NO TRAP)
     4918   01 01AAB    68001AB4              B        TST2A#E
     4919                            *
     4920                            *  RETURN HERE FROM TRAP HANDLER
     4921                            *
     4922   01 01AAC    21400001 A   TST2A#D  CI,X4    1                 WAS TRAP EXPECTED
     4923   01 01AAD    68301AB4              BE       TST2A#E           BRANCH IF YES
     4924   01 01AAE    22C00002 A            LI,RC    2                 DISPLAY ERROR TYPE 02 (UNEXP. TRAP)
     4925   01 01AAF    32D01624              LW,RD    TRAPPSD           FIND PSD WORD 1
     4926   01 01AB0    32E01625              LW,RE    TRAPPSD+1           AND WORD 2
     4927   01 01AB1    22800043 A            LI,R8    X'43'
     4928   01 01AB2    35802A62              STW,R8   LOCATION          DEFINE LOC'N OF TRAP
     4929   01 01AB3    6A602122              BAL,LINK EROR
     4930                            *
     4931   01 01AB4    6A601D86     TST2A#E  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     4932   01 01AB5    68001A9C              B        TST2A#C1          LOOP RETURN
     4933   01 01AB6    21400002 A            CI,X4    2                 CONTINUATION RETURN
     4934   01 01AB7    68301ABB              BE       TST2A#F           BRANCH IF SUBTEST 2
     4935                            *
     4936   01 01AB8    22400002 A            LI,X4    2
     4937   01 01AB9    354003F3              STW,X4   PATTNO
     4938   01 01ABA    68001A87              B        TST2A#B1          SELECT SUBTEST 2
     4939                            *
     4940   01 01ABB    22400001 A   TST2A#F  LI,X4    1                 SELECT SUBTEST 1,NEXT TEST
     4941   01 01ABC    354003F3              STW,X4   PATTNO
     4942   01 01ABD    20700001 A            AI,X7    1
     4943   01 01ABE    331003F2              MTW,1    TESTNO
     4944   01 01ABF    2170001B A            CI,X7    X'1B'             ARE ALL TESTS COMPLETE
     4945   01 01AC0    68201A89              BLE      TST2A#B2          BRANCH IF NO
     4946   01 01AC1    68001B06              B        TST2B01           GO TO NEXT TEST                 *A02
     4947                            *
     4948                            *
     4949                            *  THE FOLLOWING LOCATIONS CONTAIN BYTE POINTERS FOR THE FIXED PT.
     4950                            *        OVERFLOW TESTS.   BYTE 1 = EXP. CC AND FLOAT BYTE
     4951                            *                          BYTE 2 = ARITH. VALUE DISPLACEMENT IN FPO%VAL
     4952                            *                          BYTE 3 = INSTR. DISPLACEMENT IN TABLE FPO%INST
     4953                            *
     4954                            *                                    TEST                FUNCTION
     4955                            *                                   ******          *****************
     4956         01 01AC1           FPO%     EQU      %-1
     4957   01 01AC2    00D00101 A            GEN,8,8,8,8  0,X'D0',1,1   2A01        LCW    OVERFLOW
     4958   01 01AC3    00D00102 A            GEN,8,8,8,8  0,X'D0',1,2     02        LAW       ''
     4959   01 01AC4    00D00103 A            GEN,8,8,8,8  0,X'D0',1,3     03        LCD       ''
     4960   01 01AC5    00D00104 A            GEN,8,8,8,8  0,X'D0',1,4     04        LAD       ''
     4961   01 01AC6    00D00502 A            GEN,8,8,8,8  0,X'D0',5,2     05        AI  -     ''
     4962   01 01AC7    00500206 A            GEN,8,8,8,8  0,X'50',2,6     06        AI  +     ''
     4963   01 01AC8    00E00207 A            GEN,8,8,8,8  0,X'E0',2,7     07        AH  -     ''
     4964   01 01AC9    00500208 A            GEN,8,8,8,8  0,X'50',2,8     08        AH  +     ''
     4965   01 01ACA    00C00309 A            GEN,8,8,8,8  0,X'C0',3,9     09        AW  0     ''
     4966   01 01ACB    00500409 A            GEN,8,8,8,8  0,X'50',4,9     0A        AW  -     ''
     4967   01 01ACC    00E00509 A            GEN,8,8,8,8  0,X'E0',5,9     0B        AW  +     ''
     4968   01 01ACD    00C0010A A            GEN,8,8,8,8  0,X'C0',1,10    0C        AD  0     ''
     4969   01 01ACE    00E0020A A            GEN,8,8,8,8  0,X'E0',2,10    0D        AD  -     ''
     4970   01 01ACF    0050060A A            GEN,8,8,8,8  0,X'50',6,10    0E        AD  +     ''
     4971   01 01AD0    00C0030B A            GEN,8,8,8,8  0,X'C0',3,11    0F        AWM 0     ''
     4972   01 01AD1    0050040B A            GEN,8,8,8,8  0,X'50',4,11    10        AWM -     ''
     4973   01 01AD2    00E0050B A            GEN,8,8,8,8  0,X'E0',5,11    11        AWM +     ''
     4974   01 01AD3    0050020C A            GEN,8,8,8,8  0,X'50',2,12    12        MTH -     ''
     4975   01 01AD4    00E0020D A            GEN,8,8,8,8  0,X'E0',2,13    13        MTH +     ''
     4976   01 01AD5    0050020E A            GEN,8,8,8,8  0,X'50',2,14    14        MTW -     ''
     4977   01 01AD6    00E0020F A            GEN,8,8,8,8  0,X'E0',2,15    15        MTW +     ''
     4978   01 01AD7    00E00210 A            GEN,8,8,8,8  0,X'E0',2,16    16        SH  -     ''
     4979   01 01AD8    00500211 A            GEN,8,8,8,8  0,X'50',2,17    17        SH  +     ''
     4980   01 01AD9    00500612 A            GEN,8,8,8,8  0,X'50',6,18    18        SW  -     ''
     4981   01 01ADA    00E00212 A            GEN,8,8,8,8  0,X'E0',2,18    19        SW  +     ''
     4982   01 01ADB    00500613 A            GEN,8,8,8,8  0,X'50',6,19    1A        SD  -     ''
     4983   01 01ADC    00E00514 A            GEN,8,8,8,8  0,X'E0',5,20    1B        SD  +     ''
     4984                            *
     4985                            *  THE FOLLOWING VALUES ARE STORED AS DOUBLEWORDS IN X2-X3
     4986                            *        AND FPO%SAVE-FPO%SAVE+1 AS SELECTED BY BYTE 2 OF SELECTED
     4987                            *        POINTER WORD.
     4988                            *
     4989                                     BOUND    8
     4990         01 01ADC           FPO%VAL  EQU      %-2               INDEX VALUE (X5)
     4991   01 01ADE    80000000 A            DATA     X'80000000',0             1
            01 01ADF    00000000 A
     4992   01 01AE0    80000000 A            DATA     X'80000000',X'7FFFFFFF'   2
            01 01AE1    7FFFFFFF A
     4993   01 01AE2    80000000 A            DATA     X'80000000',X'80000000'   3
            01 01AE3    80000000 A
     4994   01 01AE4    7FFFFFFF A            DATA     X'7FFFFFFF',X'7FFFFFFF'   4
            01 01AE5    7FFFFFFF A
     4995   01 01AE6    80000000 A            DATA     X'80000000',-1            5
            01 01AE7    FFFFFFFF A
     4996   01 01AE8    7FFFFFFF A            DATA     X'7FFFFFFF',-1            6
            01 01AE9    FFFFFFFF A
     4997                            *
     4998   01 01AEA                 FPO%SAVE RES      2
     4999                            *
     5000                            *
     5001                            *  THE FOLLOWING LOCATIONS CONTAIN THE INSTRUCTIONS POINTED
     5002                            *        TO BY BYTE 3 OF THE SELECTED POINTER WORD
     5003                            *
     5004         01 01AEB           FPO%INST EQU      %-1               INDEX VALUE (X1)
     5005   01 01AEC    3A800002 A            LCW,R8   X2                        1
     5006   01 01AED    3B800002 A            LAW,R8   X2                        2
     5007   01 01AEE    1A800002 A            LCD,R8   X2                        3
     5008   01 01AEF    1B800002 A            LAD,R8   X2                        4
     5009   01 01AF0    202FFFFF A            AI,X2    -1                        5
     5010   01 01AF1    20300001 A            AI,X3    1                         6
     5011   01 01AF2    50202C78              AH,X2    M1                        7
     5012   01 01AF3    50301AEB              AH,X3    FPO%SAVE+1                8
     5013   01 01AF4    30200003 A            AW,X2    X3                        9
     5014   01 01AF5    10201AEA              AD,X2    FPO%SAVE                  10
     5015   01 01AF6    66201AEB              AWM,X2   FPO%SAVE+1                11
     5016   01 01AF7    53101AEB              MTH,1    FPO%SAVE+1                12
     5017   01 01AF8    53F01AEA              MTH,-1   FPO%SAVE                  13
     5018   01 01AF9    33101AEB              MTW,1    FPO%SAVE+1                14
     5019   01 01AFA    33F01AEA              MTW,-1   FPO%SAVE                  15
     5020   01 01AFB    58201AEB              SH,X2    FPO%SAVE+1                16
     5021   01 01AFC    58302C78              SH,X3    M1                        17
     5022   01 01AFD    38201AEB              SW,X2    FPO%SAVE+1                18
     5023   01 01AFE    18201AE6              SD,X2    FPO%VAL+10                19
     5024   01 01AFF    18201AE8              SD,X2    FPO%VAL+12                20
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   22
A    5025                                     PAGE
     5026                                     SPACE    6






     5027                            *
     5028                            *                                                                   *A02
     5029                            *                                                                   *A02
     5030                            *   FLOATING POINT TRAP                                             *A02
     5031                            *                                                                   *A02
     5032                            *                                                                   *A02
     5033         01 01B00           GOTST2B  EQU      %                                                 *A02
     5034   01 01B00    02200000 A            LCI      0                                                 *A02
     5035   01 01B01    2A0026A3              LM,0     GOSAVE                                            *A02
     5036   01 01B02    328003F2              LW,R8    TESTNO                                            *A02
     5037   01 01B03    21802B01 A            CI,R8    X'2B01'                                           *A02
     5038   01 01B04    68301B06              BE       TST2B01                                           *A02
     5039   01 01B05    68002676              B        INVALTST#                                         *A02
     5040                            *                                                                   *A02
     5041   01 01B06    22802B01 A   TST2B01  LI,R8    X'2B01'                                           *A02
     5042   01 01B07    358003F2              STW,R8   TESTNO                                            *A02
     5043   01 01B08    22800001 A            LI,R8    1                                                 *A02
     5044   01 01B09    358003F3              STW,R8   PATTNO                                            *A02
     5045   01 01B0A    6A601173              BAL,LINK JAMXPSDS                                          *A02
     5046   01 01B0B    22800000 A            LI,R8    0                                                 *A02
     5047   01 01B0C    35802A92              STW,R8   TRAPINCR          SPECIFY NO ADDR. INCREMENT      *A02
     5048   01 01B0D    32802C6F              LW,R8    TRAPXPSD                                          *A02
     5049   01 01B0E    35800044 A            STW,R8   X'44'             SEND EXP. TRAP TO TRAP HANDLER  *A02
     5050   01 01B0F    22801B1E              LI,R8    TRAP44                                            *A02
     5051   01 01B10    35802A8E              STW,R8   TRAPEPSD          BUILD EXPECTED PSD              *A02
     5052   01 01B11    22800040 A            LI,R8    X'40'                                             *A02
     5053   01 01B12    75802A8E              STB,R8   TRAPEPSD              EXP. CC'S                   *A02
     5054   01 01B13    22800000 A            LI,R8    0                                                 *A02
     5055   01 01B14    35802A8F              STW,R8   TRAPEPSD+1                                        *A02
     5056   01 01B15    22800044 A            LI,R8    X'44'                                             *A02
     5057   01 01B16    35802A93              STW,R8   TRAPLOC           SPECIFY LOCATION OF EXP. TRAP   *A02
     5058   01 01B17    22801B23              LI,R8    TST2B#D                                           *A02
     5059   01 01B18    35802A94              STW,R8   TRAPRET           SELECT RETURN FROM TRAP ADDR.   *A02
     5060                            *                                                                   *A02
     5061   01 01B19    32901B26     TST2B#C  LW,R9    DIVIDEND                                          *A02
     5062   01 01B1A    0E001B1C              LPSD,0   TRAP44-2                                          *A02
     5063                                     BOUND    8                                                 *A02
     5064   01 01B1C    F0001B1E N            GEN,12,20,32  X'F00',TRAP44,0                              *A02
                        00000000
     5065                            *                                                                   *A02
     5066                            *   TRAP SHOULD OCCUR ON NEXT INSTRUCTION                           *A02
     5067                            *                                                                   *A02
     5068   01 01B1E    3E901B27     TRAP44   FDS,R9   ZERO                                              *A02
     5069                            *                                                                   *A02
     5070                            *   FALL THRU IF NO TRAP                                            *A02
     5071                            *                                                                   *A02
     5072   01 01B1F    22C00071 A            LI,RC    X'71'                                             *A02
     5073   01 01B20    32D01B1E              LW,RD    TRAP44            PICK UP TRAPPING INSTR.         *A02
     5074   01 01B21    22E01B1E              LI,RE    TRAP44            PICK UP TRAP ADDRESS            *A02
     5075   01 01B22    6A602122              BAL,LINK  EROR             SAY EXP. TRAP DIDN'T OCCUR      *A02
     5076                            *                                                                   *A02
     5077                            *   RETURN HERE AFTER TRAP                                          *A02
     5078                            *                                                                   *A02
     5079   01 01B23    6A601D86     TST2B#D  BAL,LINK CHK:LOOP                                          *A02
     5080   01 01B24    68001B19              B        TST2B#C           LOOP RETURN                     *A02
     5081   01 01B25    68001B39              B        TST2C00           CONTINUATION RETURN             *A02
     5082                            *                                                                   *A02
     5083                            *                                                                   *A02
     5084   01 01B26    40100000 A   DIVIDEND DATA     X'40100000'                                       *A02
     5085   01 01B27    00000000 A   ZERO     DATA     0                                                 *A02
     5086                            *                                                                   *A02
     5087                            *                                                                   *A02
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   23
A    5088                                     PAGE
     5089                                     TITLE    'DECIMAL TRAPS - TRAP ''45'''
     5090                            *
     5091                            ************************************
     5092                            * ENTRY FROM PARAMETER LINE T      *
     5093                            ************************************
     5094                            *
     5095         01 01B28           GOTST2C  EQU      %
     5096   01 01B28    02200000 A            LCI      0
     5097   01 01B29    2A0026A3              LM,0     GOSAVE
     5098   01 01B2A    324003F3              LW,X4    PATTNO
     5099   01 01B2B    22700002 A            LI,X7    2                 CHECK IF THIS TEST IS VALID
     5100   01 01B2C    730010A9              MTB,0    SIGMA8
     5101   01 01B2D    69302667              BNEZ     TST%BY            BYPASS TEST IF SIGMA 8 (NO DECIMAL)
     5102   01 01B2E    330010A8              MTW,0    FLG:45                                            *B03
     5103   01 01B2F    69302667              BNEZ     TST%BY                                            *B03
     5104   01 01B30    02000000 A            NOP                                                        *B03
     5105   01 01B31    22800045 A            LI,R8    X'45'
     5106   01 01B32    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     5107   01 01B33    328003F2              LW,R8    TESTNO
     5108   01 01B34    21802C01 A            CI,R8    X'2C01'
     5109   01 01B35    68301B42              BE       TST2C#A
     5110   01 01B36    21802C02 A            CI,R8    X'2C02'
     5111   01 01B37    68301B84              BE       TST2C#D
     5112   01 01B38    68002676              B        INVALTST#         ERROR - INVALID TEST NUMBER
     5113                            *
     5114                            *
     5115   01 01B39                 TST2C00  RES      0
     5116   01 01B39    730010A9              MTB,0    SIGMA8
     5117   01 01B3A    69301BA2              BNEZ     TST2D00           BYPASS TEST IF SIGMA 8 (NO DECIMAL)
     5118   01 01B3B    330010A8              MTW,0    FLG:45                                            *B03
     5119   01 01B3C    69301BA2              BNEZ     TST2D00                                           *B03
     5120   01 01B3D    22800045 A            LI,R8    X'45'
     5121   01 01B3E    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     5122   01 01B3F    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     5123   01 01B40    22B02C01 A            LI,RB    X'2C01'           INITIALIZE TEST 2C01
     5124   01 01B41    35B003F2              STW,RB   TESTNO               RECORD TEST NUMBER
     5125   01 01B42    22800000 A   TST2C#A  LI,R8    0
     5126   01 01B43    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     5127   01 01B44    6A601173              BAL,LINK JAMXPSDS          INITIALIZE INTERRUPT AND TRAP LOC'NS
     5128   01 01B45    68001B4A              B        TST2C#A2
     5129                            *
     5130   01 01B46    354003F3     TST2C#A1 STW,X4   PATTNO
     5131   01 01B47    35802A8D              STW,R8   TRAPECC
     5132   01 01B48    32802C6F              LW,R8    TRAPXPSD
     5133   01 01B49    35800045 A            STW,R8   X'45'       SET XPSD TO TRAP HANDLER
     5134   01 01B4A    22801B5F     TST2C#A2 LI,R8    TRAP45               FIND ADDRESS OF EXPECTED TRAP
     5135   01 01B4B    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     5136   01 01B4C    22801B6A              LI,R8    TST2C#B
     5137   01 01B4D    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     5138   01 01B4E    22800000 A            LI,R8    0
     5139   01 01B4F    35802A8F              STW,R8   TRAPEPSD+1           SET EXP. PSD WORD 2 TO ZERO
     5140   01 01B50    321003F3              LW,X1    PATTNO
     5141   01 01B51    23100006 A            MI,X1    6                 SET UP LOAD MODULE INDEX
     5142   01 01B52    02200060 A            LCI      6
     5143   01 01B53    2AA21B80              LM,RA    DEC%MODS-6,X1     GET SUBTEST MODULE
     5144   01 01B54    35A01B5F              STW,RA   TRAP45
     5145   01 01B55    55B02A8E              STH,RB   TRAPEPSD
     5146   01 01B56    328003F2              LW,R8    TESTNO
     5147   01 01B57    4B802C79              AND,R8   ONE
     5148   01 01B58    68301B5E              BEZ      TST2C02           BRANCH IF TEST 2C02
     5149   01 01B59    0E001B5A              LPSD,0   TST2C01
     5150                                     BOUND    8
     5151   01 01B5A    00001B5F     TST2C01  DATA     TRAP45,0
            01 01B5B    00000000 A
     5152                            *
     5153   01 01B5C    00201B5F N            GEN,12,20,32  2,TRAP45,0
                        00000000
     5154   01 01B5E    0E001B5C     TST2C02  LPSD,0   %-2
     5155                            *
     5156                            **********************************************************************
     5157                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     5158                            **********************************************************************
     5159   01 01B5F    00000000 A   TRAP45   DATA     0                 REPLACE WITH INSTR. FROM DEC%MODS TABLE
     5160                            **********************************************************************
     5161                            *                                                                    *
     5162                            *  FALL THROUGH IF NO TRAP
     5163                            **********************************************************************
     5164   01 01B60    328003F2              LW,R8    TESTNO
     5165   01 01B61    21802C01 A            CI,R8    X'2C01'
     5166   01 01B62    68301B78              BE       TST2C#C
     5167                            *
     5168   01 01B63    02200040 A            LCI      4
     5169   01 01B64    2BC01B98              STM,RC   DEC%SAVE          SAVE ALTERED REGISTERS
     5170   01 01B65    22C00071 A            LI,RC    X'71'                ERROR TYPE 71
     5171   01 01B66    32D01B5F              LW,RD    TRAP45            FIND TRAPPING INSTR.
     5172   01 01B67    22E01B5F              LI,RE    TRAP45            FIND TRAP ADDRESS
     5173   01 01B68    6A602122              BAL,LINK EROR
     5174   01 01B69    68001B78              B        TST2C#C
     5175                            **********************************************************************
     5176                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     5177                            **********************************************************************
     5178         01 01B6A           TST2C#B  EQU      %
     5179                            *
     5180   01 01B6A    20101B82              AI,X1    DEC%MODS-4        SET X1 AS POINTER TO DEC. #
     5181   01 01B6B    91C00001 A            CD,RC    *X1
     5182   01 01B6C    69301B70              BNE      %+4               BRANCH IF REGISTERS WERE ALTERED
     5183   01 01B6D    20100002 A            AI,X1    2
     5184   01 01B6E    91E00001 A            CD,RE    *X1
     5185   01 01B6F    68301B78              BE       TST2C#C           BRANCH IF NOT ALTERED
     5186                            *
     5187   01 01B70    02200040 A            LCI      4
     5188   01 01B71    2BC01B98              STM,RC   DEC%SAVE
     5189   01 01B72    22C00093 A            LI,RC    X'93'
     5190   01 01B73    32D00001 A            LW,RD    X1
     5191   01 01B74    20DFFFFE A            AI,RD    -2
     5192   01 01B75    22E01B98              LI,RE    DEC%SAVE
     5193   01 01B76    22F00004 A            LI,RF    4
     5194   01 01B77    6A602122              BAL,LINK EROR
     5195                            *
     5196   01 01B78    6A601D86     TST2C#C  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     5197   01 01B79    68001B46              B        TST2C#A1          LOOP = YES RETURN
     5198   01 01B7A    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     5199   01 01B7B    354003F3              STW,X4   PATTNO
     5200   01 01B7C    21400003 A            CI,X4    3                 WAS THAT THE LAST PATTERN
     5201   01 01B7D    68201B46              BLE      TST2C#A1          LOOP IF NO
     5202   01 01B7E    328003F2              LW,R8    TESTNO
     5203   01 01B7F    21802C02 A            CI,R8    X'2C02'
     5204   01 01B80    68301BA2              BE       TST2D00           BRANCH IF TEST IS COMPLETE
     5205                            *
     5206                            **********************************************************************
     5207                            *  TEST 2C02 - SAME AS 2C01 EXCEPT DM IS SET IN PSD
     5208                            **********************************************************************
     5209   01 01B81    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     5210   01 01B82    22802C02 A            LI,R8    X'2C02'           INITIALIZE TEST 2C02
     5211   01 01B83    358003F2              STW,R8   TESTNO               RECORD TEST NUM8ER
     5212         01 01B84           TST2C#D  EQU      %
     5213   01 01B84    6A601173              BAL,LINK JAMXPSDS
     5214   01 01B85    68001B46              B        TST2C#A1
     5215                            *
     5216                            *
     5217                            *  THIS TABLE CONTAINS THE SUBTEST MODULES FOR THIS TEST
     5218                            *
     5219                            *        WORD 1 = TRAPPING INSTRUCTION
     5220                            *        WORD 2 = EXPECTED TCC (BYTE 3)
     5221                            *        WORDS 3 THRU 6
     5222                            *               = CONTENTS OF DECIMAL ACCUMULATOR
     5223                            *
     5224         01 01B86           DEC%MODS EQU      %
     5225   01 01B86    7C000008 A            DSA      8                 SUBTEST 1 - DECIMAL SHIFT
     5226   01 01B87    00008020 A            DATA     X'8020'              WITH ILLEGAL SIGN BIT
     5227   01 01B88    00000001 A            DATA     1,0,0,3
            01 01B89    00000000 A
            01 01B8A    00000000 A
            01 01B8B    00000003 A
     5228                            *
     5229   01 01B8C    78001B8E              DS,0     %+2               SUBTEST 2 - DECIMAL SUBTRACT
     5230   01 01B8D    00008020 A            DATA     X'8020'             WITH ILLEGAL DIGIT
     5231   01 01B8E    0000000A A            DATA     X'A',0,0,X'F'
            01 01B8F    00000000 A
            01 01B90    00000000 A
            01 01B91    0000000F A
     5232                            *
     5233   01 01B92    79001B94              DA,0     %+2               SUBTEST 3 - DECIMAL ADD
     5234   01 01B93    00004020 A            DATA     X'4020'              WITH OVERFLOW
     5235   01 01B94    50000000 A            DATA     X'50000000',0,0,X'B'
            01 01B95    00000000 A
            01 01B96    00000000 A
            01 01B97    0000000B A
     5236                            *
     5237   01 01B98                 DEC%SAVE RES      4
     5238                            *
     5239                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   24
A    5240                                     PAGE
     5241                                     SPACE    6






     5242                            *
     5243                            *
     5244                            *  WATCH DOG TIMER TEST
     5245                            *
     5246                            ******************************
     5247                            *
     5248   01 01B9C    328003F2              LW,R8    TESTNO
     5249   01 01B9D    21802D02 A            CI,R8    X'2D02'
     5250   01 01B9E    68301BA2              BE       %+4               BRANCH IF TRAP NOT EXPECTED
     5251         01 01B9F           GOTST2D  EQU      %
     5252   01 01B9F    328003F2              LW,R8    TESTNO
     5253   01 01BA0    21802D01 A            CI,R8    X'2D01'
     5254   01 01BA1    69302676              BNE      INVALTST#
     5255                            *
     5256                            *  ENTER HERE FROM PREVIOUS TEST
     5257                            *
     5258         01 01BA2           TST2D00  EQU      %
     5259   01 01BA2    22802D01 A            LI,R8    X'2D01'
     5260   01 01BA3    358003F2              STW,R8   TESTNO
     5261   01 01BA4    22800001 A            LI,R8    1
     5262   01 01BA5    358003F3              STW,R8   PATTNO
     5263   01 01BA6    6A601173              BAL,LINK JAMXPSDS          INITIALIZE TRAP LOCN'S
     5264   01 01BA7    22800000 A            LI,R8    0
     5265   01 01BA8    35802A8F              STW,R8   TRAPEPSD+1
     5266   01 01BA9    35802A92              STW,R8   TRAPINCR
     5267   01 01BAA    32802C6F              LW,R8    TRAPXPSD          DIRECT TRAP TO TRAP HANDLER
     5268   01 01BAB    35800046 A            STW,R8   X'46'                     *
     5269   01 01BAC    22801BB5              LI,R8    TRAP46
     5270   01 01BAD    35802A8E              STW,R8   TRAPEPSD
     5271   01 01BAE    22800010 A            LI,R8    X'10'
     5272   01 01BAF    75802A8D              STB,R8   TRAPECC
     5273   01 01BB0    22801BBA              LI,R8    TST2D#B
     5274   01 01BB1    35802A94              STW,R8   TRAPRET
     5275   01 01BB2    22800046 A            LI,R8    X'46'
     5276   01 01BB3    35802A93              STW,R8   TRAPLOC
     5277   01 01BB4    02200000 A            LCI      0
     5278                            *
     5279                            *  TRAP EXPECTED ON NEXT INSTRUCTION
     5280                            *
     5281   01 01BB5    6C802FFF A   TRAP46   RD,R8    X'2FFF'           ILLEGAL READ DIRECT
     5282                            *
     5283                            *    FALL THROUGH IF NO TRAP
     5284                            *
     5285   01 01BB6    22C00072 A            LI,RC    X'72'
     5286   01 01BB7    32D01BB5              LW,RD    TRAP46            TRAPPING INSTRUCTION
     5287   01 01BB8    22E01BB5              LI,RE    TRAP46            EXP. TRAP ADDRESS
     5288   01 01BB9    6A602122              BAL,LINK EROR
     5289                            *
     5290   01 01BBA    6A601D86     TST2D#B  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     5291   01 01BBB    68001BB4              B        TRAP46-1             LOOP RETURN
     5292   01 01BBC    68001BC1              B        TST2E00              CONTINUE RETURN
     5293                            *
     5294                                     TITLE    'PARITY ERROR TRAP TEST - TRAP ''4C'''
     5295                                     SPACE    6






     5296                            *
     5297                            *   PARITY ERROR TRAP TEST
     5298                            *
     5299                            ******************************
     5300                            *
     5301                            *        A PARITY ERROR IS FORCED IN 'BADPARITY' AND A TRAP IS
     5302                            *   EXPECTED AT 'TRAP4C' WHEN THE LOCATION IS READ
     5303                            *
     5304                            *
     5305                                     BOUND    8
     5306         01 01BBE           GOTST2E  EQU      %
     5307   01 01BBE    328003F2              LW,R8    TESTNO
     5308   01 01BBF    21802E01 A            CI,R8    X'2E01'
     5309   01 01BC0    69302676              BNE      INVALTST#
     5310                            *
     5311                            *  ENTER HERE FROM PREVIOUS TEST
     5312                            *
     5313         01 01BC1           TST2E00  EQU      %
     5314   01 01BC1    0E101BC2              LPSD,1   %+1               CLEAR PDF IF SET
     5315   01 01BC2    00001BC4              DATA     %+2,0
            01 01BC3    00000000 A
     5316   01 01BC4    22802E01 A            LI,R8    X'2E01'
     5317   01 01BC5    358003F2              STW,R8   TESTNO
     5318   01 01BC6    22800001 A            LI,R8    1
     5319   01 01BC7    358003F3              STW,R8   PATTNO
     5320   01 01BC8    6A601173              BAL,LINK JAMXPSDS          INITIALIZE TRAP LOCN'S
     5321   01 01BC9    22800000 A            LI,R8    0
     5322   01 01BCA    35802A8F              STW,R8   TRAPEPSD+1
     5323   01 01BCB    35802A92              STW,R8   TRAPINCR
     5324   01 01BCC    75802A8D              STB,R8   TRAPECC
     5325   01 01BCD    32802C6F              LW,R8    TRAPXPSD          DIRECT TRAP TO TRAP HANDLER
     5326   01 01BCE    3580004C A            STW,R8   X'4C'                     *
     5327   01 01BCF    22801BDB              LI,R8    TRAP4C
     5328   01 01BD0    35802A8E              STW,R8   TRAPEPSD
     5329   01 01BD1    22800000 A   TST2E#A  LI,R8    0
     5330   01 01BD2    35801BE3              STW,R8   BAD%PARITY
     5331   01 01BD3    02200020 A            LCI      2
     5332   01 01BD4    2D801BE3              LMS,R8   BAD%PARITY
     5333   01 01BD5    22801BE0              LI,R8    TST2E#B
     5334   01 01BD6    35802A94              STW,R8   TRAPRET
     5335   01 01BD7    2280004C A            LI,R8    X'4C'
     5336   01 01BD8    35802A93              STW,R8   TRAPLOC
     5337   01 01BD9    22800400 A            LI,R8    X'400'
     5338   01 01BDA    6D801300 A            WD,R8    ARMD              ARM AND DISABLE MFI
     5339                            *
     5340                            *  TRAP EXPECTED ON NEXT INSTRUCTION
     5341                            *
     5342   01 01BDB    32801BE3     TRAP4C   LW,R8    BAD%PARITY        FIND WORD WITH BAD PARITY
     5343                            *
     5344                            *    FALL THROUGH IF NO TRAP
     5345                            *
     5346   01 01BDC    22C00071 A            LI,RC    X'71'
     5347   01 01BDD    32D01BDB              LW,RD    TRAP4C            TRAPPING INSTRUCTION
     5348   01 01BDE    22E01BDB              LI,RE    TRAP4C            EXP. TRAP ADDRESS
     5349   01 01BDF    6A602122              BAL,LINK EROR
     5350                            *
     5351   01 01BE0    6A601D86     TST2E#B  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     5352   01 01BE1    68001BD1              B        TST2E#A              LOOP RETURN
     5353   01 01BE2    68001BEA              B        TST2F00              CONTINUE RETURN
     5354                            *
     5355   01 01BE3    00000000 A   BAD%PARITY DATA   0                 MEM. LOC'N THAT HAS THE BAD PARITY
     5356                            *
     5357                            *
     5358                            *
     5359                            *
     5360                                     TITLE    'INSTRUCTION EXCEPTION TRAP TEST - TRAP ''4D'''
     5361                                     SPACE    6






     5362                            *
     5363                            *   INSTRUCTION EXCEPTION TRAP TEST
     5364                            *
     5365                            **************************************
     5366                            *
     5367         01 01BE4           GOTST2F  EQU      %
     5368                            *                                                                   *A01
     5369                            *                                                                   *A01
     5370                            *                                                                   *A01
     5371   01 01BE4    02200000 A            LCI      0                                                 *A01
     5372   01 01BE5    2A0026A3              LM,0     GOSAVE                                            *A01
     5373   01 01BE6    32400003 A            LW,X4    LVL                                               *A01
     5374   01 01BE7    21400007 A            CI,X4    7                                                 *A01
     5375   01 01BE8    68102676              BGE      INVALTST#                                         *A01
     5376   01 01BE9    68001BEE              B        TST2F%COM                                         *A01
     5377                            *                                                                   *A01
     5378                            *                                                                   *A01
     5379         01 01BEA           TST2F00  EQU      %                                                 *A01
     5380   01 01BEA    22800001 A            LI,R8    1                                                 *A01
     5381   01 01BEB    358003F3              STW,R8   PATTNO            SET SUBTST # = 1                *A01
     5382   01 01BEC    22400000 A            LI,X4    0                                                 *A01
     5383                            *                                                                   *A01
     5384   01 01BED    20400001 A            AI,X4    1                 BUMP TEST # INDEX               *A01
     5385                            *                                                                   *A01
     5386         01 01BEE           TST2F%COM  EQU    %                                                 *A01
     5387   01 01BEE    6A601173              BAL,LINK JAMXPSDS                                          *A01
     5388   01 01BEF    6A602348              BAL,LINK INITHIST                                          *A01
     5389   01 01BF0    6A601D52              BAL,LINK DISARMALL                                         *A01
     5390   01 01BF1    2280004D A            LI,R8    X'4D'                                             *A01
     5391   01 01BF2    35802A93              STW,R8   TRAPLOC                                           *A01
     5392   01 01BF3    22800000 A            LI,R8    0                                                 *A01
     5393   01 01BF4    35802A8E              STW,R8   TRAPEPSD                                          *A01
     5394   01 01BF5    35802A92              STW,R8   TRAPINCR                                          *A01
     5395   01 01BF6    32802C6F              LW,R8    TRAPXPSD                                          *A01
     5396   01 01BF7    3580004D A            STW,R8   X'4D'                                             *A01
     5397   01 01BF8    72802A8A              LB,R8    SETCC                                             *A01
     5398   01 01BF9    75802A8E              STB,R8   TRAPEPSD                                          *A01
     5399   01 01BFA    72881CD3              LB,R8    4D%TCC,X4                                         *A01
     5400   01 01BFB    75802A8D              STB,R8   TRAPECC                                           *A01
     5401   01 01BFC    72881CD5              LB,R8    4D%TSF,X4                                         *A01
     5402   01 01BFD    25800008 A            SLS,R8   8                                                 *A01
     5403   01 01BFE    35802A8F              STW,R8   TRAPEPSD+1                                        *A01
     5404   01 01BFF    68081BFF              B        %,X4              SELECT NEXT TEST                *A01
     5405   01 01C00    68001C06              B        TST2F#A                                           *A01
     5406   01 01C01    68001C2A              B        TST2F#B                                           *A01
     5407   01 01C02    68001C48              B        TST2F#C                                           *A01
     5408   01 01C03    68001C6F              B        TST2F#D                                           *A01
     5409   01 01C04    68001C89              B        TST2F#E                                           *A01
     5410   01 01C05    68001CA3              B        TST2F#F                                           *A01
     5411                            ********************************************                        *A01
     5412                            *        TEST 2F01                                                  *A01
     5413                            *                                                                   *A01
     5414                            *   TRAP 4D- XPSD IN INT. LOC'N SETS REG. PTR. TO NON-EXIST. BLOCK  *A01
     5415                            *                                                                   *A01
     5416                            *  THIS TEST AND THE NEXT ASSUME THAT IF REGISTER BLOCK 3 DOES      *A01
     5417                            *        NOT PRODUCE A TRAP, ALL REGISTER BLOCKS ARE IMPLEMENTED    *A01
     5418                            *                                                                   *A01
     5419         01 01C06           TST2F#A  EQU      %                                                 *A01
     5420   01 01C06    22802F01 A            LI,R8    X'2F01'                                           *A01
     5421   01 01C07    358003F2              STW,R8   TESTNO                                            *A01
     5422   01 01C08    32801CE8              LW,R8    REG%BLOCKS                                        *A01
     5423   01 01C09    21800003 A            CI,R8    3                                                 *A01
     5424   01 01C0A    68301C27              BE       TST2F#A2          BRANCH IF REG. BLOCK 3 IMPL.    *A01
     5425   01 01C0B    32D01CD7              LW,RD    XPSD%4D#A                                         *A01
     5426   01 01C0C    35D0005D A            STW,RD   X'5D'             SET UP PCP INT. FOR TRAP        *A01
     5427   01 01C0D    22801C15              LI,R8    TRAP4D1+1                                         *A02
     5428   01 01C0E    66802A8E              AWM,R8   TRAPEPSD                                          *A01
     5429   01 01C0F    22801C27              LI,R8    TST2F#A2                                          *A01
     5430   01 01C10    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN              *A01
     5431   01 01C11    22800010 A            LI,R8    X'10'                                             *A01
     5432   01 01C12    6D801200 A            WD,R8    ARME              ARM & ENABLE PCP INT            *A01
     5433   01 01C13    70202A8A              LC       SETCC                                             *A01
     5434                            *                                                                   *A01
     5435   01 01C14    6D801700 A   TRAP4D1  WD,R8    TRIG              TRIGGER THE INT.                *A01
     5436                            *                                                                   *A01
     5437   01 01C15    22C00071 A            LI,RC    X'71'             FALL THRU HERE IF NO INT.       *A01
     5438   01 01C16    6A602122              BAL,LINK EROR                                              *A01
     5439   01 01C17    68001C27              B        TST2F#A2                                          *A01
     5440                            *                                                                   *A01
     5441                            *        RETURN HERE IF TRAP DOESN'T OCCUR                          *A01
     5442                            *                                                                   *A01
     5443                                     BOUND    8                                                 *A01
     5444         01 01C18           TST2F#A1 EQU      %                                                 *A01
     5445   01 01C18    00000000 A            DATA     0,0,%+2,X'30'                                     *A02
            01 01C19    00000000 A
            01 01C1A    00001C1C
            01 01C1B    00000030 A
     5446   01 01C1C    2F001B27              LRP      ZERO              RESET BLOCK TO 0                *A02
     5447   01 01C1D    22800003 A            LI,R8    3                                                 *A01
     5448   01 01C1E    35801CE8              STW,R8   REG%BLOCKS        INDICATE ALL 4 BLOCKS IMPL.     *A01
     5449   01 01C1F    32801CEC              LW,R8    MAX%REGS%                                         *A01
     5450   01 01C20    B58003CE              STW,R8   *#ERRTEXT%                                        *A01
     5451   01 01C21    70200392              LC       #SENSE                                            *A01
     5452   01 01C22    69901C27              BCS,9    TST2F#A2          SKIP MSG. IF SS 1 OR 4 SET      *A01
     5453   01 01C23    6A6028A7              #TYPE,1,1  MAX%REGS        SAY ALL BLOCKS IMPL.            *A01
            01 01C24    EA6003CC
            01 01C25    0160C1FC A
            01 01C26    6A6028D0
     5454                            *                                                                   *A01
     5455                            *        RETURN HERE IF TRAP OCCURS                                 *A01
     5456                            *                                                                   *A01
     5457   01 01C27    6A601D86     TST2F#A2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN                 *A01
     5458   01 01C28    68001C11              B        TRAP4D1-3         LOOP RETURN                     *A01
     5459   01 01C29    68001BED              B        TST2F%COM-1       CONTINUATION RETURN             *A01
     5460                            ********************************************                        *A01
     5461                            *        TEST 2F02                                                  *A01
     5462                            *                                                                   *A01
     5463                            *   TRAP 4D- XPSD IN NON-INT. LOC'N SETS REG. POINTER               *A01
     5464                            *         TO NON-EXISTANT BLOCK                                     *A01
     5465                            *                                                                   *A01
     5466         01 01C2A           TST2F#B  EQU      %                                                 *A01
     5467   01 01C2A    22802F02 A            LI,R8    X'2F02'                                           *A01
     5468   01 01C2B    358003F2              STW,R8   TESTNO                                            *A01
     5469   01 01C2C    32801CE8              LW,R8    REG%BLOCKS                                        *A01
     5470   01 01C2D    21800003 A            CI,R8    3                                                 *A01
     5471   01 01C2E    68301C45              BE       TST2F#B2          BRANCH IF REG. BLOCK 3 IMPL.    *A01
     5472   01 01C2F    22801C34              LI,R8    TRAP4D2                                           *A01
     5473   01 01C30    66802A8E              AWM,R8   TRAPEPSD                                          *A01
     5474   01 01C31    22801C45              LI,R8    TST2F#B2                                          *A01
     5475   01 01C32    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN              *A01
     5476   01 01C33    70202A8A              LC       SETCC                                             *A02
     5477                            *                                                                   *A01
     5478   01 01C34    0F801C36     TRAP4D2  XPSD,8  TST2F#B1          EXECUTE XPSD TO SET NON=EXIST    *A01
     5479                            *                                     REG BLOCK                     *A01
     5480                            *                                                                   *A01
     5481                            *                                                                   *A01
     5482                            *        RETURN HERE IF TRAP DOESN'T OCCUR                          *A01
     5483                            *                                                                   *A01
     5484                                     BOUND    8                                                 *A01
     5485         01 01C36           TST2F#B1 EQU      %                                                 *A01
     5486   01 01C36    00000000 A            DATA     0,0,%+2,X'30'                                     *A02
            01 01C37    00000000 A
            01 01C38    00001C3A
            01 01C39    00000030 A
     5487   01 01C3A    2F001B27              LRP      ZERO              RESET BLOCK TO 0                *A02
     5488   01 01C3B    22800003 A            LI,R8    3                                                 *A01
     5489   01 01C3C    35801CE8              STW,R8   REG%BLOCKS        INDICATE ALL 4 BLOCKS IMPL.     *A01
     5490   01 01C3D    32801CEC              LW,R8    MAX%REGS%                                         *A01
     5491   01 01C3E    B58003CE              STW,R8   *#ERRTEXT%                                        *A01
     5492   01 01C3F    70200392              LC       #SENSE                                            *A01
     5493   01 01C40    69901C45              BCS,9    TST2F#B2          SKIP MSG. IF SS 1 OR 4 SET      *A01
     5494   01 01C41    6A6028A7              #TYPE,1,1  MAX%REGS        SAY ALL BLOCKS IMPL.            *A01
            01 01C42    EA6003CC
            01 01C43    0160C1FC A
            01 01C44    6A6028D0
     5495                            *                                                                   *A01
     5496                            *        RETURN HERE IF TRAP OCCURS                                 *A01
     5497                            *                                                                   *A01
     5498   01 01C45    6A601D86     TST2F#B2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN                 *A01
     5499   01 01C46    68001C34              B        TRAP4D2           LOOP RETURN                     *A01
     5500   01 01C47    68001BED              B        TST2F%COM-1       CONTINUATION RETURN             *A01
     5501                            ********************************************                        *A01
     5502                            *        TEST 2F03                                                  *A01
     5503                            *                                                                   *A01
     5504                            *   TRAP 4D - PDF DURING AN INTERRUPT SEQUENCE                      *A01
     5505                            *                                                                   *A01
     5506         01 01C48           TST2F#C  EQU      %                                                 *A01
     5507   01 01C48    328003AA              LW,R8    #MAXMEM                                           *A01
     5508   01 01C49    730010A9              MTB,0    SIGMA8                                            *A01
     5509   01 01C4A    68301C4D              BEZ      %+3               BRANCH IF SIGMA 9               *A01
     5510   01 01C4B    2181FFFF A            CI,R8    X'1FFFF'                                          *A01
     5511   01 01C4C    68001C4E              B        %+2                                               *A01
     5512                            *                                                                   *A01
     5513   01 01C4D    31802CB7              CW,R8    4MEGWORD                                          *A01
     5514   01 01C4E    68301BED              BE       TST2F%COM-1       SKIP TEST IF MEMORY FULL        *B01
     5515   01 01C4F    22802F03 A            LI,R8    X'2F03'                                           *A01
     5516   01 01C50    358003F2              STW,R8   TESTNO                                            *A01
     5517   01 01C51    32D01CD8              LW,RD    XPSD%4D#C1                                        *A01
     5518   01 01C52    35D0005D A            STW,RD   X'5D'             SET UP PCP INT. FOR TRAP        *A01
     5519   01 01C53    32801CD9              LW,R8    XPSD%4D#C2                                        *A01
     5520   01 01C54    35800040 A            STW,R8   X'40'                                             *A01
     5521   01 01C55    22801C5D              LI,R8    TRAP4D3+1                                         *A01
     5522   01 01C56    66802A8E              AWM,R8   TRAPEPSD                                          *A01
     5523   01 01C57    22801C6C              LI,R8    TST2F#C2                                          *A01
     5524   01 01C58    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN              *A01
     5525   01 01C59    22800010 A            LI,R8    X'10'                                             *A01
     5526   01 01C5A    6D801200 A            WD,R8    ARME              ARM & ENABLE PCP INT            *A01
     5527   01 01C5B    70202A8A              LC       SETCC                                             *A01
     5528                            *                                                                   *A01
     5529   01 01C5C    6D801700 A   TRAP4D3  WD,R8    TRIG              TRIGGER THE INT.                *A01
     5530                            *                                                                   *A01
     5531   01 01C5D    22C00012 A            LI,RC    X'12'             FALL THRU HERE IF NO INT.       *A01
     5532   01 01C5E    35802A96              STW,R8   LEVARMD                                           *A01
     5533   01 01C5F    35802AA6              STW,R8   LEVTRIG                                           *A01
     5534   01 01C60    35802A9E              STW,R8   LEVENBL                                           *A01
     5535   01 01C61    35802AB6              STW,R8   LEVNINH                                           *A01
     5536   01 01C62    6A602122              BAL,LINK EROR                                              *A01
     5537   01 01C63    68001C6C              B        TST2F#C2                                          *A01
     5538                            *                                                                   *A01
     5539                            *        RETURN HERE IF TRAP DOESN'T OCCUR                          *A01
     5540                            *                                                                   *A01
     5541                                     BOUND    8                                                 *A01
     5542         01 01C64           TST2F#C1 EQU      %                                                 *A01
     5543   01 01C64    00000000 A            DATA     0,0,%+2,0                                         *A01
            01 01C65    00000000 A
            01 01C66    00001C68
            01 01C67    00000000 A
     5544   01 01C68    22C00071 A            LI,RC    X'71'                                             *A01
     5545   01 01C69    32D0005D A            LW,RD    X'5D'             FIND TRAPPING INSTRUCTION       *A01
     5546   01 01C6A    22E0005D A            LI,RE    X'5D'             FIND TRAP ADDRESS               *A01
     5547   01 01C6B    6A602122              BAL,LINK EROR                                              *A01
     5548                            *                                                                   *A01
     5549                            *        RETURN HERE IF TRAP OCCURS                                 *A01
     5550                            *                                                                   *A01
     5551   01 01C6C    6A601D86     TST2F#C2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN                 *A01
     5552   01 01C6D    68001C59              B        TRAP4D3-3         LOOP RETURN                     *A01
     5553   01 01C6E    68001BED              B        TST2F%COM-1       CONTINUATION RETURN             *A01
     5554                            ********************************************                        *A01
     5555                            *        TEST 2FO4                                                  *A01
     5556                            *                                                                   *A01
     5557                            *    TRAP 4D- INT. SEQUENCE WITH INVALID INSTRUCTION                *A01
     5558                            *                                                                   *A01
     5559         01 01C6F           TST2F#D  EQU      %                                                 *A01
     5560   01 01C6F    22802F04 A            LI,R8    X'2F04'                                           *A01
     5561   01 01C70    358003F2              STW,R8   TESTNO                                            *A01
     5562   01 01C71    32D01CDA              LW,RD    XPSD%4D#D                                         *A01
     5563   01 01C72    35D0005D A            STW,RD   X'5D'             SET UP PCP INT. FOR TRAP        *A01
     5564   01 01C73    22801C7B              LI,R8    TRAP4D4+1                                         *A01
     5565   01 01C74    66802A8E              AWM,R8   TRAPEPSD                                          *A01
     5566   01 01C75    22801C86              LI,R8    TST2F#D2                                          *A01
     5567   01 01C76    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN              *A01
     5568   01 01C77    22800010 A            LI,R8    X'10'                                             *A01
     5569   01 01C78    6D801200 A            WD,R8    ARME              ARM & ENABLE PCP INT            *A01
     5570   01 01C79    70202A8A              LC       SETCC                                             *A01
     5571                            *                                                                   *A01
     5572   01 01C7A    6D801700 A   TRAP4D4  WD,R8    TRIG              TRIGGER THE INT.                *A01
     5573                            *                                                                   *A01
     5574   01 01C7B    22C00012 A            LI,RC    X'12'             FALL THRU HERE IF NO INT.       *A01
     5575   01 01C7C    35802A96              STW,R8   LEVARMD                                           *A01
     5576   01 01C7D    35802AA6              STW,R8   LEVTRIG                                           *A01
     5577   01 01C7E    35802A9E              STW,R8   LEVENBL                                           *A01
     5578   01 01C7F    35802AB6              STW,R8   LEVNINH                                           *A01
     5579   01 01C80    6A602122              BAL,LINK EROR                                              *A01
     5580   01 01C81    68001C86              B        TST2F#D2                                          *A01
     5581                            *                                                                   *A01
     5582                            *        RETURN HERE IF TRAP DOESN'T OCCUR                          *A01
     5583                            *                                                                   *A01
     5584                                     BOUND    8                                                 *A01
     5585         01 01C82           TST2F#D1 EQU      %                                                 *A01
     5586   01 01C82    22C00071 A            LI,RC    X'71'                                             *A01
     5587   01 01C83    32D0005D A            LW,RD    X'5D'             FIND TRAPPING INSTRUCTION       *A01
     5588   01 01C84    22E0005D A            LI,RE    X'5D'             FIND TRAP ADDRESS               *A01
     5589   01 01C85    6A602122              BAL,LINK EROR                                              *A01
     5590                            *                                                                   *A01
     5591                            *        RETURN HERE IF TRAP OCCURS                                 *A01
     5592                            *                                                                   *A01
     5593   01 01C86    6A601D86     TST2F#D2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN                 *A01
     5594   01 01C87    68001C77              B        TRAP4D4-3         LOOP RETURN                     *A01
     5595   01 01C88    68001BED              B        TST2F%COM-1       CONTINUATION RETURN             *A01
     5596                            ********************************************                        *A01
     5597                            *        TEST 2F05                                                  *A01
     5598                            *                                                                   *A01
     5599                            *    TRAP 4D =  INVALID MMC CONFIG.                                 *A01
     5600                            *                                                                   *A01
     5601         01 01C89           TST2F#E  EQU      %                                                 *A01
     5602   01 01C89    22802F05 A            LI,R8    X'2F05'                                           *A01
     5603   01 01C8A    358003F2              STW,R8   TESTNO                                            *A01
     5604   01 01C8B    22801C94              LI,R8    TRAP4D5                                           *A01
     5605   01 01C8C    66802A8E              AWM,R8   TRAPEPSD                                          *A01
     5606   01 01C8D    22801CA0              LI,R8    TST2F#E2                                          *A01
     5607   01 01C8E    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN              *A01
     5608   01 01C8F    72602A8A              LB,LINK  SETCC                                             *A01
     5609   01 01C90    4B602C7B              AND,LINK THREE                                             *A01
     5610   01 01C91    328C1CDB              LW,R8    4DMMC,LINK        SELECT AN INVALID MMC           *A01
     5611   01 01C92    35801C94              STW,R8   TRAP4D5                                           *A01
     5612   01 01C93    70202A8A              LC       SETCC                                             *A01
     5613                            *                                                                   *A01
     5614   01 01C94    02001C94     TRAP4D5  NOP      %                 INSTR. FROM 4DMMC TABLE         *A01
     5615                            *                                                                   *A01
     5616   01 01C95    22C00025 A            LI,RC    X'25'             FALL THRU HERE IF NO INT.       *A01
     5617   01 01C96    6A602122              BAL,LINK EROR                                              *A01
     5618   01 01C97    68001CA0              B        TST2F#E2                                          *A01
     5619                            *                                                                   *A01
     5620                            *        RETURN HERE IF TRAP DOESN'T OCCUR                          *A01
     5621                            *                                                                   *A01
     5622                                     BOUND    8                                                 *A01
     5623         01 01C98           TST2F#E1 EQU      %                                                 *A01
     5624   01 01C98    00000000 A            DATA     0,0,%+2,0                                         *A01
            01 01C99    00000000 A
            01 01C9A    00001C9C
            01 01C9B    00000000 A
     5625   01 01C9C    22C00071 A            LI,RC    X'71'                                             *A01
     5626   01 01C9D    32D01C94              LW,RD    TRAP4D5           FIND TRAPPING INSTRUCTION       *A01
     5627   01 01C9E    22E01C94              LI,RE    TRAP4D5           FIND TRAP ADDRESS               *A01
     5628   01 01C9F    6A602122              BAL,LINK EROR                                              *A01
     5629                            *                                                                   *A01
     5630                            *        RETURN HERE IF TRAP OCCURS                                 *A01
     5631                            *                                                                   *A01
     5632   01 01CA0    6A601D86     TST2F#E2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN                 *A01
     5633   01 01CA1    68001C93              B        TRAP4D5-1         LOOP RETURN                     *A01
     5634   01 01CA2    68001BED              B        TST2F%COM-1       CONTINUATION RETURN             *A01
     5635                            ********************************************                        *A01
     5636                            *                                                                   *A01
     5637                            *        TEST 2F06                                                  *A01
     5638                            *                                                                   *A01
     5639                            *  EXECUTE AN INSTR. WITH AN ILLEGAL REG. SPECIFIED                 *A01
     5640                            *                                                                   *A01
     5641                            *                                                                   *A01
     5642         01 01CA3           TST2F#F  EQU      %                                                 *A01
     5643   01 01CA3    22802F06 A            LI,R8    X'2F06'                                           *A01
     5644   01 01CA4    358003F2              STW,R8   TESTNO                                            *A01
     5645   01 01CA5    22801CBA              LI,R8    TRAP4D6                                           *A01
     5646   01 01CA6    66802A8E              AWM,R8   TRAPEPSD                                          *A01
     5647   01 01CA7    22801CC6              LI,R8    TST2F#F2                                          *A01
     5648   01 01CA8    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN              *A01
     5649   01 01CA9    72602A8A              LB,LINK  SETCC                                             *A01
     5650   01 01CAA    4B602C87              AND,LINK XF                                                *A01
     5651   01 01CAB    21600009 A            CI,LINK  9                                                 *A01
     5652   01 01CAC    69101CAE              BL       %+2                                               *A01
     5653   01 01CAD    206FFFF9 A            AI,LINK  -7                                                *A01
     5654   01 01CAE    330010A8              MTW,0    FLG:45                                            *B03
     5655   01 01CAF    68301CB5              BEZ      %+6                                               *B03
     5656   01 01CB0    21600007 A            CI,LINK  7                                                 *B03
     5657   01 01CB1    69101CB5              BL       %+4                                               *B03
     5658   01 01CB2    21600008 A            CI,LINK  8                                                 *B03
     5659   01 01CB3    69201CB5              BG       %+2                                               *B03
     5660   01 01CB4    206FFFFE A            AI,LINK  -2                                                *B03
     5661   01 01CB5    328C1CDF              LW,R8    4DBADREG,LINK     SELECT AN INVALID MMC           *A01
     5662   01 01CB6    35801CBA              STW,R8   TRAP4D6                                           *A01
     5663   01 01CB7    02200030 A            LCI      3                                                 *A01
     5664   01 01CB8    2A201CE9              LM,2     REGTABLE                                          *A01
     5665   01 01CB9    70202A8A              LC       SETCC                                             *A01
     5666                            *                                                                   *A01
     5667   01 01CBA    02001CBA     TRAP4D6  NOP      %                 INSTR. FROM 4DBADREG TABLE      *A01
     5668                            *                                                                   *A01
     5669   01 01CBB    22C00025 A            LI,RC    X'25'             FALL THRU HERE IF NO INT.       *A01
     5670   01 01CBC    6A602122              BAL,LINK EROR                                              *A01
     5671   01 01CBD    68001CC6              B        TST2F#F2                                          *A01
     5672                            *                                                                   *A01
     5673                            *        RETURN HERE IF TRAP DOESN'T OCCUR                          *A01
     5674                            *                                                                   *A01
     5675                                     BOUND    8                                                 *A01
     5676         01 01CBE           TST2F#F1 EQU      %                                                 *A01
     5677   01 01CBE    00000000 A            DATA     0,0,%+2,0                                         *A01
            01 01CBF    00000000 A
            01 01CC0    00001CC2
            01 01CC1    00000000 A
     5678   01 01CC2    22C00071 A            LI,RC    X'71'                                             *A01
     5679   01 01CC3    32D01CBA              LW,RD    TRAP4D6           FIND TRAPPING INSTRUCTION       *A01
     5680   01 01CC4    22E01CBA              LI,RE    TRAP4D6           FIND TRAP ADDRESS               *A01
     5681   01 01CC5    6A602122              BAL,LINK EROR                                              *A01
     5682         01 01CC6           TST2F#F2 EQU      %                                                 *A01
     5683                            *                                                                   *A01
     5684                            *        RETURN HERE IF TRAP OCCURS                                 *A01
     5685   01 01CC6    31201CE9              CW,X2    REGTABLE                                          *A01
     5686   01 01CC7    69301CCC              BNE      %+5                                               *A01
     5687   01 01CC8    31301CEA              CW,X3    REGTABLE+1                                        *A01
     5688   01 01CC9    69301CCC              BNE      %+3                                               *A01
     5689   01 01CCA    31401CEB              CW,X4    REGTABLE+2                                        *A01
     5690   01 01CCB    68301CD0              BE       %+5                                               *A01
     5691                            *                                                                   *A01
     5692                            *  ENTER HERE ON ERROR                                              *A01
     5693                            *                                                                   *A01
     5694   01 01CCC    22C00093 A            LI,RC    X'93'                                             *A01
     5695   01 01CCD    22D01CE9              LI,RD    REGTABLE                                          *A01
     5696   01 01CCE    22F00003 A            LI,RF    3                                                 *A01
     5697   01 01CCF    6A602122              BAL,LINK EROR                                              *A01
     5698                            *                                                                   *A01
     5699   01 01CD0    6A601D86              BAL,LINK CHK:LOOP          CHECK FOR KEYIN                 *A01
     5700   01 01CD1    68001CB6              B        TRAP4D6-4         LOOP RETURN                     *A01
     5701   01 01CD2    68001CED              B        TST3100           CONTINUATION RETURN             *A01
     5702                            *                                                                   *A01
     5703                            *                                                                   *A01
     5704                            * EXPECTED TCC       TEST 2F   01 ,2,   3,    4, 5,6                *A01
     5705   01 01CD3    008000F0 A   4D%TCC GEN,16,8,8,8,8,8,8    X'80',0,X'F0',X'C0',X'20',X'10'        *A01
                        C0201000
     5706                            *                                                                   *A01
     5707                            * EXPECTED TRAPPED STATUS    1, 2,  3,    4,  5,6                   *A01
     5708   01 01CD5    005D005D A   4D%TSF GEN,16,8,8,8,8,16  X'5D',0,X'5D',X'5D',0,0                   *A02
                        5D000000
     5709                            *                                                                   *A01
     5710   01 01CD7    0F801C18     XPSD%4D#A XPSD,8  TST2F#A1                                          *A01
     5711   01 01CD8    8F00173B     XPSD%4D#C1 XPSD,0 *NOMEMORY                                         *A01
     5712   01 01CD9    0F001C64     XPSD%4D#C2 XPSD,0 TST2F#C1                                          *A01
     5713   01 01CDA    68001C6F     XPSD%4D#D  B      TST2F#D                                           *A01
     5714                            *                                                                   *A01
     5715   01 01CDB    6F200000 A   4DMMC    GEN,8,4,3,17  X'6F',2,0,0  ILLEGAL MMC INSTRUCTIONS        *A01
     5716   01 01CDC    6F260000 A            GEN,8,4,3,17  X'6F',2,3,0                                  *A01
     5717   01 01CDD    6F2C0000 A            GEN,8,4,3,17  X'6F',2,6,0                                  *A01
     5718   01 01CDE    6F2E0000 A            GEN,8,4,3,17  X'6F',2,7,0                                  *A01
     5719                            *                                                                   *A01
     5720         01 01CDF           4DBADREG EQU      %                 TABLE OF INSTR. FOR TEST 2F06   *A01
     5721   01 01CDF    10301CDF              GEN,8,4,20  X'10',3,%      ADD DOUBLEWORD                  *A01
     5722   01 01CE0    18301CE0              GEN,8,4,20  X'18',3,%      SUB. DOUBLEWORD                 *A01
     5723   01 01CE1    1D301CE1              GEN,8,4,20  X'1D',3,%      FLOAT. ADD LONG                 *A01
     5724   01 01CE2    1C301CE2              GEN,8,4,20  X'1C',3,%      FLOAT. SUB. LONG                *A01
     5725   01 01CE3    1F301CE3              GEN,8,4,20  X'1F',3,%      FLOAT. MULT. LONG               *A01
     5726   01 01CE4    1E301CE4              GEN,8,4,20  X'1E',3,%      FLOAT. DIV. LONG                *A01
     5727   01 01CE5    41300000 A            GEN,8,4,20  X'41',3,0      TBS                             *A01
     5728   01 01CE6    40300000 A            GEN,8,4,20  X'40',3,0      TTBS                            *A01
     5729   01 01CE7    6F320000 A            GEN,8,4,3,17  X'6F',3,1,0  MMC                             *A01
     5730                            *                                                                   *A01
     5731   01 01CE8    00000000 A   REG%BLOCKS DATA   0                                                 *A01
     5732   01 01CE9    00000064 A   REGTABLE DATA     100,100,100                                       *A01
            01 01CEA    00000064 A
            01 01CEB    00000064 A
     5733                            *                                                                   *A01
     5734   01 01CEC    0240C204 A   MAX%REGS%  P      2,1,,ABSVAL(BA(MAX%REGS%EXP))                     *A01
     5735                            *                                                                   *A01
     5736                            *                                                                   *A01
     5737                                     TITLE    ;
     5738                             '                    RANDOM PATTERN INTERRUPT TEST'
     5739                            *
     5740                            **********************************************************************
     5741                            *                                                                    *
     5742                            *    R A N D O M   P A T T E R N   I N T E R R U P T   T E S T       *
     5743                            **********************************************************************
     5744                            *                                                                    *
     5745                            *                                                                    *
     5746                            *  THIS TEST ARMS,ENABLES, AND TRIGGERS A SET OF INTERRUPT LEVELS    *
     5747                            *          BASED ON A RANDOM PATTERN OF SELECTED LEVELS.             *
     5748                            *                                                                    *
     5749                            *                                                                    *
     5750                            *                                                                    *
     5751                            *  PATTERN NUMBERS ARE SEQUENTIAL   1 THROUGH FFFFFFFF (HEX)         *
     5752                            *                                                                    *
     5753                            **********************************************************************
     5754                            * ENTRY FROM PREVIOUS TEST
     5755                            **********************************************************************
     5756   01 01CED                 TST3100  RES      0
     5757   01 01CED    22803101 A            LI,R8    X'3101'           LOAD TEST NUMBER
     5758   01 01CEE    358003F2              STW,R8   TESTNO
     5759   01 01CEF    22800000 A            LI,R8    0                 INITIALIZE
     5760   01 01CF0    358003F3              STW,R8   PATTNO                  PATTERN NUMBER
     5761   01 01CF1    68001CF6              B        TST31#A
     5762                            **********************************************************************
     5763                            * ENTRY FROM RESTART OPTION
     5764                            **********************************************************************
     5765                            *
     5766   01 01CF2    328003F2     GOTST31 LW,R8     TESTNO
     5767   01 01CF3    21803101 A            CI,R8    X'3101'
     5768   01 01CF4    69302676              BNE      INVALTST#         ERROR IF NOT TEST 3101
     5769   01 01CF5    33F003F3              MTW,-1   PATTNO
     5770   01 01CF6    6A6022D3     TST31#A  BAL,LINK GENRPAT           GENERATE PATTERNS
     5771   01 01CF7    32602A96              LW,LINK  LEVARMD
     5772   01 01CF8    2560006E A            SLS,LINK -18
     5773   01 01CF9    4B602C7F              AND,LINK SEVEN
     5774   01 01CFA    35602ACA              STW,LINK GRPINH            SELECT RANDOM INHIBIT PATTERN
     5775   01 01CFB    6A6026CA              BAL,LINK  PAT@EBC
     5776   01 01CFC    6A60276D              BAL,LINK READEXP           FIND EXPECTED INTERRUPTS
     5777   01 01CFD    6A601173              BAL,LINK JAMXPSDS          INITIALIZE FIRST PAGE OF MEMORY
     5778   01 01CFE    22801D0E              LI,R8    TST31#C           LOAD EXPECTED INT. ADDRESS
     5779   01 01CFF    35802A90              STW,R8   INTEPSD                   *
     5780   01 01D00    32802ACA     TST31#B  LW,R8    GRPINH
     5781   01 01D01    75802A91              STB,R8   INTEPSD+1         SET EXPECTED INHIBIT FLAGS
     5782   01 01D02    6A602348              BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     5783   01 01D03    6A60235F              BAL,LINK INITPSD           INITIALIZE PSD TABLE
     5784   01 01D04    6A6027EB              BAL,LINK READSEQ           FIND EXPECTED INT. SEQUENCE
     5785   01 01D05    6A60291F              BAL,LINK SETHIGH           SET HIGH PRI. INT. TO ACTIVE
     5786   01 01D06    6A602974              BAL,LINK SETPATT           ARM,ENABLE, AND TRIGGER AS PER
     5787                            *                                   PATTERNS
     5788   01 01D07    22801D0E              LI,R8    TST31#C
     5789   01 01D08    35802A4E              STW,R8   CURPSD            SET UP PSD INSTRUCTION ADDRESS
     5790   01 01D09    22800004 A            LI,R8    4
     5791   01 01D0A    35802A95              STW,R8   WAITCNT           SET VALUE OF DELAY
     5792   01 01D0B    02200000 A            LCI      0                 SET CONDITION CODES FOR 16 REG.
     5793   01 01D0C    2A002C5F              LM,0     REGXPSDS          JAM XPSD'S IN REGISTERS
     5794   01 01D0D    0E202A4E              LPSD,2   CURPSD            RELEASE HIGH PRIORITY INT.
     5795                            **********************************************************************
     5796                            * ALL EXPECTED INTERRUPTS SHOULD OCCUR DURING THE FOLLOWING DELAY
     5797                            **********************************************************************
     5798   01 01D0E    33F02A95     TST31#C  MTW,-1   WAITCNT           DELAY FOR INTERRUPTS
     5799   01 01D0F    69201D0E              BGZ      %-1
     5800                            **********************************************************************
     5801                            * DROP THRU TO HERE AFTER NO MORE INTERRUPTS
     5802                            **********************************************************************
     5803   01 01D10    6A60291F              BAL,LINK SETHIGH           INHIBIT FURTHER INTERRUPTS      *B00
     5804   01 01D11    6A601D5F              BAL,LINK CHKALL            CHECK IF ALL INTERRUPTS OCCURRED
     5805   01 01D12    6A601E4D              BAL,LINK CHKSEQ            CHECK IF ALL INTS. WERE IN SEQ.
     5806   01 01D13    6A601D86              BAL,LINK CHK:LOOP          CHECK FOR LOOPS OR USER KEYIN
     5807   01 01D14    68001CF5              B        TST31#A-1         LOOP RETURN
     5808   01 01D15    68001CF6              B        TST31#A           CONTINUE RETURN
     5809                            *
     5810                                     TITLE    '                     TEST END'
     5811                            *
     5812                            *
     5813                            *
     5814                            *
     5815   01 01D16    32802A56     TESTEND  LW,R8    ERORCNT           CHECK ERRORS THIS PASS
     5816   01 01D17    69301D19              BNEZ     %+2               BRANCH IF ERRORS
     5817   01 01D18    33102A57              MTW,1    ERRORFREE
     5818                            *
     5819   01 01D19    22800000 A            LI,R8    0
     5820   01 01D1A    32902A66              LW,R9    PASSCNT           FIND IF AUTO STATUS REPORT
     5821   01 01D1B    3680248A              DW,R8    SICOUNT               IS DUE
     5822   01 01D1C    21800000 A            CI,R8    0
     5823   01 01D1D    69301D23              BNEZ     TESTEND#A         BRANCH IF NOT EVEN MULTIPLE
     5824   01 01D1E    32801D25              LW,R8    BYPASS%SR
     5825   01 01D1F    68301D21              BEZ      %+2               BRANCH IF CAME FROM LOOP CHECK
     5826   01 01D20    331028A4              MTW,1    AUTOSTATUS
     5827   01 01D21    6A60286F              BAL,LINK STATMSGS          DISPLAY STATUS
     5828   01 01D22    33101D25              MTW,1    BYPASS%SR
     5829   01 01D23    6A602957     TESTEND#A BAL,LINK  SETMARGIN       SET MARGIN IF NOT FIXED
     5830   01 01D24    680025DD              B        REPEAT
     5831                            *
     5832   01 01D25    00000001 A   BYPASS%SR DATA    1                 FLAG - SET TO ZERO IN CHK:LOOP
     5833                            *
     5834                                     TITLE    ;
     5835                             '                    ABORT SUBROUTINE (ABORT)'
     5836                            *
     5837                            *  THIS SUBROUTINE IS ENTERED ANYTIME THE PROGRAM ENCOUNTERS
     5838                            *        AN UNRECOVERABLE CONDITION.   AN ERROR MESSAGE IS
     5839                            *        PRINTED OUT NOTING THE ADDRESS AT WHICH THE ABORT CONDITION
     5840                            *        OCCURRED AND THE PROGRAM CONTROL IS RETURNED TO THE USER
     5841                            *        ( IDLE MODE ).
     5842                            *
     5843   01 01D26    02200000 A   ABORT    LCI      0
     5844   01 01D27    2B002B0C              STM,0    SAVE#4
     5845   01 01D28    6A601E69              SEND     ABORTMSG1
            01 01D29    0000C1EA A
     5846   01 01D2A    32C02B12              LW,RC    SAVE#4+LINK       FIND ERROR LOCATION
     5847   01 01D2B    6A60299E              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     5848   01 01D2C    35603F0C              STW,LINK  OUTBUF+8
     5849   01 01D2D    6A6028A7              #TYPE    OUTBUF
            01 01D2E    EA6003CC
            01 01D2F    0000FC10 A
            01 01D30    6A6028D0
     5850   01 01D31    6A601E69              SEND     ABORTMSG2
            01 01D32    0000C1F3 A
     5851   01 01D33    22C02B0C              LI,RC    SAVE#4
     5852   01 01D34    EA6003C3              #HTECON  RC
            01 01D35    0000000C A
     5853   01 01D36    328C0001 A            LW,R8    1,LINK
     5854   01 01D37    35803F09              STW,R8   OUTBUF+5
     5855   01 01D38    6A6028A7              BAL,LINK SAVE%CLKS         SAVE CURRENT ENVIRONMENT        *B00
     5856   01 01D39    EA6003CC              BAL,LINK *#TYPER%                                          *B00
     5857   01 01D3A    0000FC10              DATA     BA(OUTBUF)                                        *B00
     5858   01 01D3B    8F9003CA              XPSD,9   *#RUNADDR%        TRANSFER TO GUIDE 'IDLE' STATE
     5859   01 01D3C    68001D3B              B        %-1
     5860                                     PSYS     1
     5861                                     BOUND    8
     5862                                     TITLE       '(ARMALL) AND (DISARMALL)    '
     5863                            *
     5864                            *
     5865                            *   ARM AND ENABLE  ALL INTERRUPTS ROUTINE
     5866                            ******************************************
     5867                            *
     5868         01 01D3E           ARMALL   EQU      %
     5869   01 01D3E    02200020 A            LCI      2
     5870   01 01D3F    2B702ACC              STM,X7   SAVE              SAVE REGISTERS
     5871   01 01D40    22400002 A            LI,X4    2
     5872         01 01D41           ARMALL#A EQU      %                                                 *B00
     5873   01 01D41    F02003D8              LC       *#COCSTATE%                                       *B00
     5874   01 01D42    68C01D47              BCR,12   %+5               BRANCH IF NO REMOTE TERM.       *B00
     5875   01 01D43    314003F8              CW,X4    COCGRP                                            *B00
     5876   01 01D44    69301D47              BNE      %+3               BRANCH IF COC NOT IN THIS GRP.  *B00
     5877   01 01D45    327003F9              LW,X7    COCMASK           DONT ARM COC LEVELS             *B00
     5878   01 01D46    68001D48              B        %+2                                               *B00
     5879                            *                                                                   *B00
     5880   01 01D47    227FFFFF A            LI,X7    -1                                                *B00
     5881   01 01D48    6D781200 A            WD,X7    ARME,X4           ARM AND ENABLE ALL OF ONE GROUP
     5882   01 01D49    2140000F A            CI,X4    15
     5883   01 01D4A    68101D4C              BGE      %+2
     5884   01 01D4B    65401D41              BIR,X4   ARMALL#A          BRANCH IF ALL EXT. NOT DONE     *B00
     5885   01 01D4C    6D701100 A            WD,X7    DISARM
     5886   01 01D4D    22700FFC A            LI,X7    X'FFC'
     5887   01 01D4E    6D701200 A            WD,X7    ARME              ARM & ENBL GRP ZERO (EXCEPT CNTRS)
     5888   01 01D4F    02200020 A            LCI      2
     5889   01 01D50    12702ACC              LD,X7    SAVE              RESTORE REGISTERS
     5890   01 01D51    E8000006 A            B        *LINK             RETURN
     5891                            *
     5892                            *
     5893                            *   DISABLE ALL INTERRUPTS ROUTINE
     5894                            *************************************
     5895                            *
     5896   01 01D52                 DISARMALL  RES    0
     5897   01 01D52    02200000 A            LCI      0                                                 *A01
     5898   01 01D53    2B702ACC              STM,X7   SAVE              SAVE REGISTERS
     5899   01 01D54    2270FFFF A            LI,X7    X'FFFF'
     5900   01 01D55    22400002 A            LI,X4    2
     5901   01 01D56    6D781100 A            WD,X7    DISARM,X4         DISARM THE EXTERNAL GROUPS
     5902   01 01D57    2140000F A            CI,X4    15
     5903   01 01D58    68301D5B              BE       %+3               EXIT WHEN ALL DISARMED
     5904   01 01D59    20400001 A            AI,X4    1
     5905   01 01D5A    68001D56              B        %-4               LOOP IF NOT FINISHED
     5906   01 01D5B    6D701100 A            WD,X7    DISARM            DISARM GROUP ZERO
     5907   01 01D5C    02200000 A            LCI      0                                                 *A01
     5908   01 01D5D    2A702ACC              LM,X7    SAVE              RESTORE REGISTERS
     5909   01 01D5E    E8000006 A            B        *LINK
     5910                            *
     5911                                     TITLE    ;
     5912                             '                    CHECK ALL SUBROUTINE (CHKALL)'                   *
     5913                            *
     5914                            *    C H E C K    F O R    A L L    I N T E R R U P T S
     5915                            ************************************************************
     5916                            *
     5917                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     5918                            *
     5919                            * OUTPUT AN ERROR MESSAGE FOR EACH INTERRUPT EXPECTED THAT
     5920                            *        DID NOT OCCUR
     5921                            *
     5922   01 01D5F    02200000 A   CHKALL   LCI      0                 SAVE REGISTERS
     5923   01 01D60    2B002AFC              STM,0    SAVE#3
     5924   01 01D61    2210F4A2              LI,X1    BA(HISTORY)+2     DISPLACEMENT INDEX TO BYTE 2
     5925   01 01D62    2270000E A            LI,X7    14                SET LOOP INDEX (LEVEL)
     5926   01 01D63    2240000E A            LI,X4    14                SET LOOP INDEX (GROUP)
     5927   01 01D64    22200000 A            LI,GRP   0                 SET GROUP INDEX
     5928   01 01D65    22300000 A            LI,LVL   0                 SET LEVEL INDEX
     5929   01 01D66    52842AAE     CHKAL#A  LH,R8    LEVEXP,GRP        WAS INTERRUPT EXPECTED
     5930   01 01D67    32962B36              LW,R9    LEVMASK,LVL       FIND LEVEL MASK
     5931   01 01D68    4B800009 A            AND,R8   9
     5932   01 01D69    68301D77              BEZ      CHKAL#B           BRANCH IF NO
     5933   01 01D6A    72920000 A            LB,R9    0,X1              DID ANY INTS. OCCUR
     5934   01 01D6B    69301D77              BNEZ     CHKAL#B           BRANCH IF YES
     5935   01 01D6C    22C00012 A            LI,RC    X'12'             SET ERROR TYPE 12
     5936                            *                                   FIND  ERROR LOCATION
     5937   01 01D6D    20100005 A            AI,X1    5
     5938   01 01D6E    72920000 A            LB,R9    0,X1                 FIND  LEAST. SIG. CHARS.
     5939   01 01D6F    35902A62              STW,R9   LOCATION             SAVE THEM
     5940   01 01D70    201FFFFF A            AI,X1    -1
     5941   01 01D71    72920000 A            LB,R9    0,X1                 FIND MOST SIG. CHAR.
     5942   01 01D72    68301D75              BEZ      %+3                  BRANCH IF ZERO               *B00
     5943   01 01D73    25900008 A            SLS,R9   8                    ALIGN
     5944   01 01D74    66902A62              AWM,R9   LOCATION             COMPLETE LOCATION VALUE
     5945   01 01D75    6A602122              BAL,LINK   EROR            DISPLAY ERROR
     5946                            *
     5947   01 01D76    201FFFFC A            AI,X1    -4
     5948   01 01D77    20100008 A   CHKAL#B  AI,X1    8                 INDEX TO NEXT BYTE 2
     5949   01 01D78    20300001 A            AI,LVL   1                 INCREMENT LEVEL COUNT
     5950   01 01D79    64701D66              BDR,X7   CHKAL#A           LOOP IF NOT LAST LEVEL IN GROUP
     5951   01 01D7A    21200000 A            CI,GRP   0
     5952   01 01D7B    69301D7D              BNE      %+2
     5953   01 01D7C    20200001 A            AI,GRP   1
     5954   01 01D7D    20200001 A            AI,GRP   1
     5955   01 01D7E    22700010 A            LI,X7    16                SET INDEX FOR 16 LEVELS
     5956   01 01D7F    64401D65              BDR,X4   CHKAL#A-1         BRANCH IF GROUPS NOT ALL CHECKED
     5957                            *
     5958                            *
     5959   01 01D80    02200000 A   CHKAL#X  LCI      0                 RESTORE REGISTERS
     5960   01 01D81    2A002AFC              LM,0     SAVE#3
     5961   01 01D82    E8000006 A            B        *LINK             EXIT
     5962                            *
     5963                            *
     5964                                     TITLE    ;
     5965                             '                    CHECK FOR LOOPS ROUTINE (CHK:LOOP)'
     5966                            *
     5967                            **********************************************************************
     5968                            *  C H E C K    L O O P S                                            *
     5969                            **********************************************************************
     5970                            *                                                                    *
     5971                            *  ENTER WITH THE RETURN ADDRESS IN THE LINK REGISTER                *
     5972                            *                                                                    *
     5973                            *  THE PURPOSE OF THIS ROUTINE IS:                                   *
     5974                            *        1. CHECKS FOR A USER KEYIN OF ONE CHARACTER                 *
     5975                            *                 - EXITS TO GUIDE CONTROL IF YES-                   *
     5976                            *        2. CHECKS FOR SHORT LOOP                                    *
     5977                            *                 - EXITS IMEDIATELY TO LINK ADDRESS IF YES -        *
     5978                            *        3. CHECKS FOR A STATUS REPORT REQUEST (KEYIN OF &)          *
     5979                            *                 - DISPLAYS CURRENT STATUS IF YES -                 *
     5980                            *        4. CHECKS FOR LONG LOOP                                     *
     5981                            *                 - EXITS TO LINK ADDRESS IF YES -                   *
     5982                            *        5. CHECKS FOR COMPLETION OF REENTRY LOOPS (PARAMETER LINE T)*
     5983                            *                 - EXITS TO LINK ADDRESS IF NOT COMPLETE -          *
     5984                            *                 - DISPLAYS STATUS AND EXITS TO THE IDLE STATE      *
     5985                            *                        IF THEY ARE COMPLETE -                      *
     5986                            *        6. EXITS TO LINK ADDRESS +1 IF NO LOOPS WERE REQUESTED      *
     5987                            *                                                                    *
     5988                            **********************************************************************
     5989                            *
     5990   01 01D83                          RES      3
     5991   01 01D86    35601D85     CHK:LOOP STW,LINK %-1               SAVE RETURN ADDRESS
     5992   01 01D87    35801D84              STW,R8   CHK:LOOP-2
     5993   01 01D88    35901D83              STW,R9   CHK:LOOP-3
     5994   01 01D89    6A6028A7              BAL,LINK SAVE%CLKS                                         *B00
     5995   01 01D8A    8F0003AB              XPSD,0   *#SAMPLE          CHECK FOR USER KEYIN            *B00
     5996   01 01D8B    6A6028D0              BAL,LINK RESTORE%CLKS                                      *B00
     5997                            *
     5998   01 01D8C    70200392     CHK:LP#A LC       #SENSE            CHECK IF SHORT LOOP
     5999   01 01D8D    68C01D8F              BCR,12   CHK:LP#C             BRANCH IF NO
     6000   01 01D8E    68001DB0              B        CHK:LP#F             LOOP ON LAST TEST
     6001                            *
     6002   01 01D8F    70200392     CHK:LP#C LC       #SENSE            CHECK IF LONG LOOP
     6003   01 01D90    69401DB0              BCS,4    CHK:LP#F             LOOP ON LAST TEST
     6004                            *
     6005   01 01D91    32802A47     CHK:LP#D LW,R8    BY%RE%CHK
     6006   01 01D92    69301DB4              BNEZ     CHK:LP#G          BYPASS RE-ENTRY CHECK IF FLAG
     6007                            *                                      SET  BY ERROR ROUTINE
     6008                            *  CHECK FOR END OF TEST
     6009                            *
     6010                            *
     6011   01 01D93    32802A56     CHK:LP#E LW,R8    ERORCNT           FIND CURRENT ERRORS/PASS
     6012   01 01D94    35802A5D              STW,R8   LASTERR%P
     6013                            *
     6014   01 01D95    32802A58              LW,R8    ERORTOTAL         FIND CURRENT ERROR TOTAL
     6015   01 01D96    35802A5E              STW,R8   LASTERR%T
     6016                            *
     6017   01 01D97    32802A66              LW,R8    PASSCNT           FIND PASS #
     6018   01 01D98    35802A5F              STW,R8   LASTPASS
     6019                            *
     6020   01 01D99    328003F2              LW,R8    TESTNO            FIND CURRENT TEST NUMBER
     6021   01 01D9A    329003F3              LW,R9    PATTNO            FIND CURRENT SUBTEST #
     6022   01 01D9B    15802A60              STD,R8   LASTTEST
     6023                            *
     6024   01 01D9C    318026B5              CW,R8    PARAMT%HEX+2      CHECK IF LAST TEST COMPLETE
     6025   01 01D9D    69101DAF              BL       CHK:LP#F-1        BRANCH IF NO
     6026   01 01D9E    69201DA2              BG       %+4               BRANCH IF PAST
     6027                            *
     6028   01 01D9F    319026B6              CW,R9    PARAMT%HEX+3      CHECK IF LAST SUBTEST COMPLETED
     6029   01 01DA0    69101DAF              BL       CHK:LP#F-1        BRANCH IF NO
     6030                            *
     6031   01 01DA1    328026B7              LW,R8    PARAMT%HEX+4      WERE ANY LOOPS REQUESTED
     6032   01 01DA2    68301D16              BEZ      TESTEND           GO TO NEXT PASS IF NO
     6033   01 01DA3    33F02A63              MTW,-1   LOOPS             DECREMENT LOOP COUNT
     6034   01 01DA4    69201D16              BGZ      TESTEND           GO TO NEXT PASS IF NOT FINISHED
     6035   01 01DA5    35802A63              STW,R8   LOOPS             RESET LOOP COUNTER
     6036                            *
     6037   01 01DA6    6A60286F              BAL,LINK STATMSGS          SAY LOOPS FINISHED
     6038   01 01DA7    6A6028A7              #TYPE    WAITING1                                          *A01
            01 01DA8    EA6003CC
            01 01DA9    0000B3A4 A
            01 01DAA    6A6028D0
     6039   01 01DAB    22800000 A            LI,R8    0                 SET UP TO BYPASS AUTO STATUS MSG
     6040   01 01DAC    35801D25              STW,R8   BYPASS%SR
     6041   01 01DAD    8F9003CA              XPSD,9   *#RUNADDR%        TRANSFER TO GUIDE 'IDLE' STATE
     6042   01 01DAE    68001D16              B        TESTEND           BRANCH ON RETURN FROM IDLE
     6043                            *
     6044   01 01DAF    33101D85              MTW,1    CHK:LOOP-1
     6045   01 01DB0    32802488     CHK:LP#F LW,R8    PLINE#J+4         FIND SI
     6046   01 01DB1    31802CBC              CW,R8    EBC%3ZEROS
     6047   01 01DB2    69301DB4              BNE      %+2               BRANCH IF NOT ZERO
     6048   01 01DB3    6A60286F              BAL,LINK   STATMSGS
     6049   01 01DB4    22800000 A   CHK:LP#G LI,R8    0
     6050   01 01DB5    35802A47              STW,R8   BY%RE%CHK         RESET FLAG
     6051   01 01DB6    32801D84              LW,R8    CHK:LOOP-2
     6052   01 01DB7    32901D83              LW,R9    CHK:LOOP-3
     6053   01 01DB8    E8001D85              B        *CHK:LOOP-1
     6054                            *
     6055                                     TITLE    ;
     6056                             '                    CHECK PRIORITY/IMPLEMENTATION MATCH (CHK:PMI)'
     6057                            *
     6058                            *
     6059                            ***************************************************
     6060                            *  CHECK PRIORITY VS IMPLEMENTATION PARAMETERS
     6061                            ***************************************************
     6062                            *
     6063                            *  COMPARES PRIORITY AND IMPLEMENTATION PARAMETER LINES
     6064                            *    AND OUTPUTS ERROR MESSAGE IF THEY DISAGREE
     6065                            *
     6066                            *
     6067                            *  ENTER WITH GRP REGISTER = 0 FROM P PARAMETER LINE
     6068                            *                          = 1 FROM I,0-5 PARAMETER LINES
     6069                            *                          = 2 FROM I,6-A PARAMETER LINES
     6070                            *                          = 3 FROM I,B-F PARAMETER LINES
     6071                            ***************************************************
     6072   01 01DB9    02200000 A   CHK:PMI  LCI      0                 SAVE REGISTERS
     6073   01 01DBA    2B002AEC              STM,0    SAVE#2
     6074   01 01DBB    21200000 A            CI,GRP   0                 IS ENTRY FROM PARAM P
     6075   01 01DBC    68301DC2              BE       %+6               BRANCH IF YES
     6076   01 01DBD    22400000 A            LI,X4    0                 SET INDEX FOR CHECKING LINE I
     6077   01 01DBE    68041DBE              B        %,GRP
     6078   01 01DBF    68001DD3              B        C:PMI#A           CHECK GROUPS 0-5
     6079   01 01DC0    68001DE0              B        C:PMI#C                        6-A
     6080   01 01DC1    68001DE2              B        C:PMI#D                        B-F
     6081                            *
     6082   01 01DC2    22400007 A            LI,X4    7                 SET INDEX FOR CHECK OF LINE P
     6083   01 01DC3    2250000E A            LI,X5    14                SET NO. OF GROUPS TO CHECK
     6084   01 01DC4    68001DD4              B        C:PMI#B
     6085                            *
     6086   01 01DC5    32802A69     CHK:PMI%TABLE  LW,R8  PLINEIN+2     THESE 7 INSTRUCTIONS ARE FOR
     6087   01 01DC6    328025CD              LW,R8    PLINE#P+1           CHECKING I LINE INPUTS
     6088   01 01DC7    328025CE              LW,R8    PLINE#P+2           AGAINST EXISTING P LINE FIELDS
     6089   01 01DC8    32822A67              LW,R8    PLINEIN,X1
     6090   01 01DC9    328E25CC              LW,R8    PLINE#P,X7
     6091   01 01DCA    31802CBD              CW,R8    EBC%HWZ
     6092   01 01DCB    31802CBE              CW,R8    EBCZEROS
     6093                            *
     6094   01 01DCC    3280241A              LW,R8    PLINE#I0+2        THESE 7 INSTRUCTIINS ARE FOR
     6095   01 01DCD    32802A68              LW,R8    PLINEIN+1            CHECKING P LINE INPUTS AGAINST
     6096   01 01DCE    32802A69              LW,R8    PLINEIN+2            EXISTING I LINE FIELDS
     6097   01 01DCF    32822418              LW,R8    PLINE#I0,X1
     6098   01 01DD0    328E2A67              LW,R8    PLINEIN,X7
     6099   01 01DD1    31802CBD              CW,R8    EBC%HWZ
     6100   01 01DD2    31802CBE              CW,R8    EBCZEROS
     6101                            *
     6102   01 01DD3    22500004 A   C:PMI#A  LI,X5    4                 CHECK 4 FIELDS AFTER GROUP 0
     6103   01 01DD4    22100004 A   C:PMI#B  LI,X1    4                 GROUP 2 IMPLEMENTATION INDEX
     6104   01 01DD5    22700003 A            LI,X7    3                 GROUP 2 PRIORITY INDEX
     6105   01 01DD6    67081DC5              EXU      CHK:PMI%TABLE,X4  FIND GROUP ZERO IMPLEMENTATION
     6106   01 01DD7    67081DCB              EXU      CHK:PMI%TABLE+6,X4   IS IT ZERO
     6107   01 01DD8    68301DF8              BE       C:PMI#ER          ERROR IF NO
     6108   01 01DD9    67081DC6              EXU      CHK:PMI%TABLE+1,X4  FIND CZ GROUP PRIORITY
     6109   01 01DDA    67081DCA              EXU      CHK:PMI%TABLE+5,X4   IS IT ZERO
     6110   01 01DDB    68301DF8              BE       C:PMI#ER          ERROR IF YES
     6111   01 01DDC    67081DC7              EXU      CHK:PMI%TABLE+2,X4  FIND I/O GROUP PRIORITY
     6112   01 01DDD    67081DCA              EXU      CHK:PMI%TABLE+5,X4   IS IT ZERO
     6113   01 01DDE    68301DF8              BE       C:PMI#ER          ERROR IF YES
     6114   01 01DDF    68001DE5              B        C:PMI#E
     6115                            *
     6116   01 01DE0    22700007 A   C:PMI#C  LI,X7    7                 GROUP 6 PRIORITY
     6117   01 01DE1    68001DE3              B        %+2
     6118   01 01DE2    2270000C A   C:PMI#D  LI,X7    12                GROUP B PRIORITY
     6119   01 01DE3    22100002 A            LI,X1    2                 I LINE FIELD 1
     6120   01 01DE4    22500005 A            LI,X5    5                 5 FIELDS TO CHECK
     6121   01 01DE5    67081DC8     C:PMI#E  EXU      CHK:PMI%TABLE+3,X4  FIND IMPLEMENTATION
     6122   01 01DE6    67081DCB              EXU      CHK:PMI%TABLE+6,X4   IS IT ZERO
     6123   01 01DE7    68301DEC              BE       C:PMI#F           BRANCH IF YES
     6124   01 01DE8    67081DC9              EXU      CHK:PMI%TABLE+4,X4   NO, FIND PRIORITY
     6125   01 01DE9    67081DCA              EXU      CHK:PMI%TABLE+5,X4   IS IT ZERO
     6126   01 01DEA    68301DF8              BE       C:PMI#ER          ERROR IF YES
     6127   01 01DEB    68001DEF              B        C:PMI#G
     6128                            *
     6129   01 01DEC    67081DC9     C:PMI#F  EXU      CHK:PMI%TABLE+4,X4 CHECK FOR MATCH ON PRIORITY
     6130   01 01DED    67081DCA              EXU      CHK:PMI%TABLE+5,X4   IS IT ZERO
     6131   01 01DEE    69301DF8              BNE      C:PMI#ER          ERROR CASE IF NO
     6132   01 01DEF    2150000B A   C:PMI#G  CI,X5    11
     6133   01 01DF0    68301DF3              BE       %+3               SET UP FOR CHECK OF NEXT GROUP
     6134   01 01DF1    21500006 A            CI,X5    6
     6135   01 01DF2    69301DF4              BNE      %+2
     6136   01 01DF3    20100001 A            AI,X1    1                      ADD EXTRA COUNT IF GOING TO
     6137   01 01DF4    20100002 A            AI,X1    2                         NEXT I LINE
     6138   01 01DF5    20700001 A            AI,X7    1
     6139   01 01DF6    64501DE5              BDR,X5   C:PMI#E           LOOP IF NOT FINISHED
     6140   01 01DF7    68001E00              B        C:PMI#X
     6141                            *
     6142   01 01DF8    6A6028A7     C:PMI#ER #TYPE,1,1 INVAL#M          TYPE  ERROR MESSAGES
            01 01DF9    EA6003CC
            01 01DFA    0160C373 A
            01 01DFB    6A6028D0
     6143   01 01DFC    6A6028A7              #TYPE,1,1 INVAL#IP
            01 01DFD    EA6003CC
            01 01DFE    0160C616 A
            01 01DFF    6A6028D0
     6144   01 01E00    02200000 A   C:PMI#X  LCI      0                 RESTORE REGISTERS
     6145   01 01E01    2A002AEC              LM,0     SAVE#2
     6146   01 01E02    E8000006 A            B        *LINK             EXIT
     6147                            *
     6148                                     TITLE    ;
     6149                             '                   CHECK PDF FLAG ROUTINE  '
     6150                            *
     6151                            *
     6152                            *  CHECK PDF FOR PROPER SETTING
     6153                            **********************************
     6154                            *
     6155                            *  ENTER WITH RETURN ADDRESS IN 'LINK'
     6156                            *
     6157                            *  SNAP NPDF REGISTER AND OUTPUT ERROR MESSAGE IF IN WRONG STATE
     6158                            *
     6159                            *
     6160         01 01E03           CHK%PDF  EQU      %
     6161   01 01E03    02200000 A            LCI      0
     6162   01 01E04    2B002B1C              STM,0    SAVE#5                                            *A02
     6163                            *
     6164   01 01E05    2160163A              CI,LINK  TRAPHAND
     6165   01 01E06    69101E09              BL       %+3               BRANCH IF BAL FROM INT. HANDLER
     6166   01 01E07    32802A93              LW,R8    TRAPLOC
     6167   01 01E08    35802A62              STW,R8   LOCATION                                          *A02
     6168                            *
     6169   01 01E09    32802A62              LW,R8    LOCATION          FIND WHICH TRAP IT WAS
     6170   01 01E0A    21800046 A            CI,R8    X'46'
     6171   01 01E0B    68301E19              BE       CHK%PDF%ON        BRANCH IF WATCH DOG TIMER
     6172   01 01E0C    2180004C A            CI,R8    X'4C'
     6173   01 01E0D    68301E19              BE       CHK%PDF%ON        BRANCH IF PARITY ERROR
     6174   01 01E0E    2180004D A            CI,R8    X'4D'
     6175   01 01E0F    68301E19              BE       CHK%PDF%ON        BRANCH IF INST. EXCEPTION
     6176                            *
     6177   01 01E10    6A601E30              BAL,LINK READ%NPDF         LOOK FOR PDF SET                *A02
     6178   01 01E11    69201E2D              BCS,2    CHK%PDF#X         BRANCH IF PDF NOT SET           *A02
     6179                            *                                                                   *A02
     6180   01 01E12    0E101E14              LPSD,1   CLEARPDF
     6181                                     BOUND    8
     6182   01 01E14    00001E16     CLEARPDF DATA     %+2,X'7000000'                                    *A02
            01 01E15    07000000 A
     6183                            *
     6184                            *
     6185   01 01E16    22C000E4 A            LI,RC    X'E4'
     6186   01 01E17    6A602122              BAL,LINK EROR
     6187   01 01E18    68001E26              B        CHK%CLR
     6188                            *
     6189         01 01E19           CHK%PDF%ON  EQU   %
     6190   01 01E19    6A601E30              BAL,LINK READ%NPDF         LOOK FOR PDF SET                *A02
     6191   01 01E1A    69201E2B              BCS,2    CHK%PDF#X-2       ERROR IF PDF NOT SET            *A02
     6192   01 01E1B    0E301E1C              LPSD,3   DONTCLEAR         TRY TO CLEAR WITH LPSD,3        *A02
     6193                                     BOUND    8                                                 *A02
     6194         01 01E1C           DONTCLEAR  EQU    %                                                 *A02
     6195   01 01E1C    00001E1E              DATA     %+2,X'7000000'                                    *A02
            01 01E1D    07000000 A
     6196   01 01E1E    6A601E30              BAL,LINK READ%NPDF         DID IT RESET PDF                *A02
     6197   01 01E1F    68201E23              BCR,2    %+4               BRANCH IF NO                    *A02
     6198                            *                                                                   *A02
     6199                            *   ERROR IF PDF WAS RESET                                          *A02
     6200                            *                                                                   *A02
     6201   01 01E20    22C000E7 A            LI,RC    X'E7'                                             *A02
     6202   01 01E21    6A602122              BAL,LINK  EROR                                             *A02
     6203   01 01E22    68001E2D              B        CHK%PDF#X                                         *A02
     6204                            *
     6205                            ********************************************************
     6206                            *
     6207   01 01E23    0E101E24              LPSD,1   CLRPDF
     6208                                     BOUND    8
     6209   01 01E24    00001E26     CLRPDF   DATA     %+2,X'7000000'                                    *A02
            01 01E25    07000000 A
     6210         01 01E26           CHK%CLR  EQU      %                                                 *A02
     6211   01 01E26    6A601E30              BAL,LINK  READ%NPDF        DID THE LPSD,1 CLEAR PDF        *A02
     6212   01 01E27    69201E2D              BCS,2     CHK%PDF#X        BRANCH IF YES                   *A02
     6213                            *
     6214   01 01E28    22C000E6 A            LI,RC    X'E6'
     6215   01 01E29    6A602122              BAL,LINK  EROR
     6216   01 01E2A    68001E2D              B        CHK%PDF#X
     6217                            *
     6218                            *
     6219                            *
     6220                            *
     6221   01 01E2B    22C000E5 A            LI,RC    X'E5'
     6222   01 01E2C    6A602122              BAL,LINK  EROR
     6223                            *
     6224   01 01E2D    02200000 A   CHK%PDF#X  LCI    0
     6225   01 01E2E    2A002B1C              LM,0     SAVE#5                                            *A02
     6226   01 01E2F    E8000006 A            B        *LINK             EXIT
     6227                            *
     6228         01 01E30           READ%NPDF  EQU    %                                                 *A02
     6229   01 01E30    32A01E38              LW,LOG   SNAP%CW                                           *A02
     6230   01 01E31    6DA00049 A            WD,LOG   X'49'             SNAP THE NPDF FLAG              *A02
     6231   01 01E32    02000000 A            NOP                                                        *A02
     6232   01 01E33    02000000 A            NOP                                                        *A02
     6233   01 01E34    02000000 A            NOP                                                        *A02
     6234   01 01E35    6CA00049 A            RD,LOG   X'49'             READ THE SNAP                   *A02
     6235   01 01E36    4BA02C93              AND,LOG  X4000             LOOK AT BIT 17                  *A02
     6236                            *                                                                   *A02
     6237                            *   IF CC3 IS SET, PDF IS RESET                                     *A02
     6238                            *                                                                   *A02
     6239   01 01E37    E8000006 A            B        *LINK                                             *A02
     6240                            *                                                                   *A02
     6241         01 01E38           SNAP%CW  EQU      %                                                 *A02
     6242   01 01E38    01261E35              GEN,8,7,17  1,X'13',READ%NPDF+5                            *A02
     6243                            *
     6244                            *
     6245                                     TITLE    ;
     6246                             '                    CHECK INTERRUPT STORED PSD ROUTINE (CHKPSD)'
     6247                            *
     6248                            *
     6249                            *  CHECK INTERRUPT STORED PROGRAM STATUS DOUBLE WORD
     6250                            ******************************************************
     6251                            *
     6252                            *  ENTER WITH RETURN ADDRESS IN REGISTER 'LINK'
     6253                            *
     6254                            *  COMPARE STORED PSD WITH EXPECTED PSD (INTEPSD)
     6255                            *
     6256                            *  IF PSD WORD 1 IS IN ERROR, SET BIT 27 IN REGISTER 'LOG'
     6257                            *  IF PSD WORD 2 IS IN ERROR, SET BIT 26 IN REGISTER 'LOG'
     6258                            *
     6259                            *
     6260   01 01E39                 CHKPSD   RES      0
     6261   01 01E39    022000A0 A            LCI      10
     6262   01 01E3A    2B002ACC              STM,0    SAVE
     6263   01 01E3B    32402A62              LW,X4    LOCATION          FIND STORED PSD
     6264   01 01E3C    25400001 A            SLS,X4   1
     6265   01 01E3D    12883328              LD,R8    PSDS,X4
     6266   01 01E3E    31802A90              CW,R8    INTEPSD           CHECK FIRST WORD
     6267   01 01E3F    68301E47              BE       CHKPSD#1
     6268   01 01E40    22101000 A            LI,X1    X'1000'
     6269   01 01E41    311003F2              CW,X1    TESTNO
     6270   01 01E42    68401E46              BCR,4    %+4               BRANCH IF NOT TEST 1XXX OR 3XXX
     6271   01 01E43    208FFFFF A            AI,R8    -1
     6272   01 01E44    31802A90              CW,R8    INTEPSD
     6273   01 01E45    68301E47              BE       %+2               BRANCH IF OK
     6274   01 01E46    49A02C88              OR,LOG   X10               SET BIT 27
     6275   01 01E47    31902A91     CHKPSD#1 CW,R9    INTEPSD+1         CHECK SECOND WORD
     6276   01 01E48    68301E4A              BE       %+2               BRANCH IF OK
     6277   01 01E49    49A02C89              OR,LOG   X20               SET BIT 26
     6278   01 01E4A    022000A0 A            LCI      10                RESTORE REGISTERS
     6279   01 01E4B    2A002ACC              LM,0     SAVE
     6280   01 01E4C    E8000006 A            B        *LINK
     6281                            *
     6282                            *
     6283                                     TITLE    ;
     6284                             '                    CHECK SEQUENCE SUBROUTINE (CHKSEQ)'              *
     6285                            *
     6286                            *    C H E C K    S E Q U E N C E
     6287                            ******************************************
     6288                            *
     6289                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     6290                            *
     6291                            *OUTPUT AN ERROR MESSAGE IF ANY EXPECTED SEQUENCE NUMBER AND
     6292                            *      ANY ACTUAL SEQUENCE NUMBER DO NOT MATCH
     6293                            *
     6294                            *
     6295   01 01E4D    02200000 A   CHKSEQ   LCI      0                 SAVE REGISTERS
     6296   01 01E4E    2B002AFC              STM,0    SAVE#3
     6297   01 01E4F    227000EE A            LI,X7    238               SET LOOP INDEX
     6298   01 01E50    2210F4A0              LI,X1    BA(HISTORY)       SET DISPLACEMENT INDEX
     6299   01 01E51    72820000 A   CHKSQ#A  LB,R8    0,X1              FIND EXPECTED SEQUENCE
     6300   01 01E52    20100003 A            AI,X1    3                 INDEX TO BYTE 3
     6301   01 01E53    72920000 A            LB,R9    0,X1              FIND ACTUAL SEQUENCE
     6302   01 01E54    31800009 A            CW,R8    9                 CHECK IF SAME
     6303   01 01E55    69301E59              BNE      CHKSQ#B           BRANCH IF NO
     6304   01 01E56    20100005 A            AI,X1    5                 INDEX TO NEXT BYTE 0
     6305   01 01E57    64701E51              BDR,X7   CHKSQ#A           LOOP IF NOT THROUGH
     6306   01 01E58    68001E5B              B        CHKSQ#X           EXIT
     6307                            *
     6308   01 01E59    22C000F1 A   CHKSQ#B  LI,RC    X'F1'             ERROR TYPE F1
     6309   01 01E5A    6A602122              BAL,LINK   EROR            DISPLAY ERROR
     6310   01 01E5B    02200000 A   CHKSQ#X  LCI      0                 RESTORE REGISTERS
     6311   01 01E5C    2A002AFC              LM,0     SAVE#3
     6312   01 01E5D    E8000006 A            B        *LINK             EXIT
     6313                            *
     6314                            *
     6315                            *                                                                   *B00
     6316                            *                                                                   *B00
     6317                            *                                                                   *B00
     6318                            *                                                                   *B00
     6319                            *        C L E A R   M F I                                          *B00
     6320                            ********************************                                    *B00
     6321                            *                                                                   *B00
     6322                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER                       *B00
     6323                            *                                                                   *B00
     6324                            *  TURN OFF THE SIGNAL THAT RAISES THE MFI INTERRUPT                *B00
     6325                            *                                                                   *B00
     6326         01 01E5E           CLEAR%MFI   EQU   %                                                 *B00
     6327   01 01E5E    228FFFFF A            LI,R8    -1                                                *B00
     6328   01 01E5F    20800FFF A            AI,R8    X'FFF'                                            *B00
     6329   01 01E60    328003AA              LW,R8    #MAXMEM                                           *B00
     6330   01 01E61    692C0000 A            BG       0,LINK            EXIT IF MEM. SCAN DONE          *B00
     6331   01 01E62    022000E0 A            LCI      14                                                *B00
     6332   01 01E63    AD900008 A            LMS,9    *R8                                               *B00
     6333   01 01E64    68001E5F              B        CLEAR%MFI+1       TRY NEXT 4K BLOCK OF MEM.       *B00
     6334                            *                                                                   *B00
     6335                            *                                                                   *B00
     6336                            *                                                                   *B00
     6337                                     TITLE   'TEXT DECOMPRESSION ROUTINE'
     6338                            *
     6339                            *
     6340                            *  ENTER HERE TO SEND MESSAGE TO GUIDE'S BUFFER
     6341                            *
     6342         01 01E65           DECOM%G  EQU      %
     6343   01 01E65    02200000 A            LCI      0
     6344   01 01E66    2B001EC0              STM,0    DECOM%SAVE
     6345   01 01E67    321003D5              LW,X1    #GUIDEBUF         PICK UP BYTE ADDR. OF GUIDE BUF.
     6346   01 01E68    68001E6C              B        DECOM
     6347                            *
     6348                            *  ENTER HERE TO SEND MESSAGE TO USER'S BUFFER
     6349                            *
     6350         01 01E69           DECOM%U  EQU      %
     6351   01 01E69    02200000 A            LCI      0
     6352   01 01E6A    2B001EC0              STM,0    DECOM%SAVE
     6353   01 01E6B    2210FC10              LI,X1    BA(OUTBUF)
     6354                            *
     6355         01 01E6C           DECOM    EQU      %
     6356   01 01E6C    35101ED3              STW,X1   DECOM%TO
     6357   01 01E6D    35601ED0              STW,X6   DECOM%RET
     6358                            *
     6359   01 01E6E    222FFFB8 A            LI,X2    -72
     6360   01 01E6F    22800040 A            LI,R8    X'40'
     6361   01 01E70    75820000 A            STB,R8   0,X1              FILL BUFFER WITH BLANKS
     6362   01 01E71    20100001 A            AI,X1    1
     6363   01 01E72    65201E70              BIR,X2   %-2
     6364                            *
     6365   01 01E73    32101ED3              LW,X1    DECOM%TO          COMPUTE BYTE ADDR. OF END OF BUF.
     6366   01 01E74    22800047 A            LI,R8    71
     6367   01 01E75    30800001 A            AW,R8    X1
     6368   01 01E76    35801ED2              STW,R8   ENDBUF
     6369                            *
     6370   01 01E77    B2600006 A            LW,X6    *X6
     6371   01 01E78    722C0000 A            LB,X2    0,X6              FETCH FORMAT CODE
     6372   01 01E79    75200006 A            STB,X2   X6                   AND SAVE IN X6, BYTE 0
     6373   01 01E7A    20100001 A            AI,X1    1
     6374   01 01E7B    20600001 A            AI,X6    1                 POINT TO NEXT INDEX BYTE
     6375   01 01E7C    722C0000 A            LB,X2    0,X6              FETCH MSG FRAGMENT COUNT
     6376   01 01E7D    202FFFFF A            AI,X2    -1                REDUCE COUNT FOR FORMAT BYTE
     6377                            *
     6378         01 01E7E           NEXT%FR  EQU      %
     6379   01 01E7E    22400001 A            LI,X4    1
     6380   01 01E7F    35401ED1              STW,X4   INCR
     6381   01 01E80    20600001 A            AI,X6    1
     6382   01 01E81    724C0000 A            LB,X4    0,X6              FETCH NEXT FRAGMENT INDEX
     6383   01 01E82    214000FC A            CI,X4    X'FC'
     6384   01 01E83    68301EAF              BE       REP%CHAR          BRANCH TO REPEAT CHARACTER
     6385   01 01E84    69201EA7              BG       TABLSW            BRANCH TO SELECT CONTINUATION TABLE
     6386                            *
     6387   01 01E85    20405A00     FIND%FRAG AI,X4   HA(DAT)           FIND FRAGMENT POINTER DISP.
     6388   01 01E86    52580000 A            LH,X5    0,X4              FETCH FRAGMENT POINTER
     6389   01 01E87    68301EBB              BCR,3    BACK%SPACE        BRANCH IF 'NO SPACE' CODE
     6390                            *
     6391   01 01E88    2280F000 A            LI,R8    X'F000'
     6392   01 01E89    4B800005 A            AND,R8   X5
     6393   01 01E8A    69301E8C              BNEZ     %+2
     6394   01 01E8B    22810000 A            LI,R8    X'10000'          SET # OF CHAR. IN FRAG. =16
     6395   01 01E8C    4B502C91              AND,X5   XFFF
     6396   01 01E8D    2050B880              AI,X5    BA(DT)            FIND FRAGMENT BYTE ADDRESS
     6397                            *
     6398   01 01E8E    25800074 A            SLS,R8   -12               FIND #OF CHAR. IN FRAGMENT
     6399                            *
     6400   01 01E8F    31101ED2     BUFFIT   CW,X1    ENDBUF
     6401   01 01E90    69101E93              BL       %+3               BRANCH IF NOT AT END OF BUFFER
     6402   01 01E91    32101ED2              LW,X1    ENDBUF
     6403   01 01E92    68001E9E              B        SKP:INC+1         EXIT ROUTINE
     6404                            *
     6405   01 01E93    729A0000 A            LB,R9    0,X5              MOVE FRAGMENT INTO BUFFER
     6406   01 01E94    75920000 A            STB,R9   0,X1
     6407   01 01E95    20100001 A            AI,X1    1
     6408   01 01E96    30501ED1              AW,X5    INCR
     6409   01 01E97    64801E93              BDR,R8   %-4               COUNT # OF CHAR. TO ZERO
     6410                            *
     6411   01 01E98    219000C1 A            CI,R9    X'C1'
     6412   01 01E99    69101E9D              BL       SKP:INC           ADD ONE SPACE IF FRAG. IS
     6413   01 01E9A    219000E9 A            CI,R9    X'E9'             AN ALPHA STRING
     6414   01 01E9B    69201E9D              BG       SKP:INC           BRANCH IF NOT
     6415   01 01E9C    20100001 A            AI,X1    1
     6416                            *
     6417   01 01E9D    64201E7E     SKP:INC  BDR,X2   NEXT%FR           PICK UP NEXT FRAG.
     6418                            *
     6419                            *   ENTER HERE AFTER ALL FRAGMENTS ARE DECOMPRESSED
     6420                            *
     6421   01 01E9E    32201ED3              LW,X2    DECOM%TO
     6422   01 01E9F    38101ED3              SW,X1    DECOM%TO          CACLULATE # OF BYTES IN MSG
     6423   01 01EA0    75140000 A            STB,X1   0,X2              SET BYTE COUNT IN BUFFER BYTE 0
     6424   01 01EA1    20600001 A            AI,X6    1                 POINT TO NEXT MESSAGE
     6425   01 01EA2    35601EC6              STW,X6   DECOM%SAVE+6
     6426                            *
     6427   01 01EA3    02200000 A            LCI      0
     6428   01 01EA4    2A001EC0              LM,0     DECOM%SAVE        RESTORE REGISTERS
     6429   01 01EA5    33101ED0              MTW,1    DECOM%RET         BUMP RETURN ADDRESS
     6430   01 01EA6    E8001ED0              B        *DECOM%RET
     6431                            *
     6432                            *
     6433                            *  ENTER HERE IF INDEX BYTE IS A CONTROL CHARACTER POINTING
     6434                            *        AT AN EXTENSION TABLE (BEYOND FIRST 256)
     6435                            *
     6436         01 01EA7           TABLSW   EQU      %
     6437   01 01EA7    228000FC A            LI,R8    252               ADD 252 TO X4 IF IN SECOND TABLE
     6438   01 01EA8    214000FF A            CI,X4    X'FF'
     6439   01 01EA9    68301EAB              BE       %+2
     6440   01 01EAA    20800100 A            AI,R8    256               ADD 256 MORE IF IN THIRD TABLE
     6441   01 01EAB    20600001 A            AI,X6    1
     6442   01 01EAC    724C0000 A            LB,X4    0,X6              BUILD TABLE DISPLACEMENT
     6443   01 01EAD    30400008 A            AW,X4    R8
     6444   01 01EAE    68001E85              B        FIND%FRAG
     6445                            *
     6446                            *   ENTER HERE IF INDEX IS A CONTROL BYTE THAT SAYS TO REPEAT
     6447                            *        THE NEXT CHARACTER 'N' TIMES
     6448                            *
     6449         01 01EAF           REP%CHAR EQU      %
     6450   01 01EAF    22800000 A            LI,R8    0
     6451   01 01EB0    35801ED1              STW,R8   INCR
     6452   01 01EB1    20600001 A            AI,X6    1
     6453   01 01EB2    728C0000 A            LB,R8    0,X6              FETCH # OF TIMES TO REPEAT
     6454   01 01EB3    20600001 A            AI,X6    1
     6455   01 01EB4    724C0000 A            LB,X4    0,X6              FETCH INDEX OF CHAR. TO REPEAT
     6456   01 01EB5    20405A00              AI,X4    HA(DAT)
     6457   01 01EB6    52580000 A            LH,X5    0,X4              FETCH FRAGMENT POINTER
     6458   01 01EB7    4B502C91              AND,X5   XFFF
     6459   01 01EB8    2050B880              AI,X5    BA(DT)
     6460   01 01EB9    202FFFFE A            AI,X2    -2
     6461   01 01EBA    68001E8F              B        BUFFIT
     6462                            *
     6463         01 01EBB           BACK%SPACE  EQU   %
     6464   01 01EBB    201FFFFF A            AI,X1    -1
     6465   01 01EBC    72920000 A            LB,R9    0,X1              CHECK PREVIOUS CHARACTER
     6466   01 01EBD    21900040 A            CI,R9    X'40'
     6467   01 01EBE    68301E9D              BE       SKP:INC
     6468   01 01EBF    68001E9C              B        SKP:INC-1         NO BACKSPACE IF NOT A BLANK
     6469                            *
     6470                            *
     6471                            *
     6472   01 01EC0                 DECOM%SAVE RES    16                REGISTER SAVE
     6473   01 01ED0    00000000 A   DECOM%RET  DATA   0                 RETURN ADDRESS
     6474   01 01ED1    00000000 A   INCR     DATA     0
     6475   01 01ED2    00000000 A   ENDBUF   DATA     0
     6476   01 01ED3    00000000 A   DECOM%TO DATA     0                 BUFFER BYTE ADDRESS
     6477                            *
     6478                                     TITLE    '          DISPLAY ERROR TYPE EXPLANATIONS'
     6479                            *
     6480                            *
     6481                            *   THIS ROUTINE IS ENTERED BY KEYIN OF  DE
     6482                            *
     6483                            *   IT CAUSES DISPLAY OF THE EXPLANATIONS FOR ALL ERROR TYPES
     6484                            *        WITHIN THE REQUESTED RANGE
     6485                            *
     6486                            *
     6487         01 01ED4           DISP%E   EQU    %
     6488                            *
     6489   01 01ED4    02200000 A            LCI      0
     6490   01 01ED5    2B002AEC              STM,0    SAVE#2            SAVE REGISTERS
     6491   01 01ED6    3220039C              LW,X2    #PARAM%H1
     6492   01 01ED7    68301EE1              BEZ      DIS%ALL%E
     6493   01 01ED8    212000FF A            CI,X2    255
     6494   01 01ED9    69201EF9              BG       DIS%E#PE1         ERROR IF OVER X'FF'
     6495                            *
     6496   01 01EDA    3240039D              LW,X4    #PARAM%H2
     6497   01 01EDB    68301EE4              BEZ      DIS%ONE%E
     6498   01 01EDC    214000FF A            CI,X4    255
     6499   01 01EDD    69201EFB              BG       DIS%E#PE2         ERROR IF OVER X'FF'
     6500   01 01EDE    31400002 A            CW,X4     X2
     6501   01 01EDF    69101EFB              BL       DIS%E#PE2        ERROR IF LESS THAN PARAM 1
     6502   01 01EE0    68001EE5              B        DIS%E
     6503                            *
     6504                            *   ENTER HERE IF DE>,, WAS KEYED IN
     6505                            *
     6506         01 01EE1           DIS%ALL%E         EQU               %
     6507   01 01EE1    22200001 A            LI,X2    1                 SET UP DISPLAY OF ALL TYPES
     6508   01 01EE2    224000FF A            LI,X4    255
     6509   01 01EE3    68001EE5              B        DIS%E
     6510                            *
     6511         01 01EE4           DIS%ONE%E         EQU  %
     6512   01 01EE4    32400002 A            LW,X4    X2                SET LAST TYPE EQUAL TO FIRST
     6513   01 01EE5    32842B56     DIS%E    LW,R8    EXPL%T#01-1,X2    FIND EXPLANATION
     6514   01 01EE6    31802C55              CW,R8    EXPL%T#01+X'FE'   COMPARE WITH TYPE 'FF' (NOT USED)
     6515   01 01EE7    68301EF5              BE       DIS%E#A           BRANCH IF THIS TYPE NOT USED
     6516   01 01EE8    35801EEB              STW,R8   %+3                                               *A02
     6517   01 01EE9    6A6028A7              #PRINT   %+2                                               *A02
            01 01EEA    EA6003CD
            01 01EEB    C0007BB4 A
            01 01EEC    6A6028D0
     6518   01 01EED    32500002 A            LW,X5    X2
     6519   01 01EEE    2550007C A            SLS,X5   -4                FIND FIELD EXPLANATIONS
     6520   01 01EEF    328A2B47              LW,R8    EXPL%F#0,X5               *
     6521   01 01EF0    35801EF3              STW,R8   %+3                                               *A02
     6522   01 01EF1    6A6028A7              #PRINT   %+2                                               *A02
            01 01EF2    EA6003CD
            01 01EF3    C0007BD4 A
            01 01EF4    6A6028D0
     6523                            *
     6524                            *
     6525   01 01EF5    31400002 A   DIS%E#A  CW,X4    X2                WAS LAST EXPL. PRINTED
     6526   01 01EF6    68201F03              BLE      DIS%E#X           EXIT IF YES
     6527                            *
     6528   01 01EF7    20200001 A            AI,X2    1
     6529   01 01EF8    68001EE5              B        DIS%E             DISPLAY THE NEXT ERROR TYPE
     6530                            *
     6531                            *
     6532   01 01EF9    12A003A2     DIS%E#PE1  LD,LOG   #PARAM1         PARAMETER 1 ERROR
     6533   01 01EFA    68001EFC              B        %+2
     6534   01 01EFB    12A003A4     DIS%E#PE2  LD,LOG   #PARAM2         PARAMETER 2 ERROR
     6535   01 01EFC    6A601E69              SEND     PARAMERR
            01 01EFD    0000C387 A
     6536   01 01EFE    15A03F0A              STD,LOG  OUTBUF+6
     6537   01 01EFF    6A6028A7              #TYPE    OUTBUF            DISPLAY ERROR MSG.
            01 01F00    EA6003CC
            01 01F01    0000FC10 A
            01 01F02    6A6028D0
     6538   01 01F03    02200000 A   DIS%E#X  LCI      0
     6539   01 01F04    2A002AEC              LM,0     SAVE#2
     6540   01 01F05    02200010 A            LCI      1                 USE SAME GO TO ADDRESS
     6541   01 01F06    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     6542                            *
     6543                            *
     6544                                     TITLE    ;
     6545                             '                    DISPLAY HISTORY TABLE ROUTINE (DISHIS)'
     6546                            *
     6547                            *
     6548                            *************************************
     6549                            *  D I S P L A Y   H I S T O R Y   T A B L E
     6550                            *************************************
     6551                            *
     6552                            *************************************
     6553                            *  THIS ROUTINE DISPLAYS THE CURRENT CONTENTS OF THE INTERRUPT
     6554                            *      HISTORY TABLE ON USER REQUEST.  (DH)
     6555                            *   FIRST:  ALL EXPECTED INTS. ARE LISTED (IN ORDER EXPECTED)
     6556                            *   SECOND: ALL UNEXP. INTS. FROM FROM LEGAL LOCATIONS (52-13F)
     6557                            *        ARE LISTED (IN ORDER OF LOCATION)
     6558                            *   THIRD:  ALL INTS. FROM NONVALID LOCATIONS (INCLUDING TRAPS)
     6559                            *        ARE LISTED (IN ORDER OF OCCURRANCE)
     6560                            *
     6561                            *************************************
     6562                            *
     6563   01 01F07    00000000 A   HSTORYP  DATA     0
     6564                            *
     6565   01 01F08    02200000 A   DISHIS   LCI      0                 SAVE REGISTERS
     6566   01 01F09    2B002AEC              STM,0    SAVE#2
     6567   01 01F0A    2210F4A0              LI,X1    BA(HISTORY)       SET BYTE DISPLACEMENT INDEX
     6568   01 01F0B    35101F07              STW,X1   HSTORYP           SAVE START OF TABLE
     6569   01 01F0C    22700000 A            LI,X7    0                 SET INDEX FOR EXP. SEQ. SEARCH
     6570   01 01F0D    224FFF12 A            LI,X4    -238              SET INDEX FOR TABLE END
     6571   01 01F0E    6A6028A7              #PRINT,1,1 HISTHD1,C2      PRINT HISTORY TABLE HEADERS
            01 01F0F    EA6003CD
            01 01F10    0160C396 A
            01 01F11    6A6028D0
     6572   01 01F12    6A6028A7              #PRINT,1,1 HISTHD2
            01 01F13    EA6003CD
            01 01F14    0160C39D A
            01 01F15    6A6028D0
     6573   01 01F16    6A6028A7              #PRINT,1,1 HISTHD3
            01 01F17    EA6003CD
            01 01F18    0160C3AE A
            01 01F19    6A6028D0
     6574   01 01F1A    31702A5A              CW,X7    EXPSEQCT          WERE ANY INTERRUPTS EXPECTED
     6575   01 01F1B    69301F3D              BNE      DISHIS#D          YES, DISPLAY THEM
     6576   01 01F1C    6A602339              BAL,LINK INITBUF           CLEAR BUFFER
     6577   01 01F1D    32802CD6              LW,R8    ENONE             SAY NONE FOR EXPECTED SEQ.
     6578   01 01F1E    35803F05              STW,R8   OUTBUF+1
     6579   01 01F1F    32902A89              LW,R9    SEQCNT            DID ANY INTERRUPTS OCCUR
     6580   01 01F20    21900000 A            CI,R9    0
     6581   01 01F21    69201F2A              BG       DISHIS#A          YES, DISPLAY THEM
     6582   01 01F22    35803F07              STW,R8   OUTBUF+3          NO, SAY NONE
     6583   01 01F23    22C00010 A            LI,RC    16                SET NUMBER OF CHARACTERS TO PRINT
     6584   01 01F24    75C03F04              STB,RC   OUTBUF
     6585   01 01F25    6A6028A7              #PRINT   OUTBUF
            01 01F26    EA6003CD
            01 01F27    C000FC10 A
            01 01F28    6A6028D0
     6586   01 01F29    68001FD5              B        DISHIS#X          EXIT
     6587                            *
     6588   01 01F2A    2210F4A0     DISHIS#A LI,X1    BA(HISTORY)       INITIALIZE POINTER
     6589   01 01F2B    35101F07              STW,X1   HSTORYP
     6590   01 01F2C    6A602339     DISHIS#B BAL,LINK INITBUF           INITIALIZE BUFFER
     6591   01 01F2D    32101F07              LW,X1    HSTORYP           FIND ENTRY
     6592   01 01F2E    2110FC10              CI,X1    BA(HISTORYEND)    CHECK IF TABLE END
     6593   01 01F2F    68101FA9              BGE      DISHIS#I          YES, CHECK IF ANY ILEGAL  INTS.
     6594   01 01F30    72820000 A            LB,R8    0,X1              FIND EXP. SEQ. NO.
     6595   01 01F31    20100003 A            AI,X1    3                 SET INDEX TO BYTE 3
     6596   01 01F32    72920000 A            LB,R9    0,X1              FIND ACTUAL SEQ. NUMBER
     6597   01 01F33    21800000 A            CI,R8    0                 CHECK IF EXPECTED
     6598   01 01F34    69301F3A              BNE      DISHIS#C          YES, MUST BE ALREADY DISPLAYED
     6599   01 01F35    21900000 A            CI,R9    0                 NO, CHECK IF OCCURRED
     6600   01 01F36    68301F3A              BE       DISHIS#C          NO, SKIP THIS ENTRY
     6601   01 01F37    32802CD6              LW,R8    ENONE             FIND EBCDIC NONE
     6602   01 01F38    35803F05              STW,R8   OUTBUF+1          STORE AS EXPECTED SEQ. NO.
     6603   01 01F39    68001F48              B        DISHIS#F          DISPLAY THIS ENTRY
     6604                            *
     6605   01 01F3A    22800008 A   DISHIS#C LI,R8    8                 INCREMENT POINTER TO NEXT DBL. WD.
     6606   01 01F3B    66801F07              AWM,R8   HSTORYP
     6607   01 01F3C    68001F2D              B        DISHIS#B+1        CHECK NEXT ENTRY
     6608                            *
     6609   01 01F3D    20700001 A   DISHIS#D AI,X7    1                 INCREMENT SEARCH VALUE
     6610   01 01F3E    6A602339              BAL,LINK INITBUF           INITIALIZE BUFFER
     6611   01 01F3F    2210F4A0              LI,X1    BA(HISTORY)       ZERO SEARCH POINTER
     6612   01 01F40    35101F07              STW,X1   HSTORYP
     6613   01 01F41    71720000 A   DISHIS#E CB,X7    0,X1              SEARCH FOR EXP. SEQ. THAT MATCHES
     6614   01 01F42    68301F45              BE       %+3               BRANCH WHEN FOUND
     6615   01 01F43    20100008 A            AI,X1    8
     6616   01 01F44    68001F41              B        DISHIS#E          LOOP UNTIL FOUND
     6617   01 01F45    6A6023A2              LOADBYTE 2,6,STRIPZ        LOAD OUTBUF WITH EXP. SEQ. NO.
            01 01F46    20C0237F
     6618   01 01F47    20100003 A            AI,X1    3                 BYTE ADDR. TO BYTE 3
     6619   01 01F48    72C20000 A   DISHIS#F LB,RC    0,X1              FIND ACTUAL SEQ. NO.
     6620   01 01F49    31C00007 A            CW,RC    X7                CHECK IF SAME AS EXP. NO.
     6621   01 01F4A    68301F50              BE       %+6               YES, SKIP ASTERISK
     6622   01 01F4B    2280005C A            LI,R8    X'5C'             NO, PRINT ASTERISK
     6623   01 01F4C    3580239D              STW,R8   EBCBUF+3
     6624   01 01F4D    22C00001 A            BUFFER   1,13,LOADBUF      LOAD IN OUTBUF -COL.13
            01 01F4E    22D0000D A
            01 01F4F    6A60237B
     6625   01 01F50    6A6023A2              LOADBYTE 2,16,STRIPZ       LOAD ACTUAL SEQ. NO.
            01 01F51    2200237F
     6626   01 01F52    201FFFFF A            AI,X1    -1                SET INDEX  TO BYTE 2
     6627   01 01F53    6A6023A2              LOADBYTE 2,67,STRIPZ       LOAD INTERRUPT COUNT
            01 01F54    2860237F
     6628   01 01F55    20100002 A            AI,X1    2                 SET INDEX  TO BYTE 4
     6629   01 01F56    72220000 A            LB,GRP   0,X1              FIND GROUP AND LEVEL
     6630   01 01F57    2520017C A            SLD,GRP  -4                MOVE GROUP # INTO RIGHT REG.
     6631   01 01F58    25300064 A            SLS,LVL  -28               MOVE LEVEL TO RIGHT REG.
     6632   01 01F59    3520000C A            STW,GRP  RC                CONVERT GROUP TO EBCDIC
     6633   01 01F5A    6A60299E              BAL,LINK :HEX@EBC
     6634   01 01F5B    3560239D              STW,LINK EBCBUF+3
     6635   01 01F5C    22C00001 A            BUFFER   1,22,LOADBUF      LOAD IN OUTBUF -COL.22
            01 01F5D    22D00016 A
            01 01F5E    6A60237B
     6636   01 01F5F    3530000C A            STW,LVL  RC                CONVERT LEVEL TO EBCDIC
     6637   01 01F60    6A60299E              BAL,LINK :HEX@EBC
     6638   01 01F61    3560239D              STW,LINK EBCBUF+3
     6639   01 01F62    22C00001 A            BUFFER   1,28,LOADBUF      LOAD IN OUTBUF -COL.28
            01 01F63    22D0001C A
            01 01F64    6A60237B
     6640   01 01F65    22500003 A            LI,X5    3                 SET FOR 3 WORDS
     6641   01 01F66    328A2CB7              LW,R8    COMSTMSG-1,X5     LOAD A, T, E, I INTO OUTBUF
     6642   01 01F67    358A239A              STW,R8   EBCBUF,X5
     6643   01 01F68    64501F66              BDR,X5   %-2
     6644   01 01F69    22C0000A A            BUFFER   10,51,LOADBUF               COL.42-51
            01 01F6A    22D00033 A
            01 01F6B    6A60237B
     6645   01 01F6C    228000D5 A            LI,R8    X'D5'             GET EBCDIC N
     6646   01 01F6D    3580239D              STW,R8   EBCBUF+3
     6647   01 01F6E    52842A96              LH,R8    LEVARMD,GRP       CHECK IF LEVEL WAS ARMED
     6648   01 01F6F    32962B36              LW,R9    LEVMASK,LVL       FIND LEVEL MASK
     6649   01 01F70    4B800009 A            AND,R8   9
     6650   01 01F71    69301F75              BNEZ     %+4               YES,SKIP N
     6651   01 01F72    22C00001 A            BUFFER   1,41,LOADBUF      NO, LOAD N
            01 01F73    22D00029 A
            01 01F74    6A60237B
     6652   01 01F75    52842AA6              LH,R8    LEVTRIG,GRP
     6653   01 01F76    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS TRIG.
     6654   01 01F77    69301F7B              BNEZ     %+4               YES, SKIP N
     6655   01 01F78    22C00001 A            BUFFER   1,44,LOADBUF      NO, LOAD N
            01 01F79    22D0002C A
            01 01F7A    6A60237B
     6656   01 01F7B    52842A9E              LH,R8    LEVENBL,GRP
     6657   01 01F7C    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS ENBLD.
     6658   01 01F7D    69301F81              BNEZ     %+4               YES, SKIP N
     6659   01 01F7E    22C00001 A            BUFFER   1,47,LOADBUF      NO, LOAD N
            01 01F7F    22D0002F A
            01 01F80    6A60237B
     6660   01 01F81    52842AB6              LH,R8    LEVNINH,GRP
     6661   01 01F82    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS INHIBITED
     6662   01 01F83    68301F87              BEZ      %+4               YES, SKIP N
     6663   01 01F84    22C00001 A            BUFFER   1,50,LOADBUF      NO, LOAD N
            01 01F85    22D00032 A
            01 01F86    6A60237B
     6664   01 01F87    72C20000 A            LB,RC    0,X1              FIND GRP/LVL
     6665   01 01F88    6A60279D              BAL,LINK READFF            READ FLIP FLOP STATES
     6666   01 01F89    128C2CC0              LD,R8    EBC%STATE,LINK    FIND FF STATES IN EBCDIC
     6667   01 01F8A    1580239C              STD,R8   EBCBUF+2
     6668   01 01F8B    22C00008 A            BUFFER   8,61,LOADBUF
            01 01F8C    22D0003D A
            01 01F8D    6A60237B
     6669   01 01F8E    20100002 A            AI,X1    2                 SET INDEX  TO BYTE 6
     6670   01 01F8F    72C20000 A            LB,RC    0,X1              FIND IF LOCATION > X'100'
     6671   01 01F90    69301F96              BNEZ     DISHIS#M          BRANCH IF YES
     6672   01 01F91    20100001 A            AI,X1    1                 SET INDEX  TO BYTE 7
     6673   01 01F92    72C20000 A            LB,RC    0,X1              FIND LOCATION
     6674   01 01F93    6A6023A2              LOADBYTE 2,36,STRIPZ       LOAD IN OUTBUF COL.36
            01 01F94    2480237F
     6675   01 01F95    68001F9B              B        DISHIS#N
     6676                            *
     6677   01 01F96    6A6023A2     DISHIS#M LOADBYTE 1,34,LOADBUF
            01 01F97    1440237B
     6678   01 01F98    20100001 A            AI,X1    1                 SET INDEX  TO BYTE 7
     6679   01 01F99    6A6023A2              LOADBYTE 2,36,LOADBUF      LOAD IN OUTBUF COL.36
            01 01F9A    2480237B
     6680   01 01F9B    22C00047 A   DISHIS#N LI,RC    71                SET NUMBER OF CHARACTERS TO PRINT
     6681   01 01F9C    75C03F04              STB,RC   OUTBUF
     6682   01 01F9D    6A6028A7              #PRINT   OUTBUF
            01 01F9E    EA6003CD
            01 01F9F    C000FC10 A
            01 01FA0    6A6028D0
     6683   01 01FA1    31702A5A              CW,X7    EXPSEQCT          WHAT IS BEING PRINTED
     6684   01 01FA2    68101FA6              BGE      %+4               BRANCH IF PRINTING ACTUALS
     6685   01 01FA3    69101F3D              BL       DISHIS#D          BRANCH IF PRINTING EXP.
     6686   01 01FA4    20700001 A            AI,X7    1                 INCREMENT SEARCH VALUE
     6687   01 01FA5    68001F2A              B        DISHIS#A          START ON ACTUALS
     6688   01 01FA6    22800008 A            LI,R8    8
     6689   01 01FA7    66801F07              AWM,R8   HSTORYP           SET POINTER FOR NEXT ENTRY
     6690   01 01FA8    68001F2C              B        DISHIS#B          PROCESS NEXT ACTUAL
     6691                            *
     6692   01 01FA9    6A602339     DISHIS#I BAL,LINK INITBUF           CLEAR BUFFER
     6693   01 01FAA    2210FC58              LI,X1    BA(ILEGAL)
     6694   01 01FAB    31101172              CW,X1    ILEGALP           END OF ILLEGALS
     6695   01 01FAC    68101FD5              BGE      DISHIS#X          BRANCH IF YES
     6696   01 01FAD    72C20000 A            LB,RC    0,X1              FIND ACTUAL SEQUENCE NUMBER
     6697   01 01FAE    6A6023A2              LOADBYTE 2,16,STRIPZ       LOAD IN OUTBUF
            01 01FAF    2200237F
     6698   01 01FB0    2280005C A            LI,R8    X'5C'             FIND ASTERISK
     6699   01 01FB1    3580239D              STW,R8   EBCBUF+3          SAVE IT
     6700   01 01FB2    22C00001 A            BUFFER   1,13,LOADBUF      LOAD IN OUTBUF - COL.13
            01 01FB3    22D0000D A
            01 01FB4    6A60237B
     6701   01 01FB5    20100002 A            AI,X1    2                 SET INDEX TO BYTE 2
     6702   01 01FB6    72C20000 A            LB,RC    0,X1              FIND LOCATION MOST SIG. CHAR.
     6703   01 01FB7    68301FC2              BEZ      DISHIS#P          SKIP MOST SIG. CHAR IF 0
     6704   01 01FB8    228000F1 A            LI,R8    X'F1'             GET EBCDIC 1
     6705   01 01FB9    3580239D              STW,R8   EBCBUF+3          SAVE IT
     6706   01 01FBA    22C00001 A            BUFFER   1,34,LOADBUF      LOAD IT IN OUTBUF COL. 34
            01 01FBB    22D00022 A
            01 01FBC    6A60237B
     6707   01 01FBD    20100001 A            AI,X1    1                 SET INDEX TO BYTE 3
     6708   01 01FBE    72C20000 A            LB,RC    0,X1              FIND LEAST SIG. CHARS.
     6709   01 01FBF    6A6023A2              LOADBYTE 2,36,LOADBUF      LOAD LOCATION IN OUTBUF-COL.36
            01 01FC0    2480237B
     6710   01 01FC1    68001FC6              B        DISHIS#Q
     6711                            *
     6712   01 01FC2    20100001 A   DISHIS#P AI,X1    1                 SET INDEX TO BYTE 3
     6713   01 01FC3    72C20000 A            LB,RC    0,X1              FIND LOCATION
     6714   01 01FC4    6A6023A2              LOADBYTE 2,36,STRIPZ       LOAD LOC. IN OUTBUF-COL.36
            01 01FC5    2480237F
     6715                            *
     6716   01 01FC6    32802CD6     DISHIS#Q LW,R8    ENONE             GET EBCDIC NONE
     6717   01 01FC7    35803F05              STW,R8   OUTBUF+1          LOAD EXPECTED SEQ. AS NONE
     6718   01 01FC8    12802CD0              LD,R8    EBC%SPUR          GET EBCDIC SPURIOUS
     6719   01 01FC9    35803F09              STW,R8   OUTBUF+5          STORE IN OUTBUF COLS. 20-27     *B00
     6720   01 01FCA    35903F0A              STW,R9   OUTBUF+6                                          *B00
     6721   01 01FCB    22C00024 A            LI,RC    36                SET NUMBER OF CHARACTERS TO PRINT
     6722   01 01FCC    75C03F04              STB,RC   OUTBUF
     6723   01 01FCD    6A6028A7              #PRINT   OUTBUF
            01 01FCE    EA6003CD
            01 01FCF    C000FC10 A
            01 01FD0    6A6028D0
     6724   01 01FD1    20100001 A            AI,X1    1                 SET INDEX TO NEXT BYTE 0
     6725   01 01FD2    31101172              CW,X1    ILEGALP           CHECK FOR TABLE END
     6726   01 01FD3    68101FD5              BGE      DISHIS#X          EXIT IF FINISHED
     6727   01 01FD4    68001FAB              B        DISHIS#I+2        PRINT NEXT ENTRY
     6728                            *
     6729                            *
     6730   01 01FD5    02200000 A   DISHIS#X LCI      0                 RESTORE REGISTERS
     6731   01 01FD6    2A002AEC              LM,0     SAVE#2
     6732   01 01FD7    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     6733   01 01FD8    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     6734                            *
     6735                                     BOUND    8
     6736                            *
     6737                                     TITLE    ;
     6738                             '                    DISPLAY PATTERN ROUTINE   (DISPAT)'              *
     6739                            *                                                                      *
     6740                            **********************************************************************
     6741                            *       D I S P L A Y     P A T T E R N S
     6742                            ***********************************************************************
     6743                            *
     6744                            * THIS ROUTINE DISPLAYS ALL K PARAMETER LINES (ALL INTERRUPT
     6745                            *      CONTROL PATTERN) ON USER REQUEST (DK)                         *
     6746                            **********************************************************************
     6747                            *
     6748   01 01FDA    6A6028A7     DISPAT   #PRINT,1,1 PATHD#1,C2      PRINT HEADERS
            01 01FDB    EA6003CD
            01 01FDC    0160C40B A
            01 01FDD    6A6028D0
     6749   01 01FDE    6A6028A7              #PRINT,1,1 PATHD#2
            01 01FDF    EA6003CD
            01 01FE0    0160C418 A
            01 01FE1    6A6028D0
     6750   01 01FE2    22700000 A            LI,X7    0                 INITIALIZE GROUP #
     6751   01 01FE3    22500000 A            LI,X5    0                 SET INDEX TO FIND GROUP 0 PATTERNS
     6752   01 01FE4    6A602339     DISPT#A  BAL,LINK INITBUF           INITIALIZE BUFFER
     6753   01 01FE5    22400000 A            LI,X4    0                 ZERO LOOP INDEX
     6754   01 01FE6    328A24B6              LW,R8    PLINE#K0,X5       LOAD PATTERNS IN OUTBUF
     6755   01 01FE7    35883F04              STW,R8   OUTBUF,X4
     6756   01 01FE8    20400001 A            AI,X4    1
     6757   01 01FE9    20500001 A            AI,X5    1
     6758   01 01FEA    2140000F A            CI,X4    15
     6759   01 01FEB    69101FE6              BL       %-5
     6760   01 01FEC    6A6028A7              #PRINT   OUTBUF
            01 01FED    EA6003CD
            01 01FEE    C000FC10 A
            01 01FEF    6A6028D0
     6761   01 01FF0    2170000F A   DISPT#B  CI,X7    15                WAS THAT THE LAST LINE
     6762   01 01FF1    E92003C9              BG       *#FIDLE%          EXIT TO IDLE STATE
     6763   01 01FF2    21700000 A            CI,X7    0                 WAS THAT THE FIRST LINE
     6764   01 01FF3    69301FF5              BNE      %+2               IF YES ADD EXTRA COUNT FOR GRP. 1
     6765   01 01FF4    20700001 A            AI,X7    1
     6766   01 01FF5    20700001 A            AI,X7    1                 INCREMENT GROUP #
     6767   01 01FF6    528E2ABE              LH,R8    LEVIMPL,X7        IS NEXT GROUP IMPLEMENTED
     6768   01 01FF7    69301FE4              BNEZ     DISPT#A           IF YES PRINT NEXT GROUP
     6769   01 01FF8    2050000F A            AI,X5    15
     6770   01 01FF9    68001FF0              B        DISPT#B           IF NO SKIP NEXT GROUP
     6771                            *
     6772   01 01FFA    02200010 A   DISPT#X  LCI      1                 USE SAME 'GO TO' ADDRESS
     6773   01 01FFB    E80003C9              B        *#FIDLE%          EXIT TO USER CONTROL (IDLE STATE)
     6774                            *
     6775                                     TITLE    ;
     6776                             '                    DISPLAY IMPLEMENTED ROUTINE (DISIMP)'            *
     6777                            *
     6778                            **********************************************************************
     6779                            *  D I S P L A Y   I M P L E M E N T E D    L E V E L S              *
     6780                            **********************************************************************
     6781                            *                                                                    *
     6782                            *  THIS ROUTINE DISPLAYS ALL I PARAMETER LINES (IMPLEMENTED          *
     6783                            *       LEVEL PATTERNS) ON USER REQUEST.  (DI,,)                     *
     6784                            **********************************************************************
     6785                            *
     6786   01 01FFC    6A601FFF     DISP%IMP BAL,LINK DISIMP            DISPLAY IMPLEMENTATION
     6787   01 01FFD    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     6788   01 01FFE    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     6789                            *
     6790   01 01FFF                 DISIMP   RES      0
     6791   01 01FFF    02200000 A            LCI      0
     6792   01 02000    2B002ADC              STM,0    SAVE#1            SAVE REGISTERS
     6793   01 02001    32F02CB0              LW,RF    Y8000             SET REG. AS GROUP COUNTER
     6794   01 02002    22100001 A            LI,X1    1
     6795   01 02003    22200000 A            LI,GRP   0
     6796   01 02004    22300000 A            LI,LVL   0
     6797   01 02005    6A6028A7              #PRINT,1,1 DI%HDR,C2
            01 02006    EA6003CD
            01 02007    0160C307 A
            01 02008    6A6028D0
     6798   01 02009    52842ABE     DISIMP#A LH,R8    LEVIMPL,GRP       FIND WHICH LEVELS IMPL. IN GROUP
     6799   01 0200A    4B802C99              AND,R8   XFFFF
     6800   01 0200B    68302078              BEZ      DISIMP#R          BRANCH IF NONE
     6801   01 0200C    32B02AC9              LW,RB    GRPIMPL
     6802   01 0200D    49B0000F A            OR,RB    RF
     6803   01 0200E    35B02AC9              STW,RB   GRPIMPL
     6804   01 0200F    21200000 A            CI,GRP   0                 IS IT GROUP 0
     6805   01 02010    69302013              BNE      %+3               BRANCH IF NO
     6806   01 02011    31802C98              CW,R8    XFFFC             WERE ALL LEVELS IMPLEMENTED
     6807   01 02012    68002014              B        %+2
     6808   01 02013    31802C99              CW,R8    XFFFF             WERE ALL LEVELS IMPLEMENTED
     6809   01 02014    68302016              BE       DISIMP#B          BRANCH IF YES
     6810   01 02015    68002020              B        DISIMP#E          INDICATE PARTIAL IMPLEMENTATION
     6811   01 02016    6A601E69     DISIMP#B SEND     GRPIMSG1          SHOW GROUP AS FULLY IMPLEMENTED
            01 02017    0000CC4D A
     6812   01 02018    32C00002 A   DISIMP#C LW,RC    GRP               PUT GROUP # IN OUTPUT MESSAGE
     6813   01 02019    6A60299E              BAL,LINK :HEX@EBC
     6814   01 0201A    75603F06              STB,LINK OUTBUF+2
     6815   01 0201B    6A6028A7              #PRINT   OUTBUF            PRINT GROUP IMPLMENTED MESSAGE
            01 0201C    EA6003CD
            01 0201D    C000FC10 A
            01 0201E    6A6028D0
     6816   01 0201F    68002078              B        DISIMP#R          GO CHECK IF LAST GROUP
     6817                            *
     6818                            *
     6819   01 02020    6A601E69     DISIMP#E SEND     GRPIMSG3          SHOW GROUP AS PARTIALLY IMPLEMENTED
            01 02021    0000CC7C A
     6820   01 02022    32C00002 A            LW,RC    GRP
     6821   01 02023    6A60299E              BAL,LINK :HEX@EBC
     6822   01 02024    75603F06              STB,LINK OUTBUF+2
     6823   01 02025    6A6028A7              #PRINT   OUTBUF            PRINT GROUP PARTIALLY IMPL. MSG.
            01 02026    EA6003CD
            01 02027    C000FC10 A
            01 02028    6A6028D0
     6824   01 02029    21200000 A            CI,GRP   0
     6825   01 0202A    6930202F              BNE      %+5                                               *A02
     6826   01 0202B    6A6028A7              #PRINT,1,1  LVLIMSG#1
            01 0202C    EA6003CD
            01 0202D    0160CC54 A
            01 0202E    6A6028D0
     6827   01 0202F    52842ABE              LH,R8    LEVIMPL,GRP       FIND WHICH LEVELS WERE IMPLEMENTED
     6828   01 02030    25800010 A            SLS,R8   16
     6829   01 02031    22700000 A            LI,X7    0
     6830   01 02032    22500003 A            LI,X5    3
     6831                            *
     6832                            **********************************************************************
     6833                            * ENTRY HERE INDICATES THE GROUP WAS ONLY PARTIALLY IMPLEMENTED
     6834                            *     AND THEREFORE A DISPLAY OF LEVELS IMPLEMENTED IS NEEDED
     6835                            **********************************************************************
     6836                            *
     6837   01 02033    6A601E69     DISIMP#F SEND     LVLIMSG
            01 02034    0000C390 A
     6838   01 02035    22400001 A            LI,X4    1                 SET BYTE DISPL. INDICIES
     6839   01 02036    F29E03D2              LB,R9    *#VALTAB%,X7      FIND LEVEL # IN EBCDIC
     6840   01 02037    75983F06              STB,R9   OUTBUF+2,X4          AND SET IN MESSAGE
     6841   01 02038    25800202 A            SCS,R8   2                 WERE BOTH LEVELS SAME
     6842   01 02039    6880205F              BCR,8    DISIMP#J          BRANCH IF YES
     6843   01 0203A    6A6028A7              #PRINT,1,1 ERRORMSG,C2
            01 0203B    EA6003CD
            01 0203C    0160C30C A
            01 0203D    6A6028D0
     6844   01 0203E    72BA0008 A            LB,RB    R8,X5             FIND IF LEVELS WERE 01 OR 10
     6845   01 0203F    21B00001 A            CI,RB    1                     IN BINARY PATTERN OF PAIR
     6846   01 02040    68302053              BE       DISIMP#H          BRANCH IF 01
     6847                            *
     6848                            **********************************************************************
     6849                            * ENTRY HERE INDICATED FIRST LEVEL OF PAIR WAS IMPLEMENTED
     6850                            *    AND SECOND WAS NOT (ERROR CONDITION)
     6851                            **********************************************************************
     6852   01 02041    6A6028A7              #PRINT   OUTBUF            OUTPUT LEVEL AS IMPLEMENTED
            01 02042    EA6003CD
            01 02043    C000FC10 A
            01 02044    6A6028D0
     6853   01 02045    32902CD7              LW,R9    ENOT              INDICATE SECOND LVL NOT IMPL.
     6854   01 02046    35903F07              STW,R9   OUTBUF+3
     6855   01 02047    20700001 A   DISIMP#G AI,X7    1
     6856   01 02048    F29E03D2              LB,R9    *#VALTAB%,X7      FIND LEVEL # IN EBCDIC
     6857   01 02049    75983F06              STB,R9   OUTBUF+2,X4
     6858   01 0204A    6A6028A7              #PRINT   OUTBUF                LEVEL IMPL. MESSAGE
            01 0204B    EA6003CD
            01 0204C    C000FC10 A
            01 0204D    6A6028D0
     6859   01 0204E    6A6028A7              #PRINT   UPSPACE,C2
            01 0204F    EA6003CD
            01 02050    C200B1C0 A
            01 02051    6A6028D0
     6860   01 02052    6800206E              B        DISIMP#K
     6861                            *
     6862                            **********************************************************************
     6863                            * ENTRY HERE INDICATES FIRST LEVEL OF PAIR WAS NOT IMPLEMENTED
     6864                            *      BUT SECOND WAS IMPLEMENTED
     6865                            **********************************************************************
     6866   01 02053    32902CD7     DISIMP#H LW,R9    ENOT              INDICATE LEVEL NOT IMPLEMENTED
     6867   01 02054    35903F07              STW,R9   OUTBUF+3
     6868   01 02055    F29E03D2              LB,R9    *#VALTAB%,X7      FIND LEVEL # IN EBCDIC
     6869   01 02056    75983F06              STB,R9   OUTBUF+2,X4
     6870   01 02057    2290005C A            LI,R9    '*'
     6871   01 02058    759A3F06              STB,R9   OUTBUF+2,X5
     6872   01 02059    6A6028A7              #PRINT   OUTBUF                LEVEL IMPL. MESSAGE
            01 0205A    EA6003CD
            01 0205B    C000FC10 A
            01 0205C    6A6028D0
     6873   01 0205D    35903F07              STW,R9   OUTBUF+3
     6874   01 0205E    68002047              B        DISIMP#G          GO TO SECOND LEVEL MESSAGE
     6875                            *
     6876                            **********************************************************************
     6877                            * ENTRY HERE INDICATES BOTH LEVELS IN PAIR AGREE ON
     6878                            *        IMPLEMENTATION
     6879                            **********************************************************************
     6880   01 0205F    72BA0008 A   DISIMP#J LB,RB    R8,X5             ARE THEY BOTH IMPLEMENTED
     6881   01 02060    69302063              BNEZ     %+3               BRANCH IF YES
     6882   01 02061    32902CD7              LW,R9    ENOT
     6883   01 02062    35903F07              STW,R9   OUTBUF+3          INDICATE NOT IMPLEMENTED
     6884   01 02063    20400001 A            AI,X4    1
     6885   01 02064    72902CBF              LB,R9    ECOMMA            FIND EBCDIC COMMA
     6886   01 02065    75983F06              STB,R9   OUTBUF+2,X4
     6887   01 02066    20700001 A            AI,X7    1
     6888   01 02067    20400001 A            AI,X4    1
     6889   01 02068    F29E03D2              LB,R9    *#VALTAB%,X7      FIND LEVEL # IN EBCDIC
     6890   01 02069    75983F06              STB,R9   OUTBUF+2,X4          AND SET IN MESSAGE
     6891   01 0206A    6A6028A7              #PRINT   OUTBUF            OUTPUT LEVEL IMPLEMENTED MESSAGE
            01 0206B    EA6003CD
            01 0206C    C000FC10 A
            01 0206D    6A6028D0
     6892                            **********************************************************************
     6893                            *  ENTER HERE AFTER DISPLAY OF EACH LEVEL
     6894                            **********************************************************************
     6895                            *
     6896   01 0206E    20700001 A   DISIMP#K AI,X7    1                 CHECK IF ALL LEVELS COMPLETE
     6897   01 0206F    22900000 A            LI,R9    0
     6898   01 02070    759A0008 A            STB,R9   R8,X5             ZERO THE STATUS OF LAST MODULE
     6899   01 02071    21200000 A            CI,GRP   0                 IS IT GROUP ZERO
     6900   01 02072    68302076              BE       %+4               BRANCH IF YES
     6901   01 02073    21700010 A            CI,X7    16                WAS THAT THE LAST LEVEL
     6902   01 02074    69102033              BL       DISIMP#F          LOOP IF NO
     6903   01 02075    68002078              B        DISIMP#R          CHECK NEXT GROUP IF YES
     6904   01 02076    2170000E A            CI,X7    14                WAS THAT THE LAST LEVEL
     6905   01 02077    68002074              B        %-3
     6906                            *
     6907                            **********************************************************************
     6908                            *   ENTER HERE AFTER DISPLAY OF EACH GROUP
     6909                            **********************************************************************
     6910                            *
     6911   01 02078    25F0007F A   DISIMP#R SLS,RF   -1
     6912   01 02079    21200000 A            CI,GRP   0                 WAS IT GROUP 0
     6913   01 0207A    6930207D              BNE      %+3               BRANCH IF NO
     6914   01 0207B    25F0007F A            SLS,RF   -1
     6915   01 0207C    20200001 A            AI,GRP   1                 SKIP NONEXIST. GROUP 1
     6916   01 0207D    20200001 A            AI,GRP   1
     6917   01 0207E    2120000F A            CI,GRP   X'F'              WAS IT LAST GROUP
     6918   01 0207F    68202009              BLE      DISIMP#A          BRANCH IF NO
     6919   01 02080    6A6028A7              #PRINT   UPSPACE
            01 02081    EA6003CD
            01 02082    C000B1C0 A
            01 02083    6A6028D0
     6920                            *
     6921   01 02084    02200000 A   DISIMP#X LCI      0
     6922   01 02085    2A002ADC              LM,0     SAVE#1            RESTORE REGISTERS
     6923   01 02086    E8000006 A            B        *LINK
     6924                            *
     6925                            *
     6926                                     TITLE    ;
     6927                             '                    DISPLAY PSD ROUTINE (DISQ)'
     6928                            *
     6929                            *
     6930                            *  THIS ROUTINE IS ENTERED BY USER KEYIN OF   DQ
     6931                            *
     6932                            *  IT DISPLAYS THE 1) INSTRUCTION IN THE INTERRUPT LOCATION(S) REQUESTED
     6933                            *                  2) THE STORED PSD (IF INST. WAS AN XPSD)
     6934                            *                  3) THE NEW PSD    (IF INSTR. WAS AN XPSD)
     6935                            *                  4) THE ADDRESS AND THE MNEMONIC OF THE HANDLING
     6936                            *                      ROUTINE ADDRESSED BY THE NEW PSD.
     6937                            *
     6938         01 02087           DISQ     EQU      %
     6939   01 02087    32A0039C              LW,LOG   #PARAM%H1         FIND PARAMETER #1
     6940   01 02088    68302090              BEZ      DISQ#A            BRANCH IF ZERO
     6941                            *
     6942   01 02089    21A00200 A            CI,LOG    512
     6943   01 0208A    68102102              BGE      DISQ#R            ERROR IF PARAM 1 IS OVER 511
     6944   01 0208B    3260039D              LW,LINK  #PARAM%H2         FIND PARAMETER #2
     6945   01 0208C    68302093              BEZ      DISQ#B            BRANCH IF ZERO
     6946   01 0208D    21600200 A            CI,LINK  512               SAVE PARAMETER 2 IN LINK
     6947   01 0208E    68102104              BGE      DISQ#S            ERROR IF OVER 511
     6948   01 0208F    68002096              B        DISQ#C
     6949                            *
     6950   01 02090    22400000 A   DISQ#A   LI,X4    0                 PARAM 1 AND 2 BOTH ZERO SO
     6951   01 02091    227001FF A            LI,X7    X'1FF'               DISPLAY ALL 512 LOCATIONS
     6952   01 02092    680020A0              B        DISQ#E
     6953                            *
     6954   01 02093    22700001 A   DISQ#B   LI,X7    1                 PARAM 2 IS ZERO SO
     6955   01 02094    3240000A A            LW,X4    LOG               DISPLAY LOC. SPECIFIED BY PARAM1
     6956   01 02095    680020A0              B        DISQ#E
     6957                            *
     6958   01 02096    31A00006 A   DISQ#C   CW,LOG   LINK              COMPARE PARAMETERS 1 AND 2
     6959   01 02097    68302093              BE       DISQ#B            IF PARAMS ARE = DISPLAY 1 LINE
     6960   01 02098    6910209C              BL       DISQ#D            IF PARAM 1 IS SMALLER,BRANCH
     6961   01 02099    32700006 A            LW,X7    LINK              SET PARAM 2 AS # OF LOCATIONS
     6962   01 0209A    3240000A A            LW,X4    LOG               SET PARAM 1 AS FIRST LOCATION
     6963   01 0209B    680020A0              B        DISQ#E
     6964                            *
     6965   01 0209C    3240000A A   DISQ#D   LW,X4    LOG               SET PARAM 1 AS FIRST LOCATION
     6966   01 0209D    32700006 A            LW,X7    LINK              DIFFERENCE BETWEEN 1 AND 2
     6967   01 0209E    3870000A A            SW,X7    LOG                   AS # OF LOCATIONS
     6968   01 0209F    20700001 A            AI,X7    1
     6969   01 020A0    6A602339     DISQ#E   BAL,LINK INITBUF           CLEAR BUFFER
     6970   01 020A1    6A6028A7              #PRINT,1,1 QHDR#1          PRINT HEADERS
            01 020A2    EA6003CD
            01 020A3    0160C224 A
            01 020A4    6A6028D0
     6971   01 020A5    6A6028A7              #PRINT   UPSPACE
            01 020A6    EA6003CD
            01 020A7    C000B1C0 A
            01 020A8    6A6028D0
     6972   01 020A9    22100009 A   DISQ#F   LOADHALF,2*(X4)+1  3,3,STRIPZ SET LOC'N INTO BUFFER ,COL. 1-3
            01 020AA    6A60239E
            01 020AB    3060237F
     6973   01 020AC    21400010 A            CI,X4    16                CHECK IF LOCN IS A GENERAL REG.
     6974   01 020AD    681020B3              BGE      %+6               BRANCH IF NO
     6975   01 020AE    22102C5F              LI,X1    REGXPSDS          FIND XPSD INSTRUCTION
     6976   01 020AF    30100004 A            AW,X1    X4
     6977   01 020B0    6A6023A8              LOADWORD  8,13,LOADBUF     SET INTO BUFFER COL. 6-13
            01 020B1    81A0237B
     6978   01 020B2    680020D3              B        DISQ#H
     6979   01 020B3    21400020 A            CI,X4    X'20'             IS IT LOC'N 20
     6980   01 020B4    693020B7              BNE      %+3               BRANCH IF NO
     6981   01 020B5    22102C76              LI,X1    WA(XPSD#20)
     6982   01 020B6    680020BC              B        DISQ#F1
     6983                            *
     6984   01 020B7    21400021 A            CI,X4    X'21'             IS IT LOC'N 21
     6985   01 020B8    693020BB              BNE      %+3               BRANCH IF NO
     6986   01 020B9    22102C77              LI,X1    WA(XPSD#20)+1
     6987   01 020BA    680020BC              B        DISQ#F1
     6988                            *
     6989   01 020BB    32100004 A            LW,X1    X4                FIND INSTRUCTION
     6990   01 020BC    6A6023A8     DISQ#F1  LOADWORD  8,13,LOADBUF     SET INTO BUFFER COL. 6-13
            01 020BD    81A0237B
     6991   01 020BE    F2A00001 A            LB,LOG   *X1               FIND OP CODE
     6992   01 020BF    21A0000F A            CI,LOG   15                IS IT AN XPSD
     6993   01 020C0    683020C6              BE       DISQ#G            BRANCH IF YES
     6994   01 020C1    32A02CD6              LW,LOG   ENONE
     6995   01 020C2    35A03F0A              STW,LOG  OUTBUF+6          SAY NONE IN OTHER FIELDS
     6996   01 020C3    35A03F0F              STW,LOG  OUTBUF+11
     6997   01 020C4    35A03F13              STW,LOG  OUTBUF+15
     6998   01 020C5    680020FA              B        DISQ#L
     6999                            *
     7000   01 020C6    32A80000 A   DISQ#G   LW,LOG   0,X4              FIND INSTRUCTION
     7001   01 020C7    4BA02CB4              AND,LOG  XFFBFFFFF         IGNORE BIT 9
     7002   01 020C8    31A02C6F              CW,LOG   TRAPXPSD          IS IT AN EXPECTED TRAP
     7003   01 020C9    693020D3              BNE      DISQ#H            BRANCH IF NO
     7004   01 020CA    22101639              LI,X1    TRAPHP            TRAP HAND ADDR. TO BUFFER
     7005   01 020CB    6A6023A8              LOADWORD  5,60,STRIPZ            COL. 56-60
            01 020CC    5780237F
     7006   01 020CD    32A02CD9              LW,LOG   ETRAP             HANDLER NAME TO BUFFER
     7007   01 020CE    35A03F14              STW,LOG  OUTBUF+16             COL. 64-71
     7008   01 020CF    32A02CD3              LW,LOG   EHAND
     7009   01 020D0    35A03F15              STW,LOG  OUTBUF+17
     7010   01 020D1    22101624              LI,X1    TRAPPSD           STORED PSD ADDR. TO X1
     7011   01 020D2    680020EF              B        DISQ#K            DISPLAY PSD'S
     7012                            *
     7013   01 020D3    32A83B28     DISQ#H   LW,LOG   ACCESS,X4         FIND HANDLER NAME
     7014   01 020D4    31A02B30              CW,LOG   BALSPUR           IS IT SPUR
     7015   01 020D5    693020DD              BNE      %+8               BRANCH IF NO
     7016   01 020D6    32A02CD8              LW,LOG   ESPUR             HANDLER NAME TO BUFFER
     7017   01 020D7    35A03F15     DISQ#I   STW,LOG  OUTBUF+17              COL. 68-71
     7018   01 020D8    32A83B28              LW,LOG   ACCESS,X4         FIND HANDLER ADDRESS
     7019   01 020D9    2210000A A            LOADWORD,LOG 5,60,STRIPZ     PUT IN BUFFER COL. 56-60
            01 020DA    6A6023A8
            01 020DB    5780237F
     7020   01 020DC    680020EB              B        DISQ#J
     7021                            *
     7022   01 020DD    31A02B2E              CW,LOG   BALNORM           FIND HANDLER NAME
     7023   01 020DE    693020E1              BNE      %+3
     7024   01 020DF    32A02CD5              LW,LOG   ENORM
     7025   01 020E0    680020D7              B        DISQ#I
     7026   01 020E1    31A02B31              CW,LOG   BALTRAP
     7027   01 020E2    693020E7              BNE      %+5
     7028   01 020E3    32A02CD8              LW,LOG   ESPUR
     7029   01 020E4    35A03F14              STW,LOG  OUTBUF+16
     7030   01 020E5    32A02CD9              LW,LOG   ETRAP
     7031   01 020E6    680020D7              B        DISQ#I
     7032   01 020E7    32A02CD7              LW,LOG   ENOT
     7033   01 020E8    35A03F14              STW,LOG  OUTBUF+16
     7034   01 020E9    32A02CD4              LW,LOG   EIMPL
     7035   01 020EA    680020D7              B        DISQ#I
     7036                            *
     7037   01 020EB    25400002 A   DISQ#J   SLS,X4   2                 SET UP PSD'S FOR DISPLAY
     7038   01 020EC    22103328              LI,X1    PSDS
     7039   01 020ED    30100004 A            AW,X1    X4
     7040   01 020EE    2540007E A            SLS,X4   -2
     7041   01 020EF    6A6023A8     DISQ#K   LOADWORD  8,23,LOADBUF     STORED PSD TO BUFFER
            01 020F0    82E0237B
     7042   01 020F1    20100001 A            AI,X1    1
     7043   01 020F2    6A6023A8              LOADWORD  8,33,LOADBUF
            01 020F3    8420237B
     7044   01 020F4    20100001 A            AI,X1    1
     7045   01 020F5    6A6023A8              LOADWORD  8,43,LOADBUF
            01 020F6    8560237B
     7046   01 020F7    20100001 A            AI,X1    1
     7047   01 020F8    6A6023A8              LOADWORD  8,53,LOADBUF
            01 020F9    86A0237B
     7048   01 020FA    6A6028A7     DISQ#L   #PRINT   OUTBUF            DISPLAY ONE LINE
            01 020FB    EA6003CD
            01 020FC    C000FC10 A
            01 020FD    6A6028D0
     7049   01 020FE    20400001 A            AI,X4    1
     7050   01 020FF    6A602339              BAL,LINK INITBUF
     7051   01 02100    647020A9              BDR,X7   DISQ#F            LOOP IF NOT FINISHED
     7052   01 02101    6800210C              B        DISQ#X            RETURN TO USER CONTROL (IDLE)
     7053                            *
     7054                            *  ERROR ENTRIES
     7055                            *
     7056   01 02102    12A003A2     DISQ#R   LD,LOG   #PARAM1           PARAMETER 1 ERROR
     7057   01 02103    68002105              B        %+2
     7058   01 02104    12A003A4     DISQ#S   LD,LOG   #PARAM2           PARAMETER 2 ERROR
     7059   01 02105    6A601E69              SEND     PARAMERR
            01 02106    0000C387 A
     7060   01 02107    15A03F0A              STD,LOG  OUTBUF+6
     7061   01 02108    6A6028A7              #TYPE    OUTBUF            DISPLAY ERROR MESSAGE
            01 02109    EA6003CC
            01 0210A    0000FC10 A
            01 0210B    6A6028D0
     7062   01 0210C    02200010 A   DISQ#X   LCI      1
     7063   01 0210D    E80003C9              B        *#FIDLE%          RETURN TO USER CONTROL (IDLE)
     7064                            *
     7065                            *
     7066                                     TITLE    ;
     7067                             '                    ONE SECOND DELAY ROUTINE (DELAY1SEC)'
     7068                            *
     7069                            *
     7070                            *  ONE SECOND DELAY ROUTINE
     7071                            ****************************
     7072                            *
     7073                            *  THIS ROUTINE EXECUTES THE RIGHT NUMBER OF BDR'S IN
     7074                            *        GENERAL REGISTER 'R0' TO PRODUCE A ONE SECOND DELAY
     7075                            *
     7076         01 0210E           DELAY1SEC EQU     %
     7077   01 0210E    02200000 A            LCI      0                 SAVE REGISTERS                  *A02
     7078   01 0210F    2B002ACC              STM,0    SAVE
     7079   01 02110    6C400045 A            RD,X4    MARGINS                 *
     7080   01 02111    21401000 A            CI,X4    X'1000'           ADJUST BDR COUNT IF SIGMA 9 MOD2    *B03
     7081   01 02112    68402115              BCR,4    %+3                                               *B03
     7082   01 02113    22400003 A            LI,X4    3                                                 *B03
     7083   01 02114    68002117              B        %+3                                               *B03
     7084   01 02115    2540006A A            SLS,X4   -22                    *
     7085   01 02116    4B402C7B              AND,X4   THREE
     7086   01 02117    32782C56              LW,X7    ONESECOND,X4      FIND APPROPRIATE VALUE
     7087   01 02118    1200211A              LD,R0    DELAY#DW          STUFF R0,X1
     7088   01 02119    68000000 A            B        R0                BEGIN DELAY
     7089                            *
     7090                                     BOUND    8
     7091   01 0211A    64700000 A   DELAY#DW BDR,X7   R0                DELAY INSTRUCTION
     7092   01 0211B    6800211C              B        %+1               RETURN INSTRUCTION
     7093                            *
     7094   01 0211C    6A6028A7              BAL,LINK SAVE%CLKS                                         *B00
     7095   01 0211D    8F0003AB              XPSD,0   *#SAMPLE          CHECK FOR USER KEYIN            *B00
     7096   01 0211E    6A6028D0              BAL,LINK RESTORE%CLKS                                      *B00
     7097                            *
     7098   01 0211F    02200000 A            LCI      0                 RESTORE REGISTERS               *A02
     7099   01 02120    2A002ACC              LM,0     SAVE
     7100   01 02121    E8000006 A            B        *LINK             RETURN
     7101                            *
     7102                                     TITLE    ;
     7103                             '                    ERROR REPORT SUBROUTINE (EROR)'                  *
     7104                            *
     7105                            *           E R R O R   P R I N T    S U B R O U T I N E
     7106                            ********************************************************
     7107                            *
     7108                            * ENTER WITH ERROR TYPE IN RC REGISTER
     7109                            *            RETURN ADDRESS IN THE LINK REGISTER
     7110                            *
     7111                            * THIS ROUTINE FINDS:
     7112                            *        THE TEST NUMBER IN 'TESTNO'
     7113                            *        THE PASS COUNT IN 'PASSCNT'
     7114                            *        THE ERROR COUNT IN 'ERORCNT'
     7115                            *        THE PATTERN NUMBER IN 'PATTNO'
     7116                            *        THE ERROR TYPE IN THE RC REGISTER
     7117                            *        THE INTERRUPT LOCATION IN 'LOCATION'
     7118                            *          OR THE TRAP LOCATION IN 'TRAPLOC'
     7119                            *******************************************************************
     7120                            * THIS ROUTINE CALCULATES:
     7121                            *        FIELDS 1 AND 2 OF THE ERROR LINE DEPENDENT ON ERROR TYPE
     7122                            *
     7123                            *  TYPE    FIELD     DESCRIPTION             LABELS USED
     7124                            *  ****    *****     ***********            **************
     7125                            *
     7126                            *   0X      1     HIGH PRI. ACTIVE INT.     ACTIVE
     7127                            *           2     LOCATION OF LAST INT.     LOCATION
     7128                            *           TCC  TRAP COND. CODES         CODES
     7129                            *           PSW1  STORED PSD WORD 1         RD
     7130                            *           PSW2             WORD 2         RE
     7131                            *
     7132                            *   1X      1     INT. COMMANDED STATE      GRP,LVL,LEVARMD,LEVTRIG,
     7133                            *                                           LEVENBL,LEVNINH
     7134                            *           2     PRESENT STATE OF INT. FF  GRP,LVL,READFF
     7135                            *
     7136                            *   2X      NONE
     7137                            *
     7138                            *   3X      NONE
     7139                            *   4X      1     EXPECTED TRAP INCREMENT   RD
     7140                            *           2     ACTUAL TRAP INCREMENT     'TRAPINCR'
     7141                            *
     7142                            *   5X      1     EXPECTED COUNT            EXPCOUNT
     7143                            *           2     ACTUAL COUNT              ACTCOUNT
     7144                            *
     7145                            *   6X      1     CONDITION CODES           CODES
     7146                            *           2     EXPECTED CONDITION CODES  TRAPECC
     7147                            *
     7148                            *   7X      1     EXPECTED TRAP ADDRESS     RD                      *A02
     7149                            *           2     TRAPPING INSTRUCTION      RE                      *A02
     7150                            *                  (HEX MACHINE CODE)
     7151                            *
     7152                            *   8X      1     EXP. PSD WORD             TRAPEPSD OR INTEPSD
     7153                            *           2     ACTUAL WORD               TRAPPSD OR PSDS AND LOCATION
     7154                            *
     7155                            *   9X      1     STARTING ADDRESS OF       RD
     7156                            *                   EXPECTED TABLE
     7157                            *           2     START ADDRESS OF ACTUAL   RE
     7158                            *                   TABLE
     7159                            *           3     SIZE OF TABLE             RF
     7160                            *           4     ADDRESS OF SAVED REGISTERS TRAPSAVE
     7161                            *
     7162                            *   AX      NONE
     7163                            *
     7164                            *   BX      1     EXPECTED STATE            RD
     7165                            *           2     PRESENT STATE             LOG
     7166                            *           3     COMMAND                   RB
     7167                            *                   B1 = WRITE DIRECT
     7168                            *                   B2 = LPSD,2 OR LPSD,3
     7169                            *                   B3 = PE INTERRUPT
     7170                            *           4     PREVIOUS STATE            RF
     7171                            *
     7172                            *   CX      NONE
     7173                            *
     7174                            *   DX      NONE
     7175                            *
     7176                            *   EX      1-4   BLANK
     7177                            *
     7178                            *   FX      1-4   BLANK
     7179                            *
     7180                            *******************************************************************
     7181                            * THIS ROUTINE STORES THE VALUES FOUND (IN EBCDIC) IN 'OUTBUF'
     7182                            *        READY FOR DISPLAY
     7183                            ********************************************************
     7184                            *
     7185                            *
     7186   01 02122    02200000 A   EROR     LCI      0                 SAVE REGISTERS
     7187   01 02123    2B002290              STM,0    SAVE#ERR
     7188   01 02124    6D000041 A            WD,0     X'41'             SET ALARM                       *A02
     7189   01 02125    33102A56              MTW,1    ERORCNT           INCREMENT ERROR COUNT
     7190   01 02126    33102A58              MTW,1    ERORTOTAL            AND TOTAL COUNT
     7191   01 02127    70200392              LC       #SENSE            IS ERROR MESSAGE INHIBITED
     7192   01 02128    6990227E              BCS,9    EROR#X1           EXIT IF YES                     *A02
     7193   01 02129    228FFFFD A            LI,R8    -3                SET UP FOR 4 EXPLANATIONS
     7194   01 0212A    B58003CE              STW,R8   *#ERRTEXT%           *  HDR EXPL. TO #ERRTEXT-3
     7195   01 0212B    32802B46              LW,R8    EXPL%1               *  TYPE EXPL. TO #ERRTEXT-2
     7196   01 0212C    227FFFFD A            LI,X7    -3
     7197   01 0212D    B58E03CE              STW,R8   *#ERRTEXT%,X7        *
     7198   01 0212E    3210000C A            LW,X1    RC                   *  FIELD   EXPL. TO #ERRTEXT-1
     7199   01 0212F    32822B56              LW,R8    EXPL%T#01-1,X1       *
     7200   01 02130    227FFFFE A            LI,X7    -2
     7201   01 02131    B58E03CE              STW,R8   *#ERRTEXT%,X7
     7202   01 02132    2510007C A            SLS,X1   -4                   *
     7203   01 02133    32822B47              LW,R8    EXPL%F#0,X1          *
     7204   01 02134    227FFFFF A            LI,X7    -1
     7205   01 02135    B58E03CE              STW,R8   *#ERRTEXT%,X7        *
     7206                            *
     7207   01 02136    6A602339              BAL,LINK INITBUF           INITIALIZE BUFFER
     7208   01 02137    32800393              LW,R8    #HDRFLG           FIND IF LAST MSG WAS ERROR
     7209   01 02138    2180C315              CI,R8    ERORHD#1
     7210   01 02139    68302142              BE       EROR#G            BRANCH IF YES
     7211   01 0213A    6A6028A7              #PRINT,1,1 ERORHD#1,C2     PRINT ERROR HEADER
            01 0213B    EA6003CD
            01 0213C    0160C315 A
            01 0213D    6A6028D0
     7212   01 0213E    6A6028A7              #PRINT   UPSPACE
            01 0213F    EA6003CD
            01 02140    C000B1C0 A
            01 02141    6A6028D0
     7213   01 02142    3280000C A   EROR#G   LW,R8    RC                FIND ERROR TYPE
     7214   01 02143    4B802C8E              AND,R8   XF0               MASK LEAST SIG. CHARACTER
     7215   01 02144    22900000 A            LI,R9    0                 SET INITIAL SEARCH VALUE
     7216   01 02145    22700010 A            LI,X7    16                SET LOOP COUNTER
     7217   01 02146    22100000 A            LI,X1    0                 SET COMMUTATOR INDEX
     7218   01 02147    31800009 A            CW,R8    R9                CHECK MOST SIG. CHARACTER
     7219   01 02148    6832214C              BE       ERORCOM,X1        SELECT PROPER FORMAT
     7220   01 02149    20900010 A            AI,R9    16                SET UP FOR NEW SEARCH
     7221   01 0214A    20100001 A            AI,X1    1
     7222   01 0214B    64702147              BDR,X7   %-4
     7223                            *
     7224   01 0214C    6800215C     ERORCOM   B       EROR#0            ERROR  TYPE COMMUTATOR
     7225   01 0214D    6800216E              B        EROR#1
     7226   01 0214E    6800219D              B        EROR#2
     7227   01 0214F    6800219E              B        EROR#3
     7228   01 02150    6800219F              B        EROR#4
     7229   01 02151    680021A6              B        EROR#5
     7230   01 02152    680021AD              B        EROR#6
     7231   01 02153    680021BC              B        EROR#7
     7232   01 02154    680021C3              B        EROR#8
     7233   01 02155    680021D9              B        EROR#9
     7234   01 02156    680021E7              B        EROR#A
     7235   01 02157    680021E8              B        EROR#B
     7236   01 02158    68002226              B        EROR#C
     7237   01 02159    6800222D              B        EROR#D
     7238   01 0215A    68002237              B        EROR#H
     7239   01 0215B    6800222E              B        EROR#F
     7240                            *
     7241   01 0215C    32802A43     EROR#0   LW,R8    ACTIVELVL         FIND ACTIVE INTERRUPT
     7242   01 0215D    69102162              BLZ      EROR#0A           BRANCH IF NO ACTIVE INTERRUPT
     7243   01 0215E    22105489              LI,X1    HA(ACTIVELOCN)+1  FIND ADDRESS
     7244   01 0215F    6A60239E              LOADHALF 3,35,STRIPZ       SET ACTIVE LOC'N AS FIELD 1
            01 02160    3460237F
     7245   01 02161    68002167              B        EROR#0B           BRANCH TO FIELD     2
     7246   01 02162    32802CD6     EROR#0A  LW,R8    ENONE             PICK UP EBCDIC 'NONE'
     7247   01 02163    3580239D              STW,R8   EBCBUF+3          SAVE
     7248   01 02164    22C00004 A            BUFFER   4,35,LOADBUF      SET FIELD 1
            01 02165    22D00023 A
            01 02166    6A60237B
     7249   01 02167    221054C5     EROR#0B  LI,X1    HA(LOCATION)+1    FIND ADDRESS
     7250   01 02168    6A60239E              LOADHALF 3,45,STRIPZ       SET LOCATION AS FIELD 2
            01 02169    35A0237F
     7251   01 0216A    22C00003 A            BUFFER   3,18,STRIPZ       SET LOCATION
            01 0216B    22D00012 A
            01 0216C    6A60237F
     7252                            *
     7253   01 0216D    6800223A              B        EROR#J            PICK UP OTHER FIELDS
     7254                            *
     7255                            *
     7256                            *  CALCULATE COMMANDED STATE AS FIELD 1
     7257                            *
     7258   01 0216E    22500003 A   EROR#1   LI,X5    3
     7259   01 0216F    328A2CB7              LW,R8    COMSTMSG-1,X5     LOAD A, T, E, I INTO OUTBUF
     7260   01 02170    358A239A              STW,R8   EBCBUF,X5
     7261   01 02171    6450216F              BDR,X5   %-2
     7262   01 02172    22C0000A A            BUFFER   10,35,LOADBUF               COL.45-54
            01 02173    22D00023 A
            01 02174    6A60237B
     7263   01 02175    228000D5 A            LI,R8    X'D5'             GET EBCDIC N
     7264   01 02176    3580239D              STW,R8   EBCBUF+3
     7265   01 02177    52842A96              LH,R8    LEVARMD,GRP       CHECK IF LEVEL WAS ARMED
     7266   01 02178    32962B36              LW,R9    LEVMASK,LVL       FIND LEVEL MASK
     7267   01 02179    4B800009 A            AND,R8   9
     7268   01 0217A    6930217E              BNEZ     %+4               YES,SKIP N
     7269   01 0217B    22C00001 A            BUFFER   1,25,LOADBUF      NO, LOAD N
            01 0217C    22D00019 A
            01 0217D    6A60237B
     7270   01 0217E    52842AA6              LH,R8    LEVTRIG,GRP
     7271   01 0217F    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS TRIG.
     7272   01 02180    69302184              BNEZ     %+4               YES, SKIP N
     7273   01 02181    22C00001 A            BUFFER   1,28,LOADBUF      NO, LOAD N
            01 02182    22D0001C A
            01 02183    6A60237B
     7274   01 02184    52842A9E              LH,R8    LEVENBL,GRP
     7275   01 02185    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS ENBLD.
     7276   01 02186    6930218A              BNEZ     %+4               YES, SKIP N
     7277   01 02187    22C00001 A            BUFFER   1,31,LOADBUF      NO, LOAD N
            01 02188    22D0001F A
            01 02189    6A60237B
     7278   01 0218A    52842AB6              LH,R8    LEVNINH,GRP
     7279   01 0218B    4B800009 A            AND,R8   9                 CHECK IF LEVL WAS INHIBITED
     7280   01 0218C    68302190              BEZ      %+4               YES, SKIP N
     7281   01 0218D    22C00001 A            BUFFER   1,34,LOADBUF      NO, LOAD N
            01 0218E    22D00022 A
            01 0218F    6A60237B
     7282                            *
     7283                            *  CALCULATE PRESENT STATE AS FIELD 2
     7284                            *
     7285         01 02190           EROR#1A  EQU      %
     7286   01 02190    32C02A62              LW,RC    LOCATION          LOAD GROUP/LEVEL NO.
     7287   01 02191    21C0005F A            CI,RC    X'5F'
     7288   01 02192    69202195              BG       %+3
     7289   01 02193    20CFFFAE A            AI,RC    -X'52'
     7290   01 02194    68002196              B        %+2
     7291   01 02195    20CFFFC0 A            AI,RC    -X'40'
     7292   01 02196    6A60279D              BAL,LINK READFF            READ FLIP FLOP STATES
     7293   01 02197    128C2CC0              LD,R8    EBC%STATE,LINK    FIND FF STATES IN EBCDIC
     7294   01 02198    1580239C              STD,R8   EBCBUF+2
     7295   01 02199    22C00008 A            BUFFER   8,45,LOADBUF      PUSH INTO OUTPUT MSG.
            01 0219A    22D0002D A
            01 0219B    6A60237B
     7296                            *
     7297   01 0219C    68002237              B        EROR#H            FIND OTHER FIELDS
     7298                            *
     7299                            *
     7300                            *
     7301   01 0219D    6A601D26     EROR#2   BAL,LINK ABORT             ILLEGAL ERROR TYPE
     7302   01 0219E    6A601D26     EROR#3   BAL,LINK ABORT             ILLEGAL ERROR TYPE
     7303                            *
     7304   01 0219F    22100037 A   EROR#4   LI,X1    RD**2+3           FIND ACTUAL INCREMENT IN REG. RD
     7305   01 021A0    6A6023A2              LOADBYTE 1,45,LOADBUF      SET INTO OUTBUF AS FIELD 2
            01 021A1    15A0237B
     7306   01 021A2    2210AA4B              LI,X1    BA(TRAPINCR)+3    FIND EXPECTED INCREMENT
     7307   01 021A3    6A6023A2              LOADBYTE 1,35,LOADBUF      SET INTO OUTBUF AS FIELD 1
            01 021A4    1460237B
     7308                            *
     7309   01 021A5    68002235              B        EROR#H1           PICK UP COMMON FIELDS
     7310                            *
     7311   01 021A6    2210548B     EROR#5   LI,X1    HA(ACTCOUNT)+1    FIND ACTUAL COUNT
     7312   01 021A7    6A60239E              LOADHALF 2,45,STRIPZ       SET INTO OUTBUF AS FIELD     2
            01 021A8    25A0237F
     7313   01 021A9    221054B3              LI,X1    HA(EXPCOUNT)+1    FIND EXPECTED COUNT
     7314   01 021AA    6A60239E              LOADHALF 2,35,STRIPZ       SET INTO OUTBUF AS FIELD     1
            01 021AB    2460237F
     7315                            *
     7316   01 021AC    68002237              B        EROR#H            PICK UP COMMON FIELDS
     7317                            *
     7318   01 021AD    72C02A48     EROR#6   LB,RC    CODES             FIND ACTUAL COND. CODES
     7319   01 021AE    25C0007C A            SLS,RC   -4
     7320   01 021AF    6A602994              BAL,LINK :BIN@EBC          CONVERT TO EBCDIC(BINARY FORMAT)
     7321   01 021B0    3560239D              STW,LINK EBCBUF+3
     7322   01 021B1    22C00004 A            BUFFER   4,45,LOADBUF      SET INTO OUTBUF AS FIELD     2
            01 021B2    22D0002D A
            01 021B3    6A60237B
     7323   01 021B4    72C02A8D              LB,RC    TRAPECC           FIND EXP. CONDITION CODES
     7324   01 021B5    25C0007C A            SLS,RC   -4
     7325   01 021B6    6A602994              BAL,LINK :BIN@EBC          CONVERT TO EBCDIC(BINARY FORMAT)
     7326   01 021B7    3560239D              STW,LINK EBCBUF+3
     7327   01 021B8    22C00004 A            BUFFER   4,35,LOADBUF      SET INTO OUTBUF AS FIELD 1
            01 021B9    22D00023 A
            01 021BA    6A60237B
     7328                            *
     7329   01 021BB    68002235              B        EROR#H1           FIND COMMON FIELDS
     7330                            *
     7331         01 021BC           EROR#7   EQU      %
     7332   01 021BC    2210000D A            LI,X1    RD                SET TRAPPING INSTR. AS FIELD 1
     7333   01 021BD    6A6023A8              LOADWORD 8,35,LOADBUF
            01 021BE    8460237B
     7334   01 021BF    2210000E A            LI,X1    RE                FIND ADDRESS OF EXP. TRAP
     7335   01 021C0    6A6023A8              LOADWORD 5,45,STRIPZ       SET IT INTO OUTBUF AS FIELD 2
            01 021C1    55A0237F
     7336                            *
     7337   01 021C2    68002235              B        EROR#H1           PICK UP COMMON FIELDS
     7338                            *
     7339   01 021C3    2270000F A   EROR#8   LI,X7    X'F'              FIND LS DIGIT OF 'TYPE'
     7340   01 021C4    4B70000C A            AND,X7   RC
     7341   01 021C5    21700002 A            CI,X7    2                 IS IT A INTERRUPT ERROR
     7342   01 021C6    692021CA              BG       EROR#8A           BRANCH IF YES
     7343   01 021C7    328E2A8D              LW,R8    TRAPEPSD-1,X7     FIND EXPECTED STORED WORD
     7344   01 021C8    329E1623              LW,R9    TRAPPSD-1,X7      FIND ACTUAL STORED WORD
     7345   01 021C9    680021D0              B        EROR#8B
     7346                            *
     7347   01 021CA    328E2A8D     EROR#8A  LW,R8    INTEPSD-3,X7      FIND EXPECTED STORED WORD
     7348   01 021CB    32102A62              LW,X1    LOCATION          FIND ACTUAL STORED WORD
     7349   01 021CC    25100002 A            SLS,X1   2
     7350   01 021CD    20103325              AI,X1    PSDS-3
     7351   01 021CE    30100007 A            AW,X1    X7
     7352   01 021CF    32920000 A            LW,R9    0,X1              PUT IT IN R9 TEMPORARILY
     7353   01 021D0    22100008 A   EROR#8B  LI,X1    R8                SET EXP. WORD INTO OUTBUF AS PARAM.
     7354   01 021D1    6A6023A8              LOADWORD 8,35,LOADBUF           NUMBER 1
            01 021D2    8460237B
     7355   01 021D3    22100009 A            LI,X1    R9                SET ACTUAL WORD INTO OUTBUF
     7356   01 021D4    6A6023A8              LOADWORD 8,45,LOADBUF           AS FIELD 2
            01 021D5    85A0237B
     7357                            *
     7358   01 021D6    21700003 A            CI,X7    3
     7359   01 021D7    69102235              BL       EROR#H1           PICK UP TRAP ERROR COMMON FIELDS
     7360   01 021D8    68002237              B        EROR#H            PICK UP INT. ERROR COMMON FIELDS
     7361                            *
     7362   01 021D9    2210000E A   EROR#9   LOADWORD,RE  5,45,STRIPZ   FIND ACTUAL ADDR. AS FIELD 2 PARAM
            01 021DA    6A6023A8
            01 021DB    55A0237F
     7363   01 021DC    2210000D A            LOADWORD,RD  5,35,STRIPZ   FIND EXP. ADDR. AS FIELD 1 PARAM
            01 021DD    6A6023A8
            01 021DE    5460237F
     7364   01 021DF    2210000F A            LOADWORD,RF   4,55,STRIPZ  FIND TABLE SIZE AS FIELD 3
            01 021E0    6A6023A8
            01 021E1    46E0237F
     7365   01 021E2    22801685              LI,R8    TRAPSAVE
     7366   01 021E3    22100008 A            LOADWORD,R8 5,65,LOADBUF   FIND REG. SAVE ADDRESS AS FIELD 4
            01 021E4    6A6023A8
            01 021E5    5820237B
     7367                            *
     7368   01 021E6    68002235              B        EROR#H1           PICK UP COMMON FIELDS
     7369                            *
     7370   01 021E7    6A601D26     EROR#A  BAL,LINK ABORT             ILLEGAL ERROR TYPE
     7371                            *
     7372   01 021E8    32C0000D A   EROR#B   LW,RC    RD                FIND EXPECTED STATE (FIELD 1)
     7373   01 021E9    6A602994              BAL,LINK  :BIN@EBC         CONVERT TO EBCDIC
     7374   01 021EA    3560239D              STW,LINK  EBCBUF+3
     7375   01 021EB    22C00003 A            BUFFER   3,35,LOADBUF      PUT EXPECTED STATE IN OUTBUFFER
            01 021EC    22D00023 A
            01 021ED    6A60237B
     7376   01 021EE    32C0000A A            LW,RC    LOG               FIND ACTUAL STATE (FIELD 2)
     7377   01 021EF    6A602994              BAL,LINK  :BIN@EBC         CONVERT TO EBCDIC
     7378   01 021F0    3560239D              STW,LINK  EBCBUF+3
     7379   01 021F1    22C00003 A            BUFFER   3,45,LOADBUF      PUT ACTUAL STATE IN OUTBUFFER
            01 021F2    22D0002D A
            01 021F3    6A60237B
     7380   01 021F4    32C0229C              LW,RC    SAVE#ERR+12
     7381   01 021F5    21C000B3 A            CI,RC    X'B3'
     7382   01 021F6    68302212              BE       EROR#B3
     7383   01 021F7    21C000B2 A            CI,RC    X'B2'
     7384   01 021F8    68302207              BE       EROR#B2
     7385   01 021F9    680021FA              B        EROR#B1
     7386                            *
     7387         01 021FA           EROR#B1  EQU      %
     7388   01 021FA    2210000B A            LOADWORD,RB   4,55,LOADBUF  SET WD COMMAND AS FIELD 3
            01 021FB    6A6023A8
            01 021FC    46E0237B
     7389   01 021FD    2280E6C4 A            LI,R8    'WD'
     7390   01 021FE    3580239D              STW,R8   EBCBUF+3
     7391   01 021FF    22C00002 A            BUFFER   2,50,LOADBUF
            01 02200    22D00032 A
            01 02201    6A60237B
     7392                            *
     7393   01 02202    32802A88              LW,R8    RETRY%FLAG        PUT * IN FIELD 3 IF THIS IS A RETRY
     7394   01 02203    69102219              BLZ      EROR#B#B
     7395   01 02204    2280005C A            LI,R8    '*'
     7396   01 02205    75803F10              STB,R8   OUTBUF+12                 *
     7397   01 02206    68002219              B        EROR#B#B
     7398                            *
     7399         01 02207           EROR#B2  EQU      %
     7400                            *
     7401   01 02207    3300229D              MTW,0    SAVE#ERR+X'D'
     7402   01 02208    6930220B              BNEZ     %+3
     7403   01 02209    12802220              LD,R8    EBC%LPSD2         SAY LPSD,2 WAS COMMAND
     7404   01 0220A    6800220C              B        %+2
     7405   01 0220B    12802222              LD,R8    EBC%LPSD3         SAY LPSD,3 WAS COMMAND
     7406   01 0220C    1580239C              STD,R8   EBCBUF+2
     7407   01 0220D    22C00008 A            BUFFER   8,55,LOADBUF
            01 0220E    22D00037 A
            01 0220F    6A60237B
     7408                            *
     7409   01 02210    22100005 A            LI,X1    5
     7410   01 02211    6800221A              B        EROR#B#B+1
     7411                            *
     7412         01 02212           EROR#B3  EQU      %
     7413                            *
     7414   01 02212    12802224              LD,R8    EBC%PE            COMMAND WAS ACTUAL PE INT
     7415   01 02213    1580239C              STD,R8   EBCBUF+2
     7416   01 02214    22C00008 A            BUFFER   8,55,LOADBUF
            01 02215    22D00037 A
            01 02216    6A60237B
     7417                            *
     7418   01 02217    22100002 A            LI,X1    2
     7419   01 02218    6800221A              B        %+2
     7420                            *
     7421   01 02219    32C0000F A   EROR#B#B LW,RC    RF                FIND PREVIOUS STATE
     7422   01 0221A    6A602994              BAL,LINK  :BIN@EBC         CONVERT TO EBCDIC
     7423   01 0221B    3560239D              STW,LINK  EBCBUF+3
     7424   01 0221C    22C00003 A            BUFFER   3,65,LOADBUF      PUT PREVIOUS STATE IN FIELD 4
            01 0221D    22D00041 A
            01 0221E    6A60237B
     7425   01 0221F    68002237              B        EROR#H
     7426                                     BOUND    8
     7427   01 02220    D3D7E2C4 A   EBC%LPSD2  TEXT    'LPSD,2  '
            01 02221    6BF24040 A
     7428   01 02222    D3D7E2C4 A   EBC%LPSD3  TEXT    'LPSD,3  '
            01 02223    6BF34040 A
     7429                            *
     7430   01 02224    D7C540C9 A   EBC%PE   TEXT     'PE INT.'
            01 02225    D5E34B40 A
     7431                            *
     7432                            *
     7433   01 02226    2210000E A   EROR#C   LOADWORD,RE  8,35,LOADBUF  EXPECTED TO FIELD 1
            01 02227    6A6023A8
            01 02228    8460237B
     7434   01 02229    2210000D A            LOADWORD,RD  8,45,LOADBUF  ACTUAL TO FIELD 2
            01 0222A    6A6023A8
            01 0222B    85A0237B
     7435   01 0222C    68002237              B            EROR#H
     7436                            *
     7437   01 0222D    6A601D26     EROR#D  BAL,LINK ABORT             ILLEGAL ERROR TYPE
     7438                            *
     7439                            *
     7440   01 0222E    21C000F1 A   EROR#F   CI,RC    X'F1'             IS IT ERROR TYPE 'F1'
     7441   01 0222F    69302237              BNE      EROR#H            BRANCH IF NO
     7442   01 02230    2210001C A            LI,X1    28
     7443   01 02231    72822CDD              LB,R8    SEQMSG,X1         MOVE IN SEQUENCE MESSAGE
     7444   01 02232    75823F0B              STB,R8   OUTBUF+7,X1
     7445   01 02233    64102231              BDR,X1   %-2
     7446                            *
     7447   01 02234    68002237              B        EROR#H            PICK UP COMMON FIELDS
     7448                            *
     7449                            *  ENTER HERE FOR COMMON TRAP ERROR ENTRIES
     7450                            *  (TEST NUMBER,SUBTEST NUMBER, ERROR COUNT, ERROR TYPE, PASS COUNT,
     7451                            *    AND LOCATION OF TRAP)
     7452                            *
     7453   01 02235    22105527     EROR#H1  LI,X1    HA(TRAPLOC)+1     FIND TRAP LOCATION
     7454   01 02236    68002238              B        %+2
     7455                            *
     7456                            *  ENTER HERE FOR COMMON INTERRUPT ERROR ENTRIES
     7457                            *
     7458   01 02237    221054C5     EROR#H   LI,X1    HA(LOCATION)+1    FIND ADDRESS
     7459   01 02238    6A60239E              LOADHALF 3,18,STRIPZ       SET LOCATION PARAMETER
            01 02239    3240237F
     7460   01 0223A    221007E5     EROR#J   LI,X1    HA(TESTNO)+1      FIND ADDRESS
     7461   01 0223B    6A60239E              LOADHALF 4,4,STRIPZ        SET TEST NUMBER PARAMETER
            01 0223C    4080237F
     7462   01 0223D    221003F3              LI,X1    PATTNO            FIND WORD ADDRESS
     7463   01 0223E    6A6023A8              LOADWORD 8,13,STRIPZ       SET PATTERN NUMBER PARAMETER
            01 0223F    81A0237F
     7464   01 02240    22108A73              LI,X1    BA(SAVE#ERR+RC)+3 FIND ERROR TYPE
     7465   01 02241    6A6023A2              LOADBYTE 2,22,LOADBUF      SET TYPE PARAMETER
            01 02242    22C0237B
     7466   01 02243    22100042 A            LI,X1    66                SET NUMBER OF CHARACTERS TO PRINT
     7467   01 02244    75103F04              STB,X1   OUTBUF
     7468   01 02245    32C0229C              LW,RC    SAVE#ERR+RC       FIND ERROR TYPE
     7469   01 02246    21C00002 A            CI,RC    2                 IS IT A SPURIOUS INT. OR TRAP
     7470   01 02247    6920225D              BG       EROR#K            BRANCH IF NO
     7471                            *
     7472   01 02248    6A6028A7              #PRINT   OUTBUF
            01 02249    EA6003CD
            01 0224A    C000FC10 A
            01 0224B    6A6028D0
     7473   01 0224C    6A601E69              SEND     SPUR%EROR
            01 0224D    0000C339 A
     7474   01 0224E    22802B0C              LI,R8    SAVE#4            FIND REGSAV ADDRESS
     7475   01 0224F    22100008 A            LOADWORD,R8  5,60,LOADBUF
            01 02250    6A6023A8
            01 02251    5780237B
     7476   01 02252    2210229D              LOADWORD,SAVE#ERR+RD 8,33,LOADBUF FIND STORED PSW1
            01 02253    6A6023A8
            01 02254    8420237B
     7477   01 02255    2210229E              LOADWORD,SAVE#ERR+RE 8,47,LOADBUF FIND STORED PSW2
            01 02256    6A6023A8
            01 02257    85E0237B
     7478   01 02258    32002A48              LW,R0    CODES             FIND STORED CONDITION CODE
     7479   01 02259    2500007C A            SLS,R0   -4
     7480   01 0225A    22100000 A            LI,X1    R0
     7481   01 0225B    6A6023A2              LOADBYTE 1,19,LOADBUF
            01 0225C    1260237B
     7482                            *
     7483                            *     DISPLAY THE ERROR
     7484                            *
     7485   01 0225D    6A6028A7     EROR#K   #PRINT   OUTBUF
            01 0225E    EA6003CD
            01 0225F    C000FC10 A
            01 02260    6A6028D0
     7486   01 02261    2280C315              LI,R8    ERORHD#1
     7487   01 02262    35800393              STW,R8   #HDRFLG           SET ERROR HEADER FLAG
     7488   01 02263    6800226A              B        EROR#X
     7489   01 02264    02200000 A   EROR#W   LCI      0
     7490   01 02265    2B002290              STM,0    SAVE#ERR
     7491   01 02266    33102A56              MTW,1    ERORCNT           INCREMENT ERROR COUNT
     7492   01 02267    33102A58              MTW,1    ERORTOTAL            AND TOTAL COUNT
     7493   01 02268    70200392              LC       #SENSE            IS ERROR MESSAGE INHIBITED
     7494   01 02269    6910227E              BCS,1    EROR#X1           EXIT IF YES                     *A02
     7495   01 0226A    70200392     EROR#X   LC       #SENSE            IS WAIT AFTER ERROR INHIBITED
     7496   01 0226B    6920227E              BCS,2    EROR#X1           BRANCH IF YES
     7497   01 0226C    6A6028A7     EROR#X2  #TYPE    UPSPACE
            01 0226D    EA6003CC
            01 0226E    0000B1C0 A
            01 0226F    6A6028D0
     7498   01 02270    6A6028A7              #TYPE,1,1 ERORHALT
            01 02271    EA6003CC
            01 02272    0160C32E A
            01 02273    6A6028D0
     7499   01 02274    02200000 A            LCI      0                 RESTORE REGISTERS
     7500   01 02275    2A002290              LM,0     SAVE#ERR
     7501   01 02276    6D000040 A            WD,0     X'40'             RESET THE ALARM                 *A02
     7502   01 02277    6A6028A7              BAL,LINK SAVE%CLKS                                         *A02
     7503   01 02278    8F9003CA              XPSD,9   *#RUNADDR%        TRANSFER TO GUIDE 'IDLE' STATE
     7504   01 02279    6A6028D0              BAL,LINK RESTORE%CLKS                                      *A02
     7505   01 0227A    226FFFFF A            LI,LINK  -1
     7506   01 0227B    35602A47              STW,LINK BY%RE%CHK         BYPASS RE-ENTRY CHECK IN NEXT ROUTINE
     7507   01 0227C    6A601D86              BAL,LINK CHK:LOOP          CHECK FOR SENSE SWITCH CHANGE
     7508                            *
     7509   01 0227D    0200227D              NOP      %
     7510   01 0227E    02200000 A   EROR#X1  LCI      0                 RESTORE REGISTERS
     7511   01 0227F    2A002290              LM,0     SAVE#ERR
     7512   01 02280    6D000040 A            WD,0     X'40'             RESET THE ALARM IF SET          *A02
     7513   01 02281    E8000006 A            B        *LINK             RETURN
     7514                            *
     7515                                     BOUND    64                                                *A01
     7516   01 02290                 SAVE#ERR RES      16                REGISTER SAVE AREA
     7517                            *
     7518                                     TITLE    ;
     7519                             '                     GENERATE ALL INTERRUPT PATTERN ROUTINE (GENALL)'
     7520                            *
     7521                            ***********************************************************
     7522                            * GENERATE A PATTERN TO SELECT ALL INTERRUPT LEVELS
     7523                            ************************************************************
     7524                            *
     7525                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7526                            *
     7527   01 022A0    02200000 A   GENALL   LCI      0                 SAVE REGISTERS
     7528   01 022A1    2B002ACC              STM,0    SAVE
     7529   01 022A2    22100008 A            LI,X1    8                 SET INDEX FOR 8 WORDS
     7530   01 022A3    32222ABD     GENAL#A  LW,X2    LEVIMPL-1,X1      FIND IMPLEMENTED LEVELS
     7531   01 022A4    35222A95              STW,X2   LEVARMD-1,X1      SET ARM AND DISABLE PATTERN
     7532   01 022A5    35222AA5              STW,X2   LEVTRIG-1,X1      SET TRIGGER PATTERN
     7533   01 022A6    35222A9D              STW,X2   LEVENBL-1,X1      SET ENABLE PATTERN
     7534   01 022A7    641022A3              BDR,X1   GENAL#A           LOOP IF NOT FINISHED
     7535   01 022A8    35102ACA              STW,X1   GRPINH            SET ZERO INHIBIT PATTERN
     7536   01 022A9    02200000 A            LCI      0                 RESTORE REGISTERS
     7537   01 022AA    2A002ACC              LM,0     SAVE
     7538   01 022AB    E8000006 A            B        *LINK             EXIT
     7539                            *
     7540                                     TITLE    ;
     7541                             '                    GENERATE FIXED PATTERN ROUTINE (GENFPAT)'        *
     7542                            *
     7543                            *
     7544                            * GENERATE FIXED PATTERN ROUTINE
     7545                            ******************************
     7546                            *
     7547                            * ENTER WITH  1. RETURN ADDRESS IN LINK REGISTER
     7548                            *             2. NUMBER OF LAST SUBTEST IN 'PATTNO'
     7549                            *
     7550                            * EXIT WITH  1.  SELECTED PATTERNS IN TABLES 'LEVARMD',
     7551                            *                 'LEVTRIG',  'LEVENBL', AND 'GRPINH'
     7552                            *            2.  'PATTNO' INCREMENTED BY 1
     7553                            *
     7554                            *
     7555   01 022AC    02200000 A   GENFPAT  LCI      0                 SAVE REGISTERS
     7556   01 022AD    2B002ACC              STM,0    SAVE
     7557   01 022AE    22200000 A            LI,X2    0
     7558   01 022AF    22700018 A            LI,X7    24                CLEAR PATTERN TABLES
     7559   01 022B0    352E2A95              STW,X2   LEVARMD-1,X7           STORE ZEROS
     7560   01 022B1    647022B0              BDR,X7   %-1
     7561   01 022B2    323003F3              LW,X3    PATTNO            FIND LAST PATTERN NO.
     7562   01 022B3    36202C7F              DW,X2    SEVEN             CALCULATE TABLE DISPLACEMENT
     7563   01 022B4    22400002 A            LI,X4    2                                                 *B00
     7564   01 022B5    52942C5A     GENFPAT#A LH,R9   PATTLIST,X2       FIND FIXED PATTERN              *B00
     7565   01 022B6    F02003D8              LC       *#COCSTATE%                                       *B00
     7566   01 022B7    68C022BB              BCR,12   %+4               BRANCH IF NO REMOTE TERM.       *B00
     7567   01 022B8    314003F8              CW,X4    COCGRP                                            *B00
     7568   01 022B9    693022BB              BNE      %+2                                               *B00
     7569   01 022BA    4B9003F9              AND,R9   COCMASK           DELETE COC LEVELS               *B00
     7570   01 022BB    55982A96              STH,R9   LEVARMD,X4        CREATE EXT. GROUP ARM PATTERNS  *B00
     7571   01 022BC    20400001 A            AI,X4    1                                                 *B00
     7572   01 022BD    2140000F A            CI,X4    15                                                *B00
     7573   01 022BE    682022B5              BLE      GENFPAT#A         LOOP UNTIL ALL GROUPS FILLED    *B00
     7574                            *
     7575   01 022BF    4B901453              AND,R9   NOTCNTR           DISARM COUNTERS
     7576   01 022C0    55902A96              STH,R9   LEVARMD           CREATE GROUP 0 PATTERN
     7577                            *
     7578   01 022C1    36202C7F              DW,X2    SEVEN             CALCULATE TABLE DISPLACEMENT
     7579   01 022C2    224FFFF2 A            LI,X4    -14               SET INDEX
     7580   01 022C3    52942C5A              LH,R9    PATTLIST,X2       FIND FIXED PATTERN
     7581   01 022C4    55982AAE              STH,R9   LEVTRIG+8,X4      CREATE EXTERNAL GROUP PATTERNS
     7582   01 022C5    654022C4              BIR,X4   %-1               BRANCH IF NOT GROUP 1
     7583   01 022C6    55902AA6              STH,R9   LEVTRIG           CREATE GROUP 0 PATTERN
     7584                            *
     7585   01 022C7    36202C7F              DW,X2    SEVEN             CALCULATE TABLE DISPLACEMENT
     7586   01 022C8    224FFFF2 A            LI,X4    -14               SET INDEX
     7587   01 022C9    52942C5A              LH,R9    PATTLIST,X2       FIND FIXED PATTERN
     7588   01 022CA    55982AA6              STH,R9   LEVENBL+8,X4      CREATE EXTERNAL GROUP PATTERNS
     7589   01 022CB    654022CA              BIR,X4   %-1               BRANCH IF NOT GROUP 1
     7590   01 022CC    55902A9E              STH,R9   LEVENBL           CREATE GROUP 0 PATTERN
     7591                            *
     7592   01 022CD    4B302C7F              AND,X3   SEVEN
     7593   01 022CE    35302ACA              STW,X3   GRPINH            CREATE INHIBIT PATTERN
     7594   01 022CF    331003F3              MTW,1    PATTNO            INCREMENT PATTERN NUMBER BY 1
     7595   01 022D0    02200000 A            LCI      0                 RESTORE REGISTERS
     7596   01 022D1    2A002ACC              LM,0     SAVE
     7597   01 022D2    E8000006 A            B        *LINK             EXIT
     7598                            *
     7599                                     TITLE    ;
     7600                             '                    GENERATE RANDOM PATTERN ROUTINE (GENRPAT)'       *
     7601                            *
     7602                            * GENERATE RANDOM PATTERN ROUTINE
     7603                            ***********************************
     7604                            *
     7605                            *ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7606                            *           PATTERN OF GROUPS IMPLEMENTED IN 'GRPIMPL'
     7607                            *           PATTERNS PER GENERATION IN 'RPATTCNT'
     7608                            *
     7609                            *EXIT WITH RANDOM PATTERNS STORED FOR EACH IMPLEMENTED GROUP
     7610                            *           ( 'LEVARMD' THRU 'LEVENBL'+8 )
     7611                            *
     7612   01 022D3    02200000 A   GENRPAT  LCI      0                 SAVE REGISTERS
     7613   01 022D4    2B002ADC              STM,0    SAVE#1
     7614   01 022D5    329003F3              LW,R9    PATTNO            FIND REQUESTED PATTERN -1
     7615   01 022D6    31902305              CW,R9    RPATTNO           COMPARE WITH LAST RANDOM PATTERN
     7616   01 022D7    693022F0              BNE      GENRPATC          BRANCH IF NOT NEXT PATTERN
     7617   01 022D8    33102305     GENRPATA MTW,1    RPATTNO           UPDATE RANDOM PATTERN NO.
     7618   01 022D9    331003F3              MTW,1    PATTNO            UPDATE PATTERN NO.
     7619   01 022DA    32902AC9              LW,R9    GRPIMPL           FIND GROUPS IMPLEMENTED
     7620   01 022DB    22100000 A            LI,X1    0                 SET INDEX FOR GROUP 0
     7621   01 022DC    22700018 A            LI,X7    24                CLEAR PATTERN TABLES
     7622   01 022DD    351E2A95              STW,X1   LEVARMD-1,X7           STORE ZEROS
     7623   01 022DE    647022DD              BDR,X7   %-1
     7624   01 022DF    6A6029D0     GENRPATB BAL,LINK :RANDMX           GET TWO PATTERNS
     7625   01 022E0    F02003D8              LC       *#COCSTATE%                                       *B00
     7626   01 022E1    68C022E5              BCR,12   %+4               BRANCH IF NO REMOTE TERM.       *B00
     7627   01 022E2    311003F8              CW,X1    COCGRP                                            *B00
     7628   01 022E3    693022E5              BNE      %+2               BRANCH IF NOT COC EXT. GROUP    *B00
     7629   01 022E4    4BE003F9              AND,RE   COCMASK           DELETE COC INT. LEVELS          *B00
     7630   01 022E5    55E22A96              STH,RE   LEVARMD,X1        STORE ARM AND DISABLE PATTERN
     7631   01 022E6    25E00070 A            SLS,RE   -16               SELECT NEXT PATTERN
     7632   01 022E7    55E22AA6              STH,RE   LEVTRIG,X1        STORE TRIGGER PATTERN
     7633   01 022E8    6A6029D0              BAL,LINK :RANDMX           GET PATTERN
     7634   01 022E9    55E22A9E              STH,RE   LEVENBL,X1        STORE ENABLE PATTERN
     7635   01 022EA    25900001 A            SLS,R9   1                 CHECK FOR NEXT GROUP IMPLEMENTED
     7636   01 022EB    20100001 A            AI,X1    1                 INCREMENT GROUP INDEX
     7637   01 022EC    4B902CB5              AND,R9   YFFFF             SET CONDITION CODE
     7638   01 022ED    683022FC              BCR,3    GENRPATX          EXIT IF ALL GROUPS SERVICED     *B00
     7639   01 022EE    681022EA              BCR,1    %-4               SKIP IF GROUP NOT IMPLEMENTED
     7640   01 022EF    680022DF              B        GENRPATB          GENERATE PATTERNS FOR GROUP
     7641                            *
     7642                            * DETERMINE THE COUNTS IN :M1,:M2, AND :SEED IF THIS PATTERN
     7643                            *           NUMBER HAD BEEN REACHED SEQUENTIALLY
     7644                            *
     7645   01 022F0    32702306     GENRPATC LW,X7    RPATTCNT          FIND GROUPS IMPL.TIMES 2
     7646   01 022F1    377003F3              MW,X7    PATTNO            CALCULATE RANDOM NUMBERS TO
     7647                            *                                   BE GENERATED
     7648   01 022F2    12C02302              LD,RC    M1VALUE           INITIALIZE RANDOM COUNTERS
     7649   01 022F3    15C029DA              STD,RC   :M1
     7650   01 022F4    32E02304              LW,RE    SEED              INITIALIZE SEED
     7651   01 022F5    35E029DC              STW,RE   :SEED
     7652   01 022F6    35902305              STW,R9   RPATTNO           UPDATE RANDOM PATTERN NO.
     7653   01 022F7    20700001 A            AI,X7    1                 CHECK IF FINISHED
     7654   01 022F8    647022FA              BDR,X7   %+2               NO, GET A NUMBER
     7655   01 022F9    680022D8              B        GENRPATA          YES, FIND REQUESTED PATTERN
     7656   01 022FA    6A6029D0              BAL,LINK :RANDMX           FIND NEXT NUMBER
     7657   01 022FB    680022F8              B        %-3               CHECK AGAIN
     7658                            *
     7659   01 022FC    52802A96     GENRPATX LH,R8    LEVARMD           DISARM COUNTERS
     7660   01 022FD    4B801453              AND,R8   NOTCNTR                   *
     7661   01 022FE    55802A96              STH,R8   LEVARMD                   *
     7662   01 022FF    02200000 A            LCI      0                 RESTORE REGISTERS
     7663   01 02300    2A002ADC              LM,0     SAVE#1
     7664   01 02301    E8000006 A            B        *LINK             EXIT
     7665                            *
     7666                            *
     7667                                     BOUND    8
     7668   01 02302    12B9B0A1 A   M1VALUE  DATA     314159265         PRESET :M1 VALUE
     7669   01 02303    1033C4D7 A            DATA     271828183         PRESET :M2 VALUE
     7670   01 02304    544B2FBA A   SEED     DATA     1414213562        PRESET :SEED VALUE
     7671   01 02305    00000000 A   RPATTNO  DATA     0                 CURRENT RANDOM PATTERN NO.
     7672   01 02306    00000000 A   RPATTCNT DATA     0                 NUMBER OF IMPL. GROUPS TIMES 2
     7673                            *
     7674                            *
     7675                             TITLE    ' CONVERT IMPLEMENTED LEVEL PATTERNS TO EBCDIC  (IMP@EBC)'
     7676                            *
     7677                            *
     7678                            *************************************************************
     7679                            * CONVERT IMPLEMENTED PATTERNS TO EBCDIC ROUTINE
     7680                            *************************************************************
     7681                            *
     7682                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7683                            *
     7684                            *  EXIT WITH PATTERNS FROM 'LEVIMPL' TABLE CONVERTED TO EBCDIC
     7685                            *            AND STORED IN THE 'I' PARAMETER LINES, READY FOR DISPLAY
     7686                            *
     7687                            *
     7688   01 02307    02200000 A   IMP@EBC  LCI      0                 SAVE REGISTERS
     7689   01 02308    2B002ADC              STM,0    SAVE#1
     7690   01 02309    22100000 A            LI,X1    0                 SET LOCATION INDEX
     7691   01 0230A    22700005 A            LI,X7    5                 SET COUNTER FOR 5 LOOPS
     7692   01 0230B    22400000 A            LI,X4    0                 SET STORE INDEX
     7693   01 0230C    52C22ABE     IMP@E#A  LH,RC    LEVIMPL,X1        FIND IMPLEMENTED PATTERN
     7694   01 0230D    6A60299E              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     7695   01 0230E    3568241A              STW,LINK PLINE#I0+2,X4     SAVE IT
     7696   01 0230F    21100000 A            CI,X1    0                 WAS THIS GROUP 0
     7697   01 02310    69302312              BNE      %+2               BRANCH IF NO
     7698   01 02311    20100001 A            AI,X1    1                 BYPASS NONEXIST.GRP. #1
     7699   01 02312    20100001 A            AI,X1    1                 INCREMENT GROUP COUNT
     7700   01 02313    20400002 A            AI,X4    2                 INDEX TO NEXT STORE LOCATION
     7701   01 02314    6470230C              BDR,X7   IMP@E#A           LOOP IF NOT END OF PARAMETER LINE
     7702   01 02315    21100010 A            CI,X1    16                LAST LINE FINISHED
     7703   01 02316    6810231A              BGE      IMP@E#X           EXIT IF YES
     7704   01 02317    20400001 A            AI,X4    1                 INDEX TO NEXT STORE LOCATION
     7705   01 02318    22700005 A            LI,X7    5                 SET COUNTER FOR 5 LOOPS
     7706   01 02319    6800230C              B        IMP@E#A           SERVICE NEXT 5 GROUPS
     7707                            *
     7708   01 0231A    02200000 A   IMP@E#X  LCI      0                 RESTORE REGISTERS
     7709   01 0231B    2A002ADC              LM,0     SAVE#1
     7710   01 0231C    E8000006 A            B        *LINK             RETURN
     7711                            *
     7712                                  TITLE    ' CONVERT IMPLEMENTED LEVEL PATTERNS TO HEX  (IMP@HEX)'
     7713                            *
     7714                            *
     7715                            *
     7716                            *************************************************************
     7717                            * CONVERT IMPLEMENTED PATTERNS TO HEXADECIMAL ROUTINE
     7718                            *************************************************************
     7719                            *
     7720                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7721                            *
     7722                            *  EXIT WITH PATTERNS FROM PARAMETER I LINES CONVERTED TO HEX.
     7723                            *            AND STORED IN 'LEVIMPL' PATTERN TABLE READY FOR DISPLAY
     7724                            *
     7725                            *
     7726   01 0231D    02200000 A   IMP@HEX  LCI      0                 SAVE REGISTERS
     7727   01 0231E    2B002ADC              STM,0    SAVE#1
     7728   01 0231F    22100000 A            LI,X1    0                 SET LOCATION INDEX
     7729   01 02320    22700005 A            LI,X7    5                 SET COUNTER FOR 5 LOOPS
     7730   01 02321    22400000 A            LI,X4    0                 SET STORE INDEX
     7731   01 02322    22A00000 A            LI,LOG   0
     7732   01 02323    3288241A     IMP@H#A  LW,R8    PLINE#I0+2,X4     FIND IMPLEMENTED PATTERN
     7733   01 02324    EA6003C2              #ETHCON,4 R8               CONVERT PATTERN TO HEX
            01 02325    04000020 A
     7734   01 02326    55622ABE              STH,LINK LEVIMPL,X1        SAVE IT
     7735   01 02327    21600000 A            CI,LINK  0                 SET GROUP AS IMPL. IF IT IS
     7736   01 02328    6830232A              BE       %+2
     7737   01 02329    49A22B36              OR,LOG   LEVMASK,X1
     7738   01 0232A    21100000 A            CI,X1    0                 WAS THIS GROUP 0
     7739   01 0232B    6930232D              BNE      %+2               BRANCH IF NO
     7740   01 0232C    20100001 A            AI,X1    1                 BYPASS NONEXIST.GRP. #1
     7741   01 0232D    20100001 A            AI,X1    1                 INCREMENT GROUP COUNT
     7742   01 0232E    20400002 A            AI,X4    2                 INDEX TO NEXT STORE LOCATION
     7743   01 0232F    64702323              BDR,X7   IMP@H#A           LOOP IF NOT END OF PARAMETER LINE
     7744   01 02330    21100010 A            CI,X1    16                LAST LINE FINISHED
     7745   01 02331    68102335              BGE      IMP@H#X           EXIT IF YES
     7746   01 02332    20400001 A            AI,X4    1                 INDEX TO NEXT STORE LOCATION
     7747   01 02333    22700005 A            LI,X7    5                 SET COUNTER FOR 5 LOOPS
     7748   01 02334    68002323              B        IMP@H#A           SERVICE NEXT 5 GROUPS
     7749                            *
     7750   01 02335    55A02AC9     IMP@H#X  STH,LOG  GRPIMPL           LOAD 'GRPIMPL'
     7751   01 02336    02200000 A            LCI      0                 RESTORE REGISTERS
     7752   01 02337    2A002ADC              LM,0     SAVE#1
     7753   01 02338    E8000006 A            B        *LINK             RETURN
     7754                            *
     7755                                     TITLE    ;
     7756                             '                    INITIALIZE OUTPUT BUFFER ROUTINE (INITBUF)'      *
     7757                            *
     7758                            *
     7759                            *
     7760                            *
     7761                            *
     7762                            * INITIALIZE OUTPUT BUFFER ROUTINE
     7763                            **********************************
     7764                            *
     7765                            *
     7766   01 02339    02200000 A   INITBUF  LCI      0                 SAVE REGISTERS
     7767   01 0233A    2B002ACC              STM,0    SAVE
     7768   01 0233B    22100011 A            LI,X1    17
     7769   01 0233C    32802E24              LW,R8    EBCBLNKS
     7770   01 0233D    35823F04              STW,R8   OUTBUF,X1         STORE WORD OF EBC BLANKS
     7771   01 0233E    6410233D              BDR,X1   %-1               LOOP IF NOT LAST WORD
     7772   01 0233F    32802347              LW,R8    BUFWD#1           SET UP FOR 72 CHARACTER OUTPUT
     7773   01 02340    35803F04              STW,R8   OUTBUF
     7774   01 02341    32102ACC              LW,X1    SAVE              RESTORE INDEX
     7775   01 02342    02200000 A            LCI      0                 RESTORE REGISTERS
     7776   01 02343    2A002ACC              LM,0     SAVE
     7777   01 02344    E8000006 A            B        *LINK             EXIT
     7778                            *
     7779                            *
     7780                                     BOUND    8
     7781   01 02346    00000000 A   OUTBUFP  DATA     0                 OUTPUT BUFFER POINTER
     7782   01 02347    47404040 A   BUFWD#1  DATA     X'47404040'       FIRST WORD OF OUTBUF
     7783                            *
     7784                                     TITLE    ;
     7785                             '                    INITIALIZE HISTORY TABLE SUBROUTINE'
     7786                            *
     7787                            *
     7788                            *
     7789                            * INITIALIZE HISTORY TABLE SUBROUTINE
     7790                            *****************************************
     7791                            *
     7792                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7793                            *
     7794                            *
     7795   01 02348    02200000 A   INITHIST LCI      0                 SAVE REGISTERS
     7796   01 02349    2B002ACC              STM,0    SAVE
     7797   01 0234A    22800000 A            LI,R8    0                 STORE ZEROS IN FIRST WORDS
     7798   01 0234B    221001DC A            LI,X1    476               SET INDEX
     7799   01 0234C    35823D26              STW,R8   HISTORY-2,X1
     7800   01 0234D    201FFFFF A            AI,X1    -1                CHECK IF FINISHED
     7801   01 0234E    6410234C              BDR,X1   %-2               LOOP IF NO
     7802   01 0234F    35802A89              STW,R8   SEQCNT            INITIALIZE SEQUENCE COUNTS
     7803   01 02350    35802A5A              STW,R8   EXPSEQCT
     7804   01 02351    2280FC58              LI,R8    BA(ILEGAL)
     7805   01 02352    35801172              STW,R8   ILEGALP           RESET POINTER
     7806   01 02353    02200000 A            LCI      0                 RESTORE REGISTERS
     7807   01 02354    2A002ACC              LM,0     SAVE
     7808   01 02355    E8000006 A            B        *LINK             EXIT IF FINISHED
     7809                            *
     7810                            *
     7811                            *
     7812                                     TITLE    '                    INITIALIZE TABLES (INITTAB)'
     7813                            *
     7814                            *  THIS ROUTINE ZEROS OUT THE CONTENTS OF THE LEVARMD,LEVENBL,
     7815                            *        LEVTRIG,LEVEXP, AND LEVNINH TABLES
     7816                            *
     7817   01 02356                 INITTAB  RES      0
     7818   01 02356    02200020 A            LCI      2
     7819   01 02357    2B002ACC              STM,0    SAVE
     7820   01 02358    22000000 A            LI,R0    0
     7821   01 02359    22100028 A            LI,X1    40
     7822   01 0235A    35022A95              STW,R0   LEVARMD-1,X1
     7823   01 0235B    6410235A              BDR,X1   %-1
     7824   01 0235C    02200020 A            LCI      2
     7825   01 0235D    2A002ACC              LM,0     SAVE
     7826   01 0235E    680C0000 A            B        0,LINK
     7827                            *
     7828                            *
     7829                            *
     7830                            *
     7831                                     TITLE    ;
     7832                             '                    INITIALIZE PSD TABLE (INITPSD)'                  *
     7833                            *
     7834                            *
     7835                            *      INITIALIZE PROGRAM STATUS DOUBLEWORD TABLE
     7836                            *
     7837                            *  ENTER WITH RETURN ADDRESS IN THE LINK REGISTER
     7838                            *
     7839                            *  EXIT WITH EACH STORED PSD LOCATION SET TO ZERO
     7840                            *
     7841                            *
     7842   01 0235F    02200000 A   INITPSD  LCI      0                 SAVE REGISTERS
     7843   01 02360    2B002ACC              STM,0    SAVE
     7844   01 02361    68002362              B        %+1                                               *A02
     7845                            *                                                                   *A02
     7846   01 02362    22702A08              LI,X7    TABLE3+3                                          *A02
     7847   01 02363    32802A42              LW,R8    OVERLAY%EXPL                                      *A02
     7848   01 02364    358E0000 A            STW,R8   0,X7              CHANGE TABLE 3 EXPL. POINTER    *A02
     7849   01 02365    20700004 A            AI,X7    4                        AND CONTINUE             *A02
     7850   01 02366    21702A30              CI,X7    OVERLAY           UNTIL LABEL 'OVERLAY' IS REACHED*A02
     7851   01 02367    68202364              BLE      %-3                                               *A02
     7852   01 02368    32802361              LW,R8    INITPSD+2                                         *A02
     7853   01 02369    20800009 A            AI,R8    9                                                 *A02
     7854   01 0236A    35802361              STW,R8   INITPSD+2                                         *A02
     7855                            *                                                                   *A02
     7856   01 0236B    22700000 A            LI,X7    0                 SET INDEX TO START OF TABLE
     7857   01 0236C    22400200 A            LI,X4    512               SET COUNTER FOR 512 QUAD WORDS
     7858   01 0236D    22500000 A            LI,X5    0
     7859   01 0236E    22800000 A   INITP#A  LI,R8    0
     7860   01 0236F    22900007 A            LI,R9    7                                                 *A02
     7861   01 02370    25900018 A            SLS,R9   24                SET ALL INHIBITS                *A02
     7862   01 02371    158E3328              STD,R8   PSDS,X7           STORE ZEROS IN FIRST DOUBLEWORD
     7863   01 02372    22803B28              LI,R8    ACCESS            POINT PSD TO ACCESS TABLE
     7864   01 02373    30800005 A            AW,R8    X5
     7865   01 02374    158E332A              STD,R8   PSDS+2,X7
     7866   01 02375    20700002 A            AI,X7    2                 INCREMENT INDEX TO NEXT QUAD WORD
     7867   01 02376    20500001 A            AI,X5    1
     7868   01 02377    6440236E              BDR,X4   INITP#A           LOOP IF NOT THRU
     7869                            *
     7870   01 02378    02200000 A            LCI      0                 RESTORE REGISTERS
     7871   01 02379    2B002ACC              STM,0    SAVE
     7872   01 0237A    E8000006 A            B        *LINK             RETURN
     7873                            *
     7874                                     TITLE    ;
     7875                             '                    LOAD BUFFER ROUTINE (LOADBUF OR STRIPZ)'         *
     7876                            *
     7877                            *
     7878                            *    L O A D  B U F F E R   R O U T I N E
     7879                            *****************************************
     7880                            *
     7881                            * ENTER WITH  NUMBER OF CHARACTERS (16 MAX) IN RC REGISTER
     7882                            *            POSITION (1 TO 72) OF LEAST SIG.CHAR. IN RD REG.
     7883                            *            RETURN ADDRESS IN LINK REGISTER
     7884                            *            EBCDIC MESSAGE IN 'EBCBUF'
     7885                            *
     7886                            * ENTER AT LOADBUF FOR FULL PRINTOUT
     7887                            *          AT STRIPZ FOR PRINTOUT OF SIGNIFICANT CHARACTERS ONLY
     7888                            *
     7889                            *
     7890                            *
     7891                            * EXIT WITH MESSAGE STORED IN 'OUTBUF' AS PER POSITION SPECIFIED
     7892                            *           BY NUMBER IN RD REGISTER
     7893                            *
     7894                            *
     7895                            * ALL INDEX REGISTERS SAVED
     7896                            *
     7897                            *
     7898                            *
     7899                            *
     7900   01 0237B    02200000 A   LOADBUF  LCI      0                 SAVE REGISTERS
     7901   01 0237C    2B002ACC              STM,0    SAVE
     7902   01 0237D    3270000C A            LW,X7    RC                GET NO. OF CHARACTERS
     7903   01 0237E    6800238E              B        LOADBUFA
     7904                            *
     7905   01 0237F    02200000 A   STRIPZ   LCI      0                 SAVE REGISTERS
     7906   01 02380    2B002ACC              STM,0    SAVE
     7907   01 02381    3270000C A            LW,X7    RC                SET LOOP INDEX
     7908   01 02382    22100010 A            LI,X1    16                COMPUTE LOCATION INDEX
     7909   01 02383    3810000C A            SW,X1    RC
     7910   01 02384    7282239A     STRIPZ#A LB,R8    EBCBUF,X1         FIND MOST SIG. CHARACTER
     7911   01 02385    218000F0 A            CI,R8    X'F0'
     7912   01 02386    6930238E              BNEZ     LOADBUFA          CONTINUE IF NOT ZERO
     7913   01 02387    20100001 A            AI,X1    1
     7914   01 02388    64702384              BDR,X7   STRIPZ#A          LOOP IF IT IS ZERO
     7915   01 02389    228000F0 A            LI,R8    X'F0'             LOAD ONE EBCDIC ZERO
     7916   01 0238A    2240FC10              LI,X4    BA(OUTBUF)
     7917   01 0238B    3040000D A            AW,X4    RD
     7918   01 0238C    75880000 A            STB,R8   0,X4
     7919   01 0238D    68002396              B        LOADBUFX          EXIT IF ALL ZEROS
     7920                            *
     7921   01 0238E    2240FC10     LOADBUFA LI,X4    BA(OUTBUF)        COMPUTE BYTE ADDRESS
     7922   01 0238F    3040000D A            AW,X4    RD
     7923   01 02390    2210000F A            LI,X1    15                SET FIND INDEX
     7924   01 02391    7282239A     LOADBUFB LB,R8    EBCBUF,X1         FIND CHARACTER
     7925   01 02392    75880000 A            STB,R8   0,X4              STORE CHARACTER
     7926   01 02393    204FFFFF A            AI,X4    -1                DECREMENT STORAGE LOC.
     7927   01 02394    201FFFFF A            AI,X1    -1                SELECT NEXT CHARACTER
     7928   01 02395    64702391              BDR,X7   LOADBUFB          BRANCH IF  NOT FINISHED
     7929   01 02396    02200000 A   LOADBUFX LCI      0                 RESTORE REGISTERS
     7930   01 02397    2A002ACC              LM,0     SAVE
     7931   01 02398    E8000006 A            B        *LINK             EXIT
     7932                            *
     7933                            *
     7934                                     BOUND    8
     7935   01 0239A                 EBCBUF   RES      4                 CHARACTERS TO BE STORED
     7936                            *
     7937                                     TITLE    ;
     7938                             '                    LOAD WORD/HALFWORD/BYTE ROUTINE'
     7939                            *
     7940                            *  THESE ROUTINES LOAD HEX CHARACTERS FROM THE LOCATION SPECIFIED
     7941                            *        IN REGISTER X1, CONVERT THEM TO EBCDIC, AND LOAD THEM
     7942                            *        INTO THE OUTPUT BUFFER WITH THE LEAST SIG. CHAR. IN
     7943                            *        THE POSITION SPECIFIED BY BITS 4-10 OF THE NUMBER IN THE
     7944                            *        ADDRESS SPECIFIED BY THE LINK REG.  THE NUMBER OF CHARACTERS
     7945                            *        LOADED IS IN BITS 0-3.  THE LOADING SUBROUTINE ADDRESS IS IN
     7946                            *        BITS 11-31.
     7947                            *
     7948   01 0239E    02200000 A   LOADH    LCI      0                 SAVE REGISTERS
     7949   01 0239F    2B002ADC              STM,0    SAVE#1
     7950   01 023A0    52C20000 A            LH,RC    0,X1              HEX CHARACTERS TO REG. RC
     7951   01 023A1    680023A5              B        %+4
     7952   01 023A2    02200000 A   LOADB    LCI      0                 SAVE REGISTERS
     7953   01 023A3    2B002ADC              STM,0    SAVE#1
     7954   01 023A4    72C20000 A            LB,RC    0,X1
     7955   01 023A5    6A60299E              BAL,LINK  :HEX@EBC         CONVERT TO EBCDIC
     7956   01 023A6    3560239D              STW,LINK EBCBUF+3
     7957   01 023A7    680023AF              B        LOADW#A
     7958                            *
     7959   01 023A8    02200000 A   LOADW    LCI      0                 SAVE REGISTERS
     7960   01 023A9    2B002ADC              STM,0    SAVE#1
     7961   01 023AA    32C20000 A            LW,RC    0,X1              LOAD HEX CHARACTERS
     7962   01 023AB    6A60299E              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     7963   01 023AC    3560239D              STW,LINK EBCBUF+3          SAVE LEAST SIG. HALFWORD
     7964   01 023AD    6A60299E              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     7965   01 023AE    3560239C              STW,LINK EBCBUF+2          SAVE M.S. HALFWORD
     7966   01 023AF    22C00000 A   LOADW#A  LI,RC    0
     7967   01 023B0    B2D02AE2              LW,RD    *SAVE#1+LINK      FIND CONTENTS OF BAL+1
     7968   01 023B1    25C00104 A            SLD,RC   4                 # OF CHAR. INTO RC
     7969   01 023B2    25D00067 A            SLS,RD   -25               LOCATION IN BUFFER INTO RD
     7970   01 023B3    B2802AE2              LW,R8     *SAVE#1+LINK     GO TO SUBROUTINE CALLED BY PROC.
     7971   01 023B4    EA600008 A            BAL,LINK *8
     7972   01 023B5    02200000 A            LCI      0
     7973   01 023B6    2A002ADC              LM,0     SAVE#1            RESTORE REGISTERS
     7974   01 023B7    680C0001 A            B        1,LINK            RETURN TO BAL+2
     7975                                     TITLE    ;
     7976                             '                    PARAMETER LINE I'
     7977                            *************************************
     7978                            *  PARAMETER LINE I ROUTINE         *
     7979                            *************************************
     7980                            *
     7981   01 023B8    000090B8              DATA     BA(PLINE#IB)              IF
     7982   01 023B9    0160C3E0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7983   01 023BA    000090B8              DATA     BA(PLINE#IB)              IE
     7984   01 023BB    0160C3E0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7985   01 023BC    000090B8              DATA     BA(PLINE#IB)              ID
     7986   01 023BD    0160C3E0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7987   01 023BE    000090B8              DATA     BA(PLINE#IB)              IC
     7988   01 023BF    0160C3E0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7989   01 023C0    000090B8              DATA     BA(PLINE#IB)              IB
     7990   01 023C1    0160C3E0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7991   01 023C2    0000908C              DATA     BA(PLINE#I6)              IA
     7992   01 023C3    0160C3D3 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7993   01 023C4    0000908C              DATA     BA(PLINE#I6)              I9
     7994   01 023C5    0160C3D3 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7995   01 023C6    0000908C              DATA     BA(PLINE#I6)              I8
     7996   01 023C7    0160C3D3 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7997   01 023C8    0000908C              DATA     BA(PLINE#I6)              I7
     7998   01 023C9    0160C3D3 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7999   01 023CA    0000908C              DATA     BA(PLINE#I6)              I6
     8000   01 023CB    0160C3D3 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     8001   01 023CC    00009060              DATA     BA(PLINE#I0)              I5
     8002   01 023CD    0160C3C6 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     8003   01 023CE    00009060              DATA     BA(PLINE#I0)              I4
     8004   01 023CF    0160C3C6 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     8005   01 023D0    00009060              DATA     BA(PLINE#I0)              I3
     8006   01 023D1    0160C3C6 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     8007   01 023D2    00009060              DATA     BA(PLINE#I0)              I2
     8008   01 023D3    0160C3C6 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     8009   01 023D4    00009060              DATA     BA(PLINE#I0)              I0
     8010   01 023D5    0160C3C6 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     8011   01 023D6    0160C3BF A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#1))   SUPPLEMENTARY HEADER
     8012   01 023D7    02200000 A   PARAMI   LCI      0                 SAVE REGISTERS
     8013   01 023D8    2B002AFC              STM,0    SAVE#3
     8014   01 023D9    7270039B              LB,X7    #INDEX            FIND WHICH I LINE CHANGED
     8015   01 023DA    21700005 A            CI,X7    5
     8016   01 023DB    692023DE              BG       %+3               BRANCH IF NOT *I0-5
     8017   01 023DC    22200001 A            LI,GRP   1
     8018   01 023DD    680023E3              B        PARAMI#A
     8019   01 023DE    2170000A A            CI,X7    10                BRANCH IF *IB-F
     8020   01 023DF    692023E2              BG       %+3
     8021   01 023E0    22200002 A            LI,GRP   2
     8022   01 023E1    680023E3              B        PARAMI#A
     8023   01 023E2    22200003 A            LI,GRP   3
     8024   01 023E3    32C02A69     PARAMI#A LW,RC    PLINEIN+2         VALIDATE PARAMETER FIELD
     8025   01 023E4    6A602401              BAL,LINK PARAMI#V
     8026   01 023E5    00000001 A            DATA     1                    FIELD BEING VALIDATED
     8027   01 023E6    32C02A6B              LW,RC    PLINEIN+4         VALIDATE PARAMETER FIELD
     8028   01 023E7    6A602401              BAL,LINK PARAMI#V
     8029   01 023E8    00000002 A            DATA     2                    FIELD BEING VALIDATED
     8030   01 023E9    32C02A6D              LW,RC    PLINEIN+6         VALIDATE PARAMETER FIELD
     8031   01 023EA    6A602401              BAL,LINK PARAMI#V
     8032   01 023EB    00000003 A            DATA     3                    FIELD BEING VALIDATED
     8033   01 023EC    32C02A6F              LW,RC    PLINEIN+8         VALIDATE PARAMETER FIELD
     8034   01 023ED    6A602401              BAL,LINK PARAMI#V
     8035   01 023EE    00000004 A            DATA     4                    FIELD BEING VALIDATED
     8036   01 023EF    32C02A71              LW,RC    PLINEIN+10        VALIDATE PARAMETER FIELD
     8037   01 023F0    6A602401              BAL,LINK PARAMI#V
     8038   01 023F1    00000005 A            DATA     5                    FIELD BEING VALIDATED
     8039                            *
     8040   01 023F2    32400399     PARAMI#X LW,X4    #OUTPTR           FIND PARAMETER LINE
     8041   01 023F3    328823D7              LW,R8    PARAMI,X4
     8042   01 023F4    2580007E A            SLS,R8   -2
     8043   01 023F5    F2600008 A            LB,LINK  *R8               MOVE VALIDATED INPUTS INTO LINE
     8044   01 023F6    729C2A67              LB,R9    PLINEIN,LINK
     8045   01 023F7    F59C0008 A            STB,R9   *R8,LINK
     8046   01 023F8    646023F6              BDR,LINK   %-2
     8047   01 023F9    6A60231D              BAL,LINK IMP@HEX           LOAD NEW LINE INTO HEX TABLE
     8048   01 023FA    6A6027B7              BAL,LINK READIMP           SET UP ACCESS TABLE
     8049   01 023FB    33102AC6              MTW,1    IMPLFLAG          SET IMPLEMENTATION FLAG
     8050   01 023FC    6A601DB9     PARAMI#Y BAL,LINK CHK:PMI           CHECK THAT PRI. MATCHES IMPLEM.
     8051   01 023FD    02200000 A            LCI      0                 RESTORE REGISTERS
     8052   01 023FE    2A002AFC              LM,0     SAVE#3
     8053   01 023FF    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     8054   01 02400    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     8055                            *
     8056                            *************************************
     8057                            * VALIDATION CHECK ROUTINE          *
     8058                            *************************************
     8059                            *
     8060   01 02401    22100003 A   PARAMI#V LI,X1    3
     8061   01 02402    7282000C A            LB,R8    RC,X1             FIND TWO PAIRS OF LEVELS
     8062   01 02403    218000F0 A            CI,R8    X'F0'               ARE ALL UNIMPLEMENTED
     8063   01 02404    68302415              BE       PARAMI#W             EXIT IF YES
     8064   01 02405    218000F3 A            CI,R8    X'F3'               IS ONE PR. UNIMPLEMENTED
     8065   01 02406    68302415              BE       PARAMI#W             EXIT IF YES
     8066   01 02407    218000C3 A            CI,R8    X'C3'               IS ONE PR. UNIMPLEMENTED
     8067   01 02408    68302415              BE       PARAMI#W             EXIT IF YES
     8068   01 02409    218000C6 A            CI,R8    X'C6'               ARE ALL IMPLEMENTED
     8069   01 0240A    68302415              BE       PARAMI#W             EXIT IF YES
     8070                            *******************************
     8071                            *  DOES NOT VALIDATE
     8072                            *******************************
     8073   01 0240B    B2800006 A            LW,R8    *LINK             FIND BAD FIELD
     8074   01 0240C    35802A65              STW,R8   PARAM%RET
     8075   01 0240D    6A6028A7              #TYPE,1,1 INVAL#I
            01 0240E    EA6003CC
            01 0240F    0160C4EB A
            01 02410    6A6028D0
     8076   01 02411    02200000 A            LCI      0                 RESTORE REGISTERS
     8077   01 02412    2A002AFC              LM,0     SAVE#3
     8078   01 02413    46602A65              XW,LINK  PARAM%RET         FIND RETURN ADDRESS
     8079   01 02414    E8002A65              B        *PARAM%RET
     8080                            *
     8081   01 02415    201FFFFF A   PARAMI#W AI,X1    -1                WAS LAST CHARACTER VALIDATED
     8082   01 02416    68102402              BGEZ     PARAMI#V+1        BRANCH IF NO
     8083   01 02417    680C0001 A            B        1,LINK            RETURN TO BAL +2
     8084                            *
     8085                            **********************************************************************
     8086                            *  THE FOLLOWING LOCATIONS CONTAIN THE PATTERNS OF THE IMPLEMENTED
     8087                            *     LEVELS IN EBCDIC FORMAT READY FOR DISPLAY AT USERS
     8088                            *     REQUEST  (PARAMETER LINE I )
     8089                            **********************************************************************
     8090         01 02418           PLINE#I0 TEXTCS   '*I#0-5 0000    0000    0000    0000    0000'
     8091         01 02423           PLINE#I6   TEXTCS '*I#6-A 0000    0000    0000    0000    0000'
     8092         01 0242E           PLINE#IB   TEXTCS '*I#B-F 0000    0000    0000    0000    0000'
     8093                            *
     8094                                     TITLE    ;
     8095                             '                    PARAMETER LINE J ROUTINE'
     8096                            *
     8097   01 02439    00009210 A            DATA     ABSVAL(BA(PLINE#J))
     8098   01 0243A    0160C3ED A            GEN,8,3,21  1,3,ABSVAL(BA(PL#JHDR))
     8099                            *
     8100   01 0243B    70200006 A   PARAMJ   LC       LINK              CHECK IF ANY CHANGES
     8101   01 0243C    68302476              BEZ      PARAMJ#Y+2        EXIT IF NONE
     8102   01 0243D    02200000 A            LCI      0
     8103   01 0243E    2B002ACC              STM,0    SAVE              SAVE REGISTERS
     8104   01 0243F    22800000 A            LI,R8    0
     8105   01 02440    35802A65              STW,R8   PARAM%RET         ZERO RETURN STORE
     8106   01 02441    32802A68              LW,R8    PLINEIN+1         IS MSGDEV=COMDEV
     8107   01 02442    31802487              CW,R8    PLINE#J+3
     8108   01 02443    6830244E              BE       PARAMJ#A          BRANCH IF YES
     8109   01 02444    EA6003C2              #ETHCON,4 R8               IS DEVICE RECOG. AND AVAIL.
            01 02445    04000020 A
     8110   01 02446    CD000006 A            TIO,0    *LINK
     8111   01 02447    68C0244E              BCR,12   PARAMJ#A          BRANCH IF YES
     8112   01 02448    6A6028A7              #TYPE,1,1 NOTAVAIL
            01 02449    EA6003CC
            01 0244A    0160C37D A
            01 0244B    6A6028D0
     8113   01 0244C    33102A65              MTW,1    PARAM%RET         SET PARAM FIELD 1 AS ERROR
     8114   01 0244D    68002478              B        PARAMJ#E
     8115                            *
     8116                            *
     8117   01 0244E    EA6003C2     PARAMJ#A #ETHCON,1 PLINEIN+5,2      FIND CM
            01 0244F    0100A9B2
     8118   01 02450    21600002 A            CI,LINK  2
     8119   01 02451    68202459              BLE      PARAMJ#B          BRANCH IF 0 THRU 2 (OK)
     8120   01 02452    21600009 A            CI,LINK  9
     8121   01 02453    69202457              BG       %+4               BRANCH IF A THRU F
     8122   01 02454    33302A65              MTW,3    PARAM%RET         SET PARAM FIELD 3 AS ERROR
     8123   01 02455    32802A6C              LW,R8    PLINEIN+5         FIND BAD KEYIN
     8124   01 02456    68002478              B        PARAMJ#E
     8125                            *
     8126   01 02457    2160000D A            CI,LINK   X'D'
     8127   01 02458    68102454              BGE      %-4               BRANCH IF D THRU F (ERROR)
     8128   01 02459    32A00006 A   PARAMJ#B LW,LOG   LINK              SAVE CM IN LOG REGISTER
     8129                            *
     8130                            *
     8131                            *
     8132   01 0245A    72602484     PARAMJ#X LB,LINK  PLINE#J           COPY UPDATED LINE
     8133   01 0245B    728C2A67              LB,R8    PLINEIN,LINK
     8134   01 0245C    758C2484              STB,R8   PLINE#J,LINK
     8135   01 0245D    6460245B              BDR,LINK   %-2
     8136   01 0245E    EA6003C2              #ETHCON,4  PLINE#J+1       FIND NEW MSGDEV
            01 0245F    04009214
     8137   01 02460    35600397              STW,LINK   #PRTADDR
     8138   01 02461    EA6003C2              #ETHCON,3  PLINE#J+4,1     FIND SI COUNT
            01 02462    03009221
     8139   01 02463    3560248A              STW,LINK   SICOUNT
     8140   01 02464    6C800045 A            RD,R8    X'45'             FIND EXISTING STATUS
     8141   01 02465    4B80248B              AND,R8   MARGINMASK        CLEAR MARGIN FIELDS
     8142   01 02466    21A0000A A            CI,LOG   X'A'                                              *A02
     8143   01 02467    6830246E              BE       %+7               SKIP IF FIXED AT NORMAL         *A02
     8144   01 02468    31802C9C              CW,R8    X100000                                           *A02
     8145   01 02469    6940246E              BCS,4    %+5               SKIP MSG IF NO VOLT. MARGIN     *A02
     8146   01 0246A    6A6028A7              #TYPE,1,1 VOLTMSG                                          *A02
            01 0246B    EA6003CC
            01 0246C    0160C47E A
            01 0246D    6A6028D0
     8147   01 0246E    21A00002 A            CI,LOG   2                 IS CM A FIXED MARGIN
     8148   01 0246F    68202471              BLE      %+2               BRANCH IF YES
     8149   01 02470    20AFFFF6 A            AI,LOG   -10               CONVERT A,B,C TO 0,1,2 RESP.
     8150   01 02471    25A00016 A            SLS,LOG  22                ALIGN CM
     8151   01 02472    49A00008 A            OR,LOG   R8                NEW CM TO CONTROL LINE
     8152   01 02473    6DA00045 A            WD,LOG   X'45'             SET MARGINS
     8153   01 02474    02200000 A   PARAMJ#Y LCI      0
     8154   01 02475    2A002ACC              LM,0     SAVE              RESTORE REGISTERS
     8155   01 02476    02200010 A            LCI      1                 RETURN TO SAME GO-TO ADDRESS
     8156   01 02477    E80003C9              B        *#FIDLE%
     8157                            *
     8158         01 02478           PARAMJ#E EQU      %                                                 *A01
     8159   01 02478    6A601E69              SEND     PARAMERR                                          *A01
            01 02479    0000C387 A
     8160   01 0247A    32902E24              LW,R9    EBCBLNKS                                          *A01
     8161   01 0247B    15803F0A              STD,R8   OUTBUF+6                                          *A01
     8162   01 0247C    6A6028A7              #TYPE    OUTBUF                                            *A01
            01 0247D    EA6003CC
            01 0247E    0000FC10 A
            01 0247F    6A6028D0
     8163   01 02480    02200000 A            LCI      0
     8164   01 02481    2A002ACC              LM,0     SAVE              RESTORE REGISTERS
     8165   01 02482    46602A65              XW,LINK   PARAM%RET        ERROR FIELD NO. TO LINK
     8166   01 02483    E8002A65              B        *PARAM%RET
     8167                            *
     8168                            **********************************************************************
     8169                            *   THE FOLLOWING LOCATIONS CONTAIN THE CONTROL OPTIONS IN EBCDIC
     8170                            *       FORMAT READY FOR DISPLAY AT USERS REQUEST ( PARAMETER LINE J)
     8171                            **********************************************************************
     8172                            *
     8173         01 02484           PLINE#J  TEXTCS   '*J 0002   *0001 001  0'
     8174                            *
     8175   01 0248A    00000000 A   SICOUNT  DATA     0
     8176   01 0248B    FF3FFFFF A   MARGINMASK  DATA  X'FF3FFFFF'       MASK FOR CLEARING CM
     8177                            *
     8178                                     TITLE    ;
     8179                             '                    PARAMETER LINE K'
     8180                            *
     8181                            *************************************
     8182                            *  PARAMETER LINE K ROUTINE         *
     8183                            *************************************
     8184                            *
     8185   01 0248C    00009620              DATA     BA(PLINE#KF)              KF
     8186   01 0248D    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8187   01 0248E    000095E4              DATA     BA(PLINE#KE)              KE
     8188   01 0248F    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8189   01 02490    000095A8              DATA     BA(PLINE#KD)              KD
     8190   01 02491    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8191   01 02492    0000956C              DATA     BA(PLINE#KC)              KC
     8192   01 02493    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8193   01 02494    00009530              DATA     BA(PLINE#KB)              KB
     8194   01 02495    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8195   01 02496    000094F4              DATA     BA(PLINE#KA)              KA
     8196   01 02497    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8197   01 02498    000094B8              DATA     BA(PLINE#K9)              K9
     8198   01 02499    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8199   01 0249A    0000947C              DATA     BA(PLINE#K8)              K8
     8200   01 0249B    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8201   01 0249C    00009440              DATA     BA(PLINE#K7)              K7
     8202   01 0249D    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8203   01 0249E    00009404              DATA     BA(PLINE#K6)              K6
     8204   01 0249F    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8205   01 024A0    000093C8              DATA     BA(PLINE#K5)              K5
     8206   01 024A1    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8207   01 024A2    0000938C              DATA     BA(PLINE#K4)              K4
     8208   01 024A3    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8209   01 024A4    00009350              DATA     BA(PLINE#K3)              K3
     8210   01 024A5    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8211   01 024A6    00009314              DATA     BA(PLINE#K2)              K2
     8212   01 024A7    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8213   01 024A8    000092D8              DATA     BA(PLINE#K0)              K0
     8214   01 024A9    0160C418 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8215   01 024AA    0160C40B A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#1))    SUPP. HEADER
     8216                            *
     8217   01 024AB    70200006 A   PARAMK   LC       LINK
     8218   01 024AC    693024B5              BNEZ     %+9               EXIT IF NO CHANGE
     8219   01 024AD    32400399              LW,X4    #OUTPTR           STORE THE PARAMETER LINE
     8220   01 024AE    328824AB              LW,R8    PARAMK,X4
     8221   01 024AF    2580007E A            SLS,R8   -2
     8222   01 024B0    F2600008 A            LB,LINK   *R8
     8223   01 024B1    729C2A67              LB,R9    PLINEIN,LINK
     8224   01 024B2    F59C0008 A            STB,R9   *R8,LINK
     8225   01 024B3    646024B1              BDR,LINK   %-2
     8226   01 024B4    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     8227   01 024B5    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     8228                            *
     8229                            *
     8230                            **********************************************************************
     8231                            *  THE FOLLOWING LOCATIONS CONTAIN THE INTERRUPT PATTERNS IN EBCDIC
     8232                            *     FORMAT READY FOR DISPLAY AT USERS REQUEST (PARAMETER LINE K)
     8233                            **********************************************************************
     8234                            *
     8235                            PLINE#K0 TEXTCS   ' *K0       0000        0000        0000 ',;
     8236         01 024B6                             '          0   0'
     8237   01 024C4    40404040 A            TEXT     '    '
     8238                            PLINE#K2 TEXTCS   ' *K2       0000        0000        0000 ',;
     8239         01 024C5                             '                  0'
     8240                            PLINE#K3 TEXTCS   ' *K3       0000        0000        0000 ',;
     8241         01 024D4                             '                  0'
     8242                            PLINE#K4 TEXTCS   ' *K4       0000        0000        0000 ',;
     8243         01 024E3                             '                  0'
     8244                            PLINE#K5 TEXTCS   ' *K5       0000        0000        0000 ',;
     8245         01 024F2                             '                  0'
     8246                            PLINE#K6 TEXTCS   ' *K6       0000        0000        0000 ',;
     8247         01 02501                             '                  0'
     8248                            PLINE#K7 TEXTCS   ' *K7       0000        0000        0000 ',;
     8249         01 02510                             '                  0'
     8250                            PLINE#K8 TEXTCS   ' *K8       0000        0000        0000 ',;
     8251         01 0251F                             '                  0'
     8252                            PLINE#K9 TEXTCS   ' *K9       0000        0000        0000 ',;
     8253         01 0252E                             '                  0'
     8254                            PLINE#KA TEXTCS   ' *KA       0000        0000        0000 ',;
     8255         01 0253D                             '                  0'
     8256                            PLINE#KB TEXTCS   ' *KB       0000        0000        0000 ',;
     8257         01 0254C                             '                  0'
     8258                            PLINE#KC TEXTCS   ' *KC       0000        0000        0000 ',;
     8259         01 0255B                             '                  0'
     8260                            PLINE#KD TEXTCS   ' *KD       0000        0000        0000 ',;
     8261         01 0256A                             '                  0'
     8262                            PLINE#KE TEXTCS   ' *KE       0000        0000        0000 ',;
     8263         01 02579                             '                  0'
     8264                            PLINE#KF TEXTCS   ' *KF       0000        0000        0000 ',;
     8265         01 02588                             '                  0'
     8266                            *
     8267                                     TITLE    ;
     8268                             '                    PARAMETER LINE P'
     8269                            *
     8270                            *
     8271                            *************************************
     8272                            *  PARAMETER LINE P ROUTINE         *
     8273                            *************************************
     8274                            *
     8275   01 02597    00009730 A            DATA     ABSVAL(BA(PLINE#P))
     8276   01 02598    0160C428 A            GEN,8,3,21  1,3,ABSVAL(BA(PRIHD#1))
     8277                            *
     8278                            *  THIS ROUTINE CHECKS THE PRIORITY PARAMETER LINE FOR:
     8279                            *        1. ALL FIELDS NOT ZERO MUST BE UNIQUE
     8280                            *        2. ALL VALUES MUST BE BETWEEN 1 AND 10 (HEX)
     8281                            *        3. LOWEST VALUE MUST BE 1
     8282                            *        4. VALUES MUST BE A CONTIGUOUS SET
     8283                            *        5. ANY VALUES THAT ARE ZERO MUST ALSO BE ZERO IN THE I PLINE
     8284                            *
     8285                            *
     8286         01 02599           PARAMP   EQU      %
     8287   01 02599    02200000 A            LCI      0                 SAVE REGISTERS
     8288   01 0259A    2B002AEC              STM,0    SAVE#2
     8289   01 0259B    22700000 A            LI,X7    0
     8290   01 0259C    22400010 A            LI,X4    16
     8291   01 0259D    32882A67     PARAMP#A LW,R8    PLINEIN,X4        COUNT THE NUMBER OF NONZEROS AND
     8292   01 0259E    EA6003C2              #ETHCON,2  R8,2               SAVE RESULT IN X7. ALSO BUILD A
            01 0259F    02000022 A
     8293   01 025A0    35682AFB              STW,LINK   SAVE#3-1,X4        TABLE OF HEX PRIORITY VALUES
     8294   01 025A1    21600000 A            CI,LINK    0
     8295   01 025A2    683025A4              BE       %+2
     8296   01 025A3    20700001 A            AI,X7    1
     8297   01 025A4    6440259D              BDR,X4   PARAMP#A
     8298                            *
     8299   01 025A5    224FFFFF A   PARAMP#B LI,X4    -1                CHECK FOR CONTIGUOUS SET OF NUMBERS
     8300   01 025A6    20400001 A            AI,X4    1                     FROM 1 TO VALUE IN X7
     8301   01 025A7    32882AFC              LW,R8    SAVE#3,X4
     8302   01 025A8    693025AE              BNEZ     PARAMP#C
     8303   01 025A9    2140000F A            CI,X4    15
     8304   01 025AA    691025A6              BL       PARAMP#B+1
     8305   01 025AB    21700000 A            CI,X7    0
     8306   01 025AC    693025B8              BNE      PARAMP#E
     8307   01 025AD    680025C0              B        PARAMP#X          VALIDATES OK SO EXIT
     8308                            *
     8309   01 025AE    31700008 A   PARAMP#C CW,X7    R8
     8310   01 025AF    693025B4              BNE      PARAMP#D
     8311   01 025B0    22800000 A            LI,R8    0
     8312   01 025B1    35882AFC              STW,R8   SAVE#3,X4         ZERO ENTRY WHEN MATCH IS FOUND
     8313   01 025B2    207FFFFF A            AI,X7    -1
     8314   01 025B3    680025A5              B        PARAMP#B          SEARCH FOR ANOTHER MATCH
     8315                            *
     8316   01 025B4    31700008 A   PARAMP#D CW,X7    R8                CHECK IF VALUE TOO LARGE
     8317   01 025B5    691025B8              BL       PARAMP#E
     8318   01 025B6    2140000F A            CI,X4    15
     8319   01 025B7    691025A6              BL       PARAMP#B+1
     8320                            *
     8321                            *  VALIDATION ERROR
     8322                            *
     8323   01 025B8    6A6028A7     PARAMP#E #TYPE,1,1 INVAL#P          PRINT ERROR MESSAGE
            01 025B9    EA6003CC
            01 025BA    0160C5DC A
            01 025BB    6A6028D0
     8324   01 025BC    02200000 A            LCI      0
     8325   01 025BD    2A002AEC              LM,0     SAVE#2            RESTORE REGISTERS
     8326   01 025BE    22600001 A            LI,LINK   1
     8327   01 025BF    E8002AF2              B        *SAVE#2+LINK      RE-DISPLAY PARAMETER LINE
     8328                            *
     8329                            *  VALIDATION OK - STORE PARAMETER LINE
     8330                            *
     8331   01 025C0    726025CC     PARAMP#X LB,LINK   PLINE#P          FIND PLINE BYTE COUNT
     8332   01 025C1    728C2A67              LB,R8     PLINEIN,LINK       AND MOVE THAT MANY BYTES
     8333   01 025C2    758C25CC              STB,R8   PLINE#P,LINK
     8334   01 025C3    646025C1              BDR,LINK   %-2
     8335                            *
     8336   01 025C4    6A60272A              BAL,LINK PRI@HEX           SAVE PRIORITY VALUES IN HEX
     8337   01 025C5    33102AC8              MTW,1    PRIFLAG           SET FLAG
     8338                            *
     8339   01 025C6    22200000 A   PARAMP#Y LI,GRP   0
     8340   01 025C7    6A601DB9              BAL,LINK CHK:PMI           CHECK PRIORITY VS IMPLEMENTATION
     8341   01 025C8    02200000 A            LCI      0
     8342   01 025C9    2A002AEC              LM,0     SAVE#2            RESTORE REGISTERS
     8343   01 025CA    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     8344   01 025CB    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     8345                            *
     8346                            *
     8347                            *
     8348                            **********************************************************************
     8349                            *  THE FOLLOWING LOCATIONS CONTAIN THE INTERRUPT GROUP
     8350                            *       PRIORITIES IN EBCDIC FORMAT READY FOR DISPLAY AT USERS
     8351                            *       REQUEST (PARAMETER LINE P)
     8352                            **********************************************************************
     8353                            *
     8354                            *
     8355                            PLINE#P  TEXTCS   '*P   00  00  00  00  00  00  00  00  00  00  00',;
     8356         01 025CC                             '  00  00  00  00  00'
     8357                            *
     8358                                     TITLE    ;
     8359                             '                    PARAMETER LINE T'
     8360                            *
     8361                            *
     8362                            *************************************
     8363                            *  PARAMETER LINE T (TO TEST) ROUTINE *
     8364                            ***************************************
     8365                            *
     8366         01 025DD           REPEAT   EQU      %
     8367   01 025DD    6A601D52              BAL,LINK DISARMALL         DISABLE ALL INTERRUPTS
     8368                            *
     8369                            *  ENTER HERE TO TEST USING EXISTING PARAMETER LINE T VALUES
     8370                            *
     8371   01 025DE    22600005 A            LI,LINK   5                SET EXISTING PLINE T VALUES
     8372   01 025DF    328C26B2              LW,R8     PARAMT%HEX-1,LINK    AS PROPOSED VALUES
     8373   01 025E0    358C26B7              STW,R8    T%SAVE-1,LINK
     8374   01 025E1    646025DF              BDR,LINK  %-2
     8375   01 025E2    33102A66              MTW,1    PASSCNT           INCREMENT PASS COUNT
     8376                            *
     8377   01 025E3    680025F8              B         PARAMT
     8378                            *
     8379                            *  THIS ROUTINE DIRECTS PROGRAM CONTROL TO THE TEST AND SUBTEST
     8380                            *      REQUESTED IN PARAMETER LINE T.
     8381                            *
     8382                            *  IT LOADS:    PATTNO = SUBTEST NUMBER
     8383                            *               TESTNO = TEST NUMBER
     8384                            *                   R9 =  MS DIGIT OF TEST NUMBER
     8385                            *                   X7 = NEXT MS DIGIT
     8386                            *                   GRP= NEXT MS DIGIT
     8387                            *                   LVL= LEAST SIG. DIGIT
     8388                            *               LOOPS = NUMBER OF LOOPS TO EXECUTE
     8389                            *               LOG   = SET IF SUBTEST FIELD WAS ZERO
     8390                            *
     8391                            *
     8392   01 025E4    00009AF8              DATA     BA(PLINE#T)
     8393   01 025E5    0160C2B9 A            GEN,8,3,21  1,3,ABSVAL(BA(GOTOHD))
     8394         01 025E6           ALTER%T  EQU      %
     8395                            *
     8396   01 025E6    35602AEC              STW,LINK   SAVE#2          SAVE ERROR RETURN ADDRESS
     8397   01 025E7    EA6003C2              #ETHCON,4  PLINEIN+1       FIND STARTING TEST #
            01 025E8    0400A9A0
     8398   01 025E9    356026B8              STW,LINK   T%SAVE
     8399   01 025EA    EA6003C2              #ETHCON    PLINEIN+3       FIND STARTING SUBTEST #
            01 025EB    0000A9A8
     8400   01 025EC    356026B9              STW,LINK   T%SAVE+1
     8401   01 025ED    EA6003C2              #ETHCON,4  PLINEIN+6       FIND STOP TEST #
            01 025EE    0400A9B4
     8402   01 025EF    356026BA              STW,LINK   T%SAVE+2
     8403   01 025F0    EA6003C2              #ETHCON    PLINEIN+8       FIND STOP SUBTEST #
            01 025F1    0000A9BC
     8404   01 025F2    356026BB              STW,LINK   T%SAVE+3
     8405   01 025F3    EA6003C2              #ETHCON,3  PLINEIN+11,1    FIND # OF LOOPS REQUESTED
            01 025F4    0300A9C9
     8406   01 025F5    356026BC              STW,LINK   T%SAVE+4
     8407   01 025F6    226FFFFF A            LI,LINK    -1
     8408   01 025F7    356026BD              STW,LINK   T%ENTRY         SET T LINE ENTRY FLAG
     8409                            *
     8410   01 025F8    22A00000 A   PARAMT   LI,LOG   0
     8411   01 025F9    328026B8              LW,R8    T%SAVE            FIND START TEST # AND VALIDATE
     8412   01 025FA    2580017C A            SLD,R8   -4
     8413   01 025FB    2590007C A            SLS,R9   -4
     8414   01 025FC    72300009 A            LB,LVL   R9                LS DIGIT TO LVL REG.
     8415   01 025FD    2580017C A            SLD,R8   -4
     8416   01 025FE    2590007C A            SLS,R9   -4
     8417   01 025FF    72200009 A            LB,GRP   R9                NEXT DIGIT TO GRP REG.
     8418   01 02600    2580017C A            SLD,R8   -4
     8419   01 02601    2590007C A            SLS,R9   -4
     8420   01 02602    72700009 A            LB,X7    R9                NEXT DIGIT TO X7 REG.
     8421   01 02603    25800160 A            SLD,R8   -32               MS DIGIT TO R9
     8422   01 02604    21900000 A            CI,R9    0                 ANALYZE MS DIGIT- IS IT 0
     8423   01 02605    6830265F              BE       PARAMT#ER1        ERROR IF YES
     8424   01 02606    21700000 A            CI,X7    0                 IS NEXT MS DIGIT ZERO
     8425   01 02607    6830265F              BE       PARAMT#ER1        ERROR IF YES
     8426   01 02608    21900001 A            CI,R9    1                 IS MS DIGIT = 1
     8427   01 02609    6930260E              BNE      %+5               BRANCH IF NO
     8428   01 0260A    31702688              CW,X7    GOTST1            IS 2ND MS DIGIT VALID
     8429   01 0260B    6920265F              BG       PARAMT#ER1        BRANCH IF NO
     8430   01 0260C    32BE2688              LW,RB    GOTST1,X7         FIND TRANSFER ADDRESS
     8431   01 0260D    68002617              B        PARAMT#A
     8432                            *
     8433   01 0260E    21900002 A            CI,R9    2                 IS MS DIGIT = 2
     8434   01 0260F    69302614              BNE      %+5               BRANCH IF NO
     8435   01 02610    31702691              CW,X7    GOTST2            IS 2ND MS DIGIT VALID
     8436   01 02611    6920265F              BG       PARAMT#ER1        BRANCH IF NO
     8437   01 02612    32BE2691              LW,RB    GOTST2,X7         FIND TRANSFER ADDRESS
     8438   01 02613    68002617              B        PARAMT#A
     8439                            *
     8440   01 02614    21900003 A            CI,R9    3                 IS MS DIGIT = 3
     8441   01 02615    6930265F              BNE      PARAMT#ER1        ERROR IF NO
     8442   01 02616    32B026A2              LW,RB    GOTST3+1          FIND TRANSFER ADDRESS
     8443   01 02617    326026B9     PARAMT#A LW,LINK   T%SAVE+1         FIND SUBTEST # AND VALIDATE
     8444   01 02618    21600000 A            CI,LINK   0                IS SUBTEST = ZERO
     8445   01 02619    6930261C              BNE      %+3
     8446   01 0261A    22A00001 A            LI,LOG   1                 SET PATTERN FLAG
     8447   01 0261B    22600001 A            LI,LINK   1                SET THE SUBTEST = 1
     8448   01 0261C    7280000B A            LB,R8    RB                FIND SUBTEST LIMIT
     8449   01 0261D    31600008 A            CW,LINK  R8                IS LIMIT EXCEEDED
     8450   01 0261E    69202655              BG       PARAMT#C          BRANCH IF YES
     8451                            *
     8452                            *  ENTER HERE IF PARAMETERS ARE ACCEPTED AS CORRECT
     8453                            *
     8454   01 0261F    356003F3     PARAMT#B STW,LINK   PATTNO
     8455   01 02620    22800000 A            LI,R8    0
     8456   01 02621    35802A56              STW,R8   ERORCNT
     8457   01 02622    35802A90              STW,R8   INTEPSD           ZERO EXPECTED INT. ADDRESS
     8458   01 02623    32802A66              LW,R8    PASSCNT           SET UP VARIABLE CC'S
     8459   01 02624    2580001C A            SLS,R8   28                   AS LEAST SIG BITS OF PASS #
     8460   01 02625    35802A8A              STW,R8   SETCC                     *
     8461   01 02626    4BB02C9A              AND,RB   X1FFFF
     8462   01 02627    35B02A50              STW,RB   GOTO#PSD          BUILD RETURN PSD
     8463   01 02628    330026BD              MTW,0    T%ENTRY                                           *A02
     8464   01 02629    6910262F              BLZ      %+6               BRANCH IF IN PARAMT             *A02
     8465   01 0262A    6A60235F              BAL,LINK INITPSD           INITIALIZE PSD TABLE            *A02
     8466   01 0262B    6A601173              BAL,LINK JAMXPSDS          INITIALIZE INT. AND TRAP LOC'NS
     8467   01 0262C    6A602348              BAL,LINK INITHIST          CLEAR HISTORY TABLE
     8468   01 0262D    6A60291F              BAL,LINK SETHIGH           SET HIGH PRI. INT. TO ACTIVE
     8469   01 0262E    68002635              B        PARAMT#B1                                         *A02
     8470                            *
     8471   01 0262F    326026BC              LW,LINK   T%SAVE+4         FIND # OF LOOPS
     8472   01 02630    35602A63              STW,LINK   LOOPS           SET NEW CURRENT LOOP COUNT
     8473   01 02631    2260000C A            LI,LINK   12
     8474   01 02632    32BC2A66              LW,RB    PLINEIN-1,LINK      MOVE NEW PARAMETERS INTO PLINE#T
     8475   01 02633    35BC26BD              STW,RB   PLINE#T-1,LINK
     8476   01 02634    64602632              BDR,LINK   %-2
     8477                            *
     8478   01 02635    32B026C9     PARAMT#B1 LW,RB   PLINE#T+11        FIND # OF LOOPS
     8479   01 02636    35B02CEA              STW,RB   WAITING1+1
     8480                            *
     8481   01 02637    22600005 A            LI,LINK   5
     8482   01 02638    32BC26B7              LW,RB    T%SAVE-1,LINK     MOVE HEX PARAMETERS TO PERM STORE
     8483   01 02639    35BC26B2              STW,RB   PARAMT%HEX-1,LINK
     8484   01 0263A    64602638              BDR,LINK   %-2
     8485                            *
     8486   01 0263B    32B026B3              LW,RB    PARAMT%HEX
     8487   01 0263C    35B003F2              STW,RB   TESTNO            CHANGE TEST NUMBER
     8488                            *
     8489   01 0263D    330026BD              MTW,0    T%ENTRY           IS THIS A REPEAT
     8490   01 0263E    6810264E              BGEZ     PARAMT#Y          CHECK IF LOOPS FINISHED IF YES
     8491                            *
     8492   01 0263F    331026BD              MTW,1    T%ENTRY           RESET ENTRY FLAG
     8493   01 02640    33002AC6              MTW,0    IMPLFLAG          CHECK IF TEST 11XX WAS RUN
     8494   01 02641    68302644              BEZ      %+3                       BRANCH IF NO
     8495   01 02642    33002AC8              MTW,0    PRIFLAG           CHECK IF TEST 12XX WAS RUN
     8496   01 02643    69302648              BNEZ     PARAMT#X                  BRANCH IF YES
     8497                            *
     8498   01 02644    6A6028A7              #TYPE,1,1 RUNTESTMSG
            01 02645    EA6003CC
            01 02646    0160C1AF A
            01 02647    6A6028D0
     8499                            *
     8500         01 02648           PARAMT#X EQU      %                 EXIT FROM ROUTINE              *B00
     8501   01 02648    22600007 A            LI,LINK  7                                                 *B00
     8502   01 02649    75602A51              STB,LINK GOTO#PSD+1        SET INHIBITS IN NEW PSD         *B00
     8503   01 0264A    02200000 A            LCI      0                 SET UP NEW 'GO TO' ADDRESS
     8504   01 0264B    2B0026A3              STM,0    GOSAVE
     8505   01 0264C    EA6003C9              BAL,LINK   *#FIDLE%        EXIT TO SELECTED TEST
     8506   01 0264D    00002A50              DATA     GOTO#PSD             VIA IDLE ROUTINE
     8507                            *
     8508   01 0264E    32B026BC     PARAMT#Y LW,RB    T%SAVE+4          FIND IF LOOPS WERE REQUESTED
     8509   01 0264F    68302652              BEZ      %+3                    AND BRANCH IF NO
     8510   01 02650    32B02A63               LW,RB   LOOPS             FIND IF LOOPS COMPLETE
     8511   01 02651    68302648              BEZ      PARAMT#X          BRANCH IF YES
     8512                            *
     8513                            *        ENTER HERE TO RETURN DIRECTLY TO TESTING (NO HALT)
     8514                            *
     8515   01 02652    02200000 A            LCI      0                 SET UP NEW 'GO TO' ADDRESS
     8516   01 02653    2B0026A3              STM,0    GOSAVE
     8517   01 02654    0E002A50              LPSD,0   GOTO#PSD          EXIT TO SELECTED TEST
     8518                            *
     8519                            *  ENTER HERE TO CHECK FOR POSSIBLE ERROR
     8520                            *
     8521   01 02655    21900003 A   PARAMT#C CI,R9    3                 IS THIS THE RANDOM PAT. TEST
     8522   01 02656    6830261F              BE       PARAMT#B          NO ERROR IF YES
     8523   01 02657    21900001 A            CI,R9    1                 IS THIS A FIXED PATTERN TEST
     8524   01 02658    6930265D              BNE      PARAMT#ER2
     8525   01 02659    21700007 A            CI,X7    7
     8526   01 0265A    6930265D              BNE      PARAMT#ER2
     8527   01 0265B    21600AB8 A            CI,LINK  2744
     8528   01 0265C    6820261F              BLE      PARAMT#B          NO ERROR IF YES AND SUBTEST NO.
     8529                            *                                     IS NOT TOO LARGE
     8530                            *
     8531                            *************************************
     8532                            *  VALIDATION ERROR                 *
     8533                            *************************************
     8534                            *
     8535         01 0265D           PARAMT#ER2        EQU               %
     8536   01 0265D    22A00002 A            LI,LOG   2                 INDICATE ERROR IN FIELD 2
     8537   01 0265E    68002660              B        %+2
     8538                            *
     8539   01 0265F    22A00001 A   PARAMT#ER1  LI,LOG    1
     8540   01 02660    6A6028A7              #TYPE,1,1 GO#ERMSG         TYPE 'NON-EXISTANT TEST'
            01 02661    EA6003CC
            01 02662    0160C1A3 A
            01 02663    6A6028D0
     8541   01 02664    3260000A A            LW,LINK    LOG
     8542   01 02665    331026BD              MTW,1    T%ENTRY           RESET ENTRY FLAG
     8543   01 02666    E8002AEC              B        *SAVE#2
     8544                            *
     8545   01 02667    728010A9     TST%BY   LB,R8    SIGMA8                                            *B01
     8546   01 02668    69F0266B              BCS,15   %+3                                               *B01
     8547   01 02669    72802CB2              LB,R8     YF900                                            *B01
     8548   01 0266A    6800266C              B        %+2                                               *B01
     8549   01 0266B    72802CB1              LB,R8    YF800                                             *B01
     8550   01 0266C    75802CF8              STB,R8   BYPASS+9                                          *B01
     8551   01 0266D    EA6003C3              #HTECON  TESTNO
            01 0266E    000003F2
     8552   01 0266F    328C0001 A            LW,R8    1,LINK
     8553   01 02670    25800070 A            SLS,R8   -16
     8554   01 02671    55802CF1              STH,R8   BYPASS+2                                          *B01
     8555   01 02672    6A6028A7              #TYPE    BYPASS
            01 02673    EA6003CC
            01 02674    0000B3BC A
            01 02675    6A6028D0
     8556                            *
     8557   01 02676    6A6028A7     INVALTST#  #TYPE  UPSPACE
            01 02677    EA6003CC
            01 02678    0000B1C0 A
            01 02679    6A6028D0
     8558   01 0267A    6A6028A7                #TYPE  UPSPACE
            01 0267B    EA6003CC
            01 0267C    0000B1C0 A
            01 0267D    6A6028D0
     8559   01 0267E    6A6028A7                #TYPE,1,1 INVAL#M
            01 0267F    EA6003CC
            01 02680    0160C373 A
            01 02681    6A6028D0
     8560   01 02682    6A6028A7                #TYPE,1,1 GO#ERMSG
            01 02683    EA6003CC
            01 02684    0160C1A3 A
            01 02685    6A6028D0
     8561   01 02686    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     8562   01 02687    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     8563                            **********************************************************************
     8564                            *                                   PRE-SET CONDITIONS
     8565                            *   THE FOLLOWING LOCATIONS POINT TO THE ADDRESS OF THE START OF
     8566                            *        A PARTICULAR TEST  (ADDRESS FIELD)
     8567                            *        AND INDICATE THE NUMBER OF SUBTESTS (BYTE 0)
     8568                            *           NOTE: 0 IN BYTE 0 IS FOR GREATER THAN 255 (SEE PARAMT#C)
     8569                            *
     8570                            *
     8571   01 02688    00000008 A   GOTST1   DATA     8                 NUMBER OF 1XXX TESTS
     8572   01 02689    4B00117F              GEN,8,7,17   75,0,GOTST11                         BYTE 0 =
     8573   01 0268A    0100128E              GEN,8,7,17   1,0,GOTST12                          NUMBER OF
     8574   01 0268B    01001339              GEN,8,7,17   1,0,GOTST13                          POSSIBLE
     8575   01 0268C    FF0013AE              GEN,8,7,17   255,0,GOTST14                        SUBTESTS
     8576   01 0268D    01001454              GEN,8,7,17   1,0,GOTST15
     8577   01 0268E    01001507              GEN,8,7,17   1,0,GOTST16
     8578   01 0268F    00001595              GEN,8,7,17   0,0,GOTST17
     8579   01 02690    010015BF              GEN,8,7,17  1,0,GOTST18
     8580                            *
     8581   01 02691    0000000F A   GOTST2   DATA     15                NUMBER OF 2XXX TESTS
     8582   01 02692    2A001695              GEN,8,7,17   42,0,GOTST21
     8583   01 02693    010016FA              GEN,8,7,17   1,0,GOTST22
     8584   01 02694    0F00173C              GEN,8,7,17   15,0,GOTST23
     8585   01 02695    0200179C              GEN,8,7,17   2,0,GOTST24
     8586   01 02696    0E0017DC              GEN,8,7,17   14,0,GOTST25
     8587   01 02697    010018A3              GEN,8,7,17   1,0,GOTST26                                   *B00
     8588   01 02698    0B0018DA              GEN,8,7,17   11,0,GOTST27
     8589   01 02699    10001928              GEN,8,7,17   16,0,GOTST28
     8590   01 0269A    070019CC              GEN,8,7,17   7,0,GOTST29
     8591   01 0269B    02001A73              GEN,8,7,17   2,0,GOTST2A
     8592   01 0269C    01001B00              GEN,8,7,17   1,0,GOTST2B                                   *A02
     8593   01 0269D    03001B28              GEN,8,7,17   3,0,GOTST2C
     8594   01 0269E    01001B9F              GEN,8,7,17   1,0,GOTST2D
     8595   01 0269F    01001BBE              GEN,8,7,17   1,0,GOTST2E
     8596   01 026A0    01001BE4              GEN,8,7,17   1,0,GOTST2F                                   *A01
     8597                            *
     8598   01 026A1    00000001 A   GOTST3   DATA     1                 NUMBER OF 30XX TESTS
     8599   01 026A2    00001CF2              GEN,8,7,17   0,0,GOTST31
     8600                            *
     8601                            *
     8602   01 026A3                 GOSAVE   RES      16                SAVE THE REGISTERS
     8603   01 026B3                 PARAMT%HEX  RES   5                 CONTENTS OF T PARAM LINE (IN HEX)
     8604                            *
     8605   01 026B8                 T%SAVE   RES      5                 PROPOSED CONTENTS OF T (IN HEX)
     8606                            *
     8607   01 026BD    00000000 A   T%ENTRY  DATA     0                 SET TO -1 IF ROUTINE ENTERED
     8608                            *                                      FROM KEYIN OF T
     8609                            *
     8610                            *
     8611                            **********************************************************************
     8612                            *  THE FOLLOWING LOCATIONS CONTAIN THE PARAMETER FIELDS FOR LINE T
     8613                            **********************************************************************
     8614                            PLINE#T    TEXTCS ;
     8615                            *     +1      +3,+4       +6      +8,+9       +11
     8616         01 026BE            '*T 1100    00000001    3101    00000FFF    0000'
     8617                            *
     8618                                     TITLE    ;
     8619                             '                    CONVERT LEVEL INTERRUPT PATTERNS TO EBCDIC'      *
     8620                            *
     8621                            *
     8622                            *
     8623                            *************************************************************
     8624                            * CONVERT LEVEL PATTERNS TO EBCDIC ROUTINE
     8625                            *************************************************************
     8626                            *
     8627                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8628                            *
     8629                            *  EXIT WITH PATTERNS FROM LEVEL TABLES CONVERTED TO EBCDIC
     8630                            *            AND STORED IN THE K PARAMETER LINES READY FOR DISPLAY.
     8631                            *
     8632                            *
     8633   01 026CA    02200000 A   PAT@EBC  LCI      0                 SAVE REGISTERS
     8634   01 026CB    2B002ADC              STM,0    SAVE#1
     8635   01 026CC    32C02ACA              LW,RC    GRPINH            FIND INHIBIT PATTERN
     8636   01 026CD    6A602994              BAL,LINK :BIN@EBC          CONVERT TO EBCDIC
     8637   01 026CE    35600009 A            STW,LINK R9                SAVE EBCDIC PATTERN
     8638   01 026CF    35602ACB              STW,LINK GRPINH#E
     8639   01 026D0    22100000 A            LI,X1    0                 SET LOCATION INDEX
     8640   01 026D1    22700003 A            LI,X7    3                 SET INDEX TO BYTE 3
     8641   01 026D2    22400000 A            LI,X4    0                 SET STORE INDEX
     8642   01 026D3    52C22A96     PAT@E#A  LH,RC    LEVARMD,X1        FIND ARMING PATTERN
     8643   01 026D4    6A60299E              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     8644   01 026D5    356824B9              STW,LINK PLINE#K0+3,X4     SAVE IT
     8645   01 026D6    52C22AA6              LH,RC    LEVTRIG,X1        FIND  TRIGGERED PATTERN
     8646   01 026D7    6A60299E              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     8647   01 026D8    356824BC              STW,LINK PLINE#K0+6,X4     SAVE IT
     8648   01 026D9    52C22A9E              LH,RC    LEVENBL,X1        FIND  ENABLED PATTERN
     8649   01 026DA    6A60299E              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     8650   01 026DB    356824BF              STW,LINK PLINE#K0+9,X4     SAVE IT
     8651   01 026DC    21100000 A            CI,X1    0                 IS THIS GROUP 0
     8652   01 026DD    693026E8              BNE      PAT@E#B           BRANCH IF NO
     8653   01 026DE    32802E24              LW,R8    EBCBLNKS          LOAD BUFFER WITH BLANKS
     8654   01 026DF    25900210 A            SCS,R9   16                FIND COUNTER INHIBIT BIT
     8655   01 026E0    759E0008 A            STB,R9   R8,X7             PLACE CI BIT IN BUFFER
     8656   01 026E1    358024C2              STW,R8   PLINE#K0+12
     8657   01 026E2    25900208 A            SCS,R9   8                 FIND I/O INHIBIT BIT
     8658   01 026E3    759E0008 A            STB,R9   R8,X7             PLACE II BIT IN BUFFER
     8659   01 026E4    358024C3              STW,R8   PLINE#K0+13
     8660   01 026E5    25900208 A            SCS,R9   8                 RESTORE PATTERN
     8661   01 026E6    20100002 A            AI,X1    2                 INCREMENT INDEX TO GROUP 2
     8662   01 026E7    680026EC              B        PAT@E#C
     8663                            *
     8664   01 026E8    32802E24     PAT@E#B  LW,R8    EBCBLNKS          LOAD BUFFER WITH BLANKS
     8665   01 026E9    759E0008 A            STB,R9   R8,X7             PLACE EI IN BUFFER
     8666   01 026EA    358824C4              STW,R8   PLINE#K0+14,X4
     8667   01 026EB    20100001 A            AI,X1    1                 INDEX TO NEXT GROUP
     8668   01 026EC    2040000F A   PAT@E#C  AI,X4    15                SET INDEX FOR NEXT GROUP
     8669   01 026ED    21100010 A            CI,X1    16                ARE WE FINISHED
     8670   01 026EE    691026D3              BL       PAT@E#A           NO, LOOP AGAIN
     8671                            *
     8672   01 026EF    02200000 A            LCI      0                 RESTORE REGISTERS
     8673   01 026F0    2A002ADC              LM,0     SAVE#1
     8674   01 026F1    E8000006 A            B        *LINK             EXIT
     8675                            *
     8676                                     TITLE    ;
     8677                             '                    CONVERT LEVEL INTERRUPT PATTERNS TO HEX'      *
     8678                            *
     8679                            *
     8680                            *
     8681                            *************************************************************
     8682                            * CONVERT LEVEL PATTERNS TO HEXADECIMAL ROUTINE
     8683                            *************************************************************
     8684                            *
     8685                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8686                            *
     8687                            *  EXIT WITH PATTERNS FROM THE K PARAMETER LINES CONVERTED
     8688                            *            TO HEX AND STORED IN THE LEVEL TABLES.
     8689                            *
     8690                            *
     8691                            *
     8692   01 026F2    02200000 A   PAT@HEX  LCI      0
     8693   01 026F3    2B002ADC              STM,0    SAVE#1
     8694   01 026F4    32902ACB              LW,R9    GRPINH#E          FIND INHIBIT PATTERN
     8695   01 026F5    2580037F A            SCD,R8   -1                   (IN BINARY) AND CONVERT
     8696   01 026F6    25900079 A            SLS,R9   -7                   TO HEX
     8697   01 026F7    2580037F A            SCD,R8   -1
     8698   01 026F8    25900079 A            SLS,R9   -7
     8699   01 026F9    2580037F A            SCD,R8   -1
     8700   01 026FA    25800063 A            SLS,R8   -29
     8701   01 026FB    35802ACA              STW,R8   GRPINH            SAVE INHIBIT PATTERN
     8702   01 026FC    22100000 A            LI,X1    0                 SET INDEX TO HALFWORD 0
     8703   01 026FD    22400000 A            LI,X4    0                 SET INDEX FOR GROUP 0
     8704   01 026FE    328824B9     PAT@H#A  LW,R8    PLINE#K0+3,X4     FIND ARMED PATTERN
     8705   01 026FF    EA6003C2              #ETHCON,4 R8               CONVERT PATTERN TO HEX
            01 02700    04000020 A
     8706   01 02701    55622A96              STH,LINK  LEVARMD,X1       SAVE PATTERN
     8707   01 02702    328824BC              LW,R8    PLINE#K0+6,X4     FIND TRIGGERED PATTERN
     8708   01 02703    EA6003C2              #ETHCON,4 R8               CONVERT PATTERN TO HEX
            01 02704    04000020 A
     8709   01 02705    55622AA6              STH,LINK  LEVTRIG,X1       SAVE PATTERN
     8710   01 02706    328824BF              LW,R8    PLINE#K0+9,X4     FIND ENABLED PATTERN
     8711   01 02707    EA6003C2              #ETHCON,4 R8               CONVERT PATTERN TO HEX
            01 02708    04000020 A
     8712   01 02709    55622A9E              STH,LINK  LEVENBL,X1       SAVE PATTERN
     8713   01 0270A    21100000 A            CI,X1    0                 IS THIS GROUP 0
     8714   01 0270B    6930270D              BNE      %+2               NO,SKIP NEXT INSTRUCTION
     8715   01 0270C    20100001 A            AI,X1    1                 YES,BYPASS NONEXIST. GROUP 1
     8716   01 0270D    20100001 A            AI,X1    1                 SET INDEX TO NEXT PATTERN
     8717   01 0270E    2040000F A            AI,X4    15                INDEX TO NEXT GROUP
     8718   01 0270F    21100010 A            CI,X1    16                WAS THIS THE LAST GROUP
     8719   01 02710    691026FE              BL       PAT@H#A           BRANCH IF NO
     8720   01 02711    02200000 A            LCI      0                 RESTORE REGISTERS
     8721   01 02712    2A002ADC              LM,0     SAVE#1
     8722   01 02713    E8000006 A            B        *LINK             RETURN
     8723                            *
     8724                            *
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   25
A    8725                                     PAGE
     8726                                     SPACE    6






     8727                            *
     8728                            *  THIS ROUTINE FINDS THE HISTORY TABLE LOCATION CORRESPONDING
     8729                            *        TO THE LOCATION IN R8 AND PLACES THE BYTE ADDRESS IN X1
     8730                            *        AND IN HSTORYP
     8731                            *
     8732                            *
     8733         01 02714           POINT%HIST  EQU   %
     8734   01 02714    22107A53              LI,X1    HA(HISTORY)+3
     8735   01 02715    51820000 A            CH,R8    0,X1
     8736   01 02716    68302719              BE       %+3               BRANCH IF MATCH IS FOUND
     8737   01 02717    20100004 A            AI,X1    4
     8738   01 02718    68002715              B        %-3
     8739   01 02719    201FFFFD A            AI,X1    -3
     8740   01 0271A    25100001 A            SLS,X1   1                 CONVERT TO BYTE ADDRESS
     8741   01 0271B    35101F07              STW,X1   HSTORYP
     8742   01 0271C    E8000006 A            B        *LINK
     8743                            *
     8744                            *
     8745                                     TITLE    ;
     8746                             '                    CONVERT PRIORITY TO EBCDIC'
     8747                            *
     8748                            *
     8749                            ***********************************************
     8750                            *  CONVERT PRIORITY TO EBCDIC ROUTINE
     8751                            ***********************************************
     8752                            *
     8753                            *
     8754                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8755                            *
     8756                            *
     8757                            *  EXIT WITH HEX PRIORITIES FROM 'SEQCOM' CONVERTED TO EBCDIC
     8758                            *            AND STORED IN PARAMETER LINE P
     8759                            *
     8760                            *
     8761   01 0271D    02200000 A   PRI@EBC  LCI      0                 SAVE REGISTERS
     8762   01 0271E    2B002ADC              STM,0    SAVE#1
     8763   01 0271F    32802E24              LW,R8    EBCBLNKS          GET EBCDIC BLANKS
     8764   01 02720    22400010 A            LI,X4    16                SET UP FOR 16 PARAMETER FIELDS
     8765   01 02721    32C82809              LW,RC    SEQCOM-1,X4       FIND PRIORITY
     8766   01 02722    25C00068 A            SLS,RC   -24
     8767   01 02723    6A60299E              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     8768   01 02724    55800006 A            STH,R8   LINK
     8769   01 02725    356825CC              STW,LINK PLINE#P,X4        SAVE IN PARAMETER LINE P
     8770   01 02726    64402721              BDR,X4   %-5
     8771   01 02727    02200000 A            LCI      0                 RESTORE REGISTERS
     8772   01 02728    2A002ADC              LM,0     SAVE#1
     8773   01 02729    E8000006 A            B        *LINK             RETURN
     8774                            *
     8775                            *
     8776                                     TITLE    ;
     8777                             '                    CONVERT PRIORITY TO HEX '
     8778                            *
     8779                            *
     8780                            ***********************************************
     8781                            *  CONVERT PRIORITY TO HEX ROUTINE
     8782                            ***********************************************
     8783                            *
     8784                            *
     8785                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8786                            *
     8787                            *
     8788                            *  EXIT WITH EBCDIC PRIORITIES FROM PARAMETER LINE P
     8789                            *            CONVERTED TO HEX AND STORED IN BYTE 0 OF 'SEQCOM' TABLE
     8790                            *
     8791                            *
     8792   01 0272A    02200000 A   PRI@HEX  LCI      0                 SAVE REGISTERS
     8793   01 0272B    2B002ADC              STM,0    SAVE#1
     8794   01 0272C    2270003C A            LI,X7    60
     8795   01 0272D    22400010 A            LI,X4    16                SET UP FOR 16 PARAMETER FIELDS
     8796   01 0272E    328825CC     PRI@HX#1 LW,R8    PLINE#P,X4        FIND PRIORITY
     8797   01 0272F    EA6003C2              #ETHCON,2  R8,2            CONVERT TO HEX
            01 02730    02000022 A
     8798   01 02731    756E280A              STB,LINK   SEQCOM,X7
     8799   01 02732    207FFFFC A            AI,X7    -4
     8800   01 02733    6440272E              BDR,X4   PRI@HX#1          LOOP IF ALL 16 NOT CONVERTED
     8801   01 02734    02200000 A            LCI      0                 RESTORE REGISTERS
     8802   01 02735    2A002ADC              LM,0     SAVE#1
     8803   01 02736    E8000006 A            B        *LINK             RETURN
     8804                            *
     8805                            *
     8806                                     TITLE    ;
     8807                             '                    READ ACTIVE INTERRUPT'                           *
     8808                            *
     8809                            *
     8810                            *      READ HIGH PRIORITY ACTIVE INTERRUPT
     8811                            *
     8812                            *
     8813                            *  ENTER WITH THE RETURN ADDRESS IN THE LINK REGISTER
     8814                            *
     8815                            *
     8816                            *  EXIT WITH THE HIGHEST PRIORITY ACTIVE INTERRUPT IN 'ACTIVELVL'
     8817                            *                   GROUP  IN  BITS 24-27
     8818                            *                   LEVEL  IN  BITS 28-31
     8819                            *                   ( 'ACTIVE' = -1 IF NO LEVEL IS ACTIVE )
     8820                            *
     8821                            *   REGISTER USEAGE:
     8822                            *        X4 = LOOP COUNTER
     8823                            *        X5 = SEARCH GROUP # ( -1 = OVERRIDE GROUP,
     8824                            *                 0 = COUNTER ZERO GROUP, 1 = I/O GROUP, AND
     8825                            *                 2-F = EXTERNAL GROUPS 2-F
     8826                            *        X7 = SEARCH PRIORITY
     8827                            *        GRP= ACTUAL GROUP #
     8828                            *
     8829                            *
     8830   01 02737    02200000 A   READACT  LCI      0                 SAVE REGISTERS
     8831   01 02738    2B002ACC              STM,0    SAVE
     8832   01 02739    22700000 A            LI,X7    0                 SET PRIORITY COUNTER TO ZERO
     8833   01 0273A    32502C78     RDACT#A  LW,X5    M1                SET GROUP NUMBER TO -1
     8834   01 0273B    22400011 A            LI,X4    17                SET INDEX FOR 17 GROUPS
     8835   01 0273C    328A280A              LW,R8    SEQCOM,X5         FIND PRIORITY
     8836   01 0273D    25800068 A            SLS,R8   -24
     8837   01 0273E    31800007 A            CW,R8    X7                DOES IT MATCH
     8838   01 0273F    68302743              BE       RDACT#B           BRANCH IF YES
     8839   01 02740    20500001 A            AI,X5    1
     8840   01 02741    6440273C              BDR,X4   %-5               TRY ANOTHER GROUP
     8841   01 02742    68002766              B        RDACT#N           NO ACTIVE INT. - EXIT
     8842                            *
     8843   01 02743    20700001 A   RDACT#B  AI,X7    1                 INCREMENT SEARCH COUNTER
     8844   01 02744    21500002 A            CI,X5    2                 WAS IT AN EXTERNAL GROUP
     8845   01 02745    68102749              BGE      RDACT#C           BRANCH IF YES
     8846   01 02746    320A2B33              LW,R0    GRP#CNTR,X5       FIND PROPER MASK
     8847   01 02747    22200000 A            LI,GRP   0                 SET GROUP # TO 0
     8848   01 02748    6800274B              B        %+3
     8849                            *
     8850   01 02749    32200005 A   RDACT#C  LW,GRP   X5                SET GROUP # FOR EXTERNAL GROUP
     8851   01 0274A    2200FFFF A            LI,R0    X'FFFF'           MASK FOR ALL LEVELS
     8852   01 0274B    6C941100 A            RD,R9    ARM:WAIT,GRP      FIND LEVELS ARMED OR WAITING
     8853   01 0274C    4B900000 A            AND,R9   R0
     8854   01 0274D    6C841200 A            RD,R8    WAIT:ACT,GRP      FIND LEVELS WAITING OR ACTIVE
     8855   01 0274E    4B800000 A            AND,R8   R0
     8856   01 0274F    4B900008 A            AND,R9   R8                DELETE ARMED LEVELS
     8857   01 02750    48800009 A            EOR,R8   R9                DELETE WAITING LEVELS
     8858   01 02751    68302764              BEZ      RDACT#F           BRANCH IF NONE ACTIVE
     8859   01 02752    22300000 A            LI,LVL   0
     8860   01 02753    22400010 A            LI,X4    16                SET SEARCH FOR 16 LEVELS
     8861   01 02754    25800010 A            SLS,R8   16                SHIFT PATTERN TO BIT 1
     8862   01 02755    25800001 A   RDACT#D  SLS,R8   1                 CHECK IF LEVEL IS ACTIVE
     8863   01 02756    6980275A              BC       RDACT#E           BRANCH IF YES
     8864   01 02757    20300001 A            AI,LVL   1                 NO, COUNT 1
     8865   01 02758    64402755              BDR,X4   RDACT#D           CHECK NEXT LEVEL
     8866   01 02759    6800273A              B        RDACT#A
     8867                            *
     8868   01 0275A    25200004 A   RDACT#E  SLS,GRP 4                  GROUP # TO BITS 24-27
     8869   01 0275B    49200003 A            OR,GRP   LVL               LEVEL # TO BITS 28-31
     8870   01 0275C    35202A43              STW,GRP  ACTIVELVL         SAVE VALUES
     8871   01 0275D    2120000F A            CI,GRP   X'F'
     8872   01 0275E    69202761              BG       %+3               BRANCH IF EXTERNAL GROUP
     8873   01 0275F    20200052 A            AI,GRP   X'52'
     8874   01 02760    68002762              B        %+2
     8875                            *
     8876   01 02761    20200040 A            AI,GRP   X'40'
     8877   01 02762    35202A44              STW,GRP  ACTIVELOCN
     8878   01 02763    6800276A              B        RDACT#X           EXIT
     8879   01 02764    21700010 A   RDACT#F  CI,X7    16
     8880   01 02765    6820273A              BLE      RDACT#A           LOOP IF NOT LAST PRIORITY
     8881                            *
     8882                            *  ENTRY HERE MEANS NO LEVELS ARE ACTIVE
     8883                            *
     8884   01 02766    32802C78     RDACT#N  LW,R8    M1                SET ACTIVE = -1
     8885   01 02767    35802A43              STW,R8   ACTIVELVL
     8886   01 02768    22800000 A            LI,R8    0
     8887   01 02769    35802A44              STW,R8   ACTIVELOCN
     8888   01 0276A    02200000 A   RDACT#X  LCI      0                 RESTORE REGISTERS
     8889   01 0276B    2A002ACC              LM,0     SAVE
     8890   01 0276C    E8000006 A            B        *LINK             RETURN
     8891                            *
     8892                                     TITLE    ;
     8893                             '                    READ EXPECTED INTERRUPTS SUBROUTINE'             *
     8894                            *
     8895                            *
     8896                            *         R E A D    E X P E C T E D     I N T E R R U P T S
     8897                            *******************************************************************
     8898                            *
     8899                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8900                            *
     8901                            *
     8902                            * EXIT WITH EXPECTED INTERRUPTS LISTED BY LEVEL IN 'LEVEXP'
     8903                            *           LEVELS NOT INHIBITED LISTED IN 'LEVNINH'
     8904                            *
     8905   01 0276D    02200000 A   READEXP  LCI      0                 SAVE REGISTERS
     8906   01 0276E    2B002ACC              STM,0    SAVE
     8907   01 0276F    22800000 A            LI,R8    0                     LOAD ALL ZERO'S
     8908   01 02770    22100008 A            LI,X1    8                     SET INDEX FOR 8 PASSES
     8909   01 02771    35822AB5              STW,R8   LEVNINH-1,X1          ZERO THE LOCATION
     8910   01 02772    64102771              BDR,X1   %-1                   LOOP IF NOT THROUGH
     8911                            *                                   ZERO THE LEVEXP TABLE
     8912   01 02773    22100008 A            LI,X1    8                     SET INDEX FOR 8 PASSES
     8913   01 02774    35822AAD              STW,R8   LEVEXP-1,X1          ZERO THE LOCATION
     8914   01 02775    64102774              BDR,X1   %-1                   LOOP IF NOT THROUGH
     8915   01 02776    22800001 A            LI,R8    1                 MASK FOR EXTERNAL INHIBIT
     8916   01 02777    4B802ACA              AND,R8   GRPINH            CHECK IF EXTERNAL GROUPS INHIBITED
     8917   01 02778    6930277D              BNEZ     RDEXP#A           BRANCH IF YES
     8918   01 02779    32802C78              LW,R8    M1                LOAD ALL ONE'S
     8919   01 0277A    22100007 A            LI,X1    7                 SET INDEX FOR 7 PASSES
     8920   01 0277B    35822AB6              STW,R8   LEVNINH,X1        SET LEVELS AS NOT INH.
     8921   01 0277C    6410277B              BDR,X1   %-1               LOOP IF NOT THROUGH
     8922   01 0277D    22800002 A   RDEXP#A  LI,R8    2                 MASK FOR I/O INHIBITS
     8923   01 0277E    4B802ACA              AND,R8   GRPINH            CHECK IF INHIBITED
     8924   01 0277F    69302782              BNEZ     RDEXP#B           BRANCH IF YES
     8925   01 02780    32802C9E              LW,R8    Y3C               SET GROUP 0 LEVELS 10-13
     8926   01 02781    35802AB6              STW,R8   LEVNINH
     8927   01 02782    22800004 A   RDEXP#B  LI,R8    4                 MASK FOR COUNTER INHIBIT
     8928   01 02783    4B802ACA              AND,R8   GRPINH            CHECK IF INHIBITED
     8929   01 02784    69302788              BNEZ     RDEXP#C           BRANCH IF YES
     8930   01 02785    32802CA4              LW,R8    Y3C0              SET GROUP 0 LEVELS 6-9
     8931   01 02786    49802AB6              OR,R8    LEVNINH
     8932   01 02787    35802AB6              STW,R8   LEVNINH
     8933   01 02788    32802CB3     RDEXP#C  LW,R8    YFC00             SET GROUP 0 LEVELS 0-5
     8934   01 02789    49802AB6              OR,R8    LEVNINH
     8935   01 0278A    4B802AC7              AND,R8   NOTHIGH           DELETE HIGH PRIORITY INT.
     8936   01 0278B    35802AB6              STW,R8   LEVNINH
     8937   01 0278C    22100008 A            LI,X1    8                 INDEX FOR 8 PASSES
     8938   01 0278D    32822A95     RDEXP#D  LW,R8    LEVARMD-1,X1      FIND ARM,DIS PATTERN
     8939   01 0278E    4B822A9D              AND,R8   LEVENBL-1,X1      ELIMINATE THOSE NOT ENABLED
     8940   01 0278F    4B822AA5              AND,R8   LEVTRIG-1,X1      ELIMINATE THOSE NOT TRIGGERED
     8941   01 02790    4B822ABD              AND,R8   LEVIMPL-1,X1      ELIMINATE THOSE NOT IMPLEMENTED
     8942   01 02791    4B822AB5              AND,R8   LEVNINH-1,X1      ELIMINATE THOSE INHIBITED
     8943   01 02792    35822AAD              STW,R8   LEVEXP-1,X1       RECORD LEVELS EXPECTED
     8944   01 02793    6410278D              BDR,X1   RDEXP#D           LOOP IF NOT THROUGH
     8945   01 02794    02200000 A            LCI      0                 RESTORE REGISTERS
     8946   01 02795    2A002ACC              LM,0     SAVE
     8947   01 02796    E8000006 A            B        *LINK             EXIT
     8948                            *
     8949                            *
     8950                            *
     8951                            *
     8952                                     TITLE    ;
     8953                             '                    READ FLIP FLOP ROUTINE'                          *
     8954                            *
     8955                            *************************
     8956                            * READ FLIP FLOP STATES *
     8957                            *************************
     8958                            *
     8959                            *  OPTION 1
     8960                            *    ENTER AT RDSTATES WITH 1. GROUP # IN REG. GRP
     8961                            *                           2. LEVEL # IN REG. LVL
     8962                            *                           3. RETURN ADDRESS IN LINK REG.
     8963                            *
     8964                            *  OPTION 2
     8965                            *    ENTER AT READFF WITH   1. GROUP# AND LEVEL# IN REG. RC
     8966                            *                           2. RETURN ADDRESS IN LINK REG.
     8967                            *
     8968                            *  EXIT WITH THE FLIP FLOP STATES OF THE SELECTED LEVEL
     8969                            *         IN BINARY IN THE LINK REGISTER AS BELOW:
     8970                            *         BIT 29 I(S)    BIT 30 I(P)           BIT 31 I(N)
     8971                            *                 0       0    DISARMED           0  DISABLED
     8972                            *                 0       1    ARMED              1  ENABLED
     8973                            *                 1       0    ACTIVE
     8974                            *                 1       1    WAITING (OR NOT IMPLEMENTED)
     8975                            *
     8976                            *
     8977   01 02797    3560279C     RDSTATES STW,LINK READFF-1          SAVE RETURN ADDRESS
     8978   01 02798    02200000 A            LCI      0                 SAVE REGISTERS
     8979   01 02799    2B002ACC              STM,0    SAVE
     8980   01 0279A    680027A4              B        READFF#A          SKIP GROUP AND LEVEL DECODING
     8981   01 0279B    00000000 A            DATA     0                 SUBROUTINE OUTPUT
     8982   01 0279C    00000000 A            DATA     0                 RETURN ADDRESS
     8983   01 0279D    3560279C     READFF   STW,LINK READFF-1          SAVE RETURN
     8984   01 0279E    02200000 A            LCI      0                 SAVE REGISTERS
     8985   01 0279F    2B002ACC              STM,0    SAVE
     8986   01 027A0    22600000 A            LI,LINK  0                 ZERO THE OUTPUT STORE
     8987   01 027A1    75C00003 A            STB,RC   LVL               FIND GROUP AND LEVEL NUMBERS
     8988   01 027A2    25200104 A            SLD,GRP  4                 MOVE GROUP # INTO GRP REG.
     8989   01 027A3    25300064 A            SLS,LVL  -28               RIGHT JUSTIFY LEVEL #
     8990   01 027A4    020027A4     READFF#A NOP      %
     8991   01 027A5    22600000 A            LI,LINK  0
     8992   01 027A6    6C841400 A            RD,R8    ENBL,GRP          READ STATUS
     8993   01 027A7    4B862B36              AND,R8   LEVMASK,LVL       WAS IT ENABLED
     8994   01 027A8    683027AA              BEZ      %+2               BRANCH IF NO
     8995   01 027A9    20600001 A            AI,LINK  1                 SAY FF I(N) IS SET
     8996   01 027AA    6C841200 A            RD,R8    WAIT:ACT,GRP      READ STATUS
     8997   01 027AB    4B862B36              AND,R8   LEVMASK,LVL       WAS IT WAITING OR ACTIVE
     8998   01 027AC    683027AE              BEZ      %+2               BRANCH IF NO
     8999   01 027AD    20600004 A            AI,LINK  4                 SAY FF I(S) IS SET
     9000   01 027AE    6C841100 A            RD,R8    ARM:WAIT,GRP      READ STATUS
     9001   01 027AF    4B862B36              AND,R8   LEVMASK,LVL       WAS IT ARMED OR WAITING
     9002   01 027B0    683027B2              BEZ      %+2               BRANCH IF NO
     9003   01 027B1    20600002 A            AI,LINK  2                 SAY FF I(P) IS SET
     9004   01 027B2    3560279B              STW,LINK READFF-2          SAVE BINARY OUTPUT
     9005   01 027B3    02200000 A            LCI      0
     9006   01 027B4    2A002ACC              LM,0     SAVE              RESTORE REGISTERS
     9007   01 027B5    3260279B              LW,LINK  READFF-2          STORE OUTPUT IN LINK
     9008   01 027B6    E800279C              B        *READFF-1         EXIT
     9009                            *
     9010                            *
     9011                            *
     9012                                     TITLE    ;
     9013                             '                    READ IMPLEMENTATION ROUTINE'
     9014                            *
     9015                            **********************************************************************
     9016                            *                                                                    *
     9017                            *       R E A D    I M P L E M E N T A T I O N                       *
     9018                            *                                                                    *
     9019                            **********************************************************************
     9020                            *                                                                    *
     9021                            *                                                                    *
     9022                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER                        *
     9023                            *             IMPLEMENTATION IN 'LEVIMPL' TABLE                      *
     9024                            *                                                                    *
     9025                            *                                                                    *
     9026                            *  EXIT WITH BRANCH ADDRESSES IN ACCESS TABLE ALTERED                *
     9027                            *                                                                    *
     9028                            **********************************************************************
     9029                            *
     9030   01 027B7    02200000 A   READIMP  LCI      0                 SAVE REGISTERS
     9031   01 027B8    2B002ACC              STM,0    SAVE
     9032   01 027B9    22400000 A            LI,X4    0                 INITIALIZE
     9033   01 027BA    22200000 A            LI,GRP   0
     9034   01 027BB    22300000 A   RDIMP#A  LI,LVL   0
     9035   01 027BC    52842ABE              LH,R8    LEVIMPL,GRP       FIND LEVELS IMPLEMENTED
     9036   01 027BD    25800010 A            SLS,R8   16                AND LEFT JUSTIFY PATTERN
     9037   01 027BE    25800001 A   RDIMP#B  SLS,R8   1                 READ ONE LEVEL
     9038   01 027BF    698027C2              BC       %+3               BRANCH IF IMPLEMENTED
     9039   01 027C0    32902B2F              LW,R9    BALNIMP           SET ADDRESS TO NOTIMPL
     9040   01 027C1    680027C3              B        %+2
     9041   01 027C2    32902B2E              LW,R9    BALNORM           SET ADDRESS TO NORM
     9042   01 027C3    35983B7A              STW,R9   VALID,X4
     9043   01 027C4    20400001 A            AI,X4    1
     9044   01 027C5    20300001 A            AI,LVL   1
     9045   01 027C6    21200000 A            CI,GRP   0
     9046   01 027C7    683027CB              BE       RDIMP#C
     9047   01 027C8    2130000F A            CI,LVL   15                IS IT LAST LEVEL IN GROUP
     9048   01 027C9    682027BE              BLE      RDIMP#B           LOOP IF NO
     9049   01 027CA    680027CE              B        RDIMP#D
     9050                            *
     9051   01 027CB    2130000D A   RDIMP#C  CI,LVL   13                IS IT LAST LEVEL IN GROUP 0
     9052   01 027CC    682027BE              BLE      RDIMP#B           LOOP IF NO
     9053   01 027CD    20200001 A            AI,GRP   1                 BYPASS NONEXIST. GROUP 1
     9054   01 027CE    20200001 A   RDIMP#D  AI,GRP   1
     9055   01 027CF    2120000F A            CI,GRP   15                IS IT LAST GROUP
     9056   01 027D0    682027BB              BLE      RDIMP#A           LOOP IF NO
     9057                            *
     9058   01 027D1    02200000 A            LCI      0                 RESTORE REGISTERS
     9059   01 027D2    2A002ACC              LM,0     SAVE
     9060   01 027D3    E8000006 A            B        *LINK
     9061                            *
     9062                            *
     9063                                     TITLE    ;
     9064                             '                    READ LOCATION'
     9065                            *
     9066                            *
     9067                            ******************************************
     9068                            *   R E A D   L O C A T I O N            *
     9069                            ******************************************
     9070                            *
     9071                            *
     9072                            *  ENTER WITH               1. GROUP # IN REG. GRP
     9073                            *                           2. LEVEL # IN REG. LVL
     9074                            *                           3. RETURN ADDRESS IN LINK REG.
     9075                            *
     9076                            *
     9077                            *  EXIT WITH LOCATION CORRESPONDING TO GROUP AND LEVEL
     9078                            *             NUMBERS IN 'LOCATION'
     9079                            *
     9080                            *
     9081   01 027D4    02200000 A   READLOC  LCI      0                 SAVE REGISTERS
     9082   01 027D5    2B002ACC              STM,0    SAVE
     9083   01 027D6    22400004 A            LI,X4    4                 SET BYTE DISPLACEMENT INDEX
     9084   01 027D7    2530001C A            SLS,LVL  28                PACK GROUP AND LEVEL INTO 1 BYTE
     9085   01 027D8    25200104 A            SLD,GRP  4                 SEARCH FOR RIGHT DBL WORD
     9086   01 027D9    71283D28     RDLOC#A  CB,GRP   HISTORY,X4
     9087   01 027DA    683027DF              BE       RDLOC#B           BRANCH IF LOCATION FOUND
     9088   01 027DB    214001DB A            CI,X4    475               IS IT TABLE END
     9089   01 027DC    681027E6              BGE      RDLOC#W           BRANCH IF YES
     9090   01 027DD    20400008 A            AI,X4    8                 INCREMENT TO NEXT DBL WORD
     9091   01 027DE    680027D9              B        RDLOC#A           KEEP LOOKING
     9092                            *
     9093   01 027DF    20400003 A   RDLOC#B  AI,X4    3                 INDEX TO LOCATION VALUE(BYTE 7)
     9094   01 027E0    72883D28              LB,R8    HISTORY,X4        FIND LOCATION VALUE
     9095   01 027E1    212000C0 A            CI,GRP   X'C0'
     9096   01 027E2    691027E4              BL       %+2
     9097   01 027E3    20800100 A            AI,R8    X'100'
     9098   01 027E4    35802A62              STW,R8   LOCATION          SAVE IT
     9099   01 027E5    680027E8              B        RDLOC#X           EXIT
     9100                            *
     9101                            *
     9102   01 027E6    2280FFFF A   RDLOC#W  LI,R8    X'FFFF'           JAM FICTIOUS VALUE
     9103   01 027E7    35802A62              STW,R8   LOCATION
     9104   01 027E8    02200000 A   RDLOC#X  LCI      0                 RESTORE REGISTERS
     9105   01 027E9    2A002ACC              LM,0     SAVE
     9106   01 027EA    E8000006 A            B        *LINK             EXIT
     9107                            *
     9108                            *
     9109                                     TITLE    ;
     9110                             '                    READ EXPECTED SEQUENCE'                          *
     9111                            *
     9112                            *    R E A D   E X P E C T E D   S E Q U E N C E   R O U T I N E
     9113                            ********************************************************************
     9114                            *
     9115                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     9116                            *             PRIORITIES IN 'SEQCOM'
     9117                            *             EXPECTED INTERRUPTS IN 'LEVEXP' TABLE
     9118                            *
     9119                            *
     9120                            *  EXIT WITH EXPECTED SEQUENCE NUMBERS STORED IN THE HISTORY TABLE
     9121                            *
     9122                            *
     9123   01 027EB    02200000 A   READSEQ  LCI      0                 SAVE REGISTERS
     9124   01 027EC    2B002ACC              STM,0    SAVE
     9125   01 027ED    22801E9A              LI,R8    DA(HISTORY+12)    FIND OVERRIDE GROUP ADDRESS
     9126   01 027EE    35801F07              STW,R8   HSTORYP           SAVE IT
     9127   01 027EF    22900000 A            LI,R9    0                 INITIALIZE REG. 9 AS EXP. SEQ. COUNT
     9128   01 027F0    52802AAE              LH,R8    LEVEXP            FIND GROUP 0 LEVELS EXPECTED
     9129   01 027F1    4B802B32              AND,R8   GRP#OVER          MASK OUT OTHER PRIORITIES
     9130   01 027F2    25800010 A            SLS,R8   16                LEFT JUSTIFY GROUP
     9131   01 027F3    227FFFFA A            LI,X7    -6                SET INDEX FOR LOOPS
     9132   01 027F4    25800001 A   RDSEQ#A  SLS,R8   1                 IS LEVEL EXPECTED
     9133   01 027F5    688027FB              BEV      RDSEQ#B           BRANCH IF NO
     9134   01 027F6    20900001 A            AI,R9    1                 INCREMENT SEQUENCE NUMBER
     9135   01 027F7    32101F07              LW,X1    HSTORYP           FIND GROUP DW ADDRESS
     9136   01 027F8    30100007 A            AW,X1    X7                FIND LEVEL DW ADDRESS
     9137   01 027F9    25100001 A            SLS,X1   1                 CONVERT TO WORD ADDRESS
     9138   01 027FA    F5900001 A            STB,R9   *X1               STORE SEQ.NO. IN HIST. TBL.
     9139   01 027FB    657027F4     RDSEQ#B  BIR,X7   RDSEQ#A           BRANCH IF GROUP NOT FINISHED
     9140   01 027FC    22500001 A            LI,X5    1                 SET PRIORITY COUNTER
     9141   01 027FD    22400010 A   RDSEQCOM LI,X4    16                SET INDEX
     9142   01 027FE    32882809              LW,R8    SEQCOM-1,X4       FIND PRIORITY
     9143   01 027FF    25800068 A            SLS,R8   -24               RIGHT JUSTIFY
     9144   01 02800    31800005 A            CW,R8     X5               CHECK PRIORITY
     9145   01 02801    69302804              BNE      %+3               BRANCH IF WRONG ONE
     9146   01 02802    32882809              LW,R8    SEQCOM-1,X4       FIND GROUP ADDRESS
     9147   01 02803    E8000008 A            B        *R8               CHECK NEXT GROUP
     9148   01 02804    644027FE              BDR,X4   RDSEQCOM+1        BRANCH IF ALL NOT CHECKED
     9149   01 02805    35902A5A              STW,R9   EXPSEQCT          SAVE NUMBER OF EXPECTED INTS.
     9150   01 02806    02200000 A            LCI      0                 RESTORE REGISTERS
     9151   01 02807    2A002ACC              LM,0     SAVE
     9152   01 02808    E8000006 A            B        *LINK             EXIT
     9153                            *
     9154                            * THE 0 BYTE OF THE FOLLOWING LOCATIONS CONTAINS THE GROUP PRIORITY
     9155                            *    (INSERTED BY THE PRIORITY ROUTINE)
     9156                            * THE ADDRESS  FIELD CONTAINS THE ADDRESS OF THE
     9157                            *        APPROPRIATE SEQUENCING SUBROUTINE
     9158                            *
     9159   01 02809    00000000 A            GEN,8,24 0,0               OVERRIDE GROUP
     9160   01 0280A    0100281A     SEQCOM   GEN,8,24 1,RDSEQ#C         COUNTER GROUP
     9161   01 0280B    0200282E              GEN,8,24 2,RDSEQ#F         I/O GROUP
     9162   01 0280C    03002835              GEN,8,24 3,RDSEQ#G         EXTERNAL GROUP 2
     9163   01 0280D    04002839              GEN,8,24 4,RDSEQ#H         EXTERNAL GROUP 3
     9164   01 0280E    0500283D              GEN,8,24 5,RDSEQ#J         EXTERNAL GROUP 4
     9165   01 0280F    06002841              GEN,8,24 6,RDSEQ#K         EXTERNAL GROUP 5
     9166   01 02810    07002845              GEN,8,24 7,RDSEQ#L         EXTERNAL GROUP 6
     9167   01 02811    08002849              GEN,8,24 8,RDSEQ#M         EXTERNAL GROUP 7
     9168   01 02812    0900284D              GEN,8,24 9,RDSEQ#N         EXTERNAL GROUP 8
     9169   01 02813    0A002851              GEN,8,24 10,RDSEQ#P        EXTERNAL GROUP 9
     9170   01 02814    0B002855              GEN,8,24 11,RDSEQ#Q        EXTERNAL GROUP 10
     9171   01 02815    0C002859              GEN,8,24 12,RDSEQ#R        EXTERNAL GROUP 11
     9172   01 02816    0D00285D              GEN,8,24 13,RDSEQ#S        EXTERNAL GROUP 12
     9173   01 02817    0E002861              GEN,8,24 14,RDSEQ#T        EXTERNAL GROUP 13
     9174   01 02818    0F002865              GEN,8,24 15,RDSEQ#U        EXTERNAL GROUP 14
     9175   01 02819    10002869              GEN,8,24 16,RDSEQ#V        EXTERNAL GROUP 15
     9176                            *
     9177                            *  LOOK FOR COUNTER ZERO INTERRUPTS EXPECTED
     9178                            *
     9179   01 0281A    227FFFFC A   RDSEQ#C  LI,X7    -4                SET INDEX FOR 4 LEVEL SEARCH
     9180   01 0281B    22801E9E              LI,R8    DA(HISTORY+20)
     9181   01 0281C    35801F07              STW,R8   HSTORYP
     9182   01 0281D    52802AAE              LH,R8    LEVEXP            FIND GROUP 0 EXPECTED INTS.
     9183   01 0281E    4B802B33              AND,R8   GRP#CNTR          MASK OUT OTHER PRIORITIES
     9184   01 0281F    25800016 A            SLS,R8   22                LEFT JUSTIFY COUNTER GROUP
     9185   01 02820    68002824              B        RDSEQ#E           GO TO COMMON ROUTINE
     9186                            *
     9187                            *
     9188   01 02821    52822AAF     RDSEQ#D  LH,R8    LEVEXP+1,X1       FIND EXPECTED INTS. FOR GROUP
     9189   01 02822    25800010 A            SLS,R8   16                LEFT JUSTIFY GROUP
     9190   01 02823    227FFFF0 A            LI,X7    -16               SET LOOP INDEX
     9191   01 02824    20500001 A   RDSEQ#E  AI,X5    1                 INCREMENT PRIORITY COUNT
     9192   01 02825    25800001 A            SLS,R8   1                 CHECK IF LEVEL EXPECTED
     9193   01 02826    6880282C              BEV      %+6               BRANCH IF NO
     9194   01 02827    20900001 A            AI,R9    1                 INCREMENT SEQUENCE NUMBER
     9195   01 02828    32101F07              LW,X1    HSTORYP           FIND GROUP DW ADDRESS
     9196   01 02829    30100007 A            AW,X1    X7                FIND LEVEL DW ADDRESS
     9197   01 0282A    25100001 A            SLS,X1   1                 CONVERT TO WORD ADDRESS
     9198   01 0282B    F5900001 A            STB,R9   *X1               STORE SEQ.NO. IN HIST. TBL.
     9199   01 0282C    65702825              BIR,X7   RDSEQ#E+1         LOOP IF NOT LOWEST PRI. LVL.
     9200   01 0282D    680027FD              B        RDSEQCOM          FIND NEXT LOWER PRI. GROUP
     9201                            *
     9202                            * ENTER HERE TO SEARCH FOR I/O LEVELS EXPECTED TO INTERRUPT
     9203                            *
     9204   01 0282E    227FFFFE A   RDSEQ#F  LI,X7    -2                SET LOOP INDEX
     9205   01 0282F    22801EA0              LI,R8    DA(HISTORY+24)    FIND GROUP DW ADDRESS
     9206   01 02830    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9207   01 02831    52802AAE              LH,R8    LEVEXP            FIND GROUP 0 EXPECTED INTS.
     9208   01 02832    4B802B34              AND,R8   GRP#IO            MASK OUT OTHER PRIORITIES
     9209   01 02833    2580001A A            SLS,R8   26                LEFT JUSTIFY I/O GROUP
     9210   01 02834    68002824              B        RDSEQ#E           GO TO COMMON ROUTINE
     9211                            *
     9212   01 02835    22801EB2     RDSEQ#G  LI,R8    DA(HISTORY+60)    FIND GROUP DW ADDRESS
     9213   01 02836    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9214   01 02837    22100000 A            LI,X1    0                 SET INDEX
     9215   01 02838    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9216                            *
     9217   01 02839    22801EC2     RDSEQ#H  LI,R8    DA(HISTORY+92)    FIND GROUP DW ADDRESS
     9218   01 0283A    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9219   01 0283B    22100001 A            LI,X1    1                 SET INDEX
     9220   01 0283C    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9221                            *
     9222   01 0283D    22801ED2     RDSEQ#J  LI,R8    DA(HISTORY+124)   FIND GROUP DW ADDRESS
     9223   01 0283E    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9224   01 0283F    22100002 A            LI,X1    2                 SET INDEX
     9225   01 02840    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9226                            *
     9227   01 02841    22801EE2     RDSEQ#K  LI,R8    DA(HISTORY+156)   FIND GROUP DW ADDRESS
     9228   01 02842    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9229   01 02843    22100003 A            LI,X1    3                 SET INDEX
     9230   01 02844    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9231                            *
     9232   01 02845    22801EF2     RDSEQ#L  LI,R8    DA(HISTORY+188)   FIND GROUP DW ADDRESS
     9233   01 02846    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9234   01 02847    22100004 A            LI,X1    4                 SET INDEX
     9235   01 02848    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9236                            *
     9237   01 02849    22801F02     RDSEQ#M  LI,R8    DA(HISTORY+220)   FIND GROUP DW ADDRESS
     9238   01 0284A    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9239   01 0284B    22100005 A            LI,X1    5                 SET INDEX
     9240   01 0284C    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9241                            *
     9242   01 0284D    22801F12     RDSEQ#N  LI,R8    DA(HISTORY+252)   FIND GROUP DW ADDRESS
     9243   01 0284E    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9244   01 0284F    22100006 A            LI,X1    6                 SET INDEX
     9245   01 02850    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9246                            *
     9247   01 02851    22801F22     RDSEQ#P  LI,R8    DA(HISTORY+284)   FIND GROUP DW ADDRESS
     9248   01 02852    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9249   01 02853    22100007 A            LI,X1    7                 SET INDEX
     9250   01 02854    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9251                            *
     9252   01 02855    22801F32     RDSEQ#Q  LI,R8    DA(HISTORY+316)   FIND GROUP DW ADDRESS
     9253   01 02856    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9254   01 02857    22100008 A            LI,X1    8                 SET INDEX
     9255   01 02858    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9256                            *
     9257   01 02859    22801F42     RDSEQ#R  LI,R8    DA(HISTORY+348)   FIND GROUP DW ADDRESS
     9258   01 0285A    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9259   01 0285B    22100009 A            LI,X1    9                 SET INDEX
     9260   01 0285C    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9261                            *
     9262   01 0285D    22801F52     RDSEQ#S  LI,R8    DA(HISTORY+380)   FIND GROUP DW ADDRESS
     9263   01 0285E    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9264   01 0285F    2210000A A            LI,X1    10                SET INDEX
     9265   01 02860    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9266                            *
     9267   01 02861    22801F62     RDSEQ#T  LI,R8    DA(HISTORY+412)   FIND GROUP DW ADDRESS
     9268   01 02862    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9269   01 02863    2210000B A            LI,X1    11                SET INDEX
     9270   01 02864    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9271                            *
     9272   01 02865    22801F72     RDSEQ#U  LI,R8    DA(HISTORY+444)   FIND GROUP DW ADDRESS
     9273   01 02866    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9274   01 02867    2210000C A            LI,X1    12                SET INDEX
     9275   01 02868    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9276                            *
     9277   01 02869    22801F82     RDSEQ#V  LI,R8    DA(HISTORY+476)   FIND GROUP DW ADDRESS
     9278   01 0286A    35801F07              STW,R8   HSTORYP           SAVE ADDRESS
     9279   01 0286B    2210000D A            LI,X1    13                SET INDEX
     9280   01 0286C    68002821              B        RDSEQ#D           GO TO COMMON ROUTINE
     9281                            *
     9282                            *
     9283                                     TITLE    ;
     9284                             '                    READ STATUS'
     9285                            *
     9286                            *
     9287                            ****************************************************
     9288                            *  R E A D   S T A T U S
     9289                            ****************************************************
     9290                            *
     9291                            *  THIS ROUTINE FORMATS THE STATUS REPORT MESSAGE ('STATMSG')
     9292                            *    AND OUTPUTS IT TO THE COMMUNICATION DEVICE (COMDEV.)
     9293                            *
     9294                            *  ENTER WITH RETURN ADDRESS IN THE 'LINK' REGISTER
     9295                            *
     9296                            ****************************************************
     9297                            *
     9298   01 0286D    6A60286F     READSTAT BAL,LINK  STATMSGS
     9299   01 0286E    E80003CB              B        *#RETURN%
     9300                            *
     9301                            *
     9302   01 0286F                 STATMSGS  RES     0
     9303   01 0286F    02200000 A            LCI      0                 SAVE REGISTERS
     9304   01 02870    2B002AEC              STM,0    SAVE#2
     9305   01 02871    6A601E69              SEND     STATMSG
            01 02872    0000C2EC A
     9306   01 02873    221054C1              LI,X1    HA(LASTTEST)+1    FIND ADDRESS
     9307   01 02874    6A60239E              LOADHALF 4,20,STRIPZ       SET TEST NUMBER PARAMETER
            01 02875    4280237F
     9308   01 02876    221054BF              LI,X1    HA(LASTPASS)+1    FIND ADDRESS
     9309   01 02877    6A60239E              LOADHALF 4,41,STRIPZ       SET PASS COUNT PARAMETER
            01 02878    4520237F
     9310   01 02879    221054BD              LI,X1    HA(LASTERR%T)+1   FIND ADDRESS
     9311   01 0287A    6A60239E              LOADHALF 4,70,LOADBUF      SET TOTAL ERROR COUNT PARAMETER
            01 0287B    48C0237B
     9312   01 0287C    221054BB              LI,X1    HA(LASTERR%P)+1   FIND ADDRESS
     9313   01 0287D    6A60239E              LOADHALF 4,65,LOADBUF      SET ERROR  COUNT AS PARAMETER
            01 0287E    4820237B
     9314   01 0287F    6C100045 A            RD,X1    X'45'             READ PRESENT CLOCK MARGIN
     9315   01 02880    2510006A A            SLS,X1   -22
     9316   01 02881    4B102C7B              AND,X1   THREE
     9317   01 02882    721228A5              LB,X1    CM%ACTUAL,X1      FIND IT IN EBCDIC
     9318   01 02883    75103F11              STB,X1   OUTBUF+13             AND DISPLAY IT
     9319                            *
     9320   01 02884    728003A1              LB,R8    #STATUS           FIND STATUS AND MODIFY MSG
     9321   01 02885    22100001 A            LI,X1    1
     9322   01 02886    75823F04              STB,R8   OUTBUF,X1
     9323                            *
     9324   01 02887    22102A61              LI,X1    LASTSUB           FIND ADDRESS
     9325   01 02888    6A6023A8              LOADWORD 8,29,STRIPZ       SET SUBTEST PARAMETER
            01 02889    83A0237F
     9326                            *
     9327   01 0288A    330028A4     RDSTAT#B MTW,0    AUTOSTATUS
     9328   01 0288B    69302895              BNEZ     RDSTAT#C          BRANCH IF NOT AUTO STATUS MSG.
     9329   01 0288C    6A6028A7              #TYPE    UPSPACE
            01 0288D    EA6003CC
            01 0288E    0000B1C0 A
            01 0288F    6A6028D0
     9330   01 02890    6A6028A7              #TYPE    OUTBUF            TYPE STATUS REPORT
            01 02891    EA6003CC
            01 02892    0000FC10 A
            01 02893    6A6028D0
     9331   01 02894    6800289F              B        RDSTAT#D
     9332                            *
     9333   01 02895    22800000 A   RDSTAT#C LI,R8    0
     9334   01 02896    358028A4              STW,R8   AUTOSTATUS        ZERO OUT FLAG
     9335   01 02897    6A6028A7              #PRINT   UPSPACE
            01 02898    EA6003CD
            01 02899    C000B1C0 A
            01 0289A    6A6028D0
     9336   01 0289B    6A6028A7              #PRINT   OUTBUF
            01 0289C    EA6003CD
            01 0289D    C000FC10 A
            01 0289E    6A6028D0
     9337                            *
     9338         01 0289F           RDSTAT#D EQU      %                                                 *B00
     9339   01 0289F    32C02A0C              LW,RC    STATEXP%
     9340   01 028A0    B5C003CE              STW,RC   *#ERRTEXT%
     9341                            *
     9342   01 028A1    02200000 A            LCI      0
     9343   01 028A2    2A002AEC              LM,0     SAVE#2            RESTORE REGISTERS
     9344   01 028A3    E8000006 A            B        *LINK
     9345                            *
     9346   01 028A4    00000000 A   AUTOSTATUS  DATA  0                 SET TO NON-ZERO IF AUTO REPORT
     9347                            *
     9348   01 028A5    F0F1F2F3 A   CM%ACTUAL TEXT    '0123'
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   26
A    9349                                     PAGE                                                       *A02
     9350                            *                                                                   *A02
     9351                            *  THE FOLLOWING ROUTINE SAVES THE STATES OF THE INHIBITS AND OF    *A02
     9352                            *     THE OVERRIDE INTS. AND REPLACES THE GUIDE INSTR. IN           *A02
     9353                            *        LOCATION X'55' BEFORE EXITING TO GUIDE                     *A02
     9354                            *                                                                   *A02
     9355   01 028A6    00000000 A            DATA     0                                                 *B00
     9356         01 028A7           SAVE%CLKS  EQU    %                                                 *B00
     9357   01 028A7    356028A6              STW,LINK %-1                                               *B00
     9358   01 028A8    F26003D7              LB,LINK  *#S%MODE%                                         *B00
     9359   01 028A9    683028AB              BCR,3    %+2               BRANCH IF NOT IN DIRECTIVE MODE *B00
     9360   01 028AA    E80028A6              B        *SAVE%CLKS-1      EXIT                            *B00
     9361                            *                                                                   *B00
     9362   01 028AB    326028A6              LW,LINK  SAVE%CLKS-1                                       *B00
     9363   01 028AC    02200000 A            LCI      0                                                 *A02
     9364   01 028AD    2B00290C              STM,0    SAVE#6                                            *A02
     9365   01 028AE    6C800048 A            RD,R8    X'48'             SAVE INHIBIT STATES             *A02
     9366   01 028AF    3580291C              STW,R8   SAVEINH                                           *A02
     9367   01 028B0    6D000037 A            WD,0     X'37'             SET ALL INHIBITS                *A02
     9368   01 028B1    32802905              LW,R8    GUIDE55           FETCH GUIDE'S MTW               *B00
     9369   01 028B2    46800055 A            XW,R8    X'55'             RESTORE GUIDE INST. IN X'55'    *A02
     9370   01 028B3    6C901200 A            RD,R9    WAIT:ACT          READ I(S) FF'S                  *A02
     9371   01 028B4    6CA01100 A            RD,RA    ARM:WAIT          READ I(P) FF'S                  *A02
     9372   01 028B5    6CB01400 A            RD,RB    ENBL              READ (IN) FF'S                  *A02
     9373   01 028B6    22700004 A            LI,X7    4                                                 *B00
     9374   01 028B7    2250000E A            LI,X5    14                                                *B00
     9375                            *                                                                   *B00
     9376                            *    SAVE THE INTERRUPT STATES OF ALL LEVELS IN GROUP 0             *B00
     9377                            *                                                                   *B00
     9378         01 028B8           SAVE%CLKS#A EQU   %                                                 *A02
     9379   01 028B8    22400000 A            LI,X4    0                                                 *A02
     9380   01 028B9    31700009 A            CW,X7    R9                IS I(S) SET                     *A02
     9381   01 028BA    684028BC              BCR,4    %+2               BRANCH IF NO                    *A02
     9382   01 028BB    20400004 A            AI,X4    4                                                 *A02
     9383   01 028BC    3170000A A            CW,X7    RA                IS I(P) SET                     *A02
     9384   01 028BD    684028BF              BCR,4    %+2               BRANCH IF NO                    *A02
     9385   01 028BE    20400002 A            AI,X4    2                                                 *A02
     9386   01 028BF    3170000B A            CW,X7    RB                IS I(N) SET                     *A02
     9387   01 028C0    684028C2              BCR,4    %+2               BRANCH IF NO                    *A02
     9388   01 028C1    20400001 A            AI,X4    1                                                 *A02
     9389   01 028C2    754A2906              STB,X4   CLK%STATE,X5      SAVE STATE OF THIS LEVEL        *A02
     9390   01 028C3    25700001 A            SLS,X7   1                                                 *A02
     9391   01 028C4    645028B8              BDR,X5   SAVE%CLKS#A       LOOP IF ALL NOT SAVED           *A02
     9392                            *                                                                   *A02
     9393   01 028C5    2270FFFC A            LI,X7    X'FFFC'                                           *B00
     9394   01 028C6    6D701100 A            WD,X7    DISARM            DISARM ALL GROUP 0 INTS.        *B00
     9395   01 028C7    F02003D8              LC       *#COCSTATE%                                       *B00
     9396   01 028C8    68C028CD              BCR,12   %+5               BRANCH IF NO REMOTE TERM.       *B00
     9397   01 028C9    327003F9              LW,X7    COCMASK                                           *B00
     9398   01 028CA    48702C78              EOR,X7   M1                                                *B00
     9399   01 028CB    325003F8              LW,X5    COCGRP                                            *B00
     9400   01 028CC    6D7A1100 A            WD,X7    DISARM,X5         DISARM COC EXTERNAL INTS.       *B00
     9401   01 028CD    22701C00 A            LI,X7    X'1C00'                                           *B00
     9402   01 028CE    6D701200 A            WD,X7    ARME              ARM & ENABLE COUNTER 4          *A02
     9403   01 028CF    E8000006 A            B        *LINK                                             *A02
     9404                            *                                                                   *A02
     9405                            *                                                                   *A02
     9406                            *                                                                   *A02
     9407                            *        THE FOLLOWING RETURN RESTORES ALL GROUP ZERO INTERRUPTS    *B00
     9408                            *           TO THE SAVED STATE AFTER RETURN FROM GUIDE              *B00
     9409                            *                                                                   *A02
     9410         01 028D0           RESTORE%CLKS EQU  %                                                 *B00
     9411   01 028D0    356028A6              STW,LINK SAVE%CLKS-1                                       *B00
     9412   01 028D1    F26003D7              LB,LINK  *#S%MODE%                                         *B00
     9413   01 028D2    683028D4              BCR,3    %+2               BRANCH IF NOT IN DIRECTIVE MODE *B00
     9414   01 028D3    E80028A6              B        *SAVE%CLKS-1      EXIT                            *B00
     9415                            *                                                                   *B00
     9416   01 028D4    326028A6              LW,LINK  SAVE%CLKS-1                                       *B00
     9417   01 028D5    35602912              STW,LINK SAVE#6+LINK                                       *A02
     9418   01 028D6    22500001 A            LI,X5    1                 START RESTORE AT CNTR. 1        *A02
     9419   01 028D7    22900000 A            LI,R9    0                                                 *A02
     9420   01 028D8    3590291E              STW,R9   MTW%RES+1                                         *A02
     9421   01 028D9    3290291D              LW,R9    MTW%RES           FETCH MTW INSTRUCTIONS          *A02
     9422   01 028DA    32A0291D              LW,RA    MTW%RES                                           *A02
     9423   01 028DB    32B0291D              LW,RB    MTW%RES                    AND                    *A02
     9424   01 028DC    32C0291D              LW,RC    MTW%RES                                           *A02
     9425   01 028DD    46900052 A            XW,R9    X'52'             TEMPORARILY BYPASS INTERRUPTS  *A02
     9426   01 028DE    46A00053 A            XW,RA    X'53'                                             *A02
     9427   01 028DF    46B00054 A            XW,RB    X'54'             TO INTERRUPT HANDLER            *A02
     9428   01 028E0    46C00055 A            XW,RC    X'55'                                             *A02
     9429   01 028E1    22708000 A            LI,X7    X'8000'           SELECT COUNTER 1                *A02
     9430         01 028E2           RESTORE%CLKS#A  EQU  %                                              *A02
     9431   01 028E2    6D701200 A            WD,X7    ARME              INITIALIZE CLOCK TO ARM & ENBL. *A02
     9432   01 028E3    724A2906              LB,X4    CLK%STATE,X5      FIND PREVIOUS STATE             *A02
     9433   01 028E4    680828E5              B        %+1,X4              AND RESTORE IT                *A02
     9434                            *                                                                   *A02
     9435   01 028E5    680028ED              B        RESTORE0          DISARM(D)                       *A02
     9436   01 028E6    680028F0              B        RESTORE1          DISARM(E)                       *A02
     9437   01 028E7    680028EE              B        RESTORE2          ARM(D)                          *A02
     9438   01 028E8    680028F7              B        RESTORE%CLKS#B    ARM(E)                          *A02
     9439   01 028E9    680028F2              B        RESTORE4          ACTIVE(D)                       *A02
     9440   01 028EA    680028F3              B        RESTORE5          ACTIVE(E)                       *A02
     9441   01 028EB    680028F5              B        RESTORE6          WAIT(D)                         *A02
     9442   01 028EC    680028F6              B        RESTORE7          WAIT(E)                         *A02
     9443                            *                                                                   *A02
     9444   01 028ED    6D701100 A   RESTORE0 WD,X7    DISARM                                            *A02
     9445   01 028EE    6D701500 A   RESTORE2 WD,X7    DISABLE                                           *A02
     9446   01 028EF    680028F7              B        RESTORE%CLKS#B                                    *A02
     9447                            *                                                                   *A02
     9448   01 028F0    6D701500 A   RESTORE1 WD,X7    DISABLE                                           *A02
     9449   01 028F1    680028F7              B        RESTORE%CLKS#B                                    *A02
     9450                            *                                                                   *A02
     9451   01 028F2    6D701500 A   RESTORE4 WD,X7    DISABLE                                           *A02
     9452   01 028F3    6D701000 A   RESTORE5 WD,X7    ACTIVATE                                          *A02
     9453   01 028F4    680028F7              B        RESTORE%CLKS#B                                    *A02
     9454                            *                                                                   *A02
     9455   01 028F5    6D701500 A   RESTORE6 WD,X7    DISABLE                                           *A02
     9456   01 028F6    6D701700 A   RESTORE7 WD,X7    TRIG                                              *A02
     9457                            *                                                                   *A02
     9458         01 028F7           RESTORE%CLKS#B EQU  %                                               *A02
     9459   01 028F7    2570007F A            SLS,X7   -1                                                *A02
     9460   01 028F8    20500001 A            AI,X5    1                                                 *A02
     9461   01 028F9    21700004 A            CI,X7    4                                                 *B00
     9462   01 028FA    681028E2              BGE      RESTORE%CLKS#A    LOOP UNTIL ALL ARE RESTORED     *A02
     9463   01 028FB    46900052 A            XW,R9    X'52'             RESTORE INSTR. IN CNTR. 1 LOC'N *A02
     9464   01 028FC    46A00053 A            XW,RA    X'53'                               CNTR. 2       *A02
     9465   01 028FD    46B00054 A            XW,RB    X'54'                               CNTR. 3       *A02
     9466   01 028FE    35800055 A            STW,R8   X'55'                               CNTR. 4       *A02
     9467   01 028FF    3260291C              LW,LINK  SAVEINH                                           *B00
     9468   01 02900    6D600048 A            WD,LINK  X'48'             RESTORE INHIBITS                *B00
     9469   01 02901    02200000 A            LCI      0                                                 *A02
     9470   01 02902    2A00290C              LM,0     SAVE#6                                            *A02
     9471   01 02903    702003AC              LC       #BRKOUT                                           *A02
     9472   01 02904    E8000006 A            B        *LINK             RETURN                          *A02
     9473                            *                                                                   *A02
     9474   01 02905    00000000 A   GUIDE55  DATA     0                 GUIDE INSTR. IN X'55'           *A02
     9475                            *                                                                   *A02
     9476   01 02906    00000000 A   CLK%STATE DATA    0,0               COUNTER FF STATES               *A02
            01 02907    00000000 A
     9477   01 02908    00000000 A   CLK%SAVE DATA     0,0,0,0           GROUP ZERO INT. STATE SAVE      *B00
            01 02909    00000000 A
            01 0290A    00000000 A
            01 0290B    00000000 A
     9478                            *                            (BYTE 1= CNTR. 1, BYTE 2 = 2 ETC.)     *A02
     9479                            *                                                                   *A02
     9480                            *                                                                   *A02
     9481   01 0290C                 SAVE#6   RES      16                                                *A02
     9482                            *                                                                   *A02
     9483   01 0291C    00000000 A   SAVEINH  DATA     0                 INHIBIT STATE SAVE              *A02
     9484                            *                                                                   *A02
     9485   01 0291D    3310291E     MTW%RES  MTW,1    %+1                                               *A02
     9486   01 0291E    00000000 A            DATA     0                                                 *A02
     9487                                     TITLE    ;
     9488                             '                    SET HIGH PRIORITY'
     9489                            *
     9490                            *
     9491                            **********************************************************************
     9492                            *                                                                    *
     9493                            *  S E T   H I G H    P R I O R I T Y   T O    A C T I V E           *
     9494                            *                                                                    *
     9495                            **********************************************************************
     9496                            *                                                                    *
     9497                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER                        *
     9498                            *                                                                    *
     9499                            *  EXIT WITH THE HIGHEST IMPLEMENTED PRIORITY SET TO THE             *
     9500                            *       ACTIVE STATE TO EFFECTIVELY INHIBIT FURTHER INTERRUPTS       *
     9501                            *                                                                    *
     9502                            **********************************************************************
     9503                            *
     9504         01 0291F           SETHIGH EQU       %
     9505   01 0291F    330003F2              MTW,0    TESTNO
     9506   01 02920    683C0000 A            BCR,3    0,X6              EXIT IF TESTS NOT STARTED
     9507   01 02921    02200000 A            LCI      0
     9508   01 02922    2B002ADC              STM,0    SAVE#1
     9509   01 02923    32302A5C              LW,LVL   HI%PRI%INT+1      HAS HIGH INT. LVL BEEN FOUND
     9510   01 02924    6930293B              BNEZ     SETHIGH#1         BRANCH IF YES
     9511                            *
     9512                            *  FIND THE HIGHEST PRIORITY LEVEL IN THE OVERRIDE GROUP
     9513                            *
     9514   01 02925    229FFFFF A            LI,R9    -1                                                *A02
     9515   01 02926    6D901100 A            WD,R9    DISARM                                            *A02
     9516   01 02927    6C301100 A            RD,LVL   ARM:WAIT
     9517   01 02928    6C901200 A            RD,R9    WAIT:ACT
     9518   01 02929    4B900003 A            AND,R9   LVL
     9519   01 0292A    22305FFF A            LI,LVL   X'5FFF'                                           *A02
     9520   01 0292B    49900003 A            OR,R9    LVL                                               *A02
     9521                            *
     9522                            *   R9 NOW CONTAINS A ZERO FOR EACH IMPLEMENTED CNTR. MODULE        *A02
     9523                            *
     9524   01 0292C    219FFFFF A            CI,R9    -1                ARE ANY LEVELS IMPLEMENTED
     9525   01 0292D    6930292F              BNE      %+2               BRANCH IF YES
     9526   01 0292E    6A601D26              BAL,LINK ABORT             UNRECOVERABLE ERROR IF NO
     9527   01 0292F    22300052 A            LI,LVL   X'52'
     9528   01 02930    25900010 A            SLS,R9   16                FIND WHICH ONE IS HIGHEST
     9529   01 02931    25900001 A            SLS,R9   1
     9530   01 02932    68802935              BCR,8    %+3               BRANCH WHEN FOUND               *A01
     9531   01 02933    20300001 A            AI,LVL   1
     9532   01 02934    68002931              B        %-3               TRY AGAIN
     9533                            *
     9534   01 02935    35302A5C              STW,LVL  HI%PRI%INT+1
     9535   01 02936    203FFFAE A            AI,LVL   -X'52'            SELECT NOTHIGH LEVELS
     9536   01 02937    35302A5B              STW,LVL  HI%PRI%INT
     9537   01 02938    52962954              LH,R9    NOTHIMASK,LVL              *
     9538   01 02939    55902AC7              STH,R9   NOTHIGH                    *
     9539   01 0293A    6800293C              B        %+2
     9540                            *
     9541   01 0293B    203FFFAE A   SETHIGH#1 AI,LVL  -X'52'
     9542   01 0293C    32862B36              LW,R8    LEVMASK,LVL
     9543   01 0293D    6A602737              BAL,LINK READACT           FIND IF ALREADY ACTIVE
     9544   01 0293E    32602A44              LW,LINK  ACTIVELOCN
     9545   01 0293F    31602A5C              CW,LINK  HI%PRI%INT+1
     9546   01 02940    68302946              BE       SETHIGH#2         BRANCH IF YES
     9547                            *
     9548   01 02941    6D801300 A            WD,R8    ARMD              SET IT TO ARMED STATE
     9549   01 02942    6D801000 A            WD,R8    ACTIVATE          SET IT TO ACTIVE
     9550                            *
     9551   01 02943    6A602737              BAL,LINK READACT           CHECK IF ACTIVE
     9552   01 02944    31302A43              CW,LVL   ACTIVELVL
     9553   01 02945    69302949              BNE      SETHIGHABORT      ABORT IF NOT ACTIVE
     9554                            *
     9555   01 02946    02200000 A   SETHIGH#2 LCI     0                 RESTORE REGISTERS
     9556   01 02947    2A002ADC              LM,0     SAVE#1
     9557   01 02948    E8000006 A            B        *LINK             RETURN TO BAL+1
     9558                            *
     9559                            *        ENTRY HERE INDICATES EITHER A WRITE DIRECT OR READ DIRECT
     9560                            *        MALFUNCTION FOR THE HIGH PRIORITY INTERRUPT.
     9561                            *        THE INTERRUPT TESTS CANNOT BE RUN UNLESS THIS IS CORRECTED.
     9562                            *
     9563         01 02949           SETHIGHABORT  EQU %
     9564   01 02949    02200000 A            LCI      0
     9565   01 0294A    2B002B0C              STM,0    SAVE#4
     9566   01 0294B    22C000B1 A            LI,RC    X'B1'
     9567   01 0294C    22D00004 A            LI,RD    4                 EXPECTED STATE = ACTIVE/DISABLED
     9568   01 0294D    22F00002 A            LI,RF    2
     9569   01 0294E    22B01000 A            LI,RB    X'1000'
     9570   01 0294F    32802A5C              LW,R8    HI%PRI%INT+1
     9571   01 02950    35802A62              STW,R8   LOCATION
     9572   01 02951    6A602122              BAL,LINK EROR              DISPLAY EROR
     9573   01 02952    22602953              LI,LINK  %+1
     9574   01 02953    6A601D28              BAL,LINK ABORT+2           ABORT THE TEST
     9575                            *
     9576   01 02954    7FFFBFFF A   NOTHIMASK DATA    X'7FFFBFFF',X'DFFFEFFF',X'F7FFFBFF'
            01 02955    DFFFEFFF A
            01 02956    F7FFFBFF A
     9577                            *
     9578                                     TITLE    ;
     9579                             '                    SET VOLTAGE AND CLOCK MARGIN ROUTINE'
     9580                            *
     9581                            *
     9582                            **********************************************************
     9583                            *
     9584                            *  THIS ROUTINE CHECKS IF THE NUMBER OF ERROR FREE PASSES (ERRORFREE)
     9585                            *        EQUALS  THE NUMBER REQUIRED FOR MARGIN CHANGE (PASSMARGIN)
     9586                            *        AND IF IT DOES, THE MARGIN IS CHANGED AS BELOW:
     9587                            *            NORM GOES TO HIGH, HIGH GOES TO LOW, AND LOW GOES TO NORM
     9588                            *
     9589                            ***********************************************************
     9590                            *
     9591   01 02957                 SETMARGIN RES     0
     9592   01 02957    35602B2C              STW,LINK SAVELINK                                          *A02
     9593   01 02958    6CA00045 A            RD,LOG   MARGINS           FIND CURRENT MARGIN
     9594   01 02959    4BA0248B              AND,LOG  MARGINMASK
     9595   01 0295A    22400002 A            LI,X4    2                 PLINE DISPACEMENT TO BYTE 2
     9596   01 0295B    72882489     SETM#A   LB,R8    PLINE#J+5,X4      FIND CLOCK MARGIN
     9597   01 0295C    218000C4 A            CI,R8    X'C4'             IS MARGIN FIXED
     9598   01 0295D    69102972              BL       SETM#X            BRANCH IF YES
     9599   01 0295E    31A02C9C              CW,LOG   X100000                                           *A02
     9600   01 0295F    69402965              BCS,4    SETM#B            BRANCH IF NO VOLTAGE MARGIN     *A02
     9601   01 02960    6A6028A7              #TYPE,1,1 VOLTMSG                                          *A02
            01 02961    EA6003CC
            01 02962    0160C47E A
            01 02963    6A6028D0
     9602   01 02964    68002972              B        SETM#X                                            *A02
     9603                            *                                                                   *A02
     9604   01 02965    4B802C7B     SETM#B   AND,R8   THREE                                             *A02
     9605   01 02966    21800002 A            CI,R8    2                 IS IT LO MARGIN
     9606   01 02967    69102969              BL       %+2               BRANCH IF NO
     9607   01 02968    228FFFFF A            LI,R8    -1                RETURN MARGIN TO NORMAL
     9608   01 02969    20800001 A            AI,R8    1                 INCREMENT MARGIN
     9609   01 0296A    208000F0 A            AI,R8    X'F0'             SET PARAM LINE J CM FIELD
     9610   01 0296B    75882489              STB,R8   PLINE#J+5,X4
     9611   01 0296C    4B802C7B              AND,R8   THREE
     9612   01 0296D    25800016 A            SLS,R8   22                ALIGN NEW MARGIN
     9613   01 0296E    49A00008 A            OR,LOG   R8
     9614   01 0296F    6DA00045 A            WD,LOG   MARGINS           SET NEW MARGIN
     9615   01 02970    22800000 A            LI,R8    0
     9616   01 02971    35802A57              STW,R8   ERRORFREE         RESET COUNT OF PASSES
     9617   01 02972    22800000 A   SETM#X   LI,R8    0
     9618   01 02973    E8002B2C              B        *SAVELINK                                         *A02
     9619                            *
     9620                                     TITLE    ;
     9621                             '                    SET INTERRUPT PATTERN ROUTINE'                   *
     9622                            *
     9623                            *
     9624                            * SET INTERRUPT PATTERN ROUTINE
     9625                            **********************************
     9626                            *
     9627                            * ENTER WITH 1. RETURN ADDRESS IN LINK REGISTER
     9628                            *            2. ARM AND DISABLE PATTERNS IN LEVARMD TABLE
     9629                            *            3. TRIGGER PATTERNS IN LEVTRIG TABLE
     9630                            *            4. ENABLE PATTERNS IN LEVENBL TABLE
     9631                            *            5. INHIBIT PATTERN IN GRPINH
     9632                            *
     9633                            *
     9634                            * EXIT WITH SELECTED LEVELS ARMED, TRIGGERED, AND ENABLED
     9635                            *           AND NEW INHIBIT PATTERN IN CURRENT PSD
     9636                            *
     9637                            *
     9638   01 02974    02200000 A   SETPATT  LCI      0                 SAVE REGISTERS
     9639   01 02975    2B002ACC              STM,0    SAVE
     9640   01 02976    221FFFF2 A            LI,X1    -14               SET INDEX
     9641   01 02977    52902AC7              LH,R9    NOTHIGH           DISARM ALL LEVELS EXCEPT HIGHEST
     9642   01 02978    6D901100 A            WD,R9    DISARM                   PRIORITY
     9643   01 02979    32902C99              LW,R9    XFFFF
     9644   01 0297A    6D921110 A            WD,R9    DISARM+16,X1
     9645   01 0297B    6510297A              BIR,X1   %-1
     9646   01 0297C    221FFFF2 A            LI,X1    -14               SET INDEX
     9647   01 0297D    52922A9E              LH,R9    LEVARMD+8,X1      FIND PATTERN FOR EXTERNAL GROUPS
     9648   01 0297E    6D921310 A            WD,R9    ARMD+16,X1        ARM AND DISABLE SELECTED LEVELS
     9649   01 0297F    6510297D              BIR,X1   %-2               BRANCH IF NOT GROUP 15
     9650   01 02980    52902A96              LH,R9    LEVARMD           FIND GROUP 0 PATTERN
     9651   01 02981    6D901300 A            WD,R9    ARMD              ARM AND DISABLE SELECTED LEVELS
     9652                            *
     9653   01 02982    221FFFF2 A            LI,X1    -14               SET INDEX
     9654   01 02983    52922AAE              LH,R9    LEVTRIG+8,X1      FIND PATTERN FOR EXTERNAL GROUPS
     9655   01 02984    6D921710 A            WD,R9    TRIG+16,X1        TRIGGER SELECTED LEVELS
     9656   01 02985    65102983              BIR,X1   %-2               BRANCH IF NOT GROUP 15
     9657   01 02986    52902AA6              LH,R9    LEVTRIG           FIND GROUP 0 PATTERN
     9658   01 02987    6D901700 A            WD,R9    TRIG              TRIGGER SELECTED LEVELS
     9659   01 02988    221FFFF2 A            LI,X1    -14
     9660   01 02989    52922AA6              LH,R9    LEVENBL+8,X1
     9661                            *
     9662   01 0298A    6D921410 A            WD,R9    ENBL+16,X1        ENABLE  SELECTED LEVELS
     9663   01 0298B    65102989              BIR,X1   %-2               BRANCH IF NOT GROUP 15
     9664   01 0298C    52902A9E              LH,R9    LEVENBL           FIND GROUP 0 PATTERN
     9665   01 0298D    6D901600 A            WD,R9    ENBLDIS           ENABLE  SELECTED LEVELS
     9666                            *
     9667   01 0298E    32802ACA              LW,R8    GRPINH            FIND INHIBIT PATTERN
     9668   01 0298F    4B802B35              AND,R8   INHMSK            MASK UNUSED BITS
     9669   01 02990    75802A4F              STB,R8   CURPSD+1          SET INHIBIT BITS IN CURRENT PSD
     9670                            *
     9671                            *
     9672   01 02991    02200000 A            LCI      0                 RFSTORE REGISTERS
     9673   01 02992    2A002ACC              LM,0     SAVE
     9674   01 02993    E8000006 A            B        *LINK             EXIT
     9675                            *
     9676                            *
     9677                                     TITLE    ;
     9678                             '                    BINARY TO EBCDIC CONVERSION'                     *
     9679                            *   BINARY TO EBCDIC CONVERSION ( 4 BITS )
     9680                            **********************:*************
     9681                            *
     9682                            *
     9683                            * ENTER WITH ARGUEMENT IN RC REGISTER
     9684                            *             RETURN ADDRESS IN LINK REGISTER
     9685                            *
     9686                            * EXIT WITH ARGUEMENT IN RC REG. (SHIFTED RIGHT 4 BITS)
     9687                            *             EBCDIC CONVERSION IN LINK REGISTER
     9688                            *
     9689                            *
     9690   01 02994    35D02ACD     :BIN@EBC STW,RD   SAVE+1            SAVE REG. 13
     9691   01 02995    35602ACC              STW,LINK SAVE              SAVE EXIT
     9692   01 02996    226FFFFC A            LI,LINK  -4                INITIALIZE COUNT
     9693   01 02997    32D02CBE              LW,RD    EBCZEROS          INITIALIZE RESULT-ALL ZEROS
     9694   01 02998    25C0017F A            SLD,RC   -1                SHIFT BINARY BIT INTO RESULT
     9695   01 02999    25D00279 A            SCS,RD   -7                SHIFT INTO CHARACTER POSITION
     9696   01 0299A    65602998              BIR,LINK %-2               LOOP 4 TIMES
     9697   01 0299B    46D02ACD              XW,RD    SAVE+1            RESTORE R13,RESULT TOSAVE
     9698   01 0299C    32602ACD              LW,LINK  SAVE+1            RESULT TO LINK
     9699   01 0299D    E8002ACC              B        *SAVE             EXIT
     9700                            *
     9701                            *
     9702                                     TITLE    ;
     9703                             '                    HEX TO EBCDIC CONVERSION'                        *
     9704                            *
     9705                            *
     9706                            * HEX TO EBCDIC CONVERSION (4 CHARACTERS)
     9707                            *****************************
     9708                            *
     9709                            * ENTER WITH ARGUEMENT IN RC REGISTER
     9710                            *            EXIT ADDRESS IN LINK REGISTER
     9711                            *
     9712                            * EXIT WITH EBCDIC CONVERSION IN LINK REGISTER
     9713                            *            ARGUEMENT SHIFTED 16 BITS RIGHT IN RC REG.
     9714                            *
     9715                            *
     9716   01 0299E    35602ACC     :HEX@EBC STW,LINK SAVE              SAVE EXIT ADDRESS
     9717   01 0299F    35D02ACD              STW,RD   SAVE+1            SAVE R13
     9718   01 029A0    35102ACE              STW,X1   SAVE+2            SAVE INDEX REG.
     9719   01 029A1    22100003 A            LI,X1    3                 SET INDEX TO BYTES 3 THRU 0
     9720   01 029A2    22D000F0 A            LI,RD    X'F0'             HI-ORDER EBC FOR DIGITS 0 THRU 9
     9721   01 029A3    25C0017C A            SLD,RC   -4                SHIFT LO-ORDER 4 BITS
     9722   01 029A4    25D00204 A            SCS,RD   4                 SHIFT INTO BYTE POSITION 3
     9723   01 029A5    71D02CB2              CB,RD    YF900             CHECK FOR 0 THRU 9
     9724   01 029A6    682029A8              BLE      %+2               BRANCH IF YES
     9725   01 029A7    20DFFFC7 A            AI,RD    -X'39'            ADJUST FOR A THRU F
     9726   01 029A8    75D20006 A            STB,RD   LINK,X1           STORE RESULT
     9727   01 029A9    201FFFFF A            AI,X1    -1                DECREMENT STORE POSITION
     9728   01 029AA    681029A2              BGEZ     :HEX@EBC+4        LOOP UNTIL FOUR DIGITS STORED
     9729   01 029AB    32D02ACD              LW,RD    SAVE+1            RESTORE R13
     9730   01 029AC    32102ACE              LW,X1    SAVE+2            RESTORE INDEX
     9731   01 029AD    E8002ACC              B        *SAVE             EXIT
     9732                            *
     9733                                     TITLE    ;
     9734                             '                    HEX TO DECIMAL(EBCDIC) CONVERSION'
     9735                            *
     9736                            *
     9737                            *  HEXADECIMAL TO DECIMAL (IN EBCDIC) CONVERSION
     9738                            *************************************************
     9739                            *
     9740                            *
     9741                            *  ENTER WITH ARGUEMENT IN REGISTER RD (MAX VALUE = 5F5E0FF HEX.)
     9742                            *             RETURN ADDRESS IN REGISTER LINK
     9743                            *
     9744                            *  EXIT WITH EBCDIC VALUE IN REGISTERS RC (MS HALF)  AND RD (LS HALF)
     9745                            *
     9746                            *
     9747   01 029AE                 :HEX@DE  RES      0
     9748   01 029AE    022000A0 A            LCI      10
     9749   01 029AF    2B002ACC              STM,0    SAVE              SAVE REGISTERS
     9750   01 029B0    22700007 A            LI,X7    7
     9751   01 029B1    22400000 A            LI,X4    0
     9752   01 029B2    32802E24              LW,R8    EBCBLNKS          LOAD ACCUMULATOR WITH BLANKS
     9753   01 029B3    32902E24              LW,R9    EBCBLNKS
     9754   01 029B4    22C00000 A   :HEX@D#A LI,RC    0                 SET REMAINDER TO ZERO
     9755   01 029B5    36CE29C5              DW,RC    TENS-1,X7         IS THE QUOTIENT SIGNIFICANT
     9756   01 029B6    687029C1              BCR,7    :HEX@D#D          BRANCH IF NO
     9757   01 029B7    2240000A A            LI,X4    10                INDICATE A SIGNIFICANT CHAR. FOUND
     9758   01 029B8    4990000D A   :HEX@D#B OR,R9    RD                QUOTIENT TO ACCUMULATOR
     9759   01 029B9    49902C8E              OR,R9    XF0                 CONVERT TO EBCDIC
     9760   01 029BA    25800108 A            SLD,R8   8                 POSITION ACCUM. FOR NEXT CHARACTER
     9761   01 029BB    32D0000C A   :HEX@D#C LW,RD    RC                REMAINDER BECOMES NEW DIVIDEND
     9762   01 029BC    647029B4              BDR,X7   :HEX@D#A          IF NOT THRU GO GET NEXT DIGIT
     9763   01 029BD    4990000D A            OR,R9    RD                LAST REMAINDER = UNITS DIGIT
     9764   01 029BE    49902C8E              OR,R9    XF0
     9765   01 029BF    12C00008 A            LD,RC    R8
     9766   01 029C0    680029C3              B        :HEX@D#X          EXIT
     9767                            *
     9768   01 029C1    644029B8     :HEX@D#D BDR,X4   :HEX@D#B          CONVERT ZERO IF SIG. CHAR. EXISTS
     9769   01 029C2    680029BB              B        :HEX@D#C          PICK UP NEXT CHARACTER
     9770                            *
     9771   01 029C3    022000A0 A   :HEX@D#X LCI      10                RESTORE REGISTERS
     9772   01 029C4    2A002ACC              LM,0     SAVE
     9773   01 029C5    E8000006 A            B        *LINK             RETURN
     9774                            *
     9775   01 029C6    0000000A A   TENS     DATA     10,100,1000,10000,100000,1000000,10000000
            01 029C7    00000064 A
            01 029C8    000003E8 A
            01 029C9    00002710 A
            01 029CA    000186A0 A
            01 029CB    000F4240 A
            01 029CC    00989680 A
     9776                            *
     9777                                     TITLE    ;
     9778                             '                    RANDOM NUMBER GENERATOR'                         *
     9779                            *
     9780                            * MODIFIED PSEUDORANDOM NUMBER GENERATOR
     9781                            ****************************************
     9782                            *
     9783                            * OPTION 1: ENTER WITH RETURN ADDRESS IN LINK REGISTER
     9784                            * OPTION 2:  ENTER WITH A SEED VALUE IN RE REGISTER
     9785                            *                      RETURN ADDRESS IN LINK REGISTER
     9786                            * OPTION 3:  ENTER WITH AN M1 VALUE IN RC REGISTER
     9787                            *                          M2 VALUE IN RD REGISTER
     9788                            *                       A SEED VALUE IN RE REGISTER
     9789                            *                      RETURN ADDRESS IN LINK REGISTER
     9790                            *
     9791                            * EXIT WITH 32 BIT RANDOM NUMBER IN RE REGISTER
     9792                            *
     9793   01 029CD    35C029DA     :RANDMY  STW,RC   :M1               OPTION 3 ENTRY
     9794   01 029CE    35D029DB              STW,RD   :M2               SAVE PARAMETERS
     9795                            *
     9796   01 029CF    35E029DC     :RANDM   STW,RE   :SEED             OPTION 2 ENTRY
     9797                            *
     9798   01 029D0    331029DA     :RANDMX  MTW,1    :M1               OPTION 1 ENTRY
     9799   01 029D1    683029D3              BCR,3    %+2               TEST, M1 + 1 = 0
     9800   01 029D2    33F029DB              MTW,-1   :M2               NO, M2 = M2 - 1
     9801   01 029D3    32E029DC              LW,RE    :SEED
     9802   01 029D4    25E0020D A            SCS,RE   13                GENERATE M(SEED)
     9803   01 029D5    30E029DD              AW,RE    :K                ADD CONSTANT :K
     9804   01 029D6    48E029DA              EOR,RE   :M1               M(SEED) (+) M1, WHERE (+) = EOR
     9805   01 029D7    48E029DB              EOR,RE   :M2               M(SEED) (+) M1 (+) M2
     9806   01 029D8    35E029DC              STW,RE   :SEED             SAVE NEW SEED
     9807   01 029D9    E8000006 A            B        *LINK             EXIT
     9808                            *
     9809                                     BOUND    8
     9810   01 029DA    12B9B0A1 A   :M1      DATA     314159265         M1 COUNTER VALUE
     9811   01 029DB    1033C4D7 A   :M2      DATA     271828183         M2 COUNTER VALUE
     9812   01 029DC    544B2FBA A   :SEED    DATA     1414213562        SEED COUNTER VALUE
     9813   01 029DD    22679CB1 A   :K       DATA     577215665         GAMMA CONSTANT
     9814                            ***************************************************************
     9815                            *
     9816                            *        TEST 25XX - PROTECTED MEMORY PAGE
     9817                            *
     9818                            *  THE FOLLOWING CODE SHOULD BE AS CLOSE AS POSSIBLE TO A
     9819                            *  PAGE BOUNDRY FOR MAXIMUM EFFETCIVENESS.  IF THE 'PACTH'
     9820                            *  AREA IS TOO LARGE THE PROGRAM  WILL NOT FIT IN 16K OF MEMORY
     9821                            *   (PAGE%BOUND MUST NOT BE IN THE SAME PAGE AS 'TRAP40E').
     9822                            *
     9823         01 029DE           PATCH    EQU      %
     9824                                     BOUND    4
     9825                            *
     9826   01 029FC                          ORG      ((ABSVAL(%)//512)*512)-4
            01 029FC
     9827                            *
     9828                            *    THE FOLLOWING SET OF LOCATIONS WERE FORCED TO THE PAGE
     9829                            *      BOUNDARY OF A PROTECTED PAGE OF MEMORY
     9830                            *    IN SOME SUBTESTS THEY ARE READ, IN SOME AN ATTEMPT IS MADE
     9831                            *      TO WRITE INTO THEM, AND IN SOME AN ATTEMPT IS MADE
     9832                            *      TO STEP THE EXECUTION COUNTER INTO THE PROTECTED AREA.
     9833                            *
     9834   01 029FC    00000000 A            DATA     0                 IF ALTERED, PROTECTED MEMORY
     9835                            *                                       WAS ACCESSED
     9836   01 029FD    20800001 A            AI,R8    1                 ENTER HERE IN SUBTESTS C,D
     9837   01 029FE    20800001 A            AI,R8    1
     9838   01 029FF    20800001 A            AI,R8    1                 ENTER HERE IN SUBTESTS A,B
     9839                            *  BOUNDARY OF PROTECTED AREA IS HERE
     9840   01 02A00    359029FC     PAGE%BOUND   STW,R9   %-4
     9841   01 02A01    68001760              B        OUTSLAVE          EXIT TO MASTER MODE
     9842   01 02A02    00000000 A            DATA     0
     9843                            *
     9844                            *
     9845         00001500           PROT%PAGE  EQU    (ABSVAL(PAGE%BOUND)/512)**8 FIND PAGE #           *B00
     9846                            *                                                                   *B00
     9847         00000014           ACC%PROT%SHIFT  EQU  30-(((ABSVAL(PAGE%BOUND)/512)&15)*2) THIS VALUE*B00
     9848                            *                REPRESENTS THE AMOUNT NEEDED TO SHIFT THE ACCESS   *B00
     9849                            *                PROTECT TYPE TO BUILD A CONTROL IMAGE              *B00
     9850         00000004           ACC%PROT%START  EQU  (ABSVAL(PAGE%BOUND)/512)**-4**2 THIS VALUE IS  *B00
     9851                            *                                   THE ACC. PROT. CONTROL START
     9852                            *                                   FOR THE SELECTED PROTECTED PAGE
     9853                            *                                                                   *B00
     9854   01 02A03    0C000000 A   EBS%SOURCE  DATA   X'C'**24                                         *B00
     9855                            *                                                                   *B00
     9856   01 02A04    20000000 A   EBS%DEST DATA      X'20'**24                                        *B00
     9857                            *                                                                   *B00
     9858                            *************************************************************       *B00
     9859                                     TITLE    '    DIRECTIVE SEARCH TABLE'
     9860                            *
     9861                            *
     9862                            *
     9863                            *************
     9864                            *
     9865                            *        TABLE 3
     9866                            **********************
     9867                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     9868                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     9869                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     9870                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     9871                            *
     9872                            *        WORD 1 = DIRECTIVE POINTER
     9873                            * FORMAT   ***********
     9874                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     9875                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     9876                            *            AF(3)   BYTE 2 = SECOND CHAR.
     9877                            *            AF(4)   BYTE 3 = THIRD CHAR.
     9878                            *
     9879                            *
     9880                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     9881                            * FORMAT   ***********
     9882                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     9883                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     9884                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     9885                            *                                       DIRECTIVE ROUTINE
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   27
A    9886                                     PAGE
     9887                            *
     9888                            *        WORD 3 = CONTROL WORD
     9889                            * FORMAT   ***********
     9890                            *  L         AF(1) BITS 0-2 = MODE (TYPE)
     9891                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     9892                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     9893                            *             AF(4)   BITS 8-12= NOT USED
     9894                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     9895                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     9896                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     9897                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     9898                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     9899                            *                    OR INDEX PARAM #1 (MODE 6)
     9900                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     9901                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     9902                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     9903                            *
     9904                            *                 MODE:  0= UNCONDITIONAL (&)
     9905                            *                        1= IMMEDIATE     (DM)
     9906                            *                        2= PARAMETER LINE (S)
     9907                            *                        6= INDEXED PARAMETER LINE
     9908                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     9909                            *                            0 = HEX, 1 = BIN, AND
     9910                            *                            4-7 = DESIGNER DEFINED
     9911                            *
     9912                            *         WORD 4 = EXPLANATION POINTER
     9913                            * FORMAT   ***********
     9914                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     9915                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     9916                            *                             = 1 IF TEXT IS COMPRESSED
     9917                            *                             = 2,3   ** NOT ALLOWED **
     9918                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     9919                            *                   TO CHARACTER #1 (REQUEST)
     9920                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     9921         01 02A05           TABLE3            EQU      %
     9922                            *
     9923   01 02A05    017C0000 A            H        1,'@'
     9924   01 02A06    00000000 A            E        0
     9925   01 02A07    00000000 A            L        0
     9926   01 02A08    2E40CC9A A            P        46,1,,ABSVAL(BA(SYNTAX%EXPL))                     *A02
     9927                            *
     9928   01 02A09    01500000 A            H        1,'&'
     9929   01 02A0A    0000286D N            E        ,,READSTAT
     9930   01 02A0B    00000000 A            L        0
     9931   01 02A0C    0540CFCC A   STATEXP% P        5,1,,ABSVAL(BA(STAT%EXPL))
     9932                            *
     9933   01 02A0D    02C4D400 A            H        2,'D','M'
     9934   01 02A0E    00000000 A            E        0
     9935   01 02A0F    00000000 A            L        0
     9936   01 02A10    0241CDEA A            P        2,1,1,ABSVAL(BA(DM%EXPL))
     9937                            *
     9938   01 02A11    02D9D400 A            H        2,'R','M'
     9939   01 02A12    00000000 A            E        0
     9940   01 02A13    00000000 A            L        0
     9941   01 02A14    0341CE07 A            P        3,1,1,ABSVAL(BA(RM%EXPL))
     9942                            *
     9943   01 02A15    02E2E200 A            H        2,'S','S'                                         *A02
     9944   01 02A16    00000000 A            E        0
     9945   01 02A17    00000000 A            L        0
     9946   01 02A18    0B40CE2E A            P        11,1,,ABSVAL(BA(S%EXPL))                          *A02
     9947                            *
     9948   01 02A19    01E30000 A            H        1,'T'
     9949   01 02A1A    000025E6 N            E        ,,ALTER%T
     9950   01 02A1B    40000000 A            L        2
     9951   01 02A1C    3440D397 A            P        52,1,,ABSVAL(BA(T%EXPL))                          *B00
     9952                            *
     9953   01 02A1D    02C4C800 A            H        2,'D','H'
     9954   01 02A1E    00001F08 N            E        ,,DISHIS
     9955   01 02A1F    00000000 A            L        0
     9956   01 02A20    1041D0F7 A            P        16,1,1,ABSVAL(BA(DH%EXPL))
     9957                            *
     9958   01 02A21    02C4C900 A            H        2,'D','I'
     9959   01 02A22    00001FFC N            E        ,,DISP%IMP
     9960   01 02A23    00000000 A            L        0
     9961   01 02A24    0541D1F3 A            P        5,1,1,ABSVAL(BA(DI%EXPL))
     9962                            *
     9963   01 02A25    02C4D200 A            H        2,'D','K'
     9964   01 02A26    00001FDA N            E        ,,DISPAT
     9965   01 02A27    00000000 A            L        0
     9966   01 02A28    0A41D244 A            P        10,1,1,ABSVAL(BA(DK%EXPL))
     9967                            *
     9968   01 02A29    02C4D800 A            H        2,'D','Q'
     9969   01 02A2A    00002087 N            E        ,,DISQ
     9970   01 02A2B    22000000 A            L        1,,2
     9971   01 02A2C    0F41D027 A            P        15,1,1,ABSVAL(BA(DQ%EXPL))
     9972                            *
     9973   01 02A2D    01D10000 A            H        1,'J'
     9974   01 02A2E    0000243B N            E        ,,PARAMJ
     9975   01 02A2F    40000000 A            L        2
     9976   01 02A30    1040D2DE A   OVERLAY  P        16,1,,ABSVAL(BA(J%EXPL))                          *A02
     9977                            *
     9978   01 02A31    01D20000 A            H        1,'K'
     9979   01 02A32    000024AB N            E        ,,PARAMK
     9980   01 02A33    C8010E00 A            L        6,1,,,1,,,7
     9981   01 02A34    0940C50B A            P        9,1,,ABSVAL(BA(K%EXPL))
     9982                            *
     9983   01 02A35    01D70000 A            H        1,'P'
     9984   01 02A36    00002599 N            E        ,,PARAMP
     9985   01 02A37    40000000 A            L        2
     9986   01 02A38    0940C59E A            P        9,1,,ABSVAL(BA(P%EXPL))
     9987                            *
     9988   01 02A39    02C4C500 A            H        2,'D','E'
     9989   01 02A3A    00001ED4 N            E        ,,DISP%E
     9990   01 02A3B    22000000 A            L        1,,2
     9991   01 02A3C    0341C48B A            P        3,1,1,ABSVAL(BA(DE%EXPL))
     9992                            *
     9993   01 02A3D    01C90000 A            H        1,'I'
     9994   01 02A3E    000023D7 N            E        ,,PARAMI
     9995   01 02A3F    C8010E00 A            L        6,1,,,1,,,7
     9996   01 02A40    0540C4BC A            P        5,1,,ABSVAL(BA(I%EXPL))
     9997                            *
     9998   01 02A41    FF000000 A   TABLE3END DATA  X'FF000000'
     9999                            *
    10000   01 02A42    0140CC83 A   OVERLAY%EXPL  P   1,1,,ABSVAL(BA(NO%EXPL))                          *A02
    10001                            *
    10002                                     SPACE    6






    10003                                     TITLE    '    VARIABLES'
    10004                            *
    10005                            *
    10006                            **********************************************************************
    10007                            * THE FOLLOWING LOCATIONS CONTAIN VALUES INITIALIZED AS INDICATED
    10008                            *        BUT CHANGED DURING THE EXECUTION OF THE PROGRAM
    10009                            **********************************************************************
    10010                            *
    10011                            *
    10012   01 02A43    00000000 A   ACTIVELVL DATA    0                 HI PRI. ACTIVE INT. (GRP/LVL)
    10013   01 02A44    00000000 A   ACTIVELOCN DATA   0                                     (LOCATION)
    10014   01 02A45    00000000 A   ACTCOUNT DATA     0                 ACTUAL COUNT (TEST 1401)
    10015   01 02A46    00000000 A   ABORTFLAG DATA    0                 SET TO NON-ZERO IF TEST CANNOT BE
    10016                            *                                   RUN BECAUSE OF FAILURE IN PRIOR TEST
    10017   01 02A47    00000000 A   BY%RE%CHK DATA    0                 BYPASS RE-ENTRY CHECK IF NON-ZERO
    10018                            *                                     (CHK:LOOP ROUTINE)
    10019   01 02A48    00000000 A   CODES    DATA     0                 COND. CODES IMMED. AFTER TRAP
    10020                                     BOUND    8
    10021   01 02A4A    00000000 A   CNTRFREQ DATA     0,0,0,0           MEASURED FREQUENCIES OF COUNTER INT.
            01 02A4B    00000000 A
            01 02A4C    00000000 A
            01 02A4D    00000000 A
    10022   01 02A4E    00000000 A   CURPSD   DATA     0,0               CURRENT PROGRAM STATUS DW
            01 02A4F    00000000 A
    10023   01 02A50    00000000 A   GOTO#PSD DATA     0,0               PSD FOR TEST SELECTION
            01 02A51    00000000 A
    10024   01 02A52    00000000 A   CONTINUE%PSD DATA 0,0               PSD FOR RETURN FROM GUIDE CONTROL
            01 02A53    00000000 A
    10025   01 02A54    00000000 A   ERPARAM1 DATA     0,0               ERROR MESSAGE FIELDS 1,2
            01 02A55    00000000 A
    10026   01 02A56    00000000 A   ERORCNT  DATA     0                 CURRENT ERROR COUNT
    10027   01 02A57    00000000 A   ERRORFREE DATA    0                 NUMBER OF ERROR FREE PASSES
    10028   01 02A58    00000000 A   ERORTOTAL DATA    0                 NUMBER OF ERRORS SINCE LOADING
    10029   01 02A59    00000000 A   EXPCOUNT DATA     0                 EXPECTED COUNT       (TEST 1401)
    10030   01 02A5A    00000000 A   EXPSEQCT DATA     0                 NO. OF INTERRUPTS EXPECTED
    10031   01 02A5B    00000000 A   HI%PRI%INT  DATA  0                 HIGHEST IMPL. INT. (GRP/LVL)
    10032   01 02A5C    00000000 A            DATA     0                                    (LOCATION)
    10033   01 02A5D    00000000 A   LASTERR%P DATA    0                 ERRORS PER PASS FOR LAST TEST
    10034   01 02A5E    00000000 A   LASTERR%T  DATA   0                 ERRORS (TOTAL) AFTER LAST TEST
    10035   01 02A5F    00000000 A   LASTPASS DATA     0                 PASS COUNT AT END OF LAST TEST
    10036                                     BOUND    8
    10037   01 02A60    00000000 A   LASTTEST DATA     0                 TEST NUMBER OF LAST TEST COMPLETED
    10038   01 02A61    00000000 A   LASTSUB  DATA     0                 NUMBER OF LAST SUBTEST COMPLETED
    10039   01 02A62    00000000 A   LOCATION DATA     0                 INTERRUPT OR TRAP LOCATION (HEX)
    10040   01 02A63    00000000 A   LOOPS    DATA     0                 PATTERN ITERATION COUNTER         *
    10041   01 02A64    00000000 A   OLDSTATE DATA     0                 STATE OF FF'S AT START OF TEST
    10042   01 02A65    00000000 A   PARAM%RET DATA    0                 PARAMETER RETURN   ADDR.
    10043   01 02A66    00000000 A   PASSCNT  DATA     0                 CURRENT PASS COUNT
    10044   01 02A67                 PLINEIN  RES      19
    10045   01 02A7A    00000000 A   PRIORITY DATA     0,0,0,0,0         TEMP. PRIORITY STORE FOR TEST 15
            01 02A7B    00000000 A
            01 02A7C    00000000 A
            01 02A7D    00000000 A
            01 02A7E    00000000 A
    10046                                     BOUND    8
    10047   01 02A80    00000000 A   PTRAPPSD DATA     0,0,OUTSLAVE,0    PRIV. INSTR. TRAP PSD QUAD WORD
            01 02A81    00000000 A
            01 02A82    00001760
            01 02A83    00000000 A
    10048   01 02A84    00000000 A   PULSECNT DATA     0                 COUNTER 1 PULSE COUNT
    10049   01 02A85    00000000 A            DATA     0                 COUNTER 2 PULSE COUNT
    10050   01 02A86    00000000 A            DATA     0                 COUNTER 3 PULSE COUNT
    10051   01 02A87    00000000 A            DATA     0                 COUNTER 4 PULSE COUNT
    10052   01 02A88    00000000 A   RETRY%FLAG DATA   0                 SET TO -1 IF NOT A RETRY
    10053   01 02A89    00000000 A   SEQCNT   DATA     0                 SEQUENCE COUNT (NUMBER OF INT.
    10054                            *                           OCCURRANCE- LOADED BY INT. HANDLING ROUT.)
    10055   01 02A8A    00000000 A   SETCC    DATA     0                 VALUE AS COND. CODE = LEAST SIG. BITS
    10056                            *                                      OF PASS COUNT
    10057                            *
    10058   01 02A8B    00000000 A   SUPP%CC  DATA     0                 SET TO NONZERO IF NO CC CHK DESIRED
    10059                            *
    10060   01 02A8C    00000000 A   TESTHIGH DATA     0                 SET TO NONZERO IF TESTING HIGHPRI. INT.
    10061   01 02A8D    00000000 A   TRAPECC  DATA     0                 TRAP TEST EXPECTED CC'S
    10062                                     BOUND    8
    10063   01 02A8E    00000000 A   TRAPEPSD DATA     0,0               TRAP TEST EXPECTED PSD
            01 02A8F    00000000 A
    10064   01 02A90    00000000 A   INTEPSD  DATA     0,0               INT. TEST EXPECTED PSD
            01 02A91    00000000 A
    10065   01 02A92    00000000 A   TRAPINCR DATA     0                 TRAP TEST ADDRESS INCREMENT
    10066   01 02A93    00000000 A   TRAPLOC  DATA     0                 LOCATION OF XPSD FOR EXP. TRAP
    10067   01 02A94    00000000 A   TRAPRET  DATA     0                 RETURN ADDRESS FROM TRAP HANDLER
    10068   01 02A95    00000000 A   WAITCNT  DATA     0                 DELAY COUNTER
    10069                            **********************************************************************
    10070                            *   PATTERN TABLES  *
    10071                            *********************
    10072                            * THE FOLLOWING THREE TABLES CONTAIN HALFWORD INTERRUPT PATTERNS.
    10073                            *     THEY ARE FILLED BY GENFPAT,GENRPAT,GENALL, OR BY A USER
    10074                            *     INPUT ( K PARAMETER LINE )
    10075                            *                                   ****************************
    10076   01 02A96                 LEVARMD  RES      8                *   LEVELS ARMED TABLE     *
    10077                            *                                 *                          *
    10078   01 02A9E                 LEVENBL  RES      8              *  LEVELS ENABLED TABLE    *
    10079                            *                               *                          *
    10080   01 02AA6                 LEVTRIG  RES      8            *   LEVELS TRIGGERED TABLE *
    10081                            *                             ****************************
    10082                            *
    10083                            *
    10084                            **************************************
    10085                            * LEVELS EXPECTED TO INTERRUPT TABLE - LOADED BY READEXP
    10086                            **************************************
    10087   01 02AAE                 LEVEXP   RES      8                 16 HALFWORD PATTERNS
    10088                            *
    10089                            *
    10090                            *
    10091                            *
    10092                            ******************************
    10093                            * LEVELS NOT INHIBITED TABLE - LOADED BY READEXP
    10094                            ******************************
    10095   01 02AB6                 LEVNINH  RES      8                 16 HALFWORD PATTERNS
    10096                            *
    10097                            *
    10098                            ****************************
    10099                            * LEVELS IMPLEMENTED TABLE - LOADED BY IMPLEMENTATION TEST
    10100                            ****************************
    10101                            *                 OR BY USER INSERTION ( I PARAMETER LINE )           *
    10102   01 02ABE                 LEVIMPL  RES      8                 16 HALFWORD PATTERNS
    10103                            *
    10104                            *
    10105                            **********************************************************************
    10106   01 02AC6    00000000 A   IMPLFLAG DATA     0                 SET TO NONZERO BY PARAMETER I ENTRY
    10107   01 02AC7    00000000 A   NOTHIGH  DATA     0                 PATTERN OF GROUP 0 LEVELS
    10108                            *                                  NOT HIGHEST PRIORITY
    10109   01 02AC8    00000000 A   PRIFLAG  DATA     0                 SET TO NONZERO BY PARAMETER P ENTRY
    10110   01 02AC9    00000000 A   GRPIMPL  DATA     0                 BINARY PATTERN OF IMPLEMENTED
    10111                            *                                   GROUPS (SAME AS BIT POSITION)
    10112   01 02ACA    00000000 A   GRPINH   DATA     0                 INHIBIT BIT PATTERN
    10113                            *                                       (LOADED BY GENFPAT,GENRPAT,
    10114                            *                                        OR BY USER INSERTION)
    10115                            *
    10116   01 02ACB    00000000 A   GRPINH#E DATA     0                 INHIBIT BIT PATTERN IN EBCDIC
    10117                            *                                     (LOADED BY PAT@EBC)
    10118   01 02ACC                 SAVE     RES      16                SAVE REG. FOR LEVEL 0 ROUTINES
    10119   01 02ADC                 SAVE#1   RES     16                 SAVE REG. FOR LEVEL 1 ROUTINES
    10120   01 02AEC                 SAVE#2   RES     16                 SAVE REG. FOR LEVEL 2 ROUTINES
    10121   01 02AFC                 SAVE#3   RES     16                 SAVE REG. FOR LEVEL 3 ROUTINES
    10122   01 02B0C                 SAVE#4   RES      16                REGISTER CONTENTS ON TRAP/INT.
    10123   01 02B1C                 SAVE#5   RES      16                                                *A02
    10124   01 02B2C                 SAVELINK   RES    1
    10125                            *
    10126                            *
    10127                                     TITLE    '         CONSTANTS'
    10128                            **********************************************************************
    10129                            * THE FOLLOWING VALUES ARE FIXED THROUGHOUT THE PROGRAM
    10130                            **********************************************************************
    10131                            *
    10132   01 02B2D    00003B29     ACCESSP  DATA     ACCESS+1
    10133   01 02B2E    6A6010AF     BALNORM  BAL,LINK NORM              ACCESS TABLE INSTRUCTIONS
    10134   01 02B2F    6A6010FE     BALNIMP  BAL,LINK NOTIMPL
    10135   01 02B30    6A601111     BALSPUR  BAL,LINK SPUR
    10136   01 02B31    6A601112     BALTRAP  BAL,LINK SPURTRAP
    10137                            *
    10138   01 02B32    0000FC00 A   GRP#OVER DATA     X'FC00'         *  OVERRIDE GROUP MASK   *
    10139   01 02B33    000003C0 A   GRP#CNTR DATA     X'3C0'         *  COUNTER GROUP MASK    *
    10140   01 02B34    00000030 A   GRP#IO   DATA     X'30'         *  I/O GROUP MSAK        *
    10141                            *                              **************************
    10142                            *
    10143                            *
    10144   01 02B35    00000007 A   INHMSK   DATA     X'7'              INHIBIT BIT MASK
    10145                            *
    10146                            **********************
    10147                            *  LEVEL SELECT MASKS  - 16 WORD MASKS TO SELECT INDIVIDUAL LEVELS
    10148                            **********************
    10149                            *
    10150   01 02B36                 LEVMASK  RES      0
    10151         00000010           A        DO       16
    10152   01 02B36    00008000 A            GEN,32   X'10000'**(-A)
    10153                                     FIN
            01 02B37    00004000 A
            01 02B38    00002000 A
            01 02B39    00001000 A
            01 02B3A    00000800 A
            01 02B3B    00000400 A
            01 02B3C    00000200 A
            01 02B3D    00000100 A
            01 02B3E    00000080 A
            01 02B3F    00000040 A
            01 02B40    00000020 A
            01 02B41    00000010 A
            01 02B42    00000008 A
            01 02B43    00000004 A
            01 02B44    00000002 A
            01 02B45    00000001 A
    10154                            *
    10155                            *                                   EXPLANATION FOR:
    10156   01 02B46    0E60C625 A   EXPL%1   GEN,8,3,21 14,3,ABSVAL(BA(EXP%HDR)) ERROR COMMON EXPLANATIONS
    10157   01 02B47    0860C6E6 A   EXPL%F#0  GEN,8,3,21 8,3,ABSVAL(BA(EXP%F#0)) ERROR FIELDS TYPE #0X
    10158   01 02B48    0560C74E A   EXPL%F#1  GEN,8,3,21 5,3,ABSVAL(BA(EXP%F#1)) ERROR FIELDS TYPE #1X
    10159   01 02B49                          RES      2
    10160   01 02B4B    0260C7BF A   EXPL%F#4  GEN,8,3,21 2,3,ABSVAL(BA(EXP%F#4)) ERROR FIELDS TYPE #4X
    10161   01 02B4C    0260C7D9 A   EXPL%F#5  GEN,8,3,21 2,3,ABSVAL(BA(EXP%F#5)) ERROR FIELDS TYPE #5X
    10162   01 02B4D    0260C7F3 A   EXPL%F#6  GEN,8,3,21 2,3,ABSVAL(BA(EXP%F#6)) ERROR FIELDS TYPE #6X
    10163   01 02B4E    0260C80F A   EXPL%F#7  GEN,8,3,21 2,3,ABSVAL(BA(EXP%F#7)) ERROR FIELDS TYPE #7X
    10164   01 02B4F    0260C82F A   EXPL%F#8  GEN,8,3,21 2,3,ABSVAL(BA(EXP%F#8)) ERROR FIELDS TYPE #8X
    10165   01 02B50    0460C849 A   EXPL%F#9  GEN,8,3,21 4,3,ABSVAL(BA(EXP%F#9)) ERROR FIELDS TYPE #9X
    10166   01 02B51                          RES      1
    10167   01 02B52    0C60C88B A   EXPL%F#B  GEN,8,3,21 12,3,ABSVAL(BA(EXP%F#B)) ERROR FIELDS TYPE #BX
    10168   01 02B53    0260C961 A   EXPL%F#C  GEN,8,3,21 2,3,ABSVAL(BA(EXP%F#C)) ERROR FIELDS TYPE #CX
    10169   01 02B54                           RES       1
    10170   01 02B55    0160C977 A   EXPL%F#E  GEN,8,3,21 1,3,ABSVAL(BA(EXP%F#E)) ERROR FIELDS TYPE #EX
    10171   01 02B56    0160C977 A   EXPL%F#F  GEN,8,3,21 1,3,ABSVAL(BA(EXP%F#E)) ERROR FIELDS TYPE #FX
    10172                            *
    10173   01 02B57    0360C985 A   EXPL%T#01  GEN,8,3,21 3,3,ABSVAL(BA(EXP%T#01)) ERROR TYPE 01
    10174   01 02B58    0160C9AA A   EXPL%T#02  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#02)) ERROR TYPE 02
    10175   01 02B59    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10176   01 02B5A    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10177   01 02B5B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10178   01 02B5C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10179   01 02B5D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10180   01 02B5E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10181   01 02B5F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10182   01 02B60    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10183   01 02B61    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10184   01 02B62    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10185   01 02B63    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10186   01 02B64    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10187   01 02B65    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10188   01 02B66    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10189   01 02B67    0160C9BA A   EXPL%T#11  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#11)) ERROR TYPE 11
    10190   01 02B68    0160C9C3 A   EXPL%T#12  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#12)) ERROR TYPE 12
    10191   01 02B69    0260C9D0 A   EXPL%T#13  GEN,8,3,21 2,3,ABSVAL(BA(EXP%T#13)) ERROR TYPE 13
    10192   01 02B6A    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10193   01 02B6B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10194   01 02B6C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10195   01 02B6D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10196   01 02B6E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10197   01 02B6F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10198   01 02B70    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10199   01 02B71    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10200   01 02B72    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10201   01 02B73    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10202   01 02B74    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10203   01 02B75    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10204   01 02B76    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10205   01 02B77    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10206   01 02B78    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10207   01 02B79    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10208   01 02B7A    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10209   01 02B7B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10210   01 02B7C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10211   01 02B7D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10212   01 02B7E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10213   01 02B7F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10214   01 02B80    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10215   01 02B81    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10216   01 02B82    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10217   01 02B83    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10218   01 02B84    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10219   01 02B85    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10220   01 02B86    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10221   01 02B87    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10222   01 02B88    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10223   01 02B89    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10224   01 02B8A    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10225   01 02B8B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10226   01 02B8C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10227   01 02B8D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10228   01 02B8E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10229   01 02B8F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10230   01 02B90    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10231   01 02B91    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10232   01 02B92    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10233   01 02B93    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10234   01 02B94    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10235   01 02B95    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10236   01 02B96    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10237   01 02B97    0160C9E9 A   EXPL%T#41  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#41)) ERROR TYPE 41
    10238   01 02B98    0160C9FE A   EXPL%T#42  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#42)) ERROR TYPE 42
    10239   01 02B99    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10240   01 02B9A    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10241   01 02B9B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10242   01 02B9C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10243   01 02B9D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10244   01 02B9E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10245   01 02B9F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10246   01 02BA0    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10247   01 02BA1    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10248   01 02BA2    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10249   01 02BA3    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10250   01 02BA4    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10251   01 02BA5    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10252   01 02BA6    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10253   01 02BA7    0160CA0E A   EXPL%T#51  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#51)) ERROR TYPE 51
    10254   01 02BA8    0160CA1C A   EXPL%T#52  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#52)) ERROR TYPE 52
    10255   01 02BA9    0160CA2A A   EXPL%T#53  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#53)) ERROR TYPE 53
    10256   01 02BAA    0160CA38 A   EXPL%T#54  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#54)) ERROR TYPE 54
    10257   01 02BAB    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10258   01 02BAC    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10259   01 02BAD    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10260   01 02BAE    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10261   01 02BAF    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10262   01 02BB0    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10263   01 02BB1    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10264   01 02BB2    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10265   01 02BB3    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10266   01 02BB4    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10267   01 02BB5    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10268   01 02BB6    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10269   01 02BB7    0160CA45 A   EXPL%T#61  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#61)) ERROR TYPE 61
    10270   01 02BB8    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10271   01 02BB9    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10272   01 02BBA    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10273   01 02BBB    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10274   01 02BBC    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10275   01 02BBD    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10276   01 02BBE    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10277   01 02BBF    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10278   01 02BC0    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10279   01 02BC1    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10280   01 02BC2    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10281   01 02BC3    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10282   01 02BC4    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10283   01 02BC5    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10284   01 02BC6    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10285   01 02BC7    0160CA51 A   EXPL%T#71  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#71)) ERROR TYPE 71
    10286   01 02BC8    0260CA5E A   EXPL%T#72  GEN,8,3,21 2,3,ABSVAL(BA(EXP%T#72)) ERROR TYPE 72
    10287   01 02BC9    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10288   01 02BCA    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10289   01 02BCB    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10290   01 02BCC    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10291   01 02BCD    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10292   01 02BCE    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10293   01 02BCF    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10294   01 02BD0    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10295   01 02BD1    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10296   01 02BD2    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10297   01 02BD3    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10298   01 02BD4    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10299   01 02BD5    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10300   01 02BD6    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10301   01 02BD7    0160CA7F A   EXPL%T#81  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#81)) ERROR TYPE 81
    10302   01 02BD8    0160CA91 A   EXPL%T#82  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#82)) ERROR TYPE 82
    10303   01 02BD9    0160CAA3 A   EXPL%T#83  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#83)) ERROR TYPE 83
    10304   01 02BDA    0160CAB5 A   EXPL%T#84  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#84)) ERROR TYPE 84
    10305   01 02BDB    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10306   01 02BDC    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10307   01 02BDD    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10308   01 02BDE    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10309   01 02BDF    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10310   01 02BE0    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10311   01 02BE1    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10312   01 02BE2    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10313   01 02BE3    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10314   01 02BE4    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10315   01 02BE5    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10316   01 02BE6    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10317   01 02BE7    0160CAC7 A   EXPL%T#91  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#91)) ERROR TYPE 91
    10318   01 02BE8    0160CADC A   EXPL%T#92  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#92)) ERROR TYPE 92
    10319   01 02BE9    0160CAEC A   EXPL%T#93  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#93)) ERROR TYPE 93
    10320   01 02BEA    0160CB01 A   EXPL%T#94  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#94)) ERROR TYPE 94
    10321   01 02BEB    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10322   01 02BEC    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10323   01 02BED    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10324   01 02BEE    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10325   01 02BEF    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10326   01 02BF0    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10327   01 02BF1    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10328   01 02BF2    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10329   01 02BF3    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10330   01 02BF4    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10331   01 02BF5    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10332   01 02BF6    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10333   01 02BF7    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10334   01 02BF8    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10335   01 02BF9    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10336   01 02BFA    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10337   01 02BFB    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10338   01 02BFC    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10339   01 02BFD    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10340   01 02BFE    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10341   01 02BFF    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10342   01 02C00    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10343   01 02C01    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10344   01 02C02    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10345   01 02C03    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10346   01 02C04    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10347   01 02C05    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10348   01 02C06    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10349   01 02C07    0260CB16 A   EXPL%T#B1  GEN,8,3,21 2,3,ABSVAL(BA(EXP%T#B1)) ERROR TYPE B1
    10350   01 02C08    0160CB31 A   EXPL%T#B2  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#B2)) ERROR TYPE B2
    10351   01 02C09    0160CB47 A   EXPL%T#B3  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#B3)) ERROR TYPE B3
    10352   01 02C0A    0160CB5A A   EXPL%T#B4  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#B4)) ERROR TYPE B4
    10353   01 02C0B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10354   01 02C0C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10355   01 02C0D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10356   01 02C0E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10357   01 02C0F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10358   01 02C10    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10359   01 02C11    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10360   01 02C12    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10361   01 02C13    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10362   01 02C14    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10363   01 02C15    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10364   01 02C16    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10365   01 02C17    0160CB6C A   EXPL%T#C1  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#C1)) ERROR TYPE C1
    10366   01 02C18    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10367   01 02C19    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10368   01 02C1A    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10369   01 02C1B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10370   01 02C1C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10371   01 02C1D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10372   01 02C1E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10373   01 02C1F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10374   01 02C20    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10375   01 02C21    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10376   01 02C22    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10377   01 02C23    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10378   01 02C24    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10379   01 02C25    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10380   01 02C26    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10381   01 02C27    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10382   01 02C28    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10383   01 02C29    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10384   01 02C2A    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10385   01 02C2B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10386   01 02C2C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10387   01 02C2D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10388   01 02C2E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10389   01 02C2F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10390   01 02C30    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10391   01 02C31    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10392   01 02C32    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10393   01 02C33    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10394   01 02C34    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10395   01 02C35    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10396   01 02C36    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10397   01 02C37    0160CB80 A   EXPL%T#E1  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#E1)) ERROR TYPE E1
    10398   01 02C38    0160CB90 A   EXPL%T#E2  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#E2)) ERROR TYPE E2
    10399   01 02C39    0160CB9E A   EXPL%T#E3  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#E3)) ERROR TYPE E3
    10400   01 02C3A    0160CBB2 A   EXPL%T#E4  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#E4)) ERROR TYPE E4
    10401   01 02C3B    0160CBBE A   EXPL%T#E5  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#E5)) ERROR TYPE E5
    10402   01 02C3C    0260CBCF A   EXPL%T#E6  GEN,8,3,21 2,3,ABSVAL(BA(EXP%T#E6)) ERROR TYPE E6
    10403   01 02C3D    0160CBEB A   EXPL%T#E7  GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#E7)) ERROR TYPE E7        *A01
    10404   01 02C3E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10405   01 02C3F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10406   01 02C40    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10407   01 02C41    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10408   01 02C42    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10409   01 02C43    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10410   01 02C44    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10411   01 02C45    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10412   01 02C46    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10413   01 02C47    0260CC00 A   EXPL%T#F1 GEN,8,3,21 2,3,ABSVAL(BA(EXP%T#F1)) ERROR TYPE F1
    10414   01 02C48    0160CC26 A   EXPL%T#F2 GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#F2)) ERROR TYPE F2
    10415   01 02C49    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10416   01 02C4A    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10417   01 02C4B    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10418   01 02C4C    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10419   01 02C4D    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10420   01 02C4E    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10421   01 02C4F    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10422   01 02C50    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10423   01 02C51    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10424   01 02C52    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10425   01 02C53    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10426   01 02C54    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10427   01 02C55    0160C19E A              GEN,8,3,21 1,3,ABSVAL(BA(EXP%T#ER)) INVALID TYPE
    10428                            *
    10429                            *
    10430                            *
    10431                            *  THE FOLLOWING LOCATIONS REPRESENT THE NUMBER OF BDR'S THAT CAN
    10432                            *      BE EXECUTED IN A GENERAL REGISTER IN ONE SECOND
    10433                            *
    10434   01 02C56    000704E0 A   ONESECOND  DATA   460000            SIGMA 8/9 - NORMAL CLOCK MARGIN
    10435   01 02C57    00073700 A            DATA     X'73700'                  - HIGH CLOCK MARGIN
    10436   01 02C58    0006AB08 A            DATA     437000                    - LO CLOCK MARGIN
    10437   01 02C59    00048100 A            DATA     X'48100'          SIGMA 9 MOD 2 NORMAL MARGIN     *B03
    10438   01 02C5A    5555AAAA A   PATTLIST DATA     X'5555AAAA'       TABLE OF FIXED PATTERNS
    10439   01 02C5B    FFFF3333 A            DATA     X'FFFF3333'            ( HALF WORDS )
    10440   01 02C5C    CCCC9999 A            DATA     X'CCCC9999'
    10441   01 02C5D    66660000 A            DATA     X'66660000'
    10442   01 02C5E    00000001 A   PASSMARGIN DATA   1                 NUMBER OF ERROR FREE PASSES NEEDED
    10443                            *                         BEFORE AUTOMATIC MARGIN CHANGE
    10444                            *
    10445                            **********************************************************************
    10446                            *  THE FOLLOWING LOCATIONS CONTAIN THE XPSD'S FOR THE REGISTERS
    10447                            **********************************************************************
    10448                            *
    10449   01 02C5F                 REGXPSDS RES      0
    10450         00000010           X        DO       16
    10451   01 02C5F    0F003328              GEN,8,24 X'F',PSDS+4*(X-1)
    10452                                     FIN
            01 02C60    0F00332C
            01 02C61    0F003330
            01 02C62    0F003334
            01 02C63    0F003338
            01 02C64    0F00333C
            01 02C65    0F003340
            01 02C66    0F003344
            01 02C67    0F003348
            01 02C68    0F00334C
            01 02C69    0F003350
            01 02C6A    0F003354
            01 02C6B    0F003358
            01 02C6C    0F00335C
            01 02C6D    0F003360
            01 02C6E    0F003364
    10453                            *
    10454                            *
    10455                            *
    10456   01 02C6F    0F001624     TRAPXPSD XPSD,0   TRAPPSD           XPSD FOR EXPECTED TRAP LOCN.
    10457   01 02C70    01404040 A   UPSPACE  TEXTC    ' '
    10458                            *
    10459   01 02C71    F0F2F3F4 A   VALTABLE TEXT     '023456789ABCDEF'     PARAMETER LINE DEFINITION
            01 02C72    F5F6F7F8 A
            01 02C73    F9C1C2C3 A
            01 02C74    C4C5C640 A
    10460                            *                                       CHARACTER VALIDATION TABLE
    10461                            *
    10462   01 02C75    0F003368     XPSD#10  GEN,8,24 X'F',PSDS+64      XPSD FOR LOCATION X'10'
    10463                                     BOUND    8
    10464   01 02C76    0F0033A8 N   XPSD#20  GEN,8,24,8,24 X'F',PSDS+128,X'F',PSDS+132
                        0F0033AC
    10465                            *
    10466                            *
    10467                            *
    10468                            *
    10469                            **********************************************************************
    10470                            **********************************************************************
    10471                            *
    10472   01 02C78    FFFFFFFF A   M1       DATA     -1
    10473                            *
    10474   01 02C79    00000001 A   ONE      DATA     1
    10475   01 02C7A    00000002 A   TWO      DATA     2
    10476   01 02C7B    00000003 A   THREE    DATA     3
    10477   01 02C7C    00000004 A   FOUR     DATA     4
    10478   01 02C7D    00000005 A   FIVE     DATA     5
    10479   01 02C7E    00000006 A   SIX      DATA     6
    10480   01 02C7F    00000007 A   SEVEN    DATA     7
    10481   01 02C80    00000008 A   X8       DATA     8
    10482   01 02C81    00000009 A   X9       DATA     9
    10483   01 02C82    0000000A A   XA       DATA     10
    10484   01 02C83    0000000B A   XB       DATA     11
    10485   01 02C84    0000000C A   XC       DATA     12
    10486   01 02C85    0000000D A   XD       DATA     13
    10487   01 02C86    0000000E A   XE       DATA     14
    10488   01 02C87    0000000F A   XF       DATA     15
    10489   01 02C88    00000010 A   X10      DATA     X'10'
    10490   01 02C89    00000020 A   X20      DATA     X'20'
    10491   01 02C8A    00000030 A   X30      DATA     X'30'
    10492   01 02C8B    00000038 A   X38      DATA     X'38'
    10493   01 02C8C    0000003C A   X3C      DATA     X'3C'
    10494   01 02C8D    0000003E A   X3E      DATA     X'3E'
    10495   01 02C8E    000000F0 A   XF0      DATA     X'F0'
    10496   01 02C8F    000000FF A   XFF      DATA     X'FF'
    10497   01 02C90    00000F00 A   XF00     DATA     X'F00'
    10498   01 02C91    00000FFF A   XFFF     DATA     X'FFF'
    10499   01 02C92    00001100 A   X1100    DATA     X'1100'
    10500   01 02C93    00004000 A   X4000    DATA     X'4000'
    10501   01 02C94    00008000 A   X8000    DATA     X'8000'
    10502   01 02C95    0000F000 A   XF000    DATA     X'F000'
    10503   01 02C96    0000F0F0 A   XF0F0    DATA     X'F0F0'
    10504   01 02C97    0000FF00 A   XFF00    DATA     X'FF00'
    10505   01 02C98    0000FFFC A   XFFFC    DATA     X'FFFC'
    10506   01 02C99    0000FFFF A   XFFFF    DATA     X'FFFF'
    10507   01 02C9A    0001FFFF A   X1FFFF   DATA     X'1FFFF'
    10508   01 02C9B    00080000 A   X80000   DATA     X'80000'
    10509   01 02C9C    00100000 A   X100000  DATA     X'100000'                                         *A02
    10510   01 02C9D    00200000 A   X200000  DATA     X'200000'
    10511   01 02C9E    003C0000 A   Y3C      DATA     X'3C0000'
    10512   01 02C9F    00400000 A   Y40      DATA     X'400000'
    10513   01 02CA0    00800000 A   X800000  DATA     X'800000'
    10514   01 02CA1    00F90000 A   YF9      DATA     X'F90000'
    10515   01 02CA2    01000000 A   X1000000 DATA     X'1000000'                                        *A02
    10516   01 02CA3    01000001 A   X1000001  DATA   X'1000001'
    10517   01 02CA4    03C00000 A   Y3C0     DATA     X'3C00000'
    10518   01 02CA5    04040404 A   X4040404 DATA     X'4040404'
    10519   01 02CA6    08400000 A   Y840     DATA     X'8400000'
    10520   01 02CA7    0CC00000 A   YCC0     DATA     X'CC00000'
    10521   01 02CA8    0FFFFFFF A   XFFFFFFF DATA     X'FFFFFFF'
    10522   01 02CA9    12000000 A   X12000000  DATA  X'12000000'
    10523   01 02CAA    3CFC0000 A   Y3CFC    DATA     X'3CFC0000'
    10524   01 02CAB    F33FFFFF A   NYCC0    DATA     X'F33FFFFF'       YC00 COMPLEMENT
    10525   01 02CAC    C3000000 A   YC300    DATA     X'C3000000'
    10526   01 02CAD    3FFF0000 A   Y3FFF    DATA     X'3FFF0000'
    10527   01 02CAE    40000800 A   X40000800 DATA    X'40000800'
    10528   01 02CAF    DFFF0000 A   YDFFF    DATA     X'DFFF0000'
    10529   01 02CB0    80000000 A   Y8000    DATA     X'80000000'
    10530   01 02CB1    F8000000 A   YF800    DATA     X'F8000000'                                       *B01
    10531   01 02CB2    F9000000 A   YF900    DATA     X'F9000000'
    10532   01 02CB3    FC000000 A   YFC00    DATA     X'FC000000'
    10533   01 02CB4    FFBFFFFF A   XFFBFFFFF  DATA   X'FFBFFFFF'
    10534   01 02CB5    FFFF0000 A   YFFFF    DATA     X'FFFF0000'
    10535   01 02CB6    FFFF03FF A   XFFFF03FF  DATA   X'FFFF03FF'
    10536                            *
    10537   01 02CB7    003FFFFF A   4MEGWORD DATA     X'3FFFFF'         MAX. MEMORY
    10538                            *
    10539                            *
    10540                            *
    10541   01 02CB8    4040C16B A   COMSTMSG TEXT     '  A, T, E, I'
            01 02CB9    40E36B40 A
            01 02CBA    C56B40C9 A
    10542   01 02CBB    404040F0 A   EBC%B3Z  DATA     X'404040F0'       BYTE 3 ZERO
    10543   01 02CBC    40F0F0F0 A   EBC%3ZEROS  DATA  X'40F0F0F0'
    10544   01 02CBD    4040F0F0 A   EBC%HWZ  DATA     X'4040F0F0'       HALF WORD OF ZEROS
    10545   01 02CBE    F0F0F0F0 A   EBCZEROS DATA     X'F0F0F0F0'       ALL ZEROS
    10546   01 02CBF    6B404040 A   ECOMMA   TEXT     ','
    10547                                     BOUND    8
    10548         01 02CC0           EBC%STATE  EQU    %
    10549   01 02CC0    40C4C9E2 A            TEXT     ' DIS(D) '        DISARMED/DISABLED
            01 02CC1    4DC45D40 A
    10550   01 02CC2    40C4C9E2 A            TEXT     ' DIS(E) '        DISARMED/ENABLED
            01 02CC3    4DC55D40 A
    10551   01 02CC4    40C1D9D4 A            TEXT     ' ARM(D) '        ARMED/DISABLED
            01 02CC5    4DC45D40 A
    10552   01 02CC6    40C1D9D4 A            TEXT     ' ARM(E) '        ARMED/ENABLED
            01 02CC7    4DC55D40 A
    10553   01 02CC8    40C1C3E3 A            TEXT     ' ACT(D) '        ACTIVE/DISABLED
            01 02CC9    4DC45D40 A
    10554   01 02CCA    40C1C3E3 A            TEXT     ' ACT(E) '        ACTIVE/ENABLED
            01 02CCB    4DC55D40 A
    10555   01 02CCC    E6C1C9E3 A            TEXT     'WAIT(D) '        WAITING/DISABLED
            01 02CCD    4DC45D40 A
    10556   01 02CCE    E6C1C9E3 A            TEXT     'WAIT(E) '        WAITING/ENABLED OR UNIMPLEMENTED
            01 02CCF    4DC55D40 A
    10557   01 02CD0    E2D7E4D9 A   EBC%SPUR TEXT     'SPURIOUS'
            01 02CD1    C9D6E4E2 A
    10558                            *
    10559   01 02CD2    E6C1C9E3 A   EWAIT    TEXT     'WAIT'               ****************************
    10560   01 02CD3    C8C1D5C4 A   EHAND    TEXT     'HAND'
    10561   01 02CD4    C9D4D7D3 A   EIMPL    TEXT     'IMPL'
    10562   01 02CD5    D5D6D9D4 A   ENORM    TEXT     'NORM'
    10563   01 02CD6    D5D6D5C5 A   ENONE    TEXT     'NONE'
    10564   01 02CD7    40D5D6E3 A   ENOT     TEXT     ' NOT'
    10565   01 02CD8    E2D7E4D9 A   ESPUR    TEXT     'SPUR'
    10566   01 02CD9    E3D9C1D7 A   ETRAP    TEXT     'TRAP'
    10567   01 02CDA    E3D9C9C7 A   ETRIG    TEXT     'TRIG'
    10568   01 02CDB    5C5C5C5C A   7ASTERISKS  TEXT  '*******'
            01 02CDC    5C5C5C40 A
    10569                            *
    10570                            *                                * **************************
    10571                            *
    10572   01 02CDD    40D2C5E8 A   SEQMSG   TEXT     ' KEYIN DH   FOR SEQUENCE LIST'
            01 02CDE    C9D540C4 A
            01 02CDF    C8404040 A
            01 02CE0    C6D6D940 A
            01 02CE1    E2C5D8E4 A
            01 02CE2    C5D5C3C5 A
            01 02CE3    40D3C9E2 A
            01 02CE4    E3404040 A
    10573   01 02CE5    5C5C5CC5 A   TRUNCATE TEXT     '***ERROR #F2 ***'
            01 02CE6    D9D9D6D9 A
            01 02CE7    407BC6F2 A
            01 02CE8    405C5C5C A
    10574                            *
    10575                            *                                                                   *A01
    10576         01 02CE9           WAITING1 TEXTCS   '        LOOPS COMPLETED'                         *A01
    10577                            BYPASS   TEXTCS   ;                                                 *B01
    10578         01 02CEF            ' TESTS XXXX NOT VALID ON A SIGMA   X'                             *B01
    10579                            *                                                                   *A01
    10580                            *                                                                   *A01
    10581                                     TITLE    '      COMPRESSED TEXTS'
    10582                                    LOCAL     IMPLEMENTATION,PRIORITY,LOCATION,TRAPHAND,HISTORY
    10583                                     LOCAL    INHIBIT,DISABLE,TRIGGER,MODIFY,UNIMPL,DISARM
    10584                                     LOCAL    LOOPS,VALID,TRAPS,STACK,CODES,LAST,CALL,SAVE,ONE
    10585                                     LOCAL    RE,X,A,ZERO                                       *A02
    10586                            ****************
    10587                            *
    10588                                     BOUND    64
    10589                            *
    10590   01 02D00                 DAT      LOC,2    %
            01 02D00
    10591                            *
    10592   01 02D00    1000     A   #0       DP       '0',T000
    10593   01 02D00 2  1001     A   #1       DP       '1',T001
    10594   01 02D01    1002     A   #2       DP       '2',T002
    10595   01 02D01 2  1003     A   #3       DP       '3',T003
    10596   01 02D02    1004     A   #4       DP       '4',T004
    10597   01 02D02 2  1005     A   #5       DP       '5',T005
    10598   01 02D03    1006     A   #6       DP       '6',T006
    10599   01 02D03 2  1007     A   #7       DP       '7',T007
    10600   01 02D04    1008     A   #8       DP       '8',T008
    10601   01 02D04 2  1009     A   #9       DP       '9',T009
    10602   01 02D05    100A     A   #A       DP       'A',T010
    10603   01 02D05 2  100B     A   #B       DP       'B',T011
    10604   01 02D06    100C     A   #C       DP       'C',T012
    10605   01 02D06 2  100D     A   #D       DP       'D',T013
    10606   01 02D07    100E     A   #E       DP       'E',T014
    10607   01 02D07 2  100F     A   #F       DP       'F',T015
    10608                            *  10-1F                                                            *A01
    10609         01 02D08           #G       EQU      %
    10610         01 02D08           #H       EQU      %
    10611   01 02D08    1010     A   %1       DP       ' ',T016
    10612         01 02D08 2         #J       EQU      %
    10613   01 02D08 2  2010     A   %2       DP       '  ',T016
    10614         01 02D09           #K       EQU      %
    10615   01 02D09    3010     A   %3       DP       '   ',T016
    10616         01 02D09 2         #L       EQU      %
    10617   01 02D09 2  4010     A   %4       DP       '    ',T016
    10618   01 02D0A    5010     A   %5       DP       '     ',T016
    10619   01 02D0A 2  6010     A   %6       DP       '      ',T016
    10620   01 02D0B    7010     A   %7       DP       '       ',T016
    10621   01 02D0B 2  8010     A   %8       DP       '        ',T016
    10622   01 02D0C    9010     A   %9       DP       '         ',T016
    10623   01 02D0C 2  A010     A   %A       DP       '          ',T016
    10624   01 02D0D    B010     A   %B       DP       '           ',T016
    10625   01 02D0D 2  C010     A   %C       DP       '            ',T016
    10626   01 02D0E    D010     A   %D       DP       '             ',T016
    10627   01 02D0E 2  E010     A   %E       DP       '              ',T016
    10628   01 02D0F    F010     A   %F       DP       '               ',T016
    10629   01 02D0F 2  1020     A   PE       DP       '.',T017
    10630                            *  20-2F                                                            *A01
    10631   01 02D10    1021     A   CO       DP       ',',T018
    10632   01 02D10 2  1022     A   GT       DP       '>',T019
    10633   01 02D11    1023     A   LT       DP       '<',T020
    10634   01 02D11 2  1024     A   AP       DP       '''',T021
    10635   01 02D12    1025     A   @S       DP       '@',T022
    10636   01 02D12 2  1026     A   %S       DP       '%',T023
    10637   01 02D13    1027     A   AD       DP       '&',T024
    10638   01 02D13 2  1028     A   SL       DP       '/',T025
    10639   01 02D14    1029     A   HY       DP       '-',T026
    10640   01 02D14 2  102A     A   :S       DP       ':',T027
    10641   01 02D15    102B     A   SC       DP       ';',T028
    10642   01 02D15 2  102C     A   #S       DP       '#',T029
    10643   01 02D16    102D     A   EQ       DP       '=',T030
    10644   01 02D16 2  102E     A   PC       DP       '%',T031
    10645   01 02D17    102F     A   AK       DP       '*',T032
    10646   01 02D17 2  1030     A   OP       DP       '(',T033
    10647                            *  30-3F                                                            *A01
    10648   01 02D18    1031     A   CP       DP       ')',T034
    10649   01 02D18 2  1032     A   PL       DP       '+',T035
    10650   01 02D19    1033     A   BR       DP       '|',T036
    10651   01 02D19 2  0000     A   %0       DP       0,T000
    10652                            *******************************
    10653                            *
    10654   01 02D1A    E034     A   IMPLEMENTATION      DP  'IMPLEMENTATION',T037
    10655   01 02D1A 2  6495     A   OUTPUT              DP  'OUTPUT',T241
    10656   01 02D1B    639E     A   DIRECT              DP  'DIRECT',T244
    10657   01 02D1B 2  65F7     A   MEMORY              DP  'MEMORY',T245
    10658   01 02D1C    65FD     A   ALLOWS              DP  'ALLOWS',T246
    10659   01 02D1C 2  6603     A   STATUS              DP  'STATUS',T247
    10660   01 02D1D    6609     A   MODIFY              DP  'MODIFY',T248
    10661   01 02D1D 2  660F     A   CAUSES              DP  'CAUSES',T249
    10662   01 02D1E    6521     A   NUMBER              DP  'NUMBER',T251
    10663   01 02D1E 2  6621     A   STORED              DP  'STORED',T253
    10664   01 02D1F    6639     A   FORMAT              DP  'FORMAT',T257
    10665   01 02D1F 2  6464     A   ENABLE              DP  'ENABLE',T258
    10666                            *  40-4F                                                            *A01
    10667   01 02D20    663F     A   ACTIVE              DP  'ACTIVE',T259
    10668   01 02D20 2  6645     A   LEVELS              DP  'LEVELS',T260
    10669   01 02D21    668D     A   BINARY              DP  'BINARY',T275
    10670   01 02D21 2  5344     A   START               DP  'START',T281
    10671   01 02D22    5387     A   TESTS               DP  'TESTS',T282
    10672   01 02D22 2  56AB     A   PULSE               DP  'PULSE',T283
    10673   01 02D23    56B0     A   RATES               DP  'RATES',T284
    10674   01 02D23 2  55A3     A   ERROR               DP  'ERROR',T286
    10675   01 02D24    56BA     A   SAVED               DP  'SAVED',T287
    10676   01 02D24 2  5081     A   INSTR               DP  'INSTR',T288
    10677   01 02D25    56BF     A   LABEL               DP  'LABEL',T289
    10678   01 02D25 2  56C4     A   USING               DP  'USING',T290
    10679   01 02D26    56C9     A   LOOPS               DP  'LOOPS',T291
    10680   01 02D26 2  5435     A   VALID               DP  'VALID',T292
    10681   01 02D27    56CE     A   SIGMA               DP  'SIGMA',T293
    10682   01 02D27 2  5699     A   FIELD               DP  'FIELD',T294
    10683                            *  50-5F                                                            *A01
    10684   01 02D28    56D3     A   TABLE               DP  'TABLE',T296
    10685   01 02D28 2  5567     A   GROUP               DP  'GROUP',T298
    10686   01 02D29    5645     A   LEVEL               DP  'LEVEL',T299
    10687   01 02D29 2  56DD     A   STATE               DP  'STATE',T300
    10688   01 02D2A    50DB     A   COUNT               DP  'COUNT',T301
    10689   01 02D2A 2  535F     A   ARMED               DP  'ARMED',T302
    10690   01 02D2B    520C     A   INPUT               DP  'INPUT',T304
    10691   01 02D2B 2  56EC     A   MEANS               DP  'MEANS',T306
    10692   01 02D2C    56F6     A   AFTER               DP  'AFTER',T309
    10693   01 02D2C 2  56FB     A   KEYIN               DP  'KEYIN',T310
    10694   01 02D2D    51CD     A   DISPL               DP  'DISPL',T312
    10695   01 02D2D 2  5705     A   SENSE               DP  'SENSE',T313
    10696   01 02D2E    570A     A   SHORT               DP  'SHORT',T315
    10697   01 02D2E 2  546B     A   PRINT               DP  'PRINT',T316
    10698   01 02D2F    5719     A   TRAPS               DP  'TRAPS',T319
    10699   01 02D2F 2  571E     A   BELOW               DP  'BELOW',T320
    10700                            *  60-6F                                                            *A01
    10701   01 02D30    5723     A   ORDER               DP  'ORDER',T321
    10702   01 02D30 2  572D     A   WRITE               DP  'WRITE',T323
    10703   01 02D31    5732     A   FULLY               DP  'FULLY',T324
    10704   01 02D31 2  5746     A   FIXED               DP  'FIXED',T328
    10705   01 02D32    574B     A   RANGE               DP  'RANGE',T329
    10706   01 02D32 2  5782     A   MATCH               DP  'MATCH',T344
    10707   01 02D33    5787     A   CODES               DP  'CODES',T345
    10708   01 02D33 2  578C     A   WORDS               DP  'WORDS',T346
    10709   01 02D34    5796     A   FLOPS               DP  'FLOPS',T348
    10710   01 02D34 2  534C     A   OCCUR               DP  'OCCUR',T349
    10711   01 02D35    579B     A   WRONG               DP  'WRONG',T350
    10712   01 02D35 2  4387     A   TEST                DP  'TEST',T353
    10713   01 02D36    473C     A   TYPE                DP  'TYPE',T354
    10714   01 02D36 2  47AA     A   THRU                DP  'THRU',T355
    10715   01 02D37    47AE     A   MUST                DP  'MUST',T356
    10716   01 02D37 2  44F0     A   LOOP                DP  'LOOP',T357
    10717                            *  70-7F                                                            *A01
    10718   01 02D38    47BA     A   WERE                DP  'WERE',T362
    10719   01 02D38 2  47BE     A   FAST                DP  'FAST',T363
    10720   01 02D39    475A     A   NOTE                DP  'NOTE',T365
    10721   01 02D39 2  47C6     A   SAME                DP  'SAME',T366
    10722   01 02D3A    4657     A   PASS                DP  'PASS',T367
    10723   01 02D3A 2  47CA     A   STRT                DP  'STRT',T368
    10724   01 02D3B    44F7     A   STOP                DP  'STOP',T369
    10725   01 02D3B 2  47CE     A   HALT                DP  'HALT',T371
    10726   01 02D3C    43F4     A   TRAP                DP  'TRAP',T372
    10727   01 02D3C 2  47D2     A   ONLY                DP  'ONLY',T374
    10728   01 02D3D    477D     A   LINE                DP  'LINE',T375
    10729   01 02D3D 2  47E2     A   WILL                DP  'WILL',T381
    10730   01 02D3E    47E6     A   DOES                DP  'DOES',T382
    10731   01 02D3E 2  47EA     A   FROM                DP  'FROM',T383
    10732   01 02D3F    47EE     A   IDLE                DP  'IDLE',T384
    10733   01 02D3F 2  47F2     A   WHEN                DP  'WHEN',T385
    10734                            *  80-8F                                                            *A01
    10735   01 02D40    4410     A   WORD                DP  'WORD',T389
    10736   01 02D40 2  47FE     A   USER                DP  'USER',T390
    10737   01 02D41    480E     A   EACH                DP  'EACH',T394
    10738   01 02D41 2  4812     A   THIS                DP  'THIS',T396
    10739   01 02D42    481A     A   XPSD                DP  'XPSD',T398
    10740   01 02D42 2  4826     A   THAT                DP  'THAT',T402
    10741   01 02D43    44BF     A   LIST                DP  'LIST',T403
    10742   01 02D43 2  40E2     A   ZERO                DP  'ZERO',T405
    10743   01 02D44    4505     A   WITH                DP  'WITH',T410
    10744   01 02D44 2  4528     A   HIGH                DP  'HIGH',T416
    10745   01 02D45    484A     A   FLIP                DP  'FLIP',T417
    10746   01 02D45 2  4787     A   CODE                DP  'CODE',T418
    10747   01 02D46    3869     A   ANY                 DP  'ANY',T430
    10748   01 02D46 2  3495     A   OUT                 DP  'OUT',T431
    10749   01 02D47    386C     A   BDR                 DP  'BDR',T432
    10750   01 02D47 2  3230     A   LOC                 DP  'LOC',T433
    10751                            *  90-9F                                                            *A01
    10752   01 02D48    375A     A   NOT                 DP  'NOT',T434
    10753   01 02D48 2  31EC     A   AND                 DP  'AND',T435
    10754   01 02D49    35F7     A   MEM                 DP  'MEM',T437
    10755   01 02D49 2  31C4     A   THE                 DP  'THE',T438
    10756   01 02D4A    3309     A   ARE                 DP  'ARE',T439
    10757   01 02D4A 2  35A0     A   TST                 DP  'TST',T440
    10758   01 02D4B    3384     A   SUB                 DP  'SUB',T441
    10759   01 02D4B 2  33B4     A   FFF                 DP  'FFF',T442
    10760   01 02D4C    3872     A   TCC                 DP  'TCC',T443
    10761   01 02D4C 2  358E     A   PSW                 DP  'PSW',T444
    10762   01 02D4D    31C9     A   FOR                 DP  'FOR',T446
    10763   01 02D4D 2  387B     A   KSR                 DP  'KSR',T448
    10764   01 02D4E    35BB     A   DEV                 DP  'DEV',T451
    10765   01 02D4E 2  3881     A   PCP                 DP  'PCP',T452
    10766   01 02D4F    35C7     A   MSG                 DP  'MSG',T454
    10767   01 02D4F 2  3591     A   NEW                 DP  'NEW',T455
    10768                            *  A0-AF                                                            *A01
    10769   01 02D50    30F1     A   HEX                 DP  'HEX',T456
    10770   01 02D50 2  3250     A   ALL                 DP  'ALL',T459
    10771   01 02D51    381B     A   PSD                 DP  'PSD',T460
    10772   01 02D51 2  3258     A   BIT                 DP  'BIT',T463
    10773   01 02D52    335F     A   ARM                 DP  'ARM',T464
    10774   01 02D52 2  309A     A   ONE                 DP  'ONE',T467
    10775   01 02D53    367B     A   CAN                 DP  'CAN',T468
    10776   01 02D53 2  36E9     A   SET                 DP  'SET',T470
    10777   01 02D54    3125     A   INT                 DP  'INT',T472
    10778   01 02D54 2  3099     A   NON                 DP  'NON',T476
    10779   01 02D55    389F     A   DID                 DP  'DID',T479
    10780   01 02D55 2  2305     A   OF                  DP  'OF',T483
    10781   01 02D56    209E     A   IS                  DP  'IS',T484
    10782   01 02D56 2  23A3     A   TO                  DP  'TO',T485
    10783   01 02D57    203D     A   AT                  DP  'AT',T486
    10784   01 02D57 2  243A     A   BE                  DP  'BE',T487
    10785                            *  B0-BF                                                            *A01
    10786   01 02D58    28AB     A   HZ                  DP  'HZ',T488
    10787   01 02D58 2  2396     A   AS                  DP  'AS',T490
    10788   01 02D59    2222     A   IF                  DP  'IF',T491
    10789   01 02D59 2  28AD     A   CM                  DP  'CM',T492
    10790   01 02D5A    2040     A   ON                  DP  'ON',T493
    10791   01 02D5A 2  28AF     A   WD                  DP  'WD',T494
    10792   01 02D5B    2124     A   SI                  DP  'SI',T495
    10793   01 02D5B 2  20D7     A   CI                  DP  'CI',T496
    10794   01 02D5C    28B1     A   II                  DP  'II',T497
    10795   01 02D5C 2  2512     A   EI                  DP  'EI',T498
    10796   01 02D5D    28B3     A   CZ                  DP  'CZ',T499
    10797   01 02D5D 2  2654     A   DO                  DP  'DO',T500
    10798   01 02D5E    20B4     A   IT                  DP  'IT',T501
    10799   01 02D5E 2  20E5     A   OR                  DP  'OR',T502
    10800   01 02D5F    2403     A   DM                  DP  'DM',T503
    10801   01 02D5F 2  231A     A   YS                  DP  'YS',T505
    10802                            *  C0-CF                                                            *A01
    10803   01 02D60    258F     A   SW                  DP  'SW',T506
    10804   01 02D60 2  2099     A   NO                  DP  'NO',T507
    10805   01 02D61    2068     A   DE                  DP  'DE',T508
    10806   01 02D61 2  20F0     A   DH                  DP  'DH',T509
    10807   01 02D62    2164     A   DI                  DP  'DI',T510
    10808   01 02D62 2  281D     A   DK                  DP  'DK',T511
    10809   01 02D63    23EB     A   DQ                  DP  'DQ',T512
    10810   01 02D63 2  23B4     A   FF                  DP  'FF',T513
    10811   01 02D64    285A     A   BY                  DP  'BY',T514
    10812   01 02D64 2  22AC     A   XX                  DP  'XX',T515
    10813   01 02D65    2281     A   YY                  DP  'YY',T516
    10814   01 02D65 2  206D     A   AN                  DP  'AN',T517
    10815   01 02D66    20D8     A   IE                  DP  'IE',T520
    10816   01 02D66 2  106A     A   X                   DP  'X',T524
    10817   01 02D67    103D     A   A                   DP  'A',T525
    10818   01 02D67 2  103C     A   T                   DP  'T',T526
    10819                            *  D0-DF                                                            *A01
    10820   01 02D68    104C     A   B                   DP  'B',T527
    10821   01 02D68 2  1046     A   C                   DP  'C',T528
    10822   01 02D69    1068     A   D                   DP  'D',T529
    10823   01 02D69 2  1038     A   E                   DP  'E',T530
    10824   01 02D6A    10B1     A   F                   DP  'F',T531
    10825   01 02D6A 2  1271     A   J                   DP  'J',T532
    10826   01 02D6B    1034     A   I                   DP  'I',T533
    10827   01 02D6B 2  1040     A   O                   DP  'O',T534
    10828   01 02D6C    1074     A   S                   DP  'S',T535
    10829   01 02D6C 2  1080     A   Y                   DP  'Y',T536
    10830   01 02D6D    1327     A   K                   DP  'K',T537
    10831   01 02D6D 2  1036     A   P                   DP  'P',T538
    10832   01 02D6E    103B     A   N                   DP  'N',T539
    10833   01 02D6E 2  D05C     A   UNIMPLEMENTED       DP  'UNIMPLEMENTED',T040
    10834   01 02D6F    C069     A   EXPLANATIONS        DP  'EXPLANATIONS',T041
    10835   01 02D6F 2  C075     A   RESPECTIVELY        DP  'RESPECTIVELY',T042
    10836                            *  E0-EF                                                            *A01
    10837   01 02D70    C081     A   INSTRUCTIONS        DP  'INSTRUCTIONS',T043
    10838   01 02D70 2  B099     A   NONEXISTANT         DP  'NONEXISTANT',T045
    10839   01 02D71    B081     A   INSTRUCTION         DP  'INSTRUCTION',T046
    10840   01 02D71 2  B069     A   EXPLANATION         DP  'EXPLANATION',T047
    10841   01 02D72    B05E     A   IMPLEMENTED         DP  'IMPLEMENTED',T048
    10842   01 02D72 2  A125     A   INTERRUPTS          DP  'INTERRUPTS',T061
    10843   01 02D73    A19D     A   UNEXPECTED          DP  'UNEXPECTED',T073
    10844   01 02D73 2  A1A7     A   SUPPOSEDLY          DP  'SUPPOSEDLY',T074
    10845   01 02D74    9125     A   INTERRUPT           DP  'INTERRUPT',T076
    10846   01 02D74 2  91BB     A   REGISTERS           DP  'REGISTERS',T077
    10847   01 02D75    91CD     A   DISPLAYED           DP  'DISPLAYED',T079
    10848   01 02D75 2  91D6     A   COMPLETED           DP  'COMPLETED',T081
    10849   01 02D76    9193     A   PARAMETER           DP  'PARAMETER',T082
    10850   01 02D76 2  91E8     A   COMMANDED           DP  'COMMANDED',T084
    10851   01 02D77    91F1     A   TRIGGERED           DP  'TRIGGERED',T085
    10852   01 02D77 2  9215     A   FOLLOWING           DP  'FOLLOWING',T089
    10853                            *  F0-FB                                                            *A01
    10854   01 02D78    9230     A   LOCATIONS           DP  'LOCATIONS',T092
    10855   01 02D78 2  9239     A   EXPLAINED           DP  'EXPLAINED',T093
    10856   01 02D79    9242     A   INDICATES           DP  'INDICATES',T094
    10857   01 02D79 2  924B     A   PARTIALLY           DP  'PARTIALLY',T095
    10858   01 02D7A    9254     A   INHIBITED           DP  'INHIBITED',T096
    10859   01 02D7A 2  9281     A   YYYYYYYYY           DP  'YYYYYYYYY',T101
    10860   01 02D7B    9161     A   CONDITION           DP  'CONDITION',T103
    10861   01 02D7B 2  9293     A   INCREMENT           DP  'INCREMENT',T104
    10862   01 02D7C    90FC     A   INCORRECT           DP  'INCORRECT',T105
    10863   01 02D7C 2  829C     A   PRIORITY            DP  'PRIORITY',T106
    10864   01 02D7D    82A4     A   RELATIVE            DP  'RELATIVE',T107
    10865   01 02D7D 2  82AC     A   XXXXXXXX            DP  'XXXXXXXX',T108
    10866                            *  FC = NOT USED                                                    *A01
    10867                            *  FD = NOT USED                                                    *A01
    10868                            *  FE = POINTER TO TABLE 2                                          *A01
    10869                            *  FF - POINTER TO TABLE 1                                          *A01
    10870                            *                                                                   *A01
    10871                            *  EXTENSION TABLE 1 - POINTED TO BY HALF WORD FFXX                 *A01
    10872                            *                                                                   *A01
    10873                            *  FF00-FF0F                                                        *A01
    10874   01 02D7E    82B4     A   EXECUTED            DP  'EXECUTED',T109
    10875   01 02D7E 2  82BC     A   SPURIOUS            DP  'SPURIOUS',T111
    10876   01 02D7F    819F     A   EXPECTED            DP  'EXPECTED',T113
    10877   01 02D7F 2  82CC     A   SEQUENCE            DP  'SEQUENCE',T114
    10878   01 02D80    8230     A   LOCATION            DP  'LOCATION',T115
    10879   01 02D80 2  82D4     A   PATTERNS            DP  'PATTERNS',T116
    10880   01 02D81    82E4     A   SELECTED            DP  'SELECTED',T118
    10881   01 02D81 2  82EC     A   ABSOLUTE            DP  'ABSOLUTE',T119
    10882   01 02D82    82F4     A   RECOVERY            DP  'RECOVERY',T120
    10883   01 02D82 2  82FC     A   CONTENTS            DP  'CONTENTS',T121
    10884   01 02D83    8314     A   DISPLAYS            DP  'DISPLAYS',T124
    10885   01 02D83 2  831C     A   HANDLING            DP  'HANDLING',T125
    10886   01 02D84    8344     A   STARTING            DP  'STARTING',T130
    10887   01 02D84 2  8364     A   DISABLED            DP  'DISABLED',T135
    10888   01 02D85    836C     A   EXTERNAL            DP  'EXTERNAL',T136
    10889   01 02D85 2  83C4     A   EXECUTES            DP  'EXECUTES',T147
    10890                            *  FF10-FF1F                                                        *A01
    10891   01 02D86    7384     A   SUBTEST             DP  'SUBTEST',T162
    10892   01 02D86 2  70DB     A   COUNTER             DP  'COUNTER',T164
    10893   01 02D87    7139     A   CONTROL             DP  'CONTROL',T165
    10894   01 02D87 2  7143     A   ADDRESS             DP  'ADDRESS',T166
    10895   01 02D88    70E8     A   PRESENT             DP  'PRESENT',T173
    10896   01 02D88 2  72D4     A   PATTERN             DP  'PATTERN',T174
    10897   01 02D89    7254     A   INHIBIT             DP  'INHIBIT',T175
    10898   01 02D89 2  7464     A   ENABLED             DP  'ENABLED',T176
    10899   01 02D8A    7472     A   PROGRAM             DP  'PROGRAM',T179
    10900   01 02D8A 2  7480     A   WAITING             DP  'WAITING',T181
    10901   01 02D8B    749C     A   CURRENT             DP  'CURRENT',T185
    10902   01 02D8B 2  71CD     A   DISPLAY             DP  'DISPLAY',T187
    10903   01 02D8C    74AA     A   SELECTS             DP  'SELECTS',T188
    10904   01 02D8C 2  74BF     A   LISTING             DP  'LISTING',T191
    10905   01 02D8D    71F1     A   TRIGGER             DP  'TRIGGER',T196
    10906   01 02D8D 2  71E8     A   COMMAND             DP  'COMMAND',T204
    10907                            *  FF20-FF2F                                                        *A01
    10908   01 02D8E    7552     A   ALTERED             DP  'ALTERED',T216
    10909   01 02D8E 2  6567     A   GROUPS              DP  'GROUPS',T219
    10910   01 02D8F    657F     A   LIMITS              DP  'LIMITS',T223
    10911   01 02D8F 2  6585     A   SWITCH              DP  'SWITCH',T224
    10912   01 02D90    658B     A   OLDPSW              DP  'OLDPSW',T225
    10913   01 02D90 2  6591     A   NEWPSW              DP  'NEWPSW',T226
    10914   01 02D91    6597     A   NORMAL              DP  'NORMAL',T227
    10915   01 02D91 2  659D     A   SUBTST              DP  'SUBTST',T228
    10916   01 02D92    65A3     A   ERRORS              DP  'ERRORS',T229
    10917   01 02D92 2  65BB     A   DEVICE              DP  'DEVICE',T233
    10918   01 02D93    65C1     A   ACTUAL              DP  'ACTUAL',T234
    10919   01 02D93 2  65C7     A   MSGDEV              DP  'MSGDEV',T235
    10920   01 02D94    65CD     A   COMDEV              DP  'COMDEV',T236
    10921   01 02D94 2  65D3     A   ACTION              DP  'ACTION',T237
    10922   01 02D95    65D9     A   SYSTEM              DP  'SYSTEM',T238
    10923   01 02D95 2  65DF     A   FORCES              DP  'FORCES',T239
    10924                            *  FF30-FF3F                                                        *A01
    10925   01 02D96    65E5     A   MOVING              DP  'MOVING',T240
    10926   01 02D96 2  65EB     A   SYNTAX              DP  'SYNTAX',T242
    10927   01 02D97    65F1     A   PROMPT              DP  'PROMPT',T243
    10928   01 02D97 2  6615     A   REPORT              DP  'REPORT',T250
    10929   01 02D98    661B     A   COUNTS              DP  'COUNTS',T252
    10930   01 02D98 2  6627     A   CALLED              DP  'CALLED',T254
    10931   01 02D99    662D     A   DURING              DP  'DURING',T255
    10932   01 02D99 2  6633     A   HEADER              DP  'HEADER',T256
    10933   01 02D9A    64E2     A   MODULE              DP  'MODULE',T261
    10934   01 02D9A 2  664B     A   MARGIN              DP  'MARGIN',T262
    10935   01 02D9B    62E4     A   SELECT              DP  'SELECT',T263
    10936   01 02D9B 2  6651     A   RANDOM              DP  'RANDOM',T264
    10937   01 02D9C    6657     A   PASSES              DP  'PASSES',T265
    10938   01 02D9C 2  665D     A   DIGITS              DP  'DIGITS',T266
    10939   01 02D9D    6663     A   STATES              DP  'STATES',T267
    10940   01 02D9D 2  6669     A   CHECKS              DP  'CHECKS',T268
    10941                            *  FF40-FF4F                                                        *A01
    10942   01 02D9E    666F     A   EQUALS              DP  'EQUALS',T269
    10943   01 02D9E 2  6675     A   VALUES              DP  'VALUES',T270
    10944   01 02D9F    667B     A   CANNOT              DP  'CANNOT',T271
    10945   01 02D9F 2  6681     A   RELATE              DP  'RELATE',T272
    10946   01 02DA0    6687     A   PREFIX              DP  'PREFIX',T273
    10947   01 02DA0 2  605C     A   UNIMPL              DP  'UNIMPL',T274
    10948   01 02DA1    635C     A   DISARM              DP  'DISARM',T276
    10949   01 02DA1 2  6693     A   SECOND              DP  'SECOND',T277
    10950   01 02DA2    6699     A   FIELDS              DP  'FIELDS',T278
    10951   01 02DA2 2  669F     A   DOUBLE              DP  'DOUBLE',T279
    10952   01 02DA3    66A5     A   STRING              DP  'STRING',T280
    10953   01 02DA3 2  56B5     A   PANEL               DP  'PANEL',T285
    10954   01 02DA4    5750     A   TIMES               DP  'TIMES',T330
    10955   01 02DA4 2  5559     A   POINT               DP  'POINT',T331
    10956   01 02DA5    5755     A   UNTIL               DP  'UNTIL',T332
    10957   01 02DA5 2  575A     A   NOTED               DP  'NOTED',T333
    10958                            *  FF50-FF5F                                                        *A01
    10959   01 02DA6    575F     A   READS               DP  'READS',T334
    10960   01 02DA6 2  5764     A   LOWER               DP  'LOWER',T335
    10961   01 02DA7    5769     A   SLAVE               DP  'SLAVE',T336
    10962   01 02DA7 2  509C     A   EXIST               DP  'EXIST',T337
    10963   01 02DA8    576E     A   STACK               DP  'STACK',T338
    10964   01 02DA8 2  8773     A   WATCHDOG           DP   'WATCHDOG',T339                             *A01
    10965   01 02DA9    5778     A   TIMER               DP  'TIMER',T340
    10966   01 02DA9 2  5579     A   OTHER               DP  'OTHER',T341
    10967   01 02DAA    5675     A   VALUE               DP  'VALUE',T342
    10968   01 02DAA 2  577D     A   LINES               DP  'LINES',T343
    10969   01 02DAB    5791     A   WHERE               DP  'WHERE',T347
    10970   01 02DAB 2  57A0     A   FAULT               DP  'FAULT',T351
    10971   01 02DAC    57A5     A   LARGE               DP  'LARGE',T352
    10972   01 02DAC 2  47B2     A   PUSH                DP  'PUSH',T358
    10973   01 02DAD    47B6     A   ONCE                DP  'ONCE',T359
    10974   01 02DAD 2  4143     A   ADDR                DP  'ADDR',T360
    10975                            *  FF60-FF6F                                                        *A01
    10976   01 02DAE    46B0     A   RATE                DP  'RATE',T361
    10977   01 02DAE 2  47D6     A   BITS                DP  'BITS',T376
    10978   01 02DAF    4448     A   SKIP                DP  'SKIP',T377
    10979   01 02DAF 2  47DA     A   NEXT                DP  'NEXT',T378
    10980   01 02DB0    4750     A   TIME                DP  'TIME',T379
    10981   01 02DB0 2  47DE     A   CHAR                DP  'CHAR',T380
    10982   01 02DB1    47F6     A   MARK                DP  'MARK',T386
    10983   01 02DB1 2  4069     A   EXPL                DP  'EXPL',T387
    10984   01 02DB2    47FA     A   ALSO                DP  'ALSO',T388
    10985   01 02DB2 2  4802     A   LONG                DP  'LONG',T391
    10986   01 02DB3    4806     A   MSGS                DP  'MSGS',T392
    10987   01 02DB3 2  480A     A   LAST                DP  'LAST',T393
    10988   01 02DB4    4281     A   YYYY                DP  'YYYY',T395
    10989   01 02DB4 2  4816     A   FIND                DP  'FIND',T397
    10990   01 02DB5    481E     A   KEPT                DP  'KEPT',T399
    10991   01 02DB5 2  4822     A   LESS                DP  'LESS',T400
    10992                            *  FF70-FF7F                                                        *A01
    10993   01 02DB6    4480     A   WAIT                DP  'WAIT',T401
    10994   01 02DB6 2  482A     A   INFO                DP  'INFO',T404
    10995   01 02DB7    482E     A   EVEN                DP  'EVEN',T406
    10996   01 02DB7 2  4763     A   SLOW                DP  'SLOW',T407
    10997   01 02DB8    4832     A   SETS                DP  'SETS',T408
    10998   01 02DB8 2  4836     A   INTS                DP  'INTS',T409
    10999   01 02DB9    483A     A   THEN                DP  'THEN',T411
    11000   01 02DB9 2  483E     A   THEM                DP  'THEM',T412
    11001   01 02DBA    4842     A   LPSD                DP  'LPSD',T413
    11002   01 02DBA 2  4846     A   MODE                DP  'MODE',T414
    11003   01 02DBB    4627     A   CALL                DP  'CALL',T415
    11004   01 02DBB 2  484E     A   DATA                DP  'DATA',T419
    11005   01 02DBC    4852     A   SIZE                DP  'SIZE',T420
    11006   01 02DBC 2  46BA     A   SAVE                DP  'SAVE',T421
    11007   01 02DBD    4639     A   FORM                DP  'FORM',T422
    11008   01 02DBD 2  4856     A   HAVE                DP  'HAVE',T423
    11009                            *  FF80-FF8F                                                        *A01
    11010   01 02DBE    485A     A   BYTE                DP  'BYTE',T424
    11011   01 02DBE 2  475F     A   READ                DP  'READ',T425
    11012   01 02DBF    485E     A   MORE                DP  'MORE',T426
    11013   01 02DBF 2  4796     A   FLOP                DP  'FLOP',T427
    11014   01 02DC0    4862     A   FLAG                DP  'FLAG',T428
    11015   01 02DC0 2  3866     A   RUN                 DP  'RUN',T429
    11016   01 02DC1    D042     A   UNRECOVERABLE       DP  'UNRECOVERABLE',T038
    11017   01 02DC1 2  D04F     A   COMMUNICATION       DP  'COMMUNICATION',T039
    11018   01 02DC2    C08D     A   ALPHANUMERIC        DP  'ALPHANUMERIC',T044
    11019   01 02DC2 2  B0A4     A   REPLACEMENT         DP  'REPLACEMENT',T049
    11020   01 02DC3    B0AF     A   DEFINITIONS         DP  'DEFINITIONS',T050
    11021   01 02DC3 2  B0BA     A   UNALTERABLE         DP  'UNALTERABLE',T051
    11022   01 02DC4    B0C5     A   DESCRIPTION         DP  'DESCRIPTION',T052
    11023   01 02DC4 2  B0D0     A   FREQUENCIES         DP  'FREQUENCIES',T053
    11024   01 02DC5    B0DB     A   COUNTERZERO         DP  'COUNTERZERO',T054
    11025   01 02DC5 2  B0E6     A   REPRESENTED         DP  'REPRESENTED',T055
    11026                            *  FF90-FF9F                                                        *A01
    11027   01 02DC6    B0F1     A   HEXADECIMAL         DP  'HEXADECIMAL',T056
    11028   01 02DC6 2  B0FC     A   INCORRECTLY         DP  'INCORRECTLY',T057
    11029   01 02DC7    A107     A   REFERENCED          DP  'REFERENCED',T058
    11030   01 02DC7 2  A111     A   DIRECTIVES          DP  'DIRECTIVES',T059
    11031   01 02DC8    A11B     A   TERMINATES          DP  'TERMINATES',T060
    11032   01 02DC8 2  A12F     A   CONTAINING          DP  'CONTAINING',T062
    11033   01 02DC9    A139     A   CONTROLLED          DP  'CONTROLLED',T063
    11034   01 02DC9 2  A143     A   ADDRESSING          DP  'ADDRESSING',T064
    11035   01 02DCA    A14D     A   PRIVILEGED          DP  'PRIVILEGED',T065
    11036   01 02DCA 2  A157     A   PROTECTION          DP  'PROTECTION',T066
    11037   01 02DCB    A161     A   CONDITIONS          DP  'CONDITIONS',T067
    11038   01 02DCB 2  A16B     A   PARTICULAR          DP  'PARTICULAR',T068
    11039   01 02DCC    A175     A   PRIORITIES          DP  'PRIORITIES',T069
    11040   01 02DCC 2  A17F     A   CONTIGUOUS          DP  'CONTIGUOUS',T070
    11041   01 02DCD    A189     A   REPRESENTS          DP  'REPRESENTS',T071
    11042   01 02DCD 2  A193     A   PARAMETERS          DP  'PARAMETERS',T072
    11043                            *  FFA0-FFAF                                                        *A01
    11044   01 02DCE    A1B1     A   PREVIOUSLY          DP  'PREVIOUSLY',T075
    11045   01 02DCE 2  91C4     A   THEREFORE           DP  'THEREFORE',T078
    11046   01 02DCF    9107     A   REFERENCE           DP  'REFERENCE',T080
    11047   01 02DCF 2  91DF     A   AVAILABLE           DP  'AVAILABLE',T083
    11048   01 02DD0    91FA     A   PARAGRAPH           DP  'PARAGRAPH',T086
    11049   01 02DD0 2  9203     A   PERMITTED           DP  'PERMITTED',T087
    11050   01 02DD1    920C     A   INPUTTING           DP  'INPUTTING',T088
    11051   01 02DD1 2  921E     A   SPECIFIED           DP  'SPECIFIED',T090
    11052   01 02DD2    9227     A   DIRECTIVE           DP  'DIRECTIVE',T091
    11053   01 02DD2 2  925D     A   DETERMINE           DP  'DETERMINE',T097
    11054   01 02DD3    9266     A   EXCEPTION           DP  'EXCEPTION',T098
    11055   01 02DD3 2  926F     A   REJECTION           DP  'REJECTION',T099
    11056   01 02DD4    9278     A   SPECIFIES           DP  'SPECIFIES',T100
    11057   01 02DD4 2  928A     A   ADDRESSED           DP  'ADDRESSED',T102
    11058   01 02DD5    81B1     A   PREVIOUS            DP  'PREVIOUS',T110
    11059   01 02DD5 2  82C4     A   CONFLICT            DP  'CONFLICT',T112
    11060                            *  FFB0-FFBF                                                        *A01
    11061   01 02DD6    82DC     A   FUNCTION            DP  'FUNCTION',T117
    11062   01 02DD6 2  8304     A   SOFTWARE            DP  'SOFTWARE',T122
    11063   01 02DD7    830C     A   SUPPRESS            DP  'SUPPRESS',T123
    11064   01 02DD7 2  8324     A   LINKAGES            DP  'LINKAGES',T126
    11065   01 02DD8    832C     A   TRANSFER            DP  'TRANSFER',T127
    11066   01 02DD8 2  8334     A   MNEMONIC            DP  'MNEMONIC',T128
    11067   01 02DD9    833C     A   ENTERING            DP  'ENTERING',T129
    11068   01 02DD9 2  834C     A   OCCURRED            DP  'OCCURRED',T131
    11069   01 02DDA    81BB     A   REGISTER            DP  'REGISTER',T132
    11070   01 02DDA 2  8354     A   POSITION            DP  'POSITION',T133
    11071   01 02DDB    835C     A   DISARMED            DP  'DISARMED',T134
    11072   01 02DDB 2  8374     A   INTERVAL            DP  'INTERVAL',T137
    11073   01 02DDC    837C     A   MULTIPLE            DP  'MULTIPLE',T138
    11074   01 02DDC 2  8384     A   SUBTESTS            DP  'SUBTESTS',T139
    11075   01 02DDD    838C     A   CONTINUE            DP  'CONTINUE',T140
    11076   01 02DDD 2  8394     A   MEASURES            DP  'MEASURES',T141
    11077                            *  FFC0-FFCF                                                        *A01
    11078   01 02DDE    839C     A   INDIRECT            DP  'INDIRECT',T142
    11079   01 02DDE 2  83A4     A   OVERRIDE            DP  'OVERRIDE',T143
    11080   01 02DDF    83AC     A   EXERCISE            DP  'EXERCISE',T144
    11081   01 02DDF 2  83B4     A   FFFFFFFF            DP  'FFFFFFFF',T145
    11082   01 02DE0    83BC     A   RELEASES            DP  'RELEASES',T146
    11083   01 02DE0 2  809C     A   EXISTANT            DP  'EXISTANT',T148
    11084   01 02DE1    83CC     A   SEARCHES            DP  'SEARCHES',T149
    11085   01 02DE1 2  83D4     A   OVERFLOW            DP  'OVERFLOW',T150
    11086   01 02DE2    83DC     A   ASSIGNED            DP  'ASSIGNED',T151
    11087   01 02DE2 2  83E4     A   FOLLOWED            DP  'FOLLOWED',T152
    11088   01 02DE3    83EC     A   QUESTION            DP  'QUESTION',T153
    11089   01 02DE3 2  83F4     A   TRAPPING            DP  'TRAPPING',T154
    11090   01 02DE4    83FC     A   TRAPHAND            DP  'TRAPHAND',T155
    11091   01 02DE4 2  8404     A   MODIFIED            DP  'MODIFIED',T156
    11092   01 02DE5    840C     A   HALFWORD            DP  'HALFWORD',T157
    11093   01 02DE5 2  8414     A   RELEASED            DP  'RELEASED',T158
    11094                            *  FFD0-FFDF                                                        *A01
    11095   01 02DE6    841C     A   ACTIVITY            DP  'ACTIVITY',T159
    11096   01 02DE6 2  8424     A   SERVICED            DP  'SERVICED',T160
    11097   01 02DE7    742C     A   ASSUMED             DP  'ASSUMED',T161
    11098   01 02DE7 2  7433     A   INVALID             DP  'INVALID',T163
    11099   01 02DE8    743A     A   BETWEEN             DP  'BETWEEN',T167
    11100   01 02DE8 2  7441     A   INSTEAD             DP  'INSTEAD',T168
    11101   01 02DE9    7448     A   SKIPPED             DP  'SKIPPED',T169
    11102   01 02DE9 2  744F     A   ENTRIES             DP  'ENTRIES',T170
    11103   01 02DEA    7456     A   BECAUSE             DP  'BECAUSE',T171
    11104   01 02DEA 2  745D     A   HISTORY             DP  'HISTORY',T172
    11105   01 02DEB    746B     A   PRINTER             DP  'PRINTER',T177
    11106   01 02DEB 2  72B4     A   EXECUTE             DP  'EXECUTE',T178
    11107   01 02DEC    7479     A   COMPUTE             DP  'COMPUTE',T180
    11108   01 02DEC 2  7487     A   RESUMED             DP  'RESUMED',T182
    11109   01 02DED    748E     A   TESTING             DP  'TESTING',T183
    11110   01 02DED 2  7495     A   OUTPUTS             DP  'OUTPUTS',T184
    11111                            *  FFE0-FFEF                                                        *A01
    11112   01 02DEE    74A3     A   OPTIONS             DP  'OPTIONS',T186
    11113   01 02DEE 2  74B1     A   RESTART             DP  'RESTART',T189
    11114   01 02DEF    74B8     A   ROUTINE             DP  'ROUTINE',T190
    11115   01 02DEF 2  74C6     A   HANDLER             DP  'HANDLER',T192
    11116   01 02DF0    74CD     A   CLEARED             DP  'CLEARED',T193
    11117   01 02DF0 2  74D4     A   LEADING             DP  'LEADING',T194
    11118   01 02DF1    74DB     A   DISABLE             DP  'DISABLE',T195
    11119   01 02DF1 2  74E2     A   MODULES             DP  'MODULES',T197
    11120   01 02DF2    74E9     A   MESSAGE             DP  'MESSAGE',T198
    11121   01 02DF2 2  74F0     A   LOOPING             DP  'LOOPING',T199
    11122   01 02DF3    74F7     A   STOPPED             DP  'STOPPED',T200
    11123   01 02DF3 2  73BC     A   RELEASE             DP  'RELEASE',T201
    11124   01 02DF4    74FE     A   REVERSE             DP  'REVERSE',T202
    11125   01 02DF4 2  7505     A   WITHOUT             DP  'WITHOUT',T203
    11126   01 02DF5    750C     A   VIOLATE             DP  'VIOLATE',T205
    11127   01 02DF5 2  70F5     A   DECIMAL             DP  'DECIMAL',T206
    11128                            *  FFF0-FFFF                                                        *A01
    11129   01 02DF6    7513     A   ILLEGAL             DP  'ILLEGAL',T207
    11130   01 02DF6 2  751A     A   PRODUCE             DP  'PRODUCE',T208
    11131   01 02DF7    7521     A   NUMBERS             DP  'NUMBERS',T209
    11132   01 02DF7 2  7528     A   HIGHEST             DP  'HIGHEST',T210
    11133   01 02DF8    752F     A   SPECIAL             DP  'SPECIAL',T211
    11134   01 02DF8 2  7536     A   THROUGH             DP  'THROUGH',T212
    11135   01 02DF9    753D     A   FAILURE             DP  'FAILURE',T213
    11136   01 02DF9 2  7544     A   REGULAR             DP  'REGULAR',T214
    11137   01 02DFA    754B     A   MACHINE             DP  'MACHINE',T215
    11138   01 02DFA 2  7559     A   POINTER             DP  'POINTER',T217
    11139   01 02DFB    7560     A   IGNORED             DP  'IGNORED',T218
    11140   01 02DFB 2  656D     A   FORCED              DP  'FORCED',T220
    11141   01 02DFC    6573     A   BEFORE              DP  'BEFORE',T221
    11142   01 02DFC 2  6579     A   OTHERS              DP  'OTHERS',T222
    11143   01 02DFD    65A9     A   REGSAV              DP  'REGSAV',T230
    11144   01 02DFD 2  65AF     A   LOGGED              DP  'LOGGED',T231
    11145                            *                                                                   *A01
    11146                            *  EXTENSION TABLE 2 - POINTED TO BY HALFWORD FEXX                  *A01
    11147                            *                                                                   *A01
    11148                            *  FE00-FE0F                                                        *A01
    11149   01 02DFE    65B5     A   EXISTS              DP  'EXISTS',T232
    11150   01 02DFE 2  52AC     A   XXXXX               DP  'XXXXX',T295
    11151   01 02DFF    56D8     A   FIRST               DP  'FIRST',T297
    11152   01 02DFF 2  56E2     A   BREAK               DP  'BREAK',T303
    11153   01 02E00    56E7     A   RESET               DP  'RESET',T305
    11154   01 02E00 2  53EC     A   QUEST               DP  'QUEST',T307
    11155   01 02E01    56F1     A   GLOSS               DP  'GLOSS',T308
    11156   01 02E01 2  5700     A   DUMPS               DP  'DUMPS',T311
    11157   01 02E02    55FD     A   ALLOW               DP  'ALLOW',T314
    11158   01 02E02 2  570F     A   TOTAL               DP  'TOTAL',T317
    11159   01 02E03    5714     A   SINCE               DP  'SINCE',T318
    11160   01 02E03 2  5728     A   WHICH               DP  'WHICH',T322
    11161   01 02E04    5737     A   PAIRS               DP  'PAIRS',T325
    11162   01 02E04 2  573C     A   TYPES               DP  'TYPES',T326
    11163   01 02E05    5741     A   CLOCK               DP  'CLOCK',T327
    11164   01 02E05 2  47C2     A   CASE                DP  'CASE',T364
    11165                            *  FE10-FE1F                                                        *A01
    11166   01 02E06    42AC     A   XXXX                DP  'XXXX',T370
    11167   01 02E06 2  4732     A   FULL                DP  'FULL',T373
    11168   01 02E07    386F     A   PPS                 DP  'PPS',T436
    11169   01 02E07 2  3875     A   MEG                 DP  'MEG',T445
    11170   01 02E08    3878     A   ASR                 DP  'ASR',T447
    11171   01 02E08 2  387E     A   HIT                 DP  'HIT',T449
    11172   01 02E09    36FB     A   KEY                 DP  'KEY',T450
    11173   01 02E09 2  3884     A   HAS                 DP  'HAS',T453
    11174   01 02E0A    3887     A   BUT                 DP  'BUT',T457
    11175   01 02E0A 2  3128     A   ERR                 DP  'ERR',T458
    11176   01 02E0B    33DB     A   WAS                 DP  'WAS',T461
    11177   01 02E0B 2  388A     A   BAL                 DP  'BAL',T462
    11178   01 02E0C    31CD     A   DIS                 DP  'DIS',T465
    11179   01 02E0C 2  341C     A   ACT                 DP  'ACT',T466
    11180   01 02E0D    388D     A   MAY                 DP  'MAY',T469
    11181   01 02E0D 2  3890     A   END                 DP  'END',T471
    11182                            *  FE20-FE2F                                                        *A01
    11183   01 02E0E    3893     A   MTB                 DP  'MTB',T473
    11184   01 02E0E 2  3896     A   MTH                 DP  'MTH',T474
    11185   01 02E0F    3899     A   MTW                 DP  'MTW',T475
    11186   01 02E0F 2  32AC     A   XXX                 DP  'XXX',T477
    11187   01 02E10    389C     A   TRY                 DP  'TRY',T478
    11188   01 02E10 2  38A2     A   DBL                 DP  'DBL',T480
    11189   01 02E11    38A5     A   PDF                 DP  'PDF',T481
    11190   01 02E11 2  38A8     A   TOO                 DP  'TOO',T482
    11191   01 02E12    2081     A   IN                  DP  'IN',T489
    11192   01 02E12 2  211D     A   RM                  DP  'RM',T504
    11193   01 02E13    22EE     A   SO                  DP  'SO',T518
    11194   01 02E13 2  259C     A   LS                  DP  'LS',T519
    11195   01 02E14    204B     A   AB                  DP  'AB',T521
    11196   01 02E14 2  20CA     A   IP                  DP  'IP',T522
    11197   01 02E15    2044     A   RE                  DP  'RE',T523
    11198   01 02E15 2  68B5     A   BLOCKS   DP       'BLOCKS',T541                                     *A01
    11199                            *   FE30-FE3F                                                       *A02
    11200   01 02E16    712F     A   CONTAIN  DP       'CONTAIN',T540                                    *A01
    11201   01 02E16 2  78BB     A   VOLTAGE  DP       'VOLTAGE',T542                                    *A02
    11202   01 02E17    88C2     A   FLOATING DP       'FLOATING',T543                                   *A02
    11203   01 02E17 2  88CA     A   TERMINAL DP       'TERMINAL',T544                                   *A02
    11204   01 02E18    18D2     A   M        DP       'M',T545                                          *A02
    11205   01 02E18 2  68D3     A   PARITY   DP       'PARITY',T546                                     *B00
    11206                            *********************
    11207                            *
    11208                            *
    11209                                     BOUND    64
    11210                            *
    11211   01 02E20                 DT       LOC,1    %
            01 02E20
    11212                            *
    11213   01 02E20    F0       A   T000     T        '0'
    11214   01 02E20 1  F1       A   T001     T        '1'
    11215   01 02E20 2  F2       A   T002     T        '2'
    11216   01 02E20 3  F3       A   T003     T        '3'
    11217   01 02E21    F4       A   T004     T        '4'
    11218   01 02E21 1  F5       A   T005     T        '5'
    11219   01 02E21 2  F6       A   T006     T        '6'
    11220   01 02E21 3  F7       A   T007     T        '7'
    11221   01 02E22    F8       A   T008     T        '8'
    11222   01 02E22 1  F9       A   T009     T        '9'
    11223   01 02E22 2  C1       A   T010     T        'A'
    11224   01 02E22 3  C2       A   T011     T        'B'
    11225   01 02E23    C3       A   T012     T        'C'
    11226   01 02E23 1  C4       A   T013     T        'D'
    11227   01 02E23 2  C5       A   T014     T        'E'
    11228   01 02E23 3  C6       A   T015     T        'F'
    11229   01 02E24    40404040 A   T016     T        '                '
                        40404040
                        40404040
                        40404040
    11230         01 02E24           EBCBLNKS EQU      T016              16 EBCDIC BLANKS
    11231   01 02E28    4B       A   T017     T        '.'
    11232   01 02E28 1  6B       A   T018     T        ','
    11233   01 02E28 2  6E       A   T019     T        '>'
    11234   01 02E28 3  4C       A   T020     T        '<'
    11235   01 02E29    7D       A   T021     T        ''''
    11236   01 02E29 1  7C       A   T022     T        '@'
    11237   01 02E29 2  5B       A   T023     T        '%'
    11238   01 02E29 3  50       A   T024     T        '&'
    11239   01 02E2A    61       A   T025     T        '/'
    11240   01 02E2A 1  60       A   T026     T        '-'
    11241   01 02E2A 2  7A       A   T027     T        ':'
    11242   01 02E2A 3  5E       A   T028     T        ';'
    11243   01 02E2B    7B       A   T029     T        '#'
    11244   01 02E2B 1  7E       A   T030     T        '='
    11245   01 02E2B 2  6C       A   T031     T        '%'
    11246   01 02E2B 3  5C       A   T032     T        '*'
    11247   01 02E2C    4D       A   T033     T        '('
    11248   01 02E2C 1  5D       A   T034     T        ')'
    11249   01 02E2C 2  4E       A   T035     T        '+'
    11250   01 02E2C 3  5F       A   T036     T        '~'
    11251                            *********************************
    11252                            *
    11253                            *
    11254   01 02E2D    C9D4D7D3 A   T037    T       'IMPLEMENTATION'
                        C5D4C5D5
                        E3C1E3C9
                        D6D5
    11255   01 02E30 2  E4D5D9C5 A   T038    T       'UNRECOVERABLE'
                        C3D6E5C5
                        D9C1C2D3
                        C5
    11256   01 02E33 3  C3D6D4D4 A   T039    T       'COMMUNICATION'
                        E4D5C9C3
                        C1E3C9D6
                        D5
    11257   01 02E37    E4D5C9D4 A   T040    T       'UNIMPLEMENTED'
                        D7D3C5D4
                        C5D5E3C5
                        C4
    11258   01 02E3A 1  C5E7D7D3 A   T041    T       'EXPLANATIONS'
                        C1D5C1E3
                        C9D6D5E2
    11259   01 02E3D 1  D9C5E2D7 A   T042    T       'RESPECTIVELY'
                        C5C3E3C9
                        E5C5D3E8
    11260   01 02E40 1  C9D5E2E3 A   T043    T       'INSTRUCTIONS'
                        D9E4C3E3
                        C9D6D5E2
    11261   01 02E43 1  C1D3D7C8 A   T044    T       'ALPHANUMERIC'
                        C1D5E4D4
                        C5D9C9C3
    11262   01 02E46 1  D5D6D5C5 A   T045    T       'NONEXISTANT'
                        E7C9E2E3
                        C1D5E3
    11263         01 02E40 1         T046     EQU     DT+129              INSTRUCTION
    11264         01 02E3A 1         T047     EQU     DT+105              EXPLANATION
    11265         01 02E37 2         T048     EQU     DT+94               IMPLEMENTED
    11266   01 02E49    D9C5D7D3 A   T049    T       'REPLACEMENT'
                        C1C3C5D4
                        C5D5E3
    11267   01 02E4B 3  C4C5C6C9 A   T050    T       'DEFINITIONS'
                        D5C9E3C9
                        D6D5E2
    11268   01 02E4E 2  E4D5C1D3 A   T051    T       'UNALTERABLE'
                        E3C5D9C1
                        C2D3C5
    11269   01 02E51 1  C4C5E2C3 A   T052    T       'DESCRIPTION'
                        D9C9D7E3
                        C9D6D5
    11270   01 02E54    C6D9C5D8 A   T053    T       'FREQUENCIES'
                        E4C5D5C3
                        C9C5E2
    11271   01 02E56 3  C3D6E4D5 A   T054    T       'COUNTERZERO'
                        E3C5D9E9
                        C5D9D6
    11272   01 02E59 2  D9C5D7D9 A   T055    T       'REPRESENTED'
                        C5E2C5D5
                        E3C5C4
    11273   01 02E5C 1  C8C5E7C1 A   T056    T       'HEXADECIMAL'
                        C4C5C3C9
                        D4C1D3
    11274   01 02E5F    C9D5C3D6 A   T057    T       'INCORRECTLY'
                        D9D9C5C3
                        E3D3E8
    11275   01 02E61 3  D9C5C6C5 A   T058    T       'REFERENCED'
                        D9C5D5C3
                        C5C4
    11276   01 02E64 1  C4C9D9C5 A   T059    T       'DIRECTIVES'
                        C3E3C9E5
                        C5E2
    11277   01 02E66 3  E3C5D9D4 A   T060    T       'TERMINATES'
                        C9D5C1E3
                        C5E2
    11278   01 02E69 1  C9D5E3C5 A   T061    T       'INTERRUPTS'
                        D9D9E4D7
                        E3E2
    11279   01 02E6B 3  C3D6D5E3 A   T062    T       'CONTAINING'
                        C1C9D5C9
                        D5C7
    11280   01 02E6E 1  C3D6D5E3 A   T063    T       'CONTROLLED'
                        D9D6D3D3
                        C5C4
    11281   01 02E70 3  C1C4C4D9 A   T064    T       'ADDRESSING'
                        C5E2E2C9
                        D5C7
    11282   01 02E73 1  D7D9C9E5 A   T065    T       'PRIVILEGED'
                        C9D3C5C7
                        C5C4
    11283   01 02E75 3  D7D9D6E3 A   T066    T       'PROTECTION'
                        C5C3E3C9
                        D6D5
    11284   01 02E78 1  C3D6D5C4 A   T067    T       'CONDITIONS'
                        C9E3C9D6
                        D5E2
    11285   01 02E7A 3  D7C1D9E3 A   T068    T       'PARTICULAR'
                        C9C3E4D3
                        C1D9
    11286   01 02E7D 1  D7D9C9D6 A   T069    T       'PRIORITIES'
                        D9C9E3C9
                        C5E2
    11287   01 02E7F 3  C3D6D5E3 A   T070    T       'CONTIGUOUS'
                        C9C7E4D6
                        E4E2
    11288   01 02E82 1  D9C5D7D9 A   T071    T       'REPRESENTS'
                        C5E2C5D5
                        E3E2
    11289   01 02E84 3  D7C1D9C1 A   T072    T       'PARAMETERS'
                        D4C5E3C5
                        D9E2
    11290   01 02E87 1  E4D5C5E7 A   T073    T       'UNEXPECTED'
                        D7C5C3E3
                        C5C4
    11291   01 02E89 3  E2E4D7D7 A   T074    T       'SUPPOSEDLY'
                        D6E2C5C4
                        D3E8
    11292   01 02E8C 1  D7D9C5E5 A   T075    T       'PREVIOUSLY'
                        C9D6E4E2
                        D3E8
    11293         01 02E69 1         T076     EQU     DT+293              INTERRUPT
    11294   01 02E8E 3  D9C5C7C9 A   T077    T       'REGISTERS'
                        E2E3C5D9
                        E2
    11295   01 02E91    E3C8C5D9 A   T078    T       'THEREFORE'
                        C5C6D6D9
                        C5
    11296   01 02E93 1  C4C9E2D7 A   T079    T       'DISPLAYED'
                        D3C1E8C5
                        C4
    11297         01 02E61 3         T080     EQU     DT+263              REFERENCE
    11298   01 02E95 2  C3D6D4D7 A   T081    T       'COMPLETED'
                        D3C5E3C5
                        C4
    11299         01 02E84 3         T082     EQU     DT+403              PARAMETER
    11300   01 02E97 3  C1E5C1C9 A   T083    T       'AVAILABLE'
                        D3C1C2D3
                        C5
    11301   01 02E9A    C3D6D4D4 A   T084    T       'COMMANDED'
                        C1D5C4C5
                        C4
    11302   01 02E9C 1  E3D9C9C7 A   T085    T       'TRIGGERED'
                        C7C5D9C5
                        C4
    11303   01 02E9E 2  D7C1D9C1 A   T086    T       'PARAGRAPH'
                        C7D9C1D7
                        C8
    11304   01 02EA0 3  D7C5D9D4 A   T087    T       'PERMITTED'
                        C9E3E3C5
                        C4
    11305   01 02EA3    C9D5D7E4 A   T088    T       'INPUTTING'
                        E3E3C9D5
                        C7
    11306   01 02EA5 1  C6D6D3D3 A   T089    T       'FOLLOWING'
                        D6E6C9D5
                        C7
    11307   01 02EA7 2  E2D7C5C3 A   T090    T       'SPECIFIED'
                        C9C6C9C5
                        C4
    11308   01 02EA9 3  C4C9D9C5 A   T091    T       'DIRECTIVE'
                        C3E3C9E5
                        C5
    11309   01 02EAC    D3D6C3C1 A   T092    T       'LOCATIONS'
                        E3C9D6D5
                        E2
    11310   01 02EAE 1  C5E7D7D3 A   T093    T       'EXPLAINED'
                        C1C9D5C5
                        C4
    11311   01 02EB0 2  C9D5C4C9 A   T094    T       'INDICATES'
                        C3C1E3C5
                        E2
    11312   01 02EB2 3  D7C1D9E3 A   T095    T       'PARTIALLY'
                        C9C1D3D3
                        E8
    11313   01 02EB5    C9D5C8C9 A   T096    T       'INHIBITED'
                        C2C9E3C5
                        C4
    11314   01 02EB7 1  C4C5E3C5 A   T097    T       'DETERMINE'
                        D9D4C9D5
                        C5
    11315   01 02EB9 2  C5E7C3C5 A   T098    T       'EXCEPTION'
                        D7E3C9D6
                        D5
    11316   01 02EBB 3  D9C5D1C5 A   T099    T       'REJECTION'
                        C3E3C9D6
                        D5
    11317   01 02EBE    E2D7C5C3 A   T100    T       'SPECIFIES'
                        C9C6C9C5
                        E2
    11318   01 02EC0 1  E8E8E8E8 A   T101    T       'YYYYYYYYY'
                        E8E8E8E8
                        E8
    11319   01 02EC2 2  C1C4C4D9 A   T102    T       'ADDRESSED'
                        C5E2E2C5
                        C4
    11320         01 02E78 1         T103     EQU     DT+353              CONDITION
    11321   01 02EC4 3  C9D5C3D9 A   T104    T       'INCREMENT'
                        C5D4C5D5
                        E3
    11322         01 02E5F           T105     EQU     DT+252              INCORRECT
    11323   01 02EC7    D7D9C9D6 A   T106    T       'PRIORITY'
                        D9C9E3E8
    11324   01 02EC9    D9C5D3C1 A   T107    T       'RELATIVE'
                        E3C9E5C5
    11325   01 02ECB    E7E7E7E7 A   T108    T       'XXXXXXXX'
                        E7E7E7E7
    11326   01 02ECD    C5E7C5C3 A   T109    T       'EXECUTED'
                        E4E3C5C4
    11327         01 02E8C 1         T110     EQU     DT+433              PREVIOUS
    11328   01 02ECF    E2D7E4D9 A   T111    T       'SPURIOUS'
                        C9D6E4E2
    11329   01 02ED1    C3D6D5C6 A   T112    T       'CONFLICT'
                        D3C9C3E3
    11330         01 02E87 3         T113     EQU     DT+415              EXPECTED
    11331   01 02ED3    E2C5D8E4 A   T114    T       'SEQUENCE'
                        C5D5C3C5
    11332         01 02EAC           T115     EQU     DT+560              LOCATION
    11333   01 02ED5    D7C1E3E3 A   T116    T       'PATTERNS'
                        C5D9D5E2
    11334   01 02ED7    C6E4D5C3 A   T117     T       'FUNCTION'
                        E3C9D6D5
    11335   01 02ED9    E2C5D3C5 A   T118    T       'SELECTED'
                        C3E3C5C4
    11336   01 02EDB    C1C2E2D6 A   T119    T       'ABSOLUTE'
                        D3E4E3C5
    11337   01 02EDD    D9C5C3D6 A   T120    T       'RECOVERY'
                        E5C5D9E8
    11338   01 02EDF    C3D6D5E3 A   T121    T       'CONTENTS'
                        C5D5E3E2
    11339   01 02EE1    E2D6C6E3 A   T122    T       'SOFTWARE'
                        E6C1D9C5
    11340   01 02EE3    E2E4D7D7 A   T123    T       'SUPPRESS'
                        D9C5E2E2
    11341   01 02EE5    C4C9E2D7 A   T124    T       'DISPLAYS'
                        D3C1E8E2
    11342   01 02EE7    C8C1D5C4 A   T125    T       'HANDLING'
                        D3C9D5C7
    11343   01 02EE9    D3C9D5D2 A   T126    T       'LINKAGES'
                        C1C7C5E2
    11344   01 02EEB    E3D9C1D5 A   T127    T       'TRANSFER'
                        E2C6C5D9
    11345   01 02EED    D4D5C5D4 A   T128    T       'MNEMONIC'
                        D6D5C9C3
    11346   01 02EEF    C5D5E3C5 A   T129    T       'ENTERING'
                        D9C9D5C7
    11347   01 02EF1    E2E3C1D9 A   T130    T       'STARTING'
                        E3C9D5C7
    11348   01 02EF3    D6C3C3E4 A   T131    T       'OCCURRED'
                        D9D9C5C4
    11349         01 02E8E 3         T132     EQU     DT+443              REGISTER
    11350   01 02EF5    D7D6E2C9 A   T133    T       'POSITION'
                        E3C9D6D5
    11351   01 02EF7    C4C9E2C1 A   T134    T       'DISARMED'
                        D9D4C5C4
    11352   01 02EF9    C4C9E2C1 A   T135    T       'DISABLED'
                        C2D3C5C4
    11353   01 02EFB    C5E7E3C5 A   T136    T       'EXTERNAL'
                        D9D5C1D3
    11354   01 02EFD    C9D5E3C5 A   T137    T       'INTERVAL'
                        D9E5C1D3
    11355   01 02EFF    D4E4D3E3 A   T138    T       'MULTIPLE'
                        C9D7D3C5
    11356   01 02F01    E2E4C2E3 A   T139    T       'SUBTESTS'
                        C5E2E3E2
    11357   01 02F03    C3D6D5E3 A   T140    T       'CONTINUE'
                        C9D5E4C5
    11358   01 02F05    D4C5C1E2 A   T141    T       'MEASURES'
                        E4D9C5E2
    11359   01 02F07    C9D5C4C9 A   T142    T       'INDIRECT'
                        D9C5C3E3
    11360   01 02F09    D6E5C5D9 A   T143    T       'OVERRIDE'
                        D9C9C4C5
    11361   01 02F0B    C5E7C5D9 A   T144    T       'EXERCISE'
                        C3C9E2C5
    11362   01 02F0D    C6C6C6C6 A   T145    T       'FFFFFFFF'
                        C6C6C6C6
    11363   01 02F0F    D9C5D3C5 A   T146    T       'RELEASES'
                        C1E2C5E2
    11364   01 02F11    C5E7C5C3 A   T147    T       'EXECUTES'
                        E4E3C5E2
    11365         01 02E47           T148     EQU     DT+156              EXISTANT
    11366   01 02F13    E2C5C1D9 A   T149    T       'SEARCHES'
                        C3C8C5E2
    11367   01 02F15    D6E5C5D9 A   T150    T       'OVERFLOW'
                        C6D3D6E6
    11368   01 02F17    C1E2E2C9 A   T151    T       'ASSIGNED'
                        C7D5C5C4
    11369   01 02F19    C6D6D3D3 A   T152    T       'FOLLOWED'
                        D6E6C5C4
    11370   01 02F1B    D8E4C5E2 A   T153    T       'QUESTION'
                        E3C9D6D5
    11371   01 02F1D    E3D9C1D7 A   T154    T       'TRAPPING'
                        D7C9D5C7
    11372   01 02F1F    E3D9C1D7 A   T155    T       'TRAPHAND'
                        C8C1D5C4
    11373   01 02F21    D4D6C4C9 A   T156    T       'MODIFIED'
                        C6C9C5C4
    11374   01 02F23    C8C1D3C6 A   T157    T       'HALFWORD'
                        E6D6D9C4
    11375   01 02F25    D9C5D3C5 A   T158    T       'RELEASED'
                        C1E2C5C4
    11376   01 02F27    C1C3E3C9 A   T159    T       'ACTIVITY'
                        E5C9E3E8
    11377   01 02F29    E2C5D9E5 A   T160    T       'SERVICED'
                        C9C3C5C4
    11378   01 02F2B    C1E2E2E4 A   T161    T       'ASSUMED'
                        D4C5C4
    11379         01 02F01           T162     EQU     DT+900              SUBTEST
    11380   01 02F2C 3  C9D5E5C1 A   T163    T       'INVALID'
                        D3C9C4
    11381         01 02E56 3         T164     EQU     DT+219              COUNTER
    11382         01 02E6E 1         T165     EQU     DT+313              CONTROL
    11383         01 02E70 3         T166     EQU     DT+323              ADDRESS
    11384   01 02F2E 2  C2C5E3E6 A   T167    T       'BETWEEN'
                        C5C5D5
    11385   01 02F30 1  C9D5E2E3 A   T168    T       'INSTEAD'
                        C5C1C4
    11386   01 02F32    E2D2C9D7 A   T169    T       'SKIPPED'
                        D7C5C4
    11387   01 02F33 3  C5D5E3D9 A   T170    T       'ENTRIES'
                        C9C5E2
    11388   01 02F35 2  C2C5C3C1 A   T171    T       'BECAUSE'
                        E4E2C5
    11389   01 02F37 1  C8C9E2E3 A   T172    T       'HISTORY'
                        D6D9E8
    11390         01 02E5A           T173     EQU     DT+232              PRESENT
    11391         01 02ED5           T174     EQU     DT+724              PATTERN
    11392         01 02EB5           T175     EQU     DT+596              INHIBIT
    11393   01 02F39    C5D5C1C2 A   T176    T       'ENABLED'
                        D3C5C4
    11394   01 02F3A 3  D7D9C9D5 A   T177    T       'PRINTER'
                        E3C5D9
    11395         01 02ECD           T178     EQU     DT+692              EXECUTE
    11396   01 02F3C 2  D7D9D6C7 A   T179    T       'PROGRAM'
                        D9C1D4
    11397   01 02F3E 1  C3D6D4D7 A   T180    T       'COMPUTE'
                        E4E3C5
    11398   01 02F40    E6C1C9E3 A   T181    T       'WAITING'
                        C9D5C7
    11399   01 02F41 3  D9C5E2E4 A   T182    T       'RESUMED'
                        D4C5C4
    11400   01 02F43 2  E3C5E2E3 A   T183    T       'TESTING'
                        C9D5C7
    11401   01 02F45 1  D6E4E3D7 A   T184    T       'OUTPUTS'
                        E4E3E2
    11402   01 02F47    C3E4D9D9 A   T185    T       'CURRENT'
                        C5D5E3
    11403   01 02F48 3  D6D7E3C9 A   T186    T       'OPTIONS'
                        D6D5E2
    11404         01 02E93 1         T187     EQU     DT+461              DISPLAY
    11405   01 02F4A 2  E2C5D3C5 A   T188    T       'SELECTS'
                        C3E3E2
    11406   01 02F4C 1  D9C5E2E3 A   T189    T       'RESTART'
                        C1D9E3
    11407   01 02F4E    D9D6E4E3 A   T190    T       'ROUTINE'
                        C9D5C5
    11408   01 02F4F 3  D3C9E2E3 A   T191    T       'LISTING'
                        C9D5C7
    11409   01 02F51 2  C8C1D5C4 A   T192    T       'HANDLER'
                        D3C5D9
    11410   01 02F53 1  C3D3C5C1 A   T193    T       'CLEARED'
                        D9C5C4
    11411   01 02F55    D3C5C1C4 A   T194    T       'LEADING'
                        C9D5C7
    11412   01 02F56 3  C4C9E2C1 A   T195    T       'DISABLE'
                        C2D3C5
    11413         01 02E9C 1         T196     EQU     DT+497              TRIGGER
    11414   01 02F58 2  D4D6C4E4 A   T197    T       'MODULES'
                        D3C5E2
    11415   01 02F5A 1  D4C5E2E2 A   T198    T       'MESSAGE'
                        C1C7C5
    11416   01 02F5C    D3D6D6D7 A   T199    T       'LOOPING'
                        C9D5C7
    11417   01 02F5D 3  E2E3D6D7 A   T200    T       'STOPPED'
                        D7C5C4
    11418         01 02F0F           T201     EQU     DT+956              RELEASE
    11419   01 02F5F 2  D9C5E5C5 A   T202    T       'REVERSE'
                        D9E2C5
    11420   01 02F61 1  E6C9E3C8 A   T203    T       'WITHOUT'
                        D6E4E3
    11421         01 02E9A           T204     EQU     DT+488              COMMAND
    11422   01 02F63    E5C9D6D3 A   T205    T       'VIOLATE'
                        C1E3C5
    11423         01 02E5D 1         T206     EQU     DT+245              DECIMAL
    11424   01 02F64 3  C9D3D3C5 A   T207    T       'ILLEGAL'
                        C7C1D3
    11425   01 02F66 2  D7D9D6C4 A   T208    T       'PRODUCE'
                        E4C3C5
    11426   01 02F68 1  D5E4D4C2 A   T209    T       'NUMBERS'
                        C5D9E2
    11427   01 02F6A    C8C9C7C8 A   T210    T       'HIGHEST'
                        C5E2E3
    11428   01 02F6B 3  E2D7C5C3 A   T211    T       'SPECIAL'
                        C9C1D3
    11429   01 02F6D 2  E3C8D9D6 A   T212    T       'THROUGH'
                        E4C7C8
    11430   01 02F6F 1  C6C1C9D3 A   T213    T       'FAILURE'
                        E4D9C5
    11431   01 02F71    D9C5C7E4 A   T214    T       'REGULAR'
                        D3C1D9
    11432   01 02F72 3  D4C1C3C8 A   T215    T       'MACHINE'
                        C9D5C5
    11433   01 02F74 2  C1D3E3C5 A   T216    T       'ALTERED'
                        D9C5C4
    11434   01 02F76 1  D7D6C9D5 A   T217    T       'POINTER'
                        E3C5D9
    11435   01 02F78    C9C7D5D6 A   T218    T       'IGNORED'
                        D9C5C4
    11436   01 02F79 3  C7D9D6E4 A   T219    T       'GROUPS'
                        D7E2
    11437   01 02F7B 1  C6D6D9C3 A   T220    T       'FORCED'
                        C5C4
    11438   01 02F7C 3  C2C5C6D6 A   T221    T       'BEFORE'
                        D9C5
    11439   01 02F7E 1  D6E3C8C5 A   T222    T       'OTHERS'
                        D9E2
    11440   01 02F7F 3  D3C9D4C9 A   T223    T       'LIMITS'
                        E3E2
    11441   01 02F81 1  E2E6C9E3 A   T224    T       'SWITCH'
                        C3C8
    11442   01 02F82 3  D6D3C4D7 A   T225    T       'OLDPSW'
                        E2E6
    11443   01 02F84 1  D5C5E6D7 A   T226    T       'NEWPSW'
                        E2E6
    11444   01 02F85 3  D5D6D9D4 A   T227    T       'NORMAL'
                        C1D3
    11445   01 02F87 1  E2E4C2E3 A   T228    T       'SUBTST'
                        E2E3
    11446   01 02F88 3  C5D9D9D6 A   T229    T       'ERRORS'
                        D9E2
    11447   01 02F8A 1  D9C5C7E2 A   T230    T       'REGSAV'
                        C1E5
    11448   01 02F8B 3  D3D6C7C7 A   T231    T       'LOGGED'
                        C5C4
    11449   01 02F8D 1  C5E7C9E2 A   T232    T       'EXISTS'
                        E3E2
    11450   01 02F8E 3  C4C5E5C9 A   T233    T       'DEVICE'
                        C3C5
    11451   01 02F90 1  C1C3E3E4 A   T234    T       'ACTUAL'
                        C1D3
    11452   01 02F91 3  D4E2C7C4 A   T235    T       'MSGDEV'
                        C5E5
    11453   01 02F93 1  C3D6D4C4 A   T236    T       'COMDEV'
                        C5E5
    11454   01 02F94 3  C1C3E3C9 A   T237    T       'ACTION'
                        D6D5
    11455   01 02F96 1  E2E8E2E3 A   T238    T       'SYSTEM'
                        C5D4
    11456   01 02F97 3  C6D6D9C3 A   T239    T       'FORCES'
                        C5E2
    11457   01 02F99 1  D4D6E5C9 A   T240    T       'MOVING'
                        D5C7
    11458         01 02F45 1         T241     EQU     DT+1173             OUTPUT
    11459   01 02F9A 3  E2E8D5E3 A   T242    T       'SYNTAX'
                        C1E7
    11460   01 02F9C 1  D7D9D6D4 A   T243    T       'PROMPT'
                        D7E3
    11461         01 02F07 2         T244     EQU     DT+926              DIRECT
    11462   01 02F9D 3  D4C5D4D6 A   T245    T       'MEMORY'
                        D9E8
    11463   01 02F9F 1  C1D3D3D6 A   T246    T       'ALLOWS'
                        E6E2
    11464   01 02FA0 3  E2E3C1E3 A   T247    T       'STATUS'
                        E4E2
    11465   01 02FA2 1  D4D6C4C9 A   T248    T       'MODIFY'
                        C6E8
    11466   01 02FA3 3  C3C1E4E2 A   T249    T       'CAUSES'
                        C5E2
    11467   01 02FA5 1  D9C5D7D6 A   T250    T       'REPORT'
                        D9E3
    11468         01 02F68 1         T251     EQU     DT+1313             NUMBER
    11469   01 02FA6 3  C3D6E4D5 A   T252    T       'COUNTS'
                        E3E2
    11470   01 02FA8 1  E2E3D6D9 A   T253    T       'STORED'
                        C5C4
    11471   01 02FA9 3  C3C1D3D3 A   T254    T       'CALLED'
                        C5C4
    11472   01 02FAB 1  C4E4D9C9 A   T255    T       'DURING'
                        D5C7
    11473   01 02FAC 3  C8C5C1C4 A   T256    T       'HEADER'
                        C5D9
    11474   01 02FAE 1  C6D6D9D4 A   T257    T       'FORMAT'
                        C1E3
    11475         01 02F39           T258     EQU     DT+1124             ENABLE
    11476   01 02FAF 3  C1C3E3C9 A   T259    T       'ACTIVE'
                        E5C5
    11477   01 02FB1 1  D3C5E5C5 A   T260    T       'LEVELS'
                        D3E2
    11478         01 02F58 2         T261     EQU     DT+1250             MODULE
    11479   01 02FB2 3  D4C1D9C7 A   T262    T       'MARGIN'
                        C9D5
    11480         01 02ED9           T263     EQU     DT+740              SELECT
    11481   01 02FB4 1  D9C1D5C4 A   T264    T       'RANDOM'
                        D6D4
    11482   01 02FB5 3  D7C1E2E2 A   T265    T       'PASSES'
                        C5E2
    11483   01 02FB7 1  C4C9C7C9 A   T266    T       'DIGITS'
                        E3E2
    11484   01 02FB8 3  E2E3C1E3 A   T267    T       'STATES'
                        C5E2
    11485   01 02FBA 1  C3C8C5C3 A   T268    T       'CHECKS'
                        D2E2
    11486   01 02FBB 3  C5D8E4C1 A   T269    T       'EQUALS'
                        D3E2
    11487   01 02FBD 1  E5C1D3E4 A   T270    T       'VALUES'
                        C5E2
    11488   01 02FBE 3  C3C1D5D5 A   T271    T       'CANNOT'
                        D6E3
    11489   01 02FC0 1  D9C5D3C1 A   T272    T       'RELATE'
                        E3C5
    11490   01 02FC1 3  D7D9C5C6 A   T273    T       'PREFIX'
                        C9E7
    11491         01 02E37           T274     EQU     DT+92               UNIMPL
    11492   01 02FC3 1  C2C9D5C1 A   T275    T       'BINARY'
                        D9E8
    11493         01 02EF7           T276     EQU     DT+860              DISARM
    11494   01 02FC4 3  E2C5C3D6 A   T277    T       'SECOND'
                        D5C4
    11495   01 02FC6 1  C6C9C5D3 A   T278    T       'FIELDS'
                        C4E2
    11496   01 02FC7 3  C4D6E4C2 A   T279    T       'DOUBLE'
                        D3C5
    11497   01 02FC9 1  E2E3D9C9 A   T280    T       'STRING'
                        D5C7
    11498         01 02EF1           T281     EQU     DT+836              START
    11499         01 02F01 3         T282     EQU     DT+903              TESTS
    11500   01 02FCA 3  D7E4D3E2 A   T283    T       'PULSE'
                        C5
    11501   01 02FCC    D9C1E3C5 A   T284    T       'RATES'
                        E2
    11502   01 02FCD 1  D7C1D5C5 A   T285    T       'PANEL'
                        D3
    11503         01 02F88 3         T286     EQU     DT+1443             ERROR
    11504   01 02FCE 2  E2C1E5C5 A   T287    T       'SAVED'
                        C4
    11505         01 02E40 1         T288     EQU     DT+129              INSTR
    11506   01 02FCF 3  D3C1C2C5 A   T289    T       'LABEL'
                        D3
    11507   01 02FD1    E4E2C9D5 A   T290    T       'USING'
                        C7
    11508   01 02FD2 1  D3D6D6D7 A   T291    T       'LOOPS'
                        E2
    11509         01 02F2D 1         T292     EQU     DT+1077             VALID
    11510   01 02FD3 2  E2C9C7D4 A   T293    T       'SIGMA'
                        C1
    11511         01 02FC6 1         T294     EQU     DT+1689             FIELD
    11512         01 02ECB           T295     EQU     DT+684              XXXXX
    11513   01 02FD4 3  E3C1C2D3 A   T296    T       'TABLE'
                        C5
    11514   01 02FD6    C6C9D9E2 A   T297    T       'FIRST'
                        E3
    11515         01 02F79 3         T298     EQU     DT+1383             GROUP
    11516         01 02FB1 1         T299     EQU     DT+1605             LEVEL
    11517   01 02FD7 1  E2E3C1E3 A   T300    T       'STATE'
                        C5
    11518         01 02E56 3         T301     EQU     DT+219              COUNT
    11519         01 02EF7 3         T302     EQU     DT+863              ARMED
    11520   01 02FD8 2  C2D9C5C1 A   T303    T       'BREAK'
                        D2
    11521         01 02EA3           T304     EQU     DT+524              INPUT
    11522   01 02FD9 3  D9C5E2C5 A   T305    T       'RESET'
                        E3
    11523   01 02FDB    D4C5C1D5 A   T306    T       'MEANS'
                        E2
    11524         01 02F1B           T307     EQU     DT+1004             QUEST
    11525   01 02FDC 1  C7D3D6E2 A   T308    T       'GLOSS'
                        E2
    11526   01 02FDD 2  C1C6E3C5 A   T309    T       'AFTER'
                        D9
    11527   01 02FDE 3  D2C5E8C9 A   T310    T       'KEYIN'
                        D5
    11528   01 02FE0    C4E4D4D7 A   T311    T       'DUMPS'
                        E2
    11529         01 02E93 1         T312     EQU     DT+461              DISPL
    11530   01 02FE1 1  E2C5D5E2 A   T313    T       'SENSE'
                        C5
    11531         01 02F9F 1         T314     EQU     DT+1533             ALLOW
    11532   01 02FE2 2  E2C8D6D9 A   T315    T       'SHORT'
                        E3
    11533         01 02F3A 3         T316     EQU     DT+1131             PRINT
    11534   01 02FE3 3  E3D6E3C1 A   T317    T       'TOTAL'
                        D3
    11535   01 02FE5    E2C9D5C3 A   T318    T       'SINCE'
                        C5
    11536   01 02FE6 1  E3D9C1D7 A   T319    T       'TRAPS'
                        E2
    11537   01 02FE7 2  C2C5D3D6 A   T320    T       'BELOW'
                        E6
    11538   01 02FE8 3  D6D9C4C5 A   T321    T       'ORDER'
                        D9
    11539   01 02FEA    E6C8C9C3 A   T322    T       'WHICH'
                        C8
    11540   01 02FEB 1  E6D9C9E3 A   T323    T       'WRITE'
                        C5
    11541   01 02FEC 2  C6E4D3D3 A   T324    T       'FULLY'
                        E8
    11542   01 02FED 3  D7C1C9D9 A   T325    T       'PAIRS'
                        E2
    11543   01 02FEF    E3E8D7C5 A   T326    T       'TYPES'
                        E2
    11544   01 02FF0 1  C3D3D6C3 A   T327    T       'CLOCK'
                        D2
    11545   01 02FF1 2  C6C9E7C5 A   T328    T       'FIXED'
                        C4
    11546   01 02FF2 3  D9C1D5C7 A   T329    T       'RANGE'
                        C5
    11547   01 02FF4    E3C9D4C5 A   T330    T       'TIMES'
                        E2
    11548         01 02F76 1         T331     EQU     DT+1369             POINT
    11549   01 02FF5 1  E4D5E3C9 A   T332    T       'UNTIL'
                        D3
    11550   01 02FF6 2  D5D6E3C5 A   T333    T       'NOTED'
                        C4
    11551   01 02FF7 3  D9C5C1C4 A   T334    T       'READS'
                        E2
    11552   01 02FF9    D3D6E6C5 A   T335    T       'LOWER'
                        D9
    11553   01 02FFA 1  E2D3C1E5 A   T336    T       'SLAVE'
                        C5
    11554         01 02E47           T337     EQU     DT+156              EXIST
    11555   01 02FFB 2  E2E3C1C3 A   T338    T       'STACK'
                        D2
    11556   01 02FFC 3  E6C1E3C3 A   T339    T       'WATCH'
                        C8
    11557   01 02FFE    E3C9D4C5 A   T340    T       'TIMER'
                        D9
    11558         01 02F7E 1         T341     EQU     DT+1401             OTHER
    11559         01 02FBD 1         T342     EQU     DT+1653             VALUE
    11560   01 02FFF 1  D3C9D5C5 A   T343    T       'LINES'
                        E2
    11561   01 03000 2  D4C1E3C3 A   T344    T       'MATCH'
                        C8
    11562   01 03001 3  C3D6C4C5 A   T345    T       'CODES'
                        E2
    11563   01 03003    E6D6D9C4 A   T346    T       'WORDS'
                        E2
    11564   01 03004 1  E6C8C5D9 A   T347    T       'WHERE'
                        C5
    11565   01 03005 2  C6D3D6D7 A   T348    T       'FLOPS'
                        E2
    11566         01 02EF3           T349     EQU     DT+844              OCCUR
    11567   01 03006 3  E6D9D6D5 A   T350    T       'WRONG'
                        C7
    11568   01 03008    C6C1E4D3 A   T351    T       'FAULT'
                        E3
    11569   01 03009 1  D3C1D9C7 A   T352    T       'LARGE'
                        C5
    11570         01 02F01 3         T353     EQU     DT+903              TEST
    11571         01 02FEF           T354     EQU     DT+1852             TYPE
    11572   01 0300A 2  E3C8D9E4 A   T355    T       'THRU'
    11573   01 0300B 2  D4E4E2E3 A   T356    T       'MUST'
    11574         01 02F5C           T357     EQU     DT+1264             LOOP
    11575   01 0300C 2  D7E4E2C8 A   T358    T       'PUSH'
    11576   01 0300D 2  D6D5C3C5 A   T359    T       'ONCE'
    11577         01 02E70 3         T360     EQU     DT+323              ADDR
    11578         01 02FCC           T361     EQU     DT+1712             RATE
    11579   01 0300E 2  E6C5D9C5 A   T362    T       'WERE'
    11580   01 0300F 2  C6C1E2E3 A   T363    T       'FAST'
    11581   01 03010 2  C3C1E2C5 A   T364    T       'CASE'
    11582         01 02FF6 2         T365     EQU     DT+1882             NOTE
    11583   01 03011 2  E2C1D4C5 A   T366    T       'SAME'
    11584         01 02FB5 3         T367     EQU     DT+1623             PASS
    11585   01 03012 2  E2E3D9E3 A   T368    T       'STRT'
    11586         01 02F5D 3         T369     EQU     DT+1271             STOP
    11587         01 02ECB           T370     EQU     DT+684              XXXX
    11588   01 03013 2  C8C1D3E3 A   T371    T       'HALT'
    11589         01 02F1D           T372     EQU     DT+1012             TRAP
    11590         01 02FEC 2         T373     EQU     DT+1842             FULL
    11591   01 03014 2  D6D5D3E8 A   T374    T       'ONLY'
    11592         01 02FFF 1         T375     EQU     DT+1917             LINE
    11593   01 03015 2  C2C9E3E2 A   T376    T       'BITS'
    11594         01 02F32           T377     EQU     DT+1096             SKIP
    11595   01 03016 2  D5C5E7E3 A   T378    T       'NEXT'
    11596         01 02FF4           T379     EQU     DT+1872             TIME
    11597   01 03017 2  C3C8C1D9 A   T380    T       'CHAR'
    11598   01 03018 2  E6C9D3D3 A   T381    T       'WILL'
    11599   01 03019 2  C4D6C5E2 A   T382    T       'DOES'
    11600   01 0301A 2  C6D9D6D4 A   T383    T       'FROM'
    11601   01 0301B 2  C9C4D3C5 A   T384    T       'IDLE'
    11602   01 0301C 2  E6C8C5D5 A   T385    T       'WHEN'
    11603   01 0301D 2  D4C1D9D2 A   T386    T       'MARK'
    11604         01 02E3A 1         T387     EQU     DT+105              EXPL
    11605   01 0301E 2  C1D3E2D6 A   T388    T       'ALSO'
    11606         01 02F24           T389     EQU     DT+1040             WORD
    11607   01 0301F 2  E4E2C5D9 A   T390    T       'USER'
    11608   01 03020 2  D3D6D5C7 A   T391    T       'LONG'
    11609   01 03021 2  D4E2C7E2 A   T392    T       'MSGS'
    11610   01 03022 2  D3C1E2E3 A   T393    T       'LAST'
    11611   01 03023 2  C5C1C3C8 A   T394    T       'EACH'
    11612         01 02EC0 1         T395     EQU     DT+641              YYYY
    11613   01 03024 2  E3C8C9E2 A   T396    T       'THIS'
    11614   01 03025 2  C6C9D5C4 A   T397    T       'FIND'
    11615   01 03026 2  E7D7E2C4 A   T398    T       'XPSD'
    11616   01 03027 2  D2C5D7E3 A   T399    T       'KEPT'
    11617   01 03028 2  D3C5E2E2 A   T400    T       'LESS'
    11618         01 02F40           T401     EQU     DT+1152             WAIT
    11619   01 03029 2  E3C8C1E3 A   T402    T       'THAT'
    11620         01 02F4F 3         T403     EQU     DT+1215             LIST
    11621   01 0302A 2  C9D5C6D6 A   T404    T       'INFO'
    11622         01 02E58 2         T405     EQU     DT+226              ZERO
    11623   01 0302B 2  C5E5C5D5 A   T406    T       'EVEN'
    11624         01 02FF8 3         T407     EQU     DT+1891             SLOW
    11625   01 0302C 2  E2C5E3E2 A   T408    T       'SETS'
    11626   01 0302D 2  C9D5E3E2 A   T409    T       'INTS'
    11627         01 02F61 1         T410     EQU     DT+1285             WITH
    11628   01 0302E 2  E3C8C5D5 A   T411    T       'THEN'
    11629   01 0302F 2  E3C8C5D4 A   T412    T       'THEM'
    11630   01 03030 2  D3D7E2C4 A   T413    T       'LPSD'
    11631   01 03031 2  D4D6C4C5 A   T414    T       'MODE'
    11632         01 02FA9 3         T415     EQU     DT+1575             CALL
    11633         01 02F6A           T416     EQU     DT+1320             HIGH
    11634   01 03032 2  C6D3C9D7 A   T417    T       'FLIP'
    11635         01 03001 3         T418     EQU     DT+1927             CODE
    11636   01 03033 2  C4C1E3C1 A   T419    T       'DATA'
    11637   01 03034 2  E2C9E9C5 A   T420    T       'SIZE'
    11638         01 02FCE 2         T421     EQU     DT+1722             SAVE
    11639         01 02FAE 1         T422     EQU     DT+1593             FORM
    11640   01 03035 2  C8C1E5C5 A   T423    T       'HAVE'
    11641   01 03036 2  C2E8E3C5 A   T424    T       'BYTE'
    11642         01 02FF7 3         T425     EQU     DT+1887             READ
    11643   01 03037 2  D4D6D9C5 A   T426    T       'MORE'
    11644         01 03005 2         T427     EQU     DT+1942             FLOP
    11645   01 03038 2  C6D3C1C7 A   T428    T       'FLAG'
    11646   01 03039 2  D9E4D5   A   T429    T       'RUN'
    11647   01 0303A 1  C1D5E8   A   T430    T       'ANY'
    11648         01 02F45 1         T431     EQU     DT+1173             OUT
    11649   01 0303B    C2C4D9   A   T432    T       'BDR'
    11650         01 02EAC           T433     EQU     DT+560              LOC
    11651         01 02FF6 2         T434     EQU     DT+1882             NOT
    11652         01 02E9B           T435     EQU     DT+492              AND
    11653   01 0303B 3  D7D7E2   A   T436    T       'PPS'
    11654         01 02F9D 3         T437     EQU     DT+1527             MEM
    11655         01 02E91           T438     EQU     DT+452              THE
    11656         01 02EE2 1         T439     EQU     DT+777              ARE
    11657         01 02F88           T440     EQU     DT+1440             TST
    11658         01 02F01           T441     EQU     DT+900              SUB
    11659         01 02F0D           T442     EQU     DT+948              FFF
    11660   01 0303C 2  E3C3C3   A   T443    T       'TCC'
    11661         01 02F83 2         T444     EQU     DT+1422             PSW
    11662   01 0303D 1  D4C5C7   A   T445    T       'MEG'
    11663         01 02E92 1         T446     EQU     DT+457              FOR
    11664   01 0303E    C1E2D9   A   T447    T       'ASR'
    11665   01 0303E 3  D2E2D9   A   T448    T       'KSR'
    11666   01 0303F 2  C8C9E3   A   T449    T       'HIT'
    11667         01 02FDE 3         T450     EQU     DT+1787             KEY
    11668         01 02F8E 3         T451     EQU     DT+1467             DEV
    11669   01 03040 1  D7C3D7   A   T452    T       'PCP'
    11670   01 03041    C8C1E2   A   T453    T       'HAS'
    11671         01 02F91 3         T454     EQU     DT+1479             MSG
    11672         01 02F84 1         T455     EQU     DT+1425             NEW
    11673         01 02E5C 1         T456     EQU     DT+241              HEX
    11674   01 03041 3  C2E4E3   A   T457    T       'BUT'
    11675         01 02E6A           T458     EQU     DT+296              ERR
    11676         01 02EB4           T459     EQU     DT+592              ALL
    11677         01 03026 3         T460     EQU     DT+2075             PSD
    11678         01 02F16 3         T461     EQU     DT+987              WAS
    11679   01 03042 2  C2C1D3   A   T462    T       'BAL'
    11680         01 02EB6           T463     EQU     DT+600              BIT
    11681         01 02EF7 3         T464     EQU     DT+863              ARM
    11682         01 02E93 1         T465     EQU     DT+461              DIS
    11683         01 02F27           T466     EQU     DT+1052             ACT
    11684         01 02E46 2         T467     EQU     DT+154              ONE
    11685         01 02FBE 3         T468     EQU     DT+1659             CAN
    11686   01 03043 1  D4C1E8   A   T469    T       'MAY'
    11687         01 02FDA 1         T470     EQU     DT+1769             SET
    11688   01 03044    C5D5C4   A   T471    T       'END'
    11689         01 02E69 1         T472     EQU     DT+293              INT
    11690   01 03044 3  D4E3C2   A   T473    T       'MTB'
    11691   01 03045 2  D4E3C8   A   T474    T       'MTH'
    11692   01 03046 1  D4E3E6   A   T475    T       'MTW'
    11693         01 02E46 1         T476     EQU     DT+153              NON
    11694         01 02ECB           T477     EQU     DT+684              XXX
    11695   01 03047    E3D9E8   A   T478    T       'TRY'
    11696   01 03047 3  C4C9C4   A   T479    T       'DID'
    11697   01 03048 2  C4C2D3   A   T480    T       'DBL'
    11698   01 03049 1  D7C4C6   A   T481    T       'PDF'
    11699   01 0304A    E3D6D6   A   T482    T       'TOO'
    11700         01 02EE1 1         T483     EQU     DT+773              OF
    11701         01 02E47 2         T484     EQU     DT+158              IS
    11702         01 02F08 3         T485     EQU     DT+931              TO
    11703         01 02E2F 1         T486     EQU     DT+61               AT
    11704         01 02F2E 2         T487     EQU     DT+1082             BE
    11705   01 0304A 3  C8E9     A   T488    T       'HZ'
    11706         01 02E40 1         T489     EQU     DT+129              IN
    11707         01 02F05 2         T490     EQU     DT+918              AS
    11708         01 02EA8 2         T491     EQU     DT+546              IF
    11709   01 0304B 1  C3D4     A   T492    T       'CM'
    11710         01 02E30           T493     EQU     DT+64               ON
    11711   01 0304B 3  E6C4     A   T494    T       'WD'
    11712         01 02E69           T495     EQU     DT+292              SI
    11713         01 02E55 3         T496     EQU     DT+215              CI
    11714   01 0304C 1  C9C9     A   T497    T       'II'
    11715         01 02F64 2         T498     EQU     DT+1298             EI
    11716   01 0304C 3  C3E9     A   T499    T       'CZ'
    11717         01 02FB5           T500     EQU     DT+1620             DO
    11718         01 02E4D           T501     EQU     DT+180              IT
    11719         01 02E59 1         T502     EQU     DT+229              OR
    11720         01 02F20 3         T503     EQU     DT+1027             DM
    11721         01 02E67 1         T504     EQU     DT+285              RM
    11722         01 02EE6 2         T505     EQU     DT+794              YS
    11723         01 02F83 3         T506     EQU     DT+1423             SW
    11724         01 02E46 1         T507     EQU     DT+153              NO
    11725         01 02E3A           T508     EQU     DT+104              DE
    11726         01 02E5C           T509     EQU     DT+240              DH
    11727         01 02E79           T510     EQU     DT+356              DI
    11728         01 03027 1         T511     EQU     DT+2077             DK
    11729         01 02F1A 3         T512     EQU     DT+1003             DQ
    11730         01 02F0D           T513     EQU     DT+948              FF
    11731         01 03036 2         T514     EQU     DT+2138             BY
    11732         01 02ECB           T515     EQU     DT+684              XX
    11733         01 02EC0 1         T516     EQU     DT+641              YY
    11734         01 02E3B 1         T517     EQU     DT+109              AN
    11735         01 02EDB 2         T518     EQU     DT+750              SO
    11736         01 02F87           T519     EQU     DT+1436             LS
    11737         01 02E56           T520     EQU     DT+216              IE
    11738         01 02E32 3         T521     EQU     DT+75               AB
    11739         01 02E52 2         T522     EQU     DT+202              IP
    11740         01 02E31           T523     EQU     DT+68               RE
    11741         01 02E3A 2         T524     EQU     DT+106              X
    11742         01 02E2F 1         T525     EQU     DT+61               A
    11743         01 02E2F           T526     EQU     DT+60               T
    11744         01 02E33           T527     EQU     DT+76               B
    11745         01 02E31 2         T528     EQU     DT+70               C
    11746         01 02E3A           T529     EQU     DT+104              D
    11747         01 02E2E           T530     EQU     DT+56               E
    11748         01 02E4C 1         T531     EQU     DT+177              F
    11749         01 02EBC 1         T532     EQU     DT+625              J
    11750         01 02E2D           T533     EQU     DT+52               I
    11751         01 02E30           T534     EQU     DT+64               O
    11752         01 02E3D           T535     EQU     DT+116              S
    11753         01 02E40           T536     EQU     DT+128              Y
    11754         01 02EE9 3         T537     EQU     DT+807              K
    11755         01 02E2D 2         T538     EQU     DT+54               P
    11756         01 02E2E 3         T539     EQU     DT+59               N
    11757         01 02E6B 3         T540     EQU      DT+303            CONTAIN                         *B00
    11758   01 0304D 1  C2D3D6C3 A   T541     T        'BLOCKS'                                          *A01
                        D2E2
    11759   01 0304E 3  E5D6D3E3 A   T542     T        'VOLTAGE'                                         *A02
                        C1C7C5
    11760   01 03050 2  C6D3D6C1 A   T543     T        'FLOATING'                                        *A02
                        E3C9D5C7
    11761   01 03052 2  E3C5D9D4 A   T544     T        'TERMINAL'                                        *A02
                        C9D5C1D3
    11762   01 03054 2  D4       A   T545     T        'M'                                               *A02
    11763   01 03054 3  D7C1D9C9 A   T546     T        'PARITY'                                          *B00
                        E3E8
    11764                            *
    11765                            *
    11766                            *
    11767                            *
    11768                            **********************
    11769                            *
    11770         01 03056 1         RR       EQU      %
    11771                            *
    11772                                     BOUND    64
    11773                            *
    11774   01 03060                 MESSAGE@ LOC,1    %
            01 03060
    11775                            *
    11776                            *
    11777                            *
    11778         01 03060           CONFIG             EQU  %
    11779   01 03060    C0       A    MSGX C0,AK,AK,%1,ASSUMED,PRIORITY,OF,INTERRUPT,GROUPS,IS,:S
            01 03060 1  0B       A
            01 03060 2  2E       A
            01 03060 3  2E       A
            01 03061    10       A
            01 03061 1  FFD2     A
            01 03061 3  F9       A
            01 03062    AB       A
            01 03062 1  E8       A
            01 03062 2  FF21     A
            01 03063    AC       A
            01 03063 1  29       A
    11780         01 03063 2         TST15MSG           EQU  %
    11781   01 03063 2  C0       A    MSGX C0,TEST,FORCED,TO,START,AT,#1,#5,#0,#1,CO,SUBTEST,#1
            01 03063 3  0D       A
            01 03064    6B       A
            01 03064 1  FFFB     A
            01 03064 3  AD       A
            01 03065    43       A
            01 03065 1  AE       A
            01 03065 2  01       A
            01 03065 3  05       A
            01 03066    00       A
            01 03066 1  01       A
            01 03066 2  20       A
            01 03066 3  FF10     A
            01 03067 1  01       A
    11782         01 03067 2         EXP%T#ER           EQU  %
    11783   01 03067 2  C0       A    MSGX C0,INVALID,TYPE   %
            01 03067 3  03       A
            01 03068    FFD3     A
            01 03068 2  6C       A
    11784         01 03068 3         GO#ERMSG           EQU  %
    11785   01 03068 3  C0       A    MSGX C0,RR,#4,AK,%1,NONEXISTANT,TEST,%1,RR,#4,AK
            01 03069    0B       A
            01 03069 1  FC       A
            01 03069 2  04       A
            01 03069 3  2E       A
            01 0306A    10       A
            01 0306A 1  E1       A
            01 0306A 2  6B       A
            01 0306A 3  10       A
            01 0306B    FC       A
            01 0306B 1  04       A
            01 0306B 2  2E       A
    11786         01 0306B 3         RUNTESTMSG         EQU  %
    11787                             MSGX C0,AK,AK,TESTS,#1,#1,#0,#0,%1,THRU,#1,#2,#0,#1,%1,MUST,BE,RUN,;
    11788   01 0306B 3  C0       A         BEFORE,ANY,OTHERS,AK,AK
            01 0306C    17       A
            01 0306C 1  2E       A
            01 0306C 2  2E       A
            01 0306C 3  44       A
            01 0306D    01       A
            01 0306D 1  01       A
            01 0306D 2  00       A
            01 0306D 3  00       A
            01 0306E    10       A
            01 0306E 1  6D       A
            01 0306E 2  01       A
            01 0306E 3  02       A
            01 0306F    00       A
            01 0306F 1  01       A
            01 0306F 2  10       A
            01 0306F 3  6E       A
            01 03070    AF       A
            01 03070 1  FF85     A
            01 03070 3  FFFC     A
            01 03071 1  8C       A
            01 03071 2  FFFD     A
            01 03072    2E       A
            01 03072 1  2E       A
    11789         01 03072 2         COUNTERROR         EQU  %
    11790                             MSGX C0,COUNTER,#4,%1,OUT,OF,LIMITS,HY,PULSE,RATES,RELATIVE,TO,%1,BDR,;
    11791   01 03072 2  C0       A         INSTRUCTION,LOOP
            01 03072 3  10       A
            01 03073    FF11     A
            01 03073 2  04       A
            01 03073 3  10       A
            01 03074    8D       A
            01 03074 1  AB       A
            01 03074 2  FF22     A
            01 03075    28       A
            01 03075 1  45       A
            01 03075 2  46       A
            01 03075 3  FA       A
            01 03076    AD       A
            01 03076 1  10       A
            01 03076 2  8E       A
            01 03076 3  E2       A
            01 03077    6F       A
    11792         01 03077 1         PCPMSG             EQU  %
    11793   01 03077 1  C0       A    MSGX C0,PUSH,CONTROL,PANEL,INTERRUPT,SWITCH,ONCE
            01 03077 2  07       A
            01 03077 3  FF5D     A
            01 03078 1  FF12     A
            01 03078 3  FF4B     A
            01 03079 1  E8       A
            01 03079 2  FF23     A
            01 0307A    FF5E     A
    11794         01 0307A 2         ABORTMSG1          EQU  %
    11795   01 0307A 2  C0       A    MSGX C0,UNRECOVERABLE,ERROR,AT,ADDRESS,%8
            01 0307A 3  06       A
            01 0307B    FF86     A
            01 0307B 2  47       A
            01 0307B 3  AE       A
            01 0307C    FF13     A
            01 0307C 2  17       A
    11796         01 0307C 3         ABORTMSG2          EQU  %
    11797   01 0307C 3  C0       A    MSGX C0,REGISTERS,SAVED,AT,#1,#2,#3,#4
            01 0307D    08       A
            01 0307D 1  E9       A
            01 0307D 2  48       A
            01 0307D 3  AE       A
            01 0307E    01       A
            01 0307E 1  02       A
            01 0307E 2  03       A
            01 0307E 3  04       A
    11798         01 0307F           MAX%REGS EQU      %                                                 *A01
    11799   01 0307F    C2       A    MSGX C2,REGISTER,BLOCKS,FULLY,IMPLEMENTED                          *A01
            01 0307F 1  05       A
            01 0307F 2  FFB8     A
            01 03080    FE2F     A
            01 03080 2  62       A
            01 03080 3  E4       A
    11800         01 03081           MAX%REGS%EXP  EQU %                                                 *A01
    11801   01 03081    C1       A    MSGX C1,SYSTEM,CONTAIN,%0,S,#4,%1,REGISTER,BLOCKS                  *A01
            01 03081 1  09       A
            01 03081 2  FF2E     A
            01 03082    FE30     A
            01 03082 2  33       A
            01 03082 3  D8       A
            01 03083    04       A
            01 03083 1  10       A
            01 03083 2  FFB8     A
            01 03084    FE2F     A
    11802   01 03084 2  C0       A    MSGX C0,IF,WRONG,CO,%1,FIRST,#2,F,TEST,HAS,A,TRAP,#4,D,ERROR       *A01
            01 03084 3  0F       A
            01 03085    B2       A
            01 03085 1  6A       A
            01 03085 2  20       A
            01 03085 3  10       A
            01 03086    FE02     A
            01 03086 2  02       A
            01 03086 3  D4       A
            01 03087    6B       A
            01 03087 1  FE17     A
            01 03087 3  CE       A
            01 03088    78       A
            01 03088 1  04       A
            01 03088 2  D2       A
            01 03088 3  47       A
    11803         01 03089           QHDR#1             EQU  %
    11804                             MSGX C2,LOC,%3,INSTR,%2,OLDPSW,%0,#1,%3,OLDPSW,%0,#2,%3,NEWPSW,%0,#1,;
    11805   01 03089    C2       A         %3,NEWPSW,%0,#2,%3,ADDR,%0,PE,%3,LABEL
            01 03089 1  1A       A
            01 03089 2  8F       A
            01 03089 3  12       A
            01 0308A    49       A
            01 0308A 1  11       A
            01 0308A 2  FF24     A
            01 0308B    33       A
            01 0308B 1  01       A
            01 0308B 2  12       A
            01 0308B 3  FF24     A
            01 0308C 1  33       A
            01 0308C 2  02       A
            01 0308C 3  12       A
            01 0308D    FF25     A
            01 0308D 2  33       A
            01 0308D 3  01       A
            01 0308E    12       A
            01 0308E 1  FF25     A
            01 0308E 3  33       A
            01 0308F    02       A
            01 0308F 1  12       A
            01 0308F 2  FF5F     A
            01 03090    33       A
            01 03090 1  1F       A
            01 03090 2  12       A
            01 03090 3  4A       A
    11806         01 03091           PLSRATE            EQU  %
    11807   01 03091    C0       A    MSGX C0,COUNTER,#S,X,PULSE,RATE,EQ,XXXXXXXX,HZ,%8,%8
            01 03091 1  0B       A
            01 03091 2  FF11     A
            01 03092    2B       A
            01 03092 1  CD       A
            01 03092 2  45       A
            01 03092 3  FF60     A
            01 03093 1  2C       A
            01 03093 2  FB       A
            01 03093 3  B0       A
            01 03094    17       A
            01 03094 1  17       A
    11808                            *
    11809         01 03094 2         CNTERREXP          EQU  %
    11810   01 03094 2  C0       A    MSGX C0,AK,AK,AK,OUT,OF,LIMITS,EXPLANATION,AK,AK,AK
            01 03094 3  0B       A
            01 03095    2E       A
            01 03095 1  2E       A
            01 03095 2  2E       A
            01 03095 3  8D       A
            01 03096    AB       A
            01 03096 1  FF22     A
            01 03096 3  E3       A
            01 03097    2E       A
            01 03097 1  2E       A
            01 03097 2  2E       A
    11811                             MSGX C0,COUNTER,#4,%1,PULSE,RATE,IS,NOT,BETWEEN,#4,#5,#0,%1,AND,#5,#5,;
    11812   01 03097 3  C0       A         #0,%1,PPS,AND
            01 03098    14       A
            01 03098 1  FF11     A
            01 03098 3  04       A
            01 03099    10       A
            01 03099 1  45       A
            01 03099 2  FF60     A
            01 0309A    AC       A
            01 0309A 1  90       A
            01 0309A 2  FFD4     A
            01 0309B    04       A
            01 0309B 1  05       A
            01 0309B 2  00       A
            01 0309B 3  10       A
            01 0309C    91       A
            01 0309C 1  05       A
            01 0309C 2  05       A
            01 0309C 3  00       A
            01 0309D    10       A
            01 0309D 1  FE12     A
            01 0309D 3  91       A
    11813   01 0309E    C0       A    MSGX C0,THEREFORE,PULSE,RATES,DISPLAYED,WERE,REFERENCED,TO,A,BDR
            01 0309E 1  0A       A
            01 0309E 2  FFA1     A
            01 0309F    45       A
            01 0309F 1  46       A
            01 0309F 2  EA       A
            01 0309F 3  70       A
            01 030A0    FF92     A
            01 030A0 2  AD       A
            01 030A0 3  CE       A
            01 030A1    8E       A
    11814                             MSGX C0,INSTRUCTION,LOOP,OP,EXECUTED,IN,FAST,MEMORY,%0,CP,INSTEAD,;
    11815   01 030A1 1  C0       A         OF,USING,COUNTER,#4
            01 030A1 2  0F       A
            01 030A1 3  E2       A
            01 030A2    6F       A
            01 030A2 1  2F       A
            01 030A2 2  FF00     A
            01 030A3    FE28     A
            01 030A3 2  71       A
            01 030A3 3  37       A
            01 030A4    33       A
            01 030A4 1  30       A
            01 030A4 2  FFD5     A
            01 030A5    AB       A
            01 030A5 1  4B       A
            01 030A5 2  FF11     A
            01 030A6    04       A
    11816   01 030A6 1  C0       A    MSGX C0,AS,A,REFERENCE,AS,IN,THE,NORMAL,CASE
            01 030A6 2  09       A
            01 030A6 3  B1       A
            01 030A7    CE       A
            01 030A7 1  FFA2     A
            01 030A7 3  B1       A
            01 030A8    FE28     A
            01 030A8 2  93       A
            01 030A8 3  FF26     A
            01 030A9 1  FE0F     A
    11817                             MSGX C0,AK,AK,AK,NOTE,:S,%1,RATES,ARE,NOT,DISPLAYED,IF,SAME,AS,;
    11818   01 030A9 3  C0       A         PREVIOUS,PASS
            01 030AA    10       A
            01 030AA 1  2E       A
            01 030AA 2  2E       A
            01 030AA 3  2E       A
            01 030AB    72       A
            01 030AB 1  29       A
            01 030AB 2  10       A
            01 030AB 3  46       A
            01 030AC    94       A
            01 030AC 1  90       A
            01 030AC 2  EA       A
            01 030AC 3  B2       A
            01 030AD    73       A
            01 030AD 1  B1       A
            01 030AD 2  FFAE     A
            01 030AE    74       A
    11819         01 030AE 1         GOTOHD             EQU  %
    11820                             MSGX C0,%1,STRT,%0,SL,TST,%1,STRT,%0,SL,SUB,%1,STOP,%0,SL,TST,;
    11821   01 030AE 1  C0       A         %1,STOP,%0,SL,SUB,%3,LOOPS
            01 030AE 2  17       A
            01 030AE 3  10       A
            01 030AF    75       A
            01 030AF 1  33       A
            01 030AF 2  27       A
            01 030AF 3  95       A
            01 030B0    10       A
            01 030B0 1  75       A
            01 030B0 2  33       A
            01 030B0 3  27       A
            01 030B1    96       A
            01 030B1 1  10       A
            01 030B1 2  76       A
            01 030B1 3  33       A
            01 030B2    27       A
            01 030B2 1  95       A
            01 030B2 2  10       A
            01 030B2 3  76       A
            01 030B3    33       A
            01 030B3 1  27       A
            01 030B3 2  96       A
            01 030B3 3  12       A
            01 030B4    4C       A
    11822         01 030B4 1         PLINE#TRES         EQU  %
    11823                             MSGX C0,AK,T,#1,#1,#0,#0,%4,RR,#7,#0,#1,%4,#3,#1,#0,#1,%4,;
    11824   01 030B4 1  C0       A         RR,#5,#0,FFF,%4,RR,#4,#0
            01 030B4 2  1A       A
            01 030B4 3  2E       A
            01 030B5    CF       A
            01 030B5 1  01       A
            01 030B5 2  01       A
            01 030B5 3  00       A
            01 030B6    00       A
            01 030B6 1  13       A
            01 030B6 2  FC       A
            01 030B6 3  07       A
            01 030B7    00       A
            01 030B7 1  01       A
            01 030B7 2  13       A
            01 030B7 3  03       A
            01 030B8    01       A
            01 030B8 1  00       A
            01 030B8 2  01       A
            01 030B8 3  13       A
            01 030B9    FC       A
            01 030B9 1  05       A
            01 030B9 2  00       A
            01 030B9 3  97       A
            01 030BA    13       A
            01 030BA 1  FC       A
            01 030BA 2  04       A
            01 030BA 3  00       A
    11825                            *
    11826         01 030BB           STATMSG            EQU  %
    11827                             MSGX C0,AD,COMPLETED,TST,%0,EQ,%E,EQ,SUBTST,%4,EQ,PASS,%1,CM,%0,EQ,;
    11828   01 030BB    C0       A         EQ,%2,ERRORS,%0,EQ,%4,SL,%4
            01 030BB 1  18       A
            01 030BB 2  26       A
            01 030BB 3  EB       A
            01 030BC    95       A
            01 030BC 1  33       A
            01 030BC 2  2C       A
            01 030BC 3  1D       A
            01 030BD    2C       A
            01 030BD 1  FF27     A
            01 030BD 3  13       A
            01 030BE    2C       A
            01 030BE 1  74       A
            01 030BE 2  10       A
            01 030BE 3  B3       A
            01 030BF    33       A
            01 030BF 1  2C       A
            01 030BF 2  2C       A
            01 030BF 3  11       A
            01 030C0    FF28     A
            01 030C0 2  33       A
            01 030C0 3  2C       A
            01 030C1    13       A
            01 030C1 1  27       A
            01 030C1 2  13       A
    11829         01 030C1 3         DI%HDR   EQU      %
    11830   01 030C1 3  C2       A    MSGX C2,%5,INTERRUPT,IMPLEMENTATION
            01 030C2    04       A
            01 030C2 1  14       A
            01 030C2 2  E8       A
            01 030C2 3  34       A
    11831         01 030C3           ERRORMSG           EQU  %
    11832   01 030C3    C0       A    MSGX C0,AK,AK,AK,ERROR,AK,AK,AK
            01 030C3 1  08       A
            01 030C3 2  2E       A
            01 030C3 3  2E       A
            01 030C4    2E       A
            01 030C4 1  47       A
            01 030C4 2  2E       A
            01 030C4 3  2E       A
            01 030C5    2E       A
    11833         01 030C5 1         ERORHD#1           EQU  %
    11834                             MSGX C0,TST,%0,#S,%2,SUBTST,%0,#S,%2,LOC,TYPE,%4,FIELD,#1,%3,FIELD,;
    11835   01 030C5 1  C0       A         #2,%3,FIELD,#3,%3,FIELD,#4
            01 030C5 2  17       A
            01 030C5 3  95       A
            01 030C6    33       A
            01 030C6 1  2B       A
            01 030C6 2  11       A
            01 030C6 3  FF27     A
            01 030C7 1  33       A
            01 030C7 2  2B       A
            01 030C7 3  11       A
            01 030C8    8F       A
            01 030C8 1  6C       A
            01 030C8 2  13       A
            01 030C8 3  4F       A
            01 030C9    01       A
            01 030C9 1  12       A
            01 030C9 2  4F       A
            01 030C9 3  02       A
            01 030CA    12       A
            01 030CA 1  4F       A
            01 030CA 2  03       A
            01 030CA 3  12       A
            01 030CB    4F       A
            01 030CB 1  04       A
    11836         01 030CB 2         ERORHALT           EQU  %
    11837   01 030CB 2  C0       A    MSGX C0,AK,AK,AK,%1,ERROR,HALT,AK,AK,AK
            01 030CB 3  0A       A
            01 030CC    2E       A
            01 030CC 1  2E       A
            01 030CC 2  2E       A
            01 030CC 3  10       A
            01 030CD    47       A
            01 030CD 1  77       A
            01 030CD 2  2E       A
            01 030CD 3  2E       A
            01 030CE    2E       A
    11838                            *
    11839         01 030CE 1         SPUR%EROR          EQU  %
    11840                             MSGX C0,%E,TCC,%0,EQ,X,PSW,%0,#1,EQ,XXXXXXXX,PSW,%0,#2,EQ,XXXXXXXX,;
    11841   01 030CE 1  C0       A        REGSAV,%0,EQ,XXXXX
            01 030CE 2  14       A
            01 030CE 3  1D       A
            01 030CF    98       A
            01 030CF 1  33       A
            01 030CF 2  2C       A
            01 030CF 3  CD       A
            01 030D0    99       A
            01 030D0 1  33       A
            01 030D0 2  01       A
            01 030D0 3  2C       A
            01 030D1    FB       A
            01 030D1 1  99       A
            01 030D1 2  33       A
            01 030D1 3  02       A
            01 030D2    2C       A
            01 030D2 1  FB       A
            01 030D2 2  FFFE     A
            01 030D3    33       A
            01 030D3 1  2C       A
            01 030D3 2  FE01     A
    11842         01 030D4           FULLMEM            EQU  %
    11843                             MSGX C0,NONEXISTANT,MEMORY,TRAP,TESTS,SKIPPED,OP,MEMORY,FULLY,;
    11844   01 030D4    C0       A        IMPLEMENTED,CP
            01 030D4 1  0B       A
            01 030D4 2  E1       A
            01 030D4 3  37       A
            01 030D5    78       A
            01 030D5 1  44       A
            01 030D5 2  FFD6     A
            01 030D6    2F       A
            01 030D6 1  37       A
            01 030D6 2  62       A
            01 030D6 3  E4       A
            01 030D7    30       A
    11845         01 030D7 1         ILEGALOV           EQU  %
    11846                             MSGX C0,SPURIOUS,INTERRUPT,TABLE,IS,FULL,HY,ONLY,FIRST,#1,#0,#0,%1,;
    11847   01 030D7 1  C0       A         ENTRIES,WERE,LOGGED
            01 030D7 2  10       A
            01 030D7 3  FF01     A
            01 030D8 1  E8       A
            01 030D8 2  50       A
            01 030D8 3  AC       A
            01 030D9    FE11     A
            01 030D9 2  28       A
            01 030D9 3  79       A
            01 030DA    FE02     A
            01 030DA 2  01       A
            01 030DA 3  00       A
            01 030DB    00       A
            01 030DB 1  10       A
            01 030DB 2  FFD7     A
            01 030DC    70       A
            01 030DC 1  FFFF     A
    11848         01 030DC 3         INVAL#M            EQU  %
    11849   01 030DC 3  C0       A    MSGX C0,PARAMETER,LINE,CONFLICT,EXISTS,BECAUSE
            01 030DD    06       A
            01 030DD 1  EC       A
            01 030DD 2  7A       A
            01 030DD 3  FFAF     A
            01 030DE 1  FE00     A
            01 030DE 3  FFD8     A
    11850         01 030DF 1         NOTAVAIL           EQU  %
    11851   01 030DF 1  C0       A    MSGX C0,AK,AK,AK,DEVICE,NOT,AVAILABLE
            01 030DF 2  07       A
            01 030DF 3  2E       A
            01 030E0    2E       A
            01 030E0 1  2E       A
            01 030E0 2  FF29     A
            01 030E1    90       A
            01 030E1 1  FFA3     A
    11852         01 030E1 3         PARAMERR           EQU  %
    11853   01 030E1 3  C0       A    MSGX C0,RR,#4,AK,%1,PARAMETER,ERROR,%9
            01 030E2    08       A
            01 030E2 1  FC       A
            01 030E2 2  04       A
            01 030E2 3  2E       A
            01 030E3    10       A
            01 030E3 1  EC       A
            01 030E3 2  47       A
            01 030E3 3  18       A
    11854                            *
    11855         01 030E4           LVLIMSG            EQU  %
    11856   01 030E4    C0       A    MSGX C0,%2,LEVEL,%8,IMPLEMENTED
            01 030E4 1  05       A
            01 030E4 2  11       A
            01 030E4 3  52       A
            01 030E5    17       A
            01 030E5 1  E4       A
    11857         01 030E5 2         HISTHD1            EQU  %
    11858   01 030E5 2  C0       A    MSGX C0,%F,%8,HISTORY,TABLE
            01 030E5 3  05       A
            01 030E6    1E       A
            01 030E6 1  17       A
            01 030E6 2  FFD9     A
            01 030E7    50       A
    11859         01 030E7 1         HISTHD2            EQU  %
    11860                             MSGX C0,EXPECTED,%2,ACTUAL,%2,WD,%F,%2,COMMANDED,%1,PRESENT,%1,;
    11861   01 030E7 1  C0       A         INTERRUPT
            01 030E7 2  0D       A
            01 030E7 3  FF02     A
            01 030E8 1  11       A
            01 030E8 2  FF2A     A
            01 030E9    11       A
            01 030E9 1  B5       A
            01 030E9 2  1E       A
            01 030E9 3  11       A
            01 030EA    ED       A
            01 030EA 1  10       A
            01 030EA 2  FF14     A
            01 030EB    10       A
            01 030EB 1  E8       A
    11862         01 030EB 2         HISTHD3            EQU  %
    11863                             MSGX C0,SEQUENCE,%1,SEQUENCE,GROUP,LEVEL,LOCATION,%3,STATE,%5,;
    11864   01 030EB 2  C0       A         STATE,%4,COUNT
            01 030EB 3  0D       A
            01 030EC    FF03     A
            01 030EC 2  10       A
            01 030EC 3  FF03     A
            01 030ED 1  51       A
            01 030ED 2  52       A
            01 030ED 3  FF04     A
            01 030EE 1  12       A
            01 030EE 2  53       A
            01 030EE 3  14       A
            01 030EF    53       A
            01 030EF 1  13       A
            01 030EF 2  54       A
    11865                            *
    11866         01 030EF 3         IMPHD#1            EQU  %
    11867   01 030EF 3  C0       A    MSGX C0,%8,IMPLEMENTED,LEVEL,PATTERNS
            01 030F0    05       A
            01 030F0 1  17       A
            01 030F0 2  E4       A
            01 030F0 3  52       A
            01 030F1    FF05     A
    11868         01 030F1 2         IMPHD#2            EQU  %
    11869   01 030F1 2  C0       A    MSGX C0,GROUP,%4,#0,%7,#2,%7,#3,%7,#4,%7,#5
            01 030F1 3  0C       A
            01 030F2    51       A
            01 030F2 1  13       A
            01 030F2 2  00       A
            01 030F2 3  16       A
            01 030F3    02       A
            01 030F3 1  16       A
            01 030F3 2  03       A
            01 030F3 3  16       A
            01 030F4    04       A
            01 030F4 1  16       A
            01 030F4 2  05       A
    11870         01 030F4 3         IMPHD#3            EQU  %
    11871   01 030F4 3  C0       A    MSGX C0,GROUP,%4,#6,%7,#7,%7,#8,%7,#9,%7,A
            01 030F5    0C       A
            01 030F5 1  51       A
            01 030F5 2  13       A
            01 030F5 3  06       A
            01 030F6    16       A
            01 030F6 1  07       A
            01 030F6 2  16       A
            01 030F6 3  08       A
            01 030F7    16       A
            01 030F7 1  09       A
            01 030F7 2  16       A
            01 030F7 3  CE       A
    11872         01 030F8           IMPHD#4            EQU  %
    11873   01 030F8    C0       A    MSGX C0,GROUP,%4,B,%6,C,%6,D,%6,E,%6,F
            01 030F8 1  0C       A
            01 030F8 2  51       A
            01 030F8 3  13       A
            01 030F9    D0       A
            01 030F9 1  15       A
            01 030F9 2  D1       A
            01 030F9 3  15       A
            01 030FA    D2       A
            01 030FA 1  15       A
            01 030FA 2  D3       A
            01 030FA 3  15       A
            01 030FB    D4       A
    11874                            *
    11875         01 030FB 1         PL#JHDR            EQU  %
    11876   01 030FB 1  C0       A    MSGX C0,%2,MSGDEV,COMDEV,%1,SI,CM
            01 030FB 2  07       A
            01 030FB 3  11       A
            01 030FC    FF2B     A
            01 030FC 2  FF2C     A
            01 030FD    10       A
            01 030FD 1  B6       A
            01 030FD 2  B3       A
    11877         01 030FD 3         PLINE#JRES         EQU  %
    11878   01 030FD 3  C0       A    MSGX C0,AK,J,#0,#0,#0,#2,%3,AK,#0,#0,#0,#1,%1,#0,#0,#1,%2,#0
            01 030FE    13       A
            01 030FE 1  2E       A
            01 030FE 2  D5       A
            01 030FE 3  00       A
            01 030FF    00       A
            01 030FF 1  00       A
            01 030FF 2  02       A
            01 030FF 3  12       A
            01 03100    2E       A
            01 03100 1  00       A
            01 03100 2  00       A
            01 03100 3  00       A
            01 03101    01       A
            01 03101 1  10       A
            01 03101 2  00       A
            01 03101 3  00       A
            01 03102    01       A
            01 03102 1  11       A
            01 03102 2  00       A
    11879                            *
    11880         01 03102 3         PATHD#1            EQU  %
    11881   01 03102 3  C0       A    MSGX C0,%B,INTERRUPT,CONTROL,PATTERN,%B,INHIBIT,BITS
            01 03103    08       A
            01 03103 1  1A       A
            01 03103 2  E8       A
            01 03103 3  FF12     A
            01 03104 1  FF15     A
            01 03104 3  1A       A
            01 03105    FF16     A
            01 03105 2  FF61     A
    11882         01 03106           PATHD#2            EQU  %
    11883   01 03106    C0       A    MSGX C0,GROUP,%5,ARMED,%4,TRIGGERED,%3,ENABLED,%7,CI,%1,II,%1,EI
            01 03106 1  0E       A
            01 03106 2  51       A
            01 03106 3  14       A
            01 03107    55       A
            01 03107 1  13       A
            01 03107 2  EE       A
            01 03107 3  12       A
            01 03108    FF17     A
            01 03108 2  16       A
            01 03108 3  B7       A
            01 03109    10       A
            01 03109 1  B8       A
            01 03109 2  10       A
            01 03109 3  B9       A
    11884         01 0310A           PRIHD#1            EQU  %
    11885                             MSGX C0,%5,CZ,I,%0,SL,O,%2,#2,%3,#3,%3,#4,%3,#5,%3,#6,%3,#7,;
    11886   01 0310A    C0       A        %3,#8,%3,#9,%3,A,%2,B,%2,C,%2,D,%2,E,%2,F
            01 0310A 1  23       A
            01 0310A 2  14       A
            01 0310A 3  BA       A
            01 0310B    D6       A
            01 0310B 1  33       A
            01 0310B 2  27       A
            01 0310B 3  D7       A
            01 0310C    11       A
            01 0310C 1  02       A
            01 0310C 2  12       A
            01 0310C 3  03       A
            01 0310D    12       A
            01 0310D 1  04       A
            01 0310D 2  12       A
            01 0310D 3  05       A
            01 0310E    12       A
            01 0310E 1  06       A
            01 0310E 2  12       A
            01 0310E 3  07       A
            01 0310F    12       A
            01 0310F 1  08       A
            01 0310F 2  12       A
            01 0310F 3  09       A
            01 03110    12       A
            01 03110 1  CE       A
            01 03110 2  11       A
            01 03110 3  D0       A
            01 03111    11       A
            01 03111 1  D1       A
            01 03111 2  11       A
            01 03111 3  D2       A
            01 03112    11       A
            01 03112 1  D3       A
            01 03112 2  11       A
            01 03112 3  D4       A
    11887         01 03113           PRIHD#2            EQU  %
    11888                             MSGX C0,%5,HY,HY,%2,HY,HY,%2,HY,HY,%2,HY,HY,%2,HY,HY,%2,HY,;
    11889                                  HY,%2,HY,HY,%2,HY,HY,%2,HY,HY,%2,HY,HY,%2,HY,HY,%2,HY,;
    11890   01 03113    C0       A         HY,%2,HY,HY,%2,HY,HY,%2,HY,HY,%2,HY,HY
            01 03113 1  31       A
            01 03113 2  14       A
            01 03113 3  28       A
            01 03114    28       A
            01 03114 1  11       A
            01 03114 2  28       A
            01 03114 3  28       A
            01 03115    11       A
            01 03115 1  28       A
            01 03115 2  28       A
            01 03115 3  11       A
            01 03116    28       A
            01 03116 1  28       A
            01 03116 2  11       A
            01 03116 3  28       A
            01 03117    28       A
            01 03117 1  11       A
            01 03117 2  28       A
            01 03117 3  28       A
            01 03118    11       A
            01 03118 1  28       A
            01 03118 2  28       A
            01 03118 3  11       A
            01 03119    28       A
            01 03119 1  28       A
            01 03119 2  11       A
            01 03119 3  28       A
            01 0311A    28       A
            01 0311A 1  11       A
            01 0311A 2  28       A
            01 0311A 3  28       A
            01 0311B    11       A
            01 0311B 1  28       A
            01 0311B 2  28       A
            01 0311B 3  11       A
            01 0311C    28       A
            01 0311C 1  28       A
            01 0311C 2  11       A
            01 0311C 3  28       A
            01 0311D    28       A
            01 0311D 1  11       A
            01 0311D 2  28       A
            01 0311D 3  28       A
            01 0311E    11       A
            01 0311E 1  28       A
            01 0311E 2  28       A
            01 0311E 3  11       A
            01 0311F    28       A
            01 0311F 1  28       A
    11891   01 0311F 2  C0       A   VOLTMSG MSGX  C0,AK,AK,%1,VOLTAGE,MARGIN,IS,SET,AK,AK               *A02
            01 0311F 3  0A       A
            01 03120    2E       A
            01 03120 1  2E       A
            01 03120 2  10       A
            01 03120 3  FE31     A
            01 03121 1  FF39     A
            01 03121 3  AC       A
            01 03122    A7       A
            01 03122 1  2E       A
            01 03122 2  2E       A
    11892                            *
    11893                            ************************************
    11894                            *  REQUEST CHARACTER   DE  EXPLANATION
    11895                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DE')
    11896                            ************************************
    11897                            *
    11898         01 03122 3         DE%EXPL            EQU  %
    11899                            *
    11900   01 03122 3  C0       A    MSGX C0,AP,DE,%0,AP,%7,DISPLAY,EXPLANATION,OF,ERROR,TYPE,%0,OP,S,%0,CP
            01 03123    10       A
            01 03123 1  23       A
            01 03123 2  C2       A
            01 03123 3  33       A
            01 03124    23       A
            01 03124 1  16       A
            01 03124 2  FF1B     A
            01 03125    E3       A
            01 03125 1  AB       A
            01 03125 2  47       A
            01 03125 3  6C       A
            01 03126    33       A
            01 03126 1  2F       A
            01 03126 2  D8       A
            01 03126 3  33       A
            01 03127    30       A
    11901                            *
    11902                             MSGX D2,DE,GT,X,CO,Y,CO,%8,DISPLAYS,EXPLANATIONS,OF,ERROR,TYPES,AP,;
    11903   01 03127 1  D2       A         X,AP,THRU,AP,Y,AP
            01 03127 2  14       A
            01 03127 3  C2       A
            01 03128    21       A
            01 03128 1  CD       A
            01 03128 2  20       A
            01 03128 3  D9       A
            01 03129    20       A
            01 03129 1  17       A
            01 03129 2  FF0A     A
            01 0312A    DE       A
            01 0312A 1  AB       A
            01 0312A 2  47       A
            01 0312A 3  FE0D     A
            01 0312B 1  23       A
            01 0312B 2  CD       A
            01 0312B 3  23       A
            01 0312C    6D       A
            01 0312C 1  23       A
            01 0312C 2  D9       A
            01 0312C 3  23       A
    11904   01 0312D    C0       A    MSGX C0,RR,#G,AK,AK,AK,AK
            01 0312D 1  07       A
            01 0312D 2  FC       A
            01 0312D 3  10       A
            01 0312E    2E       A
            01 0312E 1  2E       A
            01 0312E 2  2E       A
            01 0312E 3  2E       A
    11905                            *************************************
    11906                            *  IMPLEMENTATION PATTERN EXPLANATIONS
    11907                            *************************************
    11908         01 0312F           I%EXPL             EQU  %
    11909                             MSGX D2,AK,AK,PARAMETER,LINE,%1,I,OP,INTERRUPT,LEVEL,;
    11910   01 0312F    D2       A         IMPLEMENTATION,CP,EXPLANATION
            01 0312F 1  0D       A
            01 0312F 2  2E       A
            01 0312F 3  2E       A
            01 03130    EC       A
            01 03130 1  7A       A
            01 03130 2  10       A
            01 03130 3  D6       A
            01 03131    2F       A
            01 03131 1  E8       A
            01 03131 2  52       A
            01 03131 3  34       A
            01 03132    30       A
            01 03132 1  E3       A
    11911                             MSGX C1,A,FULLY,IMPLEMENTED,GROUP,IS,ONE,CONTAINING,#1,#6,LEVELS,;
    11912   01 03132 2  C1       A         OP,#1,#4,IN,GROUP,#0,CP
            01 03132 3  12       A
            01 03133    CE       A
            01 03133 1  62       A
            01 03133 2  E4       A
            01 03133 3  51       A
            01 03134    AC       A
            01 03134 1  A5       A
            01 03134 2  FF95     A
            01 03135    01       A
            01 03135 1  06       A
            01 03135 2  41       A
            01 03135 3  2F       A
            01 03136    01       A
            01 03136 1  04       A
            01 03136 2  FE28     A
            01 03137    51       A
            01 03137 1  00       A
            01 03137 2  30       A
    11913                             MSGX C0,A,PARTIALLY,IMPLEMENTED,GROUP,WILL,LIST,ALL,IMPLEMENTED,;
    11914   01 03137 3  C0       A         MODULES
            01 03138    0A       A
            01 03138 1  CE       A
            01 03138 2  F3       A
            01 03138 3  E4       A
            01 03139    51       A
            01 03139 1  7B       A
            01 03139 2  86       A
            01 03139 3  A1       A
            01 0313A    E4       A
            01 0313A 1  FFE7     A
    11915         01 0313A 3         INVAL#I            EQU  %
    11916   01 0313A 3  C1       A    MSGX C1,%1,AK,AK,AK,LEVELS,CAN,ONLY,BE,IMPLEMENTED,IN,PAIRS
            01 0313B    0C       A
            01 0313B 1  10       A
            01 0313B 2  2E       A
            01 0313B 3  2E       A
            01 0313C    2E       A
            01 0313C 1  41       A
            01 0313C 2  A6       A
            01 0313C 3  79       A
            01 0313D    AF       A
            01 0313D 1  E4       A
            01 0313D 2  FE28     A
            01 0313E    FE0C     A
    11917                             MSGX C0,%3,OP,INPUT,OF,ONE,WITHOUT,THE,OTHER,CAUSES,PARAMETER,;
    11918   01 0313E 2  C0       A         REJECTION,CP
            01 0313E 3  0D       A
            01 0313F    12       A
            01 0313F 1  2F       A
            01 0313F 2  56       A
            01 0313F 3  AB       A
            01 03140    A5       A
            01 03140 1  FFED     A
            01 03140 3  93       A
            01 03141    FF57     A
            01 03141 2  3B       A
            01 03141 3  EC       A
            01 03142    FFAB     A
            01 03142 2  30       A
    11919                            *************************************
    11920                            *  INTERRUPT PATTERN EXPLANATIONS   *
    11921                            *************************************
    11922         01 03142 3         K%EXPL             EQU  %
    11923   01 03142 3  D2       A    MSGX D2,AK,AK,PARAMETER,LINE,%1,K
            01 03143    07       A
            01 03143 1  2E       A
            01 03143 2  2E       A
            01 03143 3  EC       A
            01 03144    7A       A
            01 03144 1  10       A
            01 03144 2  DA       A
    11924                             MSGX C0,%5,THIS,PARAMETER,LINE,ALLOWS,THE,USER,TO,SELECT,A,;
    11925   01 03144 3  C0       A         PARTICULAR
            01 03145    0C       A
            01 03145 1  14       A
            01 03145 2  83       A
            01 03145 3  EC       A
            01 03146    7A       A
            01 03146 1  38       A
            01 03146 2  93       A
            01 03146 3  81       A
            01 03147    AD       A
            01 03147 1  FF3A     A
            01 03147 3  CE       A
            01 03148    FF9B     A
    11926   01 03148 2  C0       A    MSGX C0,%5,PATTERN,TO,BE,RUN,DURING,TEST,#S,#1,#7,#0,#1
            01 03148 3  0D       A
            01 03149    14       A
            01 03149 1  FF15     A
            01 03149 3  AD       A
            01 0314A    AF       A
            01 0314A 1  FF85     A
            01 0314A 3  FF36     A
            01 0314B 1  6B       A
            01 0314B 2  2B       A
            01 0314B 3  01       A
            01 0314C    07       A
            01 0314C 1  00       A
            01 0314C 2  01       A
    11927                             MSGX C0,%5,ARM,EQ,%5,LEVELS,ARMED,AND,DISABLED,OP,#1,#6,BIT,;
    11928   01 0314C 3  C0       A         PATTERN,IN,HEX,CP
            01 0314D    11       A
            01 0314D 1  14       A
            01 0314D 2  A4       A
            01 0314D 3  2C       A
            01 0314E    14       A
            01 0314E 1  41       A
            01 0314E 2  55       A
            01 0314E 3  91       A
            01 0314F    FF0D     A
            01 0314F 2  2F       A
            01 0314F 3  01       A
            01 03150    06       A
            01 03150 1  A3       A
            01 03150 2  FF15     A
            01 03151    FE28     A
            01 03151 2  A0       A
            01 03151 3  30       A
    11929                             MSGX C1,%5,TRIGGER,EQ,%1,LEVELS,TRIGGERED,OP,#1,#6,BIT,PATTERN,;
    11930   01 03152    C1       A         IN,HEX,CP
            01 03152 1  0F       A
            01 03152 2  14       A
            01 03152 3  FF1E     A
            01 03153 1  2C       A
            01 03153 2  10       A
            01 03153 3  41       A
            01 03154    EE       A
            01 03154 1  2F       A
            01 03154 2  01       A
            01 03154 3  06       A
            01 03155    A3       A
            01 03155 1  FF15     A
            01 03155 3  FE28     A
            01 03156 1  A0       A
            01 03156 2  30       A
    11931                             MSGX C1,%5,ENABLE,EQ,%2,LEVELS,ENABLED,OP,#1,#6,BIT,PATTERN,IN,;
    11932   01 03156 3  C1       A         HEX,CP
            01 03157    0F       A
            01 03157 1  14       A
            01 03157 2  3F       A
            01 03157 3  2C       A
            01 03158    11       A
            01 03158 1  41       A
            01 03158 2  FF17     A
            01 03159    2F       A
            01 03159 1  01       A
            01 03159 2  06       A
            01 03159 3  A3       A
            01 0315A    FF15     A
            01 0315A 2  FE28     A
            01 0315B    A0       A
            01 0315B 1  30       A
    11933                             MSGX C1,%5,INHIBIT,BIT,EQ,OP,CI,EQ,#1,CP,COUNTER,GROUP,HY,;
    11934   01 0315B 2  C1       A         INTERRUPTS,INHIBITED
            01 0315B 3  0F       A
            01 0315C    14       A
            01 0315C 1  FF16     A
            01 0315C 3  A3       A
            01 0315D    2C       A
            01 0315D 1  2F       A
            01 0315D 2  B7       A
            01 0315D 3  2C       A
            01 0315E    01       A
            01 0315E 1  30       A
            01 0315E 2  FF11     A
            01 0315F    51       A
            01 0315F 1  28       A
            01 0315F 2  E5       A
            01 0315F 3  F4       A
    11935                             MSGX C0,%F,OP,II,EQ,#1,CP,INPUT,SL,OUTPUT,GROUP,HY,INTERRUPTS,;
    11936   01 03160    C0       A         INHIBITED
            01 03160 1  0E       A
            01 03160 2  1E       A
            01 03160 3  2F       A
            01 03161    B8       A
            01 03161 1  2C       A
            01 03161 2  01       A
            01 03161 3  30       A
            01 03162    56       A
            01 03162 1  27       A
            01 03162 2  35       A
            01 03162 3  51       A
            01 03163    28       A
            01 03163 1  E5       A
            01 03163 2  F4       A
    11937                             MSGX C0,%F,OP,EI,EQ,#1,CP,EXTERNAL,GROUPS,HY,INTERRUPTS,;
    11938   01 03163 3  C0       A         INHIBITED
            01 03164    0C       A
            01 03164 1  1E       A
            01 03164 2  2F       A
            01 03164 3  B9       A
            01 03165    2C       A
            01 03165 1  01       A
            01 03165 2  30       A
            01 03165 3  FF0E     A
            01 03166 1  FF21     A
            01 03166 3  28       A
            01 03167    E5       A
            01 03167 1  F4       A
    11939                            *************************************
    11940                            *  PARAMETER LINE P EXPLANATIONS    *
    11941                            *************************************
    11942                            *
    11943         01 03167 2         P%EXPL             EQU  %
    11944   01 03167 2  D2       A    MSGX D2,AK,AK,PARAMETER,LINE,P
            01 03167 3  06       A
            01 03168    2E       A
            01 03168 1  2E       A
            01 03168 2  EC       A
            01 03168 3  7A       A
            01 03169    DB       A
    11945                             MSGX C0,%3,THIS,LINE,SPECIFIES,THE,PRIORITIES,ASSIGNED,TO,EACH,INT,;
    11946   01 03169 1  C0       A         PE,GROUP
            01 03169 2  0D       A
            01 03169 3  12       A
            01 0316A    83       A
            01 0316A 1  7A       A
            01 0316A 2  FFAC     A
            01 0316B    93       A
            01 0316B 1  FF9C     A
            01 0316B 3  FFC8     A
            01 0316C 1  AD       A
            01 0316C 2  82       A
            01 0316C 3  A8       A
            01 0316D    1F       A
            01 0316D 1  51       A
    11947   01 0316D 2  C0       A    MSGX C0,%5,CZ,EQ,%6,COUNTER,EQUALS,ZERO,GROUP
            01 0316D 3  09       A
            01 0316E    14       A
            01 0316E 1  BA       A
            01 0316E 2  2C       A
            01 0316E 3  15       A
            01 0316F    FF11     A
            01 0316F 2  FF40     A
            01 03170    87       A
            01 03170 1  51       A
    11948   01 03170 2  C0       A    MSGX C0,%5,I,SL,O,EQ,%5,INPUT,SL,OUTPUT,GROUP
            01 03170 3  0B       A
            01 03171    14       A
            01 03171 1  D6       A
            01 03171 2  27       A
            01 03171 3  D7       A
            01 03172    2C       A
            01 03172 1  14       A
            01 03172 2  56       A
            01 03172 3  27       A
            01 03173    35       A
            01 03173 1  51       A
    11949   01 03173 2  C0       A    MSGX C0,%5,#2,THRU,F,EQ,EXTERNAL,GROUPS,#2,THRU,F
            01 03173 3  0B       A
            01 03174    14       A
            01 03174 1  02       A
            01 03174 2  6D       A
            01 03174 3  D4       A
            01 03175    2C       A
            01 03175 1  FF0E     A
            01 03175 3  FF21     A
            01 03176 1  02       A
            01 03176 2  6D       A
            01 03176 3  D4       A
    11950         01 03177           INVAL#P            EQU  %
    11951                             MSGX C1,PARAMETER,VALUES,ARE,ONLY,VALID,IF,#0,OR,CONTIGUOUS,HEX,;
    11952   01 03177    C1       A         NUMBERS,#1,HY,#1,#0
            01 03177 1  10       A
            01 03177 2  EC       A
            01 03177 3  FF41     A
            01 03178 1  94       A
            01 03178 2  79       A
            01 03178 3  4D       A
            01 03179    B2       A
            01 03179 1  00       A
            01 03179 2  BD       A
            01 03179 3  FF9D     A
            01 0317A 1  A0       A
            01 0317A 2  FFF2     A
            01 0317B    01       A
            01 0317B 1  28       A
            01 0317B 2  01       A
            01 0317B 3  00       A
    11953                             MSGX C0,EACH,VALUE,REPRESENTS,THE,RELATIVE,PRIORITY,OF,THE,GROUP,OP,;
    11954   01 0317C    C0       A         #1,EQ,HIGHEST,CP
            01 0317C 1  0F       A
            01 0317C 2  82       A
            01 0317C 3  FF58     A
            01 0317D 1  FF9E     A
            01 0317D 3  93       A
            01 0317E    FA       A
            01 0317E 1  F9       A
            01 0317E 2  AB       A
            01 0317E 3  93       A
            01 0317F    51       A
            01 0317F 1  2F       A
            01 0317F 2  01       A
            01 0317F 3  2C       A
            01 03180    FFF3     A
            01 03180 2  30       A
    11955                             MSGX C0,%3,OP,A,ZERO,MEANS,UNIMPLEMENTED,HY,CZ,AND,I,SL,O,CANNOT,BE,;
    11956   01 03180 3  C0       A         ZERO,CP
            01 03181    11       A
            01 03181 1  12       A
            01 03181 2  2F       A
            01 03181 3  CE       A
            01 03182    87       A
            01 03182 1  57       A
            01 03182 2  DD       A
            01 03182 3  28       A
            01 03183    BA       A
            01 03183 1  91       A
            01 03183 2  D6       A
            01 03183 3  27       A
            01 03184    D7       A
            01 03184 1  FF42     A
            01 03184 3  AF       A
            01 03185    87       A
            01 03185 1  30       A
    11957         01 03185 2         INVAL#IP           EQU  %
    11958   01 03185 2  C0       A    MSGX C0,AK,AK,IMPLEMENTATION,IN,PARAMETER,LINES,I,AND,P,MUST,MATCH
            01 03185 3  0C       A
            01 03186    2E       A
            01 03186 1  2E       A
            01 03186 2  34       A
            01 03186 3  FE28     A
            01 03187 1  EC       A
            01 03187 2  FF59     A
            01 03188    D6       A
            01 03188 1  91       A
            01 03188 2  DB       A
            01 03188 3  6E       A
            01 03189    65       A
    11959                            *
    11960                            *
    11961                            ***********************************************
    11962                            *   ERROR FORMAT EXPLANATIONS                 *
    11963                            ***********************************************
    11964                            *
    11965         01 03189 1         EXP%HDR            EQU  %
    11966   01 03189 1  C0       A    MSGX  C0,%2
            01 03189 2  02       A
            01 03189 3  11       A
    11967   01 0318A    C0       A    MSGX C0,ERROR,MESSAGE,FORMAT,IS,:S
            01 0318A 1  06       A
            01 0318A 2  47       A
            01 0318A 3  FFE8     A
            01 0318B 1  3E       A
            01 0318B 2  AC       A
            01 0318B 3  29       A
    11968                             MSGX C1,TST,#S,%1,SUBTST,#S,%1,LOC,TYPE,%4,FIELD,#1,%2,FIELD,#2,;
    11969   01 0318C    C1       A         %2,FIELD,#3,%2,FIELD,#4
            01 0318C 1  15       A
            01 0318C 2  95       A
            01 0318C 3  2B       A
            01 0318D    10       A
            01 0318D 1  FF27     A
            01 0318D 3  2B       A
            01 0318E    10       A
            01 0318E 1  8F       A
            01 0318E 2  6C       A
            01 0318E 3  13       A
            01 0318F    4F       A
            01 0318F 1  01       A
            01 0318F 2  11       A
            01 0318F 3  4F       A
            01 03190    02       A
            01 03190 1  11       A
            01 03190 2  4F       A
            01 03190 3  03       A
            01 03191    11       A
            01 03191 1  4F       A
            01 03191 2  04       A
    11970                             MSGX C0,XXXX,XXXXXXXX,XXXX,%1,XX,%3,YYYYYYYYY,YYYYYYYYY,YYYYYYYYY,;
    11971   01 03191 3  C0       A         YYYYYYYYY
            01 03192    0B       A
            01 03192 1  FE10     A
            01 03192 3  FB       A
            01 03193    FE10     A
            01 03193 2  10       A
            01 03193 3  C9       A
            01 03194    12       A
            01 03194 1  F5       A
            01 03194 2  F5       A
            01 03194 3  F5       A
            01 03195    F5       A
    11972   01 03195 1  C1       A    MSGX C1,ALL,VALUES,OP,REPRESENTED,BY,X,AP,S,CP,ARE,IN,HEXADECIMAL
            01 03195 2  0D       A
            01 03195 3  A1       A
            01 03196    FF41     A
            01 03196 2  2F       A
            01 03196 3  FF8F     A
            01 03197 1  C8       A
            01 03197 2  CD       A
            01 03197 3  23       A
            01 03198    D8       A
            01 03198 1  30       A
            01 03198 2  94       A
            01 03198 3  FE28     A
            01 03199 1  FF90     A
    11973                             MSGX C0,PARAMETERS,OP,REPRESENTED,BY,Y,AP,S,CP,MAY,BE,HEX,OR,;
    11974   01 03199 3  C0       A         ALPHANUMERIC
            01 0319A    0E       A
            01 0319A 1  FF9F     A
            01 0319A 3  2F       A
            01 0319B    FF8F     A
            01 0319B 2  C8       A
            01 0319B 3  D9       A
            01 0319C    23       A
            01 0319C 1  D8       A
            01 0319C 2  30       A
            01 0319C 3  FE1E     A
            01 0319D 1  AF       A
            01 0319D 2  A0       A
            01 0319D 3  BD       A
            01 0319E    FF88     A
    11975   01 0319E 2  C0       A    MSGX C0,%3,TST,#S,EQ,%1,NUMBER,OF,CURRENT,TEST
            01 0319E 3  0A       A
            01 0319F    12       A
            01 0319F 1  95       A
            01 0319F 2  2B       A
            01 0319F 3  2C       A
            01 031A0    10       A
            01 031A0 1  3C       A
            01 031A0 2  AB       A
            01 031A0 3  FF1A     A
            01 031A1 1  6B       A
    11976                             MSGX C0,%9,OP,KEYIN,AP,T,AP,FOLLOWED,BY,A,QUESTION,MARK,FOR,LIST,OF,;
    11977   01 031A1 2  C0       A         TESTS,CP
            01 031A1 3  11       A
            01 031A2    18       A
            01 031A2 1  2F       A
            01 031A2 2  59       A
            01 031A2 3  23       A
            01 031A3    CF       A
            01 031A3 1  23       A
            01 031A3 2  FFC9     A
            01 031A4    C8       A
            01 031A4 1  CE       A
            01 031A4 2  FFCA     A
            01 031A5    FF66     A
            01 031A5 2  9A       A
            01 031A5 3  86       A
            01 031A6    AB       A
            01 031A6 1  44       A
            01 031A6 2  30       A
    11978   01 031A6 3  C0       A    MSGX C0,%3,SUBTST,#S,EQ,NUMBER,OF,CURRENT,SUBTEST
            01 031A7    09       A
            01 031A7 1  12       A
            01 031A7 2  FF27     A
            01 031A8    2B       A
            01 031A8 1  2C       A
            01 031A8 2  3C       A
            01 031A8 3  AB       A
            01 031A9    FF1A     A
            01 031A9 2  FF10     A
    11979   01 031AA    C0       A    MSGX C0,%F,OP,ZERO,INDICATES,SPECIAL,PATTERN,FROM,LINE,AP,K,AP,CP
            01 031AA 1  0D       A
            01 031AA 2  1E       A
            01 031AA 3  2F       A
            01 031AB    87       A
            01 031AB 1  F2       A
            01 031AB 2  FFF4     A
            01 031AC    FF15     A
            01 031AC 2  7D       A
            01 031AC 3  7A       A
            01 031AD    23       A
            01 031AD 1  DA       A
            01 031AD 2  23       A
            01 031AD 3  30       A
    11980                             MSGX C0,%3,LOCATION,EQ,MEMORY,LOCATION,ADDRESSED,BY,THE,INTERRUPT,;
    11981   01 031AE    C0       A         OR,TRAP
            01 031AE 1  0C       A
            01 031AE 2  12       A
            01 031AE 3  FF04     A
            01 031AF 1  2C       A
            01 031AF 2  37       A
            01 031AF 3  FF04     A
            01 031B0 1  FFAD     A
            01 031B0 3  C8       A
            01 031B1    93       A
            01 031B1 1  E8       A
            01 031B1 2  BD       A
            01 031B1 3  78       A
    11982   01 031B2    C0       A    MSGX C0,%F,%2,OP,#0,THROUGH,#1,FF,CP
            01 031B2 1  09       A
            01 031B2 2  1E       A
            01 031B2 3  11       A
            01 031B3    2F       A
            01 031B3 1  00       A
            01 031B3 2  FFF5     A
            01 031B4    01       A
            01 031B4 1  C7       A
            01 031B4 2  30       A
    11983   01 031B4 3  C0       A    MSGX  C0,%2
            01 031B5    02       A
            01 031B5 1  11       A
    11984                             MSGX C0,AK,AK,THE,FOLLOWING,EXPLANATIONS,RELATE,TO,THE,FAILURE,;
    11985   01 031B5 2  C0       A         DISPLAYED,AK,AK
            01 031B5 3  0D       A
            01 031B6    2E       A
            01 031B6 1  2E       A
            01 031B6 2  93       A
            01 031B6 3  EF       A
            01 031B7    DE       A
            01 031B7 1  FF43     A
            01 031B7 3  AD       A
            01 031B8    93       A
            01 031B8 1  FFF6     A
            01 031B8 3  EA       A
            01 031B9    2E       A
            01 031B9 1  2E       A
    11986         01 031B9 2         EXP%F#0            EQU  %
    11987   01 031B9 2  C0       A    MSGX C0,%5,FIELD,#1,EQ,HIGH,PRIORITY,ACTIVE,INTERRUPT,LOCATION
            01 031B9 3  0A       A
            01 031BA    14       A
            01 031BA 1  4F       A
            01 031BA 2  01       A
            01 031BA 3  2C       A
            01 031BB    89       A
            01 031BB 1  F9       A
            01 031BB 2  40       A
            01 031BB 3  E8       A
            01 031BC    FF04     A
    11988   01 031BC 2  C0       A    MSGX C0,%5,FIELD,#2,EQ,ACTUAL,INTERRUPT,LOCATION
            01 031BC 3  08       A
            01 031BD    14       A
            01 031BD 1  4F       A
            01 031BD 2  02       A
            01 031BD 3  2C       A
            01 031BE    FF2A     A
            01 031BE 2  E8       A
            01 031BE 3  FF04     A
    11989   01 031BF 1  C0       A    MSGX C0,%5,AK,AK,AK,NOTE,:S
            01 031BF 2  07       A
            01 031BF 3  14       A
            01 031C0    2E       A
            01 031C0 1  2E       A
            01 031C0 2  2E       A
            01 031C0 3  72       A
            01 031C1    29       A
    11990   01 031C1 1  C0       A    MSGX C0,%C,FOLLOWING,THE,REGULAR,ERROR,LINE,IS,:S
            01 031C1 2  09       A
            01 031C1 3  1B       A
            01 031C2    EF       A
            01 031C2 1  93       A
            01 031C2 2  FFF7     A
            01 031C3    47       A
            01 031C3 1  7A       A
            01 031C3 2  AC       A
            01 031C3 3  29       A
    11991   01 031C4    C0       A    MSGX C0,%F,%5,TCC,%0,EQ,%1,NEW,CONDITION,CODES
            01 031C4 1  0A       A
            01 031C4 2  1E       A
            01 031C4 3  14       A
            01 031C5    98       A
            01 031C5 1  33       A
            01 031C5 2  2C       A
            01 031C5 3  10       A
            01 031C6    9F       A
            01 031C6 1  F6       A
            01 031C6 2  66       A
    11992                             MSGX C0,%F,%5,PSW,%0,#1,%1,CO,PSW,%0,#2,EQ,%1,STORED,PSD,WORD,#1,%1,;
    11993   01 031C6 3  C0       A            AND,WORD,#2
            01 031C7    15       A
            01 031C7 1  1E       A
            01 031C7 2  14       A
            01 031C7 3  99       A
            01 031C8    33       A
            01 031C8 1  01       A
            01 031C8 2  10       A
            01 031C8 3  20       A
            01 031C9    99       A
            01 031C9 1  33       A
            01 031C9 2  02       A
            01 031C9 3  2C       A
            01 031CA    10       A
            01 031CA 1  3D       A
            01 031CA 2  A2       A
            01 031CA 3  80       A
            01 031CB    01       A
            01 031CB 1  10       A
            01 031CB 2  91       A
            01 031CB 3  80       A
            01 031CC    02       A
    11994                             MSGX C0,%F,%5,REGSAV,%0,EQ,%1,ADDRESS,OF,TABLE,OP,#1,#6,%1,WORDS,;
    11995   01 031CC 1  C0       A            %0,CP,WHERE
            01 031CC 2  12       A
            01 031CC 3  1E       A
            01 031CD    14       A
            01 031CD 1  FFFE     A
            01 031CD 3  33       A
            01 031CE    2C       A
            01 031CE 1  10       A
            01 031CE 2  FF13     A
            01 031CF    AB       A
            01 031CF 1  50       A
            01 031CF 2  2F       A
            01 031CF 3  01       A
            01 031D0    06       A
            01 031D0 1  10       A
            01 031D0 2  67       A
            01 031D0 3  33       A
            01 031D1    30       A
            01 031D1 1  FF5A     A
    11996   01 031D1 3  C0       A    MSGX C0,%F,%E,REGISTERS,WERE,SAVED
            01 031D2    06       A
            01 031D2 1  1E       A
            01 031D2 2  1D       A
            01 031D2 3  E9       A
            01 031D3    70       A
            01 031D3 1  48       A
    11997                            *
    11998         01 031D3 2         EXP%F#1            EQU    %
    11999                             MSGX C0,%5,FIELD,#1,%0,EQ,COMMANDED,STATE,OF,INTERRUPT,LOCATION,FLIP,;
    12000   01 031D3 2  C0       A         FLOPS
            01 031D3 3  0D       A
            01 031D4    14       A
            01 031D4 1  4F       A
            01 031D4 2  01       A
            01 031D4 3  33       A
            01 031D5    2C       A
            01 031D5 1  ED       A
            01 031D5 2  53       A
            01 031D5 3  AB       A
            01 031D6    E8       A
            01 031D6 1  FF04     A
            01 031D6 3  8A       A
            01 031D7    68       A
    12001                             MSGX C0,%A,A,%0,EQ,ARMED,CO,T,%0,EQ,TRIGGERED,CO,E,%0,EQ,ENABLED,CO,;
    12002   01 031D7 1  C0       A        I,%0,EQ,INHIBITED,CO,N,%0,OP,PREFIX,%0,CP,EQ,NOT
            01 031D7 2  1E       A
            01 031D7 3  19       A
            01 031D8    CE       A
            01 031D8 1  33       A
            01 031D8 2  2C       A
            01 031D8 3  55       A
            01 031D9    20       A
            01 031D9 1  CF       A
            01 031D9 2  33       A
            01 031D9 3  2C       A
            01 031DA    EE       A
            01 031DA 1  20       A
            01 031DA 2  D3       A
            01 031DA 3  33       A
            01 031DB    2C       A
            01 031DB 1  FF17     A
            01 031DB 3  20       A
            01 031DC    D6       A
            01 031DC 1  33       A
            01 031DC 2  2C       A
            01 031DC 3  F4       A
            01 031DD    20       A
            01 031DD 1  DC       A
            01 031DD 2  33       A
            01 031DD 3  2F       A
            01 031DE    FF44     A
            01 031DE 2  33       A
            01 031DE 3  30       A
            01 031DF    2C       A
            01 031DF 1  90       A
    12003                            *
    12004   01 031DF 2  C0       A    MSGX C0,%5,FIELD,#2,EQ,ACTUAL,STATE,OF,INTERRUPT,FLIP,FLOPS
            01 031DF 3  0B       A
            01 031E0    14       A
            01 031E0 1  4F       A
            01 031E0 2  02       A
            01 031E0 3  2C       A
            01 031E1    FF2A     A
            01 031E1 2  53       A
            01 031E1 3  AB       A
            01 031E2    E8       A
            01 031E2 1  8A       A
            01 031E2 2  68       A
    12005                             MSGX C0,%6,ARM,%0,EQ,ARMED,%0,CO,DIS,%0,EQ,DISARMED,%0,CO,ACT,%0,EQ,;
    12006   01 031E2 3  C0       A         ACTIVE,%0,CO,WAIT,%0,EQ,WAITING,OP,OR,UNIMPL,%0,CP
            01 031E3    1D       A
            01 031E3 1  15       A
            01 031E3 2  A4       A
            01 031E3 3  33       A
            01 031E4    2C       A
            01 031E4 1  55       A
            01 031E4 2  33       A
            01 031E4 3  20       A
            01 031E5    FE1C     A
            01 031E5 2  33       A
            01 031E5 3  2C       A
            01 031E6    FFBA     A
            01 031E6 2  33       A
            01 031E6 3  20       A
            01 031E7    FE1D     A
            01 031E7 2  33       A
            01 031E7 3  2C       A
            01 031E8    40       A
            01 031E8 1  33       A
            01 031E8 2  20       A
            01 031E8 3  FF70     A
            01 031E9 1  33       A
            01 031E9 2  2C       A
            01 031E9 3  FF19     A
            01 031EA 1  2F       A
            01 031EA 2  BD       A
            01 031EA 3  FF45     A
            01 031EB 1  33       A
            01 031EB 2  30       A
    12007   01 031EB 3  C0       A    MSGX C0,%6,OP,D,CP,EQ,DISABLED,CO,OP,E,CP,EQ,ENABLED
            01 031EC    0D       A
            01 031EC 1  15       A
            01 031EC 2  2F       A
            01 031EC 3  D2       A
            01 031ED    30       A
            01 031ED 1  2C       A
            01 031ED 2  FF0D     A
            01 031EE    20       A
            01 031EE 1  2F       A
            01 031EE 2  D3       A
            01 031EE 3  30       A
            01 031EF    2C       A
            01 031EF 1  FF17     A
    12008                            *
    12009         01 031EF 3         EXP%F#4            EQU  %
    12010   01 031EF 3  C0       A    MSGX C0,%5,FIELD,#1,EQ,%1,EXPECTED,TRAP,ADDRESS,INCREMENT
            01 031F0    0A       A
            01 031F0 1  14       A
            01 031F0 2  4F       A
            01 031F0 3  01       A
            01 031F1    2C       A
            01 031F1 1  10       A
            01 031F1 2  FF02     A
            01 031F2    78       A
            01 031F2 1  FF13     A
            01 031F2 3  F7       A
    12011   01 031F3    C0       A    MSGX C0,%5,FIELD,#2,EQ,%1,ACTUAL,TRAP,ADDRESS,INCREMENT
            01 031F3 1  0A       A
            01 031F3 2  14       A
            01 031F3 3  4F       A
            01 031F4    02       A
            01 031F4 1  2C       A
            01 031F4 2  10       A
            01 031F4 3  FF2A     A
            01 031F5 1  78       A
            01 031F5 2  FF13     A
            01 031F6    F7       A
    12012                            *
    12013         01 031F6 1         EXP%F#5            EQU  %
    12014   01 031F6 1  C0       A    MSGX C0,%5,FIELD,#1,EQ,%1,EXPECTED,COUNT,OP,HEX,CP
            01 031F6 2  0B       A
            01 031F6 3  14       A
            01 031F7    4F       A
            01 031F7 1  01       A
            01 031F7 2  2C       A
            01 031F7 3  10       A
            01 031F8    FF02     A
            01 031F8 2  54       A
            01 031F8 3  2F       A
            01 031F9    A0       A
            01 031F9 1  30       A
    12015   01 031F9 2  C0       A    MSGX C0,%5,FIELD,#2,EQ,%1,ACTUAL,COUNT,OP,HEX,CP
            01 031F9 3  0B       A
            01 031FA    14       A
            01 031FA 1  4F       A
            01 031FA 2  02       A
            01 031FA 3  2C       A
            01 031FB    10       A
            01 031FB 1  FF2A     A
            01 031FB 3  54       A
            01 031FC    2F       A
            01 031FC 1  A0       A
            01 031FC 2  30       A
    12016                            *
    12017         01 031FC 3         EXP%F#6            EQU  %
    12018   01 031FC 3  C0       A    MSGX C0,%5,FIELD,#1,EQ,%1,EXPECTED,CONDITION,CODES,OP,BINARY,CP
            01 031FD    0C       A
            01 031FD 1  14       A
            01 031FD 2  4F       A
            01 031FD 3  01       A
            01 031FE    2C       A
            01 031FE 1  10       A
            01 031FE 2  FF02     A
            01 031FF    F6       A
            01 031FF 1  66       A
            01 031FF 2  2F       A
            01 031FF 3  42       A
            01 03200    30       A
    12019   01 03200 1  C0       A    MSGX C0,%5,FIELD,#2,EQ,%1,ACTUAL,CONDITION,CODES,OP,BINARY,CP
            01 03200 2  0C       A
            01 03200 3  14       A
            01 03201    4F       A
            01 03201 1  02       A
            01 03201 2  2C       A
            01 03201 3  10       A
            01 03202    FF2A     A
            01 03202 2  F6       A
            01 03202 3  66       A
            01 03203    2F       A
            01 03203 1  42       A
            01 03203 2  30       A
    12020                            *
    12021         01 03203 3         EXP%F#7            EQU  %
    12022   01 03203 3  C0       A    MSGX C0,%5,FIELD,#1,EQ,%1,TRAPPING,INSTRUCTION,OP,MACHINE,CODE,CP
            01 03204    0C       A
            01 03204 1  14       A
            01 03204 2  4F       A
            01 03204 3  01       A
            01 03205    2C       A
            01 03205 1  10       A
            01 03205 2  FFCB     A
            01 03206    E2       A
            01 03206 1  2F       A
            01 03206 2  FFF8     A
            01 03207    8B       A
            01 03207 1  30       A
    12023   01 03207 2  C0       A    MSGX C0,%5,FIELD,#2,EQ,%1,ADDRESS,OP,LISTING,CP,OF,EXPECTED,TRAP
            01 03207 3  0D       A
            01 03208    14       A
            01 03208 1  4F       A
            01 03208 2  02       A
            01 03208 3  2C       A
            01 03209    10       A
            01 03209 1  FF13     A
            01 03209 3  2F       A
            01 0320A    FF1D     A
            01 0320A 2  30       A
            01 0320A 3  AB       A
            01 0320B    FF02     A
            01 0320B 2  78       A
    12024                            *
    12025         01 0320B 3         EXP%F#8            EQU  %
    12026   01 0320B 3  C0       A    MSGX C0,%5,FIELD,#1,EQ,%1,EXPECTED,PROGRAM,STATUS,WORD
            01 0320C    0A       A
            01 0320C 1  14       A
            01 0320C 2  4F       A
            01 0320C 3  01       A
            01 0320D    2C       A
            01 0320D 1  10       A
            01 0320D 2  FF02     A
            01 0320E    FF18     A
            01 0320E 2  39       A
            01 0320E 3  80       A
    12027   01 0320F    C0       A    MSGX C0,%5,FIELD,#2,EQ,%1,ACTUAL,PROGRAM,STATUS,WORD
            01 0320F 1  0A       A
            01 0320F 2  14       A
            01 0320F 3  4F       A
            01 03210    02       A
            01 03210 1  2C       A
            01 03210 2  10       A
            01 03210 3  FF2A     A
            01 03211 1  FF18     A
            01 03211 3  39       A
            01 03212    80       A
    12028                            *
    12029         01 03212 1         EXP%F#9            EQU  %
    12030   01 03212 1  C0       A    MSGX C0,%5,FIELD,#1,EQ,%1,EXPECTED,DATA,HY,STARTING,ADDRESS,OF,TABLE
            01 03212 2  0D       A
            01 03212 3  14       A
            01 03213    4F       A
            01 03213 1  01       A
            01 03213 2  2C       A
            01 03213 3  10       A
            01 03214    FF02     A
            01 03214 2  FF7B     A
            01 03215    28       A
            01 03215 1  FF0C     A
            01 03215 3  FF13     A
            01 03216 1  AB       A
            01 03216 2  50       A
    12031   01 03216 3  C0       A    MSGX C0,%5,FIELD,#2,EQ,%1,ACTUAL,DATA,HY,STARTING,ADDRESS,OF,TABLE
            01 03217    0D       A
            01 03217 1  14       A
            01 03217 2  4F       A
            01 03217 3  02       A
            01 03218    2C       A
            01 03218 1  10       A
            01 03218 2  FF2A     A
            01 03219    FF7B     A
            01 03219 2  28       A
            01 03219 3  FF0C     A
            01 0321A 1  FF13     A
            01 0321A 3  AB       A
            01 0321B    50       A
    12032   01 0321B 1  C0       A    MSGX C0,%5,FIELD,#3,EQ,%1,SIZE,OF,TABLE
            01 0321B 2  09       A
            01 0321B 3  14       A
            01 0321C    4F       A
            01 0321C 1  03       A
            01 0321C 2  2C       A
            01 0321C 3  10       A
            01 0321D    FF7C     A
            01 0321D 2  AB       A
            01 0321D 3  50       A
    12033                             MSGX C0,%5,FIELD,#4,EQ,%1,REGISTER,SAVE,ADDRESS,OP,#1,#6,%1,;
    12034   01 0321E    C0       A         LOCATIONS,CP
            01 0321E 1  0F       A
            01 0321E 2  14       A
            01 0321E 3  4F       A
            01 0321F    04       A
            01 0321F 1  2C       A
            01 0321F 2  10       A
            01 0321F 3  FFB8     A
            01 03220 1  FF7D     A
            01 03220 3  FF13     A
            01 03221 1  2F       A
            01 03221 2  01       A
            01 03221 3  06       A
            01 03222    10       A
            01 03222 1  F0       A
            01 03222 2  30       A
    12035                            *
    12036         01 03222 3         EXP%F#B            EQU  %
    12037   01 03222 3  C0       A    MSGX C0,%5,FIELD,#1,EQ,%1,EXPECTED,%1,STATE,OF,INTERRUPT,FLIP,FLOPS
            01 03223    0D       A
            01 03223 1  14       A
            01 03223 2  4F       A
            01 03223 3  01       A
            01 03224    2C       A
            01 03224 1  10       A
            01 03224 2  FF02     A
            01 03225    10       A
            01 03225 1  53       A
            01 03225 2  AB       A
            01 03225 3  E8       A
            01 03226    8A       A
            01 03226 1  68       A
    12038                             MSGX C0,%7,XXX,EQ,%1,BINARY,STATES,OF,IS,%0,CO,%1,IP,%0,CO,%1,AND,;
    12039   01 03226 2  C0       A         IN,FF,%0,AP,S,RESPECTIVELY
            01 03226 3  17       A
            01 03227    16       A
            01 03227 1  FE23     A
            01 03227 3  2C       A
            01 03228    10       A
            01 03228 1  42       A
            01 03228 2  FF3E     A
            01 03229    AB       A
            01 03229 1  AC       A
            01 03229 2  33       A
            01 03229 3  20       A
            01 0322A    10       A
            01 0322A 1  FE2D     A
            01 0322A 3  33       A
            01 0322B    20       A
            01 0322B 1  10       A
            01 0322B 2  91       A
            01 0322B 3  FE28     A
            01 0322C 1  C7       A
            01 0322C 2  33       A
            01 0322C 3  23       A
            01 0322D    D8       A
            01 0322D 1  DF       A
    12040                             MSGX C0,%9,OP,#0,#0,#0,EQ,%1,DISARM,%0,SL,DISABLED,%1,#0,#0,#1,EQ,%1,;
    12041   01 0322D 2  C0       A         DISARM,%0,SL,ENABLED
            01 0322D 3  16       A
            01 0322E    18       A
            01 0322E 1  2F       A
            01 0322E 2  00       A
            01 0322E 3  00       A
            01 0322F    00       A
            01 0322F 1  2C       A
            01 0322F 2  10       A
            01 0322F 3  FF46     A
            01 03230 1  33       A
            01 03230 2  27       A
            01 03230 3  FF0D     A
            01 03231 1  10       A
            01 03231 2  00       A
            01 03231 3  00       A
            01 03232    01       A
            01 03232 1  2C       A
            01 03232 2  10       A
            01 03232 3  FF46     A
            01 03233 1  33       A
            01 03233 2  27       A
            01 03233 3  FF17     A
    12042                             MSGX C0,%B,#0,#1,#0,EQ,%1,ARMED,%0,SL,DISABLED,%1,#0,#1,#1,EQ,%1,; *A01
    12043   01 03234 1  C0       A         ARMED,%0,SL,ENABLED
            01 03234 2  15       A
            01 03234 3  1A       A
            01 03235    00       A
            01 03235 1  01       A
            01 03235 2  00       A
            01 03235 3  2C       A
            01 03236    10       A
            01 03236 1  55       A
            01 03236 2  33       A
            01 03236 3  27       A
            01 03237    FF0D     A
            01 03237 2  10       A
            01 03237 3  00       A
            01 03238    01       A
            01 03238 1  01       A
            01 03238 2  2C       A
            01 03238 3  10       A
            01 03239    55       A
            01 03239 1  33       A
            01 03239 2  27       A
            01 03239 3  FF17     A
    12044                             MSGX C0,%B,#1,#1,#0,EQ,%1,WAITING,%0,SL,DISABLED,#1,#1,#1,EQ,%1,;
    12045   01 0323A 1  C0       A         WAITING,%0,SL,ENABLED
            01 0323A 2  14       A
            01 0323A 3  1A       A
            01 0323B    01       A
            01 0323B 1  01       A
            01 0323B 2  00       A
            01 0323B 3  2C       A
            01 0323C    10       A
            01 0323C 1  FF19     A
            01 0323C 3  33       A
            01 0323D    27       A
            01 0323D 1  FF0D     A
            01 0323D 3  01       A
            01 0323E    01       A
            01 0323E 1  01       A
            01 0323E 2  2C       A
            01 0323E 3  10       A
            01 0323F    FF19     A
            01 0323F 2  33       A
            01 0323F 3  27       A
            01 03240    FF17     A
    12046                             MSGX C0,%B,#1,#0,#0,EQ,%1,ACTIVE,%0,SL,DISABLED,%1,#1,#0,#1,EQ,%1,;
    12047   01 03240 2  C0       A         ACTIVE,%0,SL,DISABLED,CP
            01 03240 3  16       A
            01 03241    1A       A
            01 03241 1  01       A
            01 03241 2  00       A
            01 03241 3  00       A
            01 03242    2C       A
            01 03242 1  10       A
            01 03242 2  40       A
            01 03242 3  33       A
            01 03243    27       A
            01 03243 1  FF0D     A
            01 03243 3  10       A
            01 03244    01       A
            01 03244 1  00       A
            01 03244 2  01       A
            01 03244 3  2C       A
            01 03245    10       A
            01 03245 1  40       A
            01 03245 2  33       A
            01 03245 3  27       A
            01 03246    FF0D     A
            01 03246 2  30       A
    12048   01 03246 3  C0       A    MSGX C0,%5,FIELD,#2,EQ,ACTUAL,STATE,AFTER,COMMAND
            01 03247    09       A
            01 03247 1  14       A
            01 03247 2  4F       A
            01 03247 3  02       A
            01 03248    2C       A
            01 03248 1  FF2A     A
            01 03248 3  53       A
            01 03249    58       A
            01 03249 1  FF1F     A
    12049   01 03249 3  C0       A    MSGX C0,%A,OP,SAME,FORM,AS,FIELD,#1,CP
            01 0324A    09       A
            01 0324A 1  19       A
            01 0324A 2  2F       A
            01 0324A 3  73       A
            01 0324B    FF7E     A
            01 0324B 2  B1       A
            01 0324B 3  4F       A
            01 0324C    01       A
            01 0324C 1  30       A
    12050   01 0324C 2  C0       A    MSGX C0,%5,FIELD,#3,EQ,ACTION,COMMANDED
            01 0324C 3  07       A
            01 0324D    14       A
            01 0324D 1  4F       A
            01 0324D 2  03       A
            01 0324D 3  2C       A
            01 0324E    FF2D     A
            01 0324E 2  ED       A
    12051   01 0324E 3  C0       A    MSGX C0,%7,OP,%1,AK,%2,INDICATES,SECOND,TRY,CP
            01 0324F    0A       A
            01 0324F 1  16       A
            01 0324F 2  2F       A
            01 0324F 3  10       A
            01 03250    2E       A
            01 03250 1  11       A
            01 03250 2  F2       A
            01 03250 3  FF47     A
            01 03251 1  FE24     A
            01 03251 3  30       A
    12052   01 03252    C0       A    MSGX C0,%5,FIELD,#4,EQ,STATE,OF,FLIP,FLOPS,BEFORE,COMMAND
            01 03252 1  0B       A
            01 03252 2  14       A
            01 03252 3  4F       A
            01 03253    04       A
            01 03253 1  2C       A
            01 03253 2  53       A
            01 03253 3  AB       A
            01 03254    8A       A
            01 03254 1  68       A
            01 03254 2  FFFC     A
            01 03255    FF1F     A
    12053   01 03255 2  C0       A    MSGX C0,%A,OP,SAME,FORM,AS,FIELD,#1,CP
            01 03255 3  09       A
            01 03256    19       A
            01 03256 1  2F       A
            01 03256 2  73       A
            01 03256 3  FF7E     A
            01 03257 1  B1       A
            01 03257 2  4F       A
            01 03257 3  01       A
            01 03258    30       A
    12054                            *
    12055         01 03258 1         EXP%F#C            EQU  %
    12056   01 03258 1  C0       A    MSGX C0,%5,FIELD,#1,%1,EQ,%1,EXPECTED,WORD
            01 03258 2  09       A
            01 03258 3  14       A
            01 03259    4F       A
            01 03259 1  01       A
            01 03259 2  10       A
            01 03259 3  2C       A
            01 0325A    10       A
            01 0325A 1  FF02     A
            01 0325A 3  80       A
    12057   01 0325B    C0       A    MSGX C0,%5,FIELD,#2,%1,EQ,%1,ACTUAL,WORD
            01 0325B 1  09       A
            01 0325B 2  14       A
            01 0325B 3  4F       A
            01 0325C    02       A
            01 0325C 1  10       A
            01 0325C 2  2C       A
            01 0325C 3  10       A
            01 0325D    FF2A     A
            01 0325D 2  80       A
    12058                            *
    12059         01 0325D 3         EXP%F#E            EQU  %
    12060   01 0325D 3  C0       A    MSGX C0,%6,FIELDS,#1,THRU,#4,%1,HAVE,NO,ENTRIES
            01 0325E    0A       A
            01 0325E 1  15       A
            01 0325E 2  FF48     A
            01 0325F    01       A
            01 0325F 1  6D       A
            01 0325F 2  04       A
            01 0325F 3  10       A
            01 03260    FF7F     A
            01 03260 2  C1       A
            01 03260 3  FFD7     A
    12061                            *
    12062                            *
    12063         01 03261 1         EXP%T#01           EQU  %
    12064                             MSGX C0,TYPE,#0,#1,EQ,%1,SPURIOUS,INTERRUPT,OP,IE,%0,PE,INTERRUPT,;
    12065   01 03261 1  C0       A         LOCATION
            01 03261 2  0E       A
            01 03261 3  6C       A
            01 03262    00       A
            01 03262 1  01       A
            01 03262 2  2C       A
            01 03262 3  10       A
            01 03263    FF01     A
            01 03263 2  E8       A
            01 03263 3  2F       A
            01 03264    CC       A
            01 03264 1  33       A
            01 03264 2  1F       A
            01 03264 3  E8       A
            01 03265    FF04     A
    12066   01 03265 2  C0       A    MSGX C0,%8,DID,NOT,MATCH,CURRENT,HIGH,PRIORITY,ACTIVE,INTERRUPT,CP
            01 03265 3  0B       A
            01 03266    17       A
            01 03266 1  AA       A
            01 03266 2  90       A
            01 03266 3  65       A
            01 03267    FF1A     A
            01 03267 2  89       A
            01 03267 3  F9       A
            01 03268    40       A
            01 03268 1  E8       A
            01 03268 2  30       A
    12067   01 03268 3  C0       A    MSGX C0,%7,OR,AN,UNEXPECTED,TRAP
            01 03269    06       A
            01 03269 1  16       A
            01 03269 2  BD       A
            01 03269 3  CB       A
            01 0326A    E6       A
            01 0326A 1  78       A
    12068         01 0326A 2         EXP%T#02           EQU  %
    12069   01 0326A 2  C0       A    MSGX C0,TYPE,#0,#2,EQ,%1,UNEXPECTED,TRAP,OP,TO,AP,TRAPHAND,AP,CP
            01 0326A 3  0E       A
            01 0326B    6C       A
            01 0326B 1  00       A
            01 0326B 2  02       A
            01 0326B 3  2C       A
            01 0326C    10       A
            01 0326C 1  E6       A
            01 0326C 2  78       A
            01 0326C 3  2F       A
            01 0326D    AD       A
            01 0326D 1  23       A
            01 0326D 2  FFCC     A
            01 0326E    23       A
            01 0326E 1  30       A
    12070         01 0326E 2         EXP%T#11           EQU  %
    12071   01 0326E 2  C0       A    MSGX C0,TYPE,#1,#1,EQ,%1,UNEXPECTED,INTERRUPT
            01 0326E 3  08       A
            01 0326F    6C       A
            01 0326F 1  01       A
            01 0326F 2  01       A
            01 0326F 3  2C       A
            01 03270    10       A
            01 03270 1  E6       A
            01 03270 2  E8       A
    12072         01 03270 3         EXP%T#12           EQU  %
    12073   01 03270 3  C0       A    MSGX C0,TYPE,#1,#2,EQ,%1,EXPECTED,INTERRUPT,DID,NOT,OCCUR
            01 03271    0B       A
            01 03271 1  6C       A
            01 03271 2  01       A
            01 03271 3  02       A
            01 03272    2C       A
            01 03272 1  10       A
            01 03272 2  FF02     A
            01 03273    E8       A
            01 03273 1  AA       A
            01 03273 2  90       A
            01 03273 3  69       A
    12074         01 03274           EXP%T#13           EQU  %
    12075   01 03274    C0       A    MSGX C0,TYPE,#1,#3,EQ,%1,INCORRECT,INTERRUPT,STATE,HY
            01 03274 1  0A       A
            01 03274 2  6C       A
            01 03274 3  01       A
            01 03275    03       A
            01 03275 1  2C       A
            01 03275 2  10       A
            01 03275 3  F8       A
            01 03276    E8       A
            01 03276 1  53       A
            01 03276 2  28       A
    12076   01 03276 3  C0       A    MSGX C0,%8,IE,PE,%1,COMMANDED,STATE,DOES,NOT,MATCH,PRESENT,STATE
            01 03277    0C       A
            01 03277 1  17       A
            01 03277 2  CC       A
            01 03277 3  1F       A
            01 03278    10       A
            01 03278 1  ED       A
            01 03278 2  53       A
            01 03278 3  7C       A
            01 03279    90       A
            01 03279 1  65       A
            01 03279 2  FF14     A
            01 0327A    53       A
    12077         01 0327A 1         EXP%T#41           EQU  %
    12078                             MSGX C0,TYPE,#4,#1,EQ,%1,TRAP,ADDRESS,MODIFIED,BY,TCC,WHEN,XPSD,BIT,;
    12079   01 0327A 1  C0       A         #9,EQ,%1,#0
            01 0327A 2  12       A
            01 0327A 3  6C       A
            01 0327B    04       A
            01 0327B 1  01       A
            01 0327B 2  2C       A
            01 0327B 3  10       A
            01 0327C    78       A
            01 0327C 1  FF13     A
            01 0327C 3  FFCD     A
            01 0327D 1  C8       A
            01 0327D 2  98       A
            01 0327D 3  7F       A
            01 0327E    84       A
            01 0327E 1  A3       A
            01 0327E 2  09       A
            01 0327E 3  2C       A
            01 0327F    10       A
            01 0327F 1  00       A
    12080         01 0327F 2         EXP%T#42           EQU  %
    12081   01 0327F 2  C0       A    MSGX C0,TYPE,#4,#2,EQ,%1,TRAP,ADDRESS,INCORRECTLY,MODIFIED,BY,TCC
            01 0327F 3  0C       A
            01 03280    6C       A
            01 03280 1  04       A
            01 03280 2  02       A
            01 03280 3  2C       A
            01 03281    10       A
            01 03281 1  78       A
            01 03281 2  FF13     A
            01 03282    FF91     A
            01 03282 2  FFCD     A
            01 03283    C8       A
            01 03283 1  98       A
    12082         01 03283 2         EXP%T#51           EQU  %
    12083   01 03283 2  C0       A    MSGX C0,TYPE,#5,#1,EQ,%1,COUNT,PULSE,RATES,OUT,OF,LIMITS
            01 03283 3  0C       A
            01 03284    6C       A
            01 03284 1  05       A
            01 03284 2  01       A
            01 03284 3  2C       A
            01 03285    10       A
            01 03285 1  54       A
            01 03285 2  45       A
            01 03285 3  46       A
            01 03286    8D       A
            01 03286 1  AB       A
            01 03286 2  FF22     A
    12084         01 03287           EXP%T#52           EQU  %
    12085   01 03287    C0       A    MSGX C0,TYPE,#5,#2,EQ,%1,MODIFY,AND,TEST,BYTE,COUNT,WRONG
            01 03287 1  0C       A
            01 03287 2  6C       A
            01 03287 3  05       A
            01 03288    02       A
            01 03288 1  2C       A
            01 03288 2  10       A
            01 03288 3  3A       A
            01 03289    91       A
            01 03289 1  6B       A
            01 03289 2  FF80     A
            01 0328A    54       A
            01 0328A 1  6A       A
    12086         01 0328A 2         EXP%T#53           EQU  %
    12087   01 0328A 2  C0       A    MSGX C0,TYPE,#5,#3,EQ,%1,MODIFY,AND,TEST,HALFWORD,COUNT,WRONG
            01 0328A 3  0C       A
            01 0328B    6C       A
            01 0328B 1  05       A
            01 0328B 2  03       A
            01 0328B 3  2C       A
            01 0328C    10       A
            01 0328C 1  3A       A
            01 0328C 2  91       A
            01 0328C 3  6B       A
            01 0328D    FFCE     A
            01 0328D 2  54       A
            01 0328D 3  6A       A
    12088         01 0328E           EXP%T#54           EQU  %
    12089   01 0328E    C0       A    MSGX C0,TYPE,#5,#4,EQ,%1,MODIFY,AND,TEST,WORD,COUNT,WRONG
            01 0328E 1  0C       A
            01 0328E 2  6C       A
            01 0328E 3  05       A
            01 0328F    04       A
            01 0328F 1  2C       A
            01 0328F 2  10       A
            01 0328F 3  3A       A
            01 03290    91       A
            01 03290 1  6B       A
            01 03290 2  80       A
            01 03290 3  54       A
            01 03291    6A       A
    12090         01 03291 1         EXP%T#61           EQU  %
    12091   01 03291 1  C0       A    MSGX C0,TYPE,#6,#1,EQ,%1,CONDITION,CODES,IN,ERROR
            01 03291 2  0A       A
            01 03291 3  6C       A
            01 03292    06       A
            01 03292 1  01       A
            01 03292 2  2C       A
            01 03292 3  10       A
            01 03293    F6       A
            01 03293 1  66       A
            01 03293 2  FE28     A
            01 03294    47       A
    12092         01 03294 1         EXP%T#71           EQU  %
    12093   01 03294 1  C0       A    MSGX C0,TYPE,#7,#1,EQ,%1,EXPECTED,TRAP,DID,NOT,OCCUR
            01 03294 2  0B       A
            01 03294 3  6C       A
            01 03295    07       A
            01 03295 1  01       A
            01 03295 2  2C       A
            01 03295 3  10       A
            01 03296    FF02     A
            01 03296 2  78       A
            01 03296 3  AA       A
            01 03297    90       A
            01 03297 1  69       A
    12094         01 03297 2         EXP%T#72           EQU  %
    12095   01 03297 2  C0       A    MSGX C0,TYPE,#7,#2,EQ,%1,EXPECTED,TRAP,DID,NOT,OCCUR
            01 03297 3  0B       A
            01 03298    6C       A
            01 03298 1  07       A
            01 03298 2  02       A
            01 03298 3  2C       A
            01 03299    10       A
            01 03299 1  FF02     A
            01 03299 3  78       A
            01 0329A    AA       A
            01 0329A 1  90       A
            01 0329A 2  69       A
    12096   01 0329A 3  C0       A    MSGX C0,%A,OR,READ,DIRECT,CODE,X,%0,AP,#2,FFF,%0,AP,%1,IS,A,VALID,CODE
            01 0329B    12       A
            01 0329B 1  19       A
            01 0329B 2  BD       A
            01 0329B 3  FF81     A
            01 0329C 1  36       A
            01 0329C 2  8B       A
            01 0329C 3  CD       A
            01 0329D    33       A
            01 0329D 1  23       A
            01 0329D 2  02       A
            01 0329D 3  97       A
            01 0329E    33       A
            01 0329E 1  23       A
            01 0329E 2  10       A
            01 0329E 3  AC       A
            01 0329F    CE       A
            01 0329F 1  4D       A
            01 0329F 2  8B       A
    12097         01 0329F 3         EXP%T#81           EQU  %
    12098   01 0329F 3  C0       A    MSGX C0,TYPE,#8,#1,EQ,%1,STORED,PSD,IN,ERROR,HY,TRAP,OP,WORD,#1,CP
            01 032A0    10       A
            01 032A0 1  6C       A
            01 032A0 2  08       A
            01 032A0 3  01       A
            01 032A1    2C       A
            01 032A1 1  10       A
            01 032A1 2  3D       A
            01 032A1 3  A2       A
            01 032A2    FE28     A
            01 032A2 2  47       A
            01 032A2 3  28       A
            01 032A3    78       A
            01 032A3 1  2F       A
            01 032A3 2  80       A
            01 032A3 3  01       A
            01 032A4    30       A
    12099         01 032A4 1         EXP%T#82           EQU  %
    12100   01 032A4 1  C0       A    MSGX C0,TYPE,#8,#2,EQ,%1,STORED,PSD,IN,ERROR,HY,TRAP,OP,WORD,#2,CP
            01 032A4 2  10       A
            01 032A4 3  6C       A
            01 032A5    08       A
            01 032A5 1  02       A
            01 032A5 2  2C       A
            01 032A5 3  10       A
            01 032A6    3D       A
            01 032A6 1  A2       A
            01 032A6 2  FE28     A
            01 032A7    47       A
            01 032A7 1  28       A
            01 032A7 2  78       A
            01 032A7 3  2F       A
            01 032A8    80       A
            01 032A8 1  02       A
            01 032A8 2  30       A
    12101         01 032A8 3         EXP%T#83           EQU  %
    12102                             MSGX C0,TYPE,#8,#3,EQ,%1,STORED,PSD,IN,ERROR,HY,INTERRUPT,OP,WORD,#1,;
    12103   01 032A8 3  C0       A         CP
            01 032A9    10       A
            01 032A9 1  6C       A
            01 032A9 2  08       A
            01 032A9 3  03       A
            01 032AA    2C       A
            01 032AA 1  10       A
            01 032AA 2  3D       A
            01 032AA 3  A2       A
            01 032AB    FE28     A
            01 032AB 2  47       A
            01 032AB 3  28       A
            01 032AC    E8       A
            01 032AC 1  2F       A
            01 032AC 2  80       A
            01 032AC 3  01       A
            01 032AD    30       A
    12104         01 032AD 1         EXP%T#84           EQU  %
    12105                             MSGX C0,TYPE,#8,#4,EQ,%1,STORED,PSD,IN,ERROR,HY,INTERRUPT,OP,WORD,#2,;
    12106   01 032AD 1  C0       A         CP
            01 032AD 2  10       A
            01 032AD 3  6C       A
            01 032AE    08       A
            01 032AE 1  04       A
            01 032AE 2  2C       A
            01 032AE 3  10       A
            01 032AF    3D       A
            01 032AF 1  A2       A
            01 032AF 2  FE28     A
            01 032B0    47       A
            01 032B0 1  28       A
            01 032B0 2  E8       A
            01 032B0 3  2F       A
            01 032B1    80       A
            01 032B1 1  02       A
            01 032B1 2  30       A
    12107         01 032B1 3         EXP%T#91           EQU  %
    12108                             MSGX C0,TYPE,#9,#1,EQ,%1,REGISTERS,ALTERED,OP,ONE,OR,MORE,OF,#1,;
    12109   01 032B1 3  C0       A         #6,%1,WORDS,CP
            01 032B2    12       A
            01 032B2 1  6C       A
            01 032B2 2  09       A
            01 032B2 3  01       A
            01 032B3    2C       A
            01 032B3 1  10       A
            01 032B3 2  E9       A
            01 032B3 3  FF20     A
            01 032B4 1  2F       A
            01 032B4 2  A5       A
            01 032B4 3  BD       A
            01 032B5    FF82     A
            01 032B5 2  AB       A
            01 032B5 3  01       A
            01 032B6    06       A
            01 032B6 1  10       A
            01 032B6 2  67       A
            01 032B6 3  30       A
    12110         01 032B7           EXP%T#92           EQU  %
    12111   01 032B7    C0       A    MSGX C0,TYPE,#9,#2,EQ,%1,STACK,POINTER,DOUBLE,WORD,ALTERED
            01 032B7 1  0B       A
            01 032B7 2  6C       A
            01 032B7 3  09       A
            01 032B8    02       A
            01 032B8 1  2C       A
            01 032B8 2  10       A
            01 032B8 3  FF54     A
            01 032B9 1  FFF9     A
            01 032B9 3  FF49     A
            01 032BA 1  80       A
            01 032BA 2  FF20     A
    12112         01 032BB           EXP%T#93           EQU  %
    12113                             MSGX C0,TYPE,#9,#3,EQ,%1,TABLE,CONTENTS,ALTERED,OP,ONE,OR,MORE,OF,;
    12114   01 032BB    C0       A         THE,WORDS,CP
            01 032BB 1  11       A
            01 032BB 2  6C       A
            01 032BB 3  09       A
            01 032BC    03       A
            01 032BC 1  2C       A
            01 032BC 2  10       A
            01 032BC 3  50       A
            01 032BD    FF09     A
            01 032BD 2  FF20     A
            01 032BE    2F       A
            01 032BE 1  A5       A
            01 032BE 2  BD       A
            01 032BE 3  FF82     A
            01 032BF 1  AB       A
            01 032BF 2  93       A
            01 032BF 3  67       A
            01 032C0    30       A
    12115         01 032C0 1         EXP%T#94           EQU  %
    12116                             MSGX C0,TYPE,#9,#4,EQ,%1,BYTE,STRING,CONTROL,DBL,PE,WORD,ALTERED,;
    12117   01 032C0 1  C0       A         INCORRECTLY
            01 032C0 2  0E       A
            01 032C0 3  6C       A
            01 032C1    09       A
            01 032C1 1  04       A
            01 032C1 2  2C       A
            01 032C1 3  10       A
            01 032C2    FF80     A
            01 032C2 2  FF4A     A
            01 032C3    FF12     A
            01 032C3 2  FE25     A
            01 032C4    1F       A
            01 032C4 1  80       A
            01 032C4 2  FF20     A
            01 032C5    FF91     A
    12118         01 032C5 2         EXP%T#B1           EQU  %
    12119   01 032C5 2  C0       A    MSGX C0,TYPE,B,%0,#1,%1,EQ,%1,INCORRECT,INTERRUPT,STATE,HY
            01 032C5 3  0C       A
            01 032C6    6C       A
            01 032C6 1  D0       A
            01 032C6 2  33       A
            01 032C6 3  01       A
            01 032C7    10       A
            01 032C7 1  2C       A
            01 032C7 2  10       A
            01 032C7 3  F8       A
            01 032C8    E8       A
            01 032C8 1  53       A
            01 032C8 2  28       A
    12120   01 032C8 3  C0       A    MSGX C0,%8,IE,PE,%1,COMMANDED,STATE,DOES,NOT,MATCH,PRESENT,STATE
            01 032C9    0C       A
            01 032C9 1  17       A
            01 032C9 2  CC       A
            01 032C9 3  1F       A
            01 032CA    10       A
            01 032CA 1  ED       A
            01 032CA 2  53       A
            01 032CA 3  7C       A
            01 032CB    90       A
            01 032CB 1  65       A
            01 032CB 2  FF14     A
            01 032CC    53       A
    12121         01 032CC 1         EXP%T#B2           EQU  %
    12122                             MSGX C0,TYPE,B,%0,#2,%1,EQ,%1,LPSD,INSTRUCTION,DID,NOT,RE,HY,ARM,THE,;
    12123   01 032CC 1  C0       A         RELEASED,INTERRUPT
            01 032CC 2  12       A
            01 032CC 3  6C       A
            01 032CD    D0       A
            01 032CD 1  33       A
            01 032CD 2  02       A
            01 032CD 3  10       A
            01 032CE    2C       A
            01 032CE 1  10       A
            01 032CE 2  FF78     A
            01 032CF    E2       A
            01 032CF 1  AA       A
            01 032CF 2  90       A
            01 032CF 3  FE2E     A
            01 032D0 1  28       A
            01 032D0 2  A4       A
            01 032D0 3  93       A
            01 032D1    FFCF     A
            01 032D1 2  E8       A
    12124         01 032D1 3         EXP%T#B3           EQU  %
    12125                             MSGX C0,TYPE,B,%0,#3,%1,EQ,%1,MEMORY,FAULT,INTERRUPT,NOT,IN,;
    12126   01 032D1 3  C0       A       EXPECTED,STATE
            01 032D2    0F       A
            01 032D2 1  6C       A
            01 032D2 2  D0       A
            01 032D2 3  33       A
            01 032D3    03       A
            01 032D3 1  10       A
            01 032D3 2  2C       A
            01 032D3 3  10       A
            01 032D4    37       A
            01 032D4 1  FF5B     A
            01 032D4 3  E8       A
            01 032D5    90       A
            01 032D5 1  FE28     A
            01 032D5 3  FF02     A
            01 032D6 1  53       A
    12127         01 032D6 2         EXP%T#B4           EQU  %
    12128                             MSGX C0,TYPE,B,%0,#4,%1,EQ,%1,FLIP,FLOP,ACTIVITY,ON,LEVEL,SUPPOSEDLY,;
    12129   01 032D6 2  C0       A         UNIMPLEMENTED
            01 032D6 3  0F       A
            01 032D7    6C       A
            01 032D7 1  D0       A
            01 032D7 2  33       A
            01 032D7 3  04       A
            01 032D8    10       A
            01 032D8 1  2C       A
            01 032D8 2  10       A
            01 032D8 3  8A       A
            01 032D9    FF83     A
            01 032D9 2  FFD0     A
            01 032DA    B4       A
            01 032DA 1  52       A
            01 032DA 2  E7       A
            01 032DA 3  DD       A
    12130         01 032DB           EXP%T#C1           EQU  %
    12131                             MSGX C0,TYPE,C,%0,#1,%1,EQ,%1,MEMORY,FAULT,STATUS,WORD,#1,%1,NOT,AS,;
    12132   01 032DB    C0       A       EXPECTED
            01 032DB 1  11       A
            01 032DB 2  6C       A
            01 032DB 3  D1       A
            01 032DC    33       A
            01 032DC 1  01       A
            01 032DC 2  10       A
            01 032DC 3  2C       A
            01 032DD    10       A
            01 032DD 1  37       A
            01 032DD 2  FF5B     A
            01 032DE    39       A
            01 032DE 1  80       A
            01 032DE 2  01       A
            01 032DE 3  10       A
            01 032DF    90       A
            01 032DF 1  B1       A
            01 032DF 2  FF02     A
    12133         01 032E0           EXP%T#E1           EQU  %
    12134   01 032E0    C0       A    MSGX C0,TYPE,E,%0,#1,%1,EQ,%1,INTERRUPT,ON,LEVEL,PREVIOUSLY,SERVICED
            01 032E0 1  0D       A
            01 032E0 2  6C       A
            01 032E0 3  D3       A
            01 032E1    33       A
            01 032E1 1  01       A
            01 032E1 2  10       A
            01 032E1 3  2C       A
            01 032E2    10       A
            01 032E2 1  E8       A
            01 032E2 2  B4       A
            01 032E2 3  52       A
            01 032E3    FFA0     A
            01 032E3 2  FFD1     A
    12135         01 032E4           EXP%T#E2           EQU  %
    12136                             MSGX C0,TYPE,E,%0,#2,%1,EQ,%1,INTERRUPT,ON,LEVEL,SUPPOSEDLY,;
    12137   01 032E4    C0       A       UNIMPLEMENTED
            01 032E4 1  0D       A
            01 032E4 2  6C       A
            01 032E4 3  D3       A
            01 032E5    33       A
            01 032E5 1  02       A
            01 032E5 2  10       A
            01 032E5 3  2C       A
            01 032E6    10       A
            01 032E6 1  E8       A
            01 032E6 2  B4       A
            01 032E6 3  52       A
            01 032E7    E7       A
            01 032E7 1  DD       A
    12138         01 032E7 2         EXP%T#E3           EQU  %
    12139                             MSGX C0,TYPE,E,%0,#3,%1,EQ,%1,HIGH,PRIORITY,LEVEL,NOT,COUNTER,PULSE,;
    12140   01 032E7 2  C0       A       #1,%1,OR,#3
            01 032E7 3  12       A
            01 032E8    6C       A
            01 032E8 1  D3       A
            01 032E8 2  33       A
            01 032E8 3  03       A
            01 032E9    10       A
            01 032E9 1  2C       A
            01 032E9 2  10       A
            01 032E9 3  89       A
            01 032EA    F9       A
            01 032EA 1  52       A
            01 032EA 2  90       A
            01 032EA 3  FF11     A
            01 032EB 1  45       A
            01 032EB 2  01       A
            01 032EB 3  10       A
            01 032EC    BD       A
            01 032EC 1  03       A
    12141         01 032EC 2         EXP%T#E4           EQU  %
    12142   01 032EC 2  C0       A    MSGX C0,TYPE,E,%0,#4,%1,EQ,%1,PDF,SET
            01 032EC 3  0A       A
            01 032ED    6C       A
            01 032ED 1  D3       A
            01 032ED 2  33       A
            01 032ED 3  04       A
            01 032EE    10       A
            01 032EE 1  2C       A
            01 032EE 2  10       A
            01 032EE 3  FE26     A
            01 032EF 1  A7       A
    12143         01 032EF 2         EXP%T#E5           EQU  %
    12144   01 032EF 2  C0       A    MSGX C0,TYPE,E,%0,#5,%1,EQ,%1,PDF,FLAG,NOT,SET,BY,TRAP
            01 032EF 3  0E       A
            01 032F0    6C       A
            01 032F0 1  D3       A
            01 032F0 2  33       A
            01 032F0 3  05       A
            01 032F1    10       A
            01 032F1 1  2C       A
            01 032F1 2  10       A
            01 032F1 3  FE26     A
            01 032F2 1  FF84     A
            01 032F2 3  90       A
            01 032F3    A7       A
            01 032F3 1  C8       A
            01 032F3 2  78       A
    12145         01 032F3 3         EXP%T#E6    EQU   %
    12146   01 032F3 3  C1       A    MSGX C1,TYPE,E,%0,#6,%1,EQ,%1,PDF,FLAG,NOT,CLEARED,BY,LPSD
            01 032F4    0E       A
            01 032F4 1  6C       A
            01 032F4 2  D3       A
            01 032F4 3  33       A
            01 032F5    06       A
            01 032F5 1  10       A
            01 032F5 2  2C       A
            01 032F5 3  10       A
            01 032F6    FE26     A
            01 032F6 2  FF84     A
            01 032F7    90       A
            01 032F7 1  FFE4     A
            01 032F7 3  C8       A
            01 032F8    FF78     A
    12147   01 032F8 2  C0       A    MSGX C0,%A,PROGRAM,CANNOT,CONTINUE
            01 032F8 3  05       A
            01 032F9    19       A
            01 032F9 1  FF18     A
            01 032F9 3  FF42     A
            01 032FA 1  FFBE     A
    12148         01 032FA 3         EXP%T#E7   EQU    %                                                 *A01
    12149   01 032FA 3  C1       A    MSGX C1,TYPE,E,%0,#7,%1,EQ,%1,PDF,FLAG,CLEARED,BY,LPSD,%0,CO,#3    *A01
            01 032FB    10       A
            01 032FB 1  6C       A
            01 032FB 2  D3       A
            01 032FB 3  33       A
            01 032FC    07       A
            01 032FC 1  10       A
            01 032FC 2  2C       A
            01 032FC 3  10       A
            01 032FD    FE26     A
            01 032FD 2  FF84     A
            01 032FE    FFE4     A
            01 032FE 2  C8       A
            01 032FE 3  FF78     A
            01 032FF 1  33       A
            01 032FF 2  20       A
            01 032FF 3  03       A
    12150         01 03300           EXP%T#F1           EQU  %
    12151                             MSGX C0,TYPE,F,%0,#1,%1,EQ,%1,INTERRUPT,SEQUENCE,DOES,NOT,MATCH,;
    12152   01 03300    C0       A         EXPECTED,SEQUENCE
            01 03300 1  0F       A
            01 03300 2  6C       A
            01 03300 3  D4       A
            01 03301    33       A
            01 03301 1  01       A
            01 03301 2  10       A
            01 03301 3  2C       A
            01 03302    10       A
            01 03302 1  E8       A
            01 03302 2  FF03     A
            01 03303    7C       A
            01 03303 1  90       A
            01 03303 2  65       A
            01 03303 3  FF02     A
            01 03304 1  FF03     A
    12153                             MSGX C0,RR,#4,AK,FOR,A,DISPLAY,OF,THE,ACTUAL,INTERRUPT,SEQUENCE,CO,;
    12154   01 03304 3  C0       A         KEYIN,DH
            01 03305    0F       A
            01 03305 1  FC       A
            01 03305 2  04       A
            01 03305 3  2E       A
            01 03306    9A       A
            01 03306 1  CE       A
            01 03306 2  FF1B     A
            01 03307    AB       A
            01 03307 1  93       A
            01 03307 2  FF2A     A
            01 03308    E8       A
            01 03308 1  FF03     A
            01 03308 3  20       A
            01 03309    59       A
            01 03309 1  C3       A
    12155         01 03309 2         EXP%T#F2           EQU  %
    12156                             MSGX C0,TYPE,F,%0,#2,%1,EQ,VALUE,TOO,LARGE,HY,OP,HIGH,ORDER,DIGITS,;
    12157   01 03309 2  C0       A         IGNORED,CP
            01 03309 3  11       A
            01 0330A    6C       A
            01 0330A 1  D4       A
            01 0330A 2  33       A
            01 0330A 3  02       A
            01 0330B    10       A
            01 0330B 1  2C       A
            01 0330B 2  FF58     A
            01 0330C    FE27     A
            01 0330C 2  FF5C     A
            01 0330D    28       A
            01 0330D 1  2F       A
            01 0330D 2  89       A
            01 0330D 3  60       A
            01 0330E    FF3D     A
            01 0330E 2  FFFA     A
            01 0330F    30       A
    12158         01 0330F 1         NO%COUNTERS  EQU  %
    12159   01 0330F 1  C0       A    MSGX C0,COUNTER,GROUP,NOT,IMPLEMENTED
            01 0330F 2  05       A
            01 0330F 3  FF11     A
            01 03310 1  51       A
            01 03310 2  90       A
            01 03310 3  E4       A
    12160         01 03311           NO%IO    EQU      %
    12161   01 03311    C0       A    MSGX C0,I,%0,SL,O,GROUP,NOT,IMPLEMENTED
            01 03311 1  08       A
            01 03311 2  D6       A
            01 03311 3  33       A
            01 03312    27       A
            01 03312 1  D7       A
            01 03312 2  51       A
            01 03312 3  90       A
            01 03313    E4       A
    12162         01 03313 1         GRPIMSG1    EQU   %
    12163   01 03313 1  C1       A    MSGX C1,GROUP,#S,%2,FULLY,IMPLEMENTED
            01 03313 2  06       A
            01 03313 3  51       A
            01 03314    2B       A
            01 03314 1  11       A
            01 03314 2  62       A
            01 03314 3  E4       A
    12164         01 03315           LVLIMSG#1  EQU    %
    12165                             MSGX C1,NOTE,%0,:S,%1,GROUP,#0,%1,LEVEL,#0,%1,EQ,%1,COUNTER,#1,;
    12166                                 OP,#5,#2,CP,%1,SC,%1,LEVEL,#1,%1,EQ,%1,COUNTER,#2,%1,E,%0,;
    12167   01 03315    C1       A        T,%0,C,%0,PE
            01 03315 1  25       A
            01 03315 2  72       A
            01 03315 3  33       A
            01 03316    29       A
            01 03316 1  10       A
            01 03316 2  51       A
            01 03316 3  00       A
            01 03317    10       A
            01 03317 1  52       A
            01 03317 2  00       A
            01 03317 3  10       A
            01 03318    2C       A
            01 03318 1  10       A
            01 03318 2  FF11     A
            01 03319    01       A
            01 03319 1  2F       A
            01 03319 2  05       A
            01 03319 3  02       A
            01 0331A    30       A
            01 0331A 1  10       A
            01 0331A 2  2A       A
            01 0331A 3  10       A
            01 0331B    52       A
            01 0331B 1  01       A
            01 0331B 2  10       A
            01 0331B 3  2C       A
            01 0331C    10       A
            01 0331C 1  FF11     A
            01 0331C 3  02       A
            01 0331D    10       A
            01 0331D 1  D3       A
            01 0331D 2  33       A
            01 0331D 3  CF       A
            01 0331E    33       A
            01 0331E 1  D1       A
            01 0331E 2  33       A
            01 0331E 3  1F       A
    12168         01 0331F           GRPIMSG3    EQU   %
    12169   01 0331F    C1       A    MSGX C1,GROUP,#S,%2,PARTIALLY,IMPLEMENTED
            01 0331F 1  06       A
            01 0331F 2  51       A
            01 0331F 3  2B       A
            01 03320    11       A
            01 03320 1  F3       A
            01 03320 2  E4       A
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   28
A   12170                                     PAGE                                                       *A02
    12171                            NO%EXPL MSGX C1,AK,AK,%1,EXPLANATION,AVAILABLE,ONLY,BEFORE,;        *A02
    12172   01 03320 3  C1       A            RUN,MODE,OP,#S,CP,%1,EXECUTED,AK,AK                        *A02
            01 03321    11       A
            01 03321 1  2E       A
            01 03321 2  2E       A
            01 03321 3  10       A
            01 03322    E3       A
            01 03322 1  FFA3     A
            01 03322 3  79       A
            01 03323    FFFC     A
            01 03323 2  FF85     A
            01 03324    FF79     A
            01 03324 2  2F       A
            01 03324 3  2B       A
            01 03325    30       A
            01 03325 1  10       A
            01 03325 2  FF00     A
            01 03326    2E       A
            01 03326 1  2E       A
    12173                            *                                                                   *A02
    12174                            *        THE FOLLOWING MESSAGES ARE OVERLAID WITH BUFFERS           *A02
    12175                            *  THE FIRST TIME THE PROGRAM ENTERS THE RUN MODE (#).              *A02
    12176                            *   THERFORE THE EXPLANATIONS ARE AVAILABLE ONLY IMMEDIATELY AFTER  *A02
    12177                            *   LOADING.   THE PRECEEDING MESSAGE (NO%EXPL) WILL BE DISPLAYED   *A02
    12178                            *   INSTEAD OF THE EXPECTED MESSAGES ONCE THEY ARE OVERWRITTEN.     *A02
    12179         01 03326 2         SYNTAX%EXPL        EQU  %
    12180                            *
    12181                             MSGX C2,FOR,ASR,%0,SL,KSR,HIT,AP,BREAK,%0,AP,%1,KEY,TO,SKIP,TO,NEXT,;
    12182   01 03326 2  C2       A         PARAGRAPH,OF,EXPLANATION,%0,CO
            01 03326 3  16       A
            01 03327    9A       A
            01 03327 1  FE14     A
            01 03327 3  33       A
            01 03328    27       A
            01 03328 1  9B       A
            01 03328 2  FE15     A
            01 03329    23       A
            01 03329 1  FE03     A
            01 03329 3  33       A
            01 0332A    23       A
            01 0332A 1  10       A
            01 0332A 2  FE16     A
            01 0332B    AD       A
            01 0332B 1  FF62     A
            01 0332B 3  AD       A
            01 0332C    FF63     A
            01 0332C 2  FFA4     A
            01 0332D    AB       A
            01 0332D 1  E3       A
            01 0332D 2  33       A
            01 0332D 3  20       A
    12183   01 0332E    C0       A    MSGX C0,FOR,LINE,PRINTER,%0,CO,TYPE,AP,GT,AP,%1,FOR,SAME,FUNCTION
            01 0332E 1  0E       A
            01 0332E 2  9A       A
            01 0332E 3  7A       A
            01 0332F    FFDA     A
            01 0332F 2  33       A
            01 0332F 3  20       A
            01 03330    6C       A
            01 03330 1  23       A
            01 03330 2  21       A
            01 03330 3  23       A
            01 03331    10       A
            01 03331 1  9A       A
            01 03331 2  73       A
            01 03331 3  FFB0     A
    12184                             MSGX D1,INPUT,PERMITTED,ANY,TIME,CONTROL,DEVICE,IS,SELECTED,FOR,;
    12185   01 03332 1  D1       A         INPUT
            01 03332 2  0B       A
            01 03332 3  56       A
            01 03333    FFA5     A
            01 03333 2  8C       A
            01 03333 3  FF64     A
            01 03334 1  FF12     A
            01 03334 3  FF29     A
            01 03335 1  AC       A
            01 03335 2  FF06     A
            01 03336    9A       A
            01 03336 1  56       A
    12186   01 03336 2  D1       A    MSGX D1,INPUTTING,ANY,OF,THE,FOLLOWING,CHAR,THRU,THE,CONTROL
            01 03336 3  0A       A
            01 03337    FFA6     A
            01 03337 2  8C       A
            01 03337 3  AB       A
            01 03338    93       A
            01 03338 1  EF       A
            01 03338 2  FF65     A
            01 03339    6D       A
            01 03339 1  93       A
            01 03339 2  FF12     A
    12187   01 0333A    C0       A    MSGX C0,DEVICE,WILL,EXECUTE,THE,SPECIFIED,ACTION
            01 0333A 1  07       A
            01 0333A 2  FF29     A
            01 0333B    7B       A
            01 0333B 1  FFDB     A
            01 0333B 3  93       A
            01 0333C    FFA7     A
            01 0333C 2  FF2D     A
    12188                             MSGX D1,OP,#1,CP,AP,@S,AP,HY,%1,ABSOLUTE,RECOVERY,%0,CO,%1,DOES,;
    12189   01 0333D    D1       A         SAME,AS,AP,SYSTEM,RESET,%0,AP,%1,FROM,PCP
            01 0333D 1  19       A
            01 0333D 2  2F       A
            01 0333D 3  01       A
            01 0333E    30       A
            01 0333E 1  23       A
            01 0333E 2  24       A
            01 0333E 3  23       A
            01 0333F    28       A
            01 0333F 1  10       A
            01 0333F 2  FF07     A
            01 03340    FF08     A
            01 03340 2  33       A
            01 03340 3  20       A
            01 03341    10       A
            01 03341 1  7C       A
            01 03341 2  73       A
            01 03341 3  B1       A
            01 03342    23       A
            01 03342 1  FF2E     A
            01 03342 3  FE04     A
            01 03343 1  33       A
            01 03343 2  23       A
            01 03343 3  10       A
            01 03344    7D       A
            01 03344 1  9D       A
    12190                             MSGX D1,OP,#2,CP,AP,%S,AP,HY,%1,FORCES,PROGRAM,TO,AP,IDLE,%0,AP,%1,;
    12191   01 03344 2  D1       A         STATE,%0,CO,DOES,SAME,AS,MOVING,PCP
            01 03344 3  19       A
            01 03345    2F       A
            01 03345 1  02       A
            01 03345 2  30       A
            01 03345 3  23       A
            01 03346    25       A
            01 03346 1  23       A
            01 03346 2  28       A
            01 03346 3  10       A
            01 03347    FF2F     A
            01 03347 2  FF18     A
            01 03348    AD       A
            01 03348 1  23       A
            01 03348 2  7E       A
            01 03348 3  33       A
            01 03349    23       A
            01 03349 1  10       A
            01 03349 2  53       A
            01 03349 3  33       A
            01 0334A    20       A
            01 0334A 1  7C       A
            01 0334A 2  73       A
            01 0334A 3  B1       A
            01 0334B    FF30     A
            01 0334B 2  9D       A
    12192                             MSGX C0,%5,AP,COMPUTE,AP,SWITCH,TO,AP,IDLE,AP,PE,WHEN,OUTPUT,TO,;
    12193   01 0334B 3  C0       A         KSR,CO,IT,MEANS
            01 0334C    12       A
            01 0334C 1  14       A
            01 0334C 2  23       A
            01 0334C 3  FFDC     A
            01 0334D 1  23       A
            01 0334D 2  FF23     A
            01 0334E    AD       A
            01 0334E 1  23       A
            01 0334E 2  7E       A
            01 0334E 3  23       A
            01 0334F    1F       A
            01 0334F 1  7F       A
            01 0334F 2  35       A
            01 0334F 3  AD       A
            01 03350    9B       A
            01 03350 1  20       A
            01 03350 2  BC       A
            01 03350 3  57       A
    12194   01 03351    C0       A    MSGX C0,%5,THE,PROGRAM,IS,WAITING,FOR,INPUT
            01 03351 1  08       A
            01 03351 2  14       A
            01 03351 3  93       A
            01 03352    FF18     A
            01 03352 2  AC       A
            01 03352 3  FF19     A
            01 03353 1  9A       A
            01 03353 2  56       A
    12195                             MSGX D1,OP,#3,CP,AP,#S,AP,HY,FORCES,PROGRAM,TO,AP,RUN,AP,STATE,;
    12196   01 03353 3  D1       A         PE,%1,WHEN,OUTPUT,TO,KSR,CO,IT
            01 03354    17       A
            01 03354 1  2F       A
            01 03354 2  03       A
            01 03354 3  30       A
            01 03355    23       A
            01 03355 1  2B       A
            01 03355 2  23       A
            01 03355 3  28       A
            01 03356    FF2F     A
            01 03356 2  FF18     A
            01 03357    AD       A
            01 03357 1  23       A
            01 03357 2  FF85     A
            01 03358    23       A
            01 03358 1  53       A
            01 03358 2  1F       A
            01 03358 3  10       A
            01 03359    7F       A
            01 03359 1  35       A
            01 03359 2  AD       A
            01 03359 3  9B       A
            01 0335A    20       A
            01 0335A 1  BC       A
    12197   01 0335A 2  C0       A    MSGX C0,%5,MEANS,THE,PROGRAM,HAS,RESUMED,TESTING
            01 0335A 3  08       A
            01 0335B    14       A
            01 0335B 1  57       A
            01 0335B 2  93       A
            01 0335B 3  FF18     A
            01 0335C 1  FE17     A
            01 0335C 3  FFDD     A
            01 0335D 1  FFDE     A
    12198                             MSGX D1,OP,#4,CP,AP,QUEST,PE,MARK,%0,AP,%1,HY,OUTPUTS,%1,A,%0,CP,%2,;
    12199   01 0335D 3  D1       A         SYNTAX,GLOSS,%0,PE,%1,OP,AFTER,AP,@S,AP,%1,PROMPT,%0,CP,CO
            01 0335E    21       A
            01 0335E 1  2F       A
            01 0335E 2  04       A
            01 0335E 3  30       A
            01 0335F    23       A
            01 0335F 1  FE05     A
            01 0335F 3  1F       A
            01 03360    FF66     A
            01 03360 2  33       A
            01 03360 3  23       A
            01 03361    10       A
            01 03361 1  28       A
            01 03361 2  FFDF     A
            01 03362    10       A
            01 03362 1  CE       A
            01 03362 2  33       A
            01 03362 3  30       A
            01 03363    11       A
            01 03363 1  FF31     A
            01 03363 3  FE06     A
            01 03364 1  33       A
            01 03364 2  1F       A
            01 03364 3  10       A
            01 03365    2F       A
            01 03365 1  58       A
            01 03365 2  23       A
            01 03365 3  24       A
            01 03366    23       A
            01 03366 1  10       A
            01 03366 2  FF32     A
            01 03367    33       A
            01 03367 1  30       A
            01 03367 2  20       A
    12200                             MSGX C0,%A,OR,%1,B,%0,CP,%2,CURRENT,EXPLANATION,OP,AFTER,DIRECTIVE,;
    12201   01 03367 3  C0       A            KEYIN,%0,CP,%0,CO                                          *A01
            01 03368    12       A
            01 03368 1  19       A
            01 03368 2  BD       A
            01 03368 3  10       A
            01 03369    D0       A
            01 03369 1  33       A
            01 03369 2  30       A
            01 03369 3  11       A
            01 0336A    FF1A     A
            01 0336A 2  E3       A
            01 0336A 3  2F       A
            01 0336B    58       A
            01 0336B 1  FFA8     A
            01 0336B 3  59       A
            01 0336C    33       A
            01 0336C 1  30       A
            01 0336C 2  33       A
            01 0336C 3  20       A
    12202                             MSGX C0,%A,OR,%1,C,%0,CP,%2,ERROR,MSG,EXPLANATION,OP,AFTER,ERROR,MSG,;
    12203   01 0336D    C0       A         OUTPUT,%0,CP
            01 0336D 1  12       A
            01 0336D 2  19       A
            01 0336D 3  BD       A
            01 0336E    10       A
            01 0336E 1  D1       A
            01 0336E 2  33       A
            01 0336E 3  30       A
            01 0336F    11       A
            01 0336F 1  47       A
            01 0336F 2  9E       A
            01 0336F 3  E3       A
            01 03370    2F       A
            01 03370 1  58       A
            01 03370 2  47       A
            01 03370 3  9E       A
            01 03371    35       A
            01 03371 1  33       A
            01 03371 2  30       A
    12204                             MSGX D2,AK,AK,AK,FOR,THE,FOLLOWING,DIRECTIVES,CO,A,AP,CO,AP,;
    12205   01 03371 3  D2       A         TERMINATES,A,PARAMETER
            01 03372    10       A
            01 03372 1  2E       A
            01 03372 2  2E       A
            01 03372 3  2E       A
            01 03373    9A       A
            01 03373 1  93       A
            01 03373 2  EF       A
            01 03373 3  FF93     A
            01 03374 1  20       A
            01 03374 2  CE       A
            01 03374 3  23       A
            01 03375    20       A
            01 03375 1  23       A
            01 03375 2  FF94     A
            01 03376    CE       A
            01 03376 1  EC       A
    12206                             MSGX C0,%3,FIELD,AND,A,AP,NEW,HY,LINE,AP,TERMINATES,A,PARAMETER,;
    12207   01 03376 2  C0       A         LINE
            01 03376 3  0E       A
            01 03377    12       A
            01 03377 1  4F       A
            01 03377 2  91       A
            01 03377 3  CE       A
            01 03378    23       A
            01 03378 1  9F       A
            01 03378 2  28       A
            01 03378 3  7A       A
            01 03379    23       A
            01 03379 1  FF94     A
            01 03379 3  CE       A
            01 0337A    EC       A
            01 0337A 1  7A       A
    12208         01 0337A 2         DM%EXPL            EQU  %
    12209   01 0337A 2  C0       A    MSGX  C0,%2
            01 0337A 3  02       A
            01 0337B    11       A
    12210                             MSGX D1,OP,#5,CP,AP,DM,GT,X,CO,Y,AP,HY,DUMPS,MEMORY,CONTENTS,;
    12211   01 0337B 1  D1       A         BETWEEN,HEX,PE,LOCATIONS,X,AND,Y
            01 0337B 2  16       A
            01 0337B 3  2F       A
            01 0337C    05       A
            01 0337C 1  30       A
            01 0337C 2  23       A
            01 0337C 3  BE       A
            01 0337D    21       A
            01 0337D 1  CD       A
            01 0337D 2  20       A
            01 0337D 3  D9       A
            01 0337E    23       A
            01 0337E 1  28       A
            01 0337E 2  FE07     A
            01 0337F    37       A
            01 0337F 1  FF09     A
            01 0337F 3  FFD4     A
            01 03380 1  A0       A
            01 03380 2  1F       A
            01 03380 3  F0       A
            01 03381    CD       A
            01 03381 1  91       A
            01 03381 2  D9       A
    12212         01 03381 3         RM%EXPL            EQU  %
    12213   01 03381 3  C0       A    MSGX  C0,%2
            01 03382    02       A
            01 03382 1  11       A
    12214                             MSGX D1,OP,#6,CP,AP,RM,GT,X,CO,Y,AP,HY,DISPLAYS,MEMORY,AS,IN,AP,DM,;
    12215   01 03382 2  D1       A         AP,BUT,ALSO,ALLOWS
            01 03382 3  16       A
            01 03383    2F       A
            01 03383 1  06       A
            01 03383 2  30       A
            01 03383 3  23       A
            01 03384    FE29     A
            01 03384 2  21       A
            01 03384 3  CD       A
            01 03385    20       A
            01 03385 1  D9       A
            01 03385 2  23       A
            01 03385 3  28       A
            01 03386    FF0A     A
            01 03386 2  37       A
            01 03386 3  B1       A
            01 03387    FE28     A
            01 03387 2  23       A
            01 03387 3  BE       A
            01 03388    23       A
            01 03388 1  FE18     A
            01 03388 3  FF68     A
            01 03389 1  38       A
    12216   01 03389 2  C0       A    MSGX C0,%6,REPLACEMENT,OF,WORD,DISPLAYED
            01 03389 3  06       A
            01 0338A    15       A
            01 0338A 1  FF89     A
            01 0338A 3  AB       A
            01 0338B    80       A
            01 0338B 1  EA       A
    12217         01 0338B 2         S%EXPL             EQU  %
    12218                             MSGX D1,OP,#7,CP,AP,S,%0,S,%0,AP,HY,SENSE,SWITCH,OPTIONS,HY,HY,%1,; *A02
    12219   01 0338B 2  D1       A            DISPLAY,TO,MSG,DEV,THE,CURRENT                             *A02
            01 0338B 3  17       A
            01 0338C    2F       A
            01 0338C 1  07       A
            01 0338C 2  30       A
            01 0338C 3  23       A
            01 0338D    D8       A
            01 0338D 1  33       A
            01 0338D 2  D8       A
            01 0338D 3  33       A
            01 0338E    23       A
            01 0338E 1  28       A
            01 0338E 2  5B       A
            01 0338E 3  FF23     A
            01 0338F 1  FFE0     A
            01 0338F 3  28       A
            01 03390    28       A
            01 03390 1  10       A
            01 03390 2  FF1B     A
            01 03391    AD       A
            01 03391 1  9E       A
            01 03391 2  9C       A
            01 03391 3  93       A
            01 03392    FF1A     A
    12220                             MSGX C0,%5,SENSE,SWITCH,STATUS,AND,ALLOW,TERMINAL,USER,TO,;        *A02
    12221   01 03392 2  C0       A         MODIFY,STATUS
            01 03392 3  0C       A
            01 03393    14       A
            01 03393 1  5B       A
            01 03393 2  FF23     A
            01 03394    39       A
            01 03394 1  91       A
            01 03394 2  FE08     A
            01 03395    FE33     A
            01 03395 2  81       A
            01 03395 3  AD       A
            01 03396    3A       A
            01 03396 1  39       A
    12222                             MSGX C0,%5,IF,SOFTWARE,SENSE,SWITCH,CONTROL,OP,AP,M,%0,AP,%1,;     *A02
    12223   01 03396 2  C0       A            FIELD,EQ,%1,#0,%1,CP                                       *A02
            01 03396 3  13       A
            01 03397    14       A
            01 03397 1  B2       A
            01 03397 2  FFB1     A
            01 03398    5B       A
            01 03398 1  FF23     A
            01 03398 3  FF12     A
            01 03399 1  2F       A
            01 03399 2  23       A
            01 03399 3  FE34     A
            01 0339A 1  33       A
            01 0339A 2  23       A
            01 0339A 3  10       A
            01 0339B    4F       A
            01 0339B 1  2C       A
            01 0339B 2  10       A
            01 0339B 3  00       A
            01 0339C    10       A
            01 0339C 1  30       A
    12224   01 0339C 2  C0       A    MSGX C0,%6,SW,%0,#1,%1,EQ,%1,#1,%2,SHORT,LOOP
            01 0339C 3  0C       A
            01 0339D    15       A
            01 0339D 1  C0       A
            01 0339D 2  33       A
            01 0339D 3  01       A
            01 0339E    10       A
            01 0339E 1  2C       A
            01 0339E 2  10       A
            01 0339E 3  01       A
            01 0339F    11       A
            01 0339F 1  5C       A
            01 0339F 2  6F       A
    12225   01 0339F 3  C0       A    MSGX C0,%6,SW,%0,#1,%1,EQ,%1,#0,%2,NO,SHORT,LOOP
            01 033A0    0D       A
            01 033A0 1  15       A
            01 033A0 2  C0       A
            01 033A0 3  33       A
            01 033A1    01       A
            01 033A1 1  10       A
            01 033A1 2  2C       A
            01 033A1 3  10       A
            01 033A2    00       A
            01 033A2 1  11       A
            01 033A2 2  C1       A
            01 033A2 3  5C       A
            01 033A3    6F       A
    12226   01 033A3 1  C0       A    MSGX C0,%6,SW,%0,#2,%1,EQ,%1,#1,%2,LONG,LOOP
            01 033A3 2  0C       A
            01 033A3 3  15       A
            01 033A4    C0       A
            01 033A4 1  33       A
            01 033A4 2  02       A
            01 033A4 3  10       A
            01 033A5    2C       A
            01 033A5 1  10       A
            01 033A5 2  01       A
            01 033A5 3  11       A
            01 033A6    FF69     A
            01 033A6 2  6F       A
    12227   01 033A6 3  C0       A    MSGX C0,%6,SW,%0,#2,%1,EQ,%1,#0,%2,NO,LONG,LOOP
            01 033A7    0D       A
            01 033A7 1  15       A
            01 033A7 2  C0       A
            01 033A7 3  33       A
            01 033A8    02       A
            01 033A8 1  10       A
            01 033A8 2  2C       A
            01 033A8 3  10       A
            01 033A9    00       A
            01 033A9 1  11       A
            01 033A9 2  C1       A
            01 033A9 3  FF69     A
            01 033AA 1  6F       A
    12228   01 033AA 2  C0       A    MSGX C0,%6,SW,%0,#3,%1,EQ,%1,#1,%2,SUPPRESS,HALT,ON,ERROR          *A02
            01 033AA 3  0E       A
            01 033AB    15       A
            01 033AB 1  C0       A
            01 033AB 2  33       A
            01 033AB 3  03       A
            01 033AC    10       A
            01 033AC 1  2C       A
            01 033AC 2  10       A
            01 033AC 3  01       A
            01 033AD    11       A
            01 033AD 1  FFB2     A
            01 033AD 3  77       A
            01 033AE    B4       A
            01 033AE 1  47       A
    12229   01 033AE 2  C0       A    MSGX C0,%6,SW,%0,#3,%1,EQ,%1,#0,%2,HALT,ON,ERROR                   *A02
            01 033AE 3  0D       A
            01 033AF    15       A
            01 033AF 1  C0       A
            01 033AF 2  33       A
            01 033AF 3  03       A
            01 033B0    10       A
            01 033B0 1  2C       A
            01 033B0 2  10       A
            01 033B0 3  00       A
            01 033B1    11       A
            01 033B1 1  77       A
            01 033B1 2  B4       A
            01 033B1 3  47       A
    12230   01 033B2    C0       A    MSGX C0,%6,SW,%0,#4,%1,EQ,%1,#1,%2,SUPPRESS,ERROR,MSG
            01 033B2 1  0D       A
            01 033B2 2  15       A
            01 033B2 3  C0       A
            01 033B3    33       A
            01 033B3 1  04       A
            01 033B3 2  10       A
            01 033B3 3  2C       A
            01 033B4    10       A
            01 033B4 1  01       A
            01 033B4 2  11       A
            01 033B4 3  FFB2     A
            01 033B5 1  47       A
            01 033B5 2  9E       A
    12231   01 033B5 3  C0       A    MSGX C0,%6,SW,%0,#4,%1,EQ,%1,#0,%2,PRINT,ERROR,MSGS
            01 033B6    0D       A
            01 033B6 1  15       A
            01 033B6 2  C0       A
            01 033B6 3  33       A
            01 033B7    04       A
            01 033B7 1  10       A
            01 033B7 2  2C       A
            01 033B7 3  10       A
            01 033B8    00       A
            01 033B8 1  11       A
            01 033B8 2  5D       A
            01 033B8 3  47       A
            01 033B9    FF6A     A
    12232                            *
    12233                             MSGX D2,OP,#8,CP,AP,AD,AP,HY,CAUSES,OUTPUT,OF,THE,CURRENT,;
    12234   01 033B9 2  D2       A         TESTING,STATUS
            01 033B9 3  0F       A
            01 033BA    2F       A
            01 033BA 1  08       A
            01 033BA 2  30       A
            01 033BA 3  23       A
            01 033BB    26       A
            01 033BB 1  23       A
            01 033BB 2  28       A
            01 033BB 3  3B       A
            01 033BC    35       A
            01 033BC 1  AB       A
            01 033BC 2  93       A
            01 033BC 3  FF1A     A
            01 033BD 1  FFDE     A
            01 033BD 3  39       A
    12235   01 033BE    C1       A    MSGX C1,OP,#9,CP,AP,DM,%0,AP,HY,DISPLAYS,MEMORY
            01 033BE 1  0B       A
            01 033BE 2  2F       A
            01 033BE 3  09       A
            01 033BF    30       A
            01 033BF 1  23       A
            01 033BF 2  BE       A
            01 033BF 3  33       A
            01 033C0    23       A
            01 033C0 1  28       A
            01 033C0 2  FF0A     A
            01 033C1    37       A
    12236   01 033C1 1  C0       A    MSGX C0,OP,#1,#0,CP,AP,DE,%0,AP,HY,DISPLAYS,ERROR,TYPE,EXPLANATIONS
            01 033C1 2  0E       A
            01 033C1 3  2F       A
            01 033C2    01       A
            01 033C2 1  00       A
            01 033C2 2  30       A
            01 033C2 3  23       A
            01 033C3    C2       A
            01 033C3 1  33       A
            01 033C3 2  23       A
            01 033C3 3  28       A
            01 033C4    FF0A     A
            01 033C4 2  47       A
            01 033C4 3  6C       A
            01 033C5    DE       A
    12237   01 033C5 1  C0       A    MSGX C0,OP,#1,#1,CP,AP,DH,%0,AP,HY,DISPLAYS,INTERRUPT,HISTORY,TABLE
            01 033C5 2  0E       A
            01 033C5 3  2F       A
            01 033C6    01       A
            01 033C6 1  01       A
            01 033C6 2  30       A
            01 033C6 3  23       A
            01 033C7    C3       A
            01 033C7 1  33       A
            01 033C7 2  23       A
            01 033C7 3  28       A
            01 033C8    FF0A     A
            01 033C8 2  E8       A
            01 033C8 3  FFD9     A
            01 033C9 1  50       A
    12238                             MSGX C0,OP,#1,#2,CP,AP,DI,%0,AP,HY,DISPLAYS,INTERRUPT,LEVEL,;
    12239   01 033C9 2  C0       A         IMPLEMENTATION
            01 033C9 3  0E       A
            01 033CA    2F       A
            01 033CA 1  01       A
            01 033CA 2  02       A
            01 033CA 3  30       A
            01 033CB    23       A
            01 033CB 1  C4       A
            01 033CB 2  33       A
            01 033CB 3  23       A
            01 033CC    28       A
            01 033CC 1  FF0A     A
            01 033CC 3  E8       A
            01 033CD    52       A
            01 033CD 1  34       A
    12240                             MSGX C0,OP,#1,#3,CP,AP,DK,%0,AP,HY,DISPLAYS,SELECTED,PATTERNS,FOR,;
    12241   01 033CD 2  C0       A         ALL,IMPLEMENTED,GROUPS
            01 033CD 3  11       A
            01 033CE    2F       A
            01 033CE 1  01       A
            01 033CE 2  03       A
            01 033CE 3  30       A
            01 033CF    23       A
            01 033CF 1  C5       A
            01 033CF 2  33       A
            01 033CF 3  23       A
            01 033D0    28       A
            01 033D0 1  FF0A     A
            01 033D0 3  FF06     A
            01 033D1 1  FF05     A
            01 033D1 3  9A       A
            01 033D2    A1       A
            01 033D2 1  E4       A
            01 033D2 2  FF21     A
    12242                             MSGX C0,OP,#1,#4,CP,AP,DQ,%0,AP,HY,DISPLAYS,SELECTED,INTERRUPT,;
    12243   01 033D3    C0       A            AND,TRAP,HANDLING
            01 033D3 1  10       A
            01 033D3 2  2F       A
            01 033D3 3  01       A
            01 033D4    04       A
            01 033D4 1  30       A
            01 033D4 2  23       A
            01 033D4 3  C6       A
            01 033D5    33       A
            01 033D5 1  23       A
            01 033D5 2  28       A
            01 033D5 3  FF0A     A
            01 033D6 1  FF06     A
            01 033D6 3  E8       A
            01 033D7    91       A
            01 033D7 1  78       A
            01 033D7 2  FF0B     A
    12244   01 033D8    C0       A    MSGX C0,%F,%3,LINKAGES
            01 033D8 1  04       A
            01 033D8 2  1E       A
            01 033D8 3  12       A
            01 033D9    FFB3     A
    12245                            *
    12246                            *
    12247                             MSGX C2,OP,#1,#5,CP,AP,I,%0,AP,HY,SELECTS,INTERRUPT,LEVEL,;
    12248   01 033D9 2  C2       A         IMPLEMENTATION,PARAMETER,LINE
            01 033D9 3  10       A
            01 033DA    2F       A
            01 033DA 1  01       A
            01 033DA 2  05       A
            01 033DA 3  30       A
            01 033DB    23       A
            01 033DB 1  D6       A
            01 033DB 2  33       A
            01 033DB 3  23       A
            01 033DC    28       A
            01 033DC 1  FF1C     A
            01 033DC 3  E8       A
            01 033DD    52       A
            01 033DD 1  34       A
            01 033DD 2  EC       A
            01 033DD 3  7A       A
    12249   01 033DE    C0       A    MSGX C0,%D,OP,#S,EQ,GROUP,#0,%1,THRU,GROUP,F,CP
            01 033DE 1  0C       A
            01 033DE 2  1C       A
            01 033DE 3  2F       A
            01 033DF    2B       A
            01 033DF 1  2C       A
            01 033DF 2  51       A
            01 033DF 3  00       A
            01 033E0    10       A
            01 033E0 1  6D       A
            01 033E0 2  51       A
            01 033E0 3  D4       A
            01 033E1    30       A
    12250                             MSGX C1,OP,#1,#6,CP,AP,D,%0,#S,AP,HY,SELECTS,INTERRUPT,PATTERN,;
    12251   01 033E1 1  C1       A         PARAMETER,LINE
            01 033E1 2  10       A
            01 033E1 3  2F       A
            01 033E2    01       A
            01 033E2 1  06       A
            01 033E2 2  30       A
            01 033E2 3  23       A
            01 033E3    D2       A
            01 033E3 1  33       A
            01 033E3 2  2B       A
            01 033E3 3  23       A
            01 033E4    28       A
            01 033E4 1  FF1C     A
            01 033E4 3  E8       A
            01 033E5    FF15     A
            01 033E5 2  EC       A
            01 033E5 3  7A       A
    12252   01 033E6    C0       A    MSGX C0,%D,OP,#S,EQ,GROUP,#0,%1,THRU,GROUP,F,CP
            01 033E6 1  0C       A
            01 033E6 2  1C       A
            01 033E6 3  2F       A
            01 033E7    2B       A
            01 033E7 1  2C       A
            01 033E7 2  51       A
            01 033E7 3  00       A
            01 033E8    10       A
            01 033E8 1  6D       A
            01 033E8 2  51       A
            01 033E8 3  D4       A
            01 033E9    30       A
    12253   01 033E9 1  C1       A    MSGX C1,OP,#1,#7,CP,AP,P,%0,AP,HY,SELECTS,PRIORITY,PARAMETER,LINE
            01 033E9 2  0E       A
            01 033E9 3  2F       A
            01 033EA    01       A
            01 033EA 1  07       A
            01 033EA 2  30       A
            01 033EA 3  23       A
            01 033EB    DB       A
            01 033EB 1  33       A
            01 033EB 2  23       A
            01 033EB 3  28       A
            01 033EC    FF1C     A
            01 033EC 2  F9       A
            01 033EC 3  EC       A
            01 033ED    7A       A
    12254                             MSGX C1,OP,#1,#8,CP,AP,T,%0,AP,HY,SELECTS,RESTART,OP,TRANSFER,TO,;
    12255   01 033ED 1  C1       A         TEST,CP,PARAMETER,LINE
            01 033ED 2  13       A
            01 033ED 3  2F       A
            01 033EE    01       A
            01 033EE 1  08       A
            01 033EE 2  30       A
            01 033EE 3  23       A
            01 033EF    CF       A
            01 033EF 1  33       A
            01 033EF 2  23       A
            01 033EF 3  28       A
            01 033F0    FF1C     A
            01 033F0 2  FFE1     A
            01 033F1    2F       A
            01 033F1 1  FFB4     A
            01 033F1 3  AD       A
            01 033F2    6B       A
            01 033F2 1  30       A
            01 033F2 2  EC       A
            01 033F2 3  7A       A
    12256                            *
    12257                            *
    12258                            ****************************************************************
    12259                            *  REQUEST CHARACTER EXPLANATIONS
    12260                            ****************************************************************
    12261                            *
    12262                            *
    12263                            ************************************
    12264                            *  REQUEST CHARACTER   &   EXPLANATION
    12265                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF '&')
    12266                            ************************************
    12267         01 033F3           STAT%EXPL          EQU  %
    12268   01 033F3    D2       A    MSGX D2,AK,AK,AK,STATUS,REPORT,EXPLANATION,AK,AK,AK
            01 033F3 1  0A       A
            01 033F3 2  2E       A
            01 033F3 3  2E       A
            01 033F4    2E       A
            01 033F4 1  39       A
            01 033F4 2  FF33     A
            01 033F5    E3       A
            01 033F5 1  2E       A
            01 033F5 2  2E       A
            01 033F5 3  2E       A
    12269                             MSGX C0,%7,COMPLETED,TST,CO,SUBTST,EQ,#S,AP,S,OF,LAST,TEST,AND,;
    12270   01 033F6    C0       A         SUBTEST,COMPLETED
            01 033F6 1  10       A
            01 033F6 2  16       A
            01 033F6 3  EB       A
            01 033F7    95       A
            01 033F7 1  20       A
            01 033F7 2  FF27     A
            01 033F8    2C       A
            01 033F8 1  2B       A
            01 033F8 2  23       A
            01 033F8 3  D8       A
            01 033F9    AB       A
            01 033F9 1  FF6B     A
            01 033F9 3  6B       A
            01 033FA    91       A
            01 033FA 1  FF10     A
            01 033FA 3  EB       A
    12271                             MSGX C0,%7,PASS,EQ,NUMBER,OF,CURRENT,PASS,OP,EACH,LOOP,COUNTS,AS,A,;
    12272   01 033FB    C0       A         PASS,CP
            01 033FB 1  10       A
            01 033FB 2  16       A
            01 033FB 3  74       A
            01 033FC    2C       A
            01 033FC 1  3C       A
            01 033FC 2  AB       A
            01 033FC 3  FF1A     A
            01 033FD 1  74       A
            01 033FD 2  2F       A
            01 033FD 3  82       A
            01 033FE    6F       A
            01 033FE 1  FF34     A
            01 033FE 3  B1       A
            01 033FF    CE       A
            01 033FF 1  74       A
            01 033FF 2  30       A
    12273                             MSGX C0,%7,ERRORS,XXXX,SL,YYYY,EQ,NUMBER,OF,ERRORS,THIS,PASS,OP,;
    12274   01 033FF 3  C0       A         XXXX,CP,AND
            01 03400    10       A
            01 03400 1  16       A
            01 03400 2  FF28     A
            01 03401    FE10     A
            01 03401 2  27       A
            01 03401 3  FF6C     A
            01 03402 1  2C       A
            01 03402 2  3C       A
            01 03402 3  AB       A
            01 03403    FF28     A
            01 03403 2  83       A
            01 03403 3  74       A
            01 03404    2F       A
            01 03404 1  FE10     A
            01 03404 3  30       A
            01 03405    91       A
    12275   01 03405 1  C0       A    MSGX C0,%F,%A,TOTAL,ERRORS,SINCE,ABSOLUTE,RECOVERY,OP,YYYY,CP
            01 03405 2  0B       A
            01 03405 3  1E       A
            01 03406    19       A
            01 03406 1  FE09     A
            01 03406 3  FF28     A
            01 03407 1  FE0A     A
            01 03407 3  FF07     A
            01 03408 1  FF08     A
            01 03408 3  2F       A
            01 03409    FF6C     A
            01 03409 2  30       A
    12276                            *
    12277                            *
    12278                            ***************************************
    12279                            *REQUEST CHARACTER  DQ  EXPLANATIONS
    12280                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DQ' )
    12281                            ***************************************
    12282                            *
    12283         01 03409 3         DQ%EXPL            EQU  %
    12284   01 03409 3  C0       A    MSGX C0,AP,DQ,%0,AP,%7,DISPLAY,TRAP,AND,INTERRUPT,HANDLER,LINKAGES
            01 0340A    0C       A
            01 0340A 1  23       A
            01 0340A 2  C6       A
            01 0340A 3  33       A
            01 0340B    23       A
            01 0340B 1  16       A
            01 0340B 2  FF1B     A
            01 0340C    78       A
            01 0340C 1  91       A
            01 0340C 2  E8       A
            01 0340C 3  FFE3     A
            01 0340D 1  FFB3     A
    12285                            *
    12286   01 0340D 3  D3       A    MSGX D3,%2,A,DQ,KEYIN,ALLOWS,THE,USER,TO,FIND,:S
            01 0340E    0B       A
            01 0340E 1  11       A
            01 0340E 2  CE       A
            01 0340E 3  C6       A
            01 0340F    59       A
            01 0340F 1  38       A
            01 0340F 2  93       A
            01 0340F 3  81       A
            01 03410    AD       A
            01 03410 1  FF6D     A
            01 03410 3  29       A
    12287                             MSGX C0,%7,#1,CP,%1,THE,INSTRUCTION,IN,ANY,INTERRUPT,LOCATION,OP,;
    12288   01 03411    C0       A         S,CP,OP,#0,THRU,#1,FF,CP
            01 03411 1  14       A
            01 03411 2  16       A
            01 03411 3  01       A
            01 03412    30       A
            01 03412 1  10       A
            01 03412 2  93       A
            01 03412 3  E2       A
            01 03413    FE28     A
            01 03413 2  8C       A
            01 03413 3  E8       A
            01 03414    FF04     A
            01 03414 2  2F       A
            01 03414 3  D8       A
            01 03415    30       A
            01 03415 1  2F       A
            01 03415 2  00       A
            01 03415 3  6D       A
            01 03416    01       A
            01 03416 1  C7       A
            01 03416 2  30       A
    12289   01 03416 3  C0       A    MSGX C0,%7,#2,CP,%1,THE,STORED,PSD,OP,IF,INSTR,PE,WAS,XPSD,CP
            01 03417    0F       A
            01 03417 1  16       A
            01 03417 2  02       A
            01 03417 3  30       A
            01 03418    10       A
            01 03418 1  93       A
            01 03418 2  3D       A
            01 03418 3  A2       A
            01 03419    2F       A
            01 03419 1  B2       A
            01 03419 2  49       A
            01 03419 3  1F       A
            01 0341A    FE1A     A
            01 0341A 2  84       A
            01 0341A 3  30       A
    12290   01 0341B    C0       A    MSGX C0,%7,#3,CP,%1,THE,NEW,PSD,OP,IF,INSTR,PE,WAS,XPSD,CP
            01 0341B 1  0F       A
            01 0341B 2  16       A
            01 0341B 3  03       A
            01 0341C    30       A
            01 0341C 1  10       A
            01 0341C 2  93       A
            01 0341C 3  9F       A
            01 0341D    A2       A
            01 0341D 1  2F       A
            01 0341D 2  B2       A
            01 0341D 3  49       A
            01 0341E    1F       A
            01 0341E 1  FE1A     A
            01 0341E 3  84       A
            01 0341F    30       A
    12291                             MSGX C0,%7,#4,CP,%1,THE,ADDRESS,AND,LABEL,OF,THE,HANDLING,ROUTINE,;
    12292   01 0341F 1  C0       A         CALLED
            01 0341F 2  0E       A
            01 0341F 3  16       A
            01 03420    04       A
            01 03420 1  30       A
            01 03420 2  10       A
            01 03420 3  93       A
            01 03421    FF13     A
            01 03421 2  91       A
            01 03421 3  4A       A
            01 03422    AB       A
            01 03422 1  93       A
            01 03422 2  FF0B     A
            01 03423    FFE2     A
            01 03423 2  FF35     A
    12293   01 03424    C0       A    MSGX C0,%F,BY,A,BAL,FROM,THE,NEW,PSD,ADDRESS
            01 03424 1  0A       A
            01 03424 2  1E       A
            01 03424 3  C8       A
            01 03425    CE       A
            01 03425 1  FE1B     A
            01 03425 3  7D       A
            01 03426    93       A
            01 03426 1  9F       A
            01 03426 2  A2       A
            01 03426 3  FF13     A
    12294                             MSGX C0,DQ,GT,XX,CO,YY,CO,%6,CAUSES,A,DISPLAY,OF,LOCATIONS,XX,THRU,;
    12295   01 03427 1  C0       A       YY
            01 03427 2  10       A
            01 03427 3  C6       A
            01 03428    21       A
            01 03428 1  C9       A
            01 03428 2  20       A
            01 03428 3  CA       A
            01 03429    20       A
            01 03429 1  15       A
            01 03429 2  3B       A
            01 03429 3  CE       A
            01 0342A    FF1B     A
            01 0342A 2  AB       A
            01 0342A 3  F0       A
            01 0342B    C9       A
            01 0342B 1  6D       A
            01 0342B 2  CA       A
    12296   01 0342B 3  C0       A    MSGX C0,DEFINITIONS,:S
            01 0342C    03       A
            01 0342C 1  FF8A     A
            01 0342C 3  29       A
    12297   01 0342D    C0       A    MSGX C0,%7,LOC,EQ,LOCATION,OF,XPSD
            01 0342D 1  07       A
            01 0342D 2  16       A
            01 0342D 3  8F       A
            01 0342E    2C       A
            01 0342E 1  FF04     A
            01 0342E 3  AB       A
            01 0342F    84       A
    12298   01 0342F 1  C0       A    MSGX C0,%7,INSTR,PE,EQ,INSTRUCTION,IN,LOC
            01 0342F 2  08       A
            01 0342F 3  16       A
            01 03430    49       A
            01 03430 1  1F       A
            01 03430 2  2C       A
            01 03430 3  E2       A
            01 03431    FE28     A
            01 03431 2  8F       A
    12299   01 03431 3  C0       A    MSGX C0,%7,OLDPSW,#1,CO,#2,EQ,STORED,PSD
            01 03432    09       A
            01 03432 1  16       A
            01 03432 2  FF24     A
            01 03433    01       A
            01 03433 1  20       A
            01 03433 2  02       A
            01 03433 3  2C       A
            01 03434    3D       A
            01 03434 1  A2       A
    12300   01 03434 2  C0       A    MSGX C0,%7,NEWPSW,#1,CO,#2,EQ,NEW,PSD
            01 03434 3  09       A
            01 03435    16       A
            01 03435 1  FF25     A
            01 03435 3  01       A
            01 03436    20       A
            01 03436 1  02       A
            01 03436 2  2C       A
            01 03436 3  9F       A
            01 03437    A2       A
    12301   01 03437 1  C0       A    MSGX C0,%7,ADDR,PE,EQ,LISTING,ADDRESS,OF,HANDLER
            01 03437 2  09       A
            01 03437 3  16       A
            01 03438    FF5F     A
            01 03438 2  1F       A
            01 03438 3  2C       A
            01 03439    FF1D     A
            01 03439 2  FF13     A
            01 0343A    AB       A
            01 0343A 1  FFE3     A
    12302   01 0343A 3  C0       A    MSGX C0,%7,LABEL,EQ,LISTING,MNEMONIC,FOR,HANDLER
            01 0343B    08       A
            01 0343B 1  16       A
            01 0343B 2  4A       A
            01 0343B 3  2C       A
            01 0343C    FF1D     A
            01 0343C 2  FFB5     A
            01 0343D    9A       A
            01 0343D 1  FFE3     A
    12303                            *
    12304                            ************************************
    12305                            *  REQUEST CHARACTER   DH  EXPLANATION
    12306                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DH')
    12307                            ************************************
    12308         01 0343D 3         DH%EXPL            EQU  %
    12309                             MSGX C0,AP,DH,%0,AP,%7,DISPLAYS,STATUS,OF,INTERRUPTS,DURING,;
    12310   01 0343D 3  C0       A      CURRENT,SUBTEST
            01 0343E    0D       A
            01 0343E 1  23       A
            01 0343E 2  C3       A
            01 0343E 3  33       A
            01 0343F    23       A
            01 0343F 1  16       A
            01 0343F 2  FF0A     A
            01 03440    39       A
            01 03440 1  AB       A
            01 03440 2  E5       A
            01 03440 3  FF36     A
            01 03441 1  FF1A     A
            01 03441 3  FF10     A
    12311                             MSGX C0,%7,DH,%6,DISPLAYS,STATUS,OF,INTERRUPTS,DURING,CURRENT,;
    12312   01 03442 1  C0       A         SUBTEST
            01 03442 2  0B       A
            01 03442 3  16       A
            01 03443    C3       A
            01 03443 1  15       A
            01 03443 2  FF0A     A
            01 03444    39       A
            01 03444 1  AB       A
            01 03444 2  E5       A
            01 03444 3  FF36     A
            01 03445 1  FF1A     A
            01 03445 3  FF10     A
    12313                            *
    12314   01 03446 1  D2       A    MSGX D2,%F,IS,KEPT,OF,ALL,INTERRUPTS,AND,ALL,SPURIOUS,TRAPS
            01 03446 2  0B       A
            01 03446 3  1E       A
            01 03447    AC       A
            01 03447 1  FF6E     A
            01 03447 3  AB       A
            01 03448    A1       A
            01 03448 1  E5       A
            01 03448 2  91       A
            01 03448 3  A1       A
            01 03449    FF01     A
            01 03449 2  5E       A
    12315                             MSGX C0,%F,OP,TABLE,IS,CLEARED,WHEN,ENTERING,NEW,INTERRUPT,SUBTEST,;
    12316   01 03449 3  C0       A         CP
            01 0344A    0C       A
            01 0344A 1  1E       A
            01 0344A 2  2F       A
            01 0344A 3  50       A
            01 0344B    AC       A
            01 0344B 1  FFE4     A
            01 0344B 3  7F       A
            01 0344C    FFB6     A
            01 0344C 2  9F       A
            01 0344C 3  E8       A
            01 0344D    FF10     A
            01 0344D 2  30       A
    12317   01 0344D 3  C0       A    MSGX C0,%F,OR,WHEN,STARTING,NEW,PASS,CP
            01 0344E    08       A
            01 0344E 1  1E       A
            01 0344E 2  BD       A
            01 0344E 3  7F       A
            01 0344F    FF0C     A
            01 0344F 2  9F       A
            01 0344F 3  74       A
            01 03450    30       A
    12318   01 03450 1  C0       A    MSGX C0,%F,THE,HEADER,FORMAT,IS,EXPLAINED,BELOW,:S
            01 03450 2  09       A
            01 03450 3  1E       A
            01 03451    93       A
            01 03451 1  FF37     A
            01 03451 3  3E       A
            01 03452    AC       A
            01 03452 1  F1       A
            01 03452 2  5F       A
            01 03452 3  29       A
    12319   01 03453    C0       A    MSGX C0,SEQUENCE,%8,ORDER,IN,WHICH,INTERRUPT,OCCURRED
            01 03453 1  08       A
            01 03453 2  FF03     A
            01 03454    17       A
            01 03454 1  60       A
            01 03454 2  FE28     A
            01 03455    FE0B     A
            01 03455 2  E8       A
            01 03455 3  FFB7     A
    12320   01 03456 1  C0       A    MSGX C0,%F,%4,OP,LEADING,AK,INDICATES,ERROR,CP
            01 03456 2  09       A
            01 03456 3  1E       A
            01 03457    13       A
            01 03457 1  2F       A
            01 03457 2  FFE5     A
            01 03458    2E       A
            01 03458 1  F2       A
            01 03458 2  47       A
            01 03458 3  30       A
    12321   01 03459    C0       A    MSGX C0,WD,GROUP,EQ,%6,WRITE,DIRECT,GROUP,NUMBER
            01 03459 1  09       A
            01 03459 2  B5       A
            01 03459 3  51       A
            01 0345A    2C       A
            01 0345A 1  15       A
            01 0345A 2  61       A
            01 0345A 3  36       A
            01 0345B    51       A
            01 0345B 1  3C       A
    12322                             MSGX C0,LEVEL,EQ,%9,INTERRUPT,LEVEL,OP,WD,REGISTER,BIT,POSITION,;
    12323   01 0345B 2  C0       A         LESS,#1,#6,CP
            01 0345B 3  0F       A
            01 0345C    52       A
            01 0345C 1  2C       A
            01 0345C 2  18       A
            01 0345C 3  E8       A
            01 0345D    52       A
            01 0345D 1  2F       A
            01 0345D 2  B5       A
            01 0345D 3  FFB8     A
            01 0345E 1  A3       A
            01 0345E 2  FFB9     A
            01 0345F    FF6F     A
            01 0345F 2  01       A
            01 0345F 3  06       A
            01 03460    30       A
    12324                             MSGX C0,LOCATION,EQ,%6,HEX,ADDRESS,OF,INTERRUPT,LOCATION,OP,#0,;
    12325   01 03460 1  C0       A         THRU,#1,FF,CP
            01 03460 2  0F       A
            01 03460 3  FF04     A
            01 03461 1  2C       A
            01 03461 2  15       A
            01 03461 3  A0       A
            01 03462    FF13     A
            01 03462 2  AB       A
            01 03462 3  E8       A
            01 03463    FF04     A
            01 03463 2  2F       A
            01 03463 3  00       A
            01 03464    6D       A
            01 03464 1  01       A
            01 03464 2  C7       A
            01 03464 3  30       A
    12326   01 03465    C0       A    MSGX C0,COMMANDED,STATE,EQ,A,EQ,ARM,AND,DISABLE,CO,T,EQ,TRIGGER
            01 03465 1  0D       A
            01 03465 2  ED       A
            01 03465 3  53       A
            01 03466    2C       A
            01 03466 1  CE       A
            01 03466 2  2C       A
            01 03466 3  A4       A
            01 03467    91       A
            01 03467 1  FFE6     A
            01 03467 3  20       A
            01 03468    CF       A
            01 03468 1  2C       A
            01 03468 2  FF1E     A
    12327   01 03469    C0       A    MSGX C0,%F,%1,E,EQ,ENABLE,CO,I,EQ,INHIBIT,CO,AND,N,EQ,NOT
            01 03469 1  0F       A
            01 03469 2  1E       A
            01 03469 3  10       A
            01 0346A    D3       A
            01 0346A 1  2C       A
            01 0346A 2  3F       A
            01 0346A 3  20       A
            01 0346B    D6       A
            01 0346B 1  2C       A
            01 0346B 2  FF16     A
            01 0346C    20       A
            01 0346C 1  91       A
            01 0346C 2  DC       A
            01 0346C 3  2C       A
            01 0346D    90       A
    12328                             MSGX C0,PRESENT,STATE,EQ,%1,DIS,EQ,DISARMED,CO,ARM,EQ,ARMED,CO,;
    12329   01 0346D 1  C0       A         WAIT,EQ,WAITING,CO,ACT,EQ,ACTIVE
            01 0346D 2  14       A
            01 0346D 3  FF14     A
            01 0346E 1  53       A
            01 0346E 2  2C       A
            01 0346E 3  10       A
            01 0346F    FE1C     A
            01 0346F 2  2C       A
            01 0346F 3  FFBA     A
            01 03470 1  20       A
            01 03470 2  A4       A
            01 03470 3  2C       A
            01 03471    55       A
            01 03471 1  20       A
            01 03471 2  FF70     A
            01 03472    2C       A
            01 03472 1  FF19     A
            01 03472 3  20       A
            01 03473    FE1D     A
            01 03473 2  2C       A
            01 03473 3  40       A
    12330   01 03474    C0       A    MSGX C0,%F,%1,OP,D,CP,EQ,DISABLED,CO,OP,E,CP,EQ,ENABLED
            01 03474 1  0E       A
            01 03474 2  1E       A
            01 03474 3  10       A
            01 03475    2F       A
            01 03475 1  D2       A
            01 03475 2  30       A
            01 03475 3  2C       A
            01 03476    FF0D     A
            01 03476 2  20       A
            01 03476 3  2F       A
            01 03477    D3       A
            01 03477 1  30       A
            01 03477 2  2C       A
            01 03477 3  FF17     A
    12331                             MSGX C0,INTERRUPT,COUNT,EQ,NO,PE,OF,INTERRUPTS,ON,THAT,LEVEL,IN,;
    12332   01 03478 1  C0       A         CURRENT,SUBTEST
            01 03478 2  0E       A
            01 03478 3  E8       A
            01 03479    54       A
            01 03479 1  2C       A
            01 03479 2  C1       A
            01 03479 3  1F       A
            01 0347A    AB       A
            01 0347A 1  E5       A
            01 0347A 2  B4       A
            01 0347A 3  85       A
            01 0347B    52       A
            01 0347B 1  FE28     A
            01 0347B 3  FF1A     A
            01 0347C 1  FF10     A
    12333                            *
    12334                            ************************************
    12335                            *  REQUEST CHARACTER   DI  EXPLANATION
    12336                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DI')
    12337                            ************************************
    12338                            *
    12339         01 0347C 3         DI%EXPL            EQU  %
    12340                            *
    12341                             MSGX C0,AP,DI,%0,AP,%7,DISPLAY,INTERRUPT,IMPLEMENTATION,;
    12342   01 0347C 3  C0       A      OP,BY,MODULE,%0,CP
            01 0347D    0E       A
            01 0347D 1  23       A
            01 0347D 2  C4       A
            01 0347D 3  33       A
            01 0347E    23       A
            01 0347E 1  16       A
            01 0347E 2  FF1B     A
            01 0347F    E8       A
            01 0347F 1  34       A
            01 0347F 2  2F       A
            01 0347F 3  C8       A
            01 03480    FF38     A
            01 03480 2  33       A
            01 03480 3  30       A
    12343                            *
    12344   01 03481    D2       A    MSGX D2,DI,%D,DISPLAYS,THE,IMPLEMENTATION,OF,ALL,INTERRUPT,LEVELS
            01 03481 1  0A       A
            01 03481 2  C4       A
            01 03481 3  1C       A
            01 03482    FF0A     A
            01 03482 2  93       A
            01 03482 3  34       A
            01 03483    AB       A
            01 03483 1  A1       A
            01 03483 2  E8       A
            01 03483 3  41       A
    12345                             MSGX C1,A,FULLY,IMPLEMENTED,GROUP,IS,ONE,CONTAINING,#1,#6,LEVELS,;
    12346   01 03484    C1       A         OP,#1,#4,IN,GROUP,#0,CP
            01 03484 1  12       A
            01 03484 2  CE       A
            01 03484 3  62       A
            01 03485    E4       A
            01 03485 1  51       A
            01 03485 2  AC       A
            01 03485 3  A5       A
            01 03486    FF95     A
            01 03486 2  01       A
            01 03486 3  06       A
            01 03487    41       A
            01 03487 1  2F       A
            01 03487 2  01       A
            01 03487 3  04       A
            01 03488    FE28     A
            01 03488 2  51       A
            01 03488 3  00       A
            01 03489    30       A
    12347                             MSGX C0,A,PARTIALLY,IMPLEMENTED,GROUP,WILL,LIST,ALL,IMPLEMENTED,;
    12348   01 03489 1  C0       A         MODULES
            01 03489 2  0A       A
            01 03489 3  CE       A
            01 0348A    F3       A
            01 0348A 1  E4       A
            01 0348A 2  51       A
            01 0348A 3  7B       A
            01 0348B    86       A
            01 0348B 1  A1       A
            01 0348B 2  E4       A
            01 0348B 3  FFE7     A
    12349                             MSGX C0,AK,AK,AK,LEVELS,CAN,ONLY,BE,IMPLEMENTED,IN,PAIRS,OP,ONE,;
    12350   01 0348C 1  C0       A         MODULE,CP
            01 0348C 2  0F       A
            01 0348C 3  2E       A
            01 0348D    2E       A
            01 0348D 1  2E       A
            01 0348D 2  41       A
            01 0348D 3  A6       A
            01 0348E    79       A
            01 0348E 1  AF       A
            01 0348E 2  E4       A
            01 0348E 3  FE28     A
            01 0348F 1  FE0C     A
            01 0348F 3  2F       A
            01 03490    A5       A
            01 03490 1  FF38     A
            01 03490 3  30       A
    12351                            *
    12352                            *
    12353                            ************************************
    12354                            *  REQUEST CHARACTER   DK  EXPLANATION
    12355                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DK')
    12356                            ************************************
    12357                            *
    12358         01 03491           DK%EXPL            EQU  %
    12359                            *
    12360   01 03491    C0       A    MSGX C0,AP,DK,%0,AP,%7,DISPLAY,INTERRUPT,CONTROL,PATTERNS
            01 03491 1  0A       A
            01 03491 2  23       A
            01 03491 3  C5       A
            01 03492    33       A
            01 03492 1  23       A
            01 03492 2  16       A
            01 03492 3  FF1B     A
            01 03493 1  E8       A
            01 03493 2  FF12     A
            01 03494    FF05     A
    12361                            *
    12362   01 03494 2  D2       A    MSGX D2,DK,%D,DISPLAYS,THE,INTERRUPT,CONTROL,PATTERNS,OF,ALL
            01 03494 3  0A       A
            01 03495    C5       A
            01 03495 1  1C       A
            01 03495 2  FF0A     A
            01 03496    93       A
            01 03496 1  E8       A
            01 03496 2  FF12     A
            01 03497    FF05     A
            01 03497 2  AB       A
            01 03497 3  A1       A
    12363                             MSGX C0,%F,IMPLEMENTED,GROUPS,PE,%1,THE,HEADER,FORMAT,IS,;
    12364   01 03498    C0       A         EXPLAINED
            01 03498 1  0B       A
            01 03498 2  1E       A
            01 03498 3  E4       A
            01 03499    FF21     A
            01 03499 2  1F       A
            01 03499 3  10       A
            01 0349A    93       A
            01 0349A 1  FF37     A
            01 0349A 3  3E       A
            01 0349B    AC       A
            01 0349B 1  F1       A
    12365   01 0349B 2  C0       A    MSGX C0,%F,BELOW,:S
            01 0349B 3  04       A
            01 0349C    1E       A
            01 0349C 1  5F       A
            01 0349C 2  29       A
    12366                             MSGX C0,%5,ARM,EQ,%5,LEVELS,ARMED,AND,DISABLED,OP,#1,#6,BIT,;
    12367   01 0349C 3  C0       A         PATTERN,IN,HEX,CP
            01 0349D    11       A
            01 0349D 1  14       A
            01 0349D 2  A4       A
            01 0349D 3  2C       A
            01 0349E    14       A
            01 0349E 1  41       A
            01 0349E 2  55       A
            01 0349E 3  91       A
            01 0349F    FF0D     A
            01 0349F 2  2F       A
            01 0349F 3  01       A
            01 034A0    06       A
            01 034A0 1  A3       A
            01 034A0 2  FF15     A
            01 034A1    FE28     A
            01 034A1 2  A0       A
            01 034A1 3  30       A
    12368                             MSGX C0,%5,TRIGGER,EQ,%1,LEVELS,TRIGGERED,OP,#1,#6,BIT,PATTERN,;
    12369   01 034A2    C0       A         IN,HEX,CP
            01 034A2 1  0F       A
            01 034A2 2  14       A
            01 034A2 3  FF1E     A
            01 034A3 1  2C       A
            01 034A3 2  10       A
            01 034A3 3  41       A
            01 034A4    EE       A
            01 034A4 1  2F       A
            01 034A4 2  01       A
            01 034A4 3  06       A
            01 034A5    A3       A
            01 034A5 1  FF15     A
            01 034A5 3  FE28     A
            01 034A6 1  A0       A
            01 034A6 2  30       A
    12370                             MSGX C0,%5,ENABLE,EQ,%2,LEVELS,ENABLED,OP,#1,#6,BIT,PATTERN,IN,;
    12371   01 034A6 3  C0       A         HEX,CP
            01 034A7    0F       A
            01 034A7 1  14       A
            01 034A7 2  3F       A
            01 034A7 3  2C       A
            01 034A8    11       A
            01 034A8 1  41       A
            01 034A8 2  FF17     A
            01 034A9    2F       A
            01 034A9 1  01       A
            01 034A9 2  06       A
            01 034A9 3  A3       A
            01 034AA    FF15     A
            01 034AA 2  FE28     A
            01 034AB    A0       A
            01 034AB 1  30       A
    12372                             MSGX C0,%5,INHIBIT,BIT,EQ,OP,CI,EQ,#1,CP,COUNTER,GROUP,HY,;
    12373   01 034AB 2  C0       A         INTERRUPTS,INHIBITED
            01 034AB 3  0F       A
            01 034AC    14       A
            01 034AC 1  FF16     A
            01 034AC 3  A3       A
            01 034AD    2C       A
            01 034AD 1  2F       A
            01 034AD 2  B7       A
            01 034AD 3  2C       A
            01 034AE    01       A
            01 034AE 1  30       A
            01 034AE 2  FF11     A
            01 034AF    51       A
            01 034AF 1  28       A
            01 034AF 2  E5       A
            01 034AF 3  F4       A
    12374                             MSGX C0,%F,OP,II,EQ,#1,CP,INPUT,SL,OUTPUT,GROUP,HY,INTERRUPTS,;
    12375   01 034B0    C0       A         INHIBITED
            01 034B0 1  0E       A
            01 034B0 2  1E       A
            01 034B0 3  2F       A
            01 034B1    B8       A
            01 034B1 1  2C       A
            01 034B1 2  01       A
            01 034B1 3  30       A
            01 034B2    56       A
            01 034B2 1  27       A
            01 034B2 2  35       A
            01 034B2 3  51       A
            01 034B3    28       A
            01 034B3 1  E5       A
            01 034B3 2  F4       A
    12376                             MSGX C0,%F,OP,EI,EQ,#1,CP,EXTERNAL,GROUPS,HY,INTERRUPTS,;
    12377   01 034B3 3  C0       A         INHIBITED
            01 034B4    0C       A
            01 034B4 1  1E       A
            01 034B4 2  2F       A
            01 034B4 3  B9       A
            01 034B5    2C       A
            01 034B5 1  01       A
            01 034B5 2  30       A
            01 034B5 3  FF0E     A
            01 034B6 1  FF21     A
            01 034B6 3  28       A
            01 034B7    E5       A
            01 034B7 1  F4       A
    12378                            *
    12379                            *
    12380                            ************************************
    12381                            *  REQUEST CHARACTER   J   EXPLANATION
    12382                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'J')
    12383                            ************************************
    12384         01 034B7 2         J%EXPL             EQU  %
    12385   01 034B7 2  D2       A    MSGX D2,AK,AK,PARAMETER,LINE,J,OP,CONTROL,%1,LINE,CP,EXPLANATION
            01 034B7 3  0C       A
            01 034B8    2E       A
            01 034B8 1  2E       A
            01 034B8 2  EC       A
            01 034B8 3  7A       A
            01 034B9    D5       A
            01 034B9 1  2F       A
            01 034B9 2  FF12     A
            01 034BA    10       A
            01 034BA 1  7A       A
            01 034BA 2  30       A
            01 034BA 3  E3       A
    12386   01 034BB    C1       A    MSGX C1,%5,MSGDEV,EQ,%2,MESSAGE,OUTPUT,DEVICE,NUMBER
            01 034BB 1  09       A
            01 034BB 2  14       A
            01 034BB 3  FF2B     A
            01 034BC 1  2C       A
            01 034BC 2  11       A
            01 034BC 3  FFE8     A
            01 034BD 1  35       A
            01 034BD 2  FF29     A
            01 034BE    3C       A
    12387   01 034BE 1  C0       A    MSGX C0,%5,COMDEV,EQ,%2,COMMUNICATION,DEVICE,NUMBER
            01 034BE 2  08       A
            01 034BE 3  14       A
            01 034BF    FF2C     A
            01 034BF 2  2C       A
            01 034BF 3  11       A
            01 034C0    FF87     A
            01 034C0 2  FF29     A
            01 034C1    3C       A
    12388   01 034C1 1  C0       A    MSGX C0,%F,%2,OP,INPUT,FROM,AND,OUTPUT,TO,USER,CP
            01 034C1 2  0B       A
            01 034C1 3  1E       A
            01 034C2    11       A
            01 034C2 1  2F       A
            01 034C2 2  56       A
            01 034C2 3  7D       A
            01 034C3    91       A
            01 034C3 1  35       A
            01 034C3 2  AD       A
            01 034C3 3  81       A
            01 034C4    30       A
    12389   01 034C4 1  C0       A    MSGX C0,NOTE,:S
            01 034C4 2  03       A
            01 034C4 3  72       A
            01 034C5    29       A
    12390   01 034C5 1  C0       A    MSGX C0,%7,THE,COMDEV,IS,FOR,INFO,ONLY,OP,UNALTERABLE,BY,USER,CP
            01 034C5 2  0D       A
            01 034C5 3  16       A
            01 034C6    93       A
            01 034C6 1  FF2C     A
            01 034C6 3  AC       A
            01 034C7    9A       A
            01 034C7 1  FF71     A
            01 034C7 3  79       A
            01 034C8    2F       A
            01 034C8 1  FF8B     A
            01 034C8 3  C8       A
            01 034C9    81       A
            01 034C9 1  30       A
    12391   01 034C9 2  C0       A    MSGX C0,%5,SI,%4,EQ,%1,STATUS,INTERVAL
            01 034C9 3  08       A
            01 034CA    14       A
            01 034CA 1  B6       A
            01 034CA 2  13       A
            01 034CA 3  2C       A
            01 034CB    10       A
            01 034CB 1  39       A
            01 034CB 2  FFBB     A
    12392   01 034CC    C0       A    MSGX C0,%F,IF,ZERO,CO,PRINT,STATUS,AFTER,EACH,SUBTEST
            01 034CC 1  0A       A
            01 034CC 2  1E       A
            01 034CC 3  B2       A
            01 034CD    87       A
            01 034CD 1  20       A
            01 034CD 2  5D       A
            01 034CD 3  39       A
            01 034CE    58       A
            01 034CE 1  82       A
            01 034CE 2  FF10     A
    12393   01 034CF    C0       A    MSGX C0,%F,IF,NOT,CO,PRINT,STATUS,WHEN,PASS,COUNT,IS,AN,EVEN
            01 034CF 1  0D       A
            01 034CF 2  1E       A
            01 034CF 3  B2       A
            01 034D0    90       A
            01 034D0 1  20       A
            01 034D0 2  5D       A
            01 034D0 3  39       A
            01 034D1    7F       A
            01 034D1 1  74       A
            01 034D1 2  54       A
            01 034D1 3  AC       A
            01 034D2    CB       A
            01 034D2 1  FF72     A
    12394   01 034D2 3  C0       A    MSGX C0,%F,%2,MULTIPLE,OF,THE,SI,COUNT
            01 034D3    08       A
            01 034D3 1  1E       A
            01 034D3 2  11       A
            01 034D3 3  FFBC     A
            01 034D4 1  AB       A
            01 034D4 2  93       A
            01 034D4 3  B6       A
            01 034D5    54       A
    12395   01 034D5 1  C0       A    MSGX C0,%5,CM,EQ,%6,CLOCK,MARGIN
            01 034D5 2  07       A
            01 034D5 3  14       A
            01 034D6    B3       A
            01 034D6 1  2C       A
            01 034D6 2  15       A
            01 034D6 3  FE0E     A
            01 034D7 1  FF39     A
    12396   01 034D7 3  C0       A    MSGX C0,%8,MARGIN,LIMITS,:S
            01 034D8    05       A
            01 034D8 1  17       A
            01 034D8 2  FF39     A
            01 034D9    FF22     A
            01 034D9 2  29       A
    12397   01 034D9 3  C0       A    MSGX C0,%6,PROGRAM,CONTROLLED,%3,USER,CONTROLLED,OP,FIXED,CP
            01 034DA    0A       A
            01 034DA 1  15       A
            01 034DA 2  FF18     A
            01 034DB    FF96     A
            01 034DB 2  12       A
            01 034DB 3  81       A
            01 034DC    FF96     A
            01 034DC 2  2F       A
            01 034DC 3  63       A
            01 034DD    30       A
    12398   01 034DD 1  C0       A    MSGX C0,%9,#0,EQ,NORMAL,%A,A,EQ,NORMAL
            01 034DD 2  09       A
            01 034DD 3  18       A
            01 034DE    00       A
            01 034DE 1  2C       A
            01 034DE 2  FF26     A
            01 034DF    19       A
            01 034DF 1  CE       A
            01 034DF 2  2C       A
            01 034DF 3  FF26     A
    12399   01 034E0 1  C0       A    MSGX C0,%9,#1,EQ,FAST,%C,B,EQ,FAST
            01 034E0 2  09       A
            01 034E0 3  18       A
            01 034E1    01       A
            01 034E1 1  2C       A
            01 034E1 2  71       A
            01 034E1 3  1B       A
            01 034E2    D0       A
            01 034E2 1  2C       A
            01 034E2 2  71       A
    12400   01 034E2 3  C0       A    MSGX C0,%9,#2,EQ,SLOW,%C,C,EQ,SLOW
            01 034E3    09       A
            01 034E3 1  18       A
            01 034E3 2  02       A
            01 034E3 3  2C       A
            01 034E4    FF73     A
            01 034E4 2  1B       A
            01 034E4 3  D1       A
            01 034E5    2C       A
            01 034E5 1  FF73     A
    12401                            *************************************
    12402                            *  PARAMETER LINE T EXPLANATIONS    *
    12403                            *************************************
    12404                            *
    12405         01 034E5 3         T%EXPL             EQU  %
    12406   01 034E5 3  D2       A    MSGX D2,AK,AK,%1,PARAMETER,LINE,T,%1,OP,TRANSFER,TO,TEST,CP
            01 034E6    0D       A
            01 034E6 1  2E       A
            01 034E6 2  2E       A
            01 034E6 3  10       A
            01 034E7    EC       A
            01 034E7 1  7A       A
            01 034E7 2  CF       A
            01 034E7 3  10       A
            01 034E8    2F       A
            01 034E8 1  FFB4     A
            01 034E8 3  AD       A
            01 034E9    6B       A
            01 034E9 1  30       A
    12407                             MSGX C0,%4,THIS,PARAMETER,LINE,ALLOWS,THE,USER,TO,SELECT,CO,AT,;
    12408   01 034E9 2  C0       A         RANDOM,CO
            01 034E9 3  0E       A
            01 034EA    13       A
            01 034EA 1  83       A
            01 034EA 2  EC       A
            01 034EA 3  7A       A
            01 034EB    38       A
            01 034EB 1  93       A
            01 034EB 2  81       A
            01 034EB 3  AD       A
            01 034EC    FF3A     A
            01 034EC 2  20       A
            01 034EC 3  AE       A
            01 034ED    FF3B     A
            01 034ED 2  20       A
    12409   01 034ED 3  C0       A    MSGX C0,%4,ANY,RANGE,OF,TESTS,OP,AND,SUBTESTS,CP,TO,BE,EXECUTED
            01 034EE    0D       A
            01 034EE 1  13       A
            01 034EE 2  8C       A
            01 034EE 3  64       A
            01 034EF    AB       A
            01 034EF 1  44       A
            01 034EF 2  2F       A
            01 034EF 3  91       A
            01 034F0    FFBD     A
            01 034F0 2  30       A
            01 034F0 3  AD       A
            01 034F1    AF       A
            01 034F1 1  FF00     A
    12410   01 034F1 3  C0       A    MSGX C0,%4,THE,NUMBER,OF,TIMES,THE,TEST,WILL,BE,EXECUTED,MAY,BE,SET
            01 034F2    0E       A
            01 034F2 1  13       A
            01 034F2 2  93       A
            01 034F2 3  3C       A
            01 034F3    AB       A
            01 034F3 1  FF4C     A
            01 034F3 3  93       A
            01 034F4    6B       A
            01 034F4 1  7B       A
            01 034F4 2  AF       A
            01 034F4 3  FF00     A
            01 034F5 1  FE1E     A
            01 034F5 3  AF       A
            01 034F6    A7       A
    12411   01 034F6 1  C0       A    MSGX C0,%7,START,TEST,AND,START,SUBTEST,EQ,STARTING,POINT
            01 034F6 2  0A       A
            01 034F6 3  16       A
            01 034F7    43       A
            01 034F7 1  6B       A
            01 034F7 2  91       A
            01 034F7 3  43       A
            01 034F8    FF10     A
            01 034F8 2  2C       A
            01 034F8 3  FF0C     A
            01 034F9 1  FF4D     A
    12412   01 034F9 3  C0       A    MSGX C0,%7,STOP,TEST,AND,STOP,SUBTEST,%2,EQ,END,OF,PROGRAM
            01 034FA    0C       A
            01 034FA 1  16       A
            01 034FA 2  76       A
            01 034FA 3  6B       A
            01 034FB    91       A
            01 034FB 1  76       A
            01 034FB 2  FF10     A
            01 034FC    11       A
            01 034FC 1  2C       A
            01 034FC 2  FE1F     A
            01 034FD    AB       A
            01 034FD 1  FF18     A
    12413   01 034FD 3  C0       A    MSGX C0,%7,LOOP,EQ,NUMBER,OF,PASSES,TO,BE,EXECUTED,PE,OP,ZERO,MEANS
            01 034FE    0E       A
            01 034FE 1  16       A
            01 034FE 2  6F       A
            01 034FE 3  2C       A
            01 034FF    3C       A
            01 034FF 1  AB       A
            01 034FF 2  FF3C     A
            01 03500    AD       A
            01 03500 1  AF       A
            01 03500 2  FF00     A
            01 03501    1F       A
            01 03501 1  2F       A
            01 03501 2  87       A
            01 03501 3  57       A
    12414   01 03502    C0       A    MSGX C0,%F,%9,CONTINUE,LOOPING,UNTIL,STOPPED,PE,CP
            01 03502 1  09       A
            01 03502 2  1E       A
            01 03502 3  18       A
            01 03503    FFBE     A
            01 03503 2  FFE9     A
            01 03504    FF4E     A
            01 03504 2  FFEA     A
            01 03505    1F       A
            01 03505 1  30       A
    12415                             MSGX C0,NOTE,#1,:S,%1,TESTS,OR,SUBTESTS,SO,NOTED,CO,LS,DIGITS,EQ,;
    12416   01 03505 2  C0       A         GROUP,AND
            01 03505 3  10       A
            01 03506    72       A
            01 03506 1  01       A
            01 03506 2  29       A
            01 03506 3  10       A
            01 03507    44       A
            01 03507 1  BD       A
            01 03507 2  FFBD     A
            01 03508    FE2A     A
            01 03508 2  FF4F     A
            01 03509    20       A
            01 03509 1  FE2B     A
            01 03509 3  FF3D     A
            01 0350A 1  2C       A
            01 0350A 2  51       A
            01 0350A 3  91       A
    12417                             MSGX C0,%9,LEVEL,RESPECTIVELY,PE,OP,IE,%1,TEST,#1,#1,#3,F,TESTS,;
    12418   01 0350B    C0       A         GROUP,#3,HY,LEVEL,F,CP
            01 0350B 1  14       A
            01 0350B 2  18       A
            01 0350B 3  52       A
            01 0350C    DF       A
            01 0350C 1  1F       A
            01 0350C 2  2F       A
            01 0350C 3  CC       A
            01 0350D    10       A
            01 0350D 1  6B       A
            01 0350D 2  01       A
            01 0350D 3  01       A
            01 0350E    03       A
            01 0350E 1  D4       A
            01 0350E 2  44       A
            01 0350E 3  51       A
            01 0350F    03       A
            01 0350F 1  28       A
            01 0350F 2  52       A
            01 0350F 3  D4       A
            01 03510    30       A
    12419   01 03510 1  D1       A    MSGX D1,%1,TEST,%1,SUBTEST,%D,TEST
            01 03510 2  07       A
            01 03510 3  10       A
            01 03511    6B       A
            01 03511 1  10       A
            01 03511 2  FF10     A
            01 03512    1C       A
            01 03512 1  6B       A
    12420   01 03512 2  C0       A    MSGX C0,RANGE,%2,RANGE,%A,DESCRIPTION
            01 03512 3  06       A
            01 03513    64       A
            01 03513 1  11       A
            01 03513 2  64       A
            01 03513 3  19       A
            01 03514    FF8C     A
    12421                             MSGX C1,#1,#1,#0,#0,HY,%1,#1,HY,#4,B,%2,SETS,AND,READS,STATES,OF,;
    12422   01 03514 2  C1       A         INT,PE,FF,AP,S,TO,DETERMINE
            01 03514 3  18       A
            01 03515    01       A
            01 03515 1  01       A
            01 03515 2  00       A
            01 03515 3  00       A
            01 03516    28       A
            01 03516 1  10       A
            01 03516 2  01       A
            01 03516 3  28       A
            01 03517    04       A
            01 03517 1  D0       A
            01 03517 2  11       A
            01 03517 3  FF74     A
            01 03518 1  91       A
            01 03518 2  FF50     A
            01 03519    FF3E     A
            01 03519 2  AB       A
            01 03519 3  A8       A
            01 0351A    1F       A
            01 0351A 1  C7       A
            01 0351A 2  23       A
            01 0351A 3  D8       A
            01 0351B    AD       A
            01 0351B 1  FFA9     A
    12423                             MSGX C0,%1,#1,#1,FF,%8,IMPLEMENTATION,OP,ONE,LEVEL,AT,A,TIME,CP,;
    12424   01 0351B 3  C0       A         PE
            01 0351C    0F       A
            01 0351C 1  10       A
            01 0351C 2  01       A
            01 0351C 3  01       A
            01 0351D    C7       A
            01 0351D 1  17       A
            01 0351D 2  34       A
            01 0351D 3  2F       A
            01 0351E    A5       A
            01 0351E 1  52       A
            01 0351E 2  AE       A
            01 0351E 3  CE       A
            01 0351F    FF64     A
            01 0351F 2  30       A
            01 0351F 3  1F       A
    12425   01 03520    C0       A    MSGX C0,OP,NOTE,#1,CP
            01 03520 1  05       A
            01 03520 2  2F       A
            01 03520 3  72       A
            01 03521    01       A
            01 03521 1  30       A
    12426   01 03521 2  C0       A    MSGX C0,#1,#2,#0,#1,%1,#1,%6,CHECKS,PRIORITY,OF,INT,PE,GROUPS
            01 03521 3  0E       A
            01 03522    01       A
            01 03522 1  02       A
            01 03522 2  00       A
            01 03522 3  01       A
            01 03523    10       A
            01 03523 1  01       A
            01 03523 2  15       A
            01 03523 3  FF3F     A
            01 03524 1  F9       A
            01 03524 2  AB       A
            01 03524 3  A8       A
            01 03525    1F       A
            01 03525 1  FF21     A
    12427                             MSGX C0,#1,#3,#0,#1,%2,#1,%6,MEASURES,FREQUENCIES,OF,COUNTER,;
    12428   01 03525 3  C0       A         PULSE,INTS
            01 03526    0E       A
            01 03526 1  01       A
            01 03526 2  03       A
            01 03526 3  00       A
            01 03527    01       A
            01 03527 1  11       A
            01 03527 2  01       A
            01 03527 3  15       A
            01 03528    FFBF     A
            01 03528 2  FF8D     A
            01 03529    AB       A
            01 03529 1  FF11     A
            01 03529 3  45       A
            01 0352A    FF75     A
    12429                             MSGX C0,#1,#4,#0,#1,%2,#5,HY,FF,%2,CHECKS,MTB,CO,MTH,CO,AND,MTW,;
    12430   01 0352A 2  C0       A         IN,INT,PE,LOCATIONS
            01 0352A 3  15       A
            01 0352B    01       A
            01 0352B 1  04       A
            01 0352B 2  00       A
            01 0352B 3  01       A
            01 0352C    11       A
            01 0352C 1  05       A
            01 0352C 2  28       A
            01 0352C 3  C7       A
            01 0352D    11       A
            01 0352D 1  FF3F     A
            01 0352D 3  FE20     A
            01 0352E 1  20       A
            01 0352E 2  FE21     A
            01 0352F    20       A
            01 0352F 1  91       A
            01 0352F 2  FE22     A
            01 03530    FE28     A
            01 03530 2  A8       A
            01 03530 3  1F       A
            01 03531    F0       A
    12431   01 03531 1  C0       A    MSGX C0,%7,OP,NOTE,#1,CP
            01 03531 2  06       A
            01 03531 3  16       A
            01 03532    2F       A
            01 03532 1  72       A
            01 03532 2  01       A
            01 03532 3  30       A
    12432                             MSGX C0,#1,#4,#0,#2,%2,SAME,AS,#1,#4,#0,#1,WITH,INDIRECT,;
    12433   01 03533    C0       A         ADDRESSING
            01 03533 1  0F       A
            01 03533 2  01       A
            01 03533 3  04       A
            01 03534    00       A
            01 03534 1  02       A
            01 03534 2  11       A
            01 03534 3  73       A
            01 03535    B1       A
            01 03535 1  01       A
            01 03535 2  04       A
            01 03535 3  00       A
            01 03536    01       A
            01 03536 1  88       A
            01 03536 2  FFC0     A
            01 03537    FF97     A
    12434                             MSGX C0,#1,#5,#0,#1,HY,%1,#1,%4,TESTS,THAT,AN,INTERRUPT,CAN,;
    12435   01 03537 2  C0       A         OVERRIDE,ANY,LOWER,PRIORITY
            01 03537 3  12       A
            01 03538    01       A
            01 03538 1  05       A
            01 03538 2  00       A
            01 03538 3  01       A
            01 03539    28       A
            01 03539 1  10       A
            01 03539 2  01       A
            01 03539 3  13       A
            01 0353A    44       A
            01 0353A 1  85       A
            01 0353A 2  CB       A
            01 0353A 3  E8       A
            01 0353B    A6       A
            01 0353B 1  FFC1     A
            01 0353B 3  8C       A
            01 0353C    FF51     A
            01 0353C 2  F9       A
    12436                             MSGX C0,%1,#1,#5,#0,#2,%9,INTERRUPT,AND,THEN,RELEASE,THEM,IN,;
    12437   01 0353C 3  C0       A         REVERSE,ORDER
            01 0353D    0F       A
            01 0353D 1  10       A
            01 0353D 2  01       A
            01 0353D 3  05       A
            01 0353E    00       A
            01 0353E 1  02       A
            01 0353E 2  18       A
            01 0353E 3  E8       A
            01 0353F    91       A
            01 0353F 1  FF76     A
            01 0353F 3  FFEB     A
            01 03540 1  FF77     A
            01 03540 3  FE28     A
            01 03541 1  FFEC     A
            01 03541 3  60       A
    12438                             MSGX C0,#1,#6,#0,#1,HY,%1,#1,%5,TESTS,THAT,COUNTERZERO,AND,PCP,;
    12439   01 03542    C0       A         INTS,PE,CAN,BE,TRIGGERED
            01 03542 1  13       A
            01 03542 2  01       A
            01 03542 3  06       A
            01 03543    00       A
            01 03543 1  01       A
            01 03543 2  28       A
            01 03543 3  10       A
            01 03544    01       A
            01 03544 1  14       A
            01 03544 2  44       A
            01 03544 3  85       A
            01 03545    FF8E     A
            01 03545 2  91       A
            01 03545 3  9D       A
            01 03546    FF75     A
            01 03546 2  1F       A
            01 03546 3  A6       A
            01 03547    AF       A
            01 03547 1  EE       A
    12440   01 03547 2  C0       A    MSGX C0,%1,#1,#6,#0,#5,%8,WITHOUT,USING,A,WRITE,DIRECT,COMMAND
            01 03547 3  0D       A
            01 03548    10       A
            01 03548 1  01       A
            01 03548 2  06       A
            01 03548 3  00       A
            01 03549    05       A
            01 03549 1  17       A
            01 03549 2  FFED     A
            01 0354A    4B       A
            01 0354A 1  CE       A
            01 0354A 2  61       A
            01 0354A 3  36       A
            01 0354B    FF1F     A
    12441                             MSGX C0,#1,#7,#0,#1,%2,#1,HY,AB,#8,%1,EXERCISE,ALL,INT,PE,;
    12442   01 0354B 2  C0       A         LEVELS,WITH,FIXED,PATTERNS
            01 0354B 3  13       A
            01 0354C    01       A
            01 0354C 1  07       A
            01 0354C 2  00       A
            01 0354C 3  01       A
            01 0354D    11       A
            01 0354D 1  01       A
            01 0354D 2  28       A
            01 0354D 3  FE2C     A
            01 0354E 1  08       A
            01 0354E 2  10       A
            01 0354E 3  FFC2     A
            01 0354F 1  A1       A
            01 0354F 2  A8       A
            01 0354F 3  1F       A
            01 03550    41       A
            01 03550 1  88       A
            01 03550 2  63       A
            01 03550 3  FF05     A
    12443                             MSGX C0,#1,#8,#0,#1,%2,#1,HY,FFFFFFFF,SETS,EACH,LEVEL,TO,ACTIVE,;
    12444   01 03551 1  C0       A         CO,RELEASES,WITH,LPSD
            01 03551 2  12       A
            01 03551 3  01       A
            01 03552    08       A
            01 03552 1  00       A
            01 03552 2  01       A
            01 03552 3  11       A
            01 03553    01       A
            01 03553 1  28       A
            01 03553 2  FFC3     A
            01 03554    FF74     A
            01 03554 2  82       A
            01 03554 3  52       A
            01 03555    AD       A
            01 03555 1  40       A
            01 03555 2  20       A
            01 03555 3  FFC4     A
            01 03556 1  88       A
            01 03556 2  FF78     A
    12445                             MSGX D1,#2,#1,#0,#1,HY,%1,#1,HY,#2,A,EXECUTES,NON,HY,EXISTANT,;
    12446   01 03557    D1       A         INSTRUCTIONS
            01 03557 1  10       A
            01 03557 2  02       A
            01 03557 3  01       A
            01 03558    00       A
            01 03558 1  01       A
            01 03558 2  28       A
            01 03558 3  10       A
            01 03559    01       A
            01 03559 1  28       A
            01 03559 2  02       A
            01 03559 3  CE       A
            01 0355A    FF0F     A
            01 0355A 2  A9       A
            01 0355A 3  28       A
            01 0355B    FFC5     A
            01 0355B 2  E0       A
    12447   01 0355B 3  C0       A    MSGX C0,%1,#2,#1,#0,#2
            01 0355C    06       A
            01 0355C 1  10       A
            01 0355C 2  02       A
            01 0355C 3  01       A
            01 0355D    00       A
            01 0355D 1  02       A
    12448                             MSGX C0,#2,#2,#0,#1,HY,%1,#1,%5,SEARCHES,FOR,NON,HY,EXISTANT,;
    12449   01 0355D 2  C0       A         MEMORY
            01 0355D 3  0F       A
            01 0355E    02       A
            01 0355E 1  02       A
            01 0355E 2  00       A
            01 0355E 3  01       A
            01 0355F    28       A
            01 0355F 1  10       A
            01 0355F 2  01       A
            01 0355F 3  14       A
            01 03560    FFC6     A
            01 03560 2  9A       A
            01 03560 3  A9       A
            01 03561    28       A
            01 03561 1  FFC5     A
            01 03561 3  37       A
    12450   01 03562    C0       A    MSGX C0,%1,#2,#2,#0,#2
            01 03562 1  06       A
            01 03562 2  10       A
            01 03562 3  02       A
            01 03563    02       A
            01 03563 1  00       A
            01 03563 2  02       A
    12451                             MSGX C0,#2,#3,#0,#1,HY,%1,#1,HY,E,%3,EXECUTES,PRIVILEGED,;
    12452   01 03563 3  C0       A         INSTRUCTIONS,IN,SLAVE,MODE
            01 03564    11       A
            01 03564 1  02       A
            01 03564 2  03       A
            01 03564 3  00       A
            01 03565    01       A
            01 03565 1  28       A
            01 03565 2  10       A
            01 03565 3  01       A
            01 03566    28       A
            01 03566 1  D3       A
            01 03566 2  12       A
            01 03566 3  FF0F     A
            01 03567 1  FF98     A
            01 03567 3  E0       A
            01 03568    FE28     A
            01 03568 2  FF52     A
            01 03569    FF79     A
    12453   01 03569 2  C0       A    MSGX C0,%1,#2,#3,#0,#2
            01 03569 3  06       A
            01 0356A    10       A
            01 0356A 1  02       A
            01 0356A 2  03       A
            01 0356A 3  00       A
            01 0356B    02       A
    12454                             MSGX C0,#2,#4,#0,#1,HY,%1,#1,HY,#2,%2,EXECUTES,PRIVILEGED,;
    12455   01 0356B 1  C0       A         INSTRUCTIONS,IN,NON,HY,EXIST,PE,MEMORY
            01 0356B 2  14       A
            01 0356B 3  02       A
            01 0356C    04       A
            01 0356C 1  00       A
            01 0356C 2  01       A
            01 0356C 3  28       A
            01 0356D    10       A
            01 0356D 1  01       A
            01 0356D 2  28       A
            01 0356D 3  02       A
            01 0356E    11       A
            01 0356E 1  FF0F     A
            01 0356E 3  FF98     A
            01 0356F 1  E0       A
            01 0356F 2  FE28     A
            01 03570    A9       A
            01 03570 1  28       A
            01 03570 2  FF53     A
            01 03571    1F       A
            01 03571 1  37       A
    12456   01 03571 2  C0       A    MSGX C0,%1,#2,#4,#0,#2
            01 03571 3  06       A
            01 03572    10       A
            01 03572 1  02       A
            01 03572 2  04       A
            01 03572 3  00       A
            01 03573    02       A
    12457                             MSGX C0,#2,#5,#0,#1,HY,%1,#1,HY,D,%2,EXECUTES,INSTRUCTIONS,;
    12458   01 03573 1  C0       A         THAT,VIOLATE,MEMORY,PROTECTION
            01 03573 2  11       A
            01 03573 3  02       A
            01 03574    05       A
            01 03574 1  00       A
            01 03574 2  01       A
            01 03574 3  28       A
            01 03575    10       A
            01 03575 1  01       A
            01 03575 2  28       A
            01 03575 3  D2       A
            01 03576    11       A
            01 03576 1  FF0F     A
            01 03576 3  E0       A
            01 03577    85       A
            01 03577 1  FFEE     A
            01 03577 3  37       A
            01 03578    FF99     A
    12459   01 03578 2  C0       A    MSGX C0,%1,#2,#5,#0,#4
            01 03578 3  06       A
            01 03579    10       A
            01 03579 1  02       A
            01 03579 2  05       A
            01 03579 3  00       A
            01 0357A    04       A
    12460   01 0357A 1  C0       A    MSGX C0,#2,#6,#0,#1,HY,#2,%3,EXECUTES,AP,NO,TRAP,AP,%1,TESTS       *A02
            01 0357A 2  0F       A
            01 0357A 3  02       A
            01 0357B    06       A
            01 0357B 1  00       A
            01 0357B 2  01       A
            01 0357B 3  28       A
            01 0357C    02       A
            01 0357C 1  12       A
            01 0357C 2  FF0F     A
            01 0357D    23       A
            01 0357D 1  C1       A
            01 0357D 2  78       A
            01 0357D 3  23       A
            01 0357E    10       A
            01 0357E 1  44       A
    12461                             MSGX C0,#2,#7,#0,#1,HY,%1,#1,HY,B,%3,EXECUTES,UNIMPLEMENTED,;
    12462   01 0357E 2  C0       A         INSTRUCTIONS,OP,SIGMA,#8,ONLY,CP
            01 0357E 3  13       A
            01 0357F    02       A
            01 0357F 1  07       A
            01 0357F 2  00       A
            01 0357F 3  01       A
            01 03580    28       A
            01 03580 1  10       A
            01 03580 2  01       A
            01 03580 3  28       A
            01 03581    D0       A
            01 03581 1  12       A
            01 03581 2  FF0F     A
            01 03582    DD       A
            01 03582 1  E0       A
            01 03582 2  2F       A
            01 03582 3  4E       A
            01 03583    08       A
            01 03583 1  79       A
            01 03583 2  30       A
    12463   01 03583 3  C0       A    MSGX C0,%1,#2,#7,#0,#2
            01 03584    06       A
            01 03584 1  10       A
            01 03584 2  02       A
            01 03584 3  07       A
            01 03585    00       A
            01 03585 1  02       A
    12464                             MSGX C0,#2,#8,#0,#1,HY,%1,#1,HY,#1,#0,%2,EXECUTES,ALL,CALL,;
    12465   01 03585 2  C0       A         INSTRUCTIONS
            01 03585 3  10       A
            01 03586    02       A
            01 03586 1  08       A
            01 03586 2  00       A
            01 03586 3  01       A
            01 03587    28       A
            01 03587 1  10       A
            01 03587 2  01       A
            01 03587 3  28       A
            01 03588    01       A
            01 03588 1  00       A
            01 03588 2  11       A
            01 03588 3  FF0F     A
            01 03589 1  A1       A
            01 03589 2  FF7A     A
            01 0358A    E0       A
    12466   01 0358A 1  C0       A    MSGX C0,%1,#2,#8,#0,#8
            01 0358A 2  06       A
            01 0358A 3  10       A
            01 0358B    02       A
            01 0358B 1  08       A
            01 0358B 2  00       A
            01 0358B 3  08       A
    12467                             MSGX C0,#2,#9,#0,#1,HY,%1,#1,HY,#7,%3,EXECUTES,TRAP,;
    12468   01 0358C    C0       A         CONDITIONS,OF,STACK,INSTRUCTIONS
            01 0358C 1  11       A
            01 0358C 2  02       A
            01 0358C 3  09       A
            01 0358D    00       A
            01 0358D 1  01       A
            01 0358D 2  28       A
            01 0358D 3  10       A
            01 0358E    01       A
            01 0358E 1  28       A
            01 0358E 2  07       A
            01 0358E 3  12       A
            01 0358F    FF0F     A
            01 0358F 2  78       A
            01 0358F 3  FF9A     A
            01 03590 1  AB       A
            01 03590 2  FF54     A
            01 03591    E0       A
    12469   01 03591 1  C0       A    MSGX C0,%1,#2,#9,#0,C
            01 03591 2  06       A
            01 03591 3  10       A
            01 03592    02       A
            01 03592 1  09       A
            01 03592 2  00       A
            01 03592 3  D1       A
    12470                             MSGX C0,#2,A,%0,#0,#1,HY,#2,%3,EXECUTES,FIXED,POINT,;              *A01
    12471   01 03593    C0       A         OVERFLOW,CONDITIONS
            01 03593 1  0E       A
            01 03593 2  02       A
            01 03593 3  CE       A
            01 03594    33       A
            01 03594 1  00       A
            01 03594 2  01       A
            01 03594 3  28       A
            01 03595    02       A
            01 03595 1  12       A
            01 03595 2  FF0F     A
            01 03596    63       A
            01 03596 1  FF4D     A
            01 03596 3  FFC7     A
            01 03597 1  FF9A     A
    12472   01 03597 3  C0       A    MSGX C0,%1,#2,A,%0,#1,B                                            *A01
            01 03598    07       A
            01 03598 1  10       A
            01 03598 2  02       A
            01 03598 3  CE       A
            01 03599    33       A
            01 03599 1  01       A
            01 03599 2  D0       A
    12473   01 03599 3  C0       A    MSGX C0,#2,B,%0,#0,#1,%5,EXECUTES,FLOATING,POINT,TRAP,TESTS        *A02
            01 0359A    0C       A
            01 0359A 1  02       A
            01 0359A 2  D0       A
            01 0359A 3  33       A
            01 0359B    00       A
            01 0359B 1  01       A
            01 0359B 2  14       A
            01 0359B 3  FF0F     A
            01 0359C 1  FE32     A
            01 0359C 3  FF4D     A
            01 0359D 1  78       A
            01 0359D 2  44       A
    12474                             MSGX C0,#2,C,%0,#0,#1,HY,%1,#1,HY,#3,%2,EXECUTES,DECIMAL,TRAPS,OP,;*A01
    12475   01 0359D 3  C0       A         SIGMA,#8,SL,#9,CP,ONLY
            01 0359E    16       A
            01 0359E 1  02       A
            01 0359E 2  D1       A
            01 0359E 3  33       A
            01 0359F    00       A
            01 0359F 1  01       A
            01 0359F 2  28       A
            01 0359F 3  10       A
            01 035A0    01       A
            01 035A0 1  28       A
            01 035A0 2  03       A
            01 035A0 3  11       A
            01 035A1    FF0F     A
            01 035A1 2  FFEF     A
            01 035A2    5E       A
            01 035A2 1  2F       A
            01 035A2 2  4E       A
            01 035A2 3  08       A
            01 035A3    27       A
            01 035A3 1  09       A
            01 035A3 2  30       A
            01 035A3 3  79       A
    12476   01 035A4    C0       A    MSGX C0,%1,#2,C,%0,#0,#2                                           *A01
            01 035A4 1  07       A
            01 035A4 2  10       A
            01 035A4 3  02       A
            01 035A5    D1       A
            01 035A5 1  33       A
            01 035A5 2  00       A
            01 035A5 3  02       A
    12477                             MSGX C0,#2,D,%0,#0,#1,HY,%1,#1,%4,EXECUTES,AN,ILLEGAL,WRITE,DIRECT,;
    12478   01 035A6    C0       A         TO,PRODUCE
            01 035A6 1  11       A
            01 035A6 2  02       A
            01 035A6 3  D2       A
            01 035A7    33       A
            01 035A7 1  00       A
            01 035A7 2  01       A
            01 035A7 3  28       A
            01 035A8    10       A
            01 035A8 1  01       A
            01 035A8 2  13       A
            01 035A8 3  FF0F     A
            01 035A9 1  CB       A
            01 035A9 2  FFF0     A
            01 035AA    61       A
            01 035AA 1  36       A
            01 035AA 2  AD       A
            01 035AA 3  FFF1     A
    12479   01 035AB 1  C0       A    MSGX C0,%1,#2,D,%0,#0,#2,%8,A,WATCHDOG,TIMER,TRAP                  *A01
            01 035AB 2  0C       A
            01 035AB 3  10       A
            01 035AC    02       A
            01 035AC 1  D2       A
            01 035AC 2  33       A
            01 035AC 3  00       A
            01 035AD    02       A
            01 035AD 1  17       A
            01 035AD 2  CE       A
            01 035AD 3  FF55     A
            01 035AE 1  FF56     A
            01 035AE 3  78       A
    12480   01 035AF    C0       A    MSGX C0,#2,E,%0,#0,#1,HY,%7,PARITY,ERROR,TRAP                      *B00
            01 035AF 1  0B       A
            01 035AF 2  02       A
            01 035AF 3  D3       A
            01 035B0    33       A
            01 035B0 1  00       A
            01 035B0 2  01       A
            01 035B0 3  28       A
            01 035B1    16       A
            01 035B1 1  FE35     A
            01 035B1 3  47       A
            01 035B2    78       A
    12481   01 035B2 1  C0       A    MSGX C0,#2,F,%0,#0,#1,HY,%7,INSTRUCTION,EXCEPTION,TRAPS            *A01
            01 035B2 2  0B       A
            01 035B2 3  02       A
            01 035B3    D4       A
            01 035B3 1  33       A
            01 035B3 2  00       A
            01 035B3 3  01       A
            01 035B4    28       A
            01 035B4 1  16       A
            01 035B4 2  E2       A
            01 035B4 3  FFAA     A
            01 035B5 1  5E       A
    12482   01 035B5 2  C0       A    MSGX C0,%1,#2,F,%0,#0,#6                                           *A01
            01 035B5 3  07       A
            01 035B6    10       A
            01 035B6 1  02       A
            01 035B6 2  D4       A
            01 035B6 3  33       A
            01 035B7    00       A
            01 035B7 1  06       A
    12483                             MSGX D1,#3,#1,#0,#1,%2,#1,HY,FFF,EXECUTES,RANDOM,INTERRUPT,;
    12484   01 035B7 2  D1       A         PATTERN,TESTS
            01 035B7 3  0E       A
            01 035B8    03       A
            01 035B8 1  01       A
            01 035B8 2  00       A
            01 035B8 3  01       A
            01 035B9    11       A
            01 035B9 1  01       A
            01 035B9 2  28       A
            01 035B9 3  97       A
            01 035BA    FF0F     A
            01 035BA 2  FF3B     A
            01 035BB    E8       A
            01 035BB 1  FF15     A
            01 035BB 3  44       A
    12485                            *
    12486                            *
    12487                                     LOCAL
    12488                            *
    12489   01 035BC                          LOC      %%
            01 035BC
    12490         01 035BC           MSGEND   EQU      %
    12491                            *
    12492   01 03326 2                        ORG      SYNTAX%EXPL                                       *A02
            01 03326 2
    12493                            *                                                                   *A02
    12494                            *   B U F F E R   A R E A    *************                          *A02
    12495                            *                                                                   *A02
    12496                            *                                                                   *A02
    12497                            *
    12498                                     BOUND    8
    12499         01 03328           LAST     EQU      %
    12500                            *
    12501                            *
    12502                            *  THE FOLLOWING AREA IS USED FOR TABLES BUILT DURING PROGRAM EXECUTION
    12503                            *   THE TABLES OVERWRITE MOST OF THE DIRECTIVE EXPLANATIONS         *A02
    12504                            *                                                                   *A02
    12505                            *
    12506                            *        LABEL                      SIZE
    12507                            *       -------              ------------------------
    12508                            *
    12509                            *        OUTBUF   72 CHARACTERS (18 WORDS)  EBCDIC OUTPUT BUFFER
    12510                            *
    12511                            *        PSDS     512 QUAD WORDS (2048 WORDS)    STORED PROGRAM STATUS
    12512                            *                                                        DOUBLE WORDS
    12513                            *        ACCESS   512 WORDS             BAL,LINK TO HANDLER
    12514                            *
    12515                            *            TRAPS                      START OF TRAP BALS
    12516                            *            PWRFAIL                    POWER INT. BALS
    12517                            *            VALID                      START OF INTERRUPT BALS
    12518                            *
    12519                            *        HISTORY  238 DOUBLE WORDS (476)  RECORD OF INTERRUPT SEQUENCE
    12520                            *
    12521                            *        ILEGAL   100 WORD              LIST OF NON-VALID INTERRUPTS
    12522                            *
    12523                            *
    12524         01 03328           PSDS     EQU      LAST                                              *A02
    12525         01 03B28           ACCESS   EQU      PSDS+2048
    12526         01 03B68           TRAPS    EQU      ACCESS+64
    12527         01 03B78           PWRFAIL  EQU      TRAPS+16
    12528         01 03B7A           VALID    EQU      PWRFAIL+2
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   29
A   12529                                     PAGE
    12530         01 03D28           HISTORY  EQU      VALID+430
    12531                            *
    12532                            * INTERRUPT HISTORY TABLE
    12533                            *        238 DOUBLE WORD RECORD OF INTERRUPT HANDLING ROUTINE
    12534                            *        ACTION.  TABLE IS CLEARED AT START OF EACH SUBTEST.
    12535                            *    FORMAT:
    12536                            *        WORD 1 - VARIABLE DATA
    12537                            *           BYTE 0 = EXPECTED SEQUENCE (HEX)
    12538                            *           BYTE 2 = INTERRUPT COUNT (HEX)
    12539                            *           BYTE 3 = ACTUAL SEQUENCE (HEX)
    12540                            *
    12541                            *        WORD 2 - FIXED DATA
    12542                            *           BITS 32-35 = WRITE DIRECT GROUP NUMBER
    12543                            *           BITS 36-39 = LEVEL (PRIORITY WITHIN THE GROUP- 0 TO F (HEX))
    12544                            *           BITS 55-63 = INTERRUPT LOCATION
    12545                            *
    12546                            *
    12547         01 03F04           HISTORYEND EQU    HISTORY+476
    12548         01 03F04           OUTBUF            EQU      HISTORYEND                               *A02
    12549         01 03F16           ILEGAL   EQU      OUTBUF+18                                         *A02
    12550                            *                                                                   *A02
    12551         01 03F7A           BUFFEREND EQU     ILEGAL+100                                        *A02
    12552                            *                                                                   *B00
    12553   01 035BC                          ORG      MSGEND                                            *A02
            01 035BC
    12554   01 035BC    00000085 A            CHECK    X'3FFF'-ABSVAL(BUFFEREND)                         *B00
    12555                            *   THIS INSTRUCTION CHECKS THAT THE PROGRAM CAN BE RUN IN          *B00
    12556                            *        16K OF CORE.   IF AN ERROR MESSAGE IS GENERATED, INSTRUCTIONS
    12557                            *        HAVE BEEN ADDED TO PUSH IT OVER THE LIMIT.  CHECK LABEL 'PATCH'
    12558                            *        AND MOVE THE CODE IMMEDIATELY FOLLOWING IT TO REDUCE THE   *B00
    12559                            *        PATCH AREA OR EXPAND THE NUMBER OF MESSAGES THAT ARE OVERLAID
    12560                            *          (SEE INITPSD ROUTINE FOR OVERLAY)                        *B00
    12561                            *                                                                   *B00
    12562                            *
    12563                            *
    12564                                     TITLE    'LOADER ENTRANCE'
    12565                                              SPACE    8








    12566   01 035BD    22100000 A            LI,X1    0
    12567   01 035BE    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
    12568   01 035BF    EA6003C8              BAL,X6   *#GUIDE%
    12569   01 035C0    0420D708              GEN,8,3,21 4,1,BA(PROGTEXT)                                *B00
    12570   01 035C1    2520D7B0              GEN,8,3,21  37,1,BA(MODLIST)                               *B03
    12571                            *
    12572                            PROGTEXT TEXTCS   ;
    12573         01 035C2            'INT/TRAP-B03'                                                     *B01
    12574                                     TEXTCS   ;                                                 *A02
    12575         01 035C6            'SIGMA 8/9 INTERRUPT/TRAP DIAGNOSTIC'
    12576                                     TEXTCS   ;
    12577         01 035CF            '       PROGRAM 706137-11/51B03   MANUAL 901878'                   *B02
    12578         01 035DB                    TEXTCS   ' '
    12579                            TESTMACH TEXTCS   ;                                                 *A02
    12580         01 035DC            '   TESTING A SIGMA 8'                                             *A02
    12581                                     TEXTCS   ;                                                 *A02
    12582         01 035E2            ' DECIMAL ARITH. AND MAP TESTS SKIPPED'                            *A02
    12583                            *                                                                   *A02
    12584                            MODLIST  TEXTCS   ;
    12585         01 035EC            ' '                                                                *B01
    12586                                     TEXTCS   ;                                                 *B03
    12587         01 035ED            'REVISION *B03'                                                    *B03
    12588                                     TEXTCS   ;                                                 *B03
    12589         01 035F1            '        1.  SKIP BYTE STRING TESTS IF SIGMA9 MOD3'                *B03
    12590                                     TEXTCS   ;                                                 *B03
    12591         01 035FE            '         2.  ADJUST COUNTERS IF SIGMA9 MOD2'                      *B03
    12592                                     TEXTCS   ;                                                 *B02
    12593         01 03609            'INT/TRAP B02 REVISIONS'                                           *B02
    12594                                     TEXTCS   ;                                                 *B02
    12595         01 0360F            '-----------------------'                                          *B02
    12596                                     TEXTCS   ;                                                 *B02
    12597         01 03615            '       1. ALLOW EXT INT GROUP ADJACENT TO OVERRIDE GROUP'         *B02
    12598                                     TEXTCS   ;                                                 *B02
    12599         01 03624            '       2. ALLOW USE OF MORE THAN 2 EXT INT GROUPS.'               *B02
    12600                                     TEXTCS   ;                                                 *B01
    12601         01 03631            'INT/TRAP B01 REVISIONS '                                          *B01
    12602                                     TEXTCS   ;                                                 *B01
    12603         01 03637            '--------------------'                                             *B01
    12604                                     TEXTCS   ;                                                 *B01
    12605         01 0363D            '       1. TO PERMIT PROGRAM TO BYPASS TEST 26XX ON SIGMA 8'       *B01
    12606                                     TEXTCS   ;                                                 *B01
    12607         01 0364C            '       2.  TO CORRECT BYPASS  MESSAGE DISPLAY'                    *B01
    12608                                     TEXTCS   ;                                                 *B01
    12609         01 03658            'INT/TRAP B00 REVISIONS'                                           *B00
    12610                                     TEXTCS   ;                                                 *B00
    12611         01 0365E            '--------------------'                                             *B00
    12612                                     TEXTCS   ;                                                 *B00
    12613         01 03664            '       1. ADDED REMOTE CAPABILITIES'                              *B00
    12614                                     TEXTCS   ;                                                 *B00
    12615         01 0366D            '         BY:'                                                     *B00
    12616                                     TEXTCS   ;                                                 *B00
    12617         01 03671            '            CALLING SAMPLE ROUTINE IN GUIDE IN PLACE OF'          *B00
    12618                                     TEXTCS   ;                                                 *B00
    12619         01 0367F            '              SAMPLING THE I/O BUFFER'                            *B00
    12620                                     TEXTCS   ;                                                 *B00
    12621         01 03689            '            MASKING THE TESTING OF THE COC INTERRUPT LEVELS'      *B00
    12622                                     TEXTCS   ;                                                 *B00
    12623         01 03698            '            SAVING ALL GROUP 0 INT. STATES BEFORE GOING'          *B00
    12624                                     TEXTCS   ;                                                 *B00
    12625         01 036A6            '              TO GUIDE CONTROL AND RESTORING THEM ON RETURN'      *B00
    12626                                     TEXTCS   ;                                                 *B00
    12627         01 036B5            '       2. ENABLED DIRECT ACCESS OF TEST 2601'                     *B00
    12628                                     TEXTCS   ;                                                 *B00
    12629         01 036C1            '       3. ADDED EXPLANATION OF TEST 2EXX'                         *B00
    12630                                     TEXTCS   ;                                                 *B00
    12631         01 036CC            '       4. CLEAR MFI LINE ON UNEXPECTED PARITY TRAP OR INT.'       *B00
    12632                                     TEXTCS   ;                                                 *B00
    12633         01 036DB            '       5. INITIALIZE CLOCKS TO NORMAL (TAR-12334)'                *B00
    12634                                     TEXTCS   ;                                                 *B00
    12635         01 036E8            '       6. CORRECTED ''CHKALL'' ROUTINE TO ALLOW PRINTOUT'         *B00
    12636                                     TEXTCS   ;                                                 *B00
    12637         01 036F6            '       7. INHIBIT FURTHER INTS. AFTER TST 17XX AND 31XX TESTS'    *B00
    12638                                     TEXTCS   ;                                                 *B00
    12639         01 03706            '       8. INITIALIZE AC REGISTERS TO ZERO (FIRST 16K)'            *B00
    12640                                     TEXTCS   ;                                                 *B00
    12641         01 03714            '       9. CLEAR PDF ON SHORT LOOPS (TAR 10826)'                   *B00
    12642                                     TEXTCS   ;                                                 *B00
    12643         01 03720            '       10. ALLOW SHORT LOOP ON TESTS 1104-11FF'                   *B00
    12644         01 0372C                    TEXTCS   '  '                                              *B00
    12645         01 035BE           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 0372D   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   00:07 JUN 21,'83    SIGMA 8/9 INT/TRAP DIAG 706137-11/51B03  3/16/74                      PAGE   30
A  A              10151-DO     10152/GEN
   AB             11195-DP     12441/MSGX
   ABORT           1531/CI      1540/BAL     2260/BAL     2781/BAL     2861/BAL     5843-LCI     7301/BAL
      7302/BAL     7370/BAL     7437/BAL     9526/BAL     9574/BAL
   ABORTFLAG       2162/MTW     2258/MTW    10015-DATA
   ABORTMSG1       5845/SEND   11794-EQU
   ABORTMSG2       5850/SEND   11796-EQU
   ABSOLUTE       10881-DP     12188/MSGX   12275/MSGX
   ACC%PROT%CDW    3967/LD      4110-DATA    4209/LD      4230/LD
   ACC%PROT%CODE   3964/LB      4164-EQU
   ACC%PROT%IMAGE  3966/STW     4110/DATA    4174-DATA    4208/STW     4229/STW
   ACC%PROT%SHIFT  3963/LI      4206/LI      9847-EQU
   ACC%PROT%START  4111/GEN     9850-EQU
   ACCESS          1222/STW     7013/LW      7018/LW      7863/LI     10132/DATA   12525-EQU    12526/EQU
   ACCESSP         1305/SW      1414/SW      1439/SW     10132-DATA
   ACT            11179-DP     12005/MSGX   12328/MSGX
   ACTCOUNT        2524/STW     2534/STW     2543/STW     7311/LI     10014-DATA
   ACTION         10921-DP     12050/MSGX   12187/MSGX
   ACTIVATE         985-EQU     1929/WD      1940/WD      2003/DATA    2007/DATA    2009/DATA    2011/DATA
      2011/DATA    2013/DATA    2015/DATA    2019/DATA    2019/DATA    3167/LI      9452/WD      9549/WD
   ACTIVE         10667-DP     11987/MSGX   12005/MSGX   12046/MSGX   12046/MSGX   12066/MSGX   12328/MSGX
     12443/MSGX
   ACTIVELOCN      7243/LI      8877/STW     8887/STW     9544/LW     10013-DATA
   ACTIVELVL       1099/LI      1104/STW     1106/MTW     1312/LW      1425/LW      1479/LW      2852/LW
      2857/CW      7241/LW      8870/STW     8885/STW     9552/CW     10012-DATA
   ACTIVITY       11095-DP     12128/MSGX
   ACTUAL         10918-DP     11860/MSGX   11988/MSGX   12004/MSGX   12011/MSGX   12015/MSGX   12019/MSGX
     12027/MSGX   12031/MSGX   12048/MSGX   12057/MSGX   12153/MSGX
   AD             10637-DP     11827/MSGX   12233/MSGX
   ADDR           10974-DP     11804/MSGX   12301/MSGX
   ADDRESS        10894-DP     11795/MSGX   11994/MSGX   12010/MSGX   12011/MSGX   12023/MSGX   12030/MSGX
     12031/MSGX   12033/MSGX   12078/MSGX   12081/MSGX   12291/MSGX   12293/MSGX   12301/MSGX   12324/MSGX
   ADDRESSED      11057-DP     11980/MSGX
   ADDRESSING     11034-DP     12432/MSGX
   AFTER          10692-DP     12048/MSGX   12198/MSGX   12200/MSGX   12202/MSGX   12392/MSGX
   AK             10645-DP     11779/MSGX   11779/MSGX   11785/MSGX   11785/MSGX   11787/MSGX   11787/MSGX
     11787/MSGX   11787/MSGX   11810/MSGX   11810/MSGX   11810/MSGX   11810/MSGX   11810/MSGX   11810/MSGX
     11817/MSGX   11817/MSGX   11817/MSGX   11823/MSGX   11832/MSGX   11832/MSGX   11832/MSGX   11832/MSGX
     11832/MSGX   11832/MSGX   11837/MSGX   11837/MSGX   11837/MSGX   11837/MSGX   11837/MSGX   11837/MSGX
     11851/MSGX   11851/MSGX   11851/MSGX   11853/MSGX   11878/MSGX   11878/MSGX   11891/MSGX   11891/MSGX
     11891/MSGX   11891/MSGX   11904/MSGX   11904/MSGX   11904/MSGX   11904/MSGX   11909/MSGX   11909/MSGX
     11916/MSGX   11916/MSGX   11916/MSGX   11923/MSGX   11923/MSGX   11944/MSGX   11944/MSGX   11958/MSGX
     11958/MSGX   11984/MSGX   11984/MSGX   11984/MSGX   11984/MSGX   11989/MSGX   11989/MSGX   11989/MSGX
     12051/MSGX   12153/MSGX   12171/MSGX   12171/MSGX   12171/MSGX   12171/MSGX   12204/MSGX   12204/MSGX
     12204/MSGX   12268/MSGX   12268/MSGX   12268/MSGX   12268/MSGX   12268/MSGX   12268/MSGX   12320/MSGX
     12349/MSGX   12349/MSGX   12349/MSGX   12385/MSGX   12385/MSGX   12406/MSGX   12406/MSGX
   ALL            10770-DP     11913/MSGX   11972/MSGX   12240/MSGX   12314/MSGX   12314/MSGX   12344/MSGX
     12347/MSGX   12362/MSGX   12441/MSGX   12464/MSGX
   ALLOW          11157-DP     12220/MSGX
   ALLOWS         10658-DP     11924/MSGX   12214/MSGX   12286/MSGX   12407/MSGX
   ALPHANUMERIC   11018-DP     11973/MSGX
   ALSO           10984-DP     12214/MSGX
   ALTER%T         8394-EQU     9949/E
   ALTERED        10908-DP     12108/MSGX   12111/MSGX   12113/MSGX   12116/MSGX
   AN             10814-DP     12067/MSGX   12393/MSGX   12434/MSGX   12477/MSGX
   AND            10753-DP     11811/MSGX   11811/MSGX   11927/MSGX   11955/MSGX   11958/MSGX   11992/MSGX
     12038/MSGX   12085/MSGX   12087/MSGX   12089/MSGX   12206/MSGX   12210/MSGX   12220/MSGX   12242/MSGX
     12269/MSGX   12273/MSGX   12284/MSGX   12291/MSGX   12314/MSGX   12326/MSGX   12327/MSGX   12366/MSGX
     12388/MSGX   12409/MSGX   12411/MSGX   12412/MSGX   12415/MSGX   12421/MSGX   12429/MSGX   12436/MSGX
     12438/MSGX
   ANY            10747-DP     11787/MSGX   12184/MSGX   12186/MSGX   12287/MSGX   12409/MSGX   12434/MSGX
   AP             10634-DP     11900/MSGX   11900/MSGX   11902/MSGX   11902/MSGX   11902/MSGX   11902/MSGX
     11972/MSGX   11973/MSGX   11976/MSGX   11976/MSGX   11979/MSGX   11979/MSGX   12038/MSGX   12069/MSGX
     12069/MSGX   12096/MSGX   12096/MSGX   12181/MSGX   12181/MSGX   12183/MSGX   12183/MSGX   12188/MSGX
     12188/MSGX   12188/MSGX   12188/MSGX   12190/MSGX   12190/MSGX   12190/MSGX   12190/MSGX   12192/MSGX
     12192/MSGX   12192/MSGX   12192/MSGX   12195/MSGX   12195/MSGX   12195/MSGX   12195/MSGX   12198/MSGX
     12198/MSGX   12198/MSGX   12198/MSGX   12204/MSGX   12204/MSGX   12206/MSGX   12206/MSGX   12210/MSGX
     12210/MSGX   12214/MSGX   12214/MSGX   12214/MSGX   12214/MSGX   12218/MSGX   12218/MSGX   12222/MSGX
     12222/MSGX   12233/MSGX   12233/MSGX   12235/MSGX   12235/MSGX   12236/MSGX   12236/MSGX   12237/MSGX
     12237/MSGX   12238/MSGX   12238/MSGX   12240/MSGX   12240/MSGX   12242/MSGX   12242/MSGX   12247/MSGX
     12247/MSGX   12250/MSGX   12250/MSGX   12253/MSGX   12253/MSGX   12254/MSGX   12254/MSGX   12269/MSGX
     12284/MSGX   12284/MSGX   12309/MSGX   12309/MSGX   12341/MSGX   12341/MSGX   12360/MSGX   12360/MSGX
     12421/MSGX   12460/MSGX   12460/MSGX
   ARE            10756-DP     11817/MSGX   11951/MSGX   11972/MSGX
   ARM            10773-DP     11927/MSGX   12005/MSGX   12122/MSGX   12326/MSGX   12328/MSGX   12366/MSGX
   ARM%ENBL        2879-WD
   ARM:WAIT         972-EQU     8852/RD      9000/RD      9371/RD      9516/RD
   ARMALL          2271/BAL     5868-EQU
   ARMALL#A        5872-EQU     5884/BIR
   ARMD             988-EQU     1939/WD      2003/DATA    2009/DATA    2011/DATA    2015/DATA    2015/DATA
      2017/DATA    2017/DATA    2019/DATA    2021/DATA    2021/DATA    2292/WD      3000/WD      3192/WD
      5338/WD      9548/WD      9648/WD      9651/WD
   ARME             987-EQU     1173/WD      1866/WD      2003/DATA    2005/DATA    2007/DATA    2011/DATA
      2011/DATA    2013/DATA    2017/DATA    2019/DATA    2019/DATA    2275/WD      2347/WD      2469/WD
      2476/WD      2483/WD      2795/WD      2879/WD      2954/WD      3190/WD      5432/WD      5526/WD
      5569/WD      5881/WD      5887/WD      9402/WD      9431/WD
   ARMED          10689-DP     11883/MSGX   11927/MSGX   12001/MSGX   12005/MSGX   12042/MSGX   12042/MSGX
     12328/MSGX   12366/MSGX
   AS             10787-DP     11816/MSGX   11816/MSGX   11817/MSGX   12049/MSGX   12053/MSGX   12131/MSGX
     12188/MSGX   12190/MSGX   12214/MSGX   12271/MSGX   12432/MSGX
   ASR            11170-DP     12181/MSGX
   ASSIGNED       11086-DP     11945/MSGX
   ASSUMED        11097-DP     11779/MSGX
   AT             10783-DP     11781/MSGX   11795/MSGX   11797/MSGX   12407/MSGX   12423/MSGX
   AUTOSTATUS      5826/MTW     9327/MTW     9334/STW     9346-DATA
   AVAILABLE      11047-DP     11851/MSGX   12171/MSGX
   B              10820-DP     11873/MSGX   11885/MSGX   12119/MSGX   12122/MSGX   12125/MSGX   12128/MSGX
     12200/MSGX   12399/MSGX   12421/MSGX   12461/MSGX   12472/MSGX   12473/MSGX
   BACK%SPACE      6389/BCR     6463-EQU
   BAD%PARITY      3388/LMS     3397/STW     4249/STW     4251/LMS     4254/LMS     4272/STW     5330/STW
      5332/LMS     5342/LW      5355-DATA
   BAL            11177-DP     12293/MSGX
   BALNIMP         9039/LW     10134-BAL
   BALNORM         7022/CW      9041/LW     10133-BAL
   BALSPUR         1221/LW      1229/LW      1233/LW      7014/CW     10135-BAL
   BALTRAP         1225/LW      7026/CW     10136-BAL
   BDR            10749-DP     11790/MSGX   11813/MSGX
   BE             10784-DP     11787/MSGX   11916/MSGX   11926/MSGX   11955/MSGX   11973/MSGX   12349/MSGX
     12409/MSGX   12410/MSGX   12410/MSGX   12413/MSGX   12438/MSGX
   BECAUSE        11103-DP     11849/MSGX
   BEFORE         11141-DP     11787/MSGX   12052/MSGX   12171/MSGX
   BELOW          10699-DP     12318/MSGX   12365/MSGX
   BETWEEN        11099-DP     11811/MSGX   12210/MSGX
   BINARY         10669-DP     12018/MSGX   12019/MSGX   12038/MSGX
   BIT            10772-DP     11927/MSGX   11929/MSGX   11931/MSGX   11933/MSGX   12078/MSGX   12322/MSGX
     12366/MSGX   12368/MSGX   12370/MSGX   12372/MSGX
   BITS           10977-DP     11881/MSGX
   BLOCKS         11198-DP     11799/MSGX   11801/MSGX
   BOUND%RES       3989/LW      4056/LW      4062/LI      4096-EQU     4123/DATA
   BR             10650-DP
   BREAK          11152-DP     12181/MSGX
   BUFFER           814-CNAME
   BUFFEREND      12551-EQU    12554/CHECK
   BUFFIT          6400-CW      6461/B
   BUFWD#1         7772/LW      7782-DATA
   BUT            11174-DP     12214/MSGX
   BY             10811-DP     11972/MSGX   11973/MSGX   11976/MSGX   11980/MSGX   12078/MSGX   12081/MSGX
     12144/MSGX   12146/MSGX   12149/MSGX   12293/MSGX   12341/MSGX   12390/MSGX
   BY%RE%CHK       6005/LW      6050/STW     7506/STW    10017-DATA
   BYPASS          8550/STB     8554/STH     8555/#TYPE  10577-TEXTCS
   BYPASS%SR       5824/LW      5828/MTW     5832-DATA    6040/STW
   BYTE           11010-DP     12085/MSGX   12116/MSGX
   C              10821-DP     11873/MSGX   11885/MSGX   12131/MSGX   12165/MSGX   12202/MSGX   12400/MSGX
     12469/MSGX   12474/MSGX   12476/MSGX
   C:PMI#A         6078/B       6102-LI
   C:PMI#B         6084/B       6103-LI
   C:PMI#C         6079/B       6116-LI
   C:PMI#D         6080/B       6118-LI
   C:PMI#E         6114/B       6121-EXU     6139/BDR
   C:PMI#ER        6107/BE      6110/BE      6113/BE      6126/BE      6131/BNE     6142-#TYPE
   C:PMI#F         6123/BE      6129-EXU
   C:PMI#G         6127/B       6132-CI
   C:PMI#X         6140/B       6144-LCI
   CA               678/SET
   CALL            4495/EXU     4499/LW      4541-CAL1
   CALLED         10930-DP     12291/MSGX
   CAN            10775-DP     11916/MSGX   12349/MSGX   12434/MSGX   12438/MSGX
   CANNOT         10944-DP     11955/MSGX   12147/MSGX
   CASE           11164-DP     11816/MSGX
   CAUSES         10661-DP     11917/MSGX   12233/MSGX   12294/MSGX
   CB               678/SET
   CBSDW25         3984/LD      4036/CD      4039/LI      4123-DATA
   CC               678/SET
   CD               678/SET
   CE               678/SET
   CHAR           10981-DP     12186/MSGX
   CHECK            775-CNAME
   CHECKS         10940-DP     12426/MSGX   12429/MSGX
   CHK%CLR         6187/B       6210-EQU
   CHK%PDF         1443/BAL     3338/BAL     6160-EQU
   CHK%PDF%ON      6171/BE      6173/BE      6175/BE      6189-EQU
   CHK%PDF#X       6178/BCS     6191/BCS     6203/B       6212/BCS     6216/B       6224-LCI
   CHK%RET         1363/BAL     1384/BAL     1528-EQU
   CHK:LOOP        1782/BAL     2225/BAL     2369/BAL     2493/BAL     2827/BAL     2874/BAL     2976/BAL
      3042/BAL     3124/BAL     3240/BAL     3492/BAL     3642/BAL     3749/BAL     3857/BAL     4076/BAL
      4224/BAL     4268/BAL     4353/BAL     4507/BAL     4739/BAL     4931/BAL     5079/BAL     5196/BAL
      5290/BAL     5351/BAL     5457/BAL     5498/BAL     5551/BAL     5593/BAL     5632/BAL     5699/BAL
      5806/BAL     5991-STW     5992/STW     5993/STW     6044/MTW     6051/LW      6052/LW      6053/B*
      7507/BAL
   CHK:LP#A        5998-LC
   CHK:LP#C        5999/BCR     6002-LC
   CHK:LP#D        6005-LW
   CHK:LP#E        6011-LW
   CHK:LP#F        6000/B       6003/BCS     6025/BL      6029/BL      6045-LW
   CHK:LP#G        6006/BNEZ    6049-LI
   CHK:PMI         6072-LCI     8050/BAL     8340/BAL
   CHK:PMI%TABLE   6086-LW      6105/EXU     6106/EXU     6108/EXU     6109/EXU     6111/EXU     6112/EXU
      6121/EXU     6122/EXU     6124/EXU     6125/EXU     6129/EXU     6130/EXU
   CHKAL#A         5929-LH      5950/BDR     5956/BDR
   CHKAL#B         5932/BEZ     5934/BNEZ    5948-AI
   CHKAL#X         5959-LCI
   CHKALL          2158/BAL     2834/BAL     2873/BAL     3122/BAL     5804/BAL     5922-LCI
   CHKPSD          1327/BAL     6260-RES
   CHKPSD#1        6267/BE      6275-CW
   CHKSEQ          2835/BAL     2872/BAL     3123/BAL     5805/BAL     6295-LCI
   CHKSQ#A         6299-LB      6305/BDR
   CHKSQ#B         6303/BNE     6308-LI
   CHKSQ#X         6306/B       6310-LCI
   CI             10793-DP     11883/MSGX   11933/MSGX   12372/MSGX
   CLEAR%MFI       1357/BAL     6326-EQU     6333/B
   CLEAR%PDF       3409/LPSD    3412-DATA
   CLEARED        11116-DP     12146/MSGX   12149/MSGX   12315/MSGX
   CLEARPDF        6180/LPSD    6182-DATA
   CLK%SAVE        9477-DATA
   CLK%STATE       9389/STB     9432/LB      9476-DATA
   CLOCK          11163-DP     12395/MSGX
   CLRPDF          6207/LPSD    6209-DATA
   CM             10789-DP     11827/MSGX   11876/MSGX   12395/MSGX
   CM%ACTUAL       9317/LB      9348-TEXT
   CNTERREXP       2373/GEN    11809-EQU
   CNTERREXP%      2342/LW      2373-GEN
   CNTRFREQ        2302/CW      2353/CW      2362/STW    10021-DATA
   CNTRZERO        2943/LW      3048-DATA
   CO             10631-DP     11781/MSGX   11802/MSGX   11902/MSGX   11902/MSGX   11992/MSGX   12001/MSGX
     12001/MSGX   12001/MSGX   12001/MSGX   12005/MSGX   12005/MSGX   12005/MSGX   12007/MSGX   12038/MSGX
     12038/MSGX   12149/MSGX   12153/MSGX   12181/MSGX   12183/MSGX   12188/MSGX   12190/MSGX   12192/MSGX
     12195/MSGX   12198/MSGX   12200/MSGX   12204/MSGX   12204/MSGX   12210/MSGX   12214/MSGX   12269/MSGX
     12294/MSGX   12294/MSGX   12299/MSGX   12300/MSGX   12326/MSGX   12327/MSGX   12327/MSGX   12328/MSGX
     12328/MSGX   12328/MSGX   12330/MSGX   12392/MSGX   12393/MSGX   12407/MSGX   12407/MSGX   12415/MSGX
     12429/MSGX   12429/MSGX   12443/MSGX
   COCGRP          1055-DATA    1726/CW      2093/CW      2464/CW      2570/CW      2692/CW      5875/CW
      7567/CW      7627/CW      9399/LW
   COCMASK         1056-DATA    1729/AND     2095/AND     2466/AND     2572/AND     2694/LW      5877/LW
      7569/AND     7629/AND     9397/LW
   CODE           10746-DP     12022/MSGX   12096/MSGX   12096/MSGX
   CODES           1434/STCF    1435/STCF    3327/STCF    3374/LB      4259/STCF    4699/STCF    4709/LW
      7318/LB      7478/LW     10019-DATA
   COMDEV         10920-DP     11876/MSGX   12387/MSGX   12390/MSGX
   COMMAND        10906-DP     12048/MSGX   12052/MSGX   12440/MSGX
   COMMANDED      10850-DP     11860/MSGX   11999/MSGX   12050/MSGX   12076/MSGX   12120/MSGX   12326/MSGX
   COMMUNICATION  11017-DP     12387/MSGX
   COMPLETED      10848-DP     11827/MSGX   12269/MSGX   12269/MSGX
   COMPUTE        11107-DP     12192/MSGX
   COMSTMSG        6641/LW      7259/LW     10541-TEXT
   CONDITION      10860-DP     11991/MSGX   12018/MSGX   12019/MSGX   12091/MSGX
   CONDITIONS     11037-DP     12467/MSGX   12470/MSGX
   CONFIG          2214/#PRINT 11778-EQU
   CONFLICT       11059-DP     11849/MSGX
   CONTAIN        11200-DP     11801/MSGX
   CONTAINING     11032-DP     11911/MSGX   12345/MSGX
   CONTENTS       10883-DP     12113/MSGX   12210/MSGX
   CONTIGUOUS     11040-DP     11951/MSGX
   CONTINUE       11075-DP     12147/MSGX   12414/MSGX
   CONTINUE%PSD   10024-DATA
   CONTROL        10893-DP     11793/MSGX   11881/MSGX   12116/MSGX   12184/MSGX   12186/MSGX   12222/MSGX
     12360/MSGX   12362/MSGX   12385/MSGX
   CONTROLLED     11033-DP     12397/MSGX   12397/MSGX
   COUNT          10688-DP     11863/MSGX   12014/MSGX   12015/MSGX   12083/MSGX   12085/MSGX   12087/MSGX
     12089/MSGX   12331/MSGX   12393/MSGX   12394/MSGX
   COUNTER        10892-DP     11790/MSGX   11807/MSGX   11811/MSGX   11814/MSGX   11933/MSGX   11947/MSGX
     12139/MSGX   12159/MSGX   12165/MSGX   12165/MSGX   12372/MSGX   12427/MSGX
   COUNTERROR      2340/#PRINT 11789-EQU
   COUNTERZERO    11024-DP     12438/MSGX
   COUNTS         10929-DP     12271/MSGX
   CP             10648-DP     11814/MSGX   11843/MSGX   11900/MSGX   11909/MSGX   11911/MSGX   11917/MSGX
     11927/MSGX   11929/MSGX   11931/MSGX   11933/MSGX   11935/MSGX   11937/MSGX   11953/MSGX   11955/MSGX
     11972/MSGX   11973/MSGX   11976/MSGX   11979/MSGX   11982/MSGX   11994/MSGX   12001/MSGX   12005/MSGX
     12007/MSGX   12007/MSGX   12014/MSGX   12015/MSGX   12018/MSGX   12019/MSGX   12022/MSGX   12023/MSGX
     12033/MSGX   12046/MSGX   12049/MSGX   12051/MSGX   12053/MSGX   12066/MSGX   12069/MSGX   12098/MSGX
     12100/MSGX   12102/MSGX   12105/MSGX   12108/MSGX   12113/MSGX   12156/MSGX   12165/MSGX   12171/MSGX
     12188/MSGX   12190/MSGX   12195/MSGX   12198/MSGX   12198/MSGX   12198/MSGX   12200/MSGX   12200/MSGX
     12202/MSGX   12202/MSGX   12210/MSGX   12214/MSGX   12218/MSGX   12222/MSGX   12233/MSGX   12235/MSGX
     12236/MSGX   12237/MSGX   12238/MSGX   12240/MSGX   12242/MSGX   12247/MSGX   12249/MSGX   12250/MSGX
     12252/MSGX   12253/MSGX   12254/MSGX   12254/MSGX   12271/MSGX   12273/MSGX   12275/MSGX   12287/MSGX
     12287/MSGX   12287/MSGX   12289/MSGX   12289/MSGX   12290/MSGX   12290/MSGX   12291/MSGX   12315/MSGX
     12317/MSGX   12320/MSGX   12322/MSGX   12324/MSGX   12330/MSGX   12330/MSGX   12341/MSGX   12345/MSGX
     12349/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12372/MSGX   12374/MSGX   12376/MSGX   12385/MSGX
     12388/MSGX   12390/MSGX   12397/MSGX   12406/MSGX   12409/MSGX   12414/MSGX   12417/MSGX   12423/MSGX
     12425/MSGX   12431/MSGX   12461/MSGX   12474/MSGX
   CURPSD          1350/STD     1366/MTW     1367/LPSD    1379/LS      1387/LPSD    1400/STW     1403/LPSD
      1529/LW      1536/LD      2138/STW     2144/LPSD    3104/STW     3112/LPSD    5789/STW     5794/LPSD
      9669/STB    10022-DATA
   CURRENT        10901-DP     11975/MSGX   11978/MSGX   12066/MSGX   12200/MSGX   12218/MSGX   12233/MSGX
     12271/MSGX   12309/MSGX   12311/MSGX   12331/MSGX
   CZ             10796-DP     11885/MSGX   11947/MSGX   11955/MSGX
   C0               710/GEN      744-EQU    11779/MSGX   11781/MSGX   11783/MSGX   11785/MSGX   11787/MSGX
     11790/MSGX   11793/MSGX   11795/MSGX   11797/MSGX   11802/MSGX   11807/MSGX   11810/MSGX   11811/MSGX
     11813/MSGX   11814/MSGX   11816/MSGX   11817/MSGX   11820/MSGX   11823/MSGX   11827/MSGX   11832/MSGX
     11834/MSGX   11837/MSGX   11840/MSGX   11843/MSGX   11846/MSGX   11849/MSGX   11851/MSGX   11853/MSGX
     11856/MSGX   11858/MSGX   11860/MSGX   11863/MSGX   11867/MSGX   11869/MSGX   11871/MSGX   11873/MSGX
     11876/MSGX   11878/MSGX   11881/MSGX   11883/MSGX   11885/MSGX   11888/MSGX   11891/MSGX   11900/MSGX
     11904/MSGX   11913/MSGX   11917/MSGX   11924/MSGX   11926/MSGX   11927/MSGX   11935/MSGX   11937/MSGX
     11945/MSGX   11947/MSGX   11948/MSGX   11949/MSGX   11953/MSGX   11955/MSGX   11958/MSGX   11966/MSGX
     11967/MSGX   11970/MSGX   11973/MSGX   11975/MSGX   11976/MSGX   11978/MSGX   11979/MSGX   11980/MSGX
     11982/MSGX   11983/MSGX   11984/MSGX   11987/MSGX   11988/MSGX   11989/MSGX   11990/MSGX   11991/MSGX
     11992/MSGX   11994/MSGX   11996/MSGX   11999/MSGX   12001/MSGX   12004/MSGX   12005/MSGX   12007/MSGX
     12010/MSGX   12011/MSGX   12014/MSGX   12015/MSGX   12018/MSGX   12019/MSGX   12022/MSGX   12023/MSGX
     12026/MSGX   12027/MSGX   12030/MSGX   12031/MSGX   12032/MSGX   12033/MSGX   12037/MSGX   12038/MSGX
     12040/MSGX   12042/MSGX   12044/MSGX   12046/MSGX   12048/MSGX   12049/MSGX   12050/MSGX   12051/MSGX
     12052/MSGX   12053/MSGX   12056/MSGX   12057/MSGX   12060/MSGX   12064/MSGX   12066/MSGX   12067/MSGX
     12069/MSGX   12071/MSGX   12073/MSGX   12075/MSGX   12076/MSGX   12078/MSGX   12081/MSGX   12083/MSGX
     12085/MSGX   12087/MSGX   12089/MSGX   12091/MSGX   12093/MSGX   12095/MSGX   12096/MSGX   12098/MSGX
     12100/MSGX   12102/MSGX   12105/MSGX   12108/MSGX   12111/MSGX   12113/MSGX   12116/MSGX   12119/MSGX
     12120/MSGX   12122/MSGX   12125/MSGX   12128/MSGX   12131/MSGX   12134/MSGX   12136/MSGX   12139/MSGX
     12142/MSGX   12144/MSGX   12147/MSGX   12151/MSGX   12153/MSGX   12156/MSGX   12159/MSGX   12161/MSGX
     12183/MSGX   12187/MSGX   12192/MSGX   12194/MSGX   12197/MSGX   12200/MSGX   12202/MSGX   12206/MSGX
     12209/MSGX   12213/MSGX   12216/MSGX   12220/MSGX   12222/MSGX   12224/MSGX   12225/MSGX   12226/MSGX
     12227/MSGX   12228/MSGX   12229/MSGX   12230/MSGX   12231/MSGX   12236/MSGX   12237/MSGX   12238/MSGX
     12240/MSGX   12242/MSGX   12244/MSGX   12249/MSGX   12252/MSGX   12269/MSGX   12271/MSGX   12273/MSGX
     12275/MSGX   12284/MSGX   12287/MSGX   12289/MSGX   12290/MSGX   12291/MSGX   12293/MSGX   12294/MSGX
     12296/MSGX   12297/MSGX   12298/MSGX   12299/MSGX   12300/MSGX   12301/MSGX   12302/MSGX   12309/MSGX
     12311/MSGX   12315/MSGX   12317/MSGX   12318/MSGX   12319/MSGX   12320/MSGX   12321/MSGX   12322/MSGX
     12324/MSGX   12326/MSGX   12327/MSGX   12328/MSGX   12330/MSGX   12331/MSGX   12341/MSGX   12347/MSGX
     12349/MSGX   12360/MSGX   12363/MSGX   12365/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12372/MSGX
     12374/MSGX   12376/MSGX   12387/MSGX   12388/MSGX   12389/MSGX   12390/MSGX   12391/MSGX   12392/MSGX
     12393/MSGX   12394/MSGX   12395/MSGX   12396/MSGX   12397/MSGX   12398/MSGX   12399/MSGX   12400/MSGX
     12407/MSGX   12409/MSGX   12410/MSGX   12411/MSGX   12412/MSGX   12413/MSGX   12414/MSGX   12415/MSGX
     12417/MSGX   12420/MSGX   12423/MSGX   12425/MSGX   12426/MSGX   12427/MSGX   12429/MSGX   12431/MSGX
     12432/MSGX   12434/MSGX   12436/MSGX   12438/MSGX   12440/MSGX   12441/MSGX   12443/MSGX   12447/MSGX
     12448/MSGX   12450/MSGX   12451/MSGX   12453/MSGX   12454/MSGX   12456/MSGX   12457/MSGX   12459/MSGX
     12460/MSGX   12461/MSGX   12463/MSGX   12464/MSGX   12466/MSGX   12467/MSGX   12469/MSGX   12470/MSGX
     12472/MSGX   12473/MSGX   12474/MSGX   12476/MSGX   12477/MSGX   12479/MSGX   12480/MSGX   12481/MSGX
     12482/MSGX
   C1               678/SET      745-EQU     2215/#PRINT 11801/MSGX   11911/MSGX   11916/MSGX   11929/MSGX
     11931/MSGX   11933/MSGX   11951/MSGX   11968/MSGX   11972/MSGX   12146/MSGX   12149/MSGX   12163/MSGX
     12165/MSGX   12169/MSGX   12171/MSGX   12235/MSGX   12250/MSGX   12253/MSGX   12254/MSGX   12345/MSGX
     12386/MSGX   12421/MSGX
   C2               678/SET      746-EQU     2067/#PRINT  2081/#PRINT  2214/#PRINT  2311/#PRINT
      2340/#PRINT  3637/#PRINT  6571/#PRINT  6748/#PRINT  6797/#PRINT  6843/#PRINT  6859/#PRINT
      7211/#PRINT 11799/MSGX   11804/MSGX   11830/MSGX   12181/MSGX   12247/MSGX
   C3               678/SET      747-EQU
   C4               678/SET      748-EQU
   C5               678/SET      749-EQU
   C6               678/SET      750-EQU
   C7               678/SET      751-EQU
   C8               678/SET
   C9               678/SET
   D              10822-DP     11802/MSGX   11873/MSGX   11885/MSGX   12007/MSGX   12250/MSGX   12330/MSGX
     12457/MSGX   12477/MSGX   12479/MSGX
   DAT              875/DO       876/GEN      878/DO       879/GEN      881/DO       882/GEN     6387/AI
      6456/AI     10590-LOC
   DATA           11004-DP     12030/MSGX   12031/MSGX
   DBL            11188-DP     12116/MSGX
   DE             10805-DP     11900/MSGX   11902/MSGX   12236/MSGX
   DE%EXPL         9991/P      11898-EQU
   DEC%MODS        5143/LM      5180/AI      5224-EQU
   DEC%SAVE        5169/STM     5188/STM     5192/LI      5237-RES
   DECIMAL        11127-DP     12474/MSGX
   DECIMAL1        4380/DL      4382/DA      4383/DS      4388/PACK    4393-DATA
   DECIMAL2        4384/DM      4385/DD      4386/DC      4394-DATA
   DECOM           6346/B       6355-EQU
   DECOM%G         1070/DATA    6342-EQU
   DECOM%RET       6357/STW     6429/MTW     6430/B*      6473-DATA
   DECOM%SAVE      6344/STM     6352/STM     6425/STW     6428/LM      6472-RES
   DECOM%TO        6356/STW     6365/LW      6421/LW      6422/SW      6476-DATA
   DECOM%U          898/BAL     6350-EQU
   DEFINITIONS    11020-DP     12296/MSGX
   DELAY#DW        7087/LD      7091-BDR
   DELAY1SEC       2280/BAL     2348/BAL     7076-EQU
   DESCRIPTION    11022-DP     12420/MSGX
   DETERMINE      11053-DP     12421/MSGX
   DEV            10764-DP     12218/MSGX
   DEVICE         10917-DP     11851/MSGX   12184/MSGX   12187/MSGX   12386/MSGX   12387/MSGX
   DH             10806-DP     12153/MSGX   12237/MSGX   12309/MSGX   12311/MSGX
   DH%EXPL         9956/P      12308-EQU
   DI             10807-DP     12238/MSGX   12341/MSGX   12344/MSGX
   DI%EXPL         9961/P      12339-EQU
   DI%HDR          6797/#PRINT 11829-EQU
   DID            10779-DP     12066/MSGX   12073/MSGX   12093/MSGX   12095/MSGX   12122/MSGX
   DIGITS         10938-DP     12156/MSGX   12415/MSGX
   DIRECT         10656-DP     12096/MSGX   12321/MSGX   12440/MSGX   12477/MSGX
   DIRECTIVE      11052-DP     12200/MSGX
   DIRECTIVES     11030-DP     12204/MSGX
   DIS            11178-DP     12005/MSGX   12328/MSGX
   DIS%ALL%E       6492/BEZ     6506-EQU
   DIS%E           6502/B       6509/B       6513-LW      6529/B
   DIS%E#A         6515/BE      6525-CW
   DIS%E#PE1       6494/BG      6532-LD
   DIS%E#PE2       6499/BG      6501/BL      6534-LD
   DIS%E#X         6526/BLE     6538-LCI
   DIS%ONE%E       6497/BEZ     6511-EQU
   DISABLE          990-EQU     1924/WD      1928/WD      1931/WD      2003/DATA    2005/DATA    2007/DATA
      2007/DATA    2009/DATA    2011/DATA    2015/DATA    2017/DATA    2297/WD      2339/WD      2350/WD
      9445/WD      9448/WD      9451/WD      9455/WD
   DISABLED       10887-DP     11927/MSGX   12007/MSGX   12040/MSGX   12042/MSGX   12044/MSGX   12046/MSGX
     12046/MSGX   12330/MSGX   12366/MSGX
   DISARM           986-EQU     1745/WD      1857/WD      1923/WD      1926/WD      2003/DATA    2005/DATA
      2009/DATA    2009/DATA    2013/DATA    2015/DATA    2017/DATA    2019/DATA    2019/DATA    2273/WD
      2959/WD      3020/WD      3026/WD      3407/WD      5885/WD      5901/WD      5906/WD      9394/WD
      9400/WD      9444/WD      9515/WD      9642/WD      9644/WD
   DISARMALL       1168/BAL     2416/BAL     2426/BAL     2684/BAL     2900/BAL     2912/BAL     3094/BAL
      3160/BAL     5389/BAL     5896-RES     8367/BAL
   DISARMED       11071-DP     12005/MSGX   12328/MSGX
   DISHIS          6565-LCI     9954/E
   DISHIS#A        6581/BG      6588-LI      6687/B
   DISHIS#B        6590-BAL     6607/B       6690/B
   DISHIS#C        6598/BNE     6600/BE      6605-LI
   DISHIS#D        6575/BNE     6609-AI      6685/BL
   DISHIS#E        6613-CB      6616/B
   DISHIS#F        6603/B       6619-LB
   DISHIS#I        6593/BGE     6692-BAL     6727/B
   DISHIS#M        6671/BNEZ    6677-LOADBYTE
   DISHIS#N        6675/B       6680-LI
   DISHIS#P        6703/BEZ     6712-AI
   DISHIS#Q        6710/B       6716-LW
   DISHIS#X        6586/B       6695/BGE     6726/BGE     6730-LCI
   DISIMP          1959/BAL     6786/BAL     6790-RES
   DISIMP#A        6798-LH      6918/BLE
   DISIMP#B        6809/BE      6811-SEND
   DISIMP#C        6812-LW
   DISIMP#E        6810/B       6819-SEND
   DISIMP#F        6837-SEND    6902/BL
   DISIMP#G        6855-AI      6874/B
   DISIMP#H        6846/BE      6866-LW
   DISIMP#J        6842/BCR     6880-LB
   DISIMP#K        6860/B       6896-AI
   DISIMP#R        6800/BEZ     6816/B       6903/B       6911-SLS
   DISIMP#X        6921-LCI
   DISP%E          6487-EQU     9989/E
   DISP%IMP        6786-BAL     9959/E
   DISPAT          6748-#PRINT  9964/E
   DISPL          10694-DP
   DISPLAY        10902-DP     11900/MSGX   12153/MSGX   12218/MSGX   12284/MSGX   12294/MSGX   12341/MSGX
     12360/MSGX
   DISPLAYED      10847-DP     11813/MSGX   11817/MSGX   11984/MSGX   12216/MSGX
   DISPLAYS       10884-DP     11902/MSGX   12214/MSGX   12235/MSGX   12236/MSGX   12237/MSGX   12238/MSGX
     12240/MSGX   12242/MSGX   12309/MSGX   12311/MSGX   12344/MSGX   12362/MSGX
   DISPT#A         6752-BAL     6768/BNEZ
   DISPT#B         6761-CI      6770/B
   DISPT#X         6772-LCI
   DISQ            6938-EQU     9969/E
   DISQ#A          6940/BEZ     6950-LI
   DISQ#B          6945/BEZ     6954-LI      6959/BE
   DISQ#C          6948/B       6958-CW
   DISQ#D          6960/BL      6965-LW
   DISQ#E          6952/B       6956/B       6963/B       6969-BAL
   DISQ#F          6972-LOADHALF             7051/BDR
   DISQ#F1         6982/B       6987/B       6990-LOADWORD
   DISQ#G          6993/BE      7000-LW
   DISQ#H          6978/B       7003/BNE     7013-LW
   DISQ#I          7017-STW     7025/B       7031/B       7035/B
   DISQ#J          7020/B       7037-SLS
   DISQ#K          7011/B       7041-LOADWORD
   DISQ#L          6998/B       7048-#PRINT
   DISQ#R          6943/BGE     7056-LD
   DISQ#S          6947/BGE     7058-LD
   DISQ#X          7052/B       7062-LCI
   DIVIDEND        5061/LW      5084-DATA
   DK             10808-DP     12240/MSGX   12360/MSGX   12362/MSGX
   DK%EXPL         9966/P      12358-EQU
   DM             10800-DP     12210/MSGX   12214/MSGX   12235/MSGX
   DM%EXPL         9936/P      12208-EQU
   DO             10797-DP
   DOES           10730-DP     12076/MSGX   12120/MSGX   12151/MSGX   12188/MSGX   12190/MSGX
   DONTCLEAR       6192/LPSD    6194-EQU
   DOUBLE         10951-DP     12111/MSGX
   DP               844-CNAME
   DQ             10809-DP     12242/MSGX   12284/MSGX   12286/MSGX   12294/MSGX
   DQ%EXPL         9971/P      12283-EQU
   DT               856/GEN     6396/AI      6459/AI     11211-LOC    11263/EQU    11264/EQU    11265/EQU
     11293/EQU    11297/EQU    11299/EQU    11320/EQU    11322/EQU    11327/EQU    11330/EQU    11332/EQU
     11349/EQU    11365/EQU    11379/EQU    11381/EQU    11382/EQU    11383/EQU    11390/EQU    11391/EQU
     11392/EQU    11395/EQU    11404/EQU    11413/EQU    11418/EQU    11421/EQU    11423/EQU    11458/EQU
     11461/EQU    11468/EQU    11475/EQU    11478/EQU    11480/EQU    11491/EQU    11493/EQU    11498/EQU
     11499/EQU    11503/EQU    11505/EQU    11509/EQU    11511/EQU    11512/EQU    11515/EQU    11516/EQU
     11518/EQU    11519/EQU    11521/EQU    11524/EQU    11529/EQU    11531/EQU    11533/EQU    11548/EQU
     11554/EQU    11558/EQU    11559/EQU    11566/EQU    11570/EQU    11571/EQU    11574/EQU    11577/EQU
     11578/EQU    11582/EQU    11584/EQU    11586/EQU    11587/EQU    11589/EQU    11590/EQU    11592/EQU
     11594/EQU    11596/EQU    11604/EQU    11606/EQU    11612/EQU    11618/EQU    11620/EQU    11622/EQU
     11624/EQU    11627/EQU    11632/EQU    11633/EQU    11635/EQU    11638/EQU    11639/EQU    11642/EQU
     11644/EQU    11648/EQU    11650/EQU    11651/EQU    11652/EQU    11654/EQU    11655/EQU    11656/EQU
     11657/EQU    11658/EQU    11659/EQU    11661/EQU    11663/EQU    11667/EQU    11668/EQU    11671/EQU
     11672/EQU    11673/EQU    11675/EQU    11676/EQU    11677/EQU    11678/EQU    11680/EQU    11681/EQU
     11682/EQU    11683/EQU    11684/EQU    11685/EQU    11687/EQU    11689/EQU    11693/EQU    11694/EQU
     11700/EQU    11701/EQU    11702/EQU    11703/EQU    11704/EQU    11706/EQU    11707/EQU    11708/EQU
     11710/EQU    11712/EQU    11713/EQU    11715/EQU    11717/EQU    11718/EQU    11719/EQU    11720/EQU
     11721/EQU    11722/EQU    11723/EQU    11724/EQU    11725/EQU    11726/EQU    11727/EQU    11728/EQU
     11729/EQU    11730/EQU    11731/EQU    11732/EQU    11733/EQU    11734/EQU    11735/EQU    11736/EQU
     11737/EQU    11738/EQU    11739/EQU    11740/EQU    11741/EQU    11742/EQU    11743/EQU    11744/EQU
     11745/EQU    11746/EQU    11747/EQU    11748/EQU    11749/EQU    11750/EQU    11751/EQU    11752/EQU
     11753/EQU    11754/EQU    11755/EQU    11756/EQU    11757/EQU
   DUMPS          11156-DP     12210/MSGX
   DURING         10931-DP     11926/MSGX   12309/MSGX   12311/MSGX
   D0               752-EQU
   D1               753-EQU    12184/MSGX   12186/MSGX   12188/MSGX   12190/MSGX   12195/MSGX   12198/MSGX
     12210/MSGX   12214/MSGX   12218/MSGX   12419/MSGX   12445/MSGX   12483/MSGX
   D2               754-EQU    11902/MSGX   11909/MSGX   11923/MSGX   11944/MSGX   12204/MSGX   12233/MSGX
     12268/MSGX   12314/MSGX   12344/MSGX   12362/MSGX   12385/MSGX   12406/MSGX
   D3               755-EQU    12286/MSGX
   D4               756-EQU
   D5               757-EQU
   D6               758-EQU
   D7               759-EQU
   D8               760-EQU
   E               1080-COM    10823-DP     11873/MSGX   11885/MSGX   12001/MSGX   12007/MSGX   12134/MSGX
     12136/MSGX   12139/MSGX   12142/MSGX   12144/MSGX   12146/MSGX   12149/MSGX   12165/MSGX   12327/MSGX
     12330/MSGX   12451/MSGX   12480/MSGX
   EACH           10737-DP     11945/MSGX   11953/MSGX   12271/MSGX   12392/MSGX   12443/MSGX
   EBC%B3Z        10542-DATA
   EBC%HWZ         6091/CW      6099/CW     10544-DATA
   EBC%LPSD2       7403/LD      7427-TEXT
   EBC%LPSD3       7405/LD      7428-TEXT
   EBC%PE          7414/LD      7430-TEXT
   EBC%SPUR        6718/LD     10557-TEXT
   EBC%STATE       6666/LD      7293/LD     10548-EQU
   EBC%3ZEROS      6046/CW     10543-DATA
   EBCBLNKS        7769/LW      8160/LW      8653/LW      8664/LW      8763/LW      9752/LW      9753/LW
     11230-EQU
   EBCBUF          6623/STW     6634/STW     6638/STW     6642/STW     6646/STW     6667/STD     6699/STW
      6705/STW     7247/STW     7260/STW     7264/STW     7294/STD     7321/STW     7326/STW     7374/STW
      7378/STW     7390/STW     7406/STD     7415/STD     7423/STW     7910/LB      7924/LB      7935-RES
      7956/STW     7963/STW     7965/STW
   EBCZEROS        6092/CW      6100/CW      9693/LW     10545-DATA
   EBS%DEST        3987/STB     4130/GEN     9856-DATA
   EBS%SOURCE      4129/GEN     9854-DATA
   EBSDW25         3985/LD      4046/CD      4050/LI      4129-GEN
   ECOMMA          6885/LB     10546-TEXT
   EHAND           7008/LW     10560-TEXT
   EI             10795-DP     11883/MSGX   11937/MSGX   12376/MSGX
   EIMPL           7034/LW     10561-TEXT
   ENABLE         10665-DP     11931/MSGX   12327/MSGX   12370/MSGX
   ENABLED        10898-DP     11883/MSGX   11931/MSGX   12001/MSGX   12007/MSGX   12040/MSGX   12042/MSGX
     12044/MSGX   12330/MSGX   12370/MSGX
   ENBL             989-EQU     1746/WD      2003/DATA    2005/DATA    2005/DATA    2007/DATA    2007/DATA
      2013/DATA    2013/DATA    2294/WD      3013/WD      8992/RD      9372/RD      9662/WD
   ENBLDIS          991-EQU     2005/DATA    2007/DATA    2009/DATA    2011/DATA    2013/DATA    2013/DATA
      2015/DATA    2017/DATA    2021/DATA    9665/WD
   END            11181-DP     12412/MSGX
   ENDADDR        12645-END
   ENDBUF          6368/STW     6400/CW      6402/LW      6475-DATA
   ENONE           6577/LW      6601/LW      6716/LW      6994/LW      7246/LW     10563-TEXT
   ENORM           7024/LW     10562-TEXT
   ENOT            6853/LW      6866/LW      6882/LW      7032/LW     10564-TEXT
   ENTERING       11067-DP     12315/MSGX
   ENTRIES        11102-DP     11846/MSGX   12060/MSGX
   EQ             10643-DP     11807/MSGX   11827/MSGX   11827/MSGX   11827/MSGX   11827/MSGX   11827/MSGX
     11827/MSGX   11840/MSGX   11840/MSGX   11840/MSGX   11840/MSGX   11927/MSGX   11929/MSGX   11931/MSGX
     11933/MSGX   11933/MSGX   11935/MSGX   11937/MSGX   11947/MSGX   11948/MSGX   11949/MSGX   11953/MSGX
     11975/MSGX   11978/MSGX   11980/MSGX   11987/MSGX   11988/MSGX   11991/MSGX   11992/MSGX   11994/MSGX
     11999/MSGX   12001/MSGX   12001/MSGX   12001/MSGX   12001/MSGX   12001/MSGX   12004/MSGX   12005/MSGX
     12005/MSGX   12005/MSGX   12005/MSGX   12007/MSGX   12007/MSGX   12010/MSGX   12011/MSGX   12014/MSGX
     12015/MSGX   12018/MSGX   12019/MSGX   12022/MSGX   12023/MSGX   12026/MSGX   12027/MSGX   12030/MSGX
     12031/MSGX   12032/MSGX   12033/MSGX   12037/MSGX   12038/MSGX   12040/MSGX   12040/MSGX   12042/MSGX
     12042/MSGX   12044/MSGX   12044/MSGX   12046/MSGX   12046/MSGX   12048/MSGX   12050/MSGX   12052/MSGX
     12056/MSGX   12057/MSGX   12064/MSGX   12069/MSGX   12071/MSGX   12073/MSGX   12075/MSGX   12078/MSGX
     12078/MSGX   12081/MSGX   12083/MSGX   12085/MSGX   12087/MSGX   12089/MSGX   12091/MSGX   12093/MSGX
     12095/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX   12108/MSGX   12111/MSGX   12113/MSGX
     12116/MSGX   12119/MSGX   12122/MSGX   12125/MSGX   12128/MSGX   12131/MSGX   12134/MSGX   12136/MSGX
     12139/MSGX   12142/MSGX   12144/MSGX   12146/MSGX   12149/MSGX   12151/MSGX   12156/MSGX   12165/MSGX
     12165/MSGX   12222/MSGX   12224/MSGX   12225/MSGX   12226/MSGX   12227/MSGX   12228/MSGX   12229/MSGX
     12230/MSGX   12231/MSGX   12249/MSGX   12252/MSGX   12269/MSGX   12271/MSGX   12273/MSGX   12297/MSGX
     12298/MSGX   12299/MSGX   12300/MSGX   12301/MSGX   12302/MSGX   12321/MSGX   12322/MSGX   12324/MSGX
     12326/MSGX   12326/MSGX   12326/MSGX   12327/MSGX   12327/MSGX   12327/MSGX   12328/MSGX   12328/MSGX
     12328/MSGX   12328/MSGX   12328/MSGX   12330/MSGX   12330/MSGX   12331/MSGX   12366/MSGX   12368/MSGX
     12370/MSGX   12372/MSGX   12372/MSGX   12374/MSGX   12376/MSGX   12386/MSGX   12387/MSGX   12391/MSGX
     12395/MSGX   12398/MSGX   12398/MSGX   12399/MSGX   12399/MSGX   12400/MSGX   12400/MSGX   12411/MSGX
     12412/MSGX   12413/MSGX   12415/MSGX
   EQUALS         10942-DP     11947/MSGX
   EROR            1395/BAL     1473/BAL     1482/BAL     1488/BAL     1494/BAL     1500/BAL     1505/BAL
      1832/BAL     1920/BAL     2164/BAL     2528/BAL     2538/BAL     2547/BAL     2803/BAL     2965/BAL
      2972/BAL     3024/BAL     3032/BAL     3039/BAL     3206/BAL     3237/BAL     3347/BAL     3352/BAL
      3365/BAL     3373/BAL     3378/BAL     3394/BAL     3404/BAL     3487/BAL     3629/BAL     3747/BAL
      3855/BAL     4022/BAL     4032/BAL     4042/BAL     4053/BAL     4065/BAL     4073/BAL     4266/BAL
      4348/BAL     4502/BAL     4706/BAL     4712/BAL     4725/BAL     4737/BAL     4917/BAL     4929/BAL
      5075/BAL     5173/BAL     5194/BAL     5288/BAL     5349/BAL     5438/BAL     5536/BAL     5547/BAL
      5579/BAL     5589/BAL     5617/BAL     5628/BAL     5670/BAL     5681/BAL     5697/BAL     5945/BAL
      6186/BAL     6202/BAL     6215/BAL     6222/BAL     6309/BAL     7186-LCI     9572/BAL
   EROR#A          7234/B       7370-BAL
   EROR#B          7235/B       7372-LW
   EROR#B#B        7394/BLZ     7397/B       7410/B       7421-LW
   EROR#B1         7385/B       7387-EQU
   EROR#B2         7384/BE      7399-EQU
   EROR#B3         7382/BE      7412-EQU
   EROR#C          7236/B       7433-LOADWORD
   EROR#D          7237/B       7437-BAL
   EROR#F          7239/B       7440-CI
   EROR#G          7210/BE      7213-LW
   EROR#H          7238/B       7297/B       7316/B       7360/B       7425/B       7435/B       7441/BNE
      7447/B       7458-LI
   EROR#H1         7309/B       7329/B       7337/B       7359/BL      7368/B       7453-LI
   EROR#J          7253/B       7460-LI
   EROR#K          7470/BG      7485-#PRINT
   EROR#W          2341/BAL     7489-LCI
   EROR#X          7488/B       7495-LC
   EROR#X1         7192/BCS     7494/BCS     7496/BCS     7510-LCI
   EROR#X2         7497-#TYPE
   EROR#0          7224/B       7241-LW
   EROR#0A         7242/BLZ     7246-LW
   EROR#0B         7245/B       7249-LI
   EROR#1          7225/B       7258-LI
   EROR#1A         7285-EQU
   EROR#2          7226/B       7301-BAL
   EROR#3          7227/B       7302-BAL
   EROR#4          7228/B       7304-LI
   EROR#5          7229/B       7311-LI
   EROR#6          7230/B       7318-LB
   EROR#7          7231/B       7331-EQU
   EROR#8          7232/B       7339-LI
   EROR#8A         7342/BG      7347-LW
   EROR#8B         7345/B       7353-LI
   EROR#9          7233/B       7362-LOADWORD
   ERORCNT         5815/LW      6011/LW      7189/MTW     7491/MTW     8456/STW    10026-DATA
   ERORCOM         7219/BE      7224-B
   ERORHALT        7498/#TYPE  11836-EQU
   ERORHD#1        7209/CI      7211/#PRINT  7486/LI     11833-EQU
   ERORTOTAL       6014/LW      7190/MTW     7492/MTW    10028-DATA
   ERPARAM1       10025-DATA
   ERR            11175-DP
   ERROR          10674-DP     11795/MSGX   11802/MSGX   11832/MSGX   11837/MSGX   11853/MSGX   11900/MSGX
     11902/MSGX   11967/MSGX   11990/MSGX   12091/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX
     12202/MSGX   12202/MSGX   12228/MSGX   12229/MSGX   12230/MSGX   12231/MSGX   12236/MSGX   12320/MSGX
     12480/MSGX
   ERRORFREE       5817/MTW     9616/STW    10027-DATA
   ERRORMSG        2067/#PRINT  2081/#PRINT  6843/#PRINT 11831-EQU
   ERRORS         10916-DP     11827/MSGX   12273/MSGX   12273/MSGX   12275/MSGX
   ESPUR           7016/LW      7028/LW     10565-TEXT
   ETRAP           7006/LW      7030/LW     10566-TEXT
   ETRIG          10567-TEXT
   EVEN           10995-DP     12393/MSGX
   EWAIT          10559-TEXT
   EXCEPTION      11054-DP     12481/MSGX
   EXECUTE        11106-DP     12187/MSGX
   EXECUTED       10874-DP     11814/MSGX   12171/MSGX   12409/MSGX   12410/MSGX   12413/MSGX
   EXECUTES       10889-DP     12445/MSGX   12451/MSGX   12454/MSGX   12457/MSGX   12460/MSGX   12461/MSGX
     12464/MSGX   12467/MSGX   12470/MSGX   12473/MSGX   12474/MSGX   12477/MSGX   12483/MSGX
   EXERCISE       11080-DP     12441/MSGX
   EXIST          10962-DP     12454/MSGX
   EXISTANT       11083-DP     12445/MSGX   12448/MSGX
   EXISTS         11149-DP     11849/MSGX
   EXP%F#B        10167/GEN    12036-EQU
   EXP%F#C        10168/GEN    12055-EQU
   EXP%F#E        10170/GEN    10171/GEN    12059-EQU
   EXP%F#0        10157/GEN    11986-EQU
   EXP%F#1        10158/GEN    11998-EQU
   EXP%F#4        10160/GEN    12009-EQU
   EXP%F#5        10161/GEN    12013-EQU
   EXP%F#6        10162/GEN    12017-EQU
   EXP%F#7        10163/GEN    12021-EQU
   EXP%F#8        10164/GEN    12025-EQU
   EXP%F#9        10165/GEN    12029-EQU
   EXP%HDR        10156/GEN    11965-EQU
   EXP%T#B1       10349/GEN    12118-EQU
   EXP%T#B2       10350/GEN    12121-EQU
   EXP%T#B3       10351/GEN    12124-EQU
   EXP%T#B4       10352/GEN    12127-EQU
   EXP%T#C1       10365/GEN    12130-EQU
   EXP%T#ER       10175/GEN    10176/GEN    10177/GEN    10178/GEN    10179/GEN    10180/GEN    10181/GEN
     10182/GEN    10183/GEN    10184/GEN    10185/GEN    10186/GEN    10187/GEN    10188/GEN    10192/GEN
     10193/GEN    10194/GEN    10195/GEN    10196/GEN    10197/GEN    10198/GEN    10199/GEN    10200/GEN
     10201/GEN    10202/GEN    10203/GEN    10204/GEN    10205/GEN    10206/GEN    10207/GEN    10208/GEN
     10209/GEN    10210/GEN    10211/GEN    10212/GEN    10213/GEN    10214/GEN    10215/GEN    10216/GEN
     10217/GEN    10218/GEN    10219/GEN    10220/GEN    10221/GEN    10222/GEN    10223/GEN    10224/GEN
     10225/GEN    10226/GEN    10227/GEN    10228/GEN    10229/GEN    10230/GEN    10231/GEN    10232/GEN
     10233/GEN    10234/GEN    10235/GEN    10236/GEN    10239/GEN    10240/GEN    10241/GEN    10242/GEN
     10243/GEN    10244/GEN    10245/GEN    10246/GEN    10247/GEN    10248/GEN    10249/GEN    10250/GEN
     10251/GEN    10252/GEN    10257/GEN    10258/GEN    10259/GEN    10260/GEN    10261/GEN    10262/GEN
     10263/GEN    10264/GEN    10265/GEN    10266/GEN    10267/GEN    10268/GEN    10270/GEN    10271/GEN
     10272/GEN    10273/GEN    10274/GEN    10275/GEN    10276/GEN    10277/GEN    10278/GEN    10279/GEN
     10280/GEN    10281/GEN    10282/GEN    10283/GEN    10284/GEN    10287/GEN    10288/GEN    10289/GEN
     10290/GEN    10291/GEN    10292/GEN    10293/GEN    10294/GEN    10295/GEN    10296/GEN    10297/GEN
     10298/GEN    10299/GEN    10300/GEN    10305/GEN    10306/GEN    10307/GEN    10308/GEN    10309/GEN
     10310/GEN    10311/GEN    10312/GEN    10313/GEN    10314/GEN    10315/GEN    10316/GEN    10321/GEN
     10322/GEN    10323/GEN    10324/GEN    10325/GEN    10326/GEN    10327/GEN    10328/GEN    10329/GEN
     10330/GEN    10331/GEN    10332/GEN    10333/GEN    10334/GEN    10335/GEN    10336/GEN    10337/GEN
     10338/GEN    10339/GEN    10340/GEN    10341/GEN    10342/GEN    10343/GEN    10344/GEN    10345/GEN
     10346/GEN    10347/GEN    10348/GEN    10353/GEN    10354/GEN    10355/GEN    10356/GEN    10357/GEN
     10358/GEN    10359/GEN    10360/GEN    10361/GEN    10362/GEN    10363/GEN    10364/GEN    10366/GEN
     10367/GEN    10368/GEN    10369/GEN    10370/GEN    10371/GEN    10372/GEN    10373/GEN    10374/GEN
     10375/GEN    10376/GEN    10377/GEN    10378/GEN    10379/GEN    10380/GEN    10381/GEN    10382/GEN
     10383/GEN    10384/GEN    10385/GEN    10386/GEN    10387/GEN    10388/GEN    10389/GEN    10390/GEN
     10391/GEN    10392/GEN    10393/GEN    10394/GEN    10395/GEN    10396/GEN    10404/GEN    10405/GEN
     10406/GEN    10407/GEN    10408/GEN    10409/GEN    10410/GEN    10411/GEN    10412/GEN    10415/GEN
     10416/GEN    10417/GEN    10418/GEN    10419/GEN    10420/GEN    10421/GEN    10422/GEN    10423/GEN
     10424/GEN    10425/GEN    10426/GEN    10427/GEN    11782-EQU
   EXP%T#E1       10397/GEN    12133-EQU
   EXP%T#E2       10398/GEN    12135-EQU
   EXP%T#E3       10399/GEN    12138-EQU
   EXP%T#E4       10400/GEN    12141-EQU
   EXP%T#E5       10401/GEN    12143-EQU
   EXP%T#E6       10402/GEN    12145-EQU
   EXP%T#E7       10403/GEN    12148-EQU
   EXP%T#F1       10413/GEN    12150-EQU
   EXP%T#F2       10414/GEN    12155-EQU
   EXP%T#01       10173/GEN    12063-EQU
   EXP%T#02       10174/GEN    12068-EQU
   EXP%T#11       10189/GEN    12070-EQU
   EXP%T#12       10190/GEN    12072-EQU
   EXP%T#13       10191/GEN    12074-EQU
   EXP%T#41       10237/GEN    12077-EQU
   EXP%T#42       10238/GEN    12080-EQU
   EXP%T#51       10253/GEN    12082-EQU
   EXP%T#52       10254/GEN    12084-EQU
   EXP%T#53       10255/GEN    12086-EQU
   EXP%T#54       10256/GEN    12088-EQU
   EXP%T#61       10269/GEN    12090-EQU
   EXP%T#71       10285/GEN    12092-EQU
   EXP%T#72       10286/GEN    12094-EQU
   EXP%T#81       10301/GEN    12097-EQU
   EXP%T#82       10302/GEN    12099-EQU
   EXP%T#83       10303/GEN    12101-EQU
   EXP%T#84       10304/GEN    12104-EQU
   EXP%T#91       10317/GEN    12107-EQU
   EXP%T#92       10318/GEN    12110-EQU
   EXP%T#93       10319/GEN    12112-EQU
   EXP%T#94       10320/GEN    12115-EQU
   EXPCOUNT        2526/STW     2536/STW     2545/STW     7313/LI     10029-DATA
   EXPECTED       10876-DP     11860/MSGX   12010/MSGX   12014/MSGX   12018/MSGX   12023/MSGX   12026/MSGX
     12030/MSGX   12037/MSGX   12056/MSGX   12073/MSGX   12093/MSGX   12095/MSGX   12125/MSGX   12131/MSGX
     12151/MSGX
   EXPL           10983-DP
   EXPL%F#B       10167-GEN
   EXPL%F#C       10168-GEN
   EXPL%F#E       10170-GEN
   EXPL%F#F       10171-GEN
   EXPL%F#0        6520/LW      7203/LW     10157-GEN
   EXPL%F#1       10158-GEN
   EXPL%F#4       10160-GEN
   EXPL%F#5       10161-GEN
   EXPL%F#6       10162-GEN
   EXPL%F#7       10163-GEN
   EXPL%F#8       10164-GEN
   EXPL%F#9       10165-GEN
   EXPL%T#B1      10349-GEN
   EXPL%T#B2      10350-GEN
   EXPL%T#B3      10351-GEN
   EXPL%T#B4      10352-GEN
   EXPL%T#C1      10365-GEN
   EXPL%T#E1      10397-GEN
   EXPL%T#E2      10398-GEN
   EXPL%T#E3      10399-GEN
   EXPL%T#E4      10400-GEN
   EXPL%T#E5      10401-GEN
   EXPL%T#E6      10402-GEN
   EXPL%T#E7      10403-GEN
   EXPL%T#F1      10413-GEN
   EXPL%T#F2      10414-GEN
   EXPL%T#01       6513/LW      6514/CW      7199/LW     10173-GEN
   EXPL%T#02      10174-GEN
   EXPL%T#11      10189-GEN
   EXPL%T#12      10190-GEN
   EXPL%T#13      10191-GEN
   EXPL%T#41      10237-GEN
   EXPL%T#42      10238-GEN
   EXPL%T#51      10253-GEN
   EXPL%T#52      10254-GEN
   EXPL%T#53      10255-GEN
   EXPL%T#54      10256-GEN
   EXPL%T#61      10269-GEN
   EXPL%T#71      10285-GEN
   EXPL%T#72      10286-GEN
   EXPL%T#81      10301-GEN
   EXPL%T#82      10302-GEN
   EXPL%T#83      10303-GEN
   EXPL%T#84      10304-GEN
   EXPL%T#91      10317-GEN
   EXPL%T#92      10318-GEN
   EXPL%T#93      10319-GEN
   EXPL%T#94      10320-GEN
   EXPL%1          7195/LW     10156-GEN
   EXPLAINED      10855-DP     12318/MSGX   12363/MSGX
   EXPLANATION    10840-DP     11810/MSGX   11900/MSGX   11909/MSGX   12171/MSGX   12181/MSGX   12200/MSGX
     12202/MSGX   12268/MSGX   12385/MSGX
   EXPLANATIONS   10834-DP     11902/MSGX   11984/MSGX   12236/MSGX
   EXPSEQCT        2160/CW      2677/STW     2782/LW      2788/STW     2937/STW     3002/STW     6574/CW
      6683/CW      7803/STW     9149/STW    10030-DATA
   EXTERNAL       10888-DP     11937/MSGX   11949/MSGX   12376/MSGX
   F              10824-DP     11802/MSGX   11873/MSGX   11885/MSGX   11949/MSGX   11949/MSGX   12151/MSGX
     12156/MSGX   12249/MSGX   12252/MSGX   12417/MSGX   12417/MSGX   12481/MSGX   12482/MSGX
   FAILURE        11135-DP     11984/MSGX
   FAST           10719-DP     11814/MSGX   12399/MSGX   12399/MSGX
   FAULT          10970-DP     12125/MSGX   12131/MSGX
   FF             10810-DP     11982/MSGX   12038/MSGX   12287/MSGX   12324/MSGX   12421/MSGX   12423/MSGX
     12429/MSGX
   FFF            10759-DP     11823/MSGX   12096/MSGX   12483/MSGX
   FFFFFFFF       11081-DP     12443/MSGX
   FIELD          10682-DP     11834/MSGX   11834/MSGX   11834/MSGX   11834/MSGX   11968/MSGX   11968/MSGX
     11968/MSGX   11968/MSGX   11987/MSGX   11988/MSGX   11999/MSGX   12004/MSGX   12010/MSGX   12011/MSGX
     12014/MSGX   12015/MSGX   12018/MSGX   12019/MSGX   12022/MSGX   12023/MSGX   12026/MSGX   12027/MSGX
     12030/MSGX   12031/MSGX   12032/MSGX   12033/MSGX   12037/MSGX   12048/MSGX   12049/MSGX   12050/MSGX
     12052/MSGX   12053/MSGX   12056/MSGX   12057/MSGX   12206/MSGX   12222/MSGX
   FIELDS         10950-DP     12060/MSGX
   FIND           10989-DP     12286/MSGX
   FIND%FRAG       6387-AI      6444/B
   FIRST          11151-DP     11802/MSGX   11846/MSGX
   FIRST%TIME      1109/MTW     1278-DATA
   FIVE           10478-DATA
   FIXED          10704-DP     12397/MSGX   12441/MSGX   12470/MSGX
   FLAG           11014-DP     12144/MSGX   12146/MSGX   12149/MSGX
   FLG:45          1121/STW     1270-DATA    3904/MTW     4078/MTW     4298/MTW     4314/MTW     5102/MTW
      5118/MTW     5654/MTW
   FLIP           10745-DP     11999/MSGX   12004/MSGX   12037/MSGX   12052/MSGX   12128/MSGX
   FLOATING       11202-DP     12473/MSGX
   FLOP           11013-DP     12128/MSGX
   FLOPS          10709-DP     11999/MSGX   12004/MSGX   12037/MSGX   12052/MSGX
   FOLLOWED       11087-DP     11976/MSGX
   FOLLOWING      10852-DP     11984/MSGX   11990/MSGX   12186/MSGX   12204/MSGX
   FOR            10762-DP     11976/MSGX   12153/MSGX   12181/MSGX   12183/MSGX   12183/MSGX   12184/MSGX
     12194/MSGX   12204/MSGX   12240/MSGX   12302/MSGX   12390/MSGX   12448/MSGX
   FORCED         11140-DP     11781/MSGX
   FORCES         10923-DP     12190/MSGX   12195/MSGX
   FORM           11007-DP     12049/MSGX   12053/MSGX
   FORMAT         10664-DP     11967/MSGX   12318/MSGX   12363/MSGX
   FOUR            1484/AND    10477-DATA
   FPO%            4883/LW      4956-EQU
   FPO%INST        4898/LW      5004-EQU
   FPO%SAVE        4897/STD     4998-RES     5012/AH      5014/AD      5015/AWM     5016/MTH     5017/MTH
      5018/MTW     5019/MTW     5020/SH      5022/SW
   FPO%VAL         4896/LD      4990-EQU     5023/SD      5024/SD
   FREQUENCIES    11023-DP     12427/MSGX
   FROM           10731-DP     11979/MSGX   12188/MSGX   12293/MSGX   12388/MSGX
   FULL           11167-DP     11846/MSGX
   FULLMEM         3637/#PRINT 11842-EQU
   FULLY          10703-DP     11799/MSGX   11843/MSGX   11911/MSGX   12163/MSGX   12345/MSGX
   FUNCTION       11061-DP     12183/MSGX
   F0               678/SET
   F1               678/SET      761-EQU
   F2               762-EQU
   GENAL#A         7530-LW      7534/BDR
   GENALL          7527-LCI
   GENFPAT         3092/BAL     7555-LCI
   GENFPAT#A       7564-LH      7573/BLE
   GENRPAT         5770/BAL     7612-LCI
   GENRPATA        7617-MTW     7655/B
   GENRPATB        7624-BAL     7640/B
   GENRPATC        7616/BNE     7645-LW
   GENRPATX        7638/BCR     7659-LH
   GLOSS          11155-DP     12198/MSGX
   GO#ERMSG        8540/#TYPE   8560/#TYPE  11784-EQU
   GOSAVE          1651/LM      2409/LM      2653/LM      2896/LM      3155/LM      3440/LM      3581/LM
      3675/LM      3801/LM      3900/LM      4184/LM      4293/LM      4418/LM      4631/LM      4847/LM
      5035/LM      5097/LM      5372/LM      8504/STM     8516/STM     8602-RES
   GOTO#PSD        8462/STW     8502/STB     8506/DATA    8517/LPSD   10023-DATA
   GOTOHD          8393/GEN    11819-EQU
   GOTST1          8428/CW      8430/LW      8571-DATA
   GOTST11         1649-EQU     8572/GEN
   GOTST12         2037-RES     8573/GEN
   GOTST13         2256-RES     8574/GEN
   GOTST14         2408-LCI     8575/GEN
   GOTST15         2652-LCI     8576/GEN
   GOTST15A        2656/BNE     2660-#TYPE
   GOTST16         2895-LCI     8577/GEN
   GOTST17         3059-MTW     8578/GEN
   GOTST18         3153-EQU     8579/GEN
   GOTST2          8435/CW      8437/LW      8581-DATA
   GOTST2A         4845-EQU     8591/GEN
   GOTST2B         5033-EQU     8592/GEN
   GOTST2C         5095-EQU     8593/GEN
   GOTST2D         5251-EQU     8594/GEN
   GOTST2E         5306-EQU     8595/GEN
   GOTST2F         5367-EQU     8596/GEN
   GOTST21         3438-EQU     8582/GEN
   GOTST22         3579-EQU     8583/GEN
   GOTST23         3673-EQU     8584/GEN
   GOTST24         3799-EQU     8585/GEN
   GOTST25         3898-EQU     8586/GEN
   GOTST26         4182-EQU     8587/GEN
   GOTST27         4291-EQU     8588/GEN
   GOTST28         4417-LCI     8589/GEN
   GOTST29         4629-RES     8590/GEN
   GOTST3          8442/LW      8598-DATA
   GOTST31         5766-LW      8599/GEN
   GROUP          10685-DP     11863/MSGX   11869/MSGX   11871/MSGX   11873/MSGX   11883/MSGX   11911/MSGX
     11911/MSGX   11913/MSGX   11933/MSGX   11935/MSGX   11945/MSGX   11947/MSGX   11948/MSGX   11953/MSGX
     12159/MSGX   12161/MSGX   12163/MSGX   12165/MSGX   12169/MSGX   12249/MSGX   12249/MSGX   12252/MSGX
     12252/MSGX   12321/MSGX   12321/MSGX   12345/MSGX   12345/MSGX   12347/MSGX   12372/MSGX   12374/MSGX
     12415/MSGX   12417/MSGX
   GROUPS         10909-DP     11779/MSGX   11937/MSGX   11949/MSGX   12240/MSGX   12363/MSGX   12376/MSGX
     12426/MSGX
   GRP             1021-EQU     1479/LW      1480/SLD     1663/LI      1676/LW      1682/CI      1726/CW
      1734/SLS     1735/AW      1736/SLS     1745/WD      1746/WD      1750/WD      1775/LH      1777/STH
      1794/CI      1808/CI      1810/CI      1812/AI      1813/AI      1821/LH      1826/LH      1828/STH
      1859/CI      2053/LI      2087/LI      2089/LH      2093/CW      2103/STH     2104/AI      2105/CI
      2189/LB      2190/SLD     2191/CI      2193/LW      2195/STW     2415/STB     2427/LI      2445/LW
      2449/AI      2464/CW      2469/WD      2470/WD      2476/WD      2477/WD      2483/WD      2484/WD
      2502/CI      2504/AI      2505/AI      2506/CI      2553/CI      2567/LH      2570/CW      2589/LI
      2680/LI      2681/STW     2712/STH     2723/LI      2724/AW      2737/LI      2742/LI      2756/CI
      2761/LH      2765/LH      2767/STH     2768/STH     2771/LW      2795/WD      2796/WD      2878/WD
      3164/LI      3169/SLS     3170/OR      3171/SLS     3180/LH      3190/WD      3192/WD      3193/WD
      3243/CI      3249/CI      3251/AI      3252/AI      3253/CI      3255/LH      5927/LI      5929/LH
      5951/CI      5953/AI      5954/AI      6074/CI      6077/B       6629/LB      6630/SLD     6632/STW
      6647/LH      6652/LH      6656/LH      6660/LH      6795/LI      6798/LH      6804/CI      6812/LW
      6820/LW      6824/CI      6827/LH      6899/CI      6912/CI      6915/AI      6916/AI      6917/CI
      7265/LH      7270/LH      7274/LH      7278/LH      8017/LI      8021/LI      8023/LI      8339/LI
      8417/LB      8847/LI      8850/LW      8852/RD      8854/RD      8868/SLS     8869/OR      8870/STW
      8871/CI      8873/AI      8876/AI      8877/STW     8988/SLD     8992/RD      8996/RD      9000/RD
      9033/LI      9035/LH      9045/CI      9053/AI      9054/AI      9055/CI      9085/SLD     9086/CB
      9095/CI
   GRP#CNTR        2060/LS      8846/LW      9183/AND    10139-DATA
   GRP#IO          2074/LS      9208/AND    10140-DATA
   GRP#OVER        9129/AND    10138-DATA
   GRPIMPL         1958/STW     6801/LW      6803/STW     7619/LW      7750/STH    10110-DATA
   GRPIMSG1        6811/SEND   12162-EQU
   GRPIMSG3        6819/SEND   12168-EQU
   GRPINH          2675/STW     2899/STW     2918/STW     3106/LW      5774/STW     5780/LW      7535/STW
      7593/STW     8635/LW      8701/STW     8916/AND     8923/AND     8928/AND     9667/LW     10112-DATA
   GRPINH#E        8638/STW     8694/LW     10116-DATA
   GT             10632-DP     11902/MSGX   12183/MSGX   12210/MSGX   12214/MSGX   12294/MSGX
   GUIDE          12567-STW    12645/END
   GUIDE55         1113/STW     1170/LW      9368/LW      9474-DATA
   H               1079-COM
   HALFWORD       11092-DP     12087/MSGX
   HALT           10725-DP     11837/MSGX   12228/MSGX   12229/MSGX
   HANDLER        11115-DP     12284/MSGX   12301/MSGX   12302/MSGX
   HANDLING       10885-DP     12242/MSGX   12291/MSGX
   HAS            11173-DP     11802/MSGX   12197/MSGX
   HAVE           11008-DP     12060/MSGX
   HEADER         10932-DP     12318/MSGX   12363/MSGX
   HEX            10769-DP     11927/MSGX   11929/MSGX   11931/MSGX   11951/MSGX   11973/MSGX   12014/MSGX
     12015/MSGX   12210/MSGX   12324/MSGX   12366/MSGX   12368/MSGX   12370/MSGX
   HEXADECIMAL    11027-DP     11972/MSGX
   HI%PRI%INT      1690/LW      1855/LW      1937/LW      9509/LW      9534/STW     9536/STW     9545/CW
      9570/LW     10031-DATA
   HIGH           10744-DP     11987/MSGX   12066/MSGX   12139/MSGX   12156/MSGX
   HIGHEST        11132-DP     11953/MSGX
   HISTHD1         6571/#PRINT 11857-EQU
   HISTHD2         6572/#PRINT 11859-EQU
   HISTHD3         6573/#PRINT 11862-EQU
   HISTORY         1154/STW     1160/STW     1418/LI      2175/LI      2770/LI      2855/LI      2931/LI
      3003/STB     3028/LB      5924/LI      6298/LI      6567/LI      6588/LI      6611/LI      7799/STW
      8734/LI      9086/CB      9094/LB      9125/LI      9180/LI      9205/LI      9212/LI      9217/LI
      9222/LI      9227/LI      9232/LI      9237/LI      9242/LI      9247/LI      9252/LI      9257/LI
      9262/LI      9267/LI      9272/LI      9277/LI     12530-EQU    12547/EQU
   HISTORYEND      2182/CI      6592/CI     12547-EQU    12548/EQU
   HIT            11171-DP     12181/MSGX
   HSTORYP         1319/LW      1455/LW      6563-DATA    6568/STW     6589/STW     6591/LW      6606/AWM
      6612/STW     6689/AWM     8741/STW     9126/STW     9135/LW      9181/STW     9195/LW      9206/STW
      9213/STW     9218/STW     9223/STW     9228/STW     9233/STW     9238/STW     9243/STW     9248/STW
      9253/STW     9258/STW     9263/STW     9268/STW     9273/STW     9278/STW
   HY             10639-DP     11790/MSGX   11846/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX
     11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX
     11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX
     11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX
     11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11933/MSGX   11935/MSGX   11937/MSGX   11951/MSGX
     11955/MSGX   12030/MSGX   12031/MSGX   12075/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX
     12119/MSGX   12122/MSGX   12156/MSGX   12188/MSGX   12190/MSGX   12195/MSGX   12198/MSGX   12206/MSGX
     12210/MSGX   12214/MSGX   12218/MSGX   12218/MSGX   12218/MSGX   12233/MSGX   12235/MSGX   12236/MSGX
     12237/MSGX   12238/MSGX   12240/MSGX   12242/MSGX   12247/MSGX   12250/MSGX   12253/MSGX   12254/MSGX
     12372/MSGX   12374/MSGX   12376/MSGX   12417/MSGX   12421/MSGX   12421/MSGX   12429/MSGX   12434/MSGX
     12438/MSGX   12441/MSGX   12443/MSGX   12445/MSGX   12445/MSGX   12445/MSGX   12448/MSGX   12448/MSGX
     12451/MSGX   12451/MSGX   12454/MSGX   12454/MSGX   12454/MSGX   12457/MSGX   12457/MSGX   12460/MSGX
     12461/MSGX   12461/MSGX   12464/MSGX   12464/MSGX   12467/MSGX   12467/MSGX   12470/MSGX   12474/MSGX
     12474/MSGX   12477/MSGX   12480/MSGX   12481/MSGX   12483/MSGX
   HZ             10786-DP     11807/MSGX
   I              10826-DP     11885/MSGX   11909/MSGX   11948/MSGX   11955/MSGX   11958/MSGX   12001/MSGX
     12161/MSGX   12247/MSGX   12327/MSGX
   I%EXPL          9996/P      11908-EQU
   IDLE           10732-DP     12190/MSGX   12192/MSGX
   IE             10815-DP     12064/MSGX   12076/MSGX   12120/MSGX   12417/MSGX
   IF             10788-DP     11802/MSGX   11817/MSGX   11951/MSGX   12222/MSGX   12289/MSGX   12290/MSGX
     12392/MSGX   12393/MSGX
   IGNORED        11139-DP     12156/MSGX
   IHAND           1319-LW
   IHAND#1         1308/BCS     1346-LW      1417/BCS     1442/BCS     1502/BEZ     1506/B
   IHAND#1B        1361/BNEZ    1370-EQU
   IHAND#1C        1383-EQU     1393/BLE     1396/B
   IHAND#1D        1382/BNE     1389-EQU
   IHAND#1E        1373/BE      1397-LI
   IHAND#1F        1376/BE      1399-LI
   IHAND#3         1329/BCS     1429/B       1454-MTW
   IHAND#5         1451/B       1464-LW
   IHAND#6         1446/BAL     1508-LI
   IHAND#7         1116/AWM     1117/AWM     1518-STW
   II             10794-DP     11883/MSGX   11935/MSGX   12374/MSGX
   ILEGAL          1248/LI      1551/LI      1552/CI      1578/DATA    6693/LI      7804/LI     12549-EQU
     12551/EQU
   ILEGALOV       11845-EQU
   ILEGALP         1249/STW     1555/LW      1564/STW     1578-DATA    6694/CW      6725/CW      7805/STW
   ILLEGAL        11129-DP     12477/MSGX
   IMP@E#A         7693-LH      7701/BDR     7706/B
   IMP@E#X         7703/BGE     7708-LCI
   IMP@EBC         1216/BAL     1778/BAL     1829/BAL     7688-LCI
   IMP@H#A         7732-LW      7743/BDR     7748/B
   IMP@H#X         7745/BGE     7750-STH
   IMP@HEX         7726-LCI     8047/BAL
   IMPHD#1         8011/GEN    11866-EQU
   IMPHD#2         8002/GEN     8004/GEN     8006/GEN     8008/GEN     8010/GEN    11868-EQU
   IMPHD#3         7992/GEN     7994/GEN     7996/GEN     7998/GEN     8000/GEN    11870-EQU
   IMPHD#4         7982/GEN     7984/GEN     7986/GEN     7988/GEN     7990/GEN    11872-EQU
   IMPLEMENTED    10841-DP     11799/MSGX   11843/MSGX   11856/MSGX   11867/MSGX   11911/MSGX   11913/MSGX
     11913/MSGX   11916/MSGX   12159/MSGX   12161/MSGX   12163/MSGX   12169/MSGX   12240/MSGX   12345/MSGX
     12347/MSGX   12347/MSGX   12349/MSGX   12363/MSGX
   IMPLFLAG        1949/LW      1951/MTW     8049/MTW     8493/MTW    10106-DATA
   IN             11191-DP     11814/MSGX   11816/MSGX   11911/MSGX   11916/MSGX   11927/MSGX   11929/MSGX
     11931/MSGX   11958/MSGX   11972/MSGX   12038/MSGX   12091/MSGX   12098/MSGX   12100/MSGX   12102/MSGX
     12105/MSGX   12125/MSGX   12214/MSGX   12287/MSGX   12298/MSGX   12319/MSGX   12331/MSGX   12345/MSGX
     12349/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12429/MSGX   12436/MSGX   12451/MSGX   12454/MSGX
   INCORRECT      10862-DP     12075/MSGX   12119/MSGX
   INCORRECTLY    11028-DP     12081/MSGX   12116/MSGX
   INCR            6380/STW     6408/AW      6451/STW     6474-DATA
   INCREMENT      10861-DP     12010/MSGX   12011/MSGX
   INDICATES      10856-DP     11979/MSGX   12051/MSGX   12320/MSGX
   INDIRECT       11078-DP     12432/MSGX
   INFO           10994-DP     12390/MSGX
   INHIBIT          997-EQU
   INHIBITED      10858-DP     11933/MSGX   11935/MSGX   11937/MSGX   12001/MSGX   12372/MSGX   12374/MSGX
     12376/MSGX
   INHMSK          9668/AND    10144-DATA
   INITBUF         1247/BAL     6576/BAL     6590/BAL     6610/BAL     6692/BAL     6752/BAL     6969/BAL
      7050/BAL     7207/BAL     7766-LCI
   INITHIST        1150/BAL     1740/BAL     2124/BAL     2678/BAL     2837/BAL     2902/BAL     2914/BAL
      2975/BAL     2993/BAL     3041/BAL     3097/BAL     3455/BAL     5388/BAL     5782/BAL     7795-LCI
      8467/BAL
   INITIAL         1064/DATA    1097-LCI
   INITIAL#A       1255/DATA    1257-DATA
   INITIAL#1       1110/BNEZ    1127/B       1150-BAL
   INITIAL#1A      1124/BCR     1129-LI
   INITIAL#2       1201-#HTECON
   INITIAL#3       1180/BNEZ    1247-BAL
   INITP#A         7859-LI      7868/BDR
   INITPSD         2125/BAL     2683/BAL     3098/BAL     5783/BAL     7842-LCI     7852/LW      7854/STW
      8465/BAL
   INITTAB         2049/BAL     2676/BAL     2901/BAL     2913/BAL     2974/BAL     7817-RES
   INPUT          10690-DP     11917/MSGX   11935/MSGX   11948/MSGX   12184/MSGX   12184/MSGX   12194/MSGX
     12374/MSGX   12388/MSGX
   INPUTTING      11050-DP     12186/MSGX
   INST#25         3970/LW      4144-EQU
   INSTEAD        11100-DP     11814/MSGX
   INSTR          10676-DP     11804/MSGX   12289/MSGX   12290/MSGX   12298/MSGX
   INSTRUCTION    10839-DP     11790/MSGX   11814/MSGX   12022/MSGX   12122/MSGX   12287/MSGX   12298/MSGX
     12481/MSGX
   INSTRUCTIONS   10837-DP     12445/MSGX   12451/MSGX   12454/MSGX   12457/MSGX   12461/MSGX   12464/MSGX
     12467/MSGX
   INT            10777-DP     11945/MSGX   12421/MSGX   12426/MSGX   12429/MSGX   12441/MSGX
   INTEPSD         1380/LS      2056/STW     2267/STW     2436/STW     2681/STW     2793/STW     2940/STW
      2942/STB     2995/STW     3105/STW     3107/STB     3179/STW     5779/STW     5781/STB     6266/CW
      6272/CW      6275/CW      7347/LW      8457/STW    10064-DATA
   INTERRUPT      10845-DP     11779/MSGX   11793/MSGX   11830/MSGX   11846/MSGX   11860/MSGX   11881/MSGX
     11909/MSGX   11980/MSGX   11987/MSGX   11988/MSGX   11999/MSGX   12004/MSGX   12037/MSGX   12064/MSGX
     12064/MSGX   12066/MSGX   12071/MSGX   12073/MSGX   12075/MSGX   12102/MSGX   12105/MSGX   12119/MSGX
     12122/MSGX   12125/MSGX   12134/MSGX   12136/MSGX   12151/MSGX   12153/MSGX   12237/MSGX   12238/MSGX
     12242/MSGX   12247/MSGX   12250/MSGX   12284/MSGX   12287/MSGX   12315/MSGX   12319/MSGX   12322/MSGX
     12324/MSGX   12331/MSGX   12341/MSGX   12344/MSGX   12360/MSGX   12362/MSGX   12434/MSGX   12436/MSGX
     12483/MSGX
   INTERRUPTS     10842-DP     11933/MSGX   11935/MSGX   11937/MSGX   12309/MSGX   12311/MSGX   12314/MSGX
     12331/MSGX   12372/MSGX   12374/MSGX   12376/MSGX
   INTERVAL       11072-DP     12391/MSGX
   INTS           10998-DP     12427/MSGX   12438/MSGX
   INVAL#I         8075/#TYPE  11915-EQU
   INVAL#IP        6143/#TYPE  11957-EQU
   INVAL#M         6142/#TYPE   8559/#TYPE  11848-EQU
   INVAL#P         8323/#TYPE  11950-EQU
   INVALID        11098-DP     11783/MSGX
   INVALTST#       1654/BE      1656/BE      1659/BE      2040/BNE     2422/B       2905/BG      3264/BE
      3449/B       3590/B       3684/B       3810/B       3910/BG      4192/B       4308/B       4454/B
      4634/BG      4850/BG      5039/B       5112/B       5254/BNE     5309/BNE     5375/BGE     5768/BNE
      8557-#TYPE
   IP             11196-DP     12038/MSGX
   IS             10781-DP     11779/MSGX   11811/MSGX   11846/MSGX   11891/MSGX   11911/MSGX   11967/MSGX
     11990/MSGX   12038/MSGX   12096/MSGX   12184/MSGX   12194/MSGX   12314/MSGX   12315/MSGX   12318/MSGX
     12345/MSGX   12363/MSGX   12390/MSGX   12393/MSGX
   IT             10798-DP     12192/MSGX   12195/MSGX
   J              10825-DP     11878/MSGX   12385/MSGX
   J%EXPL          9976/P      12384-EQU
   JAMXPSDS        1169/BAL     1592-RES     2050/BAL     2368/BAL     2682/BAL     3096/BAL     3454/BAL
      4316/BAL     4468/BAL     4645/BAL     4859/BAL     5045/BAL     5127/BAL     5213/BAL     5263/BAL
      5320/BAL     5387/BAL     5777/BAL     8466/BAL
   K              10830-DP     11923/MSGX   11979/MSGX
   K%EXPL          9981/P      11922-EQU
   KEPT           10990-DP     12314/MSGX
   KEY            11172-DP     12181/MSGX
   KEYIN          10693-DP     11976/MSGX   12153/MSGX   12200/MSGX   12286/MSGX
   KSR            10763-DP     12181/MSGX   12192/MSGX   12195/MSGX
   L               1081-COM
   LABEL          10677-DP     11804/MSGX   12291/MSGX   12302/MSGX
   LARGE          10971-DP     12156/MSGX
   LAST           12499-EQU    12524/EQU
   LASTERR%P       6012/STW     9312/LI     10033-DATA
   LASTERR%T       6015/STW     9310/LI     10034-DATA
   LASTPASS        6018/STW     9308/LI     10035-DATA
   LASTSUB         9324/LI     10038-DATA
   LASTTEST        6022/STD     9306/LI     10037-DATA
   LEADING        11117-DP     12320/MSGX
   LESS           10991-DP     12322/MSGX
   LEVARMD         2071/STH     2084/LH      2086/STH     2103/STH     2113/LW      2686/STH     2698/STH
      2814/OR      2944/STH     2997/STH     5532/STW     5575/STW     5771/LW      6647/LH      7265/LH
      7531/STW     7559/STW     7570/STH     7576/STH     7622/STW     7630/STH     7659/LH      7661/STH
      7822/STW     8642/LH      8706/STH     8938/LW      9647/LH      9650/LH     10076-RES
   LEVEL          10686-DP     11856/MSGX   11863/MSGX   11867/MSGX   11909/MSGX   12128/MSGX   12134/MSGX
     12136/MSGX   12139/MSGX   12165/MSGX   12165/MSGX   12238/MSGX   12247/MSGX   12322/MSGX   12322/MSGX
     12331/MSGX   12417/MSGX   12417/MSGX   12423/MSGX   12443/MSGX
   LEVELS         10668-DP     11911/MSGX   11916/MSGX   11927/MSGX   11929/MSGX   11931/MSGX   12344/MSGX
     12345/MSGX   12349/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12441/MSGX
   LEVENBL         2114/STW     2687/STH     2699/STH     2813/OR      2945/STH     2998/STH     5534/STW
      5577/STW     6656/LH      7274/LH      7533/STW     7588/STH     7590/STH     7634/STH     8648/LH
      8712/STH     8939/AND     9660/LH      9664/LH     10078-RES
   LEVEXP          2116/STW     2765/LH      2767/STH     2845/STW     2999/STH     5929/LH      8913/STW
      8943/STW     9128/LH      9182/LH      9188/LH      9207/LH     10087-RES
   LEVIMPL         1215/STH     1239/LI      1243/STW     1775/LH      1777/STH     1821/LH      1826/LH
      1828/STH     2059/LH      2073/LH      2089/LH      2561/LS      2567/LH      2761/LH      2844/LW
      2923/LB      3180/LH      3255/LH      6767/LH      6798/LH      6827/LH      7530/LW      7693/LH
      7734/STH     8941/AND     9035/LH     10102-RES
   LEVMASK         1728/LW      1741/LW      1776/OR      1822/AND     1827/OR      1856/LW      1938/LW
      2070/LW      2085/OR      2102/LW      2460/LW      2475/LW      2482/LW      2762/AND     2792/LW
      2812/LH      3181/AND     5930/LW      6648/LW      7266/LW      7737/OR      8993/AND     8997/AND
      9001/AND     9542/LW     10150-RES
   LEVNINH         1100/LI      2700/STH     2702/STW     5535/STW     5578/STW     6660/LH      7278/LH
      8909/STW     8920/STW     8926/STW     8931/OR      8932/STW     8934/OR      8936/STW     8942/AND
     10095-RES
   LEVTRIG         2115/STW     2712/STH     2768/STH     5533/STW     5576/STW     6652/LH      7270/LH
      7532/STW     7581/STH     7583/STH     7632/STH     8645/LH      8709/STH     8940/AND     9654/LH
      9657/LH     10080-RES
   LIMITS         10910-DP     11790/MSGX   11810/MSGX   12083/MSGX   12396/MSGX
   LINE           10728-DP     11849/MSGX   11909/MSGX   11923/MSGX   11924/MSGX   11944/MSGX   11945/MSGX
     11979/MSGX   11990/MSGX   12183/MSGX   12206/MSGX   12206/MSGX   12247/MSGX   12250/MSGX   12253/MSGX
     12254/MSGX   12385/MSGX   12385/MSGX   12406/MSGX   12407/MSGX
   LINES          10968-DP     11958/MSGX
   LINK             693/BAL      694/BAL      740/BAL      800/BAL      819/BAL     1020-EQU     1150/BAL
      1168/BAL     1169/BAL     1170/LW      1171/STW     1172/LI      1173/WD      1202/LW      1206/LW
      1213/STW     1216/BAL     1217/BAL     1219/BAL     1237/BAL     1247/BAL     1254/BAL     1254/BAL*
      1304/LW      1309/BAL     1311/BAL     1327/BAL     1357/BAL     1363/BAL     1384/BAL     1395/BAL
      1413/LW      1420/SW      1421/SLS     1424/BAL     1438/LW      1443/BAL     1446/BAL     1450/BAL
      1473/BAL     1482/BAL     1488/BAL     1494/BAL     1500/BAL     1505/BAL     1511/BNE*    1532/BL*
      1539/LW      1540/BAL     1553/BLE*    1565/B*      1605/B*      1695/BAL     1706/LI      1707/STW
      1710/LI      1711/STW     1714/BAL     1719/CI      1721/LI      1723/STW     1740/BAL     1755/BAL
      1756/STW     1757/LW      1758/LD      1759/LW      1760/SLS     1761/AND     1762/LB      1766/LW
      1778/BAL     1782/BAL     1829/BAL     1832/BAL     1855/LW      1856/LW      1856/LW      1857/WD
      1864/LI      1865/STW     1867/LW      1873/LW      1874/B       1920/BAL     1937/LW      1938/LW
      1938/LW      1939/WD      1940/WD      1959/BAL     1960/BAL     2049/BAL     2050/BAL     2124/BAL
      2125/BAL     2126/BAL     2134/BAL     2136/BAL     2155/BAL     2158/BAL     2164/BAL     2167/LI
      2168/STB     2169/AI      2213/BAL     2225/BAL     2260/BAL     2271/BAL     2280/BAL     2323/BAL
      2341/BAL     2348/BAL     2368/BAL     2369/BAL     2416/BAL     2426/BAL     2434/BAL     2493/BAL
      2514/BAL     2528/BAL     2538/BAL     2547/BAL     2579/B*      2676/BAL     2678/BAL     2679/BAL
      2682/BAL     2683/BAL     2684/BAL     2703/BAL     2781/BAL     2802/BAL     2803/BAL     2827/BAL
      2834/BAL     2835/BAL     2837/BAL     2847/BAL     2851/BAL     2861/BAL     2872/BAL     2873/BAL
      2874/BAL     2900/BAL     2901/BAL     2902/BAL     2912/BAL     2913/BAL     2914/BAL     2946/BAL
      2965/BAL     2972/BAL     2974/BAL     2975/BAL     2976/BAL     2993/BAL     3004/BAL     3024/BAL
      3032/BAL     3039/BAL     3041/BAL     3042/BAL     3092/BAL     3093/BAL     3094/BAL     3095/BAL
      3096/BAL     3097/BAL     3098/BAL     3099/BAL     3100/BAL     3101/BAL     3121/BAL     3122/BAL
      3123/BAL     3124/BAL     3160/BAL     3177/BAL     3186/BAL     3187/STW     3196/BAL     3197/STW
      3203/CW      3206/BAL     3213/BAL     3214/STW     3227/BAL     3228/STW     3237/BAL     3240/BAL
      3295/BAL     3334/SW      3335/STW     3338/BAL     3347/BAL     3352/BAL     3365/BAL     3373/BAL
      3378/BAL     3394/BAL     3399/BAL     3400/CI      3404/BAL     3454/BAL     3455/BAL     3487/BAL
      3492/BAL     3629/BAL     3642/BAL     3747/BAL     3749/BAL     3855/BAL     3857/BAL     4022/BAL
      4032/BAL     4042/BAL     4053/BAL     4065/BAL     4073/BAL     4076/BAL     4224/BAL     4264/LI
      4265/STB     4266/BAL     4268/BAL     4316/BAL     4348/BAL     4353/BAL     4468/BAL     4502/BAL
      4507/BAL     4645/BAL     4706/BAL     4712/BAL     4725/BAL     4737/BAL     4739/BAL     4859/BAL
      4917/BAL     4929/BAL     4931/BAL     5045/BAL     5075/BAL     5079/BAL     5127/BAL     5173/BAL
      5194/BAL     5196/BAL     5213/BAL     5263/BAL     5288/BAL     5290/BAL     5320/BAL     5349/BAL
      5351/BAL     5387/BAL     5388/BAL     5389/BAL     5438/BAL     5457/BAL     5498/BAL     5536/BAL
      5547/BAL     5551/BAL     5579/BAL     5589/BAL     5593/BAL     5608/LB      5609/AND     5610/LW
      5617/BAL     5628/BAL     5632/BAL     5649/LB      5650/AND     5651/CI      5653/AI      5656/CI
      5658/CI      5660/AI      5661/LW      5670/BAL     5681/BAL     5697/BAL     5699/BAL     5770/BAL
      5771/LW      5772/SLS     5773/AND     5774/STW     5775/BAL     5776/BAL     5777/BAL     5782/BAL
      5783/BAL     5784/BAL     5785/BAL     5786/BAL     5803/BAL     5804/BAL     5805/BAL     5806/BAL
      5827/BAL     5829/BAL     5846/LW      5847/BAL     5848/STW     5853/LW      5855/BAL     5856/BAL
      5890/B*      5909/B*      5945/BAL     5961/B*      5991/STW     5994/BAL     5996/BAL     6037/BAL
      6048/BAL     6146/B*      6164/CI      6177/BAL     6186/BAL     6190/BAL     6196/BAL     6202/BAL
      6211/BAL     6215/BAL     6222/BAL     6226/B*      6239/B*      6280/B*      6309/BAL     6312/B*
      6330/BG      6576/BAL     6590/BAL     6610/BAL     6633/BAL     6634/STW     6637/BAL     6638/STW
      6665/BAL     6666/LD      6692/BAL     6752/BAL     6786/BAL     6813/BAL     6814/STB     6821/BAL
      6822/STB     6923/B*      6944/LW      6946/CI      6958/CW      6961/LW      6966/LW      6969/BAL
      7050/BAL     7094/BAL     7096/BAL     7100/B*      7207/BAL     7292/BAL     7293/LD      7301/BAL
      7302/BAL     7320/BAL     7321/STW     7325/BAL     7326/STW     7370/BAL     7373/BAL     7374/STW
      7377/BAL     7378/STW     7422/BAL     7423/STW     7437/BAL     7502/BAL     7504/BAL     7505/LI
      7506/STW     7507/BAL     7513/B*      7538/B*      7597/B*      7624/BAL     7633/BAL     7656/BAL
      7664/B*      7694/BAL     7695/STW     7710/B*      7734/STH     7735/CI      7753/B*      7777/B*
      7808/B*      7826/B       7872/B*      7931/B*      7955/BAL     7956/STW     7962/BAL     7963/STW
      7964/BAL     7965/STW     7967/LW      7970/LW      7971/BAL     7974/B       8025/BAL     8028/BAL
      8031/BAL     8034/BAL     8037/BAL     8043/LB      8044/LB      8045/STB     8046/BDR     8047/BAL
      8048/BAL     8050/BAL     8073/LW*     8078/XW      8083/B       8100/LC      8110/TIO*    8118/CI
      8120/CI      8126/CI      8128/LW      8132/LB      8133/LB      8134/STB     8135/BDR     8137/STW
      8139/STW     8165/XW      8217/LC      8222/LB      8223/LB      8224/STB     8225/BDR     8293/STW
      8294/CI      8326/LI      8327/B       8331/LB      8332/LB      8333/STB     8334/BDR     8336/BAL
      8340/BAL     8367/BAL     8371/LI      8372/LW      8373/STW     8374/BDR     8396/STW     8398/STW
      8400/STW     8402/STW     8404/STW     8406/STW     8407/LI      8408/STW     8443/LW      8444/CI
      8447/LI      8449/CW      8454/STW     8465/BAL     8466/BAL     8467/BAL     8468/BAL     8471/LW
      8472/STW     8473/LI      8474/LW      8475/STW     8476/BDR     8481/LI      8482/LW      8483/STW
      8484/BDR     8501/LI      8502/STB     8505/BAL     8527/CI      8541/LW      8552/LW      8636/BAL
      8637/STW     8638/STW     8643/BAL     8644/STW     8646/BAL     8647/STW     8649/BAL     8650/STW
      8674/B*      8706/STH     8709/STH     8712/STH     8722/B*      8742/B*      8767/BAL     8768/STH
      8769/STW     8773/B*      8798/STB     8803/B*      8890/B*      8947/B*      8977/STW     8983/STW
      8986/LI      8991/LI      8995/AI      8999/AI      9003/AI      9004/STW     9007/LW      9060/B*
      9106/B*      9152/B*      9298/BAL     9344/B*      9357/STW     9358/LB      9362/LW      9403/B*
      9411/STW     9412/LB      9416/LW      9417/STW     9417/STW     9467/LW      9468/WD      9472/B*
      9526/BAL     9543/BAL     9544/LW      9545/CW      9551/BAL     9557/B*      9572/BAL     9573/LI
      9574/BAL     9592/STW     9674/B*      9691/STW     9692/LI      9696/BIR     9698/LW      9716/STW
      9726/STB     9773/B*      9807/B*     10133/BAL    10134/BAL    10135/BAL    10136/BAL
   LINKAGES       11064-DP     12244/MSGX   12284/MSGX
   LIST           10741-DP     11913/MSGX   11976/MSGX   12347/MSGX
   LISTING        10904-DP     12023/MSGX   12301/MSGX   12302/MSGX
   LOADB            792/CNAME   7952-LCI
   LOADBUF         6624/BUFFER  6635/BUFFER  6639/BUFFER  6644/BUFFER  6651/BUFFER  6655/BUFFER
      6659/BUFFER  6663/BUFFER  6668/BUFFER  6677/LOADBYTE             6679/LOADBYTE
      6700/BUFFER  6706/BUFFER  6709/LOADBYTE             6977/LOADWORD             6990/LOADWORD
      7041/LOADWORD             7043/LOADWORD             7045/LOADWORD             7047/LOADWORD
      7248/BUFFER  7262/BUFFER  7269/BUFFER  7273/BUFFER  7277/BUFFER  7281/BUFFER  7295/BUFFER
      7305/LOADBYTE             7307/LOADBYTE             7322/BUFFER  7327/BUFFER  7333/LOADWORD
      7354/LOADWORD             7356/LOADWORD             7366/LOADWORD             7375/BUFFER
      7379/BUFFER  7388/LOADWORD             7391/BUFFER  7407/BUFFER  7416/BUFFER  7424/BUFFER
      7433/LOADWORD             7434/LOADWORD             7465/LOADBYTE             7475/LOADWORD
      7476/LOADWORD             7477/LOADWORD             7481/LOADBYTE             7900-LCI
      9311/LOADHALF             9313/LOADHALF
   LOADBUFA        7903/B       7912/BNEZ    7921-LI
   LOADBUFB        7924-LB      7928/BDR
   LOADBUFX        7919/B       7929-LCI
   LOADBYTE         792-CNAME
   LOADH            793/CNAME   7948-LCI
   LOADHALF         793-CNAME
   LOADW            791/CNAME   7959-LCI
   LOADW#A         7957/B       7966-LI
   LOADWORD         791-CNAME
   LOC            10750-DP     11804/MSGX   11834/MSGX   11968/MSGX   12297/MSGX   12298/MSGX
   LOCATION        1306/STW     1346/LW      1351/LW      1415/STW     1440/STW     1468/LW      1557/LW
      1689/STW     2456/STW     2457/LW*     2459/STW*    2474/STW*    2481/STW*    2487/STW*    3023/STW
      4928/STW     5939/STW     5944/AWM     6167/STW     6169/LW      6263/LW      7249/LI      7286/LW
      7348/LW      7458/LI      9098/STW     9103/STW     9571/STW    10039-DATA
   LOCATIONS      10854-DP     12033/MSGX   12210/MSGX   12294/MSGX   12429/MSGX
   LOG             1023-EQU     1310/LI      1316/AI      1322/AI      1326/AI      1328/AI      1423/LI
      1428/AI      1449/LI      1464/LW      1472/AND     1474/LW      1477/AND     1483/LW      1486/AND
      1489/LW      1492/AND     1495/LW      1498/AND     1501/LW      1503/LI      1756/STW     1769/CW
      1773/CI      1824/CI      1910/CI      2443/LI      2488/CW      2521/LB      2530/STB     2531/LH
      2540/STH     2541/CI      2612/MTW     2613/MTH     2614/MTB     2618/DATA    2848/LI      2863/AI
      2864/STB     3197/STW     3228/STW     3234/CW      6229/LW      6230/WD      6234/RD      6235/AND
      6274/OR      6277/OR      6532/LD      6534/LD      6536/STD     6939/LW      6942/CI      6955/LW
      6958/CW      6962/LW      6965/LW      6967/SW      6991/LB      6992/CI      6994/LW      6995/STW
      6996/STW     6997/STW     7000/LW      7001/AND     7002/CW      7006/LW      7007/STW     7008/LW
      7009/STW     7013/LW      7014/CW      7016/LW      7017/STW     7018/LW      7019/LOADWORD
      7022/CW      7024/LW      7026/CW      7028/LW      7029/STW     7030/LW      7032/LW      7033/STW
      7034/LW      7056/LD      7058/LD      7060/STD     7376/LW      7731/LI      7737/OR      7750/STH
      8128/LW      8142/CI      8147/CI      8149/AI      8150/SLS     8151/OR      8152/WD      8410/LI
      8446/LI      8536/LI      8539/LI      8541/LW      9593/RD      9594/AND     9599/CW      9613/OR
      9614/WD
   LOGGED         11144-DP     11846/MSGX
   LOGSPUR         1450/BAL     1551-LI
   LONG           10985-DP     12226/MSGX   12227/MSGX
   LOOP           10716-DP     11790/MSGX   11814/MSGX   12224/MSGX   12225/MSGX   12226/MSGX   12227/MSGX
     12271/MSGX   12413/MSGX
   LOOPING        11121-DP     12414/MSGX
   LOOPS           1166/STW     6033/MTW     6035/STW     8472/STW     8510/LW     10040-DATA
   LOWER          10960-DP     12434/MSGX
   LPSD           11001-DP     12122/MSGX   12146/MSGX   12149/MSGX   12443/MSGX
   LS             11194-DP     12415/MSGX
   LT             10633-DP
   LVL             1022-EQU     1481/SLS     1664/LI      1678/AW      1728/LW      1733/AW      1741/LW
      1776/OR      1796/CI      1799/CI      1801/AI      1814/LI      1815/STW     1822/AND     1827/OR
      1861/CI      2054/LI      2064/AI      2065/CI      2070/LW      2072/LI      2078/AI      2079/CI
      2085/OR      2088/LI      2100/AI      2102/LW      2202/SLS     2203/CI      2412/STB     2413/AND
      2428/LI      2439/AI      2447/AW      2452/AW      2460/LW      2475/LW      2482/LW      2496/AI
      2513/LI      2576/SW      2577/SLS*    2590/LI      2722/LI      2736/LI      2745/LI      2749/LI
      2758/CI      2762/AND     2773/AW      2792/LW      2812/LH      2829/AI      3162/STW     3165/LI
      3172/OR      3181/AND     3242/AI      3245/CI      3247/CI      3257/LI      4420/CI      4422/AI
      4459/LI      4469/STW     4473/AW      4481/LW      4519/CI      4521/LI      4522/AI      5373/LW
      5928/LI      5930/LW      5949/AI      6631/SLS     6636/STW     6648/LW      6796/LI      7266/LW
      8414/LB      8859/LI      8864/AI      8869/OR      8987/STB     8989/SLS     8993/AND     8997/AND
      9001/AND     9034/LI      9044/AI      9047/CI      9051/CI      9084/SLS     9509/LW      9516/RD
      9518/AND     9519/LI      9520/OR      9527/LI      9531/AI      9534/STW     9535/AI      9536/STW
      9537/LH      9541/AI      9542/LW      9552/CW
   LVLIMSG         6837/SEND   11855-EQU
   LVLIMSG#1       6826/#PRINT 12164-EQU
   M              11204-DP     12222/MSGX
   MACHINE        11137-DP     12022/MSGX
   MAP%DW          1135/LD      1144/LD      1273-DATA
   MAP%END         1140/CW      1277-GEN
   MAP%IMAGE       1134/LW      1276-DATA
   MARGIN         10934-DP     11891/MSGX   12395/MSGX   12396/MSGX
   MARGINMASK      8141/AND     8176-DATA    9594/AND
   MARGINS          998-EQU     1183/WD      7079/RD      9593/RD      9614/WD
   MARK           10982-DP     11976/MSGX   12198/MSGX
   MATCH          10706-DP     11958/MSGX   12066/MSGX   12076/MSGX   12120/MSGX   12151/MSGX
   MAX%REGS        5453/#TYPE   5494/#TYPE  11798-EQU
   MAX%REGS%       5449/LW      5490/LW      5734-P
   MAX%REGS%EXP    5734/P      11800-EQU
   MAY            11180-DP     11973/MSGX   12410/MSGX
   MBSDW25         3983/LD      4026/CD      4029/LI      4116-DATA
   MEANS          10691-DP     11955/MSGX   12192/MSGX   12197/MSGX   12413/MSGX
   MEASURES       11076-DP     12427/MSGX
   MEG            11169-DP
   MEM            10754-DP
   MEMORY         10657-DP     11814/MSGX   11843/MSGX   11843/MSGX   11980/MSGX   12125/MSGX   12131/MSGX
     12210/MSGX   12214/MSGX   12235/MSGX   12448/MSGX   12454/MSGX   12457/MSGX
   MESSAGE        11120-DP     11967/MSGX   12386/MSGX
   MESSAGE@       11774-LOC
   MNEMONIC       11066-DP     12302/MSGX
   MODCOUNT        2488/CW      2605-DATA
   MODE           11002-DP     12171/MSGX   12451/MSGX
   MODIFIED       11091-DP     12078/MSGX   12081/MSGX
   MODIFY          2432/LM      2433/STM     2458/LW      2473/LW      2480/LW      2592/LM      2593/STM
      2611-DATA
   MODIFY%ZERO     2947/LW      2950/STW     3050-MTW
   MODIFYI         2615/MTW*    2616/MTH*    2617/MTB*    2618-DATA
   MODLIST        12570/GEN    12584-TEXTCS
   MODULE         10933-DP     12341/MSGX   12349/MSGX
   MODULES        11119-DP     11913/MSGX   12347/MSGX
   MORE           11012-DP     12108/MSGX   12113/MSGX
   MOVING         10925-DP     12190/MSGX
   MSG            10766-DP     12202/MSGX   12202/MSGX   12218/MSGX   12230/MSGX
   MSGDEV         10919-DP     11876/MSGX   12386/MSGX
   MSGEND         12490-EQU    12553/ORG
   MSGS           10986-DP     12231/MSGX
   MSGX             859-CNAME
   MTB            11183-DP     12429/MSGX
   MTH            11184-DP     12429/MSGX
   MTW            11185-DP     12429/MSGX
   MTW%RES         9420/STW     9421/LW      9422/LW      9423/LW      9424/LW      9485-MTW
   MTW#52          1666/LM      2269/LM      2600-GEN
   MULTIPLE       11073-DP     12394/MSGX
   MUST           10715-DP     11787/MSGX   11958/MSGX
   M1              4070/LI      5011/AH      5021/SH      8833/LW      8884/LW      8918/LW      9398/EOR
     10472-DATA
   M1VALUE         7648/LD      7668-DATA
   N              10832-DP     12001/MSGX   12327/MSGX
   NEW            10767-DP     11991/MSGX   12206/MSGX   12290/MSGX   12293/MSGX   12300/MSGX   12315/MSGX
     12317/MSGX
   NEWPSW         10913-DP     11804/MSGX   11804/MSGX   12300/MSGX
   NEWSTATE        1758/LD      1988-EQU
   NEXT           10979-DP     12181/MSGX
   NEXT%FR         6378-EQU     6417/BDR
   NO             10804-DP     12060/MSGX   12225/MSGX   12227/MSGX   12331/MSGX   12460/MSGX
   NO%COUNTERS     2068/#PRINT 12158-EQU
   NO%EXPL        10000/P      12171-MSGX
   NO%IO           2082/#PRINT 12160-EQU
   NOMEMORY        3644/STW     3661-DATA    5711/XPSD*
   NON            10778-DP     12445/MSGX   12448/MSGX   12454/MSGX
   NONEXIST        3480/EXU     3485/LW      3518-RES     3721/EXU
   NONEXISTANT    10838-DP     11785/MSGX   11843/MSGX
   NORM            1301-EQU    10133/BAL
   NORMAL         10914-DP     11816/MSGX   12398/MSGX   12398/MSGX
   NOT            10752-DP     11811/MSGX   11817/MSGX   11851/MSGX   12001/MSGX   12066/MSGX   12073/MSGX
     12076/MSGX   12093/MSGX   12095/MSGX   12120/MSGX   12122/MSGX   12125/MSGX   12131/MSGX   12139/MSGX
     12144/MSGX   12146/MSGX   12151/MSGX   12159/MSGX   12161/MSGX   12327/MSGX   12393/MSGX
   NOTAVAIL        8112/#TYPE  11850-EQU
   NOTCNTR         2559/LW      2620-DATA    7575/AND     7660/AND
   NOTE           10720-DP     11817/MSGX   11989/MSGX   12165/MSGX   12389/MSGX   12415/MSGX   12425/MSGX
     12431/MSGX
   NOTED          10957-DP     12415/MSGX
   NOTHIGH         2815/AND     8935/AND     9538/STH     9641/LH     10107-DATA
   NOTHIMASK       9537/LH      9576-DATA
   NOTIMPL         1410-EQU    10134/BAL
   NOTRAP          3331/STW     3718/MTW     3733-DATA    3735/MTW     3740/LW      3743/STW     3848/LW
      3851/STW     4015/LW      4018/STW
   NUMBER         10662-DP     11975/MSGX   11978/MSGX   12271/MSGX   12273/MSGX   12321/MSGX   12386/MSGX
     12387/MSGX   12410/MSGX   12413/MSGX
   NUMBERS        11131-DP     11951/MSGX
   NYCC0          10524-DATA
   O              10827-DP     11885/MSGX   11948/MSGX   11955/MSGX   12161/MSGX
   OCCUR          10710-DP     12073/MSGX   12093/MSGX   12095/MSGX
   OCCURRED       11068-DP     12319/MSGX
   OF             10780-DP     11779/MSGX   11790/MSGX   11810/MSGX   11814/MSGX   11900/MSGX   11902/MSGX
     11917/MSGX   11953/MSGX   11975/MSGX   11976/MSGX   11978/MSGX   11994/MSGX   11999/MSGX   12004/MSGX
     12023/MSGX   12030/MSGX   12031/MSGX   12032/MSGX   12037/MSGX   12038/MSGX   12052/MSGX   12083/MSGX
     12108/MSGX   12113/MSGX   12153/MSGX   12181/MSGX   12186/MSGX   12216/MSGX   12233/MSGX   12269/MSGX
     12271/MSGX   12273/MSGX   12291/MSGX   12294/MSGX   12297/MSGX   12301/MSGX   12309/MSGX   12311/MSGX
     12314/MSGX   12324/MSGX   12331/MSGX   12344/MSGX   12362/MSGX   12394/MSGX   12409/MSGX   12410/MSGX
     12412/MSGX   12413/MSGX   12421/MSGX   12426/MSGX   12427/MSGX   12467/MSGX
   OLDPSW         10912-DP     11804/MSGX   11804/MSGX   12299/MSGX
   OLDSTATE       10041-DATA
   ON             10790-DP     12128/MSGX   12134/MSGX   12136/MSGX   12228/MSGX   12229/MSGX   12331/MSGX
   ONCE           10973-DP     11793/MSGX
   ONE             1465/AND     4716/CW      4722/LI      5147/AND    10474-DATA
   ONESECOND       3009/LW      7086/LW     10434-DATA
   ONLY           10727-DP     11846/MSGX   11916/MSGX   11951/MSGX   12171/MSGX   12349/MSGX   12390/MSGX
     12461/MSGX   12474/MSGX
   OP             10646-DP     11814/MSGX   11843/MSGX   11900/MSGX   11909/MSGX   11911/MSGX   11917/MSGX
     11927/MSGX   11929/MSGX   11931/MSGX   11933/MSGX   11935/MSGX   11937/MSGX   11953/MSGX   11955/MSGX
     11972/MSGX   11973/MSGX   11976/MSGX   11979/MSGX   11982/MSGX   11994/MSGX   12001/MSGX   12005/MSGX
     12007/MSGX   12007/MSGX   12014/MSGX   12015/MSGX   12018/MSGX   12019/MSGX   12022/MSGX   12023/MSGX
     12033/MSGX   12040/MSGX   12049/MSGX   12051/MSGX   12053/MSGX   12064/MSGX   12069/MSGX   12098/MSGX
     12100/MSGX   12102/MSGX   12105/MSGX   12108/MSGX   12113/MSGX   12156/MSGX   12165/MSGX   12171/MSGX
     12188/MSGX   12190/MSGX   12195/MSGX   12198/MSGX   12198/MSGX   12200/MSGX   12202/MSGX   12210/MSGX
     12214/MSGX   12218/MSGX   12222/MSGX   12233/MSGX   12235/MSGX   12236/MSGX   12237/MSGX   12238/MSGX
     12240/MSGX   12242/MSGX   12247/MSGX   12249/MSGX   12250/MSGX   12252/MSGX   12253/MSGX   12254/MSGX
     12254/MSGX   12271/MSGX   12273/MSGX   12275/MSGX   12287/MSGX   12287/MSGX   12289/MSGX   12290/MSGX
     12315/MSGX   12320/MSGX   12322/MSGX   12324/MSGX   12330/MSGX   12330/MSGX   12341/MSGX   12345/MSGX
     12349/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12372/MSGX   12374/MSGX   12376/MSGX   12385/MSGX
     12388/MSGX   12390/MSGX   12397/MSGX   12406/MSGX   12409/MSGX   12413/MSGX   12417/MSGX   12423/MSGX
     12425/MSGX   12431/MSGX   12461/MSGX   12474/MSGX
   OPTIONS        11112-DP     12218/MSGX
   OR             10799-DP     11951/MSGX   11973/MSGX   11980/MSGX   12005/MSGX   12067/MSGX   12096/MSGX
     12108/MSGX   12113/MSGX   12139/MSGX   12200/MSGX   12202/MSGX   12317/MSGX   12415/MSGX
   ORDER          10701-DP     12156/MSGX   12319/MSGX   12436/MSGX
   OTHER          10966-DP     11917/MSGX
   OTHERS         11142-DP     11787/MSGX
   OUT            10748-DP     11790/MSGX   11810/MSGX   12083/MSGX
   OUTBUF          1187/LW      1204/STW     1207/STW     1209/LB      2325/STD     2327/STB
      2328/#PRINT  5848/STW     5849/#TYPE   5854/STW     5857/DATA    6353/LI      6536/STD     6537/#TYPE
      6578/STW     6582/STW     6584/STB     6585/#PRINT  6602/STW     6681/STB     6682/#PRINT  6717/STW
      6719/STW     6720/STW     6722/STB     6723/#PRINT  6755/STW     6760/#PRINT  6814/STB
      6815/#PRINT  6822/STB     6823/#PRINT  6840/STB     6852/#PRINT  6854/STW     6857/STB
      6858/#PRINT  6867/STW     6869/STB     6871/STB     6872/#PRINT  6873/STW     6883/STW     6886/STB
      6890/STB     6891/#PRINT  6995/STW     6996/STW     6997/STW     7007/STW     7009/STW     7017/STW
      7029/STW     7033/STW     7048/#PRINT  7060/STD     7061/#TYPE   7396/STB     7444/STB     7467/STB
      7472/#PRINT  7485/#PRINT  7770/STW     7773/STW     7916/LI      7921/LI      8161/STD     8162/#TYPE
      9318/STB     9322/STB     9330/#TYPE   9336/#PRINT 12548-EQU    12549/EQU
   OUTBUFP         7781-DATA
   OUTPUT         10655-DP     11935/MSGX   11948/MSGX   12192/MSGX   12195/MSGX   12202/MSGX   12233/MSGX
     12374/MSGX   12386/MSGX   12388/MSGX
   OUTPUTS        11110-DP     12198/MSGX
   OUTSLAVE        3718-MTW     3843/B       4006/B       4107/B       9841/B      10047/DATA
   OUTSLAVE#1      3725-XW      3730/DATA
   OUTSLAVEXPSD    3719/LW      3731-XPSD    3778/LPSD    3779/XPSD
   OVERFLOW       11085-DP     12470/MSGX
   OVERLAY         7850/CI      9976-P
   OVERLAY%EXPL    7847/LW     10000-P
   OVERRIDE       11079-DP     12434/MSGX
   P               1082-COM    10831-DP     11944/MSGX   11958/MSGX   12253/MSGX
   P%EXPL          9986/P      11943-EQU
   PAGE%BOUND      3941/LI      3990/STW     3993/LI      4057/CW      4063/LI      4106/STW     4117/GEN
      4124/GEN     4145/STW     4146/MTW     4147/LW      4148/B       4149/B       4152/B       4153/B
      4154/B       4155/B       4216/XW      4217/LI      4227/XW      9840-STW     9845/EQU     9847/EQU
      9850/EQU
   PAIRS          11161-DP     11916/MSGX   12349/MSGX
   PANEL          10953-DP     11793/MSGX
   PARAGRAPH      11048-DP     12181/MSGX
   PARAM%RET       8074/STW     8078/XW      8079/B*      8105/STW     8113/MTW     8122/MTW     8165/XW
      8166/B*     10042-DATA
   PARAMERR        6535/SEND    7059/SEND    8159/SEND   11852-EQU
   PARAMETER      10849-DP     11849/MSGX   11853/MSGX   11909/MSGX   11917/MSGX   11923/MSGX   11924/MSGX
     11944/MSGX   11951/MSGX   11958/MSGX   12204/MSGX   12206/MSGX   12247/MSGX   12250/MSGX   12253/MSGX
     12254/MSGX   12385/MSGX   12406/MSGX   12407/MSGX
   PARAMETERS     11042-DP     11973/MSGX
   PARAMI          8012-LCI     8041/LW      9994/E
   PARAMI#A        8018/B       8022/B       8024-LW
   PARAMI#V        8025/BAL     8028/BAL     8031/BAL     8034/BAL     8037/BAL     8060-LI      8082/BGEZ
   PARAMI#W        8063/BE      8065/BE      8067/BE      8069/BE      8081-AI
   PARAMI#X        8040-LW
   PARAMI#Y        8050-BAL
   PARAMJ          8100-LC      9974/E
   PARAMJ#A        8108/BE      8111/BCR     8117-#ETHCON
   PARAMJ#B        8119/BLE     8128-LW
   PARAMJ#E        8114/B       8124/B       8158-EQU
   PARAMJ#X        8132-LB
   PARAMJ#Y        8101/BEZ     8153-LCI
   PARAMK          8217-LC      8220/LW      9979/E
   PARAMP          8286-EQU     9984/E
   PARAMP#A        8291-LW      8297/BDR
   PARAMP#B        8299-LI      8304/BL      8314/B       8319/BL
   PARAMP#C        8302/BNEZ    8309-CW
   PARAMP#D        8310/BNE     8316-CW
   PARAMP#E        8306/BNE     8317/BL      8323-#TYPE
   PARAMP#X        8307/B       8331-LB
   PARAMP#Y        8339-LI
   PARAMT          8377/B       8410-LI
   PARAMT%HEX      1165/LW      1191/STW     1193/STW     1195/STW     1197/STW     1199/STW     3262/LW
      6024/CW      6028/CW      6031/LW      8372/LW      8483/STW     8486/LW      8603-RES
   PARAMT#A        8431/B       8438/B       8443-LW
   PARAMT#B        8454-STW     8522/BE      8528/BLE
   PARAMT#B1       8469/B       8478-LW
   PARAMT#C        8450/BG      8521-CI
   PARAMT#ER1      8423/BE      8425/BE      8429/BG      8436/BG      8441/BNE     8539-LI
   PARAMT#ER2      8524/BNE     8526/BNE     8535-EQU
   PARAMT#X        8496/BNEZ    8500-EQU     8511/BEZ
   PARAMT#Y        8490/BGEZ    8508-LW
   PARITY         11205-DP     12480/MSGX
   PARTIALLY      10857-DP     11913/MSGX   12169/MSGX   12347/MSGX
   PARTICULAR     11038-DP     11924/MSGX
   PASS           10722-DP     11817/MSGX   11827/MSGX   12271/MSGX   12271/MSGX   12271/MSGX   12273/MSGX
     12317/MSGX   12393/MSGX
   PASSCNT         2983/LW      5820/LW      6017/LW      8375/MTW     8458/LW     10043-DATA
   PASSES         10937-DP     12413/MSGX
   PASSMARGIN     10442-DATA
   PAT@E#A         8642-LH      8670/BL
   PAT@E#B         8652/BNE     8664-LW
   PAT@E#C         8662/B       8668-AI
   PAT@EBC         1217/BAL     2946/BAL     3004/BAL     3093/BAL     5775/BAL     8633-LCI
   PAT@H#A         8704-LW      8719/BL
   PAT@HEX         8692-LCI
   PATCH           9823-EQU
   PATHD#1         6748/#PRINT  8215/GEN    11880-EQU
   PATHD#2         6749/#PRINT  8186/GEN     8188/GEN     8190/GEN     8192/GEN     8194/GEN     8196/GEN
      8198/GEN     8200/GEN     8202/GEN     8204/GEN     8206/GEN     8208/GEN     8210/GEN     8212/GEN
      8214/GEN    11882-EQU
   PATTERN        10896-DP     11881/MSGX   11926/MSGX   11927/MSGX   11929/MSGX   11931/MSGX   11979/MSGX
     12250/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12483/MSGX
   PATTERNS       10879-DP     11867/MSGX   12240/MSGX   12360/MSGX   12362/MSGX   12441/MSGX
   PATTLIST        7564/LH      7580/LH      7587/LH     10438-DATA
   PATTNO          1053-DATA    1538/LW      1738/LW      1789/MTW     1803/STW     1815/STW     2058/STW
      2263/STW     2410/LW      2448/STW     2455/AW      2657/LW      2672/STW     2920/STW     3059/MTW
      3061/MTW     3088/STW     3128/MTW     3132/CW      3163/STW     3441/LW      3461/STW     3495/STW
      3506/STW     3582/LW      3599/STW     3676/LW      3706/STW     3752/STW     3764/STW     3802/LW
      3832/STW     3860/STW     3901/LW      3930/STW     4215/STW     4247/STW     4294/LW      4322/STW
      4356/STW     4367/STW     4419/LW      4463/STW     4486/LW      4510/STW     4525/STW     4647/STW
      4672/LW      4741/MTW     4742/LW      4856/STW     4867/LW      4937/STW     4941/STW     5044/STW
      5098/LW      5130/STW     5140/LW      5199/STW     5262/STW     5319/STW     5381/STW     5760/STW
      5769/MTW     6021/LW      7462/LI      7561/LW      7594/MTW     7614/LW      7618/MTW     7646/MW
      8454/STW
   PC             10644-DP
   PCP            10765-DP     12188/MSGX   12190/MSGX   12438/MSGX
   PCPMSG          3006/#TYPE  11792-EQU
   PDF            11189-DP     12142/MSGX   12144/MSGX   12146/MSGX   12149/MSGX
   PE             10629-DP     11804/MSGX   11945/MSGX   12064/MSGX   12076/MSGX   12116/MSGX   12120/MSGX
     12165/MSGX   12192/MSGX   12195/MSGX   12198/MSGX   12198/MSGX   12210/MSGX   12289/MSGX   12290/MSGX
     12298/MSGX   12301/MSGX   12331/MSGX   12363/MSGX   12413/MSGX   12414/MSGX   12417/MSGX   12421/MSGX
     12423/MSGX   12426/MSGX   12429/MSGX   12438/MSGX   12441/MSGX   12454/MSGX
   PERMITTED      11049-DP     12184/MSGX
   PL             10649-DP
   PL#JHDR         8098/GEN    11875-EQU
   PLINE#IB        7981/DATA    7983/DATA    7985/DATA    7987/DATA    7989/DATA    8092-TEXTCS
   PLINE#I0        6094/LW      6097/LW      7695/STW     7732/LW      8001/DATA    8003/DATA    8005/DATA
      8007/DATA    8009/DATA    8090-TEXTCS
   PLINE#I6        7991/DATA    7993/DATA    7995/DATA    7997/DATA    7999/DATA    8091-TEXTCS
   PLINE#J         1210/STB     1212/#ETHCON 6045/LW      8097/DATA    8107/CW      8132/LB      8134/STB
      8136/#ETHCON 8138/#ETHCON 8173-TEXTCS  9596/LB      9610/STB
   PLINE#JRES      1203/SEND   11877-EQU
   PLINE#KA        8195/DATA    8254-TEXTCS
   PLINE#KB        8193/DATA    8256-TEXTCS
   PLINE#KC        8191/DATA    8258-TEXTCS
   PLINE#KD        8189/DATA    8260-TEXTCS
   PLINE#KE        8187/DATA    8262-TEXTCS
   PLINE#KF        8185/DATA    8264-TEXTCS
   PLINE#K0        6754/LW      8213/DATA    8235-TEXTCS  8644/STW     8647/STW     8650/STW     8656/STW
      8659/STW     8666/STW     8704/LW      8707/LW      8710/LW
   PLINE#K2        8211/DATA    8238-TEXTCS
   PLINE#K3        8209/DATA    8240-TEXTCS
   PLINE#K4        8207/DATA    8242-TEXTCS
   PLINE#K5        8205/DATA    8244-TEXTCS
   PLINE#K6        8203/DATA    8246-TEXTCS
   PLINE#K7        8201/DATA    8248-TEXTCS
   PLINE#K8        8199/DATA    8250-TEXTCS
   PLINE#K9        8197/DATA    8252-TEXTCS
   PLINE#P         2217/#PRINT  6087/LW      6088/LW      6090/LW      8275/DATA    8331/LB      8333/STB
      8355-TEXTCS  8769/STW     8796/LW
   PLINE#T         1188/STW     8392/DATA    8475/STW     8478/LW      8614-TEXTCS
   PLINE#TRES      1186/SEND   11822-EQU
   PLINEIN         1066/DATA    6086/LW      6089/LW      6095/LW      6096/LW      6098/LW      8024/LW
      8027/LW      8030/LW      8033/LW      8036/LW      8044/LB      8106/LW      8117/#ETHCON 8123/LW
      8133/LB      8223/LB      8291/LW      8332/LB      8397/#ETHCON 8399/#ETHCON 8401/#ETHCON
      8403/#ETHCON 8405/#ETHCON 8474/LW     10044-RES
   PLSRATE         2324/SEND   11806-EQU
   POINT          10955-DP     12411/MSGX   12470/MSGX   12473/MSGX
   POINT%HIST      1309/BAL     8733-EQU
   POINTER        11138-DP     12111/MSGX
   POSITION       11070-DP     12322/MSGX
   PPS            11168-DP     11811/MSGX
   PREFIX         10946-DP     12001/MSGX
   PRESENT        10895-DP     11860/MSGX   12076/MSGX   12120/MSGX   12328/MSGX
   PREVIOUS       11058-DP     11817/MSGX
   PREVIOUSLY     11044-DP     12134/MSGX
   PRI@EBC         1237/BAL     2213/BAL     8761-LCI
   PRI@HEX         8336/BAL     8792-LCI
   PRI@HX#1        8796-LW      8800/BDR
   PRIFLAG         2042/STW     2047/LW      2224/MTW     8337/MTW     8495/MTW    10109-DATA
   PRIHD#1         2215/#PRINT  8276/GEN    11884-EQU
   PRIHD#2         2216/#PRINT 11887-EQU
   PRINT          10697-DP     12231/MSGX   12392/MSGX   12393/MSGX
   PRINTER        11105-DP     12183/MSGX
   PRIORITIES     11039-DP     11945/MSGX
   PRIORITY        2707/STB     2716/LB      2719/STB    10045-DATA
   PRIVILEGED     11035-DP     12451/MSGX   12454/MSGX
   PRIVILGD        3714/EXU     3745/LW      3777-RES
   PRIVNONEX       3839/EXU     3852/LW      3884-DATA
   PRODUCE        11130-DP     12477/MSGX
   PROGRAM        10899-DP     12026/MSGX   12027/MSGX   12147/MSGX   12190/MSGX   12194/MSGX   12195/MSGX
     12197/MSGX   12397/MSGX   12412/MSGX
   PROGTEXT       12569/GEN    12572-TEXTCS
   PROMPT         10927-DP     12198/MSGX
   PROT%PAGE       3959/LI      9845-EQU
   PROTECTION     11036-DP     12457/MSGX
   PSD            10771-DP     11992/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX   12289/MSGX
     12290/MSGX   12293/MSGX   12299/MSGX   12300/MSGX
   PSDS            1348/LW      1349/LW      1470/LW      1471/LW      1509/LS      6265/LD      7038/LI
      7350/AI      7862/STD     7865/STD    10451/GEN    10462/GEN    10464/GEN    10464/GEN    12524-EQU
     12525/EQU
   PSW            10761-DP     11840/MSGX   11840/MSGX   11992/MSGX   11992/MSGX
   PTRAPPSD        3781/LMS    10047-DATA
   PULSE          10672-DP     11790/MSGX   11807/MSGX   11811/MSGX   11813/MSGX   12083/MSGX   12139/MSGX
     12427/MSGX
   PULSECNT        1711/STW     1766/LW      1865/STW     1867/LW      2278/STW     2283/LW      2289/STW
      2290/WAIT    2295/LW      2299/STW     2301/LW      2312/LW      2345/STW     2352/LW      2361/LW
      2600/GEN     2601/GEN     2602/GEN     2603/GEN    10048-DATA
   PUSH           10972-DP     11793/MSGX
   PWRFAIL         1230/STW    12527-EQU    12528/EQU
   QHDR#1          6970/#PRINT 11803-EQU
   QUEST          11154-DP     12198/MSGX
   QUESTION       11088-DP     11976/MSGX
   RA              1014-EQU     1134/LW      1139/AWM     1143/LI      1273/DATA    1537/LW      3984/LD
      4036/CD      4040/LI      4157/CBS     5143/LM      5144/STW     9371/RD      9383/CW      9422/LW
      9426/XW      9464/XW
   RANDOM         10936-DP     12407/MSGX   12483/MSGX
   RANGE          10705-DP     12409/MSGX   12420/MSGX   12420/MSGX
   RATE           10976-DP     11807/MSGX   11811/MSGX
   RATES          10673-DP     11790/MSGX   11813/MSGX   11817/MSGX   12083/MSGX
   RB              1015-EQU     1147/LI      1538/LW      1739/LH      1750/WD*     1759/LW      1899/CI
      1906/CI      1908/CI      2445/LW      2446/SLS     2447/AW      2448/STW     2451/LI      2452/AW
      2454/LI      2455/AW      2456/STW     2457/LW      2487/STW     2521/LB      2522/CI      2524/STW
      2529/LI      2530/STB     2531/LH      2532/CI      2534/STW     2539/LI      2540/STH     2543/STW
      2769/LI      2780/BDR     3167/LI      3193/WD*     3614/LW      3620/STW*    3624/LW*     3634/AI
      3635/CI      3644/STW     4320/LI      4321/STW     4359/CI      4365/LI      4366/STW     5123/LI
      5124/STW     5145/STH     6801/LW      6802/OR      6803/STW     6844/LB      6845/CI      6880/LB
      7388/LOADWORD             8430/LW      8437/LW      8442/LW      8448/LB      8461/AND     8462/STW
      8474/LW      8475/STW     8478/LW      8479/STW     8482/LW      8483/STW     8486/LW      8487/STW
      8508/LW      8510/LW      9372/RD      9386/CW      9423/LW      9427/XW      9465/XW      9569/LI
   RC               817/LI      1016-EQU     1394/LI      1467/LI      1478/LI      1487/LI      1493/LI
      1499/LI      1504/LI      1539/LW      1666/LM      1667/STM     1830/LI      1916/LI      2163/LI
      2325/STD     2432/LM      2433/STM     2527/LI      2537/LI      2546/LI      2592/LM      2593/STM
      2801/LI      2964/LI      2971/LI      3021/LI      3031/LI      3038/LI      3166/LI      3173/STW
      3188/CI      3198/CI      3205/LI      3212/STW     3225/LW      3226/AND     3229/CI      3236/LI
      3346/LI      3351/LI      3364/LI      3372/LI      3377/LI      3392/LI      3398/LI      3402/LI
      3486/LI      3628/LI      3744/LI      3854/LI      4021/LI      4028/LI      4038/LI      4049/LI
      4056/LW      4057/CW      4061/LI      4069/LI      4263/LI      4345/LI      4501/LI      4703/LI
      4711/LI      4721/LI      4733/LI      4914/LI      4924/LI      5072/LI      5169/STM     5170/LI
      5181/CD      5188/STM     5189/LI      5285/LI      5346/LI      5437/LI      5531/LI      5544/LI
      5574/LI      5586/LI      5616/LI      5625/LI      5669/LI      5678/LI      5694/LI      5846/LW
      5851/LI      5852/#HTECON 5935/LI      6185/LI      6201/LI      6214/LI      6221/LI      6308/LI
      6583/LI      6584/STB     6619/LB      6620/CW      6632/STW     6636/STW     6664/LB      6670/LB
      6673/LB      6680/LI      6681/STB     6696/LB      6702/LB      6708/LB      6713/LB      6721/LI
      6722/STB     6812/LW      6820/LW      7198/LW      7213/LW      7286/LW      7287/CI      7289/AI
      7291/AI      7318/LB      7319/SLS     7323/LB      7324/SLS     7340/AND     7372/LW      7376/LW
      7380/LW      7381/CI      7383/CI      7421/LW      7440/CI      7464/LI      7468/LW      7468/LW
      7469/CI      7648/LD      7649/STD     7693/LH      7902/LW      7907/LW      7909/SW      7950/LH
      7954/LB      7961/LW      7966/LI      7968/SLD     8024/LW      8027/LW      8030/LW      8033/LW
      8036/LW      8061/LB      8635/LW      8642/LH      8645/LH      8648/LH      8765/LW      8766/SLS
      8987/STB     9339/LW      9340/STW     9424/LW      9428/XW      9566/LI      9694/SLD     9721/SLD
      9754/LI      9755/DW      9761/LW      9765/LD      9793/STW
   RD               818/LI      1017-EQU     1470/LW      1762/LB      1765/LI      1769/CW      1831/LI
      1912/LI      2312/LW      2314/CI      2316/AI      2317/CI      2319/AI      2320/CI      2322/AI
      3200/LI      3202/LI      3203/CW      3231/LI      3233/LI      3234/CW      3335/STW     3361/CW
      3370/CI      3388/LMS     3389/LCF     3485/LW      3627/LW      3745/LW      3852/LW      4019/LW
      4029/LI      4039/LI      4050/LI      4062/LI      4070/LI      4346/LW      4499/LW      4704/LW
      4722/LI      4734/LI      4915/LW      4925/LW      5073/LW      5171/LW      5190/LW      5191/AI
      5286/LW      5347/LW      5425/LW      5426/STW     5517/LW      5518/STW     5545/LW      5562/LW
      5563/STW     5587/LW      5626/LW      5679/LW      5695/LI      7304/LI      7332/LI
      7363/LOADWORD             7372/LW      7434/LOADWORD             7476/LOADWORD             7917/AW
      7922/AW      7967/LW      7969/SLS     9567/LI      9690/STW     9693/LW      9695/SCS     9697/XW
      9717/STW     9720/LI      9722/SCS     9723/CB      9725/AI      9726/STB     9729/LW      9758/OR
      9761/LW      9763/OR      9794/STW
   RDACT#A         8833-LW      8866/B       8880/BLE
   RDACT#B         8838/BE      8843-AI
   RDACT#C         8845/BGE     8850-LW
   RDACT#D         8862-SLS     8865/BDR
   RDACT#E         8863/BC      8868-SLS
   RDACT#F         8858/BEZ     8879-CI
   RDACT#N         8841/B       8884-LW
   RDACT#X         8878/B       8888-LCI
   RDEXP#A         8917/BNEZ    8922-LI
   RDEXP#B         8924/BNEZ    8927-LI
   RDEXP#C         8929/BNEZ    8933-LW
   RDEXP#D         8938-LW      8944/BDR
   RDIMP#A         9034-LI      9056/BLE
   RDIMP#B         9037-SLS     9048/BLE     9052/BLE
   RDIMP#C         9046/BE      9051-CI
   RDIMP#D         9049/B       9054-AI
   RDLOC#A         9086-CB      9091/B
   RDLOC#B         9087/BE      9093-AI
   RDLOC#W         9089/BGE     9102-LI
   RDLOC#X         9099/B       9104-LCI
   RDSEQ#A         9132-SLS     9139/BIR
   RDSEQ#B         9133/BEV     9139-BIR
   RDSEQ#C         9160/GEN     9179-LI
   RDSEQ#D         9188-LH      9215/B       9220/B       9225/B       9230/B       9235/B       9240/B
      9245/B       9250/B       9255/B       9260/B       9265/B       9270/B       9275/B       9280/B
   RDSEQ#E         9185/B       9191-AI      9199/BIR     9210/B
   RDSEQ#F         9161/GEN     9204-LI
   RDSEQ#G         9162/GEN     9212-LI
   RDSEQ#H         9163/GEN     9217-LI
   RDSEQ#J         9164/GEN     9222-LI
   RDSEQ#K         9165/GEN     9227-LI
   RDSEQ#L         9166/GEN     9232-LI
   RDSEQ#M         9167/GEN     9237-LI
   RDSEQ#N         9168/GEN     9242-LI
   RDSEQ#P         9169/GEN     9247-LI
   RDSEQ#Q         9170/GEN     9252-LI
   RDSEQ#R         9171/GEN     9257-LI
   RDSEQ#S         9172/GEN     9262-LI
   RDSEQ#T         9173/GEN     9267-LI
   RDSEQ#U         9174/GEN     9272-LI
   RDSEQ#V         9175/GEN     9277-LI
   RDSEQCOM        9141-LI      9148/BDR     9200/B
   RDSTAT#B        9327-MTW
   RDSTAT#C        9328/BNEZ    9333-LI
   RDSTAT#D        9331/B       9338-EQU
   RDSTATES        1714/BAL     1755/BAL     8977-STW
   RE              1018-EQU     1471/LW      3393/LW      3484/LI      3626/LI      3746/LI
      3791/LLOCKS  3853/LI      4020/LW      4030/LI      4040/LI      4051/LI      4063/LI      4071/LW
      4347/LI      4500/LI      4705/LI      4723/LI      4735/LI      4916/LI      4926/LW      5074/LI
      5172/LI      5184/CD      5192/LI      5287/LI      5348/LI      5546/LI      5588/LI      5627/LI
      5680/LI      7334/LI      7362/LOADWORD             7433/LOADWORD             7477/LOADWORD
      7629/AND     7630/STH     7631/SLS     7632/STH     7634/STH     7650/LW      7651/STW     9796/STW
      9801/LW      9802/SCS     9803/AW      9804/EOR     9805/EOR     9806/STW
   READ           11011-DP     12096/MSGX
   READ%NPDF       6177/BAL     6190/BAL     6196/BAL     6211/BAL     6228-EQU     6242/GEN
   READACT         1311/BAL     1424/BAL     2851/BAL     8830-LCI     9543/BAL     9551/BAL
   READEXP         2679/BAL     3095/BAL     5776/BAL     8905-LCI
   READFF          3186/BAL     3196/BAL     3213/BAL     3227/BAL     3399/BAL     6665/BAL     7292/BAL
      8977/STW     8983-STW     8983/STW     9004/STW     9007/LW      9008/B*
   READFF#A        8980/B       8990-NOP
   READIMP         1219/BAL     1960/BAL     8048/BAL     9030-LCI
   READLOC         2802/BAL     3177/BAL     9081-LCI
   READS          10959-DP     12421/MSGX
   READSEQ         2126/BAL     2847/BAL     3099/BAL     5784/BAL     9123-LCI
   READSTAT        9298-BAL     9929/E
   RECOVERY       10882-DP     12188/MSGX   12275/MSGX
   REFERENCE      11046-DP     11816/MSGX
   REFERENCED     11029-DP     11813/MSGX
   REG%BLOCKS      5422/LW      5448/STW     5469/LW      5489/STW     5731-DATA
   REGISTER       11069-DP     11799/MSGX   11801/MSGX   12033/MSGX   12322/MSGX
   REGISTERS      10846-DP     11797/MSGX   11996/MSGX   12108/MSGX
   REGSAV         11143-DP     11840/MSGX   11994/MSGX
   REGTABLE        5664/LM      5685/CW      5687/CW      5689/CW      5695/LI      5732-DATA
   REGULAR        11136-DP     11990/MSGX
   REGXPSDS        2143/LM      3111/LM      5793/LM      6975/LI     10449-RES
   REJECTION      11055-DP     11917/MSGX
   RELATE         10945-DP     11984/MSGX
   RELATIVE       10864-DP     11790/MSGX   11953/MSGX
   RELEASE        11123-DP     12436/MSGX
   RELEASED       11093-DP     12122/MSGX
   RELEASES       11082-DP     12443/MSGX
   REP%CHAR        6384/BE      6449-EQU
   REPEAT          1257/DATA    5830/B       8366-EQU
   REPLACEMENT    11019-DP     12216/MSGX
   REPORT         10928-DP     12268/MSGX
   REPRESENTED    11025-DP     11972/MSGX   11973/MSGX
   REPRESENTS     11041-DP     11953/MSGX
   RESET          11153-DP     12188/MSGX
   RESPECTIVELY   10835-DP     12038/MSGX   12417/MSGX
   RESTART        11113-DP     12254/MSGX
   RESTORE%CLKS     740/BAL     5996/BAL     7096/BAL     7504/BAL     9410-EQU
   RESTORE%CLKS#A  9430-EQU     9462/BGE
   RESTORE%CLKS#B  9438/B       9446/B       9449/B       9453/B       9458-EQU
   RESTORE0        9435/B       9444-WD
   RESTORE1        9436/B       9448-WD
   RESTORE2        9437/B       9445-WD
   RESTORE4        9439/B       9451-WD
   RESTORE5        9440/B       9452-WD
   RESTORE6        9441/B       9455-WD
   RESTORE7        9442/B       9456-WD
   RESUMED        11108-DP     12197/MSGX
   RETRY%FLAG      1707/STW     1841/MTW     3162/STW     7393/LW     10052-DATA
   REVERSE        11124-DP     12436/MSGX
   RF              1019-EQU     1723/STW     1757/LW      1873/LW      1896/LW      1919/LI      2725/LI
      2735/LI      2746/LI      2750/LI      2830/BDR     3187/STW     3214/STW     3403/LI      3993/LI
      4031/LI      4041/LI      4052/LI      4064/LI      4072/LI      4150/B*      4151/B*      4724/LI
      4736/LI      5193/LI      5696/LI      6793/LW      6802/OR      6911/SLS     6914/SLS
      7364/LOADWORD             7421/LW      9568/LI
   RM             11192-DP     12214/MSGX
   RM%EXPL         9941/P      12212-EQU
   ROUTINE        11114-DP     12291/MSGX
   RPATTCNT        7645/LW      7672-DATA
   RPATTNO         7615/CW      7617/MTW     7652/STW     7671-DATA
   RR             11770-EQU    11785/MSGX   11785/MSGX   11823/MSGX   11823/MSGX   11823/MSGX   11853/MSGX
     11904/MSGX   12153/MSGX
   RUN            11015-DP     11787/MSGX   11926/MSGX   12171/MSGX   12195/MSGX
   RUNTESTMSG      8498/#TYPE  11786-EQU
   S              10828-DP     11801/MSGX   11900/MSGX   11972/MSGX   11973/MSGX   12038/MSGX   12218/MSGX
     12218/MSGX   12269/MSGX   12287/MSGX   12421/MSGX
   S%EXPL          9946/P      12217-EQU
   S:INT            544/ERROR    597/SET      606/SET      616/ERROR    620/SET      622/SET      631/DO
   S:NUMC           839/SET      855/SET
   S:RAD            620/SET      642/DO       673/ERROR
   S:UFV            642/DO       673/ERROR
   SAME           10721-DP     11817/MSGX   12049/MSGX   12053/MSGX   12183/MSGX   12188/MSGX   12190/MSGX
     12432/MSGX
   SAVE            1240/LI      1594/STM     1604/LM      5870/STM     5889/LD      5898/STM     5908/LM
      6262/STM     6279/LM      7078/STM     7099/LM      7528/STM     7537/LM      7556/STM     7596/LM
      7767/STM     7774/LW      7776/LM      7796/STM     7807/LM      7819/STM     7825/LM      7843/STM
      7871/STM     7901/STM     7906/STM     7930/LM      8103/STM     8154/LM      8164/LM      8831/STM
      8889/LM      8906/STM     8946/LM      8979/STM     8985/STM     9006/LM      9031/STM     9059/LM
      9082/STM     9105/LM      9124/STM     9151/LM      9639/STM     9673/LM      9690/STW     9691/STW
      9697/XW      9698/LW      9699/B*      9716/STW     9717/STW     9718/STW     9729/LW      9730/LW
      9731/B*      9749/STM     9772/LM     10118-RES
   SAVE%CLKS        693/BAL     5855/BAL     5994/BAL     7094/BAL     7502/BAL     9356-EQU     9360/B*
      9362/LW      9411/STW     9414/B*      9416/LW
   SAVE%CLKS#A     9378-EQU     9391/BDR
   SAVE#ERR        4071/LW      7187/STM     7380/LW      7401/MTW     7464/LI      7468/LW
      7476/LOADWORD             7477/LOADWORD             7490/STM     7500/LM      7511/LM      7516-RES
   SAVE#1          6792/STM     6922/LM      7613/STM     7663/LM      7689/STM     7709/LM      7727/STM
      7752/LM      7949/STM     7953/STM     7960/STM     7967/LW*     7970/LW*     7973/LM      8634/STM
      8673/LM      8693/STM     8721/LM      8762/STM     8772/LM      8793/STM     8802/LM      9508/STM
      9556/LM     10119-RES
   SAVE#2          1098/STM     1252/LM      4381/DST     4389/UNPK    6073/STM     6145/LM      6490/STM
      6539/LM      6566/STM     6731/LM      8288/STM     8325/LM      8327/B*      8342/LM      8396/STW
      8543/B*      9304/STM     9343/LM     10120-RES
   SAVE#3          5923/STM     5960/LM      6296/STM     6311/LM      8013/STM     8052/LM      8077/LM
      8293/STW     8301/LW      8312/STW    10121-RES
   SAVE#4          1303/STM     1365/LM      1386/LM      1402/LM      1412/STM     1437/STM     2142/STM
      2157/LM      5844/STM     5846/LW      5851/LI      7474/LI      9565/STM    10122-RES
   SAVE#5          6162/STM     6225/LM     10123-RES
   SAVE#6          9364/STM     9417/STW     9470/LM      9481-RES
   SAVED          10675-DP     11797/MSGX   11996/MSGX
   SAVEINH         9366/STW     9467/LW      9483-DATA
   SAVELINK        9592/STW     9618/B*     10124-RES
   SC             10641-DP     12165/MSGX
   SEARCHES       11084-DP     12448/MSGX
   SECOND         10949-DP     12051/MSGX
   SEED            7650/LW      7670-DATA
   SELECT         10935-DP     11924/MSGX   12407/MSGX
   SELECTED       10880-DP     12184/MSGX   12240/MSGX   12242/MSGX
   SELECTS        10903-DP     12247/MSGX   12250/MSGX   12253/MSGX   12254/MSGX
   SEND             891-CNAME
   SENSE          10695-DP     12218/MSGX   12220/MSGX   12222/MSGX
   SEQCNT          1331/MTW     1332/LW      1448/MTW     1454/MTW     1456/LW      1554/LW      2159/LW
      2968/LW      3035/LW      6579/LW      7802/STW    10053-DATA
   SEQCOM          2128/LI      2168/STB     2193/LW      2195/STW     2205/STB     2208/STB     2705/LW
      8765/LW      8798/STB     8835/LW      9142/LW      9146/LW      9160-GEN
   SEQMSG          7443/LB     10572-TEXT
   SEQUENCE       10877-DP     11863/MSGX   11863/MSGX   12151/MSGX   12151/MSGX   12153/MSGX   12319/MSGX
   SERVICED       11096-DP     12134/MSGX
   SET            10776-DP     11891/MSGX   12142/MSGX   12144/MSGX   12410/MSGX
   SETCC           3396/LW      3470/LB      3476/LC      3601/LB      3616/LC      3700/LB      3710/LC
      3827/LB      4330/LB      4336/LC      4475/LB      4491/LC      5397/LB      5433/LC      5476/LC
      5527/LC      5570/LC      5608/LB      5612/LC      5649/LB      5665/LC      8460/STW    10055-DATA
   SETHIGH         1695/BAL     2134/BAL     2155/BAL     3100/BAL     3121/BAL     5785/BAL     5803/BAL
      8468/BAL     9504-EQU
   SETHIGH#1       9510/BNEZ    9541-AI
   SETHIGH#2       9546/BE      9555-LCI
   SETHIGHABORT    9553/BNE     9563-EQU
   SETM#A          9596-LB
   SETM#B          9600/BCS     9604-AND
   SETM#X          9598/BL      9602/B       9617-LI
   SETMARGIN       5829/BAL     9591-RES
   SETPATT         2136/BAL     2703/BAL     3101/BAL     5786/BAL     9638-LCI
   SETS           10997-DP     12421/MSGX   12443/MSGX
   SEVEN           2930/AND     3523/GEN     3524/GEN     3525/GEN     3526/GEN     3527/GEN     3528/GEN
      3529/GEN     3530/GEN     3531/GEN     3532/GEN     3536/GEN     3537/GEN     3538/GEN     3539/GEN
      3540/GEN     3541/GEN     3542/GEN     3543/GEN     3544/GEN     3545/GEN     3546/GEN     3547/GEN
      3548/GEN     3549/GEN     3550/GEN     3551/GEN     3552/GEN     3553/GEN     3554/GEN     3555/GEN
      3556/GEN     3557/GEN     3558/GEN     3559/GEN     3560/GEN     3561/GEN     3562/GEN     3563/GEN
      3564/GEN     3565/GEN     3566/GEN     3567/GEN     3568/GEN     3569/GEN     5773/AND     7562/DW
      7578/DW      7585/DW      7592/AND    10480-DATA
   SHORT          10696-DP     12224/MSGX   12225/MSGX
   SI             10792-DP     11876/MSGX   12391/MSGX   12394/MSGX
   SICOUNT         1213/STW     5821/DW      8139/STW     8175-DATA
   SIGMA          10681-DP     12461/MSGX   12474/MSGX
   SIGMA8          1125/STCF    1271-DATA    3609/MTB     3902/LB      3915/MTB     4185/LB      4296/MTB
      4312/MTB     5100/MTB     5116/MTB     5508/MTB     8545/LB
   SINCE          11159-DP     12275/MSGX
   SIX            10479-DATA
   SIZE           11005-DP     12032/MSGX
   SKIP           10978-DP     12181/MSGX
   SKIPPED        11101-DP     11843/MSGX
   SKP:INC         6403/B       6412/BL      6414/BG      6417-BDR     6467/BE      6468/B
   SL             10638-DP     11820/MSGX   11820/MSGX   11820/MSGX   11820/MSGX   11827/MSGX   11885/MSGX
     11935/MSGX   11948/MSGX   11948/MSGX   11955/MSGX   12040/MSGX   12040/MSGX   12042/MSGX   12042/MSGX
     12044/MSGX   12044/MSGX   12046/MSGX   12046/MSGX   12161/MSGX   12181/MSGX   12273/MSGX   12374/MSGX
     12474/MSGX
   SLAVE          10961-DP     12451/MSGX
   SLOW           10996-DP     12400/MSGX   12400/MSGX
   SNAP%CW         6229/LW      6241-EQU
   SO             11193-DP     12415/MSGX
   SOFTWARE       11062-DP     12222/MSGX
   SPECIAL        11133-DP     11979/MSGX
   SPECIFIED      11051-DP     12187/MSGX
   SPECIFIES      11056-DP     11945/MSGX
   SPUR            1433-EQU    10135/BAL
   SPUR%EROR       7473/SEND   11839-EQU
   SPURIOUS       10875-DP     11846/MSGX   12064/MSGX   12314/MSGX
   SPURTRAP        1435-STCF   10136/BAL
   STACK           4682/LI      4687/STW     4715/LW      4723/LI      4727/LI      4753-RES
   STACKMASK       4681/AND     4821-DATA
   STACK25A        4116/DATA    4133-DATA
   START          10670-DP     11781/MSGX   12411/MSGX   12411/MSGX
   STARTING       10886-DP     12030/MSGX   12031/MSGX   12317/MSGX   12411/MSGX
   STAT%EXPL       9931/P      12267-EQU
   STATE          10687-DP     11863/MSGX   11863/MSGX   11999/MSGX   12004/MSGX   12037/MSGX   12048/MSGX
     12052/MSGX   12075/MSGX   12076/MSGX   12076/MSGX   12119/MSGX   12120/MSGX   12120/MSGX   12125/MSGX
     12190/MSGX   12195/MSGX   12326/MSGX   12328/MSGX
   STATES         10939-DP     12038/MSGX   12421/MSGX
   STATEXP%        9339/LW      9931-P
   STATMSG         9305/SEND   11826-EQU
   STATMSGS        5827/BAL     6037/BAL     6048/BAL     9298/BAL     9302-RES
   STATUS         10659-DP     12026/MSGX   12027/MSGX   12131/MSGX   12220/MSGX   12220/MSGX   12233/MSGX
     12268/MSGX   12309/MSGX   12311/MSGX   12391/MSGX   12392/MSGX   12393/MSGX
   STKCNT          4677/LW      4772-EQU
   STKINST         4694/EXU     4704/LW      4757-PSW
   STOP           10724-DP     11820/MSGX   11820/MSGX   12412/MSGX   12412/MSGX
   STOPPED        11122-DP     12414/MSGX
   STORED         10663-DP     11992/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX   12289/MSGX
     12299/MSGX
   STRING         10952-DP     12116/MSGX
   STRIPZ          6617/LOADBYTE             6625/LOADBYTE             6627/LOADBYTE
      6674/LOADBYTE             6697/LOADBYTE             6714/LOADBYTE             6972/LOADHALF
      7005/LOADWORD             7019/LOADWORD             7244/LOADHALF             7250/LOADHALF
      7251/BUFFER  7312/LOADHALF             7314/LOADHALF             7335/LOADWORD
      7362/LOADWORD             7363/LOADWORD             7364/LOADWORD             7459/LOADHALF
      7461/LOADHALF             7463/LOADWORD             7905-LCI     9307/LOADHALF
      9309/LOADHALF             9325/LOADWORD
   STRIPZ#A        7910-LB      7914/BDR
   STRT           10723-DP     11820/MSGX   11820/MSGX
   SUB            10758-DP     11820/MSGX   11820/MSGX
   SUBTEST        10891-DP     11781/MSGX   11978/MSGX   12269/MSGX   12309/MSGX   12311/MSGX   12315/MSGX
     12331/MSGX   12392/MSGX   12411/MSGX   12412/MSGX   12419/MSGX
   SUBTESTS       11074-DP     12409/MSGX   12415/MSGX
   SUBTST         10915-DP     11827/MSGX   11834/MSGX   11968/MSGX   11978/MSGX   12269/MSGX
   SUPP%CC         3340/MTW    10058-DATA
   SUPPOSEDLY     10844-DP     12128/MSGX   12136/MSGX
   SUPPRESS       11063-DP     12228/MSGX   12230/MSGX
   SW             10803-DP     12224/MSGX   12225/MSGX   12226/MSGX   12227/MSGX   12228/MSGX   12229/MSGX
     12230/MSGX   12231/MSGX
   SWITCH         10911-DP     11793/MSGX   12192/MSGX   12218/MSGX   12220/MSGX   12222/MSGX
   SYNTAX         10926-DP     12198/MSGX
   SYNTAX%EXPL     9926/P      12179-EQU    12492/ORG
   SYSTEM         10922-DP     11801/MSGX   12188/MSGX
   T                832-CNAME  10818-DP     11823/MSGX   11976/MSGX   12001/MSGX   12165/MSGX   12254/MSGX
     12326/MSGX   12406/MSGX
   T%ENTRY         8408/STW     8463/MTW     8489/MTW     8492/MTW     8542/MTW     8607-DATA
   T%EXPL          9951/P      12405-EQU
   T%SAVE          8373/STW     8398/STW     8400/STW     8402/STW     8404/STW     8406/STW     8411/LW
      8443/LW      8471/LW      8482/LW      8508/LW      8605-RES
   TABLE          10684-DP     11846/MSGX   11858/MSGX   11994/MSGX   12030/MSGX   12031/MSGX   12032/MSGX
     12113/MSGX   12237/MSGX   12315/MSGX
   TABLE3          1065/DATA    7846/LI      9921-EQU
   TABLE3END       9998-DATA
   TABLSW          6385/BG      6436-EQU
   TCC            10760-DP     11840/MSGX   11991/MSGX   12078/MSGX   12081/MSGX
   TENS            9755/DW      9775-DATA
   TERMINAL       11203-DP     12220/MSGX
   TERMINATES     11031-DP     12204/MSGX   12206/MSGX
   TEST           10712-DP     11781/MSGX   11785/MSGX   11802/MSGX   11926/MSGX   11975/MSGX   12085/MSGX
     12087/MSGX   12089/MSGX   12254/MSGX   12269/MSGX   12406/MSGX   12410/MSGX   12411/MSGX   12412/MSGX
     12417/MSGX   12419/MSGX   12419/MSGX
   TESTEND         5815-LW      6032/BEZ     6034/BGZ     6042/B
   TESTEND#A       5823/BNEZ    5829-BAL
   TESTHIGH        1694/STW     1703/STW     1717/MTW     1844/MTW     1853/MTW     1935/MTW    10060-DATA
   TESTING        11109-DP     12197/MSGX   12233/MSGX
   TESTMACH        1126/#TYPE   1130/STB     1131/#TYPE  12579-TEXTCS
   TESTNO          1052-DATA    1360/AND     1371/LW      1537/LW      1652/LW      1681/STW     1731/LW
      1737/STW     2038/LW      2052/STW     2265/STW     2417/LW      2430/STW     2508/LW      2588/STW
      2654/LW      2670/STW     2839/STW     2903/LW      2916/STW     2927/STW     2929/LW      2979/MTW
      2980/LW      3086/STW     3156/LW      3175/STW     3210/LW      3225/LW      3263/CW      3444/LW
      3460/STW     3505/STW     3585/LW      3593/STW     3653/STW     3679/LW      3689/STW     3755/LW
      3766/STW     3805/LW      3815/STW     3863/LW      3873/STW     3908/LW      3921/STW     3931/LW
      3972/LW      4087/LW      4091/MTW     4187/LW      4213/STW     4245/STW     4303/LW      4321/STW
      4366/STW     4425/LW      4462/STW     4511/LW      4523/MTW     4632/LW      4643/STW     4650/LW
      4666/LW      4678/LW      4700/LW      4746/MTW     4747/LW      4848/LW      4854/STW     4881/LW
      4943/MTW     5036/LW      5042/STW     5107/LW      5124/STW     5146/LW      5164/LW      5202/LW
      5211/STW     5248/LW      5252/LW      5260/STW     5307/LW      5317/STW     5421/STW     5468/STW
      5516/STW     5561/STW     5603/STW     5644/STW     5758/STW     5766/LW      6020/LW      6269/CW
      7460/LI      8487/STW     8551/#HTECON 9505/MTW
   TESTS          10671-DP     11787/MSGX   11843/MSGX   11976/MSGX   12409/MSGX   12415/MSGX   12417/MSGX
     12434/MSGX   12438/MSGX   12460/MSGX   12473/MSGX   12483/MSGX
   TEXTCS           765-CNAME
   THAND#A         3356/BCR     3370-CI
   THAND#B         3362/BE      3366/B       3371/BE      3374-LB
   THAND#C         3376/BE      3379-LW
   THAND#D         3387-LCI
   THAND#E         3381/BE      3383/BE      3401/BE      3409-LPSD
   THAND#X         3333/BCS     3385/BNE     3412/DATA    3418-LCI
   THAT           10740-DP     12331/MSGX   12434/MSGX   12438/MSGX   12457/MSGX
   THE            10755-DP     11816/MSGX   11917/MSGX   11924/MSGX   11945/MSGX   11953/MSGX   11953/MSGX
     11980/MSGX   11984/MSGX   11984/MSGX   11990/MSGX   12113/MSGX   12122/MSGX   12153/MSGX   12186/MSGX
     12186/MSGX   12187/MSGX   12194/MSGX   12197/MSGX   12204/MSGX   12218/MSGX   12233/MSGX   12286/MSGX
     12287/MSGX   12289/MSGX   12290/MSGX   12291/MSGX   12291/MSGX   12293/MSGX   12318/MSGX   12344/MSGX
     12362/MSGX   12363/MSGX   12390/MSGX   12394/MSGX   12407/MSGX   12410/MSGX   12410/MSGX
   THEM           11000-DP     12436/MSGX
   THEN           10999-DP     12436/MSGX
   THEREFORE      11045-DP     11813/MSGX
   THIS           10738-DP     11924/MSGX   11945/MSGX   12273/MSGX   12407/MSGX
   THREE           5609/AND     7085/AND     9316/AND     9604/AND     9611/AND    10476-DATA
   THROUGH        11134-DP     11982/MSGX
   THRU           10714-DP     11787/MSGX   11902/MSGX   11949/MSGX   11949/MSGX   12060/MSGX   12186/MSGX
     12249/MSGX   12252/MSGX   12287/MSGX   12294/MSGX   12324/MSGX
   TIME           10980-DP     12184/MSGX   12423/MSGX
   TIMER          10965-DP     12479/MSGX
   TIMES          10954-DP     12410/MSGX
   TITLE            515/OPEN     516-CNAME
   TO             10782-DP     11781/MSGX   11790/MSGX   11813/MSGX   11924/MSGX   11926/MSGX   11945/MSGX
     11984/MSGX   12069/MSGX   12181/MSGX   12181/MSGX   12190/MSGX   12192/MSGX   12192/MSGX   12195/MSGX
     12195/MSGX   12218/MSGX   12220/MSGX   12254/MSGX   12286/MSGX   12388/MSGX   12406/MSGX   12407/MSGX
     12409/MSGX   12413/MSGX   12421/MSGX   12443/MSGX   12477/MSGX
   TOO            11190-DP     12156/MSGX
   TOTAL          11158-DP     12275/MSGX
   TRANSFER       11065-DP     12254/MSGX   12406/MSGX
   TRAP           10726-DP     11802/MSGX   11843/MSGX   11980/MSGX   12010/MSGX   12011/MSGX   12023/MSGX
     12067/MSGX   12069/MSGX   12078/MSGX   12081/MSGX   12093/MSGX   12095/MSGX   12098/MSGX   12100/MSGX
     12144/MSGX   12242/MSGX   12284/MSGX   12460/MSGX   12467/MSGX   12473/MSGX   12479/MSGX   12480/MSGX
   TRAPACC         3276/GEN     3291/DATA    3293-RES
   TRAPACCP        3291-DATA    3334/SW
   TRAPECC         3375/CB      3469/STB     3605/STB     3697/STB     3824/STB     3980/STB     4265/STB
      4325/STW     4489/STB     4663/STB     4892/STB     5131/STW     5272/STB     5324/STB     5400/STB
      7323/LB     10061-DATA
   TRAPEPSD        3337/LW      3348/LW      3467/STW     3471/STB     3475/STW     3603/STW     3613/STW
      3695/STW     3699/STH     3701/STB     3703/STW     3818/STW     3822/STW     3826/STH     3828/STB
      3944/STW     3953/STH     3961/STW     4019/LW*     4020/LW      4329/STW     4331/STB     4335/STW
      4471/STW     4476/STB     4480/STW     4657/STW     4661/STW     4665/STB     4880/STW     4885/STB
      4891/STW     5051/STW     5053/STB     5055/STW     5135/STW     5139/STW     5145/STH     5265/STW
      5270/STW     5322/STW     5328/STW     5393/STW     5398/STB     5403/STW     5428/AWM     5473/AWM
      5522/AWM     5565/AWM     5605/AWM     5646/AWM     7343/LW     10063-DATA
   TRAPHAND        3295/BAL     3326/DATA    3327-STCF    6164/CI
   TRAPHP          3326-DATA    7004/LI
   TRAPINCR        3361/CW      3463/STW     3498/LW      3511/STW     3595/STW     3645/LW      3658/STW
      3691/STW     3771/STW     3817/STW     3878/STW     3978/STW     4324/STW     4372/STW     4464/STW
      4465/MTW     4514/MTW     4532/STW     4662/STW     4861/STW     5047/STW     5126/STW     5266/STW
      5323/STW     5394/STW     7306/LI     10065-DATA
   TRAPLOC         3353/LW      3379/LW      3443/STW     3457/STW     3584/STW     3678/STW     3804/STW
      3925/STW     4302/STW     4318/STW     4424/STW     4432/MTW     4436/MTW     4440/MTW     4444/MTW
      4448/MTW     4452/MTW     4474/STW     4636/STW     4641/STW     4865/STW     5057/STW     5106/STW
      5121/STW     5276/STW     5336/STW     5391/STW     6166/LW      7453/LI     10066-DATA
   TRAPPING       11089-DP     12022/MSGX
   TRAPPSD         3275-GEN     3336/LW      3349/CW      3783/LRP     4925/LW      4926/LW      7010/LI
      7344/LW     10456/XPSD
   TRAPRET         3420/B*      3473/STW     3607/STW     3705/STW     3726/B*      3831/STW     3927/STW
      4333/STW     4478/STW     4659/STW     4894/STW     5059/STW     5137/STW     5274/STW     5334/STW
      5430/STW     5475/STW     5524/STW     5567/STW     5607/STW     5648/STW    10067-DATA
   TRAPS           1226/STW    12526-EQU    12527/EQU
   TRAPSAVE        3329/STM     3419/LM      3422-RES     4030/LI      4040/LI      4051/LI      4734/LI
      7365/LI
   TRAPSPD         4684/STD     4728/CW      4730/CW      4735/LI      4755-RES     4757/PSW     4758/PLW
      4759/PSM     4760/PLM     4761/MSP     4762/MSP
   TRAPXPSD        3464/LW      3507/LW      3596/LW      3654/LW      3692/LW      3767/LW      3819/LW
      3874/LW      3932/LW      4326/LW      4368/LW      4466/LW      4533/LW      4653/LW      4862/LW
      5048/LW      5132/LW      5267/LW      5325/LW      5395/LW      7002/CW     10456-XPSD
   TRAP4C          5327/LI      5342-LW      5347/LW      5348/LI
   TRAP4D1         5427/LI      5435-WD      5458/B
   TRAP4D2         5472/LI      5478-XPSD    5499/B
   TRAP4D3         5521/LI      5529-WD      5552/B
   TRAP4D4         5564/LI      5572-WD      5594/B
   TRAP4D5         5604/LI      5611/STW     5614-NOP     5626/LW      5627/LI      5633/B
   TRAP4D6         5645/LI      5662/STW     5667-NOP     5679/LW      5680/LI      5700/B
   TRAP40A         3466/LI      3480-EXU     3484/LI      3493/B       3497/BLE
   TRAP40B         3600/LI      3620-STW     3626/LI      3627/LW      3636/BG      3643/B
   TRAP40C         3694/LI      3707/LPSD    3714-EXU     3746/LI      3780/GEN     3782/WAIT
   TRAP40D         3821/LI      3829/STB     3833/LPSD    3839-EXU     3853/LI
   TRAP40E         3943/LI      3955/LI      3957/STW     3971/STW     3995/LPSD    4002-RES
   TRAP41          4328/LI      4340-EXU     4347/LI      4354/B       4358/BLE
   TRAP42          4656/LI      4694-EXU     4705/LI      4740/B
   TRAP43          4875/STH     4877/LI      4899/STW     4901/LPSD    4908-RES     4915/LW      4916/LI
   TRAP44          5050/LI      5062/LPSD    5064/GEN     5068-FDS     5073/LW      5074/LI
   TRAP45          5134/LI      5144/STW     5151/DATA    5153/GEN     5159-DATA    5171/LW      5172/LI
   TRAP46          5269/LI      5281-RD      5286/LW      5287/LI      5291/B
   TRAP48          4470/LI      4495-EXU     4500/LI      4508/B
   TRIG             993-EQU     1932/WD      2003/DATA    2005/DATA    2005/DATA    2007/DATA    2009/DATA
      2009/DATA    2011/DATA    2013/DATA    2015/DATA    2015/DATA    2017/DATA    2017/DATA    2019/DATA
      2021/DATA    2470/WD      2477/WD      2484/WD      2796/WD      2878/WD      5435/WD      5529/WD
      5572/WD      9456/WD      9655/WD      9658/WD
   TRIGGER         2878-WD
   TRIGGERED      10851-DP     11883/MSGX   11929/MSGX   12001/MSGX   12368/MSGX   12438/MSGX
   TRUNCATE       10573-TEXT
   TRY            11187-DP     12051/MSGX
   TST            10757-DP     11820/MSGX   11820/MSGX   11827/MSGX   11834/MSGX   11968/MSGX   11975/MSGX
     12269/MSGX
   TST%BY          3903/BCS     3907/BG      4186/BCS     4299/BEZ     5101/BNEZ    5103/BNEZ    8545-LB
   TST11A          1675-EQU     1804/B       1816/B
   TST11B          1697/B       1705-EQU     1790/B
   TST11C          1754/BCS     1774/BE      1782-BAL     1825/BE      1911/BE      1921/B
   TST11D          1787-CI
   TST11E          1730/BCR     1788/BGE     1794-CI
   TST11F          1797/BGE     1800/BGE     1808-CI
   TST11G          1770/BNE     1820-EQU
   TST11H          1830-LI
   TST11I          1823/BNEZ    1834-EQU     1870/B
   TST11I#1        1783/B       1842/BEZ     1848-EQU
   TST11I#2        1860/BNE     1862/BG      1872-EQU
   TST11J          1845/BNEZ    1884-EQU
   TST11K          1836/BG      1846/B       1900/BNE     1905/BNE     1909/BNE     1915-EQU
   TST11L          1875/B       1877/B       1923-WD
   TST11M          1876/B       1926-WD
   TST11N          1879/B       1880/B       1928-WD
   TST11P          1881/B       1882/B       1931-WD
   TST11R          1878/B       1925/B       1927/B       1930/B       1933/B       1935-MTW
   TST11RETRY      1741-LW      1936/BNEZ    1941/B
   TST11X          1809/BGE     1949-LW
   TST1100         1264/DATA    1662-RES
   TST12#A         2062-SLS     2066/BLE
   TST12#A1        2063/BC      2070-LW
   TST12#B         2076-SLS     2080/BLE
   TST12#B1        2077/BC      2084-LH
   TST12#C         2088-LI      2106/BL
   TST12#D         2098-SLS     2101/B
   TST12#E         2090/BEZ     2096/BEZ     2104-AI
   TST12#F         2177-LB      2183/BLE     2211/BLE
   TST12#H         2196/B       2206/B       2209-AI
   TST12#J         2184/B       2212-EQU
   TST12#R         2055/LI      2137/LI      2150-MTW
   TST12#X         2048/BNEZ    2218/B       2224-MTW
   TST1200         1950/BNEZ    1961/B       2044-RES     2226/B
   TST13#A         2309-LI
   TST13#B         2312-LW      2333/BLE
   TST13#C         2313/BEZ     2323-BAL
   TST13#E         2285/BL      2287/BG      2338-LI
   TST13#X         2305/B       2330/B       2334/B       2356/B       2368-BAL
   TST13RET        2282-EQU
   TST1300         2227/B       2257-RES     2370/B
   TST14#A         2435-LI      2440/BDR     2498/BNEZ    2515/B       2594/B
   TST14#B         2438/BC      2443-LI      2494/B
   TST14#C         2467/BEZ     2493-BAL     2542/BE      2548/B
   TST14#D         2441/B       2502-CI
   TST14#D1        2505-AI      2574/BEZ
   TST14#E         2489/BNE     2521-LB
   TST14#F         2523/BE      2529-LI
   TST14#G         2533/BE      2539-LI
   TST14#J         2510/BE      2587-LI
   TST14INIT       2434/BAL     2514/BAL     2552-EQU
   TST1400         2371/B       2425-RES
   TST1401         2419/BE      2431-LCI
   TST1402         2421/BE      2591-LCI
   TST15#A         2689-EQU     2701/BDR
   TST15#A1        2712-STH     2759/BE      2821/BE
   TST15#A2        2716-LB      2728/BDR     2730/BDR     2832/BNE
   TST15#B         2718/BNE     2728-BDR
   TST15#C         2721/BLE     2742-LI
   TST15#D         2726/B       2756-CI      2830/BDR
   TST15#E         2761-LH      2816/BNEZ    2818/B       2822/B
   TST15#E1        2765-LH
   TST15#F         2738/B       2747/B       2751/B       2757/BE      2808-CI
   TST15#G         2809/BNE     2820-CI
   TST15#H         2804/B       2827-BAL
   TST15#J         2763/BEZ     2829-AI
   TST15#X1        2811/BE      2834-BAL
   TST15#X2        2851-BAL     2870/DATA
   TST15#X3        2849/B       2854-LI
   TST15#Y         2853/BLZ     2872-BAL
   TST15MSG        2660/#TYPE  11780-EQU
   TST15PSD        2868/LPSD    2870-DATA
   TST1500         2511/B       2659/BE      2661/B       2668-RES     2875/B
   TST16#A         2908/BLE     2922-LI
   TST16#B         2909/B       2929-LW      2977/B       2982/BLE
   TST16#C         2961-LB
   TST16#D         2906/BE      2992-EQU     3043/B
   TST16#F         1397/LI      3026-WD
   TST16#G         3033/B       3041-BAL
   TST1600         2876/B       2911-RES
   TST17#A         3060/BCR     3062/B       3092-BAL     3133/BG
   TST17#B         3097-BAL     3129/B
   TST17#C         3103/LI      3116-MTW
   TST17#X         3124-BAL
   TST1700         2985/BG      3045/B       3084-RES
   TST18#A1        3157/B       3168-LI      3248/BL      3258/B
   TST18#A2        3176-STB
   TST18#A3        3183-EQU     3241/B
   TST18#B         3195/BCS     3204/BE      3209-EQU
   TST18#B1        3222/DATA    3223-LC
   TST18#C         3207/B       3240-BAL
   TST18#D         3224/BCS     3242-AI      3265/B
   TST18#N         3182/BEZ     3262-LW
   TST18PSD        3217/LPSD    3219/LPSD    3222-DATA
   TST1800         3134/B       3159-RES
   TST2A#A         4851/B       4858-EQU
   TST2A#B1        4871-LI      4938/B
   TST2A#B2        4874-LI      4945/BLE
   TST2A#C         4877-LI
   TST2A#C1        4896-LD      4932/B
   TST2A#D         4893/LI      4922-CI
   TST2A#E         4913/BE      4918/B       4923/BE      4931-BAL
   TST2A#F         4934/BE      4940-LI
   TST2A00         4749/BG      4853-LI
   TST2B#C         5061-LW      5080/B
   TST2B#D         5058/LI      5079-BAL
   TST2B01         4946/B       5038/BE      5041-LI
   TST2C#A         5109/BE      5125-LI
   TST2C#A1        5130-STW     5197/B       5201/BLE     5214/B
   TST2C#A2        5128/B       5134-LI
   TST2C#B         5136/LI      5178-EQU
   TST2C#C         5166/BE      5174/B       5185/BE      5196-BAL
   TST2C#D         5111/BE      5212-EQU
   TST2C00         5081/B       5115-RES
   TST2C01         5149/LPSD    5151-DATA
   TST2C02         5148/BEZ     5154-LPSD
   TST2D#B         5273/LI      5290-BAL
   TST2D00         5117/BNEZ    5119/BNEZ    5204/BE      5258-EQU
   TST2E#A         5329-LI      5352/B
   TST2E#B         5333/LI      5351-BAL
   TST2E00         5292/B       5313-EQU
   TST2F%COM       5376/B       5386-EQU     5459/B       5500/B       5514/BE      5553/B       5595/B
      5634/B
   TST2F#A         5405/B       5419-EQU
   TST2F#A1        5444-EQU     5710/XPSD
   TST2F#A2        5424/BE      5429/LI      5439/B       5452/BCS     5457-BAL
   TST2F#B         5406/B       5466-EQU
   TST2F#B1        5478/XPSD    5485-EQU
   TST2F#B2        5471/BE      5474/LI      5493/BCS     5498-BAL
   TST2F#C         5407/B       5506-EQU
   TST2F#C1        5542-EQU     5712/XPSD
   TST2F#C2        5523/LI      5537/B       5551-BAL
   TST2F#D         5408/B       5559-EQU     5713/B
   TST2F#D1        5585-EQU
   TST2F#D2        5566/LI      5580/B       5593-BAL
   TST2F#E         5409/B       5601-EQU
   TST2F#E1        5623-EQU
   TST2F#E2        5606/LI      5618/B       5632-BAL
   TST2F#F         5410/B       5642-EQU
   TST2F#F1        5676-EQU
   TST2F#F2        5647/LI      5671/B       5682-EQU
   TST2F00         5353/B       5379-EQU
   TST21#A         3446/BE      3461-STW
   TST21#B         3466-LI      3512/B
   TST21#C         3472/LI      3492-BAL
   TST21#D         3448/BE      3506-STW
   TST2100         3254/BG      3453-RES
   TST22#A         3499/BNEZ    3587/BE      3592-LI
   TST22#B         3598-LI      3659/B
   TST22#C         3606/LI      3642-BAL
   TST22#D         3589/BE      3652-LI
   TST23#A         3630/B       3638/B       3646/BNEZ    3687-LI
   TST23#B         3681/BE      3690-LI
   TST23#C         3694-LI      3772/B
   TST23#C1        3707-LPSD    3750/B       3754/BLE
   TST23#D         3704/LI      3729/DATA    3740-LW
   TST23#E         3741/BEZ     3749-BAL
   TST23#G         3683/BE      3767-LW
   TST24#A         3757/BE      3813-LI
   TST24#B         3807/BE      3816-LI
   TST24#C         3821-LI      3879/B
   TST24#C1        3833-LPSD    3858/B       3862/BLE
   TST24#D         3830/LI      3848-LW
   TST24#E         3849/BEZ     3857-BAL
   TST24#G         3809/BE      3874-LW
   TST25#A         3911/B       3923-EQU
   TST25#B         3929-EQU     4085/B       4092/B
   TST25#C         3982-LI      4077/B
   TST25#D         3926/LI      4013-LC
   TST25#E         4016/BEZ     4024-CI
   TST25#F         4014/BCS     4076-BAL
   TST25CODES      3950/LB      4179-DATA
   TST2500         3865/BE      3914-EQU
   TST2601         4089/BGE     4189/BE      4205-LI
   TST2602         4191/BE      4243-EQU
   TST27#A1        4305/BE      4322-STW
   TST27#A2        4328-LI      4373/B
   TST27#B         4332/LI      4353-BAL
   TST27#B1        4307/BE      4367-STW
   TST2700         3916/BNEZ    4273/B       4311-RES
   TST28#A1        4427/BE      4433/B       4441/B       4449/B       4463-STW     4527/BL
   TST28#A2        4468-BAL     4534/B
   TST28#A3        4481-LW      4516/BLE
   TST28#B         4477/LI      4507-BAL
   TST28#B1        4429/BE      4437/B       4445/B       4453/B       4531-LI
   TST2800         4315/BEZ     4360/BE      4457-RES
   TST29#A1        4637/B       4645-BAL     4750/B
   TST29#A2        4656-LI
   TST29#A3        4652/BG      4666-LW      4744/BLE
   TST29#A4        4672-LW
   TST29#B         4658/LI      4707/B       4710/BCS     4714-LI
   TST29#C         4729/BNE     4733-LI
   TST29#D         4731/BE      4739-BAL
   TST2900         4518/BE      4640-LI
   TST31#A         5761/B       5770-BAL     5807/B       5808/B
   TST31#B         5780-LW
   TST31#C         5778/LI      5788/LI      5798-MTW
   TST3100         5701/B       5756-RES
   TWO             1475/AND    10475-DATA
   TYPE           10713-DP     11783/MSGX   11834/MSGX   11900/MSGX   11968/MSGX   12064/MSGX   12069/MSGX
     12071/MSGX   12073/MSGX   12075/MSGX   12078/MSGX   12081/MSGX   12083/MSGX   12085/MSGX   12087/MSGX
     12089/MSGX   12091/MSGX   12093/MSGX   12095/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX
     12108/MSGX   12111/MSGX   12113/MSGX   12116/MSGX   12119/MSGX   12122/MSGX   12125/MSGX   12128/MSGX
     12131/MSGX   12134/MSGX   12136/MSGX   12139/MSGX   12142/MSGX   12144/MSGX   12146/MSGX   12149/MSGX
     12151/MSGX   12156/MSGX   12183/MSGX   12236/MSGX
   TYPES          11162-DP     11902/MSGX
   T000           10592/DP     10651/DP     11213-T
   T001           10593/DP     11214-T
   T002           10594/DP     11215-T
   T003           10595/DP     11216-T
   T004           10596/DP     11217-T
   T005           10597/DP     11218-T
   T006           10598/DP     11219-T
   T007           10599/DP     11220-T
   T008           10600/DP     11221-T
   T009           10601/DP     11222-T
   T010           10602/DP     11223-T
   T011           10603/DP     11224-T
   T012           10604/DP     11225-T
   T013           10605/DP     11226-T
   T014           10606/DP     11227-T
   T015           10607/DP     11228-T
   T016           10611/DP     10613/DP     10615/DP     10617/DP     10618/DP     10619/DP     10620/DP
     10621/DP     10622/DP     10623/DP     10624/DP     10625/DP     10626/DP     10627/DP     10628/DP
     11229-T      11230/EQU
   T017           10629/DP     11231-T
   T018           10631/DP     11232-T
   T019           10632/DP     11233-T
   T020           10633/DP     11234-T
   T021           10634/DP     11235-T
   T022           10635/DP     11236-T
   T023           10636/DP     11237-T
   T024           10637/DP     11238-T
   T025           10638/DP     11239-T
   T026           10639/DP     11240-T
   T027           10640/DP     11241-T
   T028           10641/DP     11242-T
   T029           10642/DP     11243-T
   T030           10643/DP     11244-T
   T031           10644/DP     11245-T
   T032           10645/DP     11246-T
   T033           10646/DP     11247-T
   T034           10648/DP     11248-T
   T035           10649/DP     11249-T
   T036           10650/DP     11250-T
   T037           10654/DP     11254-T
   T038           11016/DP     11255-T
   T039           11017/DP     11256-T
   T040           10833/DP     11257-T
   T041           10834/DP     11258-T
   T042           10835/DP     11259-T
   T043           10837/DP     11260-T
   T044           11018/DP     11261-T
   T045           10838/DP     11262-T
   T046           10839/DP     11263-EQU
   T047           10840/DP     11264-EQU
   T048           10841/DP     11265-EQU
   T049           11019/DP     11266-T
   T050           11020/DP     11267-T
   T051           11021/DP     11268-T
   T052           11022/DP     11269-T
   T053           11023/DP     11270-T
   T054           11024/DP     11271-T
   T055           11025/DP     11272-T
   T056           11027/DP     11273-T
   T057           11028/DP     11274-T
   T058           11029/DP     11275-T
   T059           11030/DP     11276-T
   T060           11031/DP     11277-T
   T061           10842/DP     11278-T
   T062           11032/DP     11279-T
   T063           11033/DP     11280-T
   T064           11034/DP     11281-T
   T065           11035/DP     11282-T
   T066           11036/DP     11283-T
   T067           11037/DP     11284-T
   T068           11038/DP     11285-T
   T069           11039/DP     11286-T
   T070           11040/DP     11287-T
   T071           11041/DP     11288-T
   T072           11042/DP     11289-T
   T073           10843/DP     11290-T
   T074           10844/DP     11291-T
   T075           11044/DP     11292-T
   T076           10845/DP     11293-EQU
   T077           10846/DP     11294-T
   T078           11045/DP     11295-T
   T079           10847/DP     11296-T
   T080           11046/DP     11297-EQU
   T081           10848/DP     11298-T
   T082           10849/DP     11299-EQU
   T083           11047/DP     11300-T
   T084           10850/DP     11301-T
   T085           10851/DP     11302-T
   T086           11048/DP     11303-T
   T087           11049/DP     11304-T
   T088           11050/DP     11305-T
   T089           10852/DP     11306-T
   T090           11051/DP     11307-T
   T091           11052/DP     11308-T
   T092           10854/DP     11309-T
   T093           10855/DP     11310-T
   T094           10856/DP     11311-T
   T095           10857/DP     11312-T
   T096           10858/DP     11313-T
   T097           11053/DP     11314-T
   T098           11054/DP     11315-T
   T099           11055/DP     11316-T
   T100           11056/DP     11317-T
   T101           10859/DP     11318-T
   T102           11057/DP     11319-T
   T103           10860/DP     11320-EQU
   T104           10861/DP     11321-T
   T105           10862/DP     11322-EQU
   T106           10863/DP     11323-T
   T107           10864/DP     11324-T
   T108           10865/DP     11325-T
   T109           10874/DP     11326-T
   T110           11058/DP     11327-EQU
   T111           10875/DP     11328-T
   T112           11059/DP     11329-T
   T113           10876/DP     11330-EQU
   T114           10877/DP     11331-T
   T115           10878/DP     11332-EQU
   T116           10879/DP     11333-T
   T117           11061/DP     11334-T
   T118           10880/DP     11335-T
   T119           10881/DP     11336-T
   T120           10882/DP     11337-T
   T121           10883/DP     11338-T
   T122           11062/DP     11339-T
   T123           11063/DP     11340-T
   T124           10884/DP     11341-T
   T125           10885/DP     11342-T
   T126           11064/DP     11343-T
   T127           11065/DP     11344-T
   T128           11066/DP     11345-T
   T129           11067/DP     11346-T
   T130           10886/DP     11347-T
   T131           11068/DP     11348-T
   T132           11069/DP     11349-EQU
   T133           11070/DP     11350-T
   T134           11071/DP     11351-T
   T135           10887/DP     11352-T
   T136           10888/DP     11353-T
   T137           11072/DP     11354-T
   T138           11073/DP     11355-T
   T139           11074/DP     11356-T
   T140           11075/DP     11357-T
   T141           11076/DP     11358-T
   T142           11078/DP     11359-T
   T143           11079/DP     11360-T
   T144           11080/DP     11361-T
   T145           11081/DP     11362-T
   T146           11082/DP     11363-T
   T147           10889/DP     11364-T
   T148           11083/DP     11365-EQU
   T149           11084/DP     11366-T
   T150           11085/DP     11367-T
   T151           11086/DP     11368-T
   T152           11087/DP     11369-T
   T153           11088/DP     11370-T
   T154           11089/DP     11371-T
   T155           11090/DP     11372-T
   T156           11091/DP     11373-T
   T157           11092/DP     11374-T
   T158           11093/DP     11375-T
   T159           11095/DP     11376-T
   T160           11096/DP     11377-T
   T161           11097/DP     11378-T
   T162           10891/DP     11379-EQU
   T163           11098/DP     11380-T
   T164           10892/DP     11381-EQU
   T165           10893/DP     11382-EQU
   T166           10894/DP     11383-EQU
   T167           11099/DP     11384-T
   T168           11100/DP     11385-T
   T169           11101/DP     11386-T
   T170           11102/DP     11387-T
   T171           11103/DP     11388-T
   T172           11104/DP     11389-T
   T173           10895/DP     11390-EQU
   T174           10896/DP     11391-EQU
   T175           10897/DP     11392-EQU
   T176           10898/DP     11393-T
   T177           11105/DP     11394-T
   T178           11106/DP     11395-EQU
   T179           10899/DP     11396-T
   T180           11107/DP     11397-T
   T181           10900/DP     11398-T
   T182           11108/DP     11399-T
   T183           11109/DP     11400-T
   T184           11110/DP     11401-T
   T185           10901/DP     11402-T
   T186           11112/DP     11403-T
   T187           10902/DP     11404-EQU
   T188           10903/DP     11405-T
   T189           11113/DP     11406-T
   T190           11114/DP     11407-T
   T191           10904/DP     11408-T
   T192           11115/DP     11409-T
   T193           11116/DP     11410-T
   T194           11117/DP     11411-T
   T195           11118/DP     11412-T
   T196           10905/DP     11413-EQU
   T197           11119/DP     11414-T
   T198           11120/DP     11415-T
   T199           11121/DP     11416-T
   T200           11122/DP     11417-T
   T201           11123/DP     11418-EQU
   T202           11124/DP     11419-T
   T203           11125/DP     11420-T
   T204           10906/DP     11421-EQU
   T205           11126/DP     11422-T
   T206           11127/DP     11423-EQU
   T207           11129/DP     11424-T
   T208           11130/DP     11425-T
   T209           11131/DP     11426-T
   T210           11132/DP     11427-T
   T211           11133/DP     11428-T
   T212           11134/DP     11429-T
   T213           11135/DP     11430-T
   T214           11136/DP     11431-T
   T215           11137/DP     11432-T
   T216           10908/DP     11433-T
   T217           11138/DP     11434-T
   T218           11139/DP     11435-T
   T219           10909/DP     11436-T
   T220           11140/DP     11437-T
   T221           11141/DP     11438-T
   T222           11142/DP     11439-T
   T223           10910/DP     11440-T
   T224           10911/DP     11441-T
   T225           10912/DP     11442-T
   T226           10913/DP     11443-T
   T227           10914/DP     11444-T
   T228           10915/DP     11445-T
   T229           10916/DP     11446-T
   T230           11143/DP     11447-T
   T231           11144/DP     11448-T
   T232           11149/DP     11449-T
   T233           10917/DP     11450-T
   T234           10918/DP     11451-T
   T235           10919/DP     11452-T
   T236           10920/DP     11453-T
   T237           10921/DP     11454-T
   T238           10922/DP     11455-T
   T239           10923/DP     11456-T
   T240           10925/DP     11457-T
   T241           10655/DP     11458-EQU
   T242           10926/DP     11459-T
   T243           10927/DP     11460-T
   T244           10656/DP     11461-EQU
   T245           10657/DP     11462-T
   T246           10658/DP     11463-T
   T247           10659/DP     11464-T
   T248           10660/DP     11465-T
   T249           10661/DP     11466-T
   T250           10928/DP     11467-T
   T251           10662/DP     11468-EQU
   T252           10929/DP     11469-T
   T253           10663/DP     11470-T
   T254           10930/DP     11471-T
   T255           10931/DP     11472-T
   T256           10932/DP     11473-T
   T257           10664/DP     11474-T
   T258           10665/DP     11475-EQU
   T259           10667/DP     11476-T
   T260           10668/DP     11477-T
   T261           10933/DP     11478-EQU
   T262           10934/DP     11479-T
   T263           10935/DP     11480-EQU
   T264           10936/DP     11481-T
   T265           10937/DP     11482-T
   T266           10938/DP     11483-T
   T267           10939/DP     11484-T
   T268           10940/DP     11485-T
   T269           10942/DP     11486-T
   T270           10943/DP     11487-T
   T271           10944/DP     11488-T
   T272           10945/DP     11489-T
   T273           10946/DP     11490-T
   T274           10947/DP     11491-EQU
   T275           10669/DP     11492-T
   T276           10948/DP     11493-EQU
   T277           10949/DP     11494-T
   T278           10950/DP     11495-T
   T279           10951/DP     11496-T
   T280           10952/DP     11497-T
   T281           10670/DP     11498-EQU
   T282           10671/DP     11499-EQU
   T283           10672/DP     11500-T
   T284           10673/DP     11501-T
   T285           10953/DP     11502-T
   T286           10674/DP     11503-EQU
   T287           10675/DP     11504-T
   T288           10676/DP     11505-EQU
   T289           10677/DP     11506-T
   T290           10678/DP     11507-T
   T291           10679/DP     11508-T
   T292           10680/DP     11509-EQU
   T293           10681/DP     11510-T
   T294           10682/DP     11511-EQU
   T295           11150/DP     11512-EQU
   T296           10684/DP     11513-T
   T297           11151/DP     11514-T
   T298           10685/DP     11515-EQU
   T299           10686/DP     11516-EQU
   T300           10687/DP     11517-T
   T301           10688/DP     11518-EQU
   T302           10689/DP     11519-EQU
   T303           11152/DP     11520-T
   T304           10690/DP     11521-EQU
   T305           11153/DP     11522-T
   T306           10691/DP     11523-T
   T307           11154/DP     11524-EQU
   T308           11155/DP     11525-T
   T309           10692/DP     11526-T
   T310           10693/DP     11527-T
   T311           11156/DP     11528-T
   T312           10694/DP     11529-EQU
   T313           10695/DP     11530-T
   T314           11157/DP     11531-EQU
   T315           10696/DP     11532-T
   T316           10697/DP     11533-EQU
   T317           11158/DP     11534-T
   T318           11159/DP     11535-T
   T319           10698/DP     11536-T
   T320           10699/DP     11537-T
   T321           10701/DP     11538-T
   T322           11160/DP     11539-T
   T323           10702/DP     11540-T
   T324           10703/DP     11541-T
   T325           11161/DP     11542-T
   T326           11162/DP     11543-T
   T327           11163/DP     11544-T
   T328           10704/DP     11545-T
   T329           10705/DP     11546-T
   T330           10954/DP     11547-T
   T331           10955/DP     11548-EQU
   T332           10956/DP     11549-T
   T333           10957/DP     11550-T
   T334           10959/DP     11551-T
   T335           10960/DP     11552-T
   T336           10961/DP     11553-T
   T337           10962/DP     11554-EQU
   T338           10963/DP     11555-T
   T339           10964/DP     11556-T
   T340           10965/DP     11557-T
   T341           10966/DP     11558-EQU
   T342           10967/DP     11559-EQU
   T343           10968/DP     11560-T
   T344           10706/DP     11561-T
   T345           10707/DP     11562-T
   T346           10708/DP     11563-T
   T347           10969/DP     11564-T
   T348           10709/DP     11565-T
   T349           10710/DP     11566-EQU
   T350           10711/DP     11567-T
   T351           10970/DP     11568-T
   T352           10971/DP     11569-T
   T353           10712/DP     11570-EQU
   T354           10713/DP     11571-EQU
   T355           10714/DP     11572-T
   T356           10715/DP     11573-T
   T357           10716/DP     11574-EQU
   T358           10972/DP     11575-T
   T359           10973/DP     11576-T
   T360           10974/DP     11577-EQU
   T361           10976/DP     11578-EQU
   T362           10718/DP     11579-T
   T363           10719/DP     11580-T
   T364           11164/DP     11581-T
   T365           10720/DP     11582-EQU
   T366           10721/DP     11583-T
   T367           10722/DP     11584-EQU
   T368           10723/DP     11585-T
   T369           10724/DP     11586-EQU
   T370           11166/DP     11587-EQU
   T371           10725/DP     11588-T
   T372           10726/DP     11589-EQU
   T373           11167/DP     11590-EQU
   T374           10727/DP     11591-T
   T375           10728/DP     11592-EQU
   T376           10977/DP     11593-T
   T377           10978/DP     11594-EQU
   T378           10979/DP     11595-T
   T379           10980/DP     11596-EQU
   T380           10981/DP     11597-T
   T381           10729/DP     11598-T
   T382           10730/DP     11599-T
   T383           10731/DP     11600-T
   T384           10732/DP     11601-T
   T385           10733/DP     11602-T
   T386           10982/DP     11603-T
   T387           10983/DP     11604-EQU
   T388           10984/DP     11605-T
   T389           10735/DP     11606-EQU
   T390           10736/DP     11607-T
   T391           10985/DP     11608-T
   T392           10986/DP     11609-T
   T393           10987/DP     11610-T
   T394           10737/DP     11611-T
   T395           10988/DP     11612-EQU
   T396           10738/DP     11613-T
   T397           10989/DP     11614-T
   T398           10739/DP     11615-T
   T399           10990/DP     11616-T
   T400           10991/DP     11617-T
   T401           10993/DP     11618-EQU
   T402           10740/DP     11619-T
   T403           10741/DP     11620-EQU
   T404           10994/DP     11621-T
   T405           10742/DP     11622-EQU
   T406           10995/DP     11623-T
   T407           10996/DP     11624-EQU
   T408           10997/DP     11625-T
   T409           10998/DP     11626-T
   T410           10743/DP     11627-EQU
   T411           10999/DP     11628-T
   T412           11000/DP     11629-T
   T413           11001/DP     11630-T
   T414           11002/DP     11631-T
   T415           11003/DP     11632-EQU
   T416           10744/DP     11633-EQU
   T417           10745/DP     11634-T
   T418           10746/DP     11635-EQU
   T419           11004/DP     11636-T
   T420           11005/DP     11637-T
   T421           11006/DP     11638-EQU
   T422           11007/DP     11639-EQU
   T423           11008/DP     11640-T
   T424           11010/DP     11641-T
   T425           11011/DP     11642-EQU
   T426           11012/DP     11643-T
   T427           11013/DP     11644-EQU
   T428           11014/DP     11645-T
   T429           11015/DP     11646-T
   T430           10747/DP     11647-T
   T431           10748/DP     11648-EQU
   T432           10749/DP     11649-T
   T433           10750/DP     11650-EQU
   T434           10752/DP     11651-EQU
   T435           10753/DP     11652-EQU
   T436           11168/DP     11653-T
   T437           10754/DP     11654-EQU
   T438           10755/DP     11655-EQU
   T439           10756/DP     11656-EQU
   T440           10757/DP     11657-EQU
   T441           10758/DP     11658-EQU
   T442           10759/DP     11659-EQU
   T443           10760/DP     11660-T
   T444           10761/DP     11661-EQU
   T445           11169/DP     11662-T
   T446           10762/DP     11663-EQU
   T447           11170/DP     11664-T
   T448           10763/DP     11665-T
   T449           11171/DP     11666-T
   T450           11172/DP     11667-EQU
   T451           10764/DP     11668-EQU
   T452           10765/DP     11669-T
   T453           11173/DP     11670-T
   T454           10766/DP     11671-EQU
   T455           10767/DP     11672-EQU
   T456           10769/DP     11673-EQU
   T457           11174/DP     11674-T
   T458           11175/DP     11675-EQU
   T459           10770/DP     11676-EQU
   T460           10771/DP     11677-EQU
   T461           11176/DP     11678-EQU
   T462           11177/DP     11679-T
   T463           10772/DP     11680-EQU
   T464           10773/DP     11681-EQU
   T465           11178/DP     11682-EQU
   T466           11179/DP     11683-EQU
   T467           10774/DP     11684-EQU
   T468           10775/DP     11685-EQU
   T469           11180/DP     11686-T
   T470           10776/DP     11687-EQU
   T471           11181/DP     11688-T
   T472           10777/DP     11689-EQU
   T473           11183/DP     11690-T
   T474           11184/DP     11691-T
   T475           11185/DP     11692-T
   T476           10778/DP     11693-EQU
   T477           11186/DP     11694-EQU
   T478           11187/DP     11695-T
   T479           10779/DP     11696-T
   T480           11188/DP     11697-T
   T481           11189/DP     11698-T
   T482           11190/DP     11699-T
   T483           10780/DP     11700-EQU
   T484           10781/DP     11701-EQU
   T485           10782/DP     11702-EQU
   T486           10783/DP     11703-EQU
   T487           10784/DP     11704-EQU
   T488           10786/DP     11705-T
   T489           11191/DP     11706-EQU
   T490           10787/DP     11707-EQU
   T491           10788/DP     11708-EQU
   T492           10789/DP     11709-T
   T493           10790/DP     11710-EQU
   T494           10791/DP     11711-T
   T495           10792/DP     11712-EQU
   T496           10793/DP     11713-EQU
   T497           10794/DP     11714-T
   T498           10795/DP     11715-EQU
   T499           10796/DP     11716-T
   T500           10797/DP     11717-EQU
   T501           10798/DP     11718-EQU
   T502           10799/DP     11719-EQU
   T503           10800/DP     11720-EQU
   T504           11192/DP     11721-EQU
   T505           10801/DP     11722-EQU
   T506           10803/DP     11723-EQU
   T507           10804/DP     11724-EQU
   T508           10805/DP     11725-EQU
   T509           10806/DP     11726-EQU
   T510           10807/DP     11727-EQU
   T511           10808/DP     11728-EQU
   T512           10809/DP     11729-EQU
   T513           10810/DP     11730-EQU
   T514           10811/DP     11731-EQU
   T515           10812/DP     11732-EQU
   T516           10813/DP     11733-EQU
   T517           10814/DP     11734-EQU
   T518           11193/DP     11735-EQU
   T519           11194/DP     11736-EQU
   T520           10815/DP     11737-EQU
   T521           11195/DP     11738-EQU
   T522           11196/DP     11739-EQU
   T523           11197/DP     11740-EQU
   T524           10816/DP     11741-EQU
   T525           10817/DP     11742-EQU
   T526           10818/DP     11743-EQU
   T527           10820/DP     11744-EQU
   T528           10821/DP     11745-EQU
   T529           10822/DP     11746-EQU
   T530           10823/DP     11747-EQU
   T531           10824/DP     11748-EQU
   T532           10825/DP     11749-EQU
   T533           10826/DP     11750-EQU
   T534           10827/DP     11751-EQU
   T535           10828/DP     11752-EQU
   T536           10829/DP     11753-EQU
   T537           10830/DP     11754-EQU
   T538           10831/DP     11755-EQU
   T539           10832/DP     11756-EQU
   T540           11200/DP     11757-EQU
   T541           11198/DP     11758-T
   T542           11201/DP     11759-T
   T543           11202/DP     11760-T
   T544           11203/DP     11761-T
   T545           11204/DP     11762-T
   T546           11205/DP     11763-T
   UNALTERABLE    11021-DP     12390/MSGX
   UNEXPECTED     10843-DP     12067/MSGX   12069/MSGX   12071/MSGX
   UNIMPL          4340/EXU     4346/LW      4380-DL
   UNIMPLEMENTED  10833-DP     11955/MSGX   12128/MSGX   12136/MSGX   12461/MSGX
   UNRECOVERABLE  11016-DP     11795/MSGX
   UNTIL          10956-DP     12414/MSGX
   UPSPACE         2311/#PRINT  3005/#TYPE   3007/#TYPE   6859/#PRINT  6919/#PRINT  6971/#PRINT
      7212/#PRINT  7497/#TYPE   8557/#TYPE   8558/#TYPE   9329/#TYPE   9335/#PRINT 10457-TEXTC
   USER           10736-DP     11924/MSGX   12220/MSGX   12286/MSGX   12388/MSGX   12390/MSGX   12397/MSGX
     12407/MSGX
   USING          10678-DP     11814/MSGX   12440/MSGX
   VALBIT          1034-DATA
   VALDEX          1038-EQU
   VALID           1234/STW     1419/LI      9042/STW    12528-EQU    12530/EQU
   VALTABLE        1044/GEN    10459-TEXT
   VALTYPE         1042-EQU
   VALUE          10967-DP     11953/MSGX   12156/MSGX
   VALUES         10943-DP     11951/MSGX   11972/MSGX
   VIOLATE        11126-DP     12457/MSGX
   VOLTAGE        11201-DP     11891/MSGX
   VOLTMSG         8146/#TYPE   9601/#TYPE  11891-MSGX
   WAIT           10993-DP     12005/MSGX   12328/MSGX
   WAIT:ACT         971-EQU     8854/RD      8996/RD      9370/RD      9517/RD
   WAITCNT         2140/STW     2150/MTW     2952/STW     2956/MTW     3109/STW     3116/MTW     5791/STW
      5798/MTW    10068-DATA
   WAITING        10900-DP     12005/MSGX   12044/MSGX   12044/MSGX   12194/MSGX   12328/MSGX
   WAITING1        6038/#TYPE   8479/STW    10576-TEXTCS
   WAS            11176-DP     12289/MSGX   12290/MSGX
   WATCHDOG       10964-DP     12479/MSGX
   WD             10791-DP     11860/MSGX   12321/MSGX   12322/MSGX
   WDCOMMAND       1739/LH      2001-EQU
   WERE           10718-DP     11813/MSGX   11846/MSGX   11996/MSGX
   WHEN           10733-DP     12078/MSGX   12192/MSGX   12195/MSGX   12315/MSGX   12317/MSGX   12393/MSGX
   WHERE          10969-DP     11994/MSGX
   WHICH          11160-DP     12319/MSGX
   WILL           10729-DP     11913/MSGX   12187/MSGX   12347/MSGX   12410/MSGX
   WITH           10743-DP     12432/MSGX   12441/MSGX   12443/MSGX
   WITHOUT        11125-DP     11917/MSGX   12440/MSGX
   WORD           10735-DP     11992/MSGX   11992/MSGX   12026/MSGX   12027/MSGX   12056/MSGX   12057/MSGX
     12089/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX   12111/MSGX   12116/MSGX   12131/MSGX
     12216/MSGX
   WORDS          10708-DP     11994/MSGX   12108/MSGX   12113/MSGX
   WRITE          10702-DP     12321/MSGX   12440/MSGX   12477/MSGX
   WRONG          10711-DP     11802/MSGX   12085/MSGX   12087/MSGX   12089/MSGX
   X              10450-DO     10451/GEN
   XA             10483-DATA
   XB             10484-DATA
   XC             10485-DATA
   XD             10486-DATA
   XE             10487-DATA
   XF              1761/AND     2413/AND     4667/AND     5650/AND    10488-DATA
   XFF             3211/AND     3226/AND     4882/AND    10496-DATA
   XFFBFFFFF       7001/AND    10533-DATA
   XFFF            6395/AND     6458/AND    10498-DATA
   XFFFC           6806/CW     10505-DATA
   XFFFF           6799/AND     6808/CW      9643/LW     10506-DATA
   XFFFFFFF        3342/AND     3343/AND    10521-DATA
   XFFFF03FF      10535-DATA
   XFF00           1732/AND    10504-DATA
   XF0             7214/AND     9759/OR      9764/OR     10495-DATA
   XF0F0          10503-DATA
   XF00           10497-DATA
   XF000          10502-DATA
   XPSD           10739-DP     12078/MSGX   12289/MSGX   12290/MSGX   12297/MSGX
   XPSD%4D#A       5425/LW      5710-XPSD
   XPSD%4D#C1      5517/LW      5711-XPSD
   XPSD%4D#C2      5519/LW      5712-XPSD
   XPSD%4D#D       5562/LW      5713-B
   XPSD#10         1597/LW     10462-GEN
   XPSD#20         6981/LI      6986/LI     10464-GEN
   XX             10812-DP     11970/MSGX   12294/MSGX   12294/MSGX
   XXX            11186-DP     12038/MSGX
   XXXX           11166-DP     11970/MSGX   11970/MSGX   12273/MSGX   12273/MSGX
   XXXXX          11150-DP     11840/MSGX
   XXXXXXXX       10865-DP     11807/MSGX   11840/MSGX   11840/MSGX   11970/MSGX
   X1FFFF          1115/AND     1530/AND     8461/AND    10507-DATA
   X10             1496/AND     6274/OR     10489-DATA
   X100000         8144/CW      9599/CW     10509-DATA
   X1000000        4218/LW     10515-DATA
   X1000001        1155/AW      1161/AW     10516-DATA
   X1100          10499-DATA
   X12000000       1158/AW     10522-DATA
   X20             1498/AND     6277/OR     10490-DATA
   X200000         1123/AND    10510-DATA
   X3C             1477/AND    10493-DATA
   X3E             1472/AND    10494-DATA
   X30             1492/AND    10491-DATA
   X38             1486/AND    10492-DATA
   X4000           6235/AND    10500-DATA
   X40000800       3393/LW     10527-DATA
   X4040404        1132/LW     10518-DATA
   X8              1490/AND    10481-DATA
   X8000          10501-DATA
   X80000         10508-DATA
   X800000         3612/LW      3960/OR     10513-DATA
   X9             10482-DATA
   Y              10829-DP     11902/MSGX   11902/MSGX   11973/MSGX   12210/MSGX   12210/MSGX   12214/MSGX
   YCC0           10520-DATA
   YC300          10525-DATA
   YDFFF          10528-DATA
   YFC00           8933/LW     10532-DATA
   YFFFF           7637/AND    10534-DATA
   YF800           8549/LB     10530-DATA
   YF9            10514-DATA
   YF900           8547/LB      9723/CB     10531-DATA
   YS             10801-DP
   YY             10813-DP     12294/MSGX   12294/MSGX
   YYYY           10988-DP     12273/MSGX   12275/MSGX
   YYYYYYYYY      10859-DP     11970/MSGX   11970/MSGX   11970/MSGX   11970/MSGX
   Y3C             8925/LW     10511-DATA
   Y3CFC          10523-DATA
   Y3C0            8930/LW     10517-DATA
   Y3FFF          10526-DATA
   Y40             3354/LW      3508/OR      3655/OR      3768/OR      3784/SIO     3785/TIO     3786/TDV
      3787/HIO     3790/AIO     3875/OR      3935/OR      4369/OR      4467/OR     10512-DATA
   Y8000           6793/LW     10529-DATA
   Y840           10519-DATA
   ZERO            5068/FDS     5085-DATA    5446/LRP     5487/LRP
   15INT           2791/LI      2800-BDR
   15RETURN        1399/LI      2826-EQU
   16INT#1         2939/LI      2956-MTW
   16INT#2         2994/LI      3015-BDR
   4D%TCC          5399/LB      5705-GEN
   4D%TSF          5401/LB      5708-GEN
   4DBADREG        5661/LW      5720-EQU
   4DMMC           5610/LW      5715-GEN
   4MEGWORD        3614/LW      5513/CW     10537-DATA
   7ASTERISKS     10568-TEXT
   %A             10623-DP     12001/MSGX   12049/MSGX   12053/MSGX   12096/MSGX   12147/MSGX   12200/MSGX
     12202/MSGX   12275/MSGX   12398/MSGX   12420/MSGX
   %B             10624-DP     11881/MSGX   11881/MSGX   12042/MSGX   12044/MSGX   12046/MSGX
   %C             10625-DP     11990/MSGX   12399/MSGX   12400/MSGX
   %D             10626-DP     12249/MSGX   12252/MSGX   12344/MSGX   12362/MSGX   12419/MSGX
   %E             10627-DP     11827/MSGX   11840/MSGX   11996/MSGX
   %F             10628-DP     11858/MSGX   11860/MSGX   11935/MSGX   11937/MSGX   11979/MSGX   11982/MSGX
     11991/MSGX   11992/MSGX   11994/MSGX   11996/MSGX   12244/MSGX   12275/MSGX   12293/MSGX   12314/MSGX
     12315/MSGX   12317/MSGX   12318/MSGX   12320/MSGX   12327/MSGX   12330/MSGX   12363/MSGX   12365/MSGX
     12374/MSGX   12376/MSGX   12388/MSGX   12392/MSGX   12393/MSGX   12394/MSGX   12414/MSGX
   %S             10636-DP     12190/MSGX
   %0             10651-DP     11801/MSGX   11804/MSGX   11804/MSGX   11804/MSGX   11804/MSGX   11804/MSGX
     11814/MSGX   11820/MSGX   11820/MSGX   11820/MSGX   11820/MSGX   11827/MSGX   11827/MSGX   11827/MSGX
     11834/MSGX   11834/MSGX   11840/MSGX   11840/MSGX   11840/MSGX   11840/MSGX   11885/MSGX   11900/MSGX
     11900/MSGX   11900/MSGX   11991/MSGX   11992/MSGX   11992/MSGX   11994/MSGX   11994/MSGX   11999/MSGX
     12001/MSGX   12001/MSGX   12001/MSGX   12001/MSGX   12001/MSGX   12001/MSGX   12005/MSGX   12005/MSGX
     12005/MSGX   12005/MSGX   12005/MSGX   12005/MSGX   12005/MSGX   12005/MSGX   12038/MSGX   12038/MSGX
     12038/MSGX   12040/MSGX   12040/MSGX   12042/MSGX   12042/MSGX   12044/MSGX   12044/MSGX   12046/MSGX
     12046/MSGX   12064/MSGX   12096/MSGX   12096/MSGX   12119/MSGX   12122/MSGX   12125/MSGX   12128/MSGX
     12131/MSGX   12134/MSGX   12136/MSGX   12139/MSGX   12142/MSGX   12144/MSGX   12146/MSGX   12149/MSGX
     12149/MSGX   12151/MSGX   12156/MSGX   12161/MSGX   12165/MSGX   12165/MSGX   12165/MSGX   12165/MSGX
     12181/MSGX   12181/MSGX   12181/MSGX   12183/MSGX   12188/MSGX   12188/MSGX   12190/MSGX   12190/MSGX
     12198/MSGX   12198/MSGX   12198/MSGX   12198/MSGX   12200/MSGX   12200/MSGX   12200/MSGX   12202/MSGX
     12202/MSGX   12218/MSGX   12218/MSGX   12222/MSGX   12224/MSGX   12225/MSGX   12226/MSGX   12227/MSGX
     12228/MSGX   12229/MSGX   12230/MSGX   12231/MSGX   12235/MSGX   12236/MSGX   12237/MSGX   12238/MSGX
     12240/MSGX   12242/MSGX   12247/MSGX   12250/MSGX   12253/MSGX   12254/MSGX   12284/MSGX   12309/MSGX
     12341/MSGX   12341/MSGX   12360/MSGX   12470/MSGX   12472/MSGX   12473/MSGX   12474/MSGX   12476/MSGX
     12477/MSGX   12479/MSGX   12480/MSGX   12481/MSGX   12482/MSGX
   %1             10611-DP     11779/MSGX   11785/MSGX   11785/MSGX   11787/MSGX   11787/MSGX   11790/MSGX
     11790/MSGX   11801/MSGX   11802/MSGX   11811/MSGX   11811/MSGX   11811/MSGX   11817/MSGX   11820/MSGX
     11820/MSGX   11820/MSGX   11820/MSGX   11827/MSGX   11837/MSGX   11846/MSGX   11853/MSGX   11860/MSGX
     11860/MSGX   11863/MSGX   11876/MSGX   11878/MSGX   11883/MSGX   11883/MSGX   11891/MSGX   11909/MSGX
     11916/MSGX   11923/MSGX   11929/MSGX   11968/MSGX   11968/MSGX   11970/MSGX   11975/MSGX   11991/MSGX
     11992/MSGX   11992/MSGX   11992/MSGX   11994/MSGX   11994/MSGX   12010/MSGX   12011/MSGX   12014/MSGX
     12015/MSGX   12018/MSGX   12019/MSGX   12022/MSGX   12023/MSGX   12026/MSGX   12027/MSGX   12030/MSGX
     12031/MSGX   12032/MSGX   12033/MSGX   12033/MSGX   12037/MSGX   12037/MSGX   12038/MSGX   12038/MSGX
     12038/MSGX   12040/MSGX   12040/MSGX   12040/MSGX   12042/MSGX   12042/MSGX   12042/MSGX   12044/MSGX
     12044/MSGX   12046/MSGX   12046/MSGX   12046/MSGX   12051/MSGX   12056/MSGX   12056/MSGX   12057/MSGX
     12057/MSGX   12060/MSGX   12064/MSGX   12069/MSGX   12071/MSGX   12073/MSGX   12075/MSGX   12076/MSGX
     12078/MSGX   12078/MSGX   12081/MSGX   12083/MSGX   12085/MSGX   12087/MSGX   12089/MSGX   12091/MSGX
     12093/MSGX   12095/MSGX   12096/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX   12108/MSGX
     12108/MSGX   12111/MSGX   12113/MSGX   12116/MSGX   12119/MSGX   12119/MSGX   12120/MSGX   12122/MSGX
     12122/MSGX   12125/MSGX   12125/MSGX   12128/MSGX   12128/MSGX   12131/MSGX   12131/MSGX   12131/MSGX
     12134/MSGX   12134/MSGX   12136/MSGX   12136/MSGX   12139/MSGX   12139/MSGX   12139/MSGX   12142/MSGX
     12142/MSGX   12144/MSGX   12144/MSGX   12146/MSGX   12146/MSGX   12149/MSGX   12149/MSGX   12151/MSGX
     12151/MSGX   12156/MSGX   12165/MSGX   12165/MSGX   12165/MSGX   12165/MSGX   12165/MSGX   12165/MSGX
     12165/MSGX   12165/MSGX   12165/MSGX   12171/MSGX   12171/MSGX   12181/MSGX   12183/MSGX   12188/MSGX
     12188/MSGX   12188/MSGX   12190/MSGX   12190/MSGX   12195/MSGX   12198/MSGX   12198/MSGX   12198/MSGX
     12198/MSGX   12200/MSGX   12202/MSGX   12218/MSGX   12222/MSGX   12222/MSGX   12222/MSGX   12224/MSGX
     12224/MSGX   12225/MSGX   12225/MSGX   12226/MSGX   12226/MSGX   12227/MSGX   12227/MSGX   12228/MSGX
     12228/MSGX   12229/MSGX   12229/MSGX   12230/MSGX   12230/MSGX   12231/MSGX   12231/MSGX   12249/MSGX
     12252/MSGX   12287/MSGX   12289/MSGX   12290/MSGX   12291/MSGX   12327/MSGX   12328/MSGX   12330/MSGX
     12363/MSGX   12368/MSGX   12385/MSGX   12391/MSGX   12406/MSGX   12406/MSGX   12415/MSGX   12417/MSGX
     12419/MSGX   12419/MSGX   12421/MSGX   12423/MSGX   12426/MSGX   12434/MSGX   12436/MSGX   12438/MSGX
     12440/MSGX   12441/MSGX   12445/MSGX   12447/MSGX   12448/MSGX   12450/MSGX   12451/MSGX   12453/MSGX
     12454/MSGX   12456/MSGX   12457/MSGX   12459/MSGX   12460/MSGX   12461/MSGX   12463/MSGX   12464/MSGX
     12466/MSGX   12467/MSGX   12469/MSGX   12472/MSGX   12474/MSGX   12476/MSGX   12477/MSGX   12479/MSGX
     12482/MSGX
   %2             10613-DP     11804/MSGX   11827/MSGX   11834/MSGX   11834/MSGX   11856/MSGX   11860/MSGX
     11860/MSGX   11860/MSGX   11876/MSGX   11878/MSGX   11885/MSGX   11885/MSGX   11885/MSGX   11885/MSGX
     11885/MSGX   11885/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX
     11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX   11888/MSGX
     11888/MSGX   11931/MSGX   11966/MSGX   11968/MSGX   11968/MSGX   11968/MSGX   11982/MSGX   11983/MSGX
     12051/MSGX   12163/MSGX   12169/MSGX   12198/MSGX   12200/MSGX   12202/MSGX   12209/MSGX   12213/MSGX
     12224/MSGX   12225/MSGX   12226/MSGX   12227/MSGX   12228/MSGX   12229/MSGX   12230/MSGX   12231/MSGX
     12286/MSGX   12370/MSGX   12386/MSGX   12387/MSGX   12388/MSGX   12394/MSGX   12412/MSGX   12420/MSGX
     12421/MSGX   12427/MSGX   12429/MSGX   12429/MSGX   12432/MSGX   12441/MSGX   12443/MSGX   12454/MSGX
     12457/MSGX   12464/MSGX   12474/MSGX   12483/MSGX
   %3             10615-DP     11804/MSGX   11804/MSGX   11804/MSGX   11804/MSGX   11804/MSGX   11804/MSGX
     11820/MSGX   11834/MSGX   11834/MSGX   11834/MSGX   11863/MSGX   11878/MSGX   11883/MSGX   11885/MSGX
     11885/MSGX   11885/MSGX   11885/MSGX   11885/MSGX   11885/MSGX   11885/MSGX   11885/MSGX   11917/MSGX
     11945/MSGX   11955/MSGX   11970/MSGX   11975/MSGX   11978/MSGX   11980/MSGX   12206/MSGX   12244/MSGX
     12397/MSGX   12451/MSGX   12460/MSGX   12461/MSGX   12467/MSGX   12470/MSGX
   %4             10617-DP     11823/MSGX   11823/MSGX   11823/MSGX   11823/MSGX   11827/MSGX   11827/MSGX
     11827/MSGX   11834/MSGX   11863/MSGX   11869/MSGX   11871/MSGX   11873/MSGX   11883/MSGX   11968/MSGX
     12320/MSGX   12391/MSGX   12407/MSGX   12409/MSGX   12410/MSGX   12434/MSGX   12477/MSGX
   %5             10618-DP     11830/MSGX   11863/MSGX   11883/MSGX   11885/MSGX   11888/MSGX   11924/MSGX
     11926/MSGX   11927/MSGX   11927/MSGX   11929/MSGX   11931/MSGX   11933/MSGX   11947/MSGX   11948/MSGX
     11948/MSGX   11949/MSGX   11987/MSGX   11988/MSGX   11989/MSGX   11991/MSGX   11992/MSGX   11994/MSGX
     11999/MSGX   12004/MSGX   12010/MSGX   12011/MSGX   12014/MSGX   12015/MSGX   12018/MSGX   12019/MSGX
     12022/MSGX   12023/MSGX   12026/MSGX   12027/MSGX   12030/MSGX   12031/MSGX   12032/MSGX   12033/MSGX
     12037/MSGX   12048/MSGX   12050/MSGX   12052/MSGX   12056/MSGX   12057/MSGX   12192/MSGX   12194/MSGX
     12197/MSGX   12220/MSGX   12222/MSGX   12366/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12372/MSGX
     12386/MSGX   12387/MSGX   12391/MSGX   12395/MSGX   12438/MSGX   12448/MSGX   12473/MSGX
   %6             10619-DP     11873/MSGX   11873/MSGX   11873/MSGX   11873/MSGX   11947/MSGX   12005/MSGX
     12007/MSGX   12060/MSGX   12216/MSGX   12224/MSGX   12225/MSGX   12226/MSGX   12227/MSGX   12228/MSGX
     12229/MSGX   12230/MSGX   12231/MSGX   12294/MSGX   12311/MSGX   12321/MSGX   12324/MSGX   12395/MSGX
     12397/MSGX   12426/MSGX   12427/MSGX
   %7             10620-DP     11869/MSGX   11869/MSGX   11869/MSGX   11869/MSGX   11871/MSGX   11871/MSGX
     11871/MSGX   11871/MSGX   11883/MSGX   11900/MSGX   12038/MSGX   12051/MSGX   12067/MSGX   12269/MSGX
     12271/MSGX   12273/MSGX   12284/MSGX   12287/MSGX   12289/MSGX   12290/MSGX   12291/MSGX   12297/MSGX
     12298/MSGX   12299/MSGX   12300/MSGX   12301/MSGX   12302/MSGX   12309/MSGX   12311/MSGX   12341/MSGX
     12360/MSGX   12390/MSGX   12411/MSGX   12412/MSGX   12413/MSGX   12431/MSGX   12480/MSGX   12481/MSGX
   %8             10621-DP     11795/MSGX   11807/MSGX   11807/MSGX   11856/MSGX   11858/MSGX   11867/MSGX
     11902/MSGX   12066/MSGX   12076/MSGX   12120/MSGX   12319/MSGX   12396/MSGX   12423/MSGX   12440/MSGX
     12479/MSGX
   %9             10622-DP     11853/MSGX   11976/MSGX   12040/MSGX   12322/MSGX   12398/MSGX   12399/MSGX
     12400/MSGX   12414/MSGX   12417/MSGX   12436/MSGX
   :BIN@EBC        7320/BAL     7325/BAL     7373/BAL     7377/BAL     7422/BAL     8636/BAL     9690-STW
   :HEX@D#A        9754-LI      9762/BDR
   :HEX@D#B        9758-OR      9768/BDR
   :HEX@D#C        9761-LW      9769/B
   :HEX@D#D        9756/BCR     9768-BDR
   :HEX@D#X        9766/B       9771-LCI
   :HEX@DE         2323/BAL     9747-RES
   :HEX@EBC        5847/BAL     6633/BAL     6637/BAL     6813/BAL     6821/BAL     7694/BAL     7955/BAL
      7962/BAL     7964/BAL     8643/BAL     8646/BAL     8649/BAL     8767/BAL     9716-STW     9728/BGEZ
   :K              9803/AW      9813-DATA
   :M1             7649/STD     9793/STW     9798/MTW     9804/EOR     9810-DATA
   :M2             9794/STW     9800/MTW     9805/EOR     9811-DATA
   :RANDM          9796-STW
   :RANDMX         7624/BAL     7633/BAL     7656/BAL     9798-MTW
   :RANDMY         9793-STW
   :S             10640-DP     11779/MSGX   11817/MSGX   11967/MSGX   11989/MSGX   11990/MSGX   12165/MSGX
     12286/MSGX   12296/MSGX   12318/MSGX   12365/MSGX   12389/MSGX   12396/MSGX   12415/MSGX
   :SEED           7651/STW     9796/STW     9801/LW      9806/STW     9812-DATA
   #A             10602-DP
   #B             10603-DP
   #BRKOUT          930-EQU     9471/LC
   #BTE%            938-EQU
   #C             10604-DP
   #COCSTATE%       954-EQU     1724/LC*     2091/LC*     2462/LC*     2568/LC*     2690/LC*     5873/LC*
      7565/LC*     7625/LC*     9395/LC*
   #D             10605-DP
   #DCA            1050-EQU
   #DECOMP@        1070-DATA
   #DIAG@          1067-DATA
   #DISUSER%        939-EQU
   #E             10606-DP
   #ENUSER%         940-EQU
   #ERRTEXT%        948-EQU     2343/STW*    5450/STW*    5491/STW*    7194/STW*    7197/STW*    7201/STW*
      7205/STW*    9340/STW*
   #ERR1PTR%        646/XPSD*    949-EQU
   #ETH%            630/BAL*     936-EQU
   #ETHCON          594-CNAME
   #F             10607-DP
   #FIDLE%          943-EQU     6541/B*      6733/B*      6762/BG*     6773/B*      6788/B*      7063/B*
      8054/B*      8156/B*      8227/B*      8344/B*      8505/BAL*    8562/B*
   #G             10609-EQU    11904/MSGX
   #GUIDE%          942-EQU    12568/BAL*
   #GUIDEBUF        952-EQU     6345/LW
   #H             10610-EQU
   #HDRFLG          910-EQU     1108/STW     7208/LW      7487/STW
   #HTE%            551/BAL*     937-EQU
   #HTECON          541-CNAME
   #INDEX           916-EQU     8014/LB
   #INITIAL@       1064-DATA
   #J             10612-EQU
   #K             10614-EQU
   #L             10616-EQU
   #LOADER@        1068-DATA   12567/STW
   #LOADFLAG        911-EQU     1179/LW
   #MAXMEM          928-EQU     5507/LW      6329/LW
   #OUTPTR          914-EQU     8040/LW      8219/LW
   #P%MODE%         951-EQU
   #PAKDEX          915-EQU
   #PARAM%H1        917-EQU     6491/LW      6939/LW
   #PARAM%H2        918-EQU     6496/LW      6944/LW
   #PARAM%H3        919-EQU
   #PARAM%H4        920-EQU
   #PARAM1          924-EQU     6532/LD      7056/LD
   #PARAM2          925-EQU     6534/LD      7058/LD
   #PARAM3          926-EQU
   #PARAM4          927-EQU
   #PLINEIN@       1066-DATA
   #PRINT           657-CNAME
   #PRINTER%        657/CNAME    947-EQU
   #PRTADDR         913-EQU     1205/#HTECON 8137/STW
   #RETURN%         945-EQU     9299/B*
   #RUNADDR%        944-EQU     5858/XPSD*   6041/XPSD*   7503/XPSD*
   #S             10642-DP     11807/MSGX   11834/MSGX   11834/MSGX   11926/MSGX   11968/MSGX   11968/MSGX
     11975/MSGX   11978/MSGX   12163/MSGX   12169/MSGX   12171/MSGX   12195/MSGX   12249/MSGX   12250/MSGX
     12252/MSGX   12269/MSGX
   #S%MODE%         953-EQU     9358/LB*     9412/LB*
   #SAMPLE          929-EQU     5995/XPSD*   7095/XPSD*
   #SENSE           909-EQU     1307/LC      1416/LC      1441/LC      1753/LC      3184/LC      3194/LC
      3223/LC      3332/LC      4013/LC      5451/LC      5492/LC      5998/LC      6002/LC      7191/LC
      7493/LC      7495/LC
   #STATUS          922-EQU     9320/LB
   #TABLE1A         908-ORG
   #TABLE1B         935-ORG
   #TABLE2@        1063-ORG
   #TABLE3@        1065-DATA
   #TESTINIT        921-EQU     1253/LC
   #TOADDR          912-EQU     1201/#HTECON
   #TYPE            658-CNAME
   #TYPER%          658/CNAME    946-EQU     5856/BAL*
   #VALTAB%         950-EQU     2326/LB*     6839/LB*     6856/LB*     6868/LB*     6889/LB*
   #0             10592-DP     11781/MSGX   11787/MSGX   11787/MSGX   11787/MSGX   11811/MSGX   11811/MSGX
     11823/MSGX   11823/MSGX   11823/MSGX   11823/MSGX   11823/MSGX   11823/MSGX   11846/MSGX   11846/MSGX
     11869/MSGX   11878/MSGX   11878/MSGX   11878/MSGX   11878/MSGX   11878/MSGX   11878/MSGX   11878/MSGX
     11878/MSGX   11878/MSGX   11911/MSGX   11926/MSGX   11951/MSGX   11951/MSGX   11982/MSGX   12040/MSGX
     12040/MSGX   12040/MSGX   12040/MSGX   12040/MSGX   12042/MSGX   12042/MSGX   12042/MSGX   12044/MSGX
     12046/MSGX   12046/MSGX   12046/MSGX   12064/MSGX   12069/MSGX   12078/MSGX   12165/MSGX   12165/MSGX
     12222/MSGX   12225/MSGX   12227/MSGX   12229/MSGX   12231/MSGX   12236/MSGX   12249/MSGX   12252/MSGX
     12287/MSGX   12324/MSGX   12345/MSGX   12398/MSGX   12421/MSGX   12421/MSGX   12426/MSGX   12427/MSGX
     12429/MSGX   12432/MSGX   12432/MSGX   12434/MSGX   12436/MSGX   12438/MSGX   12440/MSGX   12441/MSGX
     12443/MSGX   12445/MSGX   12447/MSGX   12448/MSGX   12450/MSGX   12451/MSGX   12453/MSGX   12454/MSGX
     12456/MSGX   12457/MSGX   12459/MSGX   12460/MSGX   12461/MSGX   12463/MSGX   12464/MSGX   12464/MSGX
     12466/MSGX   12467/MSGX   12469/MSGX   12470/MSGX   12473/MSGX   12474/MSGX   12476/MSGX   12477/MSGX
     12479/MSGX   12480/MSGX   12481/MSGX   12482/MSGX   12483/MSGX
   #1             10593-DP     11781/MSGX   11781/MSGX   11781/MSGX   11787/MSGX   11787/MSGX   11787/MSGX
     11787/MSGX   11797/MSGX   11804/MSGX   11804/MSGX   11823/MSGX   11823/MSGX   11823/MSGX   11823/MSGX
     11823/MSGX   11834/MSGX   11840/MSGX   11846/MSGX   11878/MSGX   11878/MSGX   11911/MSGX   11911/MSGX
     11926/MSGX   11926/MSGX   11927/MSGX   11929/MSGX   11931/MSGX   11933/MSGX   11935/MSGX   11937/MSGX
     11951/MSGX   11951/MSGX   11953/MSGX   11968/MSGX   11982/MSGX   11987/MSGX   11992/MSGX   11992/MSGX
     11994/MSGX   11999/MSGX   12010/MSGX   12014/MSGX   12018/MSGX   12022/MSGX   12026/MSGX   12030/MSGX
     12033/MSGX   12037/MSGX   12040/MSGX   12042/MSGX   12042/MSGX   12042/MSGX   12044/MSGX   12044/MSGX
     12044/MSGX   12044/MSGX   12044/MSGX   12046/MSGX   12046/MSGX   12046/MSGX   12049/MSGX   12053/MSGX
     12056/MSGX   12060/MSGX   12064/MSGX   12071/MSGX   12071/MSGX   12073/MSGX   12075/MSGX   12078/MSGX
     12083/MSGX   12091/MSGX   12093/MSGX   12098/MSGX   12098/MSGX   12102/MSGX   12108/MSGX   12108/MSGX
     12119/MSGX   12131/MSGX   12131/MSGX   12134/MSGX   12139/MSGX   12151/MSGX   12165/MSGX   12165/MSGX
     12188/MSGX   12224/MSGX   12224/MSGX   12225/MSGX   12226/MSGX   12228/MSGX   12230/MSGX   12236/MSGX
     12237/MSGX   12237/MSGX   12238/MSGX   12240/MSGX   12242/MSGX   12247/MSGX   12250/MSGX   12253/MSGX
     12254/MSGX   12287/MSGX   12287/MSGX   12299/MSGX   12300/MSGX   12322/MSGX   12324/MSGX   12345/MSGX
     12345/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12372/MSGX   12374/MSGX   12376/MSGX   12399/MSGX
     12415/MSGX   12417/MSGX   12417/MSGX   12421/MSGX   12421/MSGX   12421/MSGX   12423/MSGX   12423/MSGX
     12425/MSGX   12426/MSGX   12426/MSGX   12426/MSGX   12427/MSGX   12427/MSGX   12427/MSGX   12429/MSGX
     12429/MSGX   12431/MSGX   12432/MSGX   12432/MSGX   12432/MSGX   12434/MSGX   12434/MSGX   12434/MSGX
     12436/MSGX   12438/MSGX   12438/MSGX   12438/MSGX   12440/MSGX   12441/MSGX   12441/MSGX   12441/MSGX
     12443/MSGX   12443/MSGX   12443/MSGX   12445/MSGX   12445/MSGX   12445/MSGX   12447/MSGX   12448/MSGX
     12448/MSGX   12451/MSGX   12451/MSGX   12454/MSGX   12454/MSGX   12457/MSGX   12457/MSGX   12460/MSGX
     12461/MSGX   12461/MSGX   12464/MSGX   12464/MSGX   12464/MSGX   12467/MSGX   12467/MSGX   12470/MSGX
     12472/MSGX   12473/MSGX   12474/MSGX   12474/MSGX   12477/MSGX   12477/MSGX   12480/MSGX   12481/MSGX
     12483/MSGX   12483/MSGX   12483/MSGX
   #2             10594-DP     11787/MSGX   11797/MSGX   11802/MSGX   11804/MSGX   11804/MSGX   11834/MSGX
     11840/MSGX   11869/MSGX   11878/MSGX   11885/MSGX   11949/MSGX   11949/MSGX   11968/MSGX   11988/MSGX
     11992/MSGX   11992/MSGX   12004/MSGX   12011/MSGX   12015/MSGX   12019/MSGX   12023/MSGX   12027/MSGX
     12031/MSGX   12048/MSGX   12057/MSGX   12069/MSGX   12073/MSGX   12081/MSGX   12085/MSGX   12095/MSGX
     12096/MSGX   12100/MSGX   12100/MSGX   12105/MSGX   12111/MSGX   12122/MSGX   12136/MSGX   12156/MSGX
     12165/MSGX   12165/MSGX   12190/MSGX   12226/MSGX   12227/MSGX   12238/MSGX   12289/MSGX   12299/MSGX
     12300/MSGX   12400/MSGX   12426/MSGX   12432/MSGX   12436/MSGX   12445/MSGX   12445/MSGX   12447/MSGX
     12447/MSGX   12448/MSGX   12448/MSGX   12450/MSGX   12450/MSGX   12450/MSGX   12451/MSGX   12453/MSGX
     12453/MSGX   12454/MSGX   12454/MSGX   12456/MSGX   12456/MSGX   12457/MSGX   12459/MSGX   12460/MSGX
     12460/MSGX   12461/MSGX   12463/MSGX   12463/MSGX   12464/MSGX   12466/MSGX   12467/MSGX   12469/MSGX
     12470/MSGX   12470/MSGX   12472/MSGX   12473/MSGX   12474/MSGX   12476/MSGX   12476/MSGX   12477/MSGX
     12479/MSGX   12479/MSGX   12480/MSGX   12481/MSGX   12482/MSGX
   #3             10595-DP     11797/MSGX   11823/MSGX   11834/MSGX   11869/MSGX   11885/MSGX   11968/MSGX
     12032/MSGX   12050/MSGX   12075/MSGX   12087/MSGX   12102/MSGX   12113/MSGX   12125/MSGX   12139/MSGX
     12139/MSGX   12149/MSGX   12195/MSGX   12228/MSGX   12229/MSGX   12240/MSGX   12290/MSGX   12417/MSGX
     12417/MSGX   12427/MSGX   12451/MSGX   12453/MSGX   12474/MSGX   12483/MSGX
   #4             10596-DP     11785/MSGX   11785/MSGX   11790/MSGX   11797/MSGX   11801/MSGX   11802/MSGX
     11811/MSGX   11811/MSGX   11814/MSGX   11823/MSGX   11834/MSGX   11853/MSGX   11869/MSGX   11885/MSGX
     11911/MSGX   11968/MSGX   12033/MSGX   12052/MSGX   12060/MSGX   12078/MSGX   12081/MSGX   12089/MSGX
     12105/MSGX   12116/MSGX   12128/MSGX   12142/MSGX   12153/MSGX   12198/MSGX   12230/MSGX   12231/MSGX
     12242/MSGX   12291/MSGX   12345/MSGX   12421/MSGX   12429/MSGX   12432/MSGX   12432/MSGX   12454/MSGX
     12456/MSGX   12459/MSGX
   #5             10597-DP     11781/MSGX   11811/MSGX   11811/MSGX   11811/MSGX   11823/MSGX   11869/MSGX
     11885/MSGX   12083/MSGX   12085/MSGX   12087/MSGX   12089/MSGX   12144/MSGX   12165/MSGX   12210/MSGX
     12247/MSGX   12429/MSGX   12434/MSGX   12436/MSGX   12440/MSGX   12457/MSGX   12459/MSGX
   #6             10598-DP     11871/MSGX   11885/MSGX   11911/MSGX   11927/MSGX   11929/MSGX   11931/MSGX
     11994/MSGX   12033/MSGX   12091/MSGX   12108/MSGX   12146/MSGX   12214/MSGX   12250/MSGX   12322/MSGX
     12345/MSGX   12366/MSGX   12368/MSGX   12370/MSGX   12438/MSGX   12440/MSGX   12460/MSGX   12482/MSGX
   #7             10599-DP     11823/MSGX   11871/MSGX   11885/MSGX   11926/MSGX   12093/MSGX   12095/MSGX
     12149/MSGX   12218/MSGX   12253/MSGX   12441/MSGX   12461/MSGX   12463/MSGX   12467/MSGX
   #8             10600-DP     11871/MSGX   11885/MSGX   12098/MSGX   12100/MSGX   12102/MSGX   12105/MSGX
     12233/MSGX   12254/MSGX   12441/MSGX   12443/MSGX   12461/MSGX   12464/MSGX   12466/MSGX   12466/MSGX
     12474/MSGX
   #9             10601-DP     11871/MSGX   11885/MSGX   12078/MSGX   12108/MSGX   12111/MSGX   12113/MSGX
     12116/MSGX   12235/MSGX   12467/MSGX   12469/MSGX   12474/MSGX
   @S             10635-DP     12188/MSGX   12198/MSGX
